{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE OverloadedLists #-}
module Main
  (main)
  where

import qualified Gyehoek.ANF as ANF
import Gyehoek.QBE (render)
import qualified Data.Text.IO as TIO
import Prelude hiding ((.),id)
import Control.Category


main :: IO ()
main = TIO.putStrLn . render $ ANF.expr