(defn prime?
  ([num] (prime? num 2 (/ num 2)))
  ([num cur end]
     (if (<= num 2) true)
     (if (= cur end) true)
     (if (= 0 (mod num cur))
       false
       (recur num (+ cur 1) end))
     )
  )