sub distance {
  my ($vec1,$vec2) = @_;
  my $distance = 0;
  for my $i ( 0 .. (scalar @$vec1)-1 ) {
    $difference += abs( $vec1->[$i] - $vec2->[$i] );
  }
  return $difference;
}