diff --git a/devtools/testnet_experiment_tools/testnet_experiment_tools.ml b/devtools/testnet_experiment_tools/testnet_experiment_tools.ml
index 097eaf364945ea097fbabbf010d985ace5dea422..55e3c982585dbb85bfa79c429e7d37984d55f0c1 100644
--- a/devtools/testnet_experiment_tools/testnet_experiment_tools.ml
+++ b/devtools/testnet_experiment_tools/testnet_experiment_tools.ml
@@ -23,12 +23,86 @@
 (*                                                                           *)
 (*****************************************************************************)
 
+(* Testnet experiment tools
+   ------------------------
+   Invocation:
+     dune exec devtools/testnet_experiment_tools/testnet_experiment_tools.exe
+   Requirements:
+     GEN_KEYS_DIR - sets the directory to output generated keys.
+                    Defaults to /tmp/<unique dir>
+     BAKERS       - sets the number of baker keys to generate. Defaults to 10.
+   Description: This file contains scripts to generate config information
+                towards bootstrapping an experimental test network.
+*)
+
 open Tezt
+open Tezt_tezos
+
+let ensure_dir_exists dir =
+  Lwt.catch
+    (fun () ->
+      let* () = Lwt_utils_unix.create_dir ~perm:0o744 dir in
+      Lwt.return_unit)
+    (fun exn ->
+      Test.fail
+        "Failed to create directory '%s': %s"
+        dir
+        (Printexc.to_string exn))
+
+let default_number_of_bakers = 10
+
+let bakers = "BAKERS"
+
+let baker_alias n = Printf.sprintf "baker_%d" n
+
+let number_of_bakers =
+  Sys.getenv_opt bakers |> Option.map int_of_string
+  |> Option.value ~default:default_number_of_bakers
+
+let default_gen_keys_dir =
+  let base_dir = Filename.temp_file ~temp_dir:"/tmp" "" "" in
+  let _ = Lwt_unix.unlink base_dir in
+  let _ = Lwt_unix.mkdir base_dir 0o700 in
+  base_dir
+
+let gen_keys_dir_name = "GEN_KEYS_DIR"
+
+let gen_keys_dir =
+  Sys.getenv_opt gen_keys_dir_name |> Option.value ~default:default_gen_keys_dir
+
+let generate_baker_accounts n client =
+  let rec generate_baker_account i =
+    if i < 0 then Lwt.return_unit
+    else
+      let* _alias = Client.gen_keys ~alias:(baker_alias i) client in
+      let* () = Lwt_io.printf "." in
+      generate_baker_account (i - 1)
+  in
+  let* () = Lwt_io.printf "Generating accounts" in
+  let* () = generate_baker_account (n - 1) in
+  Lwt_io.printf "\n\n"
 
 (* These tests can be run locally to generate the data needed to run a
    stresstest. *)
 module Local = struct
-  let generate_baker_accounts () = Test.fail "Not implemented"
+  let generate_baker_accounts n () =
+    let client_dir = gen_keys_dir in
+    let* () =
+      Lwt_io.printf
+        "Keys will be saved in %s. You can change this by setting the \
+         GEN_KEYS_DIR environment variable\n\n"
+        client_dir
+    in
+    let* () =
+      Lwt_io.printf
+        "%d baker accounts will be generated. You can change this by setting \
+         the BAKERS environment variable.\n\n"
+        number_of_bakers
+    in
+    let client = Client.create ~base_dir:client_dir () in
+    let* () = ensure_dir_exists client_dir in
+    let* () = generate_baker_accounts n client in
+    Lwt.return_unit
 
   let generate_network_configuration () = Test.fail "Not implemented"
 
@@ -47,7 +121,7 @@ let () =
     ~__FILE__
     ~title:"Generate baker accounts"
     ~tags:["generate_baker_accounts"]
-    Local.generate_baker_accounts ;
+    (Local.generate_baker_accounts number_of_bakers) ;
   register
     ~__FILE__
     ~title:"Generate Network Configuration"