let page oc style title f_body arg =
  p oc "%s"
    (default_page_type^
     "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">\n"^
     "<link rel=\"stylesheet\" type=\"text/css\" href=\""^style^"\">\n"^
     "<title>"^title^"</title></head>\n"^
     "<body>"
    );
  f_body oc arg;
  p oc "</body>\n</html>"