#lang racket
(require sicp)

(define (count-leaves x)
  (cond ((null? x ) 0)
        ((not (pair? x)) 1)
        (else (+ (count-leaves (car x)) 
                 (count-leaves (cdr x))))))

(list 1 (list 2 (list 3 4)))