Программа на SWI-Prolog

Написать на языке SWI-Prolog программу и описать, как она работает:

Удалите из списка за каждым вхождением X один элемент, если такой имеется и отличен от X. Например, [1,8,2,1,1,5,1], X=1-> [1,2,1,1,1] (списки должны вводиться с клавиатуры во время выполнения программы, использование рекурсии обязательно)