myPage :: Html -> Html -> Html -> Html
myPage h sub content = do
  myHeader h sub
  div ! class_ "content" $ do
    content
  br; a ! href "../" $ preEscapedString "&larr; back";
  br;br;br
myPage :: Html -> Html -> Html -> Html
myPage h sub content = do
  myHeader h sub
  div ! class_ "content" $ do
    content
  br; a ! href "../" $ preEscapedString "&larr; back";
  br;br;br
myPage h sub content = do
  myHeader h sub
  div ! class_ "content" $ do
    content
  br; a ! href "../" $ preEscapedString "&larr; back";
  br;br;br