         (recur (rest num-samples-seq))))))
 ;; @@
 ;; ->
-;;; &quot;Elapsed time: 2114.79 msecs&quot;
+;;; &quot;Elapsed time: 23337.956 msecs&quot;
 ;;; 
 ;; <-
 ;; =>

(def smp (first (anglican.csis.prior/sample-from-prior gmm-fixed [(repeatedly num-data-points rand) [1 1 1] [[-0.3 -0.2] [0.1 0.1] [0.7 0.0]] [0.005 0.005 0.005]])))
(def data (map :value (:observes smp)))
(def ground-means (map :value (:samples smp)))
(def observe-embedder-input {"shape" grid-dimensions "data" (flatten (gridify (move-to-unit-box data) grid-dimensions))})

(.save (OxCaptcha. (first grid-dimensions) (second grid-dimensions)) 
       (int-array (map #(int (* 255 %)) (get-in observe-embedder-input ["data"])))
       (first grid-dimensions) 
       (second grid-dimensions) 
       "tmp.png")
(image/image-view (ImageIO/read (File. "tmp.png")))
;; @@
;; =>
;;; {"type":"html","content":"<img src=\"data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAGQAAABkCAYAAABw4pVUAAABSUlEQVR42u3cQQrDIBAFUG/u0VtcBIIkzaJgZsYX+FC69GXUGGNrrX0kVDQCEAECRIAAESBABAgQASJAgAgQIAIEiAABIkAECBABAmRpeu9ABAgQASJAgJhNVQPZEEaFAPkTojhWnifzu99AFlTFuJ4avihK3EF8/J7/t5YVdCw5YwFZhHF0W1Z7BYjnEhUCRJKDbLp84q4EosrqgxTq3nQTQAQIkEDjSLL3KGZYQGAYQxK95KpZDefGT1YtNbupcSXdFFGzOzoqw9JJkFztWklSMQZxIKa/pr1ABEiR7stdCUSAABEgQAQIEAECRIDIRiDJ9/lqdCCy3zYgILIvyFwRxY7dMLMCIrVBnjbFAXmhWzofVJP8pKD8uxJ/nR4E5IUqmXe6Awk6o/JJm65KhVjt9ZAIpNj3Hw4OACJAgAgQIAJENAAQuc8XIqGAKYcK0cQAAAAASUVORK5CYII=\" width=\"100\" height=\"100\" alt=\"\" />","value":"#object[java.awt.image.BufferedImage 0x7c6d0d16 \"BufferedImage@7c6d0d16: type = 5 ColorModel: #pixelBits = 24 numComponents = 3 color space = java.awt.color.ICC_ColorSpace@16285755 transparency = 1 has alpha = false isAlphaPre = false ByteInterleavedRaster: width = 100 height = 100 #numDataElements 3 dataOff[0] = 2\"]"}
;; <=

;; **

        (recur (rest num-samples-seq))))))
;; @@
;; ->
;;; &quot;Elapsed time: 839.1 msecs&quot;
;;; 
;; <-
;; =>
