(define (every fn sent)
  (if (empty? sent) '()
      (se (fn (first sent)) (every fn (butfirst sent)))))