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