Prolog - Duda con listas, ¿En que falla este codigo?

Tengo las siguientes reglas y lo que trato de hacer es que separe una lista con todos los objetos mezclados en dos listas.

comida(pescado).
comida(carne).
comida(pasta).

bebida(agua).
bebida(vino).
bebida(zumo).

separar([],[],[]).
separar([X|L],Comida,Bebida):-comida(X),separar(L,[X|Comida],Bebida).
separar([X|L],Comida,Bebida):-bebida(X),separar(L,Comida,[X|Bebida]).

Ya encontre la solucion. Seria la siguiente:

separar([],[],[]).
separar([X|L],[X|Bebida],Comida):-bebida(X),separar(L,Bebida,Comida).
separar([X|L],Bebida,[X|Comida]):-comida(X),separar(L,Bebida,Comida).