(def check-usernames (u)
    (or (nil? u)
      (and
        (has-email? (user (car u)))
        (check-usernames (cdr u)))))

or something