main = getContents >>= \x -> putStrLn $ unlines $ uniq $ lines x

uniq :: (Eq a) => [a] -> [a]
uniq [] = []
uniq (x:[]) = [x]
uniq (x:xs) = if x == head xs then uniq xs else x:(uniq xs)