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