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