isAscii :: FilePath -> IO (Maybe String)
isAscii fileName = do
    content <- readFile fileName
    if take 5 content == "solid"
        then return (Just content)
        else return Nothing

-- | Checks if file size matching the formula:
-- 80 byte header, 4 byte face count, 50 bytes per face
isAscii :: FilePath -> IO (Maybe String)
isAscii fileName = do
    content <- readFile fileName
    if take 5 content == "solid"
        then return (Just content)
        else return Nothing

-- | Checks if file size matching the formula:
-- 80 byte header, 4 byte face count, 50 bytes per face
isAscii fileName = do
    content <- readFile fileName
    if take 5 content == "solid"
        then return (Just content)
        else return Nothing

-- | Checks if file size matching the formula:
-- 80 byte header, 4 byte face count, 50 bytes per face