     m))
 
 (defn show [x]
-  (do (println x)
+  (do (prn x)
       x))
 
 (defn tag-burst-image [image burst-events camera-channel-names camera-index-tag]

(defn first-trigger-missing? []
  (= "1" (get-property-value (core getCameraDevice) "OutputTriggerFirstMissing")))

(defn init-burst [length trigger-sequence relative-z]
  (core setAutoShutter (@state :init-auto-shutter))
  (load-property-sequences (:properties trigger-sequence))
  (let [absolute-slices (load-slice-sequence (:slices trigger-sequence) relative-z)]
    (start-property-sequences (:properties trigger-sequence))
    (when absolute-slices
      (start-slice-sequence (:slice trigger-sequence)))
    (core startSequenceAcquisition (if (first-trigger-missing?) (inc length) length) 0 true)
    (swap! state assoc-in [:last-stage-positions (core getFocusDevice)]
           (last absolute-slices))))

      (if-let [image (pop-tagged-image)]
        image
        (if (< timeout-ms (- (System/currentTimeMillis) start-time))
          (throw-exception (str (- (System/currentTimeMillis) start-time)
                                " Timed out waiting for image\nto arrive from camera."))
          (do (when (core isBufferOverflowed)
                (throw-exception "Circular buffer overflowed."))
              (Thread/sleep 1)
