(let input (readline)

     (def 'output (implode (append (explode (quote
"HTTP/1.0 200 OK
Connection: close
Content-Type: text/html; charset=iso-8859-1

<title>FOO</title>
foo bar baz <hr>"
     )) input )))
)