(define (cal-speak sent)
  (if (empty? sent) '()
      (se (correct (first sent)) (cal-speak (bf sent)))))

(define (correct wd)
  (if (equal? wd 'stanford)
      'stanfurd
      wd))