alias l proc def a [l{|x|x},0,l{|x|l{|y|x}},l{|x|l{|y|l{|z|x[z][y[z]]}}}][$<.getc%7]||a[a]end loop{p a[l &:succ][0];gets}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page