gistfile1.clj

(defn lpf
  [num]
  (loop [div 2 lim num]
    (cond
     (< (/ lim div) 1) (do (println (str "Returning: " (dec div))) (dec div))
     (= (rem lim div) 0) (do (println (str "Recurring:(frm match) " (inc div) " " (/ lim div)))(recur (inc div) (/ lim div)))
     :else (do(println (str "Recurring:(frm else) " (inc div)" " lim))(recur (inc div) lim)))))