path: root/pit/test/test10.pit

(list/find
  (lambda (y)
    (and (eq? (list/len y) 3)
      (list/all? (lambda (x) (equal? x 2)) y)))
  '((1 2 3) (2 2 2 2) (2 3 4) (2 2 2)))