import IO
import System
import ParseLog
import Control.Monad.State

main = do
       args  <- getArgs
       fh    <- openFile (args !! 0) ReadMode
       parseLog fh