(define (gen-bool)
  (lazy-repeatedly (lambda () (= (random 2) 1))))

#;233> (lazy-seq->list (lazy-take 3 (gen-list (gen-bool) length: 4)))                                                                                                                 
((#t #f #f #f) (#t #f #f #f) (#t #f #f #f))