(doseq(c(set's(read-line)))(write-line s))