my( $s ) = @_;
    srand( $s ^ time );
    my @c = split / */, "bcdfghjklmnpqrstvwxyz";
    my @v = split / */, "aeiou";
    for($i = 1; $i <= 4;$i++){
    print $c[int(rand(20))], $v[int(rand(5))]);