blob: 1a73be557dd628f8cc4c5f56e36f782e8009b6ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
open Nock_lib.Noun
open Nock_lib.Serial
let () =
Printf.printf "Running single bench iteration...\n";
for i = 1 to 10 do
Printf.printf "Iter %d: " i;
flush stdout;
let n = atom 42 in
let j = jam n in
let c = cue j in
Format.printf "%a\n" pp_noun c;
flush stdout
done;
Printf.printf "Done!\n"
|
