sig
  val current_time : unit -> string
  val trim : string -> string
  val string_hash : string -> int
  val read_lines : string -> string list
  val write_lines : string list -> string -> unit
  val parse_file : string -> (Lexing.lexbuf -> 'a) -> 'a
  val xml_header : string
  val escape_xml : string -> string
  type xml_tree = {
    tag_name : string;
    tag_attributes : (string * string) list;
    tag_data : Utils.xml_data list;
  }
  and xml_data = Text of string | Data of string | Child of Utils.xml_tree
  val string_of_xml_tree : Utils.xml_tree -> string
  val binary_magic_number : string
  val binary_current_version : int * int
end