Anonymous user
Copy stdin to stdout: Difference between revisions
no edit summary
(→{{header|REXX}}: added the REXX computer programming language.) |
No edit summary |
||
Line 143:
call charout , x /*write " " " " output " */
end /*while*/ /*stick a fork in it, we're all done. */</lang><br><br>
=={{Header|Scheme}}==
<lang scheme>
(do ((c (read-char) (read-char)))
((eof-object? c) 'done)
(display c))
</lang>
=={{Header|sed}}==
| |||