<wob_jonas> perl -eopen$i,"<",($f="wisdom/aristotle");$_=<$i>; s/two thousand/2000/ or die; if (1) { open$o,">",$f; print$o $_ or die; } print substr$_,0;

const short main[] = {18517,58761,49201,49801,49407,51081,3816,0,18432,27749,28524,8236,28535,27762,8548,24074,3762,1295,15536,-207,1295};