(use medea utils cjson)

(print "medea from port:")
(time (with-input-from-file "guildwars.json" read-json))

(print "medea from string:")
(time (with-input-from-file "guildwars.json" (lambda () (read-json (read-all)))))

(print "cjson from string:")
(time (with-input-from-file "guildwars.json" (lambda () (string->json (read-all)))))