 
         (go-loop [i 0]
           (<! (timeout 1))
-          ;;(println "show message" x "," y)
           (om/set-state!
            slide :message
            [(+ (first from-pos) (* i xdelta))


    om/IWillMount
    (will-mount [_]
      (println "Mounting game")
      (go
        (>! (:channel (first (om/get-state owner :instances)))
            "MESSAGE"))
      (let [instances (om/get-state owner :instances)]
        (println "There are instances:" (count instances))
        )

      )

    om/IRender
    (render [_]

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