$,=27;for$.(map{(ord)-42}split$.,q
4;021*D761=@3*5@39*=DB:@34){$I=95,
$_.=substr(q)[)x$,.q x]xx$,,$.,54-
$.-$.).q.,.}map{sub{my($l)=@_;$,=q
{sub{my$I=shift;$l->(sub{$I->($I)(
@_)})}};eval(qq{$,->($,)})}->(sub{
my($l)=@_;sub{++$I,ref($_[0])=~m~Y
~x?$l->($_[0]->[0]):($..=chr$I),$I
=95}})($_)}eval;map{y},j{p:}{J P}+
print}qq;$.\n;