baralho(L2) :- ranks(L1), allcards(L1,_,L), random_permutation(L,L2), distribui([_,_],L2,_).

    %lista de todas as cartas(produto cartesiano das listas ranks e naipe)
    allcards([],_,_).
    allcards([X|L1],L2,R) :- naipe(L2), aux_cards(X,L2,L3),
                             allcards(L1,L2,L4), append(L3,L4,R).
    aux_cards(_,[],[]).
    aux_cards(X,[Y|L1],[(X,Y)|L2]) :-aux_cards(X,L1,L2).


	%mesa().
	%numero de cartas por jogador = 7
	distribui([P1,P2],L,L3):- aux_distribui(P1,L,L2), aux_distribui(P2,L2,L3).

    aux_distribui(P,[X,Y,Z|_],L2) :- hand(P,[X,Y,Z]), delete([X,Y,Z],[X,Y,Z|L2],L2).


	hand(_,[X,Y,Z|_]):- baralho([X,Y,Z|_]).