s-99-02


 (define (last-but-one l) 
   (when (not (null? (cdr l))) 
     (if (null? (cddr l)) 
       (car l) 
       (last-but-one (cdr l)))))