sub p{my $t=pdl+pop;$t=$t*(pdl$_)for@_;[list$t]}