|
|
1.1 root 1: procedure main()
2: s2 := &cset || "AEIOUaeiou"
3: s3 := repl(" ",*&cset) || "||||||||||"
4: while line := read() do {
5: write(line)
6: write(map(line,s2,s3))
7: }
8: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.