let exclude uints1 uints2 = intersect (complement uints1) uints2