(define (LAST l)
  (cond ((null? l) (error "kan niet"))
        ((null? (cdr l)) (car l))
        (else (LAST (cdr l)))))