path: root/ocaml/tmp/get_jam_vectors.ml

(* Quick test to see what our jam produces for small numbers *)
open Nock_lib.Noun
open Nock_lib.Serial

let () =
  for i = 0 to 10 do
    let n = atom i in
    let jammed = jam n in
    Printf.printf "%d: %s\n" i (bytes_to_hex jammed)
  done