(some println(distinct(mapcat #(re-seq #"\S+"%)(take-while type(repeatedly read-line)))))