(let[(k(#0=read-line))(i 0)](while(#0#)#//=> x(print(if(string-scan #`" ,k "#`" ,(inc! i) ")#`",x
,x"x))))