uniq.hs

import List

main = do cs <- getContents
          putStr $ unlines $ map head $ group $ lines cs

[Sample Code Index] [Support Site Top]