(let ((var i 0) (var j 0) (var sump 0) (var a 0) (var p 0))
  (for
   (i 2 1000)
   (begin
     (:= p 0)
     (for
      (j 1 (- i 1))
      (begin
        (:= a (/ i j))
        (:= a (* a j))
        (when (= a i) (begin (:= p 1) (break)))))
     (when (= p 0) (:= sump (+ sump i))))))