; constructors.l

(defun iota (n)
  (cond
    ((= n 1) (list 1))
    (t (snoc n (iota (- n 1))))
  )
)

(defun gen-list (n lo)
  (cond
    ((= n 1) (list lo))
    (t (cons lo (gen-list (- n 1) lo)))
  )
)