1 import Directory (getDirectoryContents)
2 import List (sort, isPrefixOf, isSuffixOf)
5 names <- getDirectoryContents "."
6 putStrLn (unlines (sort (filter ok names)))
8 ok name = "getDirectoryContents" `isPrefixOf` name
9 && not ("bak" `isSuffixOf` name)