(#(if-let[l(read-line)](recur(concat%(re-seq #"\S+"l)))(some println(distinct%)))())