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