(dotimes(i(set'n(read)))(format t"~V@TX~:[~VTX~;~]
"(min #1=(- n i 1)i)(= #1#i)(max #1#i)))