--- a/samples/http.tp	Sat Aug 10 14:50:38 2013 -0700
+++ b/samples/http.tp	Sat Aug 10 15:06:56 2013 -0700
@@ -5,6 +5,13 @@
 			server <- args get: 1
 		}
 		cli <- http client: server
-		print: (string: (cli get: "/"))
+		resp <- (cli get: "/")
+		print: "Status: " . (resp status) . "\n"
+		print: "Code: " . (resp statusCode) . "\n"
+		print: "Headers:\n"
+		foreach: (resp headers) :key val {
+			print: key . " -> " . val . "\n"
+		}
+		print: "Body:\n" . (resp body) . "\n"
 	}
 }