(define (stupid x)
  (let stupidloop ((lst '())
		   (num x)
		   (iter 2))
    (cond
     ((= num 1) lst)
     ((= 0 (modulo num iter)) (stupidloop (cons iter lst) (/ num iter) iter))
     (else (stupidloop lst num (+ 1 iter))))))