4 lines
129 B
Standard ML
4 lines
129 B
Standard ML
fun rot13stdin () =
|
|
case (TextIO.inputLine TextIO.stdIn)
|
|
of NONE => ()
|
|
| SOME(s) => (print (rot13 s); rot13stdin ());
|