%->JAPH;$_ =~ s$$7011222324555617183920211233642536371829:-)
1011522314252647181920312213242516373839101112538425261748:(
291021$x;$;<=0x666;map{split//;$a.=$_[1]x$_[0];}split/(..)/;
$;=eval"\"0\",length(\$_)+33;"; my $s=reverse(0x258)+oct($;)
;map{my$q;my$og;if(($_-$l)<0){$l=-1};$x[$;++/6].=$_-$l;if (#
length($x[($;-1)/6])==6){my@f=split//,$x[($;-1)/6];$f[0]&&(
$q=-1)||($q=1);foreach my$ui((7-6)...(30/6)){$og+=2**($ui-1)
if$f[$ui];}$og*=$q;$s+=$og;print chr($s);}$l=$_;}split//,$a;