sub p {
  my($a,$b)=(shift,shift);
  my@c=map{my($d,$e);for$e(0..$_){$d+=$$a[$e]*$$b[$_-$e]}$d}0..$#$a+$#$b;
  @_?p(\@c,@_):\@c
}