(define (thing letter wd)
  (cond ((member? letter wd) letter)
        (else "")))
  
(accumulate word 
  (every (lambda (letter) (thing letter 'scwocwos)) 'chows))