type 'a buffer
val wrap : (Stdlib.Lexing.lexbuf -> 'token) -> (Stdlib.Lexing.position * Stdlib.Lexing.position) buffer * (Stdlib.Lexing.lexbuf -> 'token)val wrap_supplier : (unit -> 'token * Stdlib.Lexing.position * Stdlib.Lexing.position) -> (Stdlib.Lexing.position * Stdlib.Lexing.position) buffer * (unit -> 'token * Stdlib.Lexing.position * Stdlib.Lexing.position)val show : ('a -> string) -> 'a buffer -> stringval last : 'a buffer -> 'aval sanitize : string -> stringval compress : string -> stringval shorten : int -> string -> stringval expand : (int -> string) -> string -> string