(let((s #1=(string->list(read-line))),display)(#2=dolist(m #1#)(#2#(r s)(#2#(l s),#`"(,r,m,l)"),"
")))