@P=split//,".URRUU\c8R";@d=split//,"\n?neht krow siht seod woh oS";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


not mine, but amusing

-- 
Robin Szemeti

The box said "requires windows 95 or better"
So I installed Linux!

Reply via email to