(mapcar	'(lambda (b1 b2)
	   (if (tblsearch "block" b1)
	     (command ".rename" "b" b1 b2)
	   )
	 )
	(list . . . .);_ old block name list
	(list . . . .);_ new block name list
)