module Input where

import Data.Array.IO

input :: FilePath -> IO (IOArray Int [String])
input filename = do
    contents <- readFile filename
    let contentWords = map words $ lines contents
        l = length contentWords
    newListArray (0, l-1) contentWords