>>30のリンクをみて。

uniq 改良版(getArgs...はかわらないのでstdin用)
--
import Data.List
main = interact $ unlines . map head . group . lines
--

basename, wcあたりも面白そうだ。