(use http-client)

(let ((url "http://google.com"))
  (display (with-input-from-request url #f read-string))))