RosettaCodeData/Task/Copy-stdin-to-stdout/OCaml/copy-stdin-to-stdout.ml
2024-10-16 18:07:41 -07:00

5 lines
92 B
OCaml

try
while true do
output_char stdout (input_char stdin)
done
with End_of_file -> ()