type Tablero = (Posicion-> Maybe Pieza)

type Posicion = (Integer,Integer)

type Movimiento = (Posicion,Posicion)

data Pieza = Peon|Caballo|Alfil|Torre|Reina|Rey deriving (Eq,Show)

-- .................................................................... FIN ZONA DECLARACION DE TIPOS
-- ...................... SHOW de Tablero
instance Show Tablero where