sig

  type token =
      Kwd of string
    | Ident of string
    | Int of int
    | Float of float
    | String of string
    | Char of char
  val make_lexer :
    string list -> char Stdlib.Stream.t -> Genlex.token Stdlib.Stream.t
end