            (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)))
-           => [0.7279692888259888 1.8140764236450195 0.04031801223754883 0.4697103500366211]
+           => [0.7279692888259888 1.81407630443573 0.040318019688129425 0.4697103202342987]
 
            (set-args! stretch-move-bare-kernel 0 (wrap-int seed) (wrap-int 3333) (wrap-int 0) (wrap-int 2)
                       cl-params cl-s1 cl-s0 cl-logfn-s0 (wrap-float a) (wrap-float 1.0) (wrap-int 1))

           (init! gaussian-sampler (inc seed))
           (init-position! gaussian-sampler seed limits)
           (burn-in! gaussian-sampler 100 1.5)
           (first (native! (mean (sample! gaussian-sampler)))) => 2.954922914505005
           (take-nth 1500 (native! (row (sample! gaussian-sampler) 0)))
           => [3.330127716064453 2.312180995941162 3.583043098449707 3.342344045639038
               4.829925060272217 2.7044899463653564 2.064384937286377 3.4432942867279053]
           (first (native! (sd (sample! gaussian-sampler)))) => 0.9963167309761047))))))

(with-default
  (let [dev (queue-device *command-queue*)

           (second (:tau autocorrelation)) => (roughly 20.41 0.001)
           (entry (:sigma autocorrelation) 0) => (roughly 0.009 0.001)))))))

(with-default
  (with-release [factory (gcn-bayadera-factory *context* *command-queue*)
                 library (device-library factory)]
    (test-all library)))
