#!/usr/local/bin/csi -script
; -*- scheme -*-

(require 'plt-net)

(let ((args (list-tail (argv) 3)))
  (receive (in out) (tcp-connect (list-ref args 0) 80)
	   (with-output-to-port out
	     (lambda ()
	       (for-each display (list "GET " (list-ref args 1) " HTTP/1.0"
				       #\newline #\newline))))
	   (let loop ()
	     (let ((l (read-line in)))
	       (unless (eof-object? l)
		       (display l)
		       (newline)
		       (loop))))
	   (close-input-port in)
	   (close-output-port out)))
