#!/usr/local/bin/sbcl --script
(defun enigma (L)

(if (null L) () (append (enigma (cdr L)) (list (car L))))

)


(defun somalista (L)

(if (null L) 0 (+ (car L) (somalista (cdr L))))

)

(defun divisores (N C L)
  (if 
    (<= C (sqrt N)) 
    (if 
      (= (mod N C) 0)
      (if 
        (/= C (/ N C)) 
        (append (divisores N (+ C 1) L) (list C) (list (/ N C)))
        (append (divisores N (+ C 1) L) (list C))
      )
      (divisores N (+ C 1) L)
    ) 
  )
)

(print (divisores 20 1 '()))