Initial revision
procedure main() chars := '' while chars ++:= read() write(*chars) end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.