Parser.Lexer
type t
val create : unit -> t
type !_ token =
| Await : [> `other ] token
| Lparen : [> `other ] token
| Rparen : [> `other ] token
| Atom : int -> [> `atom ] token
val feed : t -> char -> [ `atom | `other ] token
val feed_eoi : t -> unit