Implemente em Prolog o predicado separa/4, que recebe no primeiro
argumento um objecto, no segundo uma lista, e nos devolve no terceiro argumento todos os
elementos da lista antes da primeira ocorrência do objecto e no último parâmetro os
elementos que sucedem na lista ao objecto em questão.
Exemplo:
?- separa(*,[1,2,3,4,*,a,b,c,d],A,D).
A = [1,2,3,4]
D = [a,b,c,d]