open Nock_lib.Noun  
open Nock_lib.Serial

let () =
  Printf.printf "Running single bench iteration...\n";
  for i = 1 to 10 do
    Printf.printf "Iter %d: " i;
    flush stdout;
    let n = atom 42 in
    let j = jam n in
    let c = cue j in
    Format.printf "%a\n" pp_noun c;
    flush stdout
  done;
  Printf.printf "Done!\n"