RosettaCodeData/Task/Copy-stdin-to-stdout/BCPL/copy-stdin-to-stdout.bcpl
2023-07-01 13:44:08 -04:00

7 lines
105 B
Text

get "libhdr"
let start() be
$( let c = rdch()
if c = endstreamch then finish
wrch(c)
$) repeat