(defn biggest? [x y]
     (if (< y x) x y))

(defn my-max [num-seq]
  (loop [numbers num-seq
     champion 0]
    (do
      (if (= (count numbers) 0)
    champion
    (recur (rest numbers)
           (biggest? champion
             (first numbers)))))))