{-# LANGUAGE OverloadedStrings #-}

module Main where

import Data.Attoparsec.Text (parseOnly)
import qualified Data.Text.IO as T

import INAST

main :: IO ()
main = do
  inputNetwork <- T.readFile "./input.network"
  T.putStrLn "Using the following input network:"
  T.putStrLn inputNetwork
  T.putStrLn "Parsed AST:"
  print (parseOnly insuranceNetworkParser inputNetwork)