(sorted-map & keyvals)
Returns a new sorted map with supplied mappings.
keyvals must be an even number of forms.
keyval => key val Returns a new sorted map with supplied mappings.
(defn sorted-map ([& keyvals] (loop [in (seq keyvals) out (.-EMPTY PersistentTreeMap)] (if in (recur (nnext in) (assoc out (first in) (second in))) out))))