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

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