(defn compress [x]
  (map first (partition-by identity x)))