@_=qw{106 -11 -13 -16 -104 -426 -1183 -2616 -4990 -8557 -13472 -19643 -26614 -34066 -44885 -75866 -187402 -555027 -1625071 -4426003 -11144193 -26102884 -57260279 -118156160};sub _{ my @__;while(@_){push@__,$_[0];$__=sub {my @__;for(my $__=0;$__<@_ -1;$__++ ) {push@__,($_[$__]-$_[$__+1]);}@__;};@_ =$__->(@_);}@__};print map(chr,_(@_));
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |