(defn mycount [acc foo] (if (seq foo) (recur (rest foo) (inc acc)) acc)) (def mseq '(4 5 6)) (mycount 0 mseq)