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