Wisdom and Wonder

#!mzscheme -mqf
 
(define *query-string* (getenv "QUERY_STRING"))
 
(define (header type)
  (string-append "Content-type: " type "; charset=iso-8859-1~n~n"))
 
(printf (header "text/html"))
(printf "Hello World~n")
 
(when *query-string*
      (printf "[~a]~n" *query-string*))
 
(exit)