myHeader h sub = do
  header $ do
    h1 ! class_ "name pull-left" $ do
      h <> nbsp <> sub
--      string h <> small (string sub)
  div ! A.style "clear:both" $ ""
myHeader h sub = do
  header $ do
    h1 ! class_ "name pull-left" $ do
      h <> nbsp <> sub
--      string h <> small (string sub)
  div ! A.style "clear:both" $ ""
myHeader h sub = do
  header $ do
    h1 ! class_ "name pull-left" $ do
      h <> nbsp <> sub
--      string h <> small (string sub)
  div ! A.style "clear:both" $ ""