$n=4;($b=>$c=>@_)=(split/$n/=>q/84046541004974109/);$_=&r;sub r{int(rand(26))+97}srand;do{while($_!=$_[$c]){$i=497;$_=($c)? (&r):(ord(uc(chr(&r))));while(--$i){print(#)}$b=74658072;map{ chr$b=>chr)}}print(chr)unless(++$c==$n)}until($c==$n);print$/