Написать программу на SWI-Prolog

Удалите из списка перед каждым вхождением X один элемент, если такой имеется и отличен от X.

Например, [1,2,1,1,3], X=1-> [1,1,1,3].

Cписок должен вводиться с клавиатуры во время выполнения программы, использование рекурсии обязательно.