; odd appearances

(define (fold-left op base xs)
  (if (null? xs)
      base
      (fold-left op (op base (car xs)) (cdr xs))))

(define (odd-appearances xs) (fold-left logxor 0 xs))

(display  (odd-appearances '(4 3 6 2 6 4 2 3 4 3 3)))