sig
  val parse :
    Camlp4.PreCast.Ast.Loc.t -> 'a -> string -> Camlp4.PreCast.Ast.expr
end