RosettaCodeData/Task/Copy-stdin-to-stdout/BCPL/copy-stdin-to-stdout.bcpl

8 lines
105 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
get "libhdr"
let start() be
$( let c = rdch()
if c = endstreamch then finish
wrch(c)
$) repeat