predicate assign_random(array[int] of var int: X, int: R) =
          forall (i in index_set(X))
                 (if uniform(1,100) < R then X[i] = sol(X[i]) else true endif);