(format t "~{~,,V,'*A~%~}"
	(do ((i 1 (1+ i))
	     (r () `("" ,i ,@r))
	     (a () `(,i "" ,@a)))
	    ((< 4 i) `(,@(nreverse r) ,@(cddr a)))))