<commit_before>open List
open Printf
open Str
open Opts

let _ =
  let _ =
    try
      parse Sys.argv
    with
    | Arg.Help msg ->
      printf "%s: %s" Sys.argv.(0) msg;
      exit 2
    | Arg.Bad msg ->
      eprintf "%s" msg;
      exit 2
  in
  let _ =
    try
      validate ();
      if length !cluster < 2 then raise (Arg.Bad "Cluster size must be two or greater")
    with Arg.Bad msg ->
      eprintf "%s: %s" Sys.argv.(0) msg;
      prerr_newline ();
      exit 2
  in
  let module NumNodes = struct let v = length !cluster end in
  let module VDL = DiskOpShim.DiskOpShim(VarDLogArrangement.VarDLogArrangement(VarDLogArrangement.BenchParams(NumNodes))) in
  printf "stuff goes here";
  print_newline () <commit_msg>actually call main with bench or debug params for VarDLog<commit_after>open List
open Printf
open Str
open Opts

let _ =
  let _ =
    try
      parse Sys.argv
    with
    | Arg.Help msg ->
      printf "%s: %s" Sys.argv.(0) msg;
      exit 2
    | Arg.Bad msg ->
      eprintf "%s" msg;
      exit 2
  in
  let _ =
    try
      validate ();
      if length !cluster < 2 then raise (Arg.Bad "Cluster size must be two or greater")
    with Arg.Bad msg ->
      eprintf "%s: %s" Sys.argv.(0) msg;
      prerr_newline ();
      exit 2
  in
  let module NumNodes = struct let v = length !cluster end in
  if !debug then
    let module VarDLog =
	  DiskOpShim.DiskOpShim(VarDLogArrangement.VarDLogArrangement(VarDLogArrangement.DebugParams(NumNodes)))
    in
    let open VarDLog in
    main { cluster = !cluster
         ; me = !me
         ; port = !port
         ; fspath = !dbpath
         }
  else
    let module VarDLog =
	  DiskOpShim.DiskOpShim(VarDLogArrangement.VarDLogArrangement(VarDLogArrangement.BenchParams(NumNodes)))
    in
    let open VarDLog in
    main { cluster = !cluster
         ; me = !me
         ; port = !port
         ; fspath = !dbpath
         }
{'fraction_non_alphanumeric': 0.09353652128218602, 'fraction_numerical': 0.006305832895428271, 'mean_word_length': 2.1946308724832213, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '798857', 'n_tokens_mistral': 666, 'n_tokens_neox': 648, 'n_words': 199}