compress (x : y : ys)
    | x == y    =     compress (y : ys)
    | otherwise = x : compress (y : ys)
compress ys     = ys