(define (fetch-image url file-name)
  (call-with-output-file file-name
    (lambda (out)
      (call-with-input-request url #f (lambda (in)
                                        (copy-port in out))))))