|
|
Initial revision
procedure main()
s2 := &cset || "AEIOUaeiou"
s3 := repl(" ",*&cset) || "||||||||||"
while line := read() do {
write(line)
write(map(line,s2,s3))
}
end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.