sig
  val init : string -> Stdlib.Lexing.lexbuf -> Stdlib.Lexing.lexbuf
  val read : string -> string * Stdlib.Lexing.lexbuf
  val newline : Stdlib.Lexing.lexbuf -> unit
  val range : Stdlib.Lexing.position * Stdlib.Lexing.position -> string
  val tabulate : ('a -> bool) -> (unit -> 'a) -> unit -> 'a
end