sub amult {
  my ($a, $b) = @_;
  croak "Arrays of different sizes" unless $#$a==$#$b;
  map { $a->[$_] * $b->[$_] } (0..$#$a)
}