(defn gcd
[a b]
(if (zero? b)
a
(recur b, (mod a b))))
(defn lcm
(/ (* a b) (gcd a b)))
;; to calculate the lcm for a variable number of arguments
(defn lcmv [& v] (reduce lcm v))
