diff --git a/src/propeller/problems/boolean/mul3.cljc b/src/propeller/problems/boolean/mul3.cljc
index ef44efe..677ba73 100644
--- a/src/propeller/problems/boolean/mul3.cljc
+++ b/src/propeller/problems/boolean/mul3.cljc
@@ -173,13 +173,13 @@
         :boolean_nand ;; defined here
         :boolean_nor ;; defined here
         :boolean_xnor ;; defined here
-        :boolean_dup
-        :boolean_swap
-        :boolean_rot
-        :boolean_pop
-        :exec_pop
-        :exec_dup
-        'close
+        ;:boolean_dup
+        ;:boolean_swap
+        ;:boolean_rot
+        ;:boolean_pop
+        ;:exec_pop
+        ;:exec_dup
+        ;'close
         true
         false))
 
@@ -238,13 +238,13 @@
      :parent-selection         :lexicase
      ;:parent-selection         :tournament
      :tournament-size          5
-     :umad-rate                0.1
-     ;:variation                {:umad 1}
-     :diploid                  true
-     :variation                {:diploid-umad 0.8
-                                :diploid-uniform-silent-replacement 0.1
-                                :diploid-flip 0.1}
-     :replacement-rate         0.1
-     :diploid-flip-rate        0.1
+     :umad-rate                0.01
+     :variation                {:vumad 1}
+     ;:diploid                  true
+     ;:variation                {:diploid-umad 0.8
+     ;                           :diploid-uniform-silent-replacement 0.1
+     ;                           :diploid-flip 0.1}
+     ;:replacement-rate         0.1
+     ;:diploid-flip-rate        0.1
      :elitism                  false}
     (apply hash-map (map #(if (string? %) (read-string %) %) args)))))
diff --git a/src/propeller/variation.cljc b/src/propeller/variation.cljc
index 8d73ffe..5b1c08f 100755
--- a/src/propeller/variation.cljc
+++ b/src/propeller/variation.cljc
@@ -202,13 +202,13 @@ The function `new-individual` returns a new individual produced by selection and
      (case op
        :crossover
        (crossover
-         (:plushy (selection/select-parent pop argmap))
-         (:plushy (selection/select-parent pop argmap)))
+        (:plushy (selection/select-parent pop argmap))
+        (:plushy (selection/select-parent pop argmap)))
        ;
        :tail-aligned-crossover
        (tail-aligned-crossover
-         (:plushy (selection/select-parent pop argmap))
-         (:plushy (selection/select-parent pop argmap)))
+        (:plushy (selection/select-parent pop argmap))
+        (:plushy (selection/select-parent pop argmap)))
        ;
        :umad
        (-> (:plushy (selection/select-parent pop argmap))
@@ -229,6 +229,12 @@ The function `new-individual` returns a new individual produced by selection and
          (uniform-deletion after-addition effective-addition-rate))
        ; Adds and deletes instructions in the parent genome with the same rate
 
+       :vumad ;; variable umad: :umad-rate is interpreted as max, actual uniform 0-max
+       (let [rate (rand (:umad-rate argmap))]
+         (-> (:plushy (selection/select-parent pop argmap))
+             (uniform-addition (:instructions argmap) rate)
+             (uniform-deletion rate)))
+
        :uniform-addition
        (-> (:plushy (selection/select-parent pop argmap))
            (uniform-addition (:instructions argmap) (:umad-rate argmap)))
@@ -247,13 +253,13 @@ The function `new-individual` returns a new individual produced by selection and
        ;
        :diploid-crossover
        (diploid-crossover
-         (:plushy (selection/select-parent pop argmap))
-         (:plushy (selection/select-parent pop argmap)))
+        (:plushy (selection/select-parent pop argmap))
+        (:plushy (selection/select-parent pop argmap)))
        ;
        :tail-aligned-diploid-crossover
        (tail-aligned-diploid-crossover
-         (:plushy (selection/select-parent pop argmap))
-         (:plushy (selection/select-parent pop argmap)))
+        (:plushy (selection/select-parent pop argmap))
+        (:plushy (selection/select-parent pop argmap)))
        ;
        :diploid-umad
        (-> (:plushy (selection/select-parent pop argmap))
@@ -278,4 +284,4 @@ The function `new-individual` returns a new individual produced by selection and
        :else
        (throw #?(:clj  (Exception. (str "No match in new-individual for " op))
                  :cljs (js/Error
-                         (str "No match in new-individual for " op))))))})
+                        (str "No match in new-individual for " op))))))})