+module Main where
+
+import CGI hiding (div, head, map, span)
+import RawCGIInternal
+import CGIOutput
+
+main = start [] cgi
+
+cgi CGIInfo {cgiUrl = url, cgiPathInfo = pi, cgiContentType = ct, cgiContents = c, cgiCookies = co, cgiArgs = as, cgiHandle = h} parms = do
+ putStr "content-type: text/html\n\n"
+ print parms
+ print url
+ print pi
+ print ct
+ print co
+ print co
+ print as
+ print h
+ case assocParm "test" parms of
+ Nothing -> putStr "Parameter 'test' not provided"
+ Just x -> putStr $ "Value of test = "++x