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