module IR where
import Data.Text.Prettyprint.Doc
import Data.Text.Prettyprint.Doc.Internal
import Data.Text.Prettyprint.Doc.Util
import qualified Data.Set as S
import qualified Control.Monad.State as ST
import qualified Data.Map.Strict as M
import qualified OrderedMap as OM
import Data.List (elemIndex)
import Control.Monad(guard)