Copy stdin to stdout: Difference between revisions
→{{Header|Phix}}
No edit summary |
|||
Line 133:
When invoked from a file: Lines are auto-chomped, so need to re-add newlines (hence .say rather than .print)
<lang perl6>.say for lines</lang>
=={{header|Phix}}==
<lang Phix>while true do
integer ch = wait_key()
if ch=#1B then exit end if
puts(1,ch)
end while</lang>
=={{Header|Prolog}}==
| |||