diff --git a/dm5/lib/lib.ml b/dm5/lib/lib.ml
index 5eacdf5..298dd10 100644
--- a/dm5/lib/lib.ml
+++ b/dm5/lib/lib.ml
@@ -12,7 +12,7 @@ let quarante_deux t =
   let n = Array.length t in
   let count = ref 0 in
   let i = ref 0 in
-  while !i < n do
+  while !i < n || !count <= 42 do
     if t.(!i) mod 42 = 0 then
       count := !count + 1;
     i := !i + 42