(define (mystery thing sent)
  (cond ((member? thing sent) (m2 thing sent))
        (else #f)))

(define (m2 thing sent)
  (cond ((eq? thing (first sent)) 0)
        (else (+ 1 (m2 thing (bf sent))))))

(mystery 'meows '(where have the meows gone?))