((^'\(#1=dolist(i #0=(string->list(read-line)))(#1#(j\)(#1#(k\)'#`"(,j,i,k)")'"
")))display #0#)