module Main ( main )
where
import HyLo.InputFile
import HyLo.Formula
import HyLo.Formula.Rewrite
import HyLo.Signature.Simple
import Data.Maybe
import qualified Data.Map as Map
import qualified Data.Traversable as T
import Data.Generics.UniplateStr
import Control.Monad.State
import System.Exit
import System.Environment
main :: IO ()
main = do args <- getArgs
case args of
[inf,outf] -> readFile inf >>=
writeFile outf . write . rename . pnf . parseOldFormat
_ -> do prg_name <- getProgName
putStrLn $ concat ["Usage: ", prg_name, ": ",
"