main=f[-1].words=<<getLine;f(x:y)("=":z)=print x>>f y z;f(x:y)(_:z)=f(x+1:x:y)z