diff --git a/ocaml/element_create_db.ml b/ocaml/element_create_db.ml
index 36f0e58a..5dc10053 100644
--- a/ocaml/element_create_db.ml
+++ b/ocaml/element_create_db.ml
@@ -2,9 +2,6 @@ open Qptypes
 open Element
 
 let () =
-  let indices =
-    Array.init 78 (fun i -> i)
-  in
   let out_channel = 
     open_out (Qpackage.root ^ "/data/list_element.txt")
   in