clean.mll

rule clean = parse
  | '\t'
    {
      print_string "    ";
      clean lexbuf
    }
  | (' ' | '\t')* '\n'
    {
      print_newline ();
      clean lexbuf
    }
  | _ as c
    {
      print_char c;
      clean lexbuf
    }
  | eof
    {
      ()
    }

{
  let () = clean (Lexing.from_channel stdin)
}