print "gimme a seed: ";
$s = <STDIN>;
srand ($s ^ time);
@chars = qw(b c d f g h j k l m n p r s t v w x z);
@vowels = qw(a e i o u y);

for($i = 1; $i <= 4; $i++) {
	print $chars[int(rand(20))], $vowels[int(rand(5))];
	}