diff --git a/dm5/lib/lib.ml b/dm5/lib/lib.ml
index ab23ff6..f59ad10 100644
--- a/dm5/lib/lib.ml
+++ b/dm5/lib/lib.ml
@@ -103,13 +103,11 @@ let sorteren t =
     (0,0,0)
     t
   in
-  Array.init
-    (zero+one+two)
-    (fun i ->
-      if i < zero then 0
+  for i = 0 to zero+one+two-1 do
+    t.(i) <- if i < zero then 0
       else if i < zero+one then 1
       else 2
-    )
+  done
 ;;
 
 (* Exercice 9 *)