On Apr 26, 2006, at 5:14 PM, ara.t.howard / noaa.gov wrote:

>   @P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona  
> tsuJ";sub p{
>   @p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map 
> {$P=$P[$f^ord
>   ($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_} 
> =~/^[P.]/&&
>   close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2) 
> if/\S/;print

... This discussion is over.