(module foo ()
(import scheme chicken extras intarweb)

  (use http-client)

  (define imageshack-url "http://www.imageshack.us/index.php")

  (with-input-from-request imageshack-url
                           `((fileupload file: "foo.gif" filename: "foo.gif"
                                         headers: ,(headers
                                                    '((content-type text/plain)))))
                           read-string)
)