#!/usr/bin/perl -w
$c=0;@a=(0..25);@b=(a..z);$a{$_}=shift(@b)foreach(@a);sub r{($l,$h)=(
@_);return$l+int rand(1+$h-$l);}while(1){$s="";@s=();foreach(0..12){$s
[$_]=r(0,25);print$a{$s[$_]};}$s.=$_ foreach(@s);++$c;print" $c\n";die
"Who's a good monkey?\n"if($s eq"1914141417131419191414");}