let
lg gen ?(size_gen=nng) () =
foldn ~f:(
fun
acc _
->
(gen ())::acc) ~init:[] (size_gen ())