;;; -*-Scheme-*-

(define (p n)
  (let f ((n n) (i 2))
    (cond
     ((> i n) '())
     ((integer? (/ n i))
      (cons i (f (/ n i) i)))
     (else
      (f n (+ i 1))))))

(print (p 12))
(print (p 3628800))
(print (p 4194304))