(while 1(apply println(for[[a%][(re-seq #"\w+"(read-line))]c a%%](str c%))))