uniq2.hs

import List

main = putStr . unlines . map head . group . lines =<< getContents

[Sample Code Index] [Support Site Top]