sig
  val parse_expr : Camlp4.Sig.Ast.loc -> string -> Camlp4.Sig.Ast.expr
  val parse_patt : Camlp4.Sig.Ast.loc -> string -> Camlp4.Sig.Ast.patt
end