main=interact('+'#)
c#(x:y)|c=='+'="  adgjmptw"!!read[x]#y|x>'1'=succ c#y|1>0=c:'+'#y
c#z=z