#!/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)) 
    (progn 
      (if 
        (= (mod N C) 0)
        (progn 
          (append L (list C))
          (if 
            (/= C (/ N C)) 
            (append (list (/ N C)) L)
          )
        )
      ) 
      (divisores N (+ C 1) L)
      (print L)
    )
  )
)

(print (divisores 10 1 '()))