                 (doto player
                   (body-position! 0 0 0)
                   (body! :set-linear-velocity 0 0))
-                #_(assoc (label (str (:life player))
-                              (color :white)
-                              :set-width 30)
-                  :y (- u/w-height 16)
-                  :score? true)]))
+                ]))
 
            :on-render
            (fn [screen entities]

           (fn [screen entities]
             (let [coliding-entities [(first-entity screen entities) (second-entity screen entities)]
                   {p-width :width :as player} (cell/find-cell coliding-entities)
                   {e-width :width :as enemy} (cell/find-enemy coliding-entities)
                   score (cell/find-score entities)]
               (if (and player enemy)
                 (if (< p-width e-width)
                   (let [new-life (- (:life player) 5)

                              (.getWorldManifold)
                              (.getNormal))
                   disable-contact (and (not in-zone?)
                                        #_(cell/in-rectangle? enemy (rectangle 0 0 u/z-width u/z-height))
                                        (or
                                          (and (= z-side :right) (= normal (vector-2 1.0 0.0)))
                                          (and (= z-side :bottom) (= normal (vector-2 0.0 -1.0)))
