;; recursive-make-chromatic-lick.sal -- example of list-consing recursion ;; ;; (c) 2008 by Roger B. Dannenberg define function recursive-make-a-chromatic-lick(start, number-of-notes) begin if number-of-notes = 0 then return nil else return cons(start, recursive-make-a-chromatic-lick(start + 1, number-of-notes - 1)) end print recursive-make-a-chromatic-lick(60, 6)