(let
  [g #rng {xoshiro256ss 0000000000000001000000000000000000000000000000010000000000000001}]
  [(random/int .g 0 6) .g])
(let
  [g
   #rng {xoshiro256ss 0000000000000001000000000000000000000000000000010000000000000001}
   warm
   (random/seeded 7)]
  (for [i (lists/range 48)] (random/int .warm 0 2))
  [(random/int .g 0 6) .g])
