(use tcp)

(receive (in out)
  (tcp-connect "www.ustream.tv" 80)
  (display "GET /new HTTP/1.1\r\nHost: www.ustream.tv\r\n\r\n" out)
  (close-output-port out)
  (print (read-string #f in)))