diff --git a/lib/utils.ml b/lib/utils.ml
index 132e49e..5722ce1 100644
--- a/lib/utils.ml
+++ b/lib/utils.ml
@@ -7,7 +7,7 @@ let read_file name =
         match try_read () with
         | Some s -> aux (s::acc)
         | None -> close_in ic; acc in
-    aux []
+    List.rev (aux [])
 
 module CS = Set.Make(Char);;