#!perl -p $l=1e3;$r=0;$r+=($"=M999D499C99L49X9V4I=~$_+$')-2*$l*($l<$"),$l=$"for/./g;s/.*/$r/
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page