module Input where

import LineStorage

input :: FilePath -> Core Ready a
input filename = do
		  contents <- readFile filename
		  let contentWords = map words $ lines contents
		  Core (set contentWords)