import System.Environment
import System.IO
import System.IO.Error
import System.Directory

main = do
    files <- getDirectoryContents "../../resources/dvd/pos/"
    map (\file -> "../../resources/dvd/pos/" ++ file) files
    print files
    where path = "../../resources/dvd/pos/"