(#1=dotimes(i(set'b(read)))(#1#(j b)(format t"~*~[~&~:;~@*~V,3R~]"b(* i j))))