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}