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