как заменить первое и последнее вхождения числа на другое в прологе

Question

repf(B,A,[A|Y],[B|Y]):-repf(B,A,Y,L),L=[B].
repf(B,A,[X|Y],L):- repf(B,A,Y,L1), L=[X|L1].

repf(B,A,[A],[B]).

Как заставить этот код заменить первое и последнее вхождение определенного значения другим?