(defn toggle [a-set elem]
  (contains? a-set elem)
      (disj a-set elem)
      (conj a-set elem))