From c4b71435d9afdb67450f320f54fb7aa99dcae85e Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Sun, 5 Oct 2025 22:57:55 +0700
Subject: fixed jamcue

---
 ocaml/tmp/get_jam_vectors.ml | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 ocaml/tmp/get_jam_vectors.ml

(limited to 'ocaml/tmp/get_jam_vectors.ml')

diff --git a/ocaml/tmp/get_jam_vectors.ml b/ocaml/tmp/get_jam_vectors.ml
new file mode 100644
index 0000000..1266f21
--- /dev/null
+++ b/ocaml/tmp/get_jam_vectors.ml
@@ -0,0 +1,10 @@
+(* 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
-- 
cgit v1.2.3