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