;(write (http-request "http://snow-fort.org/s/repo.scm"))
;(newline)

(write (http-request "http://gnu.org"))
(newline)