sig
  exception Parse_error of string * int * string
  val load : ?file:string -> unit -> unit Lwt.t
  val default : string
end