Escreva em Prolog cláusulas adequadas (podendo recorrer, se necessário a predicados pré-definidos) para definir:
? profundidade(7,[3,[5,7],[4,[7,0]]],N). N = 2
?- dobra([1,2,3],[1,1,2,2,3,3]) yes
?- separa([b,d,2,a,5,b],R). R = ([2,5],[d,a,b]) ?- separa([4,d,5,4,q],R). R = ([5,4],[d,q])