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