|
|
1.1 ! root 1: link "../ilib/strutil" ! 2: ! 3: procedure main() ! 4: s := "abcedf" ! 5: every write(rotate(s,(1 to 6) | (-1 to -6 by -1) | 20 | 36)) ! 6: write("---") ! 7: write(rotate("abcdef")) ! 8: write(compress("hello world",&lcase)) ! 9: write(image(delete("hello world",&lcase))) ! 10: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.