1signature Htmlsigs = sig 2val sigsToHtml : string -> string -> string list -> string -> string 3 -> (string * string) list -> string * string -> unit 4val printHTMLBase : string -> string -> string -> 5 (Database.entry -> bool) -> string -> 6 string * string -> unit 7val listDir : string -> string list 8end 9