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