{-# LANGUAGE OverloadedStrings #-}

import Control.Monad (forM_)
import Text.Blaze.Html5 
import qualified Text.Blaze.Html5 as H
import Text.Blaze.Html.Renderer.String

numbers :: Int -> Html
numbers n = docTypeHtml $ do
            H.head $ H.title "BlazeTest"
            H.body $ do
              p "A list of natural numbers:"
              ul $ forM_ [1 .. n] (li . toHtml)

main :: IO ()
main = putStrLn $ renderHtml $ numbers 5