sub p{
my@m=1;for my $p(@_){my@a;map{my$j=my$i=$_;$a[$j++]+=$_*$m[$i]for@$p}0..@m;@m=@a}\@m
}