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