sub ScoreHand { # returns the score of the passed in @hand or ShortHand
  return 7462 unless @_ == 1 || @_ == 5;
  my @hand = @_;

  my $aref = ref $hand[ 0 ] eq 'ARRAY'
    ? $hand[ 0 ]
    : \@hand;

  my $shrt = @$aref == 1
    ? $aref->[ 0 ]
    : ShortHand( $aref );

  return $slow
    ? SlowScoreHand( $shrt )
    : $zdnh{ $shrt };
}