open Nock_lib.Noun
open Nock_lib.Serial

let () =
  Printf.printf "# OCaml jam outputs (hex)\n";
  
  (* Simple atoms *)
  Printf.printf "0: %s\n" (bytes_to_hex (jam (atom 0)));
  Printf.printf "1: %s\n" (bytes_to_hex (jam (atom 1)));
  Printf.printf "2: %s\n" (bytes_to_hex (jam (atom 2)));
  Printf.printf "42: %s\n" (bytes_to_hex (jam (atom 42)));
  Printf.printf "255: %s\n" (bytes_to_hex (jam (atom 255)));
  Printf.printf "256: %s\n" (bytes_to_hex (jam (atom 256)));
  
  (* Simple cells *)
  Printf.printf "[1 2]: %s\n" (bytes_to_hex (jam (cell (atom 1) (atom 2))));
  Printf.printf "[0 0]: %s\n" (bytes_to_hex (jam (cell (atom 0) (atom 0))));
  Printf.printf "[42 43]: %s\n" (bytes_to_hex (jam (cell (atom 42) (atom 43))));
  
  (* Nested cells *)
  Printf.printf "[[1 2] 3]: %s\n" 
    (bytes_to_hex (jam (cell (cell (atom 1) (atom 2)) (atom 3))));
  Printf.printf "[1 [2 3]]: %s\n"
    (bytes_to_hex (jam (cell (atom 1) (cell (atom 2) (atom 3)))));
  
  (* Balanced tree *)
  Printf.printf "[[1 2] [3 4]]: %s\n"
    (bytes_to_hex (jam (cell (cell (atom 1) (atom 2)) (cell (atom 3) (atom 4)))));
  
  (* Larger tree *)
  Printf.printf "[[[1 2] [3 4]] [[5 6] [7 8]]]: %s\n"
    (bytes_to_hex (jam (
      cell
        (cell (cell (atom 1) (atom 2)) (cell (atom 3) (atom 4)))
        (cell (cell (atom 5) (atom 6)) (cell (atom 7) (atom 8)))
    )))