sig
  exception Parse_error
  exception Not_supported
  val re : ?case:bool -> string -> Re.t
  val compile : Re.t -> Re.re
  val compile_pat : ?case:bool -> string -> Re.re
end