C:\>perl -le "for (0..9) { print ''.%_; for (($_*10)..(($_+1)*10)) { $_{$_}++ } }" 0 10/16 16/32 23/32 34/64 38/64 42/64 57/128 62/128 67/128