:- module( anta, [] ). branco_inicia([d,1]). branco_responde(_,[a,1]). preto_inicia(_,[b,1]). preto_responde(_,[c,1]).