sig
  val print_pre_tokens : Flx_parse.token list -> unit
  val print_tokens : Flx_parse.token list -> unit
  class tokeniser :
    Flx_parse.token list ->
    object
      val mutable current_token_index : int
      val mutable tokens : Flx_parse.token list
      val mutable tokens_copy : Flx_parse.token list
      method report_syntax_error : unit
      method token_peek : Lexing.lexbuf -> Flx_parse.token
      method token_src : Lexing.lexbuf -> Flx_parse.token
    end
  type 'a parser_t =
      (Lexing.lexbuf -> Flx_parse.token) -> Lexing.lexbuf -> 'a
  val parse_tokens : 'Flx_tok.parser_t -> Flx_parse.token list -> 'a
end