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>"