import System.Directory.Tree
import qualified Data.Foldable as F
import qualified Data.Traversable as T
main = do
dir <- readDirectoryWithL readFile "directory"
let
tree = dirTree dir
a:xs = contents tree
print $ name a
_ <- getLine -- manually change the content of the file here
print $ file a