diff --git a/chapter2.lisp b/chapter2.lisp
index e0d5e44..7a67888 100644
--- a/chapter2.lisp
+++ b/chapter2.lisp
@@ -145,3 +145,13 @@ and upper bound."
 ;; Exercise 2.23
 (defun for-each (func thing)
   (mapcar func thing))
+
+;; Exercise 2.25
+(defvar list-1 (list 1 3 (list 5 7) 9))
+(defun pick-7-list-1 () (car (cdr (car (cddr list-1)))))
+
+(defvar list-2 (list (list 7)))
+(defun pick-7-list-2 () (car (car list-2)))
+
+(defvar list-3 (list 1 (list 2 (list 3 (list 4 (list 5 (list 6 7)))))))
+(defun pick-7-list-3 () (cadr (cadr (cadr (cadr (cadr (cadr list-3)))))))