This code is a JAPH and have Math Estadistic relationship
@_=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,_(@_));

by Cristian Vasquez Diaz