f('i':s)v=f s$v+1
f('d':s)v=f s$max(v-1)0
f('s':s)16=f s 0
f('s':s)v=f s$v*v
f('o':s)v=show v++"\n"++f s v
f(_:s)v=f s v
f _ v=[]
main=interact(`f`0)