diff --git a/ocaml/out/samples b/ocaml/out/samples
index 5f5b9ad8..6be50b33 100755
Binary files a/ocaml/out/samples and b/ocaml/out/samples differ
diff --git a/ocaml/out/samples.o b/ocaml/out/samples.o
index 497aca0d..769e2aff 100644
Binary files a/ocaml/out/samples.o and b/ocaml/out/samples.o differ
diff --git a/ocaml/samples.ml b/ocaml/samples.ml
index 0f171f82..a2c4b136 100644
--- a/ocaml/samples.ml
+++ b/ocaml/samples.ml
@@ -92,7 +92,7 @@ let () =
   let p3 = p1 *. p2 in 
   let weights = [ 1. -. p3; p3 /. 2.; p3 /. 4.; p3/. 4. ] in
   let sampler () = mixture [ sample0; sample1; sampleFew; sampleMany ] weights in
-  let n = 1_000 in 
+  let n = 1_000_000 in 
   let samples = List.init n (fun _ -> sampler ()) in 
   match unwind samples with
     | Error err -> Printf.printf "Error %s\n" err