#!/usr/bin/perl
%_=(106=>[1],117=>[2],115=>[3],
116=>[4,9],32=>[5,13,18],97=>[6,20],
110=>[7],111=>[8],104=>[10,19],101=>[11,
15,23], 114=> [12,16,24],
112=>[14],108 =>[17],99=>
[21],107=>[22 ],74=>[1],85
=>[2],83=>[3],84=>[4,9],32=>[5,13,18],65
=>[6,20],78=>[7],79=>[8],72=>[10,19],69
=>[11,15,23],82=>[12,16,24],80=>[14]
,76=>[17],67=>[21],75=>[22]);while
(1) {system clear; $_____=int rand
255;$____=0;if ($_ {$_____} ) { my
@______ = @ { $_ { $_____}};$___[$_]
= chr $_____ for @______;for (@___)
{ $____++ if $_;}} print $_ for @___;
last if $____ == 24 ; } print "\n";
#Japh Random Search ##################