(* raw HTML representation **************************************************)

let key s = "<font color=\"blue\">" ^ s ^ " </font>"

let sub s = "<font color=\"blue\"> " ^ s ^ " </font>"

let sub2 s = "<font color=\"blue\">" ^ s ^ "</font>"

let sym s = s

let sep s = s

let str s = "<font color=\"red\">'" ^ s ^ "'</font>"

let pat s = "<font color=\"red\">\"" ^ s ^ "\"</font>"

let res s = "<font color=\"brown\">\"" ^ s ^ "\"</font>"

let nl () = "<br>\n"

let par () = "<p>\n"