(receive (response-status response-body)
    (http-request "http://myurl")
  (begin
   (display response-status)
   (newline)
   (call-with-output-file "result.xml"
    (lambda (out)
      (diplay response-body out)))))