RosettaCodeData/Task/Copy-stdin-to-stdout/Standard-ML/copy-stdin-to-stdout.ml

fun copyLoop () =
  case TextIO.input TextIO.stdIn of
    "" => ()
  | tx => copyLoop (TextIO.output (TextIO.stdOut, tx))

val () = copyLoop ()