#!/usr/local/bin/sbcl --script
(defun count-list (numbers)
   (if (first numbers)
      (+ 1 (count-list (rest numbers)))
      0))

(count-list ‘(2 3 4 5 6))