ocaml/tmp/test_hex.ml


1
2
3
4
5
6
7
8
9

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 "jam(%d) = %s (%d bytes)\n" i (bytes_to_hex jammed) (Bytes.length jammed)
  done