SICP Practice

#Practice 2.17

(define (last-pair seq)
  (cond ((null? seq) (error "list empty"))
        ((null? (cdr seq)) seq)
        (else
         (last-pair (cdr seq)))))