<>;$d=<>;$_=<>; s/[*d]//g; s/(x+)(\d+)/$2$1/g; 0while s"\{\+*(\d*)x(x*)\+*"($1||1)*(1+length$2).$2.'+{'"ge ||s"\{\+*(\d+)\+*"{"g ||s"\{\+*\}""g; @a=(0)x($d+1); s"(\d*)(x*)"$a[$2=~y/x//]+=$1||$&&&1"ge; print"@a"