(define (blocked triple)
  (cond ((and (member? 'x triple) (member? 'o triple)) 1)
        (else 0)))

(accumulate * (every blocked '(xoo oxx x8o xox ox8 oxo xxo oxx)))