alias l proc
def e
[l{|x|x},1,l{|x|l{x}},l{|f|l{|g|l{|x|f[x][g[x]]}}}][$<.getc%7]||e[e]end
loop{p e[l{|x|x+1}][0];e}