adsfadsf

def combinations(occurrences: Occurrences): List[Occurrences] = occurrences match {
    case Nil   => List(Nil)
    case x::xs => {
      combinations( xs ) ::: (for ( other <- combinations( xs ); i <- 1 to x._2 ) yield ( x._1, i )::other)
    }