X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fsimple_test.ml;fp=ocaml%2Fsimple_test.ml;h=d5cb66b6b8abc11173b9f4129a352cf6c1b68a4a;hb=71b9c490cad6115af378d01b5aaa06ff858b6243;hp=b766a5298085b053094f5766c04806998a6c4923;hpb=62d2aea15e05a7366e0bbdc71574ad50cda28ff5;p=fireball-separation.git

diff --git a/ocaml/simple_test.ml b/ocaml/simple_test.ml
index b766a52..d5cb66b 100644
--- a/ocaml/simple_test.ml
+++ b/ocaml/simple_test.ml
@@ -39,7 +39,9 @@ let main =
   Random.self_init ();
   let num = 100 in
   let complex = 200 in
-  let vars = ["x"; "y"; "z"; "v" ; "w"; "a"; "b"; "c"] in
+  let no_bound_vars = 20 in
+  let vars = Array.to_list
+   (Array.init no_bound_vars (fun x -> "x" ^ string_of_int x)) in
 
   repeat (fun _ ->
     let div, convs = gen complex vars in