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