perl -le '$_=join 0,1..9999;y/0/+/s;print eval'