sub stable_shuffle {
# VERY BROKEN, do not use!
# My intent was to turn the seed into a number,
# and then use it to pick a predictably random
# item off of the array.
#	my $seed = join '', map ord, split //, shift;
#	return map {splice(@_, $seed % @_, 1)} @_;
}