skip([],[]).
skip([A|B],[A|C]):-replace(B,C,0).
replace([],[],_).
replace([_|B],[X|C],X):-skip(B,C).
:-skip
([1,2,3,4,5],X
),write(X
).
c2tpcChbXSxbXSkuCnNraXAoW0F8Ql0sW0F8Q10pOi1yZXBsYWNlKEIsQywwKS4KIApyZXBsYWNlKFtdLFtdLF8pLgpyZXBsYWNlKFtffEJdLFtYfENdLFgpOi1za2lwKEIsQykuCgo6LXNraXAoWzEsMiwzLDQsNV0sWCksd3JpdGUoWCku