(gathering (m r)
    (dolist (x xs)
      (when (oddp x) (collect-into r x))
      (maximize-into m x))
  (when (> m 100)
    (error "Sorry, too large."))
  (do-something r))