(use extras ports)

(print "read-line")
(time
  (with-input-from-file "world_bank.json"
    (lambda () (port-map identity read-line))))

(print "read-char")
(time
  (with-input-from-file "world_bank.json"
    (lambda () (port-map identity read-char))))

(print "read-string")
(time
  (with-input-from-file "world_bank.json"
    (lambda ()
      (port-map identity (lambda ()
                           (let ((result (read-string 1024)))
                             (if (string=? "" result)
                                  #!eof
                                  result)))))))