Prolog: нужно заменить каждый третий элемент списка на последний

Помогите решить, пожалуйста ) Вот пример кода, где заменяется элемент по определённому индексу

%+List,+Counter,-New List,
%-Last Item
replace([X|Xs],I,[X|Xs1],Xz):-
    I\=1,
    I1 is I-1,
    replace(Xs,I1,Xs1,Xz).

replace([_|Xs],1,[Xz|Xs1],Xz):-
    replace(Xs,0,Xs1,Xz).
    replace([Xz],_,[Xz],Xz).