6 lines
144 B
Standard ML
6 lines
144 B
Standard ML
fun copyLoop () =
|
|
case TextIO.input TextIO.stdIn of
|
|
"" => ()
|
|
| tx => copyLoop (TextIO.output (TextIO.stdOut, tx))
|
|
|
|
val () = copyLoop ()
|