(defn pack [x]
  (partition-by identity x))