|
|
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.