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