{-# LANGUAGE BangPatterns, OverloadedStrings #-} import Data.Monoid (mappend, mconcat) import Prelude hiding (putStr) import Data.Text.Lazy.Builder (Builder, fromText, toLazyText) import Data.Text.Lazy.IO (putStr) import qualified Data.Text as T main :: IO () main = do putStr "Content-Type: text/html\n\n