r%(c:s)|[(n,t)]<-reads s=last$(r+n)%t:[r*n%t|c<'+']
r%_=r
m@main=getLine>>=print.(0%).('+':)>>m