(let1 E #0=(string->list(read-line))(#1=dolist(m #0#)(#1#(e E)(#1#(y E)(display #`"(,e,m,y)"))(print))))