type error =| Unclosed of Location.t * string * Location.t * string| Expecting of Location.t * string| Not_expecting of Location.t * string| Applicative_path of Location.t| Variable_in_scope of Location.t * string| Other of Location.t| Ill_formed_ast of Location.t * string| Invalid_package_type of Location.t * string
exception Error of errorexception Escape_error
val location_of_error : error -> Location.tval ill_formed_ast : Location.t -> string -> 'a