#!/usr/bin/perl
use POSIX;$c=q/Just another perl hacker./;@d=unpack('C*',$c);for($j=1;$j<=$#d;$j++){for($i=$#d;$i>=$j;$i--){$d[$i]=($d[$i]-$d[$i-1])/($i-($i-$j));}}$v[$k]=$d[$m];$e[$l]=$d[$l];for($k=1;$k<=$#d;$k++){for($l=1;$l<=$#d;$l++){$p=1;for($m=1;$m<=$l;$m++){$p=($k-($m-1))*$p;}$e[$l]=$p*$d[$l]+$e[$l-1];}$v[$k]=ceil(sprintf("%.3f",($e[$l-1])));}print pack('C*',@v);