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