in reply to Re^2: Ponder This: the worm-eaten page
in thread Ponder This: the worm-eaten page

But I suppose this is cheating:
perl -le 'map$\+=$_,map/[^0]+/g,1..9999;print'

In Section Cool Uses for Perl