(define (mystery l)
   (cond ((null? l) 0)
         ((list? (car l)) (+ (mystery (car l))
                             (mystery (cdr l))))
         (else (+ 1 (mystery (cdr l))))))

(mystery '((a b) ((c) d (((e f) g) h))))