SoloCodigo

Tengo el siguiente problema: Ingresar una lista de números. Si el último nro es par, cambiar las posiciones pares de la lista por 0. Si es impar, cambiar las posiciones  impares de la lista por 0.

Entiendo la primer parte, yo hago lo siguiente:
inicio:-write('Ingrese la lista: '), leer(L), modificar(L).
leer([H|T]):-read(H), H/=[],leer(T). %el palito de distinto está al revés porque se me cambió el teclado
leer([]).
modificar(L):-reverse(L,R),verParidad(L,R).
verParidad(L,[X|_]):- S is X mod 2, S=0, cambiarPares(); cambiarImpares().

lo que no entiendo es cómo hacer que me modifique las posiciones pares o impares por 0.

Gracias!