any.scm

(use-modules (srfi srfi-1))

(define valid-tlds '(".com" ".org" ".net")) ;; ...

(define (valid-email? email)
  (any (lambda (tld) (string-suffix? tld email)) valid-tlds))