RosettaCodeData/Task/Rot-13/OCaml/rot-13-3.ml

6 lines
142 B
OCaml

let () =
try while true do
String.iter (fun c -> print_char (rot13 c)) (read_line());
print_newline()
done with End_of_file -> ()