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