 (defn- complexity [ds]
   [(kf-complexity ds) (size ds)])
 
+(defn- pinch-local-2-cut [ds A B C D]
+  (let [[ds E1] (cut-face ds A C)
+        [ds E2] (cut-face ds D B)
+        ds (pinch-tile ds E1 E2)]
+    (merge-volumes ds)))
+
 (defn pinch-first-local-2-cut [ds]
   (if-let [[A B C D] (first (filter (partial liftable? ds) (local-2-cuts ds)))]
-    (let [[ds E1] (cut-face ds A C)
-          [ds E2] (cut-face ds D B)
-          ds (pinch-tile ds E1 E2)
-          _ (println ds)]
-      (merge-volumes ds))
+    (pinch-local-2-cut ds A B C D)
     ds))
 
 (defn simplified [ds]

    (pinch-face ds D E)
    ds))

(defn- local-2-cuts [ds]
  (let [ori (partial-orientation ds)
        faces (vec (orbits ds [0 1]))]

  (dsymbol "8:2 4 6 8,3 4 7 8,3 4 7 8,5 6 7 8:2 2,1 1 1 1,2 2"))

(defn- cut-face [ds D E]
  (cond (= E (walk ds D 1 0)) [ds (walk ds D 1 2)]
        (= E (walk ds D 0 1)) [ds D]
        :else
        (let [tmp (append ds wedge)
