(defun mostrar-tablero (tablero)
	(let*
		(
			(dim (array-dimensions tablero))
			(d1 (- (nth 0 dim) 1) )
			(d2 (- (nth 1 dim) 1) )
		)
		(loop for i from 0 to d1 do
			(let ()
				(format t "[ ")
				(loop for j from 0 to d2 do
					(format t "~a " (aref tablero i j))
				)
				(format t "]~%")
			)
		)
	)
)