pageTemplate :: (EmbedAsChild I18N body) => String -> body -> I18N XML
pageTemplate title body =
    defaultTemplate title ()
     <div>
      <% body %>
      <ul>
       <% mapM (\lang ->
                 <li>
                   <a [ ("href" :: String) := ("?_LANG="++ lang)]><% lang %></a>
                 </li>)
              (["en", "en-GB", "jbo"] :: [String]) %>
      </ul>
     </div>