Select Code to Download

s/^|\d+/$&+$'||1/eg,print,s// /for($/)x16

s/^/1 /,print,s/\d+/$&+$'/egfor($/)x16

#!perl -l
s/^/1 /,print,s/\d+/$&+$'/eguntil/08/
...
1while s/^/1 /,print,s/\d+/$&+$'/eg^16
{s/^/1 /,print,s/\d+/$&+$'/eg^16&&redo}
eval's/^/1 /;print;s/\d+/$&+$\'/eg;'x16