module Parser_util:Error exception.sig..end
exception Error of string
val error : string -> unitval next_lex : Lexing.lexbuf -> string * (string * int * int)val get_current_token : unit -> stringval parse_channel : Pervasives.in_channel -> string -> 'a -> ('a -> Lexing.lexbuf -> 'b) -> 'b