JAPH

[mjd-perl-pm@plover.com]

# Copyright 2001 Mark Jason Dominus
require 5.00553;
use re 'eval';
$|=1;
$z = qr{(?{local$d=1})(?:`(?{$d++})|.(?{$d--}))+?(?(?{$d})(?!))};
$_="``As`SC``Ad``S``CS`CCI``Ae``C`SI`Ed``A?``B``BIi`pI``E?Z``CZZZZZ`KI```BX`KIZZQZZZQZZZZZQZZZZQZ``CZZ```BX`KX`KXQ``Ee``EeZZZZZQZ```BX`KIZZQ```BX`KIZZQZZZZQ```BXZ`KIZZQ``Ee```BX`KIZZQ``EdZZZQZ``CZZ```BX`KX`KXQ``CZ```BX`KIZZ`KXZQ``Ee```BX`KIZZQ``EdZZZQ``CZZZZ`KXQZ``CZZ```BX`KX`KXQ``C```BXZ`KIZZ`KXQ``Ee``EeZZZZZQ``C``EeZZZ`KXQ``Ee``EdZZZQ``Ee```BX`KIZZQ``EdZZZQ``Ed``Ee```BX`KX`KI";
s/Q/`KI``E?/g;s/X/IZZZ/g;s/Z/``Es/g;
do {
  $N=0;
  s{`I($z)(?{$q=0})|``K($z)($z)(?{$q=1})|```S($z)($z)($z)(?{$q=2})|```C($z)($z)($z)(?{$q=3})|```B($z)($z)($z)(?{$q=4})|``A($z)($z)(?{$q=5})|`i($z)(?{$R++,$q=6})|`p($z)(?{print(chr 120-$R), $R=0, $q=7})|`E($z)(?{$q=8})|`V($z)(?{$q=9})}{$N=1;$q<5?($1,$2,"``$4$6`$5$6","`$7`$8$9","``$10$12$11")[$q]:$q==5?($bind{$13}=$14,""):($15,"",$bind{$17},"")[$q-6]}ex;
  } while $N;

__END__
**Majordomo list services provided by PANIX <URL:http://www.panix.com>**
**To Unsubscribe, send "unsubscribe phl" to majordomo@lists.pm.org**