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