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