#lang sicp

(define (last-pair list)
  (cond ((null? list) (error "Can't get last element of empty list"))
        ((null? (cdr list)) list)
        (else (last-pair (cdr list)))))