            (nrm2 (linear-frac! (axpy! -1 x-log-pdf x-beta-log-pdf) -32.61044)) => (roughly 0.0 0.0001)
            (evidence binomial-lik-engine lik-params x) => 1.6357375222552396E-15))))))
 
-#_(with-default
+(with-default
   (let [dev (queue-device *command-queue*)
         wgs 256
-        walker-count (* (max-compute-units dev) wgs)
+        walker-count (* 44 wgs)
         means-count (long (count-groups wgs (/ walker-count 2)))
         acc-count (long (count-groups wgs means-count))
         seed 123

             (init! engine 1243)
             (init-position! engine 123 limits)
             (burn-in! engine 5120 a)
             (acc-rate! engine a) => 0.4808682528409091
             (entry (:tau (:autocorrelation (run-sampler! engine 670 a))) 0) => 8.159395217895508)))))))

(with-default

           (enq-kernel! cqueue stretch-move-bare-kernel (work-size-1d (/ walker-count 2)))
           (enq-copy! cqueue cl-xs (buffer res))
           (take 4 (native (row res 0)))
           => [1.040357232093811 1.4457943439483643 0.3761849105358124 1.5768483877182007]

           (enq-fill! cqueue cl-accept (int-array 1))
           (enq-fill! cqueue cl-means-acc (float-array 1))
