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