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