import GSA

import qualified Data.Text.IO as T (readFile, writeFile)
import Data.Text (Text)

main :: IO ()
main = do
  t <- T.readFile "main.gsa"
  let p = case parse "main.gsa" t of
            Left s -> error s
            Right p' -> p'
  print p
  T.writeFile "main_out.gsa" $ programPrinter p