(defn complex-example-2 [data]
  (group-by-transduce first
                      (comp (map second)
                            (distinct-transducer))
                      data))