(use srfi-14)(while(let(,(#/([,-Z]+)(.+)./#`",(->char-set(read-line))"))(print,2,1)))