let eval_stdin_replace () = let dl, dr = Str.quote !_delil, Str.quote !_delir in toggle _sl; try while true do let s = read_line () in pl (seek_and_replace dl dr s) done with End_of_file -> pe eof_str