compress :: (Eq a) => [a] -> [a]
compress =
  foldr
    ( \x acc ->
        if acc /= []
          && x == head acc
          then acc
          else x : acc
    )
    []