p _[_][0]until def _ c=$<.getc
c==?`?_[_]:proc{|x|c<?i?x+1:c<?k?x:proc{|y|c<?s?x:proc{|z|x[z][y[z]]}}}end