sub zip
{
  my ($str1, $str2) = @_;
  my $zip;
  for (0 .. length($str2)-1)
  { $zip .= substr($str1, $_, 1) . substr($str2, $_, 1) }
  $zip .= substr($str1, length($str2));
  return $zip;
}