 	;; minimize layout energy with above placement as initial value
 	[energy, neg-force] (energy-by-inf-irr-positions lattice inf-irrs),
 	[new-points, value] (minimize energy
-				      ;;neg-force
+				      neg-force
 				      (apply concat inf-irr-points)),
 
 	;; make hash

;;; Force layout as described by C. Zschalig

;; Helpers

(defn- square
  "Squares."

    (try
     (sum [n inf-irrs,
	   :let [phi_n (double (phi (node-positions n)
				    (node-positions (upper-neighbours n))))]]
	 (cond
	  (<= 0 phi_n phi_0)
	  (+ phi_n
