compress([],[]).
compress([A],[A]).
compress([X,X|L],Res):-
    compress([X|L],Res).

compress([X,Y|L],[X|Res]):-
    X\=Y,
    compress([Y|L],Res).