(load "expand-string.lsp")
(write-line 2 (string "index.lsp"))
(write-line 2 (string (expand-file "tmpl/index-page.html")))
(println "Status 200 OK\nContent-Type: text/html\n\n")
(println (expand-file "tmpl/index-page.html"))
(exit 0)