DOCTOR SCHEME

(define (pow X N)
  (cond
   ((= N 0) 1)
   ((> N 0) (* X (pow X (- N 1))))
   )
  )

(define (countAtoms X)
  (cond
    ((null? X)
     0)
    ((list? X)
     (cond
       ((list? (car X))
        (+ (countAtoms (cdr X)) (countAtoms (car X))))
       (else
        (+ (countAtoms (cdr X)) 1)))
     )
    )
  )

(define (cons2 X Y)
  (cond
    ((null? X)
     (cons Y ()))
    ((not(pair? X))
     (cons X (cons Y ())))
    (else
     (cons (car X) (cons2 (cdr X) Y)))
    )
  )

(define (reverse X)
  (cond
    ((null? X) ())
    ((null? (cdr X))
     (car X))
    ((list? X)
     (cond
       ((list? (car X))
        (cons2 (reverse (cdr X)) (reverse(car X))))
       (else
        (cons2 (reverse (cdr X)) (car X)))))
    )
  )

>>8
That's because you don't write Lisp. Anyone who does quickly comes to realize that putting parens on new lines is just ugly and a waste of screen space.