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