 
 (defn catch-game
   [owner {:keys [id slide channel instances position]}]
-  (println "instances is" instances)
   (go-loop [n 0]
 
     (om/set-state! owner :label n)
     (<! channel)
 
-    (println "instances is " (count instances))
     (let [to (mod (+ id (+ 2 (rand-int (- (count instances) 4))))
-                  (count instances)
-                  )]
-      ;;(println "Instance " id " is playing and sending to" to)
-      ;;(println "From position" position)
-      ;;(println "To position" (:position (get instances to)))
+                  (count instances))]
       (let [from-pos position
             to-pos (:position (get instances to))
             xdelta (/ (- (first to-pos) (first from-pos)) 18)

          (if (= i 18)
            (do
              (om/set-state! slide :message nil)
              (println "to is" to)
              (>! (get-in instances [to :channel]) "MESSAGE"))
            (recur (inc i)))
          )))


        (go-loop [i 0]
          (<! (timeout 1))
          (om/set-state!
           slide :message
           [(+ (first from-pos) (* i xdelta))
