(fn [coll]
  (->> coll
       distinct
       sort
       (reduce
        (fn [acc num]
          (if (some->> acc last last (- num) #{0 1})
            (conj (vec (butlast acc)) (conj (last acc) num))
            (conj acc (conj [] num))))
        [])
       (map (juxt first last))))