              :custom channels-slide
              :opts {:buffer-size 7 :font-size "72pt" :radius 40}}
 
+            {:subtitle "putting on a channel"
+             :custom channels-slide
+             :put true
+             :opts {:buffer-size 7 :font-size "72pt" :radius 40}}
+
             ;; TODO Add source code on right hand side of slide
             {:subtitle "put and take"
              :custom put-and-take-slide

           [:g {:transform "translate(0,0)"}

            ;; Random box
            [:g {:transform "translate(30,0)"
                 :onClick (fn [_] (new-random-pick owner))}
             [:rect

                  9))]
      (om/set-state! owner :pending-put n))
    (when (pos? c)
      (<! (timeout 50))
      (recur (dec c)))))

(defn channels-slide [data owner opts]
