(defn
take-last
"Returns a seq of the last n items in coll. Depending on the type\n of coll may be no better than linear time. For vectors, see also subvec."
[n coll]
(loop
[s (seq coll) lead (seq (drop n coll))]
(if lead (recur (next s) (next lead)) s)))