(define (last l)
(if (pair? l)
(if (null? (cdr l))
(car l)
(last (cdr l)))
#f))