|
|
1.1 root 1: link "../ilib/snapshot"
2:
3: procedure main()
4: "((a+b)-delta)/(c*d))" ? (tab(bal('+-/*')) & snapshot())
5: "abcdefgh" ? (tab(0) & snapshot())
6: "abc\tdef\nghi" ? (tab(upto('\n')) & snapshot())
7: every ("abcdefg" | "\g\f\000") ? while move(1) do
8: snapshot()
9: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.