# Get the number of occurences of elements in a set

(defn frequencies
 "Get the number of occurences of each value in a indexed structure."
 [ind]
 (def freqs @{})
 (loop 
   [x :in ind]
   (def n (get freqs x))
   (put freqs x (if n (+ 1 n) 1)))
 freqs)