(defn build-table [coll]
  (let [table (map (fn [x]
                     (let [key x
                           values (filter #(< % key) coll)]
                       [key values])) coll)]
    table))