sub deck_maker {
	map {
		my $suit = $_;
		map { "$_ of $suit" } 2..10, qw(J Q K A)
	} qw(spades hearts diamonds clubs);
}