compress []       = []
compress [a]      = [a]           -- singleton list
compress (x:y:xs) = (if x == y then [] else [x]) ++ compress (y:xs)