     :r (init-game)
     state))
 
-(defn on-collision [state]
+(defn on-collision
+  [state]
   (let [ball-x (:x (:ball state))
         ball-y (:y (:ball state))
         top-wall (+ 9 7.5 2)

  [state]
  (if (:is-running? state)
    (as-> state state
      (update-in state [:ball :y] (:y-dir (:ball state)) ball-speed)
      (update-in state [:ball :x] (:x-dir (:ball state)) ball-speed))
    state))

(defn handle-input


  (q/rect ((state :player) :x)
          ((state :player) :y) paddle-width paddle-height)
  (q/rect ((state :cpu) :x)
          ((state :cpu) :y) paddle-width paddle-height)
  (q/ellipse ((state :ball) :x)
             ((state :ball) :y) ball-size ball-size))

