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