Sustituir un Elemento por otro En lenguaje Prolog

% Sustituir un elemento por otro.

sus(_,_,[],[]).
sus(X,Y,[X|T],[Y|S]):-!,sus(X,Y,T,S).
sus(X,Y,[Z|T],[Z|S]):-sus(X,Y,T,S).