(require net/url)
(let loop ()
     (let* ((p (get-pure-port (string->url "https://raw.github.com/foo")))
            (contents (port->string p)))
       (close-input-port p)
       (display contents) (newline)
       (loop)))