(print(regexp-replace-all #/(\w+) \1\b ?/(string-join(sort(port-map x->string read)))""))