recursiv (email not shown publicly)
http://www.tomtheisen.com/AOL IM: recursiv (
Add Buddy, Send Message)
$_='$n=2101){if(!scalar
grep$n%$_==0,2..$n-1){($l+=$n/2+6)>77?($l=$n/2, ~\x0c"):4;$r=0@i[map(w($r,$_,$n),1..$n-1)]=1..$n;
f oreac h$e(1..$n>>1){$o=$e+($n>>1);~
$eZ",w($r,$e,$n),"Z${i[$e]} $oZ",w($r,$o,$n),"Z",$i[$o]}}}sub
o{my$qforeach(1..$_[1]){$w=$w*$_[0]%$_[2]}return$ w}';
s/Z/ |
/g;s/~/print"/g;s/until(/g;eval
