ex2.25-pick-up-7.scm

; (1 3 (5 7) 9)

(let ((l (list 1 3 (list 5 7) 9) ))
  (car (cdr (car (cdr (cdr l )))))
  )


; ((7))
(let ((l (list (list 7)) ))
  (car (car l))
  )

; (1 (2 (3 (4 (5 (6 7))))))
(let ((l (list 1 (list 2 (list 3 (list 4 (list 5 (list 6 7)))))) ))
  (car (cdr (car (cdr (car (cdr (car (cdr (car (cdr(car (cdr l))))))))))))
  )