open Nock_lib.Noun
open Nock_lib.Serial

let () =
  Printf.printf "Testing roundtrip...\n";
  let n = atom 42 in
  for i = 1 to 5 do
    Printf.printf "Iteration %d\n" i;
    let j = jam n in
    Printf.printf "  jammed: %s\n" (bytes_to_hex j);
    let c = cue j in
    Format.printf "  cued: %a\n" pp_noun c;
    flush stdout
  done;
  Printf.printf "Done!\n"