diff --git a/ocaml/out/samples b/ocaml/out/samples
index 411a2e2e..f5dd91ee 100755
Binary files a/ocaml/out/samples and b/ocaml/out/samples differ
diff --git a/ocaml/out/samples.cmi b/ocaml/out/samples.cmi
index 318d8bd5..12723952 100644
Binary files a/ocaml/out/samples.cmi and b/ocaml/out/samples.cmi differ
diff --git a/ocaml/out/samples.cmx b/ocaml/out/samples.cmx
index 67a75472..76d484ca 100644
Binary files a/ocaml/out/samples.cmx and b/ocaml/out/samples.cmx differ
diff --git a/ocaml/out/samples.o b/ocaml/out/samples.o
index 134d045a..44d550ef 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 dbf23ee1..26fbff11 100644
--- a/ocaml/samples.ml
+++ b/ocaml/samples.ml
@@ -56,10 +56,10 @@ let unwindSum xs =
 let unwindSumArray xs = 
   Array.fold_left(fun acc x -> 
     (
-      match (acc, x) with
-      | (Error e, _) -> Error e
-      | (_, Error e) -> Error e
-      | (Ok(sum), Ok(y)) -> Ok(sum +. y)
+      match acc, x with
+      | Error e, _ -> Error e
+      | _, Error e -> Error e
+      | Ok(sum), Ok(y) -> Ok(sum +. y)
     )
   ) (Ok 0.0) xs