sub f{($k,$n,$d)=@_;$n>=0and$d?f($n*$k,$n-1,$d-1):($a[$n]+=$k)}
<>;@a=(0)x(<>+1);$_=<>;
s/\*//g;s/(x*)(\d)/+$2$1/g;s/\bx/1x/g;
/d/?++$D:/\}/?--$D:f($_,-1+length,$D)for/d|\dx*|\}/g;
print"@a"