diff --git a/regression/expressions/gen.ml b/regression/expressions/gen.ml
index 9b4ec9a76..66aa98b93 100644
--- a/regression/expressions/gen.ml
+++ b/regression/expressions/gen.ml
@@ -1,24 +1,48 @@
-(* let () =
-
-  let lamas = List.filter (String.ends_with ~suffix:".lama") (Sys.readdir "." |> Array.to_list)
-  |> List.sort String.compare in
-  (* List.iter print_endline lamas; *)
-  ()
- *)
 
+let count = 10000
 let () =
-  for i=0 to 2 do
-    let test = In_channel.with_open_text (Printf.sprintf "generated%05d.input" i) In_channel.input_all in
-    let test = String.split_on_char '\n' test
-      (* |> List.filter ((<>)"") *)
-    in
+  Out_channel.with_open_text "dune" (fun dunech ->
+    Printf.fprintf dunech "(cram (deps ../../src/Driver.exe ../../runtime/Std.i))\n\n";
+  for i=0 to count / 10 do
+    (* let dunebuf = Buffer.create 100 in *)
+    let cram_buf = Buffer.create 100 in
+    let cram_file = Printf.sprintf "r%04dx.t" i in
+    let deps = ref [] in
+    for j=0 to 9 do
+      let k = (i*10+j) in
+      let lama_file = Printf.sprintf "generated%05d.lama" k in
 
-    Out_channel.with_open_text (Printf.sprintf "r%05d.t" i) (fun ch ->
-      Printf.fprintf ch "  $ cat > test.input <<EOF\n";
-      List.iter (Printf.fprintf ch "  > %s\n") test;
-      Printf.fprintf ch "  > EOF\n";
-      Printf.fprintf ch "  $ cat test.input\n";
-      Printf.fprintf ch "  $ ls -l\n";
-      Printf.fprintf ch "  $ LAMA=../../runtime ../../src/Driver.exe -i generated%05d.lama" i
-      )
-  done
\ No newline at end of file
+      if Sys.file_exists lama_file then
+        let test =
+          In_channel.with_open_text (Printf.sprintf "generated%05d.input" k) In_channel.input_all
+          |> String.split_on_char '\n' |> List.filter ((<>)"")
+        in
+        (
+        deps := lama_file :: !deps;
+        Printf.bprintf cram_buf "  $ cat > test.input <<EOF\n";
+        List.iter (Printf.bprintf cram_buf "  > %s\n") test;
+        Printf.bprintf cram_buf "  > EOF\n";
+        (* Printf.fprintf ch "  $ cat test.input\n";
+        Printf.fprintf ch "  $ ls -l\n"; *)
+        Printf.bprintf cram_buf "  $ LAMA=../../runtime ../../src/Driver.exe -i generated%05d.lama < test.input\n" k
+        )
+    done;
+    match !deps with
+    | [] -> ()
+    | xs ->
+       (Printf.fprintf dunech "(cram (applies_to r%04dx)\n" i;
+        Printf.fprintf dunech "  (deps %s))\n%!" (String.concat " " xs);
+        Out_channel.with_open_text cram_file (fun ch ->
+          output_string ch (Buffer.contents cram_buf)
+        )
+        )
+  done
+  )
+(*
+let () =
+
+    for i=0 to count do
+      if Sys.file_exists (Printf.sprintf "generated%05d.lama" i) then
+        (Printf.fprintf ch "(cram (applies_to r%05d)\n" i;
+        Printf.fprintf ch "  (deps generated%05d.lama))\n%!" i;)
+    done *)