Trenzar Dos o mas Listas en Prolog

% Trenzar dos listas.

trenza([],L,L).
trenza([H|T],R,[H|S]):-trenza(R,T,S).

%----------------------------------------------------


% Trenzar varias listas.


trenza2([],[]).
trenza2([[]|T],R):-trenza2(T,R).
trenza2([[H|T]|R],[H|S]):-append(R,[T],U),trenza2(U,S).