(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)))