Ako základ možno použiť schému zobrazenie.
(defun nasobs (c zoz) (cond ((null zoz) NIL) (T (cons (* c (first zoz)) (nasobs c (rest zoz)))) ) ) ; Príklad: (nasobs 2 '(1 2 3)) ; -> (2 4 6)