#!perl -l
#      0         1         2         3         4         5      5
#      0123456789012345678901234567890123456789012345678901234567
sub g {printf"%s%d) $_-%d\n",$a&&!$_{$_}?$\:'',++$a,++$_{$_}for@_}
g(0,0,0,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,4,4,4,4,4,5,5,5,5);