A second recursive walk

(define (count xs)
  (if (null? xs)
      0
      (+ 1 (count (cdr xs)))))
(print (count '(Nairobi Mombasa Kisumu)))

(define (busy xs)
  (cond
   ((null? xs) 0)
   ((>= (car xs) 8) (+ 1 (busy (cdr xs))))
   (else (busy (cdr xs)))))
(print (busy '(12 8 5)))

(define (last xs)
  (if (null? (cdr xs))
      (car xs)
      (last (cdr xs))))
(print (last '(Nakuru Eldoret Nairobi)))

(print (count '(a b)))