val combs = for (
i <- 1 to occurrences.length;
- l <- occurrences combinations i;
- l2 <- combinationsOnNumber(l)
+ l <- occurrences combinations i; // Combination on letters.
+ l2 <- combinationsOnNumber(l) // Combination on numbers
) yield l2
List() :: (combs toList)