sig
  type error
  exception LexingError of Lexer.error
  val init : string -> unit
  val token :
    Ulexing.lexbuf -> Grammar.token * Lexing.position * Lexing.position
  val print_error : Buffer.t -> Ulexing.lexbuf * Lexer.error -> unit
  val print_position : Buffer.t -> Ulexing.lexbuf -> unit
  val p : Buffer.t -> Lexing.position * Lexing.position -> unit
end