(= o'(""))(on c(rev:dedup:readline)(++ o(map[+ c _]o)))(map prn o)