root = Answer([bell, counts, check, seal])
```qasm bell
OPENQASM 3.0;
qubit[2] q;
bit[2] c;
h q[0];
cx q[0], q[1];
c = measure q;
```
counts = Histogram(@Sample(bell, 1000))
check = Verdict(@Check(bell, {"00": 0.5, "11": 0.5}))
seal = Receipt(@Seal([bell, counts, check]))
]]>wai:receipt {"statement":"seal","receipt":{"alg":"ed25519","canon":"rfc8785","key":"ed4928c628d1c2c6eae90338905995612959273a5c63f93636c14614ac8737d1","digest":"2a3e0f1ba9d186498e3d1da007f5b867ad34d5bc173c708ef8dae9cda618e52a","signature":"b0d349886218eb60833930c63cc30e68987d9a56622c0f90dc5c688be6a29f58fc4eb837eb059cc1e18bf70a5ed1d7a6b3f104a98547510b4beb50ab01d1a50a"}}