(define (fetch-image url file-name)
  (with-output-to-file file-name
    (lambda () (display (with-input-from-request url #f read-string)))))