val rewrite : string -> Lexing.lexbuf -> unit