(doseq(x(read-line)#1=(do()((eq(set'c(read-char))#\_)(princ x))(princ c)))#1#)