afsdf

def subtract(x: Occurrences, y: Occurrences): Occurrences =
    {for ( keep <- x; sub <- y; if( (keep._1 == sub._1) && ( keep._2 - sub._2 > 0 ) ) )
     yield ( keep._1, keep._2 - sub._2)} :::  x.filter( !y.contains(_) )