From 585130cfacceab83b64944826e4904972d84844a Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 14 Dec 2023 14:27:16 -0700
Subject: [PATCH 001/192] update readme

---
 README.md | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/README.md b/README.md
index e393772..99d6323 100644
--- a/README.md
+++ b/README.md
@@ -19,10 +19,8 @@ $ cabal test --test-show-details=direct
 
 ### Use
 ```sh
-# Compile and evaluate t.hs
-$ rlpc t.hs
-# Compile and evaluate t.hs, with evaluation info dumped to stderr
-$ rlpc -ddump-eval t.hs
+# Compile and evaluate examples/factorial.hs, with evaluation info dumped to stderr
+$ rlpc -ddump-eval examples/factorial.hs
 # Compile and evaluate t.hs, with evaluation info dumped to t.log
 $ rlpc -ddump-eval -l t.log t.hs
 # Print the raw structure describing the compiler options and die
-- 
2.52.0


From 136e3687b079d6374e97cdaea92f042be4e9b4f1 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 18 Dec 2023 15:36:17 -0700
Subject: [PATCH 002/192] Literal -> Lit, LitE -> Lit

---
 src/Core/Parse.y   | 2 +-
 src/Core/Syntax.hs | 8 ++++----
 src/Core/Utils.hs  | 2 +-
 src/Core2Core.hs   | 4 ++--
 src/GM.hs          | 8 ++++----
 5 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 94d0dcc..4dab15a 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -123,7 +123,7 @@ Alter           :: { Alter Name }
 Alter           : litint ParList '->' Expr      { Alter (AltData $1) $2 $4 }
 
 Expr1           :: { Expr Name }
-Expr1           : litint                        { LitE $ IntL $1 }
+Expr1           : litint                        { Lit $ IntL $1 }
                 | Id                            { Var $1 }
                 | PackCon                       { $1 }
                 | ExprPragma                    { $1 }
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 676cf3b..2fc88f0 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -7,7 +7,7 @@ Description : Core ASTs and the like
 module Core.Syntax
     ( Expr(..)
     , Type(..)
-    , Literal(..)
+    , Lit(..)
     , pattern (:$)
     , Binding(..)
     , AltCon(..)
@@ -47,7 +47,7 @@ data Expr b = Var Name
             | Lam [b] (Expr b)
             | Let Rec [Binding b] (Expr b)
             | App (Expr b) (Expr b)
-            | LitE Literal
+            | Lit Lit
             | Type Type
             deriving (Show, Read, Lift)
 
@@ -87,11 +87,11 @@ data Rec = Rec
          deriving (Show, Read, Eq, Lift)
 
 data AltCon = AltData Tag
-            | AltLiteral Literal
+            | AltLit Lit
             | Default
             deriving (Show, Read, Eq, Lift)
 
-data Literal = IntL Int
+data Lit = IntL Int
     deriving (Show, Read, Eq, Lift)
 
 type Name = String
diff --git a/src/Core/Utils.hs b/src/Core/Utils.hs
index dd9c6ed..892a7e3 100644
--- a/src/Core/Utils.hs
+++ b/src/Core/Utils.hs
@@ -32,7 +32,7 @@ rhssOf = fromList . fmap f
 
 isAtomic :: Expr b -> Bool
 isAtomic (Var _)  = True
-isAtomic (LitE _) = True
+isAtomic (Lit _)  = True
 isAtomic _        = False
 
 ----------------------------------------------------------------------------------
diff --git a/src/Core2Core.hs b/src/Core2Core.hs
index ed885bc..7aa9dc6 100644
--- a/src/Core2Core.hs
+++ b/src/Core2Core.hs
@@ -55,7 +55,7 @@ floatNonStrictCases g = goE
     where
         goE :: Expr' -> Floater Expr'
         goE (Var k)             = pure (Var k)
-        goE (LitE l)            = pure (LitE l)
+        goE (Lit l)             = pure (Lit l)
         goE (Case e as)         = pure (Case e as)
         goE (Let Rec bs e)      = Let Rec <$> bs' <*> goE e
             where bs' = travBs goE bs
@@ -77,7 +77,7 @@ floatNonStrictCases g = goE
         goC (f :$ x)            = (:$) <$> goC f <*> goC x
         goC (Let r bs e)        = Let r <$> bs' <*> goE e
             where bs' = travBs goC bs
-        goC (LitE l)            = pure (LitE l)
+        goC (Lit l)             = pure (Lit l)
         goC (Var k)             = pure (Var k)
         goC (Con t as)          = pure (Con t as)
 
diff --git a/src/GM.hs b/src/GM.hs
index a29e158..00f125f 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -617,7 +617,7 @@ buildInitialHeap (Program ss) = mapAccumL allocateSc mempty compiledScs
                 f (NameKey n, _) = Just n
                 f _              = Nothing
 
-        compileC _ (LitE l)  = compileCL l
+        compileC _ (Lit l)   = compileCL l
 
         -- >> [ref/compileC]
         compileC g (App f x) = compileC g x
@@ -661,16 +661,16 @@ buildInitialHeap (Program ss) = mapAccumL allocateSc mempty compiledScs
 
         compileC _ _ = error "yet to be implemented!"
 
-        compileCL :: Literal -> Code
+        compileCL :: Lit -> Code
         compileCL (IntL n) = [PushInt n]
 
-        compileEL :: Literal -> Code
+        compileEL :: Lit -> Code
         compileEL (IntL n) = [PushInt n]
 
         -- compile an expression in a strict context such that a pointer to the
         -- expression is left on top of the stack in WHNF
         compileE :: Env -> Expr' -> Code
-        compileE _ (LitE l) = compileEL l
+        compileE _ (Lit l) = compileEL l
         compileE g (Let NonRec bs e) =
                 -- we use compileE instead of compileC
                 mconcat binders <> compileE g' e <> [Slide d]
-- 
2.52.0


From 20c936f317599b9c917ae7c19d39723a5a5be745 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 14 Dec 2023 16:12:20 -0700
Subject: [PATCH 003/192] commentary

---
 doc/src/commentary/gm.rst | 30 +++++++++++++++++++++---------
 doc/src/commentary/ti.rst |  6 ------
 doc/src/conf.py           |  2 +-
 3 files changed, 22 insertions(+), 16 deletions(-)
 delete mode 100644 doc/src/commentary/ti.rst

diff --git a/doc/src/commentary/gm.rst b/doc/src/commentary/gm.rst
index 1682a58..4cf3d6a 100644
--- a/doc/src/commentary/gm.rst
+++ b/doc/src/commentary/gm.rst
@@ -1,16 +1,24 @@
 The *G-Machine*
 ===============
 
+The G-Machine (graph machine) is the current heart of rlpc, until we potentially
+move onto a STG (spineless tagless graph machine) or a TIM (three-instruction
+machine). rl' source code is desugared into Core; a dumbed-down subset of rl',
+and then compiled to G-Machine code, which is then finally translated to the
+desired target.
+
 **********
 Motivation
 **********
 
-Our initial model, the *Template Instantiator* (TI) was a very
-straightforward solution to compilation, but its core design has a major
-Achilles' heel, being that Compilation is interleaved with evaluation -- The
-heap nodes for supercombinators hold uninstantiated expressions, i.e. raw ASTs
-straight from the parser. When a supercombinator is found on the stack during
-evaluation, the template expression is instantiated (compiled) on the spot.
+Our initial model, the *Template Instantiator* (TI) was a very straightforward
+solution to compilation, but its core design has a major Achilles' heel, being
+that compilation is interleaved with evaluation -- The heap nodes for
+supercombinators hold uninstantiated expressions, i.e. raw ASTs straight from
+the parser. When a supercombinator is found on the stack during evaluation, the
+template expression is instantiated (compiled) on the spot. This makes
+translation to an assembly difficult, undermining the point of an intermediate
+language.
 
 .. math::
    \transrule
@@ -31,7 +39,7 @@ evaluation, the template expression is instantiated (compiled) on the spot.
    \text{where } h' = \mathtt{instantiateU} \; e \; a_n \; h \; g
    }
 
-The process of instantiating a supercombinator goes something like this
+The process of instantiating a supercombinator goes something like this:
 
 1. Augment the environment with bindings to the arguments.
 
@@ -52,13 +60,17 @@ The process of instantiating a supercombinator goes something like this
 Instantiating the supercombinator's body in this way is the root of our
 Achilles' heel. Traversing a tree structure is a very non-linear task unfit for
 an assembly target. The goal of our new G-Machine is to compile a *linear
-sequence of instructions* which instantiate the expression at execution.
+sequence of instructions* which, **when executed**, build up a graph
+representing the code.
 
 **************************
 Trees and Vines, in Theory
 **************************
 
-WIP.
+Rather than instantiating an expression at runtime -- traversing the AST and
+building a graph -- we want to compile all expressions at compile-time,
+generating a linear sequence of instructions which may be executed to build the
+graph.
 
 **************************
 Evaluation: Slurping Vines
diff --git a/doc/src/commentary/ti.rst b/doc/src/commentary/ti.rst
deleted file mode 100644
index 4e167d0..0000000
--- a/doc/src/commentary/ti.rst
+++ /dev/null
@@ -1,6 +0,0 @@
-The *Template Instantiator*
-====================================
-
-WIP. This will hopefully be expanded into a thorough walkthrough of the state
-machine.
-
diff --git a/doc/src/conf.py b/doc/src/conf.py
index 1cd64cc..d344334 100644
--- a/doc/src/conf.py
+++ b/doc/src/conf.py
@@ -13,7 +13,7 @@ author = 'madeleine sydney slaga'
 # -- General configuration ---------------------------------------------------
 # https://www.sphinx-doc.org/en/master/usage/configuration.html#general-configuration
 
-extensions = ['sphinx.ext.imgmath']
+extensions = ['sphinx.ext.imgmath', 'sphinx.ext.graphviz']
 
 # templates_path = ['_templates']
 exclude_patterns = []
-- 
2.52.0


From 78f88e085f1b7d44d6e5a7851d96d9bd5983542c Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 17 Dec 2023 15:23:09 -0700
Subject: [PATCH 004/192] infer

---
 rlp.cabal                     |  7 ++-
 src/Core/HindleyMilner.hs     | 90 +++++++++++++++++++++++++++++++++++
 src/Core/Syntax.hs            | 14 +++++-
 tst/Core/HindleyMilnerSpec.hs | 19 ++++++++
 4 files changed, 127 insertions(+), 3 deletions(-)
 create mode 100644 src/Core/HindleyMilner.hs
 create mode 100644 tst/Core/HindleyMilnerSpec.hs

diff --git a/rlp.cabal b/rlp.cabal
index 33c4d95..f5b26ab 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -26,13 +26,14 @@ library
                     , Core.Examples
                     , Core.Utils
                     , Core.TH
+                    , Core.HindleyMilner
 
     other-modules:    Data.Heap
                     , Data.Pretty
                     , Core.Parse
                     , Core.Lex
-                    , Control.Monad.Errorful
                     , Core2Core
+                    , Control.Monad.Errorful
                     , RLP.Syntax
 
     build-tool-depends: happy:happy, alex:alex
@@ -41,6 +42,7 @@ library
     build-depends:    base ^>=4.18.0.0
                     , containers
                     , microlens
+                    , microlens-mtl
                     , microlens-th
                     , mtl
                     , template-haskell
@@ -50,6 +52,8 @@ library
                     , unordered-containers
                     , hashable
                     , pretty
+                    -- TODO: either learn recursion-schemes, or stop depending
+                    -- on it.
                     , recursion-schemes
                     , megaparsec
                     , text
@@ -86,5 +90,6 @@ test-suite rlp-test
                  , hspec            ==2.*
     other-modules: Arith
                  , GMSpec
+                 , Core.HindleyMilnerSpec
     build-tool-depends: hspec-discover:hspec-discover
 
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
new file mode 100644
index 0000000..f437ad0
--- /dev/null
+++ b/src/Core/HindleyMilner.hs
@@ -0,0 +1,90 @@
+{-# LANGUAGE LambdaCase #-}
+module Core.HindleyMilner
+    ( infer
+    , Context'
+    )
+    where
+----------------------------------------------------------------------------------
+import Lens.Micro
+import Lens.Micro.Mtl
+import Data.Set                 qualified as S
+import Data.Set                 (Set)
+import Data.Maybe               (fromMaybe)
+import Control.Monad.State
+import Core.Syntax
+----------------------------------------------------------------------------------
+
+type Context b = [(b, Type)]
+
+type Context' = Context Name
+
+infer :: Context' -> Expr' -> Maybe Type
+infer g e = foldr (uncurry subst) t <$> unify cs where
+    (t,cs) = gather g e
+
+type Constraint = (Type, Type)
+
+gather :: Context' -> Expr' -> (Type, [Constraint])
+gather = \g e -> let (t,(cs,_)) = runState (go g e) ([],0) in (t,cs) where
+    go :: Context' -> Expr' -> State ([Constraint], Int) Type
+    go g = \case
+        LitE (IntL _) -> pure TyInt
+        Var k         -> maybe e pure $ lookup k g
+            where e = error $ "variable `" <> k <> "' untyped in Γ"
+        App f x       -> do
+            tf <- go g f
+            tx <- go g x
+            tfx <- uniqueVar
+            addConstraint tf (tx :-> tfx)
+            pure tfx
+
+uniqueVar :: State ([Constraint], Int) Type
+uniqueVar = do
+    n <- use _2
+    _2 %= succ
+    pure (TyVar $ '$' : 'a' : show n)
+
+addConstraint :: Type -> Type -> State ([Constraint], Int) ()
+addConstraint t u = _1 %= ((t, u):)
+
+unify :: [Constraint] -> Maybe Context'
+unify = go mempty where
+    go :: Context' -> [Constraint] -> Maybe Context'
+
+    -- nothing left! return accumulator
+    go g [] = Just g
+
+    go g (c:cs) = case c of
+        -- primitives may of course unify with themselves
+        (TyInt,   TyInt)            -> go g cs
+
+        -- `x` unifies with `x`
+        (TyVar t, TyVar u) | t == u -> go g cs
+
+        -- a type variable `x` unifies with an arbitrary type `t` if `t` does
+        -- not reference `x`
+        (TyVar x, t)                -> unifyTV g x t cs
+        (t, TyVar x)                -> unifyTV g x t cs
+
+        -- two functions may be unified if their domain and codomain unify
+        (a :-> b, x :-> y)          -> go g $ (a,x) : (b,y) : cs
+
+        _                           -> Nothing
+
+    unifyTV :: Context' -> Name -> Type -> [Constraint] -> Maybe Context'
+    unifyTV g x t cs | occurs t   = Nothing
+                     | otherwise  = go g' substed
+        where
+            g' = (x,t) : g
+            substed = cs & each . both %~ subst x t
+
+            occurs (a :-> b) = occurs a || occurs b
+            occurs (TyVar y)
+                | x == y     = True
+            occurs _         = False
+
+subst :: String -> Type -> Type -> Type
+subst x t (TyVar y) | x == y  = t
+subst x t (a :-> b)           = subst x t a :-> subst x t b
+subst _ _ e                   = e
+
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 2fc88f0..9025613 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -9,6 +9,8 @@ module Core.Syntax
     , Type(..)
     , Lit(..)
     , pattern (:$)
+    , pattern (:@)
+    , pattern (:->)
     , Binding(..)
     , AltCon(..)
     , pattern (:=)
@@ -57,15 +59,23 @@ data Type = TyInt
           | TyFun
           | TyVar Name
           | TyApp Type Type
-          | TyConApp TyCon [Type]
+          -- | TyConApp TyCon [Type]
           deriving (Show, Read, Lift, Eq)
 
 type TyCon = Name
 
 infixl 2 :$
-pattern (:$) :: Expr b  -> Expr b  -> Expr b 
+pattern (:$) :: Expr b -> Expr b -> Expr b 
 pattern f :$ x = App f x
 
+infixl 2 :@
+pattern (:@) :: Type -> Type -> Type
+pattern f :@ x = TyApp f x
+
+infixr 1 :->
+pattern (:->) :: Type -> Type -> Type
+pattern a :-> b = TyApp (TyApp TyFun a) b
+
 {-# COMPLETE Binding :: Binding #-}
 {-# COMPLETE (:=) :: Binding #-}
 data Binding b = Binding b (Expr b)
diff --git a/tst/Core/HindleyMilnerSpec.hs b/tst/Core/HindleyMilnerSpec.hs
new file mode 100644
index 0000000..5beabb2
--- /dev/null
+++ b/tst/Core/HindleyMilnerSpec.hs
@@ -0,0 +1,19 @@
+{-# LANGUAGE QuasiQuotes #-}
+module Core.HindleyMilnerSpec
+    ( spec
+    )
+    where
+----------------------------------------------------------------------------------
+import Core.Syntax
+import Core.TH                  (coreExpr)
+import Core.HindleyMilner       (infer)
+import Test.Hspec
+----------------------------------------------------------------------------------
+
+-- TODO: more tests. preferrably property-based. lol.
+spec :: Spec
+spec = do
+    it "should infer `id 3` :: Int" $
+        let g = [ ("id", TyVar "a" :-> TyVar "a") ]
+        in infer g [coreExpr|id 3|] `shouldBe` Just TyInt
+
-- 
2.52.0


From f7e850c61a07c686fb89ebef620106f7336d80c8 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 18 Dec 2023 10:05:34 -0700
Subject: [PATCH 005/192] hindley milner inference :D

---
 src/Core/HindleyMilner.hs | 23 +++++++++++++++--------
 src/Core/Syntax.hs        |  2 --
 2 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index f437ad0..c5b9e99 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -2,6 +2,7 @@
 module Core.HindleyMilner
     ( infer
     , Context'
+    , TypeError(..)
     )
     where
 ----------------------------------------------------------------------------------
@@ -18,7 +19,12 @@ type Context b = [(b, Type)]
 
 type Context' = Context Name
 
-infer :: Context' -> Expr' -> Maybe Type
+-- TODO: Errorful monad?
+data TypeError = TyErrCouldNotUnify Type Type
+               | TyErrRecursiveType Name Type
+               deriving Show
+
+infer :: Context' -> Expr' -> Either TypeError Type
 infer g e = foldr (uncurry subst) t <$> unify cs where
     (t,cs) = gather g e
 
@@ -47,12 +53,12 @@ uniqueVar = do
 addConstraint :: Type -> Type -> State ([Constraint], Int) ()
 addConstraint t u = _1 %= ((t, u):)
 
-unify :: [Constraint] -> Maybe Context'
+unify :: [Constraint] -> Either TypeError Context'
 unify = go mempty where
-    go :: Context' -> [Constraint] -> Maybe Context'
+    go :: Context' -> [Constraint] -> Either TypeError Context'
 
-    -- nothing left! return accumulator
-    go g [] = Just g
+    -- nothing left! return accumulated context
+    go g [] = Right g
 
     go g (c:cs) = case c of
         -- primitives may of course unify with themselves
@@ -69,10 +75,11 @@ unify = go mempty where
         -- two functions may be unified if their domain and codomain unify
         (a :-> b, x :-> y)          -> go g $ (a,x) : (b,y) : cs
 
-        _                           -> Nothing
+        -- anything else is a failure :(
+        (t,u)                       -> Left $ TyErrCouldNotUnify t u
 
-    unifyTV :: Context' -> Name -> Type -> [Constraint] -> Maybe Context'
-    unifyTV g x t cs | occurs t   = Nothing
+    unifyTV :: Context' -> Name -> Type -> [Constraint] -> Either TypeError Context'
+    unifyTV g x t cs | occurs t   = Left $ TyErrRecursiveType x t
                      | otherwise  = go g' substed
         where
             g' = (x,t) : g
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 9025613..c6fbb5c 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -50,7 +50,6 @@ data Expr b = Var Name
             | Let Rec [Binding b] (Expr b)
             | App (Expr b) (Expr b)
             | Lit Lit
-            | Type Type
             deriving (Show, Read, Lift)
 
 deriving instance (Eq b) => Eq (Expr b)
@@ -59,7 +58,6 @@ data Type = TyInt
           | TyFun
           | TyVar Name
           | TyApp Type Type
-          -- | TyConApp TyCon [Type]
           deriving (Show, Read, Lift, Eq)
 
 type TyCon = Name
-- 
2.52.0


From 047091298337ae4b299d7b294459e57215d720cf Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 18 Dec 2023 11:11:22 -0700
Subject: [PATCH 006/192] comments and better type errors

---
 src/Core/HindleyMilner.hs     | 79 ++++++++++++++++++++++++++++-------
 src/Core/Syntax.hs            |  2 +-
 tst/Core/HindleyMilnerSpec.hs |  2 +-
 3 files changed, 66 insertions(+), 17 deletions(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index c5b9e99..514fa0b 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -1,3 +1,7 @@
+{-|
+Module      : Core.HindleyMilner
+Description : Hindley-Milner inference
+-}
 {-# LANGUAGE LambdaCase #-}
 module Core.HindleyMilner
     ( infer
@@ -15,28 +19,65 @@ import Control.Monad.State
 import Core.Syntax
 ----------------------------------------------------------------------------------
 
+-- | Annotated typing context -- I have a feeling we're going to want this in the
+-- future.
 type Context b = [(b, Type)]
 
+-- | Unannotated typing context, AKA our beloved Γ.
 type Context' = Context Name
 
 -- TODO: Errorful monad?
-data TypeError = TyErrCouldNotUnify Type Type
-               | TyErrRecursiveType Name Type
-               deriving Show
+
+-- | Type error enum.
+data TypeError
+    -- | Two types could not be unified
+    = TyErrCouldNotUnify Type Type
+    -- | @x@ could not be unified with @t@ because @x@ occurs in @t@
+    | TyErrRecursiveType Name Type
+    -- | Untyped, potentially undefined variable
+    | TyErrUntypedVariable Name
+    deriving (Show, Eq)
+
+-- | Synonym for @Either TypeError@
+type HMError = Either TypeError
+
+-- | Infer the type of an expression under some context.
+--
+-- >>> let g1 = [("id", TyVar "a" :-> TyVar "a")]
+-- >>> let g2 = [("id", (TyVar "a" :-> TyVar "a") :-> TyVar "a" :-> TyVar "a")]
+-- >>> infer g1 [coreExpr|id 3|]
+-- Right TyInt
+-- >>> infer g2 [coreExpr|id 3|]
+-- Left (TyErrCouldNotUnify (TyVar "a" :-> TyVar "a") TyInt)
 
 infer :: Context' -> Expr' -> Either TypeError Type
-infer g e = foldr (uncurry subst) t <$> unify cs where
-    (t,cs) = gather g e
+infer g e = do
+    (t,cs) <- gather g e
+    foldr (uncurry subst) t <$> unify cs
 
+-- | A @Constraint@ between two types describes the requirement that the pair
+-- must unify
 type Constraint = (Type, Type)
 
-gather :: Context' -> Expr' -> (Type, [Constraint])
-gather = \g e -> let (t,(cs,_)) = runState (go g e) ([],0) in (t,cs) where
-    go :: Context' -> Expr' -> State ([Constraint], Int) Type
+-- | Type of an expression under some context, and gather the constraints
+-- necessary to unify. Note that this is not the same as @infer@, as the
+-- expression will likely be given a fresh type variable along with a
+-- constraint, rather than the solved type.
+--
+-- For example, if the context says "@id@ has type a -> a," in an application of
+-- @id 3@, the whole application is assigned type @$a0@ and the constraint that
+-- @id@ must unify with type @Int -> $a0@ is generated.
+--
+-- >>> gather [("id", TyVar "a" :-> TyVar "a")] [coreExpr|id 3|]
+-- (TyVar "$a0",[(TyVar "a" :-> TyVar "a",TyInt :-> TyVar "$a0")])
+
+gather :: Context' -> Expr' -> HMError (Type, [Constraint])
+gather = \g e -> runStateT (go g e) ([],0) <&> \ (t,(cs,_)) -> (t,cs) where
+    go :: Context' -> Expr' -> StateT ([Constraint], Int) HMError Type
     go g = \case
         LitE (IntL _) -> pure TyInt
-        Var k         -> maybe e pure $ lookup k g
-            where e = error $ "variable `" <> k <> "' untyped in Γ"
+        Var k         -> lift $ maybe e Right $ lookup k g
+            where e = Left (TyErrUntypedVariable k)
         App f x       -> do
             tf <- go g f
             tx <- go g x
@@ -44,18 +85,23 @@ gather = \g e -> let (t,(cs,_)) = runState (go g e) ([],0) in (t,cs) where
             addConstraint tf (tx :-> tfx)
             pure tfx
 
-uniqueVar :: State ([Constraint], Int) Type
+uniqueVar :: StateT ([Constraint], Int) HMError Type
 uniqueVar = do
     n <- use _2
     _2 %= succ
     pure (TyVar $ '$' : 'a' : show n)
 
-addConstraint :: Type -> Type -> State ([Constraint], Int) ()
+addConstraint :: Type -> Type -> StateT ([Constraint], Int) HMError ()
 addConstraint t u = _1 %= ((t, u):)
 
-unify :: [Constraint] -> Either TypeError Context'
+-- | Unify a list of constraints, meaning that pairs between types are turned
+-- into pairs of type variables and types. A useful thought model is to think of
+-- it like solving an equation such that the unknown variable is the left-hand
+-- side.
+
+unify :: [Constraint] -> HMError Context'
 unify = go mempty where
-    go :: Context' -> [Constraint] -> Either TypeError Context'
+    go :: Context' -> [Constraint] -> HMError Context'
 
     -- nothing left! return accumulated context
     go g [] = Right g
@@ -90,7 +136,10 @@ unify = go mempty where
                 | x == y     = True
             occurs _         = False
 
-subst :: String -> Type -> Type -> Type
+-- | The expression @subst x t e@ substitutes all occurences of @x@ in @e@ with
+-- @t@
+
+subst :: Name -> Type -> Type -> Type
 subst x t (TyVar y) | x == y  = t
 subst x t (a :-> b)           = subst x t a :-> subst x t b
 subst _ _ e                   = e
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index c6fbb5c..1681a26 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -44,7 +44,7 @@ import Lens.Micro
 ----------------------------------------------------------------------------------
 
 data Expr b = Var Name
-            | Con Tag Int -- Con Tag Arity
+            | Con Tag Int -- ^ Con Tag Arity
             | Case (Expr b) [Alter b]
             | Lam [b] (Expr b)
             | Let Rec [Binding b] (Expr b)
diff --git a/tst/Core/HindleyMilnerSpec.hs b/tst/Core/HindleyMilnerSpec.hs
index 5beabb2..008510a 100644
--- a/tst/Core/HindleyMilnerSpec.hs
+++ b/tst/Core/HindleyMilnerSpec.hs
@@ -15,5 +15,5 @@ spec :: Spec
 spec = do
     it "should infer `id 3` :: Int" $
         let g = [ ("id", TyVar "a" :-> TyVar "a") ]
-        in infer g [coreExpr|id 3|] `shouldBe` Just TyInt
+        in infer g [coreExpr|id 3|] `shouldBe` Right TyInt
 
-- 
2.52.0


From e9e1c075db3c5b6df9e8010ba12aa736c0389c9f Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 18 Dec 2023 11:22:40 -0700
Subject: [PATCH 007/192] type IsString + test unification error

---
 src/Core/HindleyMilner.hs     |  3 ++-
 src/Core/Syntax.hs            |  3 +++
 tst/Core/HindleyMilnerSpec.hs | 14 +++++++++++---
 3 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 514fa0b..b59b7a5 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -7,6 +7,7 @@ module Core.HindleyMilner
     ( infer
     , Context'
     , TypeError(..)
+    , HMError
     )
     where
 ----------------------------------------------------------------------------------
@@ -50,7 +51,7 @@ type HMError = Either TypeError
 -- >>> infer g2 [coreExpr|id 3|]
 -- Left (TyErrCouldNotUnify (TyVar "a" :-> TyVar "a") TyInt)
 
-infer :: Context' -> Expr' -> Either TypeError Type
+infer :: Context' -> Expr' -> HMError Type
 infer g e = do
     (t,cs) <- gather g e
     foldr (uncurry subst) t <$> unify cs
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 1681a26..fab3170 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -126,6 +126,9 @@ type Binding' = Binding Name
 instance IsString (Expr b) where
     fromString = Var
 
+instance IsString Type where
+    fromString = TyVar
+
 instance Semigroup (Program b) where
     (<>) = coerce $ (<>) @[ScDef b] 
 
diff --git a/tst/Core/HindleyMilnerSpec.hs b/tst/Core/HindleyMilnerSpec.hs
index 008510a..c50be15 100644
--- a/tst/Core/HindleyMilnerSpec.hs
+++ b/tst/Core/HindleyMilnerSpec.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE QuasiQuotes, OverloadedStrings #-}
 module Core.HindleyMilnerSpec
     ( spec
     )
@@ -6,7 +6,7 @@ module Core.HindleyMilnerSpec
 ----------------------------------------------------------------------------------
 import Core.Syntax
 import Core.TH                  (coreExpr)
-import Core.HindleyMilner       (infer)
+import Core.HindleyMilner       (infer, TypeError(..), HMError)
 import Test.Hspec
 ----------------------------------------------------------------------------------
 
@@ -14,6 +14,14 @@ import Test.Hspec
 spec :: Spec
 spec = do
     it "should infer `id 3` :: Int" $
-        let g = [ ("id", TyVar "a" :-> TyVar "a") ]
+        let g = [ ("id", "a" :-> "a") ]
         in infer g [coreExpr|id 3|] `shouldBe` Right TyInt
 
+    it "should not infer `id 3` when `id` is specialised to `a -> a`" $
+        let g = [ ("id", ("a" :-> "a") :-> "a" :-> "a") ]
+        in infer g [coreExpr|id 3|] `shouldSatisfy` isUntypedVariableErr
+
+isUntypedVariableErr :: HMError a -> Bool
+isUntypedVariableErr (Left (TyErrCouldNotUnify _ _)) = True
+isUntypedVariableErr _                               = False
+
-- 
2.52.0


From e222dae6ac4598b5a464a69fe886e550f82d7f19 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 18 Dec 2023 12:21:53 -0700
Subject: [PATCH 008/192] infer nonrec let binds

infer nonrec let binds
---
 rlp.cabal                     |  1 +
 src/Control/Monad/Utils.hs    | 21 +++++++++++++++++++++
 src/Core/HindleyMilner.hs     | 15 +++++++++++++--
 tst/Core/HindleyMilnerSpec.hs | 11 +++++++++++
 4 files changed, 46 insertions(+), 2 deletions(-)
 create mode 100644 src/Control/Monad/Utils.hs

diff --git a/rlp.cabal b/rlp.cabal
index f5b26ab..4803362 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -34,6 +34,7 @@ library
                     , Core.Lex
                     , Core2Core
                     , Control.Monad.Errorful
+                    , Control.Monad.Utils
                     , RLP.Syntax
 
     build-tool-depends: happy:happy, alex:alex
diff --git a/src/Control/Monad/Utils.hs b/src/Control/Monad/Utils.hs
new file mode 100644
index 0000000..6cc5521
--- /dev/null
+++ b/src/Control/Monad/Utils.hs
@@ -0,0 +1,21 @@
+module Control.Monad.Utils
+    ( mapAccumLM
+    )
+    where
+----------------------------------------------------------------------------------
+import Data.Tuple               (swap)
+import Control.Monad.State
+----------------------------------------------------------------------------------
+
+-- | Monadic variant of @mapAccumL@
+
+mapAccumLM :: forall m t s a b. (Monad m, Traversable t)
+           => (s -> a -> m (s, b))
+           -> s
+           -> t a
+           -> m (s, t b)
+mapAccumLM k s t = swap <$> runStateT (traverse k' t) s
+    where
+        k' :: a -> StateT s m b
+        k' a = StateT $ fmap swap <$> flip k a
+
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index b59b7a5..0897ece 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -13,10 +13,10 @@ module Core.HindleyMilner
 ----------------------------------------------------------------------------------
 import Lens.Micro
 import Lens.Micro.Mtl
-import Data.Set                 qualified as S
-import Data.Set                 (Set)
 import Data.Maybe               (fromMaybe)
+import Control.Monad            (foldM)
 import Control.Monad.State
+import Control.Monad.Utils      (mapAccumLM)
 import Core.Syntax
 ----------------------------------------------------------------------------------
 
@@ -85,6 +85,17 @@ gather = \g e -> runStateT (go g e) ([],0) <&> \ (t,(cs,_)) -> (t,cs) where
             tfx <- uniqueVar
             addConstraint tf (tx :-> tfx)
             pure tfx
+        Let NonRec bs e -> do
+            g' <- buildLetContext g bs
+            go g' e
+
+    buildLetContext :: Context' -> [Binding']
+                    -> StateT ([Constraint], Int) HMError Context'
+    buildLetContext = foldM k where
+        k :: Context' -> Binding' -> StateT ([Constraint], Int) HMError Context'
+        k g (x := y) = do
+            ty <- go g y
+            pure ((x,ty) : g)
 
 uniqueVar :: StateT ([Constraint], Int) HMError Type
 uniqueVar = do
diff --git a/tst/Core/HindleyMilnerSpec.hs b/tst/Core/HindleyMilnerSpec.hs
index c50be15..74a2468 100644
--- a/tst/Core/HindleyMilnerSpec.hs
+++ b/tst/Core/HindleyMilnerSpec.hs
@@ -21,6 +21,17 @@ spec = do
         let g = [ ("id", ("a" :-> "a") :-> "a" :-> "a") ]
         in infer g [coreExpr|id 3|] `shouldSatisfy` isUntypedVariableErr
 
+    -- TODO: property-based tests for let
+    it "should infer `let x = 3 in id x` :: Int" $
+        let g = [ ("id", "a" :-> "a") ]
+            e = [coreExpr|let {x = 3} in id x|]
+        in infer g e `shouldBe` Right TyInt
+
+    it "should infer `let x = 3; y = 2 in (+#) x y` :: Int" $
+        let g = [ ("+#", TyInt :-> TyInt :-> TyInt) ]
+            e = [coreExpr|let {x=3;y=2} in (+#) x y|]
+        in infer g e `shouldBe` Right TyInt
+
 isUntypedVariableErr :: HMError a -> Bool
 isUntypedVariableErr (Left (TyErrCouldNotUnify _ _)) = True
 isUntypedVariableErr _                               = False
-- 
2.52.0


From ac6f826141b384d95bdedbf6e563a76c5f312534 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 18 Dec 2023 15:30:39 -0700
Subject: [PATCH 009/192] small

---
 src/Core/HindleyMilner.hs | 2 +-
 src/Core/Syntax.hs        | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 0897ece..e159d8d 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -108,7 +108,7 @@ addConstraint t u = _1 %= ((t, u):)
 
 -- | Unify a list of constraints, meaning that pairs between types are turned
 -- into pairs of type variables and types. A useful thought model is to think of
--- it like solving an equation such that the unknown variable is the left-hand
+-- it as solving an equation such that the unknown variable is the left-hand
 -- side.
 
 unify :: [Constraint] -> HMError Context'
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index fab3170..1e99723 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -58,6 +58,7 @@ data Type = TyInt
           | TyFun
           | TyVar Name
           | TyApp Type Type
+          | TyCon Name
           deriving (Show, Read, Lift, Eq)
 
 type TyCon = Name
-- 
2.52.0


From 52b7723ea058a30f7a4d5f351f408e6d324856d4 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 18 Dec 2023 15:38:26 -0700
Subject: [PATCH 010/192] LitE -> Lit

---
 src/Core/HindleyMilner.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index e159d8d..9c4ac73 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -76,7 +76,7 @@ gather :: Context' -> Expr' -> HMError (Type, [Constraint])
 gather = \g e -> runStateT (go g e) ([],0) <&> \ (t,(cs,_)) -> (t,cs) where
     go :: Context' -> Expr' -> StateT ([Constraint], Int) HMError Type
     go g = \case
-        LitE (IntL _) -> pure TyInt
+        Lit (IntL _)  -> pure TyInt
         Var k         -> lift $ maybe e Right $ lookup k g
             where e = Left (TyErrUntypedVariable k)
         App f x       -> do
-- 
2.52.0


From d9547346601c052bfe91bdec68970f49396d82fb Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 18 Dec 2023 15:42:41 -0700
Subject: [PATCH 011/192] LitE -> Lit

---
 tst/Arith.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tst/Arith.hs b/tst/Arith.hs
index ea91311..700849b 100644
--- a/tst/Arith.hs
+++ b/tst/Arith.hs
@@ -76,7 +76,7 @@ toCore expr = Program
         ]
     where
         go :: ArithExpr -> Expr'
-        go (IntA n)    = LitE (IntL n)
+        go (IntA n)    = Lit (IntL n)
         go (NegateA e) = "negate#" :$ go e
         go (IdA e)     = "id" :$ go e
         go (a :+ b)    = f "+#" a b
-- 
2.52.0


From 6f522d34ff2191461c48b84b9045ecd7875bcc71 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 20 Dec 2023 14:12:45 -0700
Subject: [PATCH 012/192] TyInt -> TyCon "Int#"

---
 src/Core/Syntax.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 1e99723..24d13b9 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -7,6 +7,7 @@ Description : Core ASTs and the like
 module Core.Syntax
     ( Expr(..)
     , Type(..)
+    , pattern TyInt
     , Lit(..)
     , pattern (:$)
     , pattern (:@)
@@ -54,14 +55,14 @@ data Expr b = Var Name
 
 deriving instance (Eq b) => Eq (Expr b)
 
-data Type = TyInt
-          | TyFun
+data Type = TyFun
           | TyVar Name
           | TyApp Type Type
           | TyCon Name
           deriving (Show, Read, Lift, Eq)
 
-type TyCon = Name
+pattern TyInt :: Type
+pattern TyInt = TyCon "Int#"
 
 infixl 2 :$
 pattern (:$) :: Expr b -> Expr b -> Expr b 
-- 
2.52.0


From 414312cf98c34c703e95448f6664f96d8be0fc7c Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 20 Dec 2023 13:41:43 -0700
Subject: [PATCH 013/192] parse type sigs; program type sigs

---
 src/Core/Examples.hs | 63 +++++++++++++++++++++++++-------------------
 src/Core/Lex.x       |  2 ++
 src/Core/Parse.y     | 24 ++++++++++++++++-
 src/Core/Syntax.hs   | 21 +++++++++++----
 src/Core/Utils.hs    |  7 ++---
 src/Core2Core.hs     |  2 +-
 src/GM.hs            | 10 ++++---
 7 files changed, 88 insertions(+), 41 deletions(-)

diff --git a/src/Core/Examples.hs b/src/Core/Examples.hs
index 430a94f..cb1823e 100644
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -15,7 +15,14 @@ import Core.Syntax
 import Core.TH
 ----------------------------------------------------------------------------------
 
--- TODO: my shitty lexer isn't inserting semicolons
+--
+fac3 = undefined
+sumList = undefined
+constDivZero = undefined
+idCase = undefined
+--}
+
+{--
 
 letrecExample :: Program'
 letrecExample = [coreProg|
@@ -191,30 +198,32 @@ idCase = [coreProg|
             })
     |]
 
-corePrelude :: Module Name
-corePrelude = Module (Just ("Prelude", [])) $
-    -- non-primitive defs
-    [coreProg|
-        id x = x;
-        k x y = x;
-        k1 x y = y;
-        s f g x = f x (g x);
-        compose f g x = f (g x);
-        twice f x = f (f x);
-        fst p = casePair# p k;
-        snd p = casePair# p k1;
-        head l = caseList# l abort# k;
-        tail l = caseList# l abort# k1;
-        _length_cc x xs = (+#) 1 (length xs);
-        length l = caseList# l 0 length_cc;
-    |]
-    <>
-    -- primitive constructors need some specialised wiring:
-    Program
-        [ ScDef "False" [] $ Con 0 0
-        , ScDef "True" [] $ Con 1 0
-        , ScDef "MkPair" [] $ Con 0 2
-        , ScDef "Nil" [] $ Con 1 0
-        , ScDef "Cons" [] $ Con 2 2
-        ]
+-- corePrelude :: Module Name
+-- corePrelude = Module (Just ("Prelude", [])) $
+--     -- non-primitive defs
+--     [coreProg|
+--         id x = x;
+--         k x y = x;
+--         k1 x y = y;
+--         s f g x = f x (g x);
+--         compose f g x = f (g x);
+--         twice f x = f (f x);
+--         fst p = casePair# p k;
+--         snd p = casePair# p k1;
+--         head l = caseList# l abort# k;
+--         tail l = caseList# l abort# k1;
+--         _length_cc x xs = (+#) 1 (length xs);
+--         length l = caseList# l 0 length_cc;
+--     |]
+--     <>
+--     -- primitive constructors need some specialised wiring:
+--     Program
+--         [ ScDef "False" [] $ Con 0 0
+--         , ScDef "True" [] $ Con 1 0
+--         , ScDef "MkPair" [] $ Con 0 2
+--         , ScDef "Nil" [] $ Con 1 0
+--         , ScDef "Cons" [] $ Con 2 2
+--         ]
+
+--}
 
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index b666d69..55946e8 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -68,6 +68,7 @@ rlp :-
     "{"                     { constTok TokenLBrace }
     "}"                     { constTok TokenRBrace }
     ";"                     { constTok TokenSemicolon }
+    "::"                    { constTok TokenHasType }
     "@"                     { constTok TokenTypeApp }
     "{-#"                   { constTok TokenLPragma `andBegin` pragma }
 
@@ -134,6 +135,7 @@ data CoreToken = TokenLet
                | TokenLBrace
                | TokenRBrace
                | TokenSemicolon
+               | TokenHasType
                | TokenTypeApp
                | TokenLPragma
                | TokenRPragma
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 4dab15a..a2f8496 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -19,7 +19,10 @@ import Data.Foldable        (foldl')
 import Core.Syntax
 import Core.Lex
 import Compiler.RLPC
+import Lens.Micro
 import Data.Default.Class   (def)
+import Data.Hashable        (Hashable)
+import Data.HashMap.Strict  qualified as H
 }
 
 %name parseCore Module
@@ -55,6 +58,7 @@ import Data.Default.Class   (def)
       '{-#'           { Located _ _ _ TokenLPragma }
       '#-}'           { Located _ _ _ TokenRPragma }
       ';'             { Located _ _ _ TokenSemicolon }
+      '::'            { Located _ _ _ TokenHasType }
       eof             { Located _ _ _ TokenEOF }
 
 %%
@@ -71,7 +75,15 @@ StandaloneProgram :: { Program Name }
 StandaloneProgram : Program eof                 { $1 }
 
 Program         :: { Program Name }
-Program         : ScDefs                        { Program $1 }
+Program         : ScTypeSig ';' Program         { insTypeSig $1 $3 }
+                | ScTypeSig OptSemi             { singletonTypeSig $1 }
+
+OptSemi         :: { () }
+OptSemi         : ';'                           { () }
+                | {- epsilon -}                 { () }
+
+ScTypeSig       :: { (Name, Type) }
+ScTypeSig       : Var '::' Type                 { ($1,$3) }
 
 ScDefs          :: { [ScDef Name] }
 ScDefs          : ScDef ';' ScDefs              { $1 : $3 }
@@ -82,6 +94,9 @@ ScDefs          : ScDef ';' ScDefs              { $1 : $3 }
 ScDef           :: { ScDef Name }
 ScDef           : Var ParList '=' Expr          { ScDef $1 $2 $4 }
 
+Type            :: { Type }
+Type            : Var                           { TyInt }
+
 ParList         :: { [Name] }
 ParList         : Var ParList                   { $1 : $2 }
                 | {- epsilon -}                 { [] }
@@ -190,5 +205,12 @@ exprPragma _           = addFatal err
 astPragma :: [String] -> RLPC SrcError (Expr Name)
 astPragma = pure . read . unwords
 
+insTypeSig :: (Hashable b) => (b, Type) -> Program b -> Program b
+insTypeSig ts = programTypeSigs %~ uncurry H.insert ts
+
+singletonTypeSig :: (Hashable b) => (b, Type) -> Program b
+singletonTypeSig ts = mempty
+                    & programTypeSigs .~ uncurry H.singleton ts
+
 }
 
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 24d13b9..8f20599 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -4,6 +4,7 @@ Description : Core ASTs and the like
 -}
 {-# LANGUAGE PatternSynonyms, OverloadedStrings #-}
 {-# LANGUAGE FunctionalDependencies #-}
+{-# LANGUAGE TemplateHaskell #-}
 module Core.Syntax
     ( Expr(..)
     , Type(..)
@@ -24,6 +25,7 @@ module Core.Syntax
     , Program(..)
     , Program'
     , programScDefs
+    , programTypeSigs
     , Expr'
     , ScDef'
     , Alter'
@@ -39,8 +41,11 @@ import GHC.Generics
 import Data.List                    (intersperse)
 import Data.Function                ((&))
 import Data.String
+import Data.HashMap.Strict          qualified as H
+import Data.Hashable
 -- Lift instances for the Core quasiquoters
 import Language.Haskell.TH.Syntax   (Lift)
+import Lens.Micro.TH                (makeLenses)
 import Lens.Micro
 ----------------------------------------------------------------------------------
 
@@ -113,11 +118,14 @@ data ScDef b = ScDef b [b] (Expr b)
 data Module b = Module (Maybe (Name, [Name])) (Program b)
     deriving (Show, Lift)
 
-newtype Program b = Program [ScDef b]
+data Program b = Program
+    { _programScDefs   :: [ScDef b]
+    , _programTypeSigs :: H.HashMap b Type
+    }
     deriving (Show, Lift)
 
-programScDefs :: Lens' (Program b) [ScDef b]
-programScDefs = lens coerce (const coerce)
+makeLenses ''Program
+pure []
 
 type Program' = Program Name
 type Expr' = Expr Name
@@ -134,8 +142,11 @@ instance IsString Type where
 instance Semigroup (Program b) where
     (<>) = coerce $ (<>) @[ScDef b] 
 
-instance Monoid (Program b) where
-    mempty = Program []
+instance (Hashable b) => Semigroup (Program b) where
+    (<>) = undefined
+
+instance (Hashable b) => Monoid (Program b) where
+    mempty = Program mempty mempty
 
 ----------------------------------------------------------------------------------
 
diff --git a/src/Core/Utils.hs b/src/Core/Utils.hs
index 892a7e3..1a47785 100644
--- a/src/Core/Utils.hs
+++ b/src/Core/Utils.hs
@@ -7,7 +7,7 @@ module Core.Utils
     ( bindersOf
     , rhssOf
     , isAtomic
-    , insertModule
+    -- , insertModule
     , extractProgram
     , freeVariables
     , ExprF(..)
@@ -19,6 +19,7 @@ import Data.Functor.Foldable
 import Data.Set                     (Set)
 import Data.Set                     qualified as S
 import Core.Syntax
+import Lens.Micro
 import GHC.Exts                     (IsList(..))
 ----------------------------------------------------------------------------------
 
@@ -38,8 +39,8 @@ isAtomic _        = False
 ----------------------------------------------------------------------------------
 
 -- TODO: export list awareness
-insertModule :: Module b -> Program b -> Program b
-insertModule (Module _ m) p = p <> m
+-- insertModule :: Module b -> Program b -> Program b
+-- insertModule (Module _ p) = programScDefs %~ (<>m)
 
 extractProgram :: Module b -> Program b
 extractProgram (Module _ p) = p
diff --git a/src/Core2Core.hs b/src/Core2Core.hs
index 7aa9dc6..aca3552 100644
--- a/src/Core2Core.hs
+++ b/src/Core2Core.hs
@@ -27,7 +27,7 @@ core2core :: Program' -> Program'
 core2core p = undefined
 
 gmPrep :: Program' -> Program'
-gmPrep p = p' <> Program caseScs
+gmPrep p = p' & programScDefs %~ (<>caseScs)
     where
         rhss :: Applicative f => (Expr z -> f (Expr z)) -> Program z -> f (Program z)
         rhss = programScDefs . each . _rhs
diff --git a/src/GM.hs b/src/GM.hs
index 00f125f..7efd0cd 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -22,6 +22,7 @@ import Data.Maybe                   (fromMaybe, mapMaybe)
 import Data.Monoid                  (Endo(..))
 import Data.Tuple                   (swap)
 import Lens.Micro
+import Lens.Micro.Extras            (view)
 import Lens.Micro.TH
 import Text.Printf
 import Text.PrettyPrint             hiding ((<>))
@@ -582,7 +583,7 @@ compiledPrims =
         binop k i = (k, 2, [Push 1, Eval, Push 1, Eval, i, Update 2, Pop 2, Unwind])
 
 buildInitialHeap :: Program' -> (GmHeap, Env)
-buildInitialHeap (Program ss) = mapAccumL allocateSc mempty compiledScs
+buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compiledScs
     where
         compiledScs = fmap compileSc ss <> compiledPrims
 
@@ -975,7 +976,8 @@ resultOf p = do
         h = st ^. gmHeap
 
 resultOfExpr :: Expr' -> Maybe Node
-resultOfExpr e = resultOf $ Program
-    [ ScDef "main" [] e
-    ]
+resultOfExpr e = resultOf $
+    mempty & programScDefs .~
+                [ ScDef "main" [] e
+                ]
 
-- 
2.52.0


From fe90c9afb0c017e7636ace00d111deac04d2ed4e Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 20 Dec 2023 14:10:33 -0700
Subject: [PATCH 014/192] parse types

---
 src/Core/Parse.y   | 9 ++++++++-
 src/Core/Syntax.hs | 3 ---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index a2f8496..129fb77 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -95,7 +95,14 @@ ScDef           :: { ScDef Name }
 ScDef           : Var ParList '=' Expr          { ScDef $1 $2 $4 }
 
 Type            :: { Type }
-Type            : Var                           { TyInt }
+Type            : Type1                         { $1 }
+
+Type1           :: { Type }
+Type1           : '(' Type ')'                  { $2 }
+                | Type1 '->' Type               { $1 :-> $3 }
+                -- do we want to use Var instead, permitting symbolic type vars?
+                | varname                       { TyVar $1 }
+                | conname                       { TyCon $1 }
 
 ParList         :: { [Name] }
 ParList         : Var ParList                   { $1 : $2 }
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 8f20599..46179ca 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -139,9 +139,6 @@ instance IsString (Expr b) where
 instance IsString Type where
     fromString = TyVar
 
-instance Semigroup (Program b) where
-    (<>) = coerce $ (<>) @[ScDef b] 
-
 instance (Hashable b) => Semigroup (Program b) where
     (<>) = undefined
 
-- 
2.52.0


From 5c9bf40e40f3912a9ba4fe752268d66bc46e9a72 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 20 Dec 2023 14:42:35 -0700
Subject: [PATCH 015/192] parse programs (with types :D)

---
 src/Core/Examples.hs | 11 -----------
 src/Core/Parse.y     | 11 +++++++++--
 2 files changed, 9 insertions(+), 13 deletions(-)

diff --git a/src/Core/Examples.hs b/src/Core/Examples.hs
index cb1823e..efe953d 100644
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -15,15 +15,6 @@ import Core.Syntax
 import Core.TH
 ----------------------------------------------------------------------------------
 
---
-fac3 = undefined
-sumList = undefined
-constDivZero = undefined
-idCase = undefined
---}
-
-{--
-
 letrecExample :: Program'
 letrecExample = [coreProg|
     pair x y f = f x y;
@@ -225,5 +216,3 @@ idCase = [coreProg|
 --         , ScDef "Cons" [] $ Con 2 2
 --         ]
 
---}
-
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 129fb77..111fe59 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -77,6 +77,8 @@ StandaloneProgram : Program eof                 { $1 }
 Program         :: { Program Name }
 Program         : ScTypeSig ';' Program         { insTypeSig $1 $3 }
                 | ScTypeSig OptSemi             { singletonTypeSig $1 }
+                | ScDef     ';' Program         { insScDef $1 $3 }
+                | ScDef     OptSemi             { singletonScDef $1 }
 
 OptSemi         :: { () }
 OptSemi         : ';'                           { () }
@@ -216,8 +218,13 @@ insTypeSig :: (Hashable b) => (b, Type) -> Program b -> Program b
 insTypeSig ts = programTypeSigs %~ uncurry H.insert ts
 
 singletonTypeSig :: (Hashable b) => (b, Type) -> Program b
-singletonTypeSig ts = mempty
-                    & programTypeSigs .~ uncurry H.singleton ts
+singletonTypeSig ts = insTypeSig ts mempty
+
+insScDef :: (Hashable b) => ScDef b -> Program b -> Program b
+insScDef sc = programScDefs %~ (sc:)
+
+singletonScDef :: (Hashable b) => ScDef b -> Program b
+singletonScDef sc = insScDef sc mempty
 
 }
 
-- 
2.52.0


From 07be32c618682853d3cb37a0233e1301f0260be4 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 20 Dec 2023 14:49:40 -0700
Subject: [PATCH 016/192] parse programs (with type sigs :D)

---
 src/Core/Parse.y | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 111fe59..da8878b 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -102,7 +102,7 @@ Type            : Type1                         { $1 }
 Type1           :: { Type }
 Type1           : '(' Type ')'                  { $2 }
                 | Type1 '->' Type               { $1 :-> $3 }
-                -- do we want to use Var instead, permitting symbolic type vars?
+                -- do we want to allow symbolic names for tyvars and tycons?
                 | varname                       { TyVar $1 }
                 | conname                       { TyCon $1 }
 
-- 
2.52.0


From c2960e4acc6f7c3874f13c6d5e5e344071d23b8f Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 20 Dec 2023 15:37:01 -0700
Subject: [PATCH 017/192] Name = Text

Name = Text
---
 app/Main.hs               | 11 +++++++----
 rlp.cabal                 |  2 ++
 src/Core/HindleyMilner.hs |  3 ++-
 src/Core/Lex.x            | 18 +++++++++++-------
 src/Core/Parse.y          |  9 ++++++---
 src/Core/Syntax.hs        |  7 ++++---
 src/Core/TH.hs            |  9 +++++----
 src/Core2Core.hs          |  3 ++-
 src/GM.hs                 | 20 +++++++++++++-------
 9 files changed, 52 insertions(+), 30 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 7b0b18d..f48824b 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -7,6 +7,9 @@ import Options.Applicative      hiding (ParseError)
 import Control.Monad
 import Control.Monad.Reader
 import Data.HashSet             qualified as S
+import Data.Text                (Text)
+import Data.Text                qualified as T
+import Data.Text.IO             qualified as TIO
 import System.IO
 import System.Exit              (exitSuccess)
 import Core
@@ -102,7 +105,7 @@ dshowFlags = whenFlag flagDDumpOpts do
 ddumpAST :: RLPCIO CompilerError ()
 ddumpAST = whenFlag flagDDumpAST $ forFiles_ \o f -> do
     liftIO $ withFile f ReadMode $ \h -> do
-        s <- hGetContents h
+        s <- TIO.hGetContents h
         case parseProg o s of
             Right (a,_) -> hPutStrLn stderr $ show a
             Left e -> error "todo errors lol"
@@ -110,10 +113,10 @@ ddumpAST = whenFlag flagDDumpAST $ forFiles_ \o f -> do
 ddumpEval :: RLPCIO CompilerError ()
 ddumpEval = whenFlag flagDDumpEval do
     fs <- view rlpcInputFiles
-    forM_ fs $ \f -> liftIO (readFile f) >>= doProg
+    forM_ fs $ \f -> liftIO (TIO.readFile f) >>= doProg
 
     where
-        doProg :: String -> RLPCIO CompilerError ()
+        doProg :: Text -> RLPCIO CompilerError ()
         doProg s = ask >>= \o -> case parseProg o s of
             -- TODO: error handling
             Left e -> addFatal . CompilerError $ show e
@@ -133,7 +136,7 @@ ddumpEval = whenFlag flagDDumpEval do
             where v f p h = f p h *> pure ()
 
 parseProg :: RLPCOptions
-          -> String
+          -> Text
           -> Either SrcError (Program', [SrcError])
 parseProg o = evalRLPC o . (lexCore >=> parseCoreProg)
 
diff --git a/rlp.cabal b/rlp.cabal
index 4803362..990386f 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -45,6 +45,7 @@ library
                     , microlens
                     , microlens-mtl
                     , microlens-th
+                    , microlens-platform
                     , mtl
                     , template-haskell
                     -- required for happy
@@ -74,6 +75,7 @@ executable rlpc
                  , microlens-mtl
                  , mtl
                  , unordered-containers
+                 , text
 
     hs-source-dirs:   app
     default-language: GHC2021
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 9c4ac73..18bd346 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -14,6 +14,7 @@ module Core.HindleyMilner
 import Lens.Micro
 import Lens.Micro.Mtl
 import Data.Maybe               (fromMaybe)
+import Data.Text                qualified as T
 import Control.Monad            (foldM)
 import Control.Monad.State
 import Control.Monad.Utils      (mapAccumLM)
@@ -101,7 +102,7 @@ uniqueVar :: StateT ([Constraint], Int) HMError Type
 uniqueVar = do
     n <- use _2
     _2 %= succ
-    pure (TyVar $ '$' : 'a' : show n)
+    pure (TyVar . T.pack $ '$' : 'a' : show n)
 
 addConstraint :: Type -> Type -> StateT ([Constraint], Int) HMError ()
 addConstraint t u = _1 %= ((t, u):)
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index 55946e8..0cf9795 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -3,6 +3,7 @@
 Module      : Core.Lex
 Description : Lexical analysis for the core language
 -}
+{-# LANGUAGE OverloadedStrings #-}
 module Core.Lex
     ( lexCore
     , lexCore'
@@ -15,13 +16,16 @@ module Core.Lex
     where
 import Data.Char (chr)
 import Debug.Trace
+import Data.Text            (Text)
+import Data.Text            qualified as T
+import Data.String          (IsString(..))
 import Core.Syntax
 import Compiler.RLPC
 import Lens.Micro
 import Lens.Micro.TH
 }
 
-%wrapper "monad"
+%wrapper "monad-strict-text"
 
 $whitechar = [ \t\n\r\f\v]
 $special   = [\(\)\,\;\[\]\{\}]
@@ -91,7 +95,7 @@ rlp :-
     @varsym                 { lexWith TokenVarSym }
     @consym                 { lexWith TokenConSym }
 
-    @decimal                { lexWith (TokenLitInt . read @Int) }
+    @decimal                { lexWith (TokenLitInt . read @Int . T.unpack) }
 
     $white                  { skip }
     \n                      { skip }
@@ -139,7 +143,7 @@ data CoreToken = TokenLet
                | TokenTypeApp
                | TokenLPragma
                | TokenRPragma
-               | TokenWord String
+               | TokenWord Text
                | TokenEOF
                deriving Show
 
@@ -157,11 +161,11 @@ data SrcErrorType = SrcErrLexical String
 
 type Lexer = AlexInput -> Int -> Alex (Located CoreToken)
 
-lexWith :: (String -> CoreToken) -> Lexer
-lexWith f (AlexPn _ y x,_,_,s) l = pure $ Located y x l (f $ take l s)
+lexWith :: (Text -> CoreToken) -> Lexer
+lexWith f (AlexPn _ y x,_,_,s) l = pure $ Located y x l (f $ T.take l s)
 
 -- | The main lexer driver.
-lexCore :: String -> RLPC SrcError [Located CoreToken]
+lexCore :: Text -> RLPC SrcError [Located CoreToken]
 lexCore s = case m of
     Left e   -> addFatal err
         where err = SrcError
@@ -175,7 +179,7 @@ lexCore s = case m of
 
 -- | @lexCore@, but the tokens are stripped of location info. Useful for
 -- debugging
-lexCore' :: String -> RLPC SrcError [CoreToken]
+lexCore' :: Text -> RLPC SrcError [CoreToken]
 lexCore' s = fmap f <$> lexCore s
     where f (Located _ _ _ t) = t
 
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index da8878b..0133d15 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -3,6 +3,7 @@
 Module : Core.Parse
 Description : Parser for the Core language
 -}
+{-# LANGUAGE OverloadedStrings #-}
 module Core.Parse
     ( parseCore
     , parseCoreExpr
@@ -22,6 +23,8 @@ import Compiler.RLPC
 import Lens.Micro
 import Data.Default.Class   (def)
 import Data.Hashable        (Hashable)
+import Data.Text.IO         qualified as TIO
+import Data.Text            qualified as T
 import Data.HashMap.Strict  qualified as H
 }
 
@@ -157,8 +160,8 @@ ExprPragma      :: { Expr Name }
 ExprPragma      : '{-#' Words '#-}'      {% exprPragma $2 }
 
 Words           :: { [String] }
-Words           : word Words                    { $1 : $2 }
-                | word                          { [$1] }
+Words           : word Words                    { T.unpack $1 : $2 }
+                | word                          { [T.unpack $1] }
 
 PackCon         :: { Expr Name }
 PackCon         : pack '{' litint litint '}'    { Con $3 $4 }
@@ -195,7 +198,7 @@ parseError (Located y x l _ : _) = addFatal err
 
 parseTmp :: IO (Module Name)
 parseTmp = do
-    s <- readFile "/tmp/t.hs"
+    s <- TIO.readFile "/tmp/t.hs"
     case parse s of
         Left e -> error (show e)
         Right (ts,_) -> pure ts
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 46179ca..ddc3b66 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -43,6 +43,7 @@ import Data.Function                ((&))
 import Data.String
 import Data.HashMap.Strict          qualified as H
 import Data.Hashable
+import Data.Text                    qualified as T
 -- Lift instances for the Core quasiquoters
 import Language.Haskell.TH.Syntax   (Lift)
 import Lens.Micro.TH                (makeLenses)
@@ -109,7 +110,7 @@ data AltCon = AltData Tag
 data Lit = IntL Int
     deriving (Show, Read, Eq, Lift)
 
-type Name = String
+type Name = T.Text
 type Tag = Int
 
 data ScDef b = ScDef b [b] (Expr b)
@@ -134,10 +135,10 @@ type Alter' = Alter Name
 type Binding' = Binding Name
 
 instance IsString (Expr b) where
-    fromString = Var
+    fromString = Var . fromString
 
 instance IsString Type where
-    fromString = TyVar
+    fromString = TyVar . fromString
 
 instance (Hashable b) => Semigroup (Program b) where
     (<>) = undefined
diff --git a/src/Core/TH.hs b/src/Core/TH.hs
index 5239239..72ec901 100644
--- a/src/Core/TH.hs
+++ b/src/Core/TH.hs
@@ -10,11 +10,12 @@ module Core.TH
     where
 ----------------------------------------------------------------------------------
 import Language.Haskell.TH
-import Language.Haskell.TH.Syntax hiding (Module)
+import Language.Haskell.TH.Syntax   hiding (Module)
 import Language.Haskell.TH.Quote
 import Control.Monad                ((>=>))
 import Compiler.RLPC
 import Data.Default.Class           (def)
+import Data.Text                    qualified as T
 import Core.Parse
 import Core.Lex
 ----------------------------------------------------------------------------------
@@ -44,21 +45,21 @@ coreExpr = QuasiQuoter
     }
 
 qCore :: String -> Q Exp
-qCore s = case parse s of
+qCore s = case parse (T.pack s) of
     Left e       -> error (show e)
     Right (m,ts) -> lift m
     where
         parse = evalRLPC def . (lexCore >=> parseCore)
 
 qCoreExpr :: String -> Q Exp
-qCoreExpr s = case parseExpr s of
+qCoreExpr s = case parseExpr (T.pack s) of
     Left e       -> error (show e)
     Right (m,ts) -> lift m
     where
         parseExpr = evalRLPC def . (lexCore >=> parseCoreExpr)
 
 qCoreProg :: String -> Q Exp
-qCoreProg s = case parseProg s of
+qCoreProg s = case parseProg (T.pack s) of
     Left e       -> error (show e)
     Right (m,ts) -> lift m
     where
diff --git a/src/Core2Core.hs b/src/Core2Core.hs
index aca3552..5088dab 100644
--- a/src/Core2Core.hs
+++ b/src/Core2Core.hs
@@ -17,6 +17,7 @@ import Data.List
 import Control.Monad.Writer
 import Control.Monad.State
 import Control.Arrow            ((>>>))
+import Data.Text                qualified as T
 import Numeric                  (showHex)
 import Lens.Micro
 import Core.Syntax
@@ -46,7 +47,7 @@ type Floater = StateT [Name] (Writer [ScDef'])
 runFloater :: Floater a -> (a, [ScDef'])
 runFloater = flip evalStateT ns >>> runWriter
     where
-        ns = [ "$nonstrict_case_" ++ showHex n "" | n <- [0..] ]
+        ns = [ T.pack $ "$nonstrict_case_" ++ showHex n "" | n <- [0..] ]
 
 -- TODO: formally define a "strict context" and reference that here
 -- the returned ScDefs are guaranteed to be free of non-strict cases.
diff --git a/src/GM.hs b/src/GM.hs
index 7efd0cd..8b91393 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -24,6 +24,8 @@ import Data.Tuple                   (swap)
 import Lens.Micro
 import Lens.Micro.Extras            (view)
 import Lens.Micro.TH
+import Lens.Micro.Platform          (packed, unpacked)
+import Lens.Micro.Platform.Internal (IsText(..))
 import Text.Printf
 import Text.PrettyPrint             hiding ((<>))
 import Text.PrettyPrint.HughesPJ    (maybeParens)
@@ -282,7 +284,7 @@ step st = case head (st ^. gmCode) of
                 m = st ^. gmEnv
                 s = st ^. gmStack
                 h = st ^. gmHeap
-                n' = show n
+                n' = show n ^. packed
 
         -- Core Rule 2. (no sharing)
         -- pushIntI :: Int -> GmState
@@ -613,7 +615,8 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
             | k `elem` domain  = [Push n]
             | otherwise        = [PushGlobal k]
             where
-                n = fromMaybe (error $ "undeclared var: " <> k) $ lookupN k g
+                n = fromMaybe err $ lookupN k g
+                err = error $ "undeclared var: " <> (k ^. unpacked)
                 domain = f `mapMaybe` g
                 f (NameKey n, _) = Just n
                 f _              = Nothing
@@ -739,8 +742,8 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
         argOffset :: Int -> Env -> Env
         argOffset n = each . _2 %~ (+n)
 
-idPack :: Tag -> Int -> String
-idPack t n = printf "Pack{%d %d}" t n
+showCon :: (IsText a) => Tag -> Int -> a
+showCon t n = printf "Pack{%d %d}" t n ^. packed
 
 ----------------------------------------------------------------------------------
 
@@ -856,12 +859,12 @@ showNodeAt = showNodeAtP 0
 showNodeAtP :: Int -> GmState -> Addr -> Doc
 showNodeAtP p st a = case hLookup a h of
     Just (NNum n)        -> int n <> "#"
-    Just (NGlobal _ _)   -> text name
+    Just (NGlobal _ _)   -> textt name
         where
             g = st ^. gmEnv
             name = case lookup a (swap <$> g) of
                 Just (NameKey n)     -> n
-                Just (ConstrKey t n) -> idPack t n
+                Just (ConstrKey t n) -> showCon t n
                 _                    -> errTxtInvalidAddress
     -- TODO: left-associativity
     Just (NAp f x)       -> pprec $ showNodeAtP (p+1) st f
@@ -878,7 +881,7 @@ showNodeAtP p st a = case hLookup a h of
         pprec = maybeParens (p > 0)
 
 showSc :: GmState -> (Name, Addr) -> Doc
-showSc st (k,a) = "Supercomb " <> qquotes (text k) <> colon
+showSc st (k,a) = "Supercomb " <> qquotes (textt k) <> colon
                $$ code
     where
         code = case hLookup a (st ^. gmHeap) of
@@ -901,6 +904,9 @@ showInstr (CaseJump alts) = "CaseJump" $$ nest pprTabstop alternatives
         alternatives = foldr (\a acc -> showAlt a $$ acc) mempty alts
 showInstr i = text $ show i
 
+textt :: (IsText a) => a -> Doc
+textt t = t ^. unpacked & text
+
 ----------------------------------------------------------------------------------
 
 lookupN :: Name -> Env -> Maybe Addr
-- 
2.52.0


From 526bf0734eee6254fa9606626aa4caeb6650a09f Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 28 Dec 2023 15:55:24 -0700
Subject: [PATCH 018/192] RlpcError

---
 rlp.cabal                     |  1 +
 src/Compiler/RLPC.hs          | 19 ++++++++++++++++---
 src/Compiler/RlpcError.hs     | 15 +++++++++++++++
 src/Control/Monad/Errorful.hs |  8 ++++++++
 src/Core/Lex.x                | 13 +++++++++++++
 src/Core/Parse.y              |  4 ++++
 src/Core/TH.hs                |  2 +-
 7 files changed, 58 insertions(+), 4 deletions(-)
 create mode 100644 src/Compiler/RlpcError.hs

diff --git a/rlp.cabal b/rlp.cabal
index 990386f..34a5c00 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -22,6 +22,7 @@ library
                     , TI
                     , GM
                     , Compiler.RLPC
+                    , Compiler.RlpcError
                     , Core.Syntax
                     , Core.Examples
                     , Core.Utils
diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 9cd1454..e1e6778 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -16,6 +16,7 @@ module Compiler.RLPC
     , RLPCT
     , RLPCIO
     , RLPCOptions(RLPCOptions)
+    , RlpcError(..)
     , addFatal
     , addWound
     , MonadErrorful
@@ -24,6 +25,9 @@ module Compiler.RLPC
     , evalRLPCT
     , evalRLPCIO
     , evalRLPC
+    , addRlpcWound
+    , addRlpcFatal
+    , liftRlpcErrs
     , rlpcLogFile
     , rlpcDebugOpts
     , rlpcEvaluator
@@ -42,6 +46,7 @@ import Control.Exception
 import Control.Monad.Reader
 import Control.Monad.State      (MonadState(state))
 import Control.Monad.Errorful
+import Compiler.RlpcError
 import Data.Functor.Identity
 import Data.Default.Class
 import GHC.Generics             (Generic)
@@ -115,13 +120,21 @@ data Severity = Error
 -- temporary until we have a new doc building system
 type ErrorDoc = String
 
-class Diagnostic e where
-    errorDoc :: e -> ErrorDoc
-
 instance (Monad m) => MonadErrorful e (RLPCT e m) where
     addWound = RLPCT . lift . addWound
     addFatal = RLPCT . lift . addFatal
 
+liftRlpcErrs :: (IsRlpcError e, Monad m)
+             => RLPCT e m a -> RLPCT RlpcError m a
+liftRlpcErrs m = RLPCT . ReaderT $ \r ->
+    mapErrors liftRlpcErr $ runRLPCT >>> (`runReaderT` r) $ m
+
+addRlpcWound :: (IsRlpcError e, Monad m) => e -> RLPCT RlpcError m ()
+addRlpcWound = addWound . liftRlpcErr
+
+addRlpcFatal :: (IsRlpcError e, Monad m) => e -> RLPCT RlpcError m ()
+addRlpcFatal = addWound . liftRlpcErr
+
 ----------------------------------------------------------------------------------
 
 instance Default RLPCOptions where
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
new file mode 100644
index 0000000..581d301
--- /dev/null
+++ b/src/Compiler/RlpcError.hs
@@ -0,0 +1,15 @@
+module Compiler.RlpcError
+    ( RlpcError(..)
+    , IsRlpcError(..)
+    )
+    where
+----------------------------------------------------------------------------------
+import Control.Monad.Errorful
+----------------------------------------------------------------------------------
+
+data RlpcError = RlpcErr String -- temp
+    deriving Show
+
+class IsRlpcError a where
+    liftRlpcErr :: a -> RlpcError
+
diff --git a/src/Control/Monad/Errorful.hs b/src/Control/Monad/Errorful.hs
index bcfd4a3..789a4ad 100644
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -6,6 +6,7 @@ module Control.Monad.Errorful
     , runErrorfulT
     , Errorful
     , runErrorful
+    , mapErrors
     , MonadErrorful(..)
     )
     where
@@ -63,3 +64,10 @@ instance (Monad m) => Monad (ErrorfulT e m) where
             Right (a,es) -> runErrorfulT (k a)
             Left e       -> pure (Left e)
 
+mapErrors :: (Monad m) => (e -> e') -> ErrorfulT e m a -> ErrorfulT e' m a
+mapErrors f m = ErrorfulT $ do
+    x <- runErrorfulT m
+    case x of
+        Left  e      -> pure . Left  $ f e
+        Right (a,es) -> pure . Right $ (a, f <$> es)
+
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index 0cf9795..341b51b 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -6,6 +6,7 @@ Description : Lexical analysis for the core language
 {-# LANGUAGE OverloadedStrings #-}
 module Core.Lex
     ( lexCore
+    , lexCoreR
     , lexCore'
     , CoreToken(..)
     , SrcError(..)
@@ -21,6 +22,7 @@ import Data.Text            qualified as T
 import Data.String          (IsString(..))
 import Core.Syntax
 import Compiler.RLPC
+import Compiler.RlpcError
 import Lens.Micro
 import Lens.Micro.TH
 }
@@ -177,6 +179,9 @@ lexCore s = case m of
     where
         m = runAlex s lexStream
 
+lexCoreR :: Text -> RLPC RlpcError [Located CoreToken]
+lexCoreR = liftRlpcErrs . lexCore
+
 -- | @lexCore@, but the tokens are stripped of location info. Useful for
 -- debugging
 lexCore' :: Text -> RLPC SrcError [CoreToken]
@@ -194,6 +199,14 @@ data ParseError = ParErrLexical String
                 | ParErrParse
                 deriving Show
 
+-- TODO:
+instance IsRlpcError SrcError where
+    liftRlpcErr = RlpcErr . show
+
+-- TODO:
+instance IsRlpcError ParseError where
+    liftRlpcErr = RlpcErr . show
+
 alexEOF :: Alex (Located CoreToken)
 alexEOF = Alex $ \ st@(AlexState { alex_pos = AlexPn _ y x }) ->
     Right (st, Located y x 0 TokenEOF)
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 0133d15..11e91be 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -8,6 +8,7 @@ module Core.Parse
     ( parseCore
     , parseCoreExpr
     , parseCoreProg
+    , parseCoreProgR
     , module Core.Lex -- temp convenience
     , parseTmp
     , SrcError
@@ -229,5 +230,8 @@ insScDef sc = programScDefs %~ (sc:)
 singletonScDef :: (Hashable b) => ScDef b -> Program b
 singletonScDef sc = insScDef sc mempty
 
+parseCoreProgR :: [Located CoreToken] -> RLPC RlpcError Program'
+parseCoreProgR = liftRlpcErrs . parseCoreProg
+
 }
 
diff --git a/src/Core/TH.hs b/src/Core/TH.hs
index 72ec901..063d4fe 100644
--- a/src/Core/TH.hs
+++ b/src/Core/TH.hs
@@ -63,5 +63,5 @@ qCoreProg s = case parseProg (T.pack s) of
     Left e       -> error (show e)
     Right (m,ts) -> lift m
     where
-        parseProg = evalRLPC def . (lexCore >=> parseCoreProg)
+        parseProg = evalRLPC def . (lexCoreR >=> parseCoreProgR)
 
-- 
2.52.0


From b6945a64eb2c1be27d7d02a50a9ae298970742e7 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 20 Dec 2023 23:44:57 -0700
Subject: [PATCH 019/192] i'm on an airplane rn, my eyelids grow heavy, and i
 forgot my medication. should this be my final commit (of the week): gootbye

---
 rlp.cabal                     |  1 +
 src/Core/HindleyMilner.hs     | 39 ++++++++++++++++++++++++++++++++---
 src/Core/Lex.x                |  1 +
 src/Core/Syntax.hs            | 12 +++++++++--
 tst/Arith.hs                  |  3 ++-
 tst/Core/HindleyMilnerSpec.hs | 13 ++++++------
 6 files changed, 57 insertions(+), 12 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 34a5c00..5880571 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -92,6 +92,7 @@ test-suite rlp-test
                  , rlp
                  , QuickCheck
                  , hspec            ==2.*
+                 , microlens
     other-modules: Arith
                  , GMSpec
                  , Core.HindleyMilnerSpec
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 18bd346..4aa6c77 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -4,8 +4,9 @@ Description : Hindley-Milner inference
 -}
 {-# LANGUAGE LambdaCase #-}
 module Core.HindleyMilner
-    ( infer
-    , Context'
+    ( Context'
+    , infer
+    , check
     , TypeError(..)
     , HMError
     )
@@ -15,7 +16,8 @@ import Lens.Micro
 import Lens.Micro.Mtl
 import Data.Maybe               (fromMaybe)
 import Data.Text                qualified as T
-import Control.Monad            (foldM)
+import Data.HashMap.Strict      qualified as H
+import Control.Monad            (foldM, void)
 import Control.Monad.State
 import Control.Monad.Utils      (mapAccumLM)
 import Core.Syntax
@@ -43,6 +45,26 @@ data TypeError
 -- | Synonym for @Either TypeError@
 type HMError = Either TypeError
 
+-- | Assert that an expression unifies with a given type
+--
+-- >>> let e = [coreProg|3|]
+-- >>> check [] (TyCon "Bool") e
+-- Left (TyErrCouldNotUnify (TyCon "Bool") (TyCon "Int#"))
+-- >>> check [] (TyCon "Int#") e
+-- Right ()
+
+check :: Context' -> Type -> Expr' -> HMError ()
+check g t1 e = do
+    t2 <- infer g e
+    unify [(t1,t2)]
+    pure ()
+
+checkProg :: Program' -> HMError ()
+checkProg p = p ^. programScDefs
+            & traversalOf k
+    where
+        k sc = undefined
+
 -- | Infer the type of an expression under some context.
 --
 -- >>> let g1 = [("id", TyVar "a" :-> TyVar "a")]
@@ -55,6 +77,7 @@ type HMError = Either TypeError
 infer :: Context' -> Expr' -> HMError Type
 infer g e = do
     (t,cs) <- gather g e
+    -- apply all unified constraints
     foldr (uncurry subst) t <$> unify cs
 
 -- | A @Constraint@ between two types describes the requirement that the pair
@@ -89,6 +112,7 @@ gather = \g e -> runStateT (go g e) ([],0) <&> \ (t,(cs,_)) -> (t,cs) where
         Let NonRec bs e -> do
             g' <- buildLetContext g bs
             go g' e
+        -- TODO letrec, lambda, case
 
     buildLetContext :: Context' -> [Binding']
                     -> StateT ([Constraint], Int) HMError Context'
@@ -149,8 +173,17 @@ unify = go mempty where
                 | x == y     = True
             occurs _         = False
 
+buildInitialContext :: Program b -> Context b
+buildInitialContext p = p ^. programTypeSigs
+                      & H.toList
+
 -- | The expression @subst x t e@ substitutes all occurences of @x@ in @e@ with
 -- @t@
+--
+-- >>> subst "a" (TyCon "Int") (TyVar "a")
+-- TyCon "Int"
+-- >>> subst "a" (TyCon "Int") (TyVar "a" :-> TyVar "a")
+-- TyCon "Int" :-> TyCon "Int"
 
 subst :: Name -> Type -> Type -> Type
 subst x t (TyVar y) | x == y  = t
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index 341b51b..9fb9d31 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -87,6 +87,7 @@ rlp :-
     "where"                 { constTok TokenWhere }
     "Pack"                  { constTok TokenPack } -- temp
 
+    -- TODO: this should be "\"
     "\\"                    { constTok TokenLambda }
     "λ"                     { constTok TokenLambda }
     "="                     { constTok TokenEquals }
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index ddc3b66..fb9b720 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -24,6 +24,7 @@ module Core.Syntax
     , Module(..)
     , Program(..)
     , Program'
+    , unliftScDef
     , programScDefs
     , programTypeSigs
     , Expr'
@@ -37,13 +38,13 @@ module Core.Syntax
 ----------------------------------------------------------------------------------
 import Data.Coerce
 import Data.Pretty
-import GHC.Generics
 import Data.List                    (intersperse)
 import Data.Function                ((&))
 import Data.String
 import Data.HashMap.Strict          qualified as H
 import Data.Hashable
 import Data.Text                    qualified as T
+import Data.Char
 -- Lift instances for the Core quasiquoters
 import Language.Haskell.TH.Syntax   (Lift)
 import Lens.Micro.TH                (makeLenses)
@@ -116,6 +117,9 @@ type Tag = Int
 data ScDef b = ScDef b [b] (Expr b)
     deriving (Show, Lift)
 
+unliftScDef :: ScDef b -> Expr b
+unliftScDef (ScDef _ as e) = Lam as e
+
 data Module b = Module (Maybe (Name, [Name])) (Program b)
     deriving (Show, Lift)
 
@@ -138,7 +142,11 @@ instance IsString (Expr b) where
     fromString = Var . fromString
 
 instance IsString Type where
-    fromString = TyVar . fromString
+    fromString "" = error "IsString Type string may not be empty"
+    fromString s
+        | isUpper c     = TyCon . fromString $ s
+        | otherwise     = TyVar . fromString $ s
+        where (c:_) = s
 
 instance (Hashable b) => Semigroup (Program b) where
     (<>) = undefined
diff --git a/tst/Arith.hs b/tst/Arith.hs
index 700849b..2c168c4 100644
--- a/tst/Arith.hs
+++ b/tst/Arith.hs
@@ -6,6 +6,7 @@ module Arith
     ) where
 ----------------------------------------------------------------------------------
 import Data.Functor.Classes             (eq1)
+import Lens.Micro
 import Core.Syntax
 import GM
 import Test.QuickCheck
@@ -70,7 +71,7 @@ instance Arbitrary ArithExpr where
 --         coreResult  = evalCore (toCore e)
 
 toCore :: ArithExpr -> Program'
-toCore expr = Program
+toCore expr = mempty & programScDefs .~
         [ ScDef "id" ["x"] $ Var "x"
         , ScDef "main" [] $ go expr
         ]
diff --git a/tst/Core/HindleyMilnerSpec.hs b/tst/Core/HindleyMilnerSpec.hs
index 74a2468..07940e6 100644
--- a/tst/Core/HindleyMilnerSpec.hs
+++ b/tst/Core/HindleyMilnerSpec.hs
@@ -6,7 +6,8 @@ module Core.HindleyMilnerSpec
 ----------------------------------------------------------------------------------
 import Core.Syntax
 import Core.TH                  (coreExpr)
-import Core.HindleyMilner       (infer, TypeError(..), HMError)
+import Core.HindleyMilner       (infer, check, TypeError(..), HMError)
+import Data.Either              (isLeft)
 import Test.Hspec
 ----------------------------------------------------------------------------------
 
@@ -19,7 +20,7 @@ spec = do
 
     it "should not infer `id 3` when `id` is specialised to `a -> a`" $
         let g = [ ("id", ("a" :-> "a") :-> "a" :-> "a") ]
-        in infer g [coreExpr|id 3|] `shouldSatisfy` isUntypedVariableErr
+        in infer g [coreExpr|id 3|] `shouldSatisfy` isLeft
 
     -- TODO: property-based tests for let
     it "should infer `let x = 3 in id x` :: Int" $
@@ -31,8 +32,8 @@ spec = do
         let g = [ ("+#", TyInt :-> TyInt :-> TyInt) ]
             e = [coreExpr|let {x=3;y=2} in (+#) x y|]
         in infer g e `shouldBe` Right TyInt
-
-isUntypedVariableErr :: HMError a -> Bool
-isUntypedVariableErr (Left (TyErrCouldNotUnify _ _)) = True
-isUntypedVariableErr _                               = False
+    
+    it "should find `3 :: Bool` contradictory" $
+        let e = [coreExpr|3|]
+        in check [] (TyCon "Bool") e `shouldSatisfy` isLeft
 
-- 
2.52.0


From 1164b13a1efc2117bbfc76f15b8fa0375bcdc813 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 22 Dec 2023 16:12:58 -0700
Subject: [PATCH 020/192] kinda sorta typechecking

---
 src/Core/HindleyMilner.hs | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 4aa6c77..c0d64f8 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -17,6 +17,7 @@ import Lens.Micro.Mtl
 import Data.Maybe               (fromMaybe)
 import Data.Text                qualified as T
 import Data.HashMap.Strict      qualified as H
+import Data.Foldable            (traverse_)
 import Control.Monad            (foldM, void)
 import Control.Monad.State
 import Control.Monad.Utils      (mapAccumLM)
@@ -56,14 +57,20 @@ type HMError = Either TypeError
 check :: Context' -> Type -> Expr' -> HMError ()
 check g t1 e = do
     t2 <- infer g e
-    unify [(t1,t2)]
-    pure ()
+    void $ unify [(t1,t2)]
 
+-- | Typecheck program. I plan to allow for *some* inference in the future, but
+-- in the mean time all top-level binders must have a type annotation.
 checkProg :: Program' -> HMError ()
-checkProg p = p ^. programScDefs
-            & traversalOf k
+checkProg p = scDefs
+            & traverse_ k
     where
-        k sc = undefined
+        scDefs = p ^. programScDefs
+        g = gatherTypeSigs p
+
+        k :: ScDef' -> HMError ()
+        k sc | Just t <- lookup (sc ^. _lhs._1) g
+             = check g t (sc ^. _rhs)
 
 -- | Infer the type of an expression under some context.
 --
@@ -173,9 +180,9 @@ unify = go mempty where
                 | x == y     = True
             occurs _         = False
 
-buildInitialContext :: Program b -> Context b
-buildInitialContext p = p ^. programTypeSigs
-                      & H.toList
+gatherTypeSigs :: Program b -> Context b
+gatherTypeSigs p = p ^. programTypeSigs
+                 & H.toList
 
 -- | The expression @subst x t e@ substitutes all occurences of @x@ in @e@ with
 -- @t@
-- 
2.52.0


From cb5692248f65c9e28182d84774eeff73c2d5dbad Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 28 Dec 2023 14:46:10 -0700
Subject: [PATCH 021/192] back and medicated!

---
 src/Core/HindleyMilner.hs | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index c0d64f8..eb11ce7 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -1,6 +1,6 @@
 {-|
 Module      : Core.HindleyMilner
-Description : Hindley-Milner inference
+Description : Hindley-Milner type system
 -}
 {-# LANGUAGE LambdaCase #-}
 module Core.HindleyMilner
@@ -18,6 +18,7 @@ import Data.Maybe               (fromMaybe)
 import Data.Text                qualified as T
 import Data.HashMap.Strict      qualified as H
 import Data.Foldable            (traverse_)
+import Compiler.RLPC
 import Control.Monad            (foldM, void)
 import Control.Monad.State
 import Control.Monad.Utils      (mapAccumLM)
@@ -41,11 +42,15 @@ data TypeError
     | TyErrRecursiveType Name Type
     -- | Untyped, potentially undefined variable
     | TyErrUntypedVariable Name
+    | TyErrMissingTypeSig Name
     deriving (Show, Eq)
 
 -- | Synonym for @Either TypeError@
 type HMError = Either TypeError
 
+-- TODO: better errors. Errorful-esque, with cummulative errors instead of
+-- instantly dying.
+
 -- | Assert that an expression unifies with a given type
 --
 -- >>> let e = [coreProg|3|]
@@ -69,8 +74,13 @@ checkProg p = scDefs
         g = gatherTypeSigs p
 
         k :: ScDef' -> HMError ()
-        k sc | Just t <- lookup (sc ^. _lhs._1) g
-             = check g t (sc ^. _rhs)
+        k sc = case lookup scname g of
+             Just t  -> check g t (sc ^. _rhs)
+             Nothing -> Left (TyErrMissingTypeSig $ scname)
+             where scname = sc ^. _lhs._1
+
+checkRlpcProg :: Program' -> RLPC TypeError ()
+checkRlpcProg = undefined
 
 -- | Infer the type of an expression under some context.
 --
-- 
2.52.0


From e80acbcd2883466389029508541c50ca904499c0 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 28 Dec 2023 15:06:15 -0700
Subject: [PATCH 022/192] errorful (it's not good)

---
 src/Core/HindleyMilner.hs | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index eb11ce7..15b8ab9 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -7,6 +7,7 @@ module Core.HindleyMilner
     ( Context'
     , infer
     , check
+    , checkProg
     , TypeError(..)
     , HMError
     )
@@ -20,6 +21,7 @@ import Data.HashMap.Strict      qualified as H
 import Data.Foldable            (traverse_)
 import Compiler.RLPC
 import Control.Monad            (foldM, void)
+import Control.Monad.Errorful   (Errorful, addFatal)
 import Control.Monad.State
 import Control.Monad.Utils      (mapAccumLM)
 import Core.Syntax
@@ -45,8 +47,9 @@ data TypeError
     | TyErrMissingTypeSig Name
     deriving (Show, Eq)
 
--- | Synonym for @Either TypeError@
-type HMError = Either TypeError
+-- | Synonym for @Errorful [TypeError]@. This means an @HMError@ action may
+-- throw any number of fatal or nonfatal errors. Run with @runErrorful@.
+type HMError = Errorful TypeError
 
 -- TODO: better errors. Errorful-esque, with cummulative errors instead of
 -- instantly dying.
@@ -76,7 +79,7 @@ checkProg p = scDefs
         k :: ScDef' -> HMError ()
         k sc = case lookup scname g of
              Just t  -> check g t (sc ^. _rhs)
-             Nothing -> Left (TyErrMissingTypeSig $ scname)
+             Nothing -> addFatal $ TyErrMissingTypeSig scname
              where scname = sc ^. _lhs._1
 
 checkRlpcProg :: Program' -> RLPC TypeError ()
@@ -118,8 +121,8 @@ gather = \g e -> runStateT (go g e) ([],0) <&> \ (t,(cs,_)) -> (t,cs) where
     go :: Context' -> Expr' -> StateT ([Constraint], Int) HMError Type
     go g = \case
         Lit (IntL _)  -> pure TyInt
-        Var k         -> lift $ maybe e Right $ lookup k g
-            where e = Left (TyErrUntypedVariable k)
+        Var k         -> lift $ maybe e pure $ lookup k g
+            where e = addFatal $ TyErrUntypedVariable k
         App f x       -> do
             tf <- go g f
             tx <- go g x
@@ -158,7 +161,7 @@ unify = go mempty where
     go :: Context' -> [Constraint] -> HMError Context'
 
     -- nothing left! return accumulated context
-    go g [] = Right g
+    go g [] = pure g
 
     go g (c:cs) = case c of
         -- primitives may of course unify with themselves
@@ -176,10 +179,10 @@ unify = go mempty where
         (a :-> b, x :-> y)          -> go g $ (a,x) : (b,y) : cs
 
         -- anything else is a failure :(
-        (t,u)                       -> Left $ TyErrCouldNotUnify t u
+        (t,u)                       -> addFatal $ TyErrCouldNotUnify t u
 
-    unifyTV :: Context' -> Name -> Type -> [Constraint] -> Either TypeError Context'
-    unifyTV g x t cs | occurs t   = Left $ TyErrRecursiveType x t
+    unifyTV :: Context' -> Name -> Type -> [Constraint] -> HMError Context'
+    unifyTV g x t cs | occurs t   = addFatal $ TyErrRecursiveType x t
                      | otherwise  = go g' substed
         where
             g' = (x,t) : g
-- 
2.52.0


From 35446533d7be5c929f60ea7fd3134ce7bff4f18a Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 29 Dec 2023 13:47:42 -0700
Subject: [PATCH 023/192] type-checked quasiquoters

---
 src/Compiler/RLPC.hs      |  7 ++++++-
 src/Core/HindleyMilner.hs | 18 +++++++++++++-----
 src/Core/TH.hs            | 24 ++++++++++++++++++++++--
 3 files changed, 41 insertions(+), 8 deletions(-)

diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index e1e6778..5e69e16 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -13,10 +13,12 @@ errors and the family of RLPC monads.
 {-# LANGUAGE DeriveGeneric, DerivingStrategies, DerivingVia #-}
 module Compiler.RLPC
     ( RLPC
-    , RLPCT
+    , RLPCT(..)
     , RLPCIO
     , RLPCOptions(RLPCOptions)
     , RlpcError(..)
+    , IsRlpcError(..)
+    , rlpc
     , addFatal
     , addWound
     , MonadErrorful
@@ -135,6 +137,9 @@ addRlpcWound = addWound . liftRlpcErr
 addRlpcFatal :: (IsRlpcError e, Monad m) => e -> RLPCT RlpcError m ()
 addRlpcFatal = addWound . liftRlpcErr
 
+rlpc :: (Monad m) => ErrorfulT e m a -> RLPCT e m a
+rlpc = RLPCT . ReaderT . const
+
 ----------------------------------------------------------------------------------
 
 instance Default RLPCOptions where
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 15b8ab9..d7277c4 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -7,7 +7,8 @@ module Core.HindleyMilner
     ( Context'
     , infer
     , check
-    , checkProg
+    , checkCoreProg
+    , checkCoreProgR
     , TypeError(..)
     , HMError
     )
@@ -47,6 +48,10 @@ data TypeError
     | TyErrMissingTypeSig Name
     deriving (Show, Eq)
 
+-- TODO:
+instance IsRlpcError TypeError where
+    liftRlpcErr = RlpcErr . show
+
 -- | Synonym for @Errorful [TypeError]@. This means an @HMError@ action may
 -- throw any number of fatal or nonfatal errors. Run with @runErrorful@.
 type HMError = Errorful TypeError
@@ -69,8 +74,8 @@ check g t1 e = do
 
 -- | Typecheck program. I plan to allow for *some* inference in the future, but
 -- in the mean time all top-level binders must have a type annotation.
-checkProg :: Program' -> HMError ()
-checkProg p = scDefs
+checkCoreProg :: Program' -> HMError ()
+checkCoreProg p = scDefs
             & traverse_ k
     where
         scDefs = p ^. programScDefs
@@ -82,8 +87,11 @@ checkProg p = scDefs
              Nothing -> addFatal $ TyErrMissingTypeSig scname
              where scname = sc ^. _lhs._1
 
-checkRlpcProg :: Program' -> RLPC TypeError ()
-checkRlpcProg = undefined
+-- | @checkCoreProgR p@ returns @p@ if @p@ successfully typechecks.
+checkCoreProgR :: Program' -> RLPC RlpcError Program'
+checkCoreProgR p = do
+    liftRlpcErrs . rlpc . checkCoreProg $ p
+    pure p
 
 -- | Infer the type of an expression under some context.
 --
diff --git a/src/Core/TH.hs b/src/Core/TH.hs
index 063d4fe..7d85bf5 100644
--- a/src/Core/TH.hs
+++ b/src/Core/TH.hs
@@ -5,6 +5,7 @@ Description : Core quasiquoters
 module Core.TH
     ( coreExpr
     , coreProg
+    , coreProgT
     , core
     )
     where
@@ -18,8 +19,11 @@ import Data.Default.Class           (def)
 import Data.Text                    qualified as T
 import Core.Parse
 import Core.Lex
+import Core.HindleyMilner           (checkCoreProgR)
 ----------------------------------------------------------------------------------
 
+-- TODO: write in terms of a String -> QuasiQuoter
+
 core :: QuasiQuoter
 core = QuasiQuoter
     { quoteExp = qCore
@@ -44,6 +48,15 @@ coreExpr = QuasiQuoter
     , quoteDec = error "core quasiquotes may only be used in expressions"
     }
 
+-- | Type-checked @coreProg@
+coreProgT :: QuasiQuoter
+coreProgT = QuasiQuoter
+    { quoteExp = qCoreProgT
+    , quotePat = error "core quasiquotes may only be used in expressions"
+    , quoteType = error "core quasiquotes may only be used in expressions"
+    , quoteDec = error "core quasiquotes may only be used in expressions"
+    }
+
 qCore :: String -> Q Exp
 qCore s = case parse (T.pack s) of
     Left e       -> error (show e)
@@ -59,9 +72,16 @@ qCoreExpr s = case parseExpr (T.pack s) of
         parseExpr = evalRLPC def . (lexCore >=> parseCoreExpr)
 
 qCoreProg :: String -> Q Exp
-qCoreProg s = case parseProg (T.pack s) of
+qCoreProg s = case parse (T.pack s) of
     Left e       -> error (show e)
     Right (m,ts) -> lift m
     where
-        parseProg = evalRLPC def . (lexCoreR >=> parseCoreProgR)
+        parse = evalRLPC def . (lexCoreR >=> parseCoreProgR)
+
+qCoreProgT :: String -> Q Exp
+qCoreProgT s = case parse (T.pack s) of
+    Left e      -> error (show e)
+    Right (m,_) -> lift m
+    where
+        parse = evalRLPC def . (lexCoreR >=> parseCoreProgR >=> checkCoreProgR)
 
-- 
2.52.0


From b941347f8265db29d51995d2f184db0aa46b3ec6 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 29 Dec 2023 13:54:09 -0700
Subject: [PATCH 024/192] fix hm tests

---
 rlp.cabal                     |  2 +-
 tst/Core/HindleyMilnerSpec.hs | 19 +++++++++++++------
 2 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 5880571..c1bedaa 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -28,13 +28,13 @@ library
                     , Core.Utils
                     , Core.TH
                     , Core.HindleyMilner
+                    , Control.Monad.Errorful
 
     other-modules:    Data.Heap
                     , Data.Pretty
                     , Core.Parse
                     , Core.Lex
                     , Core2Core
-                    , Control.Monad.Errorful
                     , Control.Monad.Utils
                     , RLP.Syntax
 
diff --git a/tst/Core/HindleyMilnerSpec.hs b/tst/Core/HindleyMilnerSpec.hs
index 07940e6..8f498a9 100644
--- a/tst/Core/HindleyMilnerSpec.hs
+++ b/tst/Core/HindleyMilnerSpec.hs
@@ -6,7 +6,8 @@ module Core.HindleyMilnerSpec
 ----------------------------------------------------------------------------------
 import Core.Syntax
 import Core.TH                  (coreExpr)
-import Core.HindleyMilner       (infer, check, TypeError(..), HMError)
+import Core.HindleyMilner
+import Control.Monad.Errorful
 import Data.Either              (isLeft)
 import Test.Hspec
 ----------------------------------------------------------------------------------
@@ -16,24 +17,30 @@ spec :: Spec
 spec = do
     it "should infer `id 3` :: Int" $
         let g = [ ("id", "a" :-> "a") ]
-        in infer g [coreExpr|id 3|] `shouldBe` Right TyInt
+        in infer' g [coreExpr|id 3|] `shouldBe` Right TyInt
 
     it "should not infer `id 3` when `id` is specialised to `a -> a`" $
         let g = [ ("id", ("a" :-> "a") :-> "a" :-> "a") ]
-        in infer g [coreExpr|id 3|] `shouldSatisfy` isLeft
+        in infer' g [coreExpr|id 3|] `shouldSatisfy` isLeft
 
     -- TODO: property-based tests for let
     it "should infer `let x = 3 in id x` :: Int" $
         let g = [ ("id", "a" :-> "a") ]
             e = [coreExpr|let {x = 3} in id x|]
-        in infer g e `shouldBe` Right TyInt
+        in infer' g e `shouldBe` Right TyInt
 
     it "should infer `let x = 3; y = 2 in (+#) x y` :: Int" $
         let g = [ ("+#", TyInt :-> TyInt :-> TyInt) ]
             e = [coreExpr|let {x=3;y=2} in (+#) x y|]
-        in infer g e `shouldBe` Right TyInt
+        in infer' g e `shouldBe` Right TyInt
     
     it "should find `3 :: Bool` contradictory" $
         let e = [coreExpr|3|]
-        in check [] (TyCon "Bool") e `shouldSatisfy` isLeft
+        in check' [] (TyCon "Bool") e `shouldSatisfy` isLeft
+
+infer' :: Context' -> Expr' -> Either TypeError Type
+infer' g e = fmap fst . runErrorful $ infer g e
+
+check' :: Context' -> Type -> Expr' -> Either TypeError ()
+check' g t e = fmap fst . runErrorful $ check g t e
 
-- 
2.52.0


From 1dc695f6404a50def341f20aa298699da3f74a54 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 29 Dec 2023 14:20:53 -0700
Subject: [PATCH 025/192] Compiler.JustRun

---
 rlp.cabal               |  1 +
 src/Compiler/JustRun.hs | 46 +++++++++++++++++++++++++++++++++++++++++
 src/Compiler/RLPC.hs    |  1 -
 3 files changed, 47 insertions(+), 1 deletion(-)
 create mode 100644 src/Compiler/JustRun.hs

diff --git a/rlp.cabal b/rlp.cabal
index c1bedaa..660a3d8 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -23,6 +23,7 @@ library
                     , GM
                     , Compiler.RLPC
                     , Compiler.RlpcError
+                    , Compiler.JustRun
                     , Core.Syntax
                     , Core.Examples
                     , Core.Utils
diff --git a/src/Compiler/JustRun.hs b/src/Compiler/JustRun.hs
new file mode 100644
index 0000000..df28db5
--- /dev/null
+++ b/src/Compiler/JustRun.hs
@@ -0,0 +1,46 @@
+{-|
+Module      : Compiler.JustRun
+Description : No-BS, high-level wrappers for major pipeline pieces.
+
+A collection of wrapper functions to demo processes such as lexing, parsing,
+type-checking, and evaluation. This module intends to export "no-BS" functions
+that use Prelude types such as @Either@ and @String@ rather than more complex
+types such as @RLPC@ or @Text@.
+-}
+module Compiler.JustRun
+    ( justLexSrc
+    , justParseSrc
+    , justTypeCheckSrc
+    )
+    where
+----------------------------------------------------------------------------------
+import Core.Lex
+import Core.Parse
+import Core.HindleyMilner
+import Core.Syntax                      (Program')
+import Compiler.RLPC
+import Control.Arrow                    ((>>>))
+import Control.Monad                    ((>=>))
+import Data.Text                        qualified as T
+import Data.Function                    ((&))
+import GM
+----------------------------------------------------------------------------------
+
+justLexSrc :: String -> Either RlpcError [CoreToken]
+justLexSrc s = lexCoreR (T.pack s)
+             & fmap (map $ \ (Located _ _ _ t) -> t)
+             & rlpcToEither
+
+justParseSrc :: String -> Either RlpcError Program'
+justParseSrc s = parse (T.pack s)
+               & rlpcToEither
+    where parse = lexCoreR >=> parseCoreProgR
+
+justTypeCheckSrc :: String -> Either RlpcError Program'
+justTypeCheckSrc s = typechk (T.pack s)
+                   & rlpcToEither
+    where typechk = lexCoreR >=> parseCoreProgR >=> checkCoreProgR
+
+rlpcToEither :: RLPC e a -> Either e a
+rlpcToEither = evalRLPC def >>> fmap fst
+
diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 5e69e16..266e06a 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -100,7 +100,6 @@ evalRLPCIO o m = do
         -- TODO: errors
         Left e -> throwIO e
         Right a -> pure a
-    
 
 data RLPCOptions = RLPCOptions
     { _rlpcLogFile     :: Maybe FilePath
-- 
2.52.0


From 832767575c48d31b9a676a610d3c982bfb454a38 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 29 Dec 2023 18:43:09 -0700
Subject: [PATCH 026/192] lex \ instead of \\

---
 src/Core/Lex.x | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index 9fb9d31..d5cdc1e 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -87,8 +87,7 @@ rlp :-
     "where"                 { constTok TokenWhere }
     "Pack"                  { constTok TokenPack } -- temp
 
-    -- TODO: this should be "\"
-    "\\"                    { constTok TokenLambda }
+    "\"                     { constTok TokenLambda }
     "λ"                     { constTok TokenLambda }
     "="                     { constTok TokenEquals }
     "->"                    { constTok TokenArrow }
-- 
2.52.0


From 7ed565fc240230961ef3a165ca4c8d0817763a03 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 02:33:31 -0700
Subject: [PATCH 027/192] grammar reference

---
 doc/src/conf.py                    |  1 +
 doc/src/references/rlp-grammar.rst | 67 ++++++++++++++++++++++++++++++
 2 files changed, 68 insertions(+)
 create mode 100644 doc/src/references/rlp-grammar.rst

diff --git a/doc/src/conf.py b/doc/src/conf.py
index d344334..533296a 100644
--- a/doc/src/conf.py
+++ b/doc/src/conf.py
@@ -32,6 +32,7 @@ html_theme = 'alabaster'
 imgmath_latex_preamble = r'''
 \usepackage{amsmath}
 \usepackage{tabularray}
+\usepackage{syntax}
 
 \newcommand{\transrule}[2]
     {\begin{tblr}{|rrrlc|}
diff --git a/doc/src/references/rlp-grammar.rst b/doc/src/references/rlp-grammar.rst
new file mode 100644
index 0000000..c81fea7
--- /dev/null
+++ b/doc/src/references/rlp-grammar.rst
@@ -0,0 +1,67 @@
+The Complete Syntax of rl'
+==========================
+
+WIP.
+
+Provided is the complete syntax of rl' in (pseudo) EBNF. {A} represents zero or
+more A's, [A] means optional A, and terminals are wrapped in 'single-quotes'.
+
+.. math
+   :nowrap:
+
+   \setlength{\grammarparsep}{20pt plus 1pt minus 1pt}
+   \setlength{\grammarindent}{12em}
+   \begin{grammar}
+       <Decl> ::= <InfixDecl>
+       \alt <DataDecl>
+       \alt <TypeSig>
+       \alt <FunDef>
+
+       <InfixDecl> ::= <InfixWord> `litint' <Name>
+       <InfixWord> ::= `infix'
+       \alt `infixl'
+       \alt `infixr'
+
+       <DataDecl> ::= `data' `conname' {}
+
+   \end{grammar}
+
+.. code-block:: bnf
+
+   Decl      ::= InfixDecl
+               | DataDecl
+               | TypeSig
+               | FunDef
+
+   InfixDecl ::= InfixWord 'litint' Operator
+   InfixWord ::= 'infix'
+               | 'infixl'
+               | 'infixr'
+
+   DataDecl  ::= 'data' 'conname' {'name'} '=' Data
+   DataCons  ::= 'conname' {Type1} ['|' DataCons]
+
+   TypeSig   ::= Var '::' Type
+   FunDef    ::= Var {Pat1} '=' Expr
+
+   Type      ::= Type1 {Type1}
+               -- note that (->) is right-associative,
+               -- and extends as far as possible
+               | Type '->' Type
+   Type1     ::= '(' Type ')'
+               | 'conname'
+
+   Pat       ::= 'conname' Pat1 {Pat1}
+               | Pat 'consym' Pat
+
+   Pat1      ::= Literal
+               | 'conname'
+               | '(' Pat ')'
+
+   Literal   ::= 'litint'
+
+   Var ::= 'varname'
+         | '(' 'varsym' ')'
+   Con ::= 'conname'
+         | '(' 'consym' ')'
+
-- 
2.52.0


From bf4abeb8b4a2f80e8aed42a6cf7cb64ecba1d4da Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 05:34:11 -0700
Subject: [PATCH 028/192] 4:00 AM psychopath code

---
 rlp.cabal             |   3 +-
 src/RLP/ParseDecls.hs | 139 ++++++++++++++++++++++++++++++++++++++++++
 src/RLP/Syntax.hs     |  65 +++++++++++++++++---
 3 files changed, 198 insertions(+), 9 deletions(-)
 create mode 100644 src/RLP/ParseDecls.hs

diff --git a/rlp.cabal b/rlp.cabal
index 660a3d8..b960ec6 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -30,6 +30,8 @@ library
                     , Core.TH
                     , Core.HindleyMilner
                     , Control.Monad.Errorful
+                    , Rlp.Syntax
+                    , Rlp.ParseDecls
 
     other-modules:    Data.Heap
                     , Data.Pretty
@@ -37,7 +39,6 @@ library
                     , Core.Lex
                     , Core2Core
                     , Control.Monad.Utils
-                    , RLP.Syntax
 
     build-tool-depends: happy:happy, alex:alex
 
diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
new file mode 100644
index 0000000..4d18e22
--- /dev/null
+++ b/src/RLP/ParseDecls.hs
@@ -0,0 +1,139 @@
+-- Show Y
+{-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Rlp.ParseDecls
+    (
+    )
+    where
+----------------------------------------------------------------------------------
+import Rlp.Syntax
+import Text.Megaparsec              hiding (State)
+import Text.Megaparsec.Char
+import Text.Megaparsec.Char.Lexer   qualified as L
+import Data.Functor.Const
+import Data.Text                    (Text)
+import Data.Text                    qualified as T
+import Data.Void
+import Data.Char
+import Data.Functor
+import Data.HashMap.Strict          qualified as H
+import Control.Monad
+import Core.Syntax
+import Control.Monad.State
+----------------------------------------------------------------------------------
+
+type Parser = ParsecT Void Text (State ParserState)
+
+data ParserState = ParserState
+    { _psPrecTable :: PrecTable
+    }
+    deriving Show
+
+type PrecTable = H.HashMap Name (Assoc, Int)
+
+----------------------------------------------------------------------------------
+
+parseTest' :: (Show a) => Parser a -> Text -> IO ()
+parseTest' p s = case runState (runParserT p "test" s) init of
+    (Left e, _)   -> putStr (errorBundlePretty e)
+    (Right x, st) -> print st *> print x
+    where
+        init = ParserState mempty
+
+lexeme :: Parser a -> Parser a
+lexeme = L.lexeme sc
+
+symbol :: Text -> Parser Text
+symbol = L.symbol sc
+
+sc :: Parser ()
+sc = L.space space1 (void lineComment) (void blockComment)
+
+-- TODO: return comment text
+-- TODO: '---' should not start a comment
+lineComment :: Parser Text
+lineComment = L.skipLineComment "--" $> "<unimpl>"
+
+-- TODO: return comment text
+blockComment :: Parser Text
+blockComment = L.skipBlockCommentNested "{-" "-}" $> "<unimpl>"
+
+decl :: Parser PartialDecl'
+decl = choice
+    [ funD
+    , tySigD
+    , dataD
+    , infixD
+    ]
+
+funD :: Parser PartialDecl'
+funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
+
+partialExpr :: Parser PartialExpr'
+partialExpr = choice
+    [ fmap Y $ U <$> varid' <*> lexeme infixOp <*> varid'
+    ]
+    where varid' = E . VarEF <$> varid
+
+
+infixOp :: Parser Name
+infixOp = symvar <|> symcon
+
+symvar :: Parser Name
+symvar = T.pack <$>
+    liftA2 (:) (satisfy isVarSym) (many $ satisfy isSym)
+
+symcon :: Parser Name
+symcon = T.pack <$>
+    liftA2 (:) (char ':') (many $ satisfy isSym)
+
+-- partialExpr :: Parser (Const Text a)
+-- partialExpr = fmap Const $ L.lineFold w $ \w' ->
+--     try w' <> w
+--     where
+--         w = L.space eat (void lineComment) (void blockComment)
+--         eat = void . some $ satisfy (not . isSpace)
+
+pat1 :: Parser Pat'
+pat1 = VarP <$> varid
+
+varid :: Parser VarId
+varid = NameVar <$> lexeme namevar
+    <|> SymVar <$> lexeme (char '(' *> symvar <* char ')')
+    <?> "variable identifier"
+    where
+        namevar = T.pack <$>
+            liftA2 (:) (satisfy isLower) (many $ satisfy isNameTail)
+
+        isNameTail c = isAlphaNum c
+                    || c == '\''
+                    || c == '_'
+
+isVarSym :: Char -> Bool
+isVarSym = (`T.elem` "\\!#$%&*+./<=>?@^|-~")
+
+isSym :: Char -> Bool
+isSym c = c == ':' || isVarSym c
+
+infixD = undefined
+
+tySigD = undefined
+dataD = undefined
+
+----------------------------------------------------------------------------------
+
+-- absolute psycho shit
+
+type PartialDecl' = Decl (Const PartialExpr') Name
+
+newtype Y f = Y (f (Y f))
+
+instance (Show (f (Y f))) => Show (Y f) where
+    showsPrec p (Y f) = showsPrec p f
+
+data Partial a = E (RlpExprF Name a)
+               | U (Partial a) Name (Partial a)
+               deriving Show
+
+type PartialExpr' = Y Partial
+
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 6efdc4e..9e5c53b 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -1,23 +1,52 @@
+-- recursion-schemes
+{-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable #-}
+-- recursion-schemes
+{-# LANGUAGE TemplateHaskell, TypeFamilies #-}
 {-# LANGUAGE OverloadedStrings #-}
-module RLP.Syntax
-    ( RlpExpr
+module Rlp.Syntax
+    ( RlpExpr(..)
+    , RlpExprF(..)
+    , RlpExprF'
+    , Decl(..)
+    , Assoc(..)
+    , VarId(..)
+    , Pat(..)
+    , Pat'
     )
     where
 ----------------------------------------------------------------------------------
+import Data.Functor.Const
 import Data.Text                    (Text)
+import Data.Text                    qualified as T
+import Data.String                  (IsString(..))
+import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Lens.Micro
+import Core.Syntax                  hiding (Lit)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
 
-newtype RlpProgram b = RlpProgram [Decl b]
+newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 
-data Decl b = InfixD  InfixAssoc Int VarId
-            | FunD    VarId [Pat b] (RlpExpr b)
-            | DataD   ConId [ConId] [ConAlt]
+-- | The @e@ parameter is used for partial results. When parsing an input, we
+-- first parse all top-level declarations in order to extract infix[lr]
+-- declarations. This process yields a @[Decl (Const Text) Name]@, where @Const
+-- Text@ stores the remaining unparsed function bodies. Once infixities are
+-- accounted for, we may complete the parsing task and get a proper @[Decl
+-- RlpExpr Name]@.
+
+data Decl e b = FunD    VarId [Pat b] (e b)
+              | TySigD  [VarId] Type
+              | DataD   ConId [ConId] [ConAlt]
+              | InfixD  Assoc Int Name
+              deriving Show
+
+data Assoc = InfixL
+           | InfixR
+           | Infix
+           deriving Show
 
 data ConAlt = ConAlt ConId [ConId]
-
-data InfixAssoc = Assoc | AssocL | AssocR
+               deriving Show
 
 data RlpExpr b = LetE  [Bind b] (RlpExpr b)
                | VarE  VarId
@@ -27,26 +56,39 @@ data RlpExpr b = LetE  [Bind b] (RlpExpr b)
                | IfE   (RlpExpr b) (RlpExpr b) (RlpExpr b)
                | AppE  (RlpExpr b) (RlpExpr b)
                | LitE  (Lit b)
+               deriving Show
 
 -- do we want guards?
 data Alt b = AltA (Pat b) (RlpExpr b)
+               deriving Show
 
 data Bind b = PatB (Pat b) (RlpExpr b)
             | FunB VarId [Pat b] (RlpExpr b)
+            deriving Show
 
 data VarId = NameVar Text
            | SymVar Text
+           deriving Show
+
+instance IsString VarId where
+    -- TODO: use symvar if it's an operator
+    fromString = NameVar . T.pack
 
 data ConId = NameCon Text
            | SymCon Text
+           deriving Show
 
 data Pat b = VarP VarId
            | LitP (Lit b)
            | ConP ConId [Pat b]
+           deriving Show
+
+type Pat' = Pat Name
 
 data Lit b = IntL Int
            | CharL Char
            | ListL [RlpExpr b]
+           deriving Show
 
 -- instance HasLHS Alt Alt Pat Pat where
 --     _lhs = lens
@@ -57,3 +99,10 @@ data Lit b = IntL Int
 --     _rhs = lens
 --         (\ (AltA _ e) -> e)
 --         (\ (AltA p _) e' -> AltA p e')
+
+makeBaseFunctor ''RlpExpr
+
+deriving instance (Show b, Show a) => Show (RlpExprF b a)
+
+type RlpExprF' = RlpExprF Name
+
-- 
2.52.0


From 060d48f9e18ac077bf3a5e50d02c26b59c6e9b82 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 06:26:48 -0700
Subject: [PATCH 029/192] oh boy am i going to hate this code in 12 hours

---
 src/RLP/ParseDecls.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
index 4d18e22..376ef37 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/ParseDecls.hs
@@ -71,7 +71,8 @@ funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
 
 partialExpr :: Parser PartialExpr'
 partialExpr = choice
-    [ fmap Y $ U <$> varid' <*> lexeme infixOp <*> varid'
+    [ try $ fmap Y $ U <$> varid' <*> lexeme infixOp <*> fmap unY partialExpr
+    , fmap Y $ varid'
     ]
     where varid' = E . VarEF <$> varid
 
@@ -128,6 +129,9 @@ type PartialDecl' = Decl (Const PartialExpr') Name
 
 newtype Y f = Y (f (Y f))
 
+unY :: Y f -> f (Y f)
+unY (Y f) = f
+
 instance (Show (f (Y f))) => Show (Y f) where
     showsPrec p (Y f) = showsPrec p f
 
-- 
2.52.0


From 9a357a99b71b193ea060b069fadf30c948e590cf Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 07:03:45 -0700
Subject: [PATCH 030/192] application and lits

appl
---
 src/RLP/ParseDecls.hs | 37 ++++++++++++++++++++++++++-----------
 src/RLP/Syntax.hs     |  5 +++++
 2 files changed, 31 insertions(+), 11 deletions(-)

diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
index 376ef37..1789c83 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/ParseDecls.hs
@@ -13,12 +13,12 @@ import Text.Megaparsec.Char.Lexer   qualified as L
 import Data.Functor.Const
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
+import Data.List                    (foldl1')
 import Data.Void
 import Data.Char
 import Data.Functor
 import Data.HashMap.Strict          qualified as H
 import Control.Monad
-import Core.Syntax
 import Control.Monad.State
 ----------------------------------------------------------------------------------
 
@@ -71,11 +71,25 @@ funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
 
 partialExpr :: Parser PartialExpr'
 partialExpr = choice
-    [ try $ fmap Y $ U <$> varid' <*> lexeme infixOp <*> fmap unY partialExpr
-    , fmap Y $ varid'
+    [ try $ fmap Y $ U <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
+    , foldl1' papp <$> some partialExpr1
     ]
-    where varid' = E . VarEF <$> varid
+    where
+        partialExpr1' = unY <$> partialExpr1
+        partialExpr' = unY <$> partialExpr
 
+        papp :: PartialExpr' -> PartialExpr' -> PartialExpr'
+        papp f x = Y . E $ f `AppEF` x
+
+partialExpr1 :: Parser PartialExpr'
+partialExpr1 = choice
+    [ try $ char '(' *> partialExpr <* char ')'
+    , fmap Y $ varid'
+    , fmap Y $ lit'
+    ]
+    where
+        varid' = E . VarEF <$> varid
+        lit' = E . LitEF <$> lit
 
 infixOp :: Parser Name
 infixOp = symvar <|> symcon
@@ -88,13 +102,6 @@ symcon :: Parser Name
 symcon = T.pack <$>
     liftA2 (:) (char ':') (many $ satisfy isSym)
 
--- partialExpr :: Parser (Const Text a)
--- partialExpr = fmap Const $ L.lineFold w $ \w' ->
---     try w' <> w
---     where
---         w = L.space eat (void lineComment) (void blockComment)
---         eat = void . some $ satisfy (not . isSpace)
-
 pat1 :: Parser Pat'
 pat1 = VarP <$> varid
 
@@ -121,6 +128,11 @@ infixD = undefined
 tySigD = undefined
 dataD = undefined
 
+lit :: Parser Lit'
+lit = int
+    where
+        int = IntL <$> L.decimal
+
 ----------------------------------------------------------------------------------
 
 -- absolute psycho shit
@@ -132,6 +144,9 @@ newtype Y f = Y (f (Y f))
 unY :: Y f -> f (Y f)
 unY (Y f) = f
 
+ymap :: (Functor f) => (forall a. f a -> g a) -> Y f -> Y g
+ymap m (Y f) = Y $ m (ymap m <$> f)
+
 instance (Show (f (Y f))) => Show (Y f) where
     showsPrec p (Y f) = showsPrec p f
 
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 9e5c53b..8a93059 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -12,6 +12,9 @@ module Rlp.Syntax
     , VarId(..)
     , Pat(..)
     , Pat'
+    , Lit(..)
+    , Lit'
+    , Name
     )
     where
 ----------------------------------------------------------------------------------
@@ -90,6 +93,8 @@ data Lit b = IntL Int
            | ListL [RlpExpr b]
            deriving Show
 
+type Lit' = Lit Name
+
 -- instance HasLHS Alt Alt Pat Pat where
 --     _lhs = lens
 --         (\ (AltA p _) -> p)
-- 
2.52.0


From 8aa9bb843f3e2ab9d682566462fca5bfd0d19b20 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 08:04:49 -0700
Subject: [PATCH 031/192] something

---
 src/RLP/ParseDecls.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
index 1789c83..9472063 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/ParseDecls.hs
@@ -47,7 +47,7 @@ symbol :: Text -> Parser Text
 symbol = L.symbol sc
 
 sc :: Parser ()
-sc = L.space space1 (void lineComment) (void blockComment)
+sc = L.space hspace1 (void lineComment) (void blockComment)
 
 -- TODO: return comment text
 -- TODO: '---' should not start a comment
@@ -156,3 +156,7 @@ data Partial a = E (RlpExprF Name a)
 
 type PartialExpr' = Y Partial
 
+----------------------------------------------------------------------------------
+
+
+
-- 
2.52.0


From f31726b43d94e9a8620c9a1fe4e990b5715a9f73 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 08:43:34 -0700
Subject: [PATCH 032/192] goofy

---
 src/RLP/ParseDecls.hs | 14 +++++++++-----
 src/RLP/Syntax.hs     |  3 +++
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
index 9472063..83db884 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/ParseDecls.hs
@@ -1,5 +1,6 @@
 -- Show Y
 {-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.ParseDecls
     (
@@ -17,6 +18,7 @@ import Data.List                    (foldl1')
 import Data.Void
 import Data.Char
 import Data.Functor
+import Data.Functor.Foldable
 import Data.HashMap.Strict          qualified as H
 import Control.Monad
 import Control.Monad.State
@@ -83,7 +85,7 @@ partialExpr = choice
 
 partialExpr1 :: Parser PartialExpr'
 partialExpr1 = choice
-    [ try $ char '(' *> partialExpr <* char ')'
+    [ try $ char '(' *> (hoistY P <$> partialExpr) <* char ')'
     , fmap Y $ varid'
     , fmap Y $ lit'
     ]
@@ -144,19 +146,21 @@ newtype Y f = Y (f (Y f))
 unY :: Y f -> f (Y f)
 unY (Y f) = f
 
-ymap :: (Functor f) => (forall a. f a -> g a) -> Y f -> Y g
-ymap m (Y f) = Y $ m (ymap m <$> f)
+hoistY :: (Functor f) => (forall a. f a -> g a) -> Y f -> Y g
+hoistY m (Y f) = Y $ m (hoistY m <$> f)
 
 instance (Show (f (Y f))) => Show (Y f) where
     showsPrec p (Y f) = showsPrec p f
 
 data Partial a = E (RlpExprF Name a)
                | U (Partial a) Name (Partial a)
-               deriving Show
+               | P (Partial a)
+               deriving (Show, Functor)
 
 type PartialExpr' = Y Partial
 
 ----------------------------------------------------------------------------------
 
-
+mkOp :: RlpExpr b -> RlpExpr b -> RlpExpr b -> RlpExpr b
+mkOp f a b = (f `AppE` a) `AppE` b
 
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 8a93059..eaf6b12 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -5,6 +5,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.Syntax
     ( RlpExpr(..)
+    , RlpExpr'
     , RlpExprF(..)
     , RlpExprF'
     , Decl(..)
@@ -61,6 +62,8 @@ data RlpExpr b = LetE  [Bind b] (RlpExpr b)
                | LitE  (Lit b)
                deriving Show
 
+type RlpExpr' = RlpExpr Name
+
 -- do we want guards?
 data Alt b = AltA (Pat b) (RlpExpr b)
                deriving Show
-- 
2.52.0


From d1e64eb12d8da0f7fcb845560782f4b37a31568c Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 3 Jan 2024 10:04:42 -0700
Subject: [PATCH 033/192] Show1 instances

---
 rlp.cabal             |  3 +++
 src/RLP/ParseDecls.hs | 45 ++++++++++++++++++++++++-------------------
 src/RLP/Syntax.hs     | 30 ++++++++++++++++++++++++++++-
 3 files changed, 57 insertions(+), 21 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index b960ec6..172e047 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -43,6 +43,8 @@ library
     build-tool-depends: happy:happy, alex:alex
 
     -- other-extensions:
+
+    -- TODO: version bounds
     build-depends:    base ^>=4.18.0.0
                     , containers
                     , microlens
@@ -62,6 +64,7 @@ library
                     , recursion-schemes
                     , megaparsec
                     , text
+                    , data-fix
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
index 83db884..7a36248 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/ParseDecls.hs
@@ -1,7 +1,8 @@
--- Show Y
+-- Show Fix
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
 module Rlp.ParseDecls
     (
     )
@@ -12,6 +13,7 @@ import Text.Megaparsec              hiding (State)
 import Text.Megaparsec.Char
 import Text.Megaparsec.Char.Lexer   qualified as L
 import Data.Functor.Const
+import Data.Functor.Classes
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.List                    (foldl1')
@@ -19,6 +21,7 @@ import Data.Void
 import Data.Char
 import Data.Functor
 import Data.Functor.Foldable
+import Data.Fix
 import Data.HashMap.Strict          qualified as H
 import Control.Monad
 import Control.Monad.State
@@ -73,21 +76,21 @@ funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
 
 partialExpr :: Parser PartialExpr'
 partialExpr = choice
-    [ try $ fmap Y $ U <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
+    [ try $ fmap Fix $ U <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
     , foldl1' papp <$> some partialExpr1
     ]
     where
-        partialExpr1' = unY <$> partialExpr1
-        partialExpr' = unY <$> partialExpr
+        partialExpr1' = unFix <$> partialExpr1
+        partialExpr' = unFix <$> partialExpr
 
         papp :: PartialExpr' -> PartialExpr' -> PartialExpr'
-        papp f x = Y . E $ f `AppEF` x
+        papp f x = Fix . E $ f `AppEF` x
 
 partialExpr1 :: Parser PartialExpr'
 partialExpr1 = choice
-    [ try $ char '(' *> (hoistY P <$> partialExpr) <* char ')'
-    , fmap Y $ varid'
-    , fmap Y $ lit'
+    [ try $ char '(' *> (hoistFix P <$> partialExpr) <* char ')'
+    , fmap Fix $ varid'
+    , fmap Fix $ lit'
     ]
     where
         varid' = E . VarEF <$> varid
@@ -141,23 +144,25 @@ lit = int
 
 type PartialDecl' = Decl (Const PartialExpr') Name
 
-newtype Y f = Y (f (Y f))
-
-unY :: Y f -> f (Y f)
-unY (Y f) = f
-
-hoistY :: (Functor f) => (forall a. f a -> g a) -> Y f -> Y g
-hoistY m (Y f) = Y $ m (hoistY m <$> f)
-
-instance (Show (f (Y f))) => Show (Y f) where
-    showsPrec p (Y f) = showsPrec p f
-
 data Partial a = E (RlpExprF Name a)
                | U (Partial a) Name (Partial a)
                | P (Partial a)
                deriving (Show, Functor)
 
-type PartialExpr' = Y Partial
+instance Show1 Partial where
+    liftShowsPrec :: forall a. (Int -> a -> ShowS)
+                  -> ([a] -> ShowS)
+                  -> Int -> Partial a -> ShowS
+
+    liftShowsPrec sp sl p m = case m of
+        (E e)       -> showsUnaryWith lshow "E" p e
+        (U a f b)   -> showsTernaryWith lshow showsPrec lshow "U" p a f b
+        (P e)       -> showsUnaryWith lshow "P" p e
+        where
+            lshow :: forall f. (Show1 f) => Int -> f a -> ShowS
+            lshow = liftShowsPrec sp sl
+
+type PartialExpr' = Fix Partial
 
 ----------------------------------------------------------------------------------
 
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index eaf6b12..4a47b7a 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -16,6 +16,9 @@ module Rlp.Syntax
     , Lit(..)
     , Lit'
     , Name
+
+    -- TODO: ugh move this somewhere else later
+    , showsTernaryWith
     )
     where
 ----------------------------------------------------------------------------------
@@ -24,11 +27,12 @@ import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.String                  (IsString(..))
 import Data.Functor.Foldable.TH     (makeBaseFunctor)
+import Data.Functor.Classes
 import Lens.Micro
 import Core.Syntax                  hiding (Lit)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
-
+ 
 newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 
 -- | The @e@ parameter is used for partial results. When parsing an input, we
@@ -114,3 +118,27 @@ deriving instance (Show b, Show a) => Show (RlpExprF b a)
 
 type RlpExprF' = RlpExprF Name
 
+-- society if derivable Show1
+instance (Show b) => Show1 (RlpExprF b) where
+    liftShowsPrec sp _ p m = case m of
+        (LetEF bs e)            -> showsBinaryWith showsPrec sp "LetEF" p bs e
+        (VarEF n)               -> showsUnaryWith showsPrec "VarEF" p n
+        (ConEF n)               -> showsUnaryWith showsPrec "ConEF" p n
+        (LamEF bs e)            -> showsBinaryWith showsPrec sp "LamEF" p bs e
+        (CaseEF e as)           -> showsBinaryWith sp showsPrec "CaseEF" p e as
+        (IfEF a b c)            -> showsTernaryWith sp sp sp "IfEF" p a b c
+        (AppEF f x)             -> showsBinaryWith sp sp "AppEF" p f x
+        (LitEF l)               -> showsUnaryWith showsPrec "LitEF" p l
+
+showsTernaryWith :: (Int -> x -> ShowS)
+                 -> (Int -> y -> ShowS)
+                 -> (Int -> z -> ShowS)
+                 -> String -> Int
+                 -> x -> y -> z
+                 -> ShowS
+showsTernaryWith sa sb sc name p a b c = showParen (p > 10)
+    $ showString name
+    . showChar ' ' . sa 11 a 
+    . showChar ' ' . sb 11 b
+    . showChar ' ' . sc 11 c
+
-- 
2.52.0


From a71c099fe0c0ea93235cfaa96e95fda4bc6e061a Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 8 Jan 2024 13:39:12 -0700
Subject: [PATCH 034/192] fixation fufilled - back to work!

---
 rlp.cabal                                 |  3 +-
 src/RLP/{ParseDecls.hs => Parse/Decls.hs} | 88 +++++++++++------------
 src/RLP/Parse/Types.hs                    | 65 +++++++++++++++++
 src/RLP/Syntax.hs                         |  6 +-
 4 files changed, 115 insertions(+), 47 deletions(-)
 rename src/RLP/{ParseDecls.hs => Parse/Decls.hs} (69%)
 create mode 100644 src/RLP/Parse/Types.hs

diff --git a/rlp.cabal b/rlp.cabal
index 172e047..88ab65c 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -31,7 +31,8 @@ library
                     , Core.HindleyMilner
                     , Control.Monad.Errorful
                     , Rlp.Syntax
-                    , Rlp.ParseDecls
+                    , Rlp.Parse.Decls
+                    , Rlp.Parse.Types
 
     other-modules:    Data.Heap
                     , Data.Pretty
diff --git a/src/RLP/ParseDecls.hs b/src/RLP/Parse/Decls.hs
similarity index 69%
rename from src/RLP/ParseDecls.hs
rename to src/RLP/Parse/Decls.hs
index 7a36248..18e85aa 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -1,41 +1,30 @@
--- Show Fix
-{-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE ImplicitParams #-}
+{-# LANGUAGE LambdaCase, BlockArguments #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
-module Rlp.ParseDecls
+module Rlp.Parse.Decls
     (
     )
     where
 ----------------------------------------------------------------------------------
-import Rlp.Syntax
+import Control.Monad
+import Control.Monad.State
 import Text.Megaparsec              hiding (State)
 import Text.Megaparsec.Char
 import Text.Megaparsec.Char.Lexer   qualified as L
-import Data.Functor.Const
 import Data.Functor.Classes
+import Data.Functor.Foldable
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.List                    (foldl1')
-import Data.Void
 import Data.Char
 import Data.Functor
-import Data.Functor.Foldable
-import Data.Fix
-import Data.HashMap.Strict          qualified as H
-import Control.Monad
-import Control.Monad.State
-----------------------------------------------------------------------------------
-
-type Parser = ParsecT Void Text (State ParserState)
-
-data ParserState = ParserState
-    { _psPrecTable :: PrecTable
-    }
-    deriving Show
-
-type PrecTable = H.HashMap Name (Assoc, Int)
-
+import Data.Functor.Const
+import Data.Fix                     hiding (cata)
+import Lens.Micro
+import Rlp.Parse.Types
+import Rlp.Syntax
 ----------------------------------------------------------------------------------
 
 parseTest' :: (Show a) => Parser a -> Text -> IO ()
@@ -76,10 +65,11 @@ funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
 
 partialExpr :: Parser PartialExpr'
 partialExpr = choice
-    [ try $ fmap Fix $ U <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
+    [ try $ fmap Fix $ mkB <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
     , foldl1' papp <$> some partialExpr1
     ]
     where
+        mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
         partialExpr' = unFix <$> partialExpr
 
@@ -140,32 +130,42 @@ lit = int
 
 ----------------------------------------------------------------------------------
 
--- absolute psycho shit
+type PartialE = Partial RlpExpr'
 
-type PartialDecl' = Decl (Const PartialExpr') Name
+-- complete :: OpTable -> Fix Partial -> RlpExpr'
+complete :: OpTable -> PartialExpr' -> RlpExpr'
+complete pt = let ?pt = pt in cata completePartial
 
-data Partial a = E (RlpExprF Name a)
-               | U (Partial a) Name (Partial a)
-               | P (Partial a)
-               deriving (Show, Functor)
+completePartial :: PartialE -> RlpExpr'
+completePartial (E e)        = completeRlpExpr e
+completePartial p@(B o l r)  = completeB (build p)
+completePartial (P e)        = completePartial e
 
-instance Show1 Partial where
-    liftShowsPrec :: forall a. (Int -> a -> ShowS)
-                  -> ([a] -> ShowS)
-                  -> Int -> Partial a -> ShowS
+completeRlpExpr :: RlpExprF' RlpExpr' -> RlpExpr'
+completeRlpExpr = embed
 
-    liftShowsPrec sp sl p m = case m of
-        (E e)       -> showsUnaryWith lshow "E" p e
-        (U a f b)   -> showsTernaryWith lshow showsPrec lshow "U" p a f b
-        (P e)       -> showsUnaryWith lshow "P" p e
-        where
-            lshow :: forall f. (Show1 f) => Int -> f a -> ShowS
-            lshow = liftShowsPrec sp sl
+completeB :: PartialE -> RlpExpr'
+completeB = build
 
-type PartialExpr' = Fix Partial
+build :: PartialE -> PartialE
+build e = go id e (rightmost e) where
+    rightmost :: Partial -> Partial
+    rightmost (B _ _ _) = rightmost r
+    rightmost (E n)     = undefined
 
-----------------------------------------------------------------------------------
+    go :: (?pt :: OpTable)
+       => (PartialE -> PartialE)
+       -> PartialE -> PartialE -> PartialE
+    go f p@(WithPrec o _ r) = case r of
+            E _     -> mkHole o (f . f')
+            P _     -> undefined
+            B _ _ _ -> go (mkHole o (f . f')) r
+        where f' r' = p & pR .~ r'
 
-mkOp :: RlpExpr b -> RlpExpr b -> RlpExpr b -> RlpExpr b
-mkOp f a b = (f `AppE` a) `AppE` b
+mkHole :: (?pt :: OpTable)
+       => OpInfo
+       -> (PartialE -> PartialE)
+       -> PartialE
+       -> PartialE
+mkHole = undefined
 
diff --git a/src/RLP/Parse/Types.hs b/src/RLP/Parse/Types.hs
new file mode 100644
index 0000000..cb1d6bf
--- /dev/null
+++ b/src/RLP/Parse/Types.hs
@@ -0,0 +1,65 @@
+module Rlp.Parse.Types
+    (
+    -- * Partial ASTs
+      Partial(..)
+    , PartialExpr'
+    , PartialDecl'
+
+    -- * Parser types
+    , Parser
+    , ParserState(..)
+    , OpTable
+    , OpInfo
+    )
+    where
+----------------------------------------------------------------------------------
+import Control.Monad.State
+import Data.HashMap.Strict          qualified as H
+import Data.Fix
+import Data.Functor.Foldable
+import Data.Functor.Const
+import Data.Functor.Classes
+import Data.Void
+import Text.Megaparsec              hiding (State)
+import Rlp.Syntax
+----------------------------------------------------------------------------------
+
+-- parser types
+
+type Parser = ParsecT Void Text (State ParserState)
+
+data ParserState = ParserState
+    { _psOpTable :: OpTable
+    }
+    deriving Show
+
+type OpTable = H.HashMap Name OpInfo
+type OpInfo = (Assoc, Int)
+
+----------------------------------------------------------------------------------
+
+-- absolute psycho shit (partial ASTs)
+
+type PartialDecl' = Decl (Const PartialExpr') Name
+
+data Partial a = E (RlpExprF Name a)
+               | B Name (Partial a) (Partial a)
+               | P (Partial a)
+               deriving (Show, Functor)
+
+-- required to satisfy constraint on Fix's show instance
+instance Show1 Partial where
+    liftShowsPrec :: forall a. (Int -> a -> ShowS)
+                  -> ([a] -> ShowS)
+                  -> Int -> Partial a -> ShowS
+
+    liftShowsPrec sp sl p m = case m of
+        (E e)       -> showsUnaryWith lshow "E" p e
+        (B f a b)   -> showsTernaryWith showsPrec lshow lshow "B" p f a b
+        (P e)       -> showsUnaryWith lshow "P" p e
+        where
+            lshow :: forall f. (Show1 f) => Int -> f a -> ShowS
+            lshow = liftShowsPrec sp sl
+
+type PartialExpr' = Fix Partial
+
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 4a47b7a..b314d7b 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -19,10 +19,12 @@ module Rlp.Syntax
 
     -- TODO: ugh move this somewhere else later
     , showsTernaryWith
+
+    -- * Convenience re-exports
+    , Text
     )
     where
 ----------------------------------------------------------------------------------
-import Data.Functor.Const
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.String                  (IsString(..))
@@ -32,7 +34,7 @@ import Lens.Micro
 import Core.Syntax                  hiding (Lit)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
- 
+
 newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 
 -- | The @e@ parameter is used for partial results. When parsing an input, we
-- 
2.52.0


From 2f783d96e88a354b298b463460759e3cb7ed85b7 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 8 Jan 2024 18:56:14 -0700
Subject: [PATCH 035/192] works

---
 src/RLP/Parse/Decls.hs | 70 +++++++++++++++++++++++++++++++++---------
 src/RLP/Parse/Types.hs | 27 ++++++++++++++++
 2 files changed, 82 insertions(+), 15 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 18e85aa..965a4c5 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -17,6 +17,7 @@ import Data.Functor.Classes
 import Data.Functor.Foldable
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
+import Data.HashMap.Strict          qualified as H
 import Data.List                    (foldl1')
 import Data.Char
 import Data.Functor
@@ -130,42 +131,81 @@ lit = int
 
 ----------------------------------------------------------------------------------
 
-type PartialE = Partial RlpExpr'
-
 -- complete :: OpTable -> Fix Partial -> RlpExpr'
-complete :: OpTable -> PartialExpr' -> RlpExpr'
-complete pt = let ?pt = pt in cata completePartial
+complete :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
+complete = cata completePartial
 
-completePartial :: PartialE -> RlpExpr'
+completePartial :: (?pt :: OpTable) => PartialE -> RlpExpr'
 completePartial (E e)        = completeRlpExpr e
 completePartial p@(B o l r)  = completeB (build p)
 completePartial (P e)        = completePartial e
 
-completeRlpExpr :: RlpExprF' RlpExpr' -> RlpExpr'
+completeRlpExpr :: (?pt :: OpTable) => RlpExprF' RlpExpr' -> RlpExpr'
 completeRlpExpr = embed
 
-completeB :: PartialE -> RlpExpr'
-completeB = build
+completeB :: (?pt :: OpTable) => PartialE -> RlpExpr'
+completeB p = case build p of
+    B o l r     -> (o' `AppE` l') `AppE` r'
+        where
+            -- TODO: how do we know it's symbolic?
+            o' = VarE (SymVar o)
+            l' = completeB l
+            r' = completeB r
+    P e         -> completeB e
+    E e         -> completeRlpExpr e
 
-build :: PartialE -> PartialE
+build :: (?pt :: OpTable) => PartialE -> PartialE
 build e = go id e (rightmost e) where
-    rightmost :: Partial -> Partial
-    rightmost (B _ _ _) = rightmost r
-    rightmost (E n)     = undefined
+    rightmost :: PartialE -> PartialE
+    rightmost (B _ _ r) = rightmost r
+    rightmost p@(E _)   = p
+    rightmost p@(P _)   = p
 
     go :: (?pt :: OpTable)
        => (PartialE -> PartialE)
        -> PartialE -> PartialE -> PartialE
-    go f p@(WithPrec o _ r) = case r of
+    go f p@(WithInfo o _ r) = case r of
             E _     -> mkHole o (f . f')
-            P _     -> undefined
+            P _     -> mkHole o (f . f')
             B _ _ _ -> go (mkHole o (f . f')) r
         where f' r' = p & pR .~ r'
+    go f _ = id
 
 mkHole :: (?pt :: OpTable)
        => OpInfo
        -> (PartialE -> PartialE)
        -> PartialE
        -> PartialE
-mkHole = undefined
+mkHole _     hole p@(P _)                   = hole p
+mkHole _     hole p@(E _)                   = hole p
+mkHole (a,d) hole p@(WithInfo (a',d') _ _)
+    | d' < d  = above
+    | d' > d  = below
+    | d == d' = case (a,a') of
+                  -- left-associative operators of equal precedence are
+                  -- associated left
+                  (InfixL,InfixL) -> above
+                  -- right-associative operators are handled similarly
+                  (InfixR,InfixR) -> below
+                  -- non-associative operators of equal precedence, or equal
+                  -- precedence operators of different associativities are
+                  -- invalid
+                  (_,     _)      -> error "invalid expression"
+    where
+        above = p & pL %~ hole
+        below = hole p
+
+examplePrecTable :: OpTable
+examplePrecTable = H.fromList
+    [ ("+",    (InfixL,6))
+    , ("*",    (InfixL,7))
+    , ("^",    (InfixR,8))
+    , (".",    (InfixR,7))
+    , ("~",    (Infix, 9))
+    , ("=",    (Infix, 4))
+    , ("&&",   (Infix, 3))
+    , ("||",   (Infix, 2))
+    , ("$",    (InfixR,0))
+    , ("&",    (InfixL,0))
+    ]
 
diff --git a/src/RLP/Parse/Types.hs b/src/RLP/Parse/Types.hs
index cb1d6bf..d3e7bd1 100644
--- a/src/RLP/Parse/Types.hs
+++ b/src/RLP/Parse/Types.hs
@@ -1,9 +1,17 @@
+{-# LANGUAGE ImplicitParams, ViewPatterns, PatternSynonyms #-}
+{-
+Description : Supporting types for the parser
+-}
 module Rlp.Parse.Types
     (
     -- * Partial ASTs
       Partial(..)
+    , PartialE
     , PartialExpr'
     , PartialDecl'
+    , pattern WithInfo
+    , pR
+    , pL
 
     -- * Parser types
     , Parser
@@ -20,7 +28,9 @@ import Data.Functor.Foldable
 import Data.Functor.Const
 import Data.Functor.Classes
 import Data.Void
+import Data.Maybe
 import Text.Megaparsec              hiding (State)
+import Lens.Micro
 import Rlp.Syntax
 ----------------------------------------------------------------------------------
 
@@ -47,6 +57,23 @@ data Partial a = E (RlpExprF Name a)
                | P (Partial a)
                deriving (Show, Functor)
 
+pL :: Traversal' (Partial a) (Partial a)
+pL k (B o l r) = (\l' -> B o l' r) <$> k l
+pL _ x         = pure x
+
+pR :: Traversal' (Partial a) (Partial a)
+pR k (B o l r) = (\r' -> B o l r') <$> k r
+pR _ x         = pure x
+
+type PartialE = Partial RlpExpr'
+
+-- i love you haskell
+pattern WithInfo :: (?pt :: OpTable) => OpInfo -> PartialE -> PartialE -> PartialE
+pattern WithInfo p l r <- B (opInfoOrDef -> p) l r
+
+opInfoOrDef :: (?pt :: OpTable) => Name -> OpInfo
+opInfoOrDef c = fromMaybe (InfixL,9) $ H.lookup c ?pt
+
 -- required to satisfy constraint on Fix's show instance
 instance Show1 Partial where
     liftShowsPrec :: forall a. (Int -> a -> ShowS)
-- 
2.52.0


From cb7cdf7ed7422d1e144a371234d8654a59fc8e36 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 8 Jan 2024 20:14:18 -0700
Subject: [PATCH 036/192] labels

---
 src/RLP/Parse/Decls.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 965a4c5..c8a0a33 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -64,11 +64,18 @@ decl = choice
 funD :: Parser PartialDecl'
 funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
 
+standalonePartialExpr :: Parser PartialExpr'
+standalonePartialExpr = standaloneOf partialExpr
+
+standaloneOf :: Parser a -> Parser a
+standaloneOf = (<* eof)
+
 partialExpr :: Parser PartialExpr'
 partialExpr = choice
     [ try $ fmap Fix $ mkB <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
     , foldl1' papp <$> some partialExpr1
     ]
+    <?> "expression"
     where
         mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
@@ -83,12 +90,13 @@ partialExpr1 = choice
     , fmap Fix $ varid'
     , fmap Fix $ lit'
     ]
+    <?> "expression"
     where
         varid' = E . VarEF <$> varid
         lit' = E . LitEF <$> lit
 
 infixOp :: Parser Name
-infixOp = symvar <|> symcon
+infixOp = symvar <|> symcon <?> "infix operator"
 
 symvar :: Parser Name
 symvar = T.pack <$>
@@ -100,6 +108,7 @@ symcon = T.pack <$>
 
 pat1 :: Parser Pat'
 pat1 = VarP <$> varid
+    <?> "pattern"
 
 varid :: Parser VarId
 varid = NameVar <$> lexeme namevar
@@ -126,6 +135,7 @@ dataD = undefined
 
 lit :: Parser Lit'
 lit = int
+    <?> "literal"
     where
         int = IntL <$> L.decimal
 
-- 
2.52.0


From 37d9e6f219523f4b1584cf62e9ffb09286683ca5 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 9 Jan 2024 11:39:26 -0700
Subject: [PATCH 037/192] infix decl

---
 rlp.cabal              |  2 +-
 src/RLP/Parse/Decls.hs | 36 +++++++++++++++++++++++++++++++++++-
 src/RLP/Parse/Types.hs | 36 +++++++++++++++++++++++++++++++++++-
 src/RLP/Syntax.hs      |  3 +++
 4 files changed, 74 insertions(+), 3 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 88ab65c..f4a93e2 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -63,7 +63,7 @@ library
                     -- TODO: either learn recursion-schemes, or stop depending
                     -- on it.
                     , recursion-schemes
-                    , megaparsec
+                    , megaparsec                ^>=9.6.0
                     , text
                     , data-fix
 
diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index c8a0a33..3c28017 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -24,6 +24,7 @@ import Data.Functor
 import Data.Functor.Const
 import Data.Fix                     hiding (cata)
 import Lens.Micro
+import Lens.Micro.Platform
 import Rlp.Parse.Types
 import Rlp.Syntax
 ----------------------------------------------------------------------------------
@@ -128,7 +129,40 @@ isVarSym = (`T.elem` "\\!#$%&*+./<=>?@^|-~")
 isSym :: Char -> Bool
 isSym c = c == ':' || isVarSym c
 
-infixD = undefined
+infixD :: Parser (Decl' e)
+infixD = do
+        o <- getOffset
+        a <- infixWord
+        p <- prec
+        op <- infixOp
+        region (setErrorOffset o) $ updateOpTable a p op
+        pure $ InfixD a p op
+    where
+        infixWord :: Parser Assoc
+        infixWord = choice $ lexeme <$>
+            [ "infixr" $> InfixR
+            , "infixl" $> InfixL
+            , "infix"  $> Infix
+            ]
+        
+        prec :: Parser Int
+        prec = do
+            o <- getOffset
+            n <- lexeme L.decimal
+            if 0 <= n && n <= 9 then
+                pure n
+            else
+                region (setErrorOffset o) $
+                    registerCustomFailure (RlpParErrOutOfBoundsPrecedence n)
+                    $> 9
+
+        updateOpTable :: Assoc -> Int -> Name -> Parser ()
+        updateOpTable a p op = do
+                t <- use psOpTable
+                psOpTable <~ H.alterF f op t
+            where
+                f Nothing  = pure (Just (a,p))
+                f (Just _) = customFailure RlpParErrDuplicateInfixD
 
 tySigD = undefined
 dataD = undefined
diff --git a/src/RLP/Parse/Types.hs b/src/RLP/Parse/Types.hs
index d3e7bd1..16a0ed9 100644
--- a/src/RLP/Parse/Types.hs
+++ b/src/RLP/Parse/Types.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE ImplicitParams, ViewPatterns, PatternSynonyms #-}
 {-
 Description : Supporting types for the parser
@@ -16,8 +18,13 @@ module Rlp.Parse.Types
     -- * Parser types
     , Parser
     , ParserState(..)
+    , psOpTable
+    , RlpParseError(..)
     , OpTable
     , OpInfo
+
+    -- * Extras
+    , registerCustomFailure
     )
     where
 ----------------------------------------------------------------------------------
@@ -29,14 +36,17 @@ import Data.Functor.Const
 import Data.Functor.Classes
 import Data.Void
 import Data.Maybe
+import Data.Set                     qualified as S
 import Text.Megaparsec              hiding (State)
+import Text.Printf
 import Lens.Micro
+import Lens.Micro.TH
 import Rlp.Syntax
 ----------------------------------------------------------------------------------
 
 -- parser types
 
-type Parser = ParsecT Void Text (State ParserState)
+type Parser = ParsecT RlpParseError Text (State ParserState)
 
 data ParserState = ParserState
     { _psOpTable :: OpTable
@@ -46,6 +56,23 @@ data ParserState = ParserState
 type OpTable = H.HashMap Name OpInfo
 type OpInfo = (Assoc, Int)
 
+-- data WithLocation a = WithLocation [String] a
+
+data RlpParseError = RlpParErrOutOfBoundsPrecedence Int
+                   | RlpParErrDuplicateInfixD
+    deriving (Eq, Ord, Show)
+
+instance ShowErrorComponent RlpParseError where
+    showErrorComponent = \case
+        -- TODO: wrap text to 80 characters
+        RlpParErrOutOfBoundsPrecedence n ->
+            printf "%d is an invalid precedence level! rl' currently only\
+                   \allows custom precedences between 0 and 9 (inclusive).\
+                   \ This is an arbitrary limit put in place for legibility\
+                   \ concerns, and may change in the future." n
+        RlpParErrDuplicateInfixD ->
+            "duplicate infix decl"
+
 ----------------------------------------------------------------------------------
 
 -- absolute psycho shit (partial ASTs)
@@ -90,3 +117,10 @@ instance Show1 Partial where
 
 type PartialExpr' = Fix Partial
 
+----------------------------------------------------------------------------------
+
+makeLenses ''ParserState
+
+registerCustomFailure :: MonadParsec e s m => e -> m ()
+registerCustomFailure = registerFancyFailure . S.singleton . ErrorCustom
+
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index b314d7b..4a43cb9 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -9,6 +9,7 @@ module Rlp.Syntax
     , RlpExprF(..)
     , RlpExprF'
     , Decl(..)
+    , Decl'
     , Assoc(..)
     , VarId(..)
     , Pat(..)
@@ -50,6 +51,8 @@ data Decl e b = FunD    VarId [Pat b] (e b)
               | InfixD  Assoc Int Name
               deriving Show
 
+type Decl' e = Decl e Name
+
 data Assoc = InfixL
            | InfixR
            | Infix
-- 
2.52.0


From 074350768c259f4ac65aac530368ce9edec7578a Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 9 Jan 2024 12:26:53 -0700
Subject: [PATCH 038/192] expr fixups

---
 src/RLP/Parse/Decls.hs | 29 ++++++++++++++++++++---------
 1 file changed, 20 insertions(+), 9 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 3c28017..87668aa 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -45,6 +45,9 @@ symbol = L.symbol sc
 sc :: Parser ()
 sc = L.space hspace1 (void lineComment) (void blockComment)
 
+scn :: Parser ()
+scn = L.space space1 (void lineComment) (void blockComment)
+
 -- TODO: return comment text
 -- TODO: '---' should not start a comment
 lineComment :: Parser Text
@@ -72,27 +75,35 @@ standaloneOf :: Parser a -> Parser a
 standaloneOf = (<* eof)
 
 partialExpr :: Parser PartialExpr'
-partialExpr = choice
-    [ try $ fmap Fix $ mkB <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
-    , foldl1' papp <$> some partialExpr1
+partialExpr = (choice . fmap foldedLexeme)
+    [ try application
+    , Fix <$> infixExpr
     ]
     <?> "expression"
     where
+        application = foldl1' mkApp <$> some partialExpr1
+        infixExpr = mkB <$> partialExpr1' <*> infixOp' <*> partialExpr'
+
         mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
         partialExpr' = unFix <$> partialExpr
+        infixOp' = foldedLexeme infixOp
 
-        papp :: PartialExpr' -> PartialExpr' -> PartialExpr'
-        papp f x = Fix . E $ f `AppEF` x
+        mkApp :: PartialExpr' -> PartialExpr' -> PartialExpr'
+        mkApp f x = Fix . E $ f `AppEF` x
+
+foldedLexeme :: Parser a -> Parser a
+foldedLexeme p = L.lineFold scn $ \sc' -> L.lexeme sc' p
 
 partialExpr1 :: Parser PartialExpr'
-partialExpr1 = choice
-    [ try $ char '(' *> (hoistFix P <$> partialExpr) <* char ')'
-    , fmap Fix $ varid'
-    , fmap Fix $ lit'
+partialExpr1 = (choice . fmap foldedLexeme)
+    [ foldedLexeme "(" *> partialExpr' <* foldedLexeme ")"
+    , Fix <$> varid'
+    , Fix <$> lit'
     ]
     <?> "expression"
     where
+        partialExpr' = wrapFix . P . unwrapFix <$> partialExpr
         varid' = E . VarEF <$> varid
         lit' = E . LitEF <$> lit
 
-- 
2.52.0


From 90a9594e8f8a55c2cf071b7e6c4aebc74a079341 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 9 Jan 2024 14:24:51 -0700
Subject: [PATCH 039/192] where

---
 src/RLP/Parse/Decls.hs | 93 ++++++++++++++++++++++++++++++++----------
 src/RLP/Parse/Types.hs |  7 ----
 src/RLP/Parse/Utils.hs | 30 ++++++++++++++
 src/RLP/Syntax.hs      | 24 +++++++----
 4 files changed, 119 insertions(+), 35 deletions(-)
 create mode 100644 src/RLP/Parse/Utils.hs

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 87668aa..8a95f41 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -18,6 +18,7 @@ import Data.Functor.Foldable
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.HashMap.Strict          qualified as H
+import Data.Maybe                   (maybeToList)
 import Data.List                    (foldl1')
 import Data.Char
 import Data.Functor
@@ -26,6 +27,7 @@ import Data.Fix                     hiding (cata)
 import Lens.Micro
 import Lens.Micro.Platform
 import Rlp.Parse.Types
+import Rlp.Parse.Utils
 import Rlp.Syntax
 ----------------------------------------------------------------------------------
 
@@ -39,6 +41,9 @@ parseTest' p s = case runState (runParserT p "test" s) init of
 lexeme :: Parser a -> Parser a
 lexeme = L.lexeme sc
 
+flexeme :: Parser a -> Parser a
+flexeme p = L.lineFold scn $ \sc' -> L.lexeme sc' p
+
 symbol :: Text -> Parser Text
 symbol = L.symbol sc
 
@@ -66,7 +71,16 @@ decl = choice
     ]
 
 funD :: Parser PartialDecl'
-funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
+funD = FunD <$> flexeme varid <*> params <*> (symbol "=" *> body) <*> whereClause
+    where
+        params = many pat1
+        body = fmap Const partialExpr
+
+whereClause :: Parser Where'
+whereClause = optionalList $
+        flexeme "where" *> pure
+            [ FunB "fixme" [] (VarE "fixme")
+            ]
 
 standalonePartialExpr :: Parser PartialExpr'
 standalonePartialExpr = standaloneOf partialExpr
@@ -75,7 +89,7 @@ standaloneOf :: Parser a -> Parser a
 standaloneOf = (<* eof)
 
 partialExpr :: Parser PartialExpr'
-partialExpr = (choice . fmap foldedLexeme)
+partialExpr = (choice . fmap flexeme)
     [ try application
     , Fix <$> infixExpr
     ]
@@ -87,17 +101,14 @@ partialExpr = (choice . fmap foldedLexeme)
         mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
         partialExpr' = unFix <$> partialExpr
-        infixOp' = foldedLexeme infixOp
+        infixOp' = flexeme infixOp
 
         mkApp :: PartialExpr' -> PartialExpr' -> PartialExpr'
         mkApp f x = Fix . E $ f `AppEF` x
 
-foldedLexeme :: Parser a -> Parser a
-foldedLexeme p = L.lineFold scn $ \sc' -> L.lexeme sc' p
-
 partialExpr1 :: Parser PartialExpr'
-partialExpr1 = (choice . fmap foldedLexeme)
-    [ foldedLexeme "(" *> partialExpr' <* foldedLexeme ")"
+partialExpr1 = (choice . fmap flexeme)
+    [ try $ flexeme "(" *> partialExpr' <* flexeme ")"
     , Fix <$> varid'
     , Fix <$> lit'
     ]
@@ -108,7 +119,7 @@ partialExpr1 = (choice . fmap foldedLexeme)
         lit' = E . LitEF <$> lit
 
 infixOp :: Parser Name
-infixOp = symvar <|> symcon <?> "infix operator"
+infixOp = symvar <|> symcon <?> "operator"
 
 symvar :: Parser Name
 symvar = T.pack <$>
@@ -119,20 +130,34 @@ symcon = T.pack <$>
     liftA2 (:) (char ':') (many $ satisfy isSym)
 
 pat1 :: Parser Pat'
-pat1 = VarP <$> varid
+pat1 = VarP <$> flexeme varid
     <?> "pattern"
 
+conid :: Parser ConId
+conid = NameCon <$> lexeme namecon
+    <|> SymCon <$> lexeme (char '(' *> symcon <* char ')')
+    <?> "constructor identifier"
+
+namecon :: Parser Name
+namecon = T.pack <$>
+    liftA2 (:) (satisfy isUpper)
+               (many $ satisfy isNameTail)
+
 varid :: Parser VarId
-varid = NameVar <$> lexeme namevar
+varid = NameVar <$> try (lexeme namevar)
     <|> SymVar <$> lexeme (char '(' *> symvar <* char ')')
     <?> "variable identifier"
-    where
-        namevar = T.pack <$>
+
+namevar :: Parser Name
+namevar = try word
+        & withPredicate (`notElem` ["where"]) empty
+    where word = T.pack <$>
             liftA2 (:) (satisfy isLower) (many $ satisfy isNameTail)
 
-        isNameTail c = isAlphaNum c
-                    || c == '\''
-                    || c == '_'
+isNameTail :: Char -> Bool
+isNameTail c = isAlphaNum c
+            || c == '\''
+            || c == '_'
 
 isVarSym :: Char -> Bool
 isVarSym = (`T.elem` "\\!#$%&*+./<=>?@^|-~")
@@ -159,7 +184,7 @@ infixD = do
         prec :: Parser Int
         prec = do
             o <- getOffset
-            n <- lexeme L.decimal
+            n <- lexeme L.decimal <?> "precedence level (an integer)"
             if 0 <= n && n <= 9 then
                 pure n
             else
@@ -173,10 +198,36 @@ infixD = do
                 psOpTable <~ H.alterF f op t
             where
                 f Nothing  = pure (Just (a,p))
-                f (Just _) = customFailure RlpParErrDuplicateInfixD
+                f (Just x) = registerCustomFailure RlpParErrDuplicateInfixD
+                           $> Just x
 
 tySigD = undefined
-dataD = undefined
+
+dataD :: Parser (Decl' e)
+dataD = DataD <$> (flexeme "data" *> conid) <*> many typaram
+      <*> optionalList (symbol "=" *> conalts)
+    where
+        typaram :: Parser Name
+        typaram = flexeme namevar
+
+        conalts :: Parser [ConAlt]
+        conalts = (:) <$> conalt <*> optionalList (symbol "|" *> conalts)
+
+        conalt :: Parser ConAlt
+        conalt = ConAlt <$> conid <*> many type1
+
+type1 :: Parser Type
+type1 = (choice . fmap flexeme)
+    [ flexeme "(" *> type_ <* flexeme ")"
+    , TyVar <$> namevar
+    , TyCon <$> namecon
+    ]
+
+type_ :: Parser Type
+type_ = (choice . fmap flexeme)
+    [ try $ (:->) <$> type1 <*> (flexeme "->" *> type_)
+    , type1
+    ]
 
 lit :: Parser Lit'
 lit = int
@@ -184,9 +235,9 @@ lit = int
     where
         int = IntL <$> L.decimal
 
-----------------------------------------------------------------------------------
+--------------------------------------------------------------------------------
+-- completing partial expressions
 
--- complete :: OpTable -> Fix Partial -> RlpExpr'
 complete :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
 complete = cata completePartial
 
diff --git a/src/RLP/Parse/Types.hs b/src/RLP/Parse/Types.hs
index 16a0ed9..e961d2d 100644
--- a/src/RLP/Parse/Types.hs
+++ b/src/RLP/Parse/Types.hs
@@ -22,9 +22,6 @@ module Rlp.Parse.Types
     , RlpParseError(..)
     , OpTable
     , OpInfo
-
-    -- * Extras
-    , registerCustomFailure
     )
     where
 ----------------------------------------------------------------------------------
@@ -36,7 +33,6 @@ import Data.Functor.Const
 import Data.Functor.Classes
 import Data.Void
 import Data.Maybe
-import Data.Set                     qualified as S
 import Text.Megaparsec              hiding (State)
 import Text.Printf
 import Lens.Micro
@@ -121,6 +117,3 @@ type PartialExpr' = Fix Partial
 
 makeLenses ''ParserState
 
-registerCustomFailure :: MonadParsec e s m => e -> m ()
-registerCustomFailure = registerFancyFailure . S.singleton . ErrorCustom
-
diff --git a/src/RLP/Parse/Utils.hs b/src/RLP/Parse/Utils.hs
new file mode 100644
index 0000000..cf5fb8c
--- /dev/null
+++ b/src/RLP/Parse/Utils.hs
@@ -0,0 +1,30 @@
+module Rlp.Parse.Utils
+    ( withPredicate
+    , registerCustomFailure
+    , optionalList
+    )
+    where
+--------------------------------------------------------------------------------
+import Text.Megaparsec
+import Rlp.Parse.Types
+import Data.Set                     qualified as S
+import Data.Maybe
+import Control.Monad
+--------------------------------------------------------------------------------
+
+-- TODO: generalise type sig
+withPredicate :: (a -> Bool)
+              -> Parser a    -- ^ action to run should the predicate fail
+              -> Parser a
+              -> Parser a
+withPredicate f r p = do
+    o <- getOffset
+    a <- p
+    if f a then pure a else setOffset o *> r
+
+registerCustomFailure :: MonadParsec e s m => e -> m ()
+registerCustomFailure = registerFancyFailure . S.singleton . ErrorCustom
+
+optionalList :: Parser [a] -> Parser [a]
+optionalList = fmap (join . maybeToList) . optional
+
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 4a43cb9..09acb8b 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -2,7 +2,7 @@
 {-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable #-}
 -- recursion-schemes
 {-# LANGUAGE TemplateHaskell, TypeFamilies #-}
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings, PatternSynonyms #-}
 module Rlp.Syntax
     ( RlpExpr(..)
     , RlpExpr'
@@ -10,8 +10,15 @@ module Rlp.Syntax
     , RlpExprF'
     , Decl(..)
     , Decl'
+    , Bind(..)
+    , Where
+    , Where'
+    , ConAlt(..)
+    , Type(..)
+    , pattern (:->)
     , Assoc(..)
     , VarId(..)
+    , ConId(..)
     , Pat(..)
     , Pat'
     , Lit(..)
@@ -45,9 +52,9 @@ newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 -- accounted for, we may complete the parsing task and get a proper @[Decl
 -- RlpExpr Name]@.
 
-data Decl e b = FunD    VarId [Pat b] (e b)
+data Decl e b = FunD    VarId [Pat b] (e b) (Where b)
               | TySigD  [VarId] Type
-              | DataD   ConId [ConId] [ConAlt]
+              | DataD   ConId [Name] [ConAlt]
               | InfixD  Assoc Int Name
               deriving Show
 
@@ -58,14 +65,14 @@ data Assoc = InfixL
            | Infix
            deriving Show
 
-data ConAlt = ConAlt ConId [ConId]
-               deriving Show
+data ConAlt = ConAlt ConId [Type]
+            deriving Show
 
 data RlpExpr b = LetE  [Bind b] (RlpExpr b)
                | VarE  VarId
                | ConE  ConId
                | LamE  [Pat b] (RlpExpr b)
-               | CaseE (RlpExpr b) [Alt b]
+               | CaseE (RlpExpr b) [(Alt b, Where b)]
                | IfE   (RlpExpr b) (RlpExpr b) (RlpExpr b)
                | AppE  (RlpExpr b) (RlpExpr b)
                | LitE  (Lit b)
@@ -73,9 +80,12 @@ data RlpExpr b = LetE  [Bind b] (RlpExpr b)
 
 type RlpExpr' = RlpExpr Name
 
+type Where b = [Bind b]
+type Where' = [Bind Name]
+
 -- do we want guards?
 data Alt b = AltA (Pat b) (RlpExpr b)
-               deriving Show
+           deriving Show
 
 data Bind b = PatB (Pat b) (RlpExpr b)
             | FunB VarId [Pat b] (RlpExpr b)
-- 
2.52.0


From 4b44f57066d8fdb82c5030f81d41254021f79806 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 9 Jan 2024 22:57:14 -0700
Subject: [PATCH 040/192] cool

---
 src/RLP/Parse/Decls.hs | 44 ++++++++++++++++++++++++++++--------------
 src/RLP/Syntax.hs      | 15 +++++++++++++-
 2 files changed, 44 insertions(+), 15 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 8a95f41..9d4a911 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE RecursiveDo #-}
 {-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE ImplicitParams #-}
 {-# LANGUAGE LambdaCase, BlockArguments #-}
@@ -71,14 +72,14 @@ decl = choice
     ]
 
 funD :: Parser PartialDecl'
-funD = FunD <$> flexeme varid <*> params <*> (symbol "=" *> body) <*> whereClause
+funD = FunD <$> lexeme varid <*> params <*> (symbol "=" *> body) <*> whereClause
     where
         params = many pat1
         body = fmap Const partialExpr
 
 whereClause :: Parser Where'
 whereClause = optionalList $
-        flexeme "where" *> pure
+        lexeme "where" *> pure
             [ FunB "fixme" [] (VarE "fixme")
             ]
 
@@ -89,7 +90,7 @@ standaloneOf :: Parser a -> Parser a
 standaloneOf = (<* eof)
 
 partialExpr :: Parser PartialExpr'
-partialExpr = (choice . fmap flexeme)
+partialExpr = choice
     [ try application
     , Fix <$> infixExpr
     ]
@@ -101,14 +102,14 @@ partialExpr = (choice . fmap flexeme)
         mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
         partialExpr' = unFix <$> partialExpr
-        infixOp' = flexeme infixOp
+        infixOp' = lexeme infixOp
 
         mkApp :: PartialExpr' -> PartialExpr' -> PartialExpr'
         mkApp f x = Fix . E $ f `AppEF` x
 
 partialExpr1 :: Parser PartialExpr'
-partialExpr1 = (choice . fmap flexeme)
-    [ try $ flexeme "(" *> partialExpr' <* flexeme ")"
+partialExpr1 = choice
+    [ try $ lexeme "(" *> partialExpr' <* lexeme ")"
     , Fix <$> varid'
     , Fix <$> lit'
     ]
@@ -130,7 +131,7 @@ symcon = T.pack <$>
     liftA2 (:) (char ':') (many $ satisfy isSym)
 
 pat1 :: Parser Pat'
-pat1 = VarP <$> flexeme varid
+pat1 = VarP <$> lexeme varid
     <?> "pattern"
 
 conid :: Parser ConId
@@ -148,8 +149,23 @@ varid = NameVar <$> try (lexeme namevar)
     <|> SymVar <$> lexeme (char '(' *> symvar <* char ')')
     <?> "variable identifier"
 
+decls :: Parser [PartialDecl']
+decls = L.indentBlock scn p where
+    p = do
+        a <- "wtf"
+        pure (L.IndentSome (Just pos1) pure decl)
+
+t :: Parser [PartialDecl']
+t = do
+    space
+    i <- L.indentLevel
+    let indentGuard = L.indentGuard scn EQ i
+    -- indentGuard *> decl *> eol *> indentGuard *> decl
+    rec ds <- indentGuard *> decl <|> eof
+    many $ indentGuard *> decl <* (eol <|> eof)
+
 namevar :: Parser Name
-namevar = try word
+namevar = word
         & withPredicate (`notElem` ["where"]) empty
     where word = T.pack <$>
             liftA2 (:) (satisfy isLower) (many $ satisfy isNameTail)
@@ -204,11 +220,11 @@ infixD = do
 tySigD = undefined
 
 dataD :: Parser (Decl' e)
-dataD = DataD <$> (flexeme "data" *> conid) <*> many typaram
+dataD = DataD <$> (lexeme "data" *> conid) <*> many typaram
       <*> optionalList (symbol "=" *> conalts)
     where
         typaram :: Parser Name
-        typaram = flexeme namevar
+        typaram = lexeme namevar
 
         conalts :: Parser [ConAlt]
         conalts = (:) <$> conalt <*> optionalList (symbol "|" *> conalts)
@@ -217,15 +233,15 @@ dataD = DataD <$> (flexeme "data" *> conid) <*> many typaram
         conalt = ConAlt <$> conid <*> many type1
 
 type1 :: Parser Type
-type1 = (choice . fmap flexeme)
-    [ flexeme "(" *> type_ <* flexeme ")"
+type1 = choice
+    [ lexeme "(" *> type_ <* lexeme ")"
     , TyVar <$> namevar
     , TyCon <$> namecon
     ]
 
 type_ :: Parser Type
-type_ = (choice . fmap flexeme)
-    [ try $ (:->) <$> type1 <*> (flexeme "->" *> type_)
+type_ = choice
+    [ try $ (:->) <$> type1 <*> (lexeme "->" *> type_)
     , type1
     ]
 
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 09acb8b..58843b5 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -4,7 +4,10 @@
 {-# LANGUAGE TemplateHaskell, TypeFamilies #-}
 {-# LANGUAGE OverloadedStrings, PatternSynonyms #-}
 module Rlp.Syntax
-    ( RlpExpr(..)
+    ( RlpModule(..)
+    , rlpmodName
+    , rlpmodProgram
+    , RlpExpr(..)
     , RlpExpr'
     , RlpExprF(..)
     , RlpExprF'
@@ -39,10 +42,16 @@ import Data.String                  (IsString(..))
 import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Data.Functor.Classes
 import Lens.Micro
+import Lens.Micro.TH
 import Core.Syntax                  hiding (Lit)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
 
+data RlpModule b = RlpModule
+    { _rlpmodName       :: Text
+    , _rlpmodProgram    :: RlpProgram b
+    }
+
 newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 
 -- | The @e@ parameter is used for partial results. When parsing an input, we
@@ -157,3 +166,7 @@ showsTernaryWith sa sb sc name p a b c = showParen (p > 10)
     . showChar ' ' . sb 11 b
     . showChar ' ' . sc 11 c
 
+--------------------------------------------------------------------------------
+
+makeLenses ''RlpModule
+
-- 
2.52.0


From 1d43c1d3049fe759cbbc91232c3bff948811f2c5 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 10:46:53 -0700
Subject: [PATCH 041/192] aaaaa

---
 src/RLP/Parse/Decls.hs | 33 +++++++++++++++++++--------------
 1 file changed, 19 insertions(+), 14 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 9d4a911..201316b 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -65,10 +65,12 @@ blockComment = L.skipBlockCommentNested "{-" "-}" $> "<unimpl>"
 
 decl :: Parser PartialDecl'
 decl = choice
-    [ funD
-    , tySigD
+    -- declarations that begin with a keyword before those beginning with an
+    -- arbitrary name
+    [ infixD
     , dataD
-    , infixD
+    , funD
+    , tySigD
     ]
 
 funD :: Parser PartialDecl'
@@ -150,26 +152,28 @@ varid = NameVar <$> try (lexeme namevar)
     <?> "variable identifier"
 
 decls :: Parser [PartialDecl']
-decls = L.indentBlock scn p where
-    p = do
-        a <- "wtf"
-        pure (L.IndentSome (Just pos1) pure decl)
-
-t :: Parser [PartialDecl']
-t = do
+decls = do
     space
     i <- L.indentLevel
     let indentGuard = L.indentGuard scn EQ i
     -- indentGuard *> decl *> eol *> indentGuard *> decl
-    rec ds <- indentGuard *> decl <|> eof
-    many $ indentGuard *> decl <* (eol <|> eof)
+    many $ indentGuard *> decl
+    -- many $ indentGuard *> decl <* (eol <|> eof)
 
 namevar :: Parser Name
 namevar = word
-        & withPredicate (`notElem` ["where"]) empty
+        & withPredicate (`notElem` keywords) empty
     where word = T.pack <$>
             liftA2 (:) (satisfy isLower) (many $ satisfy isNameTail)
 
+keywords :: (IsString a) => [a]
+keywords =
+    [ "where"
+    , "infix"
+    , "infixr"
+    , "infixl"
+    ]
+
 isNameTail :: Char -> Bool
 isNameTail c = isAlphaNum c
             || c == '\''
@@ -217,7 +221,8 @@ infixD = do
                 f (Just x) = registerCustomFailure RlpParErrDuplicateInfixD
                            $> Just x
 
-tySigD = undefined
+tySigD :: Parser (Decl' e)
+tySigD = undefined -- TySigD <$> (flexeme)
 
 dataD :: Parser (Decl' e)
 dataD = DataD <$> (lexeme "data" *> conid) <*> many typaram
-- 
2.52.0


From 86cd1075ca93f2072d4521849d09ae9a9139859e Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 11:03:06 -0700
Subject: [PATCH 042/192] decls fix

---
 src/RLP/Parse/Decls.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 201316b..07c8263 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -22,9 +22,11 @@ import Data.HashMap.Strict          qualified as H
 import Data.Maybe                   (maybeToList)
 import Data.List                    (foldl1')
 import Data.Char
+import Data.Function                (fix)
 import Data.Functor
 import Data.Functor.Const
 import Data.Fix                     hiding (cata)
+import GHC.Exts                     (IsString)
 import Lens.Micro
 import Lens.Micro.Platform
 import Rlp.Parse.Types
@@ -156,9 +158,8 @@ decls = do
     space
     i <- L.indentLevel
     let indentGuard = L.indentGuard scn EQ i
-    -- indentGuard *> decl *> eol *> indentGuard *> decl
-    many $ indentGuard *> decl
-    -- many $ indentGuard *> decl <* (eol <|> eof)
+    fix \ds -> (:) <$> (indentGuard *> decl)
+                   <*> (try ds <|> eof *> pure [])
 
 namevar :: Parser Name
 namevar = word
-- 
2.52.0


From 981c5d8a831b6d266fec499984166dbbfcb2bd57 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 11:26:17 -0700
Subject: [PATCH 043/192] finally in a decent state

---
 src/RLP/Parse/Decls.hs | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 07c8263..480bea3 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -44,9 +44,6 @@ parseTest' p s = case runState (runParserT p "test" s) init of
 lexeme :: Parser a -> Parser a
 lexeme = L.lexeme sc
 
-flexeme :: Parser a -> Parser a
-flexeme p = L.lineFold scn $ \sc' -> L.lexeme sc' p
-
 symbol :: Text -> Parser Text
 symbol = L.symbol sc
 
@@ -56,6 +53,8 @@ sc = L.space hspace1 (void lineComment) (void blockComment)
 scn :: Parser ()
 scn = L.space space1 (void lineComment) (void blockComment)
 
+type OnFold = (?foldGuard :: Parser ())
+
 -- TODO: return comment text
 -- TODO: '---' should not start a comment
 lineComment :: Parser Text
@@ -65,7 +64,7 @@ lineComment = L.skipLineComment "--" $> "<unimpl>"
 blockComment :: Parser Text
 blockComment = L.skipBlockCommentNested "{-" "-}" $> "<unimpl>"
 
-decl :: Parser PartialDecl'
+decl :: (OnFold) => Parser PartialDecl'
 decl = choice
     -- declarations that begin with a keyword before those beginning with an
     -- arbitrary name
@@ -75,12 +74,18 @@ decl = choice
     , tySigD
     ]
 
-funD :: Parser PartialDecl'
-funD = FunD <$> lexeme varid <*> params <*> (symbol "=" *> body) <*> whereClause
+funD :: (OnFold) => Parser PartialDecl'
+funD = FunD <$> lexeme varid <*> params <*> (fsymbol "=" *> body) <*> whereClause
     where
         params = many pat1
         body = fmap Const partialExpr
 
+fsymbol :: (OnFold) => Text -> Parser Text
+fsymbol p = scn *> ?foldGuard *> symbol p
+
+flexeme :: (OnFold) => Parser a -> Parser a
+flexeme p = scn *> ?foldGuard *> lexeme p
+
 whereClause :: Parser Where'
 whereClause = optionalList $
         lexeme "where" *> pure
@@ -134,8 +139,8 @@ symcon :: Parser Name
 symcon = T.pack <$>
     liftA2 (:) (char ':') (many $ satisfy isSym)
 
-pat1 :: Parser Pat'
-pat1 = VarP <$> lexeme varid
+pat1 :: (OnFold) => Parser Pat'
+pat1 = VarP <$> flexeme varid
     <?> "pattern"
 
 conid :: Parser ConId
@@ -158,6 +163,7 @@ decls = do
     space
     i <- L.indentLevel
     let indentGuard = L.indentGuard scn EQ i
+    let ?foldGuard = void $ L.indentGuard scn GT i
     fix \ds -> (:) <$> (indentGuard *> decl)
                    <*> (try ds <|> eof *> pure [])
 
-- 
2.52.0


From 05226373eed319d056780b6fd4ec8ee48230e998 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 11:33:27 -0700
Subject: [PATCH 044/192] replace uses of many+satisfy with takeWhileP

---
 src/RLP/Parse/Decls.hs | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 480bea3..3e86529 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -132,12 +132,10 @@ infixOp :: Parser Name
 infixOp = symvar <|> symcon <?> "operator"
 
 symvar :: Parser Name
-symvar = T.pack <$>
-    liftA2 (:) (satisfy isVarSym) (many $ satisfy isSym)
+symvar = T.cons <$> satisfy isVarSym <*> takeWhileP Nothing isSym
 
 symcon :: Parser Name
-symcon = T.pack <$>
-    liftA2 (:) (char ':') (many $ satisfy isSym)
+symcon = T.cons <$> char ':' <*> takeWhileP Nothing isSym
 
 pat1 :: (OnFold) => Parser Pat'
 pat1 = VarP <$> flexeme varid
@@ -149,9 +147,7 @@ conid = NameCon <$> lexeme namecon
     <?> "constructor identifier"
 
 namecon :: Parser Name
-namecon = T.pack <$>
-    liftA2 (:) (satisfy isUpper)
-               (many $ satisfy isNameTail)
+namecon = T.cons <$> satisfy isUpper <*> takeWhileP Nothing isNameTail
 
 varid :: Parser VarId
 varid = NameVar <$> try (lexeme namevar)
@@ -170,8 +166,8 @@ decls = do
 namevar :: Parser Name
 namevar = word
         & withPredicate (`notElem` keywords) empty
-    where word = T.pack <$>
-            liftA2 (:) (satisfy isLower) (many $ satisfy isNameTail)
+    where
+        word = T.cons <$> satisfy isLower <*> takeWhileP Nothing isNameTail
 
 keywords :: (IsString a) => [a]
 keywords =
-- 
2.52.0


From 55dbc9de70528429b258b4d5e5729d5f71697944 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 14:10:46 -0700
Subject: [PATCH 045/192] layout

layouts

oh my layouts
---
 src/RLP/Parse/Decls.hs | 55 +++++++++++++++++++++++++++++++++---------
 1 file changed, 43 insertions(+), 12 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 3e86529..5199b92 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -64,6 +64,31 @@ lineComment = L.skipLineComment "--" $> "<unimpl>"
 blockComment :: Parser Text
 blockComment = L.skipBlockCommentNested "{-" "-}" $> "<unimpl>"
 
+layout :: forall a. ((OnFold) => Parser a) -> Parser [a]
+layout item = scn *> (explicit <|> implicit) where
+    explicit :: Parser [a]
+    explicit = let ?foldGuard = scn -- line folds just go to the semicolon
+        in sym "{" *> fix \items -> choice
+            [ sym "}" $> []
+            , (:) <$> item
+                  <*> (sym ";" *> items <|> sym "}" $> [])
+            ]
+        where
+            sym = L.symbol scn
+
+    implicit :: Parser [a]
+    implicit = do
+        i <- L.indentLevel
+        -- items must be aligned
+        let indentGuard = L.indentGuard scn EQ i
+        -- override foldGuard in order with new indentation
+        let ?foldGuard = void $ L.indentGuard scn GT i
+        fix \ds -> (:) <$> (indentGuard *> item)
+                       <*> (ds <|> pure [])
+
+t :: (?foldGuard :: Parser ()) => Parser [Text]
+t = (:) <$> lexeme "soge" <*> many (flexeme "doge")
+
 decl :: (OnFold) => Parser PartialDecl'
 decl = choice
     -- declarations that begin with a keyword before those beginning with an
@@ -80,11 +105,13 @@ funD = FunD <$> lexeme varid <*> params <*> (fsymbol "=" *> body) <*> whereClaus
         params = many pat1
         body = fmap Const partialExpr
 
+-- we may not need to call scn here
 fsymbol :: (OnFold) => Text -> Parser Text
-fsymbol p = scn *> ?foldGuard *> symbol p
+fsymbol p = try ?foldGuard *> symbol p
 
+-- we may not need to call scn here
 flexeme :: (OnFold) => Parser a -> Parser a
-flexeme p = scn *> ?foldGuard *> lexeme p
+flexeme p = try ?foldGuard *> lexeme p
 
 whereClause :: Parser Where'
 whereClause = optionalList $
@@ -94,18 +121,19 @@ whereClause = optionalList $
 
 standalonePartialExpr :: Parser PartialExpr'
 standalonePartialExpr = standaloneOf partialExpr
+    where ?foldGuard = undefined
 
 standaloneOf :: Parser a -> Parser a
 standaloneOf = (<* eof)
 
-partialExpr :: Parser PartialExpr'
+partialExpr :: (OnFold) => Parser PartialExpr'
 partialExpr = choice
     [ try application
     , Fix <$> infixExpr
     ]
     <?> "expression"
     where
-        application = foldl1' mkApp <$> some partialExpr1
+        application = foldl1' mkApp <$> some (flexeme partialExpr1)
         infixExpr = mkB <$> partialExpr1' <*> infixOp' <*> partialExpr'
 
         mkB a f b = B f a b
@@ -116,7 +144,7 @@ partialExpr = choice
         mkApp :: PartialExpr' -> PartialExpr' -> PartialExpr'
         mkApp f x = Fix . E $ f `AppEF` x
 
-partialExpr1 :: Parser PartialExpr'
+partialExpr1 :: (OnFold) => Parser PartialExpr'
 partialExpr1 = choice
     [ try $ lexeme "(" *> partialExpr' <* lexeme ")"
     , Fix <$> varid'
@@ -155,13 +183,16 @@ varid = NameVar <$> try (lexeme namevar)
     <?> "variable identifier"
 
 decls :: Parser [PartialDecl']
-decls = do
-    space
-    i <- L.indentLevel
-    let indentGuard = L.indentGuard scn EQ i
-    let ?foldGuard = void $ L.indentGuard scn GT i
-    fix \ds -> (:) <$> (indentGuard *> decl)
-                   <*> (try ds <|> eof *> pure [])
+decls = layout decl <* eof
+
+-- decls :: Parser [PartialDecl']
+-- decls = do
+--     space
+--     i <- L.indentLevel
+--     let indentGuard = L.indentGuard scn EQ i
+--     let ?foldGuard = void $ L.indentGuard scn GT i
+--     fix \ds -> (:) <$> (indentGuard *> decl)
+--                    <*> (try ds <|> eof *> pure [])
 
 namevar :: Parser Name
 namevar = word
-- 
2.52.0


From 8ad967fac0207b5c6a1c14b335de14e8e7563209 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 14:33:03 -0700
Subject: [PATCH 046/192] i did not realise my fs is case insensitive

---
 src/{RLP => Rlp}/Parse/Decls.hs | 4 ++--
 src/{RLP => Rlp}/Parse/Types.hs | 0
 src/{RLP => Rlp}/Parse/Utils.hs | 0
 src/{RLP => Rlp}/Syntax.hs      | 0
 tst/Rlp/Parse/DeclsSpec.hs      | 0
 5 files changed, 2 insertions(+), 2 deletions(-)
 rename src/{RLP => Rlp}/Parse/Decls.hs (99%)
 rename src/{RLP => Rlp}/Parse/Types.hs (100%)
 rename src/{RLP => Rlp}/Parse/Utils.hs (100%)
 rename src/{RLP => Rlp}/Syntax.hs (100%)
 create mode 100644 tst/Rlp/Parse/DeclsSpec.hs

diff --git a/src/RLP/Parse/Decls.hs b/src/Rlp/Parse/Decls.hs
similarity index 99%
rename from src/RLP/Parse/Decls.hs
rename to src/Rlp/Parse/Decls.hs
index 5199b92..d8af6ca 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/Rlp/Parse/Decls.hs
@@ -128,8 +128,8 @@ standaloneOf = (<* eof)
 
 partialExpr :: (OnFold) => Parser PartialExpr'
 partialExpr = choice
-    [ try application
-    , Fix <$> infixExpr
+    [ try $ Fix <$> infixExpr
+    , application
     ]
     <?> "expression"
     where
diff --git a/src/RLP/Parse/Types.hs b/src/Rlp/Parse/Types.hs
similarity index 100%
rename from src/RLP/Parse/Types.hs
rename to src/Rlp/Parse/Types.hs
diff --git a/src/RLP/Parse/Utils.hs b/src/Rlp/Parse/Utils.hs
similarity index 100%
rename from src/RLP/Parse/Utils.hs
rename to src/Rlp/Parse/Utils.hs
diff --git a/src/RLP/Syntax.hs b/src/Rlp/Syntax.hs
similarity index 100%
rename from src/RLP/Syntax.hs
rename to src/Rlp/Syntax.hs
diff --git a/tst/Rlp/Parse/DeclsSpec.hs b/tst/Rlp/Parse/DeclsSpec.hs
new file mode 100644
index 0000000..e69de29
-- 
2.52.0


From cb9ec43c14e69373e8cafffbd8f18e85ab9956b3 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 15:11:26 -0700
Subject: [PATCH 047/192] tysigs

---
 src/Rlp/Parse/Decls.hs | 43 +++++++++++++++++++++---------------------
 src/Rlp/Parse/Types.hs |  3 +++
 2 files changed, 25 insertions(+), 21 deletions(-)

diff --git a/src/Rlp/Parse/Decls.hs b/src/Rlp/Parse/Decls.hs
index d8af6ca..d61c0d4 100644
--- a/src/Rlp/Parse/Decls.hs
+++ b/src/Rlp/Parse/Decls.hs
@@ -83,7 +83,7 @@ layout item = scn *> (explicit <|> implicit) where
         let indentGuard = L.indentGuard scn EQ i
         -- override foldGuard in order with new indentation
         let ?foldGuard = void $ L.indentGuard scn GT i
-        fix \ds -> (:) <$> (indentGuard *> item)
+        fix \ds -> (:) <$> (indentGuard *> item <* scn)
                        <*> (ds <|> pure [])
 
 t :: (?foldGuard :: Parser ()) => Parser [Text]
@@ -95,7 +95,7 @@ decl = choice
     -- arbitrary name
     [ infixD
     , dataD
-    , funD
+    , try funD
     , tySigD
     ]
 
@@ -182,17 +182,11 @@ varid = NameVar <$> try (lexeme namevar)
     <|> SymVar <$> lexeme (char '(' *> symvar <* char ')')
     <?> "variable identifier"
 
-decls :: Parser [PartialDecl']
-decls = layout decl <* eof
-
--- decls :: Parser [PartialDecl']
--- decls = do
---     space
---     i <- L.indentLevel
---     let indentGuard = L.indentGuard scn EQ i
---     let ?foldGuard = void $ L.indentGuard scn GT i
---     fix \ds -> (:) <$> (indentGuard *> decl)
---                    <*> (try ds <|> eof *> pure [])
+program :: Parser [Decl' RlpExpr]
+program = do
+    ds <- layout decl <* eof
+    pt <- use psOpTable
+    pure $ complete pt <$> ds
 
 namevar :: Parser Name
 namevar = word
@@ -255,10 +249,10 @@ infixD = do
                 f (Just x) = registerCustomFailure RlpParErrDuplicateInfixD
                            $> Just x
 
-tySigD :: Parser (Decl' e)
-tySigD = undefined -- TySigD <$> (flexeme)
+tySigD :: (OnFold) => Parser (Decl' e)
+tySigD = TySigD <$> (pure <$> varid) <*> (flexeme "::" *> flexeme type_)
 
-dataD :: Parser (Decl' e)
+dataD :: (OnFold) => Parser (Decl' e)
 dataD = DataD <$> (lexeme "data" *> conid) <*> many typaram
       <*> optionalList (symbol "=" *> conalts)
     where
@@ -271,16 +265,16 @@ dataD = DataD <$> (lexeme "data" *> conid) <*> many typaram
         conalt :: Parser ConAlt
         conalt = ConAlt <$> conid <*> many type1
 
-type1 :: Parser Type
+type1 :: (OnFold) => Parser Type
 type1 = choice
     [ lexeme "(" *> type_ <* lexeme ")"
     , TyVar <$> namevar
     , TyCon <$> namecon
     ]
 
-type_ :: Parser Type
+type_ :: (OnFold) => Parser Type
 type_ = choice
-    [ try $ (:->) <$> type1 <*> (lexeme "->" *> type_)
+    [ try $ (:->) <$> type1 <*> (flexeme "->" *> type_)
     , type1
     ]
 
@@ -293,8 +287,15 @@ lit = int
 --------------------------------------------------------------------------------
 -- completing partial expressions
 
-complete :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
-complete = cata completePartial
+complete :: OpTable -> PartialDecl' -> Decl' RlpExpr
+complete pt (FunD n as b w)    = FunD n as b' w
+    where b' = let ?pt = pt in completeExpr (getConst b)
+complete pt (TySigD ns t)      = TySigD ns t
+complete pt (DataD n as cs)    = DataD n as cs
+complete pt (InfixD a p n)     = InfixD a p n
+
+completeExpr :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
+completeExpr = cata completePartial
 
 completePartial :: (?pt :: OpTable) => PartialE -> RlpExpr'
 completePartial (E e)        = completeRlpExpr e
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index e961d2d..41e67f8 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -42,6 +42,9 @@ import Rlp.Syntax
 
 -- parser types
 
+-- TODO: the State is only used for building an operator table from infix[lr]
+-- declarations. we should switch to a normal Parsec monad in the future
+
 type Parser = ParsecT RlpParseError Text (State ParserState)
 
 data ParserState = ParserState
-- 
2.52.0


From 245b12a96e7f120b9e8afa663daaf5f5f9f9eb39 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 07:43:59 -0700
Subject: [PATCH 048/192] add version bounds

---
 rlp.cabal | 44 +++++++++++++++++++++-----------------------
 1 file changed, 21 insertions(+), 23 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 660a3d8..74aad24 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -43,24 +43,22 @@ library
 
     -- other-extensions:
     build-depends:    base ^>=4.18.0.0
-                    , containers
-                    , microlens
-                    , microlens-mtl
-                    , microlens-th
-                    , microlens-platform
-                    , mtl
-                    , template-haskell
                     -- required for happy
-                    , array
-                    , data-default-class
-                    , unordered-containers
-                    , hashable
-                    , pretty
-                    -- TODO: either learn recursion-schemes, or stop depending
-                    -- on it.
-                    , recursion-schemes
-                    , megaparsec
-                    , text
+                    , array >= 0.5.5 && < 0.6
+                    , containers >= 0.6.7 && < 0.7
+                    , template-haskell >= 2.20.0 && < 2.21
+                    , pretty >= 1.1.3 && < 1.2
+                    , data-default-class >= 0.1.2 && < 0.2
+                    , hashable >= 1.4.3 && < 1.5
+                    , mtl >= 2.3.1 && < 2.4
+                    , text >= 2.0.2 && < 2.1
+                    , megaparsec >= 9.6.1 && < 9.7
+                    , microlens >= 0.4.13 && < 0.5
+                    , microlens-mtl >= 0.2.0 && < 0.3
+                    , microlens-platform >= 0.4.3 && < 0.5
+                    , microlens-th >= 0.4.3 && < 0.5
+                    , unordered-containers >= 0.2.20 && < 0.3
+                    , recursion-schemes >= 5.2.2 && < 5.3
 
     hs-source-dirs:   src
     default-language: GHC2021
@@ -72,12 +70,12 @@ executable rlpc
     -- other-extensions:
     build-depends: base ^>=4.18.0.0
                  , rlp
-                 , optparse-applicative
-                 , microlens
-                 , microlens-mtl
-                 , mtl
-                 , unordered-containers
-                 , text
+                 , optparse-applicative >= 0.18.1 && < 0.19
+                 , microlens >= 0.4.13 && < 0.5
+                 , microlens-mtl >= 0.2.0 && < 0.3
+                 , mtl >= 2.3.1 && < 2.4
+                 , unordered-containers >= 0.2.20 && < 0.3
+                 , text >= 2.0.2 && < 2.1
 
     hs-source-dirs:   app
     default-language: GHC2021
-- 
2.52.0


From bb6aca094c1ff7f6922d7d6ba44c5cd3701e3f90 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 02:33:31 -0700
Subject: [PATCH 049/192] grammar reference

---
 doc/src/conf.py                    |  1 +
 doc/src/references/rlp-grammar.rst | 67 ++++++++++++++++++++++++++++++
 2 files changed, 68 insertions(+)
 create mode 100644 doc/src/references/rlp-grammar.rst

diff --git a/doc/src/conf.py b/doc/src/conf.py
index d344334..533296a 100644
--- a/doc/src/conf.py
+++ b/doc/src/conf.py
@@ -32,6 +32,7 @@ html_theme = 'alabaster'
 imgmath_latex_preamble = r'''
 \usepackage{amsmath}
 \usepackage{tabularray}
+\usepackage{syntax}
 
 \newcommand{\transrule}[2]
     {\begin{tblr}{|rrrlc|}
diff --git a/doc/src/references/rlp-grammar.rst b/doc/src/references/rlp-grammar.rst
new file mode 100644
index 0000000..c81fea7
--- /dev/null
+++ b/doc/src/references/rlp-grammar.rst
@@ -0,0 +1,67 @@
+The Complete Syntax of rl'
+==========================
+
+WIP.
+
+Provided is the complete syntax of rl' in (pseudo) EBNF. {A} represents zero or
+more A's, [A] means optional A, and terminals are wrapped in 'single-quotes'.
+
+.. math
+   :nowrap:
+
+   \setlength{\grammarparsep}{20pt plus 1pt minus 1pt}
+   \setlength{\grammarindent}{12em}
+   \begin{grammar}
+       <Decl> ::= <InfixDecl>
+       \alt <DataDecl>
+       \alt <TypeSig>
+       \alt <FunDef>
+
+       <InfixDecl> ::= <InfixWord> `litint' <Name>
+       <InfixWord> ::= `infix'
+       \alt `infixl'
+       \alt `infixr'
+
+       <DataDecl> ::= `data' `conname' {}
+
+   \end{grammar}
+
+.. code-block:: bnf
+
+   Decl      ::= InfixDecl
+               | DataDecl
+               | TypeSig
+               | FunDef
+
+   InfixDecl ::= InfixWord 'litint' Operator
+   InfixWord ::= 'infix'
+               | 'infixl'
+               | 'infixr'
+
+   DataDecl  ::= 'data' 'conname' {'name'} '=' Data
+   DataCons  ::= 'conname' {Type1} ['|' DataCons]
+
+   TypeSig   ::= Var '::' Type
+   FunDef    ::= Var {Pat1} '=' Expr
+
+   Type      ::= Type1 {Type1}
+               -- note that (->) is right-associative,
+               -- and extends as far as possible
+               | Type '->' Type
+   Type1     ::= '(' Type ')'
+               | 'conname'
+
+   Pat       ::= 'conname' Pat1 {Pat1}
+               | Pat 'consym' Pat
+
+   Pat1      ::= Literal
+               | 'conname'
+               | '(' Pat ')'
+
+   Literal   ::= 'litint'
+
+   Var ::= 'varname'
+         | '(' 'varsym' ')'
+   Con ::= 'conname'
+         | '(' 'consym' ')'
+
-- 
2.52.0


From c15f9b65469e97e97dc58ed29dc066b94f599dbe Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 05:34:11 -0700
Subject: [PATCH 050/192] 4:00 AM psychopath code

---
 rlp.cabal             |   3 +-
 src/RLP/ParseDecls.hs | 139 ++++++++++++++++++++++++++++++++++++++++++
 src/RLP/Syntax.hs     |  65 +++++++++++++++++---
 3 files changed, 198 insertions(+), 9 deletions(-)
 create mode 100644 src/RLP/ParseDecls.hs

diff --git a/rlp.cabal b/rlp.cabal
index 74aad24..9e2e7b8 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -30,6 +30,8 @@ library
                     , Core.TH
                     , Core.HindleyMilner
                     , Control.Monad.Errorful
+                    , Rlp.Syntax
+                    , Rlp.ParseDecls
 
     other-modules:    Data.Heap
                     , Data.Pretty
@@ -37,7 +39,6 @@ library
                     , Core.Lex
                     , Core2Core
                     , Control.Monad.Utils
-                    , RLP.Syntax
 
     build-tool-depends: happy:happy, alex:alex
 
diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
new file mode 100644
index 0000000..4d18e22
--- /dev/null
+++ b/src/RLP/ParseDecls.hs
@@ -0,0 +1,139 @@
+-- Show Y
+{-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Rlp.ParseDecls
+    (
+    )
+    where
+----------------------------------------------------------------------------------
+import Rlp.Syntax
+import Text.Megaparsec              hiding (State)
+import Text.Megaparsec.Char
+import Text.Megaparsec.Char.Lexer   qualified as L
+import Data.Functor.Const
+import Data.Text                    (Text)
+import Data.Text                    qualified as T
+import Data.Void
+import Data.Char
+import Data.Functor
+import Data.HashMap.Strict          qualified as H
+import Control.Monad
+import Core.Syntax
+import Control.Monad.State
+----------------------------------------------------------------------------------
+
+type Parser = ParsecT Void Text (State ParserState)
+
+data ParserState = ParserState
+    { _psPrecTable :: PrecTable
+    }
+    deriving Show
+
+type PrecTable = H.HashMap Name (Assoc, Int)
+
+----------------------------------------------------------------------------------
+
+parseTest' :: (Show a) => Parser a -> Text -> IO ()
+parseTest' p s = case runState (runParserT p "test" s) init of
+    (Left e, _)   -> putStr (errorBundlePretty e)
+    (Right x, st) -> print st *> print x
+    where
+        init = ParserState mempty
+
+lexeme :: Parser a -> Parser a
+lexeme = L.lexeme sc
+
+symbol :: Text -> Parser Text
+symbol = L.symbol sc
+
+sc :: Parser ()
+sc = L.space space1 (void lineComment) (void blockComment)
+
+-- TODO: return comment text
+-- TODO: '---' should not start a comment
+lineComment :: Parser Text
+lineComment = L.skipLineComment "--" $> "<unimpl>"
+
+-- TODO: return comment text
+blockComment :: Parser Text
+blockComment = L.skipBlockCommentNested "{-" "-}" $> "<unimpl>"
+
+decl :: Parser PartialDecl'
+decl = choice
+    [ funD
+    , tySigD
+    , dataD
+    , infixD
+    ]
+
+funD :: Parser PartialDecl'
+funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
+
+partialExpr :: Parser PartialExpr'
+partialExpr = choice
+    [ fmap Y $ U <$> varid' <*> lexeme infixOp <*> varid'
+    ]
+    where varid' = E . VarEF <$> varid
+
+
+infixOp :: Parser Name
+infixOp = symvar <|> symcon
+
+symvar :: Parser Name
+symvar = T.pack <$>
+    liftA2 (:) (satisfy isVarSym) (many $ satisfy isSym)
+
+symcon :: Parser Name
+symcon = T.pack <$>
+    liftA2 (:) (char ':') (many $ satisfy isSym)
+
+-- partialExpr :: Parser (Const Text a)
+-- partialExpr = fmap Const $ L.lineFold w $ \w' ->
+--     try w' <> w
+--     where
+--         w = L.space eat (void lineComment) (void blockComment)
+--         eat = void . some $ satisfy (not . isSpace)
+
+pat1 :: Parser Pat'
+pat1 = VarP <$> varid
+
+varid :: Parser VarId
+varid = NameVar <$> lexeme namevar
+    <|> SymVar <$> lexeme (char '(' *> symvar <* char ')')
+    <?> "variable identifier"
+    where
+        namevar = T.pack <$>
+            liftA2 (:) (satisfy isLower) (many $ satisfy isNameTail)
+
+        isNameTail c = isAlphaNum c
+                    || c == '\''
+                    || c == '_'
+
+isVarSym :: Char -> Bool
+isVarSym = (`T.elem` "\\!#$%&*+./<=>?@^|-~")
+
+isSym :: Char -> Bool
+isSym c = c == ':' || isVarSym c
+
+infixD = undefined
+
+tySigD = undefined
+dataD = undefined
+
+----------------------------------------------------------------------------------
+
+-- absolute psycho shit
+
+type PartialDecl' = Decl (Const PartialExpr') Name
+
+newtype Y f = Y (f (Y f))
+
+instance (Show (f (Y f))) => Show (Y f) where
+    showsPrec p (Y f) = showsPrec p f
+
+data Partial a = E (RlpExprF Name a)
+               | U (Partial a) Name (Partial a)
+               deriving Show
+
+type PartialExpr' = Y Partial
+
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 6efdc4e..9e5c53b 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -1,23 +1,52 @@
+-- recursion-schemes
+{-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable #-}
+-- recursion-schemes
+{-# LANGUAGE TemplateHaskell, TypeFamilies #-}
 {-# LANGUAGE OverloadedStrings #-}
-module RLP.Syntax
-    ( RlpExpr
+module Rlp.Syntax
+    ( RlpExpr(..)
+    , RlpExprF(..)
+    , RlpExprF'
+    , Decl(..)
+    , Assoc(..)
+    , VarId(..)
+    , Pat(..)
+    , Pat'
     )
     where
 ----------------------------------------------------------------------------------
+import Data.Functor.Const
 import Data.Text                    (Text)
+import Data.Text                    qualified as T
+import Data.String                  (IsString(..))
+import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Lens.Micro
+import Core.Syntax                  hiding (Lit)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
 
-newtype RlpProgram b = RlpProgram [Decl b]
+newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 
-data Decl b = InfixD  InfixAssoc Int VarId
-            | FunD    VarId [Pat b] (RlpExpr b)
-            | DataD   ConId [ConId] [ConAlt]
+-- | The @e@ parameter is used for partial results. When parsing an input, we
+-- first parse all top-level declarations in order to extract infix[lr]
+-- declarations. This process yields a @[Decl (Const Text) Name]@, where @Const
+-- Text@ stores the remaining unparsed function bodies. Once infixities are
+-- accounted for, we may complete the parsing task and get a proper @[Decl
+-- RlpExpr Name]@.
+
+data Decl e b = FunD    VarId [Pat b] (e b)
+              | TySigD  [VarId] Type
+              | DataD   ConId [ConId] [ConAlt]
+              | InfixD  Assoc Int Name
+              deriving Show
+
+data Assoc = InfixL
+           | InfixR
+           | Infix
+           deriving Show
 
 data ConAlt = ConAlt ConId [ConId]
-
-data InfixAssoc = Assoc | AssocL | AssocR
+               deriving Show
 
 data RlpExpr b = LetE  [Bind b] (RlpExpr b)
                | VarE  VarId
@@ -27,26 +56,39 @@ data RlpExpr b = LetE  [Bind b] (RlpExpr b)
                | IfE   (RlpExpr b) (RlpExpr b) (RlpExpr b)
                | AppE  (RlpExpr b) (RlpExpr b)
                | LitE  (Lit b)
+               deriving Show
 
 -- do we want guards?
 data Alt b = AltA (Pat b) (RlpExpr b)
+               deriving Show
 
 data Bind b = PatB (Pat b) (RlpExpr b)
             | FunB VarId [Pat b] (RlpExpr b)
+            deriving Show
 
 data VarId = NameVar Text
            | SymVar Text
+           deriving Show
+
+instance IsString VarId where
+    -- TODO: use symvar if it's an operator
+    fromString = NameVar . T.pack
 
 data ConId = NameCon Text
            | SymCon Text
+           deriving Show
 
 data Pat b = VarP VarId
            | LitP (Lit b)
            | ConP ConId [Pat b]
+           deriving Show
+
+type Pat' = Pat Name
 
 data Lit b = IntL Int
            | CharL Char
            | ListL [RlpExpr b]
+           deriving Show
 
 -- instance HasLHS Alt Alt Pat Pat where
 --     _lhs = lens
@@ -57,3 +99,10 @@ data Lit b = IntL Int
 --     _rhs = lens
 --         (\ (AltA _ e) -> e)
 --         (\ (AltA p _) e' -> AltA p e')
+
+makeBaseFunctor ''RlpExpr
+
+deriving instance (Show b, Show a) => Show (RlpExprF b a)
+
+type RlpExprF' = RlpExprF Name
+
-- 
2.52.0


From 6130a916682c23a4199ab53f91aca820408dc95a Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 06:26:48 -0700
Subject: [PATCH 051/192] oh boy am i going to hate this code in 12 hours

---
 src/RLP/ParseDecls.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
index 4d18e22..376ef37 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/ParseDecls.hs
@@ -71,7 +71,8 @@ funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
 
 partialExpr :: Parser PartialExpr'
 partialExpr = choice
-    [ fmap Y $ U <$> varid' <*> lexeme infixOp <*> varid'
+    [ try $ fmap Y $ U <$> varid' <*> lexeme infixOp <*> fmap unY partialExpr
+    , fmap Y $ varid'
     ]
     where varid' = E . VarEF <$> varid
 
@@ -128,6 +129,9 @@ type PartialDecl' = Decl (Const PartialExpr') Name
 
 newtype Y f = Y (f (Y f))
 
+unY :: Y f -> f (Y f)
+unY (Y f) = f
+
 instance (Show (f (Y f))) => Show (Y f) where
     showsPrec p (Y f) = showsPrec p f
 
-- 
2.52.0


From 0f04e2decf98c6d0b37933eefd7b53247cd338af Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 07:03:45 -0700
Subject: [PATCH 052/192] application and lits

appl
---
 src/RLP/ParseDecls.hs | 37 ++++++++++++++++++++++++++-----------
 src/RLP/Syntax.hs     |  5 +++++
 2 files changed, 31 insertions(+), 11 deletions(-)

diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
index 376ef37..1789c83 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/ParseDecls.hs
@@ -13,12 +13,12 @@ import Text.Megaparsec.Char.Lexer   qualified as L
 import Data.Functor.Const
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
+import Data.List                    (foldl1')
 import Data.Void
 import Data.Char
 import Data.Functor
 import Data.HashMap.Strict          qualified as H
 import Control.Monad
-import Core.Syntax
 import Control.Monad.State
 ----------------------------------------------------------------------------------
 
@@ -71,11 +71,25 @@ funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
 
 partialExpr :: Parser PartialExpr'
 partialExpr = choice
-    [ try $ fmap Y $ U <$> varid' <*> lexeme infixOp <*> fmap unY partialExpr
-    , fmap Y $ varid'
+    [ try $ fmap Y $ U <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
+    , foldl1' papp <$> some partialExpr1
     ]
-    where varid' = E . VarEF <$> varid
+    where
+        partialExpr1' = unY <$> partialExpr1
+        partialExpr' = unY <$> partialExpr
 
+        papp :: PartialExpr' -> PartialExpr' -> PartialExpr'
+        papp f x = Y . E $ f `AppEF` x
+
+partialExpr1 :: Parser PartialExpr'
+partialExpr1 = choice
+    [ try $ char '(' *> partialExpr <* char ')'
+    , fmap Y $ varid'
+    , fmap Y $ lit'
+    ]
+    where
+        varid' = E . VarEF <$> varid
+        lit' = E . LitEF <$> lit
 
 infixOp :: Parser Name
 infixOp = symvar <|> symcon
@@ -88,13 +102,6 @@ symcon :: Parser Name
 symcon = T.pack <$>
     liftA2 (:) (char ':') (many $ satisfy isSym)
 
--- partialExpr :: Parser (Const Text a)
--- partialExpr = fmap Const $ L.lineFold w $ \w' ->
---     try w' <> w
---     where
---         w = L.space eat (void lineComment) (void blockComment)
---         eat = void . some $ satisfy (not . isSpace)
-
 pat1 :: Parser Pat'
 pat1 = VarP <$> varid
 
@@ -121,6 +128,11 @@ infixD = undefined
 tySigD = undefined
 dataD = undefined
 
+lit :: Parser Lit'
+lit = int
+    where
+        int = IntL <$> L.decimal
+
 ----------------------------------------------------------------------------------
 
 -- absolute psycho shit
@@ -132,6 +144,9 @@ newtype Y f = Y (f (Y f))
 unY :: Y f -> f (Y f)
 unY (Y f) = f
 
+ymap :: (Functor f) => (forall a. f a -> g a) -> Y f -> Y g
+ymap m (Y f) = Y $ m (ymap m <$> f)
+
 instance (Show (f (Y f))) => Show (Y f) where
     showsPrec p (Y f) = showsPrec p f
 
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 9e5c53b..8a93059 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -12,6 +12,9 @@ module Rlp.Syntax
     , VarId(..)
     , Pat(..)
     , Pat'
+    , Lit(..)
+    , Lit'
+    , Name
     )
     where
 ----------------------------------------------------------------------------------
@@ -90,6 +93,8 @@ data Lit b = IntL Int
            | ListL [RlpExpr b]
            deriving Show
 
+type Lit' = Lit Name
+
 -- instance HasLHS Alt Alt Pat Pat where
 --     _lhs = lens
 --         (\ (AltA p _) -> p)
-- 
2.52.0


From c5c06fa6cb3d9b1919e0013feb7bb5cb2ff2f5f4 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 08:04:49 -0700
Subject: [PATCH 053/192] something

---
 src/RLP/ParseDecls.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
index 1789c83..9472063 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/ParseDecls.hs
@@ -47,7 +47,7 @@ symbol :: Text -> Parser Text
 symbol = L.symbol sc
 
 sc :: Parser ()
-sc = L.space space1 (void lineComment) (void blockComment)
+sc = L.space hspace1 (void lineComment) (void blockComment)
 
 -- TODO: return comment text
 -- TODO: '---' should not start a comment
@@ -156,3 +156,7 @@ data Partial a = E (RlpExprF Name a)
 
 type PartialExpr' = Y Partial
 
+----------------------------------------------------------------------------------
+
+
+
-- 
2.52.0


From cbe4276061c042b1773300661ee82108c99ed9fc Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 2 Jan 2024 08:43:34 -0700
Subject: [PATCH 054/192] goofy

---
 src/RLP/ParseDecls.hs | 14 +++++++++-----
 src/RLP/Syntax.hs     |  3 +++
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
index 9472063..83db884 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/ParseDecls.hs
@@ -1,5 +1,6 @@
 -- Show Y
 {-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.ParseDecls
     (
@@ -17,6 +18,7 @@ import Data.List                    (foldl1')
 import Data.Void
 import Data.Char
 import Data.Functor
+import Data.Functor.Foldable
 import Data.HashMap.Strict          qualified as H
 import Control.Monad
 import Control.Monad.State
@@ -83,7 +85,7 @@ partialExpr = choice
 
 partialExpr1 :: Parser PartialExpr'
 partialExpr1 = choice
-    [ try $ char '(' *> partialExpr <* char ')'
+    [ try $ char '(' *> (hoistY P <$> partialExpr) <* char ')'
     , fmap Y $ varid'
     , fmap Y $ lit'
     ]
@@ -144,19 +146,21 @@ newtype Y f = Y (f (Y f))
 unY :: Y f -> f (Y f)
 unY (Y f) = f
 
-ymap :: (Functor f) => (forall a. f a -> g a) -> Y f -> Y g
-ymap m (Y f) = Y $ m (ymap m <$> f)
+hoistY :: (Functor f) => (forall a. f a -> g a) -> Y f -> Y g
+hoistY m (Y f) = Y $ m (hoistY m <$> f)
 
 instance (Show (f (Y f))) => Show (Y f) where
     showsPrec p (Y f) = showsPrec p f
 
 data Partial a = E (RlpExprF Name a)
                | U (Partial a) Name (Partial a)
-               deriving Show
+               | P (Partial a)
+               deriving (Show, Functor)
 
 type PartialExpr' = Y Partial
 
 ----------------------------------------------------------------------------------
 
-
+mkOp :: RlpExpr b -> RlpExpr b -> RlpExpr b -> RlpExpr b
+mkOp f a b = (f `AppE` a) `AppE` b
 
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 8a93059..eaf6b12 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -5,6 +5,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.Syntax
     ( RlpExpr(..)
+    , RlpExpr'
     , RlpExprF(..)
     , RlpExprF'
     , Decl(..)
@@ -61,6 +62,8 @@ data RlpExpr b = LetE  [Bind b] (RlpExpr b)
                | LitE  (Lit b)
                deriving Show
 
+type RlpExpr' = RlpExpr Name
+
 -- do we want guards?
 data Alt b = AltA (Pat b) (RlpExpr b)
                deriving Show
-- 
2.52.0


From 4ee9785239929538aa7093bf991157e10eea9745 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 3 Jan 2024 10:04:42 -0700
Subject: [PATCH 055/192] Show1 instances

---
 src/RLP/ParseDecls.hs | 45 ++++++++++++++++++++++++-------------------
 src/RLP/Syntax.hs     | 30 ++++++++++++++++++++++++++++-
 2 files changed, 54 insertions(+), 21 deletions(-)

diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs
index 83db884..7a36248 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/ParseDecls.hs
@@ -1,7 +1,8 @@
--- Show Y
+-- Show Fix
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
 module Rlp.ParseDecls
     (
     )
@@ -12,6 +13,7 @@ import Text.Megaparsec              hiding (State)
 import Text.Megaparsec.Char
 import Text.Megaparsec.Char.Lexer   qualified as L
 import Data.Functor.Const
+import Data.Functor.Classes
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.List                    (foldl1')
@@ -19,6 +21,7 @@ import Data.Void
 import Data.Char
 import Data.Functor
 import Data.Functor.Foldable
+import Data.Fix
 import Data.HashMap.Strict          qualified as H
 import Control.Monad
 import Control.Monad.State
@@ -73,21 +76,21 @@ funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
 
 partialExpr :: Parser PartialExpr'
 partialExpr = choice
-    [ try $ fmap Y $ U <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
+    [ try $ fmap Fix $ U <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
     , foldl1' papp <$> some partialExpr1
     ]
     where
-        partialExpr1' = unY <$> partialExpr1
-        partialExpr' = unY <$> partialExpr
+        partialExpr1' = unFix <$> partialExpr1
+        partialExpr' = unFix <$> partialExpr
 
         papp :: PartialExpr' -> PartialExpr' -> PartialExpr'
-        papp f x = Y . E $ f `AppEF` x
+        papp f x = Fix . E $ f `AppEF` x
 
 partialExpr1 :: Parser PartialExpr'
 partialExpr1 = choice
-    [ try $ char '(' *> (hoistY P <$> partialExpr) <* char ')'
-    , fmap Y $ varid'
-    , fmap Y $ lit'
+    [ try $ char '(' *> (hoistFix P <$> partialExpr) <* char ')'
+    , fmap Fix $ varid'
+    , fmap Fix $ lit'
     ]
     where
         varid' = E . VarEF <$> varid
@@ -141,23 +144,25 @@ lit = int
 
 type PartialDecl' = Decl (Const PartialExpr') Name
 
-newtype Y f = Y (f (Y f))
-
-unY :: Y f -> f (Y f)
-unY (Y f) = f
-
-hoistY :: (Functor f) => (forall a. f a -> g a) -> Y f -> Y g
-hoistY m (Y f) = Y $ m (hoistY m <$> f)
-
-instance (Show (f (Y f))) => Show (Y f) where
-    showsPrec p (Y f) = showsPrec p f
-
 data Partial a = E (RlpExprF Name a)
                | U (Partial a) Name (Partial a)
                | P (Partial a)
                deriving (Show, Functor)
 
-type PartialExpr' = Y Partial
+instance Show1 Partial where
+    liftShowsPrec :: forall a. (Int -> a -> ShowS)
+                  -> ([a] -> ShowS)
+                  -> Int -> Partial a -> ShowS
+
+    liftShowsPrec sp sl p m = case m of
+        (E e)       -> showsUnaryWith lshow "E" p e
+        (U a f b)   -> showsTernaryWith lshow showsPrec lshow "U" p a f b
+        (P e)       -> showsUnaryWith lshow "P" p e
+        where
+            lshow :: forall f. (Show1 f) => Int -> f a -> ShowS
+            lshow = liftShowsPrec sp sl
+
+type PartialExpr' = Fix Partial
 
 ----------------------------------------------------------------------------------
 
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index eaf6b12..4a47b7a 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -16,6 +16,9 @@ module Rlp.Syntax
     , Lit(..)
     , Lit'
     , Name
+
+    -- TODO: ugh move this somewhere else later
+    , showsTernaryWith
     )
     where
 ----------------------------------------------------------------------------------
@@ -24,11 +27,12 @@ import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.String                  (IsString(..))
 import Data.Functor.Foldable.TH     (makeBaseFunctor)
+import Data.Functor.Classes
 import Lens.Micro
 import Core.Syntax                  hiding (Lit)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
-
+ 
 newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 
 -- | The @e@ parameter is used for partial results. When parsing an input, we
@@ -114,3 +118,27 @@ deriving instance (Show b, Show a) => Show (RlpExprF b a)
 
 type RlpExprF' = RlpExprF Name
 
+-- society if derivable Show1
+instance (Show b) => Show1 (RlpExprF b) where
+    liftShowsPrec sp _ p m = case m of
+        (LetEF bs e)            -> showsBinaryWith showsPrec sp "LetEF" p bs e
+        (VarEF n)               -> showsUnaryWith showsPrec "VarEF" p n
+        (ConEF n)               -> showsUnaryWith showsPrec "ConEF" p n
+        (LamEF bs e)            -> showsBinaryWith showsPrec sp "LamEF" p bs e
+        (CaseEF e as)           -> showsBinaryWith sp showsPrec "CaseEF" p e as
+        (IfEF a b c)            -> showsTernaryWith sp sp sp "IfEF" p a b c
+        (AppEF f x)             -> showsBinaryWith sp sp "AppEF" p f x
+        (LitEF l)               -> showsUnaryWith showsPrec "LitEF" p l
+
+showsTernaryWith :: (Int -> x -> ShowS)
+                 -> (Int -> y -> ShowS)
+                 -> (Int -> z -> ShowS)
+                 -> String -> Int
+                 -> x -> y -> z
+                 -> ShowS
+showsTernaryWith sa sb sc name p a b c = showParen (p > 10)
+    $ showString name
+    . showChar ' ' . sa 11 a 
+    . showChar ' ' . sb 11 b
+    . showChar ' ' . sc 11 c
+
-- 
2.52.0


From 2a159232c75ece11c8e7ad240ee21aef87c899af Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 8 Jan 2024 13:39:12 -0700
Subject: [PATCH 056/192] fixation fufilled - back to work!

---
 rlp.cabal                                 |  3 +-
 src/RLP/{ParseDecls.hs => Parse/Decls.hs} | 88 +++++++++++------------
 src/RLP/Parse/Types.hs                    | 65 +++++++++++++++++
 src/RLP/Syntax.hs                         |  6 +-
 4 files changed, 115 insertions(+), 47 deletions(-)
 rename src/RLP/{ParseDecls.hs => Parse/Decls.hs} (69%)
 create mode 100644 src/RLP/Parse/Types.hs

diff --git a/rlp.cabal b/rlp.cabal
index 9e2e7b8..dbdb12c 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -31,7 +31,8 @@ library
                     , Core.HindleyMilner
                     , Control.Monad.Errorful
                     , Rlp.Syntax
-                    , Rlp.ParseDecls
+                    , Rlp.Parse.Decls
+                    , Rlp.Parse.Types
 
     other-modules:    Data.Heap
                     , Data.Pretty
diff --git a/src/RLP/ParseDecls.hs b/src/RLP/Parse/Decls.hs
similarity index 69%
rename from src/RLP/ParseDecls.hs
rename to src/RLP/Parse/Decls.hs
index 7a36248..18e85aa 100644
--- a/src/RLP/ParseDecls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -1,41 +1,30 @@
--- Show Fix
-{-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE ImplicitParams #-}
+{-# LANGUAGE LambdaCase, BlockArguments #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
-module Rlp.ParseDecls
+module Rlp.Parse.Decls
     (
     )
     where
 ----------------------------------------------------------------------------------
-import Rlp.Syntax
+import Control.Monad
+import Control.Monad.State
 import Text.Megaparsec              hiding (State)
 import Text.Megaparsec.Char
 import Text.Megaparsec.Char.Lexer   qualified as L
-import Data.Functor.Const
 import Data.Functor.Classes
+import Data.Functor.Foldable
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.List                    (foldl1')
-import Data.Void
 import Data.Char
 import Data.Functor
-import Data.Functor.Foldable
-import Data.Fix
-import Data.HashMap.Strict          qualified as H
-import Control.Monad
-import Control.Monad.State
-----------------------------------------------------------------------------------
-
-type Parser = ParsecT Void Text (State ParserState)
-
-data ParserState = ParserState
-    { _psPrecTable :: PrecTable
-    }
-    deriving Show
-
-type PrecTable = H.HashMap Name (Assoc, Int)
-
+import Data.Functor.Const
+import Data.Fix                     hiding (cata)
+import Lens.Micro
+import Rlp.Parse.Types
+import Rlp.Syntax
 ----------------------------------------------------------------------------------
 
 parseTest' :: (Show a) => Parser a -> Text -> IO ()
@@ -76,10 +65,11 @@ funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
 
 partialExpr :: Parser PartialExpr'
 partialExpr = choice
-    [ try $ fmap Fix $ U <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
+    [ try $ fmap Fix $ mkB <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
     , foldl1' papp <$> some partialExpr1
     ]
     where
+        mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
         partialExpr' = unFix <$> partialExpr
 
@@ -140,32 +130,42 @@ lit = int
 
 ----------------------------------------------------------------------------------
 
--- absolute psycho shit
+type PartialE = Partial RlpExpr'
 
-type PartialDecl' = Decl (Const PartialExpr') Name
+-- complete :: OpTable -> Fix Partial -> RlpExpr'
+complete :: OpTable -> PartialExpr' -> RlpExpr'
+complete pt = let ?pt = pt in cata completePartial
 
-data Partial a = E (RlpExprF Name a)
-               | U (Partial a) Name (Partial a)
-               | P (Partial a)
-               deriving (Show, Functor)
+completePartial :: PartialE -> RlpExpr'
+completePartial (E e)        = completeRlpExpr e
+completePartial p@(B o l r)  = completeB (build p)
+completePartial (P e)        = completePartial e
 
-instance Show1 Partial where
-    liftShowsPrec :: forall a. (Int -> a -> ShowS)
-                  -> ([a] -> ShowS)
-                  -> Int -> Partial a -> ShowS
+completeRlpExpr :: RlpExprF' RlpExpr' -> RlpExpr'
+completeRlpExpr = embed
 
-    liftShowsPrec sp sl p m = case m of
-        (E e)       -> showsUnaryWith lshow "E" p e
-        (U a f b)   -> showsTernaryWith lshow showsPrec lshow "U" p a f b
-        (P e)       -> showsUnaryWith lshow "P" p e
-        where
-            lshow :: forall f. (Show1 f) => Int -> f a -> ShowS
-            lshow = liftShowsPrec sp sl
+completeB :: PartialE -> RlpExpr'
+completeB = build
 
-type PartialExpr' = Fix Partial
+build :: PartialE -> PartialE
+build e = go id e (rightmost e) where
+    rightmost :: Partial -> Partial
+    rightmost (B _ _ _) = rightmost r
+    rightmost (E n)     = undefined
 
-----------------------------------------------------------------------------------
+    go :: (?pt :: OpTable)
+       => (PartialE -> PartialE)
+       -> PartialE -> PartialE -> PartialE
+    go f p@(WithPrec o _ r) = case r of
+            E _     -> mkHole o (f . f')
+            P _     -> undefined
+            B _ _ _ -> go (mkHole o (f . f')) r
+        where f' r' = p & pR .~ r'
 
-mkOp :: RlpExpr b -> RlpExpr b -> RlpExpr b -> RlpExpr b
-mkOp f a b = (f `AppE` a) `AppE` b
+mkHole :: (?pt :: OpTable)
+       => OpInfo
+       -> (PartialE -> PartialE)
+       -> PartialE
+       -> PartialE
+mkHole = undefined
 
diff --git a/src/RLP/Parse/Types.hs b/src/RLP/Parse/Types.hs
new file mode 100644
index 0000000..cb1d6bf
--- /dev/null
+++ b/src/RLP/Parse/Types.hs
@@ -0,0 +1,65 @@
+module Rlp.Parse.Types
+    (
+    -- * Partial ASTs
+      Partial(..)
+    , PartialExpr'
+    , PartialDecl'
+
+    -- * Parser types
+    , Parser
+    , ParserState(..)
+    , OpTable
+    , OpInfo
+    )
+    where
+----------------------------------------------------------------------------------
+import Control.Monad.State
+import Data.HashMap.Strict          qualified as H
+import Data.Fix
+import Data.Functor.Foldable
+import Data.Functor.Const
+import Data.Functor.Classes
+import Data.Void
+import Text.Megaparsec              hiding (State)
+import Rlp.Syntax
+----------------------------------------------------------------------------------
+
+-- parser types
+
+type Parser = ParsecT Void Text (State ParserState)
+
+data ParserState = ParserState
+    { _psOpTable :: OpTable
+    }
+    deriving Show
+
+type OpTable = H.HashMap Name OpInfo
+type OpInfo = (Assoc, Int)
+
+----------------------------------------------------------------------------------
+
+-- absolute psycho shit (partial ASTs)
+
+type PartialDecl' = Decl (Const PartialExpr') Name
+
+data Partial a = E (RlpExprF Name a)
+               | B Name (Partial a) (Partial a)
+               | P (Partial a)
+               deriving (Show, Functor)
+
+-- required to satisfy constraint on Fix's show instance
+instance Show1 Partial where
+    liftShowsPrec :: forall a. (Int -> a -> ShowS)
+                  -> ([a] -> ShowS)
+                  -> Int -> Partial a -> ShowS
+
+    liftShowsPrec sp sl p m = case m of
+        (E e)       -> showsUnaryWith lshow "E" p e
+        (B f a b)   -> showsTernaryWith showsPrec lshow lshow "B" p f a b
+        (P e)       -> showsUnaryWith lshow "P" p e
+        where
+            lshow :: forall f. (Show1 f) => Int -> f a -> ShowS
+            lshow = liftShowsPrec sp sl
+
+type PartialExpr' = Fix Partial
+
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 4a47b7a..b314d7b 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -19,10 +19,12 @@ module Rlp.Syntax
 
     -- TODO: ugh move this somewhere else later
     , showsTernaryWith
+
+    -- * Convenience re-exports
+    , Text
     )
     where
 ----------------------------------------------------------------------------------
-import Data.Functor.Const
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.String                  (IsString(..))
@@ -32,7 +34,7 @@ import Lens.Micro
 import Core.Syntax                  hiding (Lit)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
- 
+
 newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 
 -- | The @e@ parameter is used for partial results. When parsing an input, we
-- 
2.52.0


From 936f24148f1268eb21a5c9190272679e82b4ac75 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 8 Jan 2024 18:56:14 -0700
Subject: [PATCH 057/192] works

---
 src/RLP/Parse/Decls.hs | 70 +++++++++++++++++++++++++++++++++---------
 src/RLP/Parse/Types.hs | 27 ++++++++++++++++
 2 files changed, 82 insertions(+), 15 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 18e85aa..965a4c5 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -17,6 +17,7 @@ import Data.Functor.Classes
 import Data.Functor.Foldable
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
+import Data.HashMap.Strict          qualified as H
 import Data.List                    (foldl1')
 import Data.Char
 import Data.Functor
@@ -130,42 +131,81 @@ lit = int
 
 ----------------------------------------------------------------------------------
 
-type PartialE = Partial RlpExpr'
-
 -- complete :: OpTable -> Fix Partial -> RlpExpr'
-complete :: OpTable -> PartialExpr' -> RlpExpr'
-complete pt = let ?pt = pt in cata completePartial
+complete :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
+complete = cata completePartial
 
-completePartial :: PartialE -> RlpExpr'
+completePartial :: (?pt :: OpTable) => PartialE -> RlpExpr'
 completePartial (E e)        = completeRlpExpr e
 completePartial p@(B o l r)  = completeB (build p)
 completePartial (P e)        = completePartial e
 
-completeRlpExpr :: RlpExprF' RlpExpr' -> RlpExpr'
+completeRlpExpr :: (?pt :: OpTable) => RlpExprF' RlpExpr' -> RlpExpr'
 completeRlpExpr = embed
 
-completeB :: PartialE -> RlpExpr'
-completeB = build
+completeB :: (?pt :: OpTable) => PartialE -> RlpExpr'
+completeB p = case build p of
+    B o l r     -> (o' `AppE` l') `AppE` r'
+        where
+            -- TODO: how do we know it's symbolic?
+            o' = VarE (SymVar o)
+            l' = completeB l
+            r' = completeB r
+    P e         -> completeB e
+    E e         -> completeRlpExpr e
 
-build :: PartialE -> PartialE
+build :: (?pt :: OpTable) => PartialE -> PartialE
 build e = go id e (rightmost e) where
-    rightmost :: Partial -> Partial
-    rightmost (B _ _ _) = rightmost r
-    rightmost (E n)     = undefined
+    rightmost :: PartialE -> PartialE
+    rightmost (B _ _ r) = rightmost r
+    rightmost p@(E _)   = p
+    rightmost p@(P _)   = p
 
     go :: (?pt :: OpTable)
        => (PartialE -> PartialE)
        -> PartialE -> PartialE -> PartialE
-    go f p@(WithPrec o _ r) = case r of
+    go f p@(WithInfo o _ r) = case r of
             E _     -> mkHole o (f . f')
-            P _     -> undefined
+            P _     -> mkHole o (f . f')
             B _ _ _ -> go (mkHole o (f . f')) r
         where f' r' = p & pR .~ r'
+    go f _ = id
 
 mkHole :: (?pt :: OpTable)
        => OpInfo
        -> (PartialE -> PartialE)
        -> PartialE
        -> PartialE
-mkHole = undefined
+mkHole _     hole p@(P _)                   = hole p
+mkHole _     hole p@(E _)                   = hole p
+mkHole (a,d) hole p@(WithInfo (a',d') _ _)
+    | d' < d  = above
+    | d' > d  = below
+    | d == d' = case (a,a') of
+                  -- left-associative operators of equal precedence are
+                  -- associated left
+                  (InfixL,InfixL) -> above
+                  -- right-associative operators are handled similarly
+                  (InfixR,InfixR) -> below
+                  -- non-associative operators of equal precedence, or equal
+                  -- precedence operators of different associativities are
+                  -- invalid
+                  (_,     _)      -> error "invalid expression"
+    where
+        above = p & pL %~ hole
+        below = hole p
+
+examplePrecTable :: OpTable
+examplePrecTable = H.fromList
+    [ ("+",    (InfixL,6))
+    , ("*",    (InfixL,7))
+    , ("^",    (InfixR,8))
+    , (".",    (InfixR,7))
+    , ("~",    (Infix, 9))
+    , ("=",    (Infix, 4))
+    , ("&&",   (Infix, 3))
+    , ("||",   (Infix, 2))
+    , ("$",    (InfixR,0))
+    , ("&",    (InfixL,0))
+    ]
 
diff --git a/src/RLP/Parse/Types.hs b/src/RLP/Parse/Types.hs
index cb1d6bf..d3e7bd1 100644
--- a/src/RLP/Parse/Types.hs
+++ b/src/RLP/Parse/Types.hs
@@ -1,9 +1,17 @@
+{-# LANGUAGE ImplicitParams, ViewPatterns, PatternSynonyms #-}
+{-
+Description : Supporting types for the parser
+-}
 module Rlp.Parse.Types
     (
     -- * Partial ASTs
       Partial(..)
+    , PartialE
     , PartialExpr'
     , PartialDecl'
+    , pattern WithInfo
+    , pR
+    , pL
 
     -- * Parser types
     , Parser
@@ -20,7 +28,9 @@ import Data.Functor.Foldable
 import Data.Functor.Const
 import Data.Functor.Classes
 import Data.Void
+import Data.Maybe
 import Text.Megaparsec              hiding (State)
+import Lens.Micro
 import Rlp.Syntax
 ----------------------------------------------------------------------------------
 
@@ -47,6 +57,23 @@ data Partial a = E (RlpExprF Name a)
                | P (Partial a)
                deriving (Show, Functor)
 
+pL :: Traversal' (Partial a) (Partial a)
+pL k (B o l r) = (\l' -> B o l' r) <$> k l
+pL _ x         = pure x
+
+pR :: Traversal' (Partial a) (Partial a)
+pR k (B o l r) = (\r' -> B o l r') <$> k r
+pR _ x         = pure x
+
+type PartialE = Partial RlpExpr'
+
+-- i love you haskell
+pattern WithInfo :: (?pt :: OpTable) => OpInfo -> PartialE -> PartialE -> PartialE
+pattern WithInfo p l r <- B (opInfoOrDef -> p) l r
+
+opInfoOrDef :: (?pt :: OpTable) => Name -> OpInfo
+opInfoOrDef c = fromMaybe (InfixL,9) $ H.lookup c ?pt
+
 -- required to satisfy constraint on Fix's show instance
 instance Show1 Partial where
     liftShowsPrec :: forall a. (Int -> a -> ShowS)
-- 
2.52.0


From 97ce9b48ae82a817116c2e3f85c36412a54be670 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 8 Jan 2024 20:14:18 -0700
Subject: [PATCH 058/192] labels

---
 src/RLP/Parse/Decls.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 965a4c5..c8a0a33 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -64,11 +64,18 @@ decl = choice
 funD :: Parser PartialDecl'
 funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
 
+standalonePartialExpr :: Parser PartialExpr'
+standalonePartialExpr = standaloneOf partialExpr
+
+standaloneOf :: Parser a -> Parser a
+standaloneOf = (<* eof)
+
 partialExpr :: Parser PartialExpr'
 partialExpr = choice
     [ try $ fmap Fix $ mkB <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
     , foldl1' papp <$> some partialExpr1
     ]
+    <?> "expression"
     where
         mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
@@ -83,12 +90,13 @@ partialExpr1 = choice
     , fmap Fix $ varid'
     , fmap Fix $ lit'
     ]
+    <?> "expression"
     where
         varid' = E . VarEF <$> varid
         lit' = E . LitEF <$> lit
 
 infixOp :: Parser Name
-infixOp = symvar <|> symcon
+infixOp = symvar <|> symcon <?> "infix operator"
 
 symvar :: Parser Name
 symvar = T.pack <$>
@@ -100,6 +108,7 @@ symcon = T.pack <$>
 
 pat1 :: Parser Pat'
 pat1 = VarP <$> varid
+    <?> "pattern"
 
 varid :: Parser VarId
 varid = NameVar <$> lexeme namevar
@@ -126,6 +135,7 @@ dataD = undefined
 
 lit :: Parser Lit'
 lit = int
+    <?> "literal"
     where
         int = IntL <$> L.decimal
 
-- 
2.52.0


From 84c11229959d4593d0585ec62933ebb29e9a56c4 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 9 Jan 2024 11:39:26 -0700
Subject: [PATCH 059/192] infix decl

---
 rlp.cabal              | 26 +++++++++++---------------
 src/RLP/Parse/Decls.hs | 36 +++++++++++++++++++++++++++++++++++-
 src/RLP/Parse/Types.hs | 36 +++++++++++++++++++++++++++++++++++-
 src/RLP/Syntax.hs      |  3 +++
 4 files changed, 84 insertions(+), 17 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index dbdb12c..dc83431 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -46,21 +46,17 @@ library
     -- other-extensions:
     build-depends:    base ^>=4.18.0.0
                     -- required for happy
-                    , array >= 0.5.5 && < 0.6
-                    , containers >= 0.6.7 && < 0.7
-                    , template-haskell >= 2.20.0 && < 2.21
-                    , pretty >= 1.1.3 && < 1.2
-                    , data-default-class >= 0.1.2 && < 0.2
-                    , hashable >= 1.4.3 && < 1.5
-                    , mtl >= 2.3.1 && < 2.4
-                    , text >= 2.0.2 && < 2.1
-                    , megaparsec >= 9.6.1 && < 9.7
-                    , microlens >= 0.4.13 && < 0.5
-                    , microlens-mtl >= 0.2.0 && < 0.3
-                    , microlens-platform >= 0.4.3 && < 0.5
-                    , microlens-th >= 0.4.3 && < 0.5
-                    , unordered-containers >= 0.2.20 && < 0.3
-                    , recursion-schemes >= 5.2.2 && < 5.3
+                    , array
+                    , data-default-class
+                    , unordered-containers
+                    , hashable
+                    , pretty
+                    -- TODO: either learn recursion-schemes, or stop depending
+                    -- on it.
+                    , recursion-schemes
+                    , megaparsec                ^>=9.6.0
+                    , text
+                    , data-fix
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index c8a0a33..3c28017 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -24,6 +24,7 @@ import Data.Functor
 import Data.Functor.Const
 import Data.Fix                     hiding (cata)
 import Lens.Micro
+import Lens.Micro.Platform
 import Rlp.Parse.Types
 import Rlp.Syntax
 ----------------------------------------------------------------------------------
@@ -128,7 +129,40 @@ isVarSym = (`T.elem` "\\!#$%&*+./<=>?@^|-~")
 isSym :: Char -> Bool
 isSym c = c == ':' || isVarSym c
 
-infixD = undefined
+infixD :: Parser (Decl' e)
+infixD = do
+        o <- getOffset
+        a <- infixWord
+        p <- prec
+        op <- infixOp
+        region (setErrorOffset o) $ updateOpTable a p op
+        pure $ InfixD a p op
+    where
+        infixWord :: Parser Assoc
+        infixWord = choice $ lexeme <$>
+            [ "infixr" $> InfixR
+            , "infixl" $> InfixL
+            , "infix"  $> Infix
+            ]
+        
+        prec :: Parser Int
+        prec = do
+            o <- getOffset
+            n <- lexeme L.decimal
+            if 0 <= n && n <= 9 then
+                pure n
+            else
+                region (setErrorOffset o) $
+                    registerCustomFailure (RlpParErrOutOfBoundsPrecedence n)
+                    $> 9
+
+        updateOpTable :: Assoc -> Int -> Name -> Parser ()
+        updateOpTable a p op = do
+                t <- use psOpTable
+                psOpTable <~ H.alterF f op t
+            where
+                f Nothing  = pure (Just (a,p))
+                f (Just _) = customFailure RlpParErrDuplicateInfixD
 
 tySigD = undefined
 dataD = undefined
diff --git a/src/RLP/Parse/Types.hs b/src/RLP/Parse/Types.hs
index d3e7bd1..16a0ed9 100644
--- a/src/RLP/Parse/Types.hs
+++ b/src/RLP/Parse/Types.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE ImplicitParams, ViewPatterns, PatternSynonyms #-}
 {-
 Description : Supporting types for the parser
@@ -16,8 +18,13 @@ module Rlp.Parse.Types
     -- * Parser types
     , Parser
     , ParserState(..)
+    , psOpTable
+    , RlpParseError(..)
     , OpTable
     , OpInfo
+
+    -- * Extras
+    , registerCustomFailure
     )
     where
 ----------------------------------------------------------------------------------
@@ -29,14 +36,17 @@ import Data.Functor.Const
 import Data.Functor.Classes
 import Data.Void
 import Data.Maybe
+import Data.Set                     qualified as S
 import Text.Megaparsec              hiding (State)
+import Text.Printf
 import Lens.Micro
+import Lens.Micro.TH
 import Rlp.Syntax
 ----------------------------------------------------------------------------------
 
 -- parser types
 
-type Parser = ParsecT Void Text (State ParserState)
+type Parser = ParsecT RlpParseError Text (State ParserState)
 
 data ParserState = ParserState
     { _psOpTable :: OpTable
@@ -46,6 +56,23 @@ data ParserState = ParserState
 type OpTable = H.HashMap Name OpInfo
 type OpInfo = (Assoc, Int)
 
+-- data WithLocation a = WithLocation [String] a
+
+data RlpParseError = RlpParErrOutOfBoundsPrecedence Int
+                   | RlpParErrDuplicateInfixD
+    deriving (Eq, Ord, Show)
+
+instance ShowErrorComponent RlpParseError where
+    showErrorComponent = \case
+        -- TODO: wrap text to 80 characters
+        RlpParErrOutOfBoundsPrecedence n ->
+            printf "%d is an invalid precedence level! rl' currently only\
+                   \allows custom precedences between 0 and 9 (inclusive).\
+                   \ This is an arbitrary limit put in place for legibility\
+                   \ concerns, and may change in the future." n
+        RlpParErrDuplicateInfixD ->
+            "duplicate infix decl"
+
 ----------------------------------------------------------------------------------
 
 -- absolute psycho shit (partial ASTs)
@@ -90,3 +117,10 @@ instance Show1 Partial where
 
 type PartialExpr' = Fix Partial
 
+----------------------------------------------------------------------------------
+
+makeLenses ''ParserState
+
+registerCustomFailure :: MonadParsec e s m => e -> m ()
+registerCustomFailure = registerFancyFailure . S.singleton . ErrorCustom
+
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index b314d7b..4a43cb9 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -9,6 +9,7 @@ module Rlp.Syntax
     , RlpExprF(..)
     , RlpExprF'
     , Decl(..)
+    , Decl'
     , Assoc(..)
     , VarId(..)
     , Pat(..)
@@ -50,6 +51,8 @@ data Decl e b = FunD    VarId [Pat b] (e b)
               | InfixD  Assoc Int Name
               deriving Show
 
+type Decl' e = Decl e Name
+
 data Assoc = InfixL
            | InfixR
            | Infix
-- 
2.52.0


From 3292998c421cf5b3b526af984d9908be961e8867 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 9 Jan 2024 12:26:53 -0700
Subject: [PATCH 060/192] expr fixups

---
 src/RLP/Parse/Decls.hs | 29 ++++++++++++++++++++---------
 1 file changed, 20 insertions(+), 9 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 3c28017..87668aa 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -45,6 +45,9 @@ symbol = L.symbol sc
 sc :: Parser ()
 sc = L.space hspace1 (void lineComment) (void blockComment)
 
+scn :: Parser ()
+scn = L.space space1 (void lineComment) (void blockComment)
+
 -- TODO: return comment text
 -- TODO: '---' should not start a comment
 lineComment :: Parser Text
@@ -72,27 +75,35 @@ standaloneOf :: Parser a -> Parser a
 standaloneOf = (<* eof)
 
 partialExpr :: Parser PartialExpr'
-partialExpr = choice
-    [ try $ fmap Fix $ mkB <$> partialExpr1' <*> lexeme infixOp <*> partialExpr'
-    , foldl1' papp <$> some partialExpr1
+partialExpr = (choice . fmap foldedLexeme)
+    [ try application
+    , Fix <$> infixExpr
     ]
     <?> "expression"
     where
+        application = foldl1' mkApp <$> some partialExpr1
+        infixExpr = mkB <$> partialExpr1' <*> infixOp' <*> partialExpr'
+
         mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
         partialExpr' = unFix <$> partialExpr
+        infixOp' = foldedLexeme infixOp
 
-        papp :: PartialExpr' -> PartialExpr' -> PartialExpr'
-        papp f x = Fix . E $ f `AppEF` x
+        mkApp :: PartialExpr' -> PartialExpr' -> PartialExpr'
+        mkApp f x = Fix . E $ f `AppEF` x
+
+foldedLexeme :: Parser a -> Parser a
+foldedLexeme p = L.lineFold scn $ \sc' -> L.lexeme sc' p
 
 partialExpr1 :: Parser PartialExpr'
-partialExpr1 = choice
-    [ try $ char '(' *> (hoistFix P <$> partialExpr) <* char ')'
-    , fmap Fix $ varid'
-    , fmap Fix $ lit'
+partialExpr1 = (choice . fmap foldedLexeme)
+    [ foldedLexeme "(" *> partialExpr' <* foldedLexeme ")"
+    , Fix <$> varid'
+    , Fix <$> lit'
     ]
     <?> "expression"
     where
+        partialExpr' = wrapFix . P . unwrapFix <$> partialExpr
         varid' = E . VarEF <$> varid
         lit' = E . LitEF <$> lit
 
-- 
2.52.0


From cae0939f0cf6d15115a772bc60fef2a70cba414d Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 9 Jan 2024 14:24:51 -0700
Subject: [PATCH 061/192] where

---
 src/RLP/Parse/Decls.hs | 93 ++++++++++++++++++++++++++++++++----------
 src/RLP/Parse/Types.hs |  7 ----
 src/RLP/Parse/Utils.hs | 30 ++++++++++++++
 src/RLP/Syntax.hs      | 24 +++++++----
 4 files changed, 119 insertions(+), 35 deletions(-)
 create mode 100644 src/RLP/Parse/Utils.hs

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 87668aa..8a95f41 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -18,6 +18,7 @@ import Data.Functor.Foldable
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.HashMap.Strict          qualified as H
+import Data.Maybe                   (maybeToList)
 import Data.List                    (foldl1')
 import Data.Char
 import Data.Functor
@@ -26,6 +27,7 @@ import Data.Fix                     hiding (cata)
 import Lens.Micro
 import Lens.Micro.Platform
 import Rlp.Parse.Types
+import Rlp.Parse.Utils
 import Rlp.Syntax
 ----------------------------------------------------------------------------------
 
@@ -39,6 +41,9 @@ parseTest' p s = case runState (runParserT p "test" s) init of
 lexeme :: Parser a -> Parser a
 lexeme = L.lexeme sc
 
+flexeme :: Parser a -> Parser a
+flexeme p = L.lineFold scn $ \sc' -> L.lexeme sc' p
+
 symbol :: Text -> Parser Text
 symbol = L.symbol sc
 
@@ -66,7 +71,16 @@ decl = choice
     ]
 
 funD :: Parser PartialDecl'
-funD = FunD <$> varid <*> many pat1 <*> (symbol "=" *> fmap Const partialExpr)
+funD = FunD <$> flexeme varid <*> params <*> (symbol "=" *> body) <*> whereClause
+    where
+        params = many pat1
+        body = fmap Const partialExpr
+
+whereClause :: Parser Where'
+whereClause = optionalList $
+        flexeme "where" *> pure
+            [ FunB "fixme" [] (VarE "fixme")
+            ]
 
 standalonePartialExpr :: Parser PartialExpr'
 standalonePartialExpr = standaloneOf partialExpr
@@ -75,7 +89,7 @@ standaloneOf :: Parser a -> Parser a
 standaloneOf = (<* eof)
 
 partialExpr :: Parser PartialExpr'
-partialExpr = (choice . fmap foldedLexeme)
+partialExpr = (choice . fmap flexeme)
     [ try application
     , Fix <$> infixExpr
     ]
@@ -87,17 +101,14 @@ partialExpr = (choice . fmap foldedLexeme)
         mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
         partialExpr' = unFix <$> partialExpr
-        infixOp' = foldedLexeme infixOp
+        infixOp' = flexeme infixOp
 
         mkApp :: PartialExpr' -> PartialExpr' -> PartialExpr'
         mkApp f x = Fix . E $ f `AppEF` x
 
-foldedLexeme :: Parser a -> Parser a
-foldedLexeme p = L.lineFold scn $ \sc' -> L.lexeme sc' p
-
 partialExpr1 :: Parser PartialExpr'
-partialExpr1 = (choice . fmap foldedLexeme)
-    [ foldedLexeme "(" *> partialExpr' <* foldedLexeme ")"
+partialExpr1 = (choice . fmap flexeme)
+    [ try $ flexeme "(" *> partialExpr' <* flexeme ")"
     , Fix <$> varid'
     , Fix <$> lit'
     ]
@@ -108,7 +119,7 @@ partialExpr1 = (choice . fmap foldedLexeme)
         lit' = E . LitEF <$> lit
 
 infixOp :: Parser Name
-infixOp = symvar <|> symcon <?> "infix operator"
+infixOp = symvar <|> symcon <?> "operator"
 
 symvar :: Parser Name
 symvar = T.pack <$>
@@ -119,20 +130,34 @@ symcon = T.pack <$>
     liftA2 (:) (char ':') (many $ satisfy isSym)
 
 pat1 :: Parser Pat'
-pat1 = VarP <$> varid
+pat1 = VarP <$> flexeme varid
     <?> "pattern"
 
+conid :: Parser ConId
+conid = NameCon <$> lexeme namecon
+    <|> SymCon <$> lexeme (char '(' *> symcon <* char ')')
+    <?> "constructor identifier"
+
+namecon :: Parser Name
+namecon = T.pack <$>
+    liftA2 (:) (satisfy isUpper)
+               (many $ satisfy isNameTail)
+
 varid :: Parser VarId
-varid = NameVar <$> lexeme namevar
+varid = NameVar <$> try (lexeme namevar)
     <|> SymVar <$> lexeme (char '(' *> symvar <* char ')')
     <?> "variable identifier"
-    where
-        namevar = T.pack <$>
+
+namevar :: Parser Name
+namevar = try word
+        & withPredicate (`notElem` ["where"]) empty
+    where word = T.pack <$>
             liftA2 (:) (satisfy isLower) (many $ satisfy isNameTail)
 
-        isNameTail c = isAlphaNum c
-                    || c == '\''
-                    || c == '_'
+isNameTail :: Char -> Bool
+isNameTail c = isAlphaNum c
+            || c == '\''
+            || c == '_'
 
 isVarSym :: Char -> Bool
 isVarSym = (`T.elem` "\\!#$%&*+./<=>?@^|-~")
@@ -159,7 +184,7 @@ infixD = do
         prec :: Parser Int
         prec = do
             o <- getOffset
-            n <- lexeme L.decimal
+            n <- lexeme L.decimal <?> "precedence level (an integer)"
             if 0 <= n && n <= 9 then
                 pure n
             else
@@ -173,10 +198,36 @@ infixD = do
                 psOpTable <~ H.alterF f op t
             where
                 f Nothing  = pure (Just (a,p))
-                f (Just _) = customFailure RlpParErrDuplicateInfixD
+                f (Just x) = registerCustomFailure RlpParErrDuplicateInfixD
+                           $> Just x
 
 tySigD = undefined
-dataD = undefined
+
+dataD :: Parser (Decl' e)
+dataD = DataD <$> (flexeme "data" *> conid) <*> many typaram
+      <*> optionalList (symbol "=" *> conalts)
+    where
+        typaram :: Parser Name
+        typaram = flexeme namevar
+
+        conalts :: Parser [ConAlt]
+        conalts = (:) <$> conalt <*> optionalList (symbol "|" *> conalts)
+
+        conalt :: Parser ConAlt
+        conalt = ConAlt <$> conid <*> many type1
+
+type1 :: Parser Type
+type1 = (choice . fmap flexeme)
+    [ flexeme "(" *> type_ <* flexeme ")"
+    , TyVar <$> namevar
+    , TyCon <$> namecon
+    ]
+
+type_ :: Parser Type
+type_ = (choice . fmap flexeme)
+    [ try $ (:->) <$> type1 <*> (flexeme "->" *> type_)
+    , type1
+    ]
 
 lit :: Parser Lit'
 lit = int
@@ -184,9 +235,9 @@ lit = int
     where
         int = IntL <$> L.decimal
 
-----------------------------------------------------------------------------------
+--------------------------------------------------------------------------------
+-- completing partial expressions
 
--- complete :: OpTable -> Fix Partial -> RlpExpr'
 complete :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
 complete = cata completePartial
 
diff --git a/src/RLP/Parse/Types.hs b/src/RLP/Parse/Types.hs
index 16a0ed9..e961d2d 100644
--- a/src/RLP/Parse/Types.hs
+++ b/src/RLP/Parse/Types.hs
@@ -22,9 +22,6 @@ module Rlp.Parse.Types
     , RlpParseError(..)
     , OpTable
     , OpInfo
-
-    -- * Extras
-    , registerCustomFailure
     )
     where
 ----------------------------------------------------------------------------------
@@ -36,7 +33,6 @@ import Data.Functor.Const
 import Data.Functor.Classes
 import Data.Void
 import Data.Maybe
-import Data.Set                     qualified as S
 import Text.Megaparsec              hiding (State)
 import Text.Printf
 import Lens.Micro
@@ -121,6 +117,3 @@ type PartialExpr' = Fix Partial
 
 makeLenses ''ParserState
 
-registerCustomFailure :: MonadParsec e s m => e -> m ()
-registerCustomFailure = registerFancyFailure . S.singleton . ErrorCustom
-
diff --git a/src/RLP/Parse/Utils.hs b/src/RLP/Parse/Utils.hs
new file mode 100644
index 0000000..cf5fb8c
--- /dev/null
+++ b/src/RLP/Parse/Utils.hs
@@ -0,0 +1,30 @@
+module Rlp.Parse.Utils
+    ( withPredicate
+    , registerCustomFailure
+    , optionalList
+    )
+    where
+--------------------------------------------------------------------------------
+import Text.Megaparsec
+import Rlp.Parse.Types
+import Data.Set                     qualified as S
+import Data.Maybe
+import Control.Monad
+--------------------------------------------------------------------------------
+
+-- TODO: generalise type sig
+withPredicate :: (a -> Bool)
+              -> Parser a    -- ^ action to run should the predicate fail
+              -> Parser a
+              -> Parser a
+withPredicate f r p = do
+    o <- getOffset
+    a <- p
+    if f a then pure a else setOffset o *> r
+
+registerCustomFailure :: MonadParsec e s m => e -> m ()
+registerCustomFailure = registerFancyFailure . S.singleton . ErrorCustom
+
+optionalList :: Parser [a] -> Parser [a]
+optionalList = fmap (join . maybeToList) . optional
+
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 4a43cb9..09acb8b 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -2,7 +2,7 @@
 {-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable #-}
 -- recursion-schemes
 {-# LANGUAGE TemplateHaskell, TypeFamilies #-}
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings, PatternSynonyms #-}
 module Rlp.Syntax
     ( RlpExpr(..)
     , RlpExpr'
@@ -10,8 +10,15 @@ module Rlp.Syntax
     , RlpExprF'
     , Decl(..)
     , Decl'
+    , Bind(..)
+    , Where
+    , Where'
+    , ConAlt(..)
+    , Type(..)
+    , pattern (:->)
     , Assoc(..)
     , VarId(..)
+    , ConId(..)
     , Pat(..)
     , Pat'
     , Lit(..)
@@ -45,9 +52,9 @@ newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 -- accounted for, we may complete the parsing task and get a proper @[Decl
 -- RlpExpr Name]@.
 
-data Decl e b = FunD    VarId [Pat b] (e b)
+data Decl e b = FunD    VarId [Pat b] (e b) (Where b)
               | TySigD  [VarId] Type
-              | DataD   ConId [ConId] [ConAlt]
+              | DataD   ConId [Name] [ConAlt]
               | InfixD  Assoc Int Name
               deriving Show
 
@@ -58,14 +65,14 @@ data Assoc = InfixL
            | Infix
            deriving Show
 
-data ConAlt = ConAlt ConId [ConId]
-               deriving Show
+data ConAlt = ConAlt ConId [Type]
+            deriving Show
 
 data RlpExpr b = LetE  [Bind b] (RlpExpr b)
                | VarE  VarId
                | ConE  ConId
                | LamE  [Pat b] (RlpExpr b)
-               | CaseE (RlpExpr b) [Alt b]
+               | CaseE (RlpExpr b) [(Alt b, Where b)]
                | IfE   (RlpExpr b) (RlpExpr b) (RlpExpr b)
                | AppE  (RlpExpr b) (RlpExpr b)
                | LitE  (Lit b)
@@ -73,9 +80,12 @@ data RlpExpr b = LetE  [Bind b] (RlpExpr b)
 
 type RlpExpr' = RlpExpr Name
 
+type Where b = [Bind b]
+type Where' = [Bind Name]
+
 -- do we want guards?
 data Alt b = AltA (Pat b) (RlpExpr b)
-               deriving Show
+           deriving Show
 
 data Bind b = PatB (Pat b) (RlpExpr b)
             | FunB VarId [Pat b] (RlpExpr b)
-- 
2.52.0


From d0dbdbbd9b67175093cdb45a12f7cb9456c264fc Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 9 Jan 2024 22:57:14 -0700
Subject: [PATCH 062/192] cool

---
 src/RLP/Parse/Decls.hs | 44 ++++++++++++++++++++++++++++--------------
 src/RLP/Syntax.hs      | 15 +++++++++++++-
 2 files changed, 44 insertions(+), 15 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 8a95f41..9d4a911 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE RecursiveDo #-}
 {-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE ImplicitParams #-}
 {-# LANGUAGE LambdaCase, BlockArguments #-}
@@ -71,14 +72,14 @@ decl = choice
     ]
 
 funD :: Parser PartialDecl'
-funD = FunD <$> flexeme varid <*> params <*> (symbol "=" *> body) <*> whereClause
+funD = FunD <$> lexeme varid <*> params <*> (symbol "=" *> body) <*> whereClause
     where
         params = many pat1
         body = fmap Const partialExpr
 
 whereClause :: Parser Where'
 whereClause = optionalList $
-        flexeme "where" *> pure
+        lexeme "where" *> pure
             [ FunB "fixme" [] (VarE "fixme")
             ]
 
@@ -89,7 +90,7 @@ standaloneOf :: Parser a -> Parser a
 standaloneOf = (<* eof)
 
 partialExpr :: Parser PartialExpr'
-partialExpr = (choice . fmap flexeme)
+partialExpr = choice
     [ try application
     , Fix <$> infixExpr
     ]
@@ -101,14 +102,14 @@ partialExpr = (choice . fmap flexeme)
         mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
         partialExpr' = unFix <$> partialExpr
-        infixOp' = flexeme infixOp
+        infixOp' = lexeme infixOp
 
         mkApp :: PartialExpr' -> PartialExpr' -> PartialExpr'
         mkApp f x = Fix . E $ f `AppEF` x
 
 partialExpr1 :: Parser PartialExpr'
-partialExpr1 = (choice . fmap flexeme)
-    [ try $ flexeme "(" *> partialExpr' <* flexeme ")"
+partialExpr1 = choice
+    [ try $ lexeme "(" *> partialExpr' <* lexeme ")"
     , Fix <$> varid'
     , Fix <$> lit'
     ]
@@ -130,7 +131,7 @@ symcon = T.pack <$>
     liftA2 (:) (char ':') (many $ satisfy isSym)
 
 pat1 :: Parser Pat'
-pat1 = VarP <$> flexeme varid
+pat1 = VarP <$> lexeme varid
     <?> "pattern"
 
 conid :: Parser ConId
@@ -148,8 +149,23 @@ varid = NameVar <$> try (lexeme namevar)
     <|> SymVar <$> lexeme (char '(' *> symvar <* char ')')
     <?> "variable identifier"
 
+decls :: Parser [PartialDecl']
+decls = L.indentBlock scn p where
+    p = do
+        a <- "wtf"
+        pure (L.IndentSome (Just pos1) pure decl)
+
+t :: Parser [PartialDecl']
+t = do
+    space
+    i <- L.indentLevel
+    let indentGuard = L.indentGuard scn EQ i
+    -- indentGuard *> decl *> eol *> indentGuard *> decl
+    rec ds <- indentGuard *> decl <|> eof
+    many $ indentGuard *> decl <* (eol <|> eof)
+
 namevar :: Parser Name
-namevar = try word
+namevar = word
         & withPredicate (`notElem` ["where"]) empty
     where word = T.pack <$>
             liftA2 (:) (satisfy isLower) (many $ satisfy isNameTail)
@@ -204,11 +220,11 @@ infixD = do
 tySigD = undefined
 
 dataD :: Parser (Decl' e)
-dataD = DataD <$> (flexeme "data" *> conid) <*> many typaram
+dataD = DataD <$> (lexeme "data" *> conid) <*> many typaram
       <*> optionalList (symbol "=" *> conalts)
     where
         typaram :: Parser Name
-        typaram = flexeme namevar
+        typaram = lexeme namevar
 
         conalts :: Parser [ConAlt]
         conalts = (:) <$> conalt <*> optionalList (symbol "|" *> conalts)
@@ -217,15 +233,15 @@ dataD = DataD <$> (flexeme "data" *> conid) <*> many typaram
         conalt = ConAlt <$> conid <*> many type1
 
 type1 :: Parser Type
-type1 = (choice . fmap flexeme)
-    [ flexeme "(" *> type_ <* flexeme ")"
+type1 = choice
+    [ lexeme "(" *> type_ <* lexeme ")"
     , TyVar <$> namevar
     , TyCon <$> namecon
     ]
 
 type_ :: Parser Type
-type_ = (choice . fmap flexeme)
-    [ try $ (:->) <$> type1 <*> (flexeme "->" *> type_)
+type_ = choice
+    [ try $ (:->) <$> type1 <*> (lexeme "->" *> type_)
     , type1
     ]
 
diff --git a/src/RLP/Syntax.hs b/src/RLP/Syntax.hs
index 09acb8b..58843b5 100644
--- a/src/RLP/Syntax.hs
+++ b/src/RLP/Syntax.hs
@@ -4,7 +4,10 @@
 {-# LANGUAGE TemplateHaskell, TypeFamilies #-}
 {-# LANGUAGE OverloadedStrings, PatternSynonyms #-}
 module Rlp.Syntax
-    ( RlpExpr(..)
+    ( RlpModule(..)
+    , rlpmodName
+    , rlpmodProgram
+    , RlpExpr(..)
     , RlpExpr'
     , RlpExprF(..)
     , RlpExprF'
@@ -39,10 +42,16 @@ import Data.String                  (IsString(..))
 import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Data.Functor.Classes
 import Lens.Micro
+import Lens.Micro.TH
 import Core.Syntax                  hiding (Lit)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
 
+data RlpModule b = RlpModule
+    { _rlpmodName       :: Text
+    , _rlpmodProgram    :: RlpProgram b
+    }
+
 newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 
 -- | The @e@ parameter is used for partial results. When parsing an input, we
@@ -157,3 +166,7 @@ showsTernaryWith sa sb sc name p a b c = showParen (p > 10)
     . showChar ' ' . sb 11 b
     . showChar ' ' . sc 11 c
 
+--------------------------------------------------------------------------------
+
+makeLenses ''RlpModule
+
-- 
2.52.0


From ed60ec8b3225dc3c36a7fb8791916120be5402e9 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 10:46:53 -0700
Subject: [PATCH 063/192] aaaaa

---
 src/RLP/Parse/Decls.hs | 33 +++++++++++++++++++--------------
 1 file changed, 19 insertions(+), 14 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 9d4a911..201316b 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -65,10 +65,12 @@ blockComment = L.skipBlockCommentNested "{-" "-}" $> "<unimpl>"
 
 decl :: Parser PartialDecl'
 decl = choice
-    [ funD
-    , tySigD
+    -- declarations that begin with a keyword before those beginning with an
+    -- arbitrary name
+    [ infixD
     , dataD
-    , infixD
+    , funD
+    , tySigD
     ]
 
 funD :: Parser PartialDecl'
@@ -150,26 +152,28 @@ varid = NameVar <$> try (lexeme namevar)
     <?> "variable identifier"
 
 decls :: Parser [PartialDecl']
-decls = L.indentBlock scn p where
-    p = do
-        a <- "wtf"
-        pure (L.IndentSome (Just pos1) pure decl)
-
-t :: Parser [PartialDecl']
-t = do
+decls = do
     space
     i <- L.indentLevel
     let indentGuard = L.indentGuard scn EQ i
     -- indentGuard *> decl *> eol *> indentGuard *> decl
-    rec ds <- indentGuard *> decl <|> eof
-    many $ indentGuard *> decl <* (eol <|> eof)
+    many $ indentGuard *> decl
+    -- many $ indentGuard *> decl <* (eol <|> eof)
 
 namevar :: Parser Name
 namevar = word
-        & withPredicate (`notElem` ["where"]) empty
+        & withPredicate (`notElem` keywords) empty
     where word = T.pack <$>
             liftA2 (:) (satisfy isLower) (many $ satisfy isNameTail)
 
+keywords :: (IsString a) => [a]
+keywords =
+    [ "where"
+    , "infix"
+    , "infixr"
+    , "infixl"
+    ]
+
 isNameTail :: Char -> Bool
 isNameTail c = isAlphaNum c
             || c == '\''
@@ -217,7 +221,8 @@ infixD = do
                 f (Just x) = registerCustomFailure RlpParErrDuplicateInfixD
                            $> Just x
 
-tySigD = undefined
+tySigD :: Parser (Decl' e)
+tySigD = undefined -- TySigD <$> (flexeme)
 
 dataD :: Parser (Decl' e)
 dataD = DataD <$> (lexeme "data" *> conid) <*> many typaram
-- 
2.52.0


From 65b967689c6eda1ecbd34a1ecb7d678f5ee42b9a Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 11:03:06 -0700
Subject: [PATCH 064/192] decls fix

---
 src/RLP/Parse/Decls.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 201316b..07c8263 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -22,9 +22,11 @@ import Data.HashMap.Strict          qualified as H
 import Data.Maybe                   (maybeToList)
 import Data.List                    (foldl1')
 import Data.Char
+import Data.Function                (fix)
 import Data.Functor
 import Data.Functor.Const
 import Data.Fix                     hiding (cata)
+import GHC.Exts                     (IsString)
 import Lens.Micro
 import Lens.Micro.Platform
 import Rlp.Parse.Types
@@ -156,9 +158,8 @@ decls = do
     space
     i <- L.indentLevel
     let indentGuard = L.indentGuard scn EQ i
-    -- indentGuard *> decl *> eol *> indentGuard *> decl
-    many $ indentGuard *> decl
-    -- many $ indentGuard *> decl <* (eol <|> eof)
+    fix \ds -> (:) <$> (indentGuard *> decl)
+                   <*> (try ds <|> eof *> pure [])
 
 namevar :: Parser Name
 namevar = word
-- 
2.52.0


From 4b9a570c7221dc24b704c3f9e271d11ff94e0d9f Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 11:26:17 -0700
Subject: [PATCH 065/192] finally in a decent state

---
 src/RLP/Parse/Decls.hs | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 07c8263..480bea3 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -44,9 +44,6 @@ parseTest' p s = case runState (runParserT p "test" s) init of
 lexeme :: Parser a -> Parser a
 lexeme = L.lexeme sc
 
-flexeme :: Parser a -> Parser a
-flexeme p = L.lineFold scn $ \sc' -> L.lexeme sc' p
-
 symbol :: Text -> Parser Text
 symbol = L.symbol sc
 
@@ -56,6 +53,8 @@ sc = L.space hspace1 (void lineComment) (void blockComment)
 scn :: Parser ()
 scn = L.space space1 (void lineComment) (void blockComment)
 
+type OnFold = (?foldGuard :: Parser ())
+
 -- TODO: return comment text
 -- TODO: '---' should not start a comment
 lineComment :: Parser Text
@@ -65,7 +64,7 @@ lineComment = L.skipLineComment "--" $> "<unimpl>"
 blockComment :: Parser Text
 blockComment = L.skipBlockCommentNested "{-" "-}" $> "<unimpl>"
 
-decl :: Parser PartialDecl'
+decl :: (OnFold) => Parser PartialDecl'
 decl = choice
     -- declarations that begin with a keyword before those beginning with an
     -- arbitrary name
@@ -75,12 +74,18 @@ decl = choice
     , tySigD
     ]
 
-funD :: Parser PartialDecl'
-funD = FunD <$> lexeme varid <*> params <*> (symbol "=" *> body) <*> whereClause
+funD :: (OnFold) => Parser PartialDecl'
+funD = FunD <$> lexeme varid <*> params <*> (fsymbol "=" *> body) <*> whereClause
     where
         params = many pat1
         body = fmap Const partialExpr
 
+fsymbol :: (OnFold) => Text -> Parser Text
+fsymbol p = scn *> ?foldGuard *> symbol p
+
+flexeme :: (OnFold) => Parser a -> Parser a
+flexeme p = scn *> ?foldGuard *> lexeme p
+
 whereClause :: Parser Where'
 whereClause = optionalList $
         lexeme "where" *> pure
@@ -134,8 +139,8 @@ symcon :: Parser Name
 symcon = T.pack <$>
     liftA2 (:) (char ':') (many $ satisfy isSym)
 
-pat1 :: Parser Pat'
-pat1 = VarP <$> lexeme varid
+pat1 :: (OnFold) => Parser Pat'
+pat1 = VarP <$> flexeme varid
     <?> "pattern"
 
 conid :: Parser ConId
@@ -158,6 +163,7 @@ decls = do
     space
     i <- L.indentLevel
     let indentGuard = L.indentGuard scn EQ i
+    let ?foldGuard = void $ L.indentGuard scn GT i
     fix \ds -> (:) <$> (indentGuard *> decl)
                    <*> (try ds <|> eof *> pure [])
 
-- 
2.52.0


From 1fc45b70b40a81933b443443dbd420c77e783baf Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 11:33:27 -0700
Subject: [PATCH 066/192] replace uses of many+satisfy with takeWhileP

---
 src/RLP/Parse/Decls.hs | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 480bea3..3e86529 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -132,12 +132,10 @@ infixOp :: Parser Name
 infixOp = symvar <|> symcon <?> "operator"
 
 symvar :: Parser Name
-symvar = T.pack <$>
-    liftA2 (:) (satisfy isVarSym) (many $ satisfy isSym)
+symvar = T.cons <$> satisfy isVarSym <*> takeWhileP Nothing isSym
 
 symcon :: Parser Name
-symcon = T.pack <$>
-    liftA2 (:) (char ':') (many $ satisfy isSym)
+symcon = T.cons <$> char ':' <*> takeWhileP Nothing isSym
 
 pat1 :: (OnFold) => Parser Pat'
 pat1 = VarP <$> flexeme varid
@@ -149,9 +147,7 @@ conid = NameCon <$> lexeme namecon
     <?> "constructor identifier"
 
 namecon :: Parser Name
-namecon = T.pack <$>
-    liftA2 (:) (satisfy isUpper)
-               (many $ satisfy isNameTail)
+namecon = T.cons <$> satisfy isUpper <*> takeWhileP Nothing isNameTail
 
 varid :: Parser VarId
 varid = NameVar <$> try (lexeme namevar)
@@ -170,8 +166,8 @@ decls = do
 namevar :: Parser Name
 namevar = word
         & withPredicate (`notElem` keywords) empty
-    where word = T.pack <$>
-            liftA2 (:) (satisfy isLower) (many $ satisfy isNameTail)
+    where
+        word = T.cons <$> satisfy isLower <*> takeWhileP Nothing isNameTail
 
 keywords :: (IsString a) => [a]
 keywords =
-- 
2.52.0


From ec4902b2d49f2e9d087d80651dea26cfe71203c6 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 14:10:46 -0700
Subject: [PATCH 067/192] layout

layouts

oh my layouts
---
 src/RLP/Parse/Decls.hs | 55 +++++++++++++++++++++++++++++++++---------
 1 file changed, 43 insertions(+), 12 deletions(-)

diff --git a/src/RLP/Parse/Decls.hs b/src/RLP/Parse/Decls.hs
index 3e86529..5199b92 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/RLP/Parse/Decls.hs
@@ -64,6 +64,31 @@ lineComment = L.skipLineComment "--" $> "<unimpl>"
 blockComment :: Parser Text
 blockComment = L.skipBlockCommentNested "{-" "-}" $> "<unimpl>"
 
+layout :: forall a. ((OnFold) => Parser a) -> Parser [a]
+layout item = scn *> (explicit <|> implicit) where
+    explicit :: Parser [a]
+    explicit = let ?foldGuard = scn -- line folds just go to the semicolon
+        in sym "{" *> fix \items -> choice
+            [ sym "}" $> []
+            , (:) <$> item
+                  <*> (sym ";" *> items <|> sym "}" $> [])
+            ]
+        where
+            sym = L.symbol scn
+
+    implicit :: Parser [a]
+    implicit = do
+        i <- L.indentLevel
+        -- items must be aligned
+        let indentGuard = L.indentGuard scn EQ i
+        -- override foldGuard in order with new indentation
+        let ?foldGuard = void $ L.indentGuard scn GT i
+        fix \ds -> (:) <$> (indentGuard *> item)
+                       <*> (ds <|> pure [])
+
+t :: (?foldGuard :: Parser ()) => Parser [Text]
+t = (:) <$> lexeme "soge" <*> many (flexeme "doge")
+
 decl :: (OnFold) => Parser PartialDecl'
 decl = choice
     -- declarations that begin with a keyword before those beginning with an
@@ -80,11 +105,13 @@ funD = FunD <$> lexeme varid <*> params <*> (fsymbol "=" *> body) <*> whereClaus
         params = many pat1
         body = fmap Const partialExpr
 
+-- we may not need to call scn here
 fsymbol :: (OnFold) => Text -> Parser Text
-fsymbol p = scn *> ?foldGuard *> symbol p
+fsymbol p = try ?foldGuard *> symbol p
 
+-- we may not need to call scn here
 flexeme :: (OnFold) => Parser a -> Parser a
-flexeme p = scn *> ?foldGuard *> lexeme p
+flexeme p = try ?foldGuard *> lexeme p
 
 whereClause :: Parser Where'
 whereClause = optionalList $
@@ -94,18 +121,19 @@ whereClause = optionalList $
 
 standalonePartialExpr :: Parser PartialExpr'
 standalonePartialExpr = standaloneOf partialExpr
+    where ?foldGuard = undefined
 
 standaloneOf :: Parser a -> Parser a
 standaloneOf = (<* eof)
 
-partialExpr :: Parser PartialExpr'
+partialExpr :: (OnFold) => Parser PartialExpr'
 partialExpr = choice
     [ try application
     , Fix <$> infixExpr
     ]
     <?> "expression"
     where
-        application = foldl1' mkApp <$> some partialExpr1
+        application = foldl1' mkApp <$> some (flexeme partialExpr1)
         infixExpr = mkB <$> partialExpr1' <*> infixOp' <*> partialExpr'
 
         mkB a f b = B f a b
@@ -116,7 +144,7 @@ partialExpr = choice
         mkApp :: PartialExpr' -> PartialExpr' -> PartialExpr'
         mkApp f x = Fix . E $ f `AppEF` x
 
-partialExpr1 :: Parser PartialExpr'
+partialExpr1 :: (OnFold) => Parser PartialExpr'
 partialExpr1 = choice
     [ try $ lexeme "(" *> partialExpr' <* lexeme ")"
     , Fix <$> varid'
@@ -155,13 +183,16 @@ varid = NameVar <$> try (lexeme namevar)
     <?> "variable identifier"
 
 decls :: Parser [PartialDecl']
-decls = do
-    space
-    i <- L.indentLevel
-    let indentGuard = L.indentGuard scn EQ i
-    let ?foldGuard = void $ L.indentGuard scn GT i
-    fix \ds -> (:) <$> (indentGuard *> decl)
-                   <*> (try ds <|> eof *> pure [])
+decls = layout decl <* eof
+
+-- decls :: Parser [PartialDecl']
+-- decls = do
+--     space
+--     i <- L.indentLevel
+--     let indentGuard = L.indentGuard scn EQ i
+--     let ?foldGuard = void $ L.indentGuard scn GT i
+--     fix \ds -> (:) <$> (indentGuard *> decl)
+--                    <*> (try ds <|> eof *> pure [])
 
 namevar :: Parser Name
 namevar = word
-- 
2.52.0


From ab2cb595263d649fd77d440bd6535d5545a8de9b Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 14:33:03 -0700
Subject: [PATCH 068/192] i did not realise my fs is case insensitive

---
 src/{RLP => Rlp}/Parse/Decls.hs | 4 ++--
 src/{RLP => Rlp}/Parse/Types.hs | 0
 src/{RLP => Rlp}/Parse/Utils.hs | 0
 src/{RLP => Rlp}/Syntax.hs      | 0
 tst/Rlp/Parse/DeclsSpec.hs      | 0
 5 files changed, 2 insertions(+), 2 deletions(-)
 rename src/{RLP => Rlp}/Parse/Decls.hs (99%)
 rename src/{RLP => Rlp}/Parse/Types.hs (100%)
 rename src/{RLP => Rlp}/Parse/Utils.hs (100%)
 rename src/{RLP => Rlp}/Syntax.hs (100%)
 create mode 100644 tst/Rlp/Parse/DeclsSpec.hs

diff --git a/src/RLP/Parse/Decls.hs b/src/Rlp/Parse/Decls.hs
similarity index 99%
rename from src/RLP/Parse/Decls.hs
rename to src/Rlp/Parse/Decls.hs
index 5199b92..d8af6ca 100644
--- a/src/RLP/Parse/Decls.hs
+++ b/src/Rlp/Parse/Decls.hs
@@ -128,8 +128,8 @@ standaloneOf = (<* eof)
 
 partialExpr :: (OnFold) => Parser PartialExpr'
 partialExpr = choice
-    [ try application
-    , Fix <$> infixExpr
+    [ try $ Fix <$> infixExpr
+    , application
     ]
     <?> "expression"
     where
diff --git a/src/RLP/Parse/Types.hs b/src/Rlp/Parse/Types.hs
similarity index 100%
rename from src/RLP/Parse/Types.hs
rename to src/Rlp/Parse/Types.hs
diff --git a/src/RLP/Parse/Utils.hs b/src/Rlp/Parse/Utils.hs
similarity index 100%
rename from src/RLP/Parse/Utils.hs
rename to src/Rlp/Parse/Utils.hs
diff --git a/src/RLP/Syntax.hs b/src/Rlp/Syntax.hs
similarity index 100%
rename from src/RLP/Syntax.hs
rename to src/Rlp/Syntax.hs
diff --git a/tst/Rlp/Parse/DeclsSpec.hs b/tst/Rlp/Parse/DeclsSpec.hs
new file mode 100644
index 0000000..e69de29
-- 
2.52.0


From ea2fb4dcaa30067c8cb235d7b514986f5257df1b Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 15:11:26 -0700
Subject: [PATCH 069/192] tysigs

---
 src/Rlp/Parse/Decls.hs | 43 +++++++++++++++++++++---------------------
 src/Rlp/Parse/Types.hs |  3 +++
 2 files changed, 25 insertions(+), 21 deletions(-)

diff --git a/src/Rlp/Parse/Decls.hs b/src/Rlp/Parse/Decls.hs
index d8af6ca..d61c0d4 100644
--- a/src/Rlp/Parse/Decls.hs
+++ b/src/Rlp/Parse/Decls.hs
@@ -83,7 +83,7 @@ layout item = scn *> (explicit <|> implicit) where
         let indentGuard = L.indentGuard scn EQ i
         -- override foldGuard in order with new indentation
         let ?foldGuard = void $ L.indentGuard scn GT i
-        fix \ds -> (:) <$> (indentGuard *> item)
+        fix \ds -> (:) <$> (indentGuard *> item <* scn)
                        <*> (ds <|> pure [])
 
 t :: (?foldGuard :: Parser ()) => Parser [Text]
@@ -95,7 +95,7 @@ decl = choice
     -- arbitrary name
     [ infixD
     , dataD
-    , funD
+    , try funD
     , tySigD
     ]
 
@@ -182,17 +182,11 @@ varid = NameVar <$> try (lexeme namevar)
     <|> SymVar <$> lexeme (char '(' *> symvar <* char ')')
     <?> "variable identifier"
 
-decls :: Parser [PartialDecl']
-decls = layout decl <* eof
-
--- decls :: Parser [PartialDecl']
--- decls = do
---     space
---     i <- L.indentLevel
---     let indentGuard = L.indentGuard scn EQ i
---     let ?foldGuard = void $ L.indentGuard scn GT i
---     fix \ds -> (:) <$> (indentGuard *> decl)
---                    <*> (try ds <|> eof *> pure [])
+program :: Parser [Decl' RlpExpr]
+program = do
+    ds <- layout decl <* eof
+    pt <- use psOpTable
+    pure $ complete pt <$> ds
 
 namevar :: Parser Name
 namevar = word
@@ -255,10 +249,10 @@ infixD = do
                 f (Just x) = registerCustomFailure RlpParErrDuplicateInfixD
                            $> Just x
 
-tySigD :: Parser (Decl' e)
-tySigD = undefined -- TySigD <$> (flexeme)
+tySigD :: (OnFold) => Parser (Decl' e)
+tySigD = TySigD <$> (pure <$> varid) <*> (flexeme "::" *> flexeme type_)
 
-dataD :: Parser (Decl' e)
+dataD :: (OnFold) => Parser (Decl' e)
 dataD = DataD <$> (lexeme "data" *> conid) <*> many typaram
       <*> optionalList (symbol "=" *> conalts)
     where
@@ -271,16 +265,16 @@ dataD = DataD <$> (lexeme "data" *> conid) <*> many typaram
         conalt :: Parser ConAlt
         conalt = ConAlt <$> conid <*> many type1
 
-type1 :: Parser Type
+type1 :: (OnFold) => Parser Type
 type1 = choice
     [ lexeme "(" *> type_ <* lexeme ")"
     , TyVar <$> namevar
     , TyCon <$> namecon
     ]
 
-type_ :: Parser Type
+type_ :: (OnFold) => Parser Type
 type_ = choice
-    [ try $ (:->) <$> type1 <*> (lexeme "->" *> type_)
+    [ try $ (:->) <$> type1 <*> (flexeme "->" *> type_)
     , type1
     ]
 
@@ -293,8 +287,15 @@ lit = int
 --------------------------------------------------------------------------------
 -- completing partial expressions
 
-complete :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
-complete = cata completePartial
+complete :: OpTable -> PartialDecl' -> Decl' RlpExpr
+complete pt (FunD n as b w)    = FunD n as b' w
+    where b' = let ?pt = pt in completeExpr (getConst b)
+complete pt (TySigD ns t)      = TySigD ns t
+complete pt (DataD n as cs)    = DataD n as cs
+complete pt (InfixD a p n)     = InfixD a p n
+
+completeExpr :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
+completeExpr = cata completePartial
 
 completePartial :: (?pt :: OpTable) => PartialE -> RlpExpr'
 completePartial (E e)        = completeRlpExpr e
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index e961d2d..41e67f8 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -42,6 +42,9 @@ import Rlp.Syntax
 
 -- parser types
 
+-- TODO: the State is only used for building an operator table from infix[lr]
+-- declarations. we should switch to a normal Parsec monad in the future
+
 type Parser = ParsecT RlpParseError Text (State ParserState)
 
 data ParserState = ParserState
-- 
2.52.0


From eaa04c4a592c6faff5fc3d1e7adf35219b115dd7 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 10 Jan 2024 16:12:35 -0700
Subject: [PATCH 070/192] its fine

---
 src/Rlp/Parse/Decls.hs | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/src/Rlp/Parse/Decls.hs b/src/Rlp/Parse/Decls.hs
index d61c0d4..fb6d875 100644
--- a/src/Rlp/Parse/Decls.hs
+++ b/src/Rlp/Parse/Decls.hs
@@ -128,18 +128,26 @@ standaloneOf = (<* eof)
 
 partialExpr :: (OnFold) => Parser PartialExpr'
 partialExpr = choice
-    [ try $ Fix <$> infixExpr
+    [ ifExpr
+    , try $ infixExpr
     , application
     ]
     <?> "expression"
     where
         application = foldl1' mkApp <$> some (flexeme partialExpr1)
-        infixExpr = mkB <$> partialExpr1' <*> infixOp' <*> partialExpr'
+        infixExpr = fmap Fix $
+            mkB <$> partialExpr1' <*> infixOp' <*> partialExpr'
+
+        ifExpr :: Parser PartialExpr'
+        ifExpr = fmap (Fix . E) $
+            IfEF <$> (flexeme "if" *> partialExpr)
+                 <*> (flexeme "then" *> partialExpr)
+                 <*> (flexeme "else" *> partialExpr)
 
         mkB a f b = B f a b
         partialExpr1' = unFix <$> partialExpr1
         partialExpr' = unFix <$> partialExpr
-        infixOp' = lexeme infixOp
+        infixOp' = flexeme infixOp
 
         mkApp :: PartialExpr' -> PartialExpr' -> PartialExpr'
         mkApp f x = Fix . E $ f `AppEF` x
-- 
2.52.0


From bec376b7c7c443a0606d66f2cfcee4db39496e6f Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 11 Jan 2024 08:36:44 -0700
Subject: [PATCH 071/192] threaded lexer

---
 rlp.cabal       |  4 +++-
 src/Rlp/Lex.x   | 64 +++++++++++++++++++++++++++++++++++++++++++++++++
 src/Rlp/Parse.y | 28 ++++++++++++++++++++++
 3 files changed, 95 insertions(+), 1 deletion(-)
 create mode 100644 src/Rlp/Lex.x
 create mode 100644 src/Rlp/Parse.y

diff --git a/rlp.cabal b/rlp.cabal
index dc83431..e6b81a9 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -31,7 +31,9 @@ library
                     , Core.HindleyMilner
                     , Control.Monad.Errorful
                     , Rlp.Syntax
-                    , Rlp.Parse.Decls
+                    -- , Rlp.Parse.Decls
+                    , Rlp.Parse
+                    , Rlp.Lex
                     , Rlp.Parse.Types
 
     other-modules:    Data.Heap
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
new file mode 100644
index 0000000..893a487
--- /dev/null
+++ b/src/Rlp/Lex.x
@@ -0,0 +1,64 @@
+{
+{-# LANGUAGE GeneralisedNewtypeDeriving #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Rlp.Lex
+    ( P(..)
+    , RlpToken(..)
+    , Located(..)
+    , AlexPosn
+    , lexer
+    )
+    where
+import Data.Functor.Identity
+import Core.Syntax              (Name)
+import Data.Text                (Text)
+import Data.Text                qualified as T
+import Lens.Micro
+}
+
+%wrapper "monad-strict-text"
+
+rlp :-
+<0>
+{
+    "a" { const $ const $ pure $ Located (AlexPn 0 0 0) (TokenVarName "a") }
+    "" { undefined }
+}
+
+{
+
+alexEOF :: Alex a
+alexEOF = undefined
+
+data RlpToken = TokenEquals
+              | TokenLitInt Int
+              | TokenVarName Name
+              | TokenConName Name
+              | TokenVarSym Name
+              | TokenConSym Name
+              | TokenData
+              | TokenPipe
+              | TokenEOF
+              deriving (Show)
+
+newtype P a = P { runP :: Text -> Either String a }
+    deriving (Functor)
+
+instance Applicative P where
+    pure = P . const . Right
+
+    liftA2 f p q = P $ \s -> undefined
+
+instance Monad P where
+    m >>= k = P $ \s -> case runP m s of
+        Right a -> runP (k a) s
+        Left e -> Left e
+
+data Located a = Located AlexPosn a
+    deriving (Show)
+
+lexer :: (Located RlpToken -> P a) -> P a
+lexer f = P $ \s -> case runAlex s ((,) <$> alexMonadScan <*> alexGetInput) of
+    Right (a,s') -> runP (f a) (s' ^. _4)
+
+}
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
new file mode 100644
index 0000000..efc5d22
--- /dev/null
+++ b/src/Rlp/Parse.y
@@ -0,0 +1,28 @@
+{
+module Rlp.Parse
+    (
+    )
+    where
+import Rlp.Lex
+}
+
+%name rlp
+%monad { P }
+%lexer { lexer } { Located _ TokenEOF }
+%error { parseError }
+%tokentype { Located RlpToken }
+
+%token
+    t { Located _ _ }
+
+%%
+
+P :: { () }
+P : { error "aa" }
+
+{
+
+parseError :: Located RlpToken -> P a
+parseError = error "aaaaah"
+
+}
-- 
2.52.0


From aff1c6b4c698682a883c3b76816f9a030670861e Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 11 Jan 2024 11:49:46 -0700
Subject: [PATCH 072/192] decent starting point

---
 .ghci         |  2 ++
 src/Rlp/Lex.x | 58 +++++++++++++++++++++++++++++++++++++++++----------
 2 files changed, 49 insertions(+), 11 deletions(-)
 create mode 100644 .ghci

diff --git a/.ghci b/.ghci
new file mode 100644
index 0000000..83c65a0
--- /dev/null
+++ b/.ghci
@@ -0,0 +1,2 @@
+:set -XOverloadedStrings
+
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 893a487..34dd85f 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -9,6 +9,7 @@ module Rlp.Lex
     , lexer
     )
     where
+import Control.Monad
 import Data.Functor.Identity
 import Core.Syntax              (Name)
 import Data.Text                (Text)
@@ -18,17 +19,32 @@ import Lens.Micro
 
 %wrapper "monad-strict-text"
 
+$whitechar = [ \t\n\r\f\v]
+
 rlp :-
+    
+    -- skip whitespace
+    $white+             ;
+    -- TODO: don't treat operators like (-->) as comments
+    "--".*              ;
+    ";"                 { constToken TokenSemicolon }
+    "{"                 { constToken TokenLBrace }
+    "}"                 { constToken TokenRBrace }
+
 <0>
 {
     "a" { const $ const $ pure $ Located (AlexPn 0 0 0) (TokenVarName "a") }
-    "" { undefined }
 }
 
 {
 
-alexEOF :: Alex a
-alexEOF = undefined
+constToken :: RlpToken -> AlexAction (Located RlpToken)
+constToken t inp _ = pure $ Located (inp ^. _1) t
+
+alexEOF :: Alex (Located RlpToken)
+alexEOF = do
+    inp <- alexGetInput
+    pure (Located (inp ^. _1) TokenEOF)
 
 data RlpToken = TokenEquals
               | TokenLitInt Int
@@ -38,27 +54,47 @@ data RlpToken = TokenEquals
               | TokenConSym Name
               | TokenData
               | TokenPipe
+              -- syntax control
+              | TokenSemicolon
+              | TokenLBrace
+              | TokenRBrace
               | TokenEOF
               deriving (Show)
 
-newtype P a = P { runP :: Text -> Either String a }
+newtype P a = P { runP :: PState -> Text -> Either String a }
     deriving (Functor)
 
-instance Applicative P where
-    pure = P . const . Right
+data PState = PState
+    { psLayoutStack     :: [Layout]
+    }
 
-    liftA2 f p q = P $ \s -> undefined
+data Layout = ExplicitLayout
+            | ImplicitLayout Int
+            deriving (Show)
+
+instance Applicative P where
+    pure = P . const . const . Right
+
+    liftA2 = liftM2
 
 instance Monad P where
-    m >>= k = P $ \s -> case runP m s of
-        Right a -> runP (k a) s
+    m >>= k = P $ \st s -> case runP m st s of
+        Right a -> runP (k a) st s
         Left e -> Left e
 
 data Located a = Located AlexPosn a
     deriving (Show)
 
 lexer :: (Located RlpToken -> P a) -> P a
-lexer f = P $ \s -> case runAlex s ((,) <$> alexMonadScan <*> alexGetInput) of
-    Right (a,s') -> runP (f a) (s' ^. _4)
+lexer f = P $ \st s -> case m s of
+        Right (a,s') -> runP (f a) st (s' ^. _4)
+        Left  e      -> error (show e)
+    where
+        m s = runAlex s ((,) <$> alexMonadScan <*> alexGetInput)
+
+lexStream :: P [RlpToken]
+lexStream = lexer go where
+    go (Located _ TokenEOF) = pure [TokenEOF]
+    go (Located _ t)        = (t:) <$> lexStream
 
 }
-- 
2.52.0


From 681a39431266551294a6f490c16c944acbd2c694 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 11 Jan 2024 16:26:34 -0700
Subject: [PATCH 073/192] man this sucks

---
 src/Rlp/Lex.x   | 135 +++++++++++++++++++++++++++++++++++++-----------
 src/Rlp/Parse.y |  16 ++++--
 2 files changed, 118 insertions(+), 33 deletions(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 34dd85f..33489c2 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -1,5 +1,6 @@
 {
 {-# LANGUAGE GeneralisedNewtypeDeriving #-}
+{-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.Lex
     ( P(..)
@@ -12,19 +13,34 @@ module Rlp.Lex
 import Control.Monad
 import Data.Functor.Identity
 import Core.Syntax              (Name)
+import Data.Monoid              (First)
 import Data.Text                (Text)
 import Data.Text                qualified as T
+import Lens.Micro.Mtl
 import Lens.Micro
+import Lens.Micro.TH
 }
 
-%wrapper "monad-strict-text"
+%wrapper "monadUserState-strict-text"
 
-$whitechar = [ \t\n\r\f\v]
+$whitechar      = [ \t\n\r\f\v]
+
+$lower          = [a-z \_]
+$upper          = [A-Z]
+$alpha          = [$lower $upper]
+$digit          = 0-9
+
+$nl             = [\n\r]
+$white_no_nl    = $white # $nl
+
+$namechar       = [$alpha $digit \' \#]
+
+@varname        = $lower $namechar*
 
 rlp :-
     
     -- skip whitespace
-    $white+             ;
+    $white_no_nl+       ;
     -- TODO: don't treat operators like (-->) as comments
     "--".*              ;
     ";"                 { constToken TokenSemicolon }
@@ -33,7 +49,15 @@ rlp :-
 
 <0>
 {
-    "a" { const $ const $ pure $ Located (AlexPn 0 0 0) (TokenVarName "a") }
+    @varname            { tokenWith TokenVarName }
+    "="                 { constToken TokenEquals }
+}
+
+<bol>
+{
+    $whitechar          ;
+    \n                  ;
+    ()                  { doBol }
 }
 
 {
@@ -41,53 +65,71 @@ rlp :-
 constToken :: RlpToken -> AlexAction (Located RlpToken)
 constToken t inp _ = pure $ Located (inp ^. _1) t
 
+tokenWith :: (Text -> RlpToken) -> AlexAction (Located RlpToken)
+tokenWith tf (p,_,_,s) l = pure $ Located p (tf $ T.take l s)
+
 alexEOF :: Alex (Located RlpToken)
 alexEOF = do
     inp <- alexGetInput
     pure (Located (inp ^. _1) TokenEOF)
 
-data RlpToken = TokenEquals
-              | TokenLitInt Int
-              | TokenVarName Name
-              | TokenConName Name
-              | TokenVarSym Name
-              | TokenConSym Name
-              | TokenData
-              | TokenPipe
-              -- syntax control
-              | TokenSemicolon
-              | TokenLBrace
-              | TokenRBrace
-              | TokenEOF
-              deriving (Show)
+data RlpToken
+    -- literals
+    = TokenLitInt Int
+    -- identifiers
+    | TokenVarName Name
+    | TokenConName Name
+    | TokenVarSym Name
+    | TokenConSym Name
+    -- keywords
+    | TokenData
+    | TokenPipe
+    | TokenLet
+    | TokenIn
+    -- control symbols
+    | TokenEquals
+    | TokenSemicolon
+    | TokenLBrace
+    | TokenRBrace
+    | TokenEOF
+    deriving (Show)
 
-newtype P a = P { runP :: PState -> Text -> Either String a }
+newtype P a = P { runP :: Text -> Either String a }
     deriving (Functor)
 
-data PState = PState
-    { psLayoutStack     :: [Layout]
+data AlexUserState = AlexUserState
+    { _ausLayoutStack     :: [Layout]
     }
 
-data Layout = ExplicitLayout
-            | ImplicitLayout Int
-            deriving (Show)
+alexInitUserState :: AlexUserState
+alexInitUserState = AlexUserState
+    { _ausLayoutStack = []
+    }
+
+data Layout = Explicit
+            | Implicit Int
+            deriving (Show, Eq)
 
 instance Applicative P where
-    pure = P . const . const . Right
+    pure = P . const . Right
 
     liftA2 = liftM2
 
 instance Monad P where
-    m >>= k = P $ \st s -> case runP m st s of
-        Right a -> runP (k a) st s
+    m >>= k = P $ \s -> case runP m s of
+        Right a -> runP (k a) s
         Left e -> Left e
 
 data Located a = Located AlexPosn a
     deriving (Show)
 
+ausLayoutStack :: Lens' AlexUserState [Layout]
+ausLayoutStack = lens _ausLayoutStack
+    (\ s l -> s { _ausLayoutStack = l })
+
 lexer :: (Located RlpToken -> P a) -> P a
-lexer f = P $ \st s -> case m s of
-        Right (a,s') -> runP (f a) st (s' ^. _4)
+lexer f = P $ \s -> case m s of
+        Right (a,s') -> runP (f a) (s' ^. _4)
         Left  e      -> error (show e)
     where
         m s = runAlex s ((,) <$> alexMonadScan <*> alexGetInput)
@@ -95,6 +137,39 @@ lexer f = P $ \st s -> case m s of
 lexStream :: P [RlpToken]
 lexStream = lexer go where
     go (Located _ TokenEOF) = pure [TokenEOF]
-    go (Located _ t)        = (t:) <$> lexStream
+    go (Located _ t)        = (t:) <$!> lexStream
+
+getsAus :: (AlexUserState -> b) -> Alex b
+getsAus k = alexGetUserState <&> k
+
+useAus :: Getting a AlexUserState a -> Alex a
+useAus l = do
+    aus <- alexGetUserState
+    pure (aus ^. l)
+
+preuseAus :: Getting (First a) AlexUserState a -> Alex (Maybe a)
+preuseAus l = do
+    aus <- alexGetUserState
+    pure (aus ^? l)
+
+indentLevel :: Alex Int
+indentLevel = do
+    inp <- alexGetInput
+    let col = inp ^. _1
+            & \ (AlexPn _ _ c) -> c
+    pure col
+
+cmpLayout :: Alex Ordering
+cmpLayout = do
+    i <- indentLevel
+    ctx <- preuseAus (ausLayoutStack . _head)
+    case ctx ^. non (Implicit 0) of
+        Implicit n -> pure (n `compare` i)
+        Explicit   -> pure GT
+
+doBol :: AlexAction (Located RlpToken)
+doBol _ _ = do
+    undefined
 
 }
+
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index efc5d22..d136507 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -4,6 +4,8 @@ module Rlp.Parse
     )
     where
 import Rlp.Lex
+import Rlp.Syntax
+import Rlp.Parse.Types
 }
 
 %name rlp
@@ -13,12 +15,20 @@ import Rlp.Lex
 %tokentype { Located RlpToken }
 
 %token
-    t { Located _ _ }
+    varname         { Located _ (TokenVarName $$) }
+    '='             { Located _ TokenEquals }
+    eof             { Located _ TokenEOF }
 
 %%
 
-P :: { () }
-P : { error "aa" }
+Decl        :: { PartialDecl' }
+Decl        : FunDecl                   { undefined }
+
+FunDecl     :: { PartialDecl' }
+FunDecl     : varname '=' Expr          { undefined }
+
+Expr :: { RlpExpr' }
+Expr :                  { undefined }
 
 {
 
-- 
2.52.0


From 2496589346deae800b5a0190c5bb05852bdb615c Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 12 Jan 2024 17:53:53 -0700
Subject: [PATCH 074/192] aagh

---
 .ghci              |  16 ++++++
 Makefile_happysrcs |  19 +++++++
 src/.DS_Store      | Bin 0 -> 6148 bytes
 src/Rlp/Lex.x      | 125 +++++++++++++++++++++++++++++++++++++++------
 4 files changed, 143 insertions(+), 17 deletions(-)
 create mode 100644 Makefile_happysrcs
 create mode 100644 src/.DS_Store

diff --git a/.ghci b/.ghci
index 83c65a0..4d96080 100644
--- a/.ghci
+++ b/.ghci
@@ -1,2 +1,18 @@
 :set -XOverloadedStrings
 
+:set -package process
+
+:{
+import System.Exit qualified
+import System.Process qualified
+
+_reload_and_make _ = do
+    p <- System.Process.spawnCommand "make -f Makefile_happysrcs"
+    r <- System.Process.waitForProcess p
+    case r of
+        System.Exit.ExitSuccess -> pure ":reload"
+        _                       -> pure ""
+:}
+
+:def! r _reload_and_make
+
diff --git a/Makefile_happysrcs b/Makefile_happysrcs
new file mode 100644
index 0000000..2baa703
--- /dev/null
+++ b/Makefile_happysrcs
@@ -0,0 +1,19 @@
+HAPPY = happy
+HAPPY_OPTS =
+ALEX = alex
+ALEX_OPTS =
+
+SRC = src
+CABAL_BUILD = dist-newstyle/build/x86_64-osx/ghc-9.6.2/rlp-0.1.0.0/build
+
+all: parsers lexers
+
+parsers: $(CABAL_BUILD)/Rlp/Parse.hs
+lexers: $(CABAL_BUILD)/Rlp/Lex.hs
+
+$(CABAL_BUILD)/Rlp/Parse.hs: $(SRC)/Rlp/Parse.y
+	$(HAPPY) $(HAPPY_OPTS) $< -o $@
+
+$(CABAL_BUILD)/Rlp/Lex.hs: $(SRC)/Rlp/Lex.x
+	$(ALEX) $(ALEX_OPTS) $< -o $@
+
diff --git a/src/.DS_Store b/src/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..2f1be0865f62a73b132a62e86953f60eef47401f
GIT binary patch
literal 6148
zcmZQzU|@7AO)+F(5MW?n;9!8z45|#6fRTZLfrY`DA)ld$A+;>HC@&{JFCC<xfq{Vu
zsvM+-5o89MJXCs=8V!Nb5Eu=C(GVC7fzc2cL?HmGw?Xwk_aJi9s8dEmU^D~<M+kt*
z2L)(b-vLTDKxmK@10%ExzzFIhK%ETk2SC(-w1U)tw1Q}mRt8283oH-mJuot`fORs0
zyCDn=jNmQ_hz4tCU}OMmXJBLiYiD2t+sweg2+_{K2+_{K2<pXv%mwvmKr}=<10zH`
z*p5+RGz3ON01*Pr5T*dA{&!_yz}o+ZC>bS3Ltr!nhHD5gvbY4hIDsln96kiqxd~7?
z5F1n#GlJ@9h#qiN3~K~1K?W2hpvpnjJ-8}nWPsG<j0}*Pe6%3|3!zbZGz91$0s!<X
B5}W`4

literal 0
HcmV?d00001

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 33489c2..7f15ae0 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -14,11 +14,14 @@ import Control.Monad
 import Data.Functor.Identity
 import Core.Syntax              (Name)
 import Data.Monoid              (First)
+import Data.Maybe
 import Data.Text                (Text)
 import Data.Text                qualified as T
 import Lens.Micro.Mtl
 import Lens.Micro
 import Lens.Micro.TH
+
+import Debug.Trace
 }
 
 %wrapper "monadUserState-strict-text"
@@ -44,15 +47,26 @@ rlp :-
     -- TODO: don't treat operators like (-->) as comments
     "--".*              ;
     ";"                 { constToken TokenSemicolon }
-    "{"                 { constToken TokenLBrace }
-    "}"                 { constToken TokenRBrace }
+    "{"                 { explicitLBrace }
+    "}"                 { explicitRBrace }
 
 <0>
 {
+    $whitechar+         ;
+    \n                  ;
+    "{"                 { expectLBrace }
+}
+
+<one>
+{
+    \n                  { begin bol }
     @varname            { tokenWith TokenVarName }
     "="                 { constToken TokenEquals }
 }
 
+-- consume all whitespace leaving us at the beginning of the next non-empty
+-- line. we then compare the indentation of that line to the enclosing layout
+-- context and proceed accordingly
 <bol>
 {
     $whitechar          ;
@@ -91,15 +105,27 @@ data RlpToken
     | TokenSemicolon
     | TokenLBrace
     | TokenRBrace
+    -- 'virtual' control symbols, implicitly inserted by the lexer
+    | TokenSemicolonV
+    | TokenLBraceV
+    | TokenRBraceV
     | TokenEOF
     deriving (Show)
 
-newtype P a = P { runP :: Text -> Either String a }
+newtype P a = P {
+        runP :: AlexUserState -> Text -> Either String (AlexUserState, a)
+    }
     deriving (Functor)
 
+runPInit :: P a -> Text -> Either String (AlexUserState, a)
+runPInit p = runP p alexInitUserState
+
 data AlexUserState = AlexUserState
-    { _ausLayoutStack     :: [Layout]
+    -- the layout context, along with a start code to return to when the layout
+    -- ends
+    { _ausLayoutStack     :: [(Layout, Int)]
     }
+    deriving Show
 
 alexInitUserState :: AlexUserState
 alexInitUserState = AlexUserState
@@ -111,34 +137,40 @@ data Layout = Explicit
             deriving (Show, Eq)
 
 instance Applicative P where
-    pure = P . const . Right
+    pure a = P $ \st _ -> Right (st,a)
 
     liftA2 = liftM2
 
 instance Monad P where
-    m >>= k = P $ \s -> case runP m s of
-        Right a -> runP (k a) s
-        Left e -> Left e
+    m >>= k = P $ \st s -> case runP m st s of
+        Right (st',a) -> runP (k a) st' s
+        Left e        -> Left e
 
 data Located a = Located AlexPosn a
     deriving (Show)
 
-ausLayoutStack :: Lens' AlexUserState [Layout]
+ausLayoutStack :: Lens' AlexUserState [(Layout, Int)]
 ausLayoutStack = lens _ausLayoutStack
     (\ s l -> s { _ausLayoutStack = l })
 
 lexer :: (Located RlpToken -> P a) -> P a
-lexer f = P $ \s -> case m s of
-        Right (a,s') -> runP (f a) (s' ^. _4)
-        Left  e      -> error (show e)
+lexer f = P $ \st s -> case m st s of
+        Right (a,st',s') -> runP (f a) st' (s' ^. _4)
+        Left  e          -> error (show e)
     where
-        m s = runAlex s ((,) <$> alexMonadScan <*> alexGetInput)
+        m st s = runAlex s
+            ((,,) <$> (alexSetUserState st *> alexMonadScan)
+                  <*> alexGetUserState
+                  <*> alexGetInput)
 
 lexStream :: P [RlpToken]
 lexStream = lexer go where
     go (Located _ TokenEOF) = pure [TokenEOF]
     go (Located _ t)        = (t:) <$!> lexStream
 
+lexToken :: Alex (Located RlpToken)
+lexToken = alexMonadScan
+
 getsAus :: (AlexUserState -> b) -> Alex b
 getsAus k = alexGetUserState <&> k
 
@@ -152,6 +184,11 @@ preuseAus l = do
     aus <- alexGetUserState
     pure (aus ^? l)
 
+modifyingAus :: ASetter' AlexUserState a -> (a -> a) -> Alex () 
+modifyingAus l f = do
+    aus <- alexGetUserState
+    alexSetUserState (aus & l %~ f)
+
 indentLevel :: Alex Int
 indentLevel = do
     inp <- alexGetInput
@@ -163,13 +200,67 @@ cmpLayout :: Alex Ordering
 cmpLayout = do
     i <- indentLevel
     ctx <- preuseAus (ausLayoutStack . _head)
-    case ctx ^. non (Implicit 0) of
-        Implicit n -> pure (n `compare` i)
+    case (ctx <&> fst) ^. non (Implicit 1) of
+        Implicit n -> pure (i `compare` n)
         Explicit   -> pure GT
 
+insertToken :: RlpToken -> Alex (Located RlpToken)
+insertToken t = do
+    inp <- alexGetInput
+    pure (Located (inp ^. _1) t)
+
+insertSemicolon, insertLBrace, insertRBrace :: Alex (Located RlpToken)
+insertSemicolon = insertToken TokenSemicolonV
+insertLBrace = insertToken TokenLBraceV
+insertRBrace = insertToken TokenRBraceV
+
+-- pop the layout stack and jump to the popped return code
+popLayout :: Alex ()
+popLayout = do
+    ctx <- preuseAus (ausLayoutStack . _head)
+    modifyingAus ausLayoutStack (drop 1)
+    case ctx of
+        Just (l,c)  -> alexSetStartCode c
+        Nothing     -> pure ()
+
+pushLayout :: Layout -> Alex ()
+pushLayout l = do
+    c <- alexGetStartCode
+    modifyingAus ausLayoutStack ((l,c):)
+
 doBol :: AlexAction (Located RlpToken)
-doBol _ _ = do
-    undefined
+doBol inp len = do
+    off <- cmpLayout
+    case off of
+        -- the line is aligned with the previous. it therefore belongs to the
+        -- same list
+        EQ -> insertSemicolon
+        -- the line is indented further than the previous, so we assume it is a
+        -- line continuation. ignore it and move on!
+        GT -> undefined -- alexSetStartCode one >> lexToken
+        -- the line is indented less than the previous, pop the layout stack and
+        -- insert a closing brace.
+        LT -> popLayout >> insertRBrace >> alexSetStartCode 0 >> lexToken
+
+explicitLBrace, explicitRBrace :: AlexAction (Located RlpToken)
+
+explicitLBrace _ _ = do
+    pushLayout Explicit
+    insertToken TokenLBrace
+
+explicitRBrace _ _ = do
+    popLayout
+    insertToken TokenRBrace
+
+doLayout :: AlexAction (Located RlpToken)
+doLayout _ _ = do
+    i <- indentLevel
+    pushLayout (Implicit i)
+    insertLBrace
+
+expectLBrace :: AlexAction (Located RlpToken)
+expectLBrace _ _ = do
+    off <- cmpLayout
 
 }
 
-- 
2.52.0


From e597ecbfc643f9137e8892965f8e898b7a881f75 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 14 Jan 2024 14:20:08 -0700
Subject: [PATCH 075/192] okay layouts kinda

---
 Makefile_happysrcs |   2 +-
 rlp.cabal          |   1 +
 src/.DS_Store      | Bin 6148 -> 6148 bytes
 src/Rlp/Lex.x      |  98 +++++++++++++++++++++++++--------------------
 src/Rlp/Parse.y    |   2 +-
 5 files changed, 58 insertions(+), 45 deletions(-)

diff --git a/Makefile_happysrcs b/Makefile_happysrcs
index 2baa703..35c2ca8 100644
--- a/Makefile_happysrcs
+++ b/Makefile_happysrcs
@@ -1,7 +1,7 @@
 HAPPY = happy
 HAPPY_OPTS =
 ALEX = alex
-ALEX_OPTS =
+ALEX_OPTS = -d
 
 SRC = src
 CABAL_BUILD = dist-newstyle/build/x86_64-osx/ghc-9.6.2/rlp-0.1.0.0/build
diff --git a/rlp.cabal b/rlp.cabal
index e6b81a9..411434b 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -50,6 +50,7 @@ library
                     -- required for happy
                     , array
                     , data-default-class
+                    , data-default
                     , unordered-containers
                     , hashable
                     , pretty
diff --git a/src/.DS_Store b/src/.DS_Store
index 2f1be0865f62a73b132a62e86953f60eef47401f..4390780d02bbee1b3430a6fac093424b3e29cf90 100644
GIT binary patch
delta 306
zcmZoMXfc=|#>B`mu~3YagMop8V`8C*EE59+fM`Yr1_6eo^5TM|octsP28Qhu3zye}
zBv=@n8S)v57*dfXlL~S&i%Sd)t}!w(v#_$UbFg!8bHoN`<d+ARB$kvGJ0%uHgLonN
z`8i22c4AUkW@>r7fQWN`UP)qRUTP6YNpNOLYEoiROn7EqN`ARheraAxF<5VKW*}IG
zgOh_ZUO>FM+RVgQN5RmjR!5=Q%*a$n!Q9lSww9AaR9W9TC_XzUH!r^v;vYsv2+hC?
yrD0UpL>=jk>4I#N4MbQrb8~QWFfnp$Ed0(qnO{Va735ik$%Z1rn>|GKFarRGc1u10

delta 82
zcmZoMXfc=|#>AjHu~3+iaq?|OX+b6i2w-GjU|?im5MbE+oKb;ovj9^+<7RdaehwxE
e)y<4d-<c=#izsq}6eWPvPd4FE-W(&cf*Am4bPmS=

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 7f15ae0..324fb19 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -8,6 +8,7 @@ module Rlp.Lex
     , Located(..)
     , AlexPosn
     , lexer
+    , lexerCont
     )
     where
 import Control.Monad
@@ -17,6 +18,7 @@ import Data.Monoid              (First)
 import Data.Maybe
 import Data.Text                (Text)
 import Data.Text                qualified as T
+import Data.Default
 import Lens.Micro.Mtl
 import Lens.Micro
 import Lens.Micro.TH
@@ -47,21 +49,21 @@ rlp :-
     -- TODO: don't treat operators like (-->) as comments
     "--".*              ;
     ";"                 { constToken TokenSemicolon }
-    "{"                 { explicitLBrace }
-    "}"                 { explicitRBrace }
+    -- "{"                 { explicitLBrace }
+    -- "}"                 { explicitRBrace }
 
 <0>
 {
-    $whitechar+         ;
     \n                  ;
-    "{"                 { expectLBrace }
+    "{"                 { explicitLBrace `thenBegin` one }
+    ()                  { doLayout `thenBegin` one }
 }
 
 <one>
 {
-    \n                  { begin bol }
     @varname            { tokenWith TokenVarName }
     "="                 { constToken TokenEquals }
+    \n                  { begin bol }
 }
 
 -- consume all whitespace leaving us at the beginning of the next non-empty
@@ -71,11 +73,19 @@ rlp :-
 {
     $whitechar          ;
     \n                  ;
-    ()                  { doBol }
+    ()                  { doBol `andBegin` one }
 }
 
 {
 
+-- | @andBegin@, with the subtle difference that the start code is set
+--   /after/ the action
+thenBegin :: AlexAction a -> Int -> AlexAction a
+thenBegin act c inp l = do
+    a <- act inp l
+    alexSetStartCode c
+    pure a
+
 constToken :: RlpToken -> AlexAction (Located RlpToken)
 constToken t inp _ = pure $ Located (inp ^. _1) t
 
@@ -105,20 +115,33 @@ data RlpToken
     | TokenSemicolon
     | TokenLBrace
     | TokenRBrace
-    -- 'virtual' control symbols, implicitly inserted by the lexer
+    -- 'virtual' control symbols, inserted by the lexer without any correlation
+    -- to a specific symbol
     | TokenSemicolonV
     | TokenLBraceV
     | TokenRBraceV
     | TokenEOF
     deriving (Show)
 
-newtype P a = P {
-        runP :: AlexUserState -> Text -> Either String (AlexUserState, a)
-    }
+newtype P a = P { runP :: ParseState -> Alex (ParseState, a) }
     deriving (Functor)
 
-runPInit :: P a -> Text -> Either String (AlexUserState, a)
-runPInit p = runP p alexInitUserState
+execP :: P a -> ParseState -> Text -> Either String a
+execP p st s = snd <$> runAlex s (runP p st)
+
+data ParseState = ParseState { }
+
+instance Default ParseState where
+    def = ParseState { }
+
+instance Applicative P where
+    pure a = P $ \st -> pure (st,a)
+    liftA2 = liftM2
+
+instance Monad P where
+    p >>= k = P $ \st -> do
+        (st',a) <- runP p st
+        runP (k a) st'
 
 data AlexUserState = AlexUserState
     -- the layout context, along with a start code to return to when the layout
@@ -136,16 +159,6 @@ data Layout = Explicit
             | Implicit Int
             deriving (Show, Eq)
 
-instance Applicative P where
-    pure a = P $ \st _ -> Right (st,a)
-
-    liftA2 = liftM2
-
-instance Monad P where
-    m >>= k = P $ \st s -> case runP m st s of
-        Right (st',a) -> runP (k a) st' s
-        Left e        -> Left e
-
 data Located a = Located AlexPosn a
     deriving (Show)
 
@@ -153,20 +166,21 @@ ausLayoutStack :: Lens' AlexUserState [(Layout, Int)]
 ausLayoutStack = lens _ausLayoutStack
     (\ s l -> s { _ausLayoutStack = l })
 
-lexer :: (Located RlpToken -> P a) -> P a
-lexer f = P $ \st s -> case m st s of
-        Right (a,st',s') -> runP (f a) st' (s' ^. _4)
-        Left  e          -> error (show e)
-    where
-        m st s = runAlex s
-            ((,,) <$> (alexSetUserState st *> alexMonadScan)
-                  <*> alexGetUserState
-                  <*> alexGetInput)
+lexer :: P (Located RlpToken)
+lexer = P $ \st -> (st,) <$> lexToken
 
-lexStream :: P [RlpToken]
-lexStream = lexer go where
-    go (Located _ TokenEOF) = pure [TokenEOF]
-    go (Located _ t)        = (t:) <$!> lexStream
+lexerCont :: (Located RlpToken -> P a) -> P a
+lexerCont = (lexer >>=)
+
+lexStream :: Alex [RlpToken]
+lexStream = do
+    t <- lexToken
+    case t of
+        Located _ TokenEOF  -> pure [TokenEOF]
+        Located _ a         -> (a:) <$> lexStream
+
+lexTest :: Text -> Either String [RlpToken]
+lexTest = flip runAlex lexStream
 
 lexToken :: Alex (Located RlpToken)
 lexToken = alexMonadScan
@@ -210,13 +224,14 @@ insertToken t = do
     pure (Located (inp ^. _1) t)
 
 insertSemicolon, insertLBrace, insertRBrace :: Alex (Located RlpToken)
-insertSemicolon = insertToken TokenSemicolonV
-insertLBrace = insertToken TokenLBraceV
-insertRBrace = insertToken TokenRBraceV
+insertSemicolon = traceM "inserting semi" >> insertToken TokenSemicolonV
+insertLBrace = traceM "inserting lbrace" >> insertToken TokenLBraceV
+insertRBrace = traceM "inserting rbrace" >> insertToken TokenRBraceV
 
 -- pop the layout stack and jump to the popped return code
 popLayout :: Alex ()
 popLayout = do
+    traceM "pop layout"
     ctx <- preuseAus (ausLayoutStack . _head)
     modifyingAus ausLayoutStack (drop 1)
     case ctx of
@@ -225,6 +240,7 @@ popLayout = do
 
 pushLayout :: Layout -> Alex ()
 pushLayout l = do
+    traceM "push layout"
     c <- alexGetStartCode
     modifyingAus ausLayoutStack ((l,c):)
 
@@ -240,7 +256,7 @@ doBol inp len = do
         GT -> undefined -- alexSetStartCode one >> lexToken
         -- the line is indented less than the previous, pop the layout stack and
         -- insert a closing brace.
-        LT -> popLayout >> insertRBrace >> alexSetStartCode 0 >> lexToken
+        LT -> insertRBrace >> popLayout >> lexToken
 
 explicitLBrace, explicitRBrace :: AlexAction (Located RlpToken)
 
@@ -258,9 +274,5 @@ doLayout _ _ = do
     pushLayout (Implicit i)
     insertLBrace
 
-expectLBrace :: AlexAction (Located RlpToken)
-expectLBrace _ _ = do
-    off <- cmpLayout
-
 }
 
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index d136507..3016594 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -10,7 +10,7 @@ import Rlp.Parse.Types
 
 %name rlp
 %monad { P }
-%lexer { lexer } { Located _ TokenEOF }
+%lexer { lexerCont } { Located _ TokenEOF }
 %error { parseError }
 %tokentype { Located RlpToken }
 
-- 
2.52.0


From 17ddf3530cc114871ddea53637bf1e5f8d06bc75 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 14 Jan 2024 18:19:37 -0700
Subject: [PATCH 076/192] kitten i'll be honest mommy's about to kill herself

---
 src/Rlp/Lex.x     | 210 +++++++++++-----------------------
 src/Rlp/Lex.x.old | 280 ++++++++++++++++++++++++++++++++++++++++++++++
 src/Rlp/Parse.y   |  44 +++++++-
 src/Rlp/Syntax.hs |   4 +
 4 files changed, 390 insertions(+), 148 deletions(-)
 create mode 100644 src/Rlp/Lex.x.old

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 324fb19..9d41eb4 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -6,18 +6,19 @@ module Rlp.Lex
     ( P(..)
     , RlpToken(..)
     , Located(..)
-    , AlexPosn
     , lexer
     , lexerCont
     )
     where
 import Control.Monad
 import Data.Functor.Identity
+import Data.Char                (digitToInt)
 import Core.Syntax              (Name)
 import Data.Monoid              (First)
 import Data.Maybe
 import Data.Text                (Text)
 import Data.Text                qualified as T
+import Data.Word
 import Data.Default
 import Lens.Micro.Mtl
 import Lens.Micro
@@ -26,8 +27,6 @@ import Lens.Micro.TH
 import Debug.Trace
 }
 
-%wrapper "monadUserState-strict-text"
-
 $whitechar      = [ \t\n\r\f\v]
 
 $lower          = [a-z \_]
@@ -42,6 +41,8 @@ $namechar       = [$alpha $digit \' \#]
 
 @varname        = $lower $namechar*
 
+@digits         = $digit+
+
 rlp :-
     
     -- skip whitespace
@@ -54,14 +55,13 @@ rlp :-
 
 <0>
 {
-    \n                  ;
-    "{"                 { explicitLBrace `thenBegin` one }
-    ()                  { doLayout `thenBegin` one }
+    \n                  { begin bol }
 }
 
 <one>
 {
     @varname            { tokenWith TokenVarName }
+    @digits             { tokenWith (TokenLitInt . readInt) }
     "="                 { constToken TokenEquals }
     \n                  { begin bol }
 }
@@ -73,29 +73,50 @@ rlp :-
 {
     $whitechar          ;
     \n                  ;
-    ()                  { doBol `andBegin` one }
+    ()                  { doBol }
 }
 
 {
 
+begin = undefined
+
+type LexerAction a = AlexInput -> Int -> P a
+
+type AlexInput =
+    ( Char      -- prev char
+    , Text      -- input
+    )
+
+alexGetByte :: AlexInput -> Maybe (Word8, AlexInput)
+alexGetByte (_,s) = undefined
+
+getInput :: P AlexInput
+getInput = undefined
+
+alexInputPrevChar :: AlexInput -> Char
+alexInputPrevChar = (^. _1)
+
+readInt :: Text -> Int
+readInt = T.foldr f 0 where
+    f c n = digitToInt c + 10*n
+
 -- | @andBegin@, with the subtle difference that the start code is set
 --   /after/ the action
-thenBegin :: AlexAction a -> Int -> AlexAction a
+thenBegin :: LexerAction a -> Int -> LexerAction a
 thenBegin act c inp l = do
     a <- act inp l
-    alexSetStartCode c
-    pure a
+    undefined
 
-constToken :: RlpToken -> AlexAction (Located RlpToken)
-constToken t inp _ = pure $ Located (inp ^. _1) t
+constToken :: RlpToken -> LexerAction (Located RlpToken)
+constToken t inp _ = undefined
 
-tokenWith :: (Text -> RlpToken) -> AlexAction (Located RlpToken)
-tokenWith tf (p,_,_,s) l = pure $ Located p (tf $ T.take l s)
+tokenWith :: (Text -> RlpToken) -> LexerAction (Located RlpToken)
+tokenWith tf inp l = undefined
 
-alexEOF :: Alex (Located RlpToken)
+alexEOF :: P (Located RlpToken)
 alexEOF = do
-    inp <- alexGetInput
-    pure (Located (inp ^. _1) TokenEOF)
+    inp <- getInput
+    pure (Located undefined TokenEOF)
 
 data RlpToken
     -- literals
@@ -123,156 +144,59 @@ data RlpToken
     | TokenEOF
     deriving (Show)
 
-newtype P a = P { runP :: ParseState -> Alex (ParseState, a) }
+newtype P a = P { runP :: ParseState -> (ParseState, Maybe a) }
     deriving (Functor)
 
-execP :: P a -> ParseState -> Text -> Either String a
-execP p st s = snd <$> runAlex s (runP p st)
+execP :: P a -> ParseState -> Either String a
+execP p st = undefined
 
-data ParseState = ParseState { }
+execP' :: P a -> Text -> Either String a
+execP' p s = execP p st where
+    st = initParseState s
 
-instance Default ParseState where
-    def = ParseState { }
+initParseState :: Text -> ParseState
+initParseState s = ParseState
+    { _psLayoutStack = []
+    , _psLexState = [bol,0]
+    , _psInput = (undefined, s)
+    }
+
+data ParseState = ParseState
+    { _psLayoutStack        :: [Layout]
+    , _psLexState           :: [Int]
+    , _psInput              :: AlexInput
+    }
 
 instance Applicative P where
-    pure a = P $ \st -> pure (st,a)
+    pure a = P $ \st -> (st,Just a)
     liftA2 = liftM2
 
 instance Monad P where
-    p >>= k = P $ \st -> do
-        (st',a) <- runP p st
-        runP (k a) st'
-
-data AlexUserState = AlexUserState
-    -- the layout context, along with a start code to return to when the layout
-    -- ends
-    { _ausLayoutStack     :: [(Layout, Int)]
-    }
-    deriving Show
-
-alexInitUserState :: AlexUserState
-alexInitUserState = AlexUserState
-    { _ausLayoutStack = []
-    }
+    p >>= k = undefined
 
 data Layout = Explicit
             | Implicit Int
             deriving (Show, Eq)
 
-data Located a = Located AlexPosn a
+data Located a = Located (Int, Int) a
     deriving (Show)
 
-ausLayoutStack :: Lens' AlexUserState [(Layout, Int)]
-ausLayoutStack = lens _ausLayoutStack
-    (\ s l -> s { _ausLayoutStack = l })
-
 lexer :: P (Located RlpToken)
-lexer = P $ \st -> (st,) <$> lexToken
+lexer = undefined
 
 lexerCont :: (Located RlpToken -> P a) -> P a
-lexerCont = (lexer >>=)
+lexerCont = undefined
 
-lexStream :: Alex [RlpToken]
-lexStream = do
-    t <- lexToken
-    case t of
-        Located _ TokenEOF  -> pure [TokenEOF]
-        Located _ a         -> (a:) <$> lexStream
+lexStream :: P [RlpToken]
+lexStream = undefined
 
 lexTest :: Text -> Either String [RlpToken]
-lexTest = flip runAlex lexStream
+lexTest = undefined
 
-lexToken :: Alex (Located RlpToken)
-lexToken = alexMonadScan
+lexToken :: P (Located RlpToken)
+lexToken = undefined
 
-getsAus :: (AlexUserState -> b) -> Alex b
-getsAus k = alexGetUserState <&> k
-
-useAus :: Getting a AlexUserState a -> Alex a
-useAus l = do
-    aus <- alexGetUserState
-    pure (aus ^. l)
-
-preuseAus :: Getting (First a) AlexUserState a -> Alex (Maybe a)
-preuseAus l = do
-    aus <- alexGetUserState
-    pure (aus ^? l)
-
-modifyingAus :: ASetter' AlexUserState a -> (a -> a) -> Alex () 
-modifyingAus l f = do
-    aus <- alexGetUserState
-    alexSetUserState (aus & l %~ f)
-
-indentLevel :: Alex Int
-indentLevel = do
-    inp <- alexGetInput
-    let col = inp ^. _1
-            & \ (AlexPn _ _ c) -> c
-    pure col
-
-cmpLayout :: Alex Ordering
-cmpLayout = do
-    i <- indentLevel
-    ctx <- preuseAus (ausLayoutStack . _head)
-    case (ctx <&> fst) ^. non (Implicit 1) of
-        Implicit n -> pure (i `compare` n)
-        Explicit   -> pure GT
-
-insertToken :: RlpToken -> Alex (Located RlpToken)
-insertToken t = do
-    inp <- alexGetInput
-    pure (Located (inp ^. _1) t)
-
-insertSemicolon, insertLBrace, insertRBrace :: Alex (Located RlpToken)
-insertSemicolon = traceM "inserting semi" >> insertToken TokenSemicolonV
-insertLBrace = traceM "inserting lbrace" >> insertToken TokenLBraceV
-insertRBrace = traceM "inserting rbrace" >> insertToken TokenRBraceV
-
--- pop the layout stack and jump to the popped return code
-popLayout :: Alex ()
-popLayout = do
-    traceM "pop layout"
-    ctx <- preuseAus (ausLayoutStack . _head)
-    modifyingAus ausLayoutStack (drop 1)
-    case ctx of
-        Just (l,c)  -> alexSetStartCode c
-        Nothing     -> pure ()
-
-pushLayout :: Layout -> Alex ()
-pushLayout l = do
-    traceM "push layout"
-    c <- alexGetStartCode
-    modifyingAus ausLayoutStack ((l,c):)
-
-doBol :: AlexAction (Located RlpToken)
-doBol inp len = do
-    off <- cmpLayout
-    case off of
-        -- the line is aligned with the previous. it therefore belongs to the
-        -- same list
-        EQ -> insertSemicolon
-        -- the line is indented further than the previous, so we assume it is a
-        -- line continuation. ignore it and move on!
-        GT -> undefined -- alexSetStartCode one >> lexToken
-        -- the line is indented less than the previous, pop the layout stack and
-        -- insert a closing brace.
-        LT -> insertRBrace >> popLayout >> lexToken
-
-explicitLBrace, explicitRBrace :: AlexAction (Located RlpToken)
-
-explicitLBrace _ _ = do
-    pushLayout Explicit
-    insertToken TokenLBrace
-
-explicitRBrace _ _ = do
-    popLayout
-    insertToken TokenRBrace
-
-doLayout :: AlexAction (Located RlpToken)
-doLayout _ _ = do
-    i <- indentLevel
-    pushLayout (Implicit i)
-    insertLBrace
+doBol = undefined
 
 }
 
diff --git a/src/Rlp/Lex.x.old b/src/Rlp/Lex.x.old
new file mode 100644
index 0000000..533c94c
--- /dev/null
+++ b/src/Rlp/Lex.x.old
@@ -0,0 +1,280 @@
+{
+{-# LANGUAGE GeneralisedNewtypeDeriving #-}
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Rlp.Lex
+    ( P(..)
+    , RlpToken(..)
+    , Located(..)
+    , AlexPosn
+    , lexer
+    , lexerCont
+    )
+    where
+import Control.Monad
+import Data.Functor.Identity
+import Data.Char                (digitToInt)
+import Core.Syntax              (Name)
+import Data.Monoid              (First)
+import Data.Maybe
+import Data.Text                (Text)
+import Data.Text                qualified as T
+import Data.Default
+import Lens.Micro.Mtl
+import Lens.Micro
+import Lens.Micro.TH
+
+import Debug.Trace
+}
+
+$whitechar      = [ \t\n\r\f\v]
+
+$lower          = [a-z \_]
+$upper          = [A-Z]
+$alpha          = [$lower $upper]
+$digit          = 0-9
+
+$nl             = [\n\r]
+$white_no_nl    = $white # $nl
+
+$namechar       = [$alpha $digit \' \#]
+
+@varname        = $lower $namechar*
+
+@digits         = $digit+
+
+rlp :-
+    
+    -- skip whitespace
+    $white_no_nl+       ;
+    -- TODO: don't treat operators like (-->) as comments
+    "--".*              ;
+    ";"                 { constToken TokenSemicolon }
+    -- "{"                 { explicitLBrace }
+    -- "}"                 { explicitRBrace }
+
+<0>
+{
+    \n                  { begin bol }
+}
+
+<one>
+{
+    @varname            { tokenWith TokenVarName }
+    @digits             { tokenWith (TokenLitInt . readInt) }
+    "="                 { constToken TokenEquals }
+    \n                  { begin bol }
+}
+
+-- consume all whitespace leaving us at the beginning of the next non-empty
+-- line. we then compare the indentation of that line to the enclosing layout
+-- context and proceed accordingly
+<bol>
+{
+    $whitechar          ;
+    \n                  ;
+    ()                  { doBol `andBegin` one }
+}
+
+{
+
+readInt :: Text -> Int
+readInt = T.foldr f 0 where
+    f c n = digitToInt c + 10*n
+
+-- | @andBegin@, with the subtle difference that the start code is set
+--   /after/ the action
+thenBegin :: AlexAction a -> Int -> AlexAction a
+thenBegin act c inp l = do
+    a <- act inp l
+    alexSetStartCode c
+    pure a
+
+constToken :: RlpToken -> AlexAction (Located RlpToken)
+constToken t inp _ = pure $ Located (inp ^. _1) t
+
+tokenWith :: (Text -> RlpToken) -> AlexAction (Located RlpToken)
+tokenWith tf (p,_,_,s) l = pure $ Located p (tf $ T.take l s)
+
+alexEOF :: Alex (Located RlpToken)
+alexEOF = do
+    inp <- alexGetInput
+    pure (Located (inp ^. _1) TokenEOF)
+
+data RlpToken
+    -- literals
+    = TokenLitInt Int
+    -- identifiers
+    | TokenVarName Name
+    | TokenConName Name
+    | TokenVarSym Name
+    | TokenConSym Name
+    -- keywords
+    | TokenData
+    | TokenPipe
+    | TokenLet
+    | TokenIn
+    -- control symbols
+    | TokenEquals
+    | TokenSemicolon
+    | TokenLBrace
+    | TokenRBrace
+    -- 'virtual' control symbols, inserted by the lexer without any correlation
+    -- to a specific symbol
+    | TokenSemicolonV
+    | TokenLBraceV
+    | TokenRBraceV
+    | TokenEOF
+    deriving (Show)
+
+newtype P a = P { runP :: ParseState -> Alex (ParseState, Maybe a) }
+    deriving (Functor)
+
+execP :: P a -> ParseState -> Text -> Either String a
+execP p st s = snd <$> runAlex s (runP p st)
+
+execP' :: P a -> Text -> Either String a
+execP' p = execP p def
+
+data ParseState = ParseState
+    { _psLayoutStack       :: [Layout]
+    , _psLexState          :: [Int]
+    }
+
+instance Default ParseState where
+    def = ParseState { }
+
+instance Applicative P where
+    pure a = P $ \st -> pure (st,a)
+    liftA2 = liftM2
+
+instance Monad P where
+    p >>= k = P $ \st -> do
+        (st',a) <- runP p st
+        runP (k a) st'
+
+data Layout = Explicit
+            | Implicit Int
+            deriving (Show, Eq)
+
+data Located a = Located AlexPosn a
+    deriving (Show)
+
+psLayoutStack :: Lens' AlexUserState [Layout]
+psLayoutStack = lens _psLayoutStack
+    (\ s l -> s { _psLayoutStack = l })
+
+lexer :: P (Located RlpToken)
+lexer = P $ \st -> (st,) <$> lexToken
+
+lexerCont :: (Located RlpToken -> P a) -> P a
+lexerCont = (lexer >>=)
+
+lexStream :: Alex [RlpToken]
+lexStream = do
+    t <- lexToken
+    case t of
+        Located _ TokenEOF  -> pure [TokenEOF]
+        Located _ a         -> (a:) <$> lexStream
+
+lexTest :: Text -> Either String [RlpToken]
+lexTest = flip runAlex lexStream
+
+lexToken :: Alex (Located RlpToken)
+lexToken = alexMonadScan
+
+getsAus :: (AlexUserState -> b) -> Alex b
+getsAus k = alexGetUserState <&> k
+
+useAus :: Getting a AlexUserState a -> Alex a
+useAus l = do
+    aus <- alexGetUserState
+    pure (aus ^. l)
+
+preuseAus :: Getting (First a) AlexUserState a -> Alex (Maybe a)
+preuseAus l = do
+    aus <- alexGetUserState
+    pure (aus ^? l)
+
+modifyingAus :: ASetter' AlexUserState a -> (a -> a) -> Alex () 
+modifyingAus l f = do
+    aus <- alexGetUserState
+    alexSetUserState (aus & l %~ f)
+
+indentLevel :: Alex Int
+indentLevel = do
+    inp <- alexGetInput
+    let col = inp ^. _1
+            & \ (AlexPn _ _ c) -> c
+    pure col
+
+cmpLayout :: Alex Ordering
+cmpLayout = do
+    i <- indentLevel
+    ctx <- preuseAus (ausLayoutStack . _head)
+    case ctx ^. non (Implicit 1) of
+        Implicit n -> pure (i `compare` n)
+        Explicit   -> pure GT
+
+insertToken :: RlpToken -> Alex (Located RlpToken)
+insertToken t = do
+    inp <- alexGetInput
+    pure (Located (inp ^. _1) t)
+
+insertSemicolon, insertLBrace, insertRBrace :: Alex (Located RlpToken)
+insertSemicolon = traceM "inserting semi"   >> insertToken TokenSemicolonV
+insertLBrace    = traceM "inserting lbrace" >> insertToken TokenLBraceV
+insertRBrace    = traceM "inserting rbrace" >> insertToken TokenRBraceV
+
+-- pop the layout stack and jump to the popped return code
+popLayout :: Alex Layout
+popLayout = do
+    traceM "pop layout"
+    ctx <- preuseAus (ausLayoutStack . _head)
+    modifyingAus ausLayoutStack (drop 1)
+    case ctx of
+        Just l      -> pure l
+        Nothing     -> error "uhh"
+
+pushLayout :: Layout -> Alex ()
+pushLayout l = do
+    traceM "push layout"
+    modifyingAus ausLayoutStack (l:)
+
+pushLexState :: Alex ()
+pushLexState = do
+    undefined
+
+doBol :: AlexAction (Located RlpToken)
+doBol inp len = do
+    off <- cmpLayout
+    case off of
+        -- the line is aligned with the previous. it therefore belongs to the
+        -- same list
+        EQ -> insertSemicolon
+        -- the line is indented further than the previous, so we assume it is a
+        -- line continuation. ignore it and move on!
+        GT -> undefined -- alexSetStartCode one >> lexToken
+        -- the line is indented less than the previous, pop the layout stack and
+        -- insert a closing brace.
+        LT -> popLayout >> insertRBrace
+
+explicitLBrace, explicitRBrace :: AlexAction (Located RlpToken)
+
+explicitLBrace _ _ = do
+    pushLayout Explicit
+    insertToken TokenLBrace
+
+explicitRBrace _ _ = do
+    popLayout
+    insertToken TokenRBrace
+
+doLayout :: AlexAction (Located RlpToken)
+doLayout _ _ = do
+    i <- indentLevel
+    pushLayout (Implicit i)
+    traceM $ "layout " <> show i
+    insertLBrace
+
+}
+
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 3016594..3205988 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -1,6 +1,6 @@
 {
 module Rlp.Parse
-    (
+    ( parseRlpProgram
     )
     where
 import Rlp.Lex
@@ -8,7 +8,8 @@ import Rlp.Syntax
 import Rlp.Parse.Types
 }
 
-%name rlp
+%name parseRlpProgram StandaloneProgram
+
 %monad { P }
 %lexer { lexerCont } { Located _ TokenEOF }
 %error { parseError }
@@ -16,23 +17,56 @@ import Rlp.Parse.Types
 
 %token
     varname         { Located _ (TokenVarName $$) }
+    litint          { Located _ (TokenLitInt $$) }
     '='             { Located _ TokenEquals }
+    ';'             { Located _ TokenSemicolon }
+    ';?'            { Located _ TokenSemicolonV }
+    '{'             { Located _ TokenLBrace }
+    '}'             { Located _ TokenRBrace }
+    '{?'            { Located _ TokenLBraceV }
+    '?}'            { Located _ TokenRBraceV }
     eof             { Located _ TokenEOF }
 
 %%
 
+StandaloneProgram   :: { [PartialDecl'] }
+StandaloneProgram   : VL Decls VR eof       { $2 }
+
+VL  :: { () }
+VL  : '{?'          { () }
+
+VR  :: { () }
+VR  : '?}'          { () }
+    | error         { () }
+
+Decls               :: { [PartialDecl'] }
+Decls               : Decl Semi Decls       { $1 : $3 }
+                    | Decl Semi             { [$1] }
+                    | Decl                  { [$1] }
+
+Semi                :: { Located RlpToken }
+Semi                : ';'                   { $1 }
+                    | ';?'                  { $1 }
+
 Decl        :: { PartialDecl' }
 Decl        : FunDecl                   { undefined }
 
 FunDecl     :: { PartialDecl' }
 FunDecl     : varname '=' Expr          { undefined }
 
-Expr :: { RlpExpr' }
-Expr :                  { undefined }
+Expr        :: { RlpExpr' }
+Expr        : Literal                   { LitE $1 }
+            | Var                       { VarE $1 }
+
+Literal     :: { Lit' }
+Literal     : litint                    { IntL $1 }
+
+Var         :: { VarId }
+Var         : varname                   { NameVar $1 }
 
 {
 
 parseError :: Located RlpToken -> P a
-parseError = error "aaaaah"
+parseError = error . show
 
 }
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 58843b5..bf35445 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -5,6 +5,8 @@
 {-# LANGUAGE OverloadedStrings, PatternSynonyms #-}
 module Rlp.Syntax
     ( RlpModule(..)
+    , RlpProgram(..)
+    , RlpProgram'
     , rlpmodName
     , rlpmodProgram
     , RlpExpr(..)
@@ -54,6 +56,8 @@ data RlpModule b = RlpModule
 
 newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
 
+type RlpProgram' = RlpProgram Name
+
 -- | The @e@ parameter is used for partial results. When parsing an input, we
 -- first parse all top-level declarations in order to extract infix[lr]
 -- declarations. This process yields a @[Decl (Const Text) Name]@, where @Const
-- 
2.52.0


From 6390ca80d892674c034a3285450a93648c0fa334 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 14 Jan 2024 22:57:36 -0700
Subject: [PATCH 077/192] see previous commit and scale back the part where i'm
 joking

---
 rlp.cabal              |   1 +
 src/Rlp/Lex.x          | 177 +++++++++++--------
 src/Rlp/Parse/Decls.hs | 381 -----------------------------------------
 src/Rlp/Parse/Types.hs | 142 +++++++++------
 src/Rlp/Parse/Utils.hs |  30 ----
 5 files changed, 189 insertions(+), 542 deletions(-)
 delete mode 100644 src/Rlp/Parse/Decls.hs
 delete mode 100644 src/Rlp/Parse/Utils.hs

diff --git a/rlp.cabal b/rlp.cabal
index 411434b..5d3fa6a 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -60,6 +60,7 @@ library
                     , megaparsec                ^>=9.6.0
                     , text
                     , data-fix
+                    , utf8-string
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 9d41eb4..d81e432 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -1,19 +1,19 @@
 {
 {-# LANGUAGE GeneralisedNewtypeDeriving #-}
-{-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.Lex
     ( P(..)
     , RlpToken(..)
     , Located(..)
-    , lexer
+    , lexToken
     , lexerCont
     )
     where
+import Codec.Binary.UTF8.String (encodeChar)
 import Control.Monad
+import Core.Syntax              (Name)
 import Data.Functor.Identity
 import Data.Char                (digitToInt)
-import Core.Syntax              (Name)
 import Data.Monoid              (First)
 import Data.Maybe
 import Data.Text                (Text)
@@ -22,9 +22,9 @@ import Data.Word
 import Data.Default
 import Lens.Micro.Mtl
 import Lens.Micro
-import Lens.Micro.TH
 
 import Debug.Trace
+import Rlp.Parse.Types
 }
 
 $whitechar      = [ \t\n\r\f\v]
@@ -78,23 +78,31 @@ rlp :-
 
 {
 
+begin :: Int -> LexerAction a
 begin = undefined
 
-type LexerAction a = AlexInput -> Int -> P a
-
-type AlexInput =
-    ( Char      -- prev char
-    , Text      -- input
-    )
-
 alexGetByte :: AlexInput -> Maybe (Word8, AlexInput)
-alexGetByte (_,s) = undefined
+alexGetByte inp = case inp ^. aiBytes of
+    [] -> do
+        (c,t) <- T.uncons (inp ^. aiSource)
+        let (b:bs) = encodeChar c
+            inp' = inp & aiSource .~ t
+                       & aiBytes .~ bs
+                       & aiPrevChar .~ c
+        pure (b, inp')
+    
+    _ -> Just (head bs, inp')
+        where
+            (bs, inp') = inp & aiBytes <<%~ drop 1
 
 getInput :: P AlexInput
-getInput = undefined
+getInput = use psInput
+
+getLexState :: P Int
+getLexState = use (psLexState . singular _head)
 
 alexInputPrevChar :: AlexInput -> Char
-alexInputPrevChar = (^. _1)
+alexInputPrevChar = view aiPrevChar
 
 readInt :: Text -> Int
 readInt = T.foldr f 0 where
@@ -108,95 +116,116 @@ thenBegin act c inp l = do
     undefined
 
 constToken :: RlpToken -> LexerAction (Located RlpToken)
-constToken t inp _ = undefined
+constToken t inp l = do
+    pos <- use (psInput . aiPos)
+    pure (Located (pos,l) t)
 
 tokenWith :: (Text -> RlpToken) -> LexerAction (Located RlpToken)
-tokenWith tf inp l = undefined
+tokenWith tf inp l = do
+    pos <- getPos
+    let t = tf (T.take l $ inp ^. aiSource)
+    pure (Located (pos,l) t)
+
+getPos :: P Position
+getPos = use (psInput . aiPos)
 
 alexEOF :: P (Located RlpToken)
 alexEOF = do
     inp <- getInput
     pure (Located undefined TokenEOF)
 
-data RlpToken
-    -- literals
-    = TokenLitInt Int
-    -- identifiers
-    | TokenVarName Name
-    | TokenConName Name
-    | TokenVarSym Name
-    | TokenConSym Name
-    -- keywords
-    | TokenData
-    | TokenPipe
-    | TokenLet
-    | TokenIn
-    -- control symbols
-    | TokenEquals
-    | TokenSemicolon
-    | TokenLBrace
-    | TokenRBrace
-    -- 'virtual' control symbols, inserted by the lexer without any correlation
-    -- to a specific symbol
-    | TokenSemicolonV
-    | TokenLBraceV
-    | TokenRBraceV
-    | TokenEOF
-    deriving (Show)
+execP :: P a -> ParseState -> Maybe a
+execP p st = runP p st & snd
 
-newtype P a = P { runP :: ParseState -> (ParseState, Maybe a) }
-    deriving (Functor)
-
-execP :: P a -> ParseState -> Either String a
-execP p st = undefined
-
-execP' :: P a -> Text -> Either String a
+execP' :: P a -> Text -> Maybe a
 execP' p s = execP p st where
     st = initParseState s
 
 initParseState :: Text -> ParseState
 initParseState s = ParseState
     { _psLayoutStack = []
-    , _psLexState = [bol,0]
-    , _psInput = (undefined, s)
+    , _psLexState = [one,bol,0]
+    , _psInput = initAlexInput s
     }
 
-data ParseState = ParseState
-    { _psLayoutStack        :: [Layout]
-    , _psLexState           :: [Int]
-    , _psInput              :: AlexInput
+initAlexInput :: Text -> AlexInput
+initAlexInput s = AlexInput
+    { _aiPrevChar   = '\0'
+    , _aiSource     = s
+    , _aiBytes      = []
+    , _aiPos        = (1,1)
     }
 
-instance Applicative P where
-    pure a = P $ \st -> (st,Just a)
-    liftA2 = liftM2
-
-instance Monad P where
-    p >>= k = undefined
-
-data Layout = Explicit
-            | Implicit Int
-            deriving (Show, Eq)
-
-data Located a = Located (Int, Int) a
-    deriving (Show)
-
-lexer :: P (Located RlpToken)
-lexer = undefined
+lexToken :: P (Located RlpToken)
+lexToken = do
+    inp <- getInput
+    c <- getLexState
+    case alexScan inp c of
+        AlexEOF -> pure $ Located (inp ^. aiPos, 0) TokenEOF
+        AlexToken inp' l act -> do
+            psInput .= inp'
+            traceM $ "l: " <> show l
+            traceShowM inp'
+            act inp l
 
 lexerCont :: (Located RlpToken -> P a) -> P a
 lexerCont = undefined
 
 lexStream :: P [RlpToken]
-lexStream = undefined
+lexStream = do
+    t <- lexToken
+    case t of
+        Located _ TokenEOF -> pure [TokenEOF]
+        Located _ t        -> (t:) <$> lexStream
 
 lexTest :: Text -> Either String [RlpToken]
 lexTest = undefined
 
-lexToken :: P (Located RlpToken)
-lexToken = undefined
+indentLevel :: P Int
+indentLevel = do
+    pos <- use (psInput . aiPos)
+    pure (pos ^. _2)
 
-doBol = undefined
+insertToken :: RlpToken -> P (Located RlpToken)
+insertToken t = do
+    pos <- use (psInput . aiPos)
+    pure (Located (pos, 0) t)
+
+popLayout :: P Layout
+popLayout = do
+    traceM "pop layout"
+    ctx <- preuse (psLayoutStack . _head)
+    modifying psLayoutStack (drop 1)
+    case ctx of
+        Just l      -> pure l
+        Nothing     -> error "uhh"
+
+insertSemicolon, insertLBrace, insertRBrace :: P (Located RlpToken)
+insertSemicolon = traceM "inserting semi"   >> insertToken TokenSemicolonV
+insertLBrace    = traceM "inserting lbrace" >> insertToken TokenLBraceV
+insertRBrace    = traceM "inserting rbrace" >> insertToken TokenRBraceV
+
+cmpLayout :: P Ordering
+cmpLayout = do
+    i <- indentLevel
+    ctx <- preuse (psLayoutStack . _head)
+    case ctx ^. non (Implicit 1) of
+        Implicit n -> pure (i `compare` n)
+        Explicit   -> pure GT
+
+doBol :: LexerAction (Located RlpToken)
+doBol inp l = do
+    off <- cmpLayout
+    case off of
+        -- the line is aligned with the previous. it therefore belongs to the
+        -- same list
+        EQ -> insertSemicolon
+        -- the line is indented further than the previous, so we assume it is a
+        -- line continuation. ignore it and move on!
+        GT -> undefined -- alexSetStartCode one >> lexToken
+        -- the line is indented less than the previous, pop the layout stack and
+        -- insert a closing brace.
+        LT -> popLayout >> insertRBrace
 
 }
 
diff --git a/src/Rlp/Parse/Decls.hs b/src/Rlp/Parse/Decls.hs
deleted file mode 100644
index fb6d875..0000000
--- a/src/Rlp/Parse/Decls.hs
+++ /dev/null
@@ -1,381 +0,0 @@
-{-# LANGUAGE RecursiveDo #-}
-{-# LANGUAGE ViewPatterns #-}
-{-# LANGUAGE ImplicitParams #-}
-{-# LANGUAGE LambdaCase, BlockArguments #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE ScopedTypeVariables #-}
-module Rlp.Parse.Decls
-    (
-    )
-    where
-----------------------------------------------------------------------------------
-import Control.Monad
-import Control.Monad.State
-import Text.Megaparsec              hiding (State)
-import Text.Megaparsec.Char
-import Text.Megaparsec.Char.Lexer   qualified as L
-import Data.Functor.Classes
-import Data.Functor.Foldable
-import Data.Text                    (Text)
-import Data.Text                    qualified as T
-import Data.HashMap.Strict          qualified as H
-import Data.Maybe                   (maybeToList)
-import Data.List                    (foldl1')
-import Data.Char
-import Data.Function                (fix)
-import Data.Functor
-import Data.Functor.Const
-import Data.Fix                     hiding (cata)
-import GHC.Exts                     (IsString)
-import Lens.Micro
-import Lens.Micro.Platform
-import Rlp.Parse.Types
-import Rlp.Parse.Utils
-import Rlp.Syntax
-----------------------------------------------------------------------------------
-
-parseTest' :: (Show a) => Parser a -> Text -> IO ()
-parseTest' p s = case runState (runParserT p "test" s) init of
-    (Left e, _)   -> putStr (errorBundlePretty e)
-    (Right x, st) -> print st *> print x
-    where
-        init = ParserState mempty
-
-lexeme :: Parser a -> Parser a
-lexeme = L.lexeme sc
-
-symbol :: Text -> Parser Text
-symbol = L.symbol sc
-
-sc :: Parser ()
-sc = L.space hspace1 (void lineComment) (void blockComment)
-
-scn :: Parser ()
-scn = L.space space1 (void lineComment) (void blockComment)
-
-type OnFold = (?foldGuard :: Parser ())
-
--- TODO: return comment text
--- TODO: '---' should not start a comment
-lineComment :: Parser Text
-lineComment = L.skipLineComment "--" $> "<unimpl>"
-
--- TODO: return comment text
-blockComment :: Parser Text
-blockComment = L.skipBlockCommentNested "{-" "-}" $> "<unimpl>"
-
-layout :: forall a. ((OnFold) => Parser a) -> Parser [a]
-layout item = scn *> (explicit <|> implicit) where
-    explicit :: Parser [a]
-    explicit = let ?foldGuard = scn -- line folds just go to the semicolon
-        in sym "{" *> fix \items -> choice
-            [ sym "}" $> []
-            , (:) <$> item
-                  <*> (sym ";" *> items <|> sym "}" $> [])
-            ]
-        where
-            sym = L.symbol scn
-
-    implicit :: Parser [a]
-    implicit = do
-        i <- L.indentLevel
-        -- items must be aligned
-        let indentGuard = L.indentGuard scn EQ i
-        -- override foldGuard in order with new indentation
-        let ?foldGuard = void $ L.indentGuard scn GT i
-        fix \ds -> (:) <$> (indentGuard *> item <* scn)
-                       <*> (ds <|> pure [])
-
-t :: (?foldGuard :: Parser ()) => Parser [Text]
-t = (:) <$> lexeme "soge" <*> many (flexeme "doge")
-
-decl :: (OnFold) => Parser PartialDecl'
-decl = choice
-    -- declarations that begin with a keyword before those beginning with an
-    -- arbitrary name
-    [ infixD
-    , dataD
-    , try funD
-    , tySigD
-    ]
-
-funD :: (OnFold) => Parser PartialDecl'
-funD = FunD <$> lexeme varid <*> params <*> (fsymbol "=" *> body) <*> whereClause
-    where
-        params = many pat1
-        body = fmap Const partialExpr
-
--- we may not need to call scn here
-fsymbol :: (OnFold) => Text -> Parser Text
-fsymbol p = try ?foldGuard *> symbol p
-
--- we may not need to call scn here
-flexeme :: (OnFold) => Parser a -> Parser a
-flexeme p = try ?foldGuard *> lexeme p
-
-whereClause :: Parser Where'
-whereClause = optionalList $
-        lexeme "where" *> pure
-            [ FunB "fixme" [] (VarE "fixme")
-            ]
-
-standalonePartialExpr :: Parser PartialExpr'
-standalonePartialExpr = standaloneOf partialExpr
-    where ?foldGuard = undefined
-
-standaloneOf :: Parser a -> Parser a
-standaloneOf = (<* eof)
-
-partialExpr :: (OnFold) => Parser PartialExpr'
-partialExpr = choice
-    [ ifExpr
-    , try $ infixExpr
-    , application
-    ]
-    <?> "expression"
-    where
-        application = foldl1' mkApp <$> some (flexeme partialExpr1)
-        infixExpr = fmap Fix $
-            mkB <$> partialExpr1' <*> infixOp' <*> partialExpr'
-
-        ifExpr :: Parser PartialExpr'
-        ifExpr = fmap (Fix . E) $
-            IfEF <$> (flexeme "if" *> partialExpr)
-                 <*> (flexeme "then" *> partialExpr)
-                 <*> (flexeme "else" *> partialExpr)
-
-        mkB a f b = B f a b
-        partialExpr1' = unFix <$> partialExpr1
-        partialExpr' = unFix <$> partialExpr
-        infixOp' = flexeme infixOp
-
-        mkApp :: PartialExpr' -> PartialExpr' -> PartialExpr'
-        mkApp f x = Fix . E $ f `AppEF` x
-
-partialExpr1 :: (OnFold) => Parser PartialExpr'
-partialExpr1 = choice
-    [ try $ lexeme "(" *> partialExpr' <* lexeme ")"
-    , Fix <$> varid'
-    , Fix <$> lit'
-    ]
-    <?> "expression"
-    where
-        partialExpr' = wrapFix . P . unwrapFix <$> partialExpr
-        varid' = E . VarEF <$> varid
-        lit' = E . LitEF <$> lit
-
-infixOp :: Parser Name
-infixOp = symvar <|> symcon <?> "operator"
-
-symvar :: Parser Name
-symvar = T.cons <$> satisfy isVarSym <*> takeWhileP Nothing isSym
-
-symcon :: Parser Name
-symcon = T.cons <$> char ':' <*> takeWhileP Nothing isSym
-
-pat1 :: (OnFold) => Parser Pat'
-pat1 = VarP <$> flexeme varid
-    <?> "pattern"
-
-conid :: Parser ConId
-conid = NameCon <$> lexeme namecon
-    <|> SymCon <$> lexeme (char '(' *> symcon <* char ')')
-    <?> "constructor identifier"
-
-namecon :: Parser Name
-namecon = T.cons <$> satisfy isUpper <*> takeWhileP Nothing isNameTail
-
-varid :: Parser VarId
-varid = NameVar <$> try (lexeme namevar)
-    <|> SymVar <$> lexeme (char '(' *> symvar <* char ')')
-    <?> "variable identifier"
-
-program :: Parser [Decl' RlpExpr]
-program = do
-    ds <- layout decl <* eof
-    pt <- use psOpTable
-    pure $ complete pt <$> ds
-
-namevar :: Parser Name
-namevar = word
-        & withPredicate (`notElem` keywords) empty
-    where
-        word = T.cons <$> satisfy isLower <*> takeWhileP Nothing isNameTail
-
-keywords :: (IsString a) => [a]
-keywords =
-    [ "where"
-    , "infix"
-    , "infixr"
-    , "infixl"
-    ]
-
-isNameTail :: Char -> Bool
-isNameTail c = isAlphaNum c
-            || c == '\''
-            || c == '_'
-
-isVarSym :: Char -> Bool
-isVarSym = (`T.elem` "\\!#$%&*+./<=>?@^|-~")
-
-isSym :: Char -> Bool
-isSym c = c == ':' || isVarSym c
-
-infixD :: Parser (Decl' e)
-infixD = do
-        o <- getOffset
-        a <- infixWord
-        p <- prec
-        op <- infixOp
-        region (setErrorOffset o) $ updateOpTable a p op
-        pure $ InfixD a p op
-    where
-        infixWord :: Parser Assoc
-        infixWord = choice $ lexeme <$>
-            [ "infixr" $> InfixR
-            , "infixl" $> InfixL
-            , "infix"  $> Infix
-            ]
-        
-        prec :: Parser Int
-        prec = do
-            o <- getOffset
-            n <- lexeme L.decimal <?> "precedence level (an integer)"
-            if 0 <= n && n <= 9 then
-                pure n
-            else
-                region (setErrorOffset o) $
-                    registerCustomFailure (RlpParErrOutOfBoundsPrecedence n)
-                    $> 9
-
-        updateOpTable :: Assoc -> Int -> Name -> Parser ()
-        updateOpTable a p op = do
-                t <- use psOpTable
-                psOpTable <~ H.alterF f op t
-            where
-                f Nothing  = pure (Just (a,p))
-                f (Just x) = registerCustomFailure RlpParErrDuplicateInfixD
-                           $> Just x
-
-tySigD :: (OnFold) => Parser (Decl' e)
-tySigD = TySigD <$> (pure <$> varid) <*> (flexeme "::" *> flexeme type_)
-
-dataD :: (OnFold) => Parser (Decl' e)
-dataD = DataD <$> (lexeme "data" *> conid) <*> many typaram
-      <*> optionalList (symbol "=" *> conalts)
-    where
-        typaram :: Parser Name
-        typaram = lexeme namevar
-
-        conalts :: Parser [ConAlt]
-        conalts = (:) <$> conalt <*> optionalList (symbol "|" *> conalts)
-
-        conalt :: Parser ConAlt
-        conalt = ConAlt <$> conid <*> many type1
-
-type1 :: (OnFold) => Parser Type
-type1 = choice
-    [ lexeme "(" *> type_ <* lexeme ")"
-    , TyVar <$> namevar
-    , TyCon <$> namecon
-    ]
-
-type_ :: (OnFold) => Parser Type
-type_ = choice
-    [ try $ (:->) <$> type1 <*> (flexeme "->" *> type_)
-    , type1
-    ]
-
-lit :: Parser Lit'
-lit = int
-    <?> "literal"
-    where
-        int = IntL <$> L.decimal
-
---------------------------------------------------------------------------------
--- completing partial expressions
-
-complete :: OpTable -> PartialDecl' -> Decl' RlpExpr
-complete pt (FunD n as b w)    = FunD n as b' w
-    where b' = let ?pt = pt in completeExpr (getConst b)
-complete pt (TySigD ns t)      = TySigD ns t
-complete pt (DataD n as cs)    = DataD n as cs
-complete pt (InfixD a p n)     = InfixD a p n
-
-completeExpr :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
-completeExpr = cata completePartial
-
-completePartial :: (?pt :: OpTable) => PartialE -> RlpExpr'
-completePartial (E e)        = completeRlpExpr e
-completePartial p@(B o l r)  = completeB (build p)
-completePartial (P e)        = completePartial e
-
-completeRlpExpr :: (?pt :: OpTable) => RlpExprF' RlpExpr' -> RlpExpr'
-completeRlpExpr = embed
-
-completeB :: (?pt :: OpTable) => PartialE -> RlpExpr'
-completeB p = case build p of
-    B o l r     -> (o' `AppE` l') `AppE` r'
-        where
-            -- TODO: how do we know it's symbolic?
-            o' = VarE (SymVar o)
-            l' = completeB l
-            r' = completeB r
-    P e         -> completeB e
-    E e         -> completeRlpExpr e
-
-build :: (?pt :: OpTable) => PartialE -> PartialE
-build e = go id e (rightmost e) where
-    rightmost :: PartialE -> PartialE
-    rightmost (B _ _ r) = rightmost r
-    rightmost p@(E _)   = p
-    rightmost p@(P _)   = p
-
-    go :: (?pt :: OpTable)
-       => (PartialE -> PartialE)
-       -> PartialE -> PartialE -> PartialE
-    go f p@(WithInfo o _ r) = case r of
-            E _     -> mkHole o (f . f')
-            P _     -> mkHole o (f . f')
-            B _ _ _ -> go (mkHole o (f . f')) r
-        where f' r' = p & pR .~ r'
-    go f _ = id
-
-mkHole :: (?pt :: OpTable)
-       => OpInfo
-       -> (PartialE -> PartialE)
-       -> PartialE
-       -> PartialE
-mkHole _     hole p@(P _)                   = hole p
-mkHole _     hole p@(E _)                   = hole p
-mkHole (a,d) hole p@(WithInfo (a',d') _ _)
-    | d' < d  = above
-    | d' > d  = below
-    | d == d' = case (a,a') of
-                  -- left-associative operators of equal precedence are
-                  -- associated left
-                  (InfixL,InfixL) -> above
-                  -- right-associative operators are handled similarly
-                  (InfixR,InfixR) -> below
-                  -- non-associative operators of equal precedence, or equal
-                  -- precedence operators of different associativities are
-                  -- invalid
-                  (_,     _)      -> error "invalid expression"
-    where
-        above = p & pL %~ hole
-        below = hole p
-
-examplePrecTable :: OpTable
-examplePrecTable = H.fromList
-    [ ("+",    (InfixL,6))
-    , ("*",    (InfixL,7))
-    , ("^",    (InfixR,8))
-    , (".",    (InfixR,7))
-    , ("~",    (Infix, 9))
-    , ("=",    (Infix, 4))
-    , ("&&",   (Infix, 3))
-    , ("||",   (Infix, 2))
-    , ("$",    (InfixR,0))
-    , ("&",    (InfixL,0))
-    ]
-
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 41e67f8..d25c27b 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -1,57 +1,97 @@
 {-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE ImplicitParams, ViewPatterns, PatternSynonyms #-}
-{-
-Description : Supporting types for the parser
--}
-module Rlp.Parse.Types
-    (
-    -- * Partial ASTs
-      Partial(..)
-    , PartialE
-    , PartialExpr'
-    , PartialDecl'
-    , pattern WithInfo
-    , pR
-    , pL
-
-    -- * Parser types
-    , Parser
-    , ParserState(..)
-    , psOpTable
-    , RlpParseError(..)
-    , OpTable
-    , OpInfo
-    )
-    where
-----------------------------------------------------------------------------------
-import Control.Monad.State
-import Data.HashMap.Strict          qualified as H
+{-# LANGUAGE LambdaCase #-}
+module Rlp.Parse.Types where
+--------------------------------------------------------------------------------
+import Core.Syntax                  (Name)
+import Control.Monad
+import Control.Monad.State.Class
+import Data.Text                    (Text)
+import Data.Maybe
 import Data.Fix
 import Data.Functor.Foldable
 import Data.Functor.Const
 import Data.Functor.Classes
-import Data.Void
-import Data.Maybe
-import Text.Megaparsec              hiding (State)
-import Text.Printf
-import Lens.Micro
+import Data.HashMap.Strict          qualified as H
+import Data.Word                    (Word8)
 import Lens.Micro.TH
+import Lens.Micro
 import Rlp.Syntax
-----------------------------------------------------------------------------------
+--------------------------------------------------------------------------------
 
--- parser types
+type LexerAction a = AlexInput -> Int -> P a
 
--- TODO: the State is only used for building an operator table from infix[lr]
--- declarations. we should switch to a normal Parsec monad in the future
-
-type Parser = ParsecT RlpParseError Text (State ParserState)
-
-data ParserState = ParserState
-    { _psOpTable :: OpTable
+data AlexInput = AlexInput
+    { _aiPrevChar   :: Char
+    , _aiSource     :: Text
+    , _aiBytes      :: [Word8]
+    , _aiPos        :: Position
     }
     deriving Show
 
+type Position =
+    ( Int -- line
+    , Int -- column
+    )
+
+data RlpToken
+    -- literals
+    = TokenLitInt Int
+    -- identifiers
+    | TokenVarName Name
+    | TokenConName Name
+    | TokenVarSym Name
+    | TokenConSym Name
+    -- keywords
+    | TokenData
+    | TokenPipe
+    | TokenLet
+    | TokenIn
+    -- control symbols
+    | TokenEquals
+    | TokenSemicolon
+    | TokenLBrace
+    | TokenRBrace
+    -- 'virtual' control symbols, inserted by the lexer without any correlation
+    -- to a specific symbol
+    | TokenSemicolonV
+    | TokenLBraceV
+    | TokenRBraceV
+    | TokenEOF
+    deriving (Show)
+
+newtype P a = P { runP :: ParseState -> (ParseState, Maybe a) }
+    deriving (Functor)
+
+instance Applicative P where
+    pure a = P $ \st -> (st,Just a)
+    liftA2 = liftM2
+
+instance Monad P where
+    p >>= k = P $ \st ->
+        let (st',a) = runP p st
+        in case a of
+            Just x  -> runP (k x) st'
+            Nothing -> (st', Nothing)
+
+instance MonadState ParseState P where
+    state f = P $ \st ->
+        let (a,st') = f st
+        in (st', Just a)
+
+data ParseState = ParseState
+    { _psLayoutStack        :: [Layout]
+    , _psLexState           :: [Int]
+    , _psInput              :: AlexInput
+    }
+
+data Layout = Explicit
+            | Implicit Int
+            deriving (Show, Eq)
+
+data Located a = Located (Position, Int) a
+    deriving (Show)
+
 type OpTable = H.HashMap Name OpInfo
 type OpInfo = (Assoc, Int)
 
@@ -61,17 +101,6 @@ data RlpParseError = RlpParErrOutOfBoundsPrecedence Int
                    | RlpParErrDuplicateInfixD
     deriving (Eq, Ord, Show)
 
-instance ShowErrorComponent RlpParseError where
-    showErrorComponent = \case
-        -- TODO: wrap text to 80 characters
-        RlpParErrOutOfBoundsPrecedence n ->
-            printf "%d is an invalid precedence level! rl' currently only\
-                   \allows custom precedences between 0 and 9 (inclusive).\
-                   \ This is an arbitrary limit put in place for legibility\
-                   \ concerns, and may change in the future." n
-        RlpParErrDuplicateInfixD ->
-            "duplicate infix decl"
-
 ----------------------------------------------------------------------------------
 
 -- absolute psycho shit (partial ASTs)
@@ -80,7 +109,7 @@ type PartialDecl' = Decl (Const PartialExpr') Name
 
 data Partial a = E (RlpExprF Name a)
                | B Name (Partial a) (Partial a)
-               | P (Partial a)
+               | Par (Partial a)
                deriving (Show, Functor)
 
 pL :: Traversal' (Partial a) (Partial a)
@@ -109,14 +138,13 @@ instance Show1 Partial where
     liftShowsPrec sp sl p m = case m of
         (E e)       -> showsUnaryWith lshow "E" p e
         (B f a b)   -> showsTernaryWith showsPrec lshow lshow "B" p f a b
-        (P e)       -> showsUnaryWith lshow "P" p e
+        (Par e)     -> showsUnaryWith lshow "Par" p e
         where
             lshow :: forall f. (Show1 f) => Int -> f a -> ShowS
             lshow = liftShowsPrec sp sl
 
 type PartialExpr' = Fix Partial
 
-----------------------------------------------------------------------------------
-
-makeLenses ''ParserState
+makeLenses ''AlexInput
+makeLenses ''ParseState
 
diff --git a/src/Rlp/Parse/Utils.hs b/src/Rlp/Parse/Utils.hs
deleted file mode 100644
index cf5fb8c..0000000
--- a/src/Rlp/Parse/Utils.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-module Rlp.Parse.Utils
-    ( withPredicate
-    , registerCustomFailure
-    , optionalList
-    )
-    where
---------------------------------------------------------------------------------
-import Text.Megaparsec
-import Rlp.Parse.Types
-import Data.Set                     qualified as S
-import Data.Maybe
-import Control.Monad
---------------------------------------------------------------------------------
-
--- TODO: generalise type sig
-withPredicate :: (a -> Bool)
-              -> Parser a    -- ^ action to run should the predicate fail
-              -> Parser a
-              -> Parser a
-withPredicate f r p = do
-    o <- getOffset
-    a <- p
-    if f a then pure a else setOffset o *> r
-
-registerCustomFailure :: MonadParsec e s m => e -> m ()
-registerCustomFailure = registerFancyFailure . S.singleton . ErrorCustom
-
-optionalList :: Parser [a] -> Parser [a]
-optionalList = fmap (join . maybeToList) . optional
-
-- 
2.52.0


From a38381f6ca5f1d5b2d5df41ac172bf94fdf91603 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 07:53:40 -0700
Subject: [PATCH 078/192] version bounds

---
 rlp.cabal | 31 ++++++++++++++++++-------------
 1 file changed, 18 insertions(+), 13 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 5d3fa6a..39d6379 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -48,19 +48,24 @@ library
     -- other-extensions:
     build-depends:    base ^>=4.18.0.0
                     -- required for happy
-                    , array
-                    , data-default-class
-                    , data-default
-                    , unordered-containers
-                    , hashable
-                    , pretty
-                    -- TODO: either learn recursion-schemes, or stop depending
-                    -- on it.
-                    , recursion-schemes
-                    , megaparsec                ^>=9.6.0
-                    , text
-                    , data-fix
-                    , utf8-string
+                    , array >= 0.5.5 && < 0.6
+                    , containers >= 0.6.7 && < 0.7
+                    , template-haskell >= 2.20.0 && < 2.21
+                    , pretty >= 1.1.3 && < 1.2
+                    , data-default >= 0.7.1 && < 0.8
+                    , data-default-class >= 0.1.2 && < 0.2
+                    , hashable >= 1.4.3 && < 1.5
+                    , mtl >= 2.3.1 && < 2.4
+                    , text >= 2.0.2 && < 2.1
+                    , megaparsec >= 9.6.1 && < 9.7
+                    , microlens >= 0.4.13 && < 0.5
+                    , microlens-mtl >= 0.2.0 && < 0.3
+                    , microlens-platform >= 0.4.3 && < 0.5
+                    , microlens-th >= 0.4.3 && < 0.5
+                    , unordered-containers >= 0.2.20 && < 0.3
+                    , recursion-schemes >= 5.2.2 && < 5.3
+                    , data-fix >= 0.3.2 && < 0.4
+                    , utf8-string >= 1.0.2 && < 1.1
 
     hs-source-dirs:   src
     default-language: GHC2021
-- 
2.52.0


From c92d8fac65c3dce3421406d6126c7a75d5955f0d Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 09:44:26 -0700
Subject: [PATCH 079/192] we're so back

---
 src/Rlp/Lex.x          | 126 +++++++++++++++++++++++++++++++----------
 src/Rlp/Parse/Types.hs |   1 +
 2 files changed, 98 insertions(+), 29 deletions(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index d81e432..e5a8805 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -1,4 +1,5 @@
 {
+{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE GeneralisedNewtypeDeriving #-}
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.Lex
@@ -49,21 +50,21 @@ rlp :-
     $white_no_nl+       ;
     -- TODO: don't treat operators like (-->) as comments
     "--".*              ;
-    ";"                 { constToken TokenSemicolon }
-    -- "{"                 { explicitLBrace }
-    -- "}"                 { explicitRBrace }
 
 <0>
 {
-    \n                  { begin bol }
-}
-
-<one>
-{
+    \n                  { beginPush bol }
     @varname            { tokenWith TokenVarName }
     @digits             { tokenWith (TokenLitInt . readInt) }
     "="                 { constToken TokenEquals }
-    \n                  { begin bol }
+}
+
+-- control characters
+<0>
+{
+    "{"                 { explicitLBrace }
+    "}"                 { explicitRBrace }
+    ";"                 { constToken TokenSemicolon }
 }
 
 -- consume all whitespace leaving us at the beginning of the next non-empty
@@ -76,19 +77,47 @@ rlp :-
     ()                  { doBol }
 }
 
+<layout_top>
+{
+    \n                  ;
+    "{"                 { explicitLBrace `thenDo` popLexState }
+    ()                  { doLayout }
+}
+
 {
 
-begin :: Int -> LexerAction a
-begin = undefined
+-- | @andBegin@, with the subtle difference that the start code is set
+--   /after/ the action
+thenBegin :: LexerAction a -> Int -> LexerAction a
+thenBegin act c inp l = do
+    a <- act inp l
+    psLexState . _head .= c
+    pure a
+
+andBegin :: LexerAction a -> Int -> LexerAction a
+andBegin act c inp l = do
+    psLexState . _head .= c
+    act inp l
+
+beginPush :: Int -> LexerAction (Located RlpToken)
+beginPush n _ _ = pushLexState n >> lexToken
 
 alexGetByte :: AlexInput -> Maybe (Word8, AlexInput)
 alexGetByte inp = case inp ^. aiBytes of
     [] -> do
         (c,t) <- T.uncons (inp ^. aiSource)
         let (b:bs) = encodeChar c
+                       -- tail the source
             inp' = inp & aiSource .~ t
+                       -- record the excess bytes for successive calls
                        & aiBytes .~ bs
+                       -- report the previous char
                        & aiPrevChar .~ c
+                       -- update the position
+                       & aiPos %~ \ (ln,col) ->
+                                   if (inp ^. aiPrevChar) == '\n'
+                                   then (ln+1,1)
+                                   else (ln,col+1)
         pure (b, inp')
     
     _ -> Just (head bs, inp')
@@ -104,17 +133,13 @@ getLexState = use (psLexState . singular _head)
 alexInputPrevChar :: AlexInput -> Char
 alexInputPrevChar = view aiPrevChar
 
+pushLexState :: Int -> P ()
+pushLexState n = psLexState %= (n:)
+
 readInt :: Text -> Int
 readInt = T.foldr f 0 where
     f c n = digitToInt c + 10*n
 
--- | @andBegin@, with the subtle difference that the start code is set
---   /after/ the action
-thenBegin :: LexerAction a -> Int -> LexerAction a
-thenBegin act c inp l = do
-    a <- act inp l
-    undefined
-
 constToken :: RlpToken -> LexerAction (Located RlpToken)
 constToken t inp l = do
     pos <- use (psInput . aiPos)
@@ -144,27 +169,37 @@ execP' p s = execP p st where
 initParseState :: Text -> ParseState
 initParseState s = ParseState
     { _psLayoutStack = []
-    , _psLexState = [one,bol,0]
+    -- IMPORTANT: the initial state is `bol` to begin the top-level layout,
+    -- which then returns to state 0 which continues the normal lexing process.
+    , _psLexState = [layout_top,0]
     , _psInput = initAlexInput s
     }
 
 initAlexInput :: Text -> AlexInput
-initAlexInput s = AlexInput
+initAlexInput (unconsBytes -> (b,s)) = AlexInput
     { _aiPrevChar   = '\0'
     , _aiSource     = s
-    , _aiBytes      = []
+    , _aiBytes      = b
     , _aiPos        = (1,1)
     }
 
+unconsBytes :: Text -> ([Word8], Text)
+unconsBytes s = (encodeChar c, t) where
+    (c,t) = fromJust $ T.uncons s
+
 lexToken :: P (Located RlpToken)
 lexToken = do
     inp <- getInput
     c <- getLexState
+    st <- use id
+    traceM $ "st: " <> show st
     case alexScan inp c of
         AlexEOF -> pure $ Located (inp ^. aiPos, 0) TokenEOF
+        AlexSkip inp' l -> do
+            psInput .= inp'
+            lexToken
         AlexToken inp' l act -> do
             psInput .= inp'
-            traceM $ "l: " <> show l
             traceShowM inp'
             act inp l
 
@@ -178,8 +213,8 @@ lexStream = do
         Located _ TokenEOF -> pure [TokenEOF]
         Located _ t        -> (t:) <$> lexStream
 
-lexTest :: Text -> Either String [RlpToken]
-lexTest = undefined
+lexTest :: Text -> Maybe [RlpToken]
+lexTest s = execP' lexStream s
 
 indentLevel :: P Int
 indentLevel = do
@@ -195,11 +230,20 @@ popLayout :: P Layout
 popLayout = do
     traceM "pop layout"
     ctx <- preuse (psLayoutStack . _head)
-    modifying psLayoutStack (drop 1)
+    psLayoutStack %= (drop 1)
     case ctx of
         Just l      -> pure l
         Nothing     -> error "uhh"
 
+pushLayout :: Layout -> P ()
+pushLayout l = do
+    traceM "push layout"
+    psLayoutStack %= (l:)
+
+popLexState :: P ()
+popLexState = do
+    psLexState %= tail
+
 insertSemicolon, insertLBrace, insertRBrace :: P (Located RlpToken)
 insertSemicolon = traceM "inserting semi"   >> insertToken TokenSemicolonV
 insertLBrace    = traceM "inserting lbrace" >> insertToken TokenLBraceV
@@ -209,23 +253,47 @@ cmpLayout :: P Ordering
 cmpLayout = do
     i <- indentLevel
     ctx <- preuse (psLayoutStack . _head)
-    case ctx ^. non (Implicit 1) of
-        Implicit n -> pure (i `compare` n)
-        Explicit   -> pure GT
+    case ctx of
+        Just (Implicit n) -> pure (i `compare` n)
+        _                 -> pure GT
 
 doBol :: LexerAction (Located RlpToken)
 doBol inp l = do
     off <- cmpLayout
+    i <- indentLevel
+    traceM $ "i: " <> show i
+    -- important that we pop the lex state lest we find our lexer diverging
+    popLexState
     case off of
         -- the line is aligned with the previous. it therefore belongs to the
         -- same list
         EQ -> insertSemicolon
         -- the line is indented further than the previous, so we assume it is a
         -- line continuation. ignore it and move on!
-        GT -> undefined -- alexSetStartCode one >> lexToken
+        GT -> lexToken
         -- the line is indented less than the previous, pop the layout stack and
         -- insert a closing brace.
         LT -> popLayout >> insertRBrace
 
+thenDo :: LexerAction a -> P b -> LexerAction a
+thenDo act p inp l = act inp l <* p
+
+explicitLBrace :: LexerAction (Located RlpToken)
+explicitLBrace inp l = do
+    pushLayout Explicit
+    constToken TokenLBrace inp l
+
+explicitRBrace :: LexerAction (Located RlpToken)
+explicitRBrace inp l = do
+    popLayout
+    constToken TokenRBrace inp l
+
+doLayout :: LexerAction (Located RlpToken)
+doLayout _ _ = do
+    i <- indentLevel
+    pushLayout (Implicit i)
+    popLexState
+    insertLBrace
+
 }
 
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index d25c27b..90b5524 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -84,6 +84,7 @@ data ParseState = ParseState
     , _psLexState           :: [Int]
     , _psInput              :: AlexInput
     }
+    deriving Show
 
 data Layout = Explicit
             | Implicit Int
-- 
2.52.0


From 3dfadc17ec646d7936a74bc0dbb4d83537388bb6 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 10:33:09 -0700
Subject: [PATCH 080/192] fixy

---
 src/Rlp/Lex.x | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index e5a8805..848983f 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -176,17 +176,13 @@ initParseState s = ParseState
     }
 
 initAlexInput :: Text -> AlexInput
-initAlexInput (unconsBytes -> (b,s)) = AlexInput
+initAlexInput s = AlexInput
     { _aiPrevChar   = '\0'
     , _aiSource     = s
-    , _aiBytes      = b
+    , _aiBytes      = []
     , _aiPos        = (1,1)
     }
 
-unconsBytes :: Text -> ([Word8], Text)
-unconsBytes s = (encodeChar c, t) where
-    (c,t) = fromJust $ T.uncons s
-
 lexToken :: P (Located RlpToken)
 lexToken = do
     inp <- getInput
-- 
2.52.0


From bdf74ac6c9f8d875a7b3d85798788b96fe2668b5 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 10:35:11 -0700
Subject: [PATCH 081/192] cool

---
 src/Rlp/Lex.x          | 44 ++++++++++++++++++++++++++++++++----------
 src/Rlp/Parse/Types.hs |  8 ++++++--
 2 files changed, 40 insertions(+), 12 deletions(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 848983f..7f5b292 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -1,5 +1,5 @@
 {
-{-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE ViewPatterns, LambdaCase #-}
 {-# LANGUAGE GeneralisedNewtypeDeriving #-}
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.Lex
@@ -39,10 +39,20 @@ $nl             = [\n\r]
 $white_no_nl    = $white # $nl
 
 $namechar       = [$alpha $digit \' \#]
+$reservedsym    = [\(\)\,\;\[\]\`\{\}]
+$asciisym       = [\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~\:]
+$namesym        = $asciisym # \;
 
-@varname        = $lower $namechar*
+@reservedop =
+    "=" | \\ | "->" | "::" | "|"
 
-@digits         = $digit+
+@varname   = $lower $namechar*
+@conname   = $upper $namechar*
+@varsym    = $namesym+
+@consym    = \: $namesym*
+
+
+@decimal   = $digit+
 
 rlp :-
     
@@ -55,8 +65,8 @@ rlp :-
 {
     \n                  { beginPush bol }
     @varname            { tokenWith TokenVarName }
-    @digits             { tokenWith (TokenLitInt . readInt) }
-    "="                 { constToken TokenEquals }
+    @decimal            { tokenWith (TokenLitInt . readInt) }
+    @reservedop         { tokenWith readReservedOp }
 }
 
 -- control characters
@@ -86,6 +96,14 @@ rlp :-
 
 {
 
+readReservedOp :: Text -> RlpToken
+readReservedOp = \case
+    "="     -> TokenEquals
+    "\\"    -> TokenLambda
+    "->"    -> TokenArrow
+    "::"    -> TokenHasType
+    s       -> error (show s)
+
 -- | @andBegin@, with the subtle difference that the start code is set
 --   /after/ the action
 thenBegin :: LexerAction a -> Int -> LexerAction a
@@ -127,6 +145,12 @@ alexGetByte inp = case inp ^. aiBytes of
 getInput :: P AlexInput
 getInput = use psInput
 
+takeInput :: Int -> AlexInput -> Text
+takeInput n inp = T.cons c cs
+    where
+        c = inp ^. aiPrevChar
+        cs = T.take (max 0 (n-1)) $ inp ^. aiSource
+
 getLexState :: P Int
 getLexState = use (psLexState . singular _head)
 
@@ -148,8 +172,8 @@ constToken t inp l = do
 tokenWith :: (Text -> RlpToken) -> LexerAction (Located RlpToken)
 tokenWith tf inp l = do
     pos <- getPos
-    let t = tf (T.take l $ inp ^. aiSource)
-    pure (Located (pos,l) t)
+    let t = takeInput l inp
+    pure (Located (pos,l) (tf t))
 
 getPos :: P Position
 getPos = use (psInput . aiPos)
@@ -176,10 +200,10 @@ initParseState s = ParseState
     }
 
 initAlexInput :: Text -> AlexInput
-initAlexInput s = AlexInput
-    { _aiPrevChar   = '\0'
+initAlexInput t = AlexInput
+    { _aiPrevChar   = c
     , _aiSource     = s
-    , _aiBytes      = []
+    , _aiBytes      = b
     , _aiPos        = (1,1)
     }
 
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 90b5524..03f24f8 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -44,11 +44,15 @@ data RlpToken
     | TokenConSym Name
     -- keywords
     | TokenData
-    | TokenPipe
     | TokenLet
     | TokenIn
-    -- control symbols
+    -- reserved ops
+    | TokenArrow
+    | TokenPipe
+    | TokenHasType
+    | TokenLambda
     | TokenEquals
+    -- control symbols
     | TokenSemicolon
     | TokenLBrace
     | TokenRBrace
-- 
2.52.0


From 4f66e71b9a729e4738a071b5eef62d00bd73aefc Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 11:05:10 -0700
Subject: [PATCH 082/192] FIX REAL

---
 src/Rlp/Lex.x | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 848983f..18592f8 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -115,7 +115,7 @@ alexGetByte inp = case inp ^. aiBytes of
                        & aiPrevChar .~ c
                        -- update the position
                        & aiPos %~ \ (ln,col) ->
-                                   if (inp ^. aiPrevChar) == '\n'
+                                   if c == '\n'
                                    then (ln+1,1)
                                    else (ln,col+1)
         pure (b, inp')
-- 
2.52.0


From c0236dc079c9a2e664a7243a08b0c427f0ab6ae0 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 11:11:43 -0700
Subject: [PATCH 083/192] oh my god

---
 src/Rlp/Lex.x      |  44 ++----
 src/Rlp/Lex.x.orig | 327 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 337 insertions(+), 34 deletions(-)
 create mode 100644 src/Rlp/Lex.x.orig

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 589d6bb..18592f8 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -1,5 +1,5 @@
 {
-{-# LANGUAGE ViewPatterns, LambdaCase #-}
+{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE GeneralisedNewtypeDeriving #-}
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.Lex
@@ -39,20 +39,10 @@ $nl             = [\n\r]
 $white_no_nl    = $white # $nl
 
 $namechar       = [$alpha $digit \' \#]
-$reservedsym    = [\(\)\,\;\[\]\`\{\}]
-$asciisym       = [\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~\:]
-$namesym        = $asciisym # \;
 
-@reservedop =
-    "=" | \\ | "->" | "::" | "|"
+@varname        = $lower $namechar*
 
-@varname   = $lower $namechar*
-@conname   = $upper $namechar*
-@varsym    = $namesym+
-@consym    = \: $namesym*
-
-
-@decimal   = $digit+
+@digits         = $digit+
 
 rlp :-
     
@@ -65,8 +55,8 @@ rlp :-
 {
     \n                  { beginPush bol }
     @varname            { tokenWith TokenVarName }
-    @decimal            { tokenWith (TokenLitInt . readInt) }
-    @reservedop         { tokenWith readReservedOp }
+    @digits             { tokenWith (TokenLitInt . readInt) }
+    "="                 { constToken TokenEquals }
 }
 
 -- control characters
@@ -96,14 +86,6 @@ rlp :-
 
 {
 
-readReservedOp :: Text -> RlpToken
-readReservedOp = \case
-    "="     -> TokenEquals
-    "\\"    -> TokenLambda
-    "->"    -> TokenArrow
-    "::"    -> TokenHasType
-    s       -> error (show s)
-
 -- | @andBegin@, with the subtle difference that the start code is set
 --   /after/ the action
 thenBegin :: LexerAction a -> Int -> LexerAction a
@@ -145,12 +127,6 @@ alexGetByte inp = case inp ^. aiBytes of
 getInput :: P AlexInput
 getInput = use psInput
 
-takeInput :: Int -> AlexInput -> Text
-takeInput n inp = T.cons c cs
-    where
-        c = inp ^. aiPrevChar
-        cs = T.take (max 0 (n-1)) $ inp ^. aiSource
-
 getLexState :: P Int
 getLexState = use (psLexState . singular _head)
 
@@ -172,8 +148,8 @@ constToken t inp l = do
 tokenWith :: (Text -> RlpToken) -> LexerAction (Located RlpToken)
 tokenWith tf inp l = do
     pos <- getPos
-    let t = takeInput l inp
-    pure (Located (pos,l) (tf t))
+    let t = tf (T.take l $ inp ^. aiSource)
+    pure (Located (pos,l) t)
 
 getPos :: P Position
 getPos = use (psInput . aiPos)
@@ -200,10 +176,10 @@ initParseState s = ParseState
     }
 
 initAlexInput :: Text -> AlexInput
-initAlexInput t = AlexInput
-    { _aiPrevChar   = c
+initAlexInput s = AlexInput
+    { _aiPrevChar   = '\0'
     , _aiSource     = s
-    , _aiBytes      = b
+    , _aiBytes      = []
     , _aiPos        = (1,1)
     }
 
diff --git a/src/Rlp/Lex.x.orig b/src/Rlp/Lex.x.orig
new file mode 100644
index 0000000..184e2c6
--- /dev/null
+++ b/src/Rlp/Lex.x.orig
@@ -0,0 +1,327 @@
+{
+{-# LANGUAGE ViewPatterns, LambdaCase #-}
+{-# LANGUAGE GeneralisedNewtypeDeriving #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Rlp.Lex
+    ( P(..)
+    , RlpToken(..)
+    , Located(..)
+    , lexToken
+    , lexerCont
+    )
+    where
+import Codec.Binary.UTF8.String (encodeChar)
+import Control.Monad
+import Core.Syntax              (Name)
+import Data.Functor.Identity
+import Data.Char                (digitToInt)
+import Data.Monoid              (First)
+import Data.Maybe
+import Data.Text                (Text)
+import Data.Text                qualified as T
+import Data.Word
+import Data.Default
+import Lens.Micro.Mtl
+import Lens.Micro
+
+import Debug.Trace
+import Rlp.Parse.Types
+}
+
+$whitechar      = [ \t\n\r\f\v]
+
+$lower          = [a-z \_]
+$upper          = [A-Z]
+$alpha          = [$lower $upper]
+$digit          = 0-9
+
+$nl             = [\n\r]
+$white_no_nl    = $white # $nl
+
+$namechar       = [$alpha $digit \' \#]
+$reservedsym    = [\(\)\,\;\[\]\`\{\}]
+$asciisym       = [\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~\:]
+$namesym        = $asciisym # \;
+
+@reservedop =
+    "=" | \\ | "->" | "::" | "|"
+
+@varname   = $lower $namechar*
+@conname   = $upper $namechar*
+@varsym    = $namesym+
+@consym    = \: $namesym*
+
+
+@decimal   = $digit+
+
+rlp :-
+    
+    -- skip whitespace
+    $white_no_nl+       ;
+    -- TODO: don't treat operators like (-->) as comments
+    "--".*              ;
+
+<0>
+{
+    \n                  { beginPush bol }
+    @varname            { tokenWith TokenVarName }
+    @decimal            { tokenWith (TokenLitInt . readInt) }
+    @reservedop         { tokenWith readReservedOp }
+}
+
+-- control characters
+<0>
+{
+    "{"                 { explicitLBrace }
+    "}"                 { explicitRBrace }
+    ";"                 { constToken TokenSemicolon }
+}
+
+-- consume all whitespace leaving us at the beginning of the next non-empty
+-- line. we then compare the indentation of that line to the enclosing layout
+-- context and proceed accordingly
+<bol>
+{
+    $whitechar          ;
+    \n                  ;
+    ()                  { doBol }
+}
+
+<layout_top>
+{
+    \n                  ;
+    "{"                 { explicitLBrace `thenDo` popLexState }
+    ()                  { doLayout }
+}
+
+{
+
+readReservedOp :: Text -> RlpToken
+readReservedOp = \case
+    "="     -> TokenEquals
+    "\\"    -> TokenLambda
+    "->"    -> TokenArrow
+    "::"    -> TokenHasType
+    s       -> error (show s)
+
+-- | @andBegin@, with the subtle difference that the start code is set
+--   /after/ the action
+thenBegin :: LexerAction a -> Int -> LexerAction a
+thenBegin act c inp l = do
+    a <- act inp l
+    psLexState . _head .= c
+    pure a
+
+andBegin :: LexerAction a -> Int -> LexerAction a
+andBegin act c inp l = do
+    psLexState . _head .= c
+    act inp l
+
+beginPush :: Int -> LexerAction (Located RlpToken)
+beginPush n _ _ = pushLexState n >> lexToken
+
+alexGetByte :: AlexInput -> Maybe (Word8, AlexInput)
+alexGetByte inp = case inp ^. aiBytes of
+    [] -> do
+        (c,t) <- T.uncons (inp ^. aiSource)
+        let (b:bs) = encodeChar c
+                       -- tail the source
+            inp' = inp & aiSource .~ t
+                       -- record the excess bytes for successive calls
+                       & aiBytes .~ bs
+                       -- report the previous char
+                       & aiPrevChar .~ c
+                       -- update the position
+                       & aiPos %~ \ (ln,col) ->
+                                   if (inp ^. aiPrevChar) == '\n'
+                                   then (ln+1,1)
+                                   else (ln,col+1)
+        pure (b, inp')
+    
+    _ -> Just (head bs, inp')
+        where
+            (bs, inp') = inp & aiBytes <<%~ drop 1
+
+getInput :: P AlexInput
+getInput = use psInput
+
+takeInput :: Int -> AlexInput -> Text
+takeInput n inp = T.cons c cs
+    where
+        c = inp ^. aiPrevChar
+        cs = T.take (max 0 (n-1)) $ inp ^. aiSource
+
+getLexState :: P Int
+getLexState = use (psLexState . singular _head)
+
+alexInputPrevChar :: AlexInput -> Char
+alexInputPrevChar = view aiPrevChar
+
+pushLexState :: Int -> P ()
+pushLexState n = psLexState %= (n:)
+
+readInt :: Text -> Int
+readInt = T.foldr f 0 where
+    f c n = digitToInt c + 10*n
+
+constToken :: RlpToken -> LexerAction (Located RlpToken)
+constToken t inp l = do
+    pos <- use (psInput . aiPos)
+    pure (Located (pos,l) t)
+
+tokenWith :: (Text -> RlpToken) -> LexerAction (Located RlpToken)
+tokenWith tf inp l = do
+    pos <- getPos
+    let t = takeInput l inp
+    pure (Located (pos,l) (tf t))
+
+getPos :: P Position
+getPos = use (psInput . aiPos)
+
+alexEOF :: P (Located RlpToken)
+alexEOF = do
+    inp <- getInput
+    pure (Located undefined TokenEOF)
+
+execP :: P a -> ParseState -> Maybe a
+execP p st = runP p st & snd
+
+execP' :: P a -> Text -> Maybe a
+execP' p s = execP p st where
+    st = initParseState s
+
+initParseState :: Text -> ParseState
+initParseState s = ParseState
+    { _psLayoutStack = []
+    -- IMPORTANT: the initial state is `bol` to begin the top-level layout,
+    -- which then returns to state 0 which continues the normal lexing process.
+    , _psLexState = [layout_top,0]
+    , _psInput = initAlexInput s
+    }
+
+initAlexInput :: Text -> AlexInput
+<<<<<<< Updated upstream
+initAlexInput s = AlexInput
+    { _aiPrevChar   = '\0'
+=======
+initAlexInput t = AlexInput
+    { _aiPrevChar   = c
+>>>>>>> Stashed changes
+    , _aiSource     = s
+    , _aiBytes      = []
+    , _aiPos        = (1,1)
+    }
+    where
+        (c,s) = fromJust $ T.uncons t
+        b = encodeChar c
+
+lexToken :: P (Located RlpToken)
+lexToken = do
+    inp <- getInput
+    c <- getLexState
+    st <- use id
+    traceM $ "st: " <> show st
+    case alexScan inp c of
+        AlexEOF -> pure $ Located (inp ^. aiPos, 0) TokenEOF
+        AlexSkip inp' l -> do
+            psInput .= inp'
+            lexToken
+        AlexToken inp' l act -> do
+            psInput .= inp'
+            traceShowM inp'
+            act inp l
+
+lexerCont :: (Located RlpToken -> P a) -> P a
+lexerCont = undefined
+
+lexStream :: P [RlpToken]
+lexStream = do
+    t <- lexToken
+    case t of
+        Located _ TokenEOF -> pure [TokenEOF]
+        Located _ t        -> (t:) <$> lexStream
+
+lexTest :: Text -> Maybe [RlpToken]
+lexTest s = execP' lexStream s
+
+indentLevel :: P Int
+indentLevel = do
+    pos <- use (psInput . aiPos)
+    pure (pos ^. _2)
+
+insertToken :: RlpToken -> P (Located RlpToken)
+insertToken t = do
+    pos <- use (psInput . aiPos)
+    pure (Located (pos, 0) t)
+
+popLayout :: P Layout
+popLayout = do
+    traceM "pop layout"
+    ctx <- preuse (psLayoutStack . _head)
+    psLayoutStack %= (drop 1)
+    case ctx of
+        Just l      -> pure l
+        Nothing     -> error "uhh"
+
+pushLayout :: Layout -> P ()
+pushLayout l = do
+    traceM "push layout"
+    psLayoutStack %= (l:)
+
+popLexState :: P ()
+popLexState = do
+    psLexState %= tail
+
+insertSemicolon, insertLBrace, insertRBrace :: P (Located RlpToken)
+insertSemicolon = traceM "inserting semi"   >> insertToken TokenSemicolonV
+insertLBrace    = traceM "inserting lbrace" >> insertToken TokenLBraceV
+insertRBrace    = traceM "inserting rbrace" >> insertToken TokenRBraceV
+
+cmpLayout :: P Ordering
+cmpLayout = do
+    i <- indentLevel
+    ctx <- preuse (psLayoutStack . _head)
+    case ctx of
+        Just (Implicit n) -> pure (i `compare` n)
+        _                 -> pure GT
+
+doBol :: LexerAction (Located RlpToken)
+doBol inp l = do
+    off <- cmpLayout
+    i <- indentLevel
+    traceM $ "i: " <> show i
+    -- important that we pop the lex state lest we find our lexer diverging
+    popLexState
+    case off of
+        -- the line is aligned with the previous. it therefore belongs to the
+        -- same list
+        EQ -> insertSemicolon
+        -- the line is indented further than the previous, so we assume it is a
+        -- line continuation. ignore it and move on!
+        GT -> lexToken
+        -- the line is indented less than the previous, pop the layout stack and
+        -- insert a closing brace.
+        LT -> popLayout >> insertRBrace
+
+thenDo :: LexerAction a -> P b -> LexerAction a
+thenDo act p inp l = act inp l <* p
+
+explicitLBrace :: LexerAction (Located RlpToken)
+explicitLBrace inp l = do
+    pushLayout Explicit
+    constToken TokenLBrace inp l
+
+explicitRBrace :: LexerAction (Located RlpToken)
+explicitRBrace inp l = do
+    popLayout
+    constToken TokenRBrace inp l
+
+doLayout :: LexerAction (Located RlpToken)
+doLayout _ _ = do
+    i <- indentLevel
+    pushLayout (Implicit i)
+    popLexState
+    insertLBrace
+
+}
+
-- 
2.52.0


From 1c035d092a1d838ec90e5385e45929766c54760c Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 13:31:15 -0700
Subject: [PATCH 084/192] works

---
 Makefile_happysrcs     |  4 +-
 src/Rlp/Lex.x          | 92 ++++++++++++++++++++++++++++++++----------
 src/Rlp/Parse.y        | 42 +++++++++++--------
 src/Rlp/Parse/Types.hs |  5 ++-
 src/Rlp/Syntax.hs      |  2 +-
 5 files changed, 103 insertions(+), 42 deletions(-)

diff --git a/Makefile_happysrcs b/Makefile_happysrcs
index 35c2ca8..e0dc43e 100644
--- a/Makefile_happysrcs
+++ b/Makefile_happysrcs
@@ -1,7 +1,7 @@
 HAPPY = happy
-HAPPY_OPTS =
+HAPPY_OPTS = -a -g -c
 ALEX = alex
-ALEX_OPTS = -d
+ALEX_OPTS = -g
 
 SRC = src
 CABAL_BUILD = dist-newstyle/build/x86_64-osx/ghc-9.6.2/rlp-0.1.0.0/build
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 18592f8..55b0191 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -1,5 +1,5 @@
 {
-{-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE ViewPatterns, LambdaCase #-}
 {-# LANGUAGE GeneralisedNewtypeDeriving #-}
 {-# LANGUAGE OverloadedStrings #-}
 module Rlp.Lex
@@ -7,7 +7,8 @@ module Rlp.Lex
     , RlpToken(..)
     , Located(..)
     , lexToken
-    , lexerCont
+    , lexDebug
+    , lexCont
     )
     where
 import Codec.Binary.UTF8.String (encodeChar)
@@ -30,33 +31,60 @@ import Rlp.Parse.Types
 
 $whitechar      = [ \t\n\r\f\v]
 
+$nl             = [\n\r]
+$white_no_nl    = $white # $nl
+
 $lower          = [a-z \_]
 $upper          = [A-Z]
 $alpha          = [$lower $upper]
 $digit          = 0-9
 
-$nl             = [\n\r]
-$white_no_nl    = $white # $nl
-
+$special        = [\(\)\,\;\[\]\{\}]
 $namechar       = [$alpha $digit \' \#]
+$asciisym       = [\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~\:]
+
+@decimal        = $digit+
 
 @varname        = $lower $namechar*
+@conname        = $upper $namechar*
+@consym         = \: $asciisym*
+@varsym         = $asciisym+
 
-@digits         = $digit+
+@reservedname = 
+    case|data|do|import|in|let|letrec|module|of|where
+
+@reservedop =
+    "=" | \\ | "->" | "|"
 
 rlp :-
     
-    -- skip whitespace
-    $white_no_nl+       ;
-    -- TODO: don't treat operators like (-->) as comments
-    "--".*              ;
+-- everywhere: skip whitespace
+$white_no_nl+       ;
 
+-- everywhere: skip comments
+-- TODO: don't treat operators like (-->) as comments
+"--".*              ;
+
+-- we are indentation-sensitive! do not skip NLs!. upon encountering a newline,
+-- we check indentation and potentially insert extra tokens. search this file
+-- for the definition of `doBol`
+<0> \n                  { beginPush bol }
+
+-- scan various identifiers and reserved words. order is important here!
 <0>
 {
-    \n                  { beginPush bol }
+    @reservedname       { tokenWith lexReservedName }
+    @conname            { tokenWith TokenConName }
     @varname            { tokenWith TokenVarName }
-    @digits             { tokenWith (TokenLitInt . readInt) }
-    "="                 { constToken TokenEquals }
+    @reservedop         { tokenWith lexReservedOp }
+    @consym             { tokenWith TokenConSym }
+    @varsym             { tokenWith TokenVarSym }
+}
+
+-- literals -- currently this is just unsigned integer literals
+<0>
+{
+    @decimal            { tokenWith (TokenLitInt . readInt) }
 }
 
 -- control characters
@@ -86,6 +114,20 @@ rlp :-
 
 {
 
+lexReservedName :: Text -> RlpToken
+lexReservedName = \case
+    "data"      -> TokenData
+    "case"      -> TokenCase
+    "of"        -> TokenOf
+    "let"       -> TokenLet
+    "in"        -> TokenIn
+
+lexReservedOp :: Text -> RlpToken
+lexReservedOp = \case
+    "="     -> TokenEquals
+    "::"    -> TokenHasType
+    "|"     -> TokenPipe
+
 -- | @andBegin@, with the subtle difference that the start code is set
 --   /after/ the action
 thenBegin :: LexerAction a -> Int -> LexerAction a
@@ -173,6 +215,7 @@ initParseState s = ParseState
     -- which then returns to state 0 which continues the normal lexing process.
     , _psLexState = [layout_top,0]
     , _psInput = initAlexInput s
+    , _psOpTable = mempty
     }
 
 initAlexInput :: Text -> AlexInput
@@ -188,7 +231,7 @@ lexToken = do
     inp <- getInput
     c <- getLexState
     st <- use id
-    traceM $ "st: " <> show st
+    -- traceM $ "st: " <> show st
     case alexScan inp c of
         AlexEOF -> pure $ Located (inp ^. aiPos, 0) TokenEOF
         AlexSkip inp' l -> do
@@ -196,11 +239,10 @@ lexToken = do
             lexToken
         AlexToken inp' l act -> do
             psInput .= inp'
-            traceShowM inp'
             act inp l
 
-lexerCont :: (Located RlpToken -> P a) -> P a
-lexerCont = undefined
+lexCont :: (Located RlpToken -> P a) -> P a
+lexCont = (lexToken >>=)
 
 lexStream :: P [RlpToken]
 lexStream = do
@@ -209,6 +251,12 @@ lexStream = do
         Located _ TokenEOF -> pure [TokenEOF]
         Located _ t        -> (t:) <$> lexStream
 
+lexDebug :: (Located RlpToken -> P a) -> P a
+lexDebug k = do
+    t <- lexToken
+    traceM $ "token: " <> show t
+    k t
+
 lexTest :: Text -> Maybe [RlpToken]
 lexTest s = execP' lexStream s
 
@@ -224,7 +272,7 @@ insertToken t = do
 
 popLayout :: P Layout
 popLayout = do
-    traceM "pop layout"
+    -- traceM "pop layout"
     ctx <- preuse (psLayoutStack . _head)
     psLayoutStack %= (drop 1)
     case ctx of
@@ -233,7 +281,7 @@ popLayout = do
 
 pushLayout :: Layout -> P ()
 pushLayout l = do
-    traceM "push layout"
+    -- traceM "push layout"
     psLayoutStack %= (l:)
 
 popLexState :: P ()
@@ -241,9 +289,9 @@ popLexState = do
     psLexState %= tail
 
 insertSemicolon, insertLBrace, insertRBrace :: P (Located RlpToken)
-insertSemicolon = traceM "inserting semi"   >> insertToken TokenSemicolonV
-insertLBrace    = traceM "inserting lbrace" >> insertToken TokenLBraceV
-insertRBrace    = traceM "inserting rbrace" >> insertToken TokenRBraceV
+insertSemicolon = {- traceM "inserting semi"   >> -} insertToken TokenSemicolonV
+insertLBrace    = {- traceM "inserting lbrace" >> -} insertToken TokenLBraceV
+insertRBrace    = {- traceM "inserting rbrace" >> -} insertToken TokenRBraceV
 
 cmpLayout :: P Ordering
 cmpLayout = do
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 3205988..8152f66 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -1,62 +1,72 @@
 {
 module Rlp.Parse
     ( parseRlpProgram
+    , parseTest
     )
     where
 import Rlp.Lex
 import Rlp.Syntax
 import Rlp.Parse.Types
+import Data.Fix
+import Data.Functor.Const
 }
 
 %name parseRlpProgram StandaloneProgram
+%name parseTest VL
 
 %monad { P }
-%lexer { lexerCont } { Located _ TokenEOF }
+%lexer { lexDebug } { Located _ TokenEOF }
 %error { parseError }
 %tokentype { Located RlpToken }
 
 %token
     varname         { Located _ (TokenVarName $$) }
+    conname         { Located _ (TokenConName $$) }
+    data            { Located _ TokenData }
     litint          { Located _ (TokenLitInt $$) }
     '='             { Located _ TokenEquals }
+    '|'             { Located _ TokenPipe }
     ';'             { Located _ TokenSemicolon }
-    ';?'            { Located _ TokenSemicolonV }
+    vsemi           { Located _ TokenSemicolonV }
     '{'             { Located _ TokenLBrace }
     '}'             { Located _ TokenRBrace }
-    '{?'            { Located _ TokenLBraceV }
-    '?}'            { Located _ TokenRBraceV }
-    eof             { Located _ TokenEOF }
+    vlbrace         { Located _ TokenLBraceV }
+    vrbrace         { Located _ TokenRBraceV }
 
 %%
 
 StandaloneProgram   :: { [PartialDecl'] }
-StandaloneProgram   : VL Decls VR eof       { $2 }
+StandaloneProgram   : '{' Decls '}'         { $2 }
+                    | VL  Decls VR          { $2 }
 
 VL  :: { () }
-VL  : '{?'          { () }
+VL  : vlbrace       { () }
 
 VR  :: { () }
-VR  : '?}'          { () }
+VR  : vrbrace       { () }
     | error         { () }
 
 Decls               :: { [PartialDecl'] }
-Decls               : Decl Semi Decls       { $1 : $3 }
-                    | Decl Semi             { [$1] }
+Decls               : Decl VS Decls         { $1 : $3 }
+                    | Decl VS               { [$1] }
                     | Decl                  { [$1] }
 
 Semi                :: { Located RlpToken }
 Semi                : ';'                   { $1 }
-                    | ';?'                  { $1 }
+
+VS                  :: { Located RlpToken }
+VS                  : ';'                   { $1 }
+                    | vsemi                 { $1 }
 
 Decl        :: { PartialDecl' }
-Decl        : FunDecl                   { undefined }
+Decl        : FunDecl                   { $1 }
 
 FunDecl     :: { PartialDecl' }
-FunDecl     : varname '=' Expr          { undefined }
+FunDecl     : Var '=' Expr              { FunD $1 [] (Const $3) Nothing }
 
-Expr        :: { RlpExpr' }
-Expr        : Literal                   { LitE $1 }
-            | Var                       { VarE $1 }
+Expr        :: { PartialExpr' }
+Expr        : Literal                   { Fix . E $ LitEF $1 }
+            | Var                       { Fix . E $ VarEF $1 }
 
 Literal     :: { Lit' }
 Literal     : litint                    { IntL $1 }
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 03f24f8..2ec6079 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -42,8 +42,10 @@ data RlpToken
     | TokenConName Name
     | TokenVarSym Name
     | TokenConSym Name
-    -- keywords
+    -- reserved words
     | TokenData
+    | TokenCase
+    | TokenOf
     | TokenLet
     | TokenIn
     -- reserved ops
@@ -87,6 +89,7 @@ data ParseState = ParseState
     { _psLayoutStack        :: [Layout]
     , _psLexState           :: [Int]
     , _psInput              :: AlexInput
+    , _psOpTable            :: OpTable
     }
     deriving Show
 
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index bf35445..18de5a1 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -65,7 +65,7 @@ type RlpProgram' = RlpProgram Name
 -- accounted for, we may complete the parsing task and get a proper @[Decl
 -- RlpExpr Name]@.
 
-data Decl e b = FunD    VarId [Pat b] (e b) (Where b)
+data Decl e b = FunD    VarId [Pat b] (e b) (Maybe (Where b))
               | TySigD  [VarId] Type
               | DataD   ConId [Name] [ConAlt]
               | InfixD  Assoc Int Name
-- 
2.52.0


From a1a50bd01381cf59499484e0212e7029e855a01f Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 14:58:26 -0700
Subject: [PATCH 085/192] now we're fucking GETTING SOMEWHERE

---
 rlp.cabal                  |   2 +
 src/Rlp/Lex.x.old          | 280 -------------------------------
 src/Rlp/Lex.x.orig         | 327 -------------------------------------
 src/Rlp/Parse.y            |  78 +++++++--
 src/Rlp/Parse/Associate.hs |  99 +++++++++++
 src/Rlp/Parse/Types.hs     |   2 +
 src/Rlp/Syntax.hs          |   1 +
 7 files changed, 169 insertions(+), 620 deletions(-)
 delete mode 100644 src/Rlp/Lex.x.old
 delete mode 100644 src/Rlp/Lex.x.orig
 create mode 100644 src/Rlp/Parse/Associate.hs

diff --git a/rlp.cabal b/rlp.cabal
index 39d6379..dc47c0d 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -33,6 +33,7 @@ library
                     , Rlp.Syntax
                     -- , Rlp.Parse.Decls
                     , Rlp.Parse
+                    , Rlp.Parse.Associate
                     , Rlp.Lex
                     , Rlp.Parse.Types
 
@@ -66,6 +67,7 @@ library
                     , recursion-schemes >= 5.2.2 && < 5.3
                     , data-fix >= 0.3.2 && < 0.4
                     , utf8-string >= 1.0.2 && < 1.1
+                    , extra >= 1.7.0 && < 2
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/Rlp/Lex.x.old b/src/Rlp/Lex.x.old
deleted file mode 100644
index 533c94c..0000000
--- a/src/Rlp/Lex.x.old
+++ /dev/null
@@ -1,280 +0,0 @@
-{
-{-# LANGUAGE GeneralisedNewtypeDeriving #-}
-{-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE OverloadedStrings #-}
-module Rlp.Lex
-    ( P(..)
-    , RlpToken(..)
-    , Located(..)
-    , AlexPosn
-    , lexer
-    , lexerCont
-    )
-    where
-import Control.Monad
-import Data.Functor.Identity
-import Data.Char                (digitToInt)
-import Core.Syntax              (Name)
-import Data.Monoid              (First)
-import Data.Maybe
-import Data.Text                (Text)
-import Data.Text                qualified as T
-import Data.Default
-import Lens.Micro.Mtl
-import Lens.Micro
-import Lens.Micro.TH
-
-import Debug.Trace
-}
-
-$whitechar      = [ \t\n\r\f\v]
-
-$lower          = [a-z \_]
-$upper          = [A-Z]
-$alpha          = [$lower $upper]
-$digit          = 0-9
-
-$nl             = [\n\r]
-$white_no_nl    = $white # $nl
-
-$namechar       = [$alpha $digit \' \#]
-
-@varname        = $lower $namechar*
-
-@digits         = $digit+
-
-rlp :-
-    
-    -- skip whitespace
-    $white_no_nl+       ;
-    -- TODO: don't treat operators like (-->) as comments
-    "--".*              ;
-    ";"                 { constToken TokenSemicolon }
-    -- "{"                 { explicitLBrace }
-    -- "}"                 { explicitRBrace }
-
-<0>
-{
-    \n                  { begin bol }
-}
-
-<one>
-{
-    @varname            { tokenWith TokenVarName }
-    @digits             { tokenWith (TokenLitInt . readInt) }
-    "="                 { constToken TokenEquals }
-    \n                  { begin bol }
-}
-
--- consume all whitespace leaving us at the beginning of the next non-empty
--- line. we then compare the indentation of that line to the enclosing layout
--- context and proceed accordingly
-<bol>
-{
-    $whitechar          ;
-    \n                  ;
-    ()                  { doBol `andBegin` one }
-}
-
-{
-
-readInt :: Text -> Int
-readInt = T.foldr f 0 where
-    f c n = digitToInt c + 10*n
-
--- | @andBegin@, with the subtle difference that the start code is set
---   /after/ the action
-thenBegin :: AlexAction a -> Int -> AlexAction a
-thenBegin act c inp l = do
-    a <- act inp l
-    alexSetStartCode c
-    pure a
-
-constToken :: RlpToken -> AlexAction (Located RlpToken)
-constToken t inp _ = pure $ Located (inp ^. _1) t
-
-tokenWith :: (Text -> RlpToken) -> AlexAction (Located RlpToken)
-tokenWith tf (p,_,_,s) l = pure $ Located p (tf $ T.take l s)
-
-alexEOF :: Alex (Located RlpToken)
-alexEOF = do
-    inp <- alexGetInput
-    pure (Located (inp ^. _1) TokenEOF)
-
-data RlpToken
-    -- literals
-    = TokenLitInt Int
-    -- identifiers
-    | TokenVarName Name
-    | TokenConName Name
-    | TokenVarSym Name
-    | TokenConSym Name
-    -- keywords
-    | TokenData
-    | TokenPipe
-    | TokenLet
-    | TokenIn
-    -- control symbols
-    | TokenEquals
-    | TokenSemicolon
-    | TokenLBrace
-    | TokenRBrace
-    -- 'virtual' control symbols, inserted by the lexer without any correlation
-    -- to a specific symbol
-    | TokenSemicolonV
-    | TokenLBraceV
-    | TokenRBraceV
-    | TokenEOF
-    deriving (Show)
-
-newtype P a = P { runP :: ParseState -> Alex (ParseState, Maybe a) }
-    deriving (Functor)
-
-execP :: P a -> ParseState -> Text -> Either String a
-execP p st s = snd <$> runAlex s (runP p st)
-
-execP' :: P a -> Text -> Either String a
-execP' p = execP p def
-
-data ParseState = ParseState
-    { _psLayoutStack       :: [Layout]
-    , _psLexState          :: [Int]
-    }
-
-instance Default ParseState where
-    def = ParseState { }
-
-instance Applicative P where
-    pure a = P $ \st -> pure (st,a)
-    liftA2 = liftM2
-
-instance Monad P where
-    p >>= k = P $ \st -> do
-        (st',a) <- runP p st
-        runP (k a) st'
-
-data Layout = Explicit
-            | Implicit Int
-            deriving (Show, Eq)
-
-data Located a = Located AlexPosn a
-    deriving (Show)
-
-psLayoutStack :: Lens' AlexUserState [Layout]
-psLayoutStack = lens _psLayoutStack
-    (\ s l -> s { _psLayoutStack = l })
-
-lexer :: P (Located RlpToken)
-lexer = P $ \st -> (st,) <$> lexToken
-
-lexerCont :: (Located RlpToken -> P a) -> P a
-lexerCont = (lexer >>=)
-
-lexStream :: Alex [RlpToken]
-lexStream = do
-    t <- lexToken
-    case t of
-        Located _ TokenEOF  -> pure [TokenEOF]
-        Located _ a         -> (a:) <$> lexStream
-
-lexTest :: Text -> Either String [RlpToken]
-lexTest = flip runAlex lexStream
-
-lexToken :: Alex (Located RlpToken)
-lexToken = alexMonadScan
-
-getsAus :: (AlexUserState -> b) -> Alex b
-getsAus k = alexGetUserState <&> k
-
-useAus :: Getting a AlexUserState a -> Alex a
-useAus l = do
-    aus <- alexGetUserState
-    pure (aus ^. l)
-
-preuseAus :: Getting (First a) AlexUserState a -> Alex (Maybe a)
-preuseAus l = do
-    aus <- alexGetUserState
-    pure (aus ^? l)
-
-modifyingAus :: ASetter' AlexUserState a -> (a -> a) -> Alex () 
-modifyingAus l f = do
-    aus <- alexGetUserState
-    alexSetUserState (aus & l %~ f)
-
-indentLevel :: Alex Int
-indentLevel = do
-    inp <- alexGetInput
-    let col = inp ^. _1
-            & \ (AlexPn _ _ c) -> c
-    pure col
-
-cmpLayout :: Alex Ordering
-cmpLayout = do
-    i <- indentLevel
-    ctx <- preuseAus (ausLayoutStack . _head)
-    case ctx ^. non (Implicit 1) of
-        Implicit n -> pure (i `compare` n)
-        Explicit   -> pure GT
-
-insertToken :: RlpToken -> Alex (Located RlpToken)
-insertToken t = do
-    inp <- alexGetInput
-    pure (Located (inp ^. _1) t)
-
-insertSemicolon, insertLBrace, insertRBrace :: Alex (Located RlpToken)
-insertSemicolon = traceM "inserting semi"   >> insertToken TokenSemicolonV
-insertLBrace    = traceM "inserting lbrace" >> insertToken TokenLBraceV
-insertRBrace    = traceM "inserting rbrace" >> insertToken TokenRBraceV
-
--- pop the layout stack and jump to the popped return code
-popLayout :: Alex Layout
-popLayout = do
-    traceM "pop layout"
-    ctx <- preuseAus (ausLayoutStack . _head)
-    modifyingAus ausLayoutStack (drop 1)
-    case ctx of
-        Just l      -> pure l
-        Nothing     -> error "uhh"
-
-pushLayout :: Layout -> Alex ()
-pushLayout l = do
-    traceM "push layout"
-    modifyingAus ausLayoutStack (l:)
-
-pushLexState :: Alex ()
-pushLexState = do
-    undefined
-
-doBol :: AlexAction (Located RlpToken)
-doBol inp len = do
-    off <- cmpLayout
-    case off of
-        -- the line is aligned with the previous. it therefore belongs to the
-        -- same list
-        EQ -> insertSemicolon
-        -- the line is indented further than the previous, so we assume it is a
-        -- line continuation. ignore it and move on!
-        GT -> undefined -- alexSetStartCode one >> lexToken
-        -- the line is indented less than the previous, pop the layout stack and
-        -- insert a closing brace.
-        LT -> popLayout >> insertRBrace
-
-explicitLBrace, explicitRBrace :: AlexAction (Located RlpToken)
-
-explicitLBrace _ _ = do
-    pushLayout Explicit
-    insertToken TokenLBrace
-
-explicitRBrace _ _ = do
-    popLayout
-    insertToken TokenRBrace
-
-doLayout :: AlexAction (Located RlpToken)
-doLayout _ _ = do
-    i <- indentLevel
-    pushLayout (Implicit i)
-    traceM $ "layout " <> show i
-    insertLBrace
-
-}
-
diff --git a/src/Rlp/Lex.x.orig b/src/Rlp/Lex.x.orig
deleted file mode 100644
index 184e2c6..0000000
--- a/src/Rlp/Lex.x.orig
+++ /dev/null
@@ -1,327 +0,0 @@
-{
-{-# LANGUAGE ViewPatterns, LambdaCase #-}
-{-# LANGUAGE GeneralisedNewtypeDeriving #-}
-{-# LANGUAGE OverloadedStrings #-}
-module Rlp.Lex
-    ( P(..)
-    , RlpToken(..)
-    , Located(..)
-    , lexToken
-    , lexerCont
-    )
-    where
-import Codec.Binary.UTF8.String (encodeChar)
-import Control.Monad
-import Core.Syntax              (Name)
-import Data.Functor.Identity
-import Data.Char                (digitToInt)
-import Data.Monoid              (First)
-import Data.Maybe
-import Data.Text                (Text)
-import Data.Text                qualified as T
-import Data.Word
-import Data.Default
-import Lens.Micro.Mtl
-import Lens.Micro
-
-import Debug.Trace
-import Rlp.Parse.Types
-}
-
-$whitechar      = [ \t\n\r\f\v]
-
-$lower          = [a-z \_]
-$upper          = [A-Z]
-$alpha          = [$lower $upper]
-$digit          = 0-9
-
-$nl             = [\n\r]
-$white_no_nl    = $white # $nl
-
-$namechar       = [$alpha $digit \' \#]
-$reservedsym    = [\(\)\,\;\[\]\`\{\}]
-$asciisym       = [\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~\:]
-$namesym        = $asciisym # \;
-
-@reservedop =
-    "=" | \\ | "->" | "::" | "|"
-
-@varname   = $lower $namechar*
-@conname   = $upper $namechar*
-@varsym    = $namesym+
-@consym    = \: $namesym*
-
-
-@decimal   = $digit+
-
-rlp :-
-    
-    -- skip whitespace
-    $white_no_nl+       ;
-    -- TODO: don't treat operators like (-->) as comments
-    "--".*              ;
-
-<0>
-{
-    \n                  { beginPush bol }
-    @varname            { tokenWith TokenVarName }
-    @decimal            { tokenWith (TokenLitInt . readInt) }
-    @reservedop         { tokenWith readReservedOp }
-}
-
--- control characters
-<0>
-{
-    "{"                 { explicitLBrace }
-    "}"                 { explicitRBrace }
-    ";"                 { constToken TokenSemicolon }
-}
-
--- consume all whitespace leaving us at the beginning of the next non-empty
--- line. we then compare the indentation of that line to the enclosing layout
--- context and proceed accordingly
-<bol>
-{
-    $whitechar          ;
-    \n                  ;
-    ()                  { doBol }
-}
-
-<layout_top>
-{
-    \n                  ;
-    "{"                 { explicitLBrace `thenDo` popLexState }
-    ()                  { doLayout }
-}
-
-{
-
-readReservedOp :: Text -> RlpToken
-readReservedOp = \case
-    "="     -> TokenEquals
-    "\\"    -> TokenLambda
-    "->"    -> TokenArrow
-    "::"    -> TokenHasType
-    s       -> error (show s)
-
--- | @andBegin@, with the subtle difference that the start code is set
---   /after/ the action
-thenBegin :: LexerAction a -> Int -> LexerAction a
-thenBegin act c inp l = do
-    a <- act inp l
-    psLexState . _head .= c
-    pure a
-
-andBegin :: LexerAction a -> Int -> LexerAction a
-andBegin act c inp l = do
-    psLexState . _head .= c
-    act inp l
-
-beginPush :: Int -> LexerAction (Located RlpToken)
-beginPush n _ _ = pushLexState n >> lexToken
-
-alexGetByte :: AlexInput -> Maybe (Word8, AlexInput)
-alexGetByte inp = case inp ^. aiBytes of
-    [] -> do
-        (c,t) <- T.uncons (inp ^. aiSource)
-        let (b:bs) = encodeChar c
-                       -- tail the source
-            inp' = inp & aiSource .~ t
-                       -- record the excess bytes for successive calls
-                       & aiBytes .~ bs
-                       -- report the previous char
-                       & aiPrevChar .~ c
-                       -- update the position
-                       & aiPos %~ \ (ln,col) ->
-                                   if (inp ^. aiPrevChar) == '\n'
-                                   then (ln+1,1)
-                                   else (ln,col+1)
-        pure (b, inp')
-    
-    _ -> Just (head bs, inp')
-        where
-            (bs, inp') = inp & aiBytes <<%~ drop 1
-
-getInput :: P AlexInput
-getInput = use psInput
-
-takeInput :: Int -> AlexInput -> Text
-takeInput n inp = T.cons c cs
-    where
-        c = inp ^. aiPrevChar
-        cs = T.take (max 0 (n-1)) $ inp ^. aiSource
-
-getLexState :: P Int
-getLexState = use (psLexState . singular _head)
-
-alexInputPrevChar :: AlexInput -> Char
-alexInputPrevChar = view aiPrevChar
-
-pushLexState :: Int -> P ()
-pushLexState n = psLexState %= (n:)
-
-readInt :: Text -> Int
-readInt = T.foldr f 0 where
-    f c n = digitToInt c + 10*n
-
-constToken :: RlpToken -> LexerAction (Located RlpToken)
-constToken t inp l = do
-    pos <- use (psInput . aiPos)
-    pure (Located (pos,l) t)
-
-tokenWith :: (Text -> RlpToken) -> LexerAction (Located RlpToken)
-tokenWith tf inp l = do
-    pos <- getPos
-    let t = takeInput l inp
-    pure (Located (pos,l) (tf t))
-
-getPos :: P Position
-getPos = use (psInput . aiPos)
-
-alexEOF :: P (Located RlpToken)
-alexEOF = do
-    inp <- getInput
-    pure (Located undefined TokenEOF)
-
-execP :: P a -> ParseState -> Maybe a
-execP p st = runP p st & snd
-
-execP' :: P a -> Text -> Maybe a
-execP' p s = execP p st where
-    st = initParseState s
-
-initParseState :: Text -> ParseState
-initParseState s = ParseState
-    { _psLayoutStack = []
-    -- IMPORTANT: the initial state is `bol` to begin the top-level layout,
-    -- which then returns to state 0 which continues the normal lexing process.
-    , _psLexState = [layout_top,0]
-    , _psInput = initAlexInput s
-    }
-
-initAlexInput :: Text -> AlexInput
-<<<<<<< Updated upstream
-initAlexInput s = AlexInput
-    { _aiPrevChar   = '\0'
-=======
-initAlexInput t = AlexInput
-    { _aiPrevChar   = c
->>>>>>> Stashed changes
-    , _aiSource     = s
-    , _aiBytes      = []
-    , _aiPos        = (1,1)
-    }
-    where
-        (c,s) = fromJust $ T.uncons t
-        b = encodeChar c
-
-lexToken :: P (Located RlpToken)
-lexToken = do
-    inp <- getInput
-    c <- getLexState
-    st <- use id
-    traceM $ "st: " <> show st
-    case alexScan inp c of
-        AlexEOF -> pure $ Located (inp ^. aiPos, 0) TokenEOF
-        AlexSkip inp' l -> do
-            psInput .= inp'
-            lexToken
-        AlexToken inp' l act -> do
-            psInput .= inp'
-            traceShowM inp'
-            act inp l
-
-lexerCont :: (Located RlpToken -> P a) -> P a
-lexerCont = undefined
-
-lexStream :: P [RlpToken]
-lexStream = do
-    t <- lexToken
-    case t of
-        Located _ TokenEOF -> pure [TokenEOF]
-        Located _ t        -> (t:) <$> lexStream
-
-lexTest :: Text -> Maybe [RlpToken]
-lexTest s = execP' lexStream s
-
-indentLevel :: P Int
-indentLevel = do
-    pos <- use (psInput . aiPos)
-    pure (pos ^. _2)
-
-insertToken :: RlpToken -> P (Located RlpToken)
-insertToken t = do
-    pos <- use (psInput . aiPos)
-    pure (Located (pos, 0) t)
-
-popLayout :: P Layout
-popLayout = do
-    traceM "pop layout"
-    ctx <- preuse (psLayoutStack . _head)
-    psLayoutStack %= (drop 1)
-    case ctx of
-        Just l      -> pure l
-        Nothing     -> error "uhh"
-
-pushLayout :: Layout -> P ()
-pushLayout l = do
-    traceM "push layout"
-    psLayoutStack %= (l:)
-
-popLexState :: P ()
-popLexState = do
-    psLexState %= tail
-
-insertSemicolon, insertLBrace, insertRBrace :: P (Located RlpToken)
-insertSemicolon = traceM "inserting semi"   >> insertToken TokenSemicolonV
-insertLBrace    = traceM "inserting lbrace" >> insertToken TokenLBraceV
-insertRBrace    = traceM "inserting rbrace" >> insertToken TokenRBraceV
-
-cmpLayout :: P Ordering
-cmpLayout = do
-    i <- indentLevel
-    ctx <- preuse (psLayoutStack . _head)
-    case ctx of
-        Just (Implicit n) -> pure (i `compare` n)
-        _                 -> pure GT
-
-doBol :: LexerAction (Located RlpToken)
-doBol inp l = do
-    off <- cmpLayout
-    i <- indentLevel
-    traceM $ "i: " <> show i
-    -- important that we pop the lex state lest we find our lexer diverging
-    popLexState
-    case off of
-        -- the line is aligned with the previous. it therefore belongs to the
-        -- same list
-        EQ -> insertSemicolon
-        -- the line is indented further than the previous, so we assume it is a
-        -- line continuation. ignore it and move on!
-        GT -> lexToken
-        -- the line is indented less than the previous, pop the layout stack and
-        -- insert a closing brace.
-        LT -> popLayout >> insertRBrace
-
-thenDo :: LexerAction a -> P b -> LexerAction a
-thenDo act p inp l = act inp l <* p
-
-explicitLBrace :: LexerAction (Located RlpToken)
-explicitLBrace inp l = do
-    pushLayout Explicit
-    constToken TokenLBrace inp l
-
-explicitRBrace :: LexerAction (Located RlpToken)
-explicitRBrace inp l = do
-    popLayout
-    constToken TokenRBrace inp l
-
-doLayout :: LexerAction (Located RlpToken)
-doLayout _ _ = do
-    i <- indentLevel
-    pushLayout (Implicit i)
-    popLexState
-    insertLBrace
-
-}
-
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 8152f66..cd29a1f 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -1,18 +1,19 @@
 {
 module Rlp.Parse
     ( parseRlpProgram
-    , parseTest
     )
     where
 import Rlp.Lex
 import Rlp.Syntax
 import Rlp.Parse.Types
+import Rlp.Parse.Associate
+import Lens.Micro.Mtl
+import Data.List.Extra
 import Data.Fix
 import Data.Functor.Const
 }
 
 %name parseRlpProgram StandaloneProgram
-%name parseTest VL
 
 %monad { P }
 %lexer { lexDebug } { Located _ TokenEOF }
@@ -27,17 +28,22 @@ import Data.Functor.Const
     '='             { Located _ TokenEquals }
     '|'             { Located _ TokenPipe }
     ';'             { Located _ TokenSemicolon }
+    '('             { Located _ TokenLParen }
+    ')'             { Located _ TokenRParen }
+    '->'            { Located _ TokenArrow }
     vsemi           { Located _ TokenSemicolonV }
     '{'             { Located _ TokenLBrace }
     '}'             { Located _ TokenRBrace }
     vlbrace         { Located _ TokenLBraceV }
     vrbrace         { Located _ TokenRBraceV }
 
+%right '->'
+
 %%
 
-StandaloneProgram   :: { [PartialDecl'] }
-StandaloneProgram   : '{' Decls '}'         { $2 }
-                    | VL  Decls VR          { $2 }
+StandaloneProgram   :: { RlpProgram' }
+StandaloneProgram   : '{' Decls  '}'        {% mkProgram $2 }
+                    | VL  DeclsV VR         {% mkProgram $2 }
 
 VL  :: { () }
 VL  : vlbrace       { () }
@@ -47,12 +53,14 @@ VR  : vrbrace       { () }
     | error         { () }
 
 Decls               :: { [PartialDecl'] }
-Decls               : Decl VS Decls         { $1 : $3 }
-                    | Decl VS               { [$1] }
+Decls               : Decl ';' Decls        { $1 : $3 }
+                    | Decl ';'              { [$1] }
                     | Decl                  { [$1] }
 
-Semi                :: { Located RlpToken }
-Semi                : ';'                   { $1 }
+DeclsV              :: { [PartialDecl'] }
+DeclsV              : Decl VS Decls         { $1 : $3 }
+                    | Decl VS               { [$1] }
+                    | Decl                  { [$1] }
 
 VS                  :: { Located RlpToken }
 VS                  : ';'                   { $1 }
@@ -60,22 +68,66 @@ VS                  : ';'                   { $1 }
 
 Decl        :: { PartialDecl' }
 Decl        : FunDecl                   { $1 }
+            | DataDecl                  { $1 }
+
+DataDecl    :: { PartialDecl' }
+            : data Con TyParams '=' DataCons    { DataD $2 $3 $5 }
+
+TyParams    :: { [Name] }
+            : {- epsilon -}             { [] }
+            | TyParams varname          { $1 `snoc` $2 }
+
+DataCons    :: { [ConAlt] }
+            : DataCons '|' DataCon      { $1 `snoc` $3 }
+            | DataCon                   { [$1] }
+
+DataCon     :: { ConAlt }
+            : Con Type1s                { ConAlt $1 $2 }
+
+Type1s      :: { [Type] }
+            : {- epsilon -}             { [] }
+            | Type1s Type1              { $1 `snoc` $2 }
+
+Type1       :: { Type }
+            : '(' Type ')'              { $2 }
+            | conname                   { TyCon $1 }
+            | varname                   { TyVar $1 }
+
+Type        :: { Type }
+            : Type '->' Type            { $1 :-> $3 }
+            | Type1                     { $1 }
 
 FunDecl     :: { PartialDecl' }
-FunDecl     : Var '=' Expr              { FunD $1 [] (Const $3) Nothing }
+FunDecl     : Var Params '=' Expr       { FunD $1 $2 (Const $4) Nothing }
+
+Params      :: { [Pat'] }
+Params      : {- epsilon -}             { [] }
+            | Params Pat1               { $1 `snoc` $2 }
+
+Pat1        :: { Pat' }
+            : Var                       { VarP $1 }
+            | Lit                       { LitP $1 }
 
 Expr        :: { PartialExpr' }
-Expr        : Literal                   { Fix . E $ LitEF $1 }
+Expr        : Lit                       { Fix . E $ LitEF $1 }
             | Var                       { Fix . E $ VarEF $1 }
 
-Literal     :: { Lit' }
-Literal     : litint                    { IntL $1 }
+Lit         :: { Lit' }
+Lit         : litint                    { IntL $1 }
 
 Var         :: { VarId }
 Var         : varname                   { NameVar $1 }
 
+Con         :: { ConId }
+            : conname                   { NameCon $1 }
+
 {
 
+mkProgram :: [PartialDecl'] -> P RlpProgram'
+mkProgram ds = do
+    pt <- use psOpTable
+    pure $ RlpProgram (associate pt <$> ds)
+
 parseError :: Located RlpToken -> P a
 parseError = error . show
 
diff --git a/src/Rlp/Parse/Associate.hs b/src/Rlp/Parse/Associate.hs
new file mode 100644
index 0000000..837a81a
--- /dev/null
+++ b/src/Rlp/Parse/Associate.hs
@@ -0,0 +1,99 @@
+{-# LANGUAGE PatternSynonyms, ViewPatterns, ImplicitParams #-}
+module Rlp.Parse.Associate
+    ( associate
+    )
+    where
+--------------------------------------------------------------------------------
+import Data.HashMap.Strict              qualified as H
+import Data.Functor.Foldable
+import Data.Functor.Const
+import Lens.Micro
+import Rlp.Parse.Types
+import Rlp.Syntax
+--------------------------------------------------------------------------------
+
+associate :: OpTable -> PartialDecl' -> Decl' RlpExpr
+associate pt (FunD n as b w)    = FunD n as b' w
+    where b' = let ?pt = pt in completeExpr (getConst b)
+associate pt (TySigD ns t)      = TySigD ns t
+associate pt (DataD n as cs)    = DataD n as cs
+associate pt (InfixD a p n)     = InfixD a p n
+
+completeExpr :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
+completeExpr = cata completePartial
+
+completePartial :: (?pt :: OpTable) => PartialE -> RlpExpr'
+completePartial (E e)        = completeRlpExpr e
+completePartial p@(B o l r)  = completeB (build p)
+completePartial (Par e)      = completePartial e
+
+completeRlpExpr :: (?pt :: OpTable) => RlpExprF' RlpExpr' -> RlpExpr'
+completeRlpExpr = embed
+
+completeB :: (?pt :: OpTable) => PartialE -> RlpExpr'
+completeB p = case build p of
+    B o l r     -> (o' `AppE` l') `AppE` r'
+        where
+            -- TODO: how do we know it's symbolic?
+            o' = VarE (SymVar o)
+            l' = completeB l
+            r' = completeB r
+    Par e       -> completeB e
+    E e         -> completeRlpExpr e
+
+build :: (?pt :: OpTable) => PartialE -> PartialE
+build e = go id e (rightmost e) where
+    rightmost :: PartialE -> PartialE
+    rightmost (B _ _ r) = rightmost r
+    rightmost p@(E _)   = p
+    rightmost p@(Par _) = p
+
+    go :: (?pt :: OpTable)
+       => (PartialE -> PartialE)
+       -> PartialE -> PartialE -> PartialE
+    go f p@(WithInfo o _ r) = case r of
+            E _     -> mkHole o (f . f')
+            Par _   -> mkHole o (f . f')
+            B _ _ _ -> go (mkHole o (f . f')) r
+        where f' r' = p & pR .~ r'
+    go f _ = id
+
+mkHole :: (?pt :: OpTable)
+       => OpInfo
+       -> (PartialE -> PartialE)
+       -> PartialE
+       -> PartialE
+mkHole _     hole p@(Par _)                 = hole p
+mkHole _     hole p@(E _)                   = hole p
+mkHole (a,d) hole p@(WithInfo (a',d') _ _)
+    | d' < d  = above
+    | d' > d  = below
+    | d == d' = case (a,a') of
+                  -- left-associative operators of equal precedence are
+                  -- associated left
+                  (InfixL,InfixL) -> above
+                  -- right-associative operators are handled similarly
+                  (InfixR,InfixR) -> below
+                  -- non-associative operators of equal precedence, or equal
+                  -- precedence operators of different associativities are
+                  -- invalid
+                  (_,     _)      -> error "invalid expression"
+    where
+        above = p & pL %~ hole
+        below = hole p
+
+examplePrecTable :: OpTable
+examplePrecTable = H.fromList
+    [ ("+",    (InfixL,6))
+    , ("*",    (InfixL,7))
+    , ("^",    (InfixR,8))
+    , (".",    (InfixR,7))
+    , ("~",    (Infix, 9))
+    , ("=",    (Infix, 4))
+    , ("&&",   (Infix, 3))
+    , ("||",   (Infix, 2))
+    , ("$",    (InfixR,0))
+    , ("&",    (InfixL,0))
+    ]
+
+
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 2ec6079..d53009a 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -58,6 +58,8 @@ data RlpToken
     | TokenSemicolon
     | TokenLBrace
     | TokenRBrace
+    | TokenLParen
+    | TokenRParen
     -- 'virtual' control symbols, inserted by the lexer without any correlation
     -- to a specific symbol
     | TokenSemicolonV
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 18de5a1..a79c496 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -55,6 +55,7 @@ data RlpModule b = RlpModule
     }
 
 newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
+    deriving Show
 
 type RlpProgram' = RlpProgram Name
 
-- 
2.52.0


From 5ec625e0fd0558f6ef6e17dfc9d06f9bc0919bf0 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 15 Jan 2024 15:20:04 -0700
Subject: [PATCH 086/192] i really need to learn git proper

---
 src/.DS_Store              | Bin 6148 -> 0 bytes
 src/Rlp/Parse/Associate.hs |   1 +
 2 files changed, 1 insertion(+)
 delete mode 100644 src/.DS_Store

diff --git a/src/.DS_Store b/src/.DS_Store
deleted file mode 100644
index 4390780d02bbee1b3430a6fac093424b3e29cf90..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 6148
zcmZQzU|@7AO)+F(5MW?n;9!8zj35RBCIAV8Fop~hR0Kpbg3L%NFD^*R$xmWnVAu|o
z8|)Ow?JNw=4EYR245`TOPb$dCEG{uHxW>rD%)-jX&cV*X%@G@%kzXEMl2}q&?37p(
z4dR95=jSBB*ojGDnW^RR0wT`&c_oRNd8tJpCBc~~sY!`NG2xkcDf#72`K5U&#bCWq
z2@XyU&UgXw>S{9+V;u!Uqgow>YBM8K9R+h!quN?d4pC)&>!A4ToZP(pPDpq%GD2tu
zUMLNtx)>N3;NB?<F3QWv&r1hIH%!4OJsJX|Aut*OqaiRF0?<l?gL^b6MnhmU1V%#u
zEd)U2g95bi=m4b~AT&sdfsug$)O-ffEHJI$egH%bNGnJVq!mPiv@$S)SYUauRt81}
zh*m~$H-v$K5!@vK(O~Tij0|Ay42%q5?F_J%FC#=d10zH`1FZAH2<p**%!g=aV1#Ig
zId7C64S~@RfQA4wgcbnR|E>)1ECdl9B}YSGGz3OO2r#m^1iLtaDoq^T1=Y2n`ZNJ5
w532nk)iJ1|Mr{NzK?W2hph`j2JxD8v23N(543L_9v>^Zsp;3A?1n3_E0Pc55)&Kwi

diff --git a/src/Rlp/Parse/Associate.hs b/src/Rlp/Parse/Associate.hs
index 837a81a..7446589 100644
--- a/src/Rlp/Parse/Associate.hs
+++ b/src/Rlp/Parse/Associate.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE PatternSynonyms, ViewPatterns, ImplicitParams #-}
 module Rlp.Parse.Associate
     ( associate
-- 
2.52.0


From 7e6bee3d4af31be28be3afba9ef062135a54fa69 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 17 Jan 2024 10:08:57 -0700
Subject: [PATCH 087/192] infix exprs

---
 Makefile_happysrcs     |  2 +-
 rlp.cabal              |  1 +
 src/Rlp/Lex.x          |  2 ++
 src/Rlp/Parse.y        | 52 ++++++++++++++++++++++++++++++++++++++----
 src/Rlp/Parse/Types.hs |  3 +++
 5 files changed, 54 insertions(+), 6 deletions(-)

diff --git a/Makefile_happysrcs b/Makefile_happysrcs
index e0dc43e..a535179 100644
--- a/Makefile_happysrcs
+++ b/Makefile_happysrcs
@@ -1,5 +1,5 @@
 HAPPY = happy
-HAPPY_OPTS = -a -g -c
+HAPPY_OPTS = -a -g -c -d -i/tmp/happy-info
 ALEX = alex
 ALEX_OPTS = -g
 
diff --git a/rlp.cabal b/rlp.cabal
index dc47c0d..59867dc 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -12,6 +12,7 @@ category:           Language
 build-type:         Simple
 extra-doc-files:    README.md
 -- extra-source-files:
+tested-with:        GHC==9.6.2
 
 common warnings
 --    ghc-options: -Wall -Wno-incomplete-uni-patterns -Wno-unused-top-binds
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 55b0191..6fd2428 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -90,6 +90,8 @@ $white_no_nl+       ;
 -- control characters
 <0>
 {
+    "("                 { constToken TokenLParen }
+    ")"                 { constToken TokenRParen }
     "{"                 { explicitLBrace }
     "}"                 { explicitRBrace }
     ";"                 { constToken TokenSemicolon }
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index cd29a1f..edc4874 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -1,28 +1,33 @@
 {
+{-# LANGUAGE LambdaCase #-}
 module Rlp.Parse
-    ( parseRlpProgram
+    ( parseRlpProg
     )
     where
 import Rlp.Lex
 import Rlp.Syntax
 import Rlp.Parse.Types
 import Rlp.Parse.Associate
+import Lens.Micro
 import Lens.Micro.Mtl
+import Lens.Micro.Platform          ()
 import Data.List.Extra
 import Data.Fix
 import Data.Functor.Const
 }
 
-%name parseRlpProgram StandaloneProgram
+%name parseRlpProg StandaloneProgram
 
 %monad { P }
-%lexer { lexDebug } { Located _ TokenEOF }
+%lexer { lexCont } { Located _ TokenEOF }
 %error { parseError }
 %tokentype { Located RlpToken }
 
 %token
     varname         { Located _ (TokenVarName $$) }
     conname         { Located _ (TokenConName $$) }
+    consym          { Located _ (TokenConSym $$) }
+    varsym          { Located _ (TokenVarSym $$) }
     data            { Located _ TokenData }
     litint          { Located _ (TokenLitInt $$) }
     '='             { Located _ TokenEquals }
@@ -36,6 +41,9 @@ import Data.Functor.Const
     '}'             { Located _ TokenRBrace }
     vlbrace         { Located _ TokenLBraceV }
     vrbrace         { Located _ TokenRBraceV }
+    infixl          { Located _ TokenInfixL }
+    infixr          { Located _ TokenInfixR }
+    infix           { Located _ TokenInfix }
 
 %right '->'
 
@@ -67,8 +75,17 @@ VS                  : ';'                   { $1 }
                     | vsemi                 { $1 }
 
 Decl        :: { PartialDecl' }
-Decl        : FunDecl                   { $1 }
+            : FunDecl                   { $1 }
             | DataDecl                  { $1 }
+            | InfixDecl                 { $1 }
+
+InfixDecl   :: { PartialDecl' }
+            : InfixWord litint InfixOp  {% mkInfixD $1 $2 $3 }
+
+InfixWord   :: { Assoc }
+            : infixl                    { InfixL }
+            | infixr                    { InfixR }
+            | infix                     { Infix  }
 
 DataDecl    :: { PartialDecl' }
             : data Con TyParams '=' DataCons    { DataD $2 $3 $5 }
@@ -109,9 +126,24 @@ Pat1        :: { Pat' }
             | Lit                       { LitP $1 }
 
 Expr        :: { PartialExpr' }
-Expr        : Lit                       { Fix . E $ LitEF $1 }
+            : Expr1 varsym Expr         { Fix $ B $2 (unFix $1) (unFix $3) }
+            | Expr1                     { $1 }
+
+Expr1       :: { PartialExpr' }
+            : '(' Expr ')'              { wrapFix . Par . unwrapFix $ $2 }
+            | Lit                       { Fix . E $ LitEF $1 }
             | Var                       { Fix . E $ VarEF $1 }
 
+-- TODO: happy prefers left-associativity. doing such would require adjusting
+-- the code in Rlp.Parse.Associate to expect left-associative input rather than
+-- right.
+InfixExpr   :: { PartialExpr' }
+            : Expr1 varsym Expr         { Fix $ B $2 (unFix $1) (unFix $3) }
+
+InfixOp     :: { Name }
+            : consym                    { $1 }
+            | varsym                    { $1 }
+
 Lit         :: { Lit' }
 Lit         : litint                    { IntL $1 }
 
@@ -131,4 +163,14 @@ mkProgram ds = do
 parseError :: Located RlpToken -> P a
 parseError = error . show
 
+mkInfixD :: Assoc -> Int -> Name -> P PartialDecl'
+mkInfixD a p n = do
+    let opl :: Lens' ParseState (Maybe OpInfo)
+        opl = psOpTable . at n
+    opl <~ (use opl >>= \case
+        -- TODO: non-fatal error
+        Just o  -> pure (Just o)
+        Nothing -> pure (Just (a,p))
+        )
+    pure $ InfixD a p n
 }
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index d53009a..718a9e5 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -48,6 +48,9 @@ data RlpToken
     | TokenOf
     | TokenLet
     | TokenIn
+    | TokenInfixL
+    | TokenInfixR
+    | TokenInfix
     -- reserved ops
     | TokenArrow
     | TokenPipe
-- 
2.52.0


From d5663c1aadf235ef60c94d3671a83ba26d84234e Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 17 Jan 2024 10:11:48 -0700
Subject: [PATCH 088/192] remove debug flags

---
 Makefile_happysrcs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Makefile_happysrcs b/Makefile_happysrcs
index a535179..e0dc43e 100644
--- a/Makefile_happysrcs
+++ b/Makefile_happysrcs
@@ -1,5 +1,5 @@
 HAPPY = happy
-HAPPY_OPTS = -a -g -c -d -i/tmp/happy-info
+HAPPY_OPTS = -a -g -c
 ALEX = alex
 ALEX_OPTS = -g
 
-- 
2.52.0


From d6ac991105a6e3ad89858eb1c39367a894b93cb8 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 17 Jan 2024 10:19:16 -0700
Subject: [PATCH 089/192] renamerlp

---
 src/{RLP => rlp2}/Syntax.hs | 0
 1 file changed, 0 insertions(+), 0 deletions(-)
 rename src/{RLP => rlp2}/Syntax.hs (100%)

diff --git a/src/RLP/Syntax.hs b/src/rlp2/Syntax.hs
similarity index 100%
rename from src/RLP/Syntax.hs
rename to src/rlp2/Syntax.hs
-- 
2.52.0


From 4e1c9dd750049fead7bf97fdf3142f274548f13f Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 17 Jan 2024 10:19:48 -0700
Subject: [PATCH 090/192] rename rlp

---
 src/{rlp2 => Rlp}/Syntax.hs | 0
 1 file changed, 0 insertions(+), 0 deletions(-)
 rename src/{rlp2 => Rlp}/Syntax.hs (100%)

diff --git a/src/rlp2/Syntax.hs b/src/Rlp/Syntax.hs
similarity index 100%
rename from src/rlp2/Syntax.hs
rename to src/Rlp/Syntax.hs
-- 
2.52.0


From f47f325e34064da0dbe0a18e11576c4e741cce86 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 19 Jan 2024 14:09:26 -0700
Subject: [PATCH 091/192] compiles (kill me)

man
---
 src/Compiler/JustRun.hs       | 11 ++---
 src/Compiler/RLPC.hs          | 78 ++++++-----------------------------
 src/Compiler/RlpcError.hs     | 34 ++++++++++++---
 src/Control/Monad/Errorful.hs | 48 +++++++++------------
 src/Core/Examples.hs          |  8 ++++
 src/Core/HindleyMilner.hs     | 11 +++--
 src/Core/Lex.x                | 25 +++++------
 src/Core/Parse.y              | 52 +++++++++++------------
 src/Core/TH.hs                | 31 +++++---------
 9 files changed, 126 insertions(+), 172 deletions(-)

diff --git a/src/Compiler/JustRun.hs b/src/Compiler/JustRun.hs
index df28db5..c3178f3 100644
--- a/src/Compiler/JustRun.hs
+++ b/src/Compiler/JustRun.hs
@@ -26,21 +26,22 @@ import Data.Function                    ((&))
 import GM
 ----------------------------------------------------------------------------------
 
-justLexSrc :: String -> Either RlpcError [CoreToken]
+-- justLexSrc :: String -> Either RlpcError [CoreToken]
 justLexSrc s = lexCoreR (T.pack s)
              & fmap (map $ \ (Located _ _ _ t) -> t)
              & rlpcToEither
 
-justParseSrc :: String -> Either RlpcError Program'
+-- justParseSrc :: String -> Either RlpcError Program'
 justParseSrc s = parse (T.pack s)
                & rlpcToEither
     where parse = lexCoreR >=> parseCoreProgR
 
-justTypeCheckSrc :: String -> Either RlpcError Program'
+-- justTypeCheckSrc :: String -> Either RlpcError Program'
 justTypeCheckSrc s = typechk (T.pack s)
                    & rlpcToEither
     where typechk = lexCoreR >=> parseCoreProgR >=> checkCoreProgR
 
-rlpcToEither :: RLPC e a -> Either e a
-rlpcToEither = evalRLPC def >>> fmap fst
+rlpcToEither = undefined
+
+{-# WARNING rlpcToEither "unimpl" #-}
 
diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 266e06a..518e9fb 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -17,8 +17,6 @@ module Compiler.RLPC
     , RLPCIO
     , RLPCOptions(RLPCOptions)
     , RlpcError(..)
-    , IsRlpcError(..)
-    , rlpc
     , addFatal
     , addWound
     , MonadErrorful
@@ -27,9 +25,6 @@ module Compiler.RLPC
     , evalRLPCT
     , evalRLPCIO
     , evalRLPC
-    , addRlpcWound
-    , addRlpcFatal
-    , liftRlpcErrs
     , rlpcLogFile
     , rlpcDebugOpts
     , rlpcEvaluator
@@ -60,46 +55,25 @@ import Lens.Micro
 import Lens.Micro.TH
 ----------------------------------------------------------------------------------
 
--- TODO: fancy errors
-newtype RLPCT e m a = RLPCT {
-        runRLPCT :: ReaderT RLPCOptions (ErrorfulT e m) a
+newtype RLPCT m a = RLPCT {
+        runRLPCT :: forall e. (RlpcError e)
+                 => ReaderT RLPCOptions (ErrorfulT e m) a
     }
-    -- TODO: incorrect ussage of MonadReader. RLPC should have its own
-    -- environment access functions
-    deriving (Functor, Applicative, Monad, MonadReader RLPCOptions)
 
-deriving instance (MonadIO m) => MonadIO (RLPCT e m)
+type RLPC = RLPCT Identity
 
-instance MonadTrans (RLPCT e) where
-    lift = RLPCT . lift . lift
+type RLPCIO = RLPCT IO
 
-instance (MonadState s m) => MonadState s (RLPCT e m) where
-    state = lift . state
+instance Functor (RLPCT m) where
+instance Applicative (RLPCT m) where
+instance Monad (RLPCT m) where
 
-type RLPC e = RLPCT e Identity
+evalRLPC = undefined
+evalRLPCT = undefined
+evalRLPCIO = undefined
 
-type RLPCIO e = RLPCT e IO
-
-evalRLPCT :: RLPCOptions
-          -> RLPCT e m a
-          -> m (Either e (a, [e]))
-evalRLPCT o = runRLPCT >>> flip runReaderT o >>> runErrorfulT
-
-evalRLPC :: RLPCOptions
-         -> RLPC e a
-         -> Either e (a, [e])
-evalRLPC o m = coerce $ evalRLPCT o m
-
-evalRLPCIO :: (Exception e)
-           => RLPCOptions
-           -> RLPCIO e a
-           -> IO (a, [e])
-evalRLPCIO o m = do
-    m' <- evalRLPCT o m
-    case m' of
-        -- TODO: errors
-        Left e -> throwIO e
-        Right a -> pure a
+liftErrorful :: (RlpcError e) => ErrorfulT e m a -> RLPCT m a
+liftErrorful e = undefined
 
 data RLPCOptions = RLPCOptions
     { _rlpcLogFile     :: Maybe FilePath
@@ -113,32 +87,6 @@ data RLPCOptions = RLPCOptions
 data Evaluator = EvaluatorGM | EvaluatorTI
     deriving Show
 
-data Severity = Error
-              | Warning
-              | Debug
-              deriving Show
-
--- temporary until we have a new doc building system
-type ErrorDoc = String
-
-instance (Monad m) => MonadErrorful e (RLPCT e m) where
-    addWound = RLPCT . lift . addWound
-    addFatal = RLPCT . lift . addFatal
-
-liftRlpcErrs :: (IsRlpcError e, Monad m)
-             => RLPCT e m a -> RLPCT RlpcError m a
-liftRlpcErrs m = RLPCT . ReaderT $ \r ->
-    mapErrors liftRlpcErr $ runRLPCT >>> (`runReaderT` r) $ m
-
-addRlpcWound :: (IsRlpcError e, Monad m) => e -> RLPCT RlpcError m ()
-addRlpcWound = addWound . liftRlpcErr
-
-addRlpcFatal :: (IsRlpcError e, Monad m) => e -> RLPCT RlpcError m ()
-addRlpcFatal = addWound . liftRlpcErr
-
-rlpc :: (Monad m) => ErrorfulT e m a -> RLPCT e m a
-rlpc = RLPCT . ReaderT . const
-
 ----------------------------------------------------------------------------------
 
 instance Default RLPCOptions where
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index 581d301..cd53964 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -1,15 +1,39 @@
+{-# LANGUAGE TemplateHaskell #-}
 module Compiler.RlpcError
     ( RlpcError(..)
-    , IsRlpcError(..)
+    , MsgEnvelope(..)
+    , Severity
+    , RlpcErrorDoc(..)
+    , SrcSpan(..)
+    , msgSpan
+    , msgDiagnostic
+    , msgSeverity
     )
     where
 ----------------------------------------------------------------------------------
 import Control.Monad.Errorful
+import Lens.Micro.TH
 ----------------------------------------------------------------------------------
 
-data RlpcError = RlpcErr String -- temp
-    deriving Show
+data MsgEnvelope = MsgEnvelope
+   { _msgSpan        :: SrcSpan
+   , _msgDiagnostic  :: forall e. (RlpcError e) => e
+   , _msgSeverity    :: Severity
+   }
 
-class IsRlpcError a where
-    liftRlpcErr :: a -> RlpcError
+class RlpcError e where
+    liftRlpcError :: e -> RlpcErrorDoc
+
+data RlpcErrorDoc
+
+data Severity = SevWarning
+              | SevError
+              deriving Show
+
+data SrcSpan = SrcSpan
+    !Int -- ^ Line
+    !Int -- ^ Column
+    !Int -- ^ Length
+
+makeLenses ''MsgEnvelope
 
diff --git a/src/Control/Monad/Errorful.hs b/src/Control/Monad/Errorful.hs
index 789a4ad..2f75269 100644
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -14,60 +14,52 @@ module Control.Monad.Errorful
 import Control.Monad.Trans
 import Data.Functor.Identity
 import Data.Coerce
+import Data.HashSet             (HashSet)
+import Data.HashSet             qualified as H
 import Lens.Micro
 ----------------------------------------------------------------------------------
 
-newtype ErrorfulT e m a = ErrorfulT { runErrorfulT :: m (Either e (a, [e])) }
+newtype ErrorfulT e m a = ErrorfulT { runErrorfulT :: m (Maybe a, [e]) }
 
 type Errorful e = ErrorfulT e Identity
 
-pattern Errorful :: (Either e (a, [e])) -> Errorful e a
+pattern Errorful :: (Maybe a, [e]) -> Errorful e a
 pattern Errorful a = ErrorfulT (Identity a)
 
-runErrorful :: Errorful e a -> Either e (a, [e])
+runErrorful :: Errorful e a -> (Maybe a, [e])
 runErrorful m = coerce (runErrorfulT m)
 
 class (Applicative m) => MonadErrorful e m | m -> e where
-    addWound   :: e -> m ()
-    addFatal   :: e -> m a
-
-    -- not sure if i want to add this yet...
-    -- catchWound :: m a -> (e -> m a) -> m a
+    addWound :: e -> m ()
+    addFatal :: e -> m a
 
 instance (Applicative m) => MonadErrorful e (ErrorfulT e m) where
-    addWound e = ErrorfulT $ pure . Right $ ((), [e])
-    addFatal e = ErrorfulT $ pure . Left  $ e
+    addWound e = ErrorfulT $ pure (Just (), [e])
+    addFatal e = ErrorfulT $ pure (Nothing, [e])
 
 instance MonadTrans (ErrorfulT e) where
-    lift m = ErrorfulT (Right . (,[]) <$> m)
+    lift m = ErrorfulT ((\x -> (Just x,[])) <$> m)
 
 instance (MonadIO m) => MonadIO (ErrorfulT e m) where
     liftIO = lift . liftIO
 
 instance (Functor m) => Functor (ErrorfulT e m) where
-    fmap f (ErrorfulT m) = ErrorfulT $ fmap (_1 %~ f) <$> m
+    fmap f (ErrorfulT m) = ErrorfulT (m & mapped . _1 . _Just %~ f)
 
 instance (Applicative m) => Applicative (ErrorfulT e m) where
-    pure a = ErrorfulT (pure . Right $ (a, []))
+    pure a = ErrorfulT . pure $ (Just a, [])
 
-    m <*> a = ErrorfulT (m' `apply` a')
-        where
-            m' = runErrorfulT m
-            a' = runErrorfulT a
-            -- TODO: strict concatenation
-            apply = liftA2 $ liftA2 (\ (f,e1) (x,e2) -> (f x, e1 ++ e2)) 
+    ErrorfulT m <*> ErrorfulT n = ErrorfulT $ m `apply` n where
+        apply :: m (Maybe (a -> b), [e]) -> m (Maybe a, [e]) -> m (Maybe b, [e])
+        apply = liftA2 $ \ (mf,e1) (ma,e2) -> (mf <*> ma, e1 <> e2)
 
 instance (Monad m) => Monad (ErrorfulT e m) where
     ErrorfulT m >>= k = ErrorfulT $ do
-        m' <- m
-        case m' of
-            Right (a,es) -> runErrorfulT (k a)
-            Left e       -> pure (Left e)
+        (a,es) <- m
+        case a of
+            Just x      -> runErrorfulT (k x)
+            Nothing     -> pure (Nothing, es)
 
 mapErrors :: (Monad m) => (e -> e') -> ErrorfulT e m a -> ErrorfulT e' m a
-mapErrors f m = ErrorfulT $ do
-    x <- runErrorfulT m
-    case x of
-        Left  e      -> pure . Left  $ f e
-        Right (a,es) -> pure . Right $ (a, f <$> es)
+mapErrors f m = undefined
 
diff --git a/src/Core/Examples.hs b/src/Core/Examples.hs
index efe953d..39680a4 100644
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -15,6 +15,13 @@ import Core.Syntax
 import Core.TH
 ----------------------------------------------------------------------------------
 
+fac3 = undefined
+sumList = undefined
+constDivZero = undefined
+idCase = undefined
+
+{--
+
 letrecExample :: Program'
 letrecExample = [coreProg|
     pair x y f = f x y;
@@ -216,3 +223,4 @@ idCase = [coreProg|
 --         , ScDef "Cons" [] $ Con 2 2
 --         ]
 
+--}
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index d7277c4..ed01359 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -49,8 +49,7 @@ data TypeError
     deriving (Show, Eq)
 
 -- TODO:
-instance IsRlpcError TypeError where
-    liftRlpcErr = RlpcErr . show
+instance RlpcError TypeError where
 
 -- | Synonym for @Errorful [TypeError]@. This means an @HMError@ action may
 -- throw any number of fatal or nonfatal errors. Run with @runErrorful@.
@@ -88,10 +87,10 @@ checkCoreProg p = scDefs
              where scname = sc ^. _lhs._1
 
 -- | @checkCoreProgR p@ returns @p@ if @p@ successfully typechecks.
-checkCoreProgR :: Program' -> RLPC RlpcError Program'
-checkCoreProgR p = do
-    liftRlpcErrs . rlpc . checkCoreProg $ p
-    pure p
+-- checkCoreProgR :: Program' -> RLPC Program'
+checkCoreProgR = undefined
+
+{-# WARNING checkCoreProgR "unimpl" #-}
 
 -- | Infer the type of an expression under some context.
 --
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index d5cdc1e..d076206 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -167,24 +167,23 @@ lexWith :: (Text -> CoreToken) -> Lexer
 lexWith f (AlexPn _ y x,_,_,s) l = pure $ Located y x l (f $ T.take l s)
 
 -- | The main lexer driver.
-lexCore :: Text -> RLPC SrcError [Located CoreToken]
+lexCore :: Text -> RLPC [Located CoreToken]
 lexCore s = case m of
-    Left e   -> addFatal err
-        where err = SrcError
-                { _errSpan       = (0,0,0) -- TODO: location
-                , _errSeverity   = Error
-                , _errDiagnostic = SrcErrLexical e
-                }
+    Left e   -> undefined
     Right ts -> pure ts
     where
         m = runAlex s lexStream
 
-lexCoreR :: Text -> RLPC RlpcError [Located CoreToken]
-lexCoreR = liftRlpcErrs . lexCore
+{-# WARNING lexCore "unimpl" #-}
+
+lexCoreR :: Text -> RLPC [Located CoreToken]
+lexCoreR t = undefined
+
+{-# WARNING lexCoreR "unimpl" #-}
 
 -- | @lexCore@, but the tokens are stripped of location info. Useful for
 -- debugging
-lexCore' :: Text -> RLPC SrcError [CoreToken]
+lexCore' :: Text -> RLPC [CoreToken]
 lexCore' s = fmap f <$> lexCore s
     where f (Located _ _ _ t) = t
 
@@ -200,12 +199,10 @@ data ParseError = ParErrLexical String
                 deriving Show
 
 -- TODO:
-instance IsRlpcError SrcError where
-    liftRlpcErr = RlpcErr . show
+instance RlpcError SrcError where
 
 -- TODO:
-instance IsRlpcError ParseError where
-    liftRlpcErr = RlpcErr . show
+instance RlpcError ParseError where
 
 alexEOF :: Alex (Located CoreToken)
 alexEOF = Alex $ \ st@(AlexState { alex_pos = AlexPn _ y x }) ->
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 11e91be..abc6c70 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -10,7 +10,6 @@ module Core.Parse
     , parseCoreProg
     , parseCoreProgR
     , module Core.Lex -- temp convenience
-    , parseTmp
     , SrcError
     , Module
     )
@@ -34,7 +33,7 @@ import Data.HashMap.Strict  qualified as H
 %name parseCoreProg StandaloneProgram
 %tokentype { Located CoreToken }
 %error { parseError }
-%monad { RLPC SrcError }
+%monad { RLPC } { happyBind } { happyPure }
 
 %token
       let             { Located _ _ _ TokenLet }
@@ -189,34 +188,21 @@ Con             : '(' consym ')'                    { $2 }
 
 {
 
-parseError :: [Located CoreToken] -> RLPC SrcError a
-parseError (Located y x l _ : _) = addFatal err
-    where err = SrcError
-            { _errSpan       = (y,x,l)
-            , _errSeverity   = Error
-            , _errDiagnostic = SrcErrParse
-            }
+parseError :: [Located CoreToken] -> RLPC a
+parseError (Located y x l _ : _) = undefined
 
-parseTmp :: IO (Module Name)
-parseTmp = do
-    s <- TIO.readFile "/tmp/t.hs"
-    case parse s of
-        Left e -> error (show e)
-        Right (ts,_) -> pure ts
-    where
-        parse = evalRLPC def . (lexCore >=> parseCore)
+{-# WARNING parseError "unimpl" #-}
 
-exprPragma :: [String] -> RLPC SrcError (Expr Name)
-exprPragma ("AST" : e) = astPragma e
-exprPragma _           = addFatal err
-    where err = SrcError
-            { _errSpan       = (0,0,0) -- TODO: span
-            , _errSeverity   = Warning
-            , _errDiagnostic = SrcErrUnknownPragma "" -- TODO: missing pragma
-            }
+exprPragma :: [String] -> RLPC (Expr Name)
+exprPragma ("AST" : e) = undefined
+exprPragma _           = undefined
 
-astPragma :: [String] -> RLPC SrcError (Expr Name)
-astPragma = pure . read . unwords
+{-# WARNING exprPragma "unimpl" #-}
+
+astPragma :: [String] -> RLPC (Expr Name)
+astPragma _ = undefined
+
+{-# WARNING astPragma "unimpl" #-}
 
 insTypeSig :: (Hashable b) => (b, Type) -> Program b -> Program b
 insTypeSig ts = programTypeSigs %~ uncurry H.insert ts
@@ -230,8 +216,16 @@ insScDef sc = programScDefs %~ (sc:)
 singletonScDef :: (Hashable b) => ScDef b -> Program b
 singletonScDef sc = insScDef sc mempty
 
-parseCoreProgR :: [Located CoreToken] -> RLPC RlpcError Program'
-parseCoreProgR = liftRlpcErrs . parseCoreProg
+parseCoreProgR :: [Located CoreToken] -> RLPC Program'
+parseCoreProgR a = undefined
+
+{-# WARNING parseCoreProgR "unimpl" #-}
+
+happyBind :: RLPC a -> (a -> RLPC b) -> RLPC b
+happyBind m k = m >>= k
+
+happyPure :: a -> RLPC a
+happyPure a = pure a
 
 }
 
diff --git a/src/Core/TH.hs b/src/Core/TH.hs
index 7d85bf5..28bb9c6 100644
--- a/src/Core/TH.hs
+++ b/src/Core/TH.hs
@@ -19,6 +19,7 @@ import Data.Default.Class           (def)
 import Data.Text                    qualified as T
 import Core.Parse
 import Core.Lex
+import Core.Syntax                  (Expr(Var))
 import Core.HindleyMilner           (checkCoreProgR)
 ----------------------------------------------------------------------------------
 
@@ -58,30 +59,20 @@ coreProgT = QuasiQuoter
     }
 
 qCore :: String -> Q Exp
-qCore s = case parse (T.pack s) of
-    Left e       -> error (show e)
-    Right (m,ts) -> lift m
-    where
-        parse = evalRLPC def . (lexCore >=> parseCore)
+qCore s = undefined
+
+{-# WARNING qCore "unimpl" #-}
 
 qCoreExpr :: String -> Q Exp
-qCoreExpr s = case parseExpr (T.pack s) of
-    Left e       -> error (show e)
-    Right (m,ts) -> lift m
-    where
-        parseExpr = evalRLPC def . (lexCore >=> parseCoreExpr)
+qCoreExpr s = undefined
+
+{-# WARNING qCoreExpr "unimpl" #-}
 
 qCoreProg :: String -> Q Exp
-qCoreProg s = case parse (T.pack s) of
-    Left e       -> error (show e)
-    Right (m,ts) -> lift m
-    where
-        parse = evalRLPC def . (lexCoreR >=> parseCoreProgR)
+qCoreProg s = undefined
+
+{-# WARNING qCoreProg "unimpl" #-}
 
 qCoreProgT :: String -> Q Exp
-qCoreProgT s = case parse (T.pack s) of
-    Left e      -> error (show e)
-    Right (m,_) -> lift m
-    where
-        parse = evalRLPC def . (lexCoreR >=> parseCoreProgR >=> checkCoreProgR)
+qCoreProgT s = undefined
 
-- 
2.52.0


From 257d02da876e493c5f6f83449007a3057c381b66 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 21 Jan 2024 11:53:41 -0700
Subject: [PATCH 092/192] RlpcError -> IsRlpcError

---
 src/Compiler/RLPC.hs      |  6 +++---
 src/Compiler/RlpcError.hs | 14 +++++++-------
 src/Core/HindleyMilner.hs |  2 +-
 src/Core/Lex.x            |  4 ++--
 4 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 518e9fb..5acedc6 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -16,6 +16,7 @@ module Compiler.RLPC
     , RLPCT(..)
     , RLPCIO
     , RLPCOptions(RLPCOptions)
+    , IsRlpcError(..)
     , RlpcError(..)
     , addFatal
     , addWound
@@ -56,8 +57,7 @@ import Lens.Micro.TH
 ----------------------------------------------------------------------------------
 
 newtype RLPCT m a = RLPCT {
-        runRLPCT :: forall e. (RlpcError e)
-                 => ReaderT RLPCOptions (ErrorfulT e m) a
+        runRLPCT :: ReaderT RLPCOptions (ErrorfulT RlpcError m) a
     }
 
 type RLPC = RLPCT Identity
@@ -72,7 +72,7 @@ evalRLPC = undefined
 evalRLPCT = undefined
 evalRLPCIO = undefined
 
-liftErrorful :: (RlpcError e) => ErrorfulT e m a -> RLPCT m a
+liftErrorful :: ErrorfulT e m a -> RLPCT m a
 liftErrorful e = undefined
 
 data RLPCOptions = RLPCOptions
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index cd53964..755f05d 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -1,9 +1,9 @@
 {-# LANGUAGE TemplateHaskell #-}
 module Compiler.RlpcError
-    ( RlpcError(..)
+    ( IsRlpcError(..)
     , MsgEnvelope(..)
     , Severity
-    , RlpcErrorDoc(..)
+    , RlpcError(..)
     , SrcSpan(..)
     , msgSpan
     , msgDiagnostic
@@ -15,16 +15,16 @@ import Control.Monad.Errorful
 import Lens.Micro.TH
 ----------------------------------------------------------------------------------
 
-data MsgEnvelope = MsgEnvelope
+data MsgEnvelope e = MsgEnvelope
    { _msgSpan        :: SrcSpan
-   , _msgDiagnostic  :: forall e. (RlpcError e) => e
+   , _msgDiagnostic  :: e
    , _msgSeverity    :: Severity
    }
 
-class RlpcError e where
-    liftRlpcError :: e -> RlpcErrorDoc
+class IsRlpcError e where
+    liftRlpcError :: e -> RlpcError
 
-data RlpcErrorDoc
+data RlpcError
 
 data Severity = SevWarning
               | SevError
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index ed01359..12c7436 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -49,7 +49,7 @@ data TypeError
     deriving (Show, Eq)
 
 -- TODO:
-instance RlpcError TypeError where
+instance IsRlpcError TypeError where
 
 -- | Synonym for @Errorful [TypeError]@. This means an @HMError@ action may
 -- throw any number of fatal or nonfatal errors. Run with @runErrorful@.
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index d076206..1136409 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -199,10 +199,10 @@ data ParseError = ParErrLexical String
                 deriving Show
 
 -- TODO:
-instance RlpcError SrcError where
+instance IsRlpcError SrcError where
 
 -- TODO:
-instance RlpcError ParseError where
+instance IsRlpcError ParseError where
 
 alexEOF :: Alex (Located CoreToken)
 alexEOF = Alex $ \ st@(AlexState { alex_pos = AlexPn _ y x }) ->
-- 
2.52.0


From 1a881399ab64c2caa5b4d760a454c2fd28b1568b Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 21 Jan 2024 14:02:28 -0700
Subject: [PATCH 093/192] when the "Test suite rlp-test: PASS" hits

i'm like atlas and the world is writing two lines of code
---
 rlp.cabal                     |  3 ++
 src/Compiler/RLPC.hs          | 34 +++++++++++++++-----
 src/Compiler/RlpcError.hs     | 22 +++++++++++--
 src/Control/Monad/Errorful.hs | 11 +++++--
 src/Core/Examples.hs          | 10 +++---
 src/Core/HindleyMilner.hs     | 23 +++++++++++---
 src/Core/Lex.x                | 10 +++---
 src/Core/Parse.y              |  8 ++---
 src/Core/TH.hs                | 58 +++++++++--------------------------
 tst/Core/HindleyMilnerSpec.hs | 12 +++++---
 tst/Rlp/Parse/DeclsSpec.hs    |  0
 11 files changed, 112 insertions(+), 79 deletions(-)
 delete mode 100644 tst/Rlp/Parse/DeclsSpec.hs

diff --git a/rlp.cabal b/rlp.cabal
index 59867dc..a48324a 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -73,6 +73,9 @@ library
     hs-source-dirs:   src
     default-language: GHC2021
 
+    default-extensions:
+        OverloadedStrings
+
 executable rlpc
     import:           warnings
     main-is:          Main.hs
diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 5acedc6..0de0638 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -36,6 +36,7 @@ module Compiler.RLPC
     , flagDDumpOpts
     , flagDDumpAST
     , def
+    , liftErrorful
     )
     where
 ----------------------------------------------------------------------------------
@@ -47,6 +48,7 @@ import Control.Monad.Errorful
 import Compiler.RlpcError
 import Data.Functor.Identity
 import Data.Default.Class
+import Data.Foldable
 import GHC.Generics             (Generic)
 import Data.Hashable            (Hashable)
 import Data.HashSet             (HashSet)
@@ -54,26 +56,44 @@ import Data.HashSet             qualified as S
 import Data.Coerce
 import Lens.Micro
 import Lens.Micro.TH
+import System.Exit
 ----------------------------------------------------------------------------------
 
 newtype RLPCT m a = RLPCT {
         runRLPCT :: ReaderT RLPCOptions (ErrorfulT RlpcError m) a
     }
+    deriving (Functor, Applicative, Monad)
 
 type RLPC = RLPCT Identity
 
 type RLPCIO = RLPCT IO
 
-instance Functor (RLPCT m) where
-instance Applicative (RLPCT m) where
-instance Monad (RLPCT m) where
+evalRLPC :: RLPCOptions
+         -> RLPC a
+         -> (Maybe a, [RlpcError])
+evalRLPC opt r = runRLPCT r
+               & flip runReaderT opt
+               & runErrorful
 
-evalRLPC = undefined
+evalRLPCT :: (Monad m)
+          => RLPCOptions
+          -> RLPCT m a
+          -> m (Maybe a, [RlpcError])
 evalRLPCT = undefined
-evalRLPCIO = undefined
 
-liftErrorful :: ErrorfulT e m a -> RLPCT m a
-liftErrorful e = undefined
+evalRLPCIO :: RLPCOptions -> RLPCIO a -> IO a
+evalRLPCIO opt r = do
+    (ma,es) <- evalRLPCT opt r
+    putRlpcErrs es
+    case ma of
+        Just x  -> pure x
+        Nothing -> die "Failed, no code compiled."
+
+putRlpcErrs :: [RlpcError] -> IO ()
+putRlpcErrs = traverse_ print
+
+liftErrorful :: (Monad m, IsRlpcError e) => ErrorfulT e m a -> RLPCT m a
+liftErrorful e = RLPCT $ lift (liftRlpcErrors e)
 
 data RLPCOptions = RLPCOptions
     { _rlpcLogFile     :: Maybe FilePath
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index 755f05d..cff9375 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE PatternSynonyms, ViewPatterns #-}
 module Compiler.RlpcError
     ( IsRlpcError(..)
     , MsgEnvelope(..)
@@ -8,11 +9,16 @@ module Compiler.RlpcError
     , msgSpan
     , msgDiagnostic
     , msgSeverity
+    , liftRlpcErrors
     )
     where
 ----------------------------------------------------------------------------------
 import Control.Monad.Errorful
-import Lens.Micro.TH
+import Data.Text                (Text)
+import Data.Text                qualified as T
+import GHC.Exts                 (IsString(..))
+import Lens.Micro.Platform
+import Lens.Micro.Platform.Internal
 ----------------------------------------------------------------------------------
 
 data MsgEnvelope e = MsgEnvelope
@@ -21,10 +27,17 @@ data MsgEnvelope e = MsgEnvelope
    , _msgSeverity    :: Severity
    }
 
+newtype RlpcError = Text [Text]
+    deriving Show
+
+instance IsString RlpcError where
+    fromString = Text . pure . T.pack
+
 class IsRlpcError e where
     liftRlpcError :: e -> RlpcError
 
-data RlpcError
+instance IsRlpcError RlpcError where
+    liftRlpcError = id
 
 data Severity = SevWarning
               | SevError
@@ -37,3 +50,8 @@ data SrcSpan = SrcSpan
 
 makeLenses ''MsgEnvelope
 
+liftRlpcErrors :: (Functor m, IsRlpcError e)
+               => ErrorfulT e m a
+               -> ErrorfulT RlpcError m a
+liftRlpcErrors = mapErrorful liftRlpcError
+
diff --git a/src/Control/Monad/Errorful.hs b/src/Control/Monad/Errorful.hs
index 2f75269..5967b45 100644
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -6,7 +6,7 @@ module Control.Monad.Errorful
     , runErrorfulT
     , Errorful
     , runErrorful
-    , mapErrors
+    , mapErrorful
     , MonadErrorful(..)
     )
     where
@@ -60,6 +60,11 @@ instance (Monad m) => Monad (ErrorfulT e m) where
             Just x      -> runErrorfulT (k x)
             Nothing     -> pure (Nothing, es)
 
-mapErrors :: (Monad m) => (e -> e') -> ErrorfulT e m a -> ErrorfulT e' m a
-mapErrors f m = undefined
+mapErrorful :: (Functor m) => (e -> e') -> ErrorfulT e m a -> ErrorfulT e' m a
+mapErrorful f (ErrorfulT m) = ErrorfulT $
+    m & mapped . _2 . mapped %~ f
+
+-- when microlens-pro drops we can write this as
+--    mapErrorful f = coerced . mapped . _2 . mappd %~ f
+-- lol
 
diff --git a/src/Core/Examples.hs b/src/Core/Examples.hs
index 39680a4..2ca54e3 100644
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -15,12 +15,12 @@ import Core.Syntax
 import Core.TH
 ----------------------------------------------------------------------------------
 
-fac3 = undefined
-sumList = undefined
-constDivZero = undefined
-idCase = undefined
+-- fac3 = undefined
+-- sumList = undefined
+-- constDivZero = undefined
+-- idCase = undefined
 
-{--
+---
 
 letrecExample :: Program'
 letrecExample = [coreProg|
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 12c7436..ba9e987 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -25,6 +25,7 @@ import Control.Monad            (foldM, void)
 import Control.Monad.Errorful   (Errorful, addFatal)
 import Control.Monad.State
 import Control.Monad.Utils      (mapAccumLM)
+import Text.Printf
 import Core.Syntax
 ----------------------------------------------------------------------------------
 
@@ -48,8 +49,20 @@ data TypeError
     | TyErrMissingTypeSig Name
     deriving (Show, Eq)
 
--- TODO:
 instance IsRlpcError TypeError where
+    liftRlpcError = \case
+        -- todo: use anti-parser instead of show
+        TyErrCouldNotUnify t u -> Text
+            [ T.pack $ printf "Could not match type `%s' with `%s'."
+                              (show t) (show u)
+            , "Expected: " <> tshow t
+            , "Got: " <> tshow u
+            ]
+        TyErrRecursiveType t x -> Text
+            [ T.pack $ printf "recursive type error lol"
+            ]
+
+        where tshow = T.pack . show
 
 -- | Synonym for @Errorful [TypeError]@. This means an @HMError@ action may
 -- throw any number of fatal or nonfatal errors. Run with @runErrorful@.
@@ -87,10 +100,10 @@ checkCoreProg p = scDefs
              where scname = sc ^. _lhs._1
 
 -- | @checkCoreProgR p@ returns @p@ if @p@ successfully typechecks.
--- checkCoreProgR :: Program' -> RLPC Program'
-checkCoreProgR = undefined
-
-{-# WARNING checkCoreProgR "unimpl" #-}
+checkCoreProgR :: Program' -> RLPC Program'
+checkCoreProgR p = do
+    liftErrorful (checkCoreProg p)
+    pure p
 
 -- | Infer the type of an expression under some context.
 --
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index 1136409..f939258 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -169,17 +169,13 @@ lexWith f (AlexPn _ y x,_,_,s) l = pure $ Located y x l (f $ T.take l s)
 -- | The main lexer driver.
 lexCore :: Text -> RLPC [Located CoreToken]
 lexCore s = case m of
-    Left e   -> undefined
+    Left e   -> error "core lex error"
     Right ts -> pure ts
     where
         m = runAlex s lexStream
 
-{-# WARNING lexCore "unimpl" #-}
-
 lexCoreR :: Text -> RLPC [Located CoreToken]
-lexCoreR t = undefined
-
-{-# WARNING lexCoreR "unimpl" #-}
+lexCoreR = lexCore
 
 -- | @lexCore@, but the tokens are stripped of location info. Useful for
 -- debugging
@@ -200,9 +196,11 @@ data ParseError = ParErrLexical String
 
 -- TODO:
 instance IsRlpcError SrcError where
+    liftRlpcError = Text . pure . T.pack . show
 
 -- TODO:
 instance IsRlpcError ParseError where
+    liftRlpcError = Text . pure . T.pack . show
 
 alexEOF :: Alex (Located CoreToken)
 alexEOF = Alex $ \ st@(AlexState { alex_pos = AlexPn _ y x }) ->
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index abc6c70..a084ebf 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -189,7 +189,9 @@ Con             : '(' consym ')'                    { $2 }
 {
 
 parseError :: [Located CoreToken] -> RLPC a
-parseError (Located y x l _ : _) = undefined
+parseError (Located y x l t : _) =
+    error $ show y <> ":" <> show x
+         <> ": parse error at token `" <> show t <> "'"
 
 {-# WARNING parseError "unimpl" #-}
 
@@ -217,9 +219,7 @@ singletonScDef :: (Hashable b) => ScDef b -> Program b
 singletonScDef sc = insScDef sc mempty
 
 parseCoreProgR :: [Located CoreToken] -> RLPC Program'
-parseCoreProgR a = undefined
-
-{-# WARNING parseCoreProgR "unimpl" #-}
+parseCoreProgR = parseCoreProg
 
 happyBind :: RLPC a -> (a -> RLPC b) -> RLPC b
 happyBind m k = m >>= k
diff --git a/src/Core/TH.hs b/src/Core/TH.hs
index 28bb9c6..8031314 100644
--- a/src/Core/TH.hs
+++ b/src/Core/TH.hs
@@ -6,7 +6,6 @@ module Core.TH
     ( coreExpr
     , coreProg
     , coreProgT
-    , core
     )
     where
 ----------------------------------------------------------------------------------
@@ -14,65 +13,38 @@ import Language.Haskell.TH
 import Language.Haskell.TH.Syntax   hiding (Module)
 import Language.Haskell.TH.Quote
 import Control.Monad                ((>=>))
+import Control.Monad.IO.Class
+import Control.Arrow                ((>>>))
 import Compiler.RLPC
 import Data.Default.Class           (def)
+import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Core.Parse
 import Core.Lex
-import Core.Syntax                  (Expr(Var))
+import Core.Syntax
 import Core.HindleyMilner           (checkCoreProgR)
 ----------------------------------------------------------------------------------
 
--- TODO: write in terms of a String -> QuasiQuoter
-
-core :: QuasiQuoter
-core = QuasiQuoter
-    { quoteExp = qCore
-    , quotePat = error "core quasiquotes may only be used in expressions"
-    , quoteType = error "core quasiquotes may only be used in expressions"
-    , quoteDec = error "core quasiquotes may only be used in expressions"
-    }
-
 coreProg :: QuasiQuoter
-coreProg = QuasiQuoter
-    { quoteExp = qCoreProg
-    , quotePat = error "core quasiquotes may only be used in expressions"
-    , quoteType = error "core quasiquotes may only be used in expressions"
-    , quoteDec = error "core quasiquotes may only be used in expressions"
-    }
+coreProg = mkqq $ lexCoreR >=> parseCoreProgR
 
 coreExpr :: QuasiQuoter
-coreExpr = QuasiQuoter
-    { quoteExp = qCoreExpr
-    , quotePat = error "core quasiquotes may only be used in expressions"
-    , quoteType = error "core quasiquotes may only be used in expressions"
-    , quoteDec = error "core quasiquotes may only be used in expressions"
-    }
+coreExpr = mkqq $ lexCoreR >=> parseCoreExpr
 
 -- | Type-checked @coreProg@
 coreProgT :: QuasiQuoter
-coreProgT = QuasiQuoter
-    { quoteExp = qCoreProgT
+coreProgT = mkqq $ lexCoreR >=> parseCoreProgR >=> checkCoreProgR
+
+mkqq :: (Lift a) => (Text -> RLPC a) -> QuasiQuoter
+mkqq p = QuasiQuoter
+    { quoteExp = mkq p
     , quotePat = error "core quasiquotes may only be used in expressions"
     , quoteType = error "core quasiquotes may only be used in expressions"
     , quoteDec = error "core quasiquotes may only be used in expressions"
     }
 
-qCore :: String -> Q Exp
-qCore s = undefined
-
-{-# WARNING qCore "unimpl" #-}
-
-qCoreExpr :: String -> Q Exp
-qCoreExpr s = undefined
-
-{-# WARNING qCoreExpr "unimpl" #-}
-
-qCoreProg :: String -> Q Exp
-qCoreProg s = undefined
-
-{-# WARNING qCoreProg "unimpl" #-}
-
-qCoreProgT :: String -> Q Exp
-qCoreProgT s = undefined
+mkq :: (Lift a) => (Text -> RLPC a) -> String -> Q Exp
+mkq parse s = case evalRLPC def (parse $ T.pack s) of
+    (Just a,  _) -> lift a
+    (Nothing, _) -> error "todo: aaahhbbhjhbdjhabsjh"
 
diff --git a/tst/Core/HindleyMilnerSpec.hs b/tst/Core/HindleyMilnerSpec.hs
index 8f498a9..7dbe178 100644
--- a/tst/Core/HindleyMilnerSpec.hs
+++ b/tst/Core/HindleyMilnerSpec.hs
@@ -38,9 +38,13 @@ spec = do
         let e = [coreExpr|3|]
         in check' [] (TyCon "Bool") e `shouldSatisfy` isLeft
 
-infer' :: Context' -> Expr' -> Either TypeError Type
-infer' g e = fmap fst . runErrorful $ infer g e
+infer' :: Context' -> Expr' -> Either [TypeError] Type
+infer' g e = case runErrorful $ infer g e of
+    (Just t,   _) -> Right t
+    (Nothing, es) -> Left es
 
-check' :: Context' -> Type -> Expr' -> Either TypeError ()
-check' g t e = fmap fst . runErrorful $ check g t e
+check' :: Context' -> Type -> Expr' -> Either [TypeError] ()
+check' g t e = case runErrorful $ check g t e of
+    (Just t,   _) -> Right ()
+    (Nothing, es) -> Left es
 
diff --git a/tst/Rlp/Parse/DeclsSpec.hs b/tst/Rlp/Parse/DeclsSpec.hs
deleted file mode 100644
index e69de29..0000000
-- 
2.52.0


From 5a659d22dd260b7b565073865fda4fbec2749c61 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 22 Jan 2024 09:55:58 -0700
Subject: [PATCH 094/192] errorful parser

---
 src/Control/Monad/Errorful.hs | 13 ++++++--
 src/Rlp/Lex.x                 | 16 +++++-----
 src/Rlp/Parse.y               |  2 +-
 src/Rlp/Parse/Types.hs        | 60 +++++++++++++++++++++++++++++------
 4 files changed, 71 insertions(+), 20 deletions(-)

diff --git a/src/Control/Monad/Errorful.hs b/src/Control/Monad/Errorful.hs
index 5967b45..627dcf8 100644
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE TupleSections, PatternSynonyms #-}
+{-# LANGUAGE UndecidableInstances #-}
 module Control.Monad.Errorful
     ( ErrorfulT
     , runErrorfulT
@@ -11,11 +12,12 @@ module Control.Monad.Errorful
     )
     where
 ----------------------------------------------------------------------------------
+import Control.Monad.State.Strict
 import Control.Monad.Trans
 import Data.Functor.Identity
 import Data.Coerce
-import Data.HashSet             (HashSet)
-import Data.HashSet             qualified as H
+import Data.HashSet                 (HashSet)
+import Data.HashSet                 qualified as H
 import Lens.Micro
 ----------------------------------------------------------------------------------
 
@@ -68,3 +70,10 @@ mapErrorful f (ErrorfulT m) = ErrorfulT $
 --    mapErrorful f = coerced . mapped . _2 . mappd %~ f
 -- lol
 
+--------------------------------------------------------------------------------
+-- daily dose of n^2 instances
+
+instance (Monad m, MonadErrorful e m) => MonadErrorful e (StateT s m) where
+    addWound = undefined
+    addFatal = undefined
+
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 6fd2428..ccbb65e 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -7,12 +7,14 @@ module Rlp.Lex
     , RlpToken(..)
     , Located(..)
     , lexToken
+    , lexStream
     , lexDebug
     , lexCont
     )
     where
 import Codec.Binary.UTF8.String (encodeChar)
 import Control.Monad
+import Control.Monad.Errorful
 import Core.Syntax              (Name)
 import Data.Functor.Identity
 import Data.Char                (digitToInt)
@@ -203,13 +205,6 @@ alexEOF = do
     inp <- getInput
     pure (Located undefined TokenEOF)
 
-execP :: P a -> ParseState -> Maybe a
-execP p st = runP p st & snd
-
-execP' :: P a -> Text -> Maybe a
-execP' p s = execP p st where
-    st = initParseState s
-
 initParseState :: Text -> ParseState
 initParseState s = ParseState
     { _psLayoutStack = []
@@ -228,6 +223,10 @@ initAlexInput s = AlexInput
     , _aiPos        = (1,1)
     }
 
+runP' :: P a -> Text -> (ParseState, [RlpParseError], Maybe a)
+runP' p s = runP p st where
+    st = initParseState s
+
 lexToken :: P (Located RlpToken)
 lexToken = do
     inp <- getInput
@@ -242,6 +241,7 @@ lexToken = do
         AlexToken inp' l act -> do
             psInput .= inp'
             act inp l
+        AlexError inp' -> addFatal RlpParErrLexical
 
 lexCont :: (Located RlpToken -> P a) -> P a
 lexCont = (lexToken >>=)
@@ -260,7 +260,7 @@ lexDebug k = do
     k t
 
 lexTest :: Text -> Maybe [RlpToken]
-lexTest s = execP' lexStream s
+lexTest s = runP' lexStream s ^. _3
 
 indentLevel :: P Int
 indentLevel = do
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index edc4874..3871a4f 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -161,7 +161,7 @@ mkProgram ds = do
     pure $ RlpProgram (associate pt <$> ds)
 
 parseError :: Located RlpToken -> P a
-parseError = error . show
+parseError (Located ((l,c),s) t) = addFatal RlpParErrUnknown
 
 mkInfixD :: Assoc -> Int -> Name -> P PartialDecl'
 mkInfixD a p n = do
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 718a9e5..d0f9be2 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -1,11 +1,42 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE ImplicitParams, ViewPatterns, PatternSynonyms #-}
 {-# LANGUAGE LambdaCase #-}
-module Rlp.Parse.Types where
+module Rlp.Parse.Types
+    ( LexerAction
+    , AlexInput(..)
+    , Position(..)
+    , RlpToken(..)
+    , P(..)
+    , ParseState(..)
+    , psLayoutStack
+    , psLexState
+    , psInput
+    , psOpTable
+    , Layout(..)
+    , Located(..)
+    , OpTable
+    , OpInfo
+    , RlpParseError(..)
+    , PartialDecl'
+    , Partial(..)
+    , pL, pR
+    , PartialE
+    , pattern WithInfo
+    , opInfoOrDef
+    , PartialExpr'
+    , aiPrevChar
+    , aiSource
+    , aiBytes
+    , aiPos
+    , addFatal
+    , addWound
+    )
+    where
 --------------------------------------------------------------------------------
 import Core.Syntax                  (Name)
 import Control.Monad
-import Control.Monad.State.Class
+import Control.Monad.State.Strict
+import Control.Monad.Errorful
 import Data.Text                    (Text)
 import Data.Maybe
 import Data.Fix
@@ -71,24 +102,31 @@ data RlpToken
     | TokenEOF
     deriving (Show)
 
-newtype P a = P { runP :: ParseState -> (ParseState, Maybe a) }
+newtype P a = P { runP :: ParseState -> (ParseState, [RlpParseError], Maybe a) }
     deriving (Functor)
 
 instance Applicative P where
-    pure a = P $ \st -> (st,Just a)
+    pure a = P $ \st -> (st, [], pure a)
     liftA2 = liftM2
 
 instance Monad P where
     p >>= k = P $ \st ->
-        let (st',a) = runP p st
-        in case a of
-            Just x  -> runP (k x) st'
-            Nothing -> (st', Nothing)
+        let (st',es,ma) = runP p st
+        in case ma of
+            Just a  -> runP (k a) st'
+                     & _2 %~ (es<>)
+            Nothing -> (st',es,Nothing)
+
+    {-# INLINE (>>=) #-}
 
 instance MonadState ParseState P where
     state f = P $ \st ->
         let (a,st') = f st
-        in (st', Just a)
+        in (st', [], Just a)
+
+instance MonadErrorful RlpParseError P where
+    addWound e = P $ \st -> (st, [e], Just ())
+    addFatal e = P $ \st -> (st, [e], Nothing)
 
 data ParseState = ParseState
     { _psLayoutStack        :: [Layout]
@@ -112,6 +150,8 @@ type OpInfo = (Assoc, Int)
 
 data RlpParseError = RlpParErrOutOfBoundsPrecedence Int
                    | RlpParErrDuplicateInfixD
+                   | RlpParErrLexical
+                   | RlpParErrUnknown
     deriving (Eq, Ord, Show)
 
 ----------------------------------------------------------------------------------
@@ -161,3 +201,5 @@ type PartialExpr' = Fix Partial
 makeLenses ''AlexInput
 makeLenses ''ParseState
 
+--------------------------------------------------------------------------------
+
-- 
2.52.0


From c146e1c45091d975473d86889759b2a8fe9eace5 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 22 Jan 2024 09:59:48 -0700
Subject: [PATCH 095/192] errorful parser

small
---
 src/Compiler/RlpcError.hs | 4 ++++
 src/Rlp/Parse.y           | 2 +-
 src/Rlp/Parse/Types.hs    | 9 +++++----
 3 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index cff9375..168ad17 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -26,6 +26,7 @@ data MsgEnvelope e = MsgEnvelope
    , _msgDiagnostic  :: e
    , _msgSeverity    :: Severity
    }
+   deriving Functor
 
 newtype RlpcError = Text [Text]
     deriving Show
@@ -55,3 +56,6 @@ liftRlpcErrors :: (Functor m, IsRlpcError e)
                -> ErrorfulT RlpcError m a
 liftRlpcErrors = mapErrorful liftRlpcError
 
+instance (IsRlpcError e) => IsRlpcError (MsgEnvelope e) where
+    liftRlpcError msg = msg ^. msgDiagnostic & liftRlpcError
+
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 3871a4f..e96db59 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -161,7 +161,7 @@ mkProgram ds = do
     pure $ RlpProgram (associate pt <$> ds)
 
 parseError :: Located RlpToken -> P a
-parseError (Located ((l,c),s) t) = addFatal RlpParErrUnknown
+parseError (Located ((l,c),s) t) = addFatal RlpParErrUnexpectedToken
 
 mkInfixD :: Assoc -> Int -> Name -> P PartialDecl'
 mkInfixD a p n = do
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index d0f9be2..498335f 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -37,6 +37,7 @@ import Core.Syntax                  (Name)
 import Control.Monad
 import Control.Monad.State.Strict
 import Control.Monad.Errorful
+import Compiler.RlpcError
 import Data.Text                    (Text)
 import Data.Maybe
 import Data.Fix
@@ -151,8 +152,10 @@ type OpInfo = (Assoc, Int)
 data RlpParseError = RlpParErrOutOfBoundsPrecedence Int
                    | RlpParErrDuplicateInfixD
                    | RlpParErrLexical
-                   | RlpParErrUnknown
-    deriving (Eq, Ord, Show)
+                   | RlpParErrUnexpectedToken
+                   deriving (Eq, Ord, Show)
+
+instance IsRlpcError RlpParseError where
 
 ----------------------------------------------------------------------------------
 
@@ -201,5 +204,3 @@ type PartialExpr' = Fix Partial
 makeLenses ''AlexInput
 makeLenses ''ParseState
 
---------------------------------------------------------------------------------
-
-- 
2.52.0


From 692d22afb9b93ba5411467def0788fdf4cf04e72 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 22 Jan 2024 10:26:33 -0700
Subject: [PATCH 096/192] msgenvelope

---
 src/Compiler/RLPC.hs      | 12 ++++++------
 src/Compiler/RlpcError.hs |  3 ++-
 src/Core/HindleyMilner.hs |  6 +++---
 3 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 0de0638..a4b3556 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -60,7 +60,7 @@ import System.Exit
 ----------------------------------------------------------------------------------
 
 newtype RLPCT m a = RLPCT {
-        runRLPCT :: ReaderT RLPCOptions (ErrorfulT RlpcError m) a
+        runRLPCT :: ReaderT RLPCOptions (ErrorfulT (MsgEnvelope RlpcError) m) a
     }
     deriving (Functor, Applicative, Monad)
 
@@ -70,7 +70,7 @@ type RLPCIO = RLPCT IO
 
 evalRLPC :: RLPCOptions
          -> RLPC a
-         -> (Maybe a, [RlpcError])
+         -> (Maybe a, [MsgEnvelope RlpcError])
 evalRLPC opt r = runRLPCT r
                & flip runReaderT opt
                & runErrorful
@@ -78,7 +78,7 @@ evalRLPC opt r = runRLPCT r
 evalRLPCT :: (Monad m)
           => RLPCOptions
           -> RLPCT m a
-          -> m (Maybe a, [RlpcError])
+          -> m (Maybe a, [MsgEnvelope RlpcError])
 evalRLPCT = undefined
 
 evalRLPCIO :: RLPCOptions -> RLPCIO a -> IO a
@@ -89,11 +89,11 @@ evalRLPCIO opt r = do
         Just x  -> pure x
         Nothing -> die "Failed, no code compiled."
 
-putRlpcErrs :: [RlpcError] -> IO ()
+putRlpcErrs :: [MsgEnvelope RlpcError] -> IO ()
 putRlpcErrs = traverse_ print
 
-liftErrorful :: (Monad m, IsRlpcError e) => ErrorfulT e m a -> RLPCT m a
-liftErrorful e = RLPCT $ lift (liftRlpcErrors e)
+liftErrorful :: (Monad m, IsRlpcError e) => ErrorfulT (MsgEnvelope e) m a -> RLPCT m a
+liftErrorful e = RLPCT $ lift (fmap liftRlpcError `mapErrorful` e)
 
 data RLPCOptions = RLPCOptions
     { _rlpcLogFile     :: Maybe FilePath
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index 168ad17..2d748af 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -26,7 +26,7 @@ data MsgEnvelope e = MsgEnvelope
    , _msgDiagnostic  :: e
    , _msgSeverity    :: Severity
    }
-   deriving Functor
+   deriving (Functor, Show)
 
 newtype RlpcError = Text [Text]
     deriving Show
@@ -48,6 +48,7 @@ data SrcSpan = SrcSpan
     !Int -- ^ Line
     !Int -- ^ Column
     !Int -- ^ Length
+    deriving Show
 
 makeLenses ''MsgEnvelope
 
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index ba9e987..4cffcca 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -101,9 +101,9 @@ checkCoreProg p = scDefs
 
 -- | @checkCoreProgR p@ returns @p@ if @p@ successfully typechecks.
 checkCoreProgR :: Program' -> RLPC Program'
-checkCoreProgR p = do
-    liftErrorful (checkCoreProg p)
-    pure p
+checkCoreProgR p = undefined
+
+{-# WARNING checkCoreProgR "unimpl" #-}
 
 -- | Infer the type of an expression under some context.
 --
-- 
2.52.0


From e3b18c8915ca5a74177efac9ddfe8f59655593cf Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 22 Jan 2024 12:20:05 -0700
Subject: [PATCH 097/192] errors!

---
 src/Compiler/RLPC.hs      |  1 +
 src/Compiler/RlpcError.hs | 10 ++++++++-
 src/Rlp/Lex.x             |  8 +++++--
 src/Rlp/Parse.y           | 11 +++++++---
 src/Rlp/Parse/Types.hs    | 44 +++++++++++++++++++++++++++++++++++----
 5 files changed, 64 insertions(+), 10 deletions(-)

diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index a4b3556..2993c67 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -18,6 +18,7 @@ module Compiler.RLPC
     , RLPCOptions(RLPCOptions)
     , IsRlpcError(..)
     , RlpcError(..)
+    , MsgEnvelope(..)
     , addFatal
     , addWound
     , MonadErrorful
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index 2d748af..ae3751d 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -3,13 +3,14 @@
 module Compiler.RlpcError
     ( IsRlpcError(..)
     , MsgEnvelope(..)
-    , Severity
+    , Severity(..)
     , RlpcError(..)
     , SrcSpan(..)
     , msgSpan
     , msgDiagnostic
     , msgSeverity
     , liftRlpcErrors
+    , errorMsg
     )
     where
 ----------------------------------------------------------------------------------
@@ -60,3 +61,10 @@ liftRlpcErrors = mapErrorful liftRlpcError
 instance (IsRlpcError e) => IsRlpcError (MsgEnvelope e) where
     liftRlpcError msg = msg ^. msgDiagnostic & liftRlpcError
 
+errorMsg :: SrcSpan -> e -> MsgEnvelope e
+errorMsg s e = MsgEnvelope
+    { _msgSpan = s
+    , _msgDiagnostic = e
+    , _msgSeverity = SevError
+    }
+
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index ccbb65e..6942b84 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -54,6 +54,7 @@ $asciisym       = [\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~\:]
 
 @reservedname = 
     case|data|do|import|in|let|letrec|module|of|where
+    |infixr|infixl|infix
 
 @reservedop =
     "=" | \\ | "->" | "|"
@@ -125,6 +126,9 @@ lexReservedName = \case
     "of"        -> TokenOf
     "let"       -> TokenLet
     "in"        -> TokenIn
+    "infix"     -> TokenInfix
+    "infixl"    -> TokenInfixL
+    "infixr"    -> TokenInfixR
 
 lexReservedOp :: Text -> RlpToken
 lexReservedOp = \case
@@ -223,7 +227,7 @@ initAlexInput s = AlexInput
     , _aiPos        = (1,1)
     }
 
-runP' :: P a -> Text -> (ParseState, [RlpParseError], Maybe a)
+runP' :: P a -> Text -> (ParseState, [MsgEnvelope RlpParseError], Maybe a)
 runP' p s = runP p st where
     st = initParseState s
 
@@ -241,7 +245,7 @@ lexToken = do
         AlexToken inp' l act -> do
             psInput .= inp'
             act inp l
-        AlexError inp' -> addFatal RlpParErrLexical
+        AlexError inp' -> addFatalHere 1 RlpParErrLexical
 
 lexCont :: (Located RlpToken -> P a) -> P a
 lexCont = (lexToken >>=)
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index e96db59..444a6d4 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -4,6 +4,7 @@ module Rlp.Parse
     ( parseRlpProg
     )
     where
+import Compiler.RlpcError
 import Rlp.Lex
 import Rlp.Syntax
 import Rlp.Parse.Types
@@ -14,6 +15,7 @@ import Lens.Micro.Platform          ()
 import Data.List.Extra
 import Data.Fix
 import Data.Functor.Const
+import Data.Text                    qualified as T
 }
 
 %name parseRlpProg StandaloneProgram
@@ -161,16 +163,19 @@ mkProgram ds = do
     pure $ RlpProgram (associate pt <$> ds)
 
 parseError :: Located RlpToken -> P a
-parseError (Located ((l,c),s) t) = addFatal RlpParErrUnexpectedToken
+parseError (Located ((l,c),s) t) = addFatal $
+    errorMsg (SrcSpan l c s) RlpParErrUnexpectedToken
 
 mkInfixD :: Assoc -> Int -> Name -> P PartialDecl'
 mkInfixD a p n = do
     let opl :: Lens' ParseState (Maybe OpInfo)
         opl = psOpTable . at n
     opl <~ (use opl >>= \case
-        -- TODO: non-fatal error
-        Just o  -> pure (Just o)
+        Just o  -> addWoundHere l e >> pure (Just o) where
+            e = RlpParErrDuplicateInfixD n
+            l = T.length n
         Nothing -> pure (Just (a,p))
         )
     pure $ InfixD a p n
+
 }
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 498335f..bddf0d9 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -3,6 +3,8 @@
 {-# LANGUAGE LambdaCase #-}
 module Rlp.Parse.Types
     ( LexerAction
+    , MsgEnvelope(..)
+    , RlpcError(..)
     , AlexInput(..)
     , Position(..)
     , RlpToken(..)
@@ -30,6 +32,8 @@ module Rlp.Parse.Types
     , aiPos
     , addFatal
     , addWound
+    , addFatalHere
+    , addWoundHere
     )
     where
 --------------------------------------------------------------------------------
@@ -66,6 +70,12 @@ type Position =
     , Int -- column
     )
 
+posLine :: Lens' Position Int
+posLine = _1
+
+posColumn :: Lens' Position Int
+posColumn = _2
+
 data RlpToken
     -- literals
     = TokenLitInt Int
@@ -103,7 +113,10 @@ data RlpToken
     | TokenEOF
     deriving (Show)
 
-newtype P a = P { runP :: ParseState -> (ParseState, [RlpParseError], Maybe a) }
+newtype P a = P {
+        runP :: ParseState
+             -> (ParseState, [MsgEnvelope RlpParseError], Maybe a)
+    }
     deriving (Functor)
 
 instance Applicative P where
@@ -125,7 +138,7 @@ instance MonadState ParseState P where
         let (a,st') = f st
         in (st', [], Just a)
 
-instance MonadErrorful RlpParseError P where
+instance MonadErrorful (MsgEnvelope RlpParseError) P where
     addWound e = P $ \st -> (st, [e], Just ())
     addFatal e = P $ \st -> (st, [e], Nothing)
 
@@ -150,7 +163,7 @@ type OpInfo = (Assoc, Int)
 -- data WithLocation a = WithLocation [String] a
 
 data RlpParseError = RlpParErrOutOfBoundsPrecedence Int
-                   | RlpParErrDuplicateInfixD
+                   | RlpParErrDuplicateInfixD Name
                    | RlpParErrLexical
                    | RlpParErrUnexpectedToken
                    deriving (Eq, Ord, Show)
@@ -158,7 +171,6 @@ data RlpParseError = RlpParErrOutOfBoundsPrecedence Int
 instance IsRlpcError RlpParseError where
 
 ----------------------------------------------------------------------------------
-
 -- absolute psycho shit (partial ASTs)
 
 type PartialDecl' = Decl (Const PartialExpr') Name
@@ -204,3 +216,27 @@ type PartialExpr' = Fix Partial
 makeLenses ''AlexInput
 makeLenses ''ParseState
 
+addWoundHere :: Int -> RlpParseError -> P ()
+addWoundHere l e = P $ \st ->
+    let e' = MsgEnvelope
+            { _msgSpan = let pos = psInput . aiPos
+                         in SrcSpan (st ^. pos . posLine)
+                                   (st ^. pos . posColumn)
+                                   l
+            , _msgDiagnostic = e
+            , _msgSeverity = SevError
+            }
+    in (st, [e'], Just ())
+
+addFatalHere :: Int -> RlpParseError -> P a
+addFatalHere l e = P $ \st ->
+    let e' = MsgEnvelope
+            { _msgSpan = let pos = psInput . aiPos
+                         in SrcSpan (st ^. pos . posLine)
+                                    (st ^. pos . posColumn)
+                                    l
+            , _msgDiagnostic = e
+            , _msgSeverity = SevError
+            }
+    in (st, [e'], Nothing)
+
-- 
2.52.0


From cefdf6ffae57fc7630ef5be3ec1df778a383a7f2 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 22 Jan 2024 12:45:42 -0700
Subject: [PATCH 098/192] allow uppercase sc names in preperation for Rlp2Core

---
 Makefile_happysrcs      | 10 ++++++++--
 src/Compiler/JustRun.hs | 13 +++++++------
 src/Core/Parse.y        |  2 ++
 3 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/Makefile_happysrcs b/Makefile_happysrcs
index e0dc43e..1d32855 100644
--- a/Makefile_happysrcs
+++ b/Makefile_happysrcs
@@ -8,8 +8,8 @@ CABAL_BUILD = dist-newstyle/build/x86_64-osx/ghc-9.6.2/rlp-0.1.0.0/build
 
 all: parsers lexers
 
-parsers: $(CABAL_BUILD)/Rlp/Parse.hs
-lexers: $(CABAL_BUILD)/Rlp/Lex.hs
+parsers: $(CABAL_BUILD)/Rlp/Parse.hs $(CABAL_BUILD)/Core/Parse.hs
+lexers: $(CABAL_BUILD)/Rlp/Lex.hs $(CABAL_BUILD)/Core/Lex.hs
 
 $(CABAL_BUILD)/Rlp/Parse.hs: $(SRC)/Rlp/Parse.y
 	$(HAPPY) $(HAPPY_OPTS) $< -o $@
@@ -17,3 +17,9 @@ $(CABAL_BUILD)/Rlp/Parse.hs: $(SRC)/Rlp/Parse.y
 $(CABAL_BUILD)/Rlp/Lex.hs: $(SRC)/Rlp/Lex.x
 	$(ALEX) $(ALEX_OPTS) $< -o $@
 
+$(CABAL_BUILD)/Core/Parse.hs: $(SRC)/Core/Parse.y
+	$(HAPPY) $(HAPPY_OPTS) $< -o $@
+
+$(CABAL_BUILD)/Core/Lex.hs: $(SRC)/Core/Lex.x
+	$(ALEX) $(ALEX_OPTS) $< -o $@
+
diff --git a/src/Compiler/JustRun.hs b/src/Compiler/JustRun.hs
index c3178f3..6a0d4ca 100644
--- a/src/Compiler/JustRun.hs
+++ b/src/Compiler/JustRun.hs
@@ -26,22 +26,23 @@ import Data.Function                    ((&))
 import GM
 ----------------------------------------------------------------------------------
 
--- justLexSrc :: String -> Either RlpcError [CoreToken]
+justLexSrc :: String -> Either [MsgEnvelope RlpcError] [CoreToken]
 justLexSrc s = lexCoreR (T.pack s)
              & fmap (map $ \ (Located _ _ _ t) -> t)
              & rlpcToEither
 
--- justParseSrc :: String -> Either RlpcError Program'
+justParseSrc :: String -> Either [MsgEnvelope RlpcError] Program'
 justParseSrc s = parse (T.pack s)
                & rlpcToEither
     where parse = lexCoreR >=> parseCoreProgR
 
--- justTypeCheckSrc :: String -> Either RlpcError Program'
+justTypeCheckSrc :: String -> Either [MsgEnvelope RlpcError] Program'
 justTypeCheckSrc s = typechk (T.pack s)
                    & rlpcToEither
     where typechk = lexCoreR >=> parseCoreProgR >=> checkCoreProgR
 
-rlpcToEither = undefined
-
-{-# WARNING rlpcToEither "unimpl" #-}
+rlpcToEither :: RLPC a -> Either [MsgEnvelope RlpcError] a
+rlpcToEither r = case evalRLPC def r of
+    (Just a,   _) -> Right a
+    (Nothing, es) -> Left es
 
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index a084ebf..b8a0cf3 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -98,6 +98,8 @@ ScDefs          : ScDef ';' ScDefs              { $1 : $3 }
 
 ScDef           :: { ScDef Name }
 ScDef           : Var ParList '=' Expr          { ScDef $1 $2 $4 }
+                -- hack to allow constructors to be compiled into scs
+                | Con ParList '=' Expr          { ScDef $1 $2 $4 }
 
 Type            :: { Type }
 Type            : Type1                         { $1 }
-- 
2.52.0


From 22b5b477956ec884dc3295bc67c580d2f1e4cfed Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 23 Jan 2024 20:19:16 -0700
Subject: [PATCH 099/192] letrec

---
 src/Core/HindleyMilner.hs | 38 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 4cffcca..6d9bfe9 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -3,6 +3,7 @@ Module      : Core.HindleyMilner
 Description : Hindley-Milner type system
 -}
 {-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE OverloadedStrings #-}
 module Core.HindleyMilner
     ( Context'
     , infer
@@ -16,12 +17,13 @@ module Core.HindleyMilner
 ----------------------------------------------------------------------------------
 import Lens.Micro
 import Lens.Micro.Mtl
+import Lens.Micro.Platform
 import Data.Maybe               (fromMaybe)
 import Data.Text                qualified as T
 import Data.HashMap.Strict      qualified as H
 import Data.Foldable            (traverse_)
 import Compiler.RLPC
-import Control.Monad            (foldM, void)
+import Control.Monad            (foldM, void, forM)
 import Control.Monad.Errorful   (Errorful, addFatal)
 import Control.Monad.State
 import Control.Monad.Utils      (mapAccumLM)
@@ -152,8 +154,28 @@ gather = \g e -> runStateT (go g e) ([],0) <&> \ (t,(cs,_)) -> (t,cs) where
         Let NonRec bs e -> do
             g' <- buildLetContext g bs
             go g' e
+        Let Rec bs e -> do
+            g' <- buildLetrecContext g bs
+            go g' e
+
         -- TODO letrec, lambda, case
 
+    buildLetrecContext :: Context' -> [Binding']
+                       -> StateT ([Constraint], Int) HMError Context'
+    buildLetrecContext g bs = do
+        let f ag (k := _) = do
+                n <- uniqueVar
+                pure ((k,n) : ag)
+        rg <- foldM f g bs
+        let k ag (k := v) = do
+                t <- go rg v
+                pure ((k,t) : ag)
+        foldM k g bs
+
+    -- | augment a context with the inferred types of each binder. the returned
+    -- context is linearly accumulated, meaning that the context used to infer each binder
+    -- will include the inferred types of all previous binder
+
     buildLetContext :: Context' -> [Binding']
                     -> StateT ([Constraint], Int) HMError Context'
     buildLetContext = foldM k where
@@ -230,3 +252,17 @@ subst x t (TyVar y) | x == y  = t
 subst x t (a :-> b)           = subst x t a :-> subst x t b
 subst _ _ e                   = e
 
+--------------------------------------------------------------------------------
+
+demoContext :: Context'
+demoContext =
+    [ ("fix", (TyVar "a" :-> TyVar "a") :-> TyVar "a")
+    , ("add", TyInt :-> TyInt :-> TyInt)
+    ]
+
+pprintType :: Type -> String
+pprintType (s :-> t) = "(" <> pprintType s <> " -> " <> pprintType t <> ")"
+pprintType TyFun = "(->)"
+pprintType (TyVar x) = x ^. unpacked
+pprintType (TyCon t) = t ^. unpacked
+
-- 
2.52.0


From 3d45e12676f09c58912ca0389326501b97f13e43 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 23 Jan 2024 21:08:17 -0700
Subject: [PATCH 100/192] infer letrec expressions

---
 src/Core/HindleyMilner.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 6d9bfe9..3699310 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -158,7 +158,7 @@ gather = \g e -> runStateT (go g e) ([],0) <&> \ (t,(cs,_)) -> (t,cs) where
             g' <- buildLetrecContext g bs
             go g' e
 
-        -- TODO letrec, lambda, case
+        -- TODO lambda, case
 
     buildLetrecContext :: Context' -> [Binding']
                        -> StateT ([Constraint], Int) HMError Context'
@@ -258,6 +258,9 @@ demoContext :: Context'
 demoContext =
     [ ("fix", (TyVar "a" :-> TyVar "a") :-> TyVar "a")
     , ("add", TyInt :-> TyInt :-> TyInt)
+    , ("==", TyInt :-> TyInt :-> TyCon "Bool")
+    , ("True", TyCon "Bool")
+    , ("False", TyCon "Bool")
     ]
 
 pprintType :: Type -> String
-- 
2.52.0


From c8199a9dd16c16a382fe97301f3b027ac7383ace Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 24 Jan 2024 09:31:57 -0700
Subject: [PATCH 101/192] minor docs

---
 doc/src/commentary/gm.rst                  |  2 -
 doc/src/commentary/layout-lexing.rst       | 73 ++++++++++------------
 doc/src/commentary/type-inference.rst      |  5 ++
 doc/src/references/rlp-inference-rules.rst | 13 ++++
 4 files changed, 50 insertions(+), 43 deletions(-)
 create mode 100644 doc/src/commentary/type-inference.rst
 create mode 100644 doc/src/references/rlp-inference-rules.rst

diff --git a/doc/src/commentary/gm.rst b/doc/src/commentary/gm.rst
index 4cf3d6a..d1ae166 100644
--- a/doc/src/commentary/gm.rst
+++ b/doc/src/commentary/gm.rst
@@ -112,5 +112,3 @@ The way around this is quite simple: simply offset the stack when w
    :end-before: -- << [ref/compileC]
    :caption: src/GM.hs
 
-
-
diff --git a/doc/src/commentary/layout-lexing.rst b/doc/src/commentary/layout-lexing.rst
index 4fbfd5e..2039b35 100644
--- a/doc/src/commentary/layout-lexing.rst
+++ b/doc/src/commentary/layout-lexing.rst
@@ -2,16 +2,21 @@ Lexing, Parsing, and Layouts
 ============================
 
 The C-style languages of my previous experiences have all had quite trivial
-lexical analysis stages, peaking in complexity when I streamed tokens lazily in
-C. The task of tokenising a C-style language is very simple in description: you
-ignore all whitespace and point out what you recognise. If you don't recognise
-something, check if it's a literal or an identifier. Should it be neither,
-return an error.
+lexical analysis stages: you ignore all whitespace and point out the symbols you
+recognise. If you don't recognise something, check if it's a literal or an
+identifier. Should it be neither, return an error.
 
-On paper, both lexing and parsing a Haskell-like language seem to pose a few
+In contrast, both lexing and parsing a Haskell-like language poses a number of
 greater challenges. Listed by ascending intimidation factor, some of the
 potential roadblocks on my mind before making an attempt were:
 
+* Context-sensitive keywords; Haskell allows for some words to be used as
+  identifiers in appropriate contexts, such as :code:`family`, :code:`role`,
+  :code:`as`. Reading a note_ found in `GHC's lexer`_, it appears that keywords
+  are only considered in bodies for which their use is relevant, e.g.
+  :code:`family` and :code:`role` in type declarations, :code:`as` after
+  :code:`case`; :code:`if`, :code:`then`, and :code:`else` in expressions, etc.
+
 * Operators; Haskell has not only user-defined infix operators, but user-defined
   precedence levels and associativities. I recall using an algorithm that looked
   up infix, prefix, postfix, and even mixfix operators up in a global table to
@@ -19,17 +24,9 @@ potential roadblocks on my mind before making an attempt were:
   stored in the table). I never modified the table at runtime, however this
   could be a very nice solution for Haskell.
 
-* Context-sensitive keywords; Haskell allows for some words to be used as identifiers in
-  appropriate contexts, such as :code:`family`, :code:`role`, :code:`as`.
-  Reading a note_ found in `GHC's lexer`_,
-  it appears that keywords are only considered in bodies for which their use is
-  relevant, e.g. :code:`family` and :code:`role` in type declarations,
-  :code:`as` after :code:`case`; :code:`if`, :code:`then`, and :code:`else` in
-  expressions, etc.
-
 * Whitespace sensitivity; While I was comfortable with the idea of a system
-  similar to Python's INDENT/DEDENT tokens, Haskell seemed to use whitespace to
-  section code in a way that *felt* different.
+  similar to Python's INDENT/DEDENT tokens, Haskell's layout system is based on
+  alignment and is very generous with line-folding.
 
 .. _note: https://gitlab.haskell.org/ghc/ghc/-/wikis/commentary/coding-style#2-using-notes
 .. _GHC's lexer: https://gitlab.haskell.org/ghc/ghc/-/blob/master/compiler/GHC/Parser/Lexer.x#L1133
@@ -45,9 +42,9 @@ We will compare and contrast with Python's lexical analysis. Much to my dismay,
 Python uses newlines and indentation to separate statements and resolve scope
 instead of the traditional semicolons and braces found in C-style languages (we
 may generally refer to these C-style languages as *explicitly-sectioned*).
-Internally during tokenisation, when the Python lexer begins a new line, they
-compare the indentation of the new line with that of the previous and apply the
-following rules:
+Internally during tokenisation, when the Python lexer encounters a new line, the
+indentation of the new line is compared with that of the previous and the
+following rules are applied:
 
 1. If the new line has greater indentation than the previous, insert an INDENT
    token and push the new line's indentation level onto the indentation stack
@@ -60,44 +57,37 @@ following rules:
 3. If the indentation is equal, insert a NEWLINE token to terminate the previous
    line, and leave it at that!
 
-Parsing Python with the INDENT, DEDENT, and NEWLINE tokens is identical to
-parsing a language with braces and semicolons. This is a solution pretty in line
-with Python's philosophy of the "one correct answer" (TODO: this needs a
-source). In developing our *layout* rules, we will follow in the pattern of
-translating the whitespace-sensitive source language to an explicitly sectioned
-language.
+On the parser's end, the INDENT, DEDENT, and NEWLINE tokens are identical to
+braces and semicolons. In developing our *layout* rules, we will follow in the
+pattern of translating the whitespace-sensitive source language to an explicitly
+sectioned language.
 
 But What About Haskell?
 ***********************
 
-We saw that Python, the most notable example of an implicitly sectioned
-language, is pretty simple to lex. Why then am I so afraid of Haskell's layouts?
-To be frank, I'm far less scared after asking myself this -- however there are
-certainly some new complexities that Python needn't concern. Haskell has
-implicit line *continuation*: forms written over multiple lines; indentation
-styles often seen in Haskell are somewhat esoteric compared to Python's
-"s/[{};]//".
+Parsing Haskell -- and thus rl' -- is only slightly more complex than Python,
+but the design is certainly more sensitive. 
 
 .. code-block:: haskell
 
-   -- line continuation
+   -- line folds
    something = this is a
        single expression
 
    -- an extremely common style found in haskell
-   data Python = Users
-       { are        :: Crying
-       , right      :: About
-       , now        :: Sorry
+   data Some = Data
+       { is    :: Presented
+       , in    :: This
+       , silly :: Style
        }
 
-   -- another formatting oddity
+   -- another style oddity
    -- note that this is not a single
    -- continued line! `look at`,
-   -- `this`, and `alignment` are all
-   -- separate expressions!
+   -- `this odd`, and `alignment` are all
+   -- discrete items!
    anotherThing = do look at
-                     this
+                     this odd
                      alignment
 
 But enough fear, lets actually think about implementation. Firstly, some
@@ -233,3 +223,4 @@ References
 
 * `Haskell syntax reference
   <https://www.haskell.org/onlinereport/haskell2010/haskellch10.html>`_
+
diff --git a/doc/src/commentary/type-inference.rst b/doc/src/commentary/type-inference.rst
new file mode 100644
index 0000000..fa369bb
--- /dev/null
+++ b/doc/src/commentary/type-inference.rst
@@ -0,0 +1,5 @@
+Type Inference in rl'
+=====================
+
+rl' implements type inference via the Hindley-Milner type system.
+
diff --git a/doc/src/references/rlp-inference-rules.rst b/doc/src/references/rlp-inference-rules.rst
new file mode 100644
index 0000000..e9f7266
--- /dev/null
+++ b/doc/src/references/rlp-inference-rules.rst
@@ -0,0 +1,13 @@
+rl' Inference Rules
+===================
+
+.. rubric::
+   [Var]
+
+.. math::
+   \frac{x : \tau \in \Gamma}
+        {\Gamma \vdash x : \tau}
+
+.. rubric::
+   [App]
+
-- 
2.52.0


From fbef645746d68a654873ca129abf3575cf11aeec Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 24 Jan 2024 09:39:06 -0700
Subject: [PATCH 102/192] checklist

---
 programming-language-checklist | 105 +++++++++++++++++++++++++++++++++
 1 file changed, 105 insertions(+)
 create mode 100644 programming-language-checklist

diff --git a/programming-language-checklist b/programming-language-checklist
new file mode 100644
index 0000000..cbc72ff
--- /dev/null
+++ b/programming-language-checklist
@@ -0,0 +1,105 @@
+Programming Language Checklist
+by Colin McMillen, Jason Reed, and Elly Fong-Jones, 2011-10-10.
+
+You appear to be advocating a new:
+[x] functional  [ ] imperative  [ ] object-oriented  [ ] procedural [ ] stack-based
+[ ] "multi-paradigm"  [x] lazy  [ ] eager  [x] statically-typed  [ ] dynamically-typed
+[x] pure  [ ] impure  [ ] non-hygienic  [ ] visual  [x] beginner-friendly
+[ ] non-programmer-friendly  [ ] completely incomprehensible
+programming language.  Your language will not work.  Here is why it will not work.
+
+You appear to believe that:
+[ ] Syntax is what makes programming difficult
+[x] Garbage collection is free                [x] Computers have infinite memory
+[x] Nobody really needs:
+    [x] concurrency  [x] a REPL  [x] debugger support  [x] IDE support  [x] I/O
+    [x] to interact with code not written in your language
+[ ] The entire world speaks 7-bit ASCII
+[ ] Scaling up to large software projects will be easy
+[ ] Convincing programmers to adopt a new language will be easy
+[ ] Convincing programmers to adopt a language-specific IDE will be easy
+[ ] Programmers love writing lots of boilerplate
+[ ] Specifying behaviors as "undefined" means that programmers won't rely on them
+[ ] "Spooky action at a distance" makes programming more fun
+
+Unfortunately, your language (has/lacks):
+[x] comprehensible syntax  [ ] semicolons  [x] significant whitespace  [ ] macros
+[ ] implicit type conversion  [ ] explicit casting  [x] type inference
+[ ] goto  [ ] exceptions  [x] closures  [x] tail recursion  [ ] coroutines
+[ ] reflection  [ ] subtyping  [ ] multiple inheritance  [x] operator overloading
+[x] algebraic datatypes  [x] recursive types  [x] polymorphic types
+[ ] covariant array typing  [x] monads  [ ] dependent types
+[x] infix operators  [x] nested comments  [ ] multi-line strings  [ ] regexes
+[ ] call-by-value  [x] call-by-name  [ ] call-by-reference  [ ] call-cc
+
+The following philosophical objections apply:
+[ ] Programmers should not need to understand category theory to write "Hello, World!"
+[ ] Programmers should not develop RSI from writing "Hello, World!"
+[ ] The most significant program written in your language is its own compiler
+[x] The most significant program written in your language isn't even its own compiler
+[x] No language spec
+[x] "The implementation is the spec"
+   [ ] The implementation is closed-source  [ ] covered by patents  [ ] not owned by you
+[ ] Your type system is unsound  [ ] Your language cannot be unambiguously parsed
+   [ ] a proof of same is attached
+   [ ] invoking this proof crashes the compiler
+[x] The name of your language makes it impossible to find on Google
+[x] Interpreted languages will never be as fast as C
+[ ] Compiled languages will never be "extensible"
+[ ] Writing a compiler that understands English is AI-complete
+[ ] Your language relies on an optimization which has never been shown possible
+[ ] There are less than 100 programmers on Earth smart enough to use your language
+[ ] ____________________________ takes exponential time
+[ ] ____________________________ is known to be undecidable
+
+Your implementation has the following flaws:
+[ ] CPUs do not work that way
+[ ] RAM does not work that way
+[ ] VMs do not work that way
+[ ] Compilers do not work that way
+[ ] Compilers cannot work that way
+[ ] Shift-reduce conflicts in parsing seem to be resolved using rand()
+[ ] You require the compiler to be present at runtime
+[ ] You require the language runtime to be present at compile-time
+[ ] Your compiler errors are completely inscrutable
+[ ] Dangerous behavior is only a warning
+[ ] The compiler crashes if you look at it funny
+[x] The VM crashes if you look at it funny
+[x] You don't seem to understand basic optimization techniques
+[x] You don't seem to understand basic systems programming
+[ ] You don't seem to understand pointers
+[ ] You don't seem to understand functions
+
+Additionally, your marketing has the following problems:
+[x] Unsupported claims of increased productivity
+[x] Unsupported claims of greater "ease of use"
+[ ] Obviously rigged benchmarks
+   [ ] Graphics, simulation, or crypto benchmarks where your code just calls
+       handwritten assembly through your FFI
+   [ ] String-processing benchmarks where you just call PCRE
+   [ ] Matrix-math benchmarks where you just call BLAS
+[x] Noone really believes that your language is faster than:
+    [x] assembly  [x] C  [x] FORTRAN  [x] Java  [x] Ruby  [ ] Prolog
+[ ] Rejection of orthodox programming-language theory without justification
+[x] Rejection of orthodox systems programming without justification
+[ ] Rejection of orthodox algorithmic theory without justification
+[ ] Rejection of basic computer science without justification
+
+Taking the wider ecosystem into account, I would like to note that:
+[x] Your complex sample code would be one line in: examples/
+[ ] We already have an unsafe imperative language
+[ ] We already have a safe imperative OO language
+[x] We already have a safe statically-typed eager functional language
+[ ] You have reinvented Lisp but worse
+[ ] You have reinvented Javascript but worse
+[ ] You have reinvented Java but worse
+[ ] You have reinvented C++ but worse
+[ ] You have reinvented PHP but worse
+[ ] You have reinvented PHP better, but that's still no justification
+[ ] You have reinvented Brainfuck but non-ironically
+
+In conclusion, this is what I think of you:
+[ ] You have some interesting ideas, but this won't fly.
+[x] This is a bad language, and you should feel bad for inventing it.
+[ ] Programming in this language is an adequate punishment for inventing it.
+
-- 
2.52.0


From 7c474cc0641a3865fc955f8d94c4803dd7bd7f53 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 24 Jan 2024 09:49:27 -0700
Subject: [PATCH 103/192] minor docs

---
 doc/src/references/rlp-inference-rules.rst | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/doc/src/references/rlp-inference-rules.rst b/doc/src/references/rlp-inference-rules.rst
index e9f7266..9520d0f 100644
--- a/doc/src/references/rlp-inference-rules.rst
+++ b/doc/src/references/rlp-inference-rules.rst
@@ -11,3 +11,7 @@ rl' Inference Rules
 .. rubric::
    [App]
 
+.. math::
+   \frac{\Gamma \vdash f : \alpha \to \beta \qquad \Gamma \vdash x : \alpha}
+        {\Gamma \vdash f x : \beta}
+
-- 
2.52.0


From 0025d3306949e145d302ee1d5503019274f11ec9 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 24 Jan 2024 10:14:44 -0700
Subject: [PATCH 104/192] stable enough for a demo hey?

---
 tst/Core/HindleyMilnerSpec.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/tst/Core/HindleyMilnerSpec.hs b/tst/Core/HindleyMilnerSpec.hs
index 7dbe178..97e4732 100644
--- a/tst/Core/HindleyMilnerSpec.hs
+++ b/tst/Core/HindleyMilnerSpec.hs
@@ -38,6 +38,18 @@ spec = do
         let e = [coreExpr|3|]
         in check' [] (TyCon "Bool") e `shouldSatisfy` isLeft
 
+    it "should infer `fix ((+#) 1)` :: Int" $
+        let g = [ ("fix", ("a" :-> "a") :-> "a")
+                , ("+#", TyInt :-> TyInt :-> TyInt) ]
+            e = [coreExpr|fix ((+#) 1)|]
+        in infer' g e `shouldBe` Right TyInt
+
+    it "should infer mutually recursively defined lists" $
+        let g = [ ("cons", TyInt :-> TyCon "IntList" :-> TyCon "IntList") ]
+            e :: Expr'
+            e = [coreExpr|letrec { as = cons 1 bs; bs = cons 2 as } in as|]
+        in infer' g e `shouldBe` Right (TyCon "IntList")
+
 infer' :: Context' -> Expr' -> Either [TypeError] Type
 infer' g e = case runErrorful $ infer g e of
     (Just t,   _) -> Right t
-- 
2.52.0


From d52a366c1bfd6565a2957fbdc4c4b5dde5861123 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 24 Jan 2024 11:03:51 -0700
Subject: [PATCH 105/192] small fixups

---
 src/Core/HindleyMilner.hs | 12 ++++++++++--
 src/Core/Syntax.hs        | 15 ++++++++++-----
 2 files changed, 20 insertions(+), 7 deletions(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 3699310..cf0dace 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -55,11 +55,14 @@ instance IsRlpcError TypeError where
     liftRlpcError = \case
         -- todo: use anti-parser instead of show
         TyErrCouldNotUnify t u -> Text
-            [ T.pack $ printf "Could not match type `%s' with `%s'."
+            [ T.pack $ printf "Could not match type `%s` with `%s`."
                               (show t) (show u)
             , "Expected: " <> tshow t
             , "Got: " <> tshow u
             ]
+        TyErrUntypedVariable n -> Text
+            [ "Untyped (likely undefined) variable `" <> n <> "`"
+            ]
         TyErrRecursiveType t x -> Text
             [ T.pack $ printf "recursive type error lol"
             ]
@@ -157,7 +160,12 @@ gather = \g e -> runStateT (go g e) ([],0) <&> \ (t,(cs,_)) -> (t,cs) where
         Let Rec bs e -> do
             g' <- buildLetrecContext g bs
             go g' e
-
+        Lam bs e -> case bs of
+            [x] -> do
+                tx <- uniqueVar
+                let g' = (x,tx) : g
+                te <- go g' e
+                pure (tx :-> te)
         -- TODO lambda, case
 
     buildLetrecContext :: Context' -> [Binding']
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index fb9b720..f4785c6 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -5,6 +5,7 @@ Description : Core ASTs and the like
 {-# LANGUAGE PatternSynonyms, OverloadedStrings #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE DerivingStrategies, DerivingVia #-}
 module Core.Syntax
     ( Expr(..)
     , Type(..)
@@ -45,6 +46,7 @@ import Data.HashMap.Strict          qualified as H
 import Data.Hashable
 import Data.Text                    qualified as T
 import Data.Char
+import GHC.Generics
 -- Lift instances for the Core quasiquoters
 import Language.Haskell.TH.Syntax   (Lift)
 import Lens.Micro.TH                (makeLenses)
@@ -127,7 +129,9 @@ data Program b = Program
     { _programScDefs   :: [ScDef b]
     , _programTypeSigs :: H.HashMap b Type
     }
-    deriving (Show, Lift)
+    deriving (Show, Lift, Generic)
+    deriving (Semigroup, Monoid)
+        via Generically (Program b)
 
 makeLenses ''Program
 pure []
@@ -148,11 +152,12 @@ instance IsString Type where
         | otherwise     = TyVar . fromString $ s
         where (c:_) = s
 
-instance (Hashable b) => Semigroup (Program b) where
-    (<>) = undefined
+-- instance (Hashable b) => Semigroup (Program b) where
+--     p <> q = Program
+--         { _programScDefs = _programScDefs p <> _programScDefs q }
 
-instance (Hashable b) => Monoid (Program b) where
-    mempty = Program mempty mempty
+-- instance (Hashable b) => Monoid (Program b) where
+--     mempty = Program mempty mempty
 
 ----------------------------------------------------------------------------------
 
-- 
2.52.0


From 170e4e36aee7344324f3fc8bbb27b857cab41a8d Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 24 Jan 2024 11:30:34 -0700
Subject: [PATCH 106/192] new tag syntax; preparing for Core patterns

new tag syntax; preparing for data names
---
 CHANGELOG.md          | 17 +++++++++++++++++
 examples/factorial.hs |  4 ++--
 examples/sumList.hs   |  4 ++--
 src/Core/Examples.hs  | 14 +++++++-------
 src/Core/Lex.x        |  5 +++++
 src/Core/Parse.y      |  3 ++-
 src/Core/Syntax.hs    | 15 ++++++---------
 src/GM.hs             |  2 +-
 8 files changed, 42 insertions(+), 22 deletions(-)
 create mode 100644 CHANGELOG.md

diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
index 0000000..9921c0c
--- /dev/null
+++ b/CHANGELOG.md
@@ -0,0 +1,17 @@
+# unreleased
+
+* New tag syntax:
+  ```hs
+  case x of
+    { 1 -> something
+    ; 2 -> another
+    }
+  ```
+  is now written as
+  ```hs
+  case x of
+    { <1> -> something
+    ; <2> -> another
+    }
+  ```
+
diff --git a/examples/factorial.hs b/examples/factorial.hs
index cc235ab..1080c7b 100644
--- a/examples/factorial.hs
+++ b/examples/factorial.hs
@@ -1,6 +1,6 @@
 fac n = case (==#) n 0 of
-    { 1 -> 1
-    ; 0 -> (*#) n (fac ((-#) n 1))
+    { <1> -> 1
+    ; <0> -> (*#) n (fac ((-#) n 1))
     };
 
 main = fac 3;
diff --git a/examples/sumList.hs b/examples/sumList.hs
index fd46a60..5193a67 100644
--- a/examples/sumList.hs
+++ b/examples/sumList.hs
@@ -2,8 +2,8 @@ nil = Pack{0 0};
 cons x y = Pack{1 2} x y;
 list = cons 1 (cons 2 (cons 3 nil));
 sum l = case l of
-    { 0      -> 0
-    ; 1 x xs -> (+#) x (sum xs)
+    { <0>      -> 0
+    ; <1> x xs -> (+#) x (sum xs)
     };
 main = sum list;
 
diff --git a/src/Core/Examples.hs b/src/Core/Examples.hs
index 2ca54e3..0b741e9 100644
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -147,8 +147,8 @@ simple1 = [coreProg|
 caseBool1 :: Program'
 caseBool1 = [coreProg|
     _if c x y = case c of
-        { 1 -> x
-        ; 0 -> y
+        { <1> -> x
+        ; <0> -> y
         };
 
     false = Pack{0 0};
@@ -160,8 +160,8 @@ caseBool1 = [coreProg|
 fac3 :: Program'
 fac3 = [coreProg|
     fac n = case (==#) n 0 of
-        { 1 -> 1
-        ; 0 -> (*#) n (fac ((-#) n 1))
+        { <1> -> 1
+        ; <0> -> (*#) n (fac ((-#) n 1))
         };
 
     main = fac 3;
@@ -175,8 +175,8 @@ sumList = [coreProg|
         cons x y = Pack{1 2} x y;
         list = cons 1 (cons 2 (cons 3 nil));
         sum l = case l of
-            { 0      -> 0
-            ; 1 x xs -> (+#) x (sum xs)
+            { <0>      -> 0
+            ; <1> x xs -> (+#) x (sum xs)
             };
         main = sum list;
     |]
@@ -192,7 +192,7 @@ idCase = [coreProg|
         id x = x;
 
         main = id (case Pack{1 0} of
-            { 1 -> (+#) 2 3
+            { <1> -> (+#) 2 3
             })
     |]
 
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index f939258..ba62996 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -65,6 +65,8 @@ $white_no_nl = $white # $nl
 
 @decimal = $digit+
 
+@alttag    = "<" $digit+ ">"
+
 rlp :-
 
 <0>
@@ -92,6 +94,8 @@ rlp :-
     "="                     { constTok TokenEquals }
     "->"                    { constTok TokenArrow }
 
+    @alttag                 { lexWith ( TokenAltTag . read @Int . T.unpack
+                                      . T.drop 1 . T.init ) }
     @varname                { lexWith TokenVarName }
     @conname                { lexWith TokenConName }
     @varsym                 { lexWith TokenVarSym }
@@ -135,6 +139,7 @@ data CoreToken = TokenLet
                | TokenConName Name
                | TokenVarSym Name
                | TokenConSym Name
+               | TokenAltTag Tag
                | TokenEquals
                | TokenLParen
                | TokenRParen
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index b8a0cf3..6d2e5ef 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -49,6 +49,7 @@ import Data.HashMap.Strict  qualified as H
       varsym          { Located _ _ _ (TokenVarSym $$) }
       conname         { Located _ _ _ (TokenConName $$) }
       consym          { Located _ _ _ (TokenConSym $$) }
+      alttag          { Located _ _ _ (TokenAltTag $$) }
       word            { Located _ _ _ (TokenWord $$) }
       'λ'             { Located _ _ _ TokenLambda }
       '->'            { Located _ _ _ TokenArrow }
@@ -149,7 +150,7 @@ Alters          : Alter ';' Alters              { $1 : $3 }
                 | Alter                         { [$1] }
 
 Alter           :: { Alter Name }
-Alter           : litint ParList '->' Expr      { Alter (AltData $1) $2 $4 }
+Alter           : alttag ParList '->' Expr      { Alter (AltTag $1) $2 $4 }
 
 Expr1           :: { Expr Name }
 Expr1           : litint                        { Lit $ IntL $1 }
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index f4785c6..f48d2da 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -42,6 +42,7 @@ import Data.Pretty
 import Data.List                    (intersperse)
 import Data.Function                ((&))
 import Data.String
+import Data.HashMap.Strict          (HashMap)
 import Data.HashMap.Strict          qualified as H
 import Data.Hashable
 import Data.Text                    qualified as T
@@ -105,7 +106,8 @@ data Rec = Rec
          | NonRec
          deriving (Show, Read, Eq, Lift)
 
-data AltCon = AltData Tag
+data AltCon = AltData Name
+            | AltTag Tag
             | AltLit Lit
             | Default
             deriving (Show, Read, Eq, Lift)
@@ -127,7 +129,9 @@ data Module b = Module (Maybe (Name, [Name])) (Program b)
 
 data Program b = Program
     { _programScDefs   :: [ScDef b]
-    , _programTypeSigs :: H.HashMap b Type
+    , _programTypeSigs :: HashMap b Type
+    -- map constructors to their tag and arity
+    , _programDataTags :: HashMap b (Tag, Int)
     }
     deriving (Show, Lift, Generic)
     deriving (Semigroup, Monoid)
@@ -152,13 +156,6 @@ instance IsString Type where
         | otherwise     = TyVar . fromString $ s
         where (c:_) = s
 
--- instance (Hashable b) => Semigroup (Program b) where
---     p <> q = Program
---         { _programScDefs = _programScDefs p <> _programScDefs q }
-
--- instance (Hashable b) => Monoid (Program b) where
---     mempty = Program mempty mempty
-
 ----------------------------------------------------------------------------------
 
 class HasRHS s t a b | s -> a, t -> b, s b -> t, t a -> s where
diff --git a/src/GM.hs b/src/GM.hs
index 8b91393..46bf3a9 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -724,7 +724,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
         compileD g as = fmap (compileA g) as
 
         compileA :: Env -> Alter' -> (Tag, Code)
-        compileA g (Alter (AltData t) as e) = (t, [Split n] <> c <> [Slide n])
+        compileA g (Alter (AltTag t) as e) = (t, [Split n] <> c <> [Slide n])
             where
                 n = length as
                 binds = (NameKey <$> as) `zip` [0..]
-- 
2.52.0


From 4c99e44c04bcb2142387f1f8e12882b2b6a5d50c Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 25 Jan 2024 11:15:09 -0700
Subject: [PATCH 107/192] temporary pragma system

---
 src/Core/Parse.y   | 36 ++++++++++++++++++++++++++----------
 src/Core/Syntax.hs |  4 ++++
 src/Core2Core.hs   | 15 ++++++---------
 src/GM.hs          |  3 ++-
 4 files changed, 38 insertions(+), 20 deletions(-)

diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 6d2e5ef..969d3e5 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -3,7 +3,7 @@
 Module : Core.Parse
 Description : Parser for the Core language
 -}
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings, ViewPatterns #-}
 module Core.Parse
     ( parseCore
     , parseCoreExpr
@@ -23,7 +23,9 @@ import Compiler.RLPC
 import Lens.Micro
 import Data.Default.Class   (def)
 import Data.Hashable        (Hashable)
+import Data.List.Extra
 import Data.Text.IO         qualified as TIO
+import Data.Text            (Text)
 import Data.Text            qualified as T
 import Data.HashMap.Strict  qualified as H
 }
@@ -83,6 +85,15 @@ Program         : ScTypeSig ';' Program         { insTypeSig $1 $3 }
                 | ScTypeSig OptSemi             { singletonTypeSig $1 }
                 | ScDef     ';' Program         { insScDef $1 $3 }
                 | ScDef     OptSemi             { singletonScDef $1 }
+                | TLPragma  ';' Program         {% doTLPragma $1 $3 }
+                | TLPragma  OptSemi             {% doTLPragma $1 mempty }
+
+TLPragma        :: { Pragma }
+                : '{-#' Words '#-}'             { Pragma $2 }
+
+Words           :: { [Text] }
+                : Words word                    { $1 `snoc` $2 }
+                | word                          { [$1] }
 
 OptSemi         :: { () }
 OptSemi         : ';'                           { () }
@@ -150,22 +161,15 @@ Alters          : Alter ';' Alters              { $1 : $3 }
                 | Alter                         { [$1] }
 
 Alter           :: { Alter Name }
-Alter           : alttag ParList '->' Expr      { Alter (AltTag $1) $2 $4 }
+Alter           : alttag ParList '->' Expr      { Alter (AltTag  $1) $2 $4 }
+                | Con    ParList '->' Expr      { Alter (AltData $1) $2 $4 }
 
 Expr1           :: { Expr Name }
 Expr1           : litint                        { Lit $ IntL $1 }
                 | Id                            { Var $1 }
                 | PackCon                       { $1 }
-                | ExprPragma                    { $1 }
                 | '(' Expr ')'                  { $2 }
 
-ExprPragma      :: { Expr Name }
-ExprPragma      : '{-#' Words '#-}'      {% exprPragma $2 }
-
-Words           :: { [String] }
-Words           : word Words                    { T.unpack $1 : $2 }
-                | word                          { [T.unpack $1] }
-
 PackCon         :: { Expr Name }
 PackCon         : pack '{' litint litint '}'    { Con $3 $4 }
 
@@ -230,5 +234,17 @@ happyBind m k = m >>= k
 happyPure :: a -> RLPC a
 happyPure a = pure a
 
+doTLPragma :: Pragma -> Program' -> RLPC Program'
+-- TODO: warn unrecognised pragma
+doTLPragma (Pragma []) p = pure p
+
+doTLPragma (Pragma pr) p = case pr of
+    -- TODO: warn on overwrite
+    ["PackData", n, readt -> t, readt -> a] ->
+        pure $ p & programDataTags . at n ?~ (t,a)
+
+readt :: (Read a) => Text -> a
+readt = read . T.unpack
+
 }
 
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index f48d2da..9717b61 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -25,9 +25,11 @@ module Core.Syntax
     , Module(..)
     , Program(..)
     , Program'
+    , Pragma(..)
     , unliftScDef
     , programScDefs
     , programTypeSigs
+    , programDataTags
     , Expr'
     , ScDef'
     , Alter'
@@ -102,6 +104,8 @@ data Alter b = Alter AltCon [b] (Expr b)
 
 deriving instance (Eq b) => Eq (Alter b)
 
+newtype Pragma = Pragma [T.Text]
+
 data Rec = Rec
          | NonRec
          deriving (Show, Read, Eq, Lift)
diff --git a/src/Core2Core.hs b/src/Core2Core.hs
index 5088dab..c21bd92 100644
--- a/src/Core2Core.hs
+++ b/src/Core2Core.hs
@@ -15,7 +15,7 @@ import Data.Set                 (Set)
 import Data.Set                 qualified as S
 import Data.List
 import Control.Monad.Writer
-import Control.Monad.State
+import Control.Monad.State.Lazy
 import Control.Arrow            ((>>>))
 import Data.Text                qualified as T
 import Numeric                  (showHex)
@@ -28,19 +28,16 @@ core2core :: Program' -> Program'
 core2core p = undefined
 
 gmPrep :: Program' -> Program'
-gmPrep p = p' & programScDefs %~ (<>caseScs)
+gmPrep p = p & traverseOf rhss (floatNonStrictCases globals)
+             & runFloater
+             & \ (me,caseScs) -> me & programScDefs %~ (<>caseScs)
     where
-        rhss :: Applicative f => (Expr z -> f (Expr z)) -> Program z -> f (Program z)
+        rhss :: Traversal' (Program z) (Expr z)
         rhss = programScDefs . each . _rhs
+
         globals = p ^.. programScDefs . each . _lhs . _1
                 & S.fromList
 
-        -- i kinda don't like that we're calling floatNonStrictCases twice tbh
-        p'      = p & rhss %~ fst . runFloater . floatNonStrictCases globals
-        caseScs = (p ^.. rhss)
-              <&> snd . runFloater . floatNonStrictCases globals
-                & mconcat
-
 -- | Auxilary type used in @floatNonSrictCases@
 type Floater = StateT [Name] (Writer [ScDef'])
 
diff --git a/src/GM.hs b/src/GM.hs
index 46bf3a9..d5ad9f6 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -661,7 +661,8 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
         compileC _ (Con t n) = [PushConstr t n]
 
         compileC _ (Case _ _) =
-            error "case expressions may not appear in non-strict contexts :/"
+            error "GM compiler found a non-strict case expression, which should\
+                  \ have been floated by Core2Core.gmPrep. This is bad!"
 
         compileC _ _ = error "yet to be implemented!"
 
-- 
2.52.0


From 4f39dd36f1f84b0e2f8fc11453962469f1ab8ad0 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 25 Jan 2024 12:39:57 -0700
Subject: [PATCH 108/192] resolve named data in case exprs

---
 src/Core/Parse.y   |  5 ++---
 src/Core/Syntax.hs | 15 +++++++++++++++
 src/Core/Utils.hs  | 26 ++++++++------------------
 src/Core2Core.hs   | 32 +++++++++++++++++++++++++-------
 4 files changed, 50 insertions(+), 28 deletions(-)

diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 969d3e5..7dbb6b5 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -85,8 +85,8 @@ Program         : ScTypeSig ';' Program         { insTypeSig $1 $3 }
                 | ScTypeSig OptSemi             { singletonTypeSig $1 }
                 | ScDef     ';' Program         { insScDef $1 $3 }
                 | ScDef     OptSemi             { singletonScDef $1 }
-                | TLPragma  ';' Program         {% doTLPragma $1 $3 }
-                | TLPragma  OptSemi             {% doTLPragma $1 mempty }
+                | TLPragma  Program             {% doTLPragma $1 $2 }
+                | TLPragma                      {% doTLPragma $1 mempty }
 
 TLPragma        :: { Pragma }
                 : '{-#' Words '#-}'             { Pragma $2 }
@@ -106,7 +106,6 @@ ScDefs          :: { [ScDef Name] }
 ScDefs          : ScDef ';' ScDefs              { $1 : $3 }
                 | ScDef ';'                     { [$1] }
                 | ScDef                         { [$1] }
-                | {- epsilon -}                 { [] }
 
 ScDef           :: { ScDef Name }
 ScDef           : Var ParList '=' Expr          { ScDef $1 $2 $4 }
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 9717b61..83b4934 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -6,8 +6,13 @@ Description : Core ASTs and the like
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE DerivingStrategies, DerivingVia #-}
+-- for recursion-schemes
+{-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable
+  , TemplateHaskell, TypeFamilies #-}
 module Core.Syntax
     ( Expr(..)
+    , ExprF(..)
+    , ExprF'(..)
     , Type(..)
     , pattern TyInt
     , Lit(..)
@@ -43,6 +48,8 @@ import Data.Coerce
 import Data.Pretty
 import Data.List                    (intersperse)
 import Data.Function                ((&))
+import Data.Functor.Foldable
+import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Data.String
 import Data.HashMap.Strict          (HashMap)
 import Data.HashMap.Strict          qualified as H
@@ -142,8 +149,11 @@ data Program b = Program
         via Generically (Program b)
 
 makeLenses ''Program
+makeBaseFunctor ''Expr
 pure []
 
+type ExprF' = ExprF Name
+
 type Program' = Program Name
 type Expr' = Expr Name
 type ScDef' = ScDef Name
@@ -193,3 +203,8 @@ instance HasLHS (ScDef b) (ScDef b) (b, [b]) (b, [b]) where
         (\ (ScDef n as _) -> (n,as))
         (\ (ScDef _ _ e) (n',as') -> (ScDef n' as' e))
 
+instance HasLHS (Binding b) (Binding b) b b where
+    _lhs = lens
+        (\ (k := _) -> k)
+        (\ (_ := e) k' -> k' := e)
+
diff --git a/src/Core/Utils.hs b/src/Core/Utils.hs
index 1a47785..956a067 100644
--- a/src/Core/Utils.hs
+++ b/src/Core/Utils.hs
@@ -1,16 +1,10 @@
--- for recursion schemes
-{-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable #-}
--- for recursion schemes
-{-# LANGUAGE TemplateHaskell, TypeFamilies #-}
-
 module Core.Utils
-    ( bindersOf
-    , rhssOf
+    ( programRhss
+    , programGlobals
     , isAtomic
     -- , insertModule
     , extractProgram
     , freeVariables
-    , ExprF(..)
     )
     where
 ----------------------------------------------------------------------------------
@@ -23,13 +17,11 @@ import Lens.Micro
 import GHC.Exts                     (IsList(..))
 ----------------------------------------------------------------------------------
 
-bindersOf :: (IsList l, Item l ~ b) => [Binding b] -> l
-bindersOf bs = fromList $ fmap f bs
-    where f (k := _) = k
+programGlobals :: Traversal' (Program b) b
+programGlobals = programScDefs . each . _lhs . _1
 
-rhssOf :: (IsList l, Item l ~ Expr b) => [Binding b] -> l
-rhssOf = fromList . fmap f
-    where f (_ := v) = v
+programRhss :: Traversal' (Program b) (Expr b)
+programRhss = programScDefs . each . _rhs
 
 isAtomic :: Expr b -> Bool
 isAtomic (Var _)  = True
@@ -47,8 +39,6 @@ extractProgram (Module _ p) = p
 
 ----------------------------------------------------------------------------------
 
-makeBaseFunctor ''Expr
-
 freeVariables :: Expr' -> Set Name
 freeVariables = cata go
     where
@@ -57,8 +47,8 @@ freeVariables = cata go
         -- TODO: collect free vars in rhss of bs
         go (LetF _ bs e)    = (e `S.union` esFree) `S.difference` ns
             where
-                es = rhssOf bs :: [Expr']
-                ns = bindersOf bs
+                es = bs ^.. each . _rhs :: [Expr']
+                ns = S.fromList $ bs ^.. each . _lhs
                 -- TODO: this feels a little wrong. maybe a different scheme is
                 -- appropriate
                 esFree = foldMap id $ freeVariables <$> es
diff --git a/src/Core2Core.hs b/src/Core2Core.hs
index c21bd92..2036915 100644
--- a/src/Core2Core.hs
+++ b/src/Core2Core.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE ImplicitParams #-}
 {-# LANGUAGE LambdaCase #-}
 module Core2Core
     ( core2core
@@ -18,8 +19,9 @@ import Control.Monad.Writer
 import Control.Monad.State.Lazy
 import Control.Arrow            ((>>>))
 import Data.Text                qualified as T
+import Data.HashMap.Strict      (HashMap)
 import Numeric                  (showHex)
-import Lens.Micro
+import Lens.Micro.Platform
 import Core.Syntax
 import Core.Utils
 ----------------------------------------------------------------------------------
@@ -28,19 +30,35 @@ core2core :: Program' -> Program'
 core2core p = undefined
 
 gmPrep :: Program' -> Program'
-gmPrep p = p & traverseOf rhss (floatNonStrictCases globals)
-             & runFloater
-             & \ (me,caseScs) -> me & programScDefs %~ (<>caseScs)
+gmPrep p = p & appFloater (floatNonStrictCases globals)
+             & tagData
     where
-        rhss :: Traversal' (Program z) (Expr z)
-        rhss = programScDefs . each . _rhs
-
         globals = p ^.. programScDefs . each . _lhs . _1
                 & S.fromList
 
+tagData :: Program' -> Program'
+tagData p = let ?dt = p ^. programDataTags
+            in p & programRhss %~ cata go where
+    go :: (?dt :: HashMap Name (Tag, Int)) => ExprF' Expr' -> Expr'
+    go (CaseF  e as)    = Case e (tagAlts <$> as)
+    go x                = embed x
+
+    tagAlts :: (?dt :: HashMap Name (Tag, Int)) => Alter' -> Alter'
+    tagAlts (Alter (AltData c) bs e) = Alter (AltTag tag) bs e
+        where tag = case ?dt ^. at c of
+                Just (t,_) -> t
+                -- TODO: errorful
+                Nothing    -> error $ "unknown constructor " <> show c
+    tagAlts x = x
+
 -- | Auxilary type used in @floatNonSrictCases@
 type Floater = StateT [Name] (Writer [ScDef'])
 
+appFloater :: (Expr' -> Floater Expr') -> Program' -> Program'
+appFloater fl p = p & traverseOf programRhss fl
+                    & runFloater
+                    & \ (me,floats) -> me & programScDefs %~ (<>floats)
+
 runFloater :: Floater a -> (a, [ScDef'])
 runFloater = flip evalStateT ns >>> runWriter
     where
-- 
2.52.0


From eeeac9cc85291553c2d9c4e5edf0eb377b52102b Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 25 Jan 2024 13:02:12 -0700
Subject: [PATCH 109/192] named constr tests

---
 src/Core/Examples.hs | 33 +++++++++++++++++++++++++++------
 src/GM.hs            |  6 +++++-
 tst/GMSpec.hs        | 15 +++++++++++----
 3 files changed, 43 insertions(+), 11 deletions(-)

diff --git a/src/Core/Examples.hs b/src/Core/Examples.hs
index 0b741e9..f9f4468 100644
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -4,12 +4,7 @@ Description : Core examples (may eventually be unit tests)
 -}
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE OverloadedStrings #-}
-module Core.Examples
-    ( fac3
-    , sumList
-    , constDivZero
-    , idCase
-    ) where
+module Core.Examples where
 ----------------------------------------------------------------------------------
 import Core.Syntax
 import Core.TH
@@ -196,6 +191,32 @@ idCase = [coreProg|
             })
     |]
 
+-- NOTE: the GM primitive (==#) returns an untyped constructor with tag 1 for
+-- true, and 0 for false. See: GM.boxBool
+namedBoolCase :: Program'
+namedBoolCase = [coreProg|
+        {-# PackData True 1 0 #-}
+        {-# PackData False 0 0 #-}
+        main = case (==#) 1 1 of
+            { True -> 123
+            ; False -> 456
+            }
+    |]
+
+namedConsCase :: Program'
+namedConsCase = [coreProg|
+        {-# PackData Nil  0 0 #-}
+        {-# PackData Cons 1 2 #-}
+        Nil = Pack{0 0};
+        Cons = Pack{1 2};
+        foldr f z l = case l of
+            { Nil       -> z
+            ; Cons x xs -> f x (foldr f z xs)
+            };
+        list = Cons 1 (Cons 2 (Cons 3 Nil));
+        main = foldr (+#) 0 list
+    |]
+
 -- corePrelude :: Module Name
 -- corePrelude = Module (Just ("Prelude", [])) $
 --     -- non-primitive defs
diff --git a/src/GM.hs b/src/GM.hs
index d5ad9f6..065cb08 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -662,7 +662,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
 
         compileC _ (Case _ _) =
             error "GM compiler found a non-strict case expression, which should\
-                  \ have been floated by Core2Core.gmPrep. This is bad!"
+                  \ have been floated by Core2Core.gmPrep. This is a bug!"
 
         compileC _ _ = error "yet to be implemented!"
 
@@ -731,6 +731,10 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
                 binds = (NameKey <$> as) `zip` [0..]
                 g' = binds ++ argOffset n g
                 c = compileE g' e
+        compileA _ (Alter _ as e) = error "GM.compileA found an untagged\
+                                          \ constructor, which should have\
+                                          \ been handled by Core2Core.gmPrep.\
+                                          \ This is a bug!"
 
         inlineOp1 :: Env -> Instr -> Expr' -> Code
         inlineOp1 g i a = compileE g a <> [i]
diff --git a/tst/GMSpec.hs b/tst/GMSpec.hs
index dd5957a..cc5faf1 100644
--- a/tst/GMSpec.hs
+++ b/tst/GMSpec.hs
@@ -27,15 +27,22 @@ spec = do
             in coreRes `shouldBe` arithRes
 
     describe "test programs" $ do
-        it "fac 3" $ do
+        it "fac 3" $
             resultOf Ex.fac3 `shouldBe` Just (NNum 6)
 
-        it "sum [1,2,3]" $ do
+        it "sum [1,2,3]" $
             resultOf Ex.sumList `shouldBe` Just (NNum 6)
 
-        it "k 3 ((/#) 1 0)" $ do
+        it "k 3 ((/#) 1 0)" $
             resultOf Ex.constDivZero `shouldBe` Just (NNum 3)
 
-        it "id (case ... of { ... })" $ do
+        it "id (case ... of { ... })" $
             resultOf Ex.idCase `shouldBe` Just (NNum 5)
 
+        it "bool pattern matching with named constructors" $
+            resultOf Ex.namedBoolCase `shouldBe` Just (NNum 123)
+
+        it "list pattern matching with named constructors" $
+            resultOf Ex.namedConsCase `shouldBe` Just (NNum 6)
+
+
-- 
2.52.0


From bb3f73836ce0f54eff35606cf196ce6423cb04c8 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 25 Jan 2024 13:18:04 -0700
Subject: [PATCH 110/192] nearing release :3

---
 README.md | 61 +++++++++++++++++++++++++++++++++++++++----------------
 1 file changed, 44 insertions(+), 17 deletions(-)

diff --git a/README.md b/README.md
index 99d6323..2f38469 100644
--- a/README.md
+++ b/README.md
@@ -30,12 +30,12 @@ $ rlpc -ddump-opts t.hs
 
 ### Potential Features
 Listed in order of importance.
-- [ ] ADTs
-- [ ] First-class functions
+- [x] ADTs
+- [x] First-class functions
 - [ ] Higher-kinded types
 - [ ] Typeclasses
-- [ ] Parametric polymorphism
-- [ ] Hindley-Milner type inference
+- [x] Parametric polymorphism
+- [x] Hindley-Milner type inference
 - [ ] Newtype coercion
 - [ ] Parallelism
 
@@ -66,32 +66,59 @@ Listed in order of importance.
         - [ ] TCO
         - [ ] DCE
 - [ ] Frontend
-    - [ ] High-level language
-        - [ ] AST
-        - [ ] Lexer
-        - [ ] Parser
+    - [x] High-level language
+        - [x] AST
+        - [x] Lexer
+        - [x] Parser
     - [ ] Translation to the core language
         - [ ] Constraint solver
         - [ ] `do`-notation
     - [x] CLI
 - [ ] Documentation
-    - [ ] State transition rules
+    - [x] State transition rules
     - [ ] How does the evaluation model work?
+    - [ ] The Hindley-Milner type system
     - [ ] CLI usage
     - [ ] Tail call optimisation
-    - [x] Parsing rlp
+    - [ ] Parsing rlp
 - [ ] Tests
     - [x] Generic example programs
     - [ ] Parser
 
-### December Release Plan
-- [ ] Tests
+### ~~December Release Plan~~
+- [x] Tests
     - [ ] Core lexer
     - [ ] Core parser
-    - [ ] Evaluation model
+    - [x] Evaluation model
 - [ ] Benchmarks
-- [ ] Stable Core lexer
-- [ ] Stable Core parser
-- [ ] Stable evaluation model
-    - [ ] Garbage Collection
+- [x] Stable Core lexer
+- [x] Stable Core parser
+- [x] Stable evaluation model
+    - [x] Garbage Collection
 - [ ] Stable documentation for the evaluation model
+
+### January Release Plan
+- [ ] Beta rl' to Core
+- [ ] UX improvements
+    - [ ] Actual compiler errors -- no more unexceptional `error` calls
+    - [ ] Better CLI dump flags
+    - [ ] Annotate the AST with token positions for errors
+
+### March Release Plan
+- [ ] Tests
+    - [ ] rl' parser
+    - [ ] rl' lexer
+
+### Indefinite Release Plan
+
+This list is more concrete than the milestones, but likely further in the future
+than the other release plans.
+
+- [ ] Stable rl' to Core
+- [ ] Core polish
+    - [ ] Better, stable parser
+    - [ ] Better, stable lexer
+    - [ ] Less hacky handling of named data
+    - [ ] Less hacky pragmas
+- [ ] GM to LLVM
+
-- 
2.52.0


From 559fd49f2b2aab4cd2aa6a1ab32cd571973303f0 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 25 Jan 2024 15:52:56 -0700
Subject: [PATCH 111/192] minor changes

putting this on hold; implementing TTG first
---
 CHANGELOG.md         |  2 ++
 README.md            |  1 +
 app/Main.hs          |  2 +-
 rlp.cabal            |  2 +-
 src/Compiler/RLPC.hs | 59 ++++++++++++++++++++------------------------
 5 files changed, 32 insertions(+), 34 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 9921c0c..88e5ac0 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -15,3 +15,5 @@
     }
   ```
 
+# Release 1.0.0
+
diff --git a/README.md b/README.md
index 2f38469..1573d64 100644
--- a/README.md
+++ b/README.md
@@ -103,6 +103,7 @@ Listed in order of importance.
     - [ ] Actual compiler errors -- no more unexceptional `error` calls
     - [ ] Better CLI dump flags
     - [ ] Annotate the AST with token positions for errors
+- [ ] More examples
 
 ### March Release Plan
 - [ ] Tests
diff --git a/app/Main.hs b/app/Main.hs
index f48824b..27377d0 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -63,7 +63,7 @@ options = RLPCOptions
 evaluatorReader :: ReadM Evaluator
 evaluatorReader = maybeReader $ \case
     "gm"  -> Just EvaluatorGM
-    "tim" -> Just EvaluatorTI
+    "ti"  -> Just EvaluatorTI
     _     -> Nothing
 
 mmany :: (Alternative f, Monoid m) => f m -> f m
diff --git a/rlp.cabal b/rlp.cabal
index a48324a..a487328 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -7,7 +7,7 @@ license:            GPL-2.0-only
 -- license-file:       LICENSE
 author:             crumbtoo
 maintainer:         crumb@disroot.org
--- copyright:
+copyright:          Madeleine Sydney Ślaga
 category:           Language
 build-type:         Simple
 extra-doc-files:    README.md
diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 2993c67..474ecfc 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -28,14 +28,12 @@ module Compiler.RLPC
     , evalRLPCIO
     , evalRLPC
     , rlpcLogFile
-    , rlpcDebugOpts
+    , rlpcDFlags  
     , rlpcEvaluator
     , rlpcInputFiles
     , DebugFlag(..)
-    , whenFlag
-    , flagDDumpEval
-    , flagDDumpOpts
-    , flagDDumpAST
+    , whenDFlag
+    , whenFFlag
     , def
     , liftErrorful
     )
@@ -43,6 +41,7 @@ module Compiler.RLPC
 ----------------------------------------------------------------------------------
 import Control.Arrow            ((>>>))
 import Control.Exception
+import Control.Monad
 import Control.Monad.Reader
 import Control.Monad.State      (MonadState(state))
 import Control.Monad.Errorful
@@ -51,19 +50,19 @@ import Data.Functor.Identity
 import Data.Default.Class
 import Data.Foldable
 import GHC.Generics             (Generic)
+import Data.Maybe
 import Data.Hashable            (Hashable)
 import Data.HashSet             (HashSet)
 import Data.HashSet             qualified as S
 import Data.Coerce
-import Lens.Micro
-import Lens.Micro.TH
+import Lens.Micro.Platform
 import System.Exit
 ----------------------------------------------------------------------------------
 
 newtype RLPCT m a = RLPCT {
         runRLPCT :: ReaderT RLPCOptions (ErrorfulT (MsgEnvelope RlpcError) m) a
     }
-    deriving (Functor, Applicative, Monad)
+    deriving (Functor, Applicative, Monad, MonadReader RLPCOptions)
 
 type RLPC = RLPCT Identity
 
@@ -98,7 +97,8 @@ liftErrorful e = RLPCT $ lift (fmap liftRlpcError `mapErrorful` e)
 
 data RLPCOptions = RLPCOptions
     { _rlpcLogFile     :: Maybe FilePath
-    , _rlpcDebugOpts   :: DebugOpts
+    , _rlpcDFlags      :: HashSet DebugFlag
+    , _rlpcFFlags      :: HashSet CompilerFlag
     , _rlpcEvaluator   :: Evaluator
     , _rlpcHeapTrigger :: Int
     , _rlpcInputFiles  :: [FilePath]
@@ -113,38 +113,33 @@ data Evaluator = EvaluatorGM | EvaluatorTI
 instance Default RLPCOptions where
     def = RLPCOptions
         { _rlpcLogFile = Nothing
-        , _rlpcDebugOpts = mempty
+        , _rlpcDFlags = mempty
+        , _rlpcFFlags = mempty
         , _rlpcEvaluator = EvaluatorGM
         , _rlpcHeapTrigger = 200
         , _rlpcInputFiles = []
         }
 
-type DebugOpts = HashSet DebugFlag
+-- debug flags are passed with -dFLAG
+type DebugFlag = String
 
-data DebugFlag = DDumpEval
-               | DDumpOpts
-               | DDumpAST
-               deriving (Show, Eq, Generic)
-
-instance Hashable DebugFlag
+type CompilerFlag = String
 
 makeLenses ''RLPCOptions
 pure []
 
-whenFlag :: (MonadReader s m) => SimpleGetter s Bool -> m () -> m ()
-whenFlag l m = asks (^. l) >>= \a -> if a then m else pure ()
+-- TODO: rewrite this with prisms once microlens-pro drops :3
+whenDFlag :: (Monad m) => DebugFlag -> RLPCT m () -> RLPCT m ()
+whenDFlag f m = do
+    -- mfw no `At` instance for HashSet
+    fs <- view rlpcDFlags
+    let a = S.member f fs
+    when a m
 
--- there's probably a better way to write this. my current knowledge of lenses
--- is too weak.
-flagGetter :: DebugFlag -> SimpleGetter RLPCOptions Bool
-flagGetter d = to $ \s -> s ^. rlpcDebugOpts & S.member d
-
-flagDDumpEval :: SimpleGetter RLPCOptions Bool
-flagDDumpEval = flagGetter DDumpEval
-
-flagDDumpOpts :: SimpleGetter RLPCOptions Bool
-flagDDumpOpts = flagGetter DDumpOpts
-
-flagDDumpAST :: SimpleGetter RLPCOptions Bool
-flagDDumpAST = flagGetter DDumpAST
+whenFFlag :: (Monad m) => CompilerFlag -> RLPCT m () -> RLPCT m ()
+whenFFlag f m = do
+    -- mfw no `At` instance for HashSet
+    fs <- view rlpcFFlags
+    let a = S.member f fs
+    when a m
 
-- 
2.52.0


From 6a6076f26e43e2e317a31c61d742f8349dc02ed6 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 26 Jan 2024 15:12:10 -0700
Subject: [PATCH 112/192] some

---
 README.md                  |   1 +
 rlp.cabal                  |   2 +
 src/Rlp/Lex.x              |  11 +-
 src/Rlp/Parse.y            |  80 +++++++-------
 src/Rlp/Parse/Associate.hs |  87 +---------------
 src/Rlp/Parse/Types.hs     | 117 ++++++++-------------
 src/Rlp/Syntax.hs          | 208 ++++++++++++++++---------------------
 7 files changed, 190 insertions(+), 316 deletions(-)

diff --git a/README.md b/README.md
index 1573d64..4b010ec 100644
--- a/README.md
+++ b/README.md
@@ -81,6 +81,7 @@ Listed in order of importance.
     - [ ] CLI usage
     - [ ] Tail call optimisation
     - [ ] Parsing rlp
+    - [ ] Trees That Grow
 - [ ] Tests
     - [x] Generic example programs
     - [ ] Parser
diff --git a/rlp.cabal b/rlp.cabal
index a487328..1ac0b54 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -75,6 +75,8 @@ library
 
     default-extensions:
         OverloadedStrings
+        TypeFamilies
+        LambdaCase
 
 executable rlpc
     import:           warnings
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 6942b84..e4c78c3 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -193,13 +193,13 @@ readInt = T.foldr f 0 where
 constToken :: RlpToken -> LexerAction (Located RlpToken)
 constToken t inp l = do
     pos <- use (psInput . aiPos)
-    pure (Located (pos,l) t)
+    pure (Located (spanFromPos pos l) t)
 
 tokenWith :: (Text -> RlpToken) -> LexerAction (Located RlpToken)
 tokenWith tf inp l = do
     pos <- getPos
     let t = tf (T.take l $ inp ^. aiSource)
-    pure (Located (pos,l) t)
+    pure (Located (spanFromPos pos l) t)
 
 getPos :: P Position
 getPos = use (psInput . aiPos)
@@ -207,7 +207,8 @@ getPos = use (psInput . aiPos)
 alexEOF :: P (Located RlpToken)
 alexEOF = do
     inp <- getInput
-    pure (Located undefined TokenEOF)
+    pos <- getPos
+    pure (Located (spanFromPos pos 0) TokenEOF)
 
 initParseState :: Text -> ParseState
 initParseState s = ParseState
@@ -238,7 +239,7 @@ lexToken = do
     st <- use id
     -- traceM $ "st: " <> show st
     case alexScan inp c of
-        AlexEOF -> pure $ Located (inp ^. aiPos, 0) TokenEOF
+        AlexEOF -> pure $ Located (spanFromPos (inp^.aiPos) 0) TokenEOF
         AlexSkip inp' l -> do
             psInput .= inp'
             lexToken
@@ -274,7 +275,7 @@ indentLevel = do
 insertToken :: RlpToken -> P (Located RlpToken)
 insertToken t = do
     pos <- use (psInput . aiPos)
-    pure (Located (pos, 0) t)
+    pure (Located (spanFromPos pos 0) t)
 
 popLayout :: P Layout
 popLayout = do
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 444a6d4..6cc0a49 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -9,13 +9,13 @@ import Rlp.Lex
 import Rlp.Syntax
 import Rlp.Parse.Types
 import Rlp.Parse.Associate
-import Lens.Micro
-import Lens.Micro.Mtl
-import Lens.Micro.Platform          ()
+import Lens.Micro.Platform
 import Data.List.Extra
 import Data.Fix
 import Data.Functor.Const
+import Data.Functor
 import Data.Text                    qualified as T
+import Data.Void
 }
 
 %name parseRlpProg StandaloneProgram
@@ -26,12 +26,12 @@ import Data.Text                    qualified as T
 %tokentype { Located RlpToken }
 
 %token
-    varname         { Located _ (TokenVarName $$) }
-    conname         { Located _ (TokenConName $$) }
-    consym          { Located _ (TokenConSym $$) }
-    varsym          { Located _ (TokenVarSym $$) }
+    varname         { Located _ (TokenVarName _) }
+    conname         { Located _ (TokenConName _) }
+    consym          { Located _ (TokenConSym _) }
+    varsym          { Located _ (TokenVarSym _) }
     data            { Located _ TokenData }
-    litint          { Located _ (TokenLitInt $$) }
+    litint          { Located _ (TokenLitInt _) }
     '='             { Located _ TokenEquals }
     '|'             { Located _ TokenPipe }
     ';'             { Located _ TokenSemicolon }
@@ -51,7 +51,7 @@ import Data.Text                    qualified as T
 
 %%
 
-StandaloneProgram   :: { RlpProgram' }
+StandaloneProgram   :: { RlpProgram RlpcPs }
 StandaloneProgram   : '{' Decls  '}'        {% mkProgram $2 }
                     | VL  DeclsV VR         {% mkProgram $2 }
 
@@ -62,12 +62,12 @@ VR  :: { () }
 VR  : vrbrace       { () }
     | error         { () }
 
-Decls               :: { [PartialDecl'] }
+Decls               :: { [Decl' RlpcPs] }
 Decls               : Decl ';' Decls        { $1 : $3 }
                     | Decl ';'              { [$1] }
                     | Decl                  { [$1] }
 
-DeclsV              :: { [PartialDecl'] }
+DeclsV              :: { [Decl' RlpcPs] }
 DeclsV              : Decl VS Decls         { $1 : $3 }
                     | Decl VS               { [$1] }
                     | Decl                  { [$1] }
@@ -76,12 +76,12 @@ VS                  :: { Located RlpToken }
 VS                  : ';'                   { $1 }
                     | vsemi                 { $1 }
 
-Decl        :: { PartialDecl' }
+Decl        :: { Decl' RlpcPs }
             : FunDecl                   { $1 }
             | DataDecl                  { $1 }
             | InfixDecl                 { $1 }
 
-InfixDecl   :: { PartialDecl' }
+InfixDecl   :: { Decl' RlpcPs }
             : InfixWord litint InfixOp  {% mkInfixD $1 $2 $3 }
 
 InfixWord   :: { Assoc }
@@ -89,18 +89,18 @@ InfixWord   :: { Assoc }
             | infixr                    { InfixR }
             | infix                     { Infix  }
 
-DataDecl    :: { PartialDecl' }
+DataDecl    :: { Decl' RlpcPs }
             : data Con TyParams '=' DataCons    { DataD $2 $3 $5 }
 
-TyParams    :: { [Name] }
+TyParams    :: { [PsName] }
             : {- epsilon -}             { [] }
             | TyParams varname          { $1 `snoc` $2 }
 
-DataCons    :: { [ConAlt] }
+DataCons    :: { [ConAlt RlpcPs] }
             : DataCons '|' DataCon      { $1 `snoc` $3 }
             | DataCon                   { [$1] }
 
-DataCon     :: { ConAlt }
+DataCon     :: { ConAlt RlpcPs }
             : Con Type1s                { ConAlt $1 $2 }
 
 Type1s      :: { [Type] }
@@ -116,22 +116,22 @@ Type        :: { Type }
             : Type '->' Type            { $1 :-> $3 }
             | Type1                     { $1 }
 
-FunDecl     :: { PartialDecl' }
-FunDecl     : Var Params '=' Expr       { FunD $1 $2 (Const $4) Nothing }
+FunDecl     :: { Decl' RlpcPs }
+FunDecl     : Var Params '=' Expr       { FunD $1 $2 $4 Nothing }
 
-Params      :: { [Pat'] }
+Params      :: { [Pat' RlpcPs] }
 Params      : {- epsilon -}             { [] }
             | Params Pat1               { $1 `snoc` $2 }
 
-Pat1        :: { Pat' }
+Pat1        :: { Pat' RlpcPs }
             : Var                       { VarP $1 }
             | Lit                       { LitP $1 }
 
-Expr        :: { PartialExpr' }
+Expr        :: { RlpExpr' RlpcPs }
             : Expr1 varsym Expr         { Fix $ B $2 (unFix $1) (unFix $3) }
             | Expr1                     { $1 }
 
-Expr1       :: { PartialExpr' }
+Expr1       :: { RlpExpr' RlpcPs }
             : '(' Expr ')'              { wrapFix . Par . unwrapFix $ $2 }
             | Lit                       { Fix . E $ LitEF $1 }
             | Var                       { Fix . E $ VarEF $1 }
@@ -139,34 +139,43 @@ Expr1       :: { PartialExpr' }
 -- TODO: happy prefers left-associativity. doing such would require adjusting
 -- the code in Rlp.Parse.Associate to expect left-associative input rather than
 -- right.
-InfixExpr   :: { PartialExpr' }
+InfixExpr   :: { RlpExpr' RlpcPs }
             : Expr1 varsym Expr         { Fix $ B $2 (unFix $1) (unFix $3) }
 
-InfixOp     :: { Name }
+InfixOp     :: { PsName }
             : consym                    { $1 }
             | varsym                    { $1 }
 
-Lit         :: { Lit' }
-Lit         : litint                    { IntL $1 }
+-- TODO: microlens-pro save me microlens-pro (rewrite this with prisms)
+Lit         :: { Lit' RlpcPs }
+            : litint                    { $1 <&> (IntL . (\ (TokenLitInt n) -> n)) }
 
-Var         :: { VarId }
-Var         : varname                   { NameVar $1 }
+Var         :: { Located PsName }
+Var         : varname                   { mkPsName $1 }
 
-Con         :: { ConId }
-            : conname                   { NameCon $1 }
+Con         :: { Located PsName }
+            : conname                   { mkPsName $1 }
 
 {
 
-mkProgram :: [PartialDecl'] -> P RlpProgram'
+mkPsName :: Located RlpToken -> Located PsName
+mkPsName = fmap $ \case
+    TokenVarName n -> n
+    TokenConName n -> n
+    TokenConSym  n -> n
+    TokenVarSym  n -> n
+    _              -> error "mkPsName: not an identifier"
+
+mkProgram :: [Decl' RlpcPs] -> P (RlpProgram RlpcPs)
 mkProgram ds = do
     pt <- use psOpTable
     pure $ RlpProgram (associate pt <$> ds)
 
 parseError :: Located RlpToken -> P a
-parseError (Located ((l,c),s) t) = addFatal $
+parseError (Located (l,c,s) t) = addFatal $
     errorMsg (SrcSpan l c s) RlpParErrUnexpectedToken
 
-mkInfixD :: Assoc -> Int -> Name -> P PartialDecl'
+mkInfixD :: Assoc -> Int -> PsName -> P (Decl' RlpcPs)
 mkInfixD a p n = do
     let opl :: Lens' ParseState (Maybe OpInfo)
         opl = psOpTable . at n
@@ -176,6 +185,7 @@ mkInfixD a p n = do
             l = T.length n
         Nothing -> pure (Just (a,p))
         )
-    pure $ InfixD a p n
+    pos <- use (psInput . aiPos)
+    pure $ Located (spanFromPos pos 0) (InfixD' a p n)
 
 }
diff --git a/src/Rlp/Parse/Associate.hs b/src/Rlp/Parse/Associate.hs
index 7446589..8dd89f2 100644
--- a/src/Rlp/Parse/Associate.hs
+++ b/src/Rlp/Parse/Associate.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE PatternSynonyms, ViewPatterns, ImplicitParams #-}
 module Rlp.Parse.Associate
+    {-# WARNING "temporarily unimplemented" #-}
     ( associate
     )
     where
@@ -13,88 +14,6 @@ import Rlp.Parse.Types
 import Rlp.Syntax
 --------------------------------------------------------------------------------
 
-associate :: OpTable -> PartialDecl' -> Decl' RlpExpr
-associate pt (FunD n as b w)    = FunD n as b' w
-    where b' = let ?pt = pt in completeExpr (getConst b)
-associate pt (TySigD ns t)      = TySigD ns t
-associate pt (DataD n as cs)    = DataD n as cs
-associate pt (InfixD a p n)     = InfixD a p n
-
-completeExpr :: (?pt :: OpTable) => PartialExpr' -> RlpExpr'
-completeExpr = cata completePartial
-
-completePartial :: (?pt :: OpTable) => PartialE -> RlpExpr'
-completePartial (E e)        = completeRlpExpr e
-completePartial p@(B o l r)  = completeB (build p)
-completePartial (Par e)      = completePartial e
-
-completeRlpExpr :: (?pt :: OpTable) => RlpExprF' RlpExpr' -> RlpExpr'
-completeRlpExpr = embed
-
-completeB :: (?pt :: OpTable) => PartialE -> RlpExpr'
-completeB p = case build p of
-    B o l r     -> (o' `AppE` l') `AppE` r'
-        where
-            -- TODO: how do we know it's symbolic?
-            o' = VarE (SymVar o)
-            l' = completeB l
-            r' = completeB r
-    Par e       -> completeB e
-    E e         -> completeRlpExpr e
-
-build :: (?pt :: OpTable) => PartialE -> PartialE
-build e = go id e (rightmost e) where
-    rightmost :: PartialE -> PartialE
-    rightmost (B _ _ r) = rightmost r
-    rightmost p@(E _)   = p
-    rightmost p@(Par _) = p
-
-    go :: (?pt :: OpTable)
-       => (PartialE -> PartialE)
-       -> PartialE -> PartialE -> PartialE
-    go f p@(WithInfo o _ r) = case r of
-            E _     -> mkHole o (f . f')
-            Par _   -> mkHole o (f . f')
-            B _ _ _ -> go (mkHole o (f . f')) r
-        where f' r' = p & pR .~ r'
-    go f _ = id
-
-mkHole :: (?pt :: OpTable)
-       => OpInfo
-       -> (PartialE -> PartialE)
-       -> PartialE
-       -> PartialE
-mkHole _     hole p@(Par _)                 = hole p
-mkHole _     hole p@(E _)                   = hole p
-mkHole (a,d) hole p@(WithInfo (a',d') _ _)
-    | d' < d  = above
-    | d' > d  = below
-    | d == d' = case (a,a') of
-                  -- left-associative operators of equal precedence are
-                  -- associated left
-                  (InfixL,InfixL) -> above
-                  -- right-associative operators are handled similarly
-                  (InfixR,InfixR) -> below
-                  -- non-associative operators of equal precedence, or equal
-                  -- precedence operators of different associativities are
-                  -- invalid
-                  (_,     _)      -> error "invalid expression"
-    where
-        above = p & pL %~ hole
-        below = hole p
-
-examplePrecTable :: OpTable
-examplePrecTable = H.fromList
-    [ ("+",    (InfixL,6))
-    , ("*",    (InfixL,7))
-    , ("^",    (InfixR,8))
-    , (".",    (InfixR,7))
-    , ("~",    (Infix, 9))
-    , ("=",    (Infix, 4))
-    , ("&&",   (Infix, 3))
-    , ("||",   (Infix, 2))
-    , ("$",    (InfixR,0))
-    , ("&",    (InfixL,0))
-    ]
-
+associate = undefined
+{-# WARNING associate "temporarily undefined" #-}
 
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index bddf0d9..794c28a 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -2,38 +2,24 @@
 {-# LANGUAGE ImplicitParams, ViewPatterns, PatternSynonyms #-}
 {-# LANGUAGE LambdaCase #-}
 module Rlp.Parse.Types
-    ( LexerAction
-    , MsgEnvelope(..)
-    , RlpcError(..)
-    , AlexInput(..)
-    , Position(..)
-    , RlpToken(..)
-    , P(..)
-    , ParseState(..)
-    , psLayoutStack
-    , psLexState
-    , psInput
-    , psOpTable
-    , Layout(..)
-    , Located(..)
-    , OpTable
-    , OpInfo
-    , RlpParseError(..)
-    , PartialDecl'
-    , Partial(..)
-    , pL, pR
-    , PartialE
-    , pattern WithInfo
-    , opInfoOrDef
-    , PartialExpr'
-    , aiPrevChar
-    , aiSource
-    , aiBytes
-    , aiPos
-    , addFatal
-    , addWound
-    , addFatalHere
-    , addWoundHere
+    (
+    -- * Trees That Grow
+      RlpcPs
+
+    -- * Parser monad and state
+    , P(..), ParseState(..), Layout(..), OpTable, OpInfo
+    -- ** Lenses
+    , psLayoutStack, psLexState, psInput, psOpTable
+
+    -- * Other parser types
+    , RlpToken(..), AlexInput(..), Position(..), spanFromPos, LexerAction
+    , Located(..), PsName
+    -- ** Lenses
+    , aiPrevChar, aiSource, aiBytes, aiPos, posLine, posColumn
+
+    -- * Error handling
+    , MsgEnvelope(..), RlpcError(..), RlpParseError(..)
+    , addFatal, addWound, addFatalHere, addWoundHere
     )
     where
 --------------------------------------------------------------------------------
@@ -49,12 +35,26 @@ import Data.Functor.Foldable
 import Data.Functor.Const
 import Data.Functor.Classes
 import Data.HashMap.Strict          qualified as H
+import Data.Void
 import Data.Word                    (Word8)
 import Lens.Micro.TH
 import Lens.Micro
 import Rlp.Syntax
 --------------------------------------------------------------------------------
 
+-- | Phantom type identifying rlpc's parser phase
+
+data RlpcPs
+
+type instance XRec RlpcPs f = Located (f RlpcPs)
+type instance IdP RlpcPs = PsName
+
+type instance XInfixD RlpcPs = ()
+
+type PsName = Text
+
+--------------------------------------------------------------------------------
+
 type LexerAction a = AlexInput -> Int -> P a
 
 data AlexInput = AlexInput
@@ -106,7 +106,7 @@ data RlpToken
     | TokenLParen
     | TokenRParen
     -- 'virtual' control symbols, inserted by the lexer without any correlation
-    -- to a specific symbol
+    -- to a specific part of the input
     | TokenSemicolonV
     | TokenLBraceV
     | TokenRBraceV
@@ -154,8 +154,14 @@ data Layout = Explicit
             | Implicit Int
             deriving (Show, Eq)
 
-data Located a = Located (Position, Int) a
-    deriving (Show)
+-- | Token wrapped with a span (line, column, length)
+data Located a = Located !(Int, Int, Int) a
+    deriving (Show, Functor)
+
+spanFromPos :: Position -> Int -> (Int, Int, Int)
+spanFromPos (l,c) s = (l,c,s)
+
+{-# INLINE spanFromPos #-}
 
 type OpTable = H.HashMap Name OpInfo
 type OpInfo = (Assoc, Int)
@@ -171,47 +177,6 @@ data RlpParseError = RlpParErrOutOfBoundsPrecedence Int
 instance IsRlpcError RlpParseError where
 
 ----------------------------------------------------------------------------------
--- absolute psycho shit (partial ASTs)
-
-type PartialDecl' = Decl (Const PartialExpr') Name
-
-data Partial a = E (RlpExprF Name a)
-               | B Name (Partial a) (Partial a)
-               | Par (Partial a)
-               deriving (Show, Functor)
-
-pL :: Traversal' (Partial a) (Partial a)
-pL k (B o l r) = (\l' -> B o l' r) <$> k l
-pL _ x         = pure x
-
-pR :: Traversal' (Partial a) (Partial a)
-pR k (B o l r) = (\r' -> B o l r') <$> k r
-pR _ x         = pure x
-
-type PartialE = Partial RlpExpr'
-
--- i love you haskell
-pattern WithInfo :: (?pt :: OpTable) => OpInfo -> PartialE -> PartialE -> PartialE
-pattern WithInfo p l r <- B (opInfoOrDef -> p) l r
-
-opInfoOrDef :: (?pt :: OpTable) => Name -> OpInfo
-opInfoOrDef c = fromMaybe (InfixL,9) $ H.lookup c ?pt
-
--- required to satisfy constraint on Fix's show instance
-instance Show1 Partial where
-    liftShowsPrec :: forall a. (Int -> a -> ShowS)
-                  -> ([a] -> ShowS)
-                  -> Int -> Partial a -> ShowS
-
-    liftShowsPrec sp sl p m = case m of
-        (E e)       -> showsUnaryWith lshow "E" p e
-        (B f a b)   -> showsTernaryWith showsPrec lshow lshow "B" p f a b
-        (Par e)     -> showsUnaryWith lshow "Par" p e
-        where
-            lshow :: forall f. (Show1 f) => Int -> f a -> ShowS
-            lshow = liftShowsPrec sp sl
-
-type PartialExpr' = Fix Partial
 
 makeLenses ''AlexInput
 makeLenses ''ParseState
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index a79c496..76156c7 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -1,40 +1,28 @@
 -- recursion-schemes
-{-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable #-}
--- recursion-schemes
-{-# LANGUAGE TemplateHaskell, TypeFamilies #-}
+{-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable
+  , TemplateHaskell, TypeFamilies #-}
 {-# LANGUAGE OverloadedStrings, PatternSynonyms #-}
+{-# LANGUAGE TypeFamilies, TypeFamilyDependencies #-}
 module Rlp.Syntax
-    ( RlpModule(..)
-    , RlpProgram(..)
-    , RlpProgram'
-    , rlpmodName
-    , rlpmodProgram
-    , RlpExpr(..)
-    , RlpExpr'
-    , RlpExprF(..)
-    , RlpExprF'
-    , Decl(..)
-    , Decl'
-    , Bind(..)
-    , Where
-    , Where'
-    , ConAlt(..)
-    , Type(..)
-    , pattern (:->)
+    (
+    -- * AST
+      RlpProgram(..)
+    , Decl(..), Decl', RlpExpr(..), RlpExpr'
+    , Pat(..), Pat'
     , Assoc(..)
-    , VarId(..)
-    , ConId(..)
-    , Pat(..)
-    , Pat'
-    , Lit(..)
-    , Lit'
-    , Name
+    , Lit(..), Lit'
+    , Type(..)
+    , ConAlt(..)
 
-    -- TODO: ugh move this somewhere else later
-    , showsTernaryWith
+    -- * Pattern synonyms for unused extensions
+    , pattern InfixD'
 
-    -- * Convenience re-exports
-    , Text
+    -- * Trees That Grow extensions
+    , XRec, IdP
+    -- ** RlpExpr
+    , XLetE, XVarE, XConE, XLamE, XCaseE, XIfE, XAppE, XLitE, XXRlpExpr
+    -- ** Decl
+    , XFunD, XTySigD, XDataD, XInfixD, XXDecl
     )
     where
 ----------------------------------------------------------------------------------
@@ -49,87 +37,91 @@ import Core.Syntax                  hiding (Lit)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
 
-data RlpModule b = RlpModule
+data RlpModule p = RlpModule
     { _rlpmodName       :: Text
-    , _rlpmodProgram    :: RlpProgram b
+    , _rlpmodProgram    :: RlpProgram p
     }
 
-newtype RlpProgram b = RlpProgram [Decl RlpExpr b]
-    deriving Show
+newtype RlpProgram p = RlpProgram [Decl p]
 
-type RlpProgram' = RlpProgram Name
+data Decl p = FunD   (XFunD p)   (IdP p) [Pat p] (RlpExpr p) (Maybe (Where p))
+            | TySigD (XTySigD p) [IdP p] Type
+            | DataD  (XDataD p)  (IdP p) [IdP p] [ConAlt p]
+            | InfixD (XInfixD p) Assoc Int (IdP p)
+            | XDecl  !(XXDecl p)
 
--- | The @e@ parameter is used for partial results. When parsing an input, we
--- first parse all top-level declarations in order to extract infix[lr]
--- declarations. This process yields a @[Decl (Const Text) Name]@, where @Const
--- Text@ stores the remaining unparsed function bodies. Once infixities are
--- accounted for, we may complete the parsing task and get a proper @[Decl
--- RlpExpr Name]@.
+type family XFunD p
+type family XTySigD p
+type family XDataD p
+type family XInfixD p
+type family XXDecl p
 
-data Decl e b = FunD    VarId [Pat b] (e b) (Maybe (Where b))
-              | TySigD  [VarId] Type
-              | DataD   ConId [Name] [ConAlt]
-              | InfixD  Assoc Int Name
-              deriving Show
+pattern InfixD' :: (XInfixD p ~ ()) => Assoc -> Int -> (IdP p) -> Decl p
+pattern InfixD' a p n = InfixD () a p n
 
-type Decl' e = Decl e Name
+type Decl' p = XRec p Decl
 
 data Assoc = InfixL
            | InfixR
            | Infix
-           deriving Show
+           deriving (Show)
 
-data ConAlt = ConAlt ConId [Type]
-            deriving Show
+data ConAlt p = ConAlt (IdP p) [Type]
 
-data RlpExpr b = LetE  [Bind b] (RlpExpr b)
-               | VarE  VarId
-               | ConE  ConId
-               | LamE  [Pat b] (RlpExpr b)
-               | CaseE (RlpExpr b) [(Alt b, Where b)]
-               | IfE   (RlpExpr b) (RlpExpr b) (RlpExpr b)
-               | AppE  (RlpExpr b) (RlpExpr b)
-               | LitE  (Lit b)
-               deriving Show
+data RlpExpr p = LetE  (XLetE p)   [Bind p] (RlpExpr' p)
+               | VarE  (XVarE p)   (IdP p)
+               | LamE  (XLamE p)   [Pat p] (RlpExpr' p)
+               | CaseE (XCaseE p)  (RlpExpr' p) [(Alt p, Where p)]
+               | IfE   (XIfE p)    (RlpExpr' p) (RlpExpr' p) (RlpExpr' p)
+               | AppE  (XAppE p)   (RlpExpr' p) (RlpExpr' p)
+               | LitE  (XLitE p)   (Lit p)
+               | ParE  (XParE p)   (RlpExpr' p)
+               | OAppE (XOAppE p)  (IdP p) (RlpExpr' p) (RlpExpr' p)
+               | XRlpExpr !(XXRlpExpr p)
 
-type RlpExpr' = RlpExpr Name
+type RlpExpr' p = XRec p RlpExpr
 
-type Where b = [Bind b]
-type Where' = [Bind Name]
+class UnXRec p where
+    unXRec :: XRec p f -> f p
+
+class MapXRec p where
+    mapXRec :: (f p -> f p) -> XRec p f -> XRec p f
+
+type family XRec p (f :: * -> *) = (r :: *) | r -> p f
+
+type family XLetE p
+type family XVarE p
+type family XConE p
+type family XLamE p
+type family XCaseE p
+type family XIfE p
+type family XAppE p
+type family XLitE p
+type family XParE p
+type family XOAppE p
+type family XXRlpExpr p
+
+type family IdP p
+
+type Where p = [Bind p]
 
 -- do we want guards?
-data Alt b = AltA (Pat b) (RlpExpr b)
-           deriving Show
+data Alt p = AltA (Pat' p) (RlpExpr' p)
 
-data Bind b = PatB (Pat b) (RlpExpr b)
-            | FunB VarId [Pat b] (RlpExpr b)
-            deriving Show
+data Bind p = PatB (Pat' p) (RlpExpr' p)
+            | FunB (IdP p) [Pat' p] (RlpExpr' p)
 
-data VarId = NameVar Text
-           | SymVar Text
-           deriving Show
+data Pat p = VarP (IdP p)
+           | LitP (Lit' p)
+           | ConP (IdP p) [Pat' p]
 
-instance IsString VarId where
-    -- TODO: use symvar if it's an operator
-    fromString = NameVar . T.pack
+type Pat' p = XRec p Pat
 
-data ConId = NameCon Text
-           | SymCon Text
-           deriving Show
-
-data Pat b = VarP VarId
-           | LitP (Lit b)
-           | ConP ConId [Pat b]
-           deriving Show
-
-type Pat' = Pat Name
-
-data Lit b = IntL Int
+data Lit p = IntL Int
            | CharL Char
-           | ListL [RlpExpr b]
-           deriving Show
+           | ListL [RlpExpr' p]
 
-type Lit' = Lit Name
+type Lit' p = XRec p Lit
 
 -- instance HasLHS Alt Alt Pat Pat where
 --     _lhs = lens
@@ -143,33 +135,17 @@ type Lit' = Lit Name
 
 makeBaseFunctor ''RlpExpr
 
-deriving instance (Show b, Show a) => Show (RlpExprF b a)
-
-type RlpExprF' = RlpExprF Name
-
--- society if derivable Show1
-instance (Show b) => Show1 (RlpExprF b) where
-    liftShowsPrec sp _ p m = case m of
-        (LetEF bs e)            -> showsBinaryWith showsPrec sp "LetEF" p bs e
-        (VarEF n)               -> showsUnaryWith showsPrec "VarEF" p n
-        (ConEF n)               -> showsUnaryWith showsPrec "ConEF" p n
-        (LamEF bs e)            -> showsBinaryWith showsPrec sp "LamEF" p bs e
-        (CaseEF e as)           -> showsBinaryWith sp showsPrec "CaseEF" p e as
-        (IfEF a b c)            -> showsTernaryWith sp sp sp "IfEF" p a b c
-        (AppEF f x)             -> showsBinaryWith sp sp "AppEF" p f x
-        (LitEF l)               -> showsUnaryWith showsPrec "LitEF" p l
-
-showsTernaryWith :: (Int -> x -> ShowS)
-                 -> (Int -> y -> ShowS)
-                 -> (Int -> z -> ShowS)
-                 -> String -> Int
-                 -> x -> y -> z
-                 -> ShowS
-showsTernaryWith sa sb sc name p a b c = showParen (p > 10)
-    $ showString name
-    . showChar ' ' . sa 11 a 
-    . showChar ' ' . sb 11 b
-    . showChar ' ' . sc 11 c
+-- showsTernaryWith :: (Int -> x -> ShowS)
+--                  -> (Int -> y -> ShowS)
+--                  -> (Int -> z -> ShowS)
+--                  -> String -> Int
+--                  -> x -> y -> z
+--                  -> ShowS
+-- showsTernaryWith sa sb sc name p a b c = showParen (p > 10)
+--     $ showString name
+--     . showChar ' ' . sa 11 a 
+--     . showChar ' ' . sb 11 b
+--     . showChar ' ' . sc 11 c
 
 --------------------------------------------------------------------------------
 
-- 
2.52.0


From 8d0f324c6340dbfa2890cc5030f3b672ee3ea672 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 26 Jan 2024 17:25:59 -0700
Subject: [PATCH 113/192] oh my god guys!!! `Located` is a lax semimonoidal
 endofunctor on the category Hask!!!

![abstractionjak](https://media.discordapp.net/attachments/1101767463579951154/1200248978642567168/3877820-20SoyBooru.png?ex=65c57df8&is=65b308f8&hm=67da3acb61861cab6156df014b397d78fb8815fa163f2e992474d545beb668ba&=&format=webp&quality=lossless&width=880&height=868)
---
 rlp.cabal                 |  1 +
 src/Compiler/RlpcError.hs |  1 +
 src/Rlp/Lex.x             |  8 ++++----
 src/Rlp/Parse.y           | 24 ++++++++++++------------
 src/Rlp/Parse/Types.hs    | 37 +++++++++++++++++++++++++++++--------
 src/Rlp/Syntax.hs         | 12 ++++++++++++
 6 files changed, 59 insertions(+), 24 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 1ac0b54..61250c1 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -69,6 +69,7 @@ library
                     , data-fix >= 0.3.2 && < 0.4
                     , utf8-string >= 1.0.2 && < 1.1
                     , extra >= 1.7.0 && < 2
+                    , semigroupoids
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index ae3751d..37edb40 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -48,6 +48,7 @@ data Severity = SevWarning
 data SrcSpan = SrcSpan
     !Int -- ^ Line
     !Int -- ^ Column
+    !Int -- ^ Absolute
     !Int -- ^ Length
     deriving Show
 
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index e4c78c3..a22a66f 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -164,10 +164,10 @@ alexGetByte inp = case inp ^. aiBytes of
                        -- report the previous char
                        & aiPrevChar .~ c
                        -- update the position
-                       & aiPos %~ \ (ln,col) ->
+                       & aiPos %~ \ (ln,col,a) ->
                                    if c == '\n'
-                                   then (ln+1,1)
-                                   else (ln,col+1)
+                                   then (ln+1, 1, a+1)
+                                   else (ln, col+1, a+1)
         pure (b, inp')
     
     _ -> Just (head bs, inp')
@@ -225,7 +225,7 @@ initAlexInput s = AlexInput
     { _aiPrevChar   = '\0'
     , _aiSource     = s
     , _aiBytes      = []
-    , _aiPos        = (1,1)
+    , _aiPos        = (1,1,0)
     }
 
 runP' :: P a -> Text -> (ParseState, [MsgEnvelope RlpParseError], Maybe a)
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 6cc0a49..acb7fad 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -117,34 +117,34 @@ Type        :: { Type }
             | Type1                     { $1 }
 
 FunDecl     :: { Decl' RlpcPs }
-FunDecl     : Var Params '=' Expr       { FunD $1 $2 $4 Nothing }
+FunDecl     : Var Params '=' Expr       { FunD undefined $2 $4 Nothing }
 
 Params      :: { [Pat' RlpcPs] }
 Params      : {- epsilon -}             { [] }
             | Params Pat1               { $1 `snoc` $2 }
 
 Pat1        :: { Pat' RlpcPs }
-            : Var                       { VarP $1 }
-            | Lit                       { LitP $1 }
+            : Var                       { undefined }
+            | Lit                       { LitP <$> $1 }
 
 Expr        :: { RlpExpr' RlpcPs }
-            : Expr1 varsym Expr         { Fix $ B $2 (unFix $1) (unFix $3) }
+            : Expr1 varsym Expr         { undefined }
             | Expr1                     { $1 }
 
 Expr1       :: { RlpExpr' RlpcPs }
-            : '(' Expr ')'              { wrapFix . Par . unwrapFix $ $2 }
-            | Lit                       { Fix . E $ LitEF $1 }
-            | Var                       { Fix . E $ VarEF $1 }
+            : '(' Expr ')'              { fmap ParE' $2 }
+            | Lit                       { fmap LitE' $1 }
+            | Var                       { fmap VarE' $1 }
 
 -- TODO: happy prefers left-associativity. doing such would require adjusting
 -- the code in Rlp.Parse.Associate to expect left-associative input rather than
 -- right.
 InfixExpr   :: { RlpExpr' RlpcPs }
-            : Expr1 varsym Expr         { Fix $ B $2 (unFix $1) (unFix $3) }
+            : Expr1 varsym Expr         { undefined }
 
 InfixOp     :: { PsName }
-            : consym                    { $1 }
-            | varsym                    { $1 }
+            : consym                    { undefined }
+            | varsym                    { undefined }
 
 -- TODO: microlens-pro save me microlens-pro (rewrite this with prisms)
 Lit         :: { Lit' RlpcPs }
@@ -172,8 +172,8 @@ mkProgram ds = do
     pure $ RlpProgram (associate pt <$> ds)
 
 parseError :: Located RlpToken -> P a
-parseError (Located (l,c,s) t) = addFatal $
-    errorMsg (SrcSpan l c s) RlpParErrUnexpectedToken
+parseError (Located (l,c,a,s) t) = addFatal $
+    errorMsg (SrcSpan l c a s) RlpParErrUnexpectedToken
 
 mkInfixD :: Assoc -> Int -> PsName -> P (Decl' RlpcPs)
 mkInfixD a p n = do
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 794c28a..8fba710 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -34,6 +34,7 @@ import Data.Fix
 import Data.Functor.Foldable
 import Data.Functor.Const
 import Data.Functor.Classes
+import Data.Functor.Apply
 import Data.HashMap.Strict          qualified as H
 import Data.Void
 import Data.Word                    (Word8)
@@ -50,6 +51,8 @@ type instance XRec RlpcPs f = Located (f RlpcPs)
 type instance IdP RlpcPs = PsName
 
 type instance XInfixD RlpcPs = ()
+type instance XVarE RlpcPs = ()
+type instance XLitE RlpcPs = ()
 
 type PsName = Text
 
@@ -66,8 +69,9 @@ data AlexInput = AlexInput
     deriving Show
 
 type Position =
-    ( Int -- line
-    , Int -- column
+    ( Int -- ^ line
+    , Int -- ^ column
+    , Int -- ^ Absolutely
     )
 
 posLine :: Lens' Position Int
@@ -76,6 +80,9 @@ posLine = _1
 posColumn :: Lens' Position Int
 posColumn = _2
 
+posAbsolute :: Lens' Position Int
+posAbsolute = _3
+
 data RlpToken
     -- literals
     = TokenLitInt Int
@@ -154,12 +161,24 @@ data Layout = Explicit
             | Implicit Int
             deriving (Show, Eq)
 
--- | Token wrapped with a span (line, column, length)
-data Located a = Located !(Int, Int, Int) a
+-- | Token wrapped with a span (line, column, absolute, length)
+data Located a = Located !(Int, Int, Int, Int) a
     deriving (Show, Functor)
 
-spanFromPos :: Position -> Int -> (Int, Int, Int)
-spanFromPos (l,c) s = (l,c,s)
+instance Apply Located where
+    liftF2 f (Located (la,ca,aa,sa) p) (Located (lb,cb,ab,sb) q)
+            = Located (l,c,a,s) (p `f` q)
+        where
+            l = min la lb
+            c = min ca cb
+            a = min aa ab
+            s = case aa `compare` ab of
+                EQ -> max sa sb
+                LT -> max sa (ab + sb)
+                GT -> max sb (aa + sa)
+
+spanFromPos :: Position -> Int -> (Int, Int, Int, Int)
+spanFromPos (l,c,a) s = (l,c,a,s)
 
 {-# INLINE spanFromPos #-}
 
@@ -186,8 +205,9 @@ addWoundHere l e = P $ \st ->
     let e' = MsgEnvelope
             { _msgSpan = let pos = psInput . aiPos
                          in SrcSpan (st ^. pos . posLine)
-                                   (st ^. pos . posColumn)
-                                   l
+                                    (st ^. pos . posColumn)
+                                    (st ^. pos . posAbsolute)
+                                    l
             , _msgDiagnostic = e
             , _msgSeverity = SevError
             }
@@ -199,6 +219,7 @@ addFatalHere l e = P $ \st ->
             { _msgSpan = let pos = psInput . aiPos
                          in SrcSpan (st ^. pos . posLine)
                                     (st ^. pos . posColumn)
+                                    (st ^. pos . posAbsolute)
                                     l
             , _msgDiagnostic = e
             , _msgSeverity = SevError
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 76156c7..ced123b 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -15,7 +15,10 @@ module Rlp.Syntax
     , ConAlt(..)
 
     -- * Pattern synonyms for unused extensions
+    -- ** Decl
     , pattern InfixD'
+    -- ** RlpExpr
+    , pattern ParE', pattern VarE', pattern LitE'
 
     -- * Trees That Grow extensions
     , XRec, IdP
@@ -103,6 +106,15 @@ type family XXRlpExpr p
 
 type family IdP p
 
+pattern ParE' :: (XParE p ~ ()) => RlpExpr' p -> RlpExpr p
+pattern ParE' e = ParE () e
+
+pattern LitE' :: (XLitE p ~ ()) => Lit p -> RlpExpr p
+pattern LitE' e = LitE () e
+
+pattern VarE' :: (XVarE p ~ ()) => IdP p -> RlpExpr p
+pattern VarE' e = VarE () e
+
 type Where p = [Bind p]
 
 -- do we want guards?
-- 
2.52.0


From e00e4d34183d5aaf0675557152b209bdd30f5074 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 26 Jan 2024 17:53:05 -0700
Subject: [PATCH 114/192] it's also a comonad. lol.

---
 rlp.cabal              |  1 +
 src/Rlp/Parse.y        |  7 +++++--
 src/Rlp/Parse/Types.hs | 24 ++++++++++++++++++++++++
 3 files changed, 30 insertions(+), 2 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 61250c1..6105295 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -70,6 +70,7 @@ library
                     , utf8-string >= 1.0.2 && < 1.1
                     , extra >= 1.7.0 && < 2
                     , semigroupoids
+                    , comonad
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index acb7fad..048617d 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -13,6 +13,9 @@ import Lens.Micro.Platform
 import Data.List.Extra
 import Data.Fix
 import Data.Functor.Const
+import Data.Functor.Apply
+import Data.Functor.Bind
+import Control.Comonad
 import Data.Functor
 import Data.Text                    qualified as T
 import Data.Void
@@ -125,14 +128,14 @@ Params      : {- epsilon -}             { [] }
 
 Pat1        :: { Pat' RlpcPs }
             : Var                       { undefined }
-            | Lit                       { LitP <$> $1 }
+            | Lit                       { LitP <<= $1 }
 
 Expr        :: { RlpExpr' RlpcPs }
             : Expr1 varsym Expr         { undefined }
             | Expr1                     { $1 }
 
 Expr1       :: { RlpExpr' RlpcPs }
-            : '(' Expr ')'              { fmap ParE' $2 }
+            : '(' Expr ')'              { $1 .> $2 <. $3 }
             | Lit                       { fmap LitE' $1 }
             | Var                       { fmap VarE' $1 }
 
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 8fba710..b8af882 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -27,6 +27,7 @@ import Core.Syntax                  (Name)
 import Control.Monad
 import Control.Monad.State.Strict
 import Control.Monad.Errorful
+import Control.Comonad
 import Compiler.RlpcError
 import Data.Text                    (Text)
 import Data.Maybe
@@ -35,6 +36,7 @@ import Data.Functor.Foldable
 import Data.Functor.Const
 import Data.Functor.Classes
 import Data.Functor.Apply
+import Data.Functor.Bind
 import Data.HashMap.Strict          qualified as H
 import Data.Void
 import Data.Word                    (Word8)
@@ -177,6 +179,28 @@ instance Apply Located where
                 LT -> max sa (ab + sb)
                 GT -> max sb (aa + sa)
 
+instance Bind Located where
+    Located sa a >>- k = Located (sa `spanAcross` sb) b
+        where
+            Located sb b = k a
+
+spanAcross :: (Int, Int, Int, Int)
+           -> (Int, Int, Int, Int)
+           -> (Int, Int, Int, Int)
+spanAcross (la,ca,aa,sa) (lb,cb,ab,sb) = (l,c,a,s)
+        where
+            l = min la lb
+            c = min ca cb
+            a = min aa ab
+            s = case aa `compare` ab of
+                EQ -> max sa sb
+                LT -> max sa (ab + sb)
+                GT -> max sb (aa + sa)
+
+instance Comonad Located where
+    extract (Located _ a) = a
+    extend ck w@(Located p _) = Located p (ck w)
+
 spanFromPos :: Position -> Int -> (Int, Int, Int, Int)
 spanFromPos (l,c,a) s = (l,c,a,s)
 
-- 
2.52.0


From c74c19264569e9776f198f77befe87a0b3da5da0 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 26 Jan 2024 19:19:41 -0700
Subject: [PATCH 115/192] idk

---
 src/Rlp/Parse.y        | 12 +++++++-----
 src/Rlp/Parse/Types.hs |  1 +
 src/Rlp/Syntax.hs      | 12 +++++++++---
 3 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 048617d..9792878 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -17,6 +17,7 @@ import Data.Functor.Apply
 import Data.Functor.Bind
 import Control.Comonad
 import Data.Functor
+import Data.Semigroup.Traversable
 import Data.Text                    qualified as T
 import Data.Void
 }
@@ -104,23 +105,24 @@ DataCons    :: { [ConAlt RlpcPs] }
             | DataCon                   { [$1] }
 
 DataCon     :: { ConAlt RlpcPs }
-            : Con Type1s                { ConAlt $1 $2 }
+            : Con Type1s                { undefined }
 
 Type1s      :: { [Type] }
             : {- epsilon -}             { [] }
             | Type1s Type1              { $1 `snoc` $2 }
 
 Type1       :: { Type }
-            : '(' Type ')'              { $2 }
-            | conname                   { TyCon $1 }
-            | varname                   { TyVar $1 }
+            : '(' Type ')'              { undefined }
+            | conname                   { undefined }
+            | varname                   { undefined }
 
 Type        :: { Type }
             : Type '->' Type            { $1 :-> $3 }
             | Type1                     { $1 }
 
 FunDecl     :: { Decl' RlpcPs }
-FunDecl     : Var Params '=' Expr       { FunD undefined $2 $4 Nothing }
+FunDecl     : Var Params '=' Expr       { $4 =>> \e ->
+                                          FunD' (extract $1) $2 e Nothing }
 
 Params      :: { [Pat' RlpcPs] }
 Params      : {- epsilon -}             { [] }
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index b8af882..5a3e6d4 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -55,6 +55,7 @@ type instance IdP RlpcPs = PsName
 type instance XInfixD RlpcPs = ()
 type instance XVarE RlpcPs = ()
 type instance XLitE RlpcPs = ()
+type instance XFunD RlpcPs = ()
 
 type PsName = Text
 
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index ced123b..69d5d0d 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -12,16 +12,17 @@ module Rlp.Syntax
     , Assoc(..)
     , Lit(..), Lit'
     , Type(..)
+    , pattern (:->)
     , ConAlt(..)
 
     -- * Pattern synonyms for unused extensions
     -- ** Decl
-    , pattern InfixD'
+    , pattern InfixD', pattern FunD'
     -- ** RlpExpr
     , pattern ParE', pattern VarE', pattern LitE'
 
     -- * Trees That Grow extensions
-    , XRec, IdP
+    , UnXRec(..), MapXRec(..), XRec, IdP
     -- ** RlpExpr
     , XLetE, XVarE, XConE, XLamE, XCaseE, XIfE, XAppE, XLitE, XXRlpExpr
     -- ** Decl
@@ -47,7 +48,7 @@ data RlpModule p = RlpModule
 
 newtype RlpProgram p = RlpProgram [Decl p]
 
-data Decl p = FunD   (XFunD p)   (IdP p) [Pat p] (RlpExpr p) (Maybe (Where p))
+data Decl p = FunD   (XFunD p)   (IdP p) [Pat' p] (RlpExpr' p) (Maybe (Where p))
             | TySigD (XTySigD p) [IdP p] Type
             | DataD  (XDataD p)  (IdP p) [IdP p] [ConAlt p]
             | InfixD (XInfixD p) Assoc Int (IdP p)
@@ -59,6 +60,11 @@ type family XDataD p
 type family XInfixD p
 type family XXDecl p
 
+pattern FunD' :: (XFunD p ~ ())
+              => IdP p -> [Pat' p] -> RlpExpr' p -> (Maybe (Where p))
+              -> Decl p
+pattern FunD' n as e wh = FunD () n as e wh
+
 pattern InfixD' :: (XInfixD p ~ ()) => Assoc -> Int -> (IdP p) -> Decl p
 pattern InfixD' a p n = InfixD () a p n
 
-- 
2.52.0


From 83dda869f8f2733b6743137202e9ba957715d6e9 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 28 Jan 2024 16:24:08 -0700
Subject: [PATCH 116/192] show

---
 rlp.cabal                  |  4 +--
 src/Rlp/Parse.y            | 11 +++++---
 src/Rlp/Parse/Associate.hs |  2 +-
 src/Rlp/Parse/Types.hs     | 39 ++++++++++++++++++++++++++--
 src/Rlp/Syntax.hs          | 52 ++++++++++++++++++++++++++++++++------
 5 files changed, 91 insertions(+), 17 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 6105295..dac6a5b 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -48,7 +48,7 @@ library
     build-tool-depends: happy:happy, alex:alex
 
     -- other-extensions:
-    build-depends:    base ^>=4.18.0.0
+    build-depends:    base >=4.17 && <4.20
                     -- required for happy
                     , array >= 0.5.5 && < 0.6
                     , containers >= 0.6.7 && < 0.7
@@ -85,7 +85,7 @@ executable rlpc
     main-is:          Main.hs
     -- other-modules:
     -- other-extensions:
-    build-depends: base ^>=4.18.0.0
+    build-depends: base >=4.17.0.0 && <4.20.0.0
                  , rlp
                  , optparse-applicative >= 0.18.1 && < 0.19
                  , microlens >= 0.4.13 && < 0.5
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 9792878..538b9ab 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -1,5 +1,5 @@
 {
-{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE LambdaCase, ViewPatterns #-}
 module Rlp.Parse
     ( parseRlpProg
     )
@@ -86,7 +86,7 @@ Decl        :: { Decl' RlpcPs }
             | InfixDecl                 { $1 }
 
 InfixDecl   :: { Decl' RlpcPs }
-            : InfixWord litint InfixOp  {% mkInfixD $1 $2 $3 }
+            : InfixWord litint InfixOp  {% mkInfixD $1 (intOfToken $2) $3 }
 
 InfixWord   :: { Assoc }
             : infixl                    { InfixL }
@@ -94,11 +94,11 @@ InfixWord   :: { Assoc }
             | infix                     { Infix  }
 
 DataDecl    :: { Decl' RlpcPs }
-            : data Con TyParams '=' DataCons    { DataD $2 $3 $5 }
+            : data Con TyParams '=' DataCons    { $1 =>> \_ -> DataD' (extract $2) $3 $5 }
 
 TyParams    :: { [PsName] }
             : {- epsilon -}             { [] }
-            | TyParams varname          { $1 `snoc` $2 }
+            | TyParams varname          { $1 `snoc` extract (mkPsName $2) }
 
 DataCons    :: { [ConAlt RlpcPs] }
             : DataCons '|' DataCon      { $1 `snoc` $3 }
@@ -193,4 +193,7 @@ mkInfixD a p n = do
     pos <- use (psInput . aiPos)
     pure $ Located (spanFromPos pos 0) (InfixD' a p n)
 
+intOfToken :: Located RlpToken -> Int
+intOfToken (Located _ (TokenLitInt n)) = n
+
 }
diff --git a/src/Rlp/Parse/Associate.hs b/src/Rlp/Parse/Associate.hs
index 8dd89f2..99349d9 100644
--- a/src/Rlp/Parse/Associate.hs
+++ b/src/Rlp/Parse/Associate.hs
@@ -14,6 +14,6 @@ import Rlp.Parse.Types
 import Rlp.Syntax
 --------------------------------------------------------------------------------
 
-associate = undefined
+associate x y = y
 {-# WARNING associate "temporarily undefined" #-}
 
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 5a3e6d4..c7cefb5 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -53,9 +53,22 @@ type instance XRec RlpcPs f = Located (f RlpcPs)
 type instance IdP RlpcPs = PsName
 
 type instance XInfixD RlpcPs = ()
-type instance XVarE RlpcPs = ()
-type instance XLitE RlpcPs = ()
 type instance XFunD RlpcPs = ()
+type instance XDataD RlpcPs = ()
+type instance XTySigD RlpcPs = ()
+type instance XXDecl RlpcPs = ()
+
+type instance XLetE RlpcPs = ()
+type instance XVarE RlpcPs = ()
+type instance XLamE RlpcPs = ()
+type instance XCaseE RlpcPs = ()
+type instance XIfE RlpcPs = ()
+type instance XAppE RlpcPs = ()
+type instance XLitE RlpcPs = ()
+type instance XParE RlpcPs = ()
+type instance XOAppE RlpcPs = ()
+type instance XXRlpExpr RlpcPs = ()
+type instance XLitE RlpcPs = ()
 
 type PsName = Text
 
@@ -198,6 +211,28 @@ spanAcross (la,ca,aa,sa) (lb,cb,ab,sb) = (l,c,a,s)
                 LT -> max sa (ab + sb)
                 GT -> max sb (aa + sa)
 
+-- | A synonym for '(<<=)' with a different precedence for use with '(<~>)' in a
+-- sort of, comonadic pseudo-applicative style.
+
+(<<~) :: (Comonad w) => (w a -> b) -> w a -> w b
+(<<~) = (<<=)
+
+infixl 4 <<~
+
+-- | Similar to '(<*>)', but with a cokleisli arrow.
+
+(<~>) :: (Comonad w, Bind w) => w (w a -> b) -> w a -> w b
+mc <~> ma = mc >>- \f -> ma =>> f
+
+infixl 4 <~>
+
+-- f :: (w a -> w b -> c)
+-- a :: w a
+-- b :: w b
+
+-- result :: w c
+-- result = f >~~ a <~> b
+
 instance Comonad Located where
     extract (Located _ a) = a
     extend ck w@(Located p _) = Located p (ck w)
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 69d5d0d..3e8b9e5 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -3,6 +3,7 @@
   , TemplateHaskell, TypeFamilies #-}
 {-# LANGUAGE OverloadedStrings, PatternSynonyms #-}
 {-# LANGUAGE TypeFamilies, TypeFamilyDependencies #-}
+{-# LANGUAGE UndecidableInstances, ImpredicativeTypes #-}
 module Rlp.Syntax
     (
     -- * AST
@@ -17,14 +18,15 @@ module Rlp.Syntax
 
     -- * Pattern synonyms for unused extensions
     -- ** Decl
-    , pattern InfixD', pattern FunD'
+    , pattern InfixD', pattern FunD', pattern DataD'
     -- ** RlpExpr
     , pattern ParE', pattern VarE', pattern LitE'
 
     -- * Trees That Grow extensions
     , UnXRec(..), MapXRec(..), XRec, IdP
     -- ** RlpExpr
-    , XLetE, XVarE, XConE, XLamE, XCaseE, XIfE, XAppE, XLitE, XXRlpExpr
+    , XLetE, XVarE, XConE, XLamE, XCaseE, XIfE, XAppE, XLitE, XParE, XOAppE
+    , XXRlpExpr
     -- ** Decl
     , XFunD, XTySigD, XDataD, XInfixD, XXDecl
     )
@@ -37,7 +39,7 @@ import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Data.Functor.Classes
 import Lens.Micro
 import Lens.Micro.TH
-import Core.Syntax                  hiding (Lit)
+import Core.Syntax                  hiding (Lit, Binding)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
 
@@ -46,7 +48,15 @@ data RlpModule p = RlpModule
     , _rlpmodProgram    :: RlpProgram p
     }
 
-newtype RlpProgram p = RlpProgram [Decl p]
+-- | dear god.
+type PhaseShow p =
+    ( Show (XRec p Pat), Show (XRec p RlpExpr)
+    , Show (XRec p Lit), Show (IdP p)
+    )
+
+newtype RlpProgram p = RlpProgram [Decl' p]
+
+deriving instance (PhaseShow p, Show (XRec p Decl)) => Show (RlpProgram p)
 
 data Decl p = FunD   (XFunD p)   (IdP p) [Pat' p] (RlpExpr' p) (Maybe (Where p))
             | TySigD (XTySigD p) [IdP p] Type
@@ -54,6 +64,12 @@ data Decl p = FunD   (XFunD p)   (IdP p) [Pat' p] (RlpExpr' p) (Maybe (Where p))
             | InfixD (XInfixD p) Assoc Int (IdP p)
             | XDecl  !(XXDecl p)
 
+deriving instance ( Show (XFunD p), Show (XTySigD p)
+                  , Show (XDataD p), Show (XInfixD p)
+                  , Show (XXDecl p), Show (IdP p)
+                  , PhaseShow p
+                  ) => Show (Decl p)
+
 type family XFunD p
 type family XTySigD p
 type family XDataD p
@@ -68,6 +84,9 @@ pattern FunD' n as e wh = FunD () n as e wh
 pattern InfixD' :: (XInfixD p ~ ()) => Assoc -> Int -> (IdP p) -> Decl p
 pattern InfixD' a p n = InfixD () a p n
 
+pattern DataD' :: (XDataD p ~ ()) => IdP p -> [IdP p] -> [ConAlt p] -> Decl p
+pattern DataD' n as ds = DataD () n as ds
+
 type Decl' p = XRec p Decl
 
 data Assoc = InfixL
@@ -77,7 +96,9 @@ data Assoc = InfixL
 
 data ConAlt p = ConAlt (IdP p) [Type]
 
-data RlpExpr p = LetE  (XLetE p)   [Bind p] (RlpExpr' p)
+deriving instance (Show (IdP p)) => Show (ConAlt p)
+
+data RlpExpr p = LetE  (XLetE p)   [Binding p] (RlpExpr' p)
                | VarE  (XVarE p)   (IdP p)
                | LamE  (XLamE p)   [Pat p] (RlpExpr' p)
                | CaseE (XCaseE p)  (RlpExpr' p) [(Alt p, Where p)]
@@ -88,6 +109,12 @@ data RlpExpr p = LetE  (XLetE p)   [Bind p] (RlpExpr' p)
                | OAppE (XOAppE p)  (IdP p) (RlpExpr' p) (RlpExpr' p)
                | XRlpExpr !(XXRlpExpr p)
 
+deriving instance
+    ( Show (XLetE p), Show (XVarE p), Show (XLamE p), Show (XCaseE p)
+    , Show (XIfE p), Show (XAppE p), Show (XLitE p), Show (XParE p)
+    , Show (XOAppE p), Show (XXRlpExpr p), PhaseShow p)
+    => Show (RlpExpr p)
+
 type RlpExpr' p = XRec p RlpExpr
 
 class UnXRec p where
@@ -121,24 +148,33 @@ pattern LitE' e = LitE () e
 pattern VarE' :: (XVarE p ~ ()) => IdP p -> RlpExpr p
 pattern VarE' e = VarE () e
 
-type Where p = [Bind p]
+type Where p = [Binding p]
 
 -- do we want guards?
 data Alt p = AltA (Pat' p) (RlpExpr' p)
 
-data Bind p = PatB (Pat' p) (RlpExpr' p)
-            | FunB (IdP p) [Pat' p] (RlpExpr' p)
+deriving instance (PhaseShow p) => Show (Alt p)
+
+data Binding p = PatB (Pat' p) (RlpExpr' p)
+               | FunB (IdP p) [Pat' p] (RlpExpr' p)
+
+deriving instance (Show (XRec p Pat), Show (XRec p RlpExpr), Show (IdP p)
+                  ) => Show (Binding p)
 
 data Pat p = VarP (IdP p)
            | LitP (Lit' p)
            | ConP (IdP p) [Pat' p]
 
+deriving instance (PhaseShow p) => Show (Pat p)
+
 type Pat' p = XRec p Pat
 
 data Lit p = IntL Int
            | CharL Char
            | ListL [RlpExpr' p]
 
+deriving instance (PhaseShow p) => Show (Lit p)
+
 type Lit' p = XRec p Lit
 
 -- instance HasLHS Alt Alt Pat Pat where
-- 
2.52.0


From fdaa2a1afdd1a98d860a4235d49d4b4a6f73019e Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 28 Jan 2024 17:02:32 -0700
Subject: [PATCH 117/192] abandon ship

---
 src/Rlp/Parse.y        | 12 ++++++------
 src/Rlp/Parse/Types.hs |  2 ++
 src/Rlp/Syntax.hs      | 34 +++++++++++++++++++++++++++++-----
 3 files changed, 37 insertions(+), 11 deletions(-)

diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 538b9ab..6eb6a3e 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -107,17 +107,17 @@ DataCons    :: { [ConAlt RlpcPs] }
 DataCon     :: { ConAlt RlpcPs }
             : Con Type1s                { undefined }
 
-Type1s      :: { [Type] }
+Type1s      :: { [RlpType RlpcPs] }
             : {- epsilon -}             { [] }
             | Type1s Type1              { $1 `snoc` $2 }
 
-Type1       :: { Type }
-            : '(' Type ')'              { undefined }
+Type1       :: { RlpType' RlpcPs }
+            : '(' Type ')'              { $2 }
             | conname                   { undefined }
             | varname                   { undefined }
 
-Type        :: { Type }
-            : Type '->' Type            { $1 :-> $3 }
+Type        :: { RlpType' RlpcPs }
+            : Type '->' Type            { undefined }
             | Type1                     { $1 }
 
 FunDecl     :: { Decl' RlpcPs }
@@ -147,7 +147,7 @@ Expr1       :: { RlpExpr' RlpcPs }
 InfixExpr   :: { RlpExpr' RlpcPs }
             : Expr1 varsym Expr         { undefined }
 
-InfixOp     :: { PsName }
+InfixOp     :: { Located PsName }
             : consym                    { undefined }
             | varsym                    { undefined }
 
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index c7cefb5..37c3aee 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -17,6 +17,8 @@ module Rlp.Parse.Types
     -- ** Lenses
     , aiPrevChar, aiSource, aiBytes, aiPos, posLine, posColumn
 
+    , (<<~), (<~>)
+
     -- * Error handling
     , MsgEnvelope(..), RlpcError(..), RlpParseError(..)
     , addFatal, addWound, addFatalHere, addWoundHere
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 3e8b9e5..66d2d3b 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -12,8 +12,7 @@ module Rlp.Syntax
     , Pat(..), Pat'
     , Assoc(..)
     , Lit(..), Lit'
-    , Type(..)
-    , pattern (:->)
+    , RlpType(..), RlpType'
     , ConAlt(..)
 
     -- * Pattern synonyms for unused extensions
@@ -21,6 +20,8 @@ module Rlp.Syntax
     , pattern InfixD', pattern FunD', pattern DataD'
     -- ** RlpExpr
     , pattern ParE', pattern VarE', pattern LitE'
+    -- ** RlpType
+    , pattern FunT', pattern AppT'
 
     -- * Trees That Grow extensions
     , UnXRec(..), MapXRec(..), XRec, IdP
@@ -52,14 +53,37 @@ data RlpModule p = RlpModule
 type PhaseShow p =
     ( Show (XRec p Pat), Show (XRec p RlpExpr)
     , Show (XRec p Lit), Show (IdP p)
+    , Show (XRec p RlpType)
     )
 
 newtype RlpProgram p = RlpProgram [Decl' p]
 
 deriving instance (PhaseShow p, Show (XRec p Decl)) => Show (RlpProgram p)
 
+data RlpType p = FunT (XFunT p)
+               | AppT (XAppT p) (RlpType' p) (RlpType' p)
+               | VarT (XVarT p) (IdP p)
+               | ConT (XConT p) (IdP p)
+
+type RlpType' p = XRec p RlpType
+
+deriving instance (PhaseShow p, Show (XFunT p), Show (XAppT p), Show (XVarT p)
+                  ,Show (XConT p))
+                  => Show (RlpType p)
+
+type family XFunT p
+type family XAppT p
+type family XVarT p
+type family XConT p
+
+pattern FunT' :: (XFunT p ~ ()) => RlpType p
+pattern FunT' = FunT ()
+
+pattern AppT' :: (XAppT p ~ ()) => RlpType' p -> RlpType' p -> RlpType p
+pattern AppT' s t = AppT () s t
+
 data Decl p = FunD   (XFunD p)   (IdP p) [Pat' p] (RlpExpr' p) (Maybe (Where p))
-            | TySigD (XTySigD p) [IdP p] Type
+            | TySigD (XTySigD p) [IdP p] (RlpType' p)
             | DataD  (XDataD p)  (IdP p) [IdP p] [ConAlt p]
             | InfixD (XInfixD p) Assoc Int (IdP p)
             | XDecl  !(XXDecl p)
@@ -94,9 +118,9 @@ data Assoc = InfixL
            | Infix
            deriving (Show)
 
-data ConAlt p = ConAlt (IdP p) [Type]
+data ConAlt p = ConAlt (IdP p) [RlpType' p]
 
-deriving instance (Show (IdP p)) => Show (ConAlt p)
+deriving instance (Show (IdP p), Show (XRec p RlpType)) => Show (ConAlt p)
 
 data RlpExpr p = LetE  (XLetE p)   [Binding p] (RlpExpr' p)
                | VarE  (XVarE p)   (IdP p)
-- 
2.52.0


From 7d42f9b64109737b9ebacc867ed845b350ff41f4 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 28 Jan 2024 17:54:39 -0700
Subject: [PATCH 118/192] at long last

more

no more undefineds
---
 src/Rlp/Lex.x          |   6 +-
 src/Rlp/Parse.y        |  65 ++++++++++++----------
 src/Rlp/Parse/Types.hs |  18 ------
 src/Rlp/Syntax.hs      | 121 +++++++++--------------------------------
 4 files changed, 65 insertions(+), 145 deletions(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index a22a66f..9229b8b 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -57,7 +57,7 @@ $asciisym       = [\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~\:]
     |infixr|infixl|infix
 
 @reservedop =
-    "=" | \\ | "->" | "|"
+    "=" | \\ | "->" | "|" | "::"
 
 rlp :-
     
@@ -187,8 +187,8 @@ pushLexState :: Int -> P ()
 pushLexState n = psLexState %= (n:)
 
 readInt :: Text -> Int
-readInt = T.foldr f 0 where
-    f c n = digitToInt c + 10*n
+readInt = T.foldl f 0 where
+    f n c = 10*n + digitToInt c
 
 constToken :: RlpToken -> LexerAction (Located RlpToken)
 constToken t inp l = do
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 6eb6a3e..67e1b5d 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -38,6 +38,7 @@ import Data.Void
     litint          { Located _ (TokenLitInt _) }
     '='             { Located _ TokenEquals }
     '|'             { Located _ TokenPipe }
+    '::'            { Located _ TokenHasType }
     ';'             { Located _ TokenSemicolon }
     '('             { Located _ TokenLParen }
     ')'             { Located _ TokenRParen }
@@ -82,74 +83,75 @@ VS                  : ';'                   { $1 }
 
 Decl        :: { Decl' RlpcPs }
             : FunDecl                   { $1 }
+            | TySigDecl                 { $1 }
             | DataDecl                  { $1 }
             | InfixDecl                 { $1 }
 
-InfixDecl   :: { Decl' RlpcPs }
-            : InfixWord litint InfixOp  {% mkInfixD $1 (intOfToken $2) $3 }
+TySigDecl   :: { Decl' RlpcPs }
+            : Var '::' Type             { (\e -> TySigD [extract e]) <<~ $1 <~> $3 }
 
-InfixWord   :: { Assoc }
-            : infixl                    { InfixL }
-            | infixr                    { InfixR }
-            | infix                     { Infix  }
+InfixDecl   :: { Decl' RlpcPs }
+            : InfixWord litint InfixOp  { $1 =>> \w ->
+                                          InfixD (extract $1) (extractInt $ extract $2)
+                                          (extract $3) }
+
+InfixWord   :: { Located Assoc }
+            : infixl                    { $1 \$> InfixL }
+            | infixr                    { $1 \$> InfixR }
+            | infix                     { $1 \$> Infix  }
 
 DataDecl    :: { Decl' RlpcPs }
-            : data Con TyParams '=' DataCons    { $1 =>> \_ -> DataD' (extract $2) $3 $5 }
+            : data Con TyParams '=' DataCons    { $1 \$> DataD (extract $2) $3 $5 }
 
 TyParams    :: { [PsName] }
             : {- epsilon -}             { [] }
-            | TyParams varname          { $1 `snoc` extract (mkPsName $2) }
+            | TyParams varname          { $1 `snoc` (extractName . extract $ $2) }
 
 DataCons    :: { [ConAlt RlpcPs] }
             : DataCons '|' DataCon      { $1 `snoc` $3 }
             | DataCon                   { [$1] }
 
 DataCon     :: { ConAlt RlpcPs }
-            : Con Type1s                { undefined }
+            : Con Type1s                { ConAlt (extract $1) $2 }
 
-Type1s      :: { [RlpType RlpcPs] }
+Type1s      :: { [RlpType' RlpcPs] }
             : {- epsilon -}             { [] }
             | Type1s Type1              { $1 `snoc` $2 }
 
 Type1       :: { RlpType' RlpcPs }
             : '(' Type ')'              { $2 }
-            | conname                   { undefined }
-            | varname                   { undefined }
+            | conname                   { fmap ConT (mkPsName $1) }
+            | varname                   { fmap VarT (mkPsName $1) }
 
 Type        :: { RlpType' RlpcPs }
-            : Type '->' Type            { undefined }
+            : Type '->' Type            { FunT <<~ $1 <~> $3 }
             | Type1                     { $1 }
 
 FunDecl     :: { Decl' RlpcPs }
 FunDecl     : Var Params '=' Expr       { $4 =>> \e ->
-                                          FunD' (extract $1) $2 e Nothing }
+                                          FunD (extract $1) $2 e Nothing }
 
 Params      :: { [Pat' RlpcPs] }
 Params      : {- epsilon -}             { [] }
             | Params Pat1               { $1 `snoc` $2 }
 
 Pat1        :: { Pat' RlpcPs }
-            : Var                       { undefined }
+            : Var                       { fmap VarP $1 }
             | Lit                       { LitP <<= $1 }
 
 Expr        :: { RlpExpr' RlpcPs }
-            : Expr1 varsym Expr         { undefined }
+            : Expr1 InfixOp Expr        { $2 =>> \o ->
+                                          OAppE (extract o) $1 $3 }
             | Expr1                     { $1 }
 
 Expr1       :: { RlpExpr' RlpcPs }
             : '(' Expr ')'              { $1 .> $2 <. $3 }
-            | Lit                       { fmap LitE' $1 }
-            | Var                       { fmap VarE' $1 }
-
--- TODO: happy prefers left-associativity. doing such would require adjusting
--- the code in Rlp.Parse.Associate to expect left-associative input rather than
--- right.
-InfixExpr   :: { RlpExpr' RlpcPs }
-            : Expr1 varsym Expr         { undefined }
+            | Lit                       { fmap LitE $1 }
+            | Var                       { fmap VarE $1 }
 
 InfixOp     :: { Located PsName }
-            : consym                    { undefined }
-            | varsym                    { undefined }
+            : consym                    { mkPsName $1 }
+            | varsym                    { mkPsName $1 }
 
 -- TODO: microlens-pro save me microlens-pro (rewrite this with prisms)
 Lit         :: { Lit' RlpcPs }
@@ -164,13 +166,20 @@ Con         :: { Located PsName }
 {
 
 mkPsName :: Located RlpToken -> Located PsName
-mkPsName = fmap $ \case
+mkPsName = fmap extractName
+
+extractName :: RlpToken -> PsName
+extractName = \case
     TokenVarName n -> n
     TokenConName n -> n
     TokenConSym  n -> n
     TokenVarSym  n -> n
     _              -> error "mkPsName: not an identifier"
 
+extractInt :: RlpToken -> Int
+extractInt (TokenLitInt n) = n
+extractInt _ = error "extractInt: ugh"
+
 mkProgram :: [Decl' RlpcPs] -> P (RlpProgram RlpcPs)
 mkProgram ds = do
     pt <- use psOpTable
@@ -191,7 +200,7 @@ mkInfixD a p n = do
         Nothing -> pure (Just (a,p))
         )
     pos <- use (psInput . aiPos)
-    pure $ Located (spanFromPos pos 0) (InfixD' a p n)
+    pure $ Located (spanFromPos pos 0) (InfixD a p n)
 
 intOfToken :: Located RlpToken -> Int
 intOfToken (Located _ (TokenLitInt n)) = n
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 37c3aee..9c91493 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -54,24 +54,6 @@ data RlpcPs
 type instance XRec RlpcPs f = Located (f RlpcPs)
 type instance IdP RlpcPs = PsName
 
-type instance XInfixD RlpcPs = ()
-type instance XFunD RlpcPs = ()
-type instance XDataD RlpcPs = ()
-type instance XTySigD RlpcPs = ()
-type instance XXDecl RlpcPs = ()
-
-type instance XLetE RlpcPs = ()
-type instance XVarE RlpcPs = ()
-type instance XLamE RlpcPs = ()
-type instance XCaseE RlpcPs = ()
-type instance XIfE RlpcPs = ()
-type instance XAppE RlpcPs = ()
-type instance XLitE RlpcPs = ()
-type instance XParE RlpcPs = ()
-type instance XOAppE RlpcPs = ()
-type instance XXRlpExpr RlpcPs = ()
-type instance XLitE RlpcPs = ()
-
 type PsName = Text
 
 --------------------------------------------------------------------------------
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 66d2d3b..25b20e8 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -15,21 +15,8 @@ module Rlp.Syntax
     , RlpType(..), RlpType'
     , ConAlt(..)
 
-    -- * Pattern synonyms for unused extensions
-    -- ** Decl
-    , pattern InfixD', pattern FunD', pattern DataD'
-    -- ** RlpExpr
-    , pattern ParE', pattern VarE', pattern LitE'
-    -- ** RlpType
-    , pattern FunT', pattern AppT'
-
     -- * Trees That Grow extensions
     , UnXRec(..), MapXRec(..), XRec, IdP
-    -- ** RlpExpr
-    , XLetE, XVarE, XConE, XLamE, XCaseE, XIfE, XAppE, XLitE, XParE, XOAppE
-    , XXRlpExpr
-    -- ** Decl
-    , XFunD, XTySigD, XDataD, XInfixD, XXDecl
     )
     where
 ----------------------------------------------------------------------------------
@@ -38,9 +25,10 @@ import Data.Text                    qualified as T
 import Data.String                  (IsString(..))
 import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Data.Functor.Classes
+import Data.Kind                    (Type)
 import Lens.Micro
 import Lens.Micro.TH
-import Core.Syntax                  hiding (Lit, Binding)
+import Core.Syntax                  hiding (Lit, Type, Binding)
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
 
@@ -60,56 +48,23 @@ newtype RlpProgram p = RlpProgram [Decl' p]
 
 deriving instance (PhaseShow p, Show (XRec p Decl)) => Show (RlpProgram p)
 
-data RlpType p = FunT (XFunT p)
-               | AppT (XAppT p) (RlpType' p) (RlpType' p)
-               | VarT (XVarT p) (IdP p)
-               | ConT (XConT p) (IdP p)
+data RlpType p = FunConT
+               | FunT (RlpType' p) (RlpType' p)
+               | AppT (RlpType' p) (RlpType' p)
+               | VarT (IdP p)
+               | ConT (IdP p)
 
 type RlpType' p = XRec p RlpType
 
-deriving instance (PhaseShow p, Show (XFunT p), Show (XAppT p), Show (XVarT p)
-                  ,Show (XConT p))
+deriving instance (PhaseShow p)
                   => Show (RlpType p)
 
-type family XFunT p
-type family XAppT p
-type family XVarT p
-type family XConT p
+data Decl p = FunD   (IdP p) [Pat' p] (RlpExpr' p) (Maybe (Where p))
+            | TySigD [IdP p] (RlpType' p)
+            | DataD  (IdP p) [IdP p] [ConAlt p]
+            | InfixD Assoc Int (IdP p)
 
-pattern FunT' :: (XFunT p ~ ()) => RlpType p
-pattern FunT' = FunT ()
-
-pattern AppT' :: (XAppT p ~ ()) => RlpType' p -> RlpType' p -> RlpType p
-pattern AppT' s t = AppT () s t
-
-data Decl p = FunD   (XFunD p)   (IdP p) [Pat' p] (RlpExpr' p) (Maybe (Where p))
-            | TySigD (XTySigD p) [IdP p] (RlpType' p)
-            | DataD  (XDataD p)  (IdP p) [IdP p] [ConAlt p]
-            | InfixD (XInfixD p) Assoc Int (IdP p)
-            | XDecl  !(XXDecl p)
-
-deriving instance ( Show (XFunD p), Show (XTySigD p)
-                  , Show (XDataD p), Show (XInfixD p)
-                  , Show (XXDecl p), Show (IdP p)
-                  , PhaseShow p
-                  ) => Show (Decl p)
-
-type family XFunD p
-type family XTySigD p
-type family XDataD p
-type family XInfixD p
-type family XXDecl p
-
-pattern FunD' :: (XFunD p ~ ())
-              => IdP p -> [Pat' p] -> RlpExpr' p -> (Maybe (Where p))
-              -> Decl p
-pattern FunD' n as e wh = FunD () n as e wh
-
-pattern InfixD' :: (XInfixD p ~ ()) => Assoc -> Int -> (IdP p) -> Decl p
-pattern InfixD' a p n = InfixD () a p n
-
-pattern DataD' :: (XDataD p ~ ()) => IdP p -> [IdP p] -> [ConAlt p] -> Decl p
-pattern DataD' n as ds = DataD () n as ds
+deriving instance (Show (IdP p), PhaseShow p) => Show (Decl p)
 
 type Decl' p = XRec p Decl
 
@@ -122,22 +77,17 @@ data ConAlt p = ConAlt (IdP p) [RlpType' p]
 
 deriving instance (Show (IdP p), Show (XRec p RlpType)) => Show (ConAlt p)
 
-data RlpExpr p = LetE  (XLetE p)   [Binding p] (RlpExpr' p)
-               | VarE  (XVarE p)   (IdP p)
-               | LamE  (XLamE p)   [Pat p] (RlpExpr' p)
-               | CaseE (XCaseE p)  (RlpExpr' p) [(Alt p, Where p)]
-               | IfE   (XIfE p)    (RlpExpr' p) (RlpExpr' p) (RlpExpr' p)
-               | AppE  (XAppE p)   (RlpExpr' p) (RlpExpr' p)
-               | LitE  (XLitE p)   (Lit p)
-               | ParE  (XParE p)   (RlpExpr' p)
-               | OAppE (XOAppE p)  (IdP p) (RlpExpr' p) (RlpExpr' p)
-               | XRlpExpr !(XXRlpExpr p)
+data RlpExpr p = LetE  [Binding p] (RlpExpr' p)
+               | VarE  (IdP p)
+               | LamE  [Pat p] (RlpExpr' p)
+               | CaseE (RlpExpr' p) [(Alt p, Where p)]
+               | IfE   (RlpExpr' p) (RlpExpr' p) (RlpExpr' p)
+               | AppE  (RlpExpr' p) (RlpExpr' p)
+               | LitE  (Lit p)
+               | ParE  (RlpExpr' p)
+               | OAppE (IdP p) (RlpExpr' p) (RlpExpr' p)
 
-deriving instance
-    ( Show (XLetE p), Show (XVarE p), Show (XLamE p), Show (XCaseE p)
-    , Show (XIfE p), Show (XAppE p), Show (XLitE p), Show (XParE p)
-    , Show (XOAppE p), Show (XXRlpExpr p), PhaseShow p)
-    => Show (RlpExpr p)
+deriving instance (PhaseShow p) => Show (RlpExpr p)
 
 type RlpExpr' p = XRec p RlpExpr
 
@@ -145,33 +95,12 @@ class UnXRec p where
     unXRec :: XRec p f -> f p
 
 class MapXRec p where
-    mapXRec :: (f p -> f p) -> XRec p f -> XRec p f
+    mapXRec :: (f p -> f' p') -> XRec p f -> XRec p' f'
 
-type family XRec p (f :: * -> *) = (r :: *) | r -> p f
-
-type family XLetE p
-type family XVarE p
-type family XConE p
-type family XLamE p
-type family XCaseE p
-type family XIfE p
-type family XAppE p
-type family XLitE p
-type family XParE p
-type family XOAppE p
-type family XXRlpExpr p
+type family XRec p (f :: Type -> Type) = (r :: Type) | r -> p f
 
 type family IdP p
 
-pattern ParE' :: (XParE p ~ ()) => RlpExpr' p -> RlpExpr p
-pattern ParE' e = ParE () e
-
-pattern LitE' :: (XLitE p ~ ()) => Lit p -> RlpExpr p
-pattern LitE' e = LitE () e
-
-pattern VarE' :: (XVarE p ~ ()) => IdP p -> RlpExpr p
-pattern VarE' e = VarE () e
-
 type Where p = [Binding p]
 
 -- do we want guards?
-- 
2.52.0


From ab979cb9346fd382de32e5757607b5fafa92e78c Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 28 Jan 2024 19:33:05 -0700
Subject: [PATCH 119/192] i should've made a lisp man this sucks

---
 src/Rlp/Lex.x     | 27 +++++++++++++++++++++++++++
 src/Rlp/Parse.y   | 23 +++++++++++++++++++++++
 src/Rlp/Syntax.hs |  8 ++++++--
 3 files changed, 56 insertions(+), 2 deletions(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 9229b8b..72f2cf0 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -10,6 +10,7 @@ module Rlp.Lex
     , lexStream
     , lexDebug
     , lexCont
+    , popLexState
     )
     where
 import Codec.Binary.UTF8.String (encodeChar)
@@ -73,6 +74,17 @@ $white_no_nl+       ;
 -- for the definition of `doBol`
 <0> \n                  { beginPush bol }
 
+<layout>
+{
+    
+}
+
+-- layout keywords
+<0>
+{
+    "let"               { constToken TokenLet `thenBeginPush` layout_let }
+}
+
 -- scan various identifiers and reserved words. order is important here!
 <0>
 {
@@ -110,6 +122,14 @@ $white_no_nl+       ;
     ()                  { doBol }
 }
 
+<layout_let>
+{
+    \n                  { beginPush bol }
+    "{"                 { explicitLBrace }
+    "in"                { constToken TokenIn `thenDo` (popLexState *> popLayout) }
+    ()                  { doLayout }
+}
+
 <layout_top>
 {
     \n                  ;
@@ -144,6 +164,12 @@ thenBegin act c inp l = do
     psLexState . _head .= c
     pure a
 
+thenBeginPush :: LexerAction a -> Int -> LexerAction a
+thenBeginPush act c inp l = do
+    a <- act inp l
+    pushLexState c
+    pure a
+
 andBegin :: LexerAction a -> Int -> LexerAction a
 andBegin act c inp l = do
     psLexState . _head .= c
@@ -342,6 +368,7 @@ explicitRBrace inp l = do
 doLayout :: LexerAction (Located RlpToken)
 doLayout _ _ = do
     i <- indentLevel
+    traceM $ "doLayout: i: " <> show i
     pushLayout (Implicit i)
     popLexState
     insertLBrace
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 67e1b5d..ae467e8 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -2,6 +2,7 @@
 {-# LANGUAGE LambdaCase, ViewPatterns #-}
 module Rlp.Parse
     ( parseRlpProg
+    , parseRlpExpr
     )
     where
 import Compiler.RlpcError
@@ -23,6 +24,7 @@ import Data.Void
 }
 
 %name parseRlpProg StandaloneProgram
+%name parseRlpExpr StandaloneExpr
 
 %monad { P }
 %lexer { lexCont } { Located _ TokenEOF }
@@ -51,8 +53,12 @@ import Data.Void
     infixl          { Located _ TokenInfixL }
     infixr          { Located _ TokenInfixR }
     infix           { Located _ TokenInfix }
+    let             { Located _ TokenLet }
+    in              { Located _ TokenIn }
 
+%nonassoc '='
 %right '->'
+%right in
 
 %%
 
@@ -60,6 +66,9 @@ StandaloneProgram   :: { RlpProgram RlpcPs }
 StandaloneProgram   : '{' Decls  '}'        {% mkProgram $2 }
                     | VL  DeclsV VR         {% mkProgram $2 }
 
+StandaloneExpr      :: { RlpExpr RlpcPs }
+                    : VL Expr VR            { extract $2 }
+
 VL  :: { () }
 VL  : vlbrace       { () }
 
@@ -143,6 +152,20 @@ Expr        :: { RlpExpr' RlpcPs }
             : Expr1 InfixOp Expr        { $2 =>> \o ->
                                           OAppE (extract o) $1 $3 }
             | Expr1                     { $1 }
+            | LetExpr                   { $1 }
+
+LetExpr     :: { RlpExpr' RlpcPs }
+            : let layout1(Binding) in Expr { $1 \$> LetE $2 $4 }
+
+layout1(p)  : '{' layout_list1(';',p) '}'   { $2 }
+            | VL  layout_list1(VS,p) VR     { $2 }
+
+layout_list1(sep,p) : p sep                      { [$1] }
+                    | p                          { [$1] }
+                    | layout_list1(sep,p) sep p  { $1 `snoc` $3 }
+
+Binding     :: { Binding' RlpcPs }
+            : Pat1 '=' Expr              { PatB <<~ $1 <~> $3 }
 
 Expr1       :: { RlpExpr' RlpcPs }
             : '(' Expr ')'              { $1 .> $2 <. $3 }
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 25b20e8..b2eee70 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -14,6 +14,7 @@ module Rlp.Syntax
     , Lit(..), Lit'
     , RlpType(..), RlpType'
     , ConAlt(..)
+    , Binding(..), Binding'
 
     -- * Trees That Grow extensions
     , UnXRec(..), MapXRec(..), XRec, IdP
@@ -28,7 +29,7 @@ import Data.Functor.Classes
 import Data.Kind                    (Type)
 import Lens.Micro
 import Lens.Micro.TH
-import Core.Syntax                  hiding (Lit, Type, Binding)
+import Core.Syntax                  hiding (Lit, Type, Binding, Binding')
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
 
@@ -42,6 +43,7 @@ type PhaseShow p =
     ( Show (XRec p Pat), Show (XRec p RlpExpr)
     , Show (XRec p Lit), Show (IdP p)
     , Show (XRec p RlpType)
+    , Show (XRec p Binding)
     )
 
 newtype RlpProgram p = RlpProgram [Decl' p]
@@ -77,7 +79,7 @@ data ConAlt p = ConAlt (IdP p) [RlpType' p]
 
 deriving instance (Show (IdP p), Show (XRec p RlpType)) => Show (ConAlt p)
 
-data RlpExpr p = LetE  [Binding p] (RlpExpr' p)
+data RlpExpr p = LetE  [Binding' p] (RlpExpr' p)
                | VarE  (IdP p)
                | LamE  [Pat p] (RlpExpr' p)
                | CaseE (RlpExpr' p) [(Alt p, Where p)]
@@ -111,6 +113,8 @@ deriving instance (PhaseShow p) => Show (Alt p)
 data Binding p = PatB (Pat' p) (RlpExpr' p)
                | FunB (IdP p) [Pat' p] (RlpExpr' p)
 
+type Binding' p = XRec p Binding
+
 deriving instance (Show (XRec p Pat), Show (XRec p RlpExpr), Show (IdP p)
                   ) => Show (Binding p)
 
-- 
2.52.0


From fbea3d6f3de61c8e256df9883e5cc5473e403b39 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 28 Jan 2024 19:41:36 -0700
Subject: [PATCH 120/192] let layout

---
 Makefile_happysrcs | 2 +-
 src/Rlp/Parse.y    | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/Makefile_happysrcs b/Makefile_happysrcs
index 1d32855..f4041ee 100644
--- a/Makefile_happysrcs
+++ b/Makefile_happysrcs
@@ -1,5 +1,5 @@
 HAPPY = happy
-HAPPY_OPTS = -a -g -c
+HAPPY_OPTS = -a -g -c -i/tmp/t.info
 ALEX = alex
 ALEX_OPTS = -g
 
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index ae467e8..b3999f8 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -160,8 +160,7 @@ LetExpr     :: { RlpExpr' RlpcPs }
 layout1(p)  : '{' layout_list1(';',p) '}'   { $2 }
             | VL  layout_list1(VS,p) VR     { $2 }
 
-layout_list1(sep,p) : p sep                      { [$1] }
-                    | p                          { [$1] }
+layout_list1(sep,p) : p                          { [$1] }
                     | layout_list1(sep,p) sep p  { $1 `snoc` $3 }
 
 Binding     :: { Binding' RlpcPs }
-- 
2.52.0


From 6a41e123eace3659b0131b3f6fca9d222e34a882 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 30 Jan 2024 13:01:01 -0700
Subject: [PATCH 121/192] ttg boilerplate

---
 rlp.cabal              |   1 +
 src/Rlp/Parse/Types.hs |  16 ++++++
 src/Rlp/Syntax.hs      | 113 ++++++++++++++++++++++++++++++++++-------
 3 files changed, 113 insertions(+), 17 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index dac6a5b..b44fe23 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -71,6 +71,7 @@ library
                     , extra >= 1.7.0 && < 2
                     , semigroupoids
                     , comonad
+                    , lens
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 9c91493..95d01e2 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -54,6 +54,22 @@ data RlpcPs
 type instance XRec RlpcPs f = Located (f RlpcPs)
 type instance IdP RlpcPs = PsName
 
+type instance XFunD RlpcPs = ()
+type instance XDataD RlpcPs = ()
+type instance XInfixD RlpcPs = ()
+type instance XTySigD RlpcPs = ()
+type instance XXDeclD RlpcPs = ()
+
+type instance XLetE RlpcPs = ()
+type instance XVarE RlpcPs = ()
+type instance XLamE RlpcPs = ()
+type instance XCaseE RlpcPs = ()
+type instance XIfE RlpcPs = ()
+type instance XAppE RlpcPs = ()
+type instance XLitE RlpcPs = ()
+type instance XParE RlpcPs = ()
+type instance XOAppE RlpcPs = ()
+
 type PsName = Text
 
 --------------------------------------------------------------------------------
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index b2eee70..ecfb786 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -16,8 +16,20 @@ module Rlp.Syntax
     , ConAlt(..)
     , Binding(..), Binding'
 
-    -- * Trees That Grow extensions
-    , UnXRec(..), MapXRec(..), XRec, IdP
+    -- * Trees That Grow boilerplate
+    -- ** Extension points
+    , IdP, XRec, UnXRec(..), MapXRec(..)
+    -- *** Decl
+    , XFunD, XTySigD, XInfixD, XDataD, XXDeclD
+    -- *** RlpExpr
+    , XLetE, XVarE, XLamE, XCaseE, XIfE, XAppE, XLitE
+    , XParE, XOAppE
+    -- ** Pattern synonyms
+    -- *** Decl
+    , pattern FunD, pattern TySigD, pattern InfixD, pattern DataD
+    -- *** RlpExpr
+    , pattern LetE, pattern VarE, pattern LamE, pattern CaseE, pattern IfE
+    , pattern AppE, pattern LitE, pattern ParE, pattern OAppE
     )
     where
 ----------------------------------------------------------------------------------
@@ -61,12 +73,39 @@ type RlpType' p = XRec p RlpType
 deriving instance (PhaseShow p)
                   => Show (RlpType p)
 
-data Decl p = FunD   (IdP p) [Pat' p] (RlpExpr' p) (Maybe (Where p))
-            | TySigD [IdP p] (RlpType' p)
-            | DataD  (IdP p) [IdP p] [ConAlt p]
-            | InfixD Assoc Int (IdP p)
+data Decl p = FunD'   (XFunD p)    (IdP p) [Pat' p] (RlpExpr' p) (Maybe (Where p))
+            | TySigD' (XTySigD p)  [IdP p] (RlpType' p)
+            | DataD'  (XDataD p)   (IdP p) [IdP p] [ConAlt p]
+            | InfixD' (XInfixD p)  Assoc Int (IdP p)
+            | XDeclD' !(XXDeclD p)
 
-deriving instance (Show (IdP p), PhaseShow p) => Show (Decl p)
+deriving instance
+    ( Show (XFunD p), Show (XTySigD p)
+    , Show (XDataD p), Show (XInfixD p)
+    , Show (XXDeclD p)
+    , PhaseShow p
+    ) 
+    => Show (Decl p)
+
+type family XFunD p
+type family XTySigD p
+type family XDataD p
+type family XInfixD p
+type family XXDeclD p
+
+pattern FunD   :: (XFunD p ~ ())
+               => (IdP p) -> [Pat' p] -> (RlpExpr' p) -> (Maybe (Where p))
+               -> Decl p
+pattern TySigD :: (XTySigD p ~ ()) => [IdP p] -> (RlpType' p) -> Decl p
+pattern DataD  :: (XDataD p ~ ()) => (IdP p) -> [IdP p] -> [ConAlt p] -> Decl p
+pattern InfixD :: (XInfixD p ~ ()) => Assoc -> Int -> (IdP p) -> Decl p
+pattern XDeclD :: (XXDeclD p ~ ()) => Decl p
+
+pattern FunD n as e wh = FunD' () n as e wh
+pattern TySigD ns t = TySigD' () ns t
+pattern DataD n as cs = DataD' () n as cs
+pattern InfixD a p n = InfixD' () a p n
+pattern XDeclD = XDeclD' ()
 
 type Decl' p = XRec p Decl
 
@@ -79,17 +118,57 @@ data ConAlt p = ConAlt (IdP p) [RlpType' p]
 
 deriving instance (Show (IdP p), Show (XRec p RlpType)) => Show (ConAlt p)
 
-data RlpExpr p = LetE  [Binding' p] (RlpExpr' p)
-               | VarE  (IdP p)
-               | LamE  [Pat p] (RlpExpr' p)
-               | CaseE (RlpExpr' p) [(Alt p, Where p)]
-               | IfE   (RlpExpr' p) (RlpExpr' p) (RlpExpr' p)
-               | AppE  (RlpExpr' p) (RlpExpr' p)
-               | LitE  (Lit p)
-               | ParE  (RlpExpr' p)
-               | OAppE (IdP p) (RlpExpr' p) (RlpExpr' p)
+data RlpExpr p = LetE'  (XLetE p) [Binding' p] (RlpExpr' p)
+               | VarE'  (XVarE p) (IdP p)
+               | LamE'  (XLamE p) [Pat p] (RlpExpr' p)
+               | CaseE' (XCaseE p) (RlpExpr' p) [(Alt p, Where p)]
+               | IfE'   (XIfE p) (RlpExpr' p) (RlpExpr' p) (RlpExpr' p)
+               | AppE'  (XAppE p) (RlpExpr' p) (RlpExpr' p)
+               | LitE'  (XLitE p) (Lit p)
+               | ParE'  (XParE p) (RlpExpr' p)
+               | OAppE' (XOAppE p) (IdP p) (RlpExpr' p) (RlpExpr' p)
+               | XRlpExprE' (XXRlpExprE p)
 
-deriving instance (PhaseShow p) => Show (RlpExpr p)
+type family XLetE p
+type family XVarE p
+type family XLamE p
+type family XCaseE p
+type family XIfE p
+type family XAppE p
+type family XLitE p
+type family XParE p
+type family XOAppE p
+type family XXRlpExprE p
+
+pattern LetE :: (XLetE p ~ ()) => [Binding' p] -> RlpExpr' p -> RlpExpr p
+pattern VarE :: (XVarE p ~ ()) => IdP p -> RlpExpr p
+pattern LamE :: (XLamE p ~ ()) => [Pat p] -> RlpExpr' p -> RlpExpr p
+pattern CaseE :: (XCaseE p ~ ()) => RlpExpr' p -> [(Alt p, Where p)] -> RlpExpr p
+pattern IfE :: (XIfE p ~ ()) => RlpExpr' p -> RlpExpr' p -> RlpExpr' p -> RlpExpr p
+pattern AppE :: (XAppE p ~ ()) => RlpExpr' p -> RlpExpr' p -> RlpExpr p
+pattern LitE :: (XLitE p ~ ()) => Lit p -> RlpExpr p
+pattern ParE :: (XParE p ~ ()) => RlpExpr' p -> RlpExpr p
+pattern OAppE :: (XOAppE p ~ ()) => IdP p -> RlpExpr' p -> RlpExpr' p -> RlpExpr p
+pattern XRlpExprE :: (XXRlpExprE p ~ ()) => RlpExpr p
+
+pattern LetE bs e = LetE' () bs e
+pattern VarE n = VarE' () n
+pattern LamE as e = LamE' () as e
+pattern CaseE e as = CaseE' () e as
+pattern IfE c a b = IfE' () c a b
+pattern AppE f x = AppE' () f x
+pattern LitE l = LitE' () l
+pattern ParE e = ParE' () e
+pattern OAppE n a b = OAppE' () n a b
+pattern XRlpExprE = XRlpExprE' ()
+
+deriving instance
+    ( Show (XLetE p), Show (XVarE p), Show (XLamE p)
+    , Show (XCaseE p), Show (XIfE p), Show (XAppE p)
+    , Show (XLitE p), Show (XParE p), Show (XOAppE p)
+    , Show (XXRlpExprE p)
+    , PhaseShow p
+    ) => Show (RlpExpr p)
 
 type RlpExpr' p = XRec p RlpExpr
 
-- 
2.52.0


From f0c652b8612ce939fafb74584f1d2386d0a937a3 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 30 Jan 2024 13:03:07 -0700
Subject: [PATCH 122/192] fixup! ttg boilerplate

---
 src/Rlp/Syntax.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index ecfb786..2b5ce6b 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -127,7 +127,7 @@ data RlpExpr p = LetE'  (XLetE p) [Binding' p] (RlpExpr' p)
                | LitE'  (XLitE p) (Lit p)
                | ParE'  (XParE p) (RlpExpr' p)
                | OAppE' (XOAppE p) (IdP p) (RlpExpr' p) (RlpExpr' p)
-               | XRlpExprE' (XXRlpExprE p)
+               | XRlpExprE' !(XXRlpExprE p)
 
 type family XLetE p
 type family XVarE p
-- 
2.52.0


From e962bacd2e2294ecacc0a5bcab8bad2e2f2b8cff Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 30 Jan 2024 13:04:23 -0700
Subject: [PATCH 123/192] fixup! ttg boilerplate

---
 src/Rlp/Syntax.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 2b5ce6b..9403e50 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -23,13 +23,14 @@ module Rlp.Syntax
     , XFunD, XTySigD, XInfixD, XDataD, XXDeclD
     -- *** RlpExpr
     , XLetE, XVarE, XLamE, XCaseE, XIfE, XAppE, XLitE
-    , XParE, XOAppE
+    , XParE, XOAppE, XXRlpExprE
     -- ** Pattern synonyms
     -- *** Decl
     , pattern FunD, pattern TySigD, pattern InfixD, pattern DataD
     -- *** RlpExpr
     , pattern LetE, pattern VarE, pattern LamE, pattern CaseE, pattern IfE
     , pattern AppE, pattern LitE, pattern ParE, pattern OAppE
+    , pattern XRlpExprE
     )
     where
 ----------------------------------------------------------------------------------
-- 
2.52.0


From ba099b7028c9e8fef271eac1d44d00238b57335a Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 30 Jan 2024 14:04:27 -0700
Subject: [PATCH 124/192] organisation and cleaning

organisation and tidying
---
 rlp.cabal                 |  1 +
 src/Compiler/RlpcError.hs | 12 +++----
 src/Compiler/Types.hs     | 66 ++++++++++++++++++++++++++++++++++
 src/Core/Lex.x            |  3 +-
 src/Rlp/Parse.y           |  4 +--
 src/Rlp/Parse/Types.hs    | 74 ++++-----------------------------------
 6 files changed, 81 insertions(+), 79 deletions(-)
 create mode 100644 src/Compiler/Types.hs

diff --git a/rlp.cabal b/rlp.cabal
index b44fe23..d2b278b 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -37,6 +37,7 @@ library
                     , Rlp.Parse.Associate
                     , Rlp.Lex
                     , Rlp.Parse.Types
+                    , Compiler.Types
 
     other-modules:    Data.Heap
                     , Data.Pretty
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index 37edb40..9530b2e 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -5,12 +5,14 @@ module Compiler.RlpcError
     , MsgEnvelope(..)
     , Severity(..)
     , RlpcError(..)
-    , SrcSpan(..)
     , msgSpan
     , msgDiagnostic
     , msgSeverity
     , liftRlpcErrors
     , errorMsg
+    -- * Located Comonad
+    , Located(..)
+    , SrcSpan(..)
     )
     where
 ----------------------------------------------------------------------------------
@@ -20,6 +22,7 @@ import Data.Text                qualified as T
 import GHC.Exts                 (IsString(..))
 import Lens.Micro.Platform
 import Lens.Micro.Platform.Internal
+import Compiler.Types
 ----------------------------------------------------------------------------------
 
 data MsgEnvelope e = MsgEnvelope
@@ -45,13 +48,6 @@ data Severity = SevWarning
               | SevError
               deriving Show
 
-data SrcSpan = SrcSpan
-    !Int -- ^ Line
-    !Int -- ^ Column
-    !Int -- ^ Absolute
-    !Int -- ^ Length
-    deriving Show
-
 makeLenses ''MsgEnvelope
 
 liftRlpcErrors :: (Functor m, IsRlpcError e)
diff --git a/src/Compiler/Types.hs b/src/Compiler/Types.hs
new file mode 100644
index 0000000..3a94275
--- /dev/null
+++ b/src/Compiler/Types.hs
@@ -0,0 +1,66 @@
+module Compiler.Types
+    ( SrcSpan(..)
+    , Located(..)
+    , (<<~), (<~>)
+
+    -- * Re-exports
+    , Comonad
+    , Apply
+    , Bind
+    )
+    where
+--------------------------------------------------------------------------------
+import Control.Comonad
+import Data.Functor.Apply
+import Data.Functor.Bind
+--------------------------------------------------------------------------------
+
+-- | Token wrapped with a span (line, column, absolute, length)
+data Located a = Located SrcSpan a
+    deriving (Show, Functor)
+
+instance Apply Located where
+    liftF2 f (Located sa p) (Located sb q)
+            = Located (sa <> sb) (p `f` q)
+
+instance Bind Located where
+    Located sa a >>- k = Located (sa <> sb) b
+        where
+            Located sb b = k a
+
+instance Comonad Located where
+    extract (Located _ a) = a
+    extend ck w@(Located p _) = Located p (ck w)
+
+data SrcSpan = SrcSpan
+    !Int -- ^ Line
+    !Int -- ^ Column
+    !Int -- ^ Absolute
+    !Int -- ^ Length
+    deriving Show
+
+instance Semigroup SrcSpan where
+    SrcSpan la ca aa sa <> SrcSpan lb cb ab sb = SrcSpan l c a s where
+        l = min la lb
+        c = min ca cb
+        a = min aa ab
+        s = case aa `compare` ab of
+            EQ -> max sa sb
+            LT -> max sa (ab + lb - aa)
+            GT -> max sb (aa + la - ab)
+
+-- | A synonym for '(<<=)' with a tighter precedence and left-associativity for
+-- use with '(<~>)' in a sort of, comonadic pseudo-applicative style.
+
+(<<~) :: (Comonad w) => (w a -> b) -> w a -> w b
+(<<~) = (<<=)
+
+infixl 4 <<~
+
+-- | Similar to '(<*>)', but with a cokleisli arrow.
+
+(<~>) :: (Comonad w, Bind w) => w (w a -> b) -> w a -> w b
+mc <~> ma = mc >>- \f -> ma =>> f
+
+infixl 4 <~>
+
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index ba62996..99a67b1 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -22,7 +22,8 @@ import Data.Text            qualified as T
 import Data.String          (IsString(..))
 import Core.Syntax
 import Compiler.RLPC
-import Compiler.RlpcError
+-- TODO: unify Located definitions
+import Compiler.RlpcError   hiding (Located(..))
 import Lens.Micro
 import Lens.Micro.TH
 }
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index b3999f8..789c517 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -208,8 +208,8 @@ mkProgram ds = do
     pure $ RlpProgram (associate pt <$> ds)
 
 parseError :: Located RlpToken -> P a
-parseError (Located (l,c,a,s) t) = addFatal $
-    errorMsg (SrcSpan l c a s) RlpParErrUnexpectedToken
+parseError (Located ss t) = addFatal $
+    errorMsg ss RlpParErrUnexpectedToken
 
 mkInfixD :: Assoc -> Int -> PsName -> P (Decl' RlpcPs)
 mkInfixD a p n = do
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 95d01e2..903c574 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -29,7 +29,6 @@ import Core.Syntax                  (Name)
 import Control.Monad
 import Control.Monad.State.Strict
 import Control.Monad.Errorful
-import Control.Comonad
 import Compiler.RlpcError
 import Data.Text                    (Text)
 import Data.Maybe
@@ -37,14 +36,13 @@ import Data.Fix
 import Data.Functor.Foldable
 import Data.Functor.Const
 import Data.Functor.Classes
-import Data.Functor.Apply
-import Data.Functor.Bind
 import Data.HashMap.Strict          qualified as H
 import Data.Void
 import Data.Word                    (Word8)
 import Lens.Micro.TH
 import Lens.Micro
 import Rlp.Syntax
+import Compiler.Types
 --------------------------------------------------------------------------------
 
 -- | Phantom type identifying rlpc's parser phase
@@ -74,6 +72,11 @@ type PsName = Text
 
 --------------------------------------------------------------------------------
 
+spanFromPos :: Position -> Int -> SrcSpan
+spanFromPos (l,c,a) s = SrcSpan l c a s
+
+{-# INLINE spanFromPos #-}
+
 type LexerAction a = AlexInput -> Int -> P a
 
 data AlexInput = AlexInput
@@ -177,71 +180,6 @@ data Layout = Explicit
             | Implicit Int
             deriving (Show, Eq)
 
--- | Token wrapped with a span (line, column, absolute, length)
-data Located a = Located !(Int, Int, Int, Int) a
-    deriving (Show, Functor)
-
-instance Apply Located where
-    liftF2 f (Located (la,ca,aa,sa) p) (Located (lb,cb,ab,sb) q)
-            = Located (l,c,a,s) (p `f` q)
-        where
-            l = min la lb
-            c = min ca cb
-            a = min aa ab
-            s = case aa `compare` ab of
-                EQ -> max sa sb
-                LT -> max sa (ab + sb)
-                GT -> max sb (aa + sa)
-
-instance Bind Located where
-    Located sa a >>- k = Located (sa `spanAcross` sb) b
-        where
-            Located sb b = k a
-
-spanAcross :: (Int, Int, Int, Int)
-           -> (Int, Int, Int, Int)
-           -> (Int, Int, Int, Int)
-spanAcross (la,ca,aa,sa) (lb,cb,ab,sb) = (l,c,a,s)
-        where
-            l = min la lb
-            c = min ca cb
-            a = min aa ab
-            s = case aa `compare` ab of
-                EQ -> max sa sb
-                LT -> max sa (ab + sb)
-                GT -> max sb (aa + sa)
-
--- | A synonym for '(<<=)' with a different precedence for use with '(<~>)' in a
--- sort of, comonadic pseudo-applicative style.
-
-(<<~) :: (Comonad w) => (w a -> b) -> w a -> w b
-(<<~) = (<<=)
-
-infixl 4 <<~
-
--- | Similar to '(<*>)', but with a cokleisli arrow.
-
-(<~>) :: (Comonad w, Bind w) => w (w a -> b) -> w a -> w b
-mc <~> ma = mc >>- \f -> ma =>> f
-
-infixl 4 <~>
-
--- f :: (w a -> w b -> c)
--- a :: w a
--- b :: w b
-
--- result :: w c
--- result = f >~~ a <~> b
-
-instance Comonad Located where
-    extract (Located _ a) = a
-    extend ck w@(Located p _) = Located p (ck w)
-
-spanFromPos :: Position -> Int -> (Int, Int, Int, Int)
-spanFromPos (l,c,a) s = (l,c,a,s)
-
-{-# INLINE spanFromPos #-}
-
 type OpTable = H.HashMap Name OpInfo
 type OpInfo = (Assoc, Int)
 
-- 
2.52.0


From 14df00039f4c68494b3104d93390c0d5fb1e52d8 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 30 Jan 2024 15:56:45 -0700
Subject: [PATCH 125/192] error messages

---
 rlp.cabal                     |  1 +
 src/Compiler/RLPC.hs          | 37 +++++++++++++++++++++++++--
 src/Compiler/Types.hs         | 12 +++++++++
 src/Control/Monad/Errorful.hs |  6 ++---
 src/Rlp/Lex.x                 | 29 ++++++---------------
 src/Rlp/Parse.y               | 20 ++++++++++++---
 src/Rlp/Parse/Types.hs        | 48 +++++++++++++++++++++++++++++++++--
 7 files changed, 122 insertions(+), 31 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index d2b278b..b813073 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -73,6 +73,7 @@ library
                     , semigroupoids
                     , comonad
                     , lens
+                    , text-ansi
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 474ecfc..48fdfab 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -46,6 +46,7 @@ import Control.Monad.Reader
 import Control.Monad.State      (MonadState(state))
 import Control.Monad.Errorful
 import Compiler.RlpcError
+import Compiler.Types
 import Data.Functor.Identity
 import Data.Default.Class
 import Data.Foldable
@@ -55,6 +56,10 @@ import Data.Hashable            (Hashable)
 import Data.HashSet             (HashSet)
 import Data.HashSet             qualified as S
 import Data.Coerce
+import Data.Text                (Text)
+import Data.Text                qualified as T
+import Text.ANSI                qualified as Ansi
+import Text.PrettyPrint         hiding ((<>))
 import Lens.Micro.Platform
 import System.Exit
 ----------------------------------------------------------------------------------
@@ -79,7 +84,9 @@ evalRLPCT :: (Monad m)
           => RLPCOptions
           -> RLPCT m a
           -> m (Maybe a, [MsgEnvelope RlpcError])
-evalRLPCT = undefined
+evalRLPCT opt r = runRLPCT r
+                & flip runReaderT opt
+                & runErrorfulT
 
 evalRLPCIO :: RLPCOptions -> RLPCIO a -> IO a
 evalRLPCIO opt r = do
@@ -90,7 +97,33 @@ evalRLPCIO opt r = do
         Nothing -> die "Failed, no code compiled."
 
 putRlpcErrs :: [MsgEnvelope RlpcError] -> IO ()
-putRlpcErrs = traverse_ print
+putRlpcErrs = traverse_ (putStrLn . ('\n':) . render . prettyRlpcErr)
+
+prettyRlpcErr :: MsgEnvelope RlpcError -> Doc
+prettyRlpcErr msg = header
+                 $$ nest 2 bullets
+                 $$ source
+    where
+        source = vcat $ zipWith (<+>) rule srclines
+            where
+                rule = repeat (ttext . Ansi.blue . Ansi.bold $ "|")
+                srclines = ["", "<problematic source code>", ""]
+        filename = msgColour "<input>"
+        pos = msgColour $ tshow (msg ^. msgSpan . srcspanLine)
+                       <> ":"
+                       <> tshow (msg ^. msgSpan . srcspanColumn)
+
+        header = ttext $ filename <> msgColour ":" <> pos <> msgColour ": "
+                        <> errorColour "error" <> msgColour ":"
+
+        bullets = let Text ts = msg ^. msgDiagnostic
+                  in vcat $ hang "•" 2 . ttext . msgColour <$> ts
+
+        msgColour = Ansi.white . Ansi.bold
+        errorColour = Ansi.red . Ansi.bold
+        ttext = text . T.unpack
+        tshow :: (Show a) => a -> Text
+        tshow = T.pack . show
 
 liftErrorful :: (Monad m, IsRlpcError e) => ErrorfulT (MsgEnvelope e) m a -> RLPCT m a
 liftErrorful e = RLPCT $ lift (fmap liftRlpcError `mapErrorful` e)
diff --git a/src/Compiler/Types.hs b/src/Compiler/Types.hs
index 3a94275..79b7d8a 100644
--- a/src/Compiler/Types.hs
+++ b/src/Compiler/Types.hs
@@ -1,5 +1,6 @@
 module Compiler.Types
     ( SrcSpan(..)
+    , srcspanLine, srcspanColumn, srcspanAbs, srcspanLen
     , Located(..)
     , (<<~), (<~>)
 
@@ -13,6 +14,7 @@ module Compiler.Types
 import Control.Comonad
 import Data.Functor.Apply
 import Data.Functor.Bind
+import Control.Lens             hiding ((<<~))
 --------------------------------------------------------------------------------
 
 -- | Token wrapped with a span (line, column, absolute, length)
@@ -39,6 +41,16 @@ data SrcSpan = SrcSpan
     !Int -- ^ Length
     deriving Show
 
+tupling :: Iso' SrcSpan (Int, Int, Int, Int)
+tupling = iso (\ (SrcSpan a b c d) -> (a,b,c,d))
+              (\ (a,b,c,d) -> SrcSpan a b c d)
+
+srcspanLine, srcspanColumn, srcspanAbs, srcspanLen :: Lens' SrcSpan Int
+srcspanLine = tupling . _1
+srcspanColumn = tupling . _2
+srcspanAbs = tupling . _3
+srcspanLen = tupling . _4
+
 instance Semigroup SrcSpan where
     SrcSpan la ca aa sa <> SrcSpan lb cb ab sb = SrcSpan l c a s where
         l = min la lb
diff --git a/src/Control/Monad/Errorful.hs b/src/Control/Monad/Errorful.hs
index 627dcf8..f767b99 100644
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -3,9 +3,9 @@
 {-# LANGUAGE TupleSections, PatternSynonyms #-}
 {-# LANGUAGE UndecidableInstances #-}
 module Control.Monad.Errorful
-    ( ErrorfulT
-    , runErrorfulT
+    ( ErrorfulT(..)
     , Errorful
+    , pattern Errorful
     , runErrorful
     , mapErrorful
     , MonadErrorful(..)
@@ -67,7 +67,7 @@ mapErrorful f (ErrorfulT m) = ErrorfulT $
     m & mapped . _2 . mapped %~ f
 
 -- when microlens-pro drops we can write this as
---    mapErrorful f = coerced . mapped . _2 . mappd %~ f
+--    mapErrorful f = coerced . mapped . _2 . mapped %~ f
 -- lol
 
 --------------------------------------------------------------------------------
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 72f2cf0..adc30f5 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -11,6 +11,8 @@ module Rlp.Lex
     , lexDebug
     , lexCont
     , popLexState
+    , programInitState
+    , runP'
     )
     where
 import Codec.Binary.UTF8.String (encodeChar)
@@ -236,27 +238,9 @@ alexEOF = do
     pos <- getPos
     pure (Located (spanFromPos pos 0) TokenEOF)
 
-initParseState :: Text -> ParseState
-initParseState s = ParseState
-    { _psLayoutStack = []
-    -- IMPORTANT: the initial state is `bol` to begin the top-level layout,
-    -- which then returns to state 0 which continues the normal lexing process.
-    , _psLexState = [layout_top,0]
-    , _psInput = initAlexInput s
-    , _psOpTable = mempty
-    }
-
-initAlexInput :: Text -> AlexInput
-initAlexInput s = AlexInput
-    { _aiPrevChar   = '\0'
-    , _aiSource     = s
-    , _aiBytes      = []
-    , _aiPos        = (1,1,0)
-    }
-
 runP' :: P a -> Text -> (ParseState, [MsgEnvelope RlpParseError], Maybe a)
 runP' p s = runP p st where
-    st = initParseState s
+    st = initParseState [layout_top,0] s
 
 lexToken :: P (Located RlpToken)
 lexToken = do
@@ -310,7 +294,7 @@ popLayout = do
     psLayoutStack %= (drop 1)
     case ctx of
         Just l      -> pure l
-        Nothing     -> error "uhh"
+        Nothing     -> error "popLayout: layout stack empty! this is a bug."
 
 pushLayout :: Layout -> P ()
 pushLayout l = do
@@ -368,10 +352,13 @@ explicitRBrace inp l = do
 doLayout :: LexerAction (Located RlpToken)
 doLayout _ _ = do
     i <- indentLevel
-    traceM $ "doLayout: i: " <> show i
+    -- traceM $ "doLayout: i: " <> show i
     pushLayout (Implicit i)
     popLexState
     insertLBrace
 
+programInitState :: Text -> ParseState
+programInitState = initParseState [layout_top,0]
+
 }
 
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 789c517..a885f59 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -2,10 +2,13 @@
 {-# LANGUAGE LambdaCase, ViewPatterns #-}
 module Rlp.Parse
     ( parseRlpProg
+    , parseRlpProgR
     , parseRlpExpr
+    , parseRlpExprR
     )
     where
 import Compiler.RlpcError
+import Compiler.RLPC
 import Rlp.Lex
 import Rlp.Syntax
 import Rlp.Parse.Types
@@ -19,6 +22,7 @@ import Data.Functor.Bind
 import Control.Comonad
 import Data.Functor
 import Data.Semigroup.Traversable
+import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.Void
 }
@@ -29,6 +33,7 @@ import Data.Void
 %monad { P }
 %lexer { lexCont } { Located _ TokenEOF }
 %error { parseError }
+%errorhandlertype explist
 %tokentype { Located RlpToken }
 
 %token
@@ -85,6 +90,7 @@ DeclsV              :: { [Decl' RlpcPs] }
 DeclsV              : Decl VS Decls         { $1 : $3 }
                     | Decl VS               { [$1] }
                     | Decl                  { [$1] }
+                    | {- epsilon -}         { [] }
 
 VS                  :: { Located RlpToken }
 VS                  : ';'                   { $1 }
@@ -187,6 +193,13 @@ Con         :: { Located PsName }
 
 {
 
+parseRlpExprR = undefined
+
+parseRlpProgR :: (Monad m) => Text -> RLPCT m (RlpProgram RlpcPs)
+parseRlpProgR s = liftErrorful $ pToErrorful parseRlpProg st
+    where
+        st = programInitState s
+
 mkPsName :: Located RlpToken -> Located PsName
 mkPsName = fmap extractName
 
@@ -207,9 +220,9 @@ mkProgram ds = do
     pt <- use psOpTable
     pure $ RlpProgram (associate pt <$> ds)
 
-parseError :: Located RlpToken -> P a
-parseError (Located ss t) = addFatal $
-    errorMsg ss RlpParErrUnexpectedToken
+parseError :: (Located RlpToken, [String]) -> P a
+parseError ((Located ss t), exp) = addFatal $
+    errorMsg ss (RlpParErrUnexpectedToken t exp)
 
 mkInfixD :: Assoc -> Int -> PsName -> P (Decl' RlpcPs)
 mkInfixD a p n = do
@@ -228,3 +241,4 @@ intOfToken :: Located RlpToken -> Int
 intOfToken (Located _ (TokenLitInt n)) = n
 
 }
+
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 903c574..77c6519 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -8,6 +8,8 @@ module Rlp.Parse.Types
 
     -- * Parser monad and state
     , P(..), ParseState(..), Layout(..), OpTable, OpInfo
+    , initParseState, initAlexInput
+    , pToErrorful
     -- ** Lenses
     , psLayoutStack, psLexState, psInput, psOpTable
 
@@ -39,6 +41,7 @@ import Data.Functor.Classes
 import Data.HashMap.Strict          qualified as H
 import Data.Void
 import Data.Word                    (Word8)
+import Data.Text                    qualified as T
 import Lens.Micro.TH
 import Lens.Micro
 import Rlp.Syntax
@@ -145,6 +148,11 @@ newtype P a = P {
     }
     deriving (Functor)
 
+pToErrorful :: (Applicative m)
+            => P a -> ParseState -> ErrorfulT (MsgEnvelope RlpParseError) m a
+pToErrorful p st = ErrorfulT $ pure (ma,es) where
+    (_,es,ma) = runP p st
+
 instance Applicative P where
     pure a = P $ \st -> (st, [], pure a)
     liftA2 = liftM2
@@ -188,10 +196,28 @@ type OpInfo = (Assoc, Int)
 data RlpParseError = RlpParErrOutOfBoundsPrecedence Int
                    | RlpParErrDuplicateInfixD Name
                    | RlpParErrLexical
-                   | RlpParErrUnexpectedToken
-                   deriving (Eq, Ord, Show)
+                   | RlpParErrUnexpectedToken RlpToken [String]
+                   deriving (Show)
 
 instance IsRlpcError RlpParseError where
+    liftRlpcError = \case
+        RlpParErrOutOfBoundsPrecedence n ->
+            Text [ "Illegal precedence in infixity declaration"
+                 , "rl' currently only allows precedences between 0 and 9."
+                 ]
+        RlpParErrDuplicateInfixD s ->
+            Text [ "Conflicting infixity declarations for operator "
+                    <> tshow s
+                 ]
+        RlpParErrLexical ->
+            Text [ "Unknown lexical error :(" ]
+        RlpParErrUnexpectedToken t exp ->
+            Text [ "Unexpected token " <> tshow t
+                 , "Expected: " <> tshow exp
+                 ]
+        where
+            tshow :: (Show a) => a -> T.Text
+            tshow = T.pack . show
 
 ----------------------------------------------------------------------------------
 
@@ -224,3 +250,21 @@ addFatalHere l e = P $ \st ->
             }
     in (st, [e'], Nothing)
 
+initParseState :: [Int] -> Text -> ParseState
+initParseState ls s = ParseState
+    { _psLayoutStack = []
+    -- IMPORTANT: the initial state is `bol` to begin the top-level layout,
+    -- which then returns to state 0 which continues the normal lexing process.
+    , _psLexState = ls
+    , _psInput = initAlexInput s
+    , _psOpTable = mempty
+    }
+
+initAlexInput :: Text -> AlexInput
+initAlexInput s = AlexInput
+    { _aiPrevChar   = '\0'
+    , _aiSource     = s
+    , _aiBytes      = []
+    , _aiPos        = (1,1,0)
+    }
+
-- 
2.52.0


From ccf17faff802d845fd9edc830c565d59ed75f856 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 30 Jan 2024 16:19:03 -0700
Subject: [PATCH 126/192] driver progress

---
 app/Main.hs          | 81 +++++++++++++++++++++-----------------------
 src/Compiler/RLPC.hs |  9 +++++
 2 files changed, 48 insertions(+), 42 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 27377d0..0424aa2 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -55,11 +55,22 @@ options = RLPCOptions
                 \triggering the garbage collector"
         <> value 50
         )
+    <*> option languageReader
+        (  long "language"
+        )
     <*> some (argument str $ metavar "FILES...")
     where
         infixr 9 #
         f # x = f x
 
+languageReader :: ReadM Language
+languageReader = maybeReader $ \case
+    "rlp"   -> Just LanguageRlp
+    "core"  -> Just LanguageCore
+
+debugFlagReader :: ReadM DebugFlag
+debugFlagReader = maybeReader $ Just
+
 evaluatorReader :: ReadM Evaluator
 evaluatorReader = maybeReader $ \case
     "gm"  -> Just EvaluatorGM
@@ -69,80 +80,66 @@ evaluatorReader = maybeReader $ \case
 mmany :: (Alternative f, Monoid m) => f m -> f m
 mmany v = liftA2 (<>) v (mmany v)
 
-debugFlagReader :: ReadM DebugFlag
-debugFlagReader = maybeReader $ \case
-    "dump-eval"  -> Just DDumpEval
-    "dump-opts"  -> Just DDumpOpts
-    "dump-ast"   -> Just DDumpAST
-    _            -> Nothing
-
 ----------------------------------------------------------------------------------
 
--- temp
-data CompilerError = CompilerError String
-    deriving Show
-
-instance Exception CompilerError
-
 main :: IO ()
 main = do
     opts <- execParser optParser
-    (_, es) <- evalRLPCIO opts driver
-    forM_ es $ \ (CompilerError e) -> print $ "warning: " <> e
-    pure ()
+    void $ evalRLPCIO opts driver
 
-driver :: RLPCIO CompilerError ()
+driver :: RLPCIO ()
 driver = sequence_
     [ dshowFlags
     , ddumpAST
     , ddumpEval
     ]
 
-dshowFlags :: RLPCIO CompilerError ()
-dshowFlags = whenFlag flagDDumpOpts do
+dshowFlags :: RLPCIO ()
+dshowFlags = whenDFlag "dump-flags" do
     ask >>= liftIO . print
 
-ddumpAST :: RLPCIO CompilerError ()
-ddumpAST = whenFlag flagDDumpAST $ forFiles_ \o f -> do
+ddumpAST :: RLPCIO ()
+ddumpAST = whenDFlag "dump-ast" $ forFiles_ \o f -> do
     liftIO $ withFile f ReadMode $ \h -> do
         s <- TIO.hGetContents h
         case parseProg o s of
             Right (a,_) -> hPutStrLn stderr $ show a
             Left e -> error "todo errors lol"
 
-ddumpEval :: RLPCIO CompilerError ()
-ddumpEval = whenFlag flagDDumpEval do
+ddumpEval :: RLPCIO ()
+ddumpEval = whenDFlag "dump-eval" do
     fs <- view rlpcInputFiles
     forM_ fs $ \f -> liftIO (TIO.readFile f) >>= doProg
 
     where
-        doProg :: Text -> RLPCIO CompilerError ()
-        doProg s = ask >>= \o -> case parseProg o s of
-            -- TODO: error handling
-            Left e -> addFatal . CompilerError $ show e
-            Right (a,_) -> do
-                log <- view rlpcLogFile
-                dumpEval <- chooseEval
-                case log of
-                    Just f  -> liftIO $ withFile f WriteMode $ dumpEval a
-                    Nothing -> liftIO $ dumpEval a stderr
+        doProg :: Text -> RLPCIO ()
+        doProg = undefined
+        -- doProg s = ask >>= \o -> case parseProg o s of
+        --     -- TODO: error handling
+        --     Left e -> addFatal . CompilerError $ show e
+        --     Right (a,_) -> do
+        --         log <- view rlpcLogFile
+        --         dumpEval <- chooseEval
+        --         case log of
+        --             Just f  -> liftIO $ withFile f WriteMode $ dumpEval a
+        --             Nothing -> liftIO $ dumpEval a stderr
 
         -- choose the appropriate model based on the compiler opts
-        chooseEval = do
-            ev <- view rlpcEvaluator
-            pure $ case ev of
-                EvaluatorGM  -> v GM.hdbgProg
-                EvaluatorTI -> v TI.hdbgProg
-            where v f p h = f p h *> pure ()
+        -- chooseEval = do
+        --     ev <- view rlpcEvaluator
+        --     pure $ case ev of
+        --         EvaluatorGM  -> v GM.hdbgProg
+        --         EvaluatorTI -> v TI.hdbgProg
+        --     where v f p h = f p h *> pure ()
 
 parseProg :: RLPCOptions
           -> Text
-          -> Either SrcError (Program', [SrcError])
+          -> (Maybe Program', [MsgEnvelope RlpcError])
 parseProg o = evalRLPC o . (lexCore >=> parseCoreProg)
 
 forFiles_ :: (Monad m)
-          => (RLPCOptions -> FilePath -> RLPCT e m a)
-          -> RLPCT e m ()
+          => (RLPCOptions -> FilePath -> RLPCT m a)
+          -> RLPCT m ()
 forFiles_ k = do
     fs <- view rlpcInputFiles
     o <- ask
diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 48fdfab..a7919d6 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -23,6 +23,7 @@ module Compiler.RLPC
     , addWound
     , MonadErrorful
     , Severity(..)
+    , Language(..)
     , Evaluator(..)
     , evalRLPCT
     , evalRLPCIO
@@ -45,6 +46,7 @@ import Control.Monad
 import Control.Monad.Reader
 import Control.Monad.State      (MonadState(state))
 import Control.Monad.Errorful
+import Control.Monad.IO.Class
 import Compiler.RlpcError
 import Compiler.Types
 import Data.Functor.Identity
@@ -73,6 +75,8 @@ type RLPC = RLPCT Identity
 
 type RLPCIO = RLPCT IO
 
+instance (MonadIO m) => MonadIO (RLPCT m) where
+
 evalRLPC :: RLPCOptions
          -> RLPC a
          -> (Maybe a, [MsgEnvelope RlpcError])
@@ -134,6 +138,7 @@ data RLPCOptions = RLPCOptions
     , _rlpcFFlags      :: HashSet CompilerFlag
     , _rlpcEvaluator   :: Evaluator
     , _rlpcHeapTrigger :: Int
+    , _rlpcLanguage    :: Language
     , _rlpcInputFiles  :: [FilePath]
     }
     deriving Show
@@ -141,6 +146,9 @@ data RLPCOptions = RLPCOptions
 data Evaluator = EvaluatorGM | EvaluatorTI
     deriving Show
 
+data Language = LanguageRlp | LanguageCore
+    deriving Show
+
 ----------------------------------------------------------------------------------
 
 instance Default RLPCOptions where
@@ -151,6 +159,7 @@ instance Default RLPCOptions where
         , _rlpcEvaluator = EvaluatorGM
         , _rlpcHeapTrigger = 200
         , _rlpcInputFiles = []
+        , _rlpcLanguage = LanguageRlp
         }
 
 -- debug flags are passed with -dFLAG
-- 
2.52.0


From 1803a1e05849538d98a64cc004a9a062403cff2e Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 1 Feb 2024 09:05:58 -0700
Subject: [PATCH 127/192] formatting

---
 src/Core/Syntax.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 83b4934..b624e43 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -103,7 +103,7 @@ data Binding b = Binding b (Expr b)
 deriving instance (Eq b) => Eq (Binding b)
 
 infixl 1 :=
-pattern (:=) :: b -> (Expr b) -> (Binding b)
+pattern (:=) :: b -> Expr b -> Binding b
 pattern k := v = Binding k v
 
 data Alter b = Alter AltCon [b] (Expr b)
@@ -123,7 +123,7 @@ data AltCon = AltData Name
             | Default
             deriving (Show, Read, Eq, Lift)
 
-data Lit = IntL Int
+newtype Lit = IntL Int
     deriving (Show, Read, Eq, Lift)
 
 type Name = T.Text
@@ -201,7 +201,7 @@ instance HasLHS (Alter b) (Alter b) (AltCon, [b]) (AltCon, [b]) where
 instance HasLHS (ScDef b) (ScDef b) (b, [b]) (b, [b]) where
     _lhs = lens
         (\ (ScDef n as _) -> (n,as))
-        (\ (ScDef _ _ e) (n',as') -> (ScDef n' as' e))
+        (\ (ScDef _ _ e) (n',as') -> ScDef n' as' e)
 
 instance HasLHS (Binding b) (Binding b) b b where
     _lhs = lens
-- 
2.52.0


From 46f0393a037690d70a4444474602d2d75090b88c Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 1 Feb 2024 10:37:51 -0700
Subject: [PATCH 128/192] *R functions

---
 src/Compiler/RLPC.hs          | 61 +++++++++++++++++++----------------
 src/Control/Monad/Errorful.hs |  7 ++--
 src/Core/HindleyMilner.hs     |  2 +-
 src/Core/Lex.x                |  8 +++--
 src/Core/Parse.y              |  8 +++--
 5 files changed, 52 insertions(+), 34 deletions(-)

diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index a7919d6..f928f5d 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -11,32 +11,29 @@ errors and the family of RLPC monads.
 -- only used for mtl instances
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE DeriveGeneric, DerivingStrategies, DerivingVia #-}
+{-# LANGUAGE BlockArguments #-}
 module Compiler.RLPC
-    ( RLPC
-    , RLPCT(..)
-    , RLPCIO
-    , RLPCOptions(RLPCOptions)
-    , IsRlpcError(..)
-    , RlpcError(..)
-    , MsgEnvelope(..)
-    , addFatal
-    , addWound
-    , MonadErrorful
-    , Severity(..)
-    , Language(..)
-    , Evaluator(..)
-    , evalRLPCT
-    , evalRLPCIO
-    , evalRLPC
-    , rlpcLogFile
-    , rlpcDFlags  
-    , rlpcEvaluator
-    , rlpcInputFiles
-    , DebugFlag(..)
-    , whenDFlag
-    , whenFFlag
-    , def
-    , liftErrorful
+    (
+    -- * Rlpc Monad transformer
+      RLPCT(RLPCT),
+    -- ** Special cases
+      RLPC, RLPCIO
+    -- ** Running
+    , runRLPCT
+    , evalRLPCT, evalRLPCIO, evalRLPC
+    -- * Rlpc options
+    , Language(..), Evaluator(..)
+    , DebugFlag(..), CompilerFlag(..)
+    -- ** Lenses
+    , rlpcLogFile, rlpcDFlags, rlpcEvaluator, rlpcInputFiles, rlpcLanguage
+    -- * Misc. MTL-style functions
+    , liftErrorful, hoistRlpcT
+    -- * Misc. Rlpc Monad -related types
+    , RLPCOptions(RLPCOptions), IsRlpcError(..), RlpcError(..)
+    , MsgEnvelope(..), Severity(..)
+    , whenDFlag, whenFFlag
+    -- * Convenient re-exports
+    , addFatal, addWound, def
     )
     where
 ----------------------------------------------------------------------------------
@@ -71,6 +68,12 @@ newtype RLPCT m a = RLPCT {
     }
     deriving (Functor, Applicative, Monad, MonadReader RLPCOptions)
 
+rlpc :: (IsRlpcError e, Monad m)
+     => (RLPCOptions -> (Maybe a, [MsgEnvelope e]))
+     -> RLPCT m a
+rlpc f = RLPCT . ReaderT $ \opt ->
+    ErrorfulT . pure $ f opt & _2 . each . mapped %~ liftRlpcError
+
 type RLPC = RLPCT Identity
 
 type RLPCIO = RLPCT IO
@@ -84,8 +87,7 @@ evalRLPC opt r = runRLPCT r
                & flip runReaderT opt
                & runErrorful
 
-evalRLPCT :: (Monad m)
-          => RLPCOptions
+evalRLPCT :: RLPCOptions
           -> RLPCT m a
           -> m (Maybe a, [MsgEnvelope RlpcError])
 evalRLPCT opt r = runRLPCT r
@@ -132,6 +134,11 @@ prettyRlpcErr msg = header
 liftErrorful :: (Monad m, IsRlpcError e) => ErrorfulT (MsgEnvelope e) m a -> RLPCT m a
 liftErrorful e = RLPCT $ lift (fmap liftRlpcError `mapErrorful` e)
 
+hoistRlpcT :: (forall a. m a -> n a)
+         -> RLPCT m a -> RLPCT n a
+hoistRlpcT f rma = RLPCT $ ReaderT $ \opt ->
+    ErrorfulT $ f $ evalRLPCT opt rma
+
 data RLPCOptions = RLPCOptions
     { _rlpcLogFile     :: Maybe FilePath
     , _rlpcDFlags      :: HashSet DebugFlag
diff --git a/src/Control/Monad/Errorful.hs b/src/Control/Monad/Errorful.hs
index f767b99..f24042b 100644
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -1,11 +1,11 @@
-{-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE FunctionalDependencies #-}
-{-# LANGUAGE TupleSections, PatternSynonyms #-}
+{-# LANGUAGE PatternSynonyms #-}
 {-# LANGUAGE UndecidableInstances #-}
 module Control.Monad.Errorful
     ( ErrorfulT(..)
     , Errorful
     , pattern Errorful
+    , errorful
     , runErrorful
     , mapErrorful
     , MonadErrorful(..)
@@ -28,6 +28,9 @@ type Errorful e = ErrorfulT e Identity
 pattern Errorful :: (Maybe a, [e]) -> Errorful e a
 pattern Errorful a = ErrorfulT (Identity a)
 
+errorful :: (Applicative m) => (Maybe a, [e]) -> ErrorfulT e m a
+errorful = ErrorfulT . pure
+
 runErrorful :: Errorful e a -> (Maybe a, [e])
 runErrorful m = coerce (runErrorfulT m)
 
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index cf0dace..7dcc4c6 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -105,7 +105,7 @@ checkCoreProg p = scDefs
              where scname = sc ^. _lhs._1
 
 -- | @checkCoreProgR p@ returns @p@ if @p@ successfully typechecks.
-checkCoreProgR :: Program' -> RLPC Program'
+checkCoreProgR :: (Applicative m) => Program' -> RLPCT m Program'
 checkCoreProgR p = undefined
 
 {-# WARNING checkCoreProgR "unimpl" #-}
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index 99a67b1..dba29c9 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -20,6 +20,7 @@ import Debug.Trace
 import Data.Text            (Text)
 import Data.Text            qualified as T
 import Data.String          (IsString(..))
+import Data.Functor.Identity
 import Core.Syntax
 import Compiler.RLPC
 -- TODO: unify Located definitions
@@ -180,8 +181,11 @@ lexCore s = case m of
     where
         m = runAlex s lexStream
 
-lexCoreR :: Text -> RLPC [Located CoreToken]
-lexCoreR = lexCore
+lexCoreR :: forall m. (Applicative m) => Text -> RLPCT m [Located CoreToken]
+lexCoreR = hoistRlpcT generalise . lexCore
+    where
+        generalise :: forall a. Identity a -> m a
+        generalise (Identity a) = pure a
 
 -- | @lexCore@, but the tokens are stripped of location info. Useful for
 -- debugging
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 7dbb6b5..5f4dc38 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -17,6 +17,7 @@ module Core.Parse
 
 import Control.Monad        ((>=>))
 import Data.Foldable        (foldl')
+import Data.Functor.Identity
 import Core.Syntax
 import Core.Lex
 import Compiler.RLPC
@@ -224,8 +225,11 @@ insScDef sc = programScDefs %~ (sc:)
 singletonScDef :: (Hashable b) => ScDef b -> Program b
 singletonScDef sc = insScDef sc mempty
 
-parseCoreProgR :: [Located CoreToken] -> RLPC Program'
-parseCoreProgR = parseCoreProg
+parseCoreProgR :: forall m. (Applicative m) => [Located CoreToken] -> RLPCT m Program'
+parseCoreProgR = hoistRlpcT generalise . parseCoreProg
+    where
+        generalise :: forall a. Identity a -> m a
+        generalise (Identity a) = pure a
 
 happyBind :: RLPC a -> (a -> RLPC b) -> RLPC b
 happyBind m k = m >>= k
-- 
2.52.0


From dda0e173580330f61ae3b9a42a3f6ecd2c11ea0f Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 1 Feb 2024 11:37:52 -0700
Subject: [PATCH 129/192] -ddump-ast

---
 app/CoreDriver.hs             | 14 +++++++
 app/Main.hs                   | 70 ++++++++++-------------------------
 app/RlpDriver.hs              |  0
 src/Compiler/RLPC.hs          | 24 +++++++++---
 src/Compiler/RlpcError.hs     | 10 +++++
 src/Control/Monad/Errorful.hs |  7 ++--
 src/Core/Parse.y              | 10 ++++-
 7 files changed, 75 insertions(+), 60 deletions(-)
 create mode 100644 app/CoreDriver.hs
 create mode 100644 app/RlpDriver.hs

diff --git a/app/CoreDriver.hs b/app/CoreDriver.hs
new file mode 100644
index 0000000..ba546c9
--- /dev/null
+++ b/app/CoreDriver.hs
@@ -0,0 +1,14 @@
+module CoreDriver
+    ( driver
+    )
+    where
+--------------------------------------------------------------------------------
+
+driver :: RLPCIO ()
+driver = undefined
+
+parseProg :: RLPCOptions
+          -> Text
+          -> (Maybe Program', [MsgEnvelope RlpcError])
+parseProg o = lexCoreR >=> parseCoreProgR
+
diff --git a/app/Main.hs b/app/Main.hs
index 0424aa2..440789c 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -10,12 +10,16 @@ import Data.HashSet             qualified as S
 import Data.Text                (Text)
 import Data.Text                qualified as T
 import Data.Text.IO             qualified as TIO
+import Data.List
 import System.IO
 import System.Exit              (exitSuccess)
 import Core
 import TI
 import GM
 import Lens.Micro.Mtl
+
+import CoreDriver               qualified
+import RlpDriver                qualified
 ----------------------------------------------------------------------------------
 
 optParser :: ParserInfo RLPCOptions
@@ -37,9 +41,15 @@ options = RLPCOptions
     {- -d -}
     <*> fmap S.fromList # many # option debugFlagReader
         (  short 'd'
-        <> help "dump evaluation logs"
+        <> help "pass debug flags"
         <> metavar "DEBUG FLAG"
         )
+    {- -f -}
+    <*> fmap S.fromList # many # option compilerFlagReader
+        (  short 'f'
+        <> help "pass compilation flags"
+        <> metavar "COMPILATION FLAG"
+        )
     {- --evaluator, -e -}
     <*> option evaluatorReader
         (  long "evaluator"
@@ -57,6 +67,7 @@ options = RLPCOptions
         )
     <*> option languageReader
         (  long "language"
+        <> short 'x'
         )
     <*> some (argument str $ metavar "FILES...")
     where
@@ -67,9 +78,13 @@ languageReader :: ReadM Language
 languageReader = maybeReader $ \case
     "rlp"   -> Just LanguageRlp
     "core"  -> Just LanguageCore
+    _       -> Nothing
 
 debugFlagReader :: ReadM DebugFlag
-debugFlagReader = maybeReader $ Just
+debugFlagReader = str
+
+compilerFlagReader :: ReadM CompilerFlag
+compilerFlagReader = str
 
 evaluatorReader :: ReadM Evaluator
 evaluatorReader = maybeReader $ \case
@@ -88,54 +103,9 @@ main = do
     void $ evalRLPCIO opts driver
 
 driver :: RLPCIO ()
-driver = sequence_
-    [ dshowFlags
-    , ddumpAST
-    , ddumpEval
-    ]
-
-dshowFlags :: RLPCIO ()
-dshowFlags = whenDFlag "dump-flags" do
-    ask >>= liftIO . print
-
-ddumpAST :: RLPCIO ()
-ddumpAST = whenDFlag "dump-ast" $ forFiles_ \o f -> do
-    liftIO $ withFile f ReadMode $ \h -> do
-        s <- TIO.hGetContents h
-        case parseProg o s of
-            Right (a,_) -> hPutStrLn stderr $ show a
-            Left e -> error "todo errors lol"
-
-ddumpEval :: RLPCIO ()
-ddumpEval = whenDFlag "dump-eval" do
-    fs <- view rlpcInputFiles
-    forM_ fs $ \f -> liftIO (TIO.readFile f) >>= doProg
-
-    where
-        doProg :: Text -> RLPCIO ()
-        doProg = undefined
-        -- doProg s = ask >>= \o -> case parseProg o s of
-        --     -- TODO: error handling
-        --     Left e -> addFatal . CompilerError $ show e
-        --     Right (a,_) -> do
-        --         log <- view rlpcLogFile
-        --         dumpEval <- chooseEval
-        --         case log of
-        --             Just f  -> liftIO $ withFile f WriteMode $ dumpEval a
-        --             Nothing -> liftIO $ dumpEval a stderr
-
-        -- choose the appropriate model based on the compiler opts
-        -- chooseEval = do
-        --     ev <- view rlpcEvaluator
-        --     pure $ case ev of
-        --         EvaluatorGM  -> v GM.hdbgProg
-        --         EvaluatorTI -> v TI.hdbgProg
-        --     where v f p h = f p h *> pure ()
-
-parseProg :: RLPCOptions
-          -> Text
-          -> (Maybe Program', [MsgEnvelope RlpcError])
-parseProg o = evalRLPC o . (lexCore >=> parseCoreProg)
+driver = view rlpcLanguage >>= \case
+    LanguageCore -> CoreDriver.driver
+    LanguageRlp  -> RlpDriver.driver
 
 forFiles_ :: (Monad m)
           => (RLPCOptions -> FilePath -> RLPCT m a)
diff --git a/app/RlpDriver.hs b/app/RlpDriver.hs
new file mode 100644
index 0000000..e69de29
diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index f928f5d..90ee262 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -11,7 +11,7 @@ errors and the family of RLPC monads.
 -- only used for mtl instances
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE DeriveGeneric, DerivingStrategies, DerivingVia #-}
-{-# LANGUAGE BlockArguments #-}
+{-# LANGUAGE BlockArguments, ViewPatterns #-}
 module Compiler.RLPC
     (
     -- * Rlpc Monad transformer
@@ -31,6 +31,7 @@ module Compiler.RLPC
     -- * Misc. Rlpc Monad -related types
     , RLPCOptions(RLPCOptions), IsRlpcError(..), RlpcError(..)
     , MsgEnvelope(..), Severity(..)
+    , addDebugMsg
     , whenDFlag, whenFFlag
     -- * Convenient re-exports
     , addFatal, addWound, def
@@ -60,13 +61,15 @@ import Data.Text                qualified as T
 import Text.ANSI                qualified as Ansi
 import Text.PrettyPrint         hiding ((<>))
 import Lens.Micro.Platform
+import Lens.Micro.Platform.Internal
 import System.Exit
 ----------------------------------------------------------------------------------
 
 newtype RLPCT m a = RLPCT {
         runRLPCT :: ReaderT RLPCOptions (ErrorfulT (MsgEnvelope RlpcError) m) a
     }
-    deriving (Functor, Applicative, Monad, MonadReader RLPCOptions)
+    deriving ( Functor, Applicative, Monad
+             , MonadReader RLPCOptions, MonadErrorful (MsgEnvelope RlpcError))
 
 rlpc :: (IsRlpcError e, Monad m)
      => (RLPCOptions -> (Maybe a, [MsgEnvelope e]))
@@ -103,10 +106,18 @@ evalRLPCIO opt r = do
         Nothing -> die "Failed, no code compiled."
 
 putRlpcErrs :: [MsgEnvelope RlpcError] -> IO ()
-putRlpcErrs = traverse_ (putStrLn . ('\n':) . render . prettyRlpcErr)
+putRlpcErrs = traverse_ (putStrLn . ('\n':) . prettyRlpcMsg)
 
-prettyRlpcErr :: MsgEnvelope RlpcError -> Doc
-prettyRlpcErr msg = header
+prettyRlpcMsg :: MsgEnvelope RlpcError -> String
+prettyRlpcMsg m@(view msgSeverity -> SevDebug) = prettyRlpcDebugMsg m
+prettyRlpcMsg m                                = render $ docRlpcErr m
+
+prettyRlpcDebugMsg :: MsgEnvelope RlpcError -> String
+prettyRlpcDebugMsg (view msgDiagnostic -> Text ts) =
+    T.unpack . foldMap (`T.snoc` '\n') $ ts
+
+docRlpcErr :: MsgEnvelope RlpcError -> Doc
+docRlpcErr msg = header
                  $$ nest 2 bullets
                  $$ source
     where
@@ -177,6 +188,9 @@ type CompilerFlag = String
 makeLenses ''RLPCOptions
 pure []
 
+addDebugMsg :: (Monad m, IsText e) => e -> RLPCT m ()
+addDebugMsg e = addWound . debugMsg $ Text [e ^. unpacked . packed]
+
 -- TODO: rewrite this with prisms once microlens-pro drops :3
 whenDFlag :: (Monad m) => DebugFlag -> RLPCT m () -> RLPCT m ()
 whenDFlag f m = do
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index 9530b2e..f44b1ca 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -10,6 +10,7 @@ module Compiler.RlpcError
     , msgSeverity
     , liftRlpcErrors
     , errorMsg
+    , debugMsg
     -- * Located Comonad
     , Located(..)
     , SrcSpan(..)
@@ -46,6 +47,7 @@ instance IsRlpcError RlpcError where
 
 data Severity = SevWarning
               | SevError
+              | SevDebug
               deriving Show
 
 makeLenses ''MsgEnvelope
@@ -65,3 +67,11 @@ errorMsg s e = MsgEnvelope
     , _msgSeverity = SevError
     }
 
+debugMsg :: e -> MsgEnvelope e
+debugMsg e = MsgEnvelope
+    -- TODO: not pretty, but it is a debug message after all
+    { _msgSpan = SrcSpan 0 0 0 0
+    , _msgDiagnostic = e
+    , _msgSeverity = SevDebug
+    }
+
diff --git a/src/Control/Monad/Errorful.hs b/src/Control/Monad/Errorful.hs
index f24042b..0d70585 100644
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -13,6 +13,7 @@ module Control.Monad.Errorful
     where
 ----------------------------------------------------------------------------------
 import Control.Monad.State.Strict
+import Control.Monad.Reader
 import Control.Monad.Trans
 import Data.Functor.Identity
 import Data.Coerce
@@ -76,7 +77,7 @@ mapErrorful f (ErrorfulT m) = ErrorfulT $
 --------------------------------------------------------------------------------
 -- daily dose of n^2 instances
 
-instance (Monad m, MonadErrorful e m) => MonadErrorful e (StateT s m) where
-    addWound = undefined
-    addFatal = undefined
+instance (Monad m, MonadErrorful e m) => MonadErrorful e (ReaderT r m) where
+    addWound = lift . addWound
+    addFatal = lift . addFatal
 
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 5f4dc38..d89f60f 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -21,6 +21,7 @@ import Data.Functor.Identity
 import Core.Syntax
 import Core.Lex
 import Compiler.RLPC
+import Control.Monad
 import Lens.Micro
 import Data.Default.Class   (def)
 import Data.Hashable        (Hashable)
@@ -225,12 +226,17 @@ insScDef sc = programScDefs %~ (sc:)
 singletonScDef :: (Hashable b) => ScDef b -> Program b
 singletonScDef sc = insScDef sc mempty
 
-parseCoreProgR :: forall m. (Applicative m) => [Located CoreToken] -> RLPCT m Program'
-parseCoreProgR = hoistRlpcT generalise . parseCoreProg
+parseCoreProgR :: forall m. (Monad m) => [Located CoreToken] -> RLPCT m Program'
+parseCoreProgR = ddumpast <=< (hoistRlpcT generalise . parseCoreProg)
     where
         generalise :: forall a. Identity a -> m a
         generalise (Identity a) = pure a
 
+        ddumpast :: Program' -> RLPCT m Program'
+        ddumpast p = do
+            whenDFlag "dump-ast" $ (addDebugMsg . show $ p)
+            pure p
+
 happyBind :: RLPC a -> (a -> RLPC b) -> RLPC b
 happyBind m k = m >>= k
 
-- 
2.52.0


From 7a6518583f251a3e94276b6128515535a67e66ac Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 1 Feb 2024 11:57:37 -0700
Subject: [PATCH 130/192] debug tags

---
 src/Compiler/RLPC.hs      | 111 +++++++++++++++++++++-----------------
 src/Compiler/RlpcError.hs |   8 +--
 src/Core/Parse.y          |   2 +-
 3 files changed, 67 insertions(+), 54 deletions(-)

diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 90ee262..f7ed654 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -97,51 +97,6 @@ evalRLPCT opt r = runRLPCT r
                 & flip runReaderT opt
                 & runErrorfulT
 
-evalRLPCIO :: RLPCOptions -> RLPCIO a -> IO a
-evalRLPCIO opt r = do
-    (ma,es) <- evalRLPCT opt r
-    putRlpcErrs es
-    case ma of
-        Just x  -> pure x
-        Nothing -> die "Failed, no code compiled."
-
-putRlpcErrs :: [MsgEnvelope RlpcError] -> IO ()
-putRlpcErrs = traverse_ (putStrLn . ('\n':) . prettyRlpcMsg)
-
-prettyRlpcMsg :: MsgEnvelope RlpcError -> String
-prettyRlpcMsg m@(view msgSeverity -> SevDebug) = prettyRlpcDebugMsg m
-prettyRlpcMsg m                                = render $ docRlpcErr m
-
-prettyRlpcDebugMsg :: MsgEnvelope RlpcError -> String
-prettyRlpcDebugMsg (view msgDiagnostic -> Text ts) =
-    T.unpack . foldMap (`T.snoc` '\n') $ ts
-
-docRlpcErr :: MsgEnvelope RlpcError -> Doc
-docRlpcErr msg = header
-                 $$ nest 2 bullets
-                 $$ source
-    where
-        source = vcat $ zipWith (<+>) rule srclines
-            where
-                rule = repeat (ttext . Ansi.blue . Ansi.bold $ "|")
-                srclines = ["", "<problematic source code>", ""]
-        filename = msgColour "<input>"
-        pos = msgColour $ tshow (msg ^. msgSpan . srcspanLine)
-                       <> ":"
-                       <> tshow (msg ^. msgSpan . srcspanColumn)
-
-        header = ttext $ filename <> msgColour ":" <> pos <> msgColour ": "
-                        <> errorColour "error" <> msgColour ":"
-
-        bullets = let Text ts = msg ^. msgDiagnostic
-                  in vcat $ hang "•" 2 . ttext . msgColour <$> ts
-
-        msgColour = Ansi.white . Ansi.bold
-        errorColour = Ansi.red . Ansi.bold
-        ttext = text . T.unpack
-        tshow :: (Show a) => a -> Text
-        tshow = T.pack . show
-
 liftErrorful :: (Monad m, IsRlpcError e) => ErrorfulT (MsgEnvelope e) m a -> RLPCT m a
 liftErrorful e = RLPCT $ lift (fmap liftRlpcError `mapErrorful` e)
 
@@ -181,15 +136,15 @@ instance Default RLPCOptions where
         }
 
 -- debug flags are passed with -dFLAG
-type DebugFlag = String
+type DebugFlag = Text
 
-type CompilerFlag = String
+type CompilerFlag = Text
 
 makeLenses ''RLPCOptions
 pure []
 
-addDebugMsg :: (Monad m, IsText e) => e -> RLPCT m ()
-addDebugMsg e = addWound . debugMsg $ Text [e ^. unpacked . packed]
+addDebugMsg :: (Monad m, IsText e) => Text -> e -> RLPCT m ()
+addDebugMsg tag e = addWound . debugMsg tag $ Text [e ^. unpacked . packed]
 
 -- TODO: rewrite this with prisms once microlens-pro drops :3
 whenDFlag :: (Monad m) => DebugFlag -> RLPCT m () -> RLPCT m ()
@@ -206,3 +161,61 @@ whenFFlag f m = do
     let a = S.member f fs
     when a m
 
+--------------------------------------------------------------------------------
+
+evalRLPCIO :: RLPCOptions -> RLPCIO a -> IO a
+evalRLPCIO opt r = do
+    (ma,es) <- evalRLPCT opt r
+    putRlpcErrs opt es
+    case ma of
+        Just x  -> pure x
+        Nothing -> die "Failed, no code compiled."
+
+putRlpcErrs :: RLPCOptions -> [MsgEnvelope RlpcError] -> IO ()
+putRlpcErrs opts = filter byTag
+               >>> traverse_ (putStrLn . ('\n':) . prettyRlpcMsg)
+    where
+        dflags = opts ^. rlpcDFlags
+
+        byTag :: MsgEnvelope RlpcError -> Bool
+        byTag (view msgSeverity -> SevDebug t) =
+            t `S.member` dflags
+
+prettyRlpcMsg :: MsgEnvelope RlpcError -> String
+prettyRlpcMsg m@(view msgSeverity -> SevDebug _) = prettyRlpcDebugMsg m
+prettyRlpcMsg m                                  = render $ docRlpcErr m
+
+prettyRlpcDebugMsg :: MsgEnvelope RlpcError -> String
+prettyRlpcDebugMsg msg =
+        T.unpack . foldMap mkLine $ ts
+    where
+        mkLine s = tag <> ": " <> s <> "\n"
+        Text ts = msg ^. msgDiagnostic
+        SevDebug tag = msg ^. msgSeverity
+
+docRlpcErr :: MsgEnvelope RlpcError -> Doc
+docRlpcErr msg = header
+                 $$ nest 2 bullets
+                 $$ source
+    where
+        source = vcat $ zipWith (<+>) rule srclines
+            where
+                rule = repeat (ttext . Ansi.blue . Ansi.bold $ "|")
+                srclines = ["", "<problematic source code>", ""]
+        filename = msgColour "<input>"
+        pos = msgColour $ tshow (msg ^. msgSpan . srcspanLine)
+                       <> ":"
+                       <> tshow (msg ^. msgSpan . srcspanColumn)
+
+        header = ttext $ filename <> msgColour ":" <> pos <> msgColour ": "
+                        <> errorColour "error" <> msgColour ":"
+
+        bullets = let Text ts = msg ^. msgDiagnostic
+                  in vcat $ hang "•" 2 . ttext . msgColour <$> ts
+
+        msgColour = Ansi.white . Ansi.bold
+        errorColour = Ansi.red . Ansi.bold
+        ttext = text . T.unpack
+        tshow :: (Show a) => a -> Text
+        tshow = T.pack . show
+
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index f44b1ca..a590a85 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -47,7 +47,7 @@ instance IsRlpcError RlpcError where
 
 data Severity = SevWarning
               | SevError
-              | SevDebug
+              | SevDebug Text
               deriving Show
 
 makeLenses ''MsgEnvelope
@@ -67,11 +67,11 @@ errorMsg s e = MsgEnvelope
     , _msgSeverity = SevError
     }
 
-debugMsg :: e -> MsgEnvelope e
-debugMsg e = MsgEnvelope
+debugMsg :: Text -> e -> MsgEnvelope e
+debugMsg tag e = MsgEnvelope
     -- TODO: not pretty, but it is a debug message after all
     { _msgSpan = SrcSpan 0 0 0 0
     , _msgDiagnostic = e
-    , _msgSeverity = SevDebug
+    , _msgSeverity = SevDebug tag
     }
 
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index d89f60f..20ee3eb 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -234,7 +234,7 @@ parseCoreProgR = ddumpast <=< (hoistRlpcT generalise . parseCoreProg)
 
         ddumpast :: Program' -> RLPCT m Program'
         ddumpast p = do
-            whenDFlag "dump-ast" $ (addDebugMsg . show $ p)
+            addDebugMsg "dump-ast" . show $ p
             pure p
 
 happyBind :: RLPC a -> (a -> RLPC b) -> RLPC b
-- 
2.52.0


From ff5a5af9bc3de4f2d0cc12304fed4abe118e347b Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 1 Feb 2024 12:14:43 -0700
Subject: [PATCH 131/192] -ddump-eval

---
 src/Compiler/RLPC.hs |  4 ++--
 src/GM.hs            | 17 +++++++++++++++++
 2 files changed, 19 insertions(+), 2 deletions(-)

diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index f7ed654..54719a9 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -187,9 +187,9 @@ prettyRlpcMsg m                                  = render $ docRlpcErr m
 
 prettyRlpcDebugMsg :: MsgEnvelope RlpcError -> String
 prettyRlpcDebugMsg msg =
-        T.unpack . foldMap mkLine $ ts
+        T.unpack . foldMap mkLine $ [ t' | t <- ts, t' <- T.lines t ]
     where
-        mkLine s = tag <> ": " <> s <> "\n"
+        mkLine s = "-d" <> tag <> ": " <> s <> "\n"
         Text ts = msg ^. msgDiagnostic
         SevDebug tag = msg ^. msgSeverity
 
diff --git a/src/GM.hs b/src/GM.hs
index 065cb08..216672d 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -8,6 +8,7 @@ Description : The G-Machine
 module GM
     ( hdbgProg
     , evalProg
+    , evalProgR
     , Node(..)
     , gmEvalProg
     , finalStateOf
@@ -34,6 +35,7 @@ import System.IO                    (Handle, hPutStrLn)
 import Data.String                  (IsString)
 import Data.Heap
 import Debug.Trace
+import Compiler.RLPC
 import Core2Core
 import Core
 ----------------------------------------------------------------------------------
@@ -156,6 +158,21 @@ hdbgProg p hio = do
         [resAddr] = final ^. gmStack
         res = hLookupUnsafe resAddr h
 
+evalProgR :: (Monad m) => Program' -> RLPCT m (Node, Stats)
+evalProgR p = do
+    (renderOut . showState) `traverse_` states
+    renderOut . showStats $ sts
+    pure (res, sts)
+    where
+        renderOut r = addDebugMsg "dump-eval" $ render r ++ "\n"
+        states = eval . compile $ p
+        final = last states
+
+        sts = final ^. gmStats
+        -- the address of the result should be the one and only stack entry
+        [resAddr] = final ^. gmStack
+        res = hLookupUnsafe resAddr (final ^. gmHeap)
+
 eval :: GmState -> [GmState]
 eval st = st : rest
     where
-- 
2.52.0


From 77f2f900d8bfe373aded590a23f7abbc705994e5 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 1 Feb 2024 15:24:16 -0700
Subject: [PATCH 132/192] core driver

---
 README.md            |  2 +-
 app/CoreDriver.hs    | 15 +++++++++------
 app/Main.hs          |  8 --------
 app/RlpDriver.hs     | 11 +++++++++++
 rlp.cabal            |  8 ++++----
 src/Compiler/RLPC.hs | 17 +++++++++++++++++
 6 files changed, 42 insertions(+), 19 deletions(-)

diff --git a/README.md b/README.md
index 4b010ec..ef70c2d 100644
--- a/README.md
+++ b/README.md
@@ -23,7 +23,7 @@ $ cabal test --test-show-details=direct
 $ rlpc -ddump-eval examples/factorial.hs
 # Compile and evaluate t.hs, with evaluation info dumped to t.log
 $ rlpc -ddump-eval -l t.log t.hs
-# Print the raw structure describing the compiler options and die
+# Print the raw structure describing the compiler options
 # (option parsing still must succeed in order to print)
 $ rlpc -ddump-opts t.hs
 ```
diff --git a/app/CoreDriver.hs b/app/CoreDriver.hs
index ba546c9..56ec299 100644
--- a/app/CoreDriver.hs
+++ b/app/CoreDriver.hs
@@ -3,12 +3,15 @@ module CoreDriver
     )
     where
 --------------------------------------------------------------------------------
+import Compiler.RLPC
+import Control.Monad
+
+import Core.Lex
+import Core.Parse
+import GM
+--------------------------------------------------------------------------------
 
 driver :: RLPCIO ()
-driver = undefined
-
-parseProg :: RLPCOptions
-          -> Text
-          -> (Maybe Program', [MsgEnvelope RlpcError])
-parseProg o = lexCoreR >=> parseCoreProgR
+driver = forFiles_ $ \f ->
+    withSource f (lexCoreR >=> parseCoreProgR >=> evalProgR)
 
diff --git a/app/Main.hs b/app/Main.hs
index 440789c..ea31543 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -107,11 +107,3 @@ driver = view rlpcLanguage >>= \case
     LanguageCore -> CoreDriver.driver
     LanguageRlp  -> RlpDriver.driver
 
-forFiles_ :: (Monad m)
-          => (RLPCOptions -> FilePath -> RLPCT m a)
-          -> RLPCT m ()
-forFiles_ k = do
-    fs <- view rlpcInputFiles
-    o <- ask
-    forM_ fs (k o)
-
diff --git a/app/RlpDriver.hs b/app/RlpDriver.hs
index e69de29..3df1b24 100644
--- a/app/RlpDriver.hs
+++ b/app/RlpDriver.hs
@@ -0,0 +1,11 @@
+module RlpDriver
+    ( driver
+    )
+    where
+--------------------------------------------------------------------------------
+import Compiler.RLPC
+--------------------------------------------------------------------------------
+
+driver :: RLPCIO ()
+driver = undefined
+
diff --git a/rlp.cabal b/rlp.cabal
index b813073..daad383 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -38,8 +38,7 @@ library
                     , Rlp.Lex
                     , Rlp.Parse.Types
                     , Compiler.Types
-
-    other-modules:    Data.Heap
+                    , Data.Heap
                     , Data.Pretty
                     , Core.Parse
                     , Core.Lex
@@ -86,8 +85,9 @@ library
 executable rlpc
     import:           warnings
     main-is:          Main.hs
-    -- other-modules:
-    -- other-extensions:
+    other-modules:    RlpDriver
+                    , CoreDriver
+
     build-depends: base >=4.17.0.0 && <4.20.0.0
                  , rlp
                  , optparse-applicative >= 0.18.1 && < 0.19
diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 54719a9..5468223 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -33,6 +33,8 @@ module Compiler.RLPC
     , MsgEnvelope(..), Severity(..)
     , addDebugMsg
     , whenDFlag, whenFFlag
+    -- * Misc. Utilities
+    , forFiles_, withSource
     -- * Convenient re-exports
     , addFatal, addWound, def
     )
@@ -58,6 +60,7 @@ import Data.HashSet             qualified as S
 import Data.Coerce
 import Data.Text                (Text)
 import Data.Text                qualified as T
+import Data.Text.IO             qualified as T
 import Text.ANSI                qualified as Ansi
 import Text.PrettyPrint         hiding ((<>))
 import Lens.Micro.Platform
@@ -219,3 +222,17 @@ docRlpcErr msg = header
         tshow :: (Show a) => a -> Text
         tshow = T.pack . show
 
+--------------------------------------------------------------------------------
+
+forFiles_ :: (Monad m)
+          => (FilePath -> RLPCT m a)
+          -> RLPCT m ()
+forFiles_ k = do
+    fs <- view rlpcInputFiles
+    forM_ fs k
+
+-- TODO: catch any exceptions, i.e. non-existent files should be handled by the
+-- compiler
+withSource :: (MonadIO m) => FilePath -> (Text -> RLPCT m a) -> RLPCT m a
+withSource f k = liftIO (T.readFile f) >>= k
+
-- 
2.52.0


From c9d1ca51f5d2375da11cbf2c7976b2db06d1b637 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 1 Feb 2024 18:15:40 -0700
Subject: [PATCH 133/192] XRec fix

---
 README.md              | 12 +++++------
 app/Main.hs            |  2 ++
 rlp.cabal              |  1 +
 src/Rlp/Parse/Types.hs |  2 +-
 src/Rlp/Syntax.hs      | 48 ++++++++++++++++++++++++------------------
 src/Rlp2Core.hs        | 40 +++++++++++++++++++++++++++++++++++
 6 files changed, 77 insertions(+), 28 deletions(-)
 create mode 100644 src/Rlp2Core.hs

diff --git a/README.md b/README.md
index ef70c2d..2fa2b72 100644
--- a/README.md
+++ b/README.md
@@ -57,9 +57,8 @@ Listed in order of importance.
         - [x] Garbage Collection
     - [ ] Emitter
         - [ ] Code-gen (target yet to be decided)
-        - [ ] Core language emitter
-    - [ ] Core linter (Type-checker)
-    - [ ] Core2Core pass
+    - [x] Core linter (Type-checker)
+    - [ ] Core2Core pass (optimisations and misc. preprocessing)
         - [x] GM prep
             - [x] Non-strict case-floating
         - [ ] Let-floating
@@ -101,9 +100,10 @@ Listed in order of importance.
 ### January Release Plan
 - [ ] Beta rl' to Core
 - [ ] UX improvements
-    - [ ] Actual compiler errors -- no more unexceptional `error` calls
-    - [ ] Better CLI dump flags
-    - [ ] Annotate the AST with token positions for errors
+    - [x] Actual compiler errors -- no more unexceptional `error` calls
+    - [x] Better CLI dump flags
+    - [ ] Annotate the AST with token positions for errors (NOTE: As of Feb. 1,
+      this has been done, but the locational info is not yet used in error messages)
 - [ ] More examples
 
 ### March Release Plan
diff --git a/app/Main.hs b/app/Main.hs
index ea31543..524b590 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -68,6 +68,8 @@ options = RLPCOptions
     <*> option languageReader
         (  long "language"
         <> short 'x'
+        <> metavar "rlp|core"
+        <> help "the language to be compiled -- see README"
         )
     <*> some (argument str $ metavar "FILES...")
     where
diff --git a/rlp.cabal b/rlp.cabal
index daad383..5e1b05d 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -43,6 +43,7 @@ library
                     , Core.Parse
                     , Core.Lex
                     , Core2Core
+                    , Rlp2Core
                     , Control.Monad.Utils
 
     build-tool-depends: happy:happy, alex:alex
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 77c6519..ce53274 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -52,7 +52,7 @@ import Compiler.Types
 
 data RlpcPs
 
-type instance XRec RlpcPs f = Located (f RlpcPs)
+type instance XRec RlpcPs a = Located a
 type instance IdP RlpcPs = PsName
 
 type instance XFunD RlpcPs = ()
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 9403e50..16ffe2e 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -8,6 +8,7 @@ module Rlp.Syntax
     (
     -- * AST
       RlpProgram(..)
+    , progDecls
     , Decl(..), Decl', RlpExpr(..), RlpExpr'
     , Pat(..), Pat'
     , Assoc(..)
@@ -53,15 +54,20 @@ data RlpModule p = RlpModule
 
 -- | dear god.
 type PhaseShow p =
-    ( Show (XRec p Pat), Show (XRec p RlpExpr)
-    , Show (XRec p Lit), Show (IdP p)
-    , Show (XRec p RlpType)
-    , Show (XRec p Binding)
+    ( Show (XRec p (Pat p)), Show (XRec p (RlpExpr p))
+    , Show (XRec p (Lit p)), Show (IdP p)
+    , Show (XRec p (RlpType p))
+    , Show (XRec p (Binding p))
     )
 
 newtype RlpProgram p = RlpProgram [Decl' p]
 
-deriving instance (PhaseShow p, Show (XRec p Decl)) => Show (RlpProgram p)
+progDecls :: Lens' (RlpProgram p) [Decl' p]
+progDecls = lens
+    (\ (RlpProgram ds) -> ds)
+    (const RlpProgram)
+
+deriving instance (PhaseShow p, Show (XRec p (Decl p))) => Show (RlpProgram p)
 
 data RlpType p = FunConT
                | FunT (RlpType' p) (RlpType' p)
@@ -69,7 +75,7 @@ data RlpType p = FunConT
                | VarT (IdP p)
                | ConT (IdP p)
 
-type RlpType' p = XRec p RlpType
+type RlpType' p = XRec p (RlpType p)
 
 deriving instance (PhaseShow p)
                   => Show (RlpType p)
@@ -95,11 +101,11 @@ type family XInfixD p
 type family XXDeclD p
 
 pattern FunD   :: (XFunD p ~ ())
-               => (IdP p) -> [Pat' p] -> (RlpExpr' p) -> (Maybe (Where p))
+               => IdP p -> [Pat' p] -> RlpExpr' p -> Maybe (Where p)
                -> Decl p
-pattern TySigD :: (XTySigD p ~ ()) => [IdP p] -> (RlpType' p) -> Decl p
-pattern DataD  :: (XDataD p ~ ()) => (IdP p) -> [IdP p] -> [ConAlt p] -> Decl p
-pattern InfixD :: (XInfixD p ~ ()) => Assoc -> Int -> (IdP p) -> Decl p
+pattern TySigD :: (XTySigD p ~ ()) => [IdP p] -> RlpType' p -> Decl p
+pattern DataD  :: (XDataD p ~ ()) => IdP p -> [IdP p] -> [ConAlt p] -> Decl p
+pattern InfixD :: (XInfixD p ~ ()) => Assoc -> Int -> IdP p -> Decl p
 pattern XDeclD :: (XXDeclD p ~ ()) => Decl p
 
 pattern FunD n as e wh = FunD' () n as e wh
@@ -108,7 +114,7 @@ pattern DataD n as cs = DataD' () n as cs
 pattern InfixD a p n = InfixD' () a p n
 pattern XDeclD = XDeclD' ()
 
-type Decl' p = XRec p Decl
+type Decl' p = XRec p (Decl p)
 
 data Assoc = InfixL
            | InfixR
@@ -117,7 +123,7 @@ data Assoc = InfixL
 
 data ConAlt p = ConAlt (IdP p) [RlpType' p]
 
-deriving instance (Show (IdP p), Show (XRec p RlpType)) => Show (ConAlt p)
+deriving instance (Show (IdP p), Show (XRec p (RlpType p))) => Show (ConAlt p)
 
 data RlpExpr p = LetE'  (XLetE p) [Binding' p] (RlpExpr' p)
                | VarE'  (XVarE p) (IdP p)
@@ -171,15 +177,15 @@ deriving instance
     , PhaseShow p
     ) => Show (RlpExpr p)
 
-type RlpExpr' p = XRec p RlpExpr
+type RlpExpr' p = XRec p (RlpExpr p)
 
 class UnXRec p where
-    unXRec :: XRec p f -> f p
+    unXRec :: XRec p a -> a
 
 class MapXRec p where
-    mapXRec :: (f p -> f' p') -> XRec p f -> XRec p' f'
+    mapXRec :: (a -> b) -> XRec p a -> XRec p b
 
-type family XRec p (f :: Type -> Type) = (r :: Type) | r -> p f
+type family XRec p a = (r :: Type) | r -> p a
 
 type family IdP p
 
@@ -193,9 +199,9 @@ deriving instance (PhaseShow p) => Show (Alt p)
 data Binding p = PatB (Pat' p) (RlpExpr' p)
                | FunB (IdP p) [Pat' p] (RlpExpr' p)
 
-type Binding' p = XRec p Binding
+type Binding' p = XRec p (Binding p)
 
-deriving instance (Show (XRec p Pat), Show (XRec p RlpExpr), Show (IdP p)
+deriving instance (Show (XRec p (Pat p)), Show (XRec p (RlpExpr p)), Show (IdP p)
                   ) => Show (Binding p)
 
 data Pat p = VarP (IdP p)
@@ -204,7 +210,7 @@ data Pat p = VarP (IdP p)
 
 deriving instance (PhaseShow p) => Show (Pat p)
 
-type Pat' p = XRec p Pat
+type Pat' p = XRec p (Pat p)
 
 data Lit p = IntL Int
            | CharL Char
@@ -212,7 +218,7 @@ data Lit p = IntL Int
 
 deriving instance (PhaseShow p) => Show (Lit p)
 
-type Lit' p = XRec p Lit
+type Lit' p = XRec p (Lit p)
 
 -- instance HasLHS Alt Alt Pat Pat where
 --     _lhs = lens
@@ -224,7 +230,7 @@ type Lit' p = XRec p Lit
 --         (\ (AltA _ e) -> e)
 --         (\ (AltA p _) e' -> AltA p e')
 
-makeBaseFunctor ''RlpExpr
+-- makeBaseFunctor ''RlpExpr
 
 -- showsTernaryWith :: (Int -> x -> ShowS)
 --                  -> (Int -> y -> ShowS)
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
new file mode 100644
index 0000000..c17ff64
--- /dev/null
+++ b/src/Rlp2Core.hs
@@ -0,0 +1,40 @@
+module Rlp2Core
+    ( rlpProgToCore
+    )
+    where
+--------------------------------------------------------------------------------
+import Control.Monad
+import Control.Monad.Writer.CPS
+import Lens.Micro
+import Lens.Micro.Internal
+import Data.Text                        (Text)
+import Data.Text                        qualified as T
+import Data.HashMap.Strict              qualified as H
+
+import Core.Syntax                      as Core
+import Rlp.Syntax                       as Rlp
+import Rlp.Parse.Types                  (RlpcPs)
+--------------------------------------------------------------------------------
+
+rlpProgToCore :: RlpProgram RlpcPs -> Program'
+rlpProgToCore = foldMapOf (progDecls . each) declToCore
+
+declToCore :: Decl' RlpcPs -> Program'
+
+declToCore = undefined
+
+-- declToCore (TySigD ns t) =
+--     mempty & programTypeSigs .~ H.fromList [ (n, typeToCore t) | n <- ns ]
+
+typeToCore :: RlpType RlpcPs -> Type
+typeToCore = undefined
+-- typeToCore FunConT = TyFun
+-- typeToCore (FunT s t) = typeToCore s :-> typeToCore t
+-- typeToCore (AppT s t) = TyApp (typeToCore s) (typeToCore t)
+-- typeToCore (ConT n) = TyCon (dsNameToName n)
+-- typeToCore (VarT x) = TyVar (dsNameToName x)
+
+-- | Forwards-compatiblity if IdP RlpDs is changed
+dsNameToName :: IdP RlpcPs -> Name
+dsNameToName = id
+
-- 
2.52.0


From 38d1044f5da18763f0971721c8b53e944692d3d4 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 2 Feb 2024 15:10:04 -0700
Subject: [PATCH 134/192] rlp2core base

---
 src/Rlp/Parse/Types.hs |  7 ++++++
 src/Rlp/Syntax.hs      | 49 +++++++++++++++++++++++++++++++++++++-----
 src/Rlp2Core.hs        | 19 +++++++---------
 3 files changed, 59 insertions(+), 16 deletions(-)

diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index ce53274..93ca70f 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -31,6 +31,7 @@ import Core.Syntax                  (Name)
 import Control.Monad
 import Control.Monad.State.Strict
 import Control.Monad.Errorful
+import Control.Comonad              (extract)
 import Compiler.RlpcError
 import Data.Text                    (Text)
 import Data.Maybe
@@ -73,6 +74,12 @@ type instance XOAppE RlpcPs = ()
 
 type PsName = Text
 
+instance MapXRec RlpcPs where
+    mapXRec = fmap
+
+instance UnXRec RlpcPs where
+    unXRec = extract
+
 --------------------------------------------------------------------------------
 
 spanFromPos :: Position -> Int -> SrcSpan
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 16ffe2e..4eeed20 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -1,7 +1,7 @@
 -- recursion-schemes
 {-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable
   , TemplateHaskell, TypeFamilies #-}
-{-# LANGUAGE OverloadedStrings, PatternSynonyms #-}
+{-# LANGUAGE OverloadedStrings, PatternSynonyms, ViewPatterns #-}
 {-# LANGUAGE TypeFamilies, TypeFamilyDependencies #-}
 {-# LANGUAGE UndecidableInstances, ImpredicativeTypes #-}
 module Rlp.Syntax
@@ -28,10 +28,14 @@ module Rlp.Syntax
     -- ** Pattern synonyms
     -- *** Decl
     , pattern FunD, pattern TySigD, pattern InfixD, pattern DataD
+    , pattern FunD'', pattern TySigD'', pattern InfixD'', pattern DataD''
     -- *** RlpExpr
     , pattern LetE, pattern VarE, pattern LamE, pattern CaseE, pattern IfE
     , pattern AppE, pattern LitE, pattern ParE, pattern OAppE
     , pattern XRlpExprE
+    -- *** RlpType
+    , pattern FunConT'', pattern FunT'', pattern AppT'', pattern VarT''
+    , pattern ConT''
     )
     where
 ----------------------------------------------------------------------------------
@@ -40,6 +44,7 @@ import Data.Text                    qualified as T
 import Data.String                  (IsString(..))
 import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Data.Functor.Classes
+import Data.Functor.Identity
 import Data.Kind                    (Type)
 import Lens.Micro
 import Lens.Micro.TH
@@ -77,6 +82,18 @@ data RlpType p = FunConT
 
 type RlpType' p = XRec p (RlpType p)
 
+pattern FunConT'' :: (UnXRec p) => RlpType' p
+pattern FunT''    :: (UnXRec p) => RlpType' p -> RlpType' p -> RlpType' p
+pattern AppT''    :: (UnXRec p) => RlpType' p -> RlpType' p -> RlpType' p
+pattern VarT''    :: (UnXRec p) => IdP p -> RlpType' p
+pattern ConT''    :: (UnXRec p) => IdP p -> RlpType' p
+
+pattern FunConT''     <- (unXRec -> FunConT)
+pattern FunT''    s t <- (unXRec -> FunT s t)
+pattern AppT''    s t <- (unXRec -> AppT s t)
+pattern VarT''    n   <- (unXRec -> VarT n)
+pattern ConT''    n   <- (unXRec -> ConT n)
+
 deriving instance (PhaseShow p)
                   => Show (RlpType p)
 
@@ -109,10 +126,25 @@ pattern InfixD :: (XInfixD p ~ ()) => Assoc -> Int -> IdP p -> Decl p
 pattern XDeclD :: (XXDeclD p ~ ()) => Decl p
 
 pattern FunD n as e wh = FunD' () n as e wh
-pattern TySigD ns t = TySigD' () ns t
-pattern DataD n as cs = DataD' () n as cs
-pattern InfixD a p n = InfixD' () a p n
-pattern XDeclD = XDeclD' ()
+pattern TySigD ns t    = TySigD' () ns t
+pattern DataD n as cs  = DataD' () n as cs
+pattern InfixD a p n   = InfixD' () a p n
+pattern XDeclD         = XDeclD' ()
+
+pattern FunD''   :: (UnXRec p)
+                 => IdP p -> [Pat' p] -> RlpExpr' p -> Maybe (Where p)
+                 -> Decl' p
+pattern TySigD'' :: (UnXRec p)
+                 => [IdP p] -> RlpType' p -> Decl' p
+pattern DataD''  :: (UnXRec p)
+                 => IdP p -> [IdP p] -> [ConAlt p] -> Decl' p
+pattern InfixD'' :: (UnXRec p)
+                 => Assoc -> Int -> IdP p -> Decl' p
+
+pattern FunD''   n as e wh <- (unXRec -> FunD' _ n as e wh)
+pattern TySigD'' ns t      <- (unXRec -> TySigD' _ ns t)
+pattern DataD''  n as ds   <- (unXRec -> DataD' _ n as ds)
+pattern InfixD'' a p n     <- (unXRec -> InfixD' _ a p n)
 
 type Decl' p = XRec p (Decl p)
 
@@ -185,6 +217,8 @@ class UnXRec p where
 class MapXRec p where
     mapXRec :: (a -> b) -> XRec p a -> XRec p b
 
+-- old definition:
+-- type family XRec p (f :: Type -> Type) = (r :: Type) | r -> p f
 type family XRec p a = (r :: Type) | r -> p a
 
 type family IdP p
@@ -248,3 +282,8 @@ type Lit' p = XRec p (Lit p)
 
 makeLenses ''RlpModule
 
+--------------------------------------------------------------------------------
+
+-- stripLocation :: (UnXRec p) => XRec p a -> f NoLocated
+-- stripLocation p = undefined
+
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index c17ff64..5210806 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -21,18 +21,15 @@ rlpProgToCore = foldMapOf (progDecls . each) declToCore
 
 declToCore :: Decl' RlpcPs -> Program'
 
-declToCore = undefined
+declToCore (TySigD'' ns t) =
+    mempty & programTypeSigs .~ H.fromList [ (n, typeToCore t) | n <- ns ]
 
--- declToCore (TySigD ns t) =
---     mempty & programTypeSigs .~ H.fromList [ (n, typeToCore t) | n <- ns ]
-
-typeToCore :: RlpType RlpcPs -> Type
-typeToCore = undefined
--- typeToCore FunConT = TyFun
--- typeToCore (FunT s t) = typeToCore s :-> typeToCore t
--- typeToCore (AppT s t) = TyApp (typeToCore s) (typeToCore t)
--- typeToCore (ConT n) = TyCon (dsNameToName n)
--- typeToCore (VarT x) = TyVar (dsNameToName x)
+typeToCore :: RlpType' RlpcPs -> Type
+typeToCore FunConT''    = TyFun
+typeToCore (FunT'' s t) = typeToCore s :-> typeToCore t
+typeToCore (AppT'' s t) = TyApp (typeToCore s) (typeToCore t)
+typeToCore (ConT'' n)   = TyCon (dsNameToName n)
+typeToCore (VarT'' x)   = TyVar (dsNameToName x)
 
 -- | Forwards-compatiblity if IdP RlpDs is changed
 dsNameToName :: IdP RlpcPs -> Name
-- 
2.52.0


From 21d13ea73ba078c34d516bc63bd81c8b2b742bab Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 2 Feb 2024 19:15:39 -0700
Subject: [PATCH 135/192] ccoool

---
 src/Core/Syntax.hs | 11 +++++++++--
 src/Rlp2Core.hs    | 27 +++++++++++++++++++++++++--
 2 files changed, 34 insertions(+), 4 deletions(-)

diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index b624e43..cad53be 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -59,8 +59,9 @@ import Data.Char
 import GHC.Generics
 -- Lift instances for the Core quasiquoters
 import Language.Haskell.TH.Syntax   (Lift)
-import Lens.Micro.TH                (makeLenses)
-import Lens.Micro
+-- import Lens.Micro.TH                (makeLenses)
+-- import Lens.Micro
+import Control.Lens
 ----------------------------------------------------------------------------------
 
 data Expr b = Var Name
@@ -152,6 +153,12 @@ makeLenses ''Program
 makeBaseFunctor ''Expr
 pure []
 
+-- this is a weird optic, stronger than Lens and Prism, but weaker than Iso.
+programTypeSigsP :: (Hashable b) => Prism' (Program b) (HashMap b Type)
+programTypeSigsP = prism
+    (\b -> mempty & programTypeSigs .~ b)
+    (Right . view programTypeSigs)
+
 type ExprF' = ExprF Name
 
 type Program' = Program Name
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 5210806..a4974d9 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -5,24 +5,47 @@ module Rlp2Core
 --------------------------------------------------------------------------------
 import Control.Monad
 import Control.Monad.Writer.CPS
+import Control.Arrow
+import Control.Applicative
 import Lens.Micro
 import Lens.Micro.Internal
 import Data.Text                        (Text)
 import Data.Text                        qualified as T
 import Data.HashMap.Strict              qualified as H
+import Data.Monoid                      (Endo(..))
+import Data.Foldable
 
 import Core.Syntax                      as Core
 import Rlp.Syntax                       as Rlp
 import Rlp.Parse.Types                  (RlpcPs)
 --------------------------------------------------------------------------------
 
+-- the rl' program is desugared by desugaring each declaration as a separate
+-- program, and taking the monoidal product of the lot :3
+
 rlpProgToCore :: RlpProgram RlpcPs -> Program'
 rlpProgToCore = foldMapOf (progDecls . each) declToCore
 
 declToCore :: Decl' RlpcPs -> Program'
 
-declToCore (TySigD'' ns t) =
-    mempty & programTypeSigs .~ H.fromList [ (n, typeToCore t) | n <- ns ]
+declToCore (TySigD'' ns t) = mempty &
+    programTypeSigs .~ H.fromList [ (n, typeToCore t) | n <- ns ]
+
+declToCore (DataD'' n as ds) = fold . getZipList $
+    constructorToCore t' <$> ZipList [0..] <*> ZipList ds
+    where
+        -- create the appropriate type from the declared constructor and its
+        -- arguments
+        t' = foldl TyApp (TyCon n) (TyVar . dsNameToName <$> as)
+
+declToCore (FunD'' n as e wh) = mempty &
+
+constructorToCore :: Type -> Tag -> ConAlt RlpcPs -> Program'
+constructorToCore t tag (ConAlt cn as) =
+    mempty & programTypeSigs . at cn ?~ foldr (:->) t as'
+           & programDataTags . at cn ?~ (tag, length as)
+    where
+        as' = typeToCore <$> as
 
 typeToCore :: RlpType' RlpcPs -> Type
 typeToCore FunConT''    = TyFun
-- 
2.52.0


From 0fc82f3fa8c1076f2bcb6e196457557ccde96bec Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 4 Feb 2024 18:59:48 -0700
Subject: [PATCH 136/192] something

---
 src/Rlp/Syntax.hs | 25 ++++++++++++++++++++++---
 src/Rlp/TH.hs     |  6 ++++++
 src/Rlp2Core.hs   | 18 ++++++++++++++----
 3 files changed, 42 insertions(+), 7 deletions(-)
 create mode 100644 src/Rlp/TH.hs

diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 4eeed20..a3dd30c 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -11,6 +11,7 @@ module Rlp.Syntax
     , progDecls
     , Decl(..), Decl', RlpExpr(..), RlpExpr'
     , Pat(..), Pat'
+    , Alt(..)
     , Assoc(..)
     , Lit(..), Lit'
     , RlpType(..), RlpType'
@@ -19,7 +20,7 @@ module Rlp.Syntax
 
     -- * Trees That Grow boilerplate
     -- ** Extension points
-    , IdP, XRec, UnXRec(..), MapXRec(..)
+    , IdP, IdP', XRec, UnXRec(..), MapXRec(..)
     -- *** Decl
     , XFunD, XTySigD, XInfixD, XDataD, XXDeclD
     -- *** RlpExpr
@@ -36,6 +37,10 @@ module Rlp.Syntax
     -- *** RlpType
     , pattern FunConT'', pattern FunT'', pattern AppT'', pattern VarT''
     , pattern ConT''
+    -- *** Pat
+    , pattern VarP'', pattern LitP'', pattern ConP''
+    -- ** NoLocated
+    , NoLocated
     )
     where
 ----------------------------------------------------------------------------------
@@ -223,6 +228,8 @@ type family XRec p a = (r :: Type) | r -> p a
 
 type family IdP p
 
+type IdP' p = XRec p (IdP p)
+
 type Where p = [Binding p]
 
 -- do we want guards?
@@ -242,6 +249,14 @@ data Pat p = VarP (IdP p)
            | LitP (Lit' p)
            | ConP (IdP p) [Pat' p]
 
+pattern VarP'' :: (UnXRec p) => IdP p -> Pat' p
+pattern LitP'' :: (UnXRec p) => Lit' p -> Pat' p
+pattern ConP'' :: (UnXRec p) => IdP p -> [Pat' p] -> Pat' p
+
+pattern VarP'' n    <- (unXRec -> VarP n)
+pattern LitP'' l    <- (unXRec -> LitP l)
+pattern ConP'' c as <- (unXRec -> ConP c as)
+
 deriving instance (PhaseShow p) => Show (Pat p)
 
 type Pat' p = XRec p (Pat p)
@@ -284,6 +299,10 @@ makeLenses ''RlpModule
 
 --------------------------------------------------------------------------------
 
--- stripLocation :: (UnXRec p) => XRec p a -> f NoLocated
--- stripLocation p = undefined
+data NoLocated
+
+type instance XRec NoLocated a = Identity a
+
+stripLocation :: (UnXRec p) => XRec p a -> f NoLocated
+stripLocation p = undefined
 
diff --git a/src/Rlp/TH.hs b/src/Rlp/TH.hs
new file mode 100644
index 0000000..5f62fe7
--- /dev/null
+++ b/src/Rlp/TH.hs
@@ -0,0 +1,6 @@
+module Rlp.TH
+    ( rlpProg
+    , rlpExpr
+    )
+    where
+
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index a4974d9..082b23e 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -7,17 +7,20 @@ import Control.Monad
 import Control.Monad.Writer.CPS
 import Control.Arrow
 import Control.Applicative
-import Lens.Micro
-import Lens.Micro.Internal
+import Control.Comonad
+-- import Lens.Micro
+-- import Lens.Micro.Internal
+import Control.Lens
 import Data.Text                        (Text)
 import Data.Text                        qualified as T
 import Data.HashMap.Strict              qualified as H
 import Data.Monoid                      (Endo(..))
 import Data.Foldable
+import Data.Functor.Bind
 
 import Core.Syntax                      as Core
 import Rlp.Syntax                       as Rlp
-import Rlp.Parse.Types                  (RlpcPs)
+import Rlp.Parse.Types                  (RlpcPs, PsName)
 --------------------------------------------------------------------------------
 
 -- the rl' program is desugared by desugaring each declaration as a separate
@@ -38,7 +41,14 @@ declToCore (DataD'' n as ds) = fold . getZipList $
         -- arguments
         t' = foldl TyApp (TyCon n) (TyVar . dsNameToName <$> as)
 
-declToCore (FunD'' n as e wh) = mempty &
+declToCore fd@(FunD'' n as e wh) = undefined
+
+caseify :: IdP' RlpcPs -> RlpExpr' RlpcPs -> Pat' RlpcPs
+        -> (RlpExpr RlpcPs, Pat RlpcPs)
+caseify x e p = (e', p') where
+    p' = VarP (extract x)
+    e' = CaseE (VarE <$> x) [(alt, [])]
+    alt = AltA p e
 
 constructorToCore :: Type -> Tag -> ConAlt RlpcPs -> Program'
 constructorToCore t tag (ConAlt cn as) =
-- 
2.52.0


From b84992787cb5fc300dd533122021c5e44ee8f4bc Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 4 Feb 2024 19:19:37 -0700
Subject: [PATCH 137/192] rlp TH

---
 rlp.cabal              |  1 +
 src/Compiler/Types.hs  |  5 +++--
 src/Rlp/Parse.y        |  5 ++++-
 src/Rlp/Parse/Types.hs | 14 ++++++++++++++
 src/Rlp/Syntax.hs      |  3 ++-
 src/Rlp/TH.hs          | 30 ++++++++++++++++++++++++++++++
 6 files changed, 54 insertions(+), 4 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 5e1b05d..5719560 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -37,6 +37,7 @@ library
                     , Rlp.Parse.Associate
                     , Rlp.Lex
                     , Rlp.Parse.Types
+                    , Rlp.TH
                     , Compiler.Types
                     , Data.Heap
                     , Data.Pretty
diff --git a/src/Compiler/Types.hs b/src/Compiler/Types.hs
index 79b7d8a..5814b58 100644
--- a/src/Compiler/Types.hs
+++ b/src/Compiler/Types.hs
@@ -15,11 +15,12 @@ import Control.Comonad
 import Data.Functor.Apply
 import Data.Functor.Bind
 import Control.Lens             hiding ((<<~))
+import Language.Haskell.TH.Syntax   (Lift)
 --------------------------------------------------------------------------------
 
 -- | Token wrapped with a span (line, column, absolute, length)
 data Located a = Located SrcSpan a
-    deriving (Show, Functor)
+    deriving (Show, Lift, Functor)
 
 instance Apply Located where
     liftF2 f (Located sa p) (Located sb q)
@@ -39,7 +40,7 @@ data SrcSpan = SrcSpan
     !Int -- ^ Column
     !Int -- ^ Absolute
     !Int -- ^ Length
-    deriving Show
+    deriving (Show, Lift)
 
 tupling :: Iso' SrcSpan (Int, Int, Int, Int)
 tupling = iso (\ (SrcSpan a b c d) -> (a,b,c,d))
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index a885f59..398d7a3 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -193,7 +193,10 @@ Con         :: { Located PsName }
 
 {
 
-parseRlpExprR = undefined
+parseRlpExprR :: (Monad m) => Text -> RLPCT m (RlpExpr RlpcPs)
+parseRlpExprR s = liftErrorful $ pToErrorful parseRlpExpr st
+    where
+        st = programInitState s
 
 parseRlpProgR :: (Monad m) => Text -> RLPCT m (RlpProgram RlpcPs)
 parseRlpProgR s = liftErrorful $ pToErrorful parseRlpProg st
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 93ca70f..e253fdd 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -33,6 +33,7 @@ import Control.Monad.State.Strict
 import Control.Monad.Errorful
 import Control.Comonad              (extract)
 import Compiler.RlpcError
+import Language.Haskell.TH.Syntax   (Lift)
 import Data.Text                    (Text)
 import Data.Maybe
 import Data.Fix
@@ -71,6 +72,7 @@ type instance XAppE RlpcPs = ()
 type instance XLitE RlpcPs = ()
 type instance XParE RlpcPs = ()
 type instance XOAppE RlpcPs = ()
+type instance XXRlpExprE RlpcPs = ()
 
 type PsName = Text
 
@@ -275,3 +277,15 @@ initAlexInput s = AlexInput
     , _aiPos        = (1,1,0)
     }
 
+--------------------------------------------------------------------------------
+
+deriving instance Lift (RlpProgram RlpcPs)
+deriving instance Lift (Decl RlpcPs)
+deriving instance Lift (Pat RlpcPs)
+deriving instance Lift (Lit RlpcPs)
+deriving instance Lift (RlpExpr RlpcPs)
+deriving instance Lift (Binding RlpcPs)
+deriving instance Lift (RlpType RlpcPs)
+deriving instance Lift (Alt RlpcPs)
+deriving instance Lift (ConAlt RlpcPs)
+
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index a3dd30c..56dbcd8 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -51,6 +51,7 @@ import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Data.Functor.Classes
 import Data.Functor.Identity
 import Data.Kind                    (Type)
+import Language.Haskell.TH.Syntax   (Lift)
 import Lens.Micro
 import Lens.Micro.TH
 import Core.Syntax                  hiding (Lit, Type, Binding, Binding')
@@ -156,7 +157,7 @@ type Decl' p = XRec p (Decl p)
 data Assoc = InfixL
            | InfixR
            | Infix
-           deriving (Show)
+           deriving (Show, Lift)
 
 data ConAlt p = ConAlt (IdP p) [RlpType' p]
 
diff --git a/src/Rlp/TH.hs b/src/Rlp/TH.hs
index 5f62fe7..eb4d44c 100644
--- a/src/Rlp/TH.hs
+++ b/src/Rlp/TH.hs
@@ -3,4 +3,34 @@ module Rlp.TH
     , rlpExpr
     )
     where
+--------------------------------------------------------------------------------
+import Language.Haskell.TH
+import Language.Haskell.TH.Syntax
+import Language.Haskell.TH.Quote
+import Data.Text                        (Text)
+import Data.Text                        qualified as T
+import Control.Monad.IO.Class
+import Control.Monad
+
+import Compiler.RLPC
+import Rlp.Parse
+--------------------------------------------------------------------------------
+
+rlpProg :: QuasiQuoter
+rlpProg = mkqq parseRlpProgR
+
+rlpExpr :: QuasiQuoter
+rlpExpr = mkqq parseRlpExprR
+
+mkq :: (Lift a) => (Text -> RLPCIO a) -> String -> Q Exp
+mkq parse = evalAndParse >=> lift where
+    evalAndParse = liftIO . evalRLPCIO def . parse . T.pack
+
+mkqq :: (Lift a) => (Text -> RLPCIO a) -> QuasiQuoter
+mkqq p = QuasiQuoter
+    { quoteExp = mkq p
+    , quotePat = error "rlp quasiquotes may only be used in expressions"
+    , quoteType = error "rlp quasiquotes may only be used in expressions"
+    , quoteDec = error "rlp quasiquotes may only be used in expressions"
+    }
 
-- 
2.52.0


From 4f9f00dfee3c2dcdc09cef73656a70d25139cb90 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Sun, 4 Feb 2024 20:52:23 -0700
Subject: [PATCH 138/192] sc

---
 src/Compiler/Types.hs |  5 +++++
 src/Rlp2Core.hs       | 26 ++++++++++++++++++++------
 2 files changed, 25 insertions(+), 6 deletions(-)

diff --git a/src/Compiler/Types.hs b/src/Compiler/Types.hs
index 5814b58..09c60f1 100644
--- a/src/Compiler/Types.hs
+++ b/src/Compiler/Types.hs
@@ -2,6 +2,7 @@ module Compiler.Types
     ( SrcSpan(..)
     , srcspanLine, srcspanColumn, srcspanAbs, srcspanLen
     , Located(..)
+    , nolo
     , (<<~), (<~>)
 
     -- * Re-exports
@@ -52,6 +53,10 @@ srcspanColumn = tupling . _2
 srcspanAbs = tupling . _3
 srcspanLen = tupling . _4
 
+-- | debug tool
+nolo :: a -> Located a
+nolo = Located (SrcSpan 0 0 0 0)
+
 instance Semigroup SrcSpan where
     SrcSpan la ca aa sa <> SrcSpan lb cb ab sb = SrcSpan l c a s where
         l = min la lb
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 082b23e..791946e 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -11,6 +11,7 @@ import Control.Comonad
 -- import Lens.Micro
 -- import Lens.Micro.Internal
 import Control.Lens
+import Data.List                        (mapAccumL)
 import Data.Text                        (Text)
 import Data.Text                        qualified as T
 import Data.HashMap.Strict              qualified as H
@@ -19,6 +20,7 @@ import Data.Foldable
 import Data.Functor.Bind
 
 import Core.Syntax                      as Core
+import Compiler.Types
 import Rlp.Syntax                       as Rlp
 import Rlp.Parse.Types                  (RlpcPs, PsName)
 --------------------------------------------------------------------------------
@@ -41,14 +43,26 @@ declToCore (DataD'' n as ds) = fold . getZipList $
         -- arguments
         t' = foldl TyApp (TyCon n) (TyVar . dsNameToName <$> as)
 
-declToCore fd@(FunD'' n as e wh) = undefined
+-- TODO: where-binds
+declToCore fd@(FunD'' n as e _) = mempty & programScDefs .~ [ScDef n' as' e'']
+    where
+        n' = dsNameToName n
+        (e',as') = mapAccumL caseify (extract e) (names `zip` as)
+        e'' = exprToCore e'
+        names = [ nolo $ "$x_" <> tshow n | n <- [0..] ]
+        tshow = T.pack . show
 
-caseify :: IdP' RlpcPs -> RlpExpr' RlpcPs -> Pat' RlpcPs
-        -> (RlpExpr RlpcPs, Pat RlpcPs)
-caseify x e p = (e', p') where
-    p' = VarP (extract x)
+-- mapAccumL :: Traversable t => (s -> a -> (s, b)) -> s -> t a -> (s, t b)
+
+caseify :: RlpExpr RlpcPs -> (IdP' RlpcPs, Pat' RlpcPs)
+        -> (RlpExpr RlpcPs, Name)
+caseify e (x,p) = (e', x') where
+    x' = dsNameToName (extract x)
     e' = CaseE (VarE <$> x) [(alt, [])]
-    alt = AltA p e
+    alt = AltA p (nolo e)
+
+exprToCore :: RlpExpr RlpcPs -> Expr'
+exprToCore = undefined
 
 constructorToCore :: Type -> Tag -> ConAlt RlpcPs -> Program'
 constructorToCore t tag (ConAlt cn as) =
-- 
2.52.0


From bd55efc5edf3a31240ead5ec269fb2e69ccf4748 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 6 Feb 2024 10:52:01 -0700
Subject: [PATCH 139/192] expandableAlt

---
 .ghci                 |  9 +++++++++
 rlp.cabal             |  1 +
 src/Compiler/Types.hs |  4 ++++
 src/Rlp/Syntax.hs     | 18 +++++------------
 src/Rlp2Core.hs       | 47 ++++++++++++++++++++++++++++++++++++++++---
 5 files changed, 63 insertions(+), 16 deletions(-)

diff --git a/.ghci b/.ghci
index 4d96080..21ffd96 100644
--- a/.ghci
+++ b/.ghci
@@ -1,5 +1,9 @@
+-- repl extensions
 :set -XOverloadedStrings
 
+--------------------------------------------------------------------------------
+
+-- happy/alex: override :r to rebuild parsers
 :set -package process
 
 :{
@@ -16,3 +20,8 @@ _reload_and_make _ = do
 
 :def! r _reload_and_make
 
+--------------------------------------------------------------------------------
+
+-- import rlpc quasiquoters
+:m + Core.TH Rlp.TH
+
diff --git a/rlp.cabal b/rlp.cabal
index 5719560..2f0d553 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -75,6 +75,7 @@ library
                     , comonad
                     , lens
                     , text-ansi
+                    , microlens-pro ^>=0.2.0
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/Compiler/Types.hs b/src/Compiler/Types.hs
index 09c60f1..5352850 100644
--- a/src/Compiler/Types.hs
+++ b/src/Compiler/Types.hs
@@ -2,6 +2,7 @@ module Compiler.Types
     ( SrcSpan(..)
     , srcspanLine, srcspanColumn, srcspanAbs, srcspanLen
     , Located(..)
+    , locating
     , nolo
     , (<<~), (<~>)
 
@@ -57,6 +58,9 @@ srcspanLen = tupling . _4
 nolo :: a -> Located a
 nolo = Located (SrcSpan 0 0 0 0)
 
+locating :: Lens (Located a) (Located b) a b
+locating = lens extract ($>)
+
 instance Semigroup SrcSpan where
     SrcSpan la ca aa sa <> SrcSpan lb cb ab sb = SrcSpan l c a s where
         l = min la lb
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 56dbcd8..f44e989 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -18,6 +18,8 @@ module Rlp.Syntax
     , ConAlt(..)
     , Binding(..), Binding'
 
+    , _VarP, _LitP, _ConP
+
     -- * Trees That Grow boilerplate
     -- ** Extension points
     , IdP, IdP', XRec, UnXRec(..), MapXRec(..)
@@ -39,8 +41,6 @@ module Rlp.Syntax
     , pattern ConT''
     -- *** Pat
     , pattern VarP'', pattern LitP'', pattern ConP''
-    -- ** NoLocated
-    , NoLocated
     )
     where
 ----------------------------------------------------------------------------------
@@ -52,8 +52,8 @@ import Data.Functor.Classes
 import Data.Functor.Identity
 import Data.Kind                    (Type)
 import Language.Haskell.TH.Syntax   (Lift)
-import Lens.Micro
-import Lens.Micro.TH
+import Lens.Micro.Pro
+import Lens.Micro.Pro.TH
 import Core.Syntax                  hiding (Lit, Type, Binding, Binding')
 import Core                         (HasRHS(..), HasLHS(..))
 ----------------------------------------------------------------------------------
@@ -297,13 +297,5 @@ type Lit' p = XRec p (Lit p)
 --------------------------------------------------------------------------------
 
 makeLenses ''RlpModule
-
---------------------------------------------------------------------------------
-
-data NoLocated
-
-type instance XRec NoLocated a = Identity a
-
-stripLocation :: (UnXRec p) => XRec p a -> f NoLocated
-stripLocation p = undefined
+makePrisms ''Pat
 
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 791946e..c0a59e8 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -52,8 +52,6 @@ declToCore fd@(FunD'' n as e _) = mempty & programScDefs .~ [ScDef n' as' e'']
         names = [ nolo $ "$x_" <> tshow n | n <- [0..] ]
         tshow = T.pack . show
 
--- mapAccumL :: Traversable t => (s -> a -> (s, b)) -> s -> t a -> (s, t b)
-
 caseify :: RlpExpr RlpcPs -> (IdP' RlpcPs, Pat' RlpcPs)
         -> (RlpExpr RlpcPs, Name)
 caseify e (x,p) = (e', x') where
@@ -62,7 +60,50 @@ caseify e (x,p) = (e', x') where
     alt = AltA p (nolo e)
 
 exprToCore :: RlpExpr RlpcPs -> Expr'
-exprToCore = undefined
+
+exprToCore (VarE n) = Var (dsNameToName n)
+
+exprToCore (CaseE e as) = undefined
+
+-- >>> pat1 = nolo $ ConP "C" [nolo $ ConP "P" []]
+-- >>> expandableAlt "name" (AltA pat1 (nolo $ VarE "e"))
+-- Just (ConP "C" [Located (SrcSpan 0 0 0 0) (VarP "name")],ConP "P" [],VarE' () "e")
+-- 
+-- >>> pat2 = nolo $ ConP "C" [nolo $ VarP "p", nolo $ ConP "P" []]
+-- >>> expandableAlt "name" (AltA pat2 (nolo $ VarE "e"))
+-- Just (ConP "C" [Located (SrcSpan 0 0 0 0) (VarP "p"),Located (SrcSpan 0 0 0 0) (VarP "name")],ConP "P" [],VarE' () "e")
+expandableAlt :: IdP RlpcPs -> Alt RlpcPs
+              -> Maybe (Pat RlpcPs, Pat RlpcPs, RlpExpr RlpcPs)
+expandableAlt n (AltA c@(ConP'' cn as) e) = do
+    p <- nestedPat
+    let c' = ConP cn as'
+    pure (c', p, extract e)
+  where
+    l :: Lens' [Pat RlpcPs] (Maybe (Pat RlpcPs))
+    l = atFound (has _ConP)
+    nestedPat = (unXRec <$> as) ^. l
+    as' = (unXRec <$> as) & l ?~ VarP n
+                          & fmap nolo
+
+-- this is an illegal lens, and we're using it illegally. it's convenient :3
+-- TODO: adhere to the holy laws of the Lens Herself
+atFound :: forall a. (a -> Bool) -> Lens' [a] (Maybe a)
+atFound p = lens (find p) alter where
+    alter :: [a] -> Maybe a -> [a]
+    alter l Nothing  = deleteFound l
+    alter l (Just x') = setFound x' l
+
+    deleteFound :: [a] -> [a]
+    deleteFound []  = []
+    deleteFound (x:xs)
+        | p x       = xs
+        | otherwise = x : deleteFound xs
+
+    setFound :: a -> [a] -> [a]
+    setFound _  []  = []
+    setFound x' (x:xs)
+        | p x       = x' : xs
+        | otherwise = x : setFound x' xs
 
 constructorToCore :: Type -> Tag -> ConAlt RlpcPs -> Program'
 constructorToCore t tag (ConAlt cn as) =
-- 
2.52.0


From 0c98bca174b58ac2a42d3e786ca03907c9654bb8 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 6 Feb 2024 11:04:17 -0700
Subject: [PATCH 140/192] expandableAlt

---
 src/Rlp2Core.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index c0a59e8..ee9e0e0 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -74,13 +74,13 @@ exprToCore (CaseE e as) = undefined
 -- Just (ConP "C" [Located (SrcSpan 0 0 0 0) (VarP "p"),Located (SrcSpan 0 0 0 0) (VarP "name")],ConP "P" [],VarE' () "e")
 expandableAlt :: IdP RlpcPs -> Alt RlpcPs
               -> Maybe (Pat RlpcPs, Pat RlpcPs, RlpExpr RlpcPs)
-expandableAlt n (AltA c@(ConP'' cn as) e) = do
-    p <- nestedPat
-    let c' = ConP cn as'
-    pure (c', p, extract e)
+expandableAlt n (AltA c@(ConP'' cn as) e) =
+    nestedPat <&> (c', , extract e)
   where
     l :: Lens' [Pat RlpcPs] (Maybe (Pat RlpcPs))
     l = atFound (has _ConP)
+
+    c' = ConP cn as'
     nestedPat = (unXRec <$> as) ^. l
     as' = (unXRec <$> as) & l ?~ VarP n
                           & fmap nolo
-- 
2.52.0


From 57f5206b16ac42bc35e5ab2a6f44a31cacdc76c4 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 6 Feb 2024 12:08:37 -0700
Subject: [PATCH 141/192] fix layout_let

---
 src/Rlp/Lex.x | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index adc30f5..6552fdc 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -127,7 +127,7 @@ $white_no_nl+       ;
 <layout_let>
 {
     \n                  { beginPush bol }
-    "{"                 { explicitLBrace }
+    "{"                 { explicitLBrace `thenDo` popLexState }
     "in"                { constToken TokenIn `thenDo` (popLexState *> popLayout) }
     ()                  { doLayout }
 }
-- 
2.52.0


From 15884336f18d7077f3ef468d44aaeb7f53b5f405 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 6 Feb 2024 13:04:36 -0700
Subject: [PATCH 142/192] parse case exprs

---
 src/Compiler/Types.hs |  9 ++++++++-
 src/Rlp/Lex.x         | 15 +++++++++------
 src/Rlp/Parse.y       | 33 +++++++++++++++++++++++++++++++--
 3 files changed, 48 insertions(+), 9 deletions(-)

diff --git a/src/Compiler/Types.hs b/src/Compiler/Types.hs
index 5352850..7329844 100644
--- a/src/Compiler/Types.hs
+++ b/src/Compiler/Types.hs
@@ -4,7 +4,7 @@ module Compiler.Types
     , Located(..)
     , locating
     , nolo
-    , (<<~), (<~>)
+    , (<<~), (<~>), (<#>)
 
     -- * Re-exports
     , Comonad
@@ -86,3 +86,10 @@ mc <~> ma = mc >>- \f -> ma =>> f
 
 infixl 4 <~>
 
+-- this is getting silly
+
+(<#>) :: (Functor f) => f (a -> b) -> a -> f b
+fab <#> a = fmap ($ a) fab
+
+infixl 4 <#>
+
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 6552fdc..4222694 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -85,6 +85,7 @@ $white_no_nl+       ;
 <0>
 {
     "let"               { constToken TokenLet `thenBeginPush` layout_let }
+    "of"                { constToken TokenOf `thenBeginPush` layout_of }
 }
 
 -- scan various identifiers and reserved words. order is important here!
@@ -124,18 +125,19 @@ $white_no_nl+       ;
     ()                  { doBol }
 }
 
-<layout_let>
+<layout, layout_let, layout_of>
 {
     \n                  { beginPush bol }
     "{"                 { explicitLBrace `thenDo` popLexState }
-    "in"                { constToken TokenIn `thenDo` (popLexState *> popLayout) }
-    ()                  { doLayout }
 }
 
-<layout_top>
+<layout_let>
+{
+    "in"                { constToken TokenIn `thenDo` (popLexState *> popLayout) }
+}
+
+<layout, layout_top, layout_let, layout_of>
 {
-    \n                  ;
-    "{"                 { explicitLBrace `thenDo` popLexState }
     ()                  { doLayout }
 }
 
@@ -157,6 +159,7 @@ lexReservedOp = \case
     "="     -> TokenEquals
     "::"    -> TokenHasType
     "|"     -> TokenPipe
+    "->"    -> TokenArrow
 
 -- | @andBegin@, with the subtle difference that the start code is set
 --   /after/ the action
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 398d7a3..5623a70 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -25,6 +25,7 @@ import Data.Semigroup.Traversable
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.Void
+import Compiler.Types
 }
 
 %name parseRlpProg StandaloneProgram
@@ -42,6 +43,8 @@ import Data.Void
     consym          { Located _ (TokenConSym _) }
     varsym          { Located _ (TokenVarSym _) }
     data            { Located _ TokenData }
+    case            { Located _ TokenCase }
+    of              { Located _ TokenOf }
     litint          { Located _ (TokenLitInt _) }
     '='             { Located _ TokenEquals }
     '|'             { Located _ TokenPipe }
@@ -150,6 +153,9 @@ Params      :: { [Pat' RlpcPs] }
 Params      : {- epsilon -}             { [] }
             | Params Pat1               { $1 `snoc` $2 }
 
+Pat         :: { Pat' RlpcPs }
+            : Pat1                      { $1 }
+
 Pat1        :: { Pat' RlpcPs }
             : Var                       { fmap VarP $1 }
             | Lit                       { LitP <<= $1 }
@@ -157,20 +163,43 @@ Pat1        :: { Pat' RlpcPs }
 Expr        :: { RlpExpr' RlpcPs }
             : Expr1 InfixOp Expr        { $2 =>> \o ->
                                           OAppE (extract o) $1 $3 }
-            | Expr1                     { $1 }
             | LetExpr                   { $1 }
+            | CaseExpr                  { $1 }
+            | Expr1                     { $1 }
 
 LetExpr     :: { RlpExpr' RlpcPs }
             : let layout1(Binding) in Expr { $1 \$> LetE $2 $4 }
 
+CaseExpr    :: { RlpExpr' RlpcPs }
+            : case Expr of layout0(CaseAlt)
+                { CaseE <<~ $2 <#> $4 }
+
+-- TODO: where-binds
+CaseAlt     :: { (Alt RlpcPs, Where RlpcPs) }
+            : Alt                           { ($1, []) }
+
+Alt         :: { Alt RlpcPs }
+            : Pat '->' Expr                 { AltA $1 $3 }
+
+-- layout0(p : β) :: [β]
+layout0(p)  : '{' layout_list0(';',p) '}'   { $2 }
+            | VL  layout_list0(VS,p)  VR    { $2 }
+
+-- layout_list0(sep : α, p : β) :: [β]
+layout_list0(sep,p) : p                          { [$1] }
+                    | layout_list1(sep,p) sep p  { $1 `snoc` $3 }
+                    | {- epsilon -}              { [] }
+
+-- layout1(p : β) :: [β]
 layout1(p)  : '{' layout_list1(';',p) '}'   { $2 }
             | VL  layout_list1(VS,p) VR     { $2 }
 
+-- layout_list1(sep : α, p : β) :: [β]
 layout_list1(sep,p) : p                          { [$1] }
                     | layout_list1(sep,p) sep p  { $1 `snoc` $3 }
 
 Binding     :: { Binding' RlpcPs }
-            : Pat1 '=' Expr              { PatB <<~ $1 <~> $3 }
+            : Pat '=' Expr              { PatB <<~ $1 <~> $3 }
 
 Expr1       :: { RlpExpr' RlpcPs }
             : '(' Expr ')'              { $1 .> $2 <. $3 }
-- 
2.52.0


From 2895e3cb480c75223586175c266fa71cedcfdbf7 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 6 Feb 2024 13:39:01 -0700
Subject: [PATCH 143/192] case unrolling

---
 .ghci              |  3 ---
 rlp.cabal          |  1 +
 src/Core/Syntax.hs |  2 +-
 src/Rlp/Parse.y    | 12 ++++++++++--
 src/Rlp/Syntax.hs  |  2 +-
 src/Rlp2Core.hs    | 28 +++++++++++++++++++++++-----
 6 files changed, 36 insertions(+), 12 deletions(-)

diff --git a/.ghci b/.ghci
index 21ffd96..75be915 100644
--- a/.ghci
+++ b/.ghci
@@ -22,6 +22,3 @@ _reload_and_make _ = do
 
 --------------------------------------------------------------------------------
 
--- import rlpc quasiquoters
-:m + Core.TH Rlp.TH
-
diff --git a/rlp.cabal b/rlp.cabal
index 2f0d553..a2bcd50 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -84,6 +84,7 @@ library
         OverloadedStrings
         TypeFamilies
         LambdaCase
+        ViewPatterns
 
 executable rlpc
     import:           warnings
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index cad53be..7b71f91 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -121,7 +121,7 @@ data Rec = Rec
 data AltCon = AltData Name
             | AltTag Tag
             | AltLit Lit
-            | Default
+            | AltDefault
             deriving (Show, Read, Eq, Lift)
 
 newtype Lit = IntL Int
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 5623a70..c48ff38 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -154,11 +154,19 @@ Params      : {- epsilon -}             { [] }
             | Params Pat1               { $1 `snoc` $2 }
 
 Pat         :: { Pat' RlpcPs }
-            : Pat1                      { $1 }
+            : Con Pat1s                 { $1 =>> \cn ->
+                                          ConP (extract $1) $2 }
+            | Pat1                      { $1 }
+
+Pat1s       :: { [Pat' RlpcPs] }
+            : Pat1s Pat1                { $1 `snoc` $2 }
+            | Pat1                      { [$1] }
 
 Pat1        :: { Pat' RlpcPs }
-            : Var                       { fmap VarP $1 }
+            : Con                       { fmap (`ConP` []) $1 }
+            | Var                       { fmap VarP $1 }
             | Lit                       { LitP <<= $1 }
+            | '(' Pat ')'               { $1 .> $2 <. $3 }
 
 Expr        :: { RlpExpr' RlpcPs }
             : Expr1 InfixOp Expr        { $2 =>> \o ->
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index f44e989..771ee3b 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -11,7 +11,7 @@ module Rlp.Syntax
     , progDecls
     , Decl(..), Decl', RlpExpr(..), RlpExpr'
     , Pat(..), Pat'
-    , Alt(..)
+    , Alt(..), Where
     , Assoc(..)
     , Lit(..), Lit'
     , RlpType(..), RlpType'
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index ee9e0e0..f079ebf 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -18,6 +18,7 @@ import Data.HashMap.Strict              qualified as H
 import Data.Monoid                      (Endo(..))
 import Data.Foldable
 import Data.Functor.Bind
+import Debug.Trace
 
 import Core.Syntax                      as Core
 import Compiler.Types
@@ -63,7 +64,23 @@ exprToCore :: RlpExpr RlpcPs -> Expr'
 
 exprToCore (VarE n) = Var (dsNameToName n)
 
-exprToCore (CaseE e as) = undefined
+exprToCore (CaseE (unXRec -> e) as) = Case (exprToCore e) (caseAltToCore <$> as)
+
+-- TODO: where-binds
+caseAltToCore :: (Alt RlpcPs, Where RlpcPs) -> Alter'
+caseAltToCore (AltA (VarP'' x) e, wh) =
+    Alter AltDefault [] (exprToCore $ unXRec e)
+caseAltToCore (AltA rootPat@(ConP'' cn as) e, wh) =
+    case firstNestedPat of
+        -- this case matches a nested pattern, which must be unrolled:
+        Just (c,p) -> undefined
+        -- no nested patterns! direct translation:
+        Nothing    -> Alter (AltData cn) as' e'
+            where
+                as' = (\ (VarP'' x) -> dsNameToName x) <$> traceShowId as
+                e' = exprToCore (unXRec e)
+  where
+    firstNestedPat = expandableAlt "NAME" . unXRec $ rootPat
 
 -- >>> pat1 = nolo $ ConP "C" [nolo $ ConP "P" []]
 -- >>> expandableAlt "name" (AltA pat1 (nolo $ VarE "e"))
@@ -72,10 +89,10 @@ exprToCore (CaseE e as) = undefined
 -- >>> pat2 = nolo $ ConP "C" [nolo $ VarP "p", nolo $ ConP "P" []]
 -- >>> expandableAlt "name" (AltA pat2 (nolo $ VarE "e"))
 -- Just (ConP "C" [Located (SrcSpan 0 0 0 0) (VarP "p"),Located (SrcSpan 0 0 0 0) (VarP "name")],ConP "P" [],VarE' () "e")
-expandableAlt :: IdP RlpcPs -> Alt RlpcPs
-              -> Maybe (Pat RlpcPs, Pat RlpcPs, RlpExpr RlpcPs)
-expandableAlt n (AltA c@(ConP'' cn as) e) =
-    nestedPat <&> (c', , extract e)
+expandableAlt :: IdP RlpcPs -> Pat RlpcPs
+              -> Maybe (Pat RlpcPs, Pat RlpcPs)
+expandableAlt n c@(ConP cn as) =
+    nestedPat <&> (c',)
   where
     l :: Lens' [Pat RlpcPs] (Maybe (Pat RlpcPs))
     l = atFound (has _ConP)
@@ -84,6 +101,7 @@ expandableAlt n (AltA c@(ConP'' cn as) e) =
     nestedPat = (unXRec <$> as) ^. l
     as' = (unXRec <$> as) & l ?~ VarP n
                           & fmap nolo
+expandableAlt _ _ = Nothing
 
 -- this is an illegal lens, and we're using it illegally. it's convenient :3
 -- TODO: adhere to the holy laws of the Lens Herself
-- 
2.52.0


From 12d261ede112150a7ae03e9916ab759f2544cc9e Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 6 Feb 2024 18:49:41 -0700
Subject: [PATCH 144/192] rose

---
 rlp.cabal       |  2 ++
 src/Rlp2Core.hs | 77 ++++++++++++++++---------------------------------
 2 files changed, 27 insertions(+), 52 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index a2bcd50..4707cd3 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -76,6 +76,8 @@ library
                     , lens
                     , text-ansi
                     , microlens-pro ^>=0.2.0
+                    , effectful-core ^>=2.3.0.0
+                    , deriving-compat ^>=0.6.0
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index f079ebf..2d34a1e 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE DeriveTraversable #-}
 module Rlp2Core
     ( rlpProgToCore
     )
@@ -17,8 +19,14 @@ import Data.Text                        qualified as T
 import Data.HashMap.Strict              qualified as H
 import Data.Monoid                      (Endo(..))
 import Data.Foldable
+import Data.Fix
+import Data.Maybe                       (fromJust)
 import Data.Functor.Bind
 import Debug.Trace
+import Effectful.State.Static.Local
+import Effectful
+import Control.Monad.Utils              (mapAccumLM)
+import Text.Show.Deriving
 
 import Core.Syntax                      as Core
 import Compiler.Types
@@ -26,6 +34,12 @@ import Rlp.Syntax                       as Rlp
 import Rlp.Parse.Types                  (RlpcPs, PsName)
 --------------------------------------------------------------------------------
 
+data Branch a = Branch Name [Either Name (Name, Branch a)]
+    deriving (Show, Functor, Foldable, Traversable)
+type Rose = Fix Branch
+
+deriveShow1 ''Branch
+
 -- the rl' program is desugared by desugaring each declaration as a separate
 -- program, and taking the monoidal product of the lot :3
 
@@ -68,60 +82,19 @@ exprToCore (CaseE (unXRec -> e) as) = Case (exprToCore e) (caseAltToCore <$> as)
 
 -- TODO: where-binds
 caseAltToCore :: (Alt RlpcPs, Where RlpcPs) -> Alter'
-caseAltToCore (AltA (VarP'' x) e, wh) =
-    Alter AltDefault [] (exprToCore $ unXRec e)
-caseAltToCore (AltA rootPat@(ConP'' cn as) e, wh) =
-    case firstNestedPat of
-        -- this case matches a nested pattern, which must be unrolled:
-        Just (c,p) -> undefined
-        -- no nested patterns! direct translation:
-        Nothing    -> Alter (AltData cn) as' e'
-            where
-                as' = (\ (VarP'' x) -> dsNameToName x) <$> traceShowId as
-                e' = exprToCore (unXRec e)
-  where
-    firstNestedPat = expandableAlt "NAME" . unXRec $ rootPat
+caseAltToCore = undefined
 
--- >>> pat1 = nolo $ ConP "C" [nolo $ ConP "P" []]
--- >>> expandableAlt "name" (AltA pat1 (nolo $ VarE "e"))
--- Just (ConP "C" [Located (SrcSpan 0 0 0 0) (VarP "name")],ConP "P" [],VarE' () "e")
--- 
--- >>> pat2 = nolo $ ConP "C" [nolo $ VarP "p", nolo $ ConP "P" []]
--- >>> expandableAlt "name" (AltA pat2 (nolo $ VarE "e"))
--- Just (ConP "C" [Located (SrcSpan 0 0 0 0) (VarP "p"),Located (SrcSpan 0 0 0 0) (VarP "name")],ConP "P" [],VarE' () "e")
-expandableAlt :: IdP RlpcPs -> Pat RlpcPs
-              -> Maybe (Pat RlpcPs, Pat RlpcPs)
-expandableAlt n c@(ConP cn as) =
-    nestedPat <&> (c',)
-  where
-    l :: Lens' [Pat RlpcPs] (Maybe (Pat RlpcPs))
-    l = atFound (has _ConP)
+conToRose :: forall es. (State [IdP RlpcPs] :> es) => Pat RlpcPs -> Eff es Rose
+conToRose (ConP cn as) = Fix . Branch cn <$> patToBranch `traverse` as
+    where
+        patToBranch :: Pat' RlpcPs -> Eff es (Either Name (Name, Branch (Fix Branch)))
+        patToBranch (VarP'' x) = pure $ Left (dsNameToName x)
+        patToBranch p@(ConP'' _ _) =
+            Right <$> liftA2 (,) getName br
+          where
+            br = unwrapFix <$> conToRose (unXRec p)
 
-    c' = ConP cn as'
-    nestedPat = (unXRec <$> as) ^. l
-    as' = (unXRec <$> as) & l ?~ VarP n
-                          & fmap nolo
-expandableAlt _ _ = Nothing
-
--- this is an illegal lens, and we're using it illegally. it's convenient :3
--- TODO: adhere to the holy laws of the Lens Herself
-atFound :: forall a. (a -> Bool) -> Lens' [a] (Maybe a)
-atFound p = lens (find p) alter where
-    alter :: [a] -> Maybe a -> [a]
-    alter l Nothing  = deleteFound l
-    alter l (Just x') = setFound x' l
-
-    deleteFound :: [a] -> [a]
-    deleteFound []  = []
-    deleteFound (x:xs)
-        | p x       = xs
-        | otherwise = x : deleteFound xs
-
-    setFound :: a -> [a] -> [a]
-    setFound _  []  = []
-    setFound x' (x:xs)
-        | p x       = x' : xs
-        | otherwise = x : setFound x' xs
+        getName = state $ fromJust . uncons @[IdP RlpcPs]
 
 constructorToCore :: Type -> Tag -> ConAlt RlpcPs -> Program'
 constructorToCore t tag (ConAlt cn as) =
-- 
2.52.0


From 868b63e6ef205ec410bfcc635e241baaa89c5e32 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 11:08:17 -0700
Subject: [PATCH 145/192] her light cuts deep time and time again

('her' of course referring to the field of computer science)
---
 src/Rlp2Core.hs | 49 +++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 43 insertions(+), 6 deletions(-)

diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 2d34a1e..2edfcb3 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -7,6 +7,7 @@ module Rlp2Core
 --------------------------------------------------------------------------------
 import Control.Monad
 import Control.Monad.Writer.CPS
+import Control.Monad.Utils              (mapAccumLM)
 import Control.Arrow
 import Control.Applicative
 import Control.Comonad
@@ -25,7 +26,6 @@ import Data.Functor.Bind
 import Debug.Trace
 import Effectful.State.Static.Local
 import Effectful
-import Control.Monad.Utils              (mapAccumLM)
 import Text.Show.Deriving
 
 import Core.Syntax                      as Core
@@ -34,8 +34,18 @@ import Rlp.Syntax                       as Rlp
 import Rlp.Parse.Types                  (RlpcPs, PsName)
 --------------------------------------------------------------------------------
 
-data Branch a = Branch Name [Either Name (Name, Branch a)]
+type Tree a = Either Name (Name, Branch a)
+
+-- | Rose tree branch representing "nested" "patterns" in the Core language. That
+-- is, a constructor with children that are either a normal binder (Left (Given)
+-- name) or an indirection to another pattern (Right (Generated name) (Pattern))
+
+data Branch a = Branch Name [Tree a]
     deriving (Show, Functor, Foldable, Traversable)
+
+-- | The actual rose tree.
+-- @type Rose = 'Data.Fix.Fix' 'Branch'@
+
 type Rose = Fix Branch
 
 deriveShow1 ''Branch
@@ -84,18 +94,45 @@ exprToCore (CaseE (unXRec -> e) as) = Case (exprToCore e) (caseAltToCore <$> as)
 caseAltToCore :: (Alt RlpcPs, Where RlpcPs) -> Alter'
 caseAltToCore = undefined
 
+-- roseToCore :: Rose -> Expr' -> Alter'
+-- roseToCore (unFix -> Branch cn as) = alter
+--     where
+--         alter :: Alter'
+--         alter = Alter (AltData cn) (treeToCore <$> as) (Var "expr")
+--         -- foldFix :: Functor f => (f a -> a) -> Fix f -> a
+--         treeToCore :: Tree Rose -> Expr' -> Expr'
+--         treeToCore (Left n)       = id
+--         treeToCore (Right (n,cs)) = \e -> Case (Var n) [_]
+
 conToRose :: forall es. (State [IdP RlpcPs] :> es) => Pat RlpcPs -> Eff es Rose
-conToRose (ConP cn as) = Fix . Branch cn <$> patToBranch `traverse` as
+conToRose (ConP cn as) = Fix . Branch cn <$> patToForrest `traverse` as
     where
-        patToBranch :: Pat' RlpcPs -> Eff es (Either Name (Name, Branch (Fix Branch)))
-        patToBranch (VarP'' x) = pure $ Left (dsNameToName x)
-        patToBranch p@(ConP'' _ _) =
+        patToForrest :: Pat' RlpcPs -> Eff es (Tree Rose)
+        patToForrest (VarP'' x) = pure $ Left (dsNameToName x)
+        patToForrest p@(ConP'' _ _) =
             Right <$> liftA2 (,) getName br
           where
             br = unwrapFix <$> conToRose (unXRec p)
 
         getName = state $ fromJust . uncons @[IdP RlpcPs]
 
+test :: Expr' -> Branch Alter' -> Alter'
+test e (Branch cn as) = Alter (AltData cn) myBinds e'
+    where
+        (e', myBinds) = mapAccumL f e as
+
+        f :: Expr' -> Tree Alter' -> (Expr', Name)
+        f e (Left n)       = (e, dsNameToName n)
+        f e (Right (n,cs)) = (e', dsNameToName n) where
+            e' = Case (Var $ dsNameToName n) [test e cs]
+
+runNames = runPureEff . evalState nameSupply
+
+-- | debug tool
+
+nameSupply :: [IdP RlpcPs]
+nameSupply = [ T.pack $ "$x_" <> show n | n <- [0..] ]
+
 constructorToCore :: Type -> Tag -> ConAlt RlpcPs -> Program'
 constructorToCore t tag (ConAlt cn as) =
     mempty & programTypeSigs . at cn ?~ foldr (:->) t as'
-- 
2.52.0


From d6529d50ff5b04b8e50c6efa90215fecc96a91db Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 11:19:36 -0700
Subject: [PATCH 146/192] tidying

---
 rlp.cabal       |  1 +
 src/Rlp2Core.hs | 13 +++++++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 4707cd3..c082198 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -87,6 +87,7 @@ library
         TypeFamilies
         LambdaCase
         ViewPatterns
+        DataKinds
 
 executable rlpc
     import:           warnings
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 2edfcb3..4ba95df 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -116,19 +116,24 @@ conToRose (ConP cn as) = Fix . Branch cn <$> patToForrest `traverse` as
 
         getName = state $ fromJust . uncons @[IdP RlpcPs]
 
-test :: Expr' -> Branch Alter' -> Alter'
-test e (Branch cn as) = Alter (AltData cn) myBinds e'
+branchToCore :: Expr' -> Branch Alter' -> Alter'
+branchToCore e (Branch cn as) = Alter (AltData cn) myBinds e'
     where
+        -- gather binders for the /current/ pattern, and build an expression
+        -- matching subpatterns
         (e', myBinds) = mapAccumL f e as
 
         f :: Expr' -> Tree Alter' -> (Expr', Name)
         f e (Left n)       = (e, dsNameToName n)
         f e (Right (n,cs)) = (e', dsNameToName n) where
-            e' = Case (Var $ dsNameToName n) [test e cs]
+            e' = Case (Var $ dsNameToName n) [branchToCore e cs]
 
+-- | debug helper
+
+runNames :: Eff '[State [PsName]] c -> c
 runNames = runPureEff . evalState nameSupply
 
--- | debug tool
+-- | debug helper
 
 nameSupply :: [IdP RlpcPs]
 nameSupply = [ T.pack $ "$x_" <> show n | n <- [0..] ]
-- 
2.52.0


From 71170d6d428da5fe54def54f7453d67043007c25 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 11:43:33 -0700
Subject: [PATCH 147/192] NameSupply effect

---
 src/Rlp2Core.hs | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 4ba95df..5fd15c6 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -25,6 +25,7 @@ import Data.Maybe                       (fromJust)
 import Data.Functor.Bind
 import Debug.Trace
 import Effectful.State.Static.Local
+import Effectful.Labeled
 import Effectful
 import Text.Show.Deriving
 
@@ -73,7 +74,7 @@ declToCore fd@(FunD'' n as e _) = mempty & programScDefs .~ [ScDef n' as' e'']
     where
         n' = dsNameToName n
         (e',as') = mapAccumL caseify (extract e) (names `zip` as)
-        e'' = exprToCore e'
+        e'' = runPureEff . runNameSupply n $ exprToCore e'
         names = [ nolo $ "$x_" <> tshow n | n <- [0..] ]
         tshow = T.pack . show
 
@@ -84,11 +85,13 @@ caseify e (x,p) = (e', x') where
     e' = CaseE (VarE <$> x) [(alt, [])]
     alt = AltA p (nolo e)
 
-exprToCore :: RlpExpr RlpcPs -> Expr'
+type NameSupply = Labeled "expr-name-supply" (State [IdP RlpcPs])
 
-exprToCore (VarE n) = Var (dsNameToName n)
+exprToCore :: (NameSupply :> es) => RlpExpr RlpcPs -> Eff es Expr'
 
-exprToCore (CaseE (unXRec -> e) as) = Case (exprToCore e) (caseAltToCore <$> as)
+exprToCore (VarE n) = pure $ Var (dsNameToName n)
+
+exprToCore (CaseE (unXRec -> e) as) = undefined
 
 -- TODO: where-binds
 caseAltToCore :: (Alt RlpcPs, Where RlpcPs) -> Alter'
@@ -128,10 +131,9 @@ branchToCore e (Branch cn as) = Alter (AltData cn) myBinds e'
         f e (Right (n,cs)) = (e', dsNameToName n) where
             e' = Case (Var $ dsNameToName n) [branchToCore e cs]
 
--- | debug helper
-
-runNames :: Eff '[State [PsName]] c -> c
-runNames = runPureEff . evalState nameSupply
+runNameSupply :: IdP RlpcPs -> Eff (NameSupply ': es) a -> Eff es a
+runNameSupply n = runLabeled @"expr-name-supply" (evalState ns) where
+    ns = [ "$" <> n <> "_" <> T.pack (show k) | k <- [0..] ]
 
 -- | debug helper
 
-- 
2.52.0


From 77d27dccde2e0f893e190c990d4eb43f5aca331b Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 12:09:16 -0700
Subject: [PATCH 148/192] tidy

---
 src/Rlp2Core.hs | 46 ++++++++++++++++++++++++----------------------
 1 file changed, 24 insertions(+), 22 deletions(-)

diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 5fd15c6..7fa52df 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -21,7 +21,7 @@ import Data.HashMap.Strict              qualified as H
 import Data.Monoid                      (Endo(..))
 import Data.Foldable
 import Data.Fix
-import Data.Maybe                       (fromJust)
+import Data.Maybe                       (fromJust, fromMaybe)
 import Data.Functor.Bind
 import Debug.Trace
 import Effectful.State.Static.Local
@@ -73,19 +73,23 @@ declToCore (DataD'' n as ds) = fold . getZipList $
 declToCore fd@(FunD'' n as e _) = mempty & programScDefs .~ [ScDef n' as' e'']
     where
         n' = dsNameToName n
-        (e',as') = mapAccumL caseify (extract e) (names `zip` as)
+        -- e   : verbatim function body
+        -- e'  : function body w/ case-exprs matching pattern arguments
+        -- e'' : exprToCore e'
+        (e',as') = mapAccumL patArgsToCase (extract e) (names `zip` as)
         e'' = runPureEff . runNameSupply n $ exprToCore e'
         names = [ nolo $ "$x_" <> tshow n | n <- [0..] ]
         tshow = T.pack . show
 
-caseify :: RlpExpr RlpcPs -> (IdP' RlpcPs, Pat' RlpcPs)
+patArgsToCase :: RlpExpr RlpcPs -> (IdP' RlpcPs, Pat' RlpcPs)
         -> (RlpExpr RlpcPs, Name)
-caseify e (x,p) = (e', x') where
+patArgsToCase e (x,p) = (e', x') where
     x' = dsNameToName (extract x)
     e' = CaseE (VarE <$> x) [(alt, [])]
     alt = AltA p (nolo e)
 
-type NameSupply = Labeled "expr-name-supply" (State [IdP RlpcPs])
+type NameSupply = Labeled NameSupplyLabel (State [IdP RlpcPs])
+type NameSupplyLabel = "expr-name-supply"
 
 exprToCore :: (NameSupply :> es) => RlpExpr RlpcPs -> Eff es Expr'
 
@@ -94,31 +98,22 @@ exprToCore (VarE n) = pure $ Var (dsNameToName n)
 exprToCore (CaseE (unXRec -> e) as) = undefined
 
 -- TODO: where-binds
-caseAltToCore :: (Alt RlpcPs, Where RlpcPs) -> Alter'
-caseAltToCore = undefined
+caseAltToCore :: (NameSupply :> es)
+              => (Alt RlpcPs, Where RlpcPs) -> Eff es Alter'
+caseAltToCore (AltA (extract -> p) e, wh) = undefined
+    where
+        
 
--- roseToCore :: Rose -> Expr' -> Alter'
--- roseToCore (unFix -> Branch cn as) = alter
---     where
---         alter :: Alter'
---         alter = Alter (AltData cn) (treeToCore <$> as) (Var "expr")
---         -- foldFix :: Functor f => (f a -> a) -> Fix f -> a
---         treeToCore :: Tree Rose -> Expr' -> Expr'
---         treeToCore (Left n)       = id
---         treeToCore (Right (n,cs)) = \e -> Case (Var n) [_]
-
-conToRose :: forall es. (State [IdP RlpcPs] :> es) => Pat RlpcPs -> Eff es Rose
+conToRose :: forall es. (NameSupply :> es) => Pat RlpcPs -> Eff es Rose
 conToRose (ConP cn as) = Fix . Branch cn <$> patToForrest `traverse` as
     where
         patToForrest :: Pat' RlpcPs -> Eff es (Tree Rose)
         patToForrest (VarP'' x) = pure $ Left (dsNameToName x)
         patToForrest p@(ConP'' _ _) =
-            Right <$> liftA2 (,) getName br
+            Right <$> liftA2 (,) uniqueName br
           where
             br = unwrapFix <$> conToRose (unXRec p)
 
-        getName = state $ fromJust . uncons @[IdP RlpcPs]
-
 branchToCore :: Expr' -> Branch Alter' -> Alter'
 branchToCore e (Branch cn as) = Alter (AltData cn) myBinds e'
     where
@@ -132,7 +127,7 @@ branchToCore e (Branch cn as) = Alter (AltData cn) myBinds e'
             e' = Case (Var $ dsNameToName n) [branchToCore e cs]
 
 runNameSupply :: IdP RlpcPs -> Eff (NameSupply ': es) a -> Eff es a
-runNameSupply n = runLabeled @"expr-name-supply" (evalState ns) where
+runNameSupply n = runLabeled @NameSupplyLabel (evalState ns) where
     ns = [ "$" <> n <> "_" <> T.pack (show k) | k <- [0..] ]
 
 -- | debug helper
@@ -140,6 +135,13 @@ runNameSupply n = runLabeled @"expr-name-supply" (evalState ns) where
 nameSupply :: [IdP RlpcPs]
 nameSupply = [ T.pack $ "$x_" <> show n | n <- [0..] ]
 
+uniqueName :: (NameSupply :> es) => Eff es (IdP RlpcPs)
+uniqueName = labeled @NameSupplyLabel @(State [IdP RlpcPs]) $
+    state @[IdP RlpcPs] (fromMaybe err . uncons)
+  where
+    err = error "NameSupply ran out of names! This shound never happen.\
+                \ The caller of runNameSupply is responsible."
+
 constructorToCore :: Type -> Tag -> ConAlt RlpcPs -> Program'
 constructorToCore t tag (ConAlt cn as) =
     mempty & programTypeSigs . at cn ?~ foldr (:->) t as'
-- 
2.52.0


From 719d5a40890da35adab022982038bba96e1f58c2 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 14:26:47 -0700
Subject: [PATCH 149/192] fix incomplete byTag

---
 src/Compiler/RLPC.hs |  1 +
 src/Rlp2Core.hs      | 10 ++++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index 5468223..c75ac95 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -183,6 +183,7 @@ putRlpcErrs opts = filter byTag
         byTag :: MsgEnvelope RlpcError -> Bool
         byTag (view msgSeverity -> SevDebug t) =
             t `S.member` dflags
+        byTag _ = True
 
 prettyRlpcMsg :: MsgEnvelope RlpcError -> String
 prettyRlpcMsg m@(view msgSeverity -> SevDebug _) = prettyRlpcDebugMsg m
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 7fa52df..4e4d279 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -95,14 +95,16 @@ exprToCore :: (NameSupply :> es) => RlpExpr RlpcPs -> Eff es Expr'
 
 exprToCore (VarE n) = pure $ Var (dsNameToName n)
 
-exprToCore (CaseE (unXRec -> e) as) = undefined
+exprToCore (CaseE (unXRec -> e) as) = do
+    e' <- exprToCore e
+    Case e' <$> caseAltToCore `traverse` as
 
 -- TODO: where-binds
 caseAltToCore :: (NameSupply :> es)
               => (Alt RlpcPs, Where RlpcPs) -> Eff es Alter'
-caseAltToCore (AltA (extract -> p) e, wh) = undefined
-    where
-        
+caseAltToCore (AltA (unXRec -> p) e, wh) = do
+    e' <- exprToCore . unXRec $ e
+    conToRose p <&> foldFix (branchToCore e')
 
 conToRose :: forall es. (NameSupply :> es) => Pat RlpcPs -> Eff es Rose
 conToRose (ConP cn as) = Fix . Branch cn <$> patToForrest `traverse` as
-- 
2.52.0


From 98bed8480786ce17e5ac6be24bf544719d95baf1 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 15:18:47 -0700
Subject: [PATCH 150/192] desugar

---
 src/Rlp/Parse.y | 12 ++++++++++--
 src/Rlp2Core.hs | 14 +++++++++++++-
 2 files changed, 23 insertions(+), 3 deletions(-)

diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index c48ff38..51eaf4c 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -143,7 +143,11 @@ Type1       :: { RlpType' RlpcPs }
 
 Type        :: { RlpType' RlpcPs }
             : Type '->' Type            { FunT <<~ $1 <~> $3 }
-            | Type1                     { $1 }
+            | TypeApp                   { $1 }
+
+TypeApp     :: { RlpType' RlpcPs }
+            : Type1                     { $1 }
+            | TypeApp Type1             { AppT <<~ $1 <~> $2 }
 
 FunDecl     :: { Decl' RlpcPs }
 FunDecl     : Var Params '=' Expr       { $4 =>> \e ->
@@ -173,7 +177,11 @@ Expr        :: { RlpExpr' RlpcPs }
                                           OAppE (extract o) $1 $3 }
             | LetExpr                   { $1 }
             | CaseExpr                  { $1 }
-            | Expr1                     { $1 }
+            | ExprApp                   { $1 }
+
+ExprApp     :: { RlpExpr' RlpcPs }
+            : Expr1                     { $1 }
+            | ExprApp Expr1             { AppE <<~ $1 <~> $2 }
 
 LetExpr     :: { RlpExpr' RlpcPs }
             : let layout1(Binding) in Expr { $1 \$> LetE $2 $4 }
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 4e4d279..017c2d6 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -1,7 +1,8 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE DeriveTraversable #-}
 module Rlp2Core
-    ( rlpProgToCore
+    ( desugarRlpProg
+    , desugarRlpExpr
     )
     where
 --------------------------------------------------------------------------------
@@ -23,6 +24,7 @@ import Data.Foldable
 import Data.Fix
 import Data.Maybe                       (fromJust, fromMaybe)
 import Data.Functor.Bind
+import Data.Function                    (on)
 import Debug.Trace
 import Effectful.State.Static.Local
 import Effectful.Labeled
@@ -51,6 +53,14 @@ type Rose = Fix Branch
 
 deriveShow1 ''Branch
 
+--------------------------------------------------------------------------------
+
+desugarRlpProg :: RlpProgram RlpcPs -> Program'
+desugarRlpProg = rlpProgToCore
+
+desugarRlpExpr :: RlpExpr RlpcPs -> Expr'
+desugarRlpExpr = runPureEff . runNameSupply "anon" . exprToCore
+
 -- the rl' program is desugared by desugaring each declaration as a separate
 -- program, and taking the monoidal product of the lot :3
 
@@ -95,6 +105,8 @@ exprToCore :: (NameSupply :> es) => RlpExpr RlpcPs -> Eff es Expr'
 
 exprToCore (VarE n) = pure $ Var (dsNameToName n)
 
+exprToCore (AppE a b) = (liftA2 App `on` exprToCore . unXRec) a b
+
 exprToCore (CaseE (unXRec -> e) as) = do
     e' <- exprToCore e
     Case e' <$> caseAltToCore `traverse` as
-- 
2.52.0


From 2a51daf356818f012921a6e62640985d83cbb44f Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 15:19:03 -0700
Subject: [PATCH 151/192] WIP associate postproc

corecursive
---
 src/Rlp/Parse/Associate.hs | 21 +++++++++++++----
 src/Rlp/Syntax.hs          | 48 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 64 insertions(+), 5 deletions(-)

diff --git a/src/Rlp/Parse/Associate.hs b/src/Rlp/Parse/Associate.hs
index 99349d9..fa7c33b 100644
--- a/src/Rlp/Parse/Associate.hs
+++ b/src/Rlp/Parse/Associate.hs
@@ -1,7 +1,4 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE PatternSynonyms, ViewPatterns, ImplicitParams #-}
 module Rlp.Parse.Associate
-    {-# WARNING "temporarily unimplemented" #-}
     ( associate
     )
     where
@@ -14,6 +11,20 @@ import Rlp.Parse.Types
 import Rlp.Syntax
 --------------------------------------------------------------------------------
 
-associate x y = y
-{-# WARNING associate "temporarily undefined" #-}
+associate :: OpTable -> RlpExpr' RlpcPs -> RlpExpr' RlpcPs
+associate pt e = undefined
+
+examplePrecTable :: OpTable
+examplePrecTable = H.fromList
+    [ ("+",    (InfixL,6))
+    , ("*",    (InfixL,7))
+    , ("^",    (InfixR,8))
+    , (".",    (InfixR,7))
+    , ("~",    (Infix, 9))
+    , ("=",    (Infix, 4))
+    , ("&&",   (Infix, 3))
+    , ("||",   (Infix, 2))
+    , ("$",    (InfixR,0))
+    , ("&",    (InfixL,0))
+    ]
 
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 771ee3b..5630794 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -47,10 +47,12 @@ module Rlp.Syntax
 import Data.Text                    (Text)
 import Data.Text                    qualified as T
 import Data.String                  (IsString(..))
+import Data.Functor.Foldable
 import Data.Functor.Foldable.TH     (makeBaseFunctor)
 import Data.Functor.Classes
 import Data.Functor.Identity
 import Data.Kind                    (Type)
+import GHC.Generics
 import Language.Haskell.TH.Syntax   (Lift)
 import Lens.Micro.Pro
 import Lens.Micro.Pro.TH
@@ -173,6 +175,7 @@ data RlpExpr p = LetE'  (XLetE p) [Binding' p] (RlpExpr' p)
                | ParE'  (XParE p) (RlpExpr' p)
                | OAppE' (XOAppE p) (IdP p) (RlpExpr' p) (RlpExpr' p)
                | XRlpExprE' !(XXRlpExprE p)
+               deriving (Generic)
 
 type family XLetE p
 type family XVarE p
@@ -220,6 +223,9 @@ type RlpExpr' p = XRec p (RlpExpr p)
 class UnXRec p where
     unXRec :: XRec p a -> a
 
+class WrapXRec p where
+    wrapXRec :: a -> XRec p a
+
 class MapXRec p where
     mapXRec :: (a -> b) -> XRec p a -> XRec p b
 
@@ -299,3 +305,45 @@ type Lit' p = XRec p (Lit p)
 makeLenses ''RlpModule
 makePrisms ''Pat
 
+--------------------------------------------------------------------------------
+
+data RlpExprF p a = LetE'F  (XLetE p) [Binding' p] a
+                  | VarE'F  (XVarE p) (IdP p)
+                  | LamE'F  (XLamE p) [Pat p] a
+                  | CaseE'F (XCaseE p) a [(Alt p, Where p)]
+                  | IfE'F   (XIfE p) a a a
+                  | AppE'F  (XAppE p) a a
+                  | LitE'F  (XLitE p) (Lit p)
+                  | ParE'F  (XParE p) a
+                  | OAppE'F (XOAppE p) (IdP p) a a
+                  | XRlpExprE'F !(XXRlpExprE p)
+                  deriving (Functor, Foldable, Traversable, Generic)
+
+type instance Base (RlpExpr p) = RlpExprF p
+
+instance (UnXRec p) => Recursive (RlpExpr p) where
+    project = \case
+        LetE' xx bs e   -> LetE'F xx bs (unXRec e)
+        VarE' xx n      -> VarE'F xx n
+        LamE' xx ps e   -> LamE'F xx ps (unXRec e)
+        CaseE' xx e as  -> CaseE'F xx (unXRec e) as
+        IfE' xx a b c   -> IfE'F xx (unXRec a) (unXRec b) (unXRec c)
+        AppE' xx f x    -> AppE'F xx (unXRec f) (unXRec x)
+        LitE' xx l      -> LitE'F xx l
+        ParE' xx e      -> ParE'F xx (unXRec e)
+        OAppE' xx f a b -> OAppE'F xx f (unXRec a) (unXRec b)
+        XRlpExprE' xx   -> XRlpExprE'F xx
+
+instance (WrapXRec p) => Corecursive (RlpExpr p) where
+    embed = \case
+        LetE'F xx bs e   -> LetE' xx bs (wrapXRec e)
+        VarE'F xx n      -> VarE' xx n
+        LamE'F xx ps e   -> LamE' xx ps (wrapXRec e)
+        CaseE'F xx e as  -> CaseE' xx (wrapXRec e) as
+        IfE'F xx a b c   -> IfE' xx (wrapXRec a) (wrapXRec b) (wrapXRec c)
+        AppE'F xx f x    -> AppE' xx (wrapXRec f) (wrapXRec x)
+        LitE'F xx l      -> LitE' xx l
+        ParE'F xx e      -> ParE' xx (wrapXRec e)
+        OAppE'F xx f a b -> OAppE' xx f (wrapXRec a) (wrapXRec b)
+        XRlpExprE'F xx   -> XRlpExprE' xx
+
-- 
2.52.0


From 80425a274cd9e80e2f5bbb34f69094814379a028 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 18:52:19 -0700
Subject: [PATCH 152/192] sigh i'm gonna have to nuke the ast again in a month

---
 src/Compiler/Types.hs      |  8 ++++----
 src/Rlp/Parse.y            | 24 +++++++++++++++++++-----
 src/Rlp/Parse/Associate.hs | 11 +++++++++--
 src/Rlp/Parse/Types.hs     |  5 +++--
 src/Rlp/Syntax.hs          |  2 +-
 5 files changed, 36 insertions(+), 14 deletions(-)

diff --git a/src/Compiler/Types.hs b/src/Compiler/Types.hs
index 7329844..28e4ab4 100644
--- a/src/Compiler/Types.hs
+++ b/src/Compiler/Types.hs
@@ -1,8 +1,9 @@
+{-# LANGUAGE TemplateHaskell #-}
 module Compiler.Types
     ( SrcSpan(..)
     , srcspanLine, srcspanColumn, srcspanAbs, srcspanLen
     , Located(..)
-    , locating
+    , _Located
     , nolo
     , (<<~), (<~>), (<#>)
 
@@ -58,9 +59,6 @@ srcspanLen = tupling . _4
 nolo :: a -> Located a
 nolo = Located (SrcSpan 0 0 0 0)
 
-locating :: Lens (Located a) (Located b) a b
-locating = lens extract ($>)
-
 instance Semigroup SrcSpan where
     SrcSpan la ca aa sa <> SrcSpan lb cb ab sb = SrcSpan l c a s where
         l = min la lb
@@ -93,3 +91,5 @@ fab <#> a = fmap ($ a) fab
 
 infixl 4 <#>
 
+makePrisms ''Located
+
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 51eaf4c..26363e5 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -173,15 +173,22 @@ Pat1        :: { Pat' RlpcPs }
             | '(' Pat ')'               { $1 .> $2 <. $3 }
 
 Expr        :: { RlpExpr' RlpcPs }
-            : Expr1 InfixOp Expr        { $2 =>> \o ->
-                                          OAppE (extract o) $1 $3 }
+            -- infixities delayed till next release :(
+            -- : Expr1 InfixOp Expr        { $2 =>> \o ->
+            --                              OAppE (extract o) $1 $3 }
+            : TempInfixExpr             { $1 }
             | LetExpr                   { $1 }
             | CaseExpr                  { $1 }
-            | ExprApp                   { $1 }
+            | AppExpr                   { $1 }
 
-ExprApp     :: { RlpExpr' RlpcPs }
+TempInfixExpr :: { RlpExpr' RlpcPs }
+TempInfixExpr : Expr1 InfixOp TempInfixExpr {% tempInfixExprErr $1 $3 }
+              | Expr1 InfixOp Expr1 { $2 =>> \o ->
+                                      OAppE (extract o) $1 $3 }
+
+AppExpr     :: { RlpExpr' RlpcPs }
             : Expr1                     { $1 }
-            | ExprApp Expr1             { AppE <<~ $1 <~> $2 }
+            | AppExpr Expr1             { AppE <<~ $1 <~> $2 }
 
 LetExpr     :: { RlpExpr' RlpcPs }
             : let layout1(Binding) in Expr { $1 \$> LetE $2 $4 }
@@ -288,5 +295,12 @@ mkInfixD a p n = do
 intOfToken :: Located RlpToken -> Int
 intOfToken (Located _ (TokenLitInt n)) = n
 
+tempInfixExprErr :: RlpExpr' RlpcPs -> RlpExpr' RlpcPs -> P a
+tempInfixExprErr (Located a _) (Located b _) =
+    addFatal $ errorMsg (a <> b) $ RlpParErrOther
+        [ "The rl' frontend is currently in beta. Support for infix expressions is minimal, sorry! :("
+        , "In the mean time, don't mix any infix operators."
+        ]
+
 }
 
diff --git a/src/Rlp/Parse/Associate.hs b/src/Rlp/Parse/Associate.hs
index fa7c33b..6757705 100644
--- a/src/Rlp/Parse/Associate.hs
+++ b/src/Rlp/Parse/Associate.hs
@@ -1,18 +1,25 @@
 module Rlp.Parse.Associate
+    {-# WARNING "unimplemented" #-}
     ( associate
     )
     where
 --------------------------------------------------------------------------------
 import Data.HashMap.Strict              qualified as H
 import Data.Functor.Foldable
+import Data.Functor.Foldable.TH
 import Data.Functor.Const
+import Data.Functor
+import Data.Text                        qualified as T
+import Text.Printf
 import Lens.Micro
 import Rlp.Parse.Types
 import Rlp.Syntax
 --------------------------------------------------------------------------------
 
-associate :: OpTable -> RlpExpr' RlpcPs -> RlpExpr' RlpcPs
-associate pt e = undefined
+associate :: OpTable -> Decl' RlpcPs -> Decl' RlpcPs
+associate _ p = p
+
+{-# WARNING associate "unimplemented" #-}
 
 examplePrecTable :: OpTable
 examplePrecTable = H.fromList
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index e253fdd..244b7e1 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -200,12 +200,11 @@ data Layout = Explicit
 type OpTable = H.HashMap Name OpInfo
 type OpInfo = (Assoc, Int)
 
--- data WithLocation a = WithLocation [String] a
-
 data RlpParseError = RlpParErrOutOfBoundsPrecedence Int
                    | RlpParErrDuplicateInfixD Name
                    | RlpParErrLexical
                    | RlpParErrUnexpectedToken RlpToken [String]
+                   | RlpParErrOther [Text]
                    deriving (Show)
 
 instance IsRlpcError RlpParseError where
@@ -224,6 +223,8 @@ instance IsRlpcError RlpParseError where
             Text [ "Unexpected token " <> tshow t
                  , "Expected: " <> tshow exp
                  ]
+        RlpParErrOther ts ->
+            Text ts
         where
             tshow :: (Show a) => a -> T.Text
             tshow = T.pack . show
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 5630794..55146e0 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -9,7 +9,7 @@ module Rlp.Syntax
     -- * AST
       RlpProgram(..)
     , progDecls
-    , Decl(..), Decl', RlpExpr(..), RlpExpr'
+    , Decl(..), Decl', RlpExpr(..), RlpExpr', RlpExprF(..)
     , Pat(..), Pat'
     , Alt(..), Where
     , Assoc(..)
-- 
2.52.0


From ec5f85f428bb4243d31bc131a8321ae0a4b79608 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 19:11:04 -0700
Subject: [PATCH 153/192] remove old files

---
 src/Core/Lex.x.old   | 315 -------------------------------------------
 src/Core/Parse.y.old | 159 ----------------------
 2 files changed, 474 deletions(-)
 delete mode 100644 src/Core/Lex.x.old
 delete mode 100644 src/Core/Parse.y.old

diff --git a/src/Core/Lex.x.old b/src/Core/Lex.x.old
deleted file mode 100644
index 0aebd64..0000000
--- a/src/Core/Lex.x.old
+++ /dev/null
@@ -1,315 +0,0 @@
-{
--- TODO: layout semicolons are not inserted at EOf.
-{-# LANGUAGE TemplateHaskell #-}
-module Core.Lex
-    ( lexCore
-    , lexCore'
-    , CoreToken(..)
-    , ParseError(..)
-    , Located(..)
-    , AlexPosn(..)
-    )
-    where
-import Data.Char (chr)
-import Debug.Trace
-import Core.Syntax
-import Compiler.RLPC
-import Lens.Micro
-import Lens.Micro.TH
-}
-
-%wrapper "monadUserState"
-
-$whitechar = [ \t\n\r\f\v]
-$special   = [\(\)\,\;\[\]\{\}]
-
-$digit     = 0-9
-
-$ascsymbol = [\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~]
-$unisymbol = [] -- TODO
-$symbol    = [$ascsymbol $unisymbol] # [$special \_\:\"\']
-
-$large     = [A-Z \xc0-\xd6 \xd8-\xde]
-$small     = [a-z \xdf-\xf6 \xf8-\xff \_]
-$alpha     = [$small $large]
-
-$graphic   = [$small $large $symbol $digit $special \:\"\']
-
-$octit     = 0-7
-$hexit     = [0-9 A-F a-f]
-$namechar  = [$alpha $digit \' \#]
-$symchar   = [$symbol \:]
-$nl        = [\n\r]
-$white_no_nl = $white # $nl
-
-@reservedid = 
-    case|data|do|import|in|let|letrec|module|of|where
-
-@reservedop =
-    "=" | \\ | "->"
-
-@varname   = $small $namechar*
-@conname   = $large $namechar*
-@varsym    = $symbol $symchar*
-@consym    = \: $symchar*
-
-@decimal = $digit+
-
-rlp :-
-
--- everywhere: skip whitespace
-$white_no_nl+           { skip }
-
--- TODO: `--` could begin an operator
-"--"[^$nl]*             { skip }
-"--"\-*[^$symbol].*     { skip }
-
-"{-"                        { nestedComment }
-
--- syntactic symbols
-<0>
-{
-    "("                     { constTok TokenLParen }
-    ")"                     { constTok TokenRParen }
-    "{"                     { lbrace }
-    "}"                     { rbrace }
-    ";"                     { constTok TokenSemicolon }
-    ","                     { constTok TokenComma }
-}
-
--- keywords
--- see commentary on the layout system
-<0>
-{
-    "let"                   { constTok TokenLet `andBegin` layout }
-    "letrec"                { constTok TokenLetrec `andBegin` layout }
-    "of"                    { constTok TokenOf `andBegin` layout }
-    "case"                  { constTok TokenCase }
-    "module"                { constTok TokenModule }
-    "in"                    { letin }
-    "where"                 { constTok TokenWhere `andBegin` layout }
-}
-
--- reserved symbols
-<0>
-{
-    "="                     { constTok TokenEquals }
-    "->"                    { constTok TokenArrow }
-}
-
--- identifiers
-<0>
-{
-    -- TODO: qualified names
-    @varname                { lexWith TokenVarName }
-    @conname                { lexWith TokenConName }
-    @varsym                 { lexWith TokenVarSym }
-}
-
--- literals
-<0>
-{
-    @decimal                { lexWith (TokenLitInt . read @Int) }
-}
-
-<0> \n                      { begin bol }
-
-<initial>
-{
-    $white                  { skip }
-    \n                      { skip }
-    ()                      { topLevelOff `andBegin` 0 }
-}
-
-<bol>
-{
-    \n                      { skip }
-    ()                      { doBol `andBegin` 0 }
-}
-
-<layout>
-{
-    $white                  { skip }
-    \{                      { lbrace `andBegin` 0 }
-    ()                      { noBrace `andBegin` 0 }
-}
-
-{
-data Located a = Located Int Int Int a
-    deriving Show
-
-constTok :: t -> AlexInput -> Int -> Alex (Located t)
-constTok t (AlexPn _ y x,_,_,_) l = pure $ Located y x l t
-
-data CoreToken = TokenLet
-               | TokenLetrec
-               | TokenIn
-               | TokenModule
-               | TokenWhere
-               | TokenComma
-               | TokenCase
-               | TokenOf
-               | TokenLambda
-               | TokenArrow
-               | TokenLitInt Int
-               | TokenVarName Name
-               | TokenConName Name
-               | TokenVarSym Name
-               | TokenConSym Name
-               | TokenEquals
-               | TokenLParen
-               | TokenRParen
-               | TokenLBrace
-               | TokenRBrace
-               | TokenLBraceV -- virtual brace inserted by layout
-               | TokenRBraceV -- virtual brace inserted by layout
-               | TokenIndent Int
-               | TokenDedent Int
-               | TokenSemicolon
-               | TokenEOF
-               deriving Show
-
-data LayoutContext = Layout Int
-                   | NoLayout
-                   deriving Show
-
-data AlexUserState = AlexUserState
-    { _ausContext :: [LayoutContext]
-    }
-
-ausContext :: Lens' AlexUserState [LayoutContext]
-ausContext f (AlexUserState ctx)
-  = fmap
-      (\a -> AlexUserState a) (f ctx)
-{-# INLINE ausContext #-}
-
-pushContext :: LayoutContext -> Alex ()
-pushContext c = do
-    st <- alexGetUserState
-    alexSetUserState $ st { _ausContext = c : _ausContext st }
-
-popContext :: Alex ()
-popContext = do
-    st <- alexGetUserState
-    alexSetUserState $ st { _ausContext = drop 1 (_ausContext st) }
-
-getContext :: Alex [LayoutContext]
-getContext = do
-    st <- alexGetUserState
-    pure $ _ausContext st
-
-type Lexer = AlexInput -> Int -> Alex (Located CoreToken)
-
-alexInitUserState :: AlexUserState
-alexInitUserState = AlexUserState []
-
-nestedComment :: Lexer
-nestedComment _ _ = undefined
-
-lexStream :: Alex [Located CoreToken]
-lexStream = do
-    l <- alexMonadScan
-    case l of
-        Located _ _ _ TokenEOF  -> pure [l]
-        _                       -> (l:) <$> lexStream
-
--- | The main lexer driver.
-lexCore :: String -> RLPC ParseError [Located CoreToken]
-lexCore s = case m of
-    Left e   -> addFatal err
-        where err = SrcError
-                { _errSpan       = (0,0,0) -- TODO: location
-                , _errSeverity   = Error
-                , _errDiagnostic = ParErrLexical e
-                }
-    Right ts -> pure ts
-    where
-        m = runAlex s (alexSetStartCode initial *> lexStream)
-
--- | @lexCore@, but the tokens are stripped of location info. Useful for
--- debugging
-lexCore' :: String -> RLPC ParseError [CoreToken]
-lexCore' s = fmap f <$> lexCore s
-    where f (Located _ _ _ t) = t
-
-data ParseError = ParErrLexical String
-                | ParErrParse
-                deriving Show
-
-lexWith :: (String -> CoreToken) -> Lexer
-lexWith f (AlexPn _ y x,_,_,s) l = pure $ Located y x l (f $ take l s)
-
-lexToken :: Alex (Located CoreToken)
-lexToken = alexMonadScan
-
-getSrcCol :: Alex Int
-getSrcCol = Alex $ \ st ->
-    let AlexPn _ _ col = alex_pos st
-    in Right (st, col)
-
-lbrace :: Lexer
-lbrace (AlexPn _ y x,_,_,_) l = do
-    pushContext NoLayout
-    pure $ Located y x l TokenLBrace
-
-rbrace :: Lexer
-rbrace (AlexPn _ y x,_,_,_) l = do
-    popContext
-    pure $ Located y x l TokenRBrace
-
-insRBraceV :: AlexPosn -> Alex (Located CoreToken)
-insRBraceV (AlexPn _ y x) = do
-    popContext
-    pure $ Located y x 0 TokenRBraceV
-
-insSemi  :: AlexPosn -> Alex (Located CoreToken)
-insSemi (AlexPn _ y x) = do
-    pure $ Located y x 0 TokenSemicolon
-
-modifyUst :: (AlexUserState -> AlexUserState) -> Alex ()
-modifyUst f = do
-    st <- alexGetUserState
-    alexSetUserState $ f st
-
-getUst :: Alex AlexUserState
-getUst = alexGetUserState
-
-newLayoutContext :: Lexer
-newLayoutContext (p,_,_,_) _ = do
-    undefined
-
-noBrace :: Lexer
-noBrace (AlexPn _ y x,_,_,_) l = do
-    col <- getSrcCol
-    pushContext (Layout col)
-    pure $ Located y x l TokenLBraceV
-
-getOffside :: Alex Ordering
-getOffside = do
-    ctx <- getContext
-    m <- getSrcCol
-    case ctx of
-        Layout n : _ -> pure $ m `compare` n
-        _            -> pure GT
-
-doBol :: Lexer
-doBol (p,c,_,s) _ = do
-    off <- getOffside
-    case off of
-        LT      -> insRBraceV p
-        EQ      -> insSemi p
-        _       -> lexToken
-
-letin :: Lexer
-letin (AlexPn _ y x,_,_,_) l = do
-    popContext
-    pure $ Located y x l TokenIn
-
-topLevelOff :: Lexer
-topLevelOff = noBrace
-
-alexEOF :: Alex (Located CoreToken)
-alexEOF = Alex $ \ st@(AlexState { alex_pos = AlexPn _ y x }) ->
-    Right (st, Located y x 0 TokenEOF)
-
-}
diff --git a/src/Core/Parse.y.old b/src/Core/Parse.y.old
deleted file mode 100644
index bacd40e..0000000
--- a/src/Core/Parse.y.old
+++ /dev/null
@@ -1,159 +0,0 @@
-{
-module Core.Parse
-    ( parseCore
-    , parseCoreExpr
-    , parseCoreProg
-    , module Core.Lex -- temp convenience
-    , parseTmp
-    , SrcError
-    , ParseError
-    , Module
-    )
-    where
-
-import Control.Monad        ((>=>))
-import Data.Foldable        (foldl')
-import Core.Syntax
-import Core.Lex
-import Compiler.RLPC
-import Data.Default.Class   (def)
-}
-
-%name parseCore Module
-%name parseCoreExpr StandaloneExpr
-%name parseCoreProg StandaloneProgram
-%tokentype { Located CoreToken }
-%error { parseError }
-%monad { RLPC ParseError }
-
-%token
-      let             { Located _ _ _ TokenLet }
-      letrec          { Located _ _ _ TokenLetrec }
-      module          { Located _ _ _ TokenModule }
-      where           { Located _ _ _ TokenWhere }
-      ','             { Located _ _ _ TokenComma }
-      in              { Located _ _ _ TokenIn }
-      litint          { Located _ _ _ (TokenLitInt $$) }
-      varname         { Located _ _ _ (TokenVarName $$) }
-      varsym          { Located _ _ _ (TokenVarSym $$) }
-      conname         { Located _ _ _ (TokenConName $$) }
-      consym          { Located _ _ _ (TokenConSym $$) }
-      'λ'             { Located _ _ _ TokenLambda }
-      '->'            { Located _ _ _ TokenArrow }
-      '='             { Located _ _ _ TokenEquals }
-      '('             { Located _ _ _ TokenLParen }
-      ')'             { Located _ _ _ TokenRParen }
-      '{'             { Located _ _ _ TokenLBrace }
-      '}'             { Located _ _ _ TokenRBrace }
-      vl              { Located _ _ _ TokenLBraceV }
-      vr              { Located _ _ _ TokenRBraceV }
-      ';'             { Located _ _ _ TokenSemicolon }
-      eof             { Located _ _ _ TokenEOF }
-
-%%
-
-Module          :: { Module }
-Module          : module conname where Program Eof { Module (Just ($2, [])) $4 }
-                | Program Eof                      { Module Nothing $1 }
-
-Eof             :: { () }
-Eof             : eof           { () }
-                | error         { () }
-
-StandaloneProgram :: { Program }
-StandaloneProgram : Program eof                 { $1 }
-
-Program         :: { Program }
-Program         : VOpen ScDefs VClose           { Program $2 }
-                | '{'   ScDefs '}'              { Program $2 }
-
-VOpen           :: { () }
-VOpen           : vl                            { () }
-
-VClose          :: { () }
-VClose          : vr                            { () }
-                | error                         { () }
-
-ScDefs          :: { [ScDef] }
-ScDefs          : ScDef ';' ScDefs              { $1 : $3 }
-                | {- epsilon -}                 { [] }
-
-ScDef           :: { ScDef }
-ScDef           : Var ParList '=' Expr          { ScDef $1 $2 $4 }
-
-ParList         :: { [Name] }
-ParList         : Var ParList                   { $1 : $2 }
-                | {- epsilon -}                 { [] }
-
-StandaloneExpr  :: { Expr }
-StandaloneExpr  : Expr eof                      { $1 }
-
-Expr            :: { Expr }
-Expr            : LetExpr                       { $1 }
-                | 'λ' Binders '->' Expr         { Lam $2 $4 }
-                | Application                   { $1 }
-                | Expr1                         { $1 }
-
-LetExpr         :: { Expr }
-LetExpr         : let    VOpen Bindings VClose in Expr { Let NonRec $3 $6 }
-                | letrec VOpen Bindings VClose in Expr { Let Rec $3 $6 }
-                | let    '{'   Bindings '}'    in Expr { Let NonRec $3 $6 }
-                | letrec '{'   Bindings '}'    in Expr { Let Rec $3 $6 }
-
-Binders         :: { [Name] }
-Binders         : Var Binders                  { $1 : $2 }
-                | Var                          { [$1] }
-
-Application     :: { Expr }
-Application     : Expr1 AppArgs                 { foldl' App $1 $2 }
-
--- TODO: Application can probably be written as a single rule, without AppArgs
-AppArgs         :: { [Expr] }
-AppArgs         : Expr1 AppArgs                 { $1 : $2 }
-                | Expr1                         { [$1] }
-
-Expr1           :: { Expr }
-Expr1           : litint                        { IntE $1 }
-                | Id                            { Var $1 }
-                | '(' Expr ')'                  { $2 }
-
-Bindings        :: { [Binding] }
-Bindings        : Binding ';' Bindings          { $1 : $3 }
-                | Binding ';'                   { [$1] }
-                | Binding                       { [$1] }
-
-Binding         :: { Binding }
-Binding         : Var '=' Expr                  { $1 := $3 }
-
-Id              :: { Name }
-Id              : Var                                { $1 }
-                | Con                                { $1 }
-
-Var             :: { Name }
-Var             : '(' varsym ')'                    { $2 }
-                | varname                           { $1 }
-
-Con             :: { Name }
-Con             : '(' consym ')'                    { $2 }
-                | conname                           { $1 }
-
-{
-parseError :: [Located CoreToken] -> RLPC ParseError a
-parseError (Located y x l _ : _) = addFatal err
-    where err = SrcError
-            { _errSpan       = (y,x,l)
-            , _errSeverity   = Error
-            , _errDiagnostic = ParErrParse
-            }
-
-parseTmp :: IO Module
-parseTmp = do
-    s <- readFile "/tmp/t.hs"
-    case parse s of
-        Left e -> error (show e)
-        Right (ts,_) -> pure ts
-    where
-        parse = evalRLPC def . (lexCore >=> parseCore)
-
-}
-
-- 
2.52.0


From 96b73eced042f794a3483302db0081b0b342091e Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 19:12:48 -0700
Subject: [PATCH 154/192] remove old files

---
 src/Data/Pretty.hs | 73 ++++------------------------------------------
 1 file changed, 5 insertions(+), 68 deletions(-)

diff --git a/src/Data/Pretty.hs b/src/Data/Pretty.hs
index 83958a9..b00bfb1 100644
--- a/src/Data/Pretty.hs
+++ b/src/Data/Pretty.hs
@@ -1,14 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Data.Pretty
     ( Pretty(..)
-    , ISeq(..)
-    , precPretty
-    , prettyPrint
-    , prettyShow
-    , iShow
-    , iBracket
-    , withPrec
-    , bracketPrec
     )
     where
 ----------------------------------------------------------------------------------
@@ -16,65 +8,10 @@ import Data.String      (IsString(..))
 ----------------------------------------------------------------------------------
 
 class Pretty a where
-    pretty :: a -> ISeq
-    prettyPrec :: a -> Int -> ISeq
+    -- pretty :: a -> ISeq
+    -- prettyPrec :: a -> Int -> ISeq
 
-    {-# MINIMAL pretty | prettyPrec #-}
-    pretty a = prettyPrec a 0
-    prettyPrec a _ = iBracket (pretty a)
+    -- {-# MINIMAL pretty | prettyPrec #-}
+    -- pretty a = prettyPrec a 0
+    -- prettyPrec a _ = iBracket (pretty a)
 
-precPretty :: (Pretty a) => Int -> a -> ISeq
-precPretty = flip prettyPrec
-
-prettyPrint :: (Pretty a) => a -> IO ()
-prettyPrint = putStr . squash . pretty
-
-prettyShow :: (Pretty a) => a -> String
-prettyShow = squash . pretty
-
-data ISeq where
-    INil :: ISeq
-    IStr :: String -> ISeq
-    IAppend :: ISeq -> ISeq -> ISeq
-    IIndent :: ISeq -> ISeq
-    IBreak :: ISeq
-
-instance IsString ISeq where
-    fromString = IStr
-
-instance Semigroup ISeq where
-    (<>) = IAppend
-
-instance Monoid ISeq where
-    mempty = INil
-
-squash :: ISeq -> String
-squash a = flatten 0 [(a,0)]
-
-flatten :: Int -> [(ISeq, Int)] -> String
-flatten _ []                      = ""
-flatten c ((INil,        i) : ss) = flatten c ss
-flatten c ((IStr s,      i) : ss) = s ++ flatten (c + length s) ss
-flatten c ((IAppend r s, i) : ss) = flatten c ((r,i) : (s,i) : ss)
-flatten _ ((IBreak,      i) : ss) = '\n' : replicate i ' ' ++ flatten i ss
-flatten c ((IIndent s,   i) : ss) = flatten c ((s,c) : ss)
-
-iBracket :: ISeq -> ISeq
-iBracket s = IStr "(" <> s <> IStr ")"
-
-withPrec :: Int -> ISeq -> Int -> ISeq
-withPrec n s p
-    | p > n     = iBracket s
-    | otherwise =          s
-
-bracketPrec :: Int -> Int -> ISeq -> ISeq
-bracketPrec n p s = withPrec n s p
-
-iShow :: (Show a) => a -> ISeq
-iShow = IStr . show
-
-----------------------------------------------------------------------------------
-
-instance (Pretty a) => Pretty (Maybe a) where
-    prettyPrec (Just a) p = prettyPrec a p
-    prettyPrec Nothing  p = "<Nothing>"
-- 
2.52.0


From c6f9c615b4a311d43e63ffbaa9da595c1557c669 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 21:38:01 -0700
Subject: [PATCH 155/192] fix top-level layout

---
 src/Rlp/Lex.x | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 4222694..3c07c24 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -125,6 +125,12 @@ $white_no_nl+       ;
     ()                  { doBol }
 }
 
+<layout_top>
+{
+    \n                  ;
+    "{"                 { explicitLBrace `thenDo` popLexState }
+}
+
 <layout, layout_let, layout_of>
 {
     \n                  { beginPush bol }
@@ -153,6 +159,7 @@ lexReservedName = \case
     "infix"     -> TokenInfix
     "infixl"    -> TokenInfixL
     "infixr"    -> TokenInfixR
+    s           -> error (show s)
 
 lexReservedOp :: Text -> RlpToken
 lexReservedOp = \case
@@ -160,6 +167,7 @@ lexReservedOp = \case
     "::"    -> TokenHasType
     "|"     -> TokenPipe
     "->"    -> TokenArrow
+    s       -> error (show s)
 
 -- | @andBegin@, with the subtle difference that the start code is set
 --   /after/ the action
@@ -325,7 +333,7 @@ doBol :: LexerAction (Located RlpToken)
 doBol inp l = do
     off <- cmpLayout
     i <- indentLevel
-    traceM $ "i: " <> show i
+    -- traceM $ "i: " <> show i
     -- important that we pop the lex state lest we find our lexer diverging
     popLexState
     case off of
-- 
2.52.0


From bb2a07d2e922e9c1ec7a1f12b7ca044a352abb84 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 7 Feb 2024 23:45:38 -0700
Subject: [PATCH 156/192] define datatags

---
 src/Core/Examples.hs |  2 --
 src/Core2Core.hs     | 26 ++++++++++++++++++++++----
 2 files changed, 22 insertions(+), 6 deletions(-)

diff --git a/src/Core/Examples.hs b/src/Core/Examples.hs
index f9f4468..ee1fe25 100644
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -207,8 +207,6 @@ namedConsCase :: Program'
 namedConsCase = [coreProg|
         {-# PackData Nil  0 0 #-}
         {-# PackData Cons 1 2 #-}
-        Nil = Pack{0 0};
-        Cons = Pack{1 2};
         foldr f z l = case l of
             { Nil       -> z
             ; Cons x xs -> f x (foldr f z xs)
diff --git a/src/Core2Core.hs b/src/Core2Core.hs
index 2036915..7717aa7 100644
--- a/src/Core2Core.hs
+++ b/src/Core2Core.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE ImplicitParams #-}
-{-# LANGUAGE LambdaCase #-}
 module Core2Core
     ( core2core
     , gmPrep
@@ -15,13 +14,15 @@ import Data.Maybe               (fromJust)
 import Data.Set                 (Set)
 import Data.Set                 qualified as S
 import Data.List
+import Data.Foldable
 import Control.Monad.Writer
 import Control.Monad.State.Lazy
 import Control.Arrow            ((>>>))
 import Data.Text                qualified as T
 import Data.HashMap.Strict      (HashMap)
 import Numeric                  (showHex)
-import Lens.Micro.Platform
+-- import Lens.Micro.Platform
+import Control.Lens
 import Core.Syntax
 import Core.Utils
 ----------------------------------------------------------------------------------
@@ -29,13 +30,28 @@ import Core.Utils
 core2core :: Program' -> Program'
 core2core p = undefined
 
+-- | G-machine preprocessing.
+
 gmPrep :: Program' -> Program'
 gmPrep p = p & appFloater (floatNonStrictCases globals)
              & tagData
+             & defineData
     where
         globals = p ^.. programScDefs . each . _lhs . _1
                 & S.fromList
 
+-- | Define concrete supercombinators for all datatags defined via pragmas (or
+-- desugaring)
+
+defineData :: Program' -> Program'
+defineData p = p & programScDefs <>~ defs
+    where
+        -- defs = ifoldMap' _ (p ^. programDataTags)
+        defs = p ^. programDataTags
+             . to (ifoldMap (\k (t,a) -> [ScDef k [] (Con t a)]))
+
+-- | Substitute all pattern matches on named constructors for matches on tags
+
 tagData :: Program' -> Program'
 tagData p = let ?dt = p ^. programDataTags
             in p & programRhss %~ cata go where
@@ -59,6 +75,7 @@ appFloater fl p = p & traverseOf programRhss fl
                     & runFloater
                     & \ (me,floats) -> me & programScDefs %~ (<>floats)
 
+-- TODO: move NameSupply from Rlp2Core into a common module to share here
 runFloater :: Floater a -> (a, [ScDef'])
 runFloater = flip evalStateT ns >>> runWriter
     where
@@ -88,7 +105,7 @@ floatNonStrictCases g = goE
                 altBodies = (\(Alter _ _ b) -> b) <$> as
             tell [sc]
             goE e
-            traverse goE altBodies
+            traverse_ goE altBodies
             pure e'
         goC (f :$ x)            = (:$) <$> goC f <*> goC x
         goC (Let r bs e)        = Let r <$> bs' <*> goE e
@@ -97,7 +114,7 @@ floatNonStrictCases g = goE
         goC (Var k)             = pure (Var k)
         goC (Con t as)          = pure (Con t as)
 
-        name = state (fromJust . uncons)
+        name = state (fromJust . Data.List.uncons)
 
         -- extract the right-hand sides of a list of bindings, traverse each
         -- one, and return the original list of bindings
@@ -105,6 +122,7 @@ floatNonStrictCases g = goE
         travBs c bs = bs ^.. each . _rhs
                     & traverse goC
                     & const (pure bs)
+        -- ^ ??? what the fuck?
 
 -- when provided with a case expr, floatCase will float the case into a
 -- supercombinator of its free variables. the sc is returned along with an
-- 
2.52.0


From af5463f8f00baf3e4579d4fd3aa7a091cab99bb1 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 00:36:23 -0700
Subject: [PATCH 157/192] diagram

---
 rlpc.drawio     | 253 ++++++++++++++++++++++++++++++++++++++++++++++++
 rlpc.drawio.svg |   4 +
 2 files changed, 257 insertions(+)
 create mode 100644 rlpc.drawio
 create mode 100644 rlpc.drawio.svg

diff --git a/rlpc.drawio b/rlpc.drawio
new file mode 100644
index 0000000..d68b067
--- /dev/null
+++ b/rlpc.drawio
@@ -0,0 +1,253 @@
+<mxfile host="app.diagrams.net" modified="2024-02-08T07:33:52.268Z" agent="Mozilla/5.0 (Macintosh; Intel Mac OS X 10.15; rv:122.0) Gecko/20100101 Firefox/122.0" etag="_2ex2NLQLCDMU70EmKFT" version="23.0.2" type="device">
+  <diagram name="Page-1" id="ijVUcW-Be2043inOeyM6">
+    <mxGraphModel dx="1629" dy="2189" grid="1" gridSize="10" guides="1" tooltips="1" connect="1" arrows="1" fold="1" page="1" pageScale="1" pageWidth="827" pageHeight="1169" math="0" shadow="0">
+      <root>
+        <mxCell id="0" />
+        <mxCell id="1" parent="0" />
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-64" value="&lt;div&gt;&lt;font face=&quot;Helvetica&quot;&gt;rl&#39; source code&lt;/font&gt;&lt;/div&gt;" style="rounded=0;whiteSpace=wrap;html=1;fillColor=#fff2cc;strokeColor=#d6b656;fontFamily=Courier New;" parent="1" vertex="1">
+          <mxGeometry x="10" y="154.92" width="120" height="60" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-72" value="" style="group;fontFamily=Courier New;" parent="1" vertex="1" connectable="0">
+          <mxGeometry x="150" y="-60" width="1440" height="780" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-2" value="" style="rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-72" vertex="1">
+          <mxGeometry width="1440" height="780" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-3" value="&lt;div&gt;&lt;font face=&quot;Helvetica&quot;&gt;RLPC&lt;/font&gt;&lt;/div&gt;" style="html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-2" vertex="1">
+          <mxGeometry width="1440" height="76.09756097560975" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-56" value="" style="rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-2" vertex="1">
+          <mxGeometry x="38.4" y="68.42" width="431.6" height="221.58" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-57" value="&lt;div&gt;&lt;font face=&quot;Helvetica&quot;&gt;Parser&lt;/font&gt;&lt;/div&gt;" style="html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-56" vertex="1">
+          <mxGeometry width="431.6" height="27.6975" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-58" value="Rlp.Parse&lt;br&gt;&lt;div&gt;(src/Rlp/Parse.y)&lt;/div&gt;" style="rounded=1;absoluteArcSize=1;html=1;arcSize=10;whiteSpace=wrap;points=[];strokeColor=#6c8ebf;fillColor=#dae8fc;glass=0;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-56" vertex="1">
+          <mxGeometry x="26.980533333333334" y="27.6975" width="371.43053333333336" height="55.395" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-59" value="&lt;div&gt;Rlp.Lex&lt;/div&gt;&lt;div&gt;&lt;br&gt;&lt;/div&gt;&lt;div&gt;(src/Rlp/Lex.x)&lt;br&gt;&lt;/div&gt;" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-56" vertex="1">
+          <mxGeometry x="26.98606666666666" y="147.72" width="170.33402285714286" height="55.395" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-61" value="" style="endArrow=classic;html=1;rounded=0;fontFamily=Courier New;exitX=0.25;exitY=0;exitDx=0;exitDy=0;" parent="l7NxJpuHm0Jx_7flO9iA-56" edge="1" source="l7NxJpuHm0Jx_7flO9iA-59">
+          <mxGeometry relative="1" as="geometry">
+            <mxPoint x="111.49666666666668" y="147.72" as="sourcePoint" />
+            <mxPoint x="69.26631355932203" y="83.84879190161169" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-62" value="&lt;div&gt;RlpToken&lt;/div&gt;" style="edgeLabel;resizable=0;html=1;align=center;verticalAlign=middle;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-61" connectable="0" vertex="1">
+          <mxGeometry relative="1" as="geometry">
+            <mxPoint x="-33" y="5" as="offset" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-74" value="&lt;div&gt;Rlp.Parse.Associate&lt;/div&gt;" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-56" vertex="1">
+          <mxGeometry x="244.26979047619054" y="147.72" width="154.14285714285714" height="55.395" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-75" value="" style="endArrow=classic;html=1;rounded=0;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-56" source="l7NxJpuHm0Jx_7flO9iA-58" target="l7NxJpuHm0Jx_7flO9iA-74" edge="1">
+          <mxGeometry relative="1" as="geometry">
+            <mxPoint x="271.29142857142864" y="175.4175" as="sourcePoint" />
+            <mxPoint x="394.60571428571427" y="175.4175" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-77" value="&lt;div&gt;RlpProgram&#39; RlpcPs&lt;/div&gt;" style="edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-75" vertex="1" connectable="0">
+          <mxGeometry x="0.0677" y="5" relative="1" as="geometry">
+            <mxPoint x="39" y="6" as="offset" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-3" value="" style="endArrow=classic;html=1;rounded=0;exitX=0.368;exitY=1.014;exitDx=0;exitDy=0;exitPerimeter=0;entryX=0.811;entryY=-0.021;entryDx=0;entryDy=0;entryPerimeter=0;" edge="1" parent="l7NxJpuHm0Jx_7flO9iA-56" source="l7NxJpuHm0Jx_7flO9iA-58" target="l7NxJpuHm0Jx_7flO9iA-59">
+          <mxGeometry width="50" height="50" relative="1" as="geometry">
+            <mxPoint x="168.70805084745763" y="201.9041131288017" as="sourcePoint" />
+            <mxPoint x="225.8584745762712" y="152.71439595080588" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-4" value="&lt;p style=&quot;line-height: 60%;&quot;&gt;&lt;font style=&quot;font-size: 7px;&quot;&gt;(lexer &amp;amp; parser threaded w/ CPS)&lt;/font&gt;&lt;/p&gt;" style="text;html=1;strokeColor=none;fillColor=none;align=center;verticalAlign=middle;whiteSpace=wrap;rounded=0;" vertex="1" parent="l7NxJpuHm0Jx_7flO9iA-56">
+          <mxGeometry x="88.69745762711862" y="103.52467877281002" width="68.58050847457626" height="29.513830306797498" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-69" value="" style="rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-2" vertex="1">
+          <mxGeometry x="38.4" y="531.8231578947368" width="431.6" height="230.4557894736842" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-70" value="&lt;div&gt;&lt;font face=&quot;Helvetica&quot;&gt;Desugarer&lt;/font&gt;&lt;/div&gt;" style="html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;" parent="l7NxJpuHm0Jx_7flO9iA-69" vertex="1">
+          <mxGeometry width="431.6" height="46.091157894736845" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-1" value="&lt;div&gt;Rlp2Core&lt;/div&gt;" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;" vertex="1" parent="l7NxJpuHm0Jx_7flO9iA-69">
+          <mxGeometry x="22.122266666666665" y="46.088669843028626" width="387.34440000000006" height="159.17559608494923" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-6" value="" style="rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;" vertex="1" parent="l7NxJpuHm0Jx_7flO9iA-2">
+          <mxGeometry x="904" y="68.42105263157895" width="186.6" height="697.8947368421053" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-7" value="&lt;font face=&quot;Helvetica&quot;&gt;Evaluation Model&lt;br&gt;&lt;/font&gt;" style="html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-6">
+          <mxGeometry width="186.6" height="107.07065060420568" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-8" value="GM" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-6">
+          <mxGeometry x="9.568013810372213" y="356.90796215152363" width="167.46559322033886" height="82.98740890928475" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-9" value="TM" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-6">
+          <mxGeometry x="9.562261652542377" y="263.9548629430177" width="167.46559322033886" height="82.98740890928475" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-10" value="TIM" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-6">
+          <mxGeometry x="9.56226165254238" y="168.9311122835313" width="167.46559322033886" height="82.98740890928475" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-11" value="STG" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-6">
+          <mxGeometry x="9.56720338983051" y="73.90736162404495" width="167.46559322033886" height="82.98740890928475" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-12" value="" style="rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;" vertex="1" parent="l7NxJpuHm0Jx_7flO9iA-2">
+          <mxGeometry x="530" y="68.42" width="281.6" height="314.74" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-13" value="&lt;div&gt;&lt;font face=&quot;Helvetica&quot;&gt;Preprocessing&lt;/font&gt;&lt;/div&gt;" style="html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-12">
+          <mxGeometry width="281.5999999999999" height="24.68549019607843" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-15" value="Core2Core" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;verticalAlign=top;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-12">
+          <mxGeometry x="22.25077720207253" y="49.37098039215686" width="237.09844559585483" height="259.1976470588235" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-16" value="&lt;font face=&quot;Courier New&quot;&gt;tagData&lt;/font&gt;" style="rounded=1;whiteSpace=wrap;html=1;fillColor=#d5e8d4;strokeColor=#82b366;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-12">
+          <mxGeometry x="31.36994818652857" y="74.0564705882353" width="218.860103626943" height="37.02823529411765" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-18" value="&lt;font face=&quot;Courier New&quot;&gt;defineData&lt;/font&gt;" style="rounded=1;whiteSpace=wrap;html=1;fillColor=#d5e8d4;strokeColor=#82b366;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-12">
+          <mxGeometry x="31.36994818652857" y="160.45568627450984" width="218.860103626943" height="37.02823529411765" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-17" value="&lt;font face=&quot;Courier New&quot;&gt;liftNonStrictCases&lt;/font&gt;" style="rounded=1;whiteSpace=wrap;html=1;fillColor=#d5e8d4;strokeColor=#82b366;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-12">
+          <mxGeometry x="31.369948186528582" y="118.66932274509804" width="218.860103626943" height="37.02823529411765" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-20" value="" style="rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;" vertex="1" parent="l7NxJpuHm0Jx_7flO9iA-2">
+          <mxGeometry x="1240" y="68.42105263157895" width="186.6" height="697.8947368421053" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-21" value="&lt;font face=&quot;Helvetica&quot;&gt;Some target&lt;br&gt;&lt;/font&gt;" style="html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-20">
+          <mxGeometry width="186.6" height="107.07065060420568" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-27" value="" style="endArrow=classic;html=1;rounded=0;entryX=-0.019;entryY=0.844;entryDx=0;entryDy=0;entryPerimeter=0;exitX=0.98;exitY=0.066;exitDx=0;exitDy=0;exitPerimeter=0;" edge="1" parent="l7NxJpuHm0Jx_7flO9iA-2" source="MMc0v0DIyy0xya0iXp__-1" target="MMc0v0DIyy0xya0iXp__-12">
+          <mxGeometry width="50" height="50" relative="1" as="geometry">
+            <mxPoint x="450" y="684.2105263157895" as="sourcePoint" />
+            <mxPoint x="500" y="615.7894736842105" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-28" value="&lt;font face=&quot;Courier New&quot;&gt;Program&#39;&lt;/font&gt;" style="edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];" vertex="1" connectable="0" parent="MMc0v0DIyy0xya0iXp__-27">
+          <mxGeometry x="-0.1473" y="1" relative="1" as="geometry">
+            <mxPoint x="7" y="1" as="offset" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-30" value="" style="endArrow=classic;html=1;rounded=0;entryX=-0.013;entryY=0.321;entryDx=0;entryDy=0;exitX=1;exitY=0.5;exitDx=0;exitDy=0;entryPerimeter=0;" edge="1" parent="l7NxJpuHm0Jx_7flO9iA-2" source="MMc0v0DIyy0xya0iXp__-12" target="MMc0v0DIyy0xya0iXp__-6">
+          <mxGeometry width="50" height="50" relative="1" as="geometry">
+            <mxPoint x="810" y="588.421052631579" as="sourcePoint" />
+            <mxPoint x="860" y="520" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-31" value="&lt;font face=&quot;Courier New&quot;&gt;Program&#39;&lt;/font&gt;" style="edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];" vertex="1" connectable="0" parent="MMc0v0DIyy0xya0iXp__-30">
+          <mxGeometry x="0.0097" y="-1" relative="1" as="geometry">
+            <mxPoint x="-1" as="offset" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-32" value="" style="endArrow=classic;html=1;rounded=0;entryX=0;entryY=0.5;entryDx=0;entryDy=0;exitX=1;exitY=0.5;exitDx=0;exitDy=0;" edge="1" parent="l7NxJpuHm0Jx_7flO9iA-2" source="MMc0v0DIyy0xya0iXp__-6" target="MMc0v0DIyy0xya0iXp__-20">
+          <mxGeometry width="50" height="50" relative="1" as="geometry">
+            <mxPoint x="810" y="588.421052631579" as="sourcePoint" />
+            <mxPoint x="860" y="520" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-33" value="&lt;font face=&quot;Courier New&quot;&gt;[Instr]&lt;/font&gt;" style="edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];" vertex="1" connectable="0" parent="MMc0v0DIyy0xya0iXp__-32">
+          <mxGeometry x="0.0406" y="1" relative="1" as="geometry">
+            <mxPoint as="offset" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-35" value="" style="rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;" vertex="1" parent="l7NxJpuHm0Jx_7flO9iA-2">
+          <mxGeometry x="530" y="630" width="281.6" height="131.32" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-36" value="&lt;font face=&quot;Helvetica&quot;&gt;Core Parser&lt;br&gt;&lt;/font&gt;" style="html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-35">
+          <mxGeometry width="281.59999999999997" height="10.299607843137254" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-41" value="Core.Lex" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-35">
+          <mxGeometry x="10.140518134715029" y="16.369019607843132" width="87.1306390328152" height="106.24535947712415" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-42" value="Core.Parse" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-35">
+          <mxGeometry x="182.3834196891192" y="16.369019607843146" width="87.1306390328152" height="106.24535947712415" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-43" value="&lt;font face=&quot;Courier New&quot;&gt;CoreToken&lt;/font&gt;" style="endArrow=classic;html=1;rounded=0;entryX=0;entryY=0.5;entryDx=0;entryDy=0;exitX=1;exitY=0.5;exitDx=0;exitDy=0;" edge="1" parent="MMc0v0DIyy0xya0iXp__-35" source="MMc0v0DIyy0xya0iXp__-41" target="MMc0v0DIyy0xya0iXp__-42">
+          <mxGeometry width="50" height="50" relative="1" as="geometry">
+            <mxPoint x="-72.95336787564769" y="39.35921568627452" as="sourcePoint" />
+            <mxPoint x="-12.15889464594128" y="1.0422222222222326" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-51" value="" style="rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;" vertex="1" parent="l7NxJpuHm0Jx_7flO9iA-2">
+          <mxGeometry x="530" y="440" width="281.6" height="131.32" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-52" value="&lt;font face=&quot;Helvetica&quot;&gt;Core Type-checker&lt;br&gt;&lt;/font&gt;" style="html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-51">
+          <mxGeometry width="281.59999999999997" height="10.299607843137254" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-46" value="(currently unimplemented)" style="rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;" vertex="1" parent="l7NxJpuHm0Jx_7flO9iA-72">
+          <mxGeometry x="40" y="360" width="431.6" height="90.46" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-47" value="&lt;font face=&quot;Verdana&quot;&gt;Type-checker&lt;/font&gt;" style="html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;" vertex="1" parent="MMc0v0DIyy0xya0iXp__-46">
+          <mxGeometry width="431.6" height="18.092000000000002" as="geometry" />
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-80" value="" style="endArrow=classic;html=1;rounded=0;" parent="l7NxJpuHm0Jx_7flO9iA-72" source="l7NxJpuHm0Jx_7flO9iA-74" target="MMc0v0DIyy0xya0iXp__-46" edge="1">
+          <mxGeometry relative="1" as="geometry">
+            <mxPoint x="537.6" y="424.2105263157895" as="sourcePoint" />
+            <mxPoint x="-40" y="490" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-81" value="&lt;font face=&quot;Courier New&quot;&gt;RlpProgram&#39; RlpcPs&lt;br&gt;&lt;/font&gt;" style="edgeLabel;resizable=0;html=1;align=center;verticalAlign=middle;" parent="l7NxJpuHm0Jx_7flO9iA-80" connectable="0" vertex="1">
+          <mxGeometry relative="1" as="geometry">
+            <mxPoint x="6" as="offset" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-49" value="" style="endArrow=classic;html=1;rounded=0;" edge="1" parent="l7NxJpuHm0Jx_7flO9iA-72" source="MMc0v0DIyy0xya0iXp__-46" target="l7NxJpuHm0Jx_7flO9iA-69">
+          <mxGeometry relative="1" as="geometry">
+            <mxPoint x="352" y="282" as="sourcePoint" />
+            <mxPoint x="295" y="370" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-50" value="&lt;font face=&quot;Courier New&quot;&gt;RlpProgram&#39; RlpcTc&lt;/font&gt;" style="edgeLabel;resizable=0;html=1;align=center;verticalAlign=middle;" connectable="0" vertex="1" parent="MMc0v0DIyy0xya0iXp__-49">
+          <mxGeometry relative="1" as="geometry">
+            <mxPoint x="6" as="offset" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-57" value="Core.HindleyMilner" style="rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;" vertex="1" parent="l7NxJpuHm0Jx_7flO9iA-72">
+          <mxGeometry x="540" y="460" width="260" height="106.24" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-58" value="" style="endArrow=classic;html=1;rounded=0;" edge="1" parent="l7NxJpuHm0Jx_7flO9iA-72" source="MMc0v0DIyy0xya0iXp__-42" target="MMc0v0DIyy0xya0iXp__-57">
+          <mxGeometry width="50" height="50" relative="1" as="geometry">
+            <mxPoint x="530" y="550" as="sourcePoint" />
+            <mxPoint x="580" y="500" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-59" value="Program&#39;" style="edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];fontFamily=Courier New;" vertex="1" connectable="0" parent="MMc0v0DIyy0xya0iXp__-58">
+          <mxGeometry x="-0.0188" y="-3" relative="1" as="geometry">
+            <mxPoint y="-1" as="offset" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-60" value="" style="endArrow=classic;html=1;rounded=0;" edge="1" parent="l7NxJpuHm0Jx_7flO9iA-72" source="MMc0v0DIyy0xya0iXp__-57" target="MMc0v0DIyy0xya0iXp__-15">
+          <mxGeometry width="50" height="50" relative="1" as="geometry">
+            <mxPoint x="741" y="656" as="sourcePoint" />
+            <mxPoint x="704" y="576" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-61" value="Program&#39;" style="edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];fontFamily=Courier New;" vertex="1" connectable="0" parent="MMc0v0DIyy0xya0iXp__-60">
+          <mxGeometry x="-0.0188" y="-3" relative="1" as="geometry">
+            <mxPoint y="-1" as="offset" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="l7NxJpuHm0Jx_7flO9iA-65" value="" style="endArrow=classic;html=1;rounded=0;fontFamily=Courier New;" parent="1" source="l7NxJpuHm0Jx_7flO9iA-64" target="l7NxJpuHm0Jx_7flO9iA-59" edge="1">
+          <mxGeometry width="50" height="50" relative="1" as="geometry">
+            <mxPoint x="290" y="400" as="sourcePoint" />
+            <mxPoint x="340" y="350" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-26" value="&lt;font face=&quot;Helvetica&quot;&gt;Core source code&lt;br&gt;&lt;/font&gt;" style="rounded=0;whiteSpace=wrap;html=1;fillColor=#fff2cc;strokeColor=#d6b656;fontFamily=Courier New;" vertex="1" parent="1">
+          <mxGeometry x="673.7099999999999" y="740" width="120" height="60" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-29" value="&lt;div&gt;&lt;font face=&quot;Helvetica&quot;&gt;???&lt;/font&gt;&lt;/div&gt;" style="rounded=0;whiteSpace=wrap;html=1;fillColor=#fff2cc;strokeColor=#d6b656;fontFamily=Courier New;" vertex="1" parent="1">
+          <mxGeometry x="1420" y="730" width="120" height="60" as="geometry" />
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-34" value="" style="endArrow=classic;html=1;rounded=0;exitX=0.5;exitY=0;exitDx=0;exitDy=0;" edge="1" parent="1" source="MMc0v0DIyy0xya0iXp__-26" target="MMc0v0DIyy0xya0iXp__-41">
+          <mxGeometry width="50" height="50" relative="1" as="geometry">
+            <mxPoint x="960" y="370" as="sourcePoint" />
+            <mxPoint x="690" y="570" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+        <mxCell id="MMc0v0DIyy0xya0iXp__-62" value="" style="endArrow=classic;html=1;rounded=0;" edge="1" parent="1" source="MMc0v0DIyy0xya0iXp__-20" target="MMc0v0DIyy0xya0iXp__-29">
+          <mxGeometry width="50" height="50" relative="1" as="geometry">
+            <mxPoint x="1060" y="650" as="sourcePoint" />
+            <mxPoint x="1110" y="600" as="targetPoint" />
+          </mxGeometry>
+        </mxCell>
+      </root>
+    </mxGraphModel>
+  </diagram>
+</mxfile>
diff --git a/rlpc.drawio.svg b/rlpc.drawio.svg
new file mode 100644
index 0000000..31dd37b
--- /dev/null
+++ b/rlpc.drawio.svg
@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- Do not edit this file with editors other than draw.io -->
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" version="1.1" width="1581px" height="861px" viewBox="-0.5 -0.5 1581 861" content="&lt;mxfile host=&quot;app.diagrams.net&quot; modified=&quot;2024-02-08T07:34:08.335Z&quot; agent=&quot;Mozilla/5.0 (Macintosh; Intel Mac OS X 10.15; rv:122.0) Gecko/20100101 Firefox/122.0&quot; etag=&quot;ChHLtJSDWCyok1dShmc8&quot; version=&quot;23.0.2&quot; type=&quot;browser&quot; scale=&quot;1&quot; border=&quot;0&quot;&gt;&#xA;  &lt;diagram name=&quot;Page-1&quot; id=&quot;ijVUcW-Be2043inOeyM6&quot;&gt;&#xA;    &lt;mxGraphModel dx=&quot;1629&quot; dy=&quot;2189&quot; grid=&quot;1&quot; gridSize=&quot;10&quot; guides=&quot;1&quot; tooltips=&quot;1&quot; connect=&quot;1&quot; arrows=&quot;1&quot; fold=&quot;1&quot; page=&quot;1&quot; pageScale=&quot;1&quot; pageWidth=&quot;827&quot; pageHeight=&quot;1169&quot; math=&quot;0&quot; shadow=&quot;0&quot;&gt;&#xA;      &lt;root&gt;&#xA;        &lt;mxCell id=&quot;0&quot; /&gt;&#xA;        &lt;mxCell id=&quot;1&quot; parent=&quot;0&quot; /&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-64&quot; value=&quot;&amp;lt;div&amp;gt;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;rl&amp;#39; source code&amp;lt;/font&amp;gt;&amp;lt;/div&amp;gt;&quot; style=&quot;rounded=0;whiteSpace=wrap;html=1;fillColor=#fff2cc;strokeColor=#d6b656;fontFamily=Courier New;&quot; parent=&quot;1&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;10&quot; y=&quot;154.92&quot; width=&quot;120&quot; height=&quot;60&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-72&quot; value=&quot;&quot; style=&quot;group;fontFamily=Courier New;&quot; parent=&quot;1&quot; vertex=&quot;1&quot; connectable=&quot;0&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;150&quot; y=&quot;-60&quot; width=&quot;1440&quot; height=&quot;780&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot; value=&quot;&quot; style=&quot;rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-72&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;1440&quot; height=&quot;780&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-3&quot; value=&quot;&amp;lt;div&amp;gt;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;RLPC&amp;lt;/font&amp;gt;&amp;lt;/div&amp;gt;&quot; style=&quot;html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;1440&quot; height=&quot;76.09756097560975&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-56&quot; value=&quot;&quot; style=&quot;rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;38.4&quot; y=&quot;68.42&quot; width=&quot;431.6&quot; height=&quot;221.58&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-57&quot; value=&quot;&amp;lt;div&amp;gt;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;Parser&amp;lt;/font&amp;gt;&amp;lt;/div&amp;gt;&quot; style=&quot;html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-56&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;431.6&quot; height=&quot;27.6975&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-58&quot; value=&quot;Rlp.Parse&amp;lt;br&amp;gt;&amp;lt;div&amp;gt;(src/Rlp/Parse.y)&amp;lt;/div&amp;gt;&quot; style=&quot;rounded=1;absoluteArcSize=1;html=1;arcSize=10;whiteSpace=wrap;points=[];strokeColor=#6c8ebf;fillColor=#dae8fc;glass=0;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-56&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;26.980533333333334&quot; y=&quot;27.6975&quot; width=&quot;371.43053333333336&quot; height=&quot;55.395&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-59&quot; value=&quot;&amp;lt;div&amp;gt;Rlp.Lex&amp;lt;/div&amp;gt;&amp;lt;div&amp;gt;&amp;lt;br&amp;gt;&amp;lt;/div&amp;gt;&amp;lt;div&amp;gt;(src/Rlp/Lex.x)&amp;lt;br&amp;gt;&amp;lt;/div&amp;gt;&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-56&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;26.98606666666666&quot; y=&quot;147.72&quot; width=&quot;170.33402285714286&quot; height=&quot;55.395&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-61&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;fontFamily=Courier New;exitX=0.25;exitY=0;exitDx=0;exitDy=0;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-56&quot; edge=&quot;1&quot; source=&quot;l7NxJpuHm0Jx_7flO9iA-59&quot;&gt;&#xA;          &lt;mxGeometry relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;111.49666666666668&quot; y=&quot;147.72&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;69.26631355932203&quot; y=&quot;83.84879190161169&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-62&quot; value=&quot;&amp;lt;div&amp;gt;RlpToken&amp;lt;/div&amp;gt;&quot; style=&quot;edgeLabel;resizable=0;html=1;align=center;verticalAlign=middle;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-61&quot; connectable=&quot;0&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;-33&quot; y=&quot;5&quot; as=&quot;offset&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-74&quot; value=&quot;&amp;lt;div&amp;gt;Rlp.Parse.Associate&amp;lt;/div&amp;gt;&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-56&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;244.26979047619054&quot; y=&quot;147.72&quot; width=&quot;154.14285714285714&quot; height=&quot;55.395&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-75&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-56&quot; source=&quot;l7NxJpuHm0Jx_7flO9iA-58&quot; target=&quot;l7NxJpuHm0Jx_7flO9iA-74&quot; edge=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;271.29142857142864&quot; y=&quot;175.4175&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;394.60571428571427&quot; y=&quot;175.4175&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-77&quot; value=&quot;&amp;lt;div&amp;gt;RlpProgram&amp;#39; RlpcPs&amp;lt;/div&amp;gt;&quot; style=&quot;edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-75&quot; vertex=&quot;1&quot; connectable=&quot;0&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;0.0677&quot; y=&quot;5&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;39&quot; y=&quot;6&quot; as=&quot;offset&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-3&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;exitX=0.368;exitY=1.014;exitDx=0;exitDy=0;exitPerimeter=0;entryX=0.811;entryY=-0.021;entryDx=0;entryDy=0;entryPerimeter=0;&quot; edge=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-56&quot; source=&quot;l7NxJpuHm0Jx_7flO9iA-58&quot; target=&quot;l7NxJpuHm0Jx_7flO9iA-59&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;50&quot; height=&quot;50&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;168.70805084745763&quot; y=&quot;201.9041131288017&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;225.8584745762712&quot; y=&quot;152.71439595080588&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-4&quot; value=&quot;&amp;lt;p style=&amp;quot;line-height: 60%;&amp;quot;&amp;gt;&amp;lt;font style=&amp;quot;font-size: 7px;&amp;quot;&amp;gt;(lexer &amp;amp;amp; parser threaded w/ CPS)&amp;lt;/font&amp;gt;&amp;lt;/p&amp;gt;&quot; style=&quot;text;html=1;strokeColor=none;fillColor=none;align=center;verticalAlign=middle;whiteSpace=wrap;rounded=0;&quot; vertex=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-56&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;88.69745762711862&quot; y=&quot;103.52467877281002&quot; width=&quot;68.58050847457626&quot; height=&quot;29.513830306797498&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-69&quot; value=&quot;&quot; style=&quot;rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;38.4&quot; y=&quot;531.8231578947368&quot; width=&quot;431.6&quot; height=&quot;230.4557894736842&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-70&quot; value=&quot;&amp;lt;div&amp;gt;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;Desugarer&amp;lt;/font&amp;gt;&amp;lt;/div&amp;gt;&quot; style=&quot;html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-69&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;431.6&quot; height=&quot;46.091157894736845&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-1&quot; value=&quot;&amp;lt;div&amp;gt;Rlp2Core&amp;lt;/div&amp;gt;&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-69&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;22.122266666666665&quot; y=&quot;46.088669843028626&quot; width=&quot;387.34440000000006&quot; height=&quot;159.17559608494923&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-6&quot; value=&quot;&quot; style=&quot;rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;904&quot; y=&quot;68.42105263157895&quot; width=&quot;186.6&quot; height=&quot;697.8947368421053&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-7&quot; value=&quot;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;Evaluation Model&amp;lt;br&amp;gt;&amp;lt;/font&amp;gt;&quot; style=&quot;html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-6&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;186.6&quot; height=&quot;107.07065060420568&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-8&quot; value=&quot;GM&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-6&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;9.568013810372213&quot; y=&quot;356.90796215152363&quot; width=&quot;167.46559322033886&quot; height=&quot;82.98740890928475&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-9&quot; value=&quot;TM&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-6&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;9.562261652542377&quot; y=&quot;263.9548629430177&quot; width=&quot;167.46559322033886&quot; height=&quot;82.98740890928475&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-10&quot; value=&quot;TIM&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-6&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;9.56226165254238&quot; y=&quot;168.9311122835313&quot; width=&quot;167.46559322033886&quot; height=&quot;82.98740890928475&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-11&quot; value=&quot;STG&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-6&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;9.56720338983051&quot; y=&quot;73.90736162404495&quot; width=&quot;167.46559322033886&quot; height=&quot;82.98740890928475&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-12&quot; value=&quot;&quot; style=&quot;rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;530&quot; y=&quot;68.42&quot; width=&quot;281.6&quot; height=&quot;314.74&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-13&quot; value=&quot;&amp;lt;div&amp;gt;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;Preprocessing&amp;lt;/font&amp;gt;&amp;lt;/div&amp;gt;&quot; style=&quot;html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-12&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;281.5999999999999&quot; height=&quot;24.68549019607843&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-15&quot; value=&quot;Core2Core&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;verticalAlign=top;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-12&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;22.25077720207253&quot; y=&quot;49.37098039215686&quot; width=&quot;237.09844559585483&quot; height=&quot;259.1976470588235&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-16&quot; value=&quot;&amp;lt;font face=&amp;quot;Courier New&amp;quot;&amp;gt;tagData&amp;lt;/font&amp;gt;&quot; style=&quot;rounded=1;whiteSpace=wrap;html=1;fillColor=#d5e8d4;strokeColor=#82b366;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-12&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;31.36994818652857&quot; y=&quot;74.0564705882353&quot; width=&quot;218.860103626943&quot; height=&quot;37.02823529411765&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-18&quot; value=&quot;&amp;lt;font face=&amp;quot;Courier New&amp;quot;&amp;gt;defineData&amp;lt;/font&amp;gt;&quot; style=&quot;rounded=1;whiteSpace=wrap;html=1;fillColor=#d5e8d4;strokeColor=#82b366;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-12&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;31.36994818652857&quot; y=&quot;160.45568627450984&quot; width=&quot;218.860103626943&quot; height=&quot;37.02823529411765&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-17&quot; value=&quot;&amp;lt;font face=&amp;quot;Courier New&amp;quot;&amp;gt;liftNonStrictCases&amp;lt;/font&amp;gt;&quot; style=&quot;rounded=1;whiteSpace=wrap;html=1;fillColor=#d5e8d4;strokeColor=#82b366;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-12&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;31.369948186528582&quot; y=&quot;118.66932274509804&quot; width=&quot;218.860103626943&quot; height=&quot;37.02823529411765&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-20&quot; value=&quot;&quot; style=&quot;rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;1240&quot; y=&quot;68.42105263157895&quot; width=&quot;186.6&quot; height=&quot;697.8947368421053&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-21&quot; value=&quot;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;Some target&amp;lt;br&amp;gt;&amp;lt;/font&amp;gt;&quot; style=&quot;html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-20&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;186.6&quot; height=&quot;107.07065060420568&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-27&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;entryX=-0.019;entryY=0.844;entryDx=0;entryDy=0;entryPerimeter=0;exitX=0.98;exitY=0.066;exitDx=0;exitDy=0;exitPerimeter=0;&quot; edge=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot; source=&quot;MMc0v0DIyy0xya0iXp__-1&quot; target=&quot;MMc0v0DIyy0xya0iXp__-12&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;50&quot; height=&quot;50&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;450&quot; y=&quot;684.2105263157895&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;500&quot; y=&quot;615.7894736842105&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-28&quot; value=&quot;&amp;lt;font face=&amp;quot;Courier New&amp;quot;&amp;gt;Program&amp;#39;&amp;lt;/font&amp;gt;&quot; style=&quot;edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];&quot; vertex=&quot;1&quot; connectable=&quot;0&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-27&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;-0.1473&quot; y=&quot;1&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;7&quot; y=&quot;1&quot; as=&quot;offset&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-30&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;entryX=-0.013;entryY=0.321;entryDx=0;entryDy=0;exitX=1;exitY=0.5;exitDx=0;exitDy=0;entryPerimeter=0;&quot; edge=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot; source=&quot;MMc0v0DIyy0xya0iXp__-12&quot; target=&quot;MMc0v0DIyy0xya0iXp__-6&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;50&quot; height=&quot;50&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;810&quot; y=&quot;588.421052631579&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;860&quot; y=&quot;520&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-31&quot; value=&quot;&amp;lt;font face=&amp;quot;Courier New&amp;quot;&amp;gt;Program&amp;#39;&amp;lt;/font&amp;gt;&quot; style=&quot;edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];&quot; vertex=&quot;1&quot; connectable=&quot;0&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-30&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;0.0097&quot; y=&quot;-1&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;-1&quot; as=&quot;offset&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-32&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;entryX=0;entryY=0.5;entryDx=0;entryDy=0;exitX=1;exitY=0.5;exitDx=0;exitDy=0;&quot; edge=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot; source=&quot;MMc0v0DIyy0xya0iXp__-6&quot; target=&quot;MMc0v0DIyy0xya0iXp__-20&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;50&quot; height=&quot;50&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;810&quot; y=&quot;588.421052631579&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;860&quot; y=&quot;520&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-33&quot; value=&quot;&amp;lt;font face=&amp;quot;Courier New&amp;quot;&amp;gt;[Instr]&amp;lt;/font&amp;gt;&quot; style=&quot;edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];&quot; vertex=&quot;1&quot; connectable=&quot;0&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-32&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;0.0406&quot; y=&quot;1&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint as=&quot;offset&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-35&quot; value=&quot;&quot; style=&quot;rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;530&quot; y=&quot;630&quot; width=&quot;281.6&quot; height=&quot;131.32&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-36&quot; value=&quot;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;Core Parser&amp;lt;br&amp;gt;&amp;lt;/font&amp;gt;&quot; style=&quot;html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-35&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;281.59999999999997&quot; height=&quot;10.299607843137254&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-41&quot; value=&quot;Core.Lex&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-35&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;10.140518134715029&quot; y=&quot;16.369019607843132&quot; width=&quot;87.1306390328152&quot; height=&quot;106.24535947712415&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-42&quot; value=&quot;Core.Parse&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-35&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;182.3834196891192&quot; y=&quot;16.369019607843146&quot; width=&quot;87.1306390328152&quot; height=&quot;106.24535947712415&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-43&quot; value=&quot;&amp;lt;font face=&amp;quot;Courier New&amp;quot;&amp;gt;CoreToken&amp;lt;/font&amp;gt;&quot; style=&quot;endArrow=classic;html=1;rounded=0;entryX=0;entryY=0.5;entryDx=0;entryDy=0;exitX=1;exitY=0.5;exitDx=0;exitDy=0;&quot; edge=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-35&quot; source=&quot;MMc0v0DIyy0xya0iXp__-41&quot; target=&quot;MMc0v0DIyy0xya0iXp__-42&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;50&quot; height=&quot;50&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;-72.95336787564769&quot; y=&quot;39.35921568627452&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;-12.15889464594128&quot; y=&quot;1.0422222222222326&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-51&quot; value=&quot;&quot; style=&quot;rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-2&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;530&quot; y=&quot;440&quot; width=&quot;281.6&quot; height=&quot;131.32&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-52&quot; value=&quot;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;Core Type-checker&amp;lt;br&amp;gt;&amp;lt;/font&amp;gt;&quot; style=&quot;html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-51&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;281.59999999999997&quot; height=&quot;10.299607843137254&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-46&quot; value=&quot;(currently unimplemented)&quot; style=&quot;rounded=1;absoluteArcSize=1;html=1;arcSize=10;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-72&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;40&quot; y=&quot;360&quot; width=&quot;431.6&quot; height=&quot;90.46&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-47&quot; value=&quot;&amp;lt;font face=&amp;quot;Verdana&amp;quot;&amp;gt;Type-checker&amp;lt;/font&amp;gt;&quot; style=&quot;html=1;shape=mxgraph.er.anchor;whiteSpace=wrap;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-46&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;431.6&quot; height=&quot;18.092000000000002&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-80&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-72&quot; source=&quot;l7NxJpuHm0Jx_7flO9iA-74&quot; target=&quot;MMc0v0DIyy0xya0iXp__-46&quot; edge=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;537.6&quot; y=&quot;424.2105263157895&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;-40&quot; y=&quot;490&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-81&quot; value=&quot;&amp;lt;font face=&amp;quot;Courier New&amp;quot;&amp;gt;RlpProgram&amp;#39; RlpcPs&amp;lt;br&amp;gt;&amp;lt;/font&amp;gt;&quot; style=&quot;edgeLabel;resizable=0;html=1;align=center;verticalAlign=middle;&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-80&quot; connectable=&quot;0&quot; vertex=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;6&quot; as=&quot;offset&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-49&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;&quot; edge=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-72&quot; source=&quot;MMc0v0DIyy0xya0iXp__-46&quot; target=&quot;l7NxJpuHm0Jx_7flO9iA-69&quot;&gt;&#xA;          &lt;mxGeometry relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;352&quot; y=&quot;282&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;295&quot; y=&quot;370&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-50&quot; value=&quot;&amp;lt;font face=&amp;quot;Courier New&amp;quot;&amp;gt;RlpProgram&amp;#39; RlpcTc&amp;lt;/font&amp;gt;&quot; style=&quot;edgeLabel;resizable=0;html=1;align=center;verticalAlign=middle;&quot; connectable=&quot;0&quot; vertex=&quot;1&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-49&quot;&gt;&#xA;          &lt;mxGeometry relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;6&quot; as=&quot;offset&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-57&quot; value=&quot;Core.HindleyMilner&quot; style=&quot;rounded=1;arcSize=10;whiteSpace=wrap;html=1;align=center;fillColor=#dae8fc;strokeColor=#6c8ebf;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-72&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;540&quot; y=&quot;460&quot; width=&quot;260&quot; height=&quot;106.24&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-58&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;&quot; edge=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-72&quot; source=&quot;MMc0v0DIyy0xya0iXp__-42&quot; target=&quot;MMc0v0DIyy0xya0iXp__-57&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;50&quot; height=&quot;50&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;530&quot; y=&quot;550&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;580&quot; y=&quot;500&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-59&quot; value=&quot;Program&amp;#39;&quot; style=&quot;edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];fontFamily=Courier New;&quot; vertex=&quot;1&quot; connectable=&quot;0&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-58&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;-0.0188&quot; y=&quot;-3&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint y=&quot;-1&quot; as=&quot;offset&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-60&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;&quot; edge=&quot;1&quot; parent=&quot;l7NxJpuHm0Jx_7flO9iA-72&quot; source=&quot;MMc0v0DIyy0xya0iXp__-57&quot; target=&quot;MMc0v0DIyy0xya0iXp__-15&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;50&quot; height=&quot;50&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;741&quot; y=&quot;656&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;704&quot; y=&quot;576&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-61&quot; value=&quot;Program&amp;#39;&quot; style=&quot;edgeLabel;html=1;align=center;verticalAlign=middle;resizable=0;points=[];fontFamily=Courier New;&quot; vertex=&quot;1&quot; connectable=&quot;0&quot; parent=&quot;MMc0v0DIyy0xya0iXp__-60&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;-0.0188&quot; y=&quot;-3&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint y=&quot;-1&quot; as=&quot;offset&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;l7NxJpuHm0Jx_7flO9iA-65&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;fontFamily=Courier New;&quot; parent=&quot;1&quot; source=&quot;l7NxJpuHm0Jx_7flO9iA-64&quot; target=&quot;l7NxJpuHm0Jx_7flO9iA-59&quot; edge=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;50&quot; height=&quot;50&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;290&quot; y=&quot;400&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;340&quot; y=&quot;350&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-26&quot; value=&quot;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;Core source code&amp;lt;br&amp;gt;&amp;lt;/font&amp;gt;&quot; style=&quot;rounded=0;whiteSpace=wrap;html=1;fillColor=#fff2cc;strokeColor=#d6b656;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;673.7099999999999&quot; y=&quot;740&quot; width=&quot;120&quot; height=&quot;60&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-29&quot; value=&quot;&amp;lt;div&amp;gt;&amp;lt;font face=&amp;quot;Helvetica&amp;quot;&amp;gt;???&amp;lt;/font&amp;gt;&amp;lt;/div&amp;gt;&quot; style=&quot;rounded=0;whiteSpace=wrap;html=1;fillColor=#fff2cc;strokeColor=#d6b656;fontFamily=Courier New;&quot; vertex=&quot;1&quot; parent=&quot;1&quot;&gt;&#xA;          &lt;mxGeometry x=&quot;1420&quot; y=&quot;730&quot; width=&quot;120&quot; height=&quot;60&quot; as=&quot;geometry&quot; /&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-34&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;exitX=0.5;exitY=0;exitDx=0;exitDy=0;&quot; edge=&quot;1&quot; parent=&quot;1&quot; source=&quot;MMc0v0DIyy0xya0iXp__-26&quot; target=&quot;MMc0v0DIyy0xya0iXp__-41&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;50&quot; height=&quot;50&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;960&quot; y=&quot;370&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;690&quot; y=&quot;570&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;        &lt;mxCell id=&quot;MMc0v0DIyy0xya0iXp__-62&quot; value=&quot;&quot; style=&quot;endArrow=classic;html=1;rounded=0;&quot; edge=&quot;1&quot; parent=&quot;1&quot; source=&quot;MMc0v0DIyy0xya0iXp__-20&quot; target=&quot;MMc0v0DIyy0xya0iXp__-29&quot;&gt;&#xA;          &lt;mxGeometry width=&quot;50&quot; height=&quot;50&quot; relative=&quot;1&quot; as=&quot;geometry&quot;&gt;&#xA;            &lt;mxPoint x=&quot;1060&quot; y=&quot;650&quot; as=&quot;sourcePoint&quot; /&gt;&#xA;            &lt;mxPoint x=&quot;1110&quot; y=&quot;600&quot; as=&quot;targetPoint&quot; /&gt;&#xA;          &lt;/mxGeometry&gt;&#xA;        &lt;/mxCell&gt;&#xA;      &lt;/root&gt;&#xA;    &lt;/mxGraphModel&gt;&#xA;  &lt;/diagram&gt;&#xA;&lt;/mxfile&gt;&#xA;"><defs/><g><rect x="0" y="214.92" width="120" height="60" fill="#fff2cc" stroke="#d6b656" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 118px; height: 1px; padding-top: 245px; margin-left: 1px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><div><font face="Helvetica">rl' source code</font></div></div></div></div></foreignObject><image x="1" y="238" width="118" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAdgAAABICAYAAABVyORuAAAW1ElEQVR4Xu2dBbQtNxWGixRYuLtcKO7u8nB39+IOxZ3iUtwdilOguOvD3d2Lu7uzv3ICWZudmcyZpPe8N/9eK+veMxP9ZyZ/srOzc6g9JEJACAgBISAEhEBzBA7VPEdlKASEgBAQAkJACOwhgtVLIASEgBAQAkKgAwIi2A6gKkshIASEgBAQAiJYvQNCQAgIASEgBDogIILtAKqyFAJCQAgIASEggtU7IASEgBAQAkKgAwIi2A6gKkshIASEwAwEjmlp98zS/8b+//OM/JR0mxAQwW4T8IViL2LXd7p7N7Hf+wfxj2LXfuuuP9l+33GzmqTaCAEhMAEBiPWvLv6j7Pe9JuShqBuCgAh2Qx7EqhqXtb9vdlW6vf1+alDNo9m1X7vrz7XfN9+sJqk2QkAITEDgcBb3Ly7+Y+333SbkoagbgoAIdkMexBoEe1hL8zdX/cfb77tsVpNUGyEgBCYgIIKdANamRxXBbtYTmjKDpeb/ctXf134/eLOapNoIASEwAQER7ASwNj2qCHazntBUgv2JVf+4WROYvTKLlQgBIbBrIiCC3TWfW1hrEexmPcypBPtFq/7psyaw/so6rEQICIFdEwER7K753ESwu8Bzm0qwH7A2XSBr17Xs/1fuAu1UFYWAEIgREMHuRm+GZrCb9TCnEuwbrfqXz5pA+rduVpNUGyEgBCYgIIKdANamRxXBbs8TOoIVe8pV0QfZ39+v/p9KsC+xdNfLmsBs9kMdm3QMy3vLwvEssAf3lxZ+ZIGN8C0Ey+hTWziOhSNaOIyF31n4sYWvWfBGXS3KPKTzOOEKv1/ZX559jexlkU5gga1ZWI7/wsJ3LPy8JnFlnMOvcAdzOvkfWvhDZdre0Xq3HzuGk1ngL/iCAdh+wwLPqaUc2jLj+6fvjfBtSbB8T8eycFQLf7fAtr7W7WmJzW6Xlwi27SM9jWXnN4Tfz679YFUMs02sfM+eFXs7+/9pq99TCZZ0t8nyOov9/7m2TTp4hswevHNYwLlFJB+xi6+x8AwL3vlFTXXOb5FuYeHqA2X81O692sKTLHy5JlOLs48FMEnyD/uHfcW1XnHuanHPmKWH7EuOPO5h906Xxf2E/Z/2LzMwebiF62ftIy86vpIwyLjDKs0pBuK9wu7xTrEeP1UgrutYYGnhzEFiMCd/BnIftXBIDnB6t//I1p5bWbi2hXMNAPd+u/fCVfAOIGrwhlAvvCrnCvb3xFki3oGvrzDe3/5itDiXYI++Kuuq9vfShQryrVLe2yz4Pbc1bVKcSgREsJVAVUaLCPJ8lvazFp5u4cZBPnMI9hGWX07oJ7ffB1XWdSwahPoYCzvGIroOA6I8oDINM+HHWchn4TVJMeS6swU6qCF5n928kItAx1078/Nr3GRV+mY+affygROd12UsXMzCyyzk1t7kM0SwYIhzgdKAJmrzS+3i3S0w8xwT8r33KozFTfc/aP9gRPeV2gQz4vVu/zWtbk8JnslQlb9vN6nXlCWYk1r851i4ZCUWDKieZWEdRxMQOf3LEye8Nwyg9rbwlsr6KdpEBESwEwEbiR4RLO4P2T5z5ULaOQRLJ8nMKMmx7R/Uh3OF2QyDgnXlZpbweSOJt+z+uywMzc6GsvjSClPUeCXZboJ9mFWMOkQSESzfI27xIMp1BE0C79vQTItBzdstRDPWmjJvbZGeWRNxjTiHRPvvY/XiuawrpGdgOyZoTpj9Thkkkeejg+c/5skJVTBEHg3gx+rJfb5VZvOokSUNERDBNgTTsooIFpXtUGc2h2BJy0g8CWs7c1U+qC0/bWGI+CCHsY7jTBbnCwV4mc193oKf1fnoY+UwqzibhdKMdDsJ9ltWL2bLJZwigmWwxKBpjqARQLUdCXh/eOTZ1pSNxoFZeWvp3f57WoUfOVLpsXeO5GP7zZm5frzi/a7Fb4hgmbmixmd5ZY6wvJMvN83JS2lXCIhg274KEcGWSoAc/miB9c03rCJNXYO9gaV7UVZAi+eJowrWLnNBlfQgC3SqyUgiGTwxo7ll0EjadKVC419r16MZ/afsOh8665eQMwYnlHMVC6jCMYDy8m67cAkL0frgdhJsoekHX2bQhYHYRbNI0UEP6TbLC8+2gKEXHSqDH9qMCj8S8t3pbvBuvM7CFYMEPF9mZQysMJ4i/3Nb2GGhtI7H2vQ6676FKh888/Z1btn+c1pmkF4k+9lF3hXeO9ZBmREyA72phdsW0kQYp6gQHmroSJgtfswCGpgTrXBG9T40YB0iWJZKGFRFwjNFtY9anxN6WGs+r4UbFuJrH30BmHUvt+iQ1y17d0w3RrAQCB8Es7fImm8qwWIwQUeIoBZk285c8c4ryG/MeKrUOZ7E0jKQyOUa9iPaq0tHcDkLJSMprIohmWi9lnTROtImESwDBIy0mNlibJULHfq3LeQGMOk+a7jvKTxULNG559NFs1hOZYrU9hi8sLZYWlp4gN1jcOWFZ4hxVAvp3X4GJXxzuVOWVO+xveMXt4hg5AmQbxk7BS+ntQuRER7fAQNOBjFesJ1g0FnSdJUIlvZEgxzI+7oWSgaPl7J72Ah4YaC1ZeFPLR6q8igbbAib9RAYIlisX7E0HVLhTiXY9WpZToVlpTccgrggsDGJZqUYd7zTJWT07q02d9o1LCzHtoVgYYmKMzcmInvI+YJBBTeBYOm06Fixwi0J95ldekHtBykPCVbefmBFx5pbT5cIrJYksYR/SFCJU9m1oTXwkar/93bv9pcIBS3K6ysqeTWLc2AQL3q/n2/x9nZxeR5oHH42UBYDSNbGc8cxKXqJYKOyIHKId8wAkPq8I6hP6XjMCpgUxSOgGWzbd6JEsBg7MMsb2+aw3QTLbNgTAWq1NEseQguCTKruFA/DCawik5TUdFzHCrdGUHFBsl6YxaXtUOneJhDs0Aw01RPLVK+KpfODGGoksnbODd5QsTMLy4UOmNlWjdUx6Zgp73B5tDJ46t1+SNSrxoeWMCLMOUaS7zMXVPe5CnnLfqOJ8FLSsPh4WLxHRnERwbIvOnp2tWVR9v0t+MNBUG+zdUnSAAERbAMQsyxKBHtWi1NjlbvdBFuyHsY6kb2AQ8LmfCxUc8EBRT4r9VbPxC2p2kpl8c5+14JXi0aqvu0mWGY9qMSHBMO0SCVXM3tN+aIZwfo4l7yj5dn5dTcslUtruFF96XRf7m7UzoC3s/040Ij2PU8hIurv7R24hrqfvcRJInU67zcDyLHBdcoDy3oGZblEBBup/Gu1TSlvlnD4lnJh4MVe2n8OPTTdq0NABFuHU22siCBrZ4CUsd0EC0myNhwZXGCtjJqbjfHrinftSD4YkqDqmiJ+/y9po05ouwm2xnVlpDWgPRh34XmnRhjYnMdFpO0pPYY73mIbTcCQ2tqXy4zYqzgxusK5yhzp3X6WI1iWyAU1KuueU7al8DwwTPOCp6R03XtWIy7GTq+aABAOIvyyQPRusxecbyeXqYMm0kY2F3gbw0ObZCYCItiZALrkEUFimBNZ2UYlbzfBUqchC0ju06lClHTgqGpZY6wVDJg8eW/ZNSxXpwgGHDhWyAVr6hu5a9tNsDVtw8AoV6PThJ0WcgvjKdj4uHSWXnVOHNZPx9a8fV6RSpJB2ZzZTu/28+35fbtTvskcg+/ZD685Qc3+1VUk72yEy6yH1noeIz7bzpj15hIRLGV6q3o0TdG66tD7w+DWL08wWPODkjnv4GLTimDbPvqIINmGwwdSI5tAsHQg77UwtA82bwudAWtcfNh8lKVZAYY2bLvxggpvqgu6yEAjUo9tN8HWkE/k+KDlnkSMnT5T8/KtGYd902MGNUNZ927/fa3wh7oKsPbor9U0nwElM/9cck1ANICcig97p/2gNSLYWpVzTbt8nBrNyzr5Li6NCLbtI59LkHPTt2rNVJJN5dLRshbIjME7f2Afnt8KQkfi121r2sD2CPYs5hJZEs8l2KhDrXWVSN1qvi/wYg01Fyx2Wc9rITssk9I2nxb5z/Ue1rv9rDN7xxvrWspGxlLJkjhSoY/5m47w553xGgFPsJG/4hbPMuVRa13dsszdMq+aDmC3bHinRs0lyLnpWzaLbQN0ROzfjPZnjpXF2ldOgpxWcpBLNNXAKSWPrC0jq9C5BButT7UmWAYjfgmBvdJPGAO48n5pC0xl8tFoOEuotUSOMuvdftTvqKFzweL9TaMt+/8IkQFSsoCPDATXIVhK9TNhT7Cs+9b6016jmQfvb9a50usg59KIYBuAmGUxlyDnpm/bmv/kxiZ9rKCxuqSzHjp5JC+fzoX1pG+uLmKZ6J1reCvM2vpHFq14oMKFXS5zCTYyDmpNsDiFgFBzQa2Z+5iuxSWKV9oDit/iuYJ1bs3+5aFyercf14i4SMyFNXxvEV2DBe+yXzpJh0dEA8h1CJaBrV8b9wR7JIuTjrjM681+W7zDzZU7WgYlr1dz815UehFs28c9lyDnpm/bmjg3ziTlhKAdFthbGHnHSSmZJdABJ4nWqPa0m1OsOckrcg/HMXTpeLhU3lyCjda5WhMse0nZT5lLyzXYyIp2nY6/17vVu/2RERVaGb+taax9keqWNOl9KNkYTF2DxTuXt9SvXYM9naU9JE47GsNK91cIiGDbvgpzCXJu+ratqcsNx+a4L8RYxVsI05FDyImoIocI66gY97c8/ckhkdpvDsEyU0mz7xyJ1gRba7A19DS27Ka3BMWzFjPwqMMmrynbgOrehPVi9W4/e0pR7ebCOcoclDFFIhz9Eke0pDCV9Dg7FiPDXCKCjbQr66q+p+CguBMQEMFOAKsi6lyCnJu+ooqDUdiDh7FGElS4vnMqZcBMFrWjJ1k6pkRUHKnFUXa5TD2ZJVKhkd+ZLPjTeyKCPYPFw1frmOxtEaL9ua0Jlv2Y4JwLAxOMv2p9wkb7giEunl1pZjV1Hyz5gEnefmZLeCmbI73bv2WV896VwJstLt4n9FA7mPX6Y+q81yP2u/pTbcZO3vFl7msXHuguRgQbGVytsw8Wg6Z8jzRapgPmPFCl/R8CIti2b8Ncgpybfm5r/Kh4ipMMykbVicovl9xVYORxaKqhU8kvLOtSfv0p6oRq199KJ/60JtgSAeI5CMcFY0J9Is9WDEQSQUdu/nBUwOkptUJc9o/mMjWPqKze7S/lP3W2F+07xTNZfvwd58yiyckFpxZbFmrIHF/gGIz5QWpEsGz/4+zYXBg44PijdsklOiyA+uLhSdIAARFsAxCzLOYS5Nz0c1sTOZlge0108k9UVjRDpXNJjiTOb/+zncYLVsGoj8cEgyvIwqtD2dPI3kYvkQXpfhbJG734dKV6Eq81wZInxwBex1UCbQBr3WMSOd3wFtX+3OCU55b9k57NUDkMXui8vTeoyNn9WH2j+73bjxN96poLxxxyUk6NcJBENFNPBk4pj5ID/VoyLz2niGBL+5trB5DUORpEttwiVoPtbh1HBNv28c4lyLnp57YGFRMElEvtB8daKyrafEtPZEwTfdR4h7qMhchRel6XJ9oPLBy90PFHJ5U8yK77/aTsvcU9X4lYWBOm843OnqXcHgRbWictDRxS+6krXoL8jMc74cfQhpmJj8cJPqjohyxPmQFi6XsHBzrPlsFX7WwpeGz/vdS7/Zy+FB0mwWzTq319PZkRosnx2JHOz1ZJGx1cwDsHwZeOjyMd7yQnT0VuSiOCJU20bYiB0EUteB/Dvl2RJT5x2G7E0X6SBgiIYBuAmGUxlyDnpp/bmtLMDatWVFIl13oQHO4T/RaeaG8qHVZk6UiHTccQdYS8pxDlA4MGoqJDVRdJZOBCPDohCD231oRIsIrG3/LQvt8eBEudooPuuU59cJTgiYzZEmvEUV2jk4VK57qioue0HdwAetmyCxwUgIbByz52gQFPK+nd/v2tot4wjrrzbjN4iAYKtP+jFvzMnXSskUduQrEFiIiU95utbpGmhvdu6Ni8EsHyvTAY9EJZzJqxQfCCNgLV8m2Cewy4eBckjRAQwTYCcpXNXIKcm75FazBwiA7ShpTYfM5sE6MlOiQ6cs4j9Se1pHowc4gOmIY0/IwopUE1igclnI3zfkL6EGU0sifN8S2wdhwJpIkf3qiDJD4dJGXhGQfvUKV4ed69CJayS+2g/J0WcEXJ2ir7i6NzQ4nH6T0HBmDQRqxTvau/FJUDuCHbgyxsWWDvM+9jJAycMI5p6a6vd/ujk2NS23gPwCbt/SQux0uWDkBniw9GTyWJbBFSXL6fD1lI2h7e7VI5KU2JYLmPxgnNUyQsx/BM0XJgNc4zpV3Re46GA7VzdKDBQFN1awgBEWzb92MuQc5N36I1OIdnhlkitNoymHWhWowES2U+/pIatrYMHF/4M2h92pvYhefVZpjFo9NlvXdvl7YXwVJMdJLKlKpHzjby9BAHnfs6nrlSPuDC1pMeHXHv9pfWOKdgvNMiM6gcUqtDYAzcav155+VDdOSdfxtDBMs+cmaepcFQbdtY72/hfKS2vEXEE8G2fcxzCXJu+latKVnq1uaPdSnu/4ZOWaETwkE/s9x1ZMp5qTiguO2EQlCxMdKnw/fGUz0JlipGh6PXVJ1ZE2rbsYMTUG0yKKn1yJWXzfYm1Jl+W1FN/Wrj9G5/ZA1dWzcOtODbiLwo+Tw4EJ011SFHLD5NWqtF9b4juzlEsESDZDlOsvbUrrxc3nW0HhiCSRojIIJtCygfhXeszr7P2hnU3PQtW4PRBR96SaUYlcUImE6edasa4SQdiA9jpNoZ84stLuq56Ai2oTKxrsS/75gamLow82Y/IHsY6dySDHlA8ntu1z3IgLKYYbJO5i2Lo/a9xi5ibDPFgw/qYjwcYahTgzvPFUwwUItORKp51lPi9G4/Kllm+6hna4RneScLLJ9MUYujzmeANqROTuWz/IJxGpoBf27yg+0a+2PHhAE673iNZoiZMu/2CyzU7hIYK1/3HQIiWL0SYwhwNiTGFKyF7mUB9S4kxQfK2g7rsQTWlFjHm9IBpbLp5OnsMDyic6CDxXcxDs0hUgIWk4yyI8OSsTak+xwfR3toC20goI5jjyNrY6xXDa2D1pbTKh5Y02niHAPVPdbAGCNRV2aR1PsbMwrD4IWtKpSRcGfdGgtUysHSms6+dsA0oyph0t7tP+Oq7axngy+zToR3m/fgsxbQsnBoxRxrafJm5ss7js/i9P2AMXlDrmMW9LXY8vx4xzFywuCKZQGsvWlTeq4YWvFc57Sptj6LjieCXfTjV+OFgBAQAkKgFwIi2F7IKl8hIASEgBBYNAIi2EU/fjVeCAgBISAEeiEggu2FrPIVAkJACAiBRSMggl3041fjhYAQEAJCoBcCItheyCpfISAEhIAQWDQCIthFP341XggIASEgBHohIILthazyFQJCQAgIgUUjIIJd9ONX44WAEBACQqAXAiLYXsgqXyEgBISAEFg0AiLYRT9+NV4ICAEhIAR6ISCC7YWs8hUCQkAICIFFIyCCXfTjV+OFgBAQAkKgFwIi2F7IKl8hIASEgBBYNAIi2EU/fjVeCAgBISAEeiEggu2FrPIVAkJACAiBRSMggl3041fjhYAQEAJCoBcCItheyCpfISAEhIAQWDQCIthFP341XggIASEgBHohIILthazyFQJCQAgIgUUjIIJd9ONX44WAEBACQqAXAiLYXsgqXyEgBISAEFg0AiLYRT9+NV4ICAEhIAR6ISCC7YWs8hUCQkAICIFFIyCCXfTjV+OFgBAQAkKgFwIi2F7IKl8hIASEgBBYNAIi2EU/fjVeCAgBISAEeiEggu2FrPIVAkJACAiBRSPwb4gCnoV+pfVSAAAAAElFTkSuQmCC"/></switch></g><rect x="140" y="0" width="1440" height="780" rx="5" ry="5" fill="rgb(255, 255, 255)" stroke="rgb(0, 0, 0)" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1438px; height: 1px; padding-top: 38px; margin-left: 141px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><div><font face="Helvetica">RLPC</font></div></div></div></div></foreignObject><image x="141" y="31" width="1438" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAFngAAABICAYAAAB7XT/3AAAgAElEQVR4Xu3ce6hlVR0H8EwnciQzH8P4SE1TQkNhwphSZEwn81Gp+cjUNJFQUIvER9jDEkoyER/VRAwNpUMqauULdfDxx6hJmo5m2pgmDqJTYuk4lY7Wd8kI02bve8++5+x777n3c+DH3L32b6291mfvP4fveu/wI0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQaCWwXqtuzQQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAu8Q8OwjIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAi0FBDw3BJMOwECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBAwLNvgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECDQUkDAc0sw7QQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAc++AQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIBASwEBzy3BtBMgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKAiMCPXe6b2T22fmp3aKrUm9e7UytTfUg+klqbuT71MkQABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgACB4RYQ8Dzc78/uCRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEppfAzBz31QEcuQQOr0i9kHoodXPqvlQJJO71V8KK51SaS8Dxbb0u0KLvL+ndoUV/tfWVDJT9Ppp6PHX32r/7WPKtqWVP56aOSL2n5WKXpr9UOZsfAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQJDKCDgeQhfmi0TIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAhMW4ESIvxyR6cvIcjfTl2W6iXouS50+bDMvb6D/ZUztw1QHm0b5ZzlvC+N1lhzvwRtn5k6bwxzq1POysBFqTcHsJYlCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAYRwEBz+OI7VEECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE+hToMuD57a09mD8OST07yl6HPeC5HK+EWn8x9esW72XL9C5J7dJizmitN6ThqNS/Rmt0nwABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgACBySMg4HnyvAs7IUCAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIDCawHgEPJc9LEvtlSoByE2/qRDw/PbZds4fy0fDz/2tU3ekSv9Iv5W5+dRav+166C9rXZv6fGpND/vQQoAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAJBAQ8DwJXoItECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEOhRoCngeXHmr+hhjfL/hzdKbZHaPTVSUPGC3D9lhDUnOuD5luztkVHOPDP3Z6W2Tc0doXdp7s1LjRSuvEnuP5DaoWGdEur8/dSNqScrPevnesvU0alvpsp7rPt9L4Pn9vAetRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgMAkEBDxPgpdgCwQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgR6FGgKeN4p86uhwr0s+eE0XZXapaF504y/1HBvogOe52dfS3o55NqezfLvV1IlYLnu99UMXjLCegtz78SG++dl/MLU6h728770lBDnMxp652T8Dz2so4UAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgQkWEPA8wS/A4wkQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAi0EBh0wHN59OapW1MlWLj6OykDJdi47jdsAc9vn+HU/HFZzYHuytg+DWc9KOM3Ntw7MuPXtHiHb7demj9Oq5l3R8b2HcN6phAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgMM4CAp7HGdzjCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECPQh0EXAc9nOtqlnavZ1YcbOatjvsAY8l+OUgOcS9Lzu75VcbFxz1ndm7E+pnWvuHZ2xX43xfW6QeSU0ev+a+eVZy8e4rmkECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECIyTgIDncYL2GAIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIDEOgq4Lls7YXUrMoer871UQ37HuaA58NzpmtqzrVlxp6vjO+X69trekuwcwl47ue3ayY/WrPA2Rn7QT8Lm0uAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQPcCAp67N/YEAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAoMS6DLg+aps8sjKRu/K9T4Nmx/mgOftcqa/1pxrXsburoz/NtefrumdnbESit3v794sMLeyyEjB2v0+z3wCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAYkIOB5QJCWIUCAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIDAOAl0GPC/M/k+snOHaXB/ecK5hDnjeMGdaXXOuAzN2yzrjG+XvVTV9izN2zIDe97FZ56LKWksGuP6AtmkZAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgSqAgKefRMECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEhkegy4Dne8Mwt0Jxca6/1sAzzAHPu+VMD9eca+eMLV9nfO/8fXdN3/yMlRBmPwIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEprGAgOdp/PIdnQABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAYOgEugp4nhmJV2s0Ts3YjxqUhjng+Zic6Yqac83I2Jp1xs/O3xfU9G2UsdVD9/XYMAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECAxUQ8DxQTosRIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQ6FSgq4DnRdn18TU73zpjzzWcaFgDnmflPI+kyr/r/pblYvfK2JW5/kJl7LFc79rpW7Y4AQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQJDISDgeShek00SIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQeEtg0AHPm2bNM1Pn1PguztgxI7gPY8DzNjnPL1Pzas51Xsa+Uxm/LdfzK2MLc32S75EAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQICnn0DBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBIZHoCng+cgc4ckejjEjPbNTJeh499SXG+asyPgeqedHWHOiA54Pyd5uH+XMG+f+1mvP+7n8e1xD/8qM75haVbn/QK7nVMbOz/W3erDWQoAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAFBcQ8DzFX7DjESBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQITCmBpoDnQR6yhB3vk3pslEUnOuB5kGc+NotdWbPgsxkrYdjr/s7KxYWDfLi1CBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAYTgEBz8P53uyaAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBgegp0HfD857B+PPViD7xTJeB5cc56XOrNmjO/kLFZlfFTcr2gBx8tBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAhMcQEBz1P8BTseAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAlBLoOuC5YF2eOiP12ihyUyHguQQ7XzHCOf+Ye7tU7n891xdMqa/KYQgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQGJOAgOcxsZlEgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAYEIExiPguRzsptRnU2+McMphDXhekTPdkzon9fQob/HO3J9X6VmQ61Mm5O17KAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECk0pAwPOkeh02Q4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQGBEgaaA52Mza3kPdhuk572pTVNzU0emZjXM+0zGbxhhzYkOeF6Yvf2+hzOXln+knlhrtKrHOaXt6tQRlf7bc/3JFmtoJUCAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBgigoIeJ6iL9axCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEpqRAU8DzTjntk2M48eaZc2tqTs3cmzJ28AhrTnTA8/zsbckYztxmyk/SfHJlwopcv7/NIj307pae9dfpeyN/L+thnhYCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBCZQQMDzBOJ7NAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIGWAoMOeC6P3yT1u9TOlb2MFmQ8HQKez4jJD2ve0bsy9nrLd9fUvm1uPFNzc4uM/X1Az7AMAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIdCAh47gDVkgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQ6Eugi4Lls9fzUN2r2vGHG/t1wlukQ8PzRnL2EX1d/n8jAnQN6xydmnYWVtZ7K9Y4DWt8yBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAh0JCDguSNYyxIgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBDoQKCrgOf9stfba/a7dcaeazjHdAh4npGzv1Zz/jsytu+A3u91WefQylqX5/q0Aa1vGQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEOhIQ8NwRrGUJECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIdCDQVcDzptnrizX73TFjTzWcYzoEPJej35w6oMZgz4zd0+c7/mDmL69Z47CMXd/n2qYTIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQINCxgIDnjoEtT4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQGCAAl0FPG+QPb5es89dM/ZYw/6nS8DzcTn/L2oMbsnYgX2+20WZf3zNGptnrC5wu8/HmU6AAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAwCAFBDwPUtNaBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBLoV6Crguez6vzVb/0jGHmw40nQJeJ6R8z+e2qHGYX7Glozxlc/LvDtr5t6UsYPHuKZpBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAiMo4CA53HE9igCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECfQp0GfD8cvZW1l/3t1culjbseboEPJfjn5D6eYPDxzJ+X8v3+qH031/jXZbZPvVMy/W0EyBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECAwAQICnicA3SMJECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIjFGgy4DnusDmg7PPmxr2Op0CnmfE4KHULg0Wp2V8QWpND+/1sPQsSlXDtMvUk1M/7WENLQQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQITAIBAc+T4CXYAgECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIEeBboMeH4ge5hT2ceXcr2oYW91Ac8PpndZj2dpaivzL67cfDnX1UDk+Rlb0uez2kzffu3Z6oKZyzqPpX6WujH1ZGXhmbk+MHVC6qCGh96V8X1Tb7bZlF4CBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBCZOQMDzxNl7MgECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIG2Al0GPN+ZzcyrbOiyXJ/esMm6gOe256nrX5rBvSo3JkPAc9nSHqn7ezzkU+lblZqdmjXKnJW5Pzf1dI9rayNAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAYBIICHieBC/BFggQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAj0KNBlwPN12cOhlX28kuutUiWouPqbjgHPxWCf1G9S5V0M4rcsixyQem4Qi1mDAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIHxExDwPH7WnkSAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgX4EuA54vyeZOr9ng0oztm/pP5d50DXguDLNTi1L79/lCf5z556RKkLYfAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQJDJiDgechemO0SIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAhMa4GZOf2rNQLbZuzZPmUOzfzrGtbYJOP/rNx7ONe79fnMuum3ZvBTlRvlbNtUxvbM9T0dPL/NknunuQQ0H9BmUnoXp76beqLlPO0ECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECEwiAQHPk+hl2AoBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAkMpsGV2vVeqBD5/IDUrtVlqTeq51MrU06klqRJKvXooT2nTBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAj8n4CAZx8EAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKClgIDnlmDaCRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQICnn0DBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIGWAgKeW4JpJ0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgIePYNECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgRaCgh4bgmmnQABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECAg4Nk3QIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBBoKSDguSWYdgIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQICAgGffAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgpYCA55Zg2gkQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECAp59AwQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgACBlgICnluCaSdAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQICHj2DRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEWgoIeG4Jpp0AAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECKWPwygAAAWzSURBVBAgIODZN0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQaCkg4LklmHYCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAgIBn3wABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoKWAgOeWYNoJECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgKefQMECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgZYCAp5bgmknQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECAh49g0QIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBFoKCHhuCaadAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQICDg2TdAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEGgpIOC5JZh2AgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgICAZ98AAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKClgIDnlmDaCRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQICnn0DBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIGWAgKeW4JpJ0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAj8Dy1yy1g7VQDYAAAAAElFTkSuQmCC"/></switch></g><rect x="178.4" y="68.42" width="431.6" height="221.58" rx="5" ry="5" fill="rgb(255, 255, 255)" stroke="rgb(0, 0, 0)" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 430px; height: 1px; padding-top: 82px; margin-left: 179px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><div><font face="Helvetica">Parser</font></div></div></div></div></foreignObject><image x="179" y="75" width="430" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABrgAAABICAYAAACtFPWdAAAVGklEQVR4Xu3dfbB1VV0HcJVUxEApw3cRMywNc6gMUYYnJ8qkIiTJVNBkctRsRKSkVETMGS3RzPcSYQJBNBVfEksKyUAqZHgRh0BeMjPRBjTIUhD7/mbOU4fd2ufsc+8+5z6X57NnfvPcvc7aa639OYc/mO+sve98JwcBAgQIECBAgAABAgQIECBAgAABAgQIECBAgACBTSRw5020VkslQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgcCcBlx8BAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAphIQcG2qr8tiCRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEBFx+AwQIECBAgAABAgQIECBAgAABAgQIECBAgAABAptKQMC1qb4uiyVAgAABAgQIECBAgAABAgQIECBAgAABAgQIEBBw+Q0QIECAAAECBAgQIECAAAECBAgQIECAAAECBAhsKgEB16b6uiyWAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBAwOU3QIAAAQIECBAgQIDA2AJXZ8CHrWPQm3LtZ1OfS12ROnfy9zqGdCkBAgQIECBAgAABAgQI3JEEBFx3pG/TvRAgQIAAAQIECBDYNgT+I8vYeeSlvDnjvTJ148jjGo4AAQIECBAgQIAAAQIENqGAgGsTfmmWTIAAAQIECBAgQGAbF1hGwFW3XDu7Dk+duY3fv+URIECAAAECBAgQIECAwJIFBFxLBjY8AQIECBAgQIAAge1QYFkB11bKPfPHVduhq1smQIAAAQIECBAgQIAAgYmAgMtPgQABAgQIECBAgACBsQVaAddZmeSyORPtlM93Sz0ktc+Mvuflsy2pW8deuPEIECBAgAABAgQIECBAYHMICLg2x/dklQQIECBAgAABAgQ2k0Ar4DogN3D2Ajfx/en7otQreq45Mu1vWmA8XQkQIECAAAECBAgQIEDgDiQg4LoDfZluhQABAgQIECBAgMA2IjBGwLX1Vl6YP97cuK9Ppe2nt5H7tQwCBAgQIECAAAECBAgQWLGAgGvF4KYjQIAAAQIECBAgsB0IjBlwFVcFXBV0TR835WSX7cDSLRIgQIAAAQIECBAgQIBAQ0DA5WdBgAABAgQIECBAgMDYAmMHXL+SBb6/scj7p+0rCy6+Hn1Y7/i6R+qrqX9L/eeCYyzSfYd03iN1z9SXU18bcHG9i2z31INT30rdMFnr9QOuXaTL96ZzvfPstslFtb5vLzLAgn13TP+HT665Lv/evOD1uhMgQIAAAQIECBAgQOB/BQRcfgwECBAgQIAAAQIECIwtMHbAVWFPBSLdY0sazp2z+NrldVjqOam9e/rWbrDLUyenzkh9fQDI3dKndpbVv1uPU/LH30xOfiT/npD6+anPK6Q7tGfsvdJe7xvbP1WhU+u4Mo0fTb0tdc2ANba67JvGCgyf0TNPzVH3cXrq6oFzPCL9jun0fXnO/3XSdmD+PT417f+bk/sYOIVuBAgQIECAAAECBAgQuL2AgMsvggABAgQIECBAgACBsQXGDrhqt9U3G4t8ctrO6ll8XXNc6nfWcHMVXL0kdcuMa++Vz7pB2EvT9gepI1NvbFzbCrgeMFnnbyy4zt+fXPedgdfVLrIK3A4e2L+6nZj67dSNc66pEO/jnT6Py/klqbenntW4XsC1wBehKwECBAgQIECAAAEC/19AwOVXQYAAAQIECBAgQIDA2AJjB1yPnoQl3XXumYarGovfOW1npp64jhs7LdcenuoLkPoCrnrc3x/2zNsNuGqdF6bqPtZyvDsXPXfGGreO+VP545Opmm/Rox7jWKHY+TMubAVctRPtqNRBPdcJuBb9JvQnQIAAAQIECBAgQOB2AgIuPwgCBAgQIECAAAECBMYWGDvgqsfpndpY5F3TdmujvR7h9/w5N1WPJZwX+FRQ1bcDrBVwXZr+Fcb1Hd2A6z3p+PQZ/Yes8Xm5/p0zxqhHEp63zi+41rFP6vM947QCrnkWAq51fikuJ0CAAAECBAgQILC9Cwi4tvdfgPsnQIAAAQIECBAgML7AmAFXvY/qslT3vVQVoPxYY+kPTNuXGu0V0lToVTuRvpiqnVnfk/rBVAVo9VjBbuBVu5fu28PTCrj6JGvua1MfS71s0ql2RX2wccFr01aB1T+nvpvaKfWQVL3H6vWN/rXGuoebG5/tmrYrUq13el2Q9nelLk7VoxZ/NFU7vWrH1SMbY5XpD6X+u/FZK+Dqs6hx6nGTR6fqfWIOAgQIECBAgAABAgQIrElAwLUmNhcRIECAAAECBAgQIDBDYKyA60GZ45TUlsZcx6XtVY322hn0lk77P+b8l1NfnrHmvfPZZxuf17urrmu0zwu4KtQ6IlW7p1rz1ju6KlSbPqp/PXaw73hoPvjr1MM6HX4t5+9tXPRnaTus0X5c2l6Tau1+q3eXfSBVoVX36Nt1NS/guigDvThVQeW893nNuH0fESBAgAABAgQIECBA4P8EBFx+DQQIECBAgAABAgQIjC3QCrgqYKr3QM06dsmHtQOrgq1DUq1wpq6ftWupFRzVzqR/GHCTFfr8XqdfraO102pWwPWpXFO7wmYFap/J5/XYv+mj75GL031+Kyd/3Lnu1Tk/ttP28Jy33k825NGAO+baP0/VrrHpo9zvl6qdZdPHrICr1lqPefzWAH9dCBAgQIAAAQIECBAgMFhAwDWYSkcCBAgQIECAAAECBAYKtAKugZcO6vbM9Kr3V7WOj6dxevfRrMcMdq9/WhpO7zQ+K+e1E6p79AVctXOrdlj9+4w72SGftXZP3Tvt35gj8AP5vO5p+qjdW7WLa/p4Q05q19T0UY8lfEKqHs8476iwsbWWepTh5Z2L+wKuT6ff/qluIDZvbp8TIECAAAECBAgQIEBgroCAay6RDgQIECBAgAABAgQILCiwzIDrtKyldnbd1rOmCqmm3811Zc5PGrj+ekfX2zp9Fw24Xpjr3zpnvrvk83rvVfedX3+Sthek5gVQ9U6ten/Y1qPei3VDZ87rc95991btGPv7gRbVrSzKZPpo7QDrC7gekwsvWWA+XQkQIECAAAECBAgQIDBYQMA1mEpHAgQIECBAgAABAgQGCiwr4Kpg69SBa1i0Wz0W8dxU9/1WiwZctfOpdnHNO+oRgPX4w+7xl2moRw7WIwz7Qrx5Y9c9XN3oNOQRiNOXHZSTMzvj1PvN6jGJ00cr4Kr3nj123kJ9ToAAAQIECBAgQIAAgbUKCLjWKuc6AgQIECBAgAABAgT6BMYMuL6USc5PHZO6dp3kteup3vH14NTuk3po/n1k6vE9Yy8ScNVaa+whR2u32PR19RjCj6UqdKv7/8KQQSd9npp/39fpXzvZtiwwRnV9ROqczjV/kfNf6LS1Aq4/TZ/nLjif7gQIECBAgAABAgQIEBgsIOAaTKUjAQIECBAgQIAAAQIDBVoB14m59sKB19fj+/4pdVXq5oHXtLpVoFVhz8+m9k3tuYaxFgm4WuFP35R3zwdnpGqX1JCjwrPaTfWJVIVes1zqMYK102oZR2tnVivgOjqTn7CMBRiTAAECBAgQIECAAAECJSDg8jsgQIAAAQIECBAgQGBsgVbAdUAmOXvsiWaMV7uMXpeq3VnrORYJuD6UiZ6ywGSLhlzTQ78jJ29KXdGY79i0vWqBdSzS9dJ0nn7HWV3bCriGvItskXn1JUCAAAECBAgQIECAwO0EBFx+EAQIECBAgAABAgQIjC2wkQHXrrmZD6f2W/Cm6pGAdezWuW6ZAVdNdZfUgalXpH5ywTVX93rUYYVd00ftnDpqDWMNuaQedViPLpw+BFxD5PQhQIAAAQIECBAgQGBUAQHXqJwGI0CAAAECBAgQIEAgAhsVcNX/33wgdfCcb6Ees1ePP7wmdXnqksn5Ifn3vZ1rlx1wTU+3R06elPrFVIVGQ496zOFHpjq/On+/vHHxBUMHnNHv4nxWodr0IeAaAdYQBAgQIECAAAECBAgsJiDgWsxLbwIECBAgQIAAAQIE5gtsVMD1jCzt1Mbybkrb61MVftW7vW7tuYVfTftGBlzTy7pbTvZO7Z+q0GvLHPbqf8ukT+3e6r7/6rS0lc8yDgHXMlSNSYAAAQIECBAgQIDATAEBlx8IAQIECBAgQIAAAQJjC2xUwHVGbuTQzs3UowcrJGq9q6p730ek4V2dxlXu4Jr1Pdw7H/5S6qWp1nvF6r1Y9X6sOp6dOqkz2EU5//Gxv+jJeAKuJcEalgABAgQIECBAgACBfgEBl18HAQIECBAgQIAAAQJjC2xEwFXvsvp6aufOzfxczv9q4A0en371LqzpYxkB1z6ZYK+pSf4rf7d2nrWWfa80fiJVY/St8yfyQT2GsXtM7/IaQvLAdHpyp+M5Of9Cp03ANURTHwIECBAgQIAAAQIERhUQcI3KaTACBAgQIECAAAECBCKwEQHXfTLv1xr6FXjdPOBbqf83ql1ee3b6LiPgOjFzPKczzy45r0cpDjmelk6ndzq+MucV0NVx19S3GwMdlrahQVpd/p7U0zvjtMYQcA351vQhQIAAAQIECBAgQGBUAQHXqJwGI0CAAAECBAgQIEAgAhsRcO2aeW9o6N89ba2wp9v1qWl4X+P6ZQRcL8g8b+3MtchOs2fm2lM611dbBVJbjw/mj4M7fa7MeT3e8DsDfqX1OMMLG/3KuXbKTR8CrgGguhAgQIAAAQIECBAgMK6AgGtcT6MRIECAAAECBAgQILAxAVe5X5/arfMF1CP2zprzpTwhn3+6p88yAq56vOBnOvPV/E9M3TpnrfX/cO9PHdLp96icf36qbb/8/beNsX43ba+dM0eFWB9NPb7Tr+btvuOsugi4/FdPgAABAgQIECBAgMDKBQRcKyc3IQECBAgQIECAAIE7vMBG7OAq1NaupXrsXwVYlzbUH5C2o1IvmfGNHJPPXtf4vN6F1d3J9KG0PWXAt7tT+nwl1X1fWIVch6eu6xmjdqO9MfX8xuf1WMJuOFYBVwVd3ePkNNQusnr3V/fYPw21k60bFFa/x6Za7/YScA340nUhQIAAAQIECBAgQGBcAQHXuJ5GI0CAAAECBAgQIEBg43ZwPTv4J/V8AfVIv79LfTNVwdaWVAUz846vpsM7UvUer3emKryrYz0BV13/vNTbeyZ/S9rrfWBXTea7b/59XKpCqW4oVkNUe2us3dN+Wc81dV/npi5O3Zj64VQ9lrC7a2vrEisEfEPPegVcPTCaCRAgQIAAAQIECBBYnoCAa3m2RiZAgAABAgQIECCwvQps1A6u+v+berTegWuEr51av55q7V6qIfdKfW4y9noDrh0yTgVu9bjC9Rx1vwelvtszyM+k/ZPrmWBiOmsOAdc6gV1OgAABAgQIECBAgMDiAgKuxc1cQYAAAQIECBAgQIDAbIGNCrhqVfdP1a6kvpCqb+Vbd0GdkA712MLWMWbAVePXrqnaRbXoWreu7YL8UcFT7caaddSjBc9OtXZ/zfst186wo1O1863vEHDNU/Q5AQIECBAgQIAAAQKjCwi4Ric1IAECBAgQIECAAIHtXuBfIvCgjkI9+u78FcnsknmOS714wHwnp8+xqVpzHd+X+kiq9ai+6YDrnulTjy2cPuoxiPUOrUWOCuT+KHXoAhdVoPWiVL0r67aB190n/V6WOnJg/4vS7/jUhwf035I+53T6HZHzdw+4VhcCBAgQIECAAAECBAisSUDAtSY2FxEgQIAAAQIECBAgsAkEHp017pd6VKr+vkeqgqwvpi5MVXjzjcZ97Ji2fVOPSVWQVTvSLkmdl7plSfe9R8atnVD1yMJab+3qqscg1nFpqt7Hdc3k3wrgZu2omrXE++XDJ6UOSNU7uipguzV1bapc6t8a//Il3adhCRAgQIAAAQIECBAgMIqAgGsURoMQIECAAAECBAgQIECAAAECBAgQIECAAAECBAisSkDAtSpp8xAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECIwiIOAahdEgBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECqxIQcK1K2jwECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQKjCAi4RmE0CAECBAgQIECAAAECBAgQIECAAAECBAgQIECAwKoEBFyrkjYPAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAKAICrlEYDUKAAAECBAgQIECAAAECBAgQIECAAAECBAgQILAqAQHXqqTNQ4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgMIqAgGsURoMQIECAAAECBAgQIECAAAECBAgQIECAAAECBAisSkDAtSpp8xAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECIwiIOAahdEgBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECqxIQcK1K2jwECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQKjCAi4RmE0CAECBAgQIECAAAECBAgQIECAAAECBAgQIECAwKoEBFyrkjYPAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAKAICrlEYDUKAAAECBAgQIECAAAECBAgQIECAAAECBAgQILAqAQHXqqTNQ4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgMIqAgGsURoMQIECAAAECBAgQIECAAAECBAgQIECAAAECBAisSkDAtSpp8xAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECIwiIOAahdEgBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECqxIQcK1K2jwECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQKjCAi4RmE0CAECBAgQIECAAAECBAgQIECAAAECBAgQIECAwKoEBFyrkjYPAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAKAICrlEYDUKAAAECBAgQIECAAAECBAgQIECAAAECBAgQILAqAQHXqqTNQ4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgMIqAgGsURoMQIECAAAECBAgQIECAAAECBAgQIECAAAECBAisSkDAtSpp8xAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECIwiIOAahdEgBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECqxIQcK1K2jwECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQKjCPwP3+tEZ8qu5XcAAAAASUVORK5CYII="/></switch></g><rect x="205.38" y="96.12" width="371.43" height="55.4" rx="5" ry="5" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 369px; height: 1px; padding-top: 124px; margin-left: 206px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;">Rlp.Parse<br /><div>(src/Rlp/Parse.y)</div></div></div></div></foreignObject><image x="206" y="110" width="369" height="32" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABcQAAACACAYAAAAlOGpTAAAgAElEQVR4Xu2dB9hsV1m2EZQuVQSkhWZowi8iIAQ8EEJHQJQm4KGDFOlF2oEgoiItIjVw6PzSfjQgAoYjTZAWEDCASAjSBFRCCZ3/uXEvXY4zs+t838x893td7zXzzax6r73nJM9697t+4jSaBCQgAQlIQAISkIAEJCABCUhAAhKQgAQkIAEJSGAPEPiJPTBHpygBCUhAAhKQgAQkIAEJSEACEpCABCQgAQlIQAISOI2CuBeBBCQgAQlIQAISkIAEJCABCUhAAhKQgAQkIAEJ7AkCCuJ7YpmdpAQkIAEJSEACEpCABCQgAQlIQAISkIAEJCABCSiIew1IQAISkIAEJCABCUhAAhKQgAQkIAEJSEACEpDAniCgIL4nltlJSkACEpCABCQgAQlIQAISkIAEJCABCUhAAhKQgIK414AEJCABCUhAAhKQgAQkIAEJSEACEpCABCQgAQnsCQIK4ntimZ2kBCQgAQlIQAISkIAEJCABCUhAAhKQgAQkIAEJKIh7DUhAAhKQgAQkIAEJSEACEpCABCQgAQlIQAISkMCeIKAgvieW2UlKQAISkIAEJCABCUhAAhKQgAQkIAEJSEACEpCAgrjXgAQkIAEJSEACEpCABCQgAQlIQAISkIAEJCABCewJAgrie2KZnaQEJCABCUhAAhJYSOAm+eZ58Z9dwugT+e5wGUpAAhKQgAQkIAEJSEACEth0Agrim76Cjl8CEpCABCQgAQmMI/DEVH9oSxNfz/dnG9eNtSUgAQlIQAISkIAEJCABCew+AQXx3V8DRyABCUhAAhKQwN4lcGymfqcB0ydi+4T4h+PHxT80oI1S5QJ5c9f4mee0cYt8drG4gnh3wDdOUdZ1WcT9vNbKmn40X74jfnz3Li0pAQlIQAISkIAEJCABCXQloCDelZTlJCABCUhAAhKQwPQETkmTPz1Bs09OGwfiCNdT2lPS2P2ado0Q70aWdXhMt6JLS702394//pkJ2rIJCUhAAhKQgAQkIAEJSKAhoCDupSABCUhAAhKQgAR2j8C10/U146dthvCo5vUDeX39gmEhoF8+/svxWkz/1/x9RPyTE05HQbw/zPOnyh3jZ2yq/lZeibLHjl7QHGUv06zpbGT5LfP5K/sPwxoSkIAEJCABCUhAAhKQwDwCCuJeFxKQgAQkIAEJSGA9CPDfZT9shoIw/viWYSGiI7Y+I16EcVKo/Er8WxNNSUF8PMg/SxP3jLNhcd4OzV05ZZ4bZ9Oj2GXz5mMd6lpEAhKQgAQkIAEJSEACEmghoCDuJSIBCUhAAhKQgATWg0BfQbyM+px584b4VZsPnpPXu080JQXx8SD7CuL0+JPxJ8Qf3HSPGM4TAVNtdIyflS1IQAISkIAEJCABCUhgQwkoiG/owjlsCUhAAhKQgAS2jsBQQRwQPxf/YLyk2yBi/BsTEFIQHw9xiCBOr6eL/1X8qGYIt8nrK8YPxxYkIAEJSEACEpCABCSwtwkoiO/t9Xf2EpCABCQgAQmsD4Exgjiz2B9/QTOdfXn92wmmttOC+BUy5kvFEfjPFf9K/OT4p+Kkg9lEGyqIM1c4fK6ZNAenPrAngDOkPEwvHr9AnINRPx//5/inG64lTU/PpkcVZ8Pm8GZ+X8jrP8bHbOBwrZBW5oLxC8XPEv+XZo4n5RX//qgR/+/KsP35pl9eOdD2o42XNZu4S5uTgAQkIAEJSEACEpiCgIL4FBRtQwISkIAEJCABCYwnMFYQv2SG8IlmGA/K65+MH9JpxgriiIbPj19pzlhuns9IBUJ6kLvFfzeOsLjImNvT4y+OnzLB3HaqiTGCOGP8eMPl3XklP/wyI6r8KvHrxjmw9Rot5d+b7xHZ3z4Qxn1S7y7xcoBo3czT8gdzr+3STX93ntPfI/MZov+pPcZCmiDSA+1vqYM4fiD+xvhL4uRzv1WPfuqiN8kf5Pevc7zPNoU4TnQ/bOlbk4AEJCABCUhAAhJYIwIK4mu0GA5FAhKQgAQkIIE9TWCsII7YWA5eRKj80wlojhXEEQ0/tGAciLVEK78ofvUeYyW6+TfjH+hRZzeLjhXE/yKDR4RtO5STAzvfFydKuq89KxU4+LOvEbl/sQWV/iifP7T5jk2P+8f5bJkdny9vGu8SLf6YlDvQd8BVecZNlHxXg+9T47fuWiHlEMbvG39h/Ec96llUAhKQgAQkIAEJSGCFBBTEVwjXpiUgAQlIQAISkEAPAmMF8WPS172b/vbldR1Sppw243hE/HJx5ndYnMMhMSJ7j46XvOd8RvT3ofhH4ifFEXepe0T8rjMsb5m/X9mD724VHSOIw++TccTbtgjxq6XMO6tJIsa+Ok70N5sSiNffi58/fljDE4bFEG65hvrYr6cwkdb1/1OwWYEVQRwhmXHUmx5ETRNBzjqzafKHVadEXz+qZRB/kO8fVpXh6QGeiDghTroSniDguiJNzA3jvxMnTUttbCCd2NJP+fo6efOamTa49tisYH0Q1s8av0Sc6xXxv96YIFoc1l2E/o5DspgEJCABCUhAAhKQwFACCuJDyVlPAhKQgAQkIAEJTEtgjCBO1OrLm+EQSYyA+s0Jhjc2Qnx2CAjb89JzEPV9x/jbloz5yvkOwbxOq0Le6BIVP8F0V9LEGEH8RhnRcc2onpNXNhEWGVHYbIggorMZgjj8g5YZzYroCMhE7Y8xxGjEZwRxov9JU1KLww/I3zy9gDhf7BfzBnGZcgjdtUA+O5Yz54P62ua64bpYNlfG86Q4qXmKdRXEyeOOcF4EdTYmSIXyriWQGCNrUc+D6HKEck0CEpCABCQgAQlIYJcJKIjv8gLYvQQkIAEJSEACEmgIDBHEEenIF/7oiiIRuq+aiOpOCOKvy1h/K95FwCdX9bHx2zbzQwzn0MipD0ycCN+PmxkqiHM4JClQSgT9NfN+aK7vZfPZny/LYaxTXDtFEGeT4zzxIiQTxU2U9KIUOufIdwjyrOmy9CJEa7+5mRApWdrSsJS5s1FwKF7yqncRxKnzhvj1mkaICr9NvG2jofRJtDjCeWFAlPwyIX3ZOvmdBCQgAQlIQAISkMBEBBTEJwJpMxKQgAQkIAEJSGAkga6COOWIqCWvNKkg6pQjT8jfpCiZylYtiBPNfpn4V3sM+Gwp+9F4iTq+Wd4jqq+rDRHEiaQn73TJz83BpPMOopxizj+TRr7cNEQqkt8b2WgRxOtm/jJ/sOlBGpexdvs0QOQ5xj1QIui7tLs/hYr4f+G8/2xLpXvl+5KLnwNI98W/1aWjqkwt4LMpwAbOt3u2YXEJSEACEpCABCQggQkJKIhPCNOmJCABCUhAAhKQwAgCtSCOcEhqhtqIjiaCdt4hhgjLD44XoXDEMP5H1VUL4kTevmnAYOvUK3+d+tcf0MZOVekqiJPyZF+cFCAlAp4xEhV+VPw7KxxwicgmDzdPHIyxWUGcVCFcm1NF8ddpXlj7W8S7PF3AnM4eZzxfjD+8wyQ/njIlRc+YdDKPTDvky8c2Jfd9BzwWkYAEJCABCUhAAptJQEF8M9fNUUtAAhKQgAQksH0EakG86+w4nPBx8ZfET+1aqUe5VQriRNySF3yovTUV9zWVz5TXdY26LYI4Qz00Z7Kny2eLNjpeke/uE//KUEhVPVKScI2x2TIrTq9KECeP9jMmGHvdBLw+HOfJAoz3RLa/vpnbVN2R5gRxH+NQ0N8Y0TDpb05u6iOM1ymORjRrVQlIQAISkIAEJCCBIQQUxIdQs44EJCABCUhAAhKYnsBshDiC8ayRk7hOkUI+7XvEp4q+ne1vlYL4MensviMwPjF1ySGNEcX7yRFtrbJqLYh37eevUpDUNx/sWmGmHCl1SC3C0wQXjV9+Tjuk7/iHOOlnikA7ZYQ4qUYQ81dhl0qjiNRFFC99kLecHOVEdn8q/unm9aQBg6gj0Tkcc2xe/uPTBiI76X1I86NJQAISkIAEJCABCewSAQXxXQJvtxKQgAQkIAEJSGCGQJcc4mdOnYfEH1PVRRi8XXwVEdKrFMTJiU1u7KF211R8TlP5yLwiOK6j1YI4KT7m2dfyIQIugi4Rz38/cCK/lHqPit90YP0pBXEOuywbFgOHs7Qa9wLjZUOozUgpBHui1d/TVrj5nvz8U0e30zRPdRAxrklAAhKQgAQkIAEJ7BIBBfFdAm+3EpCABCQgAQlIYIZAF0G8VCEyFoGvHCx5KO+JOkVYndJWKYgjaD9vxGDvkrrPbepfI6/vGNHWKqt2zSE+dgz1AZClLdKjnBBHaD+puT7OmldyaXOo5K9U1xB1NkkQL3M8b95cM85mAE8KHB6fjRyv2XLA52/H/70FOIeL/v7YRVlQnzXomvd8RUOwWQlIQAISkIAEJLB3CSiI7921d+YSkIAEJCABCawXgT6COCMn7zQHUhbxjzQbN47/cMJprVIQRyhGxB1qiLcPaCqfK69tAufQfsbW2wlB/FYZJPnGiyGAPz7+snjbYZznSRkiqLFNFMTnrQ8HlJIq5tJxhPI7xcvmEeWJwt/Xcs3UGy6kTOFw0ymMXP+09b0pGrMNCUhAAhKQgAQkIIH+BBTE+zOzhgQkIAEJSEACElgFgb6COGM4d5z0GuSKxu4ff+qEg1ulIP6BjBOxcqgREX71OOLvxYc2sgP1Vi2InzFzQNAmPzVGOp0nxPvklV/FoZqrTpnSZ+k4iPOo+AvjJQd/m/h/o5Q9rumEzQVS0WgSkIAEJCABCUhAAltAQEF8CxbRKUhAAhKQgAQksBUEhgjiTPwX4kS8FpvygMlVCuKMlzQvHDLY166bCiUf95/nPRHS62qrFsR/MxOHATb0IMtNEsRJifJv8S8PWPCLpA4bKSVa/PR5vyhSm6cOvtr0wQGk9KtJQAISkIAEJCABCWwBAQXxLVhEpyABCUhAAhKQwFYQGCqIM/n7xJ/eUOBwyevEi8g5Bs6qBXFyXCPgf7HHIBEq/zFeIn1vkvclkrdHM/9VlAjrn4uT15kDDxFbp7RVC+KsO+uPESlPxHxf2xRBnFzxb4tz3Zwv/q2+E035x8Yf3dQjpcqJS9r4m3x37eb7G+aVtESaBCQgAQlIQAISkMCGE1AQ3/AFdPgSkIAEJCABCWwNgTGC+GlD4VAcwRC7ffwlE5BZtSDOEIn0vnX8PzqMl7QgL40jgmPPj9+5Q71FReYdREm0NQd+njKi3brqqgXxZ6ezuzUdkjv7Bz3GTSoRDo58aFOnLY1Il6bhxjqtImVKndd7qEBN6pPHNRNpE8SPTLm3NGUR4X8x/qkuECwjAQlIQAISkIAEJLC+BBTE13dtHJkEJCABCUhAAnuLwBhBHFKIex+rxLsL530XkXkZ5Z0QxOmfHNj748sicInUJQd0SXdBNPfl4l8beJnUaVdmm3hOPrj7wHZnq61aEL93Ojym6fSKef1gx3ETEf+i+M2r8pskiHMtcM30sXOm8Pvi5NxH4D5HvO0Q2r9ImbIBQ2oi8tZ/o0+nTdnL5vXB8a/EHzSgvlUkIAEJSEACEpCABCYioCA+EUibkYAEJCABCUhAAiMJjBXE6b5OB4GY/YCRY1qlIE4U9pPj5TBIhvra+FvjH4mfHL9AnBzp14zfspoLYub14+8aMb9npu49ltQnerpNLO3S/aoF8atlEO9sBsJBpQi2324Z2K/n+6fFy+ZCKb5Jgjhj/oP4gfh3OywEqXZeH79qU7aroE6998bLwbWkpOHwWoTyLkZqn/vFH14VPn/e90kT1KUfy0hAAhKQgAQkIAEJdCSgIN4RlMUkIAEJSEACEpDACgggzl0rTqoL/rsMQRtDgPvLqj8E4BfE26Khz5wyn46X/NpH5z1iIQcJHpoZP3mzbxEnSnaRkcrkMs2XJe/yvLLkoEacJn/5MjsiX769KUB6l8/FSXuyr6Ve/fUr8gc5s4m0HWOvaua/qA1yi39nQAew56BLhFTsdnHypGOLGMKP3Nh4X0O4J7L+qKYiUcwPi5OKphb0z5u/iXTeH0c0L0akfRHGecIAvhj5uQ/Gy8GSs+MifchV4vRfGwd7YowDxssMvqT2+XxLufJ1nTKlfIZATXqWN8dn86dzXx0WJ6UM0dl1nSvnj0Vzmx3OJfIBGzX1BgL9PSlOPnuu48L6PHl/yThrTloXroXaXpk/6s2djlO3mAQkIAEJSEACEpDAVAQUxKciaTsSkIAEJCABCUigP4GSb7lLzXum0LM6FETEfvlMOQT1s818RpoN0m1MZfP6mG17VhBHqCf/OaIxomUt1M7WJfqZfNevmWjAdS7p2SYRhklxMcTIT03bfY20MYjWQ4x6CNBlI6S08Ym8IVr8ovE6Er98fzBviF5elFqH3OKIzbOGCP79IQOdU6dPVPr+1GdjCON6m50Tn302/s34RebwoB6cuc7+qef4z53y3Fdl42G2OtfMheaMqZRjbI+IPyM+xZMHPYdvcQlIQAISkIAEJCCBQkBB3GtBAhKQgAQkIAEJ7B4BDoi8bYfuEfFIc1FSYyyrwn/fEYVdi8svzt93mKk0TzjvMJSFRYgsvk1LA/ME8boKwu2l4qRKQYD8TPyj8Y/Hu6TF6DP+Op/0bD1Ez3KYYp82KXuj+HF9K6X8wfgdB9QrVUjDwRMGpKJpM6KUHx9HRMfmbcxwzXE465sWNPaGfH6Dto5avkck5lBUxtPFDk8hnp7gKQii09lIYZNkdiNgXlvMhzkfGyf6fYhxb/1a/Anx8uREWzts5LCR9bI4Qr0mAQlIQAISkIAEJLDLBBTEd3kB7F4CEpCABCQgAQnsIQJtgvhOozh7OiTynjzlPxUnbzkHTRaheKfHM0V/RLazGUKaD9J2kEbnS3HSkrwnTlqbsYetTjHOqdpgfqRvIcc3zpzPFydHN+vJpgpR48z71Kk6TTts3BwZRxgnQp8NFgR+WNP3CXFS4HRNyzLh0GxKAhKQgAQkIAEJSGAZAQVxrw8JSEACEpCABCQggZ0isG6C+E7N234kIAEJSEACEpCABCQggTUhoCC+JgvhMCQgAQlIQAISkMAeIKAgvgcW2SlKQAISkIAEJCABCUhgnQkoiK/z6jg2CUhAAhKQgAQksF0EFMS3az2djQQkIAEJSEACEpCABDaOgIL4xi2ZA5aABCQgAQlIQAIbS0BBfGOXzoFLQAISkIAEJCABCUhgOwgoiG/HOjoLCUhAAhKQgAQksAkEFMQ3YZUcowQkIAEJSEACEpCABLaYgIL4Fi+uU5OABCQgAQlIQAJrQOAGGcOlmnFcPq/7m/cH8/rhmfGdnL9fF//+GozbIUhAAhKQgAQkIAEJSEACW0hAQXwLF9UpSUACEpCABCQggTUhcHjGcWLPsVwv5d/Us47FJSABCUhAAhKQgAQkIAEJdCKgIN4Jk4UkIAEJSEACEpCABAYQOEfqvD9+sY51/zXlSKvyyY7lLSYBCUhAAhKQgAQkIAEJSKAXAQXxXrgsLAEJSEACEpCABCQwgMCZO9Y5NeV+1LGsxSQgAQlIQAISkIAEJCABCfQmoCDeG5kVJCABCUhAAhKQgAQkIAEJSEACEpCABCQgAQlIYBMJKIhv4qo5ZglIQAISkIAEJCABCUhAAhKQgAQkIAEJSEACEuhNQEG8NzIrSEACEpCABCQgAQlIQAISkIAEJCABCUhAAhKQwCYSUBDfxFVzzBKQgAQkIAEJSEACEpCABCQgAQlIQAISkIAEJNCbgIJ4b2RWkIAEJCABCUhAAhKQgAQkIAEJSEACEpCABCQggU0koCC+iavmmCUgAQlIQAISkIAEJCABCUhAAhKQgAQkIAEJSKA3AQXx3sisIAEJSEACEpCABCQgAQlIQAISkIAEJCABCUhAAptIQEF8E1fNMUtAAhKQgAQkIAEJSEACEpCABCQgAQlIQAISkEBvAgrivZFZQQISkIAEJCABCUhAAhKQgAQkIAEJSEACEpCABDaRgIL4Jq6aY5aABCQgAQlIQAISkIAEJCABCUhAAhKQgAQkIIHeBBTEeyOzggQkIAEJSEACEpCABCQgAQlIQAISkIAEJCABCWwiAQXxTVw1xywBCUhAAhKQgAQkIAEJSEACEpCABCQgAQlIQAK9CSiI90ZmBQlIQAISkIAEJCABCUhAAhKQgAQkIAEJSEACEthEAgrim7hqjlkCEpCABCQgAQnMJ3CWfPyj+LcEtPEEXMuNX0InIAEJSEACEpCABCSwjgQUxNdxVRyTBCQgAQlIQAIS6E/g8FQ5sal2wbx+rn8T1lgTAq7lmiyEw5CABCQgAQlIQAIS2D4CCuLbt6bOSAISkIAEJCCBvUngpZn2bZupXyGvH96bGLZi1q7lViyjk5CABCQgAQlIQAISWEcCCuLruCqOSQISkIAEJCABCfQjcIkU/2RT5RN5vXT8h/2asPSaEHAt12QhHIYEJCABCUhAAhKQwHYSUBDfznV1VhKQgAQkIIEuBJ6dQreJ3zH+6i4VLLO2BI7JyO7djO4OeX3x2o70Pwf2qPiD4z+9ZJx/lu/utebzWMXwNm0tV8HANiWwSgL87rw7fsb4UfF/XmVnti0BCUhAAhKQwPoRUBBfvzVxRBKQgAQkIIGdIHC3dIIgjj01fv+d6NQ+VkLgfGn1C03L/5rXC8W/u5Kepmv0/Wnqii3NvSzf/9Z0XW5ES5u4lhsB1kFKoCJw2bz/SPP3e/N69fj3JCQBCUhAAhKQwN4hoCC+d9bamUpAAhKQgAQKgZ/Nmy9VOBAD3iWejSXw2Iz80c3o75tXIoyX2bH58k4DZksqlhPi5CY/Lv6hAW2UKojhN42faU4bRI5je1EQ77uWBd+N84Z15d7uY2VNP5pK74gf36eyZSWwoQROm3F/MH75Zvy/k9dnbuhcHLYEJCABCUhAAgMIKIgPgGYVCUhAAhKQwIYTeErGf79mDghgR274fPby8M+Wyf9LnBQAX4//XPwbLUBOacqP5fbkNHCg6XdsW3V9xNnLxPeaID5kLQs31uExEyzCa9MGT4t8ZoK2bEIC60zgFhncq5oB8tt5wTi/jZoEJCABCUhAAnuAgIL4HlhkpygBCUhAAhKoCNQH9vHxr8bfJqGNJYB4iTCNIYg+rsNMrp0y14wTJYmRzxv7QPz1C+ojuBNN+cvxOu83KVqOiJcDPTt031pkrwriQ9aywDx/3nAWADmRMVLNXKx5f/QC4pRl44E1nY0sv2U+e2XrSllAAptL4HQZ+sfiP99MgaczDmzudBy5BCQgAQlIQAJ9CCiI96FlWQlIQAISkMDmE3hepnDnZhpvzyvCqLaZBM6QYZ8cL2Imr1/uORX+W/CHTR2E8ce31EdER2x9RrwI46RQ+ZX4t3r2vaj4XhTEp1jLmicHkt4zzobFeTusy5VT5rnxkkKCKuRZRjDUJLCtBG6dib28mty58v7ft3WyzksCEpCABCQggf8moCDu1SABCUhAAhLYOwSIIv18Nd3r5f2b9s70t26m+zOjFzSzGnowal9BvEA8Z968IX7V5oPn5PXuExHei4L4FGtZ4+8riFP3J+NPiJcc7ojhRI9PtdEx0eVhMxKYjADX/Mfj5WmKh+T9H0/Wug1JQAISkIAEJLC2BBTE13ZpHJgEJCABCUhgcgIH0mLJM0zkKPmmfzB5Lza4EwRmH/e/aDo9aUDHQwVxuuL64WC6EqFOxHhb/vIuQ9xrgvhUa1mzHSKIU5+x/FX8qKax2+T1FV0WzTIS2FACj8i4y5Mx/Lt44fh3NnQuDlsCEpCABCQggY4EFMQ7grKYBCQgAQlIYMMJnDnj/2K8pLn4g7z/vQnnxKPmpFjgYLILxc8S57DHT8dPavz7E/bXtamLpyBicYkEZCw/6lp5QTkOPyT3MvO9SJyoe6IM8S9M0H6X4d00hf5fU/DFeb1Dl0pzyowRxGluf7xEqe/L+78dOI662k4K4lwXV2vW8QJ5PVOznqSiIUJ6Jw6XnGota4ZDBXHaYKPjc01j5Kd/YM81Jf3LFeLcezDlfuEe+ec4vwefipc0PT2bHlWc1DGXjPN0A2P5RPx7I1rk3qe98ptHU8wP57rh929qO3savHSc35/Dmj4+ktd/jJvqYxhtrtN/qqrePu9fMqwpa0lAAhKQgAQksCkEFMQ3ZaUcpwQkIAEJSGAcgVp0oyVyBf/DuCZ/XJuUGaTK2N/SFuLQgfgbG7GBSLxbdewfwelZccSnWft2PpjNX43IyQGD94sjHNX2zubz93XsuxT7qbxBGLxrvDxev6iJP8wXpJ44JU5+2vPFyVX7pZ59Liv+9/mSdBYY4iN5vIfYWEGcNUFYxB4U/5Mhg5ipM1YQPzztHRNHsKyN6PUrxdkQQRR9aPx34vUhobPDf3M+IB3Ma+KrEnGnWst67GMEcdphc4fDBt8d5/5aZkSVXyV+3TgHtl6jpfx78z33EmcY9DVy2LMejIn7fNbYGHrPzIeM6wFxUkTVxm8S1+z/7TEI+rxJnPzsJYp+UXXYkZeflDNcjy+NlwNwe3T543ky/vvE+S1cZMyHPjhYd93T3HC9wASBf55xuC9zXmRsCjwtPnuPl/JcW3fpAfkdKXv1pvxf5/X6PepaVAISkIAEJCCBDSSgIL6Bi+aQJSABCUhAAgMIEMW7v6lH5CvRzWON9CsHRjSCsEw0ZZshnC9L21AfhIZQ8sJ4EYsXtf2b+eJVbR033/9CXg/Gr9ixPMUQ/J8eL4/i/0bev7pH/WVFfzVfHmoKIBzdeES7YwVxeJeDFxHs/nTEWErVsYI4IjeHfs4zxEX4sVFRUr10GTIiGWIr6zqlTbmW9bjGCuJ/kcYQftsO5STqms2lZULtIl5sciEs9zEizpdFXnMvcE9gbHo8Jf7bLR0gUiOMtz05wlM2/GbcoM+Aq7KMm6dn+tgvpjAHIff57SH6nSjnd/XpaIfL8nTS77f0efp8vyiC/175ru23hvX/j47zYlOX67HYz+TNVzvWtXjRWGsAABvLSURBVJgEJCABCUhAAhtIQEF8AxfNIUtAAhKQgAR6EiC6mf+5L5GwQw9grLsl5crDqg+IEiY6+IQ46RaIjkZwRMC6YXxeJC5i6okd5oKwQV+kPin2S3lTIrWLIL4/n5X0HaXcn+cNTnTvfeP7qjbOkfdfa+n/3vmeSMZiiE1ElBKRjRD82fi54wiCV44T+TpPaL1dPid6cwrjMMsiyhGNS3TjUBsriMMGRti++DqkTOHwWA6GLCIt0cTl/S3znuuhNiL6yYVO6ol/i18izibIr8XrqGLEYeZIeoqpbMq1rMc0RhAnCvuTce6vtghx0s3w1EWxr+cNGz9E6H4oTnoURE3W5LA4T1iwBsW4J+v7qwtXIoeJMC7/H0OKlxLdWwRxNsSOi9f3IpHpz4yTOoq1vUfV2ZF5f/ySzhFn3xKvo98pD2fSbZAShpRQPA3CPLnfbzvTHmxIH9PVOOCRa7M2xHuEbtYHgR2uRPLz21P/HlOHp1TIj72OBiOi549oxs8Y4cMTRJxrwZMZz18ycNb8QJzfcIwNzmKvyxueEuDfqK7G/V4/ZcMmyou6VracBCQgAQlIQAKbR0BBfPPWzBFLQAISkIAE+hIgPQriVDGEGiJkhxqRkt+sKpOehDzWyw7oRIx/UvxuVb2ugvi8cdZRwETzEeFZC0KIX0RJkvqhGNHBT4wjWiO+IF4tSy0wK/YdTHmioJcdHHnGfH/n+Gz04lSCOOlR2HTAECIRlMbYGEGcNDDlOkIsRkCtr4uh4xobIT7b76JoVEQ3rseTlgyUdUP0LJtJbIIgPk4xz6nXsp7GGEH8RmkIMRkjPQnRs4uMe4oNEUR0NkO4NtsO6p29r9g0Q1AeavXvG4I492D99AfX5v44h4XWVl+/COrLIqqv2cyP+rSHoD6bmmV2/ESDszlQnlbpI4iTsqMeL7+vCMjLctoXkZhNh2I3z5ty1sBQvqusx71UOA5NVXK5tFHSfx3K+2sNGDDXcR2NzpMFy1K2DOjCKhKQgAQkIAEJrBMBBfF1Wg3HIgEJSEACElgNgVrgoodLxWuhuG+v10kFxESMPMx/1LEBRLND8RJlOZUgTjRqHbl5dP7GFz1uT7/k8yYaeJEh+hM1TPQl1lfQns3Z3rf+onEhjNEWRkqLIlx2XIL/VWyIII44zAbEo6vW+qSgaRvrTgjij8wgiKBtS5PBWBEa31pdC0QZsyEz1qZey3o8QwVxRFxSoJTIaoTgIbm+29jsT4HyNMfYa6cWxIny5e9iRAsjEH95wYB4coAc6G2Hpz62ut554oDI+S7G0y3ld6arIE4aGiLAyyZM31RE/D5wbWGI9+TU75o6pMucpi7Dbxj/RmFtGxPz+ubJmxKNTw577tUh9jepRH2M6+ZmQxqxjgQkIAEJSEACm0FAQXwz1slRSkACEpCABMYQIE8vAlkxBKAxBwQSeV0eJ+8ryu5P3SKEXTjvSTkyxBblia5zCA9pt9QhkhyxHyMVDAJwX+PQN1JCYFMI4kRgk4ICI0UNwv6YdaSdroI45chnzHrDvk5FMXVqhlUL4kTeIsB1EcPLmjP3D1QXAKkqSL0x1FaxlvVYhgjiPG1A/v2SioiUFTztsArjqY4iUpPagij+oTb7BExphzMO2Bjrs86LxnBsvrhT8yVpTxC3u9rBFCQFB+mWLt6hUsnfTtGh6a3YrELEx4bkau8wzMmKjIkSZ3O3pDAa+8RM/Zs/1Tkbk0GyIQlIQAISkIAEpiWgID4tT1uTgAQkIAEJrCOB+n/0hxzsNjunOuUBj7nfIt41hcTZG5EHMfHhI2DNCuJEQpJmgKjusUZkJjnQMYSvi8T/fUCj5Dkn2haD0WsGtFFXqQV2NiVeMrI9qteCOHOdjXwl/QQpLYpIWncJc3J1T51rd5WCOHNERBuSooOUPCUvcZ8nI+Yt0yrWsu6nqyBOqoh9cdIe1TmviQo/Kv6dCa6xRU0UoXrohlNpd54gPsUGVD1u1pvfUQyRvX46og0R4+OJhNfG21JVnSdlysGtRLvzG0Ju8r7GfU3O8xLxTOT/ssNI+7Y/dfk6SrxPBP7BDKQcmsr1ypyHGilSuBaL+f/JQ0laTwISkIAEJLABBPyHfgMWySFKQAISkIAERhLgEMhykB25tYnIG2NEmCPWXKZphPcIha+P94mcHDOGWhCnfw7u5DDPKayOWKQfUmQMtYOpSK5yBLqvDG0k9YjIJs0LhmCGwPXdEe2VqrUg3rU5hLXHxRHkT+1aqUe5VQriY6LZ2Rwo80UwJp3IEFvVWtZjKYI4nx2aM0ju4UUbHa/Id6TpGHO9li459JBrjN+FWWF3FYI4/fBbMOag2XlrytMsdVoVcoPD+G1z5jXkmih1OCyXg1YxcrM/Y0Rjt0pd1hIbKxaPGEanqhySWjbjeIKDNWwzDr8ltQw2xb9r+9NOfSgzmxNT3ANt8/B7CUhAAhKQgAR2gYCC+C5At0sJSEACEpDADhNAHCI3Kzb04LLZIRNliyhURPHyPWkBOMCTHOWk9/h083rSxHOuBXFyPH9hwvaJliVdBMb8yiP5E3bRuynSPxxoavXNKbyss9kIcYSlWePQujpFCukj7hEfErnaZeKrFMR/IwPguh1q70/FK8bZlCDX8xBb1VrWY6kF8a5jRIh8RHzoUxakleHJBZ4muGi8zuVdxkCqHw5AZI1LlPWUEeJj85EvY0U6ppfFS27vUpYNORxxlt8/nHkOEVPrVCcc3Dnmd41xHt8McsrfjK7XU99ybASwIYBdNd52aOnzUqak9EFAnz00tW//s+c+/EIa+EjfRiwvAQlIQAISkMBmEFAQ34x1cpQSkIAEJCCBMQTqw8K6Rt916Y+DJxGzEEfbDAERMZ6Ixzaho60tvq8F8XPl7yEpTRb18+R8cf/myzPkdYpI7C5zWlQGYYvod16JgGUD4BtjGqzqdskhzjo/JI6QWwxRmaj3b080jrqZVQriYw+UJeXFrZvBnmnA/Fe5ljXDWhDnvptnX8uHbFoh4CLo/v3AtSStx6PiCIpDbEpBfKozBBbNgyczuAbKBuOy+SKKczjjn8ZP7gimTh3SsUqnYuueR5xJ9IkSZ8OF6xYjt/+V4mNzxXM+Avnbi439rei0MBaSgAQkIAEJSGB3CCiI7w53e5WABCQgAQnsJIE/T2dETmJTPFo+O3YiZUkfgTD28/HD47OR43Wdv8wf5H0dI2KvUhB/Y8Z2vXjXQ/BWvZa/mw44XA9DlCZdyVTWRRAvfbGmiKsXbD44lNebxRFWp7RVCuIcRHriiMG+NHVLru0hmyWrXMt6Wl1ziI9A8eOq94oj+NbGps0Jce6fk5rr46x55fwAUo+QI7pcQ9TbJEG8zJPfuGvEiYIndQd/z8uzX8qTUopNgx+0AK83L8euTV3/zfnjulM2uKK26ihxBPJFmzT1hg+R9PybMtbqw6Jpa+onj8aOz/oSkIAEJCABCUxIQEF8Qpg2JQEJSEACElhTAn+YcRHhi+2UyMthfUTxIUAilN8pXotgRKTuiw8VxVcpiJec6wh7Z9vlNT19+v9svKQs4fXLE46pjyBOt+SdflO8bHjwxAFRuT+ccEyrFMTJpf/KEWMlHRAiKFGpXNd9bNVrWY9lJwTxOkc1ffPb8vg4aUXaDuOsD4/cREF83rrzJMUl4/zmsUF4z5lCL87fd2i5YOoNF9L7TPUEBk8CjNkI6nOdjylbR4lzJgW/LbNGlH6JuOffEVL1TPH7U29W0Sd59qdodwwP60pAAhKQgAQksCICCuIrAmuzEpCABCQggTUiUIvHDGs3/v1HXOBgtxfGi7g7RghbpSD+8IyRwxcxRPypDusccknUUYtPSQMPGNLIkjp9BXGaOnecyM0SEUt6mRLBPsXwVimIszn0sIGDRPD8ZlN3SAqKVa9lPa1VC+IcMEoapJJPmycXuGf65JVfxaGaq06Z0ufSOUsK8yRMfTBmWzRzvXnJUypsPu01q6PEOeB49lyDp+Wz+zZQbpHX10wE6Oi088imLdLdEPWvSUACEpCABCSwpQR243+ItxSl05KABCQgAQmsLYEbZWTkpi2GkMlhl0MNoeDf4kMilS+SehzyWaLFiZr93oCBrFIQR1Qrj+Dvpih12oyDAz1JQ4MRcX/SAFbLqgwRxGmPA+eIzizGGDlUcApbpSBO1D9j/8yAgZKqhrQXGHnzn92jjZ1Yy3o4qxbEScFEKiaMlCkc2tjXNkUQZzOPpwKIsD617yRT/sj4W5p6balL6t/qoVwHDHGtqnCg5t81I5qNEieNSdmg/Fjecy9PFcVdC/FTnrWxVnAdjAQkIAEJSEAC/0lAQdwrQQISkIAEJLD9BBBzSPVQDDHrVQOnTd7ct8URFs8X/9aAdh6bOo9u6g3N6bxKQZwNA1IMYOTMvkF87IFtAzCdpj7kjcj6/UMaaakzVBCnWUTQpzftH5/X60zEaZWCOMM91Iy1LZ9zje5q+eOdzQdc+6SM+Zce67ETa1kPZ9WCOOteRPCL53054LAHkv+6p8Y8KUJ/9e/bKiLEH5E+SAUzRiRlE5CDONvSMNVPIVD2snFSJq2DnSODINUNufNZ7yG//V3nUYvTv5xK72sqPimvD2zej01/VI+FDav/iJcnHrh/yI+vSUACEpCABCSwpQQUxLd0YZ2WBCQgAQlIoCLAo/vfqP7+o7x/6EBCd0m95zZ1b5hXRKK+RpRtORhyHQVxxJEPxhHasDvHn993kk15cqmTm5Z0MeRxr6Oq25okSpJoSYyx/ENbhQHfjxHE4XQoziYJRkqQlwwYw2yVVQvi9Mchh2zKdEnxwQYJkb0lRQx5oMkH3cd2Yi3r8axaECc6/m5Nh1zjfTYXiLj+/Xj5DVp3QbzO632ujHvIuQdvTb198TZBHKQH4qSgwUgXQj7yqXKJ97lmS1nS47ABcteZyqQXYR1XYXWUOE/rkGqGw5u/2HRGShM2C7rcv13Gx1NPdY71O+bvg10qWkYCEpCABCQggc0koCC+mevmqCUgAQlIQAJ9CZBn9eZNJUQWcrMOsVoQHxK1fM50SrQf4iLiEFGHQx55X2WEOFw4qI2DE4txWN4/9QT2MynPAYOI4VgfAalE4lOvCEI9u+9UfIwgTgdsaJC6AGM9Lxwn0nKM7YQgzvjeHUf4WnTYIII/qVHqHNCvzd+/3nNyO7WW9bBWLYjfO50d03R4xbyygdTFzppCL4qX3yLqbJIgPkQorX9LSDPDYaTLjIN8ST9UzlpgA7JsPnRhXJfh6Za7x3kiaOhmFbnhOVdhnt02H76876A6lq+jxK+UOhwyWvL/3y7v2aiYytjk4t+zYjz99KWpGrcdCUhAAhKQgATWj4CC+PqtiSOSgAQkIAEJrILAbdIo4myxS+RNSQvSp79aEKcekbYH4t/t0AjRleSELVHPQwT10s2qBXH6IUqTuRVDWHpevE3AJ2IW0euJ8ZIrnTbId/uRDpwoQs538gljCKqkXFiFjRXEGVOdAmeKgz9XKYiTLuiVMyCfmb/f36zNV/PK5gcR+TeLl2uVKmyQIDBymGQf26m1rMe0akG8TiEDF9KBtEUxs5HAgYj1PcGYN0kQZ7x9Uk5xHXHvllQcXQV10oRwcG2xQ3nDkyZdnzAhpQ9pXsrGw5hDIknZMrtmZVxDNoi63jt1lDibuDDBSNdCRPdU0eG0+cY450Vgb48Tla9JQAISkIAEJLDFBBTEt3hxnZoEJCABCUigIkAkdv2of59o5RrkrCDOdwgUpGEhrcRsLmHE4cPiRDg+uGqIckSpI0AuMyJKEYaJtq6NzxAnsT+OE528yMj/jeDZN70LuXIRR4oQQ/v8zSYAUdEIRUUcZ57/J37tOMJ5Sa9BHQRURDRyr3exOicyeauP6FKpRxmEpmvFGTP/LYigjSE6lcNE+RumL4h/raVt8h5zSGuJaD0679kgQQg8NFOXaNnrxjlMdZGVdDrk6H7OknLfzHevi7dt7PxeypTUDsyZDQZSniwS+eZ1yf3CNd73ANhVr2UZK+y5xth0woigLYexlnz9s/PivuCa7Hpd1vVJe8L9VJ5+QKglepec+/WGEWkuyJ++P45oXoy1Lfy5l17RfEFe6oPxeb8LXKuIluQsr43Nvfs1H3A9cK8vM+5bopq/01KufF2nTCmfHcobDr3kdXaspBjht+D+cfJcFyM6nI3Jtg21Ur4+3Ld8Rp+MHYH7K82HPMkAS9b7UvFbx2vWFCOiv37SoePUf1xs2fkJq/h9qsdWC9Xl89/OG54ymMrqgzppk9/vZb87U/VrOxKQgAQkIAEJ7CIBBfFdhG/XEpCABCQggR0mQPRuEY4QpBGS+h4WuT91EEkxBNMS+VimwmcIToiVF4kXkbSeKgIxgk2XFCRERT51Ik4cCFdEpK5NIoqT67iIxrP1EAIR7WsBvC6DiEoEbJ+o4oMpj+iDISYSYTylnZLGZtdtUfv3zBfP6tA5Itxs6oR5+ZJL9HeHJjsVIdq7Fh3nVZoVxMl3zfy5tojYXbR2tIXA2zf3ez2GVa9l6YtNBHLz9zWuS0TrIUY9rv/ZexyxlmjxizacZ9uGCb9Di1LrcL9x38waqVnaxO6u8yAndb35s6xevYbzfvNgWA5Y5emCefcWG2mI+ad2HWBT7gp55f6ft3nDWL4QLxsf85pms4HrlydzhlrJfz6vPrnFuY9WZXWUOH3Amfu178bUsvFxLfJvIwbT88f590uTgAQkIAEJSGCLCSiIb/HiOjUJSEACEpDADAGEhDqaFlH6XT0p8ag6kcREBF8lTiQq0bfzhO/ZphGOeIz/2DiRoF2MSGaiR7u0v6y9Q/mSaNahj9kT6ctGAKJcmyGqEEWOkNz3AL7DGrb0gbBIju6uEaVt4yrfz4t4nVeX9SLNBVGgbcZ/UyL61ZGpRGGTm7e2J+WPB7Y11vF7OJPbuC3ydZ4gXrpg3Kwt4u0F4mdquJPa5qSR7A9Lfe4TbFVrWebBExNDNk4Oph6bAkMN8ZDNotkDF+e1x+YF939J+zFvY4ZrjsNZ3zSnATa0eOpgmQDcZR5sBl4/Tp7uLlY2e9iY4+mHB8UX5dSebY+5EqGP+D70PuYJDPjSd9eNLARwxOq3jOi3zIUned4zBxRrxRMfn+8CcUQZNkHK7y5PKPHvx1TG/c+9TooZjI2lcqDpVH3YjgQkIAEJSEACa0hAQXwNF8UhSUACEpCABFZIgCheBB5sqsMaEWwQRhDccQQrDiX7Yvzk+GfiRI0fH+8bIblCFL2bJjUBh0YiUl8uTk5wRFTmSLQ7mw2IbQgsXQX/2UE8OR+QagFDGBx6EF7vyW1xhWWC+CqnvZfW8rIByWYIT51w//ObwKGEiKWIqdz7Yw9bXeVa9W0bcZ7o7fo3jydFPhdnE4TfOwR3NpP6PoWzaCyk++FwySPjPH3Db+xZ4qRsgTXR4n/X8B76+7OobyLf79zMl/nwG8eG35f7gutZ/uwNSzYCEOD5/e2a6qZLV7MbSfyer1rg7zIuy0hAAhKQgAQksGICCuIrBmzzEpCABCQggTUjUOc0Zmi/FOdQPG33CZw7QygpXRB/LhTvcljp7o98vUewG4K4a7ne14Sj2wwC5KXnaRvsHvFnTzxsDi4tZ0Qck/f3nbh9m5OABCQgAQlIYE0JKIiv6cI4LAlIQAISkMAKCZD6Y3/T/mvzSloMbfcJsA6vboZxn7xygJ42nsBuCOKu5fh1s4W9TYCocCLuS3Q4UfHkpp/KONyXMwKKEXFPpL0mAQlIQAISkMAeIKAgvgcW2SlKQAISkIAEZgjw2DlpTIrx6H/J6yus3SNAWgJSS7A2iDVTpz3YvZntbs+7IYi7lru75va++QQ4a4AzB7B7x9vOCug7Y/LRlzMPyPNOjnZNAhKQgAQkIIE9QkBBfI8stNOUgAQkIAEJzBCoRcI/zncPkZAEtpTAbgjiW4rSaUlgRwiQg54zKEp0OIfeTrlByOHQJzYz4cBbUod9Y0dmZicSkIAEJCABCawFAQXxtVgGByEBCUhAAhLYcQIc0HZc/Hrxu8aft+MjsEMJ7AwBBfGd4WwvEpiKACmjnt40xiHDT52q4aadc+X1pOb9EXn1CamJAducBCQgAQlIYN0JKIiv+wo5PglIQAISkMDqCPDfAWeLf211XdiyBHacANGlN42TExi7efwazfsH5/UH1Yh+lPfvi5M+QZOABHaGwJmae/T8C7rjMM2fbb57TF6/3rxHuP6biYZ4+rRzuvipE7VnMxKQgAQkIAEJbBABBfENWiyHKgEJSEACEpCABCTQSuBOKXFsa6n/WeDs+fOUnnUsLgEJDCNw+1R70bCqpzlL6k2ZPmXgMKwmAQlIQAISkMAmE1AQ3+TVc+wSkIAEJCABCUhAArMESIHwhjj5h7vYe1PoavHvdylsGQlIYDSBq6SFdw9ohTo87eG9OgCeVSQgAQlIQAIS+G8CCuJeDRKQgAQkIAEJSEAC20aAVAhn6DApUqaYMqEDKItIYGICnGNB2pKu5r3alZTlJCABCUhAAhJoJaAg3orIAhKQgAQkIAEJSEACEpCABCQgAQlIQAISkIAEJLANBBTEt2EVnYMEJCABCUhAAhKQgAQkIAEJSEACEpCABCQgAQm0ElAQb0VkAQlIQAISkIAEJCABCUhAAhKQgAQkIAEJSEACEtgGAgri27CKzkECEpCABCQgAQlIQAISkIAEJCABCUhAAhKQgARaCSiItyKygAQkIAEJSEACEpCABCQgAQlIQAISkIAEJCABCWwDAQXxbVhF5yABCUhAAhKQgAQkIAEJSEACEpCABCQgAQlIQAKtBBTEWxFZQAISkIAEJCABCUhAAhKQgAQkIAEJSEACEpCABLaBgIL4Nqyic5CABCQgAQlIQAISkIAEJCABCUhAAhKQgAQkIIFWAgrirYgsIAEJSEACEpCABCQgAQlIQAISkIAEJCABCUhAAttAQEF8G1bROUhAAhKQgAQkIAEJSEACEpCABCQgAQlIQAISkEArAQXxVkQWkIAEJCABCUhAAhKQgAQkIAEJSEACEpCABCQggW0goCC+DavoHCQgAQlIQAISkIAEJCABCUhAAhKQgAQkIAEJSKCVgIJ4KyILSEACEpCABCQgAQlIQAISkIAEJCABCUhAAhKQwDYQUBDfhlV0DhKQgAQkIAEJSEACEpCABCQgAQlIQAISkIAEJNBKQEG8FZEFJCABCUhAAhKQgAQkIAEJSEACEpCABCQgAQlIYBsIKIhvwyo6BwlIQAISkIAEJCABCUhAAhKQgAQkIAEJSEACEmgloCDeisgCEpCABCQgAQlIQAISkIAEJCABCUhAAhKQgAQksA0EFMS3YRWdgwQkIAEJSEACEpCABCQgAQlIQAISkIAEJCABCbQSUBBvRWQBCUhAAhKQgAQkIAEJSEACEpCABCQgAQlIQAIS2AYCCuLbsIrOQQISkIAEJCABCUhAAhKQgAQkIAEJSEACEpCABFoJ/H9TvSAIWrlHsQAAAABJRU5ErkJggg=="/></switch></g><rect x="205.39" y="216.14" width="170.33" height="55.4" rx="5.54" ry="5.54" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 168px; height: 1px; padding-top: 244px; margin-left: 206px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><div>Rlp.Lex</div><div><br /></div><div>(src/Rlp/Lex.x)<br /></div></div></div></div></foreignObject><image x="206" y="223" width="168" height="46" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAqAAAAC4CAYAAAA8Jl4aAAAgAElEQVR4Xu2dBbQsS3WGHy5BQ3ACF3eX4FwcgrvDxd3dHy7B3bm4u0OAiyW4OwEeEoIEgrtkfzDFKpqemWqdnumv1qp15pzpLvmqT/ffu3btOtRBJglIQAISkIAEJCABCYxI4FAj1mVVEpCABCQgAQlIQAISOEgB6kUgAQlIQAISkIAEJDAqAQXoqLitTAISkIAEJCABCUhAAeo1IAEJSEACEpCABCQwKgEF6Ki4rUwCEpCABCQgAQlIQAHqNSABCUhAAhKQgAQkMCoBBeiouK1MAhKQgAQkIAEJSEAB6jUgAQlIQAISkIAEJDAqAQXoqLitTAISkIAEJCABCUhAAeo1IAEJSEACEpCABCQwKgEF6Ki4rUwCO0PgvtGTu0Y+6ooePSW+u/XO9NiOSEACEpBAbwQUoL2htCAJzIrAx6K3Z1vT4xfH99eZFRU7KwEJSEACRQQUoEWYPEgCkyLw7GjNjVq06MtxzicjfzryGyN/qkUZ6RTE5xUiH6mmDCyjJAVoGeCXx2FXKzv0r0f9LD5dNvJ7G57n4RKQgAQmQUABOolhsBESaETgp3H0qqnv0sIeEwceHBkx02f6XBR2OgVoEdLDxlG/Kzry7w9C6D+q5bmeJgEJSGCjBBSgG8Vv5RJoReAicdYFIx96cTb+mKSPR37TkhIRrGeKfM7IuXj9fvx+/shfadWS+pMUoM1gXiYOP1fk/H58+Pj97ivGlXHDwvyjZlV5tAQkIIFpEFCATmMcbIUE2hLgf/iPi5MRog9eUxCiFb/MJ2dClCn580T+ZdtGVM5TgHYHiQD9TYNx7V6jJUhAAhIYkYACdETYViWBAQg0FaCpCceMD2+OfO7FH54RP2/eU/sUoN1BKkC7M7QECUhgwgQUoBMeHJsmgQICbQUoRZ8g8iciH2dRD1PzPy+oc90hCtB1hNZ/rwBdz8gjJCCBLSagAN3iwbPpEggCXQQoAPdFfu6C5N74+Z4eqI4pQFnEc97IJ4l8wsisyv9O5G9G/nzkb/TQn00UsWkBevzo9Gkjnz7ysSLjIwzPL0b+1SaAWKcEJLBbBBSguzWe9mZ+BLoK0FMGMsIzke4S+dE9IOwqQE8dbXhiZERlnrDOniPynyLjQsAinVtFXhUR4B3xPe4Fr46cfGV76OLgRWxCgCI0Hxb5mmuYcr08PPL+xViUwrhJHHjLyEepOeEn8bcHRX5DzXc3i7/hHlJ3Houw8HtetviutG0eJwEJjExAAToycKuTQM8EugpQrFxYtki3jfykHtrXVYAiKlkkVZeweF4o8ksiJ9eBkia/LQ66fmRWj29DGluAEoeU+LJNwnu9JY5HHH67EChxZ4nEsCwRD/UaNV+m66npeYXN8jAJSGATBBSgm6BunRLoj0BXAYql8TaL5uyNn1OYgmf6lxiXJ1q0ixX66fPV4zNCJU+PiF/wZf1sZCxip4h8xsiXj3zJ7EDEJ338Qn/4BytpLAFKPYRzukqFEzFiiY7A1PuPI++JjGUantfLjiWG7A0iv6aAxJXjGAQmY5inV8QvxLbFUv3hmnIuEX+7buQjRq4G7N8ff3tW5A8U1O8hEpDAhAgoQCc0GDZFAi0IdBGgTLViSSQhzk4W+Rct2lA9pasFtFreveIPD6lpF9PrWOAOWdFmhAt70ifLHtZeYm720c8eUC0tYiwB+tBowT2zVtw/PiM+Vy1GYxcsXDX2ZufhLoHfbUkiDNgLswPvEJ8fv+ZEwodRJ8emRCzc95VU6DESkMD0CChApzcmtkgCTQi0EaCIMfw975dVhGXplU0qXnHsGAL0PlE/4gl/0HWJ1f7vjnyqxYFPjZ9M8085jSFA9y64JA6E5PpQIRSuu2dGvvHieHww2Rq0NF0pDsQvNyVEMH6ldekw8UdeInjZIGF1vVjkOmtpaf0eJwEJbJiAAnTDA2D1EuhIoFSActxZI18uMuIr959EyN27Yzvy04cWoPgesntQifhM7aLv7BSVEtP83+2xz30XNbQAPUY0+EvZdcAUfC4IS/pzuDgI4XnxxcHXip8vLTlxccyl4yexaFN6QHw4uHI+Pr/PiZym/RGf7NyFe4BJAhLYYgIK0C0ePJsugSCQC1Aezh+sUMFvjvBETK9XE9Pu+Fo+v2eSQwpQ+niayIRaapruESewypvECvpHNi1gxOOHFqBXiL68dtGfx8bPO7XsG0KWqXes6l+LfPKG5Vw4jn9Xdg5jwjjxcnGEyC+KnPxTuV5ZgEYoKJMEJLDlBBSgWz6ANn/2BHIBWgqDVcsPjIwf3hAxHYcUoF2stYjx1F98B/EhnGoaWoAixBF6pDNH7mJRZHqc8EokQiU19a8ljutbIyc/XRbGMSX/sshYuklcs3sjf3WqA2a7JCCBZgQUoM14ebQEpkagagH9SE0DzxB/y6fcCbdzi8i/H6gzQwrQq0abX9Wh3R+Lc1lEgzXtuB3KGfrUoQXoe6MDF1h04pwdO4MVM1mTYUtEgqbp7HECfrp1YaCwrO6N/K2mhXq8BCQwXQIK0OmOjS2TQAmBEh/QI0dBd4vMCueUEHGsEP91SSUNjxlSgDL9ju9i28Sqf1b/k9g1aYj+t21bfl5XAYpQxzcTYVi1GrKoZ6iXj6Z+oHmfCZ1FOKVchBL0nmn3Kfvr9jHeliGB2RFQgM5uyO3wjhEoEaCpy6eLDwRkTzE1D8TnK0ZmF5o+05AClMD5XXwA8Sm89qKz+Bj+ts+O91hWVwH6vWgLVm9eOnC3yBMLe37XY1vzolatZl9XJTsxfTK7PjkeVwlWvE91nNb1ye8lIIElBBSgXhoS2G4CTQQoPWVB0tsjI0ZJrCgnfE6f21QOKUAJYk7g8rYp7cbDinimfaeaugrQFCFg2QIjAr8nS2OT8EnreOEC0ma3qePFee/Mrsu8HlbaEyZsCH/ldf3xewlIYCACCtCBwFqsBEYi0FSA0iwsTcRQTCvj7xifH9dje4cUoOx6lBbPNG0yrghpgczT4nNaONO0nDGOH1qAJl9Y+sJK9r6t4E0YYZFHfKY4rUzD3zoyYaHSNcpKeVburwqQ36ROj5WABDZMQAG64QGwegl0JNBGgFIl/nb5ymce/my72EcaUoAShom2f6NFQ5mKvu/iPBZhPb1FGWOdMrQAJeg7oahIfW5C0JQPApPtX5NbSC40qxsIIEyx1rI1qEkCEthyAgrQLR9Amz97Am0FKOBuG/kJC4I8+PG1axLcfRn8IQUodR5YtPUPDUafUD9pv3BELC4IhPZpm7AaHjsyfqSs0v5l24KWnDe0ACWYe9rGEi6sZB/KL3QZGvaWZzV+itDAVDsuFjlLvmPL1TMtCsF1gr3hf9gzb4uTgARGJqAAHRm41UmgZwJdBCj7ax+InMLxsNtMvkd326YOLUBpF3Es2Uq0ZDU3VjZETJrOvX58fkHLzhFLFNF+08r5bA1at199y2oOGlqAct0gQM+3aCAuGLhijJWqK95fExWzgv43NQ04ZvyNxXMpXNTn4/NFI7syfqzRsh4JDEBAAToAVIuUwIgEughQmsmqch7oJCyDJ47cdYpzDAFKe9n16YaRl62KR2Az1f7kbDwQOlfuMD4Ewmeld11idT1hnvpIQwtQ2niuyPne721fQNiSE0F+qci4OXx0DYBqzM8Xx/H7Iq+ywB4tvn9j5PSyRHgmRGgXK3Yf42QZEpBASwIK0JbgPE0CEyHQVYDSDfbgxppI6rItY0IypADFX7G6Cv6p8TcW1Xw2MlOzp4zMlC0hps6djRPTt+w/3maVdiqGYOjJX7F6CXQVt3l5YwhQ6mOxz5OyilmcReimEkYI/ItEfnzkFFWBXYxuVwWT/V7d9Yh93m8eucSSzSIyFiZdclEe4pPdrL6+oj6/koAEJkpAATrRgbFZElhBAFGFzx7xHPkfRkCSCIHzhuw8LJrPjbxuhTMPdh7iyRfvQfGZuIvvj3yg0o6zxu/44CGQlqUUdxKB8IwVx7Ei/XWR122veK84Jk1v02esYEyhLxOCdVUyRU5Q9q5+jqt8ZPGlxLeyaUJEcR4B4lPCqpgWTFXHtaT8NAYlLxT54izK5ro5ODI7E2FpTJEDGHPcGBD4XAdYPatjcJ74G5bpaqJ/iNV0rabvqYcQYISFYnOEOosmvqIsPuI6JedREBDKj4pMODFeQEwSkMCWEFCAbslA2UwJZATyGI7rwBBqCKvWusTuQNXpY4QIU595StbNdeWVfo81k4Unq1JVgLL4iBiWt4/MFHzy7awrA99BdoHqstd5Xi6ibO+SxuIbSpuapCGDwtOOEgHKcXXjn/qBKOSFZBVnBOCdIi9zh+AlY9X51IUl+1Y18NgnPlk9l7HlxevyTcB7rAQksFkCCtDN8rd2CbQhkO/ms+p8rEP4O6bV36uOrS5K4VisjCzYyRPWpju3aXTNOQhc/ClzH826ousEaDqOdjPdftLIBNlne02sdljDDoncZ4B96qz6TaZ2wBqr4HdasMG38TItzis55cFxULKkrjuesEeEZlo1hZ6Xwfi9NDLT7p9ZUzhC+A4rjqEsxGfdIjheIIj/uipRNq4AJglIYEsIKEC3ZKBspgRmTGCVAN0EFqagbxwZix5T8ohdrMw/2ERjBqjzKFEmbg5kRCmuGVhq6R9bfBKDlfBJWJWbhMIaoKkWKQEJbCsBBei2jpztlsB8CExNgM6HvD2VgAQkMBABBehAYC1WAhLojYACtDeUFiQBCUhgGgQUoNMYB1shAQksJ6AA9eqQgAQksGMEFKA7NqB2RwI7SEABuoODapckIIF5E1CAznv87b0EtoGAAnQbRsk2SkACEmhAQAHaAJaHSkACoxAg2PgVIh9vUduV4mfagvGu8Tlfec0qdLZ+JGi+SQISkIAEtoSAAnRLBspmSmBGBG4UfX12w/4ePY4nQL9JAhKQgAS2gIACdAsGySZKYGYE2LbxzZHZ7agksVUle4yX7CdeUp7HSEACEpDAwAQUoAMDtngJSKAVAfZFP0LBmUzB/6rgOA+RgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpAAhKQgAQkIIEJEVCATmgwbIoEJCABCUhAAhKYAwEF6BxG2T5KQAISkIAEJCCBCRFQgE5oMGyKBCQgAQlIQAISmAMBBegcRtk+SkACEpCABCQggQkRUIBOaDBsigQkIAEJSEACEpgDAQXoHEbZPkpgNYFjxtc/i/x7QW09Acdy64fQDkhgHgQUoPMYZ3spgWUErhtfvCDyxyOfXUxbTcCx3Orhs/ESmBcBBei8xtveSiAncPj45VuRj7OwgB49fv5JRFtJwLHcymGz0RKYLwEF6HzH3p5LIFnMIPGkyLcVydYScCy3duhsuATmSUABOs9xb9trLGTviHz8yBeJ/JW2BXnexgkcOlrwhcinWrTklPHzvzbequUNOEx89brIl1nTxmvF9y+dcD+GaNq2jeUQDCxzswSeH9VfMTIvQq/fbFOsfVsIKEC3ZaSm0c6XRDOuuWjKlePna6bRLFvRgsBl45w3LM57cfy8TosyxjzlGFHZ/xVUeNM45lkFx+3SIds2lrvE3r78hcBPIx81MosZzxj5G4KRwDoCCtB1hPw+EbhEfHjb4hduMidc3GwktJ0E3h/NPt+i6WeLn59Y0Y1/iO/eHfmcLbrK4ibK/mxkLJPfbVFGOuUK8eE8kbH45ekf45cbL/4wRwHaZCwTt5fHh6s1HAv+7xG77214nofvPoHHRBfvuOjmK+Ln1Xe/y/awKwEFaFeC8zif6U+ExJkW3b13/HzoPLq+k708f/TqfYue8VJxqTW9PHV8/8UeSCBg7hz5OZH/0EN5qQgWUX1v8cvcBGjTsQTTYSP/riX/u8Z5j2p5rqftLoETRddY0JgSL4of3N3u2rM+CChA+6C4+2XkCxwQESeO/OPd7/bO9hAfrcsteocvL9bNdQnXi9NG5p5xmsjJeoYbBtbNunS8+ONZIlctpwfib/8a+VfrKi38fs4CtM1YghVf2nMtxjNhZiX93Re/8ML5pgr/78fvuGv8qHBcPGxeBJ4Y3b3NossfiJ+8HJkksJSAAtSLYx0BrCVfinyyxYH3j58PXHeS30+WAP5Zn1607iMLEdK0seeNE3jAkC4Ued2ULFP494h8n6yip8XnWzateMnxcxWgfYxljhQB+pvFH+4bPx/c0/hYzDwI7Ilufj3r6kXj87vm0XV72YaAArQNtXmdg9/da7MuHys+awHZ3mtgfzT9Bovmt11I1lSAJloIJoQrixVI147Mwrauaa4CtI+xzNkrQLteiZ7/7EBwowWGt8RPZjpMEqgloAD1wlhHIF/g8MI4+HrrTvD7yRI4SbTskEXrvhY/CcHUxhezrQClaqb837loAz5i+Ip1TXMUoH2NpQK069Xn+TmBC8Qv+YzImeP3NOMiKQn8DQEFqBfEKgL4iH0oO+DS8fmtPSLjIUr8SRzY/3lRLlM4ZMJ4fLvHukqLOlwcyKIb2vbzyMTKxPeta8If8nSRTx8ZKzICENeGL0cuCS/UtX7Oz1eqYqV4bstCuwhQqtwfOVlhjxyfu/qCji1AiYcLAyJBnCAyu0exAOObkVnxP8Z49jWW+SWwSQsoCx33ZP8jRDr4fOTPReZ+8PuW16qnjUuAcePezT2dhEX0JuM2wdq2hYACdFtGajPtzB9yLD4i3E3XBwE+pSyAwf/v4mu6hYUMX7RfRsbB/UWRaVNJwv/oAZGPXXMwovr6lb/Tt9tHvkVkBE2e9scvrPz/TknF2TEIzUdEJiRJmnauKwKBe8/Iz4t83MiEK0Kg7mtY36rD/ym+/MHiAOpDYP+6ZfldBegNo15WwpP+JfKHW7YjndaHAMXVhDFGXObp7fFL2iGKxVf3irxuFmB/HPP0yEOtAu5zLPO+bkKA8kL26MiXXHMN4Lpxt8j/0fBa4b6B1Z37TjUhlBhbXgTzxHORncH2LjkPQcxim6ls3MBiH6KScO+oJu7Xr4p8v5rvsFY+ZMV5L4vv2vj7HxznsVYgpT5eMmua75+2nYACdNtHcLj2c20QszGJscfG5zt1rI4b0SsjY0ltk7CIJkvpuvOfEgcsW+TCCt+zZwWwIhhBVBWeeR2ItgtGrj6slrUDQfOMNWVWz6VdiOPUbnac6hI3My8fIZ8eJoRCKhXydf3rKkAJlQQb0roYpOvGme/7EKDL4mKyiOJikW8dGTHTJPHyAfe2IY+W1dXnWOZ1jClAjxAVIyibCpx/i3MOjsxL6brEC+D/rjmI/zUWxOUpF/jLTudFlZeMKaTcUFDXHowHR6v5ou156/rMS0UeGQODwxvXneT38yOgAJ3fmJf2GGHwsezgtgtWUhE83P49Mm/dKfFwRyhiScC6yNs6U9V7IhP6iUUqeVp2I63rEzFL7xL5iNmXxLvEEpkEKNPt3IRT6JB0KBYZQhNhFcWykKaTSnwWsbQwtU37UyLmJq4L3JSZVvxhZKZumcJF/N6urgPxtz2R+9hR5ChRDnzTTiX0h51L2qYuAhQ+n4qMOwLpSJHbWmJT+/sQoOeOwrCGcU2QUpgprtFPRs5fvngR4rrFt43x/OOiPyyyIiB+2t6UcrDcsYlDiWAqGY++xzKvcywBivX9zdk1QBv4n+SlhBc8tvjFreHkkXGH2Rc5bZrAscwOEBAf95h1CYs1My17swO5j/D/yDgiaP+nphBeOHjhxCKeW2c5BzH1oMhNZ0TWtbXt99zrCAJ/lcj5TAtb1/4iMjue1W1Pi0WfsFtEqahuSsA5hFhr46aDrvhJ1pb98ZlZD5ME/oaAAtQLYhmBW8UXT86+5KGBj1vbxM38PYuTsSZePnLuX1pXLtZOpo9SHMkmArSuvGTl4mHHFD2/524A3CgRGrkPH9YQpqKYxisJ2o5VB8tXSneID0+IzAN1WUJA4S6AVSVPe+KXPgQoD1OmFEk8OOum41Y07+++aitA8Q97XOQ0pc0DjhebrqkPAVptAwulGPNqov2Ek+LBXpcQ1FgocalICet62qmpa1/7Hsu8PWMIUF5AEPXpRZR7ARZ5oiEsWxDHc4rrBPbpZZD/Ydw3SlyCuO4eHzl/0aR+FliuSohPYqEm8Yu/9oUjT0V4VtuOEKVPSYRyf8Nd5Ldr+on45NiUuAcy49UlIdJ5uSbxkoZV1CSBvyGgAPWCWEbg4fFFCkrNQ6LOv6gJPQRWEj5Ndsk4ZpyXwj71JUBpNw+TZKmiXAQCW8jVJaxiBGHHOpPiJNYdxzHcbEkww9WAB2Vpyplzzp7IXQUobcdilB7cfUzrtxGg9AVr85UyGCeNz4eUwllx3FgClKn4tIJ/XbOxqP5ndhCB/HmR6ZKGGMu8PWMIUOLBPmxRKdclInLdNHlqI8IKgZV2ZONlDwtmSeJZx4shOzmltGo8mf3ASppefrF287Lax4LEkva2PQarJi/6yZ0IKyjX3rJZhn3xXW7lvHn8ntxj2raB8/CnzuPIqjW60NzRc70odnRge+hW7hPHdAwWyy4pjw+HPxKirzTtjwNZNc0Di2m5tqnOz48ymZpn2q9LwrLDVDvCgwQvuDVNrPpN09N74nNXAXqdKIPwWSSsoMn62LRd+fGlAhQ/PyxNWK+q/rhMoVZ32mnbpjEEKMIpt2yXtDWfRUDAEJKmSxpiLPP2DC1Ac7ce/v/xw276f8eLFK5BSWAhuEr9sunrwZHzBTLEqSReZZ542cZKm/4P2bCBafgxoht0uT7SudwjD0ROL53M3PA/WHUD4X8SV5KUsJame0XXdmD9zP0+WQxa+qLRtW7P3xICCtAtGagNNJObPA8M0jMj36xjG7CmYuEjNZ0GxuLBtCdTtl0Cl1cFKIIRixw+mV0Tfn7c6EklU/XL6mPKPk1/8SDsYnFh6vEzkdOD9BTx+atdOxrn5wIUS3JVJGOp4uGXHoB5lQh+xDlCu680tADFj3Nv5JLp3rxP8MfXMfkQNrH8V9kMNZZ5PUMLUFxR0gsQ/3f5BhdNroXcnQcBhVtCk1R1k8n92/HLRnym2ZED8ZkFhV18ppu0ra9jcV+i7WkHOz7zf5de/PGPz63H+I++uq/Koxwsx3l0iz4WG/bYPIuaAgEF6BRGYZpt4IabfIkQjrlPW5sWs398LlTw7eThQdDipg/2NvVzTi5AXxC/sxp71ZR6k3rwY3vU4gQEM8KvTWKKHCsEwq7rVpW5FYI9vLGg9ZFyAVpaHlakR0ZGdPQ93kMLUAQk4ZjapFwsddnGdqixzPs0tABFkCBMEEGsUG8bHYDnFgsXEVclCwPrxi33peX7a0XGJ537UXpxwjJ61ch9LSBrc/10OYd7CQs/0wsoL1LMPLDoEZeolOqswF3q5VxednPr9hXjd8v5TogAAA7JSURBVNwBTBL4KwEFqBdDHQHCJeWLLJr4Wq0iys0PIVSNicn0JJkbFhYyMgKs7ymbJEApm6m7VQuDml4Zz48TmMLq6qfatN5Vx+e7WPVpgcgFKGN1SE0jqgt4cKGA0RBpaAHaxW8292Hmpacaf7aUx1Bjmdc/pADNy+ZlBPeELonwTSmcG0HsiUTQNLEZA65BdYnZFkRpXy+oTdvW1/EsomRGJs1mVcvl/5SIH32naiirunBXfddpeVtGQAG6ZQM2UnOrAhTH/WTd69oEpoaYRs/DqiwrE6HIWzO+i11W4Kfy81XweRzQrn3i/OS7yfQdK+w3nXKR2MUloK4fJT6gWJEIZ3X1rIC+XmSqbRpSgPaxAC/NJmCBImh40zTkWOZt6SpAsRayUAdLd9XVg1kBwm8NkbosZkNk8lKcJ37fF7mthXaIPnYpk5cg7gFpQVUqi3tw08D+pe1gEVfu2sRuSMvEfmmZHrdjBBSgOzagPXYnn4InFiarGvtMxPdjgQoPJqZr+D35K9XVw8pZwtssC9VS0rahBCgWmDSt3MYnraTtTY9hqhvfNRKhYw40LWDF8SUCNJ2Ofx3uFikhShGibSxWy5o0pADtw6Kd/pcYA8aiaRpyLPO2dBWg34vCGIs6VwOENz7XQ6QuLhLVeMe0D391RPSuJO5PvPTnsT65rona8d8DdZJ7ef4SQt1sQmKSwF8JKEC9GJYRyBchsVNIV3/EEtJYXtkbnhsjvnPVOrtMYVL/UAKUspPIoI5rlHR2wGPynUiY7jxXz3U1EaBUzYsGK96T6wX+xGlBWh9NG1KA0j4WprSN/ZjvxsOiD8R3kzT0WOZt6SpAk0tL3a5puLykwPFYglMopiYslh2LewKBz5smIlbg21t1CaIcQsaxWHLbU93GGKlPuM8wW3PIAJ2sCntYr4v7PEAzLHLKBBSgUx6dzbYtX7DTV8Dwpj1ihw58B/OA+G3DG1H3kAKUBxnTj11DRTVlVHd8HvKqy2rjZW1pKkAph3iP+d7oiGLEcR9paAHaJWQUPnYpdig7ezWN4jD0WOb8hxSguS9s24VDfVwrqYy98SH3fSTIPdPUeUgmXpLYSalPX/E++7CuLMKgcb2l2Lu4k3AtY6FOQeL5G9bppuGw1tWdRwXh2C4vcevq8vstJaAA3dKBG6HZxDxM1pome7DXNY0pIKbavxj5Vy3azls6qzlJ74jMza1NGlKAMmWXglxjUfl5mwb2cE4ebQAfWlbAdnFbqGtSGwFKOfmiD9pGXMyu23BS7tACFKGMv1xTn8Dqrj9YM9NGBSVDPcZY5u0YUoBSTz6rcoL4vW4LzBIuXY8h7m9VaKYoH3nUAuohdBTbXPbpMtK1/SXnM5vElHdaqJULTcaZSBtpSp7vuMfm+7eX1LHqmGqYJ/4X+r4PdW2j52+YgAJ0wwMw4epZpZpbHrs8MNKuGNz0CfnRJqVVwF188oYUoKyAT6u82wQtb8Ok7hwWixESinTDyPv7Kjgrp60ApQhiDSaLDD69+W4pbZs6tAClXQdHzkPXlLQ1jzfJjlhYfZs8hMcYy7wfQwtQrIkPWVTICy7/J2MnwgExo5NSnb8q1npedNPUPHGQcQdqMnbr+nWMOIDg7FgpmTXpM9QT7cZvOEWiwICAsP561igE4bMiM8NE4r66N3KTndtW9RHxS2xR0hRmhdaNh99vgIACdAPQt6RKFkuwojulLtOQL4pCmH4ksTqyzY4iTJdxg5yqAK3GOT1DtLVtsHX8Bg+OTCB6tggt3TUq9zfEqkGbhggj00WA0iem+9LDnYDfXaf/xhCgXLtN3D/Y5hERkxKW6OQDmf156cexxjJvwNAClNA8iJE09nkA+BImXY9hS8rcBWJVVAas8yyaSm3FYsgLXdcYtkeMMrCqEoM4T2y0kcR5l34ibNmBKN+/HusmIrSamJkiwsgtFl9wn2F2KXeVaduWtCCN858XeV/bgjxvdwkoQHd3bLv2jH2nCaORbsAsGsCC0SblArSNVe6sUWl6M++yyGdICyhc8uDWTNvujdzUskFfXx85BcPGclG6ejjff/lOcV7aUanNmK06p4sApVweRmn/6T5CRI0lQGn7cyIzvbjsJYr/F6JG3CYDSODvJzYchLHGMm/W0AKUupjOfkxWaVO3hHQqAh2XF8K63T7yupjB1ZifjE8+w1M3PCyGPBCZ64vUR2xQro1lm3q08RHO212N+Ym7B+LzuyuuPTQAlnbuFyl1jZrBVqBsFJDSEH7oK7rkV9tCQAG6LSO1mXY+PapNW3DyBn2SyG18oXIBSk+ahOTAd5Tp9ySE2wjYRG9oAcp2iSw42buoEGsPD773FAwflgum+XhApcT5Z4xcImLx+eJBAycsGQjYobYP7CpA4cSOM8lK03WXlCEFKLMAn4ycP6CxLrM4iM0TsHLzP4GFk7Hi+sy3ICVyw77FMQWXwZ8PGXMs8zaNIUAZe6yQeXxYBD2WuBJrPWywZLJoKN0TiD+ah/qqcq7uesSsAi8SJYkQccy+9LU70rcq10fehi6LPau7HvHCTniqdcI81U9gf1xiUsJ39K0lgGqOyV1P+HqTPvEtu+BpYxBQgI5BeXvryFfw0osm1ri811UByncHIvPQ4Wd1L3amqc4SGWtJ/qBCQBI4ep0I5mHBinQeVnlCRKRYo4RZWZWog5XtTVdq8/b/ich5aBfCWBHcmkVYP8gqpX2IOaa9mAbLz6FefKh4YJUkxCsxSEk8TPBt6zPRFkQWiZ+IABJjki9eoI+vKKg4D0zOy80zIrP7Fg/h3FeNolixi2V42f2KFdZcKyQE44EV9TM1+LLI68L28CLB9U95TKczPolvQff+/BKwL3Kb/bWHHkvaz/8yq5+Zhk2JWY8kQrj+3lDS0ewYrjtSXRimvCiue7ggkFLiZQurL/87fE4LvvifQATiqsELy77I+f8Jx54jcp1FmnsFIcDycG68PHDfIRED86WR617wLrSoDz7cM6g3JcJI4eOIz/ePsr+XfFy1or7NRgW0DQsjPvt5HGUEOm2jPhZw1k2r4w7F/RVfVFIav9QPXoZ5+c8XbJX08UtxEONFgi/jYJLA3xFQgHpRrCLA9YG4SMKjbTzQ/VFG7uxejbvHQyH5KBEHtC4uH9PQPLBKVtEzhX25HoYWCxe+YE0Tfo74eeXiOZWBMMHnEatdbilL38OCBwELH35bWDHCgQdxKu948Rmh1VdikwCEZWnCEliyovapcVzyP0tlVx9YsFw1hVjapvw4LGLrxGQuQNPOVjzgWeDFgrO6a5Q6GD988AhmXmp9yts29FhSFwtQmq7ob8J5nQBNbUDgpMgR1fKJksCsQJr+rquf+xHWtjofaf4XSl7eeJHihaQ6BiX/e23cXJIve11/uGfgTtAk1f0PVc9ftggIV4B8xmVZvVitS0NRscPcR7OCzhOf+/ApbcLEY7eEgAJ0SwZqg828btTNNCKJGz2r4ZuGGErO/7yVE9yZKbdlflDVriICsVZijVln+Uzn8vDvI9B5m8DhefuZWsaNYdVDNB2PvxZ+tlgUSx5+eT354gqsO7ft+Xo5SpSHG8Gy/aTz6hgvrGvrLIycAxd8xXIxV90zGkHGQ7tk69aSbiMQsRit24KwToCm8lm5jNUNkcP/AwtTGD+m47uK5aHHMvUBkZxiQZZwa3IMkQ3y6dxV52LZJrpA6QsjL6q4P2AxX7U5AGN0IDIB0JclyiIqx2dqDsijNdSdz3XE1H+pf3Yqg0gIdQHZKQ8WTTc8yO/Py/q57J5QXShXdz6zGXUv0svq4uXjDosv21h0m1xnHrvlBBSgWz6AIzQfvzAsCUlEtXnrr2sm0z5YF7EqkZmyQegwLcYULHViKeQmVvr2PQKOxlXAjylErMgsuKDPTEGyTV3KWCiSL2HTCvgfxkeRKW0SdVX34W5apsf/xZc3TcEnC+jQXOY8lvgwwhsLGlZv7g8Ieyz5ZCzw+A3zv7LtiVke/FC573FvY7YAa27unrONfazOVowd5WAbmc26zQrQWQ9/cefxL0orRrGCMsVbsjCmuAIPbE0g33EEP9PrtC7JE3MCmxCgjqXX4DYTYAYnxXZlRoCX4j5jp24zG9teQ0AB6mVRQgArHjEMk5N7SQiTknI9pjuBx0cRhPkhMUXOIg5TdwKbEKCOZfdxs4TNECAEVG7BxbWh6eKlzbTcWjdGQAG6MfRbVzGroFn5ScJfaU/kkgVBW9fRLWsw40JMTXY1yUMFbVk3JtfcTQhQx3Jyl4ENKiSAH2+KLHIgPhNL1CSBlQQUoF4gpQS4VggaTngjEosGWMhgksAuEtiEAN1FjvZpHgSIOZwWEzL1Xrewax4k7GUxAQVoMSoPDAIsFGDBCwuSWEzDimeTBHaRgAJ0F0fVPg1FIP2/sPFG2uVsqLosd0cIKEB3ZCBH7Ab+oMQRdBHSiNCtanACJ4wa8FsjEgOJxRS8aOFuUg3pRTgw9nlnoYVJAhI46CBihfK/M9TuazLeQQIK0B0cVLskAQk0JlC3W9eqQgiuTZBtkwQkIAEJtCCgAG0BzVMkIIGdI8DmCGw8UJrYVCFt/1l6jsdJQAISkMCCgALUS0ECEpDAXwiwe06+N/oyLgRIb7pblYwlIAEJSCAjoAD1cpCABCQgAQlIQAISGJWAAnRU3FYmAQlIQAISkIAEJKAA9RqQgAQkIAEJSEACEhiVgAJ0VNxWJgEJSEACEpCABCSgAPUakIAEJCABCUhAAhIYlYACdFTcViYBCUhAAhKQgAQkoAD1GpCABCQgAQlIQAISGJWAAnRU3FYmAQlIQAISkIAEJKAA9RqQgAQkIAEJSEACEhiVgAJ0VNxWJgEJSEACEpCABCSgAPUakIAEJCABCUhAAhIYlYACdFTcViYBCUhAAhKQgAQkoAD1GpCABCQgAQlIQAISGJWAAnRU3FYmAQlIQAISkIAEJKAA9RqQgAQkIAEJSEACEhiVgAJ0VNxWJgEJSEACEpCABCSgAPUakIAEJCABCUhAAhIYlYACdFTcViYBCUhAAhKQgAQk8P8kjIsijaVD3gAAAABJRU5ErkJggg=="/></switch></g><path d="M 247.97 216.14 L 247.7 158.64" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 247.67 153.39 L 251.2 160.37 L 247.7 158.64 L 244.2 160.4 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 189px; margin-left: 216px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); "><div style="display: inline-block; font-size: 11px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; background-color: rgb(255, 255, 255); white-space: nowrap;"><div>RlpToken</div></div></div></div></foreignObject><image x="189.5" y="183" width="53" height="15.75" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAANQAAAA/CAYAAACYXeZZAAAPHElEQVR4Xu2dCdRWUxfHD82jpFFFoaJBaaAiISFlpUxlLJVmzWSIohZJkyJNGjSZFWVMI5oMjZSlRIkGQxlTvs/vrHWedd/r3ueee59z9fQ+Z6/1rVfve+6+5+yz//vs6dzvuP/9Q8KSlYCVQMoSOA6ygEpZjpaBlYCUgAWUVQQrAYMSsIAyKEzLykrAAsrqgJWAQQlYQBkUpmVlJWABZXXASsCgBCygDArTsrISsICyOmAlYFACFlAGhWlZWQlYQFkdsBIwKIG0ANTDDz8sJk6cKA4dOuS5tIoVK4oVK1YYXLZlpSuBP//8U1xzzTVizZo1WR6pX7++ePXVV3XZZMy4LIA6cuSIQIC6lDt3bpEzZ07d4b7jateuLT7++GPfv5922mniyy+/TPk9cTP47bffjL7in80R+fLlM8ozLLPdu3eLk08++V+PnX/++dbIeQgzAahPPvlENGrUSBw8eDCUzM8++2xxzjnniEsvvVTceOON4vjjjw/1PIM3btwoli5dKtw9ukuWLBEvvfSSOFYAVbhw4dDySyasdFHa119/XXz11VdyqgsXLhRvvPGGSJe5hVa2mB9IAOq9994TjRs3Tul1DRs2FBMmTBBnnXVWSnzUw+PHjxddu3a1gDIiTTNMhgwZIgYOHGgB5SPOBKA4HfCTDxw4IIe2atVKWtuWLVtKpXbT33//La0Wp8tzzz0n9uzZkxjy4Ycfinr16qW8g8cqoO6++255YnuRkutFF10k7rvvPs8x48aNE/PmzUtLpbWASq7WvkmJ5s2biwULFoi+ffuKxx9/PCmXX375RSDoYcOGyXFly5YV69atE0WLFk0JVMcqoGbPni3atGnjufYrr7xSuky9evUSo0aN8hyTzkqbznNLSdkMPWwEUGouTz/9tOjSpYv8Z/v27cXkyZNTmqYFVPoF/hZQ/8EJ5XzFLbfcImbOnClKlCghvv/++2MKUL///jsXxETevHkjzVslJdLlhPr1119lljBKoshPAEcTUIQlrKlgwYKR9ifsQ2S8eWcYfTB6QjHht99+W1x++eVy7tu3bxfly5cPu47E+FROKNxQ5vLzzz9neX+DBg1E5cqV5e927dolUP4XXnhBfP7554kMHcaAMdddd53MXJ500klaazjagFq1apVYvHixLEEQx+7cuVPOm3iN0gT/I4bLkyeP1nq8BgUB6oMPPhBbtmzx5I9iEkoUKlRI6/2UIZ5//nmxfv16sXbtWvHpp5/KPWJ/zjvvPFGzZk1Rp04dyVPXaOzfv1+8++67wlniIJl2xhlniMOHD8vaGmug7qlqb8wXGd52222iRYsWSUtFxgG1adMmUa1aNSkwNvjcc8/VEp7XoFQANXz4cHHXXXf9i+3UqVPFrbfeKsaOHSvjGB0aNGiQTCAE1dyOFqBQDuY3evTowOVQ5nj22WcFP6NQMkAB4HLlyiVly77069cv8NUoNAq8bdu2wLFNmjSR4cUpp5wSOJYEG3rlpDlz5khwohfuArabIcB68cUXfY2scUARaPfp00fO44cffhAnnnhi4CL9BqQCKKyQyqg5+ZPW5+SivqWoVq1aEvhKybCIWCl+KrrkkkvkSZYs0VKyZEmZ7cSqcrp5kU5S4tFHHxX33HOPwHIuW7YsqfxQgJtvvlls3bo1y1yx3GeeeaacDycWNT1nJvaRRx6Rih1kJNwvTwYoXOYLLrjAt0hPsmrKlCnisssu810TPAYMGCCeeOKJxBjqkJR0KMcUL15cej6bN2+WSTNn3RRj2bZt26Tywph069Yty3OdO3cWs2bNSvyOE4k5spb8+fNL7wXAqncBYOpxXrIzCigWSbqcF6OkH330UWQw8WAqgHK/WCm78/cIbvr06bI04EUAiOSKEuRVV10l09nEWV4ECBD0a6+95mstdQClQMIJqpI8Xu/bsWNHFpca0KNUXpYad4ZsLXNURFbW6xRPtmlBLh9KjgumqH///gLw5siRQ0sXMMYq+8n+cKKxB17Ki/s2dOjQLNlSMqhXXHGF1ru8CvEPPfSQPO3dLuS3334rOnToIDO0kB94jQGKF91www0J5cOyYmFToTgBhfLNnTtXWrxk9N1334lrr71WvP/++3IYrmL37t0jL0sHUDrMqQOiOO+8844cTu0K8AXFEpy6nJ7qRNuwYUPCRdd5bzJAIZs777wzwWbSpElSCXUJrwLrD1WpUkUsX75cq/SyevVqGVNBnIKcKAUKFAh8rRtQyTwLmP3000+ievXqMjatVKmSZ6yYEqAoAr/11lvyGOenoiiWz2v1cQEKy0fgXLp06UChM+Drr7+WSsdJxbP79u0T9DFGIVOAcpYoOGVUDVBnToCqRo0aciiexMqVK0WuXLl0HpX1RnenBKdf7969JaghZPTKK6+E6rz58ccfEy4qzzPHMAktPIerr75avl9XHk5AEQrccccdgTJ48sknEwYVfXBnHAMBxeLwJZ0EkHA3VBZJ/Y2xM2bMSCwscHYBA+ICFK4cp04YYl0EyRDxF/FZFDIBKE6nIkWKSIBjKcl+hW2ixQ2799575RLCyMMNKHShdevWCVeIeAe3j/gtDJEYIKMK0TvYrFmzMI/LscSEI0aMkP+tE78rQOkCEL7E1vQxQiRMKlSokGWegYDSXRUZpnbt2gkmaYriABQuwTfffBN6itQjTjjhBKnEBLHuTJEuQxOAovOeNC+EZ5AsyPebF6cKyoBRBFjEIjrkBBQlh6ZNm8oEAYSicTIFudFe71GxEylxyhlhkyXwpA0OlwzSaX9TgALMGAUdwrNRxiISoFggsZGTuOZBtkQF6ygpac5TTz1VZ07aY+IAFPEDvnIUImZBgamzvfnmm1FYCBOAcro3OpbYb6LsK7IIsx4FKHiiGypzSIaUMkmYIqhzXtyvwvVElx577LFIsuUhdcrpZPyOCqD8evn27t0rfdVp06bJxSNciooEk6YoDkANHjxYPPDAA5GmSLbpmWee8Q1IdZiaABSZqAcffFAqX5TTVs2TuIsUNa66aooOWoMTUO6xURNRnP5ByZSgebn/ToMy5YdklFaAUhMFULh6EBvDvSbuR5mgOABFho5sVBSixkGaXac+5MffBKDI5pGUSPVOEm46yQQIr0NHqd2AQp4qGQEfThmVcQsjY9N3yTAUxInHHKCY8MsvvyyvSUNYTTI0qRR0lRDiABR1MvzrKEQ7Eulm/H0V/IblYwJQY8aMkV0eGDBaq/zqYkFzoyaFFQ9zgVMBinfj9tLK5Ww3i2pUlTttoqk6aN3q72l5QqnJPfXUU7ICDZkSShyAYn5c6y5VqpSu3OU4ZxGV+JHuhChkAlB0PVx88cXy9dxJixq7ksygjkVATmCuQ351KGdcB6jIhqkWNB2+JEY4UXiWFLpuIViHt9+YtAYUkyYVrVp6Fi1aJCiepkJxAYqOh/nz52tPjTQ1BUduNUNktaLeSjYBKOpgKpOG29azZ0/ttaiBVP7LlCkj/0kSgI4GHUpW2KVQru6BAQw6PlQjchBvUvfXX3+9HEbYcOGFFwY9kvLf0x5QXNfgC0WqPoLrl0pnc1yAYidILqjYL2hniBF69Oghh9EJgMsVlUwAindTmFW9hl988UUija4zL5IAGBXqRVCYuCeo9Yjs2u233y75kqjipDr99NMDp0WSi3HoDi4o/YeUKeKktAcUi3cWQDnCCQ6jUpyAYk5U/Onb8gM9XdxkBVUal41GiXXaWvzWbApQKBzXMSCSE7iBurUbp9KHTdIEAYr5OLsJiKlp29LpBMe7UQV3+iv5d9j4EEBSGCa2C3KFjwlA4R5xXKveNwqHyrUIC6w4AMUFSGIgRaT5+S4gFl9VvSnY8RWo+++/P0sXN2tio1IhU4BiDoCdqyUQmUcykO7KvXOuf/31l2xRwpBAGAg+VRDmwp4OoOCNESJ1rd5DX57X58jcslQXVPk9NSUaenVaxDh1KSqTAaU2xr2loO8Gxgoo0qYU5tQtWwSHFcQ1UK4R1gJLQ/9XMmKTuF8CsTBadsj6ATRnapbgE3fjjz/+8GRHwy0NlrgOpIn9CMAG3btS3eZYZ7oM8PXdrVN+/MkMUh7QjQfgw81SAMhPJwEATjk6DDp27Jjlb7QPEXfq9gnyYVDawpx3eOhJo6cNmSlCvrQn4a46x6Lk7rYyLxlwxw23EqUlTqIYnCxlr3SJwrGSMS1SeCzokLog6HWiUqimyOu8jjJy5EgB0IoVK5ZlelwiZV7Uv0iKOZ/x846QPQaTtaj2MUoHGCT6GfmUntcFSGJObk/Q16maozH46F7dunUTSa5E6xEpUDZZh2ibD/oAS6dOneTXYJ3kDjZvuukmeWPWBAWdhE5AUU8i3YzQ2Qi/bxEiWE4p0uS67pRaC65umIZV9RyNxioG0ZELYOGkchcxUVpcQtp4nPe64IkCcJrpJFYwsF4Z0WSAwhByEicjSi1+12a4E0Xx2r0m9oO546LTJe9lEBnDqebV6EoRPMj1ZL/xWNxUtWrVRIuV+2/MiY53KAGozz77TBbkgj50yemE5Q1qMeHag/OoxpcmS0bSQpHTLdBRHr8xuG3UlpL1EboBpXjhBhE4c2kNK8TpQBsNKV8dF8VvTnxXA6sahlAGso/cCg1LrIH3Bd1wRVEBu253OcqNt+G0/swtWabUeS/Oax2AHQMe1ACAkuIdqV7BZDJhzzg5MNJcCvQiTjRcez8ZIX9OHXi4iXmoriD330hYqQuRafFt87DKE2W8H6Ci8ErXZ4hfMQxYb9xuXDXS6yiuMhJ+ypaua2JeGDpARfMr68KNxv3j5MQNx00LW1eMa70WUHFJ1vLNSAlYQGXktttFxyUBC6i4JGv5ZqQELKAyctvtouOSgAVUXJK1fDNSAtkWUDTn8lFDOsshZznAXbgjBcx32SxZCaQqgWwLKIp7uh3UYW6spipw+3z2lkC2BRRXuimSBv1fnNIKQ6Vbfdwje2+3XV3cEsi2gIpbcJa/lYCXBCygrF5YCRiUgAWUQWFaVlYCFlBWB6wEDErAAsqgMC0rKwELKKsDVgIGJSABZZCfZWUlkPESsIDKeBWwAjApAQsok9K0vDJeAhZQGa8CVgAmJWABZVKallfGS8ACKuNVwArApAQsoExK0/LKeAlYQGW8ClgBmJSABZRJaVpeGS+B/wOcPAXWQbmHkwAAAABJRU5ErkJggg=="/></switch></g><rect x="422.67" y="216.14" width="154.14" height="55.4" rx="5.54" ry="5.54" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 152px; height: 1px; padding-top: 244px; margin-left: 424px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><div>Rlp.Parse.Associate</div></div></div></div></foreignObject><image x="424" y="237.5" width="152" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmAAAABECAYAAAAmyYnZAAAd7UlEQVR4Xu3dB7QsTVEHcFAxZ8wBn4pZxJzDw4goBsz5YUAxgTnLM2NWzGK4KuacFVE/E5gwgYqK+oEBc8Ccrd/HNqfPMDvTE3Z37t6qc/rs3rs9093/7un+d3VVze1vl5IIJAKJQCKQCCQCiUAicFQEbn/U0rKwRCARSAQSgUQgEUgEEoHbJQHLQZAIJAKJQCKQCCQCicCREUgCdmTAs7hEIBFIBBKBRCARSASSgOUYSAQSgUQgEUgEEoFE4MgIJAE7MuBZXCKQCCQCiUAikAgkAknAcgwkAolAIpAIJAKJQCJwZASSgB0Z8CwuEUgEEoFEIBFIBBKBJGA5BhKBRCARSAQSgUQgETgyAknAjgx4FpcIJAKJQCKQCCQCiUASsBwDiUAikAgkAonAYRF47bj9L+yK+Kf4fOlIf37YIvPuW0cgCdiTeuiekb4m0vMMdNjvx28vtfUOzfolAolAIpAIbA6Bu0eNfrSq1Z3j+x9urpZZoaMikATsSXA/MNLHjCBv1/KsR+2dLCwRSAQSgUTgHBBIAnYOvbhyG7ZAwO4Tbfq8SM8ysW1/Ffl/JdJvRfq5zu5i4q1u94JxwftFesaeC98u/vdikZKAtaP6lpH1ayMNaRT77kbL+BuRfjvSz0f6qfYiM2cisBiBr4873Gi8i/ng+SL9a2P+zHa1EThXAvbZ0a33jfSukX7oanfx9NZvgYB9U1T73adX/SmuoN794Eh/tMK96lt8Yfxx/0hJwNqBvRlZH9CefW/O741fPizS41a4V94iERhD4ImRYcpG8B0j/3eO3TR/TwQCgXMlYH8SbXuhSF8R6QOzp6chsAUC9hJR5XeJ9DS7qiM7JkGE54v2NOdp4/8vG+mVdp1fZ3vb+OP7psEwmDsJ2HQwnz8uuXekp99d+m7xSYtIPm3P7eTVp68Wqas5y4Vueh/kFdMReKO45PUiPVXn0ueIv23uCC3tS+6+/3h8WlhTEoExBNgP39xl+t/dePr7sYsuwe9/uZuvHxyfTrNSJiCwBQLWre5D4x9vEumWSHdraAvvEuz7Faq8PEx+r+HalixJwFpQGs7z5fEzNbVj4+dtuN2rRx4PdN2nLxd//07DtZklEVgbgRtxQ8eT5D0ivX2kt979faf4pAVISQSuIgJJwBb0+jkQMM2nPUOUyi7VQv2qkf5tATbl0iRgy0GcSsBKn35mfPmoXfH6lHYsbW6W90feYRoCPxvZacYIR5w3jFS07B8b39nBpCQCVxGBJGALev1cCFhZsH8kvtCeEZ8PW4BNuTQJ2HIQ5xAwpT51JLZ9pU8dVX/b8urkHRKBZgRePHI+dpf7Ij4drTOB+JtITCXYnAop8H/Nd8yMicD5IJAEbEFfnhMBA4OJ8A92eHxyfO6zN5oC2bEJ2F2jco5QXyDSc+4m+sfHp5gxPD4vo8wlYNoKhz/bNfoL4vMjJgLAnof9Bfsytmnsy9heWDj/OBKbnn+feM81slu81Uv7nhDpdyP984IbGyuOaRnEvnCkZ4r0p7s23hqf0n8vuH/fpU8X/2QPpVyf7DZ5sEqlz1Yu8ui3+8Qoscwjbxzff3JXA57bZSy+Tnx/+Io1g6t5oPTlHeO74/vSj8bu2prgU4wfkPEkfflIzA2eeTd2Hh2fSO//rIhpfStaTPOBcfsikQREZbIieRYvO5ku48fmgYe/9mpjmfOsJezQ1pBTErBLP/+cGwEzoMqA+OH4LhzCUllKwAySr4vkSLQrHAYcrTlCZcB4v0jFwLev3sjCgyLxHOWxdVlkCQHTRhMjXH4x0ms1NBqBZRztqOh6pCHPNgubGHAPiTSHoHxIXPe+kYrDQV29L44/tL2Wl4k/LNzv09MOiz2SOeXo/DUj//tHujGCCzJ2M9KP7dqq3e/UgGVfFoGLPz1SbaPXzYeM0V5qq7IvoyDvNnQcSOCFLBdSoO2/uWvUV+/6YGkbXzRu8N6RzANj3phIISelz49koRUGYA7Opxg/nBqYF9wr0lCoGmFoPrzCeQm+d9iNReGGikPQvvs5UlY/c+y3RkIS3zmStWVMjJGvjDQWtPsekWetQKxOCl4j0ptGMueV4/J9dRW+yXMpfNMUgd0HREKUi9TrlfWpRf46Mn1CpJ9pydyT52zmn3MjYNrzj5FMXkIYeMCXylICVk/U3bp4UOxMvjGSXXSr2Mm8Q6Rfa73gxPmWErAfiPp76FqM+MWieYsZ7TUp0XBMJbYm0X0T+ufEbyXAL5ItpIb/DYlFh4F3izZMqI+bM9paLlFvWsBW4UBh0bcYtQoi9qGRviHSZdMseCbFoyMWZItGLY+MP1559w+L0r+0gtKTz+KGyM0VzgE2EVPk2ONH3d480kWkKTECPynyI0X/NaVxVd677MosfdVyG3ONza6NBuF48d0NF8rXEprEhtz4WSqeyV+NRFs6VRBFzlGtYsMxtOlqvY98XxrJ5nWKnN38c24ErB78WzmCtIs2cVOzw/taJMbkhObCTraejGi3bolEDX9rJA+Wa183kkm6lssSnmEJAau1EGMaMCSnO0n/YPzPsZEAr+WYz5EO1fzbRKrfgIC0G0NT1PNIPk1S/Swhx6QQMBOHybsm2bQVNGT62aRWG3Kb9C06Q/JZ8SMD8CJ2n7Qh2un4D5E0rrTTbluMnq5WhTbuMSPllJ+R0+/p3MNCgxzTEiFySAgzAOMV2awXBdow47WFWDZW6eDZeFfb8ZM+L1y/yUPEMvzmmTUS7Pm7qmuRVn1p3Nqg0Rg8WyR9ae6AbZf0mxu8Tq1Vjj1+2M1ZdOs5zDMgYDPTikdFovmlvXb86vTietUYm03P1dQ4jxyzvqS6j+u/fVem0wcerOYDY5X3Nc1QHzls7V/HfZ5fWrOu0FQWErgWAavfMak8Y8dcQ7uFMNkgmhOZX1yLBH/PYRGboxqfnmo/+V80bHCotf1lrlMu7XqL/G1kMhaYKrTKWc4/50TATPrsMMoiY6D/emvvDuRbqgHr3hqR6lP9mhgY+PK42icmCAStVvtehvAMSwgYbVaJsNxy1GMxY9/xiEhefjt2nIccwbxg2rrTHRpaJaAnAka7aWKqyYhjFRNQTRbFtENm5BvzrPPGhlrbYtwYF0M2M54Ldkt1rJ5WAuZYBVErzxYibKEasntSR4tfTSxpz5CHyyA1xhb/V+mpNLspiwmhuRRHbI6UI3bXWgw/rtO/3XvaaOjzWmM2hYAde/yo/1dFqseeOcE4t3D3ibXJcWxNKm0yHJm2xs/qkpOLuJbWZWgTgFwwD/B81tJKwIb6H4ERO46sRcCMBc+ZjaojPRuwMdu5Li6IPaI/R45hA3a28885EDDn37zjPNBlgZij3tw3+I5BwL4/ChestOUIwwRh18jmg9jF2THOsV+a88DNuWYuAWNMTr1edqSvH9+n2i201Fcw4GK/sMbYKQQMqX7ualwqw+6z2A516/bs8Q+ToT4dOq6zG/yJ3cU0eGPHmqUck/QtkYqNSAsBcw3v4jfb3YTWy/M2NsmXMrsbo7UN1lv6d04eO/vv2F34QfHZteUr92QjVI5kpx7pugd7qL/b3YyW0Iaj9aj2ZuQtb5yYQsCOOX407T0jOYIuMsVDXZw1mumiOWo1LUEybcDLxmoqgWIGUAf0nnp935g7BAGbM7ZdcyNSiW1nrNca2Cn3PDQBO+v55zITsGu7ycquqj6XtsMwoPbtrKYMLnkPTcDYGtDYlJ10S/2oualvi1bFURoSt1WZQ8BoCk3a5aiFI0Of4fpabYanfmALRtO4RPpeaeMoFMleY1yy96FZI2zjpryD7UbkLxNvSxBR5KNoA2BzPdJUD7x6wUdCbRhO4Xk6pU+RTvZKxAbAMWCf1IuqY+NiM9RalvFdjLE/N75/dOuFka/2+p4SouWY44c3ro1I2UTRapXx19rUup2ueYNIQycF8jwwUjEvcJz7ka2FVfmYCDiiI+dGwJ6rGtOOoz9+Bj4uOTQBO+v5Z8sETOeWXX4ZG7RdztZpRvq8hGgCeJLNNdbsG4OHJmA0C6L/T5X6KHPrr0RpJWDU6dcjOV4pGj640HrZNf/HVJAm5Lfbtetlj4IgLJEuAXP0JqDsWlrK+ghB3zt2bdGeahNbIvX5i0iOusakPh5bclRRh3PYuu1iHfpkTONizLK5QzDYNAlrMMWGkHfef+46wWaMl+8UO6ebuzKNL7HJWuSY48emqRwj2oR4xlo1fHVb2MsyGidjHu7WhuJMY8OjT1qPLesyHTvTwBPPGBvIJbIlDZh2lH6YS1Dd49AE7Kznn60TsNbBzpD9y3aDofWa1nyHJGBLtS0/HY24vmvIM8TnVrUKhYCp6i09wCPWFvc+b0KBV9lttC4uQ/3qWAJObEC6ZO5QBIx9hrG5psALUaSxI77bxVqY1tCwlbrWCxnDXvZxc8Wm6fG7iz2vnGS2Kmz0LEqk5d2yn1K153p8n+pez+6rvMVD/9FGWOzn2uWM4Xqs8aMexYPZ9yUE3lr1S5GKA5Oxuc+WiwZbXsL5pDhKjOHS9/tF/NOmnwZs6Rx0CgLGrAF2xlV3A7h1Anb288/WCRjD1q54GMrC4ze7RQ/clCO8KQ/iIQmYibeouKfUqeSt1exsHUoQ2jn3OuQ1NQFrLYc9DO/RuY4UtBjic3FSEF+Jd1VXa0pjwfuKzRWjcrKmBmwNe7J9eGkPUlQ/C+V5YGNm5+hoi3eiz1tbga/y1ZoSxvRz7UTKLT3P+sBxuWPzrUo5jrZo0WyNbWxqG8KLyE+DO0Uskgzqi0dZuZZGTF+qj/6TPOOOcZdqU48xfrSjLPLqPBYbawwzY7Ac0bJjLCFCutfBn8kC8Xzwft6CHJqAceRxvGwja87rCxmhH8x5xlTZBG1VA3b288+WCdgtMUDu1vPUqLPjKbuasqAaVI6oyg57zYftkASMer5MFHPqXMcO4oHVR1jn3Hfta2oCVryAumWI34YoINRI0C/PrIRdNjI119tuTQJWxwGb2ZzBy2j0TJ4lVMJQZos57GnjinZgrE60B2tr75SJ+NKIbVEYez+yqlgxxB+ra+3a75h3ajw585pjtlZtDfOMB0eiKWt1iOi24dDjh/1X0VLx0mWMv0TYuX3L7gZD3sqCGZfnXyDscsS7pOw1rj0UAXNUyv7Q8e4c2SoBO/v55zISsDLAeA/xQCreWRYYUYCnxBZpGayHJGBTPJf66krDYxImQzvClnYeMk+rDdjSOogGLURCVxz10gRJbBZ4klokhaCgPa21SJeJgJV2agcPURMxTShNQ1czVmPCFue9Io3ZxTgK+4ylnbLn+qWBSw9UrdveRDCXvJc60cBczKygccm+U1/yIBU7ioatz+ZVETafNGfG7Vw51PixGSrR+dkALh1L5nex0ciQTZawL9YFmzn4bUUOQcBqI/XSTppb4Si0/9ZINreeN2OL4w07wzoszlYJ2NnPP5eZgBlsdje8wcruEwkzae3zWJrzIB6SgCEmHqC54sFhr0LEJBpbUOeWs/S6YxAwIRVodspCZRIS90rZY7YbdupsVUzwl5GA9fUP43DHEHCxmPM+qydd7bw+MmZqgu/4Z60QIGKzudeazjJLx6jrBQs1Vowh42fKWwJcX458xJ9DotYS87QjdX15l0g0QcUWShnq6rSg1twtLXuN8eNotcxJS+c67XmrSMXbe8jrU6BVawJceIxvRdYmYAJAs5EtgnDxwqUlHHNYEh7Hekm2SsDOfv657ATM4GFQ6oGzIyJr25cckoDtC/DYOmGwgRBXaWs7vW79j0HAihG9shmjC/lg59cqhzDCP/QRZGvbynPimF5ojxISYGzirYPgtkTnn1KfLeYVfZ12kNjYePanCG+/EiqF1uqxUy6emBfZY2NYYrqZS5CyKR6YU4o0z04dP9aXUp+lDkfqymaJwwMZMrng3evVUcSmYysvhl+TgNHiI1BlwykenDZPsQ3cuhH+2c8/50DAPGQGIXfhuUH3hiaiQxIw5c6N4VU/zOxU5r5YecokPDfvoQmYSdYrRcjcWFWXiYA5YhS8c46ml0s+4l60YbQ++zRRdaT3NYyo546fY13nOSqG8HM89hwDFw9IROFmQ8W9IoYtVokF1nDJk7Pw6OWIUeKVtQa5Pdb4UdGySfSdpnlqDLkajzo2G9yEUumTmkjPDfMzpR9a865JwOpAwXOdfbZOwM5+/jkXAuYB8GoHiy+henb8soZn5KEJmLoijvsmk76H28Dk2VM0GfeM71OCcXbvaTfliIOdAJuNEpm7dWIZy3doAkb7WTz0GPoy+J0ql4WA0XgIQmnc8Aies6DVYRPGouGzuXE0S+4RiXfqFsTxlmMUZgg0wHNwqNtRB6bURm2dKqJ2Py4Scks74ZkaMpBHvEr8Nq/YaXWOqOtVB7ltsSk99vgRn4wmmCzRCNf2X2PvhK2D23I8QVDnxB6b2v9j+dckYA+KwoTnIezcpsSOK/XcOgFTz63OP2N93fT7OREwDb4Zqbyaw+t6nCEvlUMTMPUzSXidyT80VJa2z0t/kS6yNEJ8nxEnTYDJfKon177qH5qA1d5RtBBTbZXql7hv3QastouYS4h4TH3qrrPGCJijnoft8iJ9XN3naGsahnZTFpsFi0/3xfRLjbzrF2tPiSrfrXQdcHbslTtCQZQQCWzs6perN4ERmUSFv2WX2YLcfYdh9z7HHj91UFt1mfN8ItvCqpQNp1ALDxkACBEWvqbY5C3xNmcLd79I+lIIjCXODmsSsPrdmuo4xRPWcTKHiKVvCtAFJRCrV5TVnsCt43cs39bmn7H6Tvr93AgYlfyjI5WAnrw9+rzipoB0DAKmPnbMNyINaRjsAtnwlOMj2ipOB1Nsneq21xNCFxNxibjFryGHJmBIARsYIq6a+GotYqJmL1K/PuYyETBjwZiZIryHHdd7RhAqi9uY3VAdTBM+jrqGXmi8rz5ispWI7XNeDeO+7Fz2RfAXnoZn9BwR9qQYti85Kqu1L0gCsrBPagJGgwGfsZhj9b2MX+0tCx9tWPES3FdmTcCONX5sim/uKmTO4q3cGmTWEblXF5U3Yxh/QoWMEY56TlD0HJs8WlEG7cgXWUry1yRgAveWeQ4erfESnXJwXBNguMiYLei+seT/RUNl/XIsPDaXDN1r329bmn/m1H/vNedGwDS0VslblD3sUwwTu2AdkoDZxXN7r13MvfpEhHtEUlwztig8n+wc6x2GxfPukR6+YESIOTQUQ8pOaY0H6tAEzCRdvH7gYkIaM4A2QZvAkIlaLhMBU28R8G9Gaol15Oiag4LjLtK6ALvO8X7Z2CALQjWYGFuE5uL+kWriNGTDM3RPtn61N2edd+y1QfvuSwsoGC8R1uU+LY0ayFO/oWLIO7kmYG5HE94acZ3Ww9xUIujrEyRj7HmtCZgyjzF+HBOLW1YcBjyjNndjZJkGizlB0WS5TtiYxzT2T038XKJMjhJjGMGWTa1A1/VYMw+bl+fKmgSsDlJqnTOPjZH3e0Ue77fsPj9LCFi9IYJ30ayPYUSZwNGFob2QOEjhPtnS/DPWrkm/b4GAXYsaY+OYObFDLm7gXk5bBIli59MS7b02pr2Ia0xObDO6nUw9zn6IFmCfOBosMZVK5OC+vM7TkaGxYKj1OxxNSDx0HCNeH6hD96e1Xs8Dz+I92le8454xd+a+6yy4jEQ9OMSiUhwk9mEIP7ZN0hypj35M1NTrF5GEPCjC5sYkaHLVr/uk1NEum1ftvthySByCj6jWUo6BkLmx6PHwpSlp1Qh0F1DlGt/sayxyXVsQi8m1SEiFZ6uIfBazVjvJO0dexKKevJUn1IdjNOO4LGxss5ABfe6YtBvhfclxxZAtz5TwD8a2MSAgLE15MWR3jzpYsMVeffeJvtc+7S0C64ITDYp70PxcRKrr3yVgri/hU9h0ioJfa3rM17A1fh2H1X3Ramx+qvGj3uJz2RwVQZi93xGpKeNf2Ajzrf6o5wq4CDRqDLYK4sccoQ7Z4W+kE+FG5suY9Zy8YiTEAFErmw1l0e7o46G5ySZQv1wbqJz5omieEMuhtewJ8bt1YR9ZNO6clhTtnLnGEbaxW18jxhtzlRuR6s2m8VjGDyxKOAu2lBeRWueFu0ZeMceKqDN86w2wZ43zD0wdmcOyxrfFiWAr889A907/aQsEjD1T/eLloVa0evsxwO8zSqTiLztd5dCAlB3kdPSe8oqWuDNdAsZLyFECkmLi7mpk6lLsdJzdL30pbLlnbQvUbQ2c4DVH7ILce6qY6EwYc6Q7IZV7mGjc12RTbEjq+9PsOCZig9MXSdqERtPYFeUt0azW95uyA70RFzqSIcZbN0Cn/1lYGHeb9PraDA/jbExL2G3zHeMftBZl0u/+bswgNPuChqqb10uJrj+mheiB/LZ/1dqlbh62Yex1WoT3MQLQIkMekbUmYuxeFnikqohFZWxDyfuUiQHs60WrLotmfIgk1nlvxB+nGj9ICpJQQknU9TI2tLNPu0lra25s3aTU90XCbMb6ypQPcbH534etjY3ns8TM2tfHCCMvzTVlzITGXKn+3WfcmKENsw72PYsX8X8a6X02x/AqjhMt7TF/dpUbJY6eTfg+jbV7T+nbLcw/LXg059kCAauNX4cqrkMdYbS+GqVLAgzU65HqYKV2wGNq8GYwI6NdBAPeIekjYHV+D42dsUnfgKO5o4FhhNpyzDSlvrU9UPe6MQPioXLq+C1T6nMRme895YJOXjaACHXL5IF4mZRNmrQS+zYCxpyjiD6p3eLnVtu4ZiTcuoAKIVAi+9O+Ie5IeR/R6tbJIsLejYPKXK9Bc4aAmI4eimZ4rO02DjQdtEHF62/smn2/09r1eQtqGw1D6yJNY2XzM4YbG1JakVqTWtfN9QKgDi0y8iOnzAhqzQISb15CWmmGru1wrTU2QzgxX0AOWtvsXqceP+qgrTRAY+PHs8Gm01H5Ui9Gx5iIZ62B24etcmlxjNnW4Nb6zrgcG09D/Vn/hkTdraFvHeWbx7pOKX3lmGM8/8WR4InxvUvQPEcI1UNbK7rLZ06A2Vifyq4MfWrtbbVdK9U59fwzEZbh7FsgYKs26BLcbIyAHbsJXk9x30jsG+4Qid2Z3cwSb59jt6Fbnp2ho0bu2RYck6KFj1pfuxydaee5iKNV5MMuXnL0J0SF0CbaicTTijke30ck5mBho8BLyaQLc4Te4sUzStmOJhzbtB5ntNYBeUJatdXC7AjLYjknLlprmcfKZ06mKaMd0z5tvVMkTg+3RtKfEnOHKaFrhup/ivGjnYineccxljbTRHk+aQn16dqbTicNsGTzx3lJ2Ta68KQN5t3r5ETZczcoQzgf8jenFbTaxo3nX596DpFzxNCz3+Jlv6SO8HUUDleKBImmG+GSHhXpETusl5RTrj3V/LNG3W+7RxKw1aBsvtHWCFhzxTNjIpAIJAKJQCKQCKyDQBKwdXCccpckYFPQyryJQCKQCCQCicAZIpAE7PidmgTs+JhniYlAIpAIJAKJwKYQSAJ2/O5IAnZ8zLPERCARSAQSgURgUwgkATt+dyQBOz7mWWIikAgkAolAIrApBJKAHac7xIjhsUG4Q9/Yfb+Iz663IY8cwT/XijF1nBZmKYlAIpAIJAKJQCLQjEASsGaoZmcUBqH11RmlkNao1rMrlRcmAolAIpAIJAKJwOkQSAJ2eOy95kigxn2Rlrs1EC/FMeVYhOzD1zxLSAQSgUQgEUgEEoGDIJAE7CCw9t5UYLwWEShzadTnlnIyTyKQCCQCiUAikAicCIEkYCcCPotNBBKBRCARSAQSgauLQBKwq9v32fJEIBFIBBKBRCAROBECScBOBHwWmwgkAolAIpAIJAJXF4EkYFe377PliUAikAgkAolAInAiBJKAnQj4LDYRSAQSgUQgEUgEri4CScCubt9nyxOBRCARSAQSgUTgRAgkATsR8FlsIpAIJAKJQCKQCFxdBJKAXd2+z5YnAolAIpAIJAKJwIkQSAJ2IuCz2EQgEUgEEoFEIBG4uggkAbu6fZ8tTwQSgUQgEUgEEoETIZAE7ETAZ7GJQCKQCCQCiUAicHURSAJ2dfs+W54IJAKJQCKQCCQCJ0IgCdiJgM9iE4FEIBFIBBKBRODqIpAE7Or2fbY8EUgEEoFEIBFIBE6EQBKwEwGfxSYCiUAikAgkAonA1UUgCdjV7ftseSKQCCQCiUAikAicCIEkYCcCPotNBBKBRCARSAQSgauLwP8Db3mon41i0DMAAAAASUVORK5CYII="/></switch></g><path d="M 416.17 151.51 L 470.4 211.42" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 473.92 215.31 L 466.63 212.47 L 470.4 211.42 L 471.82 207.77 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 190px; margin-left: 492px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); "><div style="display: inline-block; font-size: 11px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; background-color: rgb(255, 255, 255); white-space: nowrap;"><div>RlpProgram' RlpcPs</div></div></div></div></foreignObject><image x="432.5" y="184" width="119" height="15.75" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAdwAAAA/CAYAAABKBHltAAAdEklEQVR4Xu2dA7QlxxaG68W2bds2J7Zt27btZGI7mWRi2zYn9sTGe+/rtfZd+9bt7qrGOTl9Z9daWUnuqe6u/gv/dv/nv/9vzpohYAgYAoaAIWAItAyB/9CMcFuGr93YEDAEDAFDwBBIEDDCtYVgCBgChoAhYAi0AQEj3DaAbI8wBAwBQ8AQMASMcG0NGAKGgCFgCBgCbUDACLcNINsjDAFDwBAwBAwBI1xbA4aAIWAIGAKGQBsQMMJtA8j2CEPAEDAEDAFDwAjX1oAhYAgYAoaAIdAGBIxw2wCyPcIQMAQMAUPAEDDCtTVgCBgChoAhYAi0AYGOINzDDjvMnXvuue6PP/5IfeUpp5zSPfLII22Awx5hCBgCZRFYa6213AMPPNDj8uuuu84tuOCCZW/b667766+/3JprrukeffTRzHfbdNNN3VFHHdXr3n1Qf6FuhPv333+733//PRqToYYayg0xxBDR/bM6zj777O65557LvM9kk03m3n333crPadcNfvnll+hHDTPMMG6wwQaL7m8dDYFORWCuueZyTz/9dI/hvfLKK2766afvyGH/+eefjn9iWx379dtvv3WjjTZa7iO32WYbd+aZZ8YOa5Dp9+uvv7rY0v918VOd4HYR7vPPP+8WXnhh9+OPPxa6/0wzzeRmnXVWt8QSS7h11123FHmwIR988MEeQCItX3/99a4phAt20003nfv4448LYTjnnHM6cFxooYXceuut5wYffPBC11tnQ6ATENhggw3cZZdd1mMo7IsRRhihE4bYbQx9+/Z1W2yxReFxzT///MmZh5ZaVnO/66673FtvvdXj2eedd5576aWXnBFuz2kB72uvvbbQfHEec7bONttsbquttnIjjTRSoevr7txFuPfdd59bfPHFK92fxXfOOee4aaedttJ95OKzzjrLbbvtto0h3K+//tqNOeaYld4d8gVDNrQ1Q6BJCBx00EHu0EMP7TbkEUcc0f3www8d+RqHHHKIO/jggyuNbcstt3RHH320G3XUUSvdRy4WUjHC7QnnzDPPnAgjZdtYY42VWA1WW221sreofF0X4aKmYw6SzbHqqqsm2u4qq6ySkJ7f/vnnHzdgwACHdnr11Ve7L7/8sqvL448/7uaZZ57Kg2sa4fLCr7/+uvvkk0+Sd+fwefjhh91UU03lzjjjjFQMP/jggwTDW2+91b333ntdfW666Sa30korVcbQbmAItAuBiy66yG2yySbdHoc22KnxF5gnn3zySYdPlbbkkksm/4aI55tvvh6w4W5DK+XQ512lTTDBBO7FF18Mmolj5sEINxulzz77zL366qtJh7vvvtsde+yxyX9zdg499NA9Lvz888/da6+9lqw/zmFpu+22mzv++ONjpqP2PplBU8svv7zr37+/ixncTz/95A4//HB3zDHHJAOsawE2kXD1DEG4SP0xhw6b+cQTT3T77rtvcgs0A4h4ookmqn3S7YaGQCsQuP/++91iiy3W7daYmS+55JJWPK72e/7/MEzu2a9fP7fCCivk3h9lY8cdd3S33HJL0o/+N998M59fqzQuI9w4+HA3LrrooklnBCd863nthhtuSMz0ohhC0sstt1zcw2rsVQvhynjOPvvs5KVom222mcNHUqUNSoQrOLEQZLNzeN17771VILRrDYG2IYCFZvLJJ+/2PLTFAw88sG1jqPKgIoTLc7AKErdy1VVXJY+99NJL3frrr19lCIlfGD+lmZTzYSxKuNztww8/dDPMMENiuUWhwbpYlysgdtJrJVweKoET2Mu/+OKL2HGk9ms34SIpselC0lLsSxXRcPU9d999d3fCCSckf/ruu+/cyCOPHPvIf6UfJjlSuoYbbriWPR8XBtHfnRh8U+WliZAFu+GHH77KbVKvZV7IPEgzt8kF4Prbb7/VMne8h/8stFvOhCa0ooTLO/38889JUA7CRh3afLsJF+sk510d2SZ5c8zerTNquAzhMj4sEiuuuGIy1Ntuu80tu+yypZYm7zPkkEMm/xRptRMu0XdLL710Mob333/fTTLJJEXG061vFcJlITGW77//vts98c1MPfXUyd/wtV5xxRWJRPnGG290RWgjLNBnjTXWSCTY0UcfvdQ7lCXcN998000zzTTJM1lYRI+nNSLL8R35YfJjjDFGD5MYh+/tt9/urrnmmsSvwf8TuYckTTpHkYaESPQ4z8bvL/mERJPjuyfga6mllkoOoiqNyHXmkGc88cQTXfPDfQl84ICbdNJJk0fgV3v22We7PQ5yxjUy7LDD9hgGkeRgm5YSwn39A4gxQB5g/tVXX7kZZ5wxWR8ckLFmRNYk70GMAz4l8BMTFxI370XQHALX+OOPnwsdRHnPPfd0xQvQmWvAnbm58sorE+yYK2IBVl999W7a12OPPZZEFNOXMeAG2njjjd3++++fS9Ch+Zxwwgm7Rekzh0TfN6GVIVze64ADDkhcamD40UcfVXrVKoTLeYZZ31/TxOOI0M76Zd6xpOkoafYuqVusfQgpT0iLeUHW90MPPZSscda7ZG5IVgvP2mijjRxnLUILRMjZEcsXZQmXsY899tjJmud8Zu5iGvsWiy34vf32211nEbjBFaS2EuvE+/AuE088cWrga+2Ei1MbtZ1GQELRw1y/fBXCPe6449yee+7ZA8sLL7zQbbjhhu60005zO++8cwzWSSTjfvvtV1gKLEu4HKaSGkRUnZjp9WDTtAn5nYXLIpcGWWDqSktDoM/ee+/tjjzyyCjigFzBTwd4ZYGIOXGfffYpLAUiPTIm5ijUKA4AQZ1yyinJv/3GfEMkfltmmWXcnXfemXp7DgDR1gnUIJ1AfHX+BQTaQFoQZlYDf4q7ZN0j7ToOcPz5WWTOPCywwALdLsUFwYF28sknpw6F/bT11lu7yy+/PNP0yT0ISCmbGw7hc700fJ0cPk1oZQmXrAJwpbF3YwWwNEyqEG6fPn0SodpvEAREsOuuu7rzzz8/OBWs5YsvvjgJmC3aUHCI+4l9DhHetO222y5REvCfx7QqhItAwV5EYEYByWsI8gQC5tWJ0NcTr8PezLLw1k64J510UjKxtIEDB1aykVchXKR/ibTWgLA5kPw5JKWh6SEYiEYGyGgAOgSdgwhNOJSwrp9VlnAhHDExZjn30Woxh6SRhhAumx8i1VIcm4lNTdObgqg9NkpWI6iLADAJjKMf0h0WAzRa8tsQtrTGSx+wxbdFPlxMw9KARqaFAzYimh8aBNo/gpyuaER/3hly143xYcGYe+65ezz6iCOOSN4lLe9cCJdNSV607sMhxDhuvPHGLqmd4AvmKautvPLKSUCNNOaAvHWkYiLYMfuinfBeOs8wb04+/fTTJAc0S/Bhw2OdgewQSkSTRqvgMJVGH+bwggsu6DpUiKhPy0yImT+EQ2I5pKFttdpcGTOumD5lCVcOcNa6b2WJea7uU4VwIS/2u7+m2SukL+k9xXnG+sOSxjmN5oZGqmsI7LLLLkk0b6zwhXa99tprd7PaYN0gnYfn4LLDb8rZmlaRjD3+1FNPRUFWhXAZExr4XnvtlaR0ZTUwYU51owIY78IZgJUQiwZj1vtb+qcV6KiVcDFVcvAx4XUsviqE64MoZgT995Akx+FH8Jcs4KKRiGUJV6dXfPPNN9EkD4lgEmQOyKtmcUhAB+/NZtxhhx26/KAvv/yygww4tENBGghRCFPSKMW5+eabp0rzEC9asEiFHP6kS4WEFUiddcM6oi2yyCIJOaRFarNpMX/5hIPQhBmraGMDiukT0y+CmRZAeBb4YjKlUS1onXXWSQSeUGEWyJmCBhA/GjHCXRYJIVAgKAoGvEvINM/BISkSjA0pG2FBAkI4RGXcggtj5oAUbPHjMj6ETIQAxlGmactSCJcy92/lNWUIl/3FOqBhUdMCaZmxViFc/bx33nnHURLXb+wvzhdcIn7DaoZwpnOTQ4K43MN/HtZDyCzLNA1JcVZpa0g7CBdtn/VNY4/gcspqQsz8jvCBQJ9VZ4H3Z/7Z69JaSriYMqilKuSEtFS2CosMuJWEi4THZgkVqiCXC/+X+Ckxc26//fZRe6kM4SIxzTHHHImUiFYoeWcxDxTCRfpCs9G+VXKlua/fKNbBXBFinxWxx+/iR2ZTgBuHaV5Ds8EsKoUQMGmj6eY1NjpmaBqLGzNsXtUt1hoaqDbV1kG4kKsea1b0KRIumi0ulCmmmCJmiqL6YIYV33TMgacJl/fHneAHsGGiFzJA0ITQWSe6IWCK9QPTYJmqPNrUTRUnBLOmtCKEy/o+/fTTu6x5YMq8hYTKEBatJFyEZkgwFOiDoIywK2c5Vqu0s0PeBUsa/SXXFdJBkA81MGT/ilWn1YSLQIFVEGWERiwG8S5pDQFUYj9wF8BFocb7cI7KuVs74VIkAwkf06Q2bbKx0/ynoQH7v7eKcNkcSPDjjjtu1JD8cHJIioi7UCtKuCx0pGUx/bAQIfvYJoSr+xPABtmWjXRG26NyGFpS1kGdNz7eR7RscuGy/EJoVpieaGhoBNvElLhk05CKIodDHYQr7wMh4X6oq3Ja7DzST3zMHMDMX17ThItJXoIC9TUEyki0cNaBiDY9yyyzJJex5n2tOGb8HDKsQ8gHoclPE4q5x7/VJ4ZwMf0j4GHtkX3KvgDTqpX6eO9WES7KDxaNmD3FOPClSuGdkK9T+7CLuiOwaqH0sH9bSbgoTpjVRThHacqLEWGeRSDFLSVWjNDaJLAStw2tFOGymPzgDIgWW7xfM5i+PDBGugkNnN9bRbhFiYyxaCDx/2L2C7UYwsV/h+8OLUr7vvCXFi075xMu5nAwDEm0ee/BBhKNvkyKByZxNHU09jxTJdqs5GtmkUbWOLVmVhfhsvk5dMYZZ5zQNLfkd4JICJiLCSQRwkV6J9UhrfHFHg7OrIOAv6P1ykcGyhJuS8Bo002FcFmnvqCAkM2ZpyvqMSz6UhWuLqGsVYTLx19CVikfZoKFpKIWBDTeeOOlzoS468CCYj1FzxuUM1wRCAVY02JarA8XUy+EiaVIhHKsm3fccUfuODmXxe2D9g5Rx6QkStAYcS3sYb8FfbgxL08fIiOZoDJmqKxntIJwy4buI62gJTJpsSYGIVzez3e+8zdybNOCXvC1cojGBisIfppwQ1GusfMqm86PfI69nn4E5ED+NIS1tIheBBi0hBiCSXs26465qYNwkeyJ5G1FbqweO5sTyRutA0x4BzFj4WvHZBmDhxFukdWY3bdIdDHrDAGRtVJnUFgrCLdsESLIU3y9pJkREOU3ai2IUFq2HC1+VbJAMC/HlrPVhItA79dOwDKXlpVBXAvkG1PwghgOqv/ReMYee+yRWJ6qCOFBwiXgBd+sbrA/GplIDJAY9SrrDv9vBeGGzCN5W1fMfJhpkZBCTRNuqC+/42PB1xbyK2fdSwi3iGkmNC40HjSfKgEhOlUsq8625G+W0ex5B0lHqYNws4SCEFah34l6JH2JYDWdy6evY78RPYrLA2HMCDeEan2/C+EiXLKHdEM41n59iAESSsvxrjKiVhBuVmphaJz4JMV1hu8Xwc5vupwnwiPabjuaJtyY57GPUGQkZTXmGrJFIF1teeQ6hGP2KEFpWA3Q7Dl3sIqEhLYg4WbVUsZ3xiEsJgcOCsCPTf+IeeFWEG6VUnNIimhrsVGcmnD9r6jw/ixmhBSSvZm8sgU2BEsdpazzcGOwTuuj05OK+DH8e+mNi78HX4pupOGIuabsc4iK5kCsg3B1Hm5Z7PR1CBykZukIxtj7GuHGIlW9X8iHS5wB6VISFIOpEa2ubHxE2ohbQbicy4y1TBNzcZbPU1xO7f4qlCZcYgV8wQfrICZwzlZIsYoySAwK2m3os6twIJxI3n6W+bk04crk6RQWQCfYpa5Py7WCcEPO8rxFSQEF0lRifQ0xPtwymyDrmroJV6eTkNdcJShENm5alLf2l2BGTfN9hHCSkqKdRriY5chz9XN555133uQwQLMnopjf0aKwJhAVigWFvxnhhma+vt9DhMuTiEyHdEnzouEqYm/EmChjRtoKwi0TsyJjlX2bpahI9HvZfReDSVqfWB9u2funXYcPH+sUfmGqKLK32at+3jPEy/jS/PqVCZeBEX0q3xjEvIwkWMcCbAXhVvFFEv2JXwDTr9Q6zpvQphNuTMWrmAWNr3KUUUZJuiIt+i4K/k5gHppD2VQSmZuyG1/n4dal4ZKrS5K8BNpQZILqURKYlIed+XBjVla9fWIIlycSz4F5lUAfGpH3nIF1tFYQLvmuBCUWbZiIJZODwg5Sg1jfR85o/obgXDTupOiYpP+/QbhZY6UIDdYrTPeSP4/ySaCa7x6shXAZCA8TzaSsk95/oVYQLs+gXF9RxzfSjdT5jP0qSNMJF6wk+bssEXIPilSQ6kPDvJrmduBTZ2i/mH/wXxYJRGHBS+3hTiJcfRgVdWUY4ZY9istfF0u4QroIjpJDGnsmhEbXCsJFC6fQRGxKkIxRF/UgnkByw/U76Bz9rD6hdy7zeycRrowfQQzhBl8xDTO0LkjD32ojXG5GzqiUTOSzcv63MYsC2yrCjTHT6bGi6VEhSBKmkWJi0gB6A+FKhSnMJAT6lIlCl7B/MM0q9afzRIvmcevSiZ1EuKK1I2ygQYcCKvSaM8ItelpU71+EcHkawXVYKyRHPU2jKTqqVhAuYyBvOLZ2PP2xylDMBXMpex9tN239ki4lWlyZtMGi+Ej/VhMuZzdKFkpA0a+gSanPtMJFtRIuIeIE/zBJBBZhWq7y1YlWES6TRvATKS8xDb8iByANTYxI05jWGwhXf583Nh1KY8NXNvBX0vJqDuMbo7SglIOkFKR8MSkPay2F06+TCFf8X0VNegSrEREPSccIh5YWFLMbw32KEi53RAiX2AZSTmKK9ueNpFWEyzPxOca4M9DUyOYQ5SlUd0AyDDCj4tssE/yJUkPxJPgjpmpbKwlXV5mKrZql55SUTKlf7xe/qJVweaguEEFdTpzqZVsrCZcxAQr5X1lCAQcfpkAxC2DuRIiIzc/sDYQLTpIjy3+zKUjBiWngRx6f5BoTbJBXeUhXm2LzUmEp63uV+IsQfPwPLnQS4SJoIHAUEVQQWtHYuY5mhBuz0urpU4ZwebIuEEEcAkFyZVsrCZc9RanNtHxaGS8FLnAfyVeHiDsgJz2vQUpSCKjMN4HRknkOdZVja/C3knBRGMWSV9Q9CsHyYRIEsbRa4rUTLpIKfj8JncfcEvq2Z9ZktoJw/Tq5qP0EFFBWUHwUEAQ5k2gmOnm66GbqLYSrLRfMFakAkEhegATkCdbyxSVy2QiXDzXy/fRXf/ioAnWYIW4ODExdL7zwQlIXWEz8/B3tGW23kwiXgufyqTzWUVoxeY0H1Wz4IISuZmSEG1ox9f1elnC1+bWsv1TeohWESxqermlNkBeR1uSkEstCeUXiJrCosPd0fQX2WozGij9bPnXH89ifEiiZN0MQJ+eEpNzEEna7CJexhzR8/X7gJ18gQtNFodOti3ClxCCHK43OmPfY8GJ6ZUHydZG0qkn6promKwni1JYkahki1oc0UZxI8qjwaQ0pi/B7fAh+8rHuD6GHvrsr5j2+j4rJgtqYobwqeQaRzaQ/pdWo9ceN2QZNDkkHAmARYl7P+gwUUd1+kn3MEUKgEIe4NllgXWCcSFZUU8lqzCPvEuOHlnuQb6jrIOPTZlOxaXUpN8ZFAIm2bECGkEmsD5MyhJjn/HB7iNX/G/jRn8IrfA83hnC5B2tUf6ib/4cgaRQ0yHOF4LPyy52mYU3KgKxL5uTUU09NBAPdOOxIK0G47N+/f4/bsNcQ/Gjke5JPyR5i3gmEAW/WNPjy7pQDxQJDP13vW5d2JKKWoDTeQWcT6NKO5Euz7yha73/kIGZ9NqEPFhjWDVHpNNHSWLsyb+AEBqG66zpolEh09jRz7n/pCb8gJIZiktawpnEmUlwnS0BlHyGA5lmL9Nd7iL0gpka+2aufm7an+J39RyZGDGnS3xfKWTusIeJ4dNwHriPGw34DM/ngAfegL9pyVpwIa/2ZZ55JoqFJz6FIDo1zNq22Pe/GPigSgMn9tIYrWKGBI/xzZvoCCHsR7VwrAewZxuoXAukiXPL+ssx3/sKI+WQci8X/Ugg5uvIJNO5JKS8KHdTRQpq0JlzyaUlVweTNpKd9E5UxMWEcdgQOxUwa0c9Z9Ubz3jGvTmnadbogRVnseDfyPouE8Wd9yJ7DhY3JQeFjySKMxU+/C19NYg2lfVBb5gZzD5uOZ3M4xBIuPjfRjsviF/PZPO6tP1fH/7MR8aNxqHCAYAHQmDEvkC+R3axNv0kwovaNp70D+eIUA5GmCVf+hpaDtUKaJlz5GwFfkFJvbBAjZ0CoxZg5Ed4QPv1ygn6KmZQgDT0z9Hvo04c+4aJk8Df2S96ZmyUYhsbD75zBaLf+nmXNIyBAymkfcoecOWchtLxzVlL/YsYifcrkIOtCPGnPYrzUmqCcJOeUXzWOPYwwnBaD0kW4BKkQtJJFPvJgFh+mVb92pT8wncMlBw2HnDarIc2llQsrAih9MQtTWSkvgtYnXHkGG4XDDWc/ByCSElIpm6coeUKETERaDc+sd2LsfLwgpjC23MMPMCqKF/3zCt3n3Y93ZHPob+Om9QdDqfxUZnxyDR+txmqAVoBAg6ZB1Ri0Mx09WIRw/W/7Fh0fhxIkFNJ6uC+aDBozz/QL3+vnsknps9NOOyVaJ3V6/dxJDi4kaTYyHxdA0Em7J/dCW9afx0SLxiqhm1/yL+27uUS2hua6KH6d0h/fJO6KUIstlgPR9OnTp+t2CCuYPjWJ8HuWEBkah/49ZHpNI1y5HkGbMxxBn3Maiw37lbOoav0EtD2EPYJLQ1zCPsIEyxyE+ISxS+GhWJwgRiw/Ietn2v1QDDlzEIiZL3gq9D7sO1KBWC9ZOGb6cGNfqin9sgi3KePvtHGSEgERsiDR9gYOHJhIsXzejX/jeog1IdfxbuS+4S+JMSnX8byi90BqZuNyECIR407Bf4ZQBzESaFP0KytFx2D9Bx0E8gi3HSjgJkTxIO8e8y//jSkWTZt/IFssPTGWw3aMN/QM9i8ETHwP2PIPwjTCP2cd/yBghQQWI9wQ0vZ7IxCQoA18NtSOtWYIDMoI/NuEOyhjn/fuRri2MhqPAGYsJExMomW/NtR4EOwFDAGFgBFuZy4HI9zOnBcbVQEEtL+zSJ5wgUdYV0OgUQgY4XbmdBnhdua82KgiEaCyD7mrNIIWiBqs83NpkcOwboZARyFghNtR09E1GCPczpwXG1UOAgQrDBgwwPXt27dbWkfRwiQGsiHQWxEwwu3Mme21hEu+InmGpJLQ/FxHPR0U9wiVL+vM6eu9oyLthXkhXctvaeH5WZ8P670I2ZsZAt0RIDWOVEtS6fSZh+VHNz7WTqwD56O19iLQawmXSkvkRMU0FiRpLtY6BwH92a+8UVGRh2pkFFC3ZggMyggUyfHl4wRSinFQxqzd795rCRcC7devX1InNK+RK0oBAXJHrXUOApRvQ2slX9Vv5KtS1o6Smf4HnjvnDWwkhkB7EcAaREqc/4UafxSULaXaWkzhlva+Qe9/Wq8l3N4/dfaGhoAhYAgYAk1CwAi3SbNlYzUEDAFDwBBoLAJGuI2dOhu4IWAIGAKGQJMQMMJt0mzZWA0BQ8AQMAQai4ARbmOnzgZuCBgChoAh0CQEjHCbNFs2VkPAEDAEDIHGIpAQbmNHbwM3BAwBQ8AQMAQahIARboMmy4ZqCBgChoAh0FwEjHCbO3c2ckPAEDAEDIEGIWCE26DJsqEaAoaAIWAINBcBI9zmzp2N3BAwBAwBQ6BBCBjhNmiybKiGgCFgCBgCzUXACLe5c2cjNwQMAUPAEGgQAka4DZosG6ohYAgYAoZAcxEwwm3u3NnIDQFDwBAwBBqEwP8AiRBpXT3FEC4AAAAASUVORK5CYII="/></switch></g><path d="M 342.07 152.29 L 343.38 208.61" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 343.5 213.86 L 339.84 206.94 L 343.38 208.61 L 346.84 206.78 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><rect x="267.1" y="171.94" width="68.58" height="29.51" fill="none" stroke="none" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 67px; height: 1px; padding-top: 187px; margin-left: 268px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Helvetica; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><p style="line-height: 60%;"><font style="font-size: 7px;">(lexer &amp; parser threaded w/ CPS)</font></p></div></div></div></foreignObject><image x="268" y="167" width="67" height="44" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAQwAAACwCAYAAAD681ApAAAgAElEQVR4Xu2dB7QtP1XGH/besGN5iF1UsDf8XxBRVBCxgfUhWBELdrEcFHtD7JWLomJX7P1ix16wi1xR7A2liA32z/98/7VXXmZO5t5z807O/fZaWWfOTCblS/JlZyeT3OqKxQgYASPQiMCtGv3ZmxEwAkbgignDlcAIGIFmBEwYzVDZoxEwAiYM1wEjYASaETBhNENlj0bACJgwXAeMgBFoRsCE0QyVPRoBI2DCcB0wAkagGQETRjNU9mgEjIAJw3XACBiBZgRMGM1Q2aMRMAImDNcBI2AEmhEwYTRDZY9GwAiYMFwHjIARaEbAhNEMlT0aASNgwnAdMAJGoBkBE0YzVPZoBIyACcN1wAgYgWYETBjNUNmjETACJgzXASNgBJoRMGE0Q2WPRsAImDBcB4yAEWhGwITRDJU9GgEjYMJwHTACRqAZARNGM1T2aASMgAnDdcAIGIFmBEwYzVDZoxEwAiYM1wEjYASaETBhNENlj0bACJgwXAeMgBFoRsCE0QyVPRoBI2DCcB0wAkagGQETRjNU9mgEjIAJw3XACBiBZgRMGM1Q2aMRMAImDNcBI2AEmhEwYTRDZY9GwAiYMFwHjIARaEbAhNEMlT0aASNgwnAdMAJGoBkBE0YzVPZoBIyACcN1wAgYgWYETBjNUNmjETACJgzXASNgBJoRMGE0Q2WPRsAImDBcB4yAEWhGwITRDJU9GgEjYMJwHTACRqAZARNGM1T2aASMgAnDdcAIGIFmBEwYzVDZoxEwAiYM1wEjYASaETBhNENlj0bACJgwXAeMgBFoRuAQCONLI7evGe7zw/3ilPN3jN+XD/c/4R7djMbl8vhSkd3XDveK4f4q3B+F+/fLBYFzuxaB0QnjHpHhx4b7j3C3mX7BAOJ46wmM0fO4tky3+X+h8PCQcJ9aeATDB4f7xm0B+PnlRWDkxkTF/5NwrzQ1gM9NxWjCmK/TEML9F6r8u8WzH7i8TcI5X0JgZMLYRMY+c9IqXiV+/82EsbWy3zF8/Nbk6y/i933C/V249w/32dP934vfN9wakj1cSgRGJYyXjdL6+6nEPi9+S/XaGka9On9I3P666dG7x+/3JW+/GddvNP1//vj9r0vZIpzpRQRGJQxI4pOnnL1G/P55kctWwiD/tw33MuH+NNy/dqovzxvxYHB8nnB/GO5ZK+N94fD/euGeK9yvrngXzMAOuW+4x6R3vyuu33P6T7jPXhHuNq8MG18t3P+GQ4PBXtIiLxmeroZ7uXCUzd+Ge8oUTsv7+KFswfofwjGEzcKwlvBfdUoTz/+xNeDw9yLhqH+QK0bj/1vx7ra0rQyqj/cRCeMFA5pnTPD8VPzerQLVNsJgZuDh4ZhNedH0Pur6D4ajUf13un/3uP7R9P+d4vrHinghgV8KR+VEvj7cxxd+3jz+f0k4GWT1+Gfj4pHhajM6nxL3ZZ95hbgm7m+aXqQR0JhaBax+YvL8I/GL0RhioDE/cbpPHt6mNcDC3wvE/z8L93xTXr46fr8q3DsU/n4h/t8vxVlG9yZxA60Re0opfx03viIc5VdqQT8+xQUpgTW4fewUwPEUJ38pc+4/tBI+mH5kuO+uPNOta3FBuTA7J4EEfzLcF4b7tcq7rWlbiPbGPxqRMO4asEEUyMeFY1q1lCXC4H1U8UwU5fuE/97hssaBIfBdJ49UKnqWPA3JzMPDpudUntuFU28Fzh8zk9YcN5WNhkJPLNnEBbYa5MvCqQHwfy1hvFi8Q4NT3knTD4eDDFX57xnXP5QTteKaHvvpk380p5cOx/BxTt4+Hvx08ZDe/vdTGufeRSPCBpOxUrmTx18PlwnnOP5DUmh1kOZdtuQLYi8JH83ua8Jh81mS94qHJeG0pG0F1DfG64iE8QUB1SdOcNET0iOWMkcYrxwen5w808vSs/9LOMbvHxGO3hahl7pDOKnm9OT0nmps9J4PnPy+/uRfQb9LXBC2hIqb7QU0fHqj5w73ZuE+I/mFACFCySYuRBi6ByH9fLg/DldW6vRq9fKD4y7aT02O4yaN6qySCUNhQBzfEu43woHx+4V7g+khhMeQUBojeDwunDQwGt0jwmGYfd1wbxlOQ1GCQIvIvXkud8WPcRf7DCSBZvZh4Wj0CGVMWTw+HJorJPJFenFKxy+n//iFZBHKAA2FfKH5QX4flPzSuTDlL2lJW/K+n5cjEsYfBJRUHgTGV2XLCM8RBhVXvQMLvejN81idtRw0RJFGSUj3imffnyK6Ka6pUFQ4GQypjBCPBDWdNCvMkkzwRzgn6R3GxuqpN3GdCYNK/1Ez+c4YzF1jn4D4lB75Y5aEBpB77Jbwsp+SMCAEyuqfkycWjDHel+aBak9ZIJAHDRyZGxo9KJ5BIgg4q/Hzv2yUEDrPcxl/Z/xHA0AgoNIG9AFx71HT88+KX2H/OnEN+SGQBaR3Ov3XzyfEBVoiUg6XW9JWBLd/f0ckDBU+aicaQ01qhPFa4ZEeGcHAiVZQmwnAGPjtkz8a5wOKCI7j/wdO96jc3xbu09N/KpIaO7fpdWRzoGf/0Jk0M3vBLAYCqcmesYlrVVp6xDcOxwrWs8jVeAmN6qh4mYbNEOppZwk0vVMSRo0c8f524TQUwW5EnpDbhwNPhJ6+ZtPJQ9JMNryTyx0bRx6+KZl5NgiipoPIAll/2nTjV+IXmxaSOxuGQt9RvKe/rJrFyItAgKfTdUvaZoLcn9ujEQaFKQv70nqBGmEwjfg9E/TYGtTIy9JAvfyb6SaEQEPK8hLxB2t6bWxeqsi8R29Ir4hg/GMoUpP3iJsa92YtZRP3RRgQyjecsfq8xRS3hlTCUf9pGGCEhsFsyUdP8VyL33IWai4JJWGg5v9nxTPTtvl+Sz0Edwjly8NJm1siDDQbNJlSwJZhiQTDKLNFTwi3NDNEmcvOA2Zz5IpBFqMpcp9waDRIrpNzaaskd79utRTUPqUYg9jplCBmFuipalIjjDzbQGORtlF7/03TzRpGuYeUVxo1KmwpEATjWwQCyup59gtRqWei8TL8QTbhRBhHcc0Yf61QwWn0IjnUfSoz8dGLSrAPYSNAI9J4fG7YV0tDJowlDZB3cwMkXXk6E3JAi4PkaKQYmGtG6iXCYKYmz3QpvWiW5L8MjzqBYRuDL9pPNnhjKM1hYVCdE2bJFDZDRwgEyXVyLm0Lwe7Ho9EIgxWIvzNBlxtViWaNMLYtiZ4rkRpGTKHSILKWkdXPHFZWUVtLHQMdU77IJpwIozbmbgkTbUpkdhLXTM0+c3rxWvwyTJFAFNgUyBt+79wSweQnEwbTzsQzJ8zOvPP0kI5AxmjsEsQ/N4tFw9azJcJYqttoKsSh+Gtp/Mq4yZCG4V+2rayA48onhWfZNObsamvCu+F+RyOMbIdYqsy1wmH2QWNaVH/WAmwTepWvrXhijKul1HpMA6EClmptNtLyTsvCoCeFPxoUsgl3XsLIWg49LOp3loxNvs/sTZnPJcwyYcytkdH7zG5Ik6MHZyiE1pNtA9hWmF3C7gAmpBvj489NgZyVMJQGbGBof2iMrEkpSYpZET7IY/EXaZGgObQI9fC3J48mjBbEduyHT9ZZ7YdgsWa1Y01qhfPh4ZGpUISpSObZzyKMn6nANcGgWU5Zsl5AKyhrNo5tadiEh/MSBsvopQ3VOgkaLARVLrBiAdVcXmvpzoSBJsC6j5qQhqeGo4HmcswkQr7RikoCzrae8xJGThuzR2iwzKzo4zzywPCIFZysuRGhiOC2lV1+bsJYg9aO/FJQrJmg4GD8uVWOtcLJ1vWl3g8tRpZzFjTldQkY8RgSyfjFmJ8hB+qrpFyqTqWXgbWs4BkW1ieIxFgEps/MN3F9XsLI9oI5mwTLsLHr5GEWQ681MzKl0RMbCUu5S8llAaGySI648qzV3DiflaOatl5LGNgXZAMinJrNibSiwRxNiebDRsoYWw82FYR1Inl9Rs4fRtV7TzfIJ4vQEBPG9fWgy5284vLFI8bapi+1wqG3Y/2BGsSdpkLMiaaXYSZFKwRZ5JT3h2A8ylw7ggET9f5Z4ahghIdgUDsKp4aGVqG5fnqsq+EgvSxl2lC7ZZTdxPV5CeNbIwwICYG8mCUqJc8i6ZlU8or36q2SMDAggmVe2wHpYrBW42NGgcYL9tkfdgaGc1loqAz9zmrDKI2ykEFtZiRrOprpYTHdF0+JwcbE8LNcs4JGJoMoHRqfIMiPCaO1Fu3YHyvtqMhIbWkx9+cKh0ZD45GwSIfxPZ/GM9XFNyRSyzFqMuQRIb1tXOcZCsa9VHwErYK1HRJWouYVg9ngCtE8IBwrBGkkEAq9khZSYV/RwiLC24Q7L2FguFRaCZNhE42UfBM/eZ7bI4P735zytnRZEgZ+j8OxhuF3w9HDo0WJLGhcbxVO5IpmJ+JFCyTvaHSsbQHvkujKRWwtjTLbc1iEh10LgyurTBmSkF+Gr0jWRNF40BakXbKSl4V/EPutw2HgzZ3L0qKy0WyHExxXroyYcBb50NgQKhSrE0uZqzjkl3lx2RQqr95yC4Oc4kEDoLfTtGdtQVcmMgKh8rFWBEGrwciaP1aqxQ2ZkL+8twd5PC9hEFdeeDSXbzQgljTTk2dj59wS/DKcGmEsYQyBMFySHMWFDJpz72GEzuso8IfxEoJvIQw6hlJzmYurTF+p4cy9B+kzzMraS0valrDai2cjEka2Y8wtH85j0DKP/GeowcrKmtBzMDugjWbwk4ciqJpUpPJTeNJ1Ek7fQdB78p2IhMaEzUOLesq40TIYU/PdRJY8JUp4S2sAlioVPSiLseaMveSb4RaLncCIxUzSdCASGiWGyiXJhEF42Cew75SzDxApONRmqt437oNF+Q6EQPpIF1OiTFlKNC27VO453XeJP8zGzH0YxxCS9NUMvgxjWDp+VAGCusGME65cA9Kati0Q39jHIxIGiKEKfs4EHT1GbUXfNmSpkNgg0AQYp7K6E42idVXjtvDnnmOoJU7G6Ng/iBdVfG5B11njmXsPbQlNB+MuhkameelxT3cQUUkYLA2njjG0Y+jB6k40ChrikjGV700gx1ef8KEBa/WtkkmYTHdC3AwV1u5FwRCDGS80SYYUGFzR8HCQ8tKqT/LEEJKhElhik/rLcAxZKdODlVEJI8+LrzXMHWxh7kHGaoSxB8lyEnaFwKiEQf5RSfWVI/su9Oqhd4X9IYZjwjjEUk15Gpkw+ICJsTAqYf4M+cCLbK+zZ8LY6+I5f+JGJgxyj/VehjNrGeevD+cNwYRxXgT3/P3RCQN4MYCyYIavArdNye15cQyfPLQ+Fj0hJ+H0ifzwGXMGbkbgEAjDZWkEjEAnBEwYnYB2NEbgEBAwYRxCKToPRqATAiaMTkA7GiNwCAiYMA6hFJ0HI9AJARNGJ6AdjRE4BARMGIdQis6DEeiEgAmjE9COxggcAgL7QBh8KcpemKSFr045tPYyCpvKsCs4wkYsOjekBxac+KZP2dnRaukIhh7pyXGAC9sJ8FVtPn6yNR18jXrHyfEFLHua8GUpe4ny5SwbKvHp/JzcLR6wc9aS8OUtYfKls/acXfLPAjcOq+JrWb4a1hevpOeJ4fj0XnuplOGwwzsfX7LxDzvIdZVehMFeDBADwifO+dPmvLEvJ46xH8JlFDbJ2UwZ57NuKk4vYX+In5ki4zwQNtvZF2GnLj4jf3Q4HXPZkjaWqbP6V+erLL3Dh4wckFT7ND3vY9ESL4TLruJz2yTcPZ6xR4h2WJsLE3KskYL2R2E3MHZKW/oMvyW9q/z0Ioy80zPbn+Wt+00YNxeZCeP6qkujEnFSh763sXazZSJ7s+rQZ72G1sbeH4Rbbp4zt0/nWsJQXHnHNd0rt3nkPpvuoOHUDmtibw62UPynlG82a0abYT+XpSMbG6Fa560XYbAlHrsvIeVehyaMm3ExYVxfd9n1SieHzW34XL7F5junU4PSM3ZQOw7H7t8ShhnsOp53QKMMyp3EM2HQ4+tbGYXDYdsMKyCnvHUgQwq+cdLOWxzzCfmJqCA/9n7V4dOEBxlwHKa2beBebYd7aRkQILuNlbu/pWzu9tKEsVs8zxOaCeN69LQpMLuP37MR3Lx9H703msnSoVWQAFvqSdA+ODRJkgnjKG6yq9accFodQxIJ9pfHT3+whaDFIOXO8mV4DFs44kJSkmXeQErHWy4ka3eP9pkwsHvA2oxFYes1RkDO3mALN3bl1hb/JWpsT4cxjb04MYCt2VqN3om9HdnuDmMc28dxWFCr0AuyLRwVU/acNYRBb4UKy7ZyGIrXbE8HnuzPSW/7jCnB+2jDYCtD7W96v7g+bgCX3vY0+WOXeJ0Gv/R63q28HDKvIQziyGHldOfy3WYnot4y7NCm07VzUPKmzmgmeePoBqjO5uWiCYOzG3TkX5lCnR9aDkk4TRsVEpbNG8HSqBmzYQTLkg9Z5kBjtntnV2+EHqY87IgxIRvharNehcU2/FigMa7NCUMrDivW6eHZH8REuDohvgyDPSRRdzmnQ7uHQ4LEy4lszJBsppfmjJ7X4jn5zbuPEwZb57NRcaku5zRg/ENl1vGEPKPnZRd1ZkU4gBjZVpkVZj7YBzx0JKCe56MVOHEeVTsLZasjHPJZsvJDY9PxBuVhzUVQt/zl3BDOD0E49oFOo+UgJnb4Jo0IQ2eOgZCsJQw2l1Ze8xAnH8BEOcxtQq142YWe+o5wNCdlnOXO8UdHR+hsl8LL7v9eNGHQODgbsyba8TsTBuM51K2lg3hp6DpNinA34SgYhP09dX4q/zNhkFcKIauftXTR8NhjozykBpWYA6C3Sa3w0ESoiOVRhDksDF/qUUrCQGNiJ+1tswRMjbLFfRbyzYbJEM2cgLus9q2EkRtnLc/5eMYacWcVvWY70GHNJ5E2GkeL5DNHWrWSbeGuJQzquw7CgqTphBCWDsjYD96cs3K6LfKF53mzIoiD8C5cLpowUN1p4FiHZVx6VFwzZUQlYjyYCUMZBlDGohiJbhsOrUPGonI8u4lnIgy9T6+LakjPyTmqSElekAsVjKEP8/NoNRJIRT0V98gHYYnIHhrXpOOZ4ehdqfy5MZdHDNKL58OJGHeiDbBLGBWp1FhKwiCtkB1C3oifHc7RqDjMKU8dcq7IY1Ne6M0gGwlT14yzIUQwKc9oaSWMu8a7GOQQDHjYCiSkv1wjUOYp2xryWJ8wGLNLxV7Te2aSOutJ9ykb/3+5hjCYGeHgJUlOA8PrUjtmDQhtAU2v3BW9TEftfz7rhE5pzbC9Jfzr/Fw0YSjC1lkS/J+EYzjCeg3J7eIiz2tjd5AGsInrTBjlaViEgSVb02n8Z/v7chHQTVPcihM7wdOnP/nEtLn9Q3PPQuWQFsSxhwynEAqUniCfLULaGAZxVKEkN67yfcI+TX655LwONCOkPK0L0pXmgqos1VtBQKj5lLZWwmBdjWwg5EuHFhPutXDqWRVPGS5HDUCUvItNJw8dcn25Gs8Yz2+T3OPiV4cbbXtv2/NMGJA+jTQL9YROETvQvcKpU6GMIcJsX8obV5fxMoSiA+XMVjq7PHsyl0bqIjMmCEPxbHDdlq8zPd9HwsjniuZM0SNr/J3379zEfREGxlFODivHrfTAsmtwTCC9ek3y+BONQfYMjlSUxnHfuBYB5DBy4WUjVQ6Twn1YJWIq95PT/UwY2bi1NO+OEVPEgFZ2Go60olEgJ+Fqqj0aFrhxvgvSShj4zefccsbLE6YwIItr4dAipRkexzXDBITyw1iMoHHiNwsrHe8TjsOkKM8WKY+rXHuQ9FwcmTBa0iE/pdak+xyiRR2YO0RJ/ujQHh6OBXXPnokY3ETM5fGca9La7HffCINxPI2nJqjZ95geoHGIgTdxLcKo9aC88ohwD5rexY5QGpAUX15ghhrPmpElAT8KnobISkFVgkwYaDZqjEsbFWcNJRMGy4Vl5KT3etpMglivoGEfjY1hUB7KlEOVHExe77CGMKj8EDACCetaQwPShOGR3jfbMfLwsLS7ZM0Fu0tek7BUFnkYg7+shW4pxsXHawmDzgSinlvarbRBhAwnGc7eaSEFkIu0iNJbtquhJUIaFyr7Rhgnkds5AxdGQ423c4PaxH0RxlFc1+bJszEMopk7wwSbgHppDJyomFmIl6XrFLa+AagVkAiD3lvaDqo348w5YUjB0AJR/qj0+ci9pWMSmSKWOszSZBqrDIeEScOtaUY8Y4iGTQZZQxhoMiJuLevPqzMZZkF2HHKd85XJrSTRvAZhKc01HLMN4yKGJMcRaT50W2mgjJ8UDnLH1lUek1hLa77HDBr2D4iVTrGcwZtb5QrRMHxBsIegCV+o7BthLH1L0kIYc4aurK63Apqn+hgf09NJS9kWhggDY+lTJs9UNEhmTrIdQoSRG+S2OPNzxsoQEPYLzX4saTeoz0yTImsIA//SgNAgMGBDqFRehClt4lfYmrlQumpn42oIBxGhSa6R3DHU1i7MhUVHwbQnAuno9Hb+rzF6rknrkl9WiKIhquw4Zf7elRf4qE5nANc6uF2l55ZwLgth5GEBp5Jr/LwEKD2G1pAwPMnLfump6ZEZs2OM5ffB4Zi9QFRZMQRq2e7ScIt38qyBCCOv6MMPmkOLYJhjXYQMi7xzNdyc8TCvl1lLGDndaDkQ3/3DgREaArYEFpghx+GYjZK9RsSmPKFRcU4pmtKSKj6HAcNCYbSJa5XHNsyy4bechdsFYWCoZl0KglH6IdsSFM8zidempQmCeiYjLDa6vH6kIYr1Xi4LYWTthIVbSwucShTLsTEqc+0T/Kxm596NxUkaKjAjMreiNE+95iFXfn/tuJxVjlr8w9T23BLpPPW6ljCOIlwaFYIGASEzrMtT0zKOUvExHksDuUNc56nG/HHW2nIi/pwPhoCsxt22ApI2AOmrN0eL5GtSyS4I42oERgeE1GaFUnS3XJazPgxvyxW9mehZetBCRLW4mu9dFsLIMxhLhjSmT1mtiQA+vUI+Xe0k/s/ZWLL6nwkjLxWuLawiLqYVs10lE0ZeUbmkZqMFSW1ljQTTuvTm6mVZTfrAmZqR5/PXEgZ7O2gKnCGGxt8Y5GQXIV41QuwwzHZpCJNnAMAeTY1nDBPWLHkna9iI0CZlh2r5ziIbugkDm0teQ7ILwmCpd14I2LJGhHqmlZwYULFxlMLwTzN5LFhkVuVC5UYQBiorqwQlrV+rnseGQW+lb0pg+KvhUH2zUNmoKJrp0PQuBk4WSSFUZIxpUrH1PrMpGgNzLzfs3FgYbx6FKxfYYBRkybkkEwY9svDCrkKvUq5CZcwrgyhpxHaCn3IhEUMGbA5Zyg+d1hIGYeWyUdi3jgthzNBEU656zqrHbCugLjJUobFT8fOK3SLJi3/zClI8oqozC5TX9SgAps6ZtpbUhkG7IAzCz7Ng2LOYtZrbqAjbD/Y8jKBIbeqZ+7lDYOYJTe5CpRdh5PEYxiym4DBEUnl7EAYg5m8bSAPjPYgA9odQ6KGllrK8WiszS9WQKVp6S+wgrBDlO4S80pK4UM0ZDmAtxwLOB2IKm4ZNY6DXgJwglLJxZMLgfbQFTa0yP8/SdSobjZIFOxofEzfklVd25nxDVBACi4PovdEC8ru8fxbCIL/67oMwyvUT1DM+JMtrD8ppXhZxYXNBaCga5ky3Vv3kPPMi9hTsUazCZIhHZ4DmSBokNGIItiSWXRFGuVqYeClH0kTclAdGXoZpEEH+PKIcuinN2ciLlnrhn7n3Ioxs+FJma9+SXNQsCXFSWRnD5w+3arUQMkGryGNf5sEZ1iwJaxDyB1bZyn9TPDvZ8j7PjyY/mTC4hcbCKr65b2wUNEQHgWU1n4pKvkVYtWRgiGNNAHIWwkAroAOQ1IYCeQEa/spPtpka34SD1CDCtVOTOV98vUmvrHU7tTzne+AG0eaNavR8V4RBeHn6elua9JypUtl88jt5yr0229Qa/ip/vQiDRNELo2qq0iuTeSZgaS45GwWvRjiy+OfGTI+/tFYBbYHKnDdNyYDRM0MM+qxazygc1FWs+qUQHwuYGDvTMNGmkHJWhOEAU181wmK9AqT6mOndnD/FhwGPRnBUSQPDEIyMuFpDY7bmOFzuURUM069oTJq5aP0kvEyGttLjfm2Zclb/8/J1haOVvGgqzLLsQhi+MfSRTaMME9ywmSx9Ap97cdY9aFbirOm7TbxIXbq2JQA0Werj3LAlz5B0WeVJensSBvHx1SU9HfFiNS7H8mcthLXvMUZE/bx9OGYt+PAH4+Tcgi6Fz7oI5r6xY0AQkMVTU+QMH5hC4/sCGmD5PQDEw3geYoMgeJ+hydzMSZkvcAM/4oB4sBFAnI9rDIN3iRutA1WYIUBOfxnfIfxnyAlhQNhghvZF2TFMXLOHya6xgDhID2XCNemiLOloIM+5Fb1KxyPj4tr0h063ph3tOs3dCWPnGXCARuASIpC/xcFgji2ki/TWMLpkypEYgQNHQLMjaOhoKF20CzA1YRx4zXL2Dg4B7FEMd7EFzn1seWGZNmFcGLQO2AhcCAKs12EYgv2LBWDlmpwLiVSBmjAuFF4HbgR2jgCfIGimRR+e7TySuQBNGN2gdkRGYHwETBjjl6FzYAS6IWDC6Aa1IzIC4yNgwhi/DJ0DI9ANARNGN6gdkREYHwETxvhl6BwYgW4ImDC6Qe2IjMD4CJgwxi9D58AIdEPAhNENakdkBMZHwIQxfhk6B0agGwImjG5QOyIjMD4CJozxy9A5MALdEDBhdIPaERmB8REwYYxfhs6BEeiGgAmjG9SOyAiMj4AJY/wydA6MQDcETBjdoHZERmB8BEwY45ehc2AEuiFgwugGtSMyAuMjYMIYvwydAyPQDQETRjeoHZERGB8BE8b4ZegcGIFuCJgwukHtiIzA+AiYMMYvQ+fACHRDwITRDWpHZATGR8CEMX4ZOgdGoBsCJoxuUDsiIzA+AiaM8cvQOTAC3aLTV+sAAAFDSURBVBAwYXSD2hEZgfERMGGMX4bOgRHohoAJoxvUjsgIjI+ACWP8MnQOjEA3BEwY3aB2REZgfARMGOOXoXNgBLohYMLoBrUjMgLjI2DCGL8MnQMj0A0BE0Y3qB2RERgfARPG+GXoHBiBbgiYMLpB7YiMwPgImDDGL0PnwAh0Q8CE0Q1qR2QExkfAhDF+GToHRqAbAiaMblA7IiMwPgImjPHL0DkwAt0QMGF0g9oRGYHxETBhjF+GzoER6IaACaMb1I7ICIyPgAlj/DJ0DoxANwRMGN2gdkRGYHwETBjjl6FzYAS6IWDC6Aa1IzIC4yNgwhi/DJ0DI9ANARNGN6gdkREYHwETxvhl6BwYgW4ImDC6Qe2IjMD4CJgwxi9D58AIdEPAhNENakdkBMZHwIQxfhk6B0agGwImjG5QOyIjMD4CzwGDinwL9X/K7gAAAABJRU5ErkJggg=="/></switch></g><rect x="178.4" y="531.82" width="431.6" height="230.46" rx="5" ry="5" fill="rgb(255, 255, 255)" stroke="rgb(0, 0, 0)" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 430px; height: 1px; padding-top: 555px; margin-left: 179px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><div><font face="Helvetica">Desugarer</font></div></div></div></div></foreignObject><image x="179" y="548" width="430" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABrgAAABICAYAAACtFPWdAAAdKklEQVR4Xu3dd7R0V1kHYGnSLFQpGoggIFKkKgjIh4D0pvRQBqQjSoegICAlSK+hBQNSJNIUCIKCkaICAgqCiIYeIAQQEAJI8/3pneVZe50zc869d+58891nr/Wub+ac3c5z5o/cvGvvfZofUQgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAhskMBpNmiupkqAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEDgRyS4/AgIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQ2SkCCa6Nel8kSIECAAAECBAgQIECAAAECBAgQIECAAAECBAhIcPkNECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIbJSABNdGvS6TJUCAAAECBAgQIECAAAECBAgQIECAAAECBAgQkODyGyBAgAABAgQIECBAgAABAgQIECBAgAABAgQIENgoAQmujXpdJkuAAAECBAgQIECAAAECBAgQIECAAAECBAgQICDB5TdAgAABAgQIECBAYHMEblFTPW6b0/2vavf5ik9VnFhxfMVbK07dZn+aESBAgAABAgQIECBAgACBtQlIcK2N3sAECBAgQIAAAQIEJgvMqsUfT261uMEL6vbDK07e5X51R4AAAQIECBAgQIAAAQIEViYgwbUyWh0TIECAAAECBAgQ2HWBWfW42wmuTDKru+5fcUzFD3d91jokQIAAAQIECBAgQIAAAQK7LCDBtcuguiNAgAABAgQIECCwQoFZ9b2KBNd8yk+uDw9c4fx1TYAAAQIECBAgQIAAAQIEdkVAgmtXGHVCgAABAgQIECBAYE8EhhJcf7Rg9NPXvXNUnKfiUhU/s2SmR9X9I/fkaQxCgAABAgQIECBAgAABAgS2KSDBtU04zQgQIECAAAECBAisQWBWY7YruD5Y135xwlwuUXVvXvHIBW1uV/deNqFPVQkQIECAAAECBAgQIECAwJ4KSHDtKbfBCBAgQIAAAQIECOxIYFatd5rgmk/ggvXh2IoDPTPKmVw/W/HlHc1WYwIECBAgQIAAAQIECBAgsCIBCa4VweqWAAECBAgQIECAwAoEZtXnbiW4Mr2zVry54io9c31WXbvPCp5BlwQIECBAgAABAgQIECBAYMcCElw7JtQBAQIECBAgQIAAgT0TmNVIu5ngysTPV/G5gSc4W13/2jaeLn9npO1PVXyr4rsVJ1f8YBt9DTXJ2WKHVWQl2ukqvlKRFWef3eVxdnHKC7uK2Vkqflhx6ooHPWP1n7PYci5b3s/nK06p+P4Kxz3/1nj/Wf9+csI4meu5t97xj9a/+a1+c0L7qVXzW8rqxSR/M1ZcFAIECBAgQIAAAQIEDkIBCa6D8KWYEgECBAgQIECAAIEBgVld3+0EV4Z6fsVde8a8W117wci3kYTTTSpuuvXvj/e0e1dde3HFqyuSkJpakug4suIGFRcdaJztFdN/nN6+ZIDT1v1nV5ypU+/f6/PjRk4sz/zMpv276/tzR7Y/vOrdtuJWFZfutMkzfLTitRV5N/OtIn+1Pl+kU+/f6vM7R471y1Xv3hXXqUjisa8kOfimimMq8hxjyoOr0sU7Ff+xPsc05ewVsTyiYv57yLP9xJKOL1z3b11xy4quy7zZF+vDcRU5Jy7zTFJwWUlyLO8q/87Ln9SHt219yTM8ueJ6nft/tjWHZX27T4AAAQIECBAgQIDAGgQkuNaAbkgCBAgQIECAAAEC2xSYVbtVJLguWf1+qGdOJ9S1a4yY69WqTrY07EtGDDV/QN14RsX3RvR/5qrzOxVHjajbrZIEURJ3Q2eJJdnxnabPj9T3S4wcJyuu2tVEb6xrN1zSPuM+sOKxI8d5aNV7QsUbKpLcm5c/rw9JKC4qV6qbT63Iv1NKHJLgTFJyUXlf3bxcp0K2vLxuxa9VvKKiTaYtSnAlCZYEZmJsyfzuUpGE4KLyk3Xzq02Fh9T3P6q4b0WM2iLBNfYtqEeAAAECBAgQIEBgDQISXGtANyQBAgQIECBAgACBbQrMqt0qElyZzvEV3dUr8ykmGZMtBofK3evG2BVLbR/vrQs3rvjCgv7zN8srK26xTbMPVrsk6fpWjK0jwZWk2KsGrBc94uPrZhKIUxJcSdT9fUXfarqxnL9UFfOehkpfgiuJu6HVc0MJrmyX+JatZxw7t269e9SX5y1oOJTgyraZTxxoJ8G1nTehDQECBAgQIECAAIE9EpDg2iNowxAgQIAAAQIECBDYBYFZ9bGqBNfNq+/8D/22XKYu/PPA3O9T17MKayfl/dX4QEUSH33lYXVx0UqntFuWwPnTqnObns73OsGVv7+yBWC2CdyNsmgFV868yvZ9OWtrqIyxS51LVXxqoJM2wfXxqpetJIfeSV+CK6u8koi70A5Rst1jVo31lb4EV5Kfi1YdSnDt8IVoToAAAQIECBAgQGCVAhJcq9TVNwECBAgQIECAAIHdFZhVd6tKcF2++s75SW0ZShrkTKd/GHi8l9f1v6hIAiHnXF22IvVzplLf+U8vreu37+nrnHXtSz3Xk3jI1nL/VJEtDnMWVhI5V6x4ytbntlmeL8m0btnrBNfNavDXDJi9qK5nBVNWs12g4goVOYdq6LysdLMowRWH+/WMlbOrYvcfFV/bup8zsa5VkTO6srVgW7IFYM7l6ittgmug2v9ezu8hK+m6217mb9I8x416Guasraxc+0BFEmxJgGVF2YGKoSRhttv8cE9ffQmuobkmCfeJimwJ+XuLHsg9AgQIECBAgAABAgTWJyDBtT57IxMgQIAAAQIECBCYKjCrBqtKcGXFz0k9E/rtuvbs5vqZ6nuSCO2KmyQG7lTx6oEHO7yuv6Oib1XRL9b1JEC6JQmedkXOi7fG+OHAGD9W119SkWRSt2QbxXs21/YywXWGGjvnRLVmH6trSdZ8sud5ktxK8u/aA8+6KMGVFVHtuVs5j+yFA33lcpKRx1a0ycYkt5Lk6ivLElw5PyxJvazs+n5PB/m9JLnXlmXnpz2iGjyqp93QqqtlCa78dn+rImd6fW6BkVsECBAgQIAAAQIECBwkAhJcB8mLMA0CBAgQIECAAAECIwRmVWdVCa7TVd9ZDdWWh9eFxzQX71Dfk2hqy+XqQlbbLCoXrJvvrGiTXOkvz9ctx9aXOzbXkrTJ1nuLSlaMtau1kri4atNoLxNcOSPq6Gb8z9b3rCzLSqWhktVpeee366kwlODqe643VvsbLnHL7azmmq/smldPEu5iA22HElx5ppyvtuhd5dmyUqr9LYzdGvD3q+0f9szrInUtK9S6ZVGC64SqeESFxNaIH4gqBAgQIECAAAECBA4WAQmug+VNmAcBAgQIECBAgACB5QKzqrKqBFdG/0xFm2x4cl17YGdq+RviXyp+oZnuUfX9yOWP8L81rl5xQlM3K2jOVvGDzvW31ud2y7zr1bW/HDFOzg3rnq+UFUQXbtrtVYLrzDXuyRXtuVQ5Fyzngy0rh1WFT/dUGkpw9SX4slLq2GUDbd0/sf7trjRLsuo8A22HElx5b3+zZLyb1v2s1OqW/A5+vmJssiljHGj6SDLxec21oQRXxsuz9m2FOZJLNQIECBAgQIAAAQIE1iEgwbUOdWMSIECAAAECBAgQ2J7ArJqtMsGVlVVXaab2hPqebebmJatjsqKnW5IkOG/FqSMfK3+HZIVNu11fu01hzou6RdPne+v7dStyltOikmTZWToVvt3TZq8SXDkX6kPNZJNwi2U3obfoeZ5RN+/TVBhKcGVrw/b8rawe60uS9Y359brYTcZNTXBli8qbj/gtZCvJdjvEB9W1J41oO69yq/rQJgn7VoANJbj6tuCcMLyqBAgQIECAAAECBAisS0CCa13yxiVAgAABAgQIECAwXWBWTVaZ4HpP9X/FZlpJlDytcy0JiSQmuuVN9eX6Ex/nKVW/TcIkmfWqTj/3rs/P6uk3CbZsT/eGim9NHLdbfa8SXNka8PXNPJ9T3/N8Y0tWo2VVWrcsOoNrbL/detmm8r4VbYJpaoJr7Cq7rGpLMq5bxmxB2a1/rvpyStNH35aKQwmubMmYBK1CgAABAgQIECBAgMCGCUhwbdgLM10CBAgQIECAAIF9LTCrp19lgqsv4dBuo/fMmkNWvXTLMfUlZ3VNKXetyo9qGmQrxGyJOC+Xqg8fXNJptrjLNnU5Yyt1+84RG+pirxJcWXmVFVjdcsv6kpVGY0tfgma7Ca6z16DZ9jCRM9ESP1uRrSPbhFPmNzXBdXi1+dSSBzt/3T+pp05WtX1zLMpWvb7tDJOs666O6/PLGWgxUAgQIECAAAECBAgQ2EABCa4NfGmmTIAAAQIECBAgsG8FZvXkq0pwnb76/m6P7DXq2gmd66+pzzdb0Rt4fPX7sKbvbI+Y62NKVuLkfK6/qji+oi+B0u1nrxJcT69Bf6d5gMvX9/ePeahOnXbrwLEJrpzJddWKa1bkbKz2LLBl05ia4GqTS339ZzvKf1o28A7utyuz+hJcb6z+s7pOIUCAAAECBAgQIEBgAwUkuDbwpZkyAQIECBAgQIDAvhWY1ZOvKsF1ser7oz2yv1DX/rVz/e31+WoregPZtvABPX1PSXJ1m59QX7IiLImMH/b0u1cJriTbsm1ft/xcfTlxouO/Vf2LdtosS3BduOpmxV079sRhJ6/gGvN35oGaRFberapk68IvdzrvS3Bl9d9vrGoC+iVAgAABAgQIECBAYLUCY/7wWO0M9E6AAAECBAgQIECAwFiBWVVcVYLrHtX30T0TaVfC5ByonAe1ipLztrKdX1/JmNnCMGeATS0v32rX3bIufew0wZXt/LKtY7f0rQr6cFVIorBbzlNfsjJqSpmS4LpDdfziKZ1v1U3Sp12hN3UF15i/M29c4yRBt6ry09Vxd+tCCa5VSeuXAAECBAgQIECAwJoExvzhsaapGZYAAQIECBAgQIAAgUZgVt9XleB6XfV9k2a8N9X36zfX/r6+X6nnzfzDLrytF1UfL1jSz7nr/rW25pX5jt1uLyu5kiDrlp0muHJe1MeaPvsSXO+pOlds6l2ovn9iotlnqv7PdNoMreAac3ZZzp9K4i2ryP69ItsF5gyzr2xdy/zmZRUJrl+vzt+8ot/Rt6vfbD3YPctLgmvij011AgQIECBAgAABAge7gATXwf6GzI8AAQIECBAgQIDA/wvM6uMqElznq367q13mI965Z7w31LUbNC/lrvX9hWt4Ufl75uIV2TLx2hW/uWQOv1z3k2yal50muJK06vaXfvsSXDkX7DrN3HIm1rsmmOVcq+819fsSXDlLLavs2hVjaZqE0nO2xu1u39dOI0mvVSe4+uxyhlpWDK6iSHCtQlWfBAgQIECAAAECBNYoIMG1RnxDEyBAgAABAgQIEJgoMKv6q0hwPan67Tv7KlvwndLMMeNnHt3yhPqSc7LWXZKwOlBx34q+c6fuXdeT4JmXnSa4sl3iS5qH7ktwvaLq3Lqpl++vnACW5Fy7Sq4vwXXJqvehnn5zvllWsPWdRdZW/3pd6K6MW8UKrpxBlpVjbTl7XfjqBJexVSW4xkqpR4AAAQIECBAgQGBDBCS4NuRFmSYBAgQIECBAgACBEphV7HaC62LV50d7dP+qrmUbubbcry4kWdItfVsZLnthWcFzmabSy+r7qVvXLlD/tqueXlXX/nNZx3U/f+c8o+K3m7rH1vc7da71JbimrCJKf3dsxuhLcP1B1XlkU++o+n7kiGeZV3l0fXh4U78vwXWLqnNcUy+JsSuPHOssVa+7tV+arSLBlZVm3+2ZU7a/fPfIuaZa+plVdP+2ze/5HU0fElwTUFUlQIAAAQIECBAgsAkCElyb8JbMkQABAgQIECBAgMD/CeR/5O9mguv81V+SCd1znebWOcMoyZq29K0kSp2syMnWdmPKmapSVu+043bPpepbHZVVWdnub0zJs53UVMyWgNkasFv6VjQluZbzrhaVM9fNkyvaM8D6ElyZ9/FNZ0mk5fmzWmpZOWtV+HhFVtR1S1+C65FVIQm1bnlifXnwskG27mebxyQSu2UVCa70H5N2pd0xde0uI+eaaqnbntvW14cE1wRUVQkQIECAAAECBAhsgoAE1ya8JXMkQIAAAQIECBAg8H8Cs4rdSnAdXn0lGdN3VtOr6/rNB9Cz6ulLFW1i57l17Z4jX9TvVr2nNXXbVUaXrvs5S6pbHlNf2lVMQ0MmSfWp5ubL6/sRzbUkstpE21Byr9s0CaNszdiWvgTXuapSu9Vj2mXLwCePMHts1XlYT72+BFdWhj2kqTt2C8kk7d5Zcbmm/aoSXNky8lk9z3V4z7vrYxpK/OU8tr9uGkhwjfihqUKAAAECBAgQIEBgkwQkuDbpbZkrAQIECBAgQIDAfheYFcBOE1xJtiQ586AFmEn4tKufutV/r74k2dSWA3Xhb5e8pCTUksxqE2T3qmtHd9qeoT7/d9NXVj1lpVgSLstKtid8ZlOpHSO3k9C5SlMv2zPeuOLbA4P86oLn7EtwpZs/qbhdT3/Xr2vZ4nGo9K1QmtftS3D1rXyL99UqvrdgnCS3jq24ZU+dVSW4fqLG+mxF+1vIc922Yr5dZd+0szVhtsq8T3Mzv5Fz9DyrBNeCl+8WAQIECBAgQIAAgU0UkODaxLdmzgQIECBAgAABAvtVYFYP3ia4YvGoBSD5b/4kEM5ekVVR7eqctmnOqDp2CfA56/4ntvptqyax9Oye9pnHPSqe03MvSY5LVXy1uZftCNtzuJJsuVXFCQNzzDg5F6vPKc/+gaZd3/lYqZIkSyy6Z34lIZNr7eqzbpdDCa6M/b6BOT90a77dxF087ltx54E28znetLl/2fr+/p42SfYlqfmd5l4SRdeqeHrFRReMdca61yYcUz3P1P6mpvyd+Yhq3/f7zTPk2fq2ijy8rr+kIkm7tsQsz9IWCa4FL9ctAgQIECBAgAABApsoMOUPj018PnMmQIAAAQIECBAgcCgJzOph+hI3u/WMt6mO/nRkZ9nG7/UDdT9W1/+uYr7FYJI1OftqKIFy5bqXVUZt6dumcF4n80wSJGd5fb4iq3ayOuxuA+MkYXWzivbMrYvXtY8seOY8S57j3BUHRtgMJbjSNNsMZrvBoZJEX7ZVvEhFe95WX5u+FVzZQvJfK3KeWVvSf1bJJTmZZF3eR1aVjRkr7/rtFR+seEun450muDLfrPq70gDKm+t63vMnKw6vuExFe27XvGnmeJOKvnPVJLgGgF0mQIAAAQIECBAgsKkCElyb+ubMmwABAgQIECBAYD8KzOqhV5HgyrZuSVglgTGlDG1VOKWPB1TlbDU3VB5fN7LCaSclK6OS/PryQCdZDZSt/aaWbGV4toordhouSnCdtuo9seL+Uweq+kkAtkmgvgRXuv6VindtY4w0idWLFpgfV/eygm5edprgSj+HVSQh2p6FNuURMu8kK78y0EiCa4qmugQIECBAgAABAgQ2QECCawNekikSIECAAAECBAgQ2BKY1b+7meBKUiDb7SWhcfI2lbOF3jHbbJstC59f0bfiZt7lWerDqyqGVu0sGzrPmFU9fSvE5m1/rD68raKbqFrWb1YVZWu/4yu6iadFCa55nznzK0m1vlVWfeNmZVKcT2lu5lyvOwxMdNlqsb5mMciZX9+oGDrnbBUJrszlPBV5zinvYP4MWYF3o4qPL3hpElzLftHuEyBAgAABAgQIENgwAQmuDXthpkuAAAECBAgQILCvBbJyZuwWgi1UVmllO79sgZct6rJi5i8qvrsLolkd9aSKsUmoJDKSgPmXkWPn75a7V2R7vSnl4VU5q8NOHdEoZ0z9/lYsqp7ET86yelnF9yveUHGDToM2ATTUVxJ3OS/qmhVJ6uSctLZke75jK15Zkfl9q6mQZ8sKuKFyjbrxwoplibRsw/iYipdWzJONR2x9b/tuny+r/rpnYcUnyartlGxXeNeKrNrr82j7TNIyBq+rWPY7PmvVSeKuWxYlCLczf20IECBAgAABAgQIENhDAQmuPcQ2FAECBAgQIECAAIFDXCBbxCXZky3yst3c+SqS8PjMVmSlzWsrvrBNh5wbldVSV9+K9J+zsVKSvPuPihO34i/r35O2MU4ST0k65dywJGpytlee4aNbY7yn/h2TMJsydP4uu2DFhSuSxMp4WVGXpOS8nLc+5Kyxbjmyvhy1ZKAz1/1sP3mJipxpljGyjd880ZkEXbYZ7CupG+/8+52KeL5jq+2SYXd0O8movIMkTHNOWH5Lp6/4dEV+S5l75v3uHY2iMQECBAgQIECAAAECGy0gwbXRr8/kCRAgQIAAAQIECBDYJwJJ9mQ7xG7JdoLb3R5yn7B5TAIECBAgQIAAAQIEDlUBCa5D9c16LgIECBAgQIAAAQIEDiaB29dksjpsXr5eH14xYYKPq7pZsdUtWcmWLQIVAgQIECBAgAABAgQI7DsBCa5998o9MAECBAgQIECAAAECeyyQ7fWyLWB7rtTl6toHRswlW/Zli8Rs1Tcv2b4w2yd+b0R7VQgQIECAAAECBAgQIHDICUhwHXKv1AMRIECAAAECBAgQIHAQCryy5nTLZl4vr+9HLJlr/mZ7VsW9mnrPr+93Pwif05QIECBAgAABAgQIECCwJwISXHvCbBACBAgQIECAAAECBPa5wKye/497DB5d155Y8Y2ee4fVtadX3Kzn3tXq2jv3uanHJ0CAAAECBAgQIEBgHwtIcO3jl+/RCRAgQIAAAQIECBDYM4Hz1kgfq2i3KcwEvljxtxUnVny14twVl684MDC7p9b1++/ZzA1EgAABAgQIECBAgACBg1BAgusgfCmmRIAAAQIECBAgQIDAISlwhXqq9+7wyd5f7a9a8a0d9qM5AQIECBAgQIAAAQIENlpAgmujX5/JEyBAgAABAgQIECCwYQLXqPn+eUXfSq5lj3J0VXhgxanLKrpPgAABAgQIECBAgACBQ11AgutQf8OejwABAgQIECBAgACBg00gya07VGSbwQuNmNxxVeeYireMqKsKAQIECBAgQIAAAQIE9oWABNe+eM0ekgABAgQIECBAgACBg1DgdDWnS1ZcYCsOq3/PWHFKxecrvlDxroqvH4RzNyUCBAgQIECAAAECBAisVUCCa638BidAgAABAgQIECBAgAABAgQIECBAgAABAgQIEJgqIME1VUx9AgQIECBAgAABAgQIECBAgAABAgQIECBAgACBtQpIcK2V3+AECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQJTBSS4poqpT4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgsFYBCa618hucAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBgqoAE11Qx9QkQIECAAAECBAgQIECAAAECBAgQIECAAAECBNYqIMG1Vn6DEyBAgAABAgQIECBAgAABAgQIECBAgAABAgQITBWQ4Joqpj4BAgQIECBAgAABAgQIECBAgAABAgQIECBAgMBaBSS41spvcAIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgakCElxTxdQnQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBBYq4AE11r5DU6AAAECBAgQIECAAAECBAgQIECAAAECBAgQIDBVQIJrqpj6BAgQIECAAAECBAgQIECAAAECBAgQIECAAAECaxWQ4Forv8EJECBAgAABAgQIECBAgAABAgQIECBAgAABAgSmCkhwTRVTnwABAgQIECBAgAABAgQIECBAgAABAgQIECBAYK0CElxr5Tc4AQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAVAEJrqli6hMgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECKxVQIJrrfwGJ0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQmCogwTVVTH0CBAgQIECAAAECBAgQIECAAAECBAgQIECAAIG1CvwPC8rJdrMntpcAAAAASUVORK5CYII="/></switch></g><rect x="200.52" y="577.91" width="387.34" height="159.18" rx="15.92" ry="15.92" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 385px; height: 1px; padding-top: 657px; margin-left: 202px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><div>Rlp2Core</div></div></div></div></foreignObject><image x="202" y="650.5" width="385" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABgQAAABECAYAAABOHF5RAAAYz0lEQVR4Xu3dB7QtV1kH8NASAgGiSCgBExGpQgCpihCqEImoAYFQREpAqoHQFCGEIhhjwNCUltAxEhBIAinwQIEgSpEakI40CSIltFC+v86wZh3vvWdmTnvvnt9e61vn3HP2zN7zm5O18vY3e+/z7aYQIECAAAECBAgQIECAAAECBAgQIECAAAEC217gfNv+Cl0gAQIECBAgQIAAAQIECBAgQIAAAQIECBAgsJuEgB8BAQIECBAgQIAAAQIECBAgQIAAAQIECBBYAwEJgTW4yS6RAAECBAgQIECAAAECBAgQIECAAAECBAhICPgNECBAgAABAgQIECBAgAABAgQIECBAgACBNRCQEFiDm+wSCRAgQIAAAQIECBAgQIAAAQIECBAgQICAhIDfAAECBAgQIECAAAECBAgQIECAAAECBAgQWAMBCYE1uMkukQABAgQIECBAgAABAgQIECBAgAABAgQISAj4DRAgQIAAAQIECBAgQIAAAQIECBAgQIAAgTUQkBBYg5vsEgkQIECAAAECBAgQIECAAAECBAgQIECAgISA3wABAgQIECBAgACBXUfggtXVm1Vcp2K/ir0qPlbx7xUfrPjCrnMpekqAAAECBAgQIECAwLIFJASWLa49AgQIECBAgACBeQhcsU7yhoqrTznZ/vX9Z+fR4IrPcaFq//CKR1Tss0VfTqzvHlLxlRX3V/MECBAgQIAAAQIECOyEAhICO+FN0SUCBAgQIECAAIGpArerGqdMrbXbblerOnmCflcuV6nOv6Liuj0v4ltV77CKV/Ws36faAVXpShW/VLFvxfcqknT4VMXbK77R5yTqECBAgAABAgQIECCwWgEJgdX6a50AAQIECBAgsCsK/Fp1+nUVlx/Y+QxU/1tFlrd5X8UrK74/8Bxt9T3qzYMrLr3B8enfLZrPd/WEwOUaq+6sgGPqsxMqPlnx3YosHXTtiqdUdGdM/F5zn0YS77ZnHXjnisxMuNaUk5xa3z+54p0Vuzd9vnC93qDinLEdcBwBAgQIECBAgAABAvMVkBCYr6ezESBAgAABAgTWQeA+dZEvmMOFfrzOkSfZ3zaHc3VPkYHwk5oPduWEwAXqGt5Vcf3mWs6q1ztVbLZPQJIkj6o4qqmfBMyvVnxuhO816pjXV2RppiHlNVX5uIodzUG3rtczhpxAXQIECBAgQIAAAQIEFicgIbA4W2cmQIAAAQIECGxXgYvXhd294jLNBd62XttB67+o9+dtcOH5/84MLl+v4soT3z+9/n7MHLG2S0Igxi9tXN5Tr7ep6LM0TxICf94c95Z6veVA24OrfpIB3fLC+uPlFZnd8fWKvSt+pSIzEraaQZClnd40sH3VCRAgQIAAAQIECBBYkICEwIJgnZYAAQIECBAgsEYCGcxPIiAlm99ulBDoclyh/ji24pDOh3et9/Na8367JASyvFK7b0DW788SQX3KBavSjorfaCr/fL3+d58Dq86vV7yjUzeJiCwb9Oktjs9MhsxcOLpichkpCYGe8KoRIECAAAECBAgQWIaAhMAylLVBgAABAgQIENjeAkMTAq1GkgDZLLctV603Z8+BajskBLL+fvYHSInR3Qa6pP7LmmNuVa9n9jh+r6rzgYp2maBn1ftHVPygx7GpkpkjWR6onS2SzyQEeuKpRoAAAQIECBAgQGAZAhICy1DWBgECBAgQIEBgewuMTQhEJUvbtGveP6neP34OVNshIXD+cji9InsAZED/gwNdsnfCR5pjsq9Ant6fVp5ZFR7aVMrSQNmcedpsj8lzXrI+eH9FO1NAQmCauu8JECBAgAABAgQILFFAQmCJ2JoiQIAAAQIECGxTgVkSAhn4/lLFPhU7Km4+B6NlJwQuUX3OUjv7Vlyu4icVn6/IZr7vq+i7XM8cLv1np8gSQ59o/npkvf7VlJNnWaFzOnWy3NA7R3YoSZ0nNsfOkhDIHhVJiFyrIrMXPlzxoYr/qPjRyL7NcliWw7pKxX4V3674aMVXZzlhHZvfTpI32Yth/4psGJ1rzLlX8buZ8XIcToAAAQIECBAgsLMLSAjs7HdI/wgQIECAAAECO7/ALAmBXN1LKu7RXGbWv591sHceCYE7VD/+rCIDtt1yWv3xkOaDLHH0p52+b3anjq8v/rbirCXeyrtUW69s2juoXk+d0vYD6/tnN3WygfB9Z+jrAXVsZgmkDE0s/Fwd89SK369Ikmizks2SH16RJY6GlmyynITFpTY48N312T0nPk+y5GEVD9igT8fXZ/mdfHFAJ/IbT9/zO5rcc6F7miQHspFzZtCcO+D8qhIgQIAAAQIECBDYVEBCwI+DAAECBAgQIEBgVoFZEwIZ9Dy06URmDOQJ+1nKPBICf18dyEa5kyUD0VnC50EVxw3s5NOrfpZI+uHA44ZWv0gdkL0Y2sHmbOKcweWtSncD4wzE/9fQRifqZ/mni1Y8tuL7Pc+V2QTHV2yVCJg8VTzjOsT0OVX/jzfp03vr8yyV1JbfrjcvmtKnzBK4aWM+7VKvUxVeUNFuFj2tfr7/VEUSZmNnbPRpQx0CBAgQIECAAIE1EZAQWJMb7TIJECBAgAABAgsUmCUhkOVXPtP0bUe97ixLBt2o+pInuLNMTEqbHEhCIE+/5wnvtmSwPYPMWXc/6/b/uCJLwFyz4j4VV+7UfUe9v03FIp/4flqd/9FNm8+r180Gv9tu7V5v2kH7N9f723b6u4y3aT8bGN9vwjQzFWKa/ROywXJmZGT2we0rDuzUzSB+7k8GzvuULEF0REU2bm5LrvliFW1CIPf9rysePHHCY+rvt1Zk1kBmMrRJl8z+uPGUxrOXQ5IX3ZI2MtCf5Z3yO7psRX4vN6jIf1fdkvYyG0EhQIAAAQIECBAgMFpAQmA0nQMJECBAgAABAgQagbEJgb3r+DdWZFmZlAy+tsvWzII7jxkCk+2fWR/cYoNOPaM+e1zFdzbp8J71eZ5iz5PybckT50kULKLcvU760ubE36rX/Su+PqWhX67vsy5/SgasJweiF9HP7jmznNJhnQ+SXEkf0v+NSv4Nc++KPGnflo/XmyRxxq67384ISUIgSwrl71t3zn98vU8SqHv+X6i/X12R38W0REoSDt1lm3KP8rv47Ba42Y/iyIpuoiS/7ddtcYyvCBAgQIAAAQIECGwpICHgB0KAAAECBAgQIDCrwJiEQDbhfX5FnqRPyZPgWarlvFk7U8cvKyGQpYOSKOhTMlj9rk7FrPGfweR5lixvkwRLWw6e+Huztm5WX+xovszSNC+bZ6emnCvr9Z/QqZNB+DN6tv+LVe+1Fe3yO3mfvQfGlO4SUUkutLM6kpRI8ubETU6amQTZFDhLNG22NNKl67vMAMgMhJTMPMmMiL6lm+TJ8kTZ2PgbfQ9WjwABAgQIECBAgEBXQELA74EAAQIECBAgQGBWgb4JgWwY+1sV2S8gg9VtyQBsloHJoOk8yjISArnmyeVfpvW9u3FvEiBZ/mZeJevvn9I5Wdp6bs+TZwmjPOGekmVvlrX5cfYYyDI/7Z4Beer/xT373Fa70sTvJsmNtw88R6pvtGdE+pYn+2f9Xb6+ztH+3jOj5PAR/Xt8HZONkFP6LAM1ogmHECBAgAABAgQIrIOAhMA63GXXSIAAAQIECBBYrEA3IbCjmprc4PWS9VnWWt9os9iT6/M8lT52qZeNrmzRCYHsA3BgxdDZDNkwOYP2SYqkzGvwfXI5mqHJim5C4HrVr2wwvIySJ+/bZX/eUO/vUDFmQ+n713EZJE/J7ynJpaFlMiHwT3WC/I7OGXqiifqXqr/zVH/KLLNg8u+2zJxol63qs1H0jF13OAECBAgQIECAwHYUkBDYjnfVNREgQIAAAQIElivQTQj0bTkDsMdWLOJp9EUnBDKgf1rfC52od9P6+23NZ0+o16NGnqc97JB68w+dc2Q/g6cMPOeqEgLdJ+f3rT5/cWC/2+r5N827K67ffJCleb498FzdhEDW98+6/ZstATTk1N2ZG7PukXHnavhVTeNDllYa0l91CRAgQIAAAQIEtrmAhMA2v8EujwABAgQIECCwBIHJGQI/nmhzj/q73Ti4/Srrvr9vQX1bdELgstXvL4/se5ZNajf5zcBz1tAfW+5VB3aX2BmTDEjb3YTAb9bf/zy2QwOPa2cDZMmorIs/S8nyTY9qTjDmGtqEQPpy1YoxMxU26n93qZ/fqQpfmuEik+h4S3P80H0IZmjWoQQIECBAgAABAttJQEJgO91N10KAAAECBAgQWI1Anz0Eblhde05FuwFsenrLzgDnPHu+yIRAln/JJrGzlG/WwRnczdJDNxl5oofVcVmPvi1H1JtjRp4rGzynLylD9h4Y2dz/Hpb9A9qn+GdNjOR8d614RdOhO9brawZ2rk0IvLeOy+bW8yrZ5DmbPc+72Edg3qLOR4AAAQIECBBYEwEJgTW50S6TAAECBAgQILBAgT4JgTR/wYoskfPYTl/uVO+7S97Mo5uLTAh8qzp48Rk72SYEdtR5bj7iXN2nznP4gyqSbBlbuuvcP79OctjYEw04LksEfaGpP3ZmQ7e5rK1/ZvNBllE6aUBfUnVRCYH0qV33f2CXtqx+en2bmR0KAQIECBAgQIAAgUECEgKDuFQmQIAAAQIECBDYQKBvQqA99E/qTfYPaEvW1c8mrvMqi0wIpI+zrHefDZa/1lzo0fXaLnPT59qzKXGOeXincjbmfVGfg6fUaZMU2fj2gDmcb9op9q4K7UbSSWYkqTFLyXI8/9icILMF2rX2+55zUQmBl1cHDm06kZkL3+vboSn1Plnff2xO53IaAgQIECBAgACBNRKQEFijm+1SCRAgQIAAAQILEhiaEEg3ukveZBmerCH/jTn1b9EJgdtXP08e2dfuk+wZKH5lz/NkdkWWiUkCoC13rzcZcJ5HeXudJGvvp8yyR0LfvuTfIe1eE++p9zfoe+Am9bqzJsYsRbWohEB3b4NZNqOekcfhBAgQIECAAAECBP5PQELAL4EAAQIECBAgQGBWgTEJgbT5kop7NI3Pc6maRScEMoCdTZJ/OBAug/rZFLYdeL9Gvf9Ij3NkU+ZY/UGn7ph18rdq6gH15XObCnnS/nd79GvWKtm8uN1sOnsKnDvDCU+pY2/XHD8mobGohED2D8g+AinPqshmwAoBAgQIECBAgACBlQlICKyMXsMECBAgQIAAgW0jMDYhcIkS+FDF5RuJA+v1bXNQWXRCIF08suKJA/ua5YHyxHhKNq/NU/E/mnKOi9T32WOhHexO9VlmKGzWXNr5dMU+TYUkal428Pq61bPx8iMrvlSx2WbH+f4vm4Py+uiR7XVnXZxV57jxiPMsKiEQ1+80/cn+E0kCfX5E/xxCgAABAgQIECBAYC4CEgJzYXQSAgQIECBAgMBaC4xNCAQty7uc0eh9vF6vVfH9GTWXkRBIF7Nu/Rt69vVWVS8bwbbl6vXmo1OOTcIk529nFGRA+bYV7+zZ5tBqSTrkSfuUtHW1iv8cepKqf7mK7AlxxebYDIp/d4PzpF73/GP2ksheBGdXzJrIWFRCIJd9ZMUTmuvP7JJc57z2EhhxexxCgAABAgQIECCwzgISAut89107AQIECBAgQGA+ArMkBNKD4yv+sOlKnhJvnxof27tlJQTSv2zoe0RFu0HuZJ8vVh88teLBnS8eWu+Pm3Jxl6rv31Rx3aZe9lnIk/AfHoCSmQQ3qfibii/2PO6ZVS/9S8lyRlny5jM9j021bLicZZGu3Bxzar0etMXxGSg/svn+C/V6wwF93b3qvrii3bQ3GyLHa9qsi426s8iEwMWrwU9UtEmLWZbHStLm/hWZNTLLDI4Bt1RVAgQIECBAgACB7SQgIbCd7qZrIUCAAAECBAisRmDWhECWl8mAaQbPU65QkcHhsWWRCYEMdr+/4uGdzmWw/oUVGZDOgH02y80MgGtW/FFFuyRSDnlpxb2aOptd3/nri8weaAfVM3Pi1hWfGwjylaqfQeghSZYLVf3MSsgGuCmZKXC35rNpzcf9hIr2Pqbfmd0Qn81K9kfIzInuLIgMeE/bbDkzSWKZ17afWYLpY9M6ucn3i0wIpMnrV/xLp+0d9T4ba+c306fk9/TkihinxDYbcSsECBAgQIAAAQIEBglICAziUpkAAQIECBAgQKAEMuB7l4rLNBp5AvxGzfusq98+oX1evc+eAH2WuHlg1Xt2c44d9ZqB9y9XvLrimx31Pev9nSuSNNisZPD14ObLDNR/dou6Wc/9+B539cyqkyf0068s/5NNeJ/T47i2SgbW71VxUo9jsvlwd8PibEa71aD6Zqc8qvki+xYkadO3ZKmikyvaDX9zXK47mw6fVtG9Hxeuv3P/71vR3ecgS+Pk86/1aHRyNkQOeW3F8yqyx0Q7uyFP2mdgPO08vnPe2N6h4q092kpyJsmVLGPULUnwtEscdc+90SmT8IlDrnFIyYyNySWmcm+T/MgAf2uVhFD6mYTQVSvy31r3XqTNzDhp/3sZ0gd1CRAgQIAAAQIE1lxAQmDNfwAunwABAgQIECAwQuDedUwG2vuUDNZmIHdaySB4nq5vn4pv6+dp8b/rHHzHen/itJMN/P6Aqj/tSe1uQiD7HqRkAPkRFdmAt30qfrLpDOS/sSJP6fcZHM/xkwmBgZfz/6oPTQjkBBetOLbifhs0ntkbua7MPujOfmirZiA/Gyjn3vctWf4nSYuNNmrOef5nk7aSuDisou+SSK+vum2yqG/fNqqX30t+N0NLjsnvYSO3XGc2YZ78b6DbRpZxim2uWyFAgAABAgQIECAwWEBCYDCZAwgQIECAAAECay+QJ/AzqNmuib4VSJZ1uWdPscmNdzPonCe/z+ocnyems/TKZgPwPZv6WbUM7N684utTDtwoIdAekmVvrleRQd5slJuZERm4TYIjsxyGlgs05xh63Gb1s05/O1tg6DmzsfCTKg7pceCbq87jKv61R93NqmQPgPxmMhNgq5LB8+x1kCWKfjKgvSRmnjag/mZVj64vMjA/pmR2QhItce37O04CIHtBZAPuzFBQCBAgQIAAAQIECIwSkBAYxeYgAgQIECBAgACBNRPYKiGwDhTZ5yFLJmWd/mwcfMmKcyoyWyDJjySIxiQ/NrLLv1GyJFT2YMgT9deu2KsiyZsPVGQZobMrfrCLw2cmSBJJmXGyX0WW4MrMjLhm/4fMFnhXxbsrzt3Fr1X3CRAgQIAAAQIEdhIBCYGd5EboBgECBAgQIECAwE4tsO4JgZ365ugcAQIECBAgQIAAAQL9BCQE+jmpRYAAAQIECBAgsN4CEgLrff9dPQECBAgQIECAAIFtISAhsC1uo4sgQIAAAQIECBBYsICEwIKBnZ4AAQIECBAgQIAAgcULSAgs3lgLBAgQIECAAAECu76AhMCufw9dAQECBAgQIECAAIG1F5AQWPufAAACBAgQIECAAIEeAhICPZBUIUCAAAECBAgQIEBg5xaQENi574/eESBAgAABAgQIrEZg32r2oIq9muYfU6/7VHy14mkTXfpx/X16xUdW01WtEiBAgAABAgQIECBAoJ+AhEA/J7UIECBAgAABAgTWS+DldbmHDrjks6rujQfUV5UAAQIECBAgQIAAAQJLF5AQWDq5BgkQIECAAAECBHYBgSOqj0cP6Oczqu7hA+qrSoAAAQIECBAgQIAAgaULSAgsnVyDBAgQIECAAAECu4jAHtXPC/To63lV5wc96qlCgAABAgQIECBAgACBlQpICKyUX+MECBAgQIAAAQIECBAgQIAAAQIECBAgQGA5AhICy3HWCgECBAgQIECAAAECBAgQIECAAAECBAgQWKmAhMBK+TVOgAABAgQIECBAgAABAgQIECBAgAABAgSWIyAhsBxnrRAgQIAAAQIECBAgQIAAAQIECBAgQIAAgZUKSAislF/jBAgQIECAAAECBAgQIECAAAECBAgQIEBgOQISAstx1goBAgQIECBAgAABAgQIECBAgAABAgQIEFipgITASvk1ToAAAQIECBAgQIAAAQIECBAgQIAAAQIEliMgIbAcZ60QIECAAAECBAgQIECAAAECBAgQIECAAIGVCkgIrJRf4wQIECBAgAABAgQIECBAgAABAgQIECBAYDkCEgLLcdYKAQIECBAgQIAAAQIECBAgQIAAAQIECBBYqYCEwEr5NU6AAAECBAgQIECAAAECBAgQIECAAAECBJYjICGwHGetECBAgAABAgQIECBAgAABAgQIECBAgACBlQpICKyUX+MECBAgQIAAAQIECBAgQIAAAQIECBAgQGA5AhICy3HWCgECBAgQIECAAAECBAgQIECAAAECBAgQWKmAhMBK+TVOgAABAgQIECBAgAABAgQIECBAgAABAgSWIyAhsBxnrRAgQIAAAQIECBAgQIAAAQIECBAgQIAAgZUKSAislF/jBAgQIECAAAECBAgQIECAAAECBAgQIEBgOQI/BYsCG3KVgj5QAAAAAElFTkSuQmCC"/></switch></g><rect x="1044" y="68.42" width="186.6" height="697.89" rx="5" ry="5" fill="rgb(255, 255, 255)" stroke="rgb(0, 0, 0)" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 185px; height: 1px; padding-top: 122px; margin-left: 1045px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><font face="Helvetica">Evaluation Model<br /></font></div></div></div></foreignObject><image x="1045" y="115" width="185" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAuQAAABICAYAAAC+5eDZAAAbUklEQVR4Xu2dB9gtSVGGLwKCGJGFBQG9iivZJQiIpCVIMJGTiFyySlBylgsIoiCCgmkR7pLTrksSlV24RCVLXDIXBYkLLDkK9bJnuE1RPdN9wsyZPl89Tz//f2Y61ddzznzdXV11hj0SISAEhIAQEAJCQAgIASEgBCZD4AyTtayGhYAQEAJCQAgIASEgBISAENgjQq6HQAgIASEgBISAEBACQkAITIiACPmE4KtpISAEhIAQEAJCQAgIASEgQq5nQAgIASEgBISAEBACQkAITIiACPmE4KtpISAEhIAQEAJCQAgIASEgQq5nQAgIASEgBISAEBACQkAITIiACPmE4KtpISAEhIAQEAIjI/Bj1t6PJm1+xf7//Mh9UHNCQAg4BETI9UjsIgJ7TekPjaD4Ha2NfxqhnamaeKA1/DDX+IXs83um6tAM2v156+MHXT8fb5/vMoO+T9nFP7DG/z7TgY/Y9Z+z9P9r6OAVrY5X9dQDkf3yGtqZsoqTrfGrJR14s/1/6Sk7ZG37Pn3Srh05cZ/UvBAYFQER8lHhVmNbggCk8ZQR+nIPa+MxI7QzVROPtIbv4xq/hH1+61QdmkG7F7E+vtP18zj7vG8GfZ+yi/e0xh/V04Er2L3XrqGDj7M67tpTz0/ZvdPW0M6UVbzSGr9S0oG32f9HT9kha/tNli7l+iB+MvGgqPlxEdADPy7eam07EBAhX884iJDv2cMuwS8lcELW+la7RciXe/aGCPlfW7V3X67q75U6k/33GUs/LkK+IpL1xUXI6zFTicYQECFvbEClThECIuRFMA1mEiE/fbUbkp1K3++qCPngYxVmGCLkmDj8jKVvLVf9d0tdxdLBgfJaIV8B4J6iIuSbwVW1zggBEfIZDZa6ujYEcoT8NWtr4fSK2GJ//prr3KbqRMhFyMd6HocIeUeoMcdYVv7WCt5ZhHxZ+FYqJ0K+Enwq3AICIuQtjKJ0qEUgIuRfsEp+oraiHc8vQl5PyH/YnpnfsJT+9r7PPr9jx5+lIfVLCPkqh2NLzFXoo1bIh0Zqufsi5MvhplINISBC3tBgSpViBETIi6HqzShCXk/I14P87tVSQsiZVP+0pW8uAQ9eR/D0MSQi5EMILXdfhHw53FSqIQREyBsaTKlSjIAIeTFUIuQDUNXakK8H+d2rpYSQg8o1Com1RxCXirhWHBIR8iGElrsvQr4cbirVEAIi5A0NplQpRmCXCfkZDaVzWzqfpW9b+vgifb0YvcMZ57hCvk79QWIqQk5wlwtYOudiOPCP/SlLH7b00SXGsrTIWRfPz9ntLyvSHKYcI6hMRMg5n3Fd1/F/sM9/WKrMIt+Z7e+pllLvKviKZ6U99aBD9mUI+bmsHH7S+fsNSzyDn7b0fkufrexrSXaeDXyyE/CH77iXdbk9xMznHJYw9QOrz62gjwh5ycgqT9MIiJA3PbxSLoPAFIQcf+SQmFReZB+Orxyl61l+T0Jebdf+uaceyACrfzex9AuZfJArXtTHWvpXSxCHISkl5D9kFT3BEmSuE+ymHzHUwOI+L34O3KXlX2efIV8lsk798eTx8KTRfUEHDiTXvmj/p24QIS93s5T+9qLLSwoUAUfG8Pcs/WZP/vfavWdYwqYaolkif2GZIIyd/Lv986zFB0j/LS3dwpL3FU0WSPmTLT3REiRzExIRcvyFMxYpkeY5PsJSzQSTVfWXuk4/eKHvsoQcUkxgsJtaukwPIAQhesoi1fQ5rRLPPTwXN7bkPf7wLDCW/2ip83+/CiFnQoJO17d0rYxe/2LXDyza/VrhwyBCXgiUsrWLgAh5u2MrzfIITEHIIc0EL0nlDfbhspUD9frgBb/frj0kqAfyiH9mXtY1AsHCvzbkvE9KCTkHGf2L+V127aKFnTqb5fuSy/ti+/xbA+U3of/lrM3/Kux3ly39nV3W7SFEmAlIH7mLukVwKp6BaKU0zc8qd0psu5Xmm9l1os32+eZO67m1fThQiU9J9hwhP8oKe7/v17Fr/1ZS6SIP+t3e5f9l+3yiJT+BLVkhhxgzGUonOEPdIdoofajpN98LJiR/MlT54j7j8keWIOi1gYGYDN7KEoGTSp8Ffkf2WSqZbIqQFw6isrWLgAh5u2MrzfIITEHIb2fdiQguodQPFQ4WJgrRCiSkxF/npXnQUrSiWdjcd7f++1aht5mQb0r/KQh5tIJbOobkYxcGYsRqfU4iQo4Jwn1rGlrkZRdn3e4+I0LONSao3tXhk+zabQv7fRbLh6lPSjJZVb6gpf+1hGlXKkOE/P6WOd1BKezG97JR/s8LCtGPV1hi4lAjL1vomk7shiJ1skPF7geEfBlhPNgt6DtsK0K+DLIq0xQCIuRNDaeUKURgCkKO94fIfIDVLVadSuRelukvXUa2vK/srvECZXWvz6yBImzvD612/Y7leWGmc9tKyDep/9iEnLGFeK0qEOQbWMK2OBJPyFdpj+cKIrtO2/KIkDNZeLSl/7OUrkbTPp+/WqDEtS2PX8F9kF37M0ufcPVSXR8hv4/d5zvRJyXfOSKOsquREyYRmJXhGWYd0kfIWRl/jqUbrtjQkG2/CPmKAKv4/BEQIZ//GEqDegSmIOT08tmWvPkI5g+XL1ThrZbPr4ixaoUNairYmEPIvfDi5WWPLSmHORHssllFv42laFXxaXYd++FItpWQb1J/zAR+PQHjqfa/n9SwQtwJB+v+I/lcY7IC+Xu7Jb9KS3XPtXSCpTda+sCi/r329+aWIKrRRKsjmtFYDhFyzA8gifSH/zHlwATLm4t0dWO28bzwqVnuYkTIH2BVcQ4BUo5pTiq/bR84ozEknL3g2U+FMTrFUg0h/xXLjwlaJEyiWcVnrKiTCePRi3YxIYnkqnbxYOYeO1d/l7nH5Jm2/tsSxJ1+/a4lbwufFu8j5Jx34PxLJKzkE0zt3ZZYcGDV/Vct5X4v2CXMnXURIc+ArMu7g4AI+e6MtTQ9jEAuUicBW9Yhp1klrw0qYsU6Igk/a9fZHu+TC9tN7K69cEiQVbdUHmYfsAFPhRchUQj7Vg0jsxpsW8+f6di2EvKx9AeWWi8rNYQ8FzkSYgwBzdmFYwbFhCwyZzjSrkOovfQRcuyh2Z2Jnh3s+KMdlL6JXOZx6r0cEfJuggEJ/E9XmonS7w80xGQULNLJS3q2oZSQs4rMRMUfqKR5JuBMnnJydbvBIUg/gXqzXbt0UIjzGEzAokkah32fHpTBAw8r1NyPJEfIo2eV8mDExI9ykVzTLmKn7gWs91pikupFhDwDpi7vDgIi5Lsz1tL0MAI5Qr4ujHJRPyP3arQJUcYLSZ9APh7qMuRsZVmRTVdx6Q8HHPtsiLuqo0OjuEmEnHjZVkI+lv7gsSlCnjNxepS1ee+CBxVSjus+LzxDeBDxkiPkkH92VfokMtXo7LALulqUpY+QQ4hx9+hJKkT0yz21RxPk+1n+zuyklJDnCCg7NS8o0A5TosjbEt/hk1x5JhnHBXWyy/WWgbainQSK5Ag5nnP2uTqZoEPU/SKAbzp37iF36FeEvOBBUZa2ERAhb3t8pV2MwFSEnN5EL8XIDtz3/D12wW87X8Wu+QNtkBMO46UrbgfsMy/CEokCpPyiFezMItI6tpGQj6k/WGyKkEemAjW20fQtOnMASedwsJeIkJfagp/XKoOopZKblJY8g1GePkJOfswn/AFUiC6rzznhe+EPKvIdwyUnUkrIId2YyKTCrgHnL0oFm3C8w6TCdzE1acF/OavT/neA7yETiSHBBOp/LPnV+IiQn8fyYZvvhV3EEq8plIsWEbBHx22iFxHyodHT/eYRECFvfoilYIDAlIT8ktYftqO9QGqiFyD5sDfFJjQVCBD+tf0hPb7TeGrAD3InuFIrPRjICxP731TmRMjH1B+MNkXI/So/beErvMbryV7L/6EffNT2RM9aRMhLdm666iPyyo7QMmHsgy7vGSLkmHdgo51KjvyR50cs+dVzT0xLCDl22pEpTw1xpT+Yk2Bmk4qfPB1jN18egJPbwYpwjLzARIScCTw7cKlAxGvM+jB1YwKQChM1Jgb+d0uEPBotXdspBETId2q4pewCgSkJOV2ISByBewjeEUlkE42N+Cru1aJ2ci/8ORHyVR7yWv1zY9n3u1piQ86hvygwU7p6W6pnZIIUec6JCDmeSnAJWCIRocLsZl2RKIcIOZjj+tP7DWc1ODLVYkXbm5Owo8AOViclhJyDjGCcCpNlTIZqJiMEDftMADSRMLvr+CnHZ3oq2PfnDtZG48aYevOziJBHh109PiXPRfRbh/ncx1xhEfISNJWnaQREyJseXimXQSBHyGuDruQAZhUIE5OcROYI+AfmgJcXvqOsMnn72Br/5WmdeAlh5YrEYVJW2amLFcboUBplWyLk69QfbDaxQh6R9r7DtX1fdCZ5d3AZ8KbjVz89Ia81OTnZ6vRu+FIyueqP0RAhp/79lrx9fO5QJavR/pCjf85LCDnY+ok08QY85iX6R37P+a3qfksiEzHaGQrg5dv2h4EjQh6ZyGHe4yOaDumFHbqP6InrUD+JESEfQlL3m0dAhLz5IZaCAQJTuT3susIK0UeDfkVbz0TyJLR6KjnyHg02hBtbc9yosd1cEz2wq2/OhHyT+oPPJgg5URT92YCDizGs/UJziBNb3lSilU5PyGsnANtAyPEqg2vQVDgseSN3jUmZj/waRc0tIeS4XsRneSp97iX7xg9PMXiMSYXP3fcfN5LeH3htVNLomY0I+VBk19rnMM0f9VmEfBVEVbYJBETImxhGKVGJwNSEnO5Gh7giP734MIZApYJf4WcO6Iw7xP2WWI1fVeZIyMfQPyI3XFvVZCUypzhg9ZYezE3Hm8BTPshM5GnFE/JaLynbQMjRO1rZ9cF88BPvD3viScbjVELIo0PaOU8iQ9/D6HBo6mklmvxd3Cp9x1DF7r5vxxNyXCt+rbLOmuyR9xkR8hoElbdJBETImxxWKTWAwDYQcjwNPMv1E9+9RA7sBK8KPgoh9ziw6Vf40qo4OMpBztrVcA6b4j7Ny9SEPLJ7fbF1Eh/YkYylP21vYoX8FlYvfrxTqT3Q2ZWNVnCZpD3W1e8JeeqPOwPz913eFkLO2QrOXKTiJ7D46uZaKnvtA64TUykh5Nh0Y9udCs8lz2etRBgS2AeyikSr1lG/h9r1Aco8IcfU6NNDlaxwPzIjEiFfAVAVbQMBEfI2xlFa1CGwDYQ82jZHiyMsnbpQJzJdGApBje9lXrD+cFuKEPbBeG3BvRueHNjmpwy26kQAJBJgKlMT8qOsM6zYppIj5GPqT382Qcgj/9hD4577BkTjyQrx812BVgh5FEArdUHIZNb70M5Fyy0h5JFdN0Fz/GS75BcK16L+e3tOu9aR48jGHDMdghLVyKstM1FWO/GEnO9QdBCWfH1+3Uv7cFfL6KOaipCXoqd8zSIgQt7s0EqxHgS2gZDTvejAHQennrLo+9/YX+9BgRdpFAW0UzcX3RFCS1AZ3Ol5V2QpVNtIyCNPFjlCPqb+4LYJQh6RSr97UvoFj8wgLmGFva11K4QcXNDNRyntPL5gg40tdip8x/BW4qWEkEeeT3BNyY5GjfAu9q4AKZ++oyMzt2VsyL1epTbkPJfvrlGqIq8IeQVYytomAiLkbY6rtOpHYFsIebQC3hFNXN/h7iwN4sFqNqvVfQeuIvd1BB5i1XUouh6olXif6NAdKzDQLa3BbpLStZ0j5GPqT182QcgjH9m5gD59TzpBknAv502XIneELRFyIpl6QtxNdL25BvjhccgHNuJ6CSHHswymJqkwqb1T5Y8w3+suIFFXFBMyvB91go07ZwJSYULwxIq2IvvwiJBHui9rilPSPRHyEpSUp2kERMibHl4pl0FgWwh5LuQ3hIkXsXcxNrTylvPe4g+19T0YkaeHTZis1LjVO2Ad9hEVI0I+tv7guAlCTr2ReUKtq8tfs3pe4wY7h3tLhDwitwS14dwGeqYCPlfMfCFKCPleK+uDLzF5wmf8typ+gfluE200FR/YCJLvV/JrI4JGE4iIkEc7K8v4IecAZzohBH8mRV5EyCseFmVtEwER8jbHVVr1I7AthJxe/qmlh7ju4h8ZV4X+sFhuJa8rjh/zk1xd0cs2h04UAp28qxJy6ohW9fGDDvHsE1aLIUY+3HdEyMfWn35vipBzKNf7b6492Pk4qwN73VSY5F0zALwlQo56EcHDNAWTplQITU+I+khKCHkuiFPtanLkHeZ+1il2oTph3DBd8pL7fkY6Rc9V9BsR+X1nonFBS6UBj2r86YuQZx5CXd4dBETId2espelhBLaJkEerebx0Wd1MSWiJDXF0GNBve/c9Bzn763UQ8mjFt4S0ROYH6BAR8rH1px+bIuTRiimr20yaSkyP2GU55J4h+gvJ5xyBl9YIeRR8K3r2wRNPRpGUEHLKgSfuCVOpiRXACj1mZV7SA53c48B3FDm1dKJ2tJXnMLeXiJDn8tYcWD3RGmKFPBU84LAI4UWEPHwEdXGXEBAh36XRlq4dAttEyOmT93oQjVQu4mCaFw8NeGrwEoWq9nn6CMw6CHmkI6u1hHH/aubRvLJdf0XmXkTIx9afrkWEPBeunfzRquFxdn2f0xNvIIylt//GOwou+/q8XVAWbH2QmSj4Tddsa4ScgFCHMs9Od/mg/UPArJyUEnJchXauCdO67m8fvBmKb4sVZ8bF7wBRjvJechPUodgER1pFHAqN3JrmdtEiN4yskoNZ38Fw+hy5deV6ziuMCPnAw6rb7SMgQt7+GEvDH0QgIuTkOrBmsPBsMvRCpklCmfcdzGJFlCieQy7HsEn/XPByx072+pai1TVekGyL460hJznPLqWHOqmXkOb7gwYgmARS+Wxyj6A+XPO+stPiESEfW3/683JLxzi9mNzgISfymlFKyKlynyVCj3vBTR8TmWg8cad5giVv7kIdRGrFljqS1gg5Og5NdIfCzpcScto6YMmfc+A67ioxlYnMPPbadaJwRvECINCfDAaK8cW85XzBPcyTvEkO2SD9mLJFZbifI+QQb1b6vfB7xO6WjyZLPlwm4s3Ju07lHt91XG5GIkKeAUaXdwcBEfLdGWtpehiBHCFfN0al9ttnt4bxqJITDnJ594e5vBC4fZmbvCiJ6gdxZQXxBpa8e7ioKHoQGZQ+EgilkxpCHrnyS9ti8oK7OrbpjykYiJyXlTH1p5t97RFch4lGemiwhpBjnwxRicYIUoT7SwjdaZY4uIvXnhx2mC4RZCbnoadFQh4dgkwfLSa5kO6c1BByznfkVo0h1uz0dL63ycsZkdx3b8gE5WZWNhepl7aYgL/R0lksscuUeyY6vft+p6JIwV052uG5OsUSv2G400SvaIKBFxvMYHK/cyLkPQ+ibu0GAiLkuzHO0vL7Edg2Qk7veMHyoo3kcnbx9YWDiO0wL8jaKJ1d9XhSgLhH4j101BBy6sN1IS4MawXzCwgn/sg7yRHyMfWnL/ssRavYqY7p72wNIacOzE7wfLOKQNLY5Xh/TyUtEvKc1x1gyB1uTSGqIeSUG5oAlIzhQcvEWYi+3TAm1PhSZ9drGaGNY5KCfYT8zJaPle2+HbSSPlzeMrGzkxMR8hIUladpBETImx5eKZdBYBsJOS88bDy9sHLMlnONRN5GhspjG4rpDC/rKLAK5Vcl5Ng2swWeEuuhfrECd40FNqlNdI6QU99Y+tMWXmAOWeqbAK1CyGnjspYwOfB2xkPYcZ+VSfDDzKFPWiTk6BuZFHGdZ/1JA5jUEnKqu52lY0sGJsjDJIFdqyhKps8OUWaCm5vE57qArfkFLHG4spOhnTzaYpcOE59a4TfjRpaig8RpXSLktcgqf3MIiJA3N6RSqACBvZbH+w4uKFadpc/HcfSCPdUuetJ1D7v2mOqWT3/pPsFSZEucVscLk/rZmu5W5dhKhxx4kukJeeSykclOH/ljG/2Bi9SnFqu6rNY/3RL+nF9kiZXDTryPZl/XGPp3bWKOg0cJfE9Hkv7ORgdPcbuH+70+YSz2W4psc3PlsNt/tKWhsweU915wcuHkc21Ffqt/0jJ7v98DamZvgw/Pcyol340okiZ1eA8mUcNRKHsmlV8aUILvD0F88PldIjzrf2wJ/9x9Qb98XTxX7DhBlocma5Bu3Km+3dLdLf1VUlnp7xSLBpzryD3naf+YCNIGB5bT8yE5PLBHx+SqEzDBjl4iBHYGARHynRlqKbqjCLA6imeFi1m6qKWvW8LW9ZClg5ZYef1GgA0u1nC9SDl+JzhAiA3sW9aEI4fTWMm++OLFi6kJL2FCcxOxEBOdEiI51J0x9WcnA7xYNf+KJexl8cISHc4b6nfuPmYY115gxzmA81iCJEKAiMrJTgcuMlkZXgd+y/ZT5U5/FiCxmAsxbowVwlix+s5OFIdssfcu9e0d4cr4M1nloCXBo2iHVfYPW+Icw/GLNmrIfm78ONeACR1t8d3FHp7vLjrxu8LEjsO0TKBX0SnXvq4LgWYRECFvdmilmBAQAkJACAgBISAEhMAcEBAhn8MoqY9CQAgIASEgBISAEBACzSIgQt7s0EoxISAEhIAQEAJCQAgIgTkgIEI+h1FSH4WAEBACQkAICAEhIASaRUCEvNmhlWJCQAgIASEgBISAEBACc0BAhHwOo6Q+CgEhIASEgBAQAkJACDSLgAh5s0MrxYSAEBACQkAICAEhIATmgIAI+RxGSX0UAkJACAgBISAEhIAQaBYBEfJmh1aKCQEhIASEgBAQAkJACMwBARHyOYyS+igEhIAQEAJCQAgIASHQLAIi5M0OrRQTAkJACAgBISAEhIAQmAMCIuRzGCX1UQgIASEgBISAEBACQqBZBETImx1aKSYEhIAQEAJCQAgIASEwBwREyOcwSuqjEBACQkAICAEhIASEQLMIiJA3O7RSTAgIASEgBISAEBACQmAOCIiQz2GU1EchIASEgBAQAkJACAiBZhEQIW92aKWYEBACQkAICAEhIASEwBwQECGfwyipj0JACAgBISAEhIAQEALNIiBC3uzQSjEhIASEgBAQAkJACAiBOSAgQj6HUVIfhYAQEAJCQAgIASEgBJpFQIS82aGVYkJACAgBISAEhIAQEAJzQECEfA6jpD4KASEgBISAEBACQkAINIuACHmzQyvFhIAQEAJCQAgIASEgBOaAgAj5HEZJfRQCQkAICAEhIASEgBBoFgER8maHVooJASEgBISAEBACQkAIzAEBEfI5jJL6KASEgBAQAkJACAgBIdAsAiLkzQ6tFBMCQkAICAEhIASEgBCYAwIi5HMYJfVRCAgBISAEhIAQEAJCoFkEvgOSLBKjjozfpwAAAABJRU5ErkJggg=="/></switch></g><rect x="1053.57" y="425.33" width="167.47" height="82.99" rx="8.3" ry="8.3" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 165px; height: 1px; padding-top: 467px; margin-left: 1055px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;">GM</div></div></div></foreignObject><image x="1055" y="460.5" width="165" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAApQAAABECAYAAAA/bqU6AAAKKUlEQVR4Xu3deahtVR0HcG0SSTOTJErU+qMiKpuIJuFVNA8SDSalZFJUWJiCFY0kFmVplL0SitRsIIsiekUzlaXgABVZaS8nEpKooLJ5+P1ibdgczjl3n73fvWetez8bfpzzzllr7XU+6/L4ss/Ze++/n40AAQIECBAgQIDABIH9J/TVlQABAgQIECBAgMB+AqU/AgIECBAgQIAAgUkCAuUkPp0JECBAgAABAgQESn8DBAgQIECAAAECkwQEykl8OhMgQIAAAQIECAiU/gYIECBAgAABAgQmCQiUk/h0JkCAAAECBAgQECj9DRAgQIAAAQIECEwSECgn8elMgAABAgQIECAgUPobIECAAAECBAgQmCQgUE7i05kAAQIECBAgQECg9DdAgMB2Fjg0PtzDo44qdUg83hx1fdTeqBuj/rqdAXw2AgQIbIWAQLkVyvZBgMBWC2SIfGXUqwbs+HPR5i0lZH48Hl8YdULUnl7fw+P5d6MeNGe8D8Vrrxuwn9km744X3jin33Xx2tNK2B0xrC4ECBDYegGBcuvN7ZEAgc0TOCCGPjfqNSN2sbvX7/x4/treGI+L5z9cMuZh8d7vV9jnQdH21qiDF/R5Zrz+tRXG05QAAQJrFRAo18pv5wQI7EOBe8dYebTx8b0xr43nH436ZtRvov5UQtx9SruTZ9p3XbPPq3vj3DGenxh136g86plHLPvbmfGPc1b4LHn09IKZ9jm3D0TdGHVJ1D9WGE9TAgQIrFVAoFwrv50TILCPBA6Mca6K6n8l/dL496cGjH9MtMkgev9e29lA2R/mq/GPZ0T9JCoDZh5lvC3qiKh/DtjfHaLNz8v+MkReHbUr6oqoxw7orwkBAgSqExAoq1sSEyJAYIRAfs39+tIvw11+ZZxBbeiWofALUU8pHYYEyvwKPI98vqP0eVE8Xjpgh0+NNl8v7d4TjxmCnxMlUA7A04QAgToFBMo618WsCBAYLvDEaPqdXvMnxPNlv3dcNPJj4o3LVwyUGSLzq/Tcrox69IBpfyXaPKu0yyOcHxQoB6hpQoBA1QICZdXLY3IECAwQ6L6CzqbvjHr7gD6Lmvwy3sivvvPI4bwzsLNft78MrRlePxH1sjJgfmWdRxoXbQ+IN35R3swjoi+I+nKUI5QTFk1XAgTWLyBQrn8NzIAAgfECR0bXm0r3/E3jo6KG/I5x0R7zt5HPjcqTYzJczttmA+UjolH39Xr+FvP4JR/nvHjvtPL+rnj8nkA5fvH1JECgHgGBsp61MBMCBFYXeFN0eVfpdlI8fnL1IVbuMRsoc4DvRx1bRjo6HruQ2x/87vGPP5QXMvw+LOq/AuXK/joQIFChgEBZ4aKYEgECgwW+FC2Pi8qzpe8VdfvgnuMbzguUOYecS26Lvi4/Nd7Li6DnlpcrurA895X3+LXQkwCBSgQEykoWwjQIEBgl8LPolWdJ50XA88zurdjmBco7xY5viMpLB2W4zWti/rk3mbyOZd4B537l/X74FSi3YtXsgwCBTRUQKDeV1+AECGyiQP7/9Z8y/kficczdccZMb16gzHH6RyDzouh56aFuy7O68+zu3M6KelvvPYFyzCroQ4BAVQICZVXLYTIECKwgcJdo+/fSPu/FffYKfac0XRQoD4lB/1gG/nU85tni/y7//kY8dte4zBOJbhEopyyBvgQI1CYgUNa2IuZDgMBQgX6gfEN0eu/QjhPbLQqUOez7os4o4z87HvdEPTjqp+W1z8bjCTP7d4Ry4oLoToDA+gUEyvWvgRkQIDBOoMZAmb+R3Fs+Tl5s/clRu6O6+4LnfcZ/JFCOW3C9CBCoV0CgrHdtzIwAgeUC/UD55mjaXT5oWa+Xx5t55DDvp51b9xvMrk/+u3stv07PI44/nhlw2RHKbPr5qOeXPhkov12eXxOPj5wzOUco/aUTINC8gEDZ/BL6AAR2rECGwu43ihfG87wUz0ZbXvdxlW3eyT4bBcq8e84P5uzkxHjtEoFyFX5tCRBoRUCgbGWlzJMAgXkCv40XD49adPRvtk+euPP0qLzMz7ztob0X8xaKb4361kzDjQJlNs875+QddLotLyWU8/zbnJ06QulvmwCB5gUEyuaX0AcgsKMFuutQJsKdo/41UaMLqHnJn+53j7NDDgmUeeLNp3sd8/7ieZ/xeZtAOXHRdCdAYP0CAuX618AMCBAYL3BxdM2vknPLy/RcP36o//fcV4HygBjri1EHlvm8JB5vFSgnro7uBAhUKyBQVrs0JkaAwACBF0ebz5R258Xj6QP6LGuyrwLlKtNwhHIVLW0JEKhSQKCscllMigCBgQKHRrubog4u7Y+Nx8sG9p3XTKCcgKcrAQI7V0Cg3Llr75MT2C4Cx8cHyQuG55Z3qHlI1O0jP5xAORJONwIEdraAQLmz19+nJ7BdBPJr7/z6O7dLo/K+3r8b8eEEyhFouhAgQECg9DdAgMB2EDgsPsS1UXlpntzyMj2nRV0U1V2rcqPPmRcdv6o0mnqW90b76r/vN5SraGlLgECVAgJllctiUgQIjBA4JvrkWd+z15K8IF67LupXUbf1xs1rUR4V9byoV0TlWeLdNhsojy7tDorHU6MyuGZoPafX5y/xPM/svmHJ3I8s49yt12Z2vPy6PkPm1DPWRxDqQoAAgXECAuU4N70IEKhTIG/HeEbUotswZgjMwHePqCMWfIQ9pX//ntv9yxMt++T5W868BuWi7WPxxikD6HIOeYtIGwECBJoQECibWCaTJEBgRYEHRvsPRz1pYL8MmrujMvDlkczZLY9gvj+qO5t83rA5xplReXRz0XZSvHH+BuNk3wzF5w6cu2YECBBYu4BAufYlMAECBDZR4J4x9q6ovA1iPs+vqu8adXNUfqW8NyrPDM877ow9M3wTp29oAgQItCEgULaxTmZJgAABAgQIEKhWQKCsdmlMjAABAgQIECDQhoBA2cY6mSUBAgQIECBAoFoBgbLapTExAgQIECBAgEAbAgJlG+tklgQIECBAgACBagUEymqXxsQIECBAgAABAm0ICJRtrJNZEiBAgAABAgSqFRAoq10aEyNAgAABAgQItCEgULaxTmZJgAABAgQIEKhWQKCsdmlMjAABAgQIECDQhoBA2cY6mSUBAgQIECBAoFoBgbLapTExAgQIECBAgEAbAgJlG+tklgQIECBAgACBagUEymqXxsQIECBAgAABAm0ICJRtrJNZEiBAgAABAgSqFRAoq10aEyNAgAABAgQItCEgULaxTmZJgAABAgQIEKhWQKCsdmlMjAABAgQIECDQhoBA2cY6mSUBAgQIECBAoFoBgbLapTExAgQIECBAgEAbAgJlG+tklgQIECBAgACBagUEymqXxsQIECBAgAABAm0ICJRtrJNZEiBAgAABAgSqFRAoq10aEyNAgAABAgQItCEgULaxTmZJgAABAgQIEKhWQKCsdmlMjAABAgQIECDQhsD/AAKmOVTsSDjCAAAAAElFTkSuQmCC"/></switch></g><rect x="1053.56" y="332.38" width="167.47" height="82.99" rx="8.3" ry="8.3" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 165px; height: 1px; padding-top: 374px; margin-left: 1055px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;">TM</div></div></div></foreignObject><image x="1055" y="367.5" width="165" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAApQAAABECAYAAAA/bqU6AAAIQ0lEQVR4Xu3dfehdcxwH8G2UaBulRtIaisIfHkoea2iESSLP0ySilmhaSs2aP6QxQpoS0mh5iGTk+SlS4g8KTWzIij9QWPIQn2+dX91+3Xt/9/7O/d3v+X3P69S3c3/nfM/34fU9rXf37p47d46NAAECBAgQIECAQA2BuTWudSkBAgQIECBAgACBOQKlm4AAAQIECBAgQKCWgEBZi8/FBAgQIECAAAECAqV7gAABAgQIECBAoJaAQFmLz8UECBAgQIAAAQICpXuAAAECBAgQIECgloBAWYvPxQQIECBAgAABAgKle4AAAQIECBAgQKCWgEBZi8/FBAgQIECAAAECAqV7gAABAgQIECBAoJaAQFmLz8UECBAgQIAAAQICpXuAAAECBAgQIECgloBAWYvPxQQIZBZ4MPq/fgbG8E20eUhHu4vi9VtRDu/S1/1x7IZpjOGOuOaWLtdti2NnRtkxjTZdQoAAgSwCAmUWdp0SIDAigSeinctG1FZnM7/FHws7DpwYr9/v08++ce7nIcYxP+rujLKgxzVnx/GXh2hPVQIECGQVECiz8uucAIGaAp2Bcn2ftq6IcwdX5/vVuyTqHBplcqDcLY6tiHJQlOuipHcsO7c18ceGIeZybdR9aFL91Oe9UXZE2RzlryHaU5UAAQJZBQTKrPw6J0CgpsBEoPw82jmiT1sPx7mro/wUZb8+9TbGuZuiTA6UnZe8FH+cFeXTKClgpncZU7sHRvl7gPnMizpfRJkIrh/H66VRPoxywgDXq0KAAIHGCQiUjVsSAyJAYAiBnIEyfQT+WpR11Xgviv3TA4z9jKjzSlXvztin/5d5rkA5gJwqBAg0VkCgbOzSGBgBAgMI5A6UKUT+UI3zo9gfN8CYX4w651T10juc9wmUA6ipQoBAowUEykYvj8ERIDCFQO5AeXKM79EoK6txpo+s00fXvbbD4sSX1clnY39hlBcESvc5AQKzXUCgnO0raPwE2i3QhEB5TCxB+n+QaXsqysV9luSeOHdjdX5p7N8RKNt9A5s9gVIEBMpSVtI8CLRToAmBMsm/G+WUagmWxP7bLsuxTxz7pTqevtBzVJT/BMp23rhmTaA0AYGytBU1HwLtEph4sHn6gkz6+LnXNui3vG+LBtZFmfxg8852J77l3dnneVHh+apS+qJNtweWr4rj6SHoabsqymPVax95t+ueNVsCRQoIlEUuq0kRaI3A0THTm6M8GWXrCAJl+j+Ot0ZJoXFLj/a6Bcrdo+72KOnRQemRQwdE+b3j+vQcy/QLOOlZmOn8/lF2CZStuU9NlEDxAgJl8UtsggQIhMCg71AOgtUtUKbrOt+BTD8HuamjsfSt7vTt7rTdHmVtxznvUA6irg4BAo0WECgbvTwGR4DAiATGESj3jrH+Wo03fWSeHlz+b/X3q7FfVr1eHPvvBcoRraxmCBBohIBA2YhlMAgCBGZYYByBMk3hriirq7ksj336GP7IKJ9Vx9LH6JdOmqt3KGd48TVPgMDMCwiUM2+sBwIE8guMK1Cm/yP5dTXdN2N/epSJLw6lwydF+UCgzH9DGAEBAqMVEChH66k1AgSaKTCuQJlm/0yUCyqGFCjfqF5/Evtju/B4h7KZ94xRESAwhIBAOQSWqgQIzFqBcQbK9Pii97pIrYhjmwXKWXsPGTgBAn0EBEq3BwECbRAYZ6BMnumXc9Iv6Exs6VFBi6L8KVC24XYzRwLtExAo27fmZkygjQLjDpTpizfp2ZgTW3pg+voe8D7ybuMdac4EChMQKAtbUNMhQKCrwLgD5R4xiuei7FmN5vLY7xQo3Z0ECJQqIFCWurLmRYBAp8C4A+Uw+t6hHEZLXQIEGikgUDZyWQyKAIERCwiUIwbVHAECBDoFBEr3AwECbRAQKNuwyuZIgEA2AYEyG72OCRAYo4BAOUZsXREg0D4BgbJ9a27GBNooIFC2cdXNmQCBsQkIlGOj1hEBAmMQSL9Mc3yUeZP6Whl/p59FTNvaLuP4MY49EuWfHmNcEsfPjzI/yqoo6ZmS6dmSGzrq/xGv0ze7t/eZ5+KqnYUddSa3tyvOpS/qfDUGL10QIEBgJAIC5UgYNUKAQAME9ooxpFA33e3UuPDtHhc/HsfTL91MtW2JCukZlL22iXdKp2pna1RYPlUl5wkQINAUAYGyKSthHAQI1BVI/569HuW0aTS0La5ZFuW7HtdeE8fvjrKgT9vpHcs1UTb1qXNlnHtginbS5aujbJzGPFxCgACBLAICZRZ2nRIgQIAAAQIEyhEQKMtZSzMhQIAAAQIECGQRECizsOuUAAECBAgQIFCOgEBZzlqaCQECBAgQIEAgi4BAmYVdpwQIECBAgACBcgQEynLW0kwIECBAgAABAlkEBMos7DolQIAAAQIECJQjIFCWs5ZmQoAAAQIECBDIIiBQZmHXKQECBAgQIECgHAGBspy1NBMCBAgQIECAQBYBgTILu04JECBAgAABAuUICJTlrKWZECBAgAABAgSyCAiUWdh1SoAAAQIECBAoR0CgLGctzYQAAQIECBAgkEVAoMzCrlMCBAgQIECAQDkCAmU5a2kmBAgQIECAAIEsAgJlFnadEiBAgAABAgTKERAoy1lLMyFAgAABAgQIZBEQKLOw65QAAQIECBAgUI6AQFnOWpoJAQIECBAgQCCLgECZhV2nBAgQIECAAIFyBATKctbSTAgQIECAAAECWQQEyizsOiVAgAABAgQIlCMgUJazlmZCgAABAgQIEMgiIFBmYdcpAQIECBAgQKAcAYGynLU0EwIECBAgQIBAFgGBMgu7TgkQIECAAAEC5Qj8D6tLFlRP4ajiAAAAAElFTkSuQmCC"/></switch></g><rect x="1053.56" y="237.35" width="167.47" height="82.99" rx="8.3" ry="8.3" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 165px; height: 1px; padding-top: 279px; margin-left: 1055px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;">TIM</div></div></div></foreignObject><image x="1055" y="272.5" width="165" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAApQAAABECAYAAAA/bqU6AAAIrklEQVR4Xu3dechlYxwH8JlEmvjD3lgSobELgxKNEcaWLWvkD0VCKbKOKY3CP/6SZMkWYylLtrEryjL2PUoYZCsiJTH8fnVurtt733vu+5z7vnfu/dx6OtvzPOecz3ne6duZe8+ZPcuHAAECBAgQIECAQIHA7IK2mhIgQIAAAQIECBCYJVAaBAQIECBAgAABAkUCAmURn8YECBAgQIAAAQICpTFAgAABAgQIECBQJCBQFvFpTIAAAQIECBAgIFAaAwQIECBAgAABAkUCAmURn8YECBAgQIAAAQICpTFAgAABAgQIECBQJCBQFvFpTIAAAQIECBAgIFAaAwQIECBAgAABAkUCAmURn8YECBAgQIAAAQICpTFAgAABAgQIECBQJCBQFvFpTIBAAwJbRh9fNNDPRF2cGivvnqTvnWPbw1G2Ltz/p9F+fpRfJ+jn4lh3eZR1J9i2Raz7us99bxz1v+/S5upYf1mf/alOgACBYgGBsphQBwQIFArMi/YfF/bRrflZseGmSfo+Prbd39C+d4t+3p2gr+Wx7pAu+7gq1l/R5/4vifoZHCf6vBUr9+izP9UJECBQLCBQFhPqgACBQoH2QPlk9LWiS3+bxfozqm3Px/TlLvXWj/XnVtt6Bco5US/rrNelrz1j/aHVtjti+tUE9f6JdXmH8p4oOd/52SVWHBNlhygndGz8LZbnRvm9puFaUW9llLxL2f55NBZei/JElLdr9qUaAQIEGhMQKBuj1BEBAlMUaA+Ux0YfD3XpZ6tY/3m17fSY3tml3oax/sdqW69A2euQMwg+WFXaPqaf9Gowyfa9Y9ur1fYMxAur+TNjenPNftvvqD4SbY6q2uUd0Kdr9qEaAQIEGhcQKBsn1SEBAn0KjGOgzGD4QOWUdzczrK6q4fZK1NmnqndYTPOOZH4Eyhp4qhAgMDgBgXJwtnomQKCewDgGygOD5sgo51dE+d/q+V3LyT75o5/Xqwr5vdAsbwiU9QaZWgQIDFZAoBysr94JEOgtMK6BMr+P+VnF81RMF/Wgyv/iP62qs2tM1xQoew8uNQgQmB4BgXJ6nO2FAIHuAuMaKPN7lPnIotb3IHeK+Q+7MG0a67+ptr0Y0wOi5K+53aH0l0WAwFAICJRDcRkcBIGxFhjnQLkgrvwL1dW/MaZndxkJS2L9ldW2o2OaP8gRKMf6z8bJExguAYFyuK6HoyEwjgL5OKDWw70PivlnuyDU/ZV3Pgqo9Riek2P+3gLUQf3KO79DmXco89/gd6Lko4Xys1GUnzqOd+1Y/iFKPhg9ndLhL4Gy4KpqSoBA4wICZeOkOiRAYAoCefctH/dzUVsY7OymbqDMdhdG2S5KvjWmM6D1c3iDDpR5LPm9yNYjkC6N+Ws6DjDf9nNXte6CmF5XzbtD2c+VVJcAgYEKCJQD5dU5AQINCvQTKJva7XQEyvY7kHknMl/H+GfbCbwZ87tXy/nQ9p8FyqYur34IEGhKQKBsSlI/BAgMWmBUA2W6LY6ytAI8JabLqvl9Y9p6I9ANMX9OG7I7lIMecfonQKC2gEBZm0pFAgRmWGCUA+UmYftd5dv+Pu77Yl3rdY2dvwIXKGd4QNo9AQL/CQiURgMBAquLwCgHyrwGt0Rpvat8v5jP51R+WV2cZ2J6cMeFEihXl5HrOAmMgYBAOQYX2SkSGBGBUQ+U+Uvvd6trla9lzIee54+K8nNElMcFyhEZyU6DwAgKCJQjeFGdEoERFRj1QJmX7bkoCzuu3+exnL9Y/1ugHNGR7bQIjICAQDkCF9EpEBgTgXEIlIfHtXys43qeF8vXT3CN/Zf3mAx8p0lgdRAQKFeHq+QYCRBIgXEIlGvEeX4aZeu2S75ezP8iUPojIEBgmAUEymG+Oo6NAIF2gXEIlHm++XafM6sTXx7Ta7sMA3co/X0QIDA0AgLl0FwKB0KAQA+BcQmUdQeCQFlXSj0CBAYuIFAOnNgOCBBoSECg/D+kQNnQwNINAQLlAgJluaEeCBCYHgGBUqCcnpFmLwQI9C0gUPZNpgEBAjMkIFAKlDM09OyWAIFeAgJlLyHbCRAYFgGBUqAclrHoOAgQ6BAQKA0JAgSGTWDDOKB8f/UGHQc2N5bPrtblqwhf6tj+Ryzn22Q+6uOE5kTdE6Ns3qXN/Fh/ZLXt1pi2XoXYWX1lrLi9Sx/HxfodosyLckpVJ9+E835b/ez3zh7HfXRsz/d5t/7d3jbmT6vaPBTTt6N8G+W2KKv6MFCVAAECxQICZTGhDggQaFhgcfS3dIp9Zsjcv4+2J0XdZX3Un6zqzrHxg44K28dy3YC74yR1t4lt+SrGOp+9otKKOhXVIUCAQFMCAmVTkvohQKApgUXR0f1R1p1Ch0v6DKMZ4l6Z4r7aD++9WFgQ5eeOY14nlt+Mkq9OnOzTrX2rTd5JzZCYdzon+2R4zVc3fj8FO00IECAwZQGBcsp0GhIgQIAAAQIECKSAQGkcECBAgAABAgQIFAkIlEV8GhMgQIAAAQIECAiUxgABAgQIECBAgECRgEBZxKcxAQIECBAgQICAQGkMECBAgAABAgQIFAkIlEV8GhMgQIAAAQIECAiUxgABAgQIECBAgECRgEBZxKcxAQIECBAgQICAQGkMECBAgAABAgQIFAkIlEV8GhMgQIAAAQIECAiUxgABAgQIECBAgECRgEBZxKcxAQIECBAgQICAQGkMECBAgAABAgQIFAkIlEV8GhMgQIAAAQIECAiUxgABAgQIECBAgECRgEBZxKcxAQIECBAgQICAQGkMECBAgAABAgQIFAkIlEV8GhMgQIAAAQIECAiUxgABAgQIECBAgECRgEBZxKcxAQIECBAgQICAQGkMECBAgAABAgQIFAkIlEV8GhMgQIAAAQIECAiUxgABAgQIECBAgECRgEBZxKcxAQIECBAgQICAQGkMECBAgAABAgQIFAkIlEV8GhMgQIAAAQIECPwLJOxTVA4gVxoAAAAASUVORK5CYII="/></switch></g><rect x="1053.57" y="142.33" width="167.47" height="82.99" rx="8.3" ry="8.3" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 165px; height: 1px; padding-top: 184px; margin-left: 1055px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;">STG</div></div></div></foreignObject><image x="1055" y="177.5" width="165" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAApQAAABECAYAAAA/bqU6AAALCUlEQVR4Xu3dd6gdRRjGYaMSG2LvPfaKldiNimhEFEFRwd7FghpbNCTEgrEgoiKJGnvXPyzYsGFDRRCxxd67YiQq1qjvG2ZhuZ6yZfbe2eQ38HFOzs7MfvvsJXxsHTYXDQEEEEAAAQQQQACBGgLDaoxlKAIIIIAAAggggAACc1FQ8keAAAIIIIAAAgggUEuAgrIWH4MRQAABBBBAAAEEKCj5G0AAAQQQQAABBBCoJUBBWYuPwQgggAACCCCAAAIUlPwNIIAAAggggAACCNQSoKCsxcdgBBBAAAEEEEAAAQpK/gYQQAABBBBAAAEEaglQUNbiYzACCCCAAAIIIIAABSV/AwgggAACCCCAAAK1BCgoa/ExGAEEEEAAAQQQQICCkr8BBBBIXWAZJbiGYk3FWop5Fe+EmKbP6alvQMH8hqvf5oqVFaspllV8q3hf8aHiI8VPBeeiGwIIIDCoAhSUg8rNyhBAoITAiup7oeLAPmOe0/ITFK8rHlVsothR8XaPcftr2R0lcinTdYQ6f1xiwArqe3jYhqX7jHtFy89SPBXGTNXnuYoJJdZHVwQQQCC6AAVldFImRACBCAKnaI7LSs5zk/ofEsYcpc/reow/UsuuLTl/0e7rq2OvYjY/zxF98uy2zse0wEdsXby+p1i7aHL0QwABBJoQoKBsQpU5EUCgjsABGnx7bgKf6vURuNcUPvL3h8JHL30a/FTF6A4rO06/Te6RRL6gvEr9fuzSd1v9vlNY5qOBX3bpt0UujyIF5Xzqf7ni2Nx83+n79Yp7FZ+EnNxvOcWGCh+p3bfD+u2zeo9tZRECCCDQuAAFZePErAABBEoIrKu++aN7Y/RvF3x/9phjlJY9oFg416dMQelrNF3MdWou4m4JC1zA+lrGTm0v/XhfWFCkoJyivkfnJvLRWJ/K/quPlU+JX6Pw+rJGQdkHjcUIINC8AAVl88asAQEEigvcqK7Zaesy1wZuqXEv5laTckGZLz6d8sGKrGgtIjW3Op2nODt0pqAsokYfBBBoVICCslFeJkcAgZICPgLo6wJ9g82mipklxrvIGhf6p1pQLqX8vI3Z0VQflbyoxDZmXRfUl2/CPBSUFQAZggACcQUoKON6MhsCCFQXWFJDvw/DL9bnmSWnGqn+LyVeUJ6m/C4JOfrudF+f+XfJ7cy6X6kvvrv9VcVmFedgGAIIIBBFgIIyCiOTIIBABAFfo+hnLrqNVUwqOec86v+VwtcZjlI802N8/qacwbqG0v/ffqDwEVi3VRWfltzGfHff2X2y4n6FH5dEQwABBIZMgIJyyOhZMQIIDBDwA8uzm1Ie1Pc9KwgtpjFLhMKt1/ChKCi3UULPh6R8N7cfGURDAAEEZgsBCsrZYjeyEQjMNgIuuFx4ufmRPS80tGX7ad47w9y+nvGXLuspepe3T10/Gebwm24+7zDfifrtivC7byJ6uaFtY1oEEEBg0AUoKAednBUigEAPAT+Q3I/FcftZsbsiO6oXE25xTea38PgUdHZNY6f5ixaUvknGN9fMUJzTJVE/GsgPbHfz0dgyNxzF3HbmQgABBKILUFBGJ2VCBBCoKXCDxh+am+NxffcNKL6JZbDfZV20oCyyyX5OpR8ZxF3ZRbTogwACrRKgoGzV7iJZBOYIAR/tG6/odJe3XzPoU8W+s9lvzvHjhbq95SYGVsyC8lkltJ3C7+HeOUZyzIEAAgikIkBBmcqeIA8EEBgosLx+OF3hm1fyb8EZ2M9F5h2KuxTTIjM2UVD6Pdy7Rc6T6RBAAIEhFaCgHFJ+Vo4AAgUE/P/UOgrfrLODYpTC7/Lu1Hw95ETFrwXmLdKFgrKIEn0QQGCOF6CgnOP/BABAoJUCfuPMRgqfQt5XsV5uKx7Rd1+r2O+92EU2vImCsugp7+2V4DGKhXKJ/tPhu3/7V3GP4t4iG0UfBBBAILYABWVsUeZDAIHBFvC7rf1ea796MWtl3gPeK9+YBaUfPr6r4juFH6berz2sDqP7dcot52afElh0RQCBuAIUlHE9mQ0BBIZOwNcl+uikmx855Gswuz1fsmiWMQvKm7XSg8KK/dii6X2S2EfLz1DM16Wfj9Bm7RV9uVtxadENox8CCCAQU4CCMqYmcyGAwFALjFMC2ZHKXfT9iZoJxSwo88+h3Ep5Ze8dr5piVqByZLKqIOMQQCCaAAVlNEomQgCBmgI+GrdIKAh/rzjXuhr3dhjr1ytOrThPNixmQXl4Lh9/9/M26zQKyjp6jEUAgagCFJRROZkMAQQqCqykcZ+FsX47Tnbquux0a2jA+2HQGH36qGCdFrOg9J3p2SsZ/RzNkYq/ayRHQVkDj6EIIBBXgIIyriezIYBANYENNOyNMHSyPo+rNs2sO759LaGbb2jxjTB1WsyC0nk8rRgVEvKNRH79Y9VGQVlVjnEIIBBdgIIyOikTIoBABYF8QVnnhhoXky4q3ZZWfF8hl/yQ2AVl/giq17Oh4s2KOVJQVoRjGAIIxBegoIxvyowIIFBeIF9QenSVZ0ker3FXhVX77Tlrl0/jfyNiF5RewdGKKWFNvt5zv4pFJQVlhB3MFAggEEeAgjKOI7MggEA9gYEFpWfz0caTFV/3mXpeLfdNLlmR5u5+KPhz9VKaNbqJgtL/7z6kyD9j8iL9+wKFj84Waauo020Kvz2Iu7yLiNEHAQQaFaCgbJSXyRFAoKBAp4IyG+rrDH1H9KeKP8OP/r/Lp7T9+B0XY2vl1uP3f5d9HqPvDt9DMf+AfF2w+WHkbr6286sBy3/Tv32k0A8rL9OWVOerFdnpeY/1HOcrfNTyA8UXiplh0mx7/SikwxQ75VZGQVlGnr4IINCIAAVlI6xMigACJQX8ru5pYcwEffr0tQvGgc1F1gxF/lWL+T5+BqXH+1WEZdqz6uzXOFZpXp/fzFOl7a1BLlQ7bavnc3HpIndEl8lf1+9+f/mtVVbOGAQQQCCWAAVlLEnmQQCBOgI+bf2WYlHFxopfFScp8q9T7DW/T4+PVfhoXZU2XoMmVhjoU9QHKHwKu2pbTAMnKXxtZdF2uzr6COcLRQfQDwEEEGhSgIKySV3mRgCBugILaIItFTso/KxKvwN7uOJjhZ836VPDPrL5bt0VJTB+QeWwdYjl9LmUwsXmD2H7XCx/GLbXv9EQQACBZAQoKJPZFSSCAAIIIIAAAgi0U4CCsp37jawRQAABBBBAAIFkBCgok9kVJIIAAggggAACCLRTgIKynfuNrBFAAAEEEEAAgWQEKCiT2RUkggACCCCAAAIItFOAgrKd+42sEUAAAQQQQACBZAQoKJPZFSSCAAIIIIAAAgi0U4CCsp37jawRQAABBBBAAIFkBCgok9kVJIIAAggggAACCLRTgIKynfuNrBFAAAEEEEAAgWQEKCiT2RUkggACCCCAAAIItFOAgrKd+42sEUAAAQQQQACBZAQoKJPZFSSCAAIIIIAAAgi0U4CCsp37jawRQAABBBBAAIFkBCgok9kVJIIAAggggAACCLRTgIKynfuNrBFAAAEEEEAAgWQEKCiT2RUkggACCCCAAAIItFOAgrKd+42sEUAAAQQQQACBZAQoKJPZFSSCAAIIIIAAAgi0U4CCsp37jawRQAABBBBAAIFkBCgok9kVJIIAAggggAACCLRTgIKynfuNrBFAAAEEEEAAgWQEKCiT2RUkggACCCCAAAIItFOAgrKd+42sEUAAAQQQQACBZAQoKJPZFSSCAAIIIIAAAgi0U4CCsp37jawRQAABBBBAAIFkBP4DDz1aVNeeRygAAAAASUVORK5CYII="/></switch></g><rect x="670" y="68.42" width="281.6" height="314.74" rx="5" ry="5" fill="rgb(255, 255, 255)" stroke="rgb(0, 0, 0)" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 280px; height: 1px; padding-top: 81px; margin-left: 671px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><div><font face="Helvetica">Preprocessing</font></div></div></div></div></foreignObject><image x="671" y="74" width="280" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABGAAAABICAYAAAC5voPhAAAcVElEQVR4Xu2dC7guVVnHtbwVZJYpIF7wkuSFRE3Nbh5F08RU1BKx9KjJzbSM1Ew0Ne+XoAgIRDmWiKaVYmFBykErzUxTyUQRIVIkNSxFBER8fz7fPM9qsWZmzcw33/n22b/1PO+z9zezrr81+5w9//2u973udSwSkIAEJCABCUhAAhKQgAQkIAEJSEACsxK47qy927kEJCABCUhAAhKQgAQkIAEJSEACEpDAdRRgfAgkIAEJSEACEpCABCQgAQlIQAISkMDMBBRgZgZs9xKQgAQkIAEJSEACEpCABCQgAQlIQAHGZ0ACEpCABCQgAQlIQAISkIAEJCABCcxMQAFmZsB2LwEJSEACEpCABCQgAQlIQAISkIAEFGB8BiQgAQlIQAISkIAEJCABCUhAAhKQwMwEFGBmBmz3EpCABCQgAQlIQAISkIAEJCABCUhAAcZnQAISkIAE5iZwYAxw6sRBPhntzwnjK3Za2BUT+7S5BCRQT+CiqHrLpPqn4/u965tbUwISkIAEJCABBRifAQlIQAISmJvAr8UAr1vyIOdHf4eFnbHkfu1OAhIoE/i/uPwDya3/ju93E5YEJCABCUhAAvUEFGDqWVlTAhKQgATGEZhDgGlm8lfxzdYwXg4tEpDAfAQUYOZja88SkIAEJLBJCCjAbJKNdpkSkIAEdiCBOQUYlnVi2CE7cH0OLYHNQEABZjPssmuUgAQkIIFZCSjAzIrXziUgAQlIIAiUBJivxfXje+hcL+7fJOxmYfcJu3lH/YfGvXdLWwISmI2AAsxsaO1YAhKQgAQ2CwEFmM2y065TAhKQwI4jUBJg/jGm8zMDpvQ9UffeYaeE3a7QjngUdwhD2LFIQALLJ7BfdHnjpNuvxvdnLX8Ye5SABCQgAQnsvAQUYHbevXVlEpCABNaFwDIEmGYtt4hvzgy7c2Fx94tr71uXRTsPCUhAAhKQgAQkIAEJpAQUYHweJCABCUhgbgLLFGCYKyLM5wuTPjSunTD3YuxfAhKQgAQkIAEJSEACYwgowIyhZhsJSEACEhhCYNkCDGOfG3bHbBLHxOdnDJlYUvdG8T1HmCgXhH29sh/+HyVODfFpLg+7KuySsG9Xth9a7Xujwe5ht1qM8cX4evFi3KF99dVnrNuG7RL2hbAv9TVY3KfNHmHE7rlscY22nwq7orKPmmqkRGbP4HH1wi6Mr/8ZdmVNBxV1VrG/xDpiP28TBvP/CftK2H+FLeM5mrv/CoytVTjSRCrrXRdr5jnh52hZhbXfIOyaJfe7rPnZjwQkIAEJbDICCjCbbMNdrgQkIIEdQGAOAeakWMdTsrVsj8/3z67tHZ9/J7t2ZHxuPGj2j+9fHHaPpM7T4vvjOjjxUveIsEcuviIE5IUYN28M+4swXqj7Ci+hh2WVTo3PCE2Unw07YjFe3hdxb94WRlDjD/cNFPd5IUWs4mtT/iy+ee/iw53i62vDfiG5T/+/3NE34sHhYY8JK8XoaZqSNvxPws6omGdbFfbsqS0smjafjm/+IGxb2FDRZ479zdeCOPXcMNaSC4lNXfaV5+fksKFH6+bo/+kxj5smC0EsObawSdR5TXb9j+LzRxfXOD74hLAnhZUCa388rvOzw7ovHfGcELD7wDCexVsm7YkTdc6iX57n5rmgLiJjU86Ob84bMa5NJCABCUhAAr0EFGB6EVlBAhKQgAQmEphDgEFs4MhRWv4lPhCoNy2ICKdn1+4bnz8WRh9PLKytS4BBCPnjsB8fwAThhBfQb3W0ISDx+7P7vxqfeQFHiEHwqSmIG4z3jY7KPxj3CKCalufEh1eF/WbYUYW2bQLM9aMuQsKLaiaX1EGg2ho25EUXkYc9S4WhvmF56YbHm/oqLu7Ptb/N8N8X3+Cl9YrK+TTVEK4QnfCM6Spz9l+bBQmB5d+zST4uPrMGnpXfq1w7HkCIKP9cWR8xB+GHn5u+wnPBz/7fhuEdkxb2B4HSIgEJSEACElg6AQWYpSO1QwlIQAISyAjMIcD8eYzxS9k4eHHwl/W0lAQYgvX+VlibqNEmwBwSbRA4xhTEoYeHcWSoVEoCDPN4dNgDBg6IuPGLYW3eA20CDMddXt0yVkmA4WX/rYuxBk7xu9Xx8MCrhpfgvoJXzvawrlTkXX3A4697Bplzfxma37nglT+3fWtv7uMZgodXm0fV3P1PEWAQjx4ftqV2sYt6PCP7hHG0rKvgdYXnSurxUjMUz8W7sooKMDXkrCMBCUhAAqMIKMCMwmYjCUhAAhIYQGDZAgz/d+E5kR91abw40qmVBBheZLs8WEoCDMcv8GKZUj4SjbeElVJllwSYKWN1HRkqCTB9TPL+SAuOoNHnjcJaS0e00rXhkfTBjsUSHwWPir5+ungxD/b8gpZKc+8vw/5u2Es7JlnD6i3RHm+SUpm7/ykCzJRn+e+i8UM6OuC4FUeLxopzedcKMFN2y7YSkIAEJNBJQAHGB0QCEpCABOYmsGwB5tkx4VcWJl3ycigJMG3r5cgDR3d+Oyz9qzgxJdoEgjfHvdPCEDAQJe4eRn08O0ovhByFKR2RqBFgOBaBl88Fi7EIdvvkMLwLSoXjNP9QuFESYNqYIAp8Lgyx5XlJpTbBgvrE1OHYCDE/CGZMgOP9whC2SoINx0EQRwhenBeY4iHzoMI94rz8fhixa+iD7FjEU3lBGGvPC0e8fq5wfRX7S1yULxfGRtji6Ne/hXFEjfgzeHHcK4wYNiWPjnvGdcS8tMzdP2MtU4Bh/mQs+2wYzwj7zx63eQftGfcIBF0qHJnj6FxeeBaPDiMuEt/jRQXXrS39NJcVYHoAeVsCEpCABMYTUIAZz86WEpCABCRQR2BZAgwZYvjrPyJE6WULQSKPkdEnwPAi+MywT4SVjuwgHuB9kXvb8EJHEFFitJTKXnGRF/7SC/Td4jqCTVq6BBjG+unFHEtj8VL5nrDcQ4RjTz8ZlmfS6RNgGI8AxxxlKr303jqul46EIIJwROaTLUz4nYMXZYSFvCCo5cGSqcORMgKy5oV4IjwLpQC7PCfPDyvFGsFbIhVCVrW/BHollk9aWBfPUB6DpKlDZqA/DTsga8cxuDxg89z9M4VlCTCsmbWX1k1sHDzZ8sK/Ia8vXCcL1mcK1zmiyDNcymZGwO13hrUdV1KAKQD1kgQkIAEJLIeAAsxyONqLBCQgAQm0EygJMAgfJS+FtBe8AcgOxIvSXcN4eW/LsNP20tQlwHCkCG+ariw5bQIAL3FNVpe2lRM0Fg+U/EWPl8+tWaMuAQaBpS+7UVv7g6Jt/uLfJcBsj/rE6mjzNmDaHKPhuEtaEF+YQ+llOOfzh3GhlC4cL448vgnBkvPjYohXeIF0BTVGhPlAGOzSQtwfPJaasqr93RYD5gGfEcf6AsziUZV7uyCMwTotc/fPWMsQYB4V/SCetZW2o20EvsbrKi/E1MmzcyGuELy36/n44bjP81HKQKUA07FB3pKABCQggWkEFGCm8bO1BCQgAQn0EygJMP2t6mtwFAWB5qpCkzYBBu8UgvG2eR/QFf9HEluCrC5p4a/0ZHOpKYyxPauIh8lNwlLPlDYBpSTWtI1behnlKBXBf9PSJsAwLwSu0lGZpj2BdzkqlHvb4EXEcY+a8v1RiWDEeR94cbCGpiBQ8JKcl7ajVXm9B8aFM7OLpNfmiBlllfuLh1IeTJlnsyYAcS5CnR/tbp+ta+7+GW6qAPPu6OOhFQ/IY6MOsW7SgkcL19NSEqe4zzPMsbm+gkjDEbC8KMD0kfO+BCQgAQmMJqAAMxqdDSUgAQlIoJLAnAIMogEBOv+pZS5tAsy+UZ8X267yo3ETcSctjLd7WFea57R+W8Dg/BhSmwBTOq7UNueSYMH8984atAkwvx71ju1hwlGoUlyZ/GhP36NxUlTgiEhajosPxIlpCjFnXpLVKa2nbawbxo1vZjfTVOWr3N9S1i7mwrPbltWomTpiHaJVU1hT3mbu/hl7qgBT4zXGOAgoxIZJC3F+iCOUFtLQk5Y8LRxT4t+bmoKXFN5UucCqAFNDzzoSkIAEJDCKgALMKGw2koAEJCCBAQTmEmD4izov8Rd3zKUkwKQv4V3LIFguMTjSUvtX/LQNMU/wEEkLwUbfnlwoCTAlT5mu+XJkixfz3LPk+nEtPY7RJsDcOOqVMjSlY5K+Gy+StJTSf/c9Hm3ZqRCcmkLg3/2zjl4Wn9NgwH3jEHQXAaMpeO80x35Wub8ISxyjyQuC0pFhrPXyvsV03J+7f4aeIsAQF+guletry9KVPht0RfDiZ2V9chyp5NXSNvThcSMXHRVgKjfKahKQgAQkMJyAAsxwZraQgAQkIIFhBJYtwCCgnBxGMNKuI0TMsvSi/7q4fnDFEsg6hFdIWvgLOwFehxSyFL0oa8AxmFTIKAkwXamk28Z/R9wgzkla9ooPadDc0gsuGaBI99xXiCfDUaG0/Ep8OKWvYXa/FMiXODLE/GlK/sLPdY50vW/gWG3VV7m/+8Qk8sDL+byIjXJWGDFeqNsVwyRvO3f/jDdFgBnyLOOZkq8dHrkAU3rWu7IllZ6D0r8PCjBL+gGzGwlIQAISuDYBBRifCglIQAISmJtASYDB04IAuDXl6qhETAe8BRAK8qw+XX2UXrBy8aOt/V/GjTwDTc18a+q8PCqlgWxLAgxZfEjpPKSURAUyE21POikJMH8T9x9WMVAp1sgYUYQjNZcVxiMIK6Ja6SWc6gg3F1XMs6bKKveX+ZDliX2vKfx8EB+GGDanh32+otHc/U8RYGpFT5ZZK8CcG3XzILpDf68lwHN+FFEBpuJhs4oEJCABCYwjMPQ/qnGj2EoCEpCABDYzgWWloR7DsCTA1MQ6YSw8LfoyNY2ZE204lnRE0rgkwJD1iYxBQ8oLo3Kefjn3UCkJMHhfkKGmr5SyEhFL5by+hoX7Je+lXaIe8XV+KKwUG6W5P2K4azVZ5f42gw8RSdIJb48PeEwhlHV5fc3Z/xQBhoxjv1G5aTUCTKlO7kFVMxzZkPLU9QowNeSsIwEJSEACowgowIzCZiMJSEACEhhAYKMKMCWxYcCyO6vmaXVLAgxpi/MYNH3j42HBS3ha8rgYUwQYvE/ytNrEWPnfvoll94lLc2WhTeMBUzqiRPVl/t6yyv1Nl4rXBV5YxKAZWt68aNflBTZX/1MEmKNi3sQPqik1AsyPREdfyjobEmemaVryxFKAqdkl60hAAhKQwCgCy/xFZtQEbCQBCUhAAjs9gY0qwJACmcxCefngEnbsDdEHxzKaUhJgnhQ3tw0ci4C4eLykhdS/BA9uyhQB5l+jE7LZpGXMsSBidXCcLC3pC3TpBZu6eUDhgXj+X/VV7m9pnmSOIlU2+0Pcnjx4ctva0lTaXetfdv/rJMDsGgvPA0bXxjHKn900PhL3FGCm/FTZVgISkIAEOgkowPiASEACEpDA3AQ2qgBTysJDQF1SKC+7lASY2lg16VxIEU2q6LTwOU3TPUWAIdjuQT3917D5iahEMOW05MegSkF4CRScCzc145XqrHJ/++bI72N3CuPI24PCHt3T4D5x/0N9nSb3l9H/OgkwrKfkBTRUoLtXgaMCzIAHy6oSkIAEJDCMgALMMF7WloAEJCCB4QQ2qgBDpqWt2XJfGZ/zIz7DiVy7RUmAOTqq5emr+8YizfLNs0p5eukpAgzxZV6Y9T809S/N4QrftJBW+DnJhZKYhEdSk0a6jwX3SfdNnI+mIN4QR4Wyyv2tmWta5wbxYUsYcYCIY5QX0k4fN7TTpP6Y/tdJgGEpJYGO43E1AYsbFIicr844KsBMeLBsKgEJSEAC3QQUYHxCJCABCUhgbgIbVYBB/CBYblo4ysORkSGFv7LvmzXAk4Rgs00pCTBkfdp7wEB4UHCMJy2kNKbvtEwRYDjexDGntJwYHw4ZME+qnhGGp0daDosPpBZvCp5GT8nqsCcIUzWlFMg35bGq/eWI1oOzCb89Pl9asQh+TyOAbZ4OfVtc44gaZe7+m2mumwBTEujy43Z9iEvH0BRg+qh5XwISkIAERhNQgBmNzoYSkIAEJFBJYKMKMBzzKMV7uUNc/2zl2m8U9T4TlgeuvV1cI7V2U0oCDPdIs0v7mlLy6Cilsp4iwOCBwktrXnaLC2ShqSl7RKUvFCrmR6XwhnlFVu/8+EzWpZpU5CWxiNTfTSroVe0vwXbzYMp4tZBmuqbcIirlXh2pkDR3/80c102A4dlIPaaY53vD9quBGnVKKahpqgBTCdBqEpCABCQwnIACzHBmtpCABCQggWEENqoAwzGNL4flwVHx0sBbo6aQejf32EDUuW/WuE2AwdvkCRUD7RV1UkGnabIlvjk7az9FgOE4E8d4cibPi2svq5gnVRBBXprVLTG5a9T5RKFPvEnwoOkqCF8EDL5zVonYM1ynrGp/Sy/6L4nxn1/Jq5QRimxIj1+0n7v/ZprrJsA8LCb2rgLDmvg4ZNsiDXkeL4nuFGAqH0yrSUACEpDAcAIKMMOZ2UICEpCABIYR2KgCDKtEWOBlOS9b4kIubOR1ePlHWMjFisPj2vFZ5TYBhmqPDHtnB/Kbxj0C2BLANS+k2b08uzhFgKGrkqjE9Rph5DFR722FebZ5hJSOISEA3T/svA4mJe8IsuZwLOnqpN0q9reUcpu54ElV4zXE8aNjsrWmz9Dc/TdDr5sAc72YGJ5Becwjju7t3/F8wIufv/x4W7NOBZiOHyxvSUACEpDANAIKMNP42VoCEpCABPoJbGQBBnEDz5JSimBejI8tLJ//Ww8NKwVJRTzYJ+yrWbsuAYaqBF1FjLgya/dj8ZmgshxpyssRcSGPYUOdqQLMDaMPYs2UxuxKnY3IcnphnmRDwmvhmsI9jm5dVLiOcPHzYR/L7uGhQ6Bk+OeFYKvPzi6uan85bpTHgWENjw3bXpgrl3iOnhiWByvmHqnAP5q0m7t/hlo3AYY5PT2MGDl5QeDCc+zvw76+uInXC2m/jwwriZVNHwowLQ+klyUgAQlIYDoBBZjpDO1BAhKQgAS6CWxkAYaVtR114B5/bSfFcyMEIK4gphC7pVQ4elSKK9MnwNAXL+xvDUO8wZMD0YIAv6WCRwypjEuixlQBhvHom0CypYI4Q5yYc8IQawgOTFyOPA5O0xa+TWaiUn8cV+LYUqkQE+b9YcSUwaPkIWElsewjcZ3jJt8sdLKK/W2LN8J03hLG/Ij1c3EYWZvwnjo4rPQc4Q11QFi6t3P3zzzXUYDBC4Z04rm4lW4zz+NlYYiVpWcjfyQUYFp+2LwsAQlIQALTCSjATGdoDxKQgAQk0E1gowswrK7tqMqQvW/zSKGPGgGmdixECWKdtGXZWYYAw+8PiEGkeZ5SatJ67xoD4DnT5bXQNQe8Ie4WVoqR07Sbe38Zh+C/U1OYI8IhznylsOC5+19HAQYMCFaIWHlWrZrncntU2pJVVICpIWcdCUhAAhIYRUABZhQ2G0lAAhKQwAACO4MAw3KfHPb6AetOq3IkhnTNJY8U6pUEGOKY4LUxRHjgBR0vkPR4Sj7lZQgw9In3wQkLLmOwsL7nVjZEhMHjpsvTodQVYhTHogi42lfm3F/GJh4Pa+Ao1pjC3j4irORBtYr+11WAYe38Pss+E/C6xsuFNsR2Iq08GaXSQmyYN4zZINtIQAISkIAE+ggowPQR8r4EJCABCUwlQLaWN2WdnBmfieExd9kSA5y1xBcsvA9eE1b7Ek2WFo7PcBynq5QEGLwyXhv24rA8dkmpL1JOU5/jFl1ll7jZxMVo6tVmWyr1+/C4eFRYKSZMqT4xX4if86GBm8/vLDxLrDEPvJp3hVjxgjBepK8aMM5c+9tMgTUcEpYHYe6bIhmTiOfzjZ6Kc/ZPLJ70GBni1u0L8+E5yNO0D8n6RKyWNFAyQ6Rpt7sQ7Bk3SU1NuvS243lvjHuIoRwdfEDYe7IOEblO69sQ70tAAhKQgATGEFCAGUPNNhKQgAQksNkJENeETCs/FcZL6R5hvPTzkooRd4I4LF+sBNUmwDSpnTlm8bgwjtLsFbZb2IVhCDuMhchERpgdVfCGIb4NTPZd8Ng9vhKv5pIwYpvwwkuw2HMnTpIX9HuHkQkJ9rC4Iox4PLz4kx3p42F9YkXXNJa9v/lYBAtGJLjfwnh+braoRCwY1sBaMJgN3du5+5+4hStpTrajvcOa55CU8jyHPCtNKcUywuuMZ9UiAQlIQAISWDoBBZilI7VDCUhAAhKQwGACfQLM4A5tIAEJ9BIoxc0hWO9UkbB3YCtIQAISkMDmJKAAszn33VVLQAISkMB6EVCAWa/9cDbrT4BYRgdm0/xUfD57wNQ5BpcfVeKI3hTvqQHDW1UCEpCABDYbAQWYzbbjrlcCEpCABNaRgALMOu6Kc1pnAnePyZG+Oy0cA9wr7PKKiZdSd3Ns8FEVba0iAQlIQAISGEVAAWYUNhtJQAISkIAElkpAAWapOO1sExAgFhAxhvKsR0+Nayf1rJ+sWnjK3COrd1B8PnUTsHOJEpCABCSwgwgowOwg8A4rAQlIQAISSAgowPg4SGA4gZOjydas2dfiM1m2TgnLsylRlQDOZP26Y6HdbeLapcOnYQsJSEACEpBAHQEFmDpO1pKABCQgAQnMSUABZk669r2zEnhgLIyU9qVCVqwPhH0ujFTkZEN6cEF4adoeEN+8Y2cF5bokIAEJSGA9CCjArMc+OAsJSEACEtjcBBRgNvf+u/rxBA6OpieMb/7dlseEPWNiHzaXgAQkIAEJ9BJQgOlFZAUJSEACEpDA7AQUYGZH7AA7MYFnxdpeNXJ9h0a7E8OuGdneZhKQgAQkIIFqAgow1aisKAEJSEACEpiNwD2j5w9nvT8zPh8924h2LIGdi8CtYzmHhT0tLA/Mm6+UODHbwo4P+4+dC4OrkYAEJCCBdSagALPOu+PcJCABCUhgMxHI/0/2L/Kbafdd67IIkOHoLmG3CiOo7p5h3w67OOySsAvDiA3zrWUNaD8SkIAEJCCBWgIKMLWkrCcBCUhAAhKQgAQkIAEJSEACEpCABEYSUIAZCc5mEpCABCQgAQlIQAISkIAEJCABCUigloACTC0p60lAAhKQgAQkIAEJSEACEpCABCQggZEEFGBGgrOZBCQgAQlIQAISkIAEJCABCUhAAhKoJaAAU0vKehKQgAQkIAEJSEACEpCABCQgAQlIYCQBBZiR4GwmAQlIQAISkIAEJCABCUhAAhKQgARqCSjA1JKyngQkIAEJSEACEpCABCQgAQlIQAISGElAAWYkOJtJQAISkIAEJCABCUhAAhKQgAQkIIFaAgowtaSsJwEJSEACEpCABCQgAQlIQAISkIAERhJQgBkJzmYSkIAEJCABCUhAAhKQgAQkIAEJSKCWgAJMLSnrSUACEpCABCQgAQlIQAISkIAEJCCBkQQUYEaCs5kEJCABCUhAAhKQgAQkIAEJSEACEqgloABTS8p6EpCABCQgAQlIQAISkIAEJCABCUhgJAEFmJHgbCYBCUhAAhKQgAQkIAEJSEACEpCABGoJKMDUkrKeBCQgAQlIQAISkIAEJCABCUhAAhIYSUABZiQ4m0lAAhKQgAQkIAEJSEACEpCABCQggVoCCjC1pKwnAQlIQAISkIAEJCABCUhAAhKQgARGElCAGQnOZhKQgAQkIAEJSEACEpCABCQgAQlIoJbAdwCvo1uUex6HUQAAAABJRU5ErkJggg=="/></switch></g><rect x="692.25" y="117.79" width="237.1" height="259.2" rx="23.71" ry="23.71" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe flex-start; justify-content: unsafe center; width: 235px; height: 1px; padding-top: 125px; margin-left: 693px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;">Core2Core</div></div></div></foreignObject><image x="693" y="125.5" width="235" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA6wAAABECAYAAACFxLg2AAARRUlEQVR4Xu3dCbAcRR3H8UAQMOUFFOIBGiIgCCIBBBGhnheXYCkCgopEPCN4cQhERO5CuaQKjQWlBlFQETUBFEQlxRFuwSuCyCERBQS1FBTEqL9fMVOvXfeYnp7ZnTf77ap/vc3b6Z6ez3RB/V/39KwwjYIAAggggAACCCCAAAIIIIBAAwVWaGCf6BICCCCAAAIIIIAAAggggAAC00hYGQQIIIAAAggggAACCCCAAAKNFCBhbeRtoVMIIIAAAggggAACCCCAAAIkrIwBBBBAAAEEEEAAAQQQQACBRgqQsDbyttApBBBAAAEEEEAAAQQQQAABElbGAAIIIIAAAggggAACCCCAQCMFSFgbeVvoFAIIIIAAAggggAACCCCAAAkrYwABBBBAAAEEEEAAAQQQQKCRAiSsjbwtdAoBBBBAAAEEEEAAAQQQQICElTGAAAIIIIBAmsCmqr6d4oWK5yjuUfxM8XPFbxTL05qnNgIIIIAAAuMrQMI6vveeK0cAAQQQSBPYXdU/pXDC2qs4cZ2juCXtVNRGAAEEEEBgPAVIWMfzvnPVCCAweoHV1YXZipmKWYoZiocUDyhuUHh27j+j7yY96CLwDP1uvuJtETrH6tgTFP+MqNPvUMZPRZA0gwACCCDQbAES1mbfH3qHAALtE9hYl3SAYu6AS3tQ35+hOFPxV8U7FecoDlGc2j6WKXNFK6mnixQ7Bz1eqM8nK5Yq/qxYU+H7/GHFm4PjTtfngxKvlPGTCEh1BBBAAIGpJUDCOrXuF71FAIGpKzBdXfcs27zIS/ibjney6tm8PRXXKF4V2QaHVydwkpo6LGvO92YnxZI+ze+h776keHp2zK76eUmJ7jB+SqBRBQEEEEBg6guQsE79e8gVIIBA8wW8hPSrit2CrvrZxrMVlyqWKbwxz0zF+orXKg7ucVk36vdbNf+SW9nD9XRVd2RX5mR1W4WXbg8qr9MBlwf1vDmTZ2KLFsZPUSmOQwABBBBonQAJa+tuKReEAAINE/B/Zy9SvCHol5eKeqlvv2dUX6DvvaHP/h3XQ8I6uhsczq7uq274jxBFS1g3ZpaV8VNUmOMQQAABBFopQMLaytvKRSGAQIME3qu+nJX1x8+lOnG9KaJ/e+vY84PjSVgj8Co+9Eq159fX+D6uo4jZQMmzqvdk/TlGP48u2DfGT0EoDkMAAQQQaKcACWs77ytXhQACzRCYqW7cHXTFzzNeWKJrH1Od07J6JKwlACuq4hlvL9X2plnnlmjTm2f5WdbvK3YpUJ/xUwCJQxBAAAEE2i1Awtru+8vVIYDAaAVO1OmPyLpwmX56g54y5Wmq5GcmXVIS1pVVf0PFSxV+VtYzhX6W9peKmGcqy1xDrzprZX1ZTT/vUvxa8UTCCVZR3Q0U3k3XP+3m63Pcl9BuFVX9yqJnK4omrIyfwerjNH4Ga3AEAggg0EIBEtYW3lQuCQEEGiHg5NDvVc13h3XylG/YU6aD31YlvyLFm/fsENmAlyF7h+LN+9T7nb7z0uVPK2KWurrJFbO62+inX/vSWbzL8fUdv/Q1+BUvO3b83v3wq3u+EXmN3tDqeMWmfeo5eXWy6FlSn2eYxUuI781OaOPDB5yc8TMJxPgZ5kjlXAgggEDDBEhYG3ZD6A4CCLRGwEnixdnVHKefRyVe2Raq/xHFAsWPC7b1LB3nd3/OKXi8D/OMqzcU8s+i5fk6sF8CGG4y5JlU92m/AY17CbQT134bU7kJz7B9VuFnfYsWJ67e+MrvtR3UftE2Bx33NR3gVxO5uK+DEnLGz6Qo42fQ6OJ7BBBAoMUCJKwtvrlcGgIIjFTgSJ3diaqLZx6vG3JvXqnzfUfhJah5+bo+eOMgJ6N3Zt95RnK2wrOdYTlU/zglos+uv7Ui///K8/TZr31xyROOl+uzk/iwT17iPF9xv+KNig8E5/Trffol535djGee81lsV71AsUjh2Ww/P+zl1H4dzSYKPwu8dtC+Z1v3UjwScZ1lDt1Zlb6XVVyqn5spBi17ZvwwfsqMNeoggAACrRMgYW3dLeWCEECgIQJfVj/mZH3xrOJfhtivNXQuJ0Z5YujZTy+rvKJPH/waHS8JDpfoztW/v1Cy306Ef5rVdcK6quJbQVt+ftY+ThrDEu6K7IR3SY/zOyG+TZEnq/6DgJf69jrezcxQHKjwkty8eHbWiWxdxYmy+5T3c3t9vqrAyRg/jJ8Cw4RDEEAAgfYLkLC2/x5zhQggMBoBJ4cTCieLfn5xmMXLTT1z6PJNhV+N4h1qBxX/P8FJ6ueCA7fU55sHVezyfZiwekY3fLZ0YdanP/Zo17Og0xW/7fG9n5n1jGWeXHtWdR/F8oL97Ewi+yXGBZvsetgs/fZaRf6HgyLPruYNMX4mE9ZxHT8pY4+6CCCAQGsESFhbcyu5EAQQaJiAE5VXKIruCFtV99+qhrz018W77npH4L9HNu4luvnS3MX6/OrI+j48TFjD6n41jJdKpzw76tfKnJk16iXFEyWu0cuJvYGVi3cmfpnisRLX2avKuvrCy6/zJci+J29X/LvgORg/kwnrOI6fgsOEwxBAAIH2C5Cwtv8ec4UIIDAagTzhuEin97OZwyrLgiTJCXPn7rxF+uHlq7cqPEPospXCiWFM6ZawvkMNePOh1HK7GvCuyy7e8On3JRsMnxP1jLRnaqsoncmqZ5Tdfszuy4yf/09Yx2X8VDEGaQMBBBBojQAJa2tuJReCAAINExhFwrG6DB7OHDwD+aEEk3CXWs+K+rU4MSVMWL0r7y6Kq2Ma6HGsk+l8efOF+rxHQpvhq2aq2MnZXdlIsViRLwO+RJ/fong8sp+Mn8mEdZzGT+Qw4XAEEECg/QIkrO2/x1whAgiMRiBPOLzLrXe7HUaZ0EnyjZWcyDmhK1u8UdSfssplriFMWPdUO+GGS2X75Hre/fiarAE/E5rarq/NSbBnQd+U0jHV9XtuF2ftuSnPrntmtcxSY8bPZMI6LuMncfhRHQEEEGinAAlrO+8rV4UAAqMXuFRd8KZAnh16piLlmc2iV+P3tHrXWxcvmfWrXVJKvrzYz3i+OLKhzl2CPdNYRfmgGgk3haqiTbeRujnWdmrDz6zmxX8s8HtXY5YBh9fC+PnfXYLbPn6qGse0gwACCLROgIS1dbeUC0IAgYYInKZ+5K9LmanPvXa8rbK7TuSc0LmspCi6a26vPtygL/zu1CYlrPPUnxOqRAva8jtbHy3RdvieVVc/T7Gf4l8l2sqrMH7qSVibOH4ShglVEUAAgfYLkLC2/x5zhQggMBqB9+u0+TtMvemSl4fWXU7SCQ7LTpKyGVHeT79H1TOlfq2Id9GNKXXNsL5HnTg764iXBBd5p2mRfv8ja+uJIgcHx3i5ql8dlJcv6oN3WE5JVt0W46eehLVp4ydyuHE4AgggMH4CJKzjd8+5YgQQGI6AXwXj5yNdTlccNITT+hynZufxJkd+pU7Z8lRVzF+Hc1aWQMW0VVfCGm4Gdbw69MmYTlV87P5qzwlqXj6vD97oquira/p1h/FTT8LapPFT8XCkOQQQQKCdAiSs7byvXBUCCIxeYBV14V5Fvlusl9beVHO3wneLHqVzeefbsmVrVbwuq+zZPietMaWuhDXcCbnMUuWYa+h3rJd7e9luXvz5EEVVzyozfupJWJsyfqoah7SDAAIItF6AhLX1t5gLRACBEQocoHP79TIuTq42U3jpadmyuyp65vQUxW1dGlk1aN+bPb1E4c2EYst0VfihYiKrmPoe1l3VTlWb5rhLP1K8Jutb6kxyrI2P92t+jg4qHtPx7zJtdqvD+HlSpW3jp6rxQTsIIIDAWAiQsI7FbeYiEUBgRALe+GixYtvs/H7m8vCSfTlU9T6T1e2XIDmZPTg77nL93EkRu0Q13G34J6rv2dbYZzLrmmH1pfk1QU6oXZyYz1bcWdI1ptqKOti++WZarutNrubHNBJxLOPnSayqE9ZRjZ+IW8+hCCCAAAK5AAkrYwEBBBCoV+BFav4Whd/16fJxxcmRp3QC6kQpL9voQ75ct7OpNfSLu4PzOUF2oly0eDb1+uDgjfS522zuoPbqTFh97kWK3bJOeFMo/1HgkUGd6vL9xvqd/xjwkMJLensVJ4/eROvdwQGx7wfdRHXfpfAmTaFxv24zfqpPWEcxfkoMTaoggAACCFiAhJVxgAACCNQv4OWrXsaal3P0wYnrgwNO7eTTs3dOjPJyoD4Meg9puLGM6y1UzFX8oc/5nqLvnNweGxzjDYTyJc2xSnUnrH4W8UbFrKxjd+mnZz6dyBYpfrb4o4ojgoOfq8/396gcvjLIh/ieXlHkRMExC/TZr7u5TOGZ76KF8VPtknK7D3v8FL3XHIcAAggg0CFAwsqQQAABBIYjsLdOc35wKi9l9azpdxWeIQzLevrHvgonYPnMrL/37NyCgt0NX4viKj6fX3mzRHG74jGFl7iuq3ByeaRi86BtzwLuoxi0nNj/H9lR4ZnAzmtwQujihPnmAf1epu/t83jB6/NhdnLSuHZQx8ug7forxX1B/9fU5/UVGyj83Gv4RwBXv0CxV59z+zwT2ffeffnaiH7mh/qPDU6Uvcx6i8j6jJ/+YE0fP5G3m8MRQAABBHIBElbGAgIIIDA8gR10Ks+Y5rOC+ZmdTHoZr5edrqMIk1Qf442TvBT1B5Fd9btTv6JwQtpZPCPZ2Q8f4754s59zC57LSe6gZLRgU9PKvK/Ws9BOdF/f4yRLe5iG9p/QPzyD2i85DxPWotfT67gyCavbYvz0l2/y+EkdM9RHAAEExlaAhHVsbz0XjgACIxJYWef1TKmX3uavvOnVFS8ZPkPh97iW3V3Yr0eZp/BrbgYVzxy+TxGzs7BnLq9WeOYypTiB9jLZO0o04v+XOVk5UeGdkYsUJ41+JvU8xaMFKlysY7zUuopylRrZvmRDjJ/ucE0fPyVvN9UQQAABBEhYGQMIIIDAaAQ8m7qlws8nejmtn5/0El0ni35/q2f0vHx3eUXdm6F2nMx5ttWv19lQ4ec1vSGUlyT/QvFARecaZTO+Lu8C62tdS7GawrPGvjZf762KKxUPj7KTFZyb8VMBYpcmxmX81KNHqwgggEANAiSsNaDSJAIIIIAAAggggAACCCCAQLoACWu6IS0ggAACCCCAAAIIIIAAAgjUIEDCWgMqTSKAAAIIIIAAAggggAACCKQLkLCmG9ICAggggAACCCCAAAIIIIBADQIkrDWg0iQCCCCAAAIIIIAAAggggEC6AAlruiEtIIAAAggggAACCCCAAAII1CBAwloDKk0igAACCCCAAAIIIIAAAgikC5CwphvSAgIIIIAAAggggAACCCCAQA0CJKw1oNIkAggggAACCCCAAAIIIIBAugAJa7ohLSCAAAIIIIAAAggggAACCNQgQMJaAypNIoAAAggggAACCCCAAAIIpAuQsKYb0gICCCCAAAIIIIAAAggggEANAiSsNaDSJAIIIIAAAggggAACCCCAQLoACWu6IS0ggAACCCCAAAIIIIAAAgjUIEDCWgMqTSKAAAIIIIAAAggggAACCKQLkLCmG9ICAggggAACCCCAAAIIIIBADQIkrDWg0iQCCCCAAAIIIIAAAggggEC6AAlruiEtIIAAAggggAACCCCAAAII1CBAwloDKk0igAACCCCAAAIIIIAAAgikC5CwphvSAgIIIIAAAggggAACCCCAQA0CJKw1oNIkAggggAACCCCAAAIIIIBAugAJa7ohLSCAAAIIIIAAAggggAACCNQgQMJaAypNIoAAAggggAACCCCAAAIIpAuQsKYb0gICCCCAAAIIIIAAAggggEANAiSsNaDSJAIIIIAAAggggAACCCCAQLoACWu6IS0ggAACCCCAAAIIIIAAAgjUIPBfGUNfcuCXn4kAAAAASUVORK5CYII="/></switch></g><rect x="701.37" y="142.48" width="218.86" height="37.03" rx="5.55" ry="5.55" fill="#d5e8d4" stroke="#82b366" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 217px; height: 1px; padding-top: 161px; margin-left: 702px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Helvetica; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><font face="Courier New">tagData</font></div></div></div></foreignObject><image x="702" y="154" width="217" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA2QAAABICAYAAACZbjYYAAAQ6UlEQVR4Xu3dC9Bu1RzH8W5uGdcS4YhKUUM6BiXD6Yght9IpR0gjNTTlMkblVielm0ZSaoYaLymUSkIZ0kkMMggp3UcundNomnIpFH6/mb3MnsdzWXu9a+/9PM/67pn/PM/7PGvvtddn7znn+c9ae61112FDAAEEEEAAAQQQQAABBBDoRWDdXmqlUgQQQAABBBBAAAEEEEAAgXVIyLgJEEAAAQQQQAABBBBAAIGeBEjIeoKnWgQQQAABBBBAAAEEEECAhIx7AAEEEEAAAQQQQAABBBDoSYCErCd4qkUAAQQQQAABBBBAAAEESMi4BxBAAAEEEEAAAQQQQACBngRIyHqCp1oEEEAAAQQQQAABBBBAgISMewABBBBAAAEEEEAAAQQQ6EmAhKwneKpFAAEEEEAAAQQQQAABBEjIuAcQQAABBBBAAAEEEEAAgZ4ESMh6gqdaBBBAAAEEEEAAAQQQQICEjHsAAQQQQAABBBBAAAEEEOhJgISsJ3iqRQABBBBAAAEEEEAAAQRIyLgHEEAAAQQQQAABBBBAAIGeBEjIeoKnWgQQmFuB3dWyCxRHKQ6f21a227D1dfiLFK9qWM0NKn+z4puK8xVrGu4/DcW5f6bhKnAOCCCAQIcCJGQdYlMVAggUIXCGWrmf4hbFFkW0OH8jN9Qh/5bhsCfpGEcq7s5wrK4Owf3TlTT1IIAAAlMiQEI2JReC00AAgbkRWFBL3qr4g2LJ3LSq+4bspiq3VzxWcVBV/ZV6XT3iVB6lzzdTvG7g+zv0986Ka7tvQlKN3D9JbOyEAAIIzK4ACdnsXjvOHAEEplOAH9R5r8smOtza6pD769U9SOM2966tVJxZK/QXvV+quCnvqbVyNO6fVlg5KAIIIDC9AiRk03ttODMEEJhNAX5Q571uTROyUPuWeuPnyJ5dffBTve6k+Ffe08t+NO6f7KQcEAEEEJhuARKy6b4+nB0CCMyeAD+o816z1ITMZ+HeMg9zdO+Yt1UKP1M2zRv3zzRfHc4NAQQQaEGAhKwFVA6JAAJFC/T5g/rRVfLxFL0+SeHZCm9TeIIRD9f7U+Yrs4GO9wzFdoqtFB4a6GfnrqkiR3WLSchc//MUV9VOZFO9bzr74nraZ2vFNgrv73O6q3K9Va+e3fG+HI3VMUq6fzKRcRgEEEBgtgVIyGb7+nH2CCDQr8CLVP0xisfXTsOJSdj8Qz1mu1+FPqM4OaZwrYx7gF6ieIVimSIMzxt1mHP0xUcUTtAWsznZ+7RicAKN+jF/pT9OVHxR8R/Fm6u662WcxJynOHrMySw2IfOhT1O8s6rjeL0eFtF4J5p2XV7ZPmLMPp445NCqrb6WsVup90+sD+UQQACBIgRIyIq4zDQSAQRaEnDC8b5Mx246Tb4TsYsV4xKFUae2j744K/G899R+njAjtl6f49sVb1McO6LOcf8X5UjINlK97snyObsX75ET2v4Nfd90DTQf0s+p7aK4J9K2xPsnkoZiCCCAQDkCJGTlXGtaigAC+QWeqUO6Z8Q9VWFzr0pIVtz7E7O5p+hchROB2M31Hlcr7KGCX1dcrvDiyP7bvTVPVHio3fsVHr4Xth305iexlVXl3Ct2YG0fTyXvWQ+vVlyv2FjhXjpPM+8ELGwu58WafQ7ePNnGAwqfnxO2L485jxwJmQ9/hGJVVY/P884RdXoY5uDEHz7Hy6p2XqfXvyqc5Lmn0NPz+1qE7UK9WaH495g2ha9Ku38iSCiCAAIIlCdAQlbeNafFCCDQrsCCDt/FOmRPUD0HKP6o+L7ixohmeT2vU6pyHk7p56JiNycZ9QTzBP3tJGfUs1PuwfNwxScPqeBB+ix2aF+uhMzDK79WncuOev3xmIbvoe+cxP5I8UPFvROQPGTV1yAMV7WVk86UbUE7zeP9k2LBPggggEARAiRkRVxmGokAAh0KdPWDOrVJ4fy8v3vPbo84kJMiTwoSev521ftLIvbzYs3uGfN08/Wtj4TM0+CHpNUJzxcizr9JkaercHhm8FS9P7jJzrWy83j/JFKwGwIIIFCGAAlZGdeZViKAQHcC0/6Dut5T9EqxXBpBc7bK7F2V+7heD4nYJxSpJyrhsz4SMs84GXrl3LP30QZtiC36GxV0z5qfJXt+7E4D5ebx/kmkYDcEEECgDAESsjKuM61EAIHuBKb9B/X2ovh5xfFavfr5qHGbk6d/VgU88cizFH9vyFkfKuld+0jIXK9ne/TmZMxJWe7NQyKd8HqGSS8FkLItaKcuhiymnJv3aXr/pNbDfggggEAxAiRkxVxqGooAAh0JTMMPaq+b9RiFJ6fwBBT1CSaa/qDeVvt7XTFvTqw8sUfT7SHaof6s2SwnZJ7A5WGV6z8GIOYlIct5/zS9VyiPAAIIFCdAQlbcJafBCCDQskDXCZl/PL9a4eGHT1N4iODmA230VO9+fspD6pwc7VV9H9NDtlJlv1SVX6bXKxL9fqn9wjppfSRk/v8uJKar9P7IiHb4GTtP2e+k1LZem2xwun/PZvlrhWeSDEsgzFIPWdv3TwQzRRBAAIGyBUjIyr7+tB4BBPILLOiQXQw58w9pD49zcjFpQehRrYxJyD6mnT9YHWDcdPGTJD2tv9cw89ZHQuaZENdU9Xvq/tPHnLCns3dy9d5JjRrx/SwkZF3dP4mE7IYAAgiUI0BCVs61pqUIINCNwIKqaTsh87/dn1e8ZaBJ7q1xL5gXQf69wsMEvQiyZzv0mlcvVNR7eGISMvckHV7V46TmjkTGr2i/0DPXR0LmSTbCumtOZL1m27DtBfpw2JT4nqjDro61iodWrjbxsT2ZR9imPSHr8v5JvF3YDQEEEChHgISsnGtNSxFAoBuBBVXTdkL2YdVxVK05q/XePVnfndBE/5vvhau/VZWLScjcq+XeLW8vVXwvkTHMQOjd+0jInFSGYYrP0XsPoRzcnLQ6aQtJq4d6nqg4TfHnCe1+uL53krdcMe0JWZf3T+Ltwm4IIIBAOQIkZOVca1qKAALdCCyomjYTsh10fC9YHDY/P+a1vmK3ppN6+Lmp66qDewjfJ2MrqpXzJBj1mRm7Tsg8PO93Ci9S7V7EzRT1iU7CqYZJOfy3Td+kuLtBe2dhUo+u758GfBRFAAEEyhQgISvzutNqBBBoT2BBh24zIav39Lj36qsNm9I0IdtAx/dsjd6czHhonnuOmmwfUOFjajt0nZDtq7o/V9Xv8/jQkJN3suZhnt48PHGZoun0/rOQkHV9/zS5TyiLAAIIFClAQlbkZafRCCDQosCCjt1mQnZ5lSw4OVqS0I6mCZmrOEOxX1XXqXo9uEG9XrfMQ/jqW5cJ2aaq+HpFGIbohDL0+NXPaQ/9EZLbffT+rAZtDEVnISHr4/5JoGQXBBBAoBwBErJyrjUtRQCBbgTcE7Ovwr1InkwjLEacq3b34rg3x89y+ZmuJpvXJvPkGi+rdop5hsxFvd9vFZtU+63Q6/kRFT9OZS5VLB0o21VC5vP283IepufNz5CtGnHeb9Tn51TfvVivV0a0r17EJudVHyzmGbJ5vH8aUlIcAQQQKEuAhKys601rEUCgfQEPhzu6qsbPX7l3Jud2gQ62u8IJnxOewcWJR9W1pb7wc1Fb1QrEJmTexeuchclA/LenjT9E4YWnh21+ts0JzuC6XS7bRULmNcQuUYQlAZwkeTbEUV71nsN3qdwpkRfNz6d5SGa45t5tMQnZvN4/kZwUQwABBMoTICEr75rTYgQQaFfAsxg6EfD2HcWuivsjqtxaZd6jeIfis4oDRuxzmD4/tvouZvigp2d/t+K4IcdrkpB5dz9/5eQjbLfojaff/4XiBoV7pDyDoWcaDGuOuayfyfIMkGHfNhMyz3bohKr+zJrP8+WKm0eY+uMHK0Ky5mTXvXo3jSnvr5zEOXHbaaDcYhKyeb5/JnDyNQIIIFCmAAlZmdedViOAQHsC7hG6WrF5VYWHvrnX4weKMHzRE2V48eGnKtxr83pFGFbn3ZzcOEEbtnndK//gD8MHL9R7T9RwzUBh9875uH72K5zL4PEu0gc/qz508uHhjMNmH6zv54TBSViof8Rp/u9jP4vlBMmJZkgkYxKyXVTea4JtpAgLNHuY5uoRFbq30M+rPVdR75Wzv3sU75x0ovq+Ph28k7JDFQuKe2v7bqj3Tu7eoFg55phh7bYHVMbOnvY/Zpv3+yfGgDIIIIBAUQIkZEVdbhqLAAIdCWyregYTJFftRMtbfdjg4Ck52dpfcdWYc12m7zw5w7B93SM26vgeYuj93GM1bNtRHw5bFHmw7Mb6wOtzOeEbNiTR5VcrTlZ4ogtv9Z69SQmZe7lGDYUcw/J/XzkB9HNjscM611dZ926GZ+zCAT2BihfE9rN7wxJRe3qR7uMVXnR6cPu2PnAiG7vN+/0T60A5BBBAoAgBErIiLjONRACBHgT87JKfK3pNZN1+3srhH+8xQxw9XO4TimURx3eicJJiraK+rlh9VyeLnszCZWI3/x/iNb22UzgJvEfh5OVaxa0DB2mSkPm5rMsi21avxvXeqHBv5JmKu2IbUivnNdMOUpwQsa8TMSd8frbOvZ9nK/Yesp+Hag4bMjquihLunwhiiiCAAALzL0BCNv/XmBYigEC/Ah5C554nDxv0xBruwfLwuTUKDxP0Is/uFYtJwoa1ZGd96B/vPvYWVYHb9Xqb4orq+LE9RG1K1de/mtRD1uZ5xB7bQ0M9NNGmHj7qnjFfN9v6evn5QBu3vXH/tC3M8RFAAIGeBUjIer4AVI8AAggUIuA1vrzWlzcPDZz0rFohLDQTAQQQQKB0ARKy0u8A2o8AAgh0I+ChkO5lSl3QupuzpBYEEEAAAQQ6FiAh6xic6hBAAIECBXZTmz0bpDcvnrxXgQY0GQEEEEAAgaECJGTcGAgggAACbQr4GSyvUxZmY/S6bGGdtjbr5dgIIIAAAgjMhAAJ2UxcJk4SAQQQmDkB///iqd69tllIxk7X+wNnriWcMAIIIIAAAi0KkJC1iMuhEUAAgTkV8EyRKxRe3NrTvdfDE3YsUSxXbFNr/8V673XLUmeTnFNKmoUAAgggULoACVnpdwDtRwABBJoL7Kldzm2w2xEq67XQpmH6/QanTVEEEEAAAQTaFyAha9+YGhBAAIF5E1iqBq1WhKGIw9rnRZO9Xtenqtd5M6A9CCCAAAIIZBEgIcvCyEEQQACB4gTWU4s9dHHYdp8+ZJ2x4m4JGowAAgggkCJAQpaixj4IIIAAAggggAACCCCAQAYBErIMiBwCAQQQQAABBBBAAAEEEEgRICFLUWMfBBBAAAEEEEAAAQQQQCCDAAlZBkQOgQACCCCAAAIIIIAAAgikCJCQpaixDwIIIIAAAggggAACCCCQQYCELAMih0AAAQQQQAABBBBAAAEEUgRIyFLU2AcBBBBAAAEEEEAAAQQQyCBAQpYBkUMggAACCCCAAAIIIIAAAikCJGQpauyDAAIIIIAAAggggAACCGQQICHLgMghEEAAAQQQQAABBBBAAIEUARKyFDX2QQABBBBAAAEEEEAAAQQyCJCQZUDkEAgggAACCCCAAAIIIIBAigAJWYoa+yCAAAIIIIAAAggggAACGQRIyDIgcggEEEAAAQQQQAABBBBAIEWAhCxFjX0QQAABBBBAAAEEEEAAgQwCJGQZEDkEAggggAACCCCAAAIIIJAiQEKWosY+CCCAAAIIIIAAAggggEAGARKyDIgcAgEEEEAAAQQQQAABBBBIESAhS1FjHwQQQAABBBBAAAEEEEAgg8B/AXnvz2cYd02lAAAAAElFTkSuQmCC"/></switch></g><rect x="701.37" y="228.88" width="218.86" height="37.03" rx="5.55" ry="5.55" fill="#d5e8d4" stroke="#82b366" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 217px; height: 1px; padding-top: 247px; margin-left: 702px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Helvetica; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><font face="Courier New">defineData</font></div></div></div></foreignObject><image x="702" y="240" width="217" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA2QAAABICAYAAACZbjYYAAAWt0lEQVR4Xu2dBbAsRxWGcZfgDi+4BHdPgASX4Al2KaRwdw3uENzhISHB3d3dCw8QPLi7nq9qmuo7md3p6Zm1976uOrV7d9vm69n3+p8+ffroRzNJQAISkIAEJCABCUhAAhKQwEoIHH0lrdqoBCQgAQlIQAISkIAEJCABCRxNQeZNIAEJSEACEpCABCQgAQlIYEUEFGQrAm+zEpCABCQgAQlIQAISkIAEFGTeAxKQgAQkIAEJSEACEpCABFZEQEG2IvA2KwEJSEACEpCABCQgAQlIQEHmPSABCUhAAhKQgAQkIAEJSGBFBBRkKwJvsxKQgAQkIAEJSEACEpCABBRk3gMSkIAEJCABCUhAAhKQgARWREBBtiLwNisBCUhAAhKQgAQkIAEJSEBB5j0gAQlIQAISkIAEJCABCUhgRQQUZCsCb7MSkIAEJCABCUhAAhKQgAQUZN4DEpCABCSQCFwm3ny8+eOP8XrusJ+KRwISkIAEJCCBxRFQkC2OrTVLQALLJXC8aO49YZfvaHaf+OxDy+3OZK0dI2q6cdiVws4bdoGm5p81YukX8XpkGK/fDftg2M8rW79alHtnVvbsTZ2V1VlMAhKQgAQkIIE+AgqyPkJ+LwEJbAqBPaOj35vR2WvF52/flAvJ+nmxeP+csIsP6PtnI+8lBuTPsyrIKsFZTAISkIAEJFBLQEFWS85yEpDAOhI4IDp1oTD+bWN1Z/+mk5soyPaKvn+1BfkL8fe3w34bdqKwk4chRFk5S+kD8ebKlYOjIKsD96Ao9oCwEw8o/uPIe3jYR8NeHfa1AWXXJevZoiOfCPtO2OXWpVP2QwISkMCmEVCQbdqI2V8JSKCUwEUj4+eazJsmyE4Q/UaMnbXp/1vj9b5h35px8fxbfsqwU4ThtvjPUkitfAqyOnAfiWJdrrJDasNV9G5hiLRNSTePjr6i6ewZ4/Unm9Jx+ykBCUhgnQgoyNZpNOyLBCQwJYFNFmT7BYh3NzB4vWbYv6eEM6Ouc8XnBzXf/Sde7xLGapxpPoHzx9fXDmMf40ObrKyAvXRGMfKdJWzvsFO38rBf8LUbAnwru8Yd8f4HG9JvuykBCUhgrQgoyNZqOOyMBCQwIYFNFmRPDA6siJGIdDhrZWxCXFY1EQFcD3EhfVXYzXrqPGZ8T8CZZ4edM8t7g3j/hon6s8hqtqLyJDp3xHsF2SJpW7cEJLDLElCQ7bJD64VJYLcnsMmC7OUxercII/T8ScP+u9uP5uYAGCLI0lWdJN48P+ymzQeMO6tu6y5wFGSbc1/aUwlIYI0JKMjWeHDsmgQkMIrAriDIiBpJ4ATT5hCoEWTp6p4Rb+7a/EGwjyuuuRhXkG3OfWlPJSCBNSagIFvjwbFrEpDAUQiwxwkj2AURBjlv60dhRB9kz06ephJkx41KcSc7X/PK6gWTbmxRQQzSCtnuIsjOHCwvEsYZa/9oxvIr8YpNmXAR3BGGSyHjyRlvX2/G8vvx+q8JGhsjyFgpI2Jh2lfGvrS3DewT18RvhGs8XVMX+wC5l7hGonT+bWCds7JvxRerclnkd3nBMB5YnCEMdhxinq6T4DbsgzRJQAISWHsCCrK1HyI7KIHdnsCxgsB1w+4Zdtk5NDhn7OCw9zV5xgoyJsOPDksHMXc1jTgjOt69w9qCsGTgiKbIhJZQ/XnK9xMxge5LCNMDB/Th9JH3eWFM3Oela8SXTGxrE/vgiMRHEIuUGKPnhuGK+fAw9lm1A1ukvAiyB4cNFSXt/iK+nhJ21Z4L+Xh8f78wQrnXpjGCjDZvEnZY03jpmXLsMyRCJoeH7x02L/w+B4jfP+yVYUME6Gkj/wvC8nsGwZfaot7fFUL7TOS7ZdgQV1zE9CXDCHjDdfZFtYQdv0tWGk0SkIAE1pqAgmyth8fOSWC3J0AY90PC+ibSOahnNRPO88RrTdj700Q5REPaz1MyCAgzQpa/bOAkMxeNJe3My4MgO7SwkhtGvpJIfhxM/fnCOruyIRTbYusJ8dmbwt7c8d2sphAQBDoZmlhFQWA9cmDBJ0X+g8L+MrAc2ccKMv5f5qECooPUF9QFsUoUzqEJwXKVsD8UFuQBxVsK85ZkY1WLFa2SxG+S3zKh9YcmHjzccWgh80tAAhJYJgEF2TJp25YEJDCEAE/imZjmk7DXN599KV6PCNsRxuoST83TIdC08akwDur9UNNg6TlkTFCJbpevMCBcmIjiSobLFwcyc+g0Bzezapf3j9Uywpb/qfBCWf17THMd+b/HrHakPpQIJ1g8Puw3he3i3sXqH6se7YQLGO6DpLGCDFHLuHBtN2rqZCUxZ4aLGePKqhSup8cOQ4Q8MCxfES0dw3Q9hJV/R1h+aDb1s8pD1ErGkxUarpd7bavVHv2izW+kCgtfxwoymkGMvb9pj9XhWUKI+6d95hxn1lGW3wh9517kwQYC6HphiNuU3hhvEOclrn3c948Ny+8ZXAbTai4Hkv+6gBHMPx321IK8Kctl4g2rlynxAIR7htWvL4els/dYsdsRdrswfocp8bDkmQPaM6sEJCCBpRJQkC0Vt41JQAKFBI4f+XginibTTMBwfZv3hP768f3OsC53rZLJPG5838zKI+pweZrnvobLIWd1seqTEqtrCLUxaZV7yPIz0MYKspxBl3saoeFvH/bnDljshbpXGKtVJAQSwqnEzQ6hgkBIbm240zGWrCDOOs+N/w+5hxi/JBgRcLjJlbSZLmEKQcYh379sKmSFLzHouqcIkc/v5JNhiJa/dmXKPmO1iYOsk5BCkCFuatJWFFrGHjLGk98Z98SHwxCbfefytUXckBW5GhaWkYAEJFBNQEFWjc6CEpDAAgnk0eYQRqyyHFnQHqIKd7iLt/L2CTImeqymJNdIVqUOKJj0pWZYLUO4JTHIys6YfUi7gyBjT9d9Csb0NZEnra6xp41VyL7E6ujjmkwIOUTVr/oKNd8zhh8LS3sH+wRRu9opBBl1JnfPnfH+1oV9L812jsiY9ibi4psiO5aWT/m24s0yBNnQfnX1j3vodbUVWU4CEpDAIgkoyBZJ17olIIEaAntGISbRKeFSlv/dVyerKKx05alPkN05MjMxJbG3Zu+wofuHcHd8b1MHk13cuWqj2e3qguwlwea2YSVBHfJ9diV7yXC3TPveWFmlPO6JQxIrZNSR9r/17ePK655KkL0nKt03DLe8KwzpfGHe1M/SwCFd1W7Fh+ssyPKVRgT6gwrZmE0CEpDAUgkoyJaK28YkIIECAgdFHqLvkXBTenZBmXYWXAbzPSp9gow9RcmFa4xr00Oinkc1nWEPS8n+r67L25UFGaKVla5SN0DcV5M4flq8x41xXspXV1lZZcW0JiGCcI8jPScM0V6SphJkKVgHboiXK2l4YB64sD+NSJY8PKhJW1FonQUZ15REf+mKbA0Hy0hAAhIYRUBBNgqfhSUggQUQSK5arDKxN6Zvr0hXF9hzgsjivDLSPEGGi1qKNMdeGvbU1KYzRcEfNoURZg+rrGhXFmTst8OlcEhifBinEkFGSHVcVlkdI5hFO+hFabv8/3h4cw/hNnvpwoLrJMjY44igJbDH31v935UE2R5xbYwXY94W+gqywhvXbBKQwOoIKMhWx96WJSCBoxJgAp32+rww3hPwoTbtjIK3agrPE2T55n/Ewth9JgSTQDwQ1p2odjVJQbadWqkgO04US8IDV7w71cDPyhAu/+rN35yDVRKNcCpB9q5ojz2NpStk7J/EDZQz13D7xc2yHeCGCJdfDeMwbIKckDZthezC0edbhPGwhevsOieQhzlcJ2ORHoq4Qjbyx2BxCUhgcQQUZItja80SkMBwAky2iGxHqnVXTK3mbovzBBmT9hq3yL6rY/LLillNUpBtp1YqyJicEwZ9EYnJ/xEFFU8lyJIbLW6veQj3dhdwsUVc1Ub23BRBxl7Ah4bhZlmTFGQ11CwjAQkshYCCbCmYbUQCEigkwGoE0Q5JpRH1ZlW9FV+k/S3zBBkb/TkLbBGJs5u6Qrr3taUg206oVJCx14ogGItIrFYRaKMvTSHIWI1LrnfshUyrWe22iR6JO2U7sTrImXkYLsDHCztpGCHvLxGWn822CYIsD7qTrhX3RMLfE/DniLDfh/F74zrPHIaLaX7enYKs7871ewlIYGUEFGQrQ2/DEpBAB4FLxWecp0Qi1PfOEZRwd3x+U36eIMPNC/dIEi6LU03oOQ+Kumr2MCnItg98qSDDTS8d5IyrXwp9P+I2+n9RQuEz6e9LUwiyfaIRXF9Js1aKzxPfccBycktEoDw5jAAkfSH+Txh5ONOPA6jXXZDdJPp4WAYdAcah5pxh194X1x6bU8UHnEFHUpD13bl+LwEJrIyAgmxl6G1YAhLoIMA+mJ80n5cEcJgHETfEtIdoniC7ZuQjoh2JiR5uUatOCrLtI1AqyE4WxX7TFB0SiGPK8Z5CkL0oOnSbplNnj9fvdnQwBeXgq7eH3SysRDCmqjYhqAcrewiqJDqJvvrYsNIInVyrQT2mvLutSwISWAgBBdlCsFqpBCRQSSB31SoNZjCrqRRtj+/nCbKTx/e/biohGADnmK06Kci2j0CpIKMU54dxFhkJgf+zJQ/mWEHGyhdBN0izzgjDFe9HWZ694/3Qc/M2QZBxmDMHg5NqD7BWkC35B2BzEpDAcAIKsuHMLCEBCSyWwHOj+js0TZTu22n3CAH21uzDvnPI3h95cd8ijd27NgUdBdl2ikMEWb4nsCbE/tjxGyPIeCDB2WeXbTrBKhmHaLfTDeKDFA30lvH+FRWd3gRBlp8pN/SA+IREQVZxc1hEAhJYLgEF2XJ525oEJNBPgDOkWN0i4a7Egc1DXLFwW/tm2KmzpvoE2ZUj7/ua/OzFIdpjl5tYf++nyaEg285xiCA7ZRRln1Fyc7t+vH/jNMNSVEutIEOMIUCSmy37D9lL1nUO3wHxOXuoSBxgPXTfI2ftpUPLp9pDxuHS1DVlYg9oOvqCswWHnEkIT4L13L/pkHvIphwZ65KABCYloCCbFKeVSUACExEgmt2+TV074/V2YSX7Rpi0EVnx5q1+9AkyshPk4NpNOSaWrFJwoO7QxDlQ9w0jsMJ9hhZu8ivItoMbIsgomR95wN+MSXIDHDIknIvHWHJ8wd2bMe0rXyPIjhuVsm8sv29n7R2j/fx4iLvF38/s61Tz/THi9YFh7JVMaYwgu3xU8pGmIoLjvLiwH6XZCGiSrg031C8WFiTaIr+h/bP8CrJCeGaTgASWT0BBtnzmtigBCfQTYO8Pq1xplYP9ZBwGSxjvWYkJLK5bRGpspxJBxl4y9uxw4CyJVRYm9gi1ksSK3D3CmPCmdLp4c2RJ4VYeBdl2IEMFGcLj0LD8/C7EMfuQ+iLz0fIJwm4adnBYugdZVXp9wVgOEWT0kz4+KSwP0d7nNpsfgM2KLmLl8J6+IeIQN8kdMmUfI8hOEpWk1WtWs2njpwWMELq4JSMmfxfG+XFd45If2s75hPT9bz31syL69BZPiijICgbGLBKQwGoIKMhWw91WJSCBfgL5mWQpNxM49tgg1v4RxsSUUOfs/yIqY0pMUllVS+Gy3xzvCfZA+k4YgQL+09EFRN0Hw/LJ8Xvjb8KJE06dCJCpHCG1zxGGSyUTaAIQ5KnvQF/ysi+Gg24JQ56nrfgjCcOHdfQz/4j+ECWy5EBkeBFGfMecOplUp5UFBC68ZiUCZrDHqYvlHvE5YoOzr0iPbF4RAGn/E+8Zm66EyGCVlD6nsqxyMaYcKfCysF/O6Rui6g1h7ENMCZH94DBWWnifjiRAdDH2jCWT/q2wJMQoS96Lhf12Rnuc60W0TqICpr5yMPgLZuRnvPcKwz03d61F1OwXVjKWD4l8j2rq537HNW9nGGxSggH1MeYIzFkp3WO4BDIeiMrShPBNdXPNPJB4dVhiyzyDa9wRxjVzv6eV6NQGh1t3CTncDt8ZllbLuV8eEPbusPye4x6jzq2wXHDSn/RbTvcObRIAZWdYCuZTeq3mk4AEJLAQAgqyhWC1UglIYCICTFgRG/mkNVXNJDmJlrw5nqQfGIbb0udm9INVNM5w6ko8vWeSmSaB7TxM7HBhyyfseR4mx0z6CbvfJVTyvAgTAjSMTaURKbtE7ti2OYC363Di3N1sXhvs+WOVpJ3Yw9c1vikfxxPkrnddbeDCSph03A67ElE1EY5d91fK/7x4c78wxnVWwm0P970xiYcE9wpLxz701dUWKyk/IgRhhxDpui5WgVltJuAJ4qidEDtX62s8+57fGb+l/LBpvub3yWpW+/O8apiyZ+6Vc9pDbCHE2tfC2FH/nmFdv8Wd8Tkr1l33Fs0hYJ844DrNKgEJSGBhBBRkC0NrxRKQwEQEWIli8sTm/lkiiKbSwbiPj/esnjER7HrSj6AiWEI6MLarm/zbeJ0wJvPzJpR5WYQgk3eCLfy58NpLRUtfdazKcEZTX9oRGZg8zxMgfXXk3zMphmXX6gYrFaxuzBszDj9mBatrf2AebbPdJ8aaVR/qL0ms+j0irL0yM6ssoob9UKxwlbjgIQ7TylhJf8hDG9yfXwpj/1ify2FXvcePD7mHSoQFQgwG7wgj8uAhYTy4aCdWuPgNDUmIJlauEEAliXFn9ZUVTNxR+xKuv/SdVe++xMo0Qj0FGEnurnk5fvuIUvaqmiQgAQmsnICCbOVDYAckIIFCAjyJv14YAglXP6LpMVn+YRiTTSbnJfuDCpv7fzZcIonCSLtMPFnRQRD8PIz9YUyoWSHR/Wko2eXnZ2KPe+tFm7FE7CMGGUsMV1jGktWdTUrcl7gm8rvgHD0EN/cjLqUIE9xu+Z0sOrEqxyosK5sYv1HcPBFAnJv2yTB+q6UPLNr9JTgLQj+5l+KSybjx7wAPGhB6s1bEFn3t1i8BCUigmoCCrBqdBSUgAQlIQAISkIAEJCABCYwjoCAbx8/SEpCABCQgAQlIQAISkIAEqgkoyKrRWVACEpCABCQgAQlIQAISkMA4AgqycfwsLQEJSEACEpCABCQgAQlIoJqAgqwanQUlIAEJSEACEpCABCQgAQmMI6AgG8fP0hKQgAQkIAEJSEACEpCABKoJKMiq0VlQAhKQgAQkIAEJSEACEpDAOAIKsnH8LC0BCUhAAhKQgAQkIAEJSKCagIKsGp0FJSABCUhAAhKQgAQkIAEJjCOgIBvHz9ISkIAEJCABCUhAAhKQgASqCSjIqtFZUAISkIAEJCABCUhAAhKQwDgCCrJx/CwtAQlIQAISkIAEJCABCUigmoCCrBqdBSUgAQlIQAISkIAEJCABCYwjoCAbx8/SEpCABCQgAQlIQAISkIAEqgkoyKrRWVACEpCABCQgAQlIQAISkMA4AgqycfwsLQEJSEACEpCABCQgAQlIoJqAgqwanQUlIAEJSEACEpCABCQgAQmMI6AgG8fP0hKQgAQkIAEJSEACEpCABKoJKMiq0VlQAhKQgAQkIAEJSEACEpDAOAIKsnH8LC0BCUhAAhKQgAQkIAEJSKCagIKsGp0FJSABCUhAAhKQgAQkIAEJjCOgIBvHz9ISkIAEJCABCUhAAhKQgASqCSjIqtFZUAISkIAEJCABCUhAAhKQwDgCCrJx/CwtAQlIQAISkIAEJCABCUigmoCCrBqdBSUgAQlIQAISkIAEJCABCYwjoCAbx8/SEpCABCQgAQlIQAISkIAEqgkoyKrRWVACEpCABCQgAQlIQAISkMA4AgqycfwsLQEJSEACEpCABCQgAQlIoJrA/wCtJdF2D3DigwAAAABJRU5ErkJggg=="/></switch></g><rect x="701.37" y="187.09" width="218.86" height="37.03" rx="5.55" ry="5.55" fill="#d5e8d4" stroke="#82b366" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 217px; height: 1px; padding-top: 206px; margin-left: 702px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Helvetica; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><font face="Courier New">liftNonStrictCases</font></div></div></div></foreignObject><image x="702" y="199" width="217" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA2QAAABICAYAAACZbjYYAAAgAElEQVR4Xu2dCfh1Wz3HbyhdolylQvW/MkWRlCHhLVHGCNGAI6lMlVSS4b4VSsOtboWM52ZKSCEk6Q3NJRTK+BZKqiuURMX3c9u/x2rbw1r77L3P3vt+f8+znjOtvYbvWnuf9V2/YV3uHIsRMAJGwAgYASNgBIyAETACRsAIHAWByx2lVldqBIyAETACRsAIGAEjYASMgBEwAueYkHkSGAEjYASMgBEwAkbACBgBI2AEjoSACdmRgHe1RsAIGAEjYASMgBEwAkbACBgBEzLPASNgBIyAETACRsAIGAEjYASMwJEQMCE7EvCu1ggYASNgBIyAETACRsAIGAEjYELmOWAEjIARMAJGwAgYASNgBIyAETgSAiZkRwLe1RoBI2AEjIARMAJGwAgYASNgBEzIPAeMgBEwAkbACBgBI2AEjIARMAJHQsCE7EjAu1ojYASMgBEwAkbACBgBI2AEjIAJmeeAETACRsAIGAEjYASMgBEwAkbgSAiYkB0JeFdrBIyAETACRsAIGAEjYASMgBEwIfMcMALTIXBTFf3cqvh/1+vHKr12uupcshEwAgtF4Fy16/VKH1C178v0+tSFttXNMgJGwAgYgZkRMCGbGXBXNzkC760anqb0hT013V6/P2ni1txa5f9WUsdH6v3fTFxnFP9eenM7pVsofZzSJ1Q/vE6vkMJ/Vvqn6pU2PVuJBaPFCBiB8RGAiP1bUuzX6f0Tx6/GJRoBI2AEjMAaETAhW+Oouc1dCFxFP/5LBkTfqDw/kZHvkCzHImQ3VqN/WOkmBY1/sfJ+SkF+Z90WAhD46yhdV+mjq9e36PUvqvRXev2PbXV51t6YkE0D94mK/XglXs+vqmCz6R+V/kDpNdNU61KNgBEwAuMiYEI2Lp4ubRkI3EbN+HQlFpmpnKcP31B9sVVCdn317+W1fv+RPv+lEkT1SkrgwOIFzVnI7+nN52QOH+ZWT1F6sNL3ZV7Tl+39lOFZSp/WkvFE37+6o5DLV9d/Zk9Ff67f0RpaG/h/QH2q3j5WqY/A/7jyfLcS99VLlC5R+mSld/QNbu33KeZPYRNmz75VQgaBf54ShP1mM6HK/OMevpdSnyXEnyrPQ5V+qZqnT9Ar1hFfrPScmdrraoyAETACvQiYkPVC5AwbQuBD1JdYiG+RkEFqIGMfUY3Zr+v1vkqvahlD7v+rKn2wEmaL/5051mgWIbZ/q8SCbAzBnJNFXZuwoMIEs02uoR8wx8wRFo7h25eTf6t5mC+PV9oVdBBfyBcofW51zfX0+sqC68k6xfwpbMLs2bdKyO4kJH+mQvPD9Ypmakr5IBX+c0qfX1gJGzFfWc1dxuJBShcUluHsRsAIGIHJEDAhmwxaF7xABOYmZB8jDE5XOLxLr9+qlGNOORS6z9OFz6gu5pXd43cOLazjur1+wwfmH5SuNWL5X6Wy0NrxXAK7OgG7pb5Di9YmX6ofPqm6njxoAVkwIk9XQlMIiWQBOQUuI0IxS1ExjlHZM/XmUUoQY7SR76N07QrTB+oVU8a63EBfvKKwtVHv2POnsBmzZkeDi4bxfataH63XF87agmkq26nYn66KPqnmzTQ1vfuZ8Gu1ech9fbESGyxstoFvmN3eUe/RxjbJQ/TlA6ZqqMs1AkbACJQiYEJWipjzrxmBuQnZ3Fg9TBWiEUOI6NimGTu0XXsVMAUhS9uFGR2amFQwu8QkM1eTRyCTP6kK+CK9snizvBuBuyv9SAUGWi/IcBqApo4T5OyuSmjUUjEhu2zPqJ26Pwchw8waf0ae4Qh+YpgeYmrdJZhA81ysmzKbkF225617bwQWh4AJ2eKGxA2aEIGtEzKitn2NEgvsKyv9z0RY7lXunISM/kS48G/Xe7QLOWJC1o7S3+snTMwQzA9/NwdQ5blnDX8TskzgNpptp37NQcgwU7xDhSHasK9QIkpsjrDOYSPhm5LMJmQ5yDmPETACsyFgQjYb1K5oAQhcVgjZmL5dTcO215dzEjJIZvip0J4PVcrxFzMha77pMP0Kvy/ILSS3RJ6vzBF8xYSsBLnt5d2pS1MTstuqjl9JoDvR+64AP00ocxwKfqhhwmhCtr256B4ZgVUjYEK26uFz4wsRMCErBKwl+17fz0nIiP7Iwj80Y9T/9RldGZOQETQEc0nKJFLlnynhO/XXSlP6o2GqdaMqXVGvBE3Ax4vIdqXRDQOyr9Ub/G6QIaac99F1D6+u3yIhu7r69lFKBJBgcwNT2Vwz2YxpOVuWD1RN+GQSFp4jDTh/EDNmEhsaY2jQdypnakL2ItUREUDvr/c/NBDBm+u6MHEcSsg4VoX7Ed/KD1OC6BFan3nCswCMxxbGjvmIRjt8dv9O70kQU3wxxxYsLAjYw/w5qergeYfZ6BR+0KxFeb6CK33kecsxG+B6turrm8bupMszAktCwIRsSaPhtkyNwFSEDI3NjyqheeiSL9CPYxwMTXQ8FkE3rFWWBl1gEdknOMFjBtT1h05Ewh9UYpEaUloP10EefkzpMX2Nqn5PfcggZJwpxIIg6uZYg7qPWb3oQwkZC3L6zg59+K40NZ9F3r2Vwl8tp4tEiePIAAhXCCQLoski725K36EUETPrZeJDAykiCEcpIdzpmlhEf4beU2+J4J/IwgyBnL614+JjzR9CozPfmCf4v9UFUloPqkFQHMbxVrXM3B+Q0F/MAIn/VM4A/KyWeqOI79EbNDZjC8FDmDdEkW2bO1EnxIb5zYHVv6DEIvirldqOhOB3ME2fc9fU5zAnZk6+ObNDkCzGoI8UpvcwzzQ+vz2zjno2sGFRT3u/S4lw+H3Cs/azlThT8lRVf9c1P68fv1cJInGIMGcJzY+ZZUQ0bSuP5yB1QmA4vgLzzgsHVE6dzP9vUwpz5qZiuB+og0iVh55NCMHlPwhT6KagQWn9YEudEGvm9/2UuoI8DYDAlxiB4yFgQnY87F3z/AhMRcjwZ8hZXHFg80tH6DZnP3EO1BjCnyGLsTZ5hH5ggTeGlJhS1glZnJMWvk5ETOQg6y4ycgghgzDtlbqIWB0TFkUscnO0KZSNljEV+kRkzF9WgijlCEcbQBhLtGXgFmSkxCcvbQ872SyM+85zO9b8QXvRtdGQagYh3hDb+njU8WeRCzHrIhG5xy8Mxb1rTqCtZF6hwckVSNRFSt9fXcCzLDUPTMuBIBDlcCxhjPo0StxPLLyREl/HtjZCOCmH/qJh6hKIGPdXEM6SfkM2UzPrkmshgTwDSkP7Rx1DopcSnZbjKErmDs9zzMlLN3SinTfVm19VKnnGpjj+pD7cpQRY5zUCS0bAhGzJo+O2jY3AVIQM0yD+4FmM1YUQzPEnNxYhYyfzB5ROlNJ7mF3cWDzkEMSzys8uMQf8tglmK9+pxCIhpLQervtPpScr/UbmoDYRMi6lDM4TQvrOkhtCyK6gch9XlR1NZYHDnz+HzHLO29uU0BJ9ohIL+1NJnyBVtK9vhxxSzcG2hOlO8aSu2J0mmMmTlP5QCY0Cn5lPEIc7J3WyaMWUK1cYy9Bq0U7IX26AhNw6It+x5g/1s9vPPIp7BE12EN0gZJjCMSfTReGL9ZkIlGDyJUpEpAxBW9sX2Q8NA5rB+v8rJqeQGmRsQsaRGmhHQhhXNHrMWc7gIogL5w0ytyDkbLI0LYQ5JgLtR5OgDUWjlj7nuAdCswEuOWZlEFo2BHK0OM9WvlNVY9BwlWw8tHQj+2uee6kWjXsTQkqbsHTgM+1hXmHaR4Tb9HB1/CxLjzbg+cOmUxoVElzRuoZJJHUyBidKjFcEO4mO8ZzgPylXILx1M1DGJg78pp9oQhln5k79WcOc4MD4EkF7W7cW+Sl9x5zFBJR7j/FmvqKRZX7XN6nQmHG0gcUIbAIBE7JNDKM7kYnAVISsq/r0bLCxCFlbfRFlsUQTlQnde2Tb69PcPmSxCMaf4mzVGhYeJ0pthHIIIXuCyiO8ewgLIRYg1NUkPEMhR+wuh2BaxWIs19fiKcpbPy+JhTTnqrXt4rN7fyapk4O1S8xh06h11AVRYCE0h+xVydTzp6kf9fkAQUITEYK2aKdUD/+PViW0yENMPKP899ebt1QfxiRkaBrSg87BF1IYdTVhQd853J3Nh1S6CFlTOeA1pQ8ZGlie22x0sIkxp0B6eBbgt/n7Sl0H10e7UmLMc6DPjL3eH0xdn1N9yXxkQ6CP1OFzhVYzyGAJIWMzKJ3vaPXQ9HcFTYGAnlZiQyyE59dTCwYHrSxzFGHucuxG36Hi3Hu0NTYdTcgKAHfW5SNgQrb8MXILx0PAhGwcLPcqZuoFdZuGjB6wGxsmViwo44+93rtSQpYGu6CsEhMpTPgwvwltKO8xJcyROiFjgQKR7/PPwL8EwoiUaslY1OB7ws5+CAcXM7aYw/5XTsMH5qGOqedPU9PS+QAJ5XPI0/SGBeYbWvrETj2+faXR/dLipiBkaDtfphRaqlJCdRtdmy6kS6/f6fqpCBnaovAXW5N5Wsxvxj43ImzMEw5gx7cUyfGTjeswu42NqVxChl8wJDMIDs/ROkFvuR0u/Zq5EmaZkEfIZ64PIab7PCtpK/cWfow5goY6zNZNyHIQc57VIGBCtpqhckNHQMCEbAQQVcReaeoFdRchO1f1s/scpn0EN2kKqFFCyFgso1kMMy60XrHQzEUNLVW6i44Wi531PkkJGUSB63IWNhCEMOF6ht6z210iJ8rMQvcWDRdhtgcx+2Ml2kRAlS6NS0m9e2Weev40tSedD+nvF+jDg5X6AkyU9LEp7xSEDJM6TOuQRyrh41YqBNq5R3XRkghZihdmdRHZs7R/c+dPSS5+YL9d0ADuxzBHxuywTTPfVGTcV7kWEphfhgntkOMvaAPkERKJENgqPeutq9uh+eTZgtlrrhCshwihPKdL6sst3/mMwNEQMCE7GvSu+AgImJCNA3r88Q9xHs9tQRcho4w0wAARGCEx9QV1CSHDfCvMDnHkZ1E1ZIFOdEQWCsjTlfBV6pMgZCy+0HSU+HOFjw1+QoQ3LxX+AyByRHcM37y2MtDcoUnaK7VpknLq5/qlELJSApLTv7Y8YxMyNBuhWWDuYM6bayabtjENEvTl+oH5mCs7ZZxKQzY2Xrl9OjQfATIwsUQwOeR5kiup3xqbBKEty7me5x3RO9HOdwVqoqyrKaHVQiBFzIEh/nk8P9BYxaYO5pM5YfghqRHNlNffyelglYfAM7dTwipgjCBZBVU7qxGYDgETsumwdcnLQ8CEbJwx2auYqRfUfYSMnvymUkQiu73eEwAjlRJClu4W50R/a0OSZyo+H+HPwaK5T7MUhGyInwwLL3ychhKytB+cPYSfI/5v+GsQmKIpwhyLfwJmpH5zJTNrjvnT1J50PtAHjqEgYMpcMjbBSKNlfrM6QSCSocKY4DMFQX1jQSE75b0sEjI0NZgJElGV+/tdCWaHEDJMn1OzWHzDMEtG0z6EMLUNJc9Nnp8Ifm+PLxjzelb8v+LZm2vmXY9MDLnCrxVN/JCNsAOa70uNwDIQMCFbxji4FfMgYEI2Ds57FbMEQobPwiurLrHbi8lgauJTQshiETDEEb+Oahqqm2hpfYv+pRCyej/4f0DrgknRLZXYlU4j8+H8H758JTNrjvnT1J50PqANTAN6lLR/aN6xCRlaTSLTIfgCxtlwQ9s35LqdLpqDkOE3SjS/YwjkC003JOZ8JQ5prp/xxnMHc2UOjCdyKvcKUqoh4xrqwj+qvhmCJotEPZglknhelRDowC81NaSNmAEOFdoZQZdy/dDA9AFKaAHrgiaeDSaCFJ2tXvnc51M7tP2+zggsAgETskUMgxsxEwImZOMAvVcxSyBk9IZFGoe8IvjTxHs+5xKydKGMkzrBPQ4RtHUsqJCuc52ijqUSsjoGaNBYfKcRIXN3xNOy5pg/TeOXOx8OGfuua8cmZBeqMqI1IpCAKQOxtPVrV80Jfj9ROiToSb0OjveIM/04xiNIzlTjUy8X0oDp8mmlNABMSf1DCBnlY/qH9jvnPEJIGabEBOTIjZTKUQ+ceTi2lPp1sWHFxkjTEQz1tmFBgBaNw8n7rA7G7pfLMwKTI2BCNjnErmBBCJiQjTMYexWzFELG7izn88QfOueDvarqZu4CPD1EGB8Mzng7RPCneFZVQI5PzloIGV1ikYqfS2grhgQTmWP+NI1f7nw4ZOy7rh2bkIUfTm4Qhyn6tVOhU2nIaC8aJ7R/U/qrNuHC2uhiJQ4+ToV20CaOo+BsN85XJPgGmxWcuccRBKlmayghizqxAoC0MHexAOBzXTuXtu8h+oDm+p09g83zqSmYT89lvT8/UzmIEFsinDeGmTTm0mjj6SdayDaShjaSiKicWWYxAptBwIRsM0PpjmQgYEKWAVJGlr3yLIWQ0dz0nCjOqcE3CMldgF9FeSMYAv4a35KBQVcWFmHsWCNNvm31a9dEyKLtEUyEzxCNEnOiOeZP0/jkzocDh7/18rEJGQtStEa5Yc6n6NdOhU5JyKKPtJ2DrS+ZohMNZbIxk5rTndFnNmoi5HpbMyJITvhnHUrImurhqAMICwSQc8vqkQ1ztPzpOYRo8SGWYwhmhmFGfmh5+OjRRxJBnNBWpnIXfSAqpcUIbAIBE7JNDKM7kYmACVkmUD3Z9vp9SYSM5xiHqbKTjPDHTZCO3AU414dTPuHeCZZwiKT+GZybE/4VbWXOSchY5GDWiR8K544NFXaoMR1CUq1kTnl7ZZp6/jS1I3c+5PRhSJ6xCRnjGJpKjoDoO1h3SJv7rtkpw5SELL2XSg8f7mt72+9oa56f/IhPFxFTc+WQoB65daT5mFfcT2lgjj4imPq5lkY5HNLGMa7hTDd8CQlgE3JIAKYx2uQyjMBoCJiQjQalC1oBAiZk4wzSvloATGlGlBNlMe0Npi6cmYXQLsLHs4sc55P1LaoIvBH+GqUanzqqafTHa+rHvjD2cxKyVJt4nto2JEw6/d0pxUK85ABbrp1j/jTN9K0RMuZ0hFQ/1qI6nQcnas+YPmSM4Q2UCGSBELiH+/pfmwZ3xO9SEjgk+MtQQsa5gsxRNExvG9Cf9NDkPtNB/MfwI0PwPSMYx1zC8/W6Si9XGhJRMR0fNiXwHbYYgdUjYEK2+iF0BwoQMCErAKsj616/Ta3hKCVkNPeiZGGByRGL1VxCdl/lfVjVZ17jsN1SxFL/sRfoYshKn8xJyO6uxkR49Bxzyra2P1Y/EC4bgfjix5crc8yfprZsjZDhS4SJGIIvH1EAhyxwc8etKd9OX06pIaPOuD94j4kapmpDheAnkA80K/haNQWHCHPcoRtOQwkZ2h+ilqZm16X9jI2lPjNWzB7fWhVOXs4wxCduDgn/NZ65jxhQYXr+HsGT7jigDF9iBBaHgAnZ4obEDZoQAROyccBlAbZT4o8cZ/YpFoFDCBkan7NK4VSP6WL4cvVpyDCHSU2+8M3gwOkSwReNgCLhjE5AgJ/NKOBYhAzCimlTqYAvYagxkxuyaJ1j/jT1aWuEjAArL1OKCIAcbh5h8EvHlIiG91Qiaub9lEIr1VfOThmCkKGlzr2ur9z0d8gTIf3jvu67l9vKvoJ+eLJS+CJxlEME30mvgZgwtzE1RutUIpgE4/cGjkif6WBadurXNVR7HWSyj5BR72mlC6oGYKrNM28sX7IuzDjMnLEkaiIHUpfKubogfFY5BPu2pQU4vxFYIgImZEscFbdpKgRMyMZBNnZyKa3Ufyi3BUMIGWWzKI0DizFxCnKUs4hjccIiBYFo0IbXZjaYxR4L0ztU+VmY3kipL9oZ2Y9FyKi79Hwn/jNYcGLKhTxS6T6ZGEW2OeZPU5O2RsjoY6qN4XOptpJrrqqEpiFIREmkUfw2ObQYmTLIAotuDklGIBv4kzWRqbapeEX98ESlmLc8G4hY+OaGC+J+pJ6rKb29rdDa90QHxNcMs8qQoYSMM+b2mfVGtnQuQDw5sLlLiA6JL2k8I/EpvWthnZEd7ezdlAhh37cJFYSMa8GKNpQIQUwIvoQ8UOl0ycXOawSWioAJ2VJHxu2aAgETsnFQvbWKwawGwVeBqIbvyCiaBdC9lDCb6/vzH0rI8MN4kRJkKJUcQoY5E/2J4CAsyFhkcB5Ql7DQJ7JZaCq4jsAgudHGjknI6BcHtD5aqc9vhd1/TKrCqZ5+0uezGWOfZplj/jQ1aYuEjH6mGwl8Zs6yKRGBatqGB60Yi3Z8cNAIheC39YrMMWVRHz5dkBxIQc4mBhETeQ7cQwlSxNj0EZ965ENM3jCd7bvu+sqD9inuT7rW5fd4f/1O+Hgkx78Ksod2scmXaSgho+4S/zX6hrliaBFzCd1NdA3Py5AzVV9yNZ0cScAzIc4m5Ew0nvNdkhIyNr74/8CfLEfupEw8a0Mw2+UIAosRWD0CJmSrH0J3IEEAR2UWBG3zmgVlHKSKOcqZDvRer9/QBHQ5kKMVYUFz0lEO7Yk/K/5IunYDX6ffMTnqW0jhEI3ZDc7Rqez0Ic6owfG5S6gDp+7wsSqZSPzpE0Aj6sK0D60HC4IwX2Sxh6kR2EBO2OEmellI2x8353bxJ4/mLbRNHAqb/mFzLTvAbaaS9Shp1JlDyMjHjjjnO6WEDrMYDjxlkRqLTRaitJOd4RRrSApjg+lQmzA/CVceO+n4YrFZwLUPry56g16ZC02H/YIreGIiyY52LKZpB+NKhMm2BU7qQ5a2j8U0C14CkhCEJDR7MY4sLAn7nZ6xhL9cVz/b+j/l/KFO8CXIBfdJKmgw2BBAMGV9aVsDq+8xXYOM9y34oxjOX2KBiylhk+C3w2Ifea4Sfl9twvgzxy/paSM/s5HAPUjdIXyGVGBaSj/imcJ43lCJsYO4pWdaMQcgAaHxyqj60ixgRLAYhAU2gRZ4dsahzowH8/tECXLE/UEY81RyouVRzmOU0gAUnMGGzyfPstTkmLyQrjsroTUP4R67uVLX2F9dv0NIQnPE/c+9VSepPKO4Dym/7WywdJ7hZwkubc/31GQx2ntGbyCFvL7pPSE7ByLIWPKfxvMkhHmDf2jf/0jkT4PDxHfUybjyrH1j9SXzmmcNzy36zpjXD67mWZZGe6w1+dKPKSGL3/ENpL7nKdU3hnheoL2FgKf/Iaf1GQ2ZxQhsAgETsk0MozshBPgT7YtmVwoU51GFaUTTtSzG47yZ0rLb8udErMMsBOJyqLAovNnAQnACb9pF5w8cSc126lWw2CFserozSx52VnO1SixEusgkf/AsxkJyCRn5IdosnJv+7FnQQdJTjULUgbkSBKlPQ1A3M2sbAuYX5LAuBOWAWLXJGf3AorNJMCuLcPcsnlh4NUnXOIIBi1CI8lCZYv5EWyDTfWQrt925Go5UU5Rbdl8+AstEoJm+vJAy8rctULnnrqTURhyoB/NTSFmpUO4LldigSAWyhE9S/fs0D3MJjWufmVt6DaT6QUrp5gC/03YIIe1pev6c0fc8d3IC0JxSvqbNBnCECLU93/C/4zp8spqk6/m+1wUES0LApa1//I5pav13voeIsxnRp+2utw3/P0ht03ONtrBZ2PVMh/jT95zjAdjsDLLbhBHzBvLJhuO1Wvr5KH1/72aI/a0RWCcCJmTrHDe3+v8jcHl9xR9hfcduKFb8uaPZYseuTU70AwuRrj+XkvpZBLOQ7lvQs5DGVOdQYVETTt1DysJMBnOV+m53W1n4qZDQDDSZOLKQ4jyxurlhvTwWRaeUukK2X0O/g2csWnLOA6vXQzvQanYtKLmGBQumVxcr5QQ4QVP7EqW2xTFlsihhYdW0eKyb7dTbzW5+eqht+jt9IfojhIW5dr4SmrGUvNbLSz8z3mjx2OU+VMaeP9EetJxoa7sWkDltZwwwr8zxccFUFjPe8MPKKb8rD88fNMQlflKUB6b4MvbdQ+Rl3qJFQ/s79PiD6AMbYmxihAayr/9YKHBvYa47ZC5h8ojGJCcaKmSBZ12XVr2pvWycXKh0qq8z+p1zvSAJkA20RwQhqQvPIwJnkKdJ4kgKzIe5f/HNRNuYIzwTue8J1JOrGauXiwYXwkrdTWSvqR0QsIuUODA7t17yo+VEq4cmn02EVMPX1V+0lTyDCAhiMQKbQsCEbFPD6c4YgaMgQKQsdn4hGJiFsYPMDicaSwgFh6yyYMjxMztKBzoq5RnJLi1+Newio5mDONIfNHRoCYms2GRauLS+dLXnPP14SgmTIM5Og9QwXpAREuPI4omd8rFly/NnbKxyysO07NpK11PCRJC5i0nga6pxJFQ+ZJO5G9HqcsrNyYOGBc0uzwISAUMgexBMTCd5FqA9ipDrOWV25UGLAsnB75P7FGKIVo666CMWDE3kqKReNi4gujzbwgyW+wA82UCiT7lmrSX1kpf7kOdO4MkmA88fzDPxnaKf3J9YO+RsBuXUj1nrjZXYxLqOEptb4MwzHTJJ3+kzm5FjzR9wZb7ySgJr5KwSOL9aiect5NpiBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRiZmXRIAAAFiSURBVMAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJgAnZJofVnTICRsAIGAEjYASMgBEwAkZgDQiYkK1hlNxGI2AEjIARMAJGwAgYASNgBDaJwP8CqWN+owqLwZAAAAAASUVORK5CYII="/></switch></g><rect x="1380" y="68.42" width="186.6" height="697.89" rx="5" ry="5" fill="rgb(255, 255, 255)" stroke="rgb(0, 0, 0)" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 185px; height: 1px; padding-top: 122px; margin-left: 1381px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><font face="Helvetica">Some target<br /></font></div></div></div></foreignObject><image x="1381" y="115" width="185" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAuQAAABICAYAAAC+5eDZAAAZiklEQVR4Xu2dC9x22ViHR2KGdKBUFD4hiQ6E0MFMdKSSdCL6SNSomFLKoabkECFFKOpLNUJJZRImfVGkaJomUQ5NKqmp0MGpA/dV7671Lffae+3n8D77eV3377d+3/vsZ532tfb7vf+19r3udZnTNAlIQAISkIAEJCABCUhgZwQus7OWbVgCEpCABCQgAQlIQAISOE1B7kMgAQlIQAISkIAEJCCBHRJQkO8Qvk1LQAISkIAEJCABCUhAQe4zIAEJSEACEpCABCQggR0SUJDvEL5NS0ACEpCABCQgAQlIQEHuMyABCUhAAhKQgAQkIIEdElCQ7xC+TUvgkAhcOdq5fqTrRvqEg5+vF/9eNtIbIr3xIF0S/14c6e8OqV82IwEJSEACEpBAEFCQ+xhI4OgSuGLc2jmRfmjmLT4t8j8m0mtmljO7BCQgAQlIQAIrEFCQrwDNIhJYOAF+r+8U6bGRPn6Nvv5KlH1opAvXqMOiEpCABCQgAQlMEFCQ+4hI4OgReGLc0tkbvK07RF2/usH6rGq3BG4YzT+g6sLPxOff3m23bH2EwBXiuydEulyR5+Xx85OkJgEJHA0CCvKjMY7ehQQGAqyMP3sCx7/G96+L9BGR8Cnvsc+PTBf0ZDTP4gl8efTwuVUvvzM+80ZFWyaBj4puXVp17fz4fPtldtdeSUACcwkoyOcSM78ElkvgWHTtTyJ9aNLFk3HtIZEuioQgH+yM+OHakdjked9In9e4vb+J62wMfcdyb9+edRJQkHeCWlA2BfmCBsOuSGAbBBTk26BqnRLYDYFfiGbvnDT9FXGtXhHNekjUFUQ5Gzoz+5a4+OTd3JqtbpCAgnyDMA+pKgX5IYG2GQnsioCCfFfkbVcCmyXA7/LbI9Wr4/cfEditHtwkvnhV8uWL4toXbLbb1rYDAgryHUBfs0kF+ZoALS6BpRNQkC99hOyfBPoI4E7y2irrX8TnG0T6774qTsnFKvl3JOU+JK7ptrIC0AUVUZAvaDA6u6Ig7wRlNgnsKwEF+b6OnP2WwKkEjsdHImWU9lPx4V4rgmKzJ4cG1Ya/+SUz6/zoyH+tSPz7H5FwjfnHSK+P9NaZdc3J/pGRmbCP/xbpTQdtT5Xn/0TKfexBxn+If/8p0n9NFZzx/ZUOWAwTpTfH5/fMKL9u1m0IcphdMxLRQGDG4VL/vm5HR8rzDPEsMkGEX73hsVWU8SU+/3sjbXti+cEHz9KHxb//GeltkVZ93hXkW3yYrFoCSyCgIF/CKNgHCaxPgHjhD66qIWoG0TNWtb+Pgojo0m4eH/6wo0JE570jfU2km43kf2l89/SD1CNKEX4/UtX3rPj8/INrnxT/EtLvKyPV7ju8MWDl/0Skui3u6+6R7pKUo+qfj8QE5yUd955luVVcJAIO9ddMyU/ffi7SMyJlE6EVm/2/Yvj/c48YYQ/rMaH9lxWNMCZjYRARmXeNdI9IuDhlxubhV0c6EemZkRCkU3b5yPDjkfh3MLi8+OADb3wYwy8uvieq0FePVHwsvmNvBc/ipxb56B9vlYi3/5ORmHhhnxuJTc6D/Xn88Lsj9ZdfEbmIdti38YWNMrR3ItILIr17pN6z4ru7HXz/4Qd1ltnp/y8XF/4gfjYMYudAmU0CSyOgIF/aiNgfCaxG4Pui2A9URX8/Pt9yter+pxT+56WA4dr3RGJFcsy+Kr4kZnImPFvliOLyTZF+c6LuT47vEXml/WB8YELy6Ej367jfNx5wYSWXFV1OMs3cc7KqfjguMvFhxbPHWMVFQCLQeo2TUr8r0qqrqVk7vxEXSxE71Rfaryc+lIHXuZG+e6qC5HuENhNE3pK0DOFZC3cmWI+KxNg+LinYEuSIep7hh3X2lWeb8X1epNsVZYjBTyz+Mfug+PIbIj0+UhblKCvL83c80jCZrPPQd57pXqOeL+nNbD4JSGBZBBTkyxoPeyOBVQngmvKUpDArxc9ZtdIVyj0wyvQKoKx6yj9ipN1MkCOiWBnHFaPXWJ1EJLNa2VrJbNU11ceh3GfGD2yE7RVoZXuINfpXrlr33luWbxOCnPsgWk8rNGZP/86LTKz6tlyAWoIc956WOM0EOW4pvxRpziSE/vPsMQmdI8hxTXlqJAT5KvbTUYi3SfUkT0G+Ck3LSGBPCSjI93Tg7LYEKgK3js8nG1RwV2DVdWxlchNAWcl85ERFvGafEqisVmcroVSdCfJN9H1uHbg04APfMlxUfm9upVV+WN0i0p+tWQ/FNyHIfyLq4Vkas57xRVi3VtgzQU5s/fpNTdmHWpDzd43V4rkTrdZ9ja2QszKOyxQT33WMcKI1WwX5OkQtK4E9I6Ag37MBs7sSaBBgle5vI7XcRBBKJw6ECn7bbHTcpN00Kmv5luNugO/1KyPhl05fPy0S/sdnNzqB/+zJ5LseQc6q969Hwi/66pE4ZRR3mCljVRrReXEk3EU+MRLCMTvNdHBvyOq8clzENzkbC9yIWE3940i4ZtwoEivprO5zb7XhyoP4f9dU5ye+v3F8z6ZL7DaRvq3Kj6gljv1gfxQ//HXx+ePiZ/pSG88VQpKVfDbOsvLN+F4nEv7yuJnUEzA4f0yjv5kgb90abf9lJFxMHlRk4s1C660Qq9EvjPSWSPDguf3aSGPuVWOC/Jwo2zrhlNV2JmU8C1eJhN8+Eyx87zO7Z1xk4jzYNeKHwT+fTZ08N6XxfJcTG/hf2KjbyxKQwMIJKMgXPkB2TwIzCPAHnY2HPYZQYNMeQgohTdSTVY1VQkRsJijZbIfYaxniEAFdizYE4WckhcYEOQINd4jsECR8lzOf6KGJlt824hL3ltpNA2bDJsm6m2yIzETXuXEdd57M/xzfbDboZS4W94nrTBQ2ZatEWaEP7AsoDQb4Vo/tKWjFtG9F65kS5IzxN0bi+c3avVxcRwDXkyjEKyvmlyQQEeNs2mXilllLkLeeRd5ofF0kVvYzI5Y/z1RtTFSORXpn8p1RVhowvSyBo0JAQX5URtL7kMBpp/H7jLDITuuc4oNgORkJoUNECTY+9lpLYCD8fq2jkjtGnjJaxFAEgXRBVX5MkH9W5B3zuWbFlzCItXHfCG5C4WXGam/mnpL9/3ndyPu6pJIeUX1GlMPvufRfpiqEGmEYW/3rQHxKllUEOS5E9YZZVvaJ7DFlTELwuy+ttbdhTJAzTqy6j00Avjm+ryONsLLP5A6OLWPiRdjQr08ytAQ5+Y9X+WmLZ5SJw5jdNr5kf0FtRPo5kVxXkE8A9WsJ7DsBBfm+j6D9l8CpBFitJuLK968JhhVqxD0h56ZWzxHdX1q1h8vIl83oQ+bjjLCqXVpaghw/XsLNjRn1IdhqIwzglJ/2v0SeehU/OyQJ9wXcGErDTeWzI/XEMiecICeu1oZrSx1dZgbeU7KuIsjr8RlzO6n7hUsI4RxLYwMkbxJqawlyBC6r3mPPIm8ZcImqx4nV6l/sgIWLCG4ftWWC/GqRKZsYEOWkFTWlrvchcYEIQaW1nmMFeccAmkUC+0xAQb7Po2ffJdAmwEowK5pEX5naRDnGESFEOMUfi5RtCj09rmf+zXOECe2zMon4L41VelanS2sJcvy9s5Xpsiz3wWSltJPxAX/1KXtVZKjjbcMYv/3Sstjt+A2/YqqB4vts82TPCntvE6sIckQ1fv+D8UalPoiq1T4+5rXLzVxB/q1RxxMnbpBJC65TpfEM4YPfe1otz3ntX58Jclay8UcvbW7YwWwCwO8bsczr/irIe59u80lgTwkoyPd04Oy2BDoJ4FPLZjLcP1ixbh3iMlUdooSVxtq/lbprtwVe2+Mj3Burm7bZCPnPSSc4CKi83hLkPf+XZRvwOBCGkHNThhsPLjGlsWLLpsLBWqebMgZzWGSCGf/tWihO9bn1/SqCfNW2mLT8TqTap3uuIOfNwZQbyO0jD29mSmMiwGSm14jmclGVORPk7DlgU3JprdjtY23z1qPee8FGZE46LU1B3juC5pPAnhLo+SO2p7dmtyUggYQAAhcRjf8vJxLOiSnNCvZwcuBQdRb/nI2lXJ9rmY838cU5KXGwTJDjboLbyZQhaFkBLW0sWkqZr0eQcyASLgelsZJ85lTHqu+vH5/rUzLPj2sIzk3YpgU5/tdEYWHF91oH6Vj8y1jVk5ih/3MEORM86p6ybHynNhXXdWYuM5kg55nkrUxp3FPmFz7Wb94y1OEZM998BfnU6Pu9BPacgIJ8zwfQ7ktgTQLDCjobMwkXNxbvmabqjZaEm+Oky9Lwja2v9XTz5ZEJ947SanePTJD3itVMsOEqU4b7a/WzR5BnkUh67rsnz1hUl57yZZ51BTkCnMkHzwzx1mth2tOfOYK8d3w5JfPbq8bZzMl+iDlW7xfIBPmmNthm/SLSTn1irYJ8zgiaVwJ7SEBBvoeDZpclsEUCCF5iG7dOHSREIVFRBiOUICEFS2tFipjqdrY5tJ4AZIK81y0hE+S9G/56BDn+6fipb8MIoVf6cK/TxjqCnFV6TkbNQlzO6dMcQV4/c612so3BRL15w5yORd569bsW5JePPO+eWeec7Fl0IgX5HILmlcAeElCQ7+Gg2WUJHAIB3Fnw/c2sjC6CD3Z96A6ijVXNufZbUaB2oeHgFjZUDpYJckLycbrnlG1bkD+msx9T/cy+x/UFV5ZN2CqCHB9/hOnnzOzAEGqwPnhnG4I888fmAKKxcIfZ7UwJcty+piIPzcR0SvbMzUZBvg5Ry0pgDwgoyPdgkOyiBCYI4HaB+0BprGKuGyYvi45BG6Vf9yPj8wOqtntXnevbYiWz3vx31Ur8LFmQPzT6+uBkrAh7uK5xsufUsfW9bcwV5PydIE48Lk1jhlsNkW6IbMKzx+ZIPhNzvA47uA1BzuZi9keUVm+87WFU72WoV8iZkGYn3fIW4x09DUzkwe2mPvVWQb4BsFYhgSUTUJAveXTsmwT6CJyIbLWLCacZ1mHZ+mr7/1ysLnLEeG2skuLCgbE6zip5ab0bJcsy/F+Uhaar/49asiBnlZ5V8tLOiw8cZrMkmyvI6T8x6Wsj6gkuS4h1VpVbkWSID38Yghy/63qDJPHfOeyq1y6b3EevD/kNoiynhG7DFOTboGqdElgQAQX5ggbDrkhgRQKZq8Sjoy58wde17ECcUuTgYoKrSWm9Pt1lmeyESzbjsSmvtCUL8uPR0To2d3YP647JuuXnCvJnRoO4UZSGG8itI/UIUCaHT63Kb2OFnMOHiJdeGp/pf68R4aR+o5EJ8ize/KquWj19U5D3UDKPBPaYgIJ8jwfPrkvggADxjx9V0cBtgOgXPadDjoHMBDnHuCNIsGORyljcXFulbVbVH1F1JDu1cMmCHH/32tWAW2ITYHaoUos7IQQ5WKk0wiC+fkNP/BxBzsmvb4tUHy7FSvQLO/vDaZRE3iltG4Kc02nPrdrBpep7O/tJtqyvmSDPNiCvEoecsSj96/l9yyYQCvIZg2hWCewjAQX5Po6afZbAqQSyVT1y4PP73DVgZYek4KbAIS2DEQIvE5tzVwuzuM4IKQRVaUsW5ISQfE/C+65xLXP5aA0NYRjvXH05t46xYZ8jyDMhSN0I9MyPum6XvzGsomcxu5+edDKLA94bZYVwgURaKY3nlcOJELpThm84k8l6A2omyO8f+XgLVRpl2XjbewhU9iy3Yq4ryKdGz+8lsOcEFOR7PoB2XwJBAFHMaZb1KiYCAfeS+tS/HmisjLIKeLsq84vj822qa6yUEp6wtCxfq136+NLky3pDJ1mWLMjp33Mi1ZsfiZBCv3veVuCi88qEBVFOWKnehM0R5K0TVE+PjmSTj7p/2WFJ5NnGCnlr8oB4rn37M44Pi4sPTL7IBDkhKNloW9ucDc1MlhmL0tgYTPjM2hTkm3jyrUMCCyagIF/w4Ng1CcwgQHQP/pjXRuQH/uhfMqOuK0RefH7rVVqq4JU+rgGl3SQ+lKEJh+8QN7UbSt0NVhRx86gnE5TLxNHSBTkbXl+SsM5W++tsiF+Ofq9Pt3x2XKt9uGcM5/tlzQQ5BznVbiVDwcxfGpea5090ojXRotg2BDn1cposUYdqm+rvPaMAJ8xmlgly8mVhOpkEnxXpTRNsso2uFOGt1MVJ2UyQ4+t+y3UeBMtKQALLIaAgX85Y2BMJrEPgSlGYsIH16/ahTkQ0bhMIhsxYZefYc4QL4j6rh9f/5HlrUsGJuJYdJvTkuE787+w1/rG4/opGW6340UsX5KBBkGfxumF0dqR3JvzYIInPfMb95nE9801vDOXkZdo6WeUae5uSrfrzLCC4mfDVdvW4QMSZ+sCoMl8rEs86LivU35oc8h1tsum2jEv+KfH5fpHuMUKtJcgR3rwJqg02uGxlEzPcYnB1yUJYttqh/tZhREzeXjbSd7+SgAT2hICCfE8Gym5KoIPA2IrkUBz3CUTwpZHeFYk4zazK9Zy8eLfIxwpkZteIi61VQQQQhwwNopK8iELazYwY6oinzPZBkDNpYZWzXvXnfgYWuDswsSGmO24q9ar4cO+I2sc2WKx6+TpRsLVBFB9mYmnzdoJwhtjxSHX0mKFtngdCYFIGIX5mJHy5pwwOTNbwQ39KpMHHe11BTrv0HfeTlnGPfxXpepFaE9iy7JhQZjM1mzkzI9wiUXZeE4m3H58eiec+a5M+4QaD61nLsjcV5GUCQOz050WqzwQYqc6vJCCBJRFQkC9pNOyLBNYngP8yK5qbtrtHhScmKr1PfP+ENRs+GeXxW28dsLIPghwEt430ojVZ4L6Ce8l716ynLs7bECLjsNmxZWXEEP5O0Jd6P0Fvt5hg8fy0xC+r1H96UNkmBDn7H1iF7jm9tb4H3EBuUV0cE+Rs5OX7nknIGC9cT6YOkDoRebK3UEO9uBDV0Xl6x8h8EpDAjgkoyHc8ADYvgS0QuHHUyUEsdWSLVZpiVZtX+r2vxcd8cafaR8DeMdJY9I59EeTcK64mF0TKVsqnWDwpMrAZcRMnP2ZtTU2e6hB+V4tKWNXvWVEu28NFh3vJYuUP+TYtyId6eetAJJf69NcWeyYduK7w9qg03gLwdqhliHImoveaGtTke1a37xSpJ4Qkv9esuLdMQb7CAFhEAkshoCBfykjYDwlslsAVozpW0xB1vYKk7AHuBJzAeeEK3cIV5XGRODSox3BfuG8k4i9PrQZzL/jKlza2IbHMl00W7hAZWOGcsiySDPHC3zxRkM14D4rEpKbHEFxsnO3pU099rTz8388R7T/ayJDF1Cbc5bmRzulo+ETkIVoIrhTYVSIRtSdzzSkFeXYs/ZQgHusOvwewJzLQzSJlk6MXxHX6y/NH9Jjaxx+XoTF/+KF9Vsnh2TMRxkWFScrPRsr2ZLTuieeVSUZ2HwryjgfTLBJYKgEF+VJHxn5JYDMEOAqcOOW3ioSPOX6ziMRhpRNhgF85Lgz4gCN2z4+0iRB7N4p6ECmIMPyLWWXFaBN/2IsiISII89cbu3kzVA6/Fg5T+qJIhIfExxwW3PPAnX8RrK8+5K4h7DgllYkOGwdZseU5wO+5dZgREy42rd4wEj8TlQfhTTnGksnE25P7OCOu8RziS43wxm+cZwBf6zkHJ62KiL93sMeHHtHNRJDnkHsejHGqw4T2RMgZyuMOxO8bmzqZaLBfgskIzzx84ITPPf7eqz7ztMHm1WtHYnWeN0pviYTbT09s+FX5WU4CEtgiAQX5FuFatQQWToDf/6kV6YXfgt2TwEYJZIcL8WblaRttxcokIAEJVAQU5D4SEpCABCRwVAhwoiluKoOxCv+MGTf38MjLinhpREbJQhjOqNasEpCABMYJKMh9QiQgAQlI4CgQaJ1Yi3tHz14I3GheG6mMPoM7Cy4nq7qXHAWu3oMEJHAIBBTkhwDZJiQgAQlI4FAIsDGzPtX0vLh2l4nW+VtIpBSiwpTGxuZ7H0rPbUQCEviAJqAg/4Aefm9eAhKQwJEicDzuJjvEiMg1xCbPNj2y8fLxkYjhXxubV9mEqUlAAhLYKgEF+VbxWrkEJCABCRwiAaKkEDVo7JRUIgkRReiqkTgl9cxG/wjducrhQod4uzYlAQkcFQIK8qMykt6HBCQgAQlA4KaRONBqHSMePGFC65jk69RpWQlIQAJNAgpyHw4JSEACEjhqBM6KGyIe+hJPST1qrL0fCUhgAwQU5BuAaBUSkIAEJLA4AohxjrzH7aTntNpnRT7ijfccY7+4m7VDEpDAfhNQkO/3+Nl7CUhAAhIYJ8BptZwae82DxCbO0yNdGolTOTnlktNCiVmuSUACEtgJAQX5TrDbqAQkIAEJSEACEpCABP6XgILcJ0ECEpCABCQgAQlIQAI7JKAg3yF8m5aABCQgAQlIQAISkICC3GdAAhKQgAQkIAEJSEACOySgIN8hfJuWgAQkIAEJSEACEpCAgtxnQAISkIAEJCABCUhAAjskoCDfIXybloAEJCABCUhAAhKQgILcZ0ACEpCABCQgAQlIQAI7JKAg3yF8m5aABCQgAQlIQAISkICC3GdAAhKQgAQkIAEJSEACOySgIN8hfJuWgAQkIAEJSEACEpCAgtxnQAISkIAEJCABCUhAAjskoCDfIXybloAEJCABCUhAAhKQgILcZ0ACEpCABCQgAQlIQAI7JKAg3yF8m5aABCQgAQlIQAISkICC3GdAAhKQgAQkIAEJSEACOySgIN8hfJuWgAQkIAEJSEACEpCAgtxnQAISkIAEJCABCUhAAjsk8D7I0nOFiVX3EQAAAABJRU5ErkJggg=="/></switch></g><path d="M 580.12 588.42 L 662.64 340.1" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 664.3 335.12 L 665.41 342.87 L 662.64 340.1 L 658.77 340.66 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 481px; margin-left: 623px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); "><div style="display: inline-block; font-size: 11px; font-family: Helvetica; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; background-color: rgb(255, 255, 255); white-space: nowrap;"><font face="Courier New">Program'</font></div></div></div></foreignObject><image x="596.5" y="475" width="53" height="18.5" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAANQAAABKCAYAAADDsnorAAAOeElEQVR4Xu2cCdSVUxfHD6WSyhChIkMpUSKRIkVIA9UqJQ1WhTRYhpWSKaXJkDlTRUIDq1hFhGhAVhYaRFEkc4WigfB9fmc5d533uc9z73nuPfe+V+29VuvzvfeM/7P/5+yz9z7PHv/7R5SIICAIZI3AHogQKmscpQFBQCMghBJFEAQ8IiCE8gimNCUICKFEBwQBjwgIoTyCKU0JAkIo0QFBwCMCQiiPYEpTgoAQSnRAEPCIgBDKI5jSlCAghBIdEAT+RWDHjh3qk08+ScKjYsWK6vDDD3fCSQjlBJMU2h0Q+PLLL9WRRx4ZOtU///xTlShRIi0MSYT666+/1JIlS9SGDRvSVqbAPw2oKlWqqGOOOUbts88+TnWkkCBQiAj88ccfqnTp0klDq1Spkvrhhx+chpxEqHfeeUc1btzYqXKwUNWqVVX37t3VjTfeqMqWLZtRG1JJEChOBA477DD19ddfFxlC06ZN1Ztvvuk0rCRCffzxx+r44493qhxVCGJNmDBBnXvuuVm1I5UFgXwjgM6+9tprRbrt1auXGj9+vNNQQu9Q2Iv8Q5o3b67efvttNWjQIDV06NCkRnfu3Kk+//xz9emnn6qHH35YLVy4MFHmjTfeUGeddZbTQKSQIFAICFx55ZXqkUceKTKUESNGqCFDhjgNL61TokmTJpokt956ayih7F7+/vtv9eSTTyoYjWB7cuIdeOCBToORQoJAcSMwZswYNXjw4CLDePbZZ9XFF1/sNDSvhDI9Tp48Wd+lEBg/btw4p8FIIUGguBF47rnn1EUXXVRkGFhojRo1chpaTghFzwyKweH9W7VqldNg4hTatm2b4qGxD8/ir7/+qlauXKndorVr186JQ2X79u26D2Idhx56qPaMhnmU4mCQaVlf2DGnb775RnvAwO6II45QBx98sPb8+hDW12BWr169SLc17m4cCTVq1ND9ZyPvvfeeatiwYZEmaJv1cpGcEWratGmqc+fOegw///yz2m+//ULHw2n27rvvanLYcuKJJ6rLL788aWKPP/64mjhxYsITc9RRR6mBAweq3r17q5IlS7rMWZeZM2eOmjJligLA1atXF6kHqU455RR12WWXOe9MYR3/9NNP6vbbb1fz589XH3zwQVIRTOO+ffuqk046Sf82e/Zs9dJLLxUph4PnhhtuUHvuuWdS/Xxjt3XrVrVgwQL976233lKLFy8Oxbtdu3Zq1KhRqmbNminXA0Lec889av369YlynASdOnVSt9xyi3riiSfUjz/+qH8rX768uvTSS9Vdd92lSpUqpf+G5fPoo4+qZcuWJepzZ580aZICt0zku+++U5UrVy5S1TUGRaWcEerDDz9MKMrSpUtV3bp1k+bHbr333nuHzptdAqIhkA1wzd0srMJ5552nZsyYkfZ0+e233zQBgxfPKPBRZu6PcU8TFA7FMAqRanGHDRumSdO2bdskQlFv+fLlSZ7XfGPH+EaPHh1LR5nXzTffHFln3rx56uyzzy7yO3pywAEHaMKGyTXXXKPuvvtuvYb8b5iwyYJZJqEb/AB2ADeuhZUzQs2aNUtdcMEFer7sbFGTI2Zl73ScFhyxhlAQgPvYzJkzE9g1aNBA9ejRQ/9/FtnEDQD5jjvuiFxATomOHTuqtWvX6jLsepdccokmfp06dbRnE/JTjlPQCIv8/PPPa5PCRYIXW3bNVq1aKU5dNpAVK1ZozykOHCPMB/JxcuLMMaELdvl77703sSvb/ecTu6AZB47EKzHFMIcwIzlpXnnlFfXggw8mhpnqQr9lyxZ1xRVX6HmDSXDzoX0sj2rVqmkvm9ETLAhMQQTycE9HXx577DHFqY3gWOCUzETA3FgtrBuWg6vkjFAtW7bUygEoixYtch2PNpHY1QCIE6d169YJcwkCYKYxSSObNm1SHTp00Dsarv2oXXTz5s36PmcW7ZxzztGkiTINyOlCyckaQSAV/23MjagJBQPjmCSYjmH3ChQEQhuCmzavu+46bdrElVxhxzimTp2qleyMM87QZnCqE/uLL77Q62ew5o5arly5lNO5/vrr1Z133pkogzWCFWHMeDZlyGOTjjVko7Xv0Ubv4mQ3BAeGpfDiiy/qP1911VXqvvvuc16KnBAKINg1kJtuukkNHz7ceUBGKaiAspvTB/CwjbnQB4WUkTVr1mibPeyuQXk7vsDOxQJGlTXtE2ODpNj5CHE4zL8o4U7Ajm12tzBTLViXXZpYnyEuv2dLKN/YOS+eVZBNFPIhbHZnnnmmM6HOP/98fSoE1wc94m6FQK6PPvpIWxm2UK9Nmzb6Txs3blQktsYV4qncbRHaszfwdG15JRSKzQlhlA5CYD4ddNBB6caR+N0mlPkjk2OXiON0sDt8/fXXFYRELrzwQvXCCy84jwczkB3ZKDzzwXQLE3vsmD39+vVz6ieYneKDUL6wc5pASCFyQvfff3/F6eSChTmhOFkw/8J0hlPSxIO4Xwe9cQwDB8UJJ5ygR7Ru3TrnLHF7CpivmONcU7p27RpL77ImFJ1/9dVXmskw2zZfopwRqRYpSCgIyimRjRgzgN0MF37YKZeqfcw/7HYkVRrKaaedpu18zFw8ey7ZyaZfe96+COUDu2xwP/roo7U+cMJfffXVKZsyhOJ0evnll0PLco/l7oZEfZvV3pwyJVQ2c3YmVJxOOOoBsX79+nGq6bK2YsWJUKfqqEKFCnqnHDlypPamZSKckmwY3KXYKILCSbbXXnvpPz/00EMJk8G1r88++0zf8RAfhPKFXdT4UWjuMzgieJmAs2XffffVpxKWCdaEECoEPZN65KIYKASuTBwJmYp9sTZu80zbot63336bCMq9+uqrGSfs4sAwbnvuSmXKlCkyLJsQxGnM/cF17DYhsyWUHXJw7d+lHNYIOLCxGC9bVD08pyb2JieUhZIhFBe99u3bJ+GHh4UIOf/i3JWiFsI3oebOnauIUSFE9YNBOxdFogx3KIK9CJdhY6eb+riLMVcQdu1MAotE+dn1C5FQZFvjpneJqwUxFUKFEMolOdZVOVOV800oOzeLHTYqkJxu7LZtHnY35G94+JD3338/I3PXmKaFRigIce211yYgwnEwYMAAdeyxx+pLP3EowgJ4LMmKAQs2IJ7wIEKoXYhQttcnlYcuHaHsQDXpKYccckiRKnbmAlkdpMnEEcIDPG5DColQtocUpw730J49ezplIcgdKkQD4jzfiKNAUWV9n1C///574r5DHMtkwccdqxlXqoDhcccdp+8WXbp0Uc8880ysLuwM/UIiFNkubCYIHsxTTz3VeV5CqF2QUEwJbyOnE3cpsjfiZkMTXyP2BFlSpaIYTyB98uqTgK2LEIAkUIknspBOqF9++UV77RCCqgTp44gQahclFKlMnDAIdj0mSxwhydMEqx944AHVv3//0Orff/+9dn1DDJwSEDAYyQ+r2K1bN/X0008nfiqUE4qX2CZ/Mc4GwUSI95FzCRZyh7JW/b9u8jEV8sCIH5mgM+9nSLh0ETtrHgUhVy9VxsZTTz2VSNyFXDhFwjLt6Zs8RFKiKGNLoRAK3EwOHoQn79BFeOHNSW5OXCHULkYopmPnlnEPIrXEuLmjlIR7EApvFANPn8mYiKpDwJP3QCa50phLfPyDDHKSa4lZ8Q6LDBDjhoas/EYWeqEQirGbeyGbA2ZzqgedOGZI6g0+2ditCUWAkcAkuydCMBOF4lNKJmEwqEy4i12fNth1SVni4y628GgMZcRUMm7XKOWtVauWfnbhKsE3PcyHlBjuLyZNiPkzJu4M06dPTzR9//33a1exi9AGz0iI27gIeYacAJiiPDB0IVS+sCPrw5i4BKvJqQzmMrIpsGakOgUz55k/pxVmLcmufEjy5JNP1rCw+XDiE3ynXTYTNjty/whvgIud1W6nHrE2tNesWTP9fsqIHd5gPKwtmxVx0nxIUuoR6fBhAdxUg4n7CIu2iAll+3wd0nFxTpc1bo+dl8Q8pzCnjvmN/DucD3bWN7+xwHgHW7RoEXs98Irx3sd+UWo3wmJDnj59+ug5kGHiQqh8YofSk1BsPH2Mn/U2GyhPNYJZE/yOwqNHYQQjXsXapfsGZDD8YBPK4Bj8ZknYZ/BylTkSphBJhOLOQKp9UOFSaRMxFyYfR9jFccGGPQ13bSfu4y/TLhkTnLykIqUSvovBiZnJEwC7XUgPqZgraUvEm6pXr64zL+zNwJVQ+cYOApNSZp5ORGHGBoG5ZzK0jZfPLo9yYwGR98gpy+kRln0B4UiSPf300xPVwwhFGhQbUtgJZf7GK9+xY8e6qlVW5dImx2bVeoFXxiuHohPZJ50Isw9zhrQiHAn5/vwZz8F5Fu5i8hUHtKRU8baJOyBePE4vAtyYU4QIML/jhiSKYx657HO3JlQugc2kbZN6lO5bDJm0LXXyg4AQKj84p+2FuwgmExI35pO2cSmQNwSEUHmDOroj7kSk+JDFgaT67FoBDFeGkAIBIVQBqIf9vQtc01zaRf6bCAihinHduNzzyTETb8NFjyfQ9SulxTh06ToCASFUDlWD70rwjgi3OWKnLPEExA5NQCYeKUZ9ACaHw5SmPSIghPIIZrApPjt22223pe2BuA2ZAnbEP20lKVCQCAihcrgsnEKkFJGBERSSTvmOIOlT+UqLyeFUpel/ERBCiSoIAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQBNKYBAEBAF/CAih/GEpLQkCSgglSiAIeERACOURTGlKEBBCiQ4IAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQAglOiAIeERACOURTGlKEBBCiQ4IAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQAglOiAIeERACOURTGlKEPg/iOU50vWwktgAAAAASUVORK5CYII="/></switch></g><path d="M 951.6 225.79 L 1036.46 288.65" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 1040.68 291.78 L 1032.97 290.43 L 1036.46 288.65 L 1037.13 284.8 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 261px; margin-left: 996px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); "><div style="display: inline-block; font-size: 11px; font-family: Helvetica; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; background-color: rgb(255, 255, 255); white-space: nowrap;"><font face="Courier New">Program'</font></div></div></div></foreignObject><image x="969.5" y="253.625" width="53" height="18.5" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAANQAAABKCAYAAADDsnorAAAOeElEQVR4Xu2cCdSVUxfHD6WSyhChIkMpUSKRIkVIA9UqJQ1WhTRYhpWSKaXJkDlTRUIDq1hFhGhAVhYaRFEkc4WigfB9fmc5d533uc9z73nuPfe+V+29VuvzvfeM/7P/5+yz9z7PHv/7R5SIICAIZI3AHogQKmscpQFBQCMghBJFEAQ8IiCE8gimNCUICKFEBwQBjwgIoTyCKU0JAkIo0QFBwCMCQiiPYEpTgoAQSnRAEPCIgBDKI5jSlCAghBIdEAT+RWDHjh3qk08+ScKjYsWK6vDDD3fCSQjlBJMU2h0Q+PLLL9WRRx4ZOtU///xTlShRIi0MSYT666+/1JIlS9SGDRvSVqbAPw2oKlWqqGOOOUbts88+TnWkkCBQiAj88ccfqnTp0klDq1Spkvrhhx+chpxEqHfeeUc1btzYqXKwUNWqVVX37t3VjTfeqMqWLZtRG1JJEChOBA477DD19ddfFxlC06ZN1Ztvvuk0rCRCffzxx+r44493qhxVCGJNmDBBnXvuuVm1I5UFgXwjgM6+9tprRbrt1auXGj9+vNNQQu9Q2Iv8Q5o3b67efvttNWjQIDV06NCkRnfu3Kk+//xz9emnn6qHH35YLVy4MFHmjTfeUGeddZbTQKSQIFAICFx55ZXqkUceKTKUESNGqCFDhjgNL61TokmTJpokt956ayih7F7+/vtv9eSTTyoYjWB7cuIdeOCBToORQoJAcSMwZswYNXjw4CLDePbZZ9XFF1/sNDSvhDI9Tp48Wd+lEBg/btw4p8FIIUGguBF47rnn1EUXXVRkGFhojRo1chpaTghFzwyKweH9W7VqldNg4hTatm2b4qGxD8/ir7/+qlauXKndorVr186JQ2X79u26D2Idhx56qPaMhnmU4mCQaVlf2DGnb775RnvAwO6II45QBx98sPb8+hDW12BWr169SLc17m4cCTVq1ND9ZyPvvfeeatiwYZEmaJv1cpGcEWratGmqc+fOegw///yz2m+//ULHw2n27rvvanLYcuKJJ6rLL788aWKPP/64mjhxYsITc9RRR6mBAweq3r17q5IlS7rMWZeZM2eOmjJligLA1atXF6kHqU455RR12WWXOe9MYR3/9NNP6vbbb1fz589XH3zwQVIRTOO+ffuqk046Sf82e/Zs9dJLLxUph4PnhhtuUHvuuWdS/Xxjt3XrVrVgwQL976233lKLFy8Oxbtdu3Zq1KhRqmbNminXA0Lec889av369YlynASdOnVSt9xyi3riiSfUjz/+qH8rX768uvTSS9Vdd92lSpUqpf+G5fPoo4+qZcuWJepzZ580aZICt0zku+++U5UrVy5S1TUGRaWcEerDDz9MKMrSpUtV3bp1k+bHbr333nuHzptdAqIhkA1wzd0srMJ5552nZsyYkfZ0+e233zQBgxfPKPBRZu6PcU8TFA7FMAqRanGHDRumSdO2bdskQlFv+fLlSZ7XfGPH+EaPHh1LR5nXzTffHFln3rx56uyzzy7yO3pywAEHaMKGyTXXXKPuvvtuvYb8b5iwyYJZJqEb/AB2ADeuhZUzQs2aNUtdcMEFer7sbFGTI2Zl73ScFhyxhlAQgPvYzJkzE9g1aNBA9ejRQ/9/FtnEDQD5jjvuiFxATomOHTuqtWvX6jLsepdccokmfp06dbRnE/JTjlPQCIv8/PPPa5PCRYIXW3bNVq1aKU5dNpAVK1ZozykOHCPMB/JxcuLMMaELdvl77703sSvb/ecTu6AZB47EKzHFMIcwIzlpXnnlFfXggw8mhpnqQr9lyxZ1xRVX6HmDSXDzoX0sj2rVqmkvm9ETLAhMQQTycE9HXx577DHFqY3gWOCUzETA3FgtrBuWg6vkjFAtW7bUygEoixYtch2PNpHY1QCIE6d169YJcwkCYKYxSSObNm1SHTp00Dsarv2oXXTz5s36PmcW7ZxzztGkiTINyOlCyckaQSAV/23MjagJBQPjmCSYjmH3ChQEQhuCmzavu+46bdrElVxhxzimTp2qleyMM87QZnCqE/uLL77Q62ew5o5arly5lNO5/vrr1Z133pkogzWCFWHMeDZlyGOTjjVko7Xv0Ubv4mQ3BAeGpfDiiy/qP1911VXqvvvuc16KnBAKINg1kJtuukkNHz7ceUBGKaiAspvTB/CwjbnQB4WUkTVr1mibPeyuQXk7vsDOxQJGlTXtE2ODpNj5CHE4zL8o4U7Ajm12tzBTLViXXZpYnyEuv2dLKN/YOS+eVZBNFPIhbHZnnnmmM6HOP/98fSoE1wc94m6FQK6PPvpIWxm2UK9Nmzb6Txs3blQktsYV4qncbRHaszfwdG15JRSKzQlhlA5CYD4ddNBB6caR+N0mlPkjk2OXiON0sDt8/fXXFYRELrzwQvXCCy84jwczkB3ZKDzzwXQLE3vsmD39+vVz6ieYneKDUL6wc5pASCFyQvfff3/F6eSChTmhOFkw/8J0hlPSxIO4Xwe9cQwDB8UJJ5ygR7Ru3TrnLHF7CpivmONcU7p27RpL77ImFJ1/9dVXmskw2zZfopwRqRYpSCgIyimRjRgzgN0MF37YKZeqfcw/7HYkVRrKaaedpu18zFw8ey7ZyaZfe96+COUDu2xwP/roo7U+cMJfffXVKZsyhOJ0evnll0PLco/l7oZEfZvV3pwyJVQ2c3YmVJxOOOoBsX79+nGq6bK2YsWJUKfqqEKFCnqnHDlypPamZSKckmwY3KXYKILCSbbXXnvpPz/00EMJk8G1r88++0zf8RAfhPKFXdT4UWjuMzgieJmAs2XffffVpxKWCdaEECoEPZN65KIYKASuTBwJmYp9sTZu80zbot63336bCMq9+uqrGSfs4sAwbnvuSmXKlCkyLJsQxGnM/cF17DYhsyWUHXJw7d+lHNYIOLCxGC9bVD08pyb2JieUhZIhFBe99u3bJ+GHh4UIOf/i3JWiFsI3oebOnauIUSFE9YNBOxdFogx3KIK9CJdhY6eb+riLMVcQdu1MAotE+dn1C5FQZFvjpneJqwUxFUKFEMolOdZVOVOV800oOzeLHTYqkJxu7LZtHnY35G94+JD3338/I3PXmKaFRigIce211yYgwnEwYMAAdeyxx+pLP3EowgJ4LMmKAQs2IJ7wIEKoXYhQttcnlYcuHaHsQDXpKYccckiRKnbmAlkdpMnEEcIDPG5DColQtocUpw730J49ezplIcgdKkQD4jzfiKNAUWV9n1C///574r5DHMtkwccdqxlXqoDhcccdp+8WXbp0Uc8880ysLuwM/UIiFNkubCYIHsxTTz3VeV5CqF2QUEwJbyOnE3cpsjfiZkMTXyP2BFlSpaIYTyB98uqTgK2LEIAkUIknspBOqF9++UV77RCCqgTp44gQahclFKlMnDAIdj0mSxwhydMEqx944AHVv3//0Orff/+9dn1DDJwSEDAYyQ+r2K1bN/X0008nfiqUE4qX2CZ/Mc4GwUSI95FzCRZyh7JW/b9u8jEV8sCIH5mgM+9nSLh0ETtrHgUhVy9VxsZTTz2VSNyFXDhFwjLt6Zs8RFKiKGNLoRAK3EwOHoQn79BFeOHNSW5OXCHULkYopmPnlnEPIrXEuLmjlIR7EApvFANPn8mYiKpDwJP3QCa50phLfPyDDHKSa4lZ8Q6LDBDjhoas/EYWeqEQirGbeyGbA2ZzqgedOGZI6g0+2ditCUWAkcAkuydCMBOF4lNKJmEwqEy4i12fNth1SVni4y628GgMZcRUMm7XKOWtVauWfnbhKsE3PcyHlBjuLyZNiPkzJu4M06dPTzR9//33a1exi9AGz0iI27gIeYacAJiiPDB0IVS+sCPrw5i4BKvJqQzmMrIpsGakOgUz55k/pxVmLcmufEjy5JNP1rCw+XDiE3ynXTYTNjty/whvgIud1W6nHrE2tNesWTP9fsqIHd5gPKwtmxVx0nxIUuoR6fBhAdxUg4n7CIu2iAll+3wd0nFxTpc1bo+dl8Q8pzCnjvmN/DucD3bWN7+xwHgHW7RoEXs98Irx3sd+UWo3wmJDnj59+ug5kGHiQqh8YofSk1BsPH2Mn/U2GyhPNYJZE/yOwqNHYQQjXsXapfsGZDD8YBPK4Bj8ZknYZ/BylTkSphBJhOLOQKp9UOFSaRMxFyYfR9jFccGGPQ13bSfu4y/TLhkTnLykIqUSvovBiZnJEwC7XUgPqZgraUvEm6pXr64zL+zNwJVQ+cYOApNSZp5ORGHGBoG5ZzK0jZfPLo9yYwGR98gpy+kRln0B4UiSPf300xPVwwhFGhQbUtgJZf7GK9+xY8e6qlVW5dImx2bVeoFXxiuHohPZJ50Isw9zhrQiHAn5/vwZz8F5Fu5i8hUHtKRU8baJOyBePE4vAtyYU4QIML/jhiSKYx657HO3JlQugc2kbZN6lO5bDJm0LXXyg4AQKj84p+2FuwgmExI35pO2cSmQNwSEUHmDOroj7kSk+JDFgaT67FoBDFeGkAIBIVQBqIf9vQtc01zaRf6bCAihinHduNzzyTETb8NFjyfQ9SulxTh06ToCASFUDlWD70rwjgi3OWKnLPEExA5NQCYeKUZ9ACaHw5SmPSIghPIIZrApPjt22223pe2BuA2ZAnbEP20lKVCQCAihcrgsnEKkFJGBERSSTvmOIOlT+UqLyeFUpel/ERBCiSoIAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQBNKYBAEBAF/CAih/GEpLQkCSgglSiAIeERACOURTGlKEBBCiQ4IAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQAglOiAIeERACOURTGlKEBBCiQ4IAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQAglOiAIeERACOURTGlKEPg/iOU50vWwktgAAAAASUVORK5CYII="/></switch></g><path d="M 1230.6 417.37 L 1373.63 417.37" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 1378.88 417.37 L 1371.88 420.87 L 1373.63 417.37 L 1371.88 413.87 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 417px; margin-left: 1310px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); "><div style="display: inline-block; font-size: 11px; font-family: Helvetica; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; background-color: rgb(255, 255, 255); white-space: nowrap;"><font face="Courier New">[Instr]</font></div></div></div></foreignObject><image x="1287" y="411" width="46" height="15.75" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAALgAAAA/CAYAAABThgKnAAAJuElEQVR4Xu1cB4jVTBCes52ICqJn7x17771jxd7Ahti7WLD3AuqBBRUVGxbsiih27GJD7F3s2EVF7P/vt5CQe5e8bPKSd0mcgcM7M7s7++23u7Ozk8T891eIhREIKAIxTPCAjix3SyDABGciBBoBJnigh5c7xwRnDgQaASZ4oIeXO8cEZw4EGgEmeKCHlzvHBGcOBBoBJnigh5c7xwRnDgQaAcsEL1KkCH38+FEXlA4dOtCiRYsCDRh3zn0Ehg4dSjt27KAfP34kaixTpkx048YNaSMsEzx9+vT0+fNn3QYyZ85Mr169km4cit++faM/f/5YKqMop0qVilKkSGGrbJAK/f79m5BSFBQswnEsXbp09OnTJ+nhs03wFi1aUKNGjdSGYmJiqFq1alS2bFnpxvv370/Lli2T1g9VRGdv375N2bNnt11HEAoWL16cnj59So8fP6YMGTL4vkvnzp2jixcvJujH2bNnaePGjRQ1gm/evJk6duwYEZiYIIcOHYqojmvXrlGJEiUiqsPPhd+/f08ZM2YUXQAJqlSp4ufuGNq+bt066t69u78I/vbtW7py5YpupxYvXky7d+8Wz4wmQc6cOalo0aKBHFDZTr17947gl0JOnz4tdtEgii8JHm4gli5dSgMGDKD8+fPTgwcPgjhmjvSJCR4eRts+uBMuChM8co4zwZngUiz6/v27iESkTp1aSt+O0q9fv0TUKG3atHaK65Zhgv/DBMfgHz58mL5+/aqiULNmTSpYsCCBbLt27aIzZ87QqVOn6MKFC0IHp/Q6deqIA02rVq0iCr19+PBBnPwR07179y49e/ZMbQNnB9wptG/fnhCRevjwobChZcuWlCZNGsNRQ53o05cvX4QO/h0yZIj4fdCgQVSuXDnTyYNwbrNmzUz1oICQ8MGDB3VDcwgS5MiRI0E9T548oTVr1ghMEdXJly8f1a9fnwYOHBi2X2bGsA+ugxB8ePjyWtm0aROVKVOGunXrppLaCFwQfdu2bWqUwmwQlOeYPNOmTaPp06dLFalYsaJqy9q1a4VtRjJ27FiaO3euVL3hlK5evUolS5Y0rQdtoU09weG/QYMG4hF2pqlTp9KcOXN0dREQgL7doAATXAfW9evXi5VDezHVr18/2rBhg/p/WLGxEtWoUUOsMIirr1y5Un3esGFD2rdvn6WVvHPnzoQziiKlSpUSK3OuXLlEnPr169didQOZ8btWQKjRo0cbEg8TrlevXoaXbaaM/auAVf7AgQNq9CVcGaze7dq1021PIfitW7eEzs2bN9WqqlevTpi4iOxod0fsYrjIsSpMcBPE9G7HsMqOHz+ekiVLlqD0ixcvqHfv3rR//37x/6tXr6YePXpIjcmxY8eoXr16QherFspii8ZFWKj8/PlT7BBdunRRH5kRPLSOaPvg2J1SpkwpzADBkydPLlw5ZRHB5MGuWalSJaED/UmTJtHs2bPF37iQAi5WhQlukeBbtmwR/q+RIN8GWzhWnMKFC9OdO3ekxmTGjBk0ceJEoYvwJsKcZoKJ1LRpU6HmJ4K3bduWtm/frnYPOw/cMqRQhMqJEyfELmg3Ts8Et0Dw5cuXU58+fcx4R0uWLBEHNwhWKJnoh+L3Y5XCaiUjiN7kzp1bTCYkqyltypRNyhVcax8O0q1bt5Yx2ZYOE1yS4FhlZA9piLDAl4QgyoGIgJksWLCARo4cKdT27t0rHa2Aq7Jnzx6xAubJk8esGfV5UhMcZxi4KpUrV5a22Y4iE1yS4IiidOrUSQpjuCXKqV+W4PDftaGzYcOGEQ6dpUuXptjYWKl2rSglJcHhuuEAXqBAASsm29JlgnuE4DDj5MmTIqoQGiEBIeDXIw6P3QC/4weroF1JSoLj7NCkSRO7plsqxwT3EMFhyps3b8QFjDZcaGQiLnomTJigRh6sjHxSElwbB7disx1dJrjHCK6Yg1vU69evixgxYt+40UQGpTZmrOiOGjVKnA/0QopG3WOChx/4fybZSomDu+2Dy65OuPlDUv+qVavE1bYiuA1E3FhWmOBMcIGA1wiuHRYcZnHlreSqvHz5krJmzSrFcSY4EzxqBMfLsJMnTxa3ns2bN5ciqKJ06dIlqlChgvgTSWC4HZQRJjgTPGoEx9U/CF6sWDFLb37DQO0VON5mQg6NjGgJjttCZEu6KaFX9UqylZttom4+ZJogHA0XZdy4cWrOxaNHjyhv3rzS447QYq1atYS+WRqBtlLksSs57HiBu2/fvtJt2lFkgttBTaeM06+sRZvgSLXFzaRMjBuXSFWrVlXj5vgsgkw5BTYkNiFjD1mLePE4XD65Ugb6K1asEJMQE1NWmOCySP3Vw0XI+fPnCVl1oYJLBAwAkvONPi0RFxcn0lyNBDnPIA9yPdq0aSPUhg8fLrZxZMTVrl1bl0i4jYRPjOR9JS8EEw43lEgBNToAaldwtAXbZ86cKdrDbV/od0vQf/Rt3rx5ajYe8qnHjBljAUUSbSCODmncuDHNnz+f8CmJ0JUeu8qRI0cIkSSksSoC0iIrMFQwLghpKi9X4Dm+wYIUYgiiPcitNxLsLHXr1nXkLSlfuijYkrE1RyJGiftIdEICUzgBKfReSgA59OLUqAsEx6TUE2QRIpvQSLDCFipUiOA3Y/Jg8mll8ODBtHDhQstwgKAg9tGjR9WyOAegLXwdCp/WUCI0oZVjEUFqsJ7MmjVLpBNHIkhYQwJapOJLgo8YMYLi4+Nt9x2pqHg1Klu2bInqwKqD/I9QEimKcAGwKnft2jVR2Z49eyaITcuSEC8HgGg4aCIVF4TfuXOnaf/gzkyZMkXsKHYFr7JhJcfqbSaYaHglD33PkiWLofrWrVsJn+OzK8AYSWTaD0TZrcuXBLfbWT+Vu3fvnsglR274/fv36fnz54JU2F3wg2Su8uXLO9Yl1I8rdLgjaA9uBlw5tIkJD18frpPfhAnutxFjey0hwAS3BBcr+w2BqBMchy1tnBcJQnj3UOZNGb+By/ZGFwHk5uClaERsFIGLd/ny5eh9m1Cvy1a//Bld2Lg1vyCQpJ9PRmRAL+SEOCrio5F+cdYvg8B2uocA3JHjx4/rfjceB3NkXMqK5XRZ2YpZjxHwAgJMcC+MAtvgGgJMcNeg5Yq9gAAT3AujwDa4hgAT3DVouWIvIMAE98IosA2uIcAEdw1artgLCDDBvTAKbINrCDDBXYOWK/YCAok/Wu0Fq9gGRsAhBJjgDgHJ1XgTASa4N8eFrXIIASa4Q0ByNd5EgAnuzXFhqxxCgAnuEJBcjTcRYIJ7c1zYKocQYII7BCRX400EmODeHBe2yiEE/gdoCRnRFAEa1wAAAABJRU5ErkJggg=="/></switch></g><rect x="670" y="630" width="281.6" height="131.32" rx="5" ry="5" fill="rgb(255, 255, 255)" stroke="rgb(0, 0, 0)" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 280px; height: 1px; padding-top: 635px; margin-left: 671px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><font face="Helvetica">Core Parser<br /></font></div></div></div></foreignObject><image x="671" y="628" width="280" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABGAAAABICAYAAAC5voPhAAAa7ElEQVR4Xu2dC7Q1ZVnHVRAtifBComZ8RGney2veAi+FaVkWKajol7fIUhEyb1hgpaGilZq3SswLmWmioqWmnwqUZl4yUgPDBCS8gBppgJbPL/e0Zr09M/PO7Nlnn/35e9Z61jln9vu+885v5qzvzP97Lle+kiYBCUhAAhKQgAQkIAEJSEACEpCABCSwUgJXXunqLi4BCUhAAhKQgAQkIAEJSEACEpCABCRwJQUYHwIJSEACEpCABCQgAQlIQAISkIAEJLBiAgowKwbs8hKQgAQkIAEJSEACEpCABCQgAQlIQAHGZ0ACEpCABCQgAQlIQAISkIAEJCABCayYgALMigG7vAQkIAEJSEACEpCABCQgAQlIQAISUIDxGZCABCQgAQlIQAISkIAEJCABCUhAAismoACzYsAuLwEJSEACayfAv3W3CL93+A+F7x9+w8Wu9omvF4ZfHP7x8DPCzwz/7Np37QYkIAEJSEACEpCABHYrAgowu9Xt9GIkIAEJSKBFAHHl2PCHhX/vSDKnxvjnhJ8+cp7D5yGwI5Y5d8mlzo/5Hw0/K/yT4aeFX7Tkmk6XgAQkIAEJSEACkwkowExG50QJSEACEtimBPi37YHhzw3/niX3+JqYf1T4fyy5jtPHESBSiYikOY17+OTwl4R/fc6FXUsCEpCABCQgAQnUEFCAqaHkGAlIQAIS2BQCV42N/mn44TNu+F9irZ8M/9cZ13SpfgKrEGCaM/5jfHNE+D97EyQgAQlIQAISkMBWElCA2UranksCEpCABFZJ4Gqx+Cnh9xs4CZEQZ4d/Mfza4beu2BTiyx3DP1cx1iHLE1ilAMPuEF9uE/5fy2/VFSQgAQlIQAISkEAdAQWYOk6OkoAEJCCB7U/gz2OLv9CzzRPjs78M/2D4N4px14mf7xb+u+Hf37EGBXoPTuZufzKbt8MuAeb5cSlf67kc/q757vD9wm8WfqOesdxrUpI0CUhAAhKQgAQksCUEFGC2BLMnkYAEJCCBFRM4MtYn9Siz18fBx4efV7GHPWPMQ8L/uGPsr8bxF1as45DlCHQJMNeIZb86YumDYuzvh9+nY87t4jiCnCYBCUhAAhKQgARWTkABZuWIPYEEJCABCayYAB2OSCn5ruQ8FOJ9Qvh/j9zDYTH+dR1zOM+lI9dz+DgCcwkwnHWv8JeHU5i5tKfFgd8etzVHS0ACEpCABCQggWkEFGCmcXOWBCQgAQlsHwJ/GFv55WQ7L+44Xrvz42LgbyWDfzGOnVy7iOMmEZhTgGEDe4RTfPemxW5IW3vApB06SQISkIAEJCABCYwkoAAzEpjDJSABCUhgWxG4Zuzm4mRHFM29VfgykSqkI10QXray/us4dq+RFFjjgMVaVywEgS/E13PCLxm5Vu1wRIcDw0nb+Wz452snxri9F3ttIoeYf/mI+csOnVuAYT/UjyGFrG10uLrxyM3Cdf9wIq/+J/zfF75KPvsu7iXpV58KH2qjzd937JH7z738Uji/J+eHz1l4mN8RClnvs9gT51nV89zcpuvHN9ddnOfTI++dwyUgAQlIQAJrJaAAs1b8nlwCEpCABJYkcHTMf16yxn3j2JuXXJvpRMAQCdM2uijxwjlkvPj+UjgRFtQa6bL3xQfUr8FrXuJJqUFM4Gtjr4xv3rX44Sbx9aRwWmc3RjrV/Qc2fKf4nNSrB4WXohNTESs4D52mEAFWaasQYB682H+57++IA0OiBOLZUQuGXUWaeS7eG/6y8LeGI7QN2U/HgJ9rDUJg+ZXFz4gbjwt/dHj7nAiLRPOURhewR4YTodXX2YvfCyJ/uI9lMeqh/fI5YhDPNN3GDu2YQLHrk8MRKy+rWTTG/Ho4z25j1OZp6i0htD4jnGezSTWs/T2sPL3DJCABCUhAAqsnoACzesaeQQISkIAEVkfg9Fj6zsXytIq+QfhQlEDNrn4wBnGOthFVQypL34sl3ZheEJ4JGV3nJTqBF+i/GtgYXX6INGjbE+OHZ4V3CVJ9AgxREgg2Q+272+ejSDG1dVYV7bAKAYZ7gvBQGjy/0sGcaAsEviHxqpzOM4hwhxjTZ3Ri4t61jb/Ndiz2mgl3mQDDtfV18Mr2gIizM/zDA3tsPr5KfPPQcIoaZ/WWsmXgwDneVnGOf4gxbeGoiTS7exxHLCp/lxRgKqA6RAISkIAEthcBBZjtdT/cjQQkIAEJ1BMgciHriPP0OP6b9cvMPvIpseLvLLEq85/ZM79LgCFd6Nkd87oEmDvE+HeE175Qt5fn5RrR5swlrrVr6ioEGCJJyg5WXAPpLJnBZFd4XzTJ0KVTm4haRF2WCTCIPoh+XZE2pQBDxAxi3xRDxDgk/EMDk4nG+aNwBJgp9icxiWiwPlE0E2D4PSKqKDMFmCl3wjkSkIAEJLBWAgowa8XvySUgAQlIYAkCpMyckcy/Rxxr0nGWWH7SVKIZeKnuM14chwSPY2JMllrFupkAQzTDLXtOmgkwXfzGXDjX8qPhdKGa01YhwLw0NkiEUdu66vkgOLwxvKt9dbNGzb3sS4fLBJi/j8X7UtbaAszBMXZXD/ia/RF5RaRXVxoWkS9EDv38kjd4qCh2KcBQx2m/nt8VBZglb4jTJSABCUhg6wkowGw9c88oAQlIQALzEOBlmpfq0nhpo8DtVttt44S8PGdGehD/k09di4vCecHnRfph4URmZHa3OLgr+SATYLqulZfUc8PfEv7U1iBqanwiPEuR+rs4TrTDR8JJdbp5OJEyPxNedhFiyaEX+K699R2fW4AhTa1MJeP8RAxRe6Q0rhUBpjSELsSxs8IpvotdPZwoGe7lw5M5r4pjR3ZcbCbAdHGhBg8RJNT2+cxi0Efjaym8Ec1yQvjbwxFV+FuPKJ8bhdNy+67JCR4bx6grlNnj4yDt3DMjUgsRlGfpWuEIRwhyXdf7iPiM9LXMSgGmY9j/HuY+UFSY3xFNAhKQgAQksDEEFGA25la5UQlIQAISKAg8KX4uU3UQA264BlJECXwsPBMoqB9CBEqXEbFD0dIyKoYX6dskk4YEGEQXhABejOlelBkFf7OX5OPjOGkfWaoIKV+vD28X923WJg2GduBz2ZwCDMLYaeGZ2NQVLZUVX0Y4oItSX8FeBIay7kvfMzkkwFD0mPo8iC9fK+DynDdCTPMRkUhENn2540bwnCI4lb83RJsclMzheUZsKo3zHBGeFQNm7E+EE11UGilfO5JrYdyQAMPv+xvC2euU4sEdSDwsAQlIQAIS2DoCCjBbx9ozSUACEpDAvAROjOXK6AWiN+4472mqVut64SSS4k0VK9AJB3GjtB+PA+8sDvYJMLtiLJ1iuoQXlvqB8LOTc9WIKER7/EV4mZrDizVtj2nLPId1CTBEN2V1f5pz8ncNbZFpEU0NlUeFZxEfjD81/Gc7Nkv0COwbQ9SiNktNW/MPxLgyhQg2RD6V1ifA0M3o5B6YO+OzlxefUxj5OQM3gG5JtCQvBT/alZdsWZ/ztA1BCWEGJn12z/iQ+kKldV1XlwDDs0Ua1/sHzufHEpCABCQggW1PQAFm298iNygBCUhAAh0ESJMpUz7otnLvNRBDZKGlcNto98uLY63RuriMLnlRHCtTlLoEGF6IER2G0q9IJyGtpG0IV3cJr4ksoAV3FmFBqlIWLVF7/e1xXQLMlLW65lD35JzkQ6JESL1qCxQnx88IBzXGPaNlddsQvbLW3V0CDEWkKSbdZ6SUkVLUNiJbKOI8ZKTEIda0jYgaxJXGrhffZEIev181XY1Y52nJdVBPhjbWpXUJMHRBevfQBfm5BCQgAQlIYBMIKMBswl1yjxKQgAQkkBHI/ne+6+VulQSJKMjSUsa8qLK/B4eTctK2LDWkS4AhPabs8pNdN5EYZToOdTvGRBiQbkSHn7bVRNDU3odVCzCIWgglmfG3ESLG3q0PaQ3+nsrN8wzSFrptYwQYIj4Q0v5z4HxZVydEOArzDrWWJp2MOkCNEbl0YXE+BCe6F7VtrMCZpUmxx33D6drVtkyAISrssEruDpOABCQgAQlsewIKMNv+FrlBCUhAAhLoIJBFcpDyQDrQVhrpJqSdtI1IggPD+9rulnvkhZjCoqWRUtM+3iXAEJkylBbCi30WiXHVkXvNitTSCvkxM4FflQCDoHV4eFex5GW3f0gskEVrjBFgaqNYKL5LEd7SeAaOD39F+BeXuCBq3lBYuG01KU7lKYmKKmsjkc5VCj6ZAENEGOKXJgEJSEACEtgtCCjA7Ba30YuQgAQk8G1J4Li4aoqltq2rmOgqAVFn5CXFCSjEyvGxdl5MoH5J2xAjPtk6kAkwtcWHicwgQqNtFHg9ZORGbxzjS6GBQrc/NXKdruFzCzAUjSV6g9SeociSoUv4zhhAZAf+feEHhCO2UTA5K8LMemMEGCKhXj20ifh8j/BLwvtamr8vPkeUpAMUIuGYa+eZo3NS2x66WK9ie/83hEi1Q4sJdNUqRctMgNkR4/5tzMkcKwEJSEACEtjOBBRgtvPdcW8SkIAEJNBHgBSYrPPO2GiOZSlntTiofVHW56g5z9/GINKB2lamB2UCTK34QZoQkSqrMKJKbj/Twl0CzLGxfl8R3vbpibBARCDi54ol9oXAQloPLY9JK8u6KQ0tP0aAycSJrvWpj/I3Qydvfb4rvieiBDGqq4NRM3yugsrZ9rLIlkyAQWQqU5VGXK5DJSABCUhAAtuLgALM9rof7kYCEpCABOoJkEpySjJ8Rxyb83/NSdtB9GgbL/aNEEDXGYSBtg11sOm6yqyYb9kJKRNgaGNNJ6Uh+40YcMLQoImf80J/q4lzy2lztqGeuiVSuo4PLwsWT1lvjADzw3GCLLWo67xjRZhmHSKf/iCcOi9li+u94thlUy60ck7WHSwTYPw7tRKowyQgAQlIYDMI+A/bZtwndykBCUhAAv+fANEWWeHYH4vjpF7MZURQIMK0jfbFtDHGXhr+yOJzUnGIShlrRDPwQt2228YPvJw2towAc1IscszYTVWO54We1KQ5bN0CzI/ERRApMjba5UMx59YJgFUKMJyOjkVEhB0d3peSlN0b7hut29t1hqg7NNRNa5n7fP+Y/LpiAQWYZYg6VwISkIAENoKAAsxG3CY3KQEJSEACCQFSjS5Pjte08K0FiqDwiWQwdVouWBzPWgkfEZ/9We1JWuMysWe/4mV4GQGGmjnUzimNNtTL2kdigbIz0tQ11ynAXCM2TTRPKbq1r4VCt1zv2eHUHSJihTmfCc86RK1agGn2Rn0aBEhSfBAB+66hfT1nxA8Ur26iumBwaXLzuMbaFLC+e//Y+LAshKwAM/W3xXkSkIAEJLAxBBRgNuZWuVEJSEACEkgIvCWO3ac4zssxBVK/PAMxWjs/v1injPQg+oUomLY9KX44ceT5+Tc5q3dR/lu9jABD9AtRMG17TfzwoJF7XfXwdQow3G/ue2nc92eHvz0coaXL1inAlHu6QRy4azj1a4ja6ovo+bXi2chqwNwkxmSC5BzPgwLMHBRdQwISkIAEtjUBBZhtfXvcnAQkIAEJDBDgpZGX4tKeHAeITFnG9ozJ1Hopowh+L46164JkNTh4Cafg7RgjSoKIiraR0kJ3nbYtI8DsjIXoSjN0jjH7XsXYdQowX4kLKtN4SGlD6Btq8w2LV4bTyahtWxUB03cv+JuP+jK0ls4EJlKCSA1q7KL4phRspqbW1TwjCjA1lBwjAQlIQAIbTUABZqNvn5uXgAQk8G1PIBMtgMKLMv/7X/PC3AVxZ3xQihWMvW/4m1uTdsT35xaLkJZCC99vjLhDRM08sxhPy+gHFMeWEWCoJ1OmfrA8RVfHdAqCLR2B2kZb6nNGXG/f0HUJMNePTTWpZe397Rs/1EZUZZ2s5hZguF+0hG4braY/Xsk/a0f+uZh73db8rCD0E+Jzik6PMQrutoUcBK7XJgsowIyh6lgJSEACEthIAgowG3nb3LQEJCABCbQIIJLsTIjQBpp20FOMoqbU+CgjABB0qP/CS2RjRMpk4sXYaAGibRBt2pZF8iwjwHTVzTkyTvqqEaBeHWMfWIwfu0bf6dYlwNwjNvXOYmNjujshTJ2fXNjcAgxRWdQLahvi3VNG3MOs3hA1ZJqOSFl0GcIidZG+Xnmem8a4s4qx8CFFsDQFmEqoDpOABCQggc0loACzuffOnUtAAhKQwLcIdBXK5bPHhL9gJKi9Y/x7wrNuNrR6puVzadQFoV10294VP/BCX2N3iUFZ56ayAC9rLSPAMP8N4fcrNkV9E16WayJ2SIn6YHJR14xjX6q52Iox6xJgSDOirlDbsjSwrkvoqh8ztwDD329E5LRTpSikTDejWjsvBiImNoa4yLPV1H6hpTgiZGljCky/MSYTAdM2CkHTDr00BZjaO+c4CUhAAhLYWAIKMBt769y4BCQgAQm0CGSFT5uPEWB44bukgtgtYww1PPhaWpYO1IxBrGm3im6OE5FQphWV6yIgkRZU1h3pimhYVoChKOt7k+urqZuDyEL61Z2L+WX9kArUvUPWJcBkkSVslNSkCwcuirpAz+0YM7cAw2neGk63o7YhApYRPNmWaLONsNS27B5mbdGJgqGob18hYtYldS7rBMbv1seSTSnALPtb43wJSEACEtj2BBRgtv0tcoMSkIAEJFBB4Gox5h3hiAuZ8b/7FM89LZzojXakxx7xMxEoh4cf1TOfl2jqZHTZyfFBWZeDsS8OJxInS9vYEcffH551p6EeR3a+ZQUY9oQAk7HiGh4d3qShtK/14PgBESrb6+3jeFZbpgdX70frEmCuErsiiqcUw2jTTNTQ55NdIyhQ8LkUQ9pDEazOTOZmLcwplEtb6yF74uK85TiKP78oPOtixFjqABGdVV4jraHLjl8ILYwtjd8nUuwyIY8W1hTGzlqSnxrH6caUmQLM0B33cwlIQAIS2HgCCjAbfwu9AAlIQAISWBC4dnz9QHjZtSgDRB0KxA3EhHYaRhfMmnou1LXoigrgXKQ1NSIFYxE0skgb9kALa4ryZjaHAHNALEwUQvkSzvmavZJ+QtQQYghpR2XUS7O3Y+ObrsiPqQ/nugQY9ttVU4jPEBb+KRyhBoakpHXdw/a1U0fmlPCLw9sty5cRYBA6aAmdPb+ksxEJQ2oZzyQC5YHhtBuna1dp/D5wHVmU2LPiOMV3M0OYIpKG4r9ERyEe8VxnIh3nIK0JBpkpwHSA8bAEJCABCew+BBRgdp976ZVIQAISkMC3XopJpbjdTDD4n34iG3jRrDGiD8bWnCnX3RUHqEXy1Y4TziHAsPQ9w4kaWsZIR6LGR1e0xdS11ynAXCs2jaCQiQg114NYkbVGZy7P0z6tRZYRYFiGZ5NUpGWtK0KHdSncTORKX4RPzfmpT0Odmi5TgKmh6BgJSEACEthoAgowG3373LwEJCABCSQE+N9+Cn12/a99LTTECQSVs2snLMY9Ir6+bOScZjjnJKri0p75cwkwnILUISIlskiYoUsgzYVOOV1C0dD8vs/XKcCwr6wb0tD1UBvl4eG7wkkhyiJj5hZg2NPTw6d2+2L+oyqeV0QYhEXGjjWu+bBwClX3mQLMWLKOl4AEJCCBjSOgALNxt8wNS0ACEpBAJQFqthwTntWi6FuC9I0TwilAOtV4+X5eeJbuka1J2s/jwl8bPhRNQupJKdBQOPghEzd7nZj31PCjK+eTcsJLP1ERq7IdsfC5yeJXj2OXreqkxboHxc8vDD904HwIDKRgkarTiFHcf8S0rI15OwKG4tA8a21DfKIl+Rgj7Yc24jXpdM26r4hvjgvP2mZ3nZsoGGople3Ss/Gse1I456kpgF3WJeJ3gjpImgQkIAEJSGC3IaAAs9vcSi9EAhKQgAQ6CBDdQfrDIeG83PJSTHvnPcPpbMOL3gXhvAC+O/wLM5K8eazFSyspHnTSud5ibV5OLwonUuJt4RQGzor0zriVwaX2jxH3CqeTDqlc7JU9IYRQR4Svbwo/a3Cl3WsAqVp0ueJe3iz88gWPT8fXXeFEEF2RXDLC1p0W8/h7iwK+1AD68Irw7LXYJ8WVKZ5Ldy2ec55/asEg6pwT/qlwCgJP3Qe/N3cIpy7SLcKpZ0TaFs80zwntrU8Pp533up/pFaF2WQlIQAISkMA0Agow07g5SwISkIAEJCABCUhAAhKQgAQkIAEJVBNQgKlG5UAJSEACEpCABCQgAQlIQAISkIAEJDCNgALMNG7OkoAEJCABCUhAAhKQgAQkIAEJSEAC1QQUYKpROVACEpCABCQgAQlIQAISkIAEJCABCUwjoAAzjZuzJCABCUhAAhKQgAQkIAEJSEACEpBANQEFmGpUDpSABCQgAQlIQAISkIAEJCABCUhAAtMIKMBM4+YsCUhAAhKQgAQkIAEJSEACEpCABCRQTUABphqVAyUgAQlIQAISkIAEJCABCUhAAhKQwDQCCjDTuDlLAhKQgAQkIAEJSEACEpCABCQgAQlUE1CAqUblQAlIQAISkIAEJCABCUhAAhKQgAQkMI2AAsw0bs6SgAQkIAEJSEACEpCABCQgAQlIQALVBBRgqlE5UAISkIAEJCABCUhAAhKQgAQkIAEJTCOgADONm7MkIAEJSEACEpCABCQgAQlIQAISkEA1AQWYalQOlIAEJCABCUhAAhKQgAQkIAEJSEAC0wgowEzj5iwJSEACEpCABCQgAQlIQAISkIAEJFBNQAGmGpUDJSABCUhAAhKQgAQkIAEJSEACEpDANAIKMNO4OUsCEpCABCQgAQlIQAISkIAEJCABCVQTUICpRuVACUhAAhKQgAQkIAEJSEACEpCABCQwjYACzDRuzpKABCQgAQlIQAISkIAEJCABCUhAAtUEFGCqUTlQAhKQgAQkIAEJSEACEpCABCQgAQlMI6AAM42bsyQgAQlIQAISkIAEJCABCUhAAhKQQDUBBZhqVA6UgAQkIAEJSEACEpCABCQgAQlIQALTCCjATOPmLAlIQAISkIAEJCABCUhAAhKQgAQkUE1AAaYalQMlIAEJSEACEpCABCQgAQlIQAISkMA0Agow07g5SwISkIAEJCABCUhAAhKQgAQkIAEJVBNQgKlG5UAJSEACEpCABCQgAQlIQAISkIAEJDCNgALMNG7OkoAEJCABCUhAAhKQgAQkIAEJSEAC1QQUYKpROVACEpCABCQgAQlIQAISkIAEJCABCUwj8E1ua+N2wvJQRwAAAABJRU5ErkJggg=="/></switch></g><rect x="680.14" y="646.37" width="87.13" height="106.25" rx="8.71" ry="8.71" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 85px; height: 1px; padding-top: 699px; margin-left: 681px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;">Core.Lex</div></div></div></foreignObject><image x="681" y="692.5" width="85" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAVQAAABECAYAAADeM82aAAAPIklEQVR4Xu2dBbAsORWGd3F3LygeDgsFBSwUzsOhcHdY3N0Lu9ji7v5wd/eHOxTu1Fvc3f3/iklx6OqZ7qQ7c+/c/Kfq1J3bk6STP+m/T05OMgcfZDECRsAIGIFZEDh4llJciBEwAkbACBxkQvUgMAJGwAjMhIAJdSYgXYwRMAJGwITqMWAEjIARmAkBE+pMQLoYI2AEjIAJ1WPACBgBIzATAibUmYB0MUbACBgBE6rHgBEwAkZgJgRMqDMB6WKMgBEwAiZUjwEjYASMwEwImFBnAtLFGAEjYARMqP8dA0eTHio9vfR00pNKfyX9mfQr0o9L/+bhYgSMgBFYhUDrhHpygXML6V2kJxsYKs/R94+UHpCeU/oe6SelV/EQ2/UIXEwtfJn01JktfbnS3zAzj5NvMAItE+o11G+vK+i7By+s16cu8h5bf/9UUI6zbA4C91BVH1dY3aMo3z8L8zrbhiHQIqEeSX30AOlDQl8xtccCfb3029I/SE8pPZP0vNL7SJdZsMfTd7/fsH53dfMQOJGS36BnDFxR186zKIrZyz9CsZDoh6QfyLuVU28yAi0S6r3UYY8JnbZPn+8o/eOKjjyOvruz9BE9aUyom/wETKv7g5Q9vZiP2iHUaSU790Yi0Bqh4vv8Quipm+jzSzJ67uxKywLVcUMeE2oGgLssqQl1l3Xo1Oa0RKj4sj4rhVQRfKBYnblyPmX4lAk1F7Zdmd6Euiu7tbxRLRHq5QXTOxZQ4fM8rfTXhdDhG7voIm+phYovlxCtcyyUsKwvSb8o/VFhvaZmY9p6lgU2+JG/JsW/PEXwRZ9NinV/Yum3pF+Vfl365ykF74C820mox1/geoj+7pH+QPrlRZ+VjusdAOlmV6ElQn21uurai+66sf6+dELX3UF5n7bIf3T9zYlRhVweL73CivtD+EQg3Fv684J6Xkp58O0RT9sVQr1wdURh0YXQsdtKu4tv+3Tt/tIckoc4WaS5njS6R7p1+aYuPErKPf5d0M7tzrJuQmWWdXfpnaSrQrggV8K8HirNiUA5hdKzOMtLtU++oYvXknbHOy/NZ6/Ix4uZZ+/v291hte/fCqGeREAmYvqoPmNdTnmAISoGKxbB00d2Eg8DLgbIdKxArIdJiT7IkWco8e2WZPicrhO5kISV6hdIV8XhYqUSi8kDNSQ8OM+XriLSbhnMHG4thQg2SdZJqOcWMM+TpqiCMTh9V4kwHj42JrHSXFX6xoG0uMyYSUUZk4+ZGJtkdrW0QqiQwQcXPUkIVFzlX0cHn0o3wUK+cLgZxP4mKYtkvMGxdBl0DNibStm1lYQA8VtJx1oblHFP6TFCGbg8ILlEqEzvnyAlwiEKhE+oD1br4dJkCX1Cny/YSRv/ZbcZ9bxmuAgRcw/cGEz1fyPdI8UCupyUhz0JLw/a/YYV99hpX62LUJmpPLrTeHCFKMGVFxFW4pml55fet5OWfmSWMSS4EUh76UVZKT1j9YdSDAi+78bVEgVDBAx1OFcn76f1/3ulYBXDyobqspHft0KoTHFftOihK+nv29bYW2CMBQaBJMFl8Czpv5bU41i6/nDp3cL3r9RnYiFLLevk8oBQcQnw/2VC+fv0melk9L9h2b9Keknpu6SQ8jLhQbtf+JINEDz0+GKXCdYWBL43JMC3/b0VeXbSV+sg1Oj7p+1EpTxQesQKIHiBb0l5CSe5uj4MWZ8p7Qn14e3SCywu4Jq5hHTI7YOf/P3SNNt5jT7fSJrjEttJ/Ztdl1YIlQHIFB1hIehANlLlGW6jrJAnwmIM0yM2D4yRiygRAztNn/GdJd/tmPwxTfQh84BgzSBYhmy/ZfD3CZYsfl+m+39dkmavrscAdh5EfLVjhDH43EUdSM/LjpfeJkhtQmVrNBZoaf9DZikskNkCMwNmCWOEe75ZSt8iuA8g1WUvO1wSzAJTXTFgbind9VZpBLMVQn2YGs3uKOTI0mWW4ZiBlpPmjErMA5GkxI/Ews4rFgVMiU6IhJrqw0OCBRTrmNM+0p5ACtkmq4Qpf67PF9KGSJPFfH19xiLf6VKbUCG0Ky9AeJL+xhnLWGxiHXmxL/Ot95XHTOm10rSAimthr/Q7ncS8QN8tTWT6TH3m5d/cltsWCXWdbWblk8UWhP3gTIFLhGn3dSaW0yXUD6s8poG/LKlQyBMXJJ6o67gNSgRixvrhoYToz1BSyJrz1CRUFj5TyBo+aBYSS6w9xjs+TNw2yGmkOYt/+OHxjTNWkO4C5cV1bX/AHRcOuxFLXVNr7sJ5b7dOcpm35nmlRQt1nW1mwYkFIqb6/C19YxOG9ItFkyFCFtlyJRIq00D8a8um8DllEx6VFkFYkODhL5UYncBCx6rtwKX3mDNfTULFKsTdg7BwODaapK9919XFZPEzC4Bgc4QZxD4pPnyEmdKFpCxYpthurhOqt5VT8G5Lu05y2U7sIqGyGr2OeLhj6j5pVb50V1bEjF1eKWSmZN94IlT8p2eVzmVBxE0O7CKbIvjoUgQGbf38lMLWkLcmocayOSLyxxPag9XPYhFS6ocn7A+XAf72PtmO6JkJkNTJ2gqh0tkEkCN9cXQ10IUQIEHk5tIXTrxJdB8QnvKTzPLiKn+MQ80s5v+S448umYaOuecm+FGnECqzDvLzguuzPt+q68QIzy25ftR4f3b3PVnaDbWbakHP3cZtK68VQr2aEE7xjax8soukthDgDokhTNGZqk+RGJZEWEyuxVKDULFaaln7hGCll+AU3GrmnUKoxOC+eFG5vjN136fvkt9zzjZwMPplJxR4M+VlI0gU/KjMVJqXVgiV+DiCkhGc5gS91xasC6wMhAWlZWFJY+tBvdOCD9YNP9GSIzUIlfv/TppWd+cMdyIgfOo5Ajn4lKSdQqhx+zILUMlHnurBSz/5LNnu+ZeSCvbkYYWecxRK5PbKtMyXS5w1K/1NSyuEGv2ZLJowHS9dIBo7YOKpVFhaMeh9bBkxXfJVskLLSm2u1CLU6Ntlpf63uRXb4PQ1CZWdUeyQQnYCWWGEPDb0FUYCca2sTyQh4oNQr2alFUKlg2Po0V31P76gmsIpVIlc9uszCy6lwkJaWpFntRb/Yq7UIlReFvioEdwcxC22IjUJNc5w2MzBYtJ2SWwndYjESWxsDAckbppnrUlpiVDZycG2yySsdI857GPZwKA8pm34ZpdtZSXsJQVFT9nyyjbOrUVFSuNZaxEqu7mSf5g937w4avlVcx5SFsw4PQn3CNtpv5+TeWTamoRKUH0KGyNMCbdVjTasair8QFhcemGSts9ajrsBSYOfdd9IDHdVspYIlY6LMZMc9sGpUyWr1DGYGRKBVPqEXS5pCoQ/kIei6ysbGlDdA61L97rXIlTGEISaDn4p3dEzhEPO9/QP7Y0naOHqYZo65SXarUNNQuVeW1Jepgg+ZRY35/KlDuHZt6LPy3L/koxxmytJMDaIK25KWiNUTnTihJ4Uz8lC0WHSsac4MTjiyVX8j58r+pa6AyjGaXK6FNP1sQcrQwiQVdp3z2lMaWU4d6DWIlTqwQlHce9+6XmzxNey4YDtsJy98JncRio9IWWQZt/xgYQosf13Lgu6NqHiNmJbcHoxcOZB2nmXCw0zJSxJXDJDZwF3Y06xkOmToWMAWTyLi6/smCr9tdjc9u2I9K0RKqATckTAeBqkvPk5xGFohw+DjB1B0QkPSbESu2qBa8+i7PSA81DzW+1DZMGeeGJXUz5cC/z0danUJFTqFFet+Z94R6yrMSv1WEOECOHXPmTRwNLNEPHsgz6s5twwUJtQqX93hrJf1zgMfGi8praDJyeXpa2jjL9lB0iTp29XFJZpiqkeGn/R90taxkA6mGgo78Z/3yKh0mlYKcT5xSkhhyLz5v6INLoB8MGxdQ/CSA87ZXCyOdfGuAy6h0eQn8Wct0g5dDctXuHzo27sRoEYkvAQ4FYYc3o/2wHZXogPLgohV+mMVYhglXB4DCEwvGxyhAeHk72SYNlsSTmJijYknyCLbNSFn+nGF41V2j2BnrNXccvkSpfYu/lXTVuX3Yvj7BgD3V9AwKWTdoex7TIncoQ+Sj+j0xc2FeuC/52xEoWFKg7NAdfkRuLFBI7MaFgjYAzFM3jJvywIn/GC75M2xaMmuW8aB9yrb8EJfzXuFA4DQiIu/M/JU8y09klzMOo0eef/2yqh0jN0PlOovT3dxMDhHE8e+L6pI1ECT5HmbN+EvHkI0s+wxNsSCgXJ9J2aT/gMD+tYN0E8oWjKCMQCYm9+rqyyEGknZ2PGw7O75bM3HPIvjZXsHtbRLb9klxn1IQ64lgwRKvelL4hr7vvpE15cbPRIrqG+enKeBO6pZQuoQ5Z9KpP7c9h0FEgbQ2RIePkMzcyGytjR37dMqKlj2DXCYtWYn5bAisW6Gzpod1WnM3CxbvuIOubjxCVcA7lWWtxmO2Xw4RdOcZC55eBWoR5jf1UWQiAcjGl+9+c1cu9NevyE8ZcDUhlb+sDLKVf2KgOWWd8LL7esvvRj43exIrHmcTsNjZ90HwiUlz8Hoqw6tpIF0+5PpHfryljkcPLumgPntkKUq37nCkLnZZe7KDsHvmsrw4T6P6jxKzFYmHJDCAxYiBOriinPO3sGUmlH4Y/F+uVeTHk5XwDLDd8uJ1Sxq+vAwANQeu915uPEKKa1KJhCSLQd18VPpUdIWbTDGp5zKsgUlIUxHmC2dXJEIcSSdq6tE4Ma9wLDQ6WMV6I+cBWldoIr1irkyEJhzoJrjbo2VaYJtanudmONgBGoiYAJtSa6LtsIGIGmEDChNtXdbqwRMAI1ETCh1kTXZRsBI9AUAibUprrbjTUCRqAmAibUmui6bCNgBJpCwITaVHe7sUbACNREwIRaE12XbQSMQFMImFCb6m431ggYgZoImFBrouuyjYARaAoBE2pT3e3GGgEjUBMBE2pNdF22ETACTSFgQm2qu91YI2AEaiJgQq2Jrss2AkagKQRMqE11txtrBIxATQRMqDXRddlGwAg0hYAJtanudmONgBGoiYAJtSa6LtsIGIGmEDChNtXdbqwRMAI1ETCh1kTXZRsBI9AUAibUprrbjTUCRqAmAibUmui6bCNgBJpCwITaVHe7sUbACNREwIRaE12XbQSMQFMImFCb6m431ggYgZoImFBrouuyjYARaAqB/wCGt5ljHQNbywAAAABJRU5ErkJggg=="/></switch></g><rect x="852.38" y="646.37" width="87.13" height="106.25" rx="8.71" ry="8.71" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 85px; height: 1px; padding-top: 699px; margin-left: 853px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;">Core.Parse</div></div></div></foreignObject><image x="853" y="692.5" width="85" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAVQAAABECAYAAADeM82aAAARf0lEQVR4Xu2dBdDkuBGF78LMTLdhZuYNMycXuFCFORXm5L/kLszM2TAz816YmXHDzMx5X8q9pbhmxpZsjedfv67qGrJl6UlqtRo0++9nMgJGwAgYgVEQ2H+UUlyIETACRsAI7GeB6kFgBIyAERgJAQvUkYB0MUbACBgBC1SPASNgBIzASAhYoI4EpIsxAkbACFigegwYASNgBEZCwAJ1JCBdjBEwAkbAAtVjwAgYASMwEgIWqCMB6WKMgBEwAhaoHgNGwAgYgZEQsEAdCUgXYwSMgBHYVIF6TnXN6cSnFp9c/Ffxz8TfEX9A/Ft3nREwAkZg0xDYJIF6VIFzffHdxOfoAOrt+v0Q8UfERxJ/VnwU8QXEv9o0kF2f0RE4nEp8k/gqmSX/Qdd/Wvwl8VfEr/J4yUTQl69EYFME6lmbCXKazP56ra5/inh3c9/l9PqezDJ8+fZD4BiqMsJxKFHGXcQvEv97aGG+3whsgkC9WiNM0954nj68VPwF8a/FxxGfXnwW8SoN9kr6/R3u1lkgQF9fUIy2ekLx7ZpWv0+vH16CwCn1Pbuf87R+/6A+U96fZoGcG1kNgakF6kVag/+T+sy2/7srWnx4/XY98WPEp2hdZ4FabahsdMHY2X/Y1PBmekXjXEVH04/3Fj8kuej5en/LjW6lK7fxCEwpUNm2fV4c2/yn6v09xH/vidqxdB3b+/Mn11ug9gRvH7ssV6BG88+kN4eJT9R8cRO9vmQfw8bNWSMCUwrUJ6md2K8gtvbnFf8zs+3H1/WfE4emaoGaCeA+cnmpQKX5O8Xvb3AgiuS0+wgmbsYECEwlUI+ntqbe+IvqMx77Enqwbjq4uXGIQD2JyjibGBsb2vOXxXiDvyX+V0nFBt5zRN1/RvEB4j+Kvyr++cAyj637zyzGFr1DzDaZNlL2bwaWPeXtQwQq9X6a+A5NA06g19xIERZ0Qv2ox0nF7LIQzpiuvjkRtmOPH2QF8+NUYmzRzJc/N+3c07Q1F7c+YwY8GbM4rlGgwJMIja+J/9KngHVeM5VAZfAyiCEcULca0GgGMloqlCuYj6t7Hi6+tji2fYuqgqPj7mJMFLl0Gd2AwMdx0qaP64ubtr5ksbmrGCdLu0679N0DxD/OqMQRmrrfWa9tm3NaDMIVR+BDxUyU7URDBep11NjXNA2+gl7f1dF4+uXyDV+qA1eKAtPHiX9fAOrU4weH8I2aMXmGjvq/rGkrmNxajJ36vQVtRnA+QnwD8TFX3P8N/fZI8S7xfwqeM/otUwlUYgHD08rg/MXAlj1M9x9dfD/x33qWhTZLR6wSpO2iHqQvHiX+R89ncNnTxbdfcv1n9D2mjiDiKnGOrKoTWuolxF/vUYdz65rnJlj3uOV/mhW2xNIdQ59njH3NUIFKH3yqqRQL3ItXVJCFFeGYS4RoXUyMeSuHphw/OI1f3zEeV7WlRFnC4cx9qwRp+5nEpd9GHI7JHHxHvXYKgUogfgi9d+r9FUdtUXdhPB8HGCtoEB1BJzLYvyhmK4HDAu33quKdybUIQTodwdOHMCHcU0ziQRBtZsCEQGV79njxnVoFMnGx76G1okmHhvkxvb9wx8PRDhD+KfEMBCXbJtrMdgqtg4SI+7au5Xlow9uBhgrUg9TIcEZ1aaiE5XFNEH34tgbX7+mV3cORxScTI5AwScUCCeaMKUIB+9JU4wdn8bdblWSxf6X4++Kfihm3jElMU4xddogpobGCbR9iXnI9u4UglAfGLPOSMUuG5I7mefQBC38QCxYRHiwAk9EUAhWjP3ZJiAnfnsi1wXiWHsBqFoQGQB2WBYqD0S3EaHpBbDUuJC61O5Khg1BmMrKl4zNJCUG79AZNKC0f2x6D+dLiroUIgc2qHYTGhXbNhF9GCIAtcbrQXEuf37Dink35aYhApX/RTmPHtKMDJ667pphJThp0l10bQfFCMdtXiESUcMaW4ld7/FCvJ4sxE0HE9RLO+KOOCiNQGXehXeYIVBZwdphBhLQhTPEfLCP6AqVjZ3IBPgcE/iQ0hUC9pFq6u2ntusNU2M4xuINyMqswxrP6xcTjPbbXEooJwb0I57BNIdSJhXz1kkLRCDDQs91fZto4sX5jNY9BzaRAI+9LN9aFseVFWKB9bPrZCUME6pbaF/Go2MpZ4MYm0qpx/qH10d9gOoRqjp+oV5jlGJNooX3tv+AX2Yp9BepO3RORFjwfZQX/Qh9Chj1HHDHEb9V7dpWT0BQCFWM+GhbEtpXt6zoIGyvb9Nh+oXW+IPPBHNiCsApicUBLyaV0QsS91A3NMi0/t1yuJ8ed7DPoiWIyy3IpjZx4pm5eZgPOLbfW9SUClfGA7T3Fh+01Jp8ahLYVzyKGekjqbM3xE23nMCLmCpo4Zoq+RObaT5p7+4wdnF4oCDEv2fK/ru/DmutQNBCkscu7od6/IrOMUS6fWqCeT61gJVwHsYLFtv3Nen8NcYln8La6j4ECla6G7QlB6iPb66FhJ0QSxBa0NLaXdjEu0DIwL0CEyUxu8F8xSHIEKtfGITxp1ANaDf1Zi9gpsI2G8GLn2FHbdao1ftLnpLbiLrtyu37X1RcHijHpdc1v5mGYlZ6g95i6SgjBzFafndlk8cRzEqip5sakygk9SjsYzNiORIYWHbjKzrNocKQTgu01dsu+0QmrBhuRCzhIIJwEEZpWMkAROrHK55hGSp419J5UoLKgEKfYJrRCzoNoe4+5HqyWmVly6oamRKwvYWft0LNaAnXM8ZO2FaGYYoJwJKwO00WJIrIMR8Kjwo+CJpwbBZGWm0ZEEEu+9rMZphaoF1ejP5QzYgdcG4NgDBsWgwsvOlTShhCo1IVogrEGaLpVv7rKZetVSggebIpQrh229Jml96UCtW8ZbLm3xOw2SuJuOQ8ArzIREjhasYu2w914BjHSCCEcNnEs5Vga6tjjJ8WOrfv9xZhF2oSTikWLKIA9zSufS3DEZMYcgtI08gWP7fyK+NdHN1fh6+BYz7XSFAI1PRCFAP9nrKHF2MtCi2RFbwfT51YBGw0Gd4iVnGMEcyj10qZxqDllLLr2Lfoy94zQPs/sYwvrU06ta1KBimmCLLc2kdb8A3FkMGHSKHG2MZbYUeCRzolhTuszlkBtxzHXwBdhR9JDn7ZSH7TYZ4v77No46Cg33bxvGyexo04hUFM7H965NISpL1i516UT7oG6+dDcAlrXY1uMDJASI3otgUqdwu45sIn/d/u79Qln4qZSjg11SBuw06GdkbqbEtoZzkRSTQktQrtDw0dwopW24zO3k0ClnZgy8Lzj84h/08B8skzIopmz6BDmt4rI4stJksnpOxY8sqjWSlMIVBpICAYDLteDWAoOEyFiOrGz3LG0oOY+ttNvbN6XrIS1BCraAWmCEJozfx0zBrG1I3d6U2kdApXJzw4gDerfpc+Yf7qwQSCxkGOSgbabQF3W76RuE8YHE1mCgyklUspJmFlFIQu4ZsxwJ44C7YoRHn08TyVQU7sJ2TpkXdQk2hknsgM0dq8hlNoqibsLW2PfMmsJ1NS2m+uZ7Vv3TbxuHQI1zTzDrIC9LhJU+mBSwym1ji1/n7bFNSSHkF0XB83wfZcDOE1DR/H5Xc4DN+3aqQQqB3+E7RRNj8yT2oTzK7Ze2MFKDOhRRzzpeNShkgWhlkDFfooWBRHMH5kutbGduvx1CNRQAtjOYvfOjRfeTgKV+YGjjZjcEodpqnB0bb3Zlt+nGUBkD8YhNVOPqaLnTyVQ8ZBibwobzNCMKbKD7iXGq73s4Ap+Dw8gr9GJucCl9tM+OfWLyq8lUME1QkWY+Bx5hiNmEwjtBTMPOwX6fkxnRG2BmuJaerL/dhKoYYtnzjy2YPDQz5FZ1ZUtxYExxGFD2KfR/GvZVQuaknfLVAKVWqYxk0x+7DBducKLWsdEpUPi5H8G/6JzErkuLZ8Tm6Ij+6LWzuooXQhqCVTasSWOVErMG7RzLFtqX5zS60jZZVKljhn6G9vzWIH0tQUqbYhzEEqcmpwjSo57JBJsug017JqlJgVSbWMH2JWijQxiHsb4KM3uKxmbo98zpUClMemp/XhK2bLuyWglEwn7ZeTCM2ivvOJ+BA0CB8IOxp+89Q3w55ALUlXD6YNDjVi3ksOnawpUAtjZjob2PySSgkWPzDC2YaV/DfIJ3bssvhBPcY4dclnX1haoeO0JsULzyjVRpYpD1H+7CFTqy9zKNW+QqozzFzpYvLWs45rv8WmkufuligrOP6ILSOHmDNo4krHj8eP9PLVABQDSQMNziuZyUPNdVytJ1eSgk8h8IciZmLlVnj2OVSMEKAKJeR4C4+UdDyP0hfjVCMzmPgZBl3d3WbE1BSrPRIAhyIJ26w2HVvfNQiEs6BAxGEOlyRCc/LNnBbZjJQzUFqg0gUOnI1e8j60PMxQnKHFmRJu2k0BF8UBJ6XvGQXq4Du1m57jqTzcDGyJv0kN8iH1GAerjqWfBwxSHghYhbWOc6rVi6C7+aWqBSq1I1WPrl24J0TpxWjGI01NuOFOUziUcI5xClMHWlu9/2QMB4mDJU45To7iFbQkdSEZLaKxoenQOz4lwF65FmBIekp6Os+yxbPGYhJghUiJfOUwUadmLysHmCA60MYcIQWGxSokBy+KBgAysGIzUE02ErC2OmWvHTZamsbIArfqXgy39jgZTQpfVTfE30mjjcZYsC+YyUw7RJKTTlhxMslP3pX3Ov+5ir+cQkSAC1Tnwh1PIGKPtNNe4jvvwZrO7wW542BIApho/aShTVI3wJ8YO5+m2TWq0k3GOzZV41aAtvcnpX7RKjpkMimw2cGfMhn+A3SLzhx0Oh6ijlbb/jWKdBy/trfAmCFQqg1eRgxEApk2skKxSTJpFf+GBICSkJWeS0CHkDy/qbMphsC96FoKfRIS+ZoL0/IAFTev9VWm8LkHYeP0XtYV24sQLc8miymCGAdtSW2fqzFlUfklSRIyXPpk4i57JITk4lkoI+2k7FRMc2RJjX49FMi2bsXtzMSeVxeEo7WczHhc5YqYaP3HS1DKMyDbjIB/mLQfnLFo4Sg86YUFftmNEFvB/XYtwjrpi9kNhKd09loyLvfdsikCNCuGYYsAy0bqIIwAZ4EPsJGipbOXbmS/tZzNpOBQYE0NOGAmRBGNka6ANxdkBXbi0f0eosVCB6zKNqX0PApTJT3pmxO/mPjeub2/l4vvdeoNWU+LtR6smdC0Nsu9TP4Qbmnuuth9lM18wg7C1XLRIpXVg8rPl3yVGo0NjxZ7dplVOm6nGD32POeZAMVt9FA/e9yHag7kIh1Yp4UCm7X0P4mZ+svNgm9/XNFFat5X3bZpAjcpif8Imgp0S+xg2J1ZEBilaE1rXWMkAYMAqe3YxGt25xJxUg1bIdhUzAOc1sjJuZyLTh9RBEhGwbfKvlWgY4IpGgrb6UTHOgSExuosw4pnEGtOvRBywbWQLuV3DY8L0hHbPtnOHODR+nGwsRIyfnMV308cWcakoPLzCaNzQHjHH5hEFwXxhfo5FzEP8HTBCll0q45j/oGPM8kzig8G6xDk8Vj33lrOpAnX0hrpAI2AEjEBtBCxQayPs8o2AEZgNAhaos+lqN9QIGIHaCFig1kbY5RsBIzAbBCxQZ9PVbqgRMAK1EbBArY2wyzcCRmA2CFigzqar3VAjYARqI2CBWhthl28EjMBsELBAnU1Xu6FGwAjURsACtTbCLt8IGIHZIGCBOpuudkONgBGojYAFam2EXb4RMAKzQcACdTZd7YYaASNQGwEL1NoIu3wjYARmg4AF6my62g01AkagNgIWqLURdvlGwAjMBgEL1Nl0tRtqBIxAbQQsUGsj7PKNgBGYDQIWqLPpajfUCBiB2ghYoNZG2OUbASMwGwQsUGfT1W6oETACtRGwQK2NsMs3AkZgNghYoM6mq91QI2AEaiNggVobYZdvBIzAbBCwQJ1NV7uhRsAI1EbAArU2wi7fCBiB2SDwX8RCYHJOn8LmAAAAAElFTkSuQmCC"/></switch></g><path d="M 767.27 699.49 L 846.02 699.49" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 851.27 699.49 L 844.27 702.99 L 846.02 699.49 L 844.27 695.99 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 699px; margin-left: 809px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); "><div style="display: inline-block; font-size: 11px; font-family: Helvetica; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; background-color: rgb(255, 255, 255); white-space: nowrap;"><font face="Courier New">CoreToken</font></div></div></div></foreignObject><image x="779.5" y="693" width="59" height="15.75" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAOwAAAA/CAYAAADjeSSVAAARG0lEQVR4Xu2cBbRVRRfHB0UFxMKFhYUBil2o2IItiiwVMTGxE7ALG7s7wMAiFFtB7ADFbgQbUeyu7/M3y33X3PPOOTNz3708znt7r8USuedM7Nn/3XOa/e9fMkrKAeVAITjQTAFbiHPSRSoHLAcUsCoIyoECcUABW6DD0qUqBxSwKgPKgQJxQAFboMPSpSoHFLAqA8qBAnFAAVugw9KlKgcUsCoDyoECcUABW6DD0qUqBxSwKgPKgQJxQAFboMNqzEsdNmyYOe6448x3331Xts27777brLfeeo1561F7CwLsP//8Y55//nnz3nvvmUmTJpmpU6eaJZdc0qy44opm+eWXNwsttFDZpH///behRbl58+ZRi9GH/Rz4/fffDfytJrVq1aqaw1U01qGHHmouvfTSOu8++uijplu3bhWN2RhfygXsr7/+am699VZz7rnnWrBm0RxzzGHOOecc07dvX/vI0ksvbb766iszZcoUMyMIQ2M6uN69e5vbb7+9qlv6+eefG/ycPv/8c3PPPfdYZfTnn3+aI4880u5RAVt+1JmA/eyzz8w222xjXn755bI3OnToYNq2bWvef/99a2ldwnU57bTTzIYbbmj/+bXXXjMrrLBCVYWrqQ/WWAHrnutff/1lZpllFgVsirCnAvbVV181m266aQmQgPT44483PXr0MHPOOWdpGOKNJ5980hx77LHmrbfeqjM84+A2K1WPAwLYLbbYomSFkqOfd9555uGHHzZ4PsOHD0+d/KmnnjIDBw60v80IFlYBGyYjdQD7008/mZVWWsl8+OGHdoQ+ffqYyy67zMw+++yZI6IRhwwZYvbee++yZxSwYYcQ85QAdr/99jNXX3116qsAtn///qZTp07mzTffTH0GRbvBBhsoYGOYPwM8WwewhxxyiAUodMwxx5izzjoreJmPPPKI2WyzzUrPK2CDWRf8oAI2mFWN8sEywBJzYl2hhRde2Lz77rvRyQjc47PPPtuOUV/A4qq1bNnSzDTTTI2C+XgiJFTYU6U0owGWPf3xxx/RcpK3/4aOYfEy8SibNWtW6TFFvffjjz+a1q1bB81XBlgycxdeeKGdjIwdSadYovyz9tpr29dik04vvPCCefzxx22i67nnnjOffvqpHYck1mqrrWb/9OzZ08w222xRy2KcsWPHWrAkabfddqtTfho3bpx18SdMmGCz3STOdthhB7PjjjsGMVXmYN6RI0eaV155xY4lCTxyAquuuqpZeeWVzUYbbWQ6d+4cvJ+GBizCRc0UZQyfnnnmGbv2JZZYwqy11lpmlVVWsfmP+uQufICdNm2azR5TxUgjQoE111wziKeUH++//36D7HFG7IlkKvE/8sZ+2Mv2229vQRVKzz77rDV4QryLDEEffPCBuffee22p9IknnijLFe20005mjz32sPxMoxJgf/vtNzPffPMZDoSExgMPPBC6trLnqNki4F9//bWZPHlykDX55ZdfbFLroosu8s4J826++eYogdh8881tEiaN3ITLF198YUtTo0aNSn12k002scLKYeYRQnD99debfffd17sfHjj88MPNGWecEWSlGhKwgHP33Xcv5TfyNnfqqafaZKRke4MY8d9DPsAecMAB5qqrrsodEqvvm/ujjz6y550lG+4EAGjw4MFm3XXX9W4FRb3IIouUPcf7VFYokRJq+ui2224znHWSSoB98cUXS1rpvvvuM1tttZVvzMzf5btuIS4FGm3XXXctq/NuvPHGZvXVVzfLLLOM1T5YJiykW0Yitu7Xr19QcwZgoE6MMkqSABaQ7rLLLmXPbLfddjY0GDFiRMnawxf4k0Uc1l577WUtgBCWhz8dO3a03gE17ddff91qdiEOlEPyWQYAg8I68MADzeWXX566jJCkExZgnXXWse+jrPO8Fpo1Tj75ZMtDd71dunSxFojKAckt1+LyHF4Ea8XixZAPsDfddJPZc889U4dEmdJogWLNk79rr73WkLgT4r3u3bubZZdd1iy++OJW1qh84PFJApZnSeaRXW/RokXmluAnvHVLohhD8jvwQwj+4GHRfISxIAeEnAuNHj3agAWXSoC96667rMsHscD27dvH8LiiZ9FwMEeIxd14441m0UUXrTMeh4ggorWFEKABAwZEz01JY/3117fvEa+QbT3qqKNK4+AmA3LRkt9++63VdmhigDVx4sTUOXG5AaYcFIJ68cUXZ3bqvP3223beBx980I6H0OBGLbjggpl7QnmgofFG8ITSKASwP/zwg10XShH3P4/cUInnrrnmGrPPPvukAgLgolSEBwgq+2zTpk3wOfkAi+JFuYonhFLFIwyt+ROmoIyFACFyNc8889RZI2fKfvldFD5/P/PMM4P2gyeAR+ASIREuMQrcJQzdHXfcUbKs7IvOQrdjsARYOWQGoNuk1okeXGdcVbFEZKbZmG9e4mJiAem8wlKhoWLIBSzgdLUef8fiJwkhwrIy11JLLZU6HVZIapvEIdddd12QB4ClPPjgg+2YKE0OrT4UAtjQ8d3yzxprrGG7rLLiKxkTIT/99NNLvICfLo99c+cBFg8GLwc5gFgTwr/AAgv4hrW/Y8kAioDvpZdesp6Aj8hl4A6L3IUmVJOARaGj+N1+huTctGjSqgnhKZC3ESoBFkFD4GAA7nGtyd0IVtJ1t3xzu9lsmE3w7otX3DFdwMq/o81wSXCJKiE32UbHF4ooJjmGpb3gggvs1PUNSaoFWLwP+AFIsP64iPAplNyuLBo4XKuWN0YWYLHaeBUSGqHc8Mhi2l+33nrrUigSy2c8K0IAwA5OCCt8/fKunGNZSab6vA2M2dxzz23nOeGEE2z3YCZg8b2ffvrp0DOp6Dl3QWyCLGpsqYMYltsdEO48WbxQSgI2VkunzUPyAtcJ+vLLL20CL4YQUuJXhBIlhOavlKoFWNfy4zbjjcQQ2VzCAgDGObtZ01jAYkW33Xbb0msnnniiOeWUU7wemTvPxx9/bBZbbDH7T0cffXSp/BizJ9xwqZ6EAF4AG6vwyLSj9GlGwlNrUMCiqcStxD1gcbGEgBNno/0BLjFnKLmARQi44JDXyRUy7nLLLWctEGn5oUOHhrxS5xlXG+NW+rR31iTVAiyJHRI8uHFYhkrohhtuKHXAETf7MuzMkbSwhD1yGYDfK1EevEepkvZaiFg7Nhkma8NCYv0GDRpkk1B5JGeal/tIe1+Si17A5rWzVXJgae+4jPvmm29Sg/2QuXr16mXuvPNOm3176KGHQl6xz7iADRWivMFxHUUQcfuk3ha8oP8e5MYKmW+IEkBWrOwbt1qAFSUUG7K46wMYkmMA9IDfRy5g8VTc6kB9bu+cdNJJJfeSjHylBD8wFLTt4pI3CGCvuOIKc9BBB9m5a90MLvEy8dAnn3xSKd9s3EvGFLAAvFByAVuNvVLOiGl+CFknWc+sLLDv/WoAltq4eB1ZNUHfOvgdT2HWWWe1j5KNd0spWe+7gE0+g0IkKReTs5Ax3Pg1ZO2+Z0JCl5pZ2Mcee8zQGACNHz/ednnUiqTwXd94mdLGEUccYZcZk9muNmBdK1ItnjU0YN3iP7LRtWvXirc2//zzWytJ9lOy4XmDJQGLnABQqVHuvPPOtokhNmQQj6zijSReDEnQ1gywdCVJ7ZW4I6swXY3NUpukuwfL+P3330e1+7nzS99ybHxQbcC6ViSrLFQNvoWOUQ0LS2Jw5plntlPifSVriaFr4XzJeEKUhACNj1zAUhIi6UKNkvhTupJwR+km85UB3bnEI6uvZ+dbv/t7zQCLhaJwTDBNnIFQx2qw0I2gKenwgFAUkrkLfV+ek0xabKKn2oBlPbjEuMbEr8TVDUnVACzrp7kEXtFiKRnw2H25HVWhiZ6ssg5uOrV71gShRMhkh3TU8Tx5DgkzYvvcY/ctz9cMsExAppW6D3T++ednXpAOWTxAJJuWViCmz5ivVkC4tYcddljIkGXPkKBp166d/beQbJ37ci0AS/yPJYKqkciKZojzQrUAKx1OJH5IguUV+7PWS4KG/lkoNPOd1zghHVooR4iQSOrXPp65MkNtU2Td9159fq8pYHFfyOjJLZl33nmnTvtUyOJhBhm5PB+fa3zSrRKbEcU9ou9TenFpWvD14NYasK7XgMUnUROq+UN4GvNMtQBLnRE+Q/vvv7+58sorY5ZhG1rk5pavB9sd2NeaSKsoN7hEfmJaBfHsJBam5k0jRC2ppoBl4TQ7S8MxN2MoWMe4rG5DQ165BWZJYoukAkwMdcFJpdNgD5HESPvaXt4h1MLCMp/75b9KPQeK+6yP+nDMdS53v9UCLGPSFkf/MhRTM8d9pbdXGue5UsaXNkPIB1jGIIlFR5m0CnI7CCPhI3pzpbWSWJYWQ1/nUXJMwkfc63nnnddbpqo5YFkcLiadIBCJIYJ7X22RA6KILG4h7wHKvFoiTKZbBYL5ZP7yLh3gUpE4oMsFgvEwPFawawVYSkQoORFSQgxctpAuLm7E4NpJ99Yll1xi+PpHJVRNwNK1xVcwpfeWmBFrm5fswfLRFSUWEKGVL2qG7CcEsIyDi4vcCL9DQyPkmcsLEKUZbu6E9BPzPPJGTC8uua86MV0Ay8K4vuW6QGTlWCiurNsVhJDSJ0qzt2g7Yh4sta+ThDuLNFTL5pmXWh3ZQLe1j+tKtC9iwdxnAZ7vfiKCBpPdy+v8v5SD6ErK6/kl1vbN4QohF6Epj4mAo1QAIjdjkt1UxPLwDC8GRede/6Pp3vcBbYSF+QCVS1hEstXwMHlvlMwvHg3WIZSSt1vYH4qT8MmthwIg5nXve+IK087nCw9oPiFBhTyxLzEQeY0SfEaXzLOcJfvBAKA0mQ9ZTTMAhFRkn93mCZQQBofbY64yQm5QCBgfstVjxowpsQ0+0H+eJOJs9sIFeywxCTv3LJgjzRVHUdHHz3mSQ+L+Ma4/ck/+gL9nfuaUTRGLciEgSTAE94abD8QpLiEMtI75bnTIO4ARSyuflZF/Z4O4zHxuVTS1/EZsjDUOadSnfugyOVRI3edCb2bIOwguApC8CI8LhpvIQdIrnHY/FyUHyHxgZS6u5W255ZbRW8L6+a7UJQdNu7fMM5wFZRvkILkfQE3iKiTUSV7hk/nzACuZ+SwG+Lr2brnlFmuYkutmT9z+ofc563vcKAk8qDTvKeSCPV8cnWuuucqW7nYApu2J8/Z++Z9sL4CipzSPACjgRnPF1MZkTDQSguReFk6bjy4pNHhop0uWIIRKOfviMkTeHdWssbIEIu154n2y5fw3lH+USUjqpAE/b39kbaUFMpQPPEfYQ2ZVPiOU9W4lXwVxe47dcbE4ACiNkl5g8plkH27aGChXxgEsPsKIoIgBZN51PrdrMG1M9oN3mPTsMAwo6rTzZG4utHsBKxNyWAgI1g73AOtKWYXL5lgxTLzP7fExhGI9SQGavVk88+GSynd1cMFirlL55psev+PesSf2wr74AyA5cPEi+HJDbBw+PdaeNQcu3xtvvGFlgXOiHxzPgW9U8V9kor6yML33R4WEMxIZx7MjGUWXFi4sNenkhfPpvUbmCwZsQyxO51QOKAfKOaCAVYlQDhSIAwrYAh2WLlU5oIBVGVAOFIgDCtgCHZYuVTmggFUZUA4UiAMK2AIdli5VOaCAVRlQDhSIAwrYAh2WLlU5oIBVGVAOFIgDCtgCHZYuVTmggFUZUA4UiAMK2AIdli5VOaCAVRlQDhSIA80KtFZdqnKgyXNAAdvkRUAZUCQOKGCLdFq61ibPAQVskxcBZUCROKCALdJp6VqbPAcUsE1eBJQBReKAArZIp6VrbfIcUMA2eRFQBhSJAwrYIp2WrrXJc+D/Gky0mW+MBwUAAAAASUVORK5CYII="/></switch></g><rect x="670" y="440" width="281.6" height="131.32" rx="5" ry="5" fill="rgb(255, 255, 255)" stroke="rgb(0, 0, 0)" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 280px; height: 1px; padding-top: 445px; margin-left: 671px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><font face="Helvetica">Core Type-checker<br /></font></div></div></div></foreignObject><image x="671" y="438" width="280" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABGAAAABICAYAAAC5voPhAAAgAElEQVR4Xu2dCfx121jHr0oupZAy82pA5qFkKI4SSiRDiujNPGXMTN0MyTzUxxDpooTIVGa65shQEYrLJUPmISWEnq/P//RZlmefvfbZwz33/L/P57M+73v2WdP+7n32+67fftbznOoYTQISkIAEJCABCUhAAhKQgAQkIAEJSGBWAqeatXc7l4AEJCABCUhAAhKQgAQkIAEJSEACEjhGAcabQAISkIAEJCABCUhAAhKQgAQkIAEJzExAAWZmwHYvAQlIQAISkIAEJCABCUhAAhKQgAQUYLwHJCABCUhAAhKQgAQkIAEJSEACEpDAzAQUYGYGbPcSkIAEJCABCUhAAhKQgAQkIAEJSEABxntAAhKQgAQkIAEJSEACEpCABCQgAQnMTEABZmbAdi8BCUhgZgKnjv4vH+WqUY5EOWuUs0f53yjHRvlElE9GeWuU10d5c5QvzDwnu5eABOYhcLro9vRF11+Lv39qnqHsVQISkIAEJCCBqQkowExN1P4kIAEJLEPgh2OYe0e5XrUgaxn9MVGJcmJLZeuMJsC/tZ/f4jqNGfjW0fjxYzqw7U4SeGrM6kbVzM4Unz+7k7PdjUldOqbxpmoqV47Pr9yN6TkLCUhAAhI4TAQUYA7T1fZcJSCBfSDAG/C7RjlugpO5W/Tx8Chfn6Avu+gmwL+1SzPmHnmYF2XvCPxlnNGvVWf1g/FZL5juS72Kr/6u+vqa8fmFe3d3eEISkIAEJLDzBBRgdv4SOUEJSEAC/0/gbPG3V0S54IRMWIRcP8qXJuzTrr6VgAKMd8RUBBRghpNUgBnOzBYSkIAEJDATAQWYmcDarQQkIIGJCZwj+ntVlPP19EvMl/dH+c8o52moT3fPicJbdeLGaNMTUICZnulh7VEBZviVX0UTPWCGc7OFBCQgAQnMQEABZgaodikBCUhgYgJniP4Iokvcl8wQXR4U5W+ivK+q8J3xGc+ZX49y3yhlAM+y6h/EB2LKaPMQeEJ0e9rGri8V9TIvp6c1tqfaU6IY42IAsFNIVQWY4RdqFU0UYIZzs4UEJCABCcxAQAFmBqh2KQEJSGBiAn8a/d2ko8/j4vhDo/x3w5hnjDqILHfpqHvJOP72hn6sMi+BG0f3CCilfTg+nGveYe39FEBAAWb4RVpFEwWY4dxsIQEJSEACMxBQgJkBql1KQAISmJDA1aMvPFsy+9U4+FdbjEUGpN9O2rHF6ee26M8m0xJQgJmW5z71pgAz/GoqwAxnZgsJSEACEpiJgALMTGDtVgISkMAEBL4j+nh3lCzuC1uKnrHlGN8V7RB1rpq0Z6z3btmvzaYhoAAzDcd97EUBZvhVVYAZzswWEpCABCQwEwEFmJnA2q0EJCCBCQhcOfp4edIPwgsCzBi7UDR+Z9LB3ePYQwZ2fN6oT5wZ0uH+10HbT8af74ny5YF9tVYnLg7jsvXqxCitAYQRn34gyvcdtPlc/PnZ1kEXqrdPAgwxiM4ahe1TpOL+jygfi/LViVl+b/T3Qwdj0PVHo3xl4jHGdneW6OBIFP7kviXz2EkHTL7W2HmrAPM90d85o5w5yhej8HskVlTr76RlOqeJSvzmucbffcB8/ftvad9Sh9/r+Q+YIUgzJsw+eHBeLX2sotLJvQVp6ftz2+djC0/rSEACEpDACAIKMCPg2VQCEpDAzAReEP1fIxmDBe3HJxj7jdHHZap+nhWfSUvdZ2RYuk2U60bpCg5MH8+N8vgoL+vr8OB7zvfaRV0Wqrc9+Mxi7A4H45ZjXiyO/fOG/lmMcE6/EiXz+lnP8/j4y0ujzCUaNSI4ZowAc8UY5Gg1ECLTnVoHP6j3U/Hnrao2iBrrQM2ICLeuvkcc+NeDYz8TfxJr6JeTccnQxda5x0V5y8B5ldUvFx+4/24YBfGltn+LAwQuZl6IdCeHIUzc9GCOl98wgdfHdw+I8pKeSW4SYM4UbX8ryh2jIL7UBnd+30+K8vdbwviRaEfGNLY/XjTpA5GHMf4iypuifGPLcS4S7W4XBaG5K3A4Yz05yiOiIDB12Sq+2FaA4XeTnScxmk7oObc57s85no9bXiKbSUACEpDANgQUYLahZhsJSEAC8xPgDTZvrmt7ehxgwTmF/UZ08vCqo1f09H/q+P6eUX5/4ARYYB6NUmdpqrv5wziAF05p/Ft1JAoLu59Mxu0SYHhj/ptRHh2laxFXd8eijnm+eOD5TVl9jADzCzGRFyWTIasS29la7U+i4s2ryohTVzs49tPx52ur728Un0lpjkiQCS/Z2IhzCDUtQaTX7fF84r5FUGs1AlnfNcqS3k6IUIgdfanjy3NAGEFkfHPHiXUJMAipL2yFEfXuH+V+UVo9Yvj98LuntBq/+ZtFwROu1U4XFRGihgqGtOF8Ms+qVRzfRoDJnkWcB2Lvz0fhWZHZnPfnlM/H1mtiPQlIQAISmJCAAsyEMO1KAhKQwIQErhB9vTrpj//4I5KcHEYa5WdGybxyWubDG3jenG96y58tMM4ebV4XpcvTJhNg8JZh8YsAs43xZv2WUVoXqNuM0dVmjACDx8WnotSCE54rpBpvsa4+yrhDmQCDp9J1ovxsyyBFHRbq3FMt4gieOWzLaxXUyqmwYEa0ecPA+W1THQ7P3qZhtOF3ggcI22xqywSY20clAmsPtd+LBogWfYa3Ex5smSdIX1u+x5OKNOx9xrbA50dZ9VXs+J5scHdLvqO/IQIM/zemryxb3Nvi+FWifLpjDnPfn1M9H7dEbDMJSEACEhhLQAFmLEHbS0ACEpiHAF4g/Ge7NjxjhngLTDU7vEkI3IuHxSZj8di3OL5s1OnaApEtMP4h6meeL+t51AIMc8VbhkXwGMM7o95mM6a/1rZjBBjGeGQUtqGU9q74QNyfFmOBibdLbVzXtVdWJsC09N1Vhy1JiHObjC0diDVjjPsTbxF4zGVdXkhDxuOeh3EdxyYTYIb0W9e9eBz4pw0dsLWLrYqbthm2jH+DqMTcuwzB9IQom7ZptYyD5xVbN0tbxYdWAYb/F+NdlXngcE3YwtglFC5xf07xfGzhaB0JSEACEpiJgALMTGDtVgISkMBIAsRQYNFS2pBF9Mjhv605aauzt+wsaHmLTryHt0dhgX5sFNJZ4xGRCTZ4IvA2PYtj0+X2n50PMT7wUGGMDxUVWDwRFyKzB8VBFvFsiyBmBsIOC3K2z2TGFgq2ryxpYwUY3sJnAtcF4vg6Rsum88Fb4RZVBWJeHC2OtQgwfxT1icFyUhREMbZm3CRKvbVp3S1bdvB0yuyMcZBrlsV64VzxdvrHKMS7uXAUGLAYZ+tVbR+OAz8W5X86xhpzmPmxzS4TIdnWxuKe3wnBao9EuUQUvC2ymC2Zh0qLAIOnE6IJcW8Ikstvjd9EJqJ0eY3AgP8j4pGSebzxG+a3xLngqUPfl46yitIVZ4nr8i8dcO8Tx9kWVRvPF8ZBUP33KN8fhTg0eLbVMYpoS33iU5UiCXNqEWC4R9muSOyZ2rjHeM5wf2W21P05xfOx4xQ8LAEJSEACSxBQgFmCsmNIQAISGE4Al3+2G5WGEIAgsLSdOwbMtkOwCLtSlC5vAv6NwRMjE0MeHMfvkZxI3wKDBT2LWMQXssjUxoI7W+QxR7bQdAXr7fL64ByPdIw113UYK8DAHRGgXnC3ZLgixg/bK2oBod76tkmAYRGMJ8M7OgAher0yGQMPA8QwsiXV9tQ4kIlkx8XxB0bJtoqxZY6YNJkIiDj42Bku4J9Fn0eTftkag9iRGVtvyGxWz5N7Fe+u0jYJMAS85vdWipHrtghDbN2qtxEhRvH7zoLlEtCXrXi1MQ4iWtc2nN+N77IYUV1eTohh/J5r4xhCLnPMrMvTqPaCWUXjPgEG8eWPo2Qeb8Q6+qUoX+iYB4eXuj/HPh83nIJfSUACEpDAEgQUYJag7BgSkIAEhhN4azS5ZNWMN8QsbpY2Frj3qgZFmGAR/t6GyfBWmTgVtZEO+jPVwU0LDBaEx/eMly2AWcAhzCAMbLKutN8t4zZgaK4yVoBhoMyjIFvQ15PKGHCtzxGlFDk2CTAILH3ZjbraZ1tVfrTjPmsRUfDGIhbL1ZP7l2xi22bpyS4msVJIs10bnmME1t1kxDnCw6cWvkgjXQodXQIMwbkJqr3pfBDksmxQpJCv582WoA9EqT1zWraKdd1/HEdsqQNxI6jeOYGDJ0smJpVVs+cFgm8Zv2UVnzcJMKTRJiNX5pn1qjiOoJMFRF/PY8n7c+zzsec29GsJSEACEpibgALM3ITtXwISkMB2BHC3rxc/m96ibzdKfyu8CNgqVC8M2dLwqP7m36xBZhMWeHUfpLMlqG9pXQuMloChLCRJlVzbL8aB1qxG9426dWDS1tTcjTh6q00hwHR5FWQL4HJCLETrrR0skH+nmnWXgFJvVdp0slz7Ou4LmXyuWTViQV3H5GBLCHP4Wi/NY47Bw+TzSb1NW2Iauv22Kvw+8ewqLdsS09U3XiO1wAqLMrtRlwBTCzVdYxDvpfaCITZQ7cV2rTiGp0t9Lmxjy35j2XiIHqvqizogb9ezoTVodHZta6GROXQJMIgvZPxia1xteAzBoS/m1pL355jnY9c94XEJSEACEliQgALMgrAdSgISkMAAAogedbwL3OMJDLuksZUki8tBbAmy7bQaMTpuWlVmCwheDKVlCww8MHh7T9yMTZZtmUB4QYBptXNFxfqtO4voM0TJtsa09juk3hQCDOMRB4QtPaUhpNSpx9ffd20/+omogEdWaV0CTFdK8Oz8mRtzLI1tJ+evjmW/BdoSd6jVuNfq7SUtHjSt/VOPbVV1BqgW75f1GBkPfg9l6udMgBmyNTGLLZXF3sm21JDG+2EDgFw/6rK1qrTag4axX5P0mXnldA1NVrU67gy/17Xotoq/ZwIMz4auTGl/G99dL0q2zbGex5L355jn44BLZ1UJSEACEpiLgALMXGTtVwISkMA4AsQxqQOIshDLMiONG2lza7YG1At24rAgEgyxLF5DtiUmW2AQhLPeApWNzUK0fpM9dNFIvxl7toh8bMgJj6g7lQCDtwEeLaURZ4VgqZkRb6NOcZ4JIrTNBJihQhXbXNiCVntGIQSttzt1bZsp67SgZhvJ86qKxPwguPTayDCGR0arscBfZyniXL6aNEQYIJ5Ti9FHLRZyL5bbhjIBZsgWOQIj10FmCbJLhrPSphAV8Mr5ZNVvfT+xVagWdTbdoxlHnpNsA1obXlEIKGtbxV9qAYYMaaQkZ9tWbbS9bpSWIM1L3p/Mc8zzMWPnMQlIQAISWJiAAszCwB1OAhKQQCOBzH3/5EiLnC34WLTwJn2IZYF88WwhbkZp2QKjdTwy/Jyv6o9sKWwlGGLEkanfqJNV581DOhlRdyoBBg+qLNMUi0bie9SWeYkgfCGA1ZYJMK3xQcq+EEUQR0o7Eh/WQZ/xQmALWGks4lcD+eJVUy/CWWgTXHVt2W9u0zBsV3vAQYUfjz+zYNRTp43Pfo8tMXfW50GGpNKjhuP1NifExo8kJ872tT4vtLpZtl2JbT9rb7LMI6fkOvAyp9W5V+prv6lfRDnEuRZb8v5kPmOejy3nYx0JSEACEpiZgALMzIDtXgISkMCWBFh08p/70hASyNazpGXbKq4YE8i2DWyaF54F2eKN7CNl4NBsgdEqfkwZULU+Fzx42OqwhE0lwDDXF0Sp0whn8Xu6vFHwLMgCt2YCTEucnppf5pFBZq0TDiqyTah1MTz02tSeFmy1Y8tdqx0XFdfZfjIe74/vSZk8pWUCTF9cn3L8FgGGbWSk9J7LiNuyDoidPV/IVlZvXRozl1U0HiLAMBZbEbuyL5VzWfL+ZNwxz8cxDG0rAQlIQAITEVCAmQik3UhAAhKYmEAWDJUFAQuDKY2AnLyRXhvu+2Wq5ixo55AFXznXTCCpPQSyBcbFoxPmscm+O7788pRgqr7q1LYzDvXN7V0Esy1t22ufvaEngO1lq/4RPcj4Utrr4wPCQmaZ4EAKZDJeDbHjojLCTWmlx1NXSuMhY3TVrbfAjRFgyLJUb+PJOI+ddybAkM0p83TKxmoRYFbRcKhgMeS8yoDBWba3OuX5kL6zutucTxYMOut7yfuT8bd9Po5laHsJSEACEpiIgALMRCDtRgISkMDEBLLYCAyB0JDFmthm+GxbEP2UAXazbExlgMvWcYnZsY6XUbZp8YBpEWBIaT0kKHDrvNf1yNbDFpslbEoBpsvzqE7xm3mi3DJOlgwxmWUCDNu9CN46xNjedI+qQcm6K0XxkDG66tbxSMYIMHhtkAq6tNZF/JBzyQSYIQGxWwQYtiQ9f8ikBtYlpfl6a1L2fMmCPg8c4luqr+LTNoJSlqWtnseS9ydjK8CMuRNsKwEJSGAHCCjA7MBFcAoSkIAEEgIESs2yvJBlZZvFRAaZgLUEri2t3jaRvaFGuGHhNMRYdNUu/cTMIAVuadsuMPCk+WIyIbwc+tLItpzH7aMSW1aWsCkFGOabBScu41x0bT/atLDPBJghwWDXHAnoXAdCLdOG3z++v08CHe+SscY2mzIzEotptru1Gl5q61hIWZBfPIoIbDylLSHAsM3xpTMxJ7AtcXfW2xGzgNdZVqYxDFfRuOuZ+cj4jrTzxI+qs86xTYp4SZuE3SXvTxhs+3wcw8+2EpCABCQwIQEFmAlh2pUEJCCBCQl0eYxMuaj765gvmUBKqzPDZEEyiZPxhoHnylvtWsB4bhy7dtXPmAVGtsWJ4KjvGTjXk7v61AJMlt2o3F60ihOuF6h4QFxrA4hMgNmU4rqrq8zrpLy/sixceJrc8OS+SNX4F47P76iOLRUDZmoPGIL61gGnESOI3TK1PTM6xOOptKViwJQBpnkO8jysrS/j29L355jn49TXzv4kIAEJSGALAgowW0CziQQkIIGFCLwoxiH4a23bCCB1HwRXfW/SN4IIwsjaiM9xXFVvm+04R6MPsguV9pD4cPfq2JgFRpY6l7ftZUrahS7dqGGmFmDwcCGrTf2G/5wHx7PtR6Thfc6Gs8gEmEdFfQL8DrHsmpVBWrP75m0xwKWGDLJA3a6tXmXGn75pnCYqcL6lIYS8vTiwhAdM17PhjDGPz/WdxMDvCWJMHJXShqaOv1w0vkjRASnMedasMy2t4u+1wIhX1QOrcYnhQyyf2jYF4OZ61c+1Oe/PMc/HgZfG6hKQgAQkMAcBBZg5qNqnBCQggWkI3Ci6yWJqvDiOs01jjB0fjYnZUVsZIJPv2B7CW+DSiAtCfJAh9rKoTHDN0tj+QWrt0sYsMLKMP0MXc8yF7SSlWPGF+Myb+qVsagGGeWdcbxPHnxjlM1FOX51cX/rkTICpY6r08cpSN9eBfzPPKfodGguJLXD1b4ZF+fv6Jjng+7HxTFjoI7qWhkBxXHFgCQEGwS6LM3WZOJ5ti+xCRD9Ho5T/18Qb7bVFg+z5MjR2DiIVXjulcT+vtySu4u+1AFOn3qbteaPgtVQbWycvGGWduan8fun7c8zzses6eVwCEpCABBYkoACzIGyHkoAEJDCQANuQWLAQh6C2MZlCsgUJ/eMpgsdIaSy63piMf5Y49onG8zlb1FsH3SybZJ48YxYYbIF5aDUnFlTnj8Jb8RZjoUVcitK2zUDUMl5WZw4B5hIxEG/mS2MhjCfAq6vjiGJlbJRsjpkAQ73zRck8q7I+8Bw4Wn1Rp7Lu2oqHOPnnAwBnW+mG9tE3HGnKr1pVQuC6RV/Dg++fFH/etKoLZ0SptS0hwDBW5n1HLKGbNZ4L1ajL+ZdW94H3Snl+67o88z7QMFYmmrw82hHHZm2r+EuLAEN9BFs882p7TBy4Q3J86ftzzPOxAadVJCABCUhgbgIKMHMTtn8JSEAC4wgcjea1i/u6R1IJDw1GeoFowxvj2uOBPo9E+WA1XbaDIEDU9e8dx8io0mLEWqjd/btS9I5ZYFwsxiGwam1DYko8LxrjAVMagTbrbRIt571tnTkEGOZCoFEEktKI9VKfb73oz86jS4Dpi5mx7utI/CVbYK/ieC0IZbGK8LZBLCNtep+xXektSaWpt9QgtDwhGYcMXXgZbTJSu3NOpeFxQdvSG2UpAea2MS7xoGrjutXPiOy88KBC/Ky3vdXC8bFRB8GO7XCl8WzhGdNn8K4FLrbBsR1ubav4S6sAg2cVW764t2rr2vq55P055vnYx9LvJSABCUhgAQIKMAtAdggJSEACIwjwhhVRIVsQ0C3ZbPBYaPHwIL7L8VEy8eVWcTxbPDIGb37LBc36dHjbz9aiTUYskSx9c1dchbELjFfGeGSKKo2F4JWifKhnrteP75+R1LloHKsDrI64pL1N5xJgut7u16yIAZIFNC7rdQkw1CF476Y0xogKxBki201txFL5UnWQeq9J6t4zjnG/bDJEFra0sHgujXuyDv7ae2F6KnR5rJFR6DpR1pl/6m7YqoM3Et5mpT0rPnBPlraUANMlvHJdbxBlU2YxzucRUXg2lYagdKYo9bMq24ZEu2tEIS5Ll2VbtqhLQOTSi20Vn1sFGNpzrxAcujYEMkReMjmVtuT9Ofb5uAGnX0lAAhKQwBIEFGCWoOwYEpCABMYROBLNSaecCSf0TDpnXP1ZrNQxLVjQEvviaJQswCTtT4hCppx10Mp6tgQHZYxsK9Sm1MNdCySyIZHuN1vkj11gILSQKao2Fn9sr8oW8rytZ+tStu2mLxvQuCubt55LgDlPDHdSz4Sz4KRZk00CDPXxoGBLzVeqxnhgsdUtu5fuEsdZuGfGdcsEm+PjOLFsatGGPq4YBRGj9sLgO9K8z5FWvCubDtts8DT6dHVyiF1P7ji3TIBYSoBhmnh9EYOmNrayIbJlqeiPxHHiVmXX6o5x/NFJfwQqpk+EztoQexBFy2cF9fmtEjw6mxtxWcr6q/g8RIChT+Jc3Tzpv47Js66y1P059vmYnJKHJCABCUhgSQIKMEvSdiwJSEAC2xPIUsN29YbHBwEozxolW3yW7Yjjwpv3vngLvMF/dseAiDPEiXlnFMQagqsi6NTbCtbNN2UmmmKBQQwHvD0yYyHMYu/dUfCOuHgUFuoZJ7Ze8ca7b/vI9lc1bzmXAMNoLERXGybcGnujT4BhCO4tgheTOQfWiG51sNT1VPCI4R7r8rxBPMILKRMhGYdtS3iKfTYKIg/bjmqvl/VYm4SesdeS/1eRor32Zln3y73H9whGeGpkWc6oi7hw+2QySwowbMeBa9e54NnD+ZwU5UgUfktd54MXEgJU1/UlZgv9ZYZ4iqiKV8vZoxA3pt5KRzvqXTJKLUKv4thQAQYvLZ6J2f3GMwFBvLSl7s8pno8dmD0sAQlIQAJLEFCAWYKyY0hAAhKYhgDeHXhkdHnCDB2FRQQLpixAbt0X/16wmL7e0EGq+g+Oz/fY0McUCwy2gsCpazHYegrbxNhp7XtTvTkFGDyW8LjIrA5eummOLQJMKwsEQ7wWEE822ZXjS+Y4xvqEgDF9r9sS9BmPiD7xs2ssPHPwIPlyUmFJAYbhzxUFwahLTG3hhUCGKNsnZD486ty5pcOOOl1b31ZRf6gAwxDZ75DjXB9EoHor1RL35xTPxxGIbSoBCUhAAmMJKMCMJWh7CUhAAssSwKvl+Ch1tpWhs3hsNEAIyVKrdvVFbAfixNxk6GAH9Vk8ELdjk021wECEIYhoawaack4wIXZNX3ybLTH0NptTgMETpWshTEyULF5PNuFMgOHa4XWSbT/pOmkW51eLQuDTFmPr0CuibCNCPi7akSlrU/ySljm01EGEYZ5DhQsEJjIhZdt7GHdpAYYxyXiGcNXlvbSJB95xbKXK0jvX7fg/6f2isA1uiPF7vVuUOqX9uo9V/GUbAYb54AGU3c9dXlRz359TPR+H8LWuBCQgAQlMSEABZkKYdiUBCUhgQQJXiLEQUIZ6eTz9YJFDRpxt7ZrR8JFRsjgeWZ+8Mb5dFLIv9VkWd4ItJdvOFz4EEM62LNRzYcsRb+GfEqXPG6PvPMZ8j5cRsUtKYyF7oTGdFm3pu/ZkYhGLx0YdYLRryEyAIWsN/FhEsyDuM1JOU78rOG1X+zPHF4xFTJEWY5sMc9oUGLiln6F1iL909ygtGbTwRmPbXJ/ol6WqPkO0+3zj5BA3yOpVWktKe7YjERPlQVFaxC+ynBHPh6xiZRanlmmy5Ym0zy2CDx51bDnc5F3D1rc6W1zLOTPXLC09x/m9IGZmWbjmvD+nfj62XA/rSEACEpDAhAQUYCaEaVcSkIAETgYCZ4sxWQwjyJw3Coto4hfgHs/WIjwMiGXA23i2Ekz19h9vGLboENiX2A/MA+8c4n18PMrHDsZ7Sfy5rXgyFU7myiKM2DMXicK2CrKxILiQGQlvA7KeEMS4JZvUVPM6ufrBC4Sgw6UhhHC81boEmHVqcviS/pt4GUei4EVB+mLiBCEm4ZHwkdbBOupxv+E9w2KaGBzcg1w/7neuK3++IEqZEWfkkFs1P220IjMX3hHniMIC/VNRSL9MvBK8QxBgWlJqbzWBCRsRsJr4TgibiJp4+PD7Wv+OuMb8jt40wZgEKOb6IvTCjeC78KKceHBdeb7tqp1S7s9d5ee8JCABCewlAQWYvbysnpQEJCABCUigkwBiUx2gdqiXUZ8AI34JSEACEpCABCQggYqAAoy3hAQkIAEJSODwEMAjhWxBpQ0JvrtupwBzeO4Zz1QCEpCABCQggYkIKMBMBNJuJCABCUhAAqcAAgSivVU1T2L6EGR1iCnADKFlXQlIQAISkIAEJBAEFGC8DSQgAQlIQAKHgwCxb4jVURrxR8jYMzT2jQLM4bhnPEsJSEACEpCABCYkoAAzIUy7koAEJCABCewIATLVXCUK6Z3JkEOgZFKP19mgSNP9xC3mrACzBTSbSEACEpCABCRwuAkowBzu6+/ZS0ACEpDAfhLIBJL6TMkgcyTKl7ZAoACzBd3taXsAAALdSURBVDSbSEACEpCABCRwuAkowBzu6+/ZS0ACEpDAfhJoEWBuHKf+tC1PXwFmS3A2k4AEJCABCUjg8BJQgDm8194zl4AEJCCB/SXQJ8A8OE79XlG+viUCBZgtwdlMAhKQgAQkIIHDS0AB5vBee89cAhKQgAT2l8Dl49Rel5zeu+LYfaI8d+SpXyrav6Xq407x+VEj+7W5BCQgAQlIQAIS2FsCCjB7e2k9MQlIQAISOOQEzhnnf+4ox0b5aJQTo3x1Qib1/yG+MWHfdiUBCUhAAhKQgAT2joACzN5dUk9IAhKQgAQkIAEJSEACEpCABCQggV0joACza1fE+UhAAhKQgAQkIAEJSEACEpCABCSwdwQUYPbuknpCEpCABCQgAQlIQAISkIAEJCABCewaAQWYXbsizkcCEpCABCQgAQlIQAISkIAEJCCBvSOgALN3l9QTkoAEJCABCUhAAhKQgAQkIAEJSGDXCCjA7NoVcT4SkIAEJCABCUhAAhKQgAQkIAEJ7B0BBZi9u6SekAQkIAEJSEACEpCABCQgAQlIQAK7RkABZteuiPORgAQkIAEJSEACEpCABCQgAQlIYO8IKMDs3SX1hCQgAQlIQAISkIAEJCABCUhAAhLYNQIKMLt2RZyPBCQgAQlIQAISkIAEJCABCUhAAntHQAFm7y6pJyQBCUhAAhKQgAQkIAEJSEACEpDArhFQgNm1K+J8JCABCUhAAhKQgAQkIAEJSEACEtg7Agowe3dJPSEJSEACEpCABCQgAQlIQAISkIAEdo2AAsyuXRHnIwEJSEACEpCABCQgAQlIQAISkMDeEVCA2btL6glJQAISkIAEJCABCUhAAhKQgAQksGsEFGB27Yo4HwlIQAISkIAEJCABCUhAAhKQgAT2joACzN5dUk9IAhKQgAQkIAEJSEACEpCABCQggV0joACza1fE+UhAAhKQgAQkIAEJSEACEpCABCSwdwT+DyHkTKOowiLuAAAAAElFTkSuQmCC"/></switch></g><rect x="180" y="360" width="431.6" height="90.46" rx="5" ry="5" fill="rgb(255, 255, 255)" stroke="rgb(0, 0, 0)" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 405px; margin-left: 396px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: nowrap;">(currently unimplemented)</div></div></div></foreignObject><image x="306" y="398.5" width="180" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAtAAAABECAYAAACoPwLgAAAgAElEQVR4Xu2dCfy2SznHT9kV2aIspydbKGTXsb1IiLJvof4dIVshu+hNskThRMnWGweRUAjZ3ohEFAnZOqKIyJIixPU957nqOvPO3PfM3PPsv+vzmc//+T/P3HPP/Gb7zTXXXHODyyRCQAgIASEgBISAEBACQkAIVCNwg+qYiigEhIAQEAJCQAgIASEgBITAZSLQagRCQAgIASEgBISAEBACQqABARHoBrAUVQgIASEgBISAEBACQkAIiECrDQgBISAEhIAQEAJCQAgIgQYERKAbwFJUISAEhIAQEAJCQAgIASEgAq02IASEgBAQAkJACAgBISAEGhAQgW4AS1GFgBAQAkJACAgBISAEhIAItNqAEBACQkAICAEhIASEgBBoQEAEugEsRRUCQkAICAEhIASEgBAQAiLQagNCQAgIASFwhUHwm2sY/t3+vp2F5wsWISAEhIAQyCMwmkDfxF7zSxZubuGDLPy5gBcCQmAoAm9pqf2MhXeYSXVlv//10DcrsWNG4MOscD8fCvjW9vkvj7nAg8v2Kpbe4yx8xEy6n2K/P3rwu5WcEDhWBD7NCvZgC2+cFPBX7f8Pbij0D1rcj7ZAeo9veG4y6mgC/aP2tk9ev/Fj7e9Pjcqo0hECQuBaBD7cwhMqsHh7i/OnFfEURQiAgAj0snbwevb4iyqS+EyL830V8RRFCAiB6/rKZ2SA+H377t0aAPo3i/s6Fthde0cLQ5RLIwn0HSxTv7guEJl8s3VmG8qoqELgIBF4K8v1b1lgx+V9N1yC17D0P9/Cm2Tew4DCzg8iAr3hijiy5EWgl1foR1kSt7NwwySpN7D/nQSIQC/H+ZhToO38toVbWHhPC0OI3gEDxk7Y3S282roM97S/EOFWAv0Qe+aL1mk8xv5+4ghMRhFotq8o0DutM/XV9vcbRmRQaQiBA0CAbaEfWufzze3v83aU54+x9/7k+t0i0DuqhAN9rQj05iqO7ecXrJMXgd4czseQ8i2tEH+1Lgi7+T92DIUaWAbML+7UQaCZl/8m5IOFLguVRTKKQEcCgfb5cgv/sihnelgIHA4CZ5bVR66zu7K/u9IaiEAfTpvZt5zeyjJ0fp2pl9tfdjlqTBL2rRz7mB8R6H2slf3MExpXPzsGr/rh/czmznLVS6DJ8EPX4xqfOTC9eLd4BIF+VcvIsy1wuAm5n4Wv2xm8erEQ2D4CZ/ZKEejt4643CoFDQEAE+hBqaT/yKAI9XQ9LCPTKkn5OSJ5DiBxG7JYRBBq7r58OOXhD+/zP3TnSg0Lg8BAQgT68OlOOhcC2EBCB3hbSh/8eEejNEWhS/n4LV65fgdehOy5pMiMI9JMtA++zzsTV9vfTl2RIzwqBA0RABPoAK01ZFgJbQkAEektAH8FrRKA3S6Dfz5L/9fCKd7bPf9jbbpYSaE6JPjW8HBdbv9CbmcJzeB14Wwu3Xv/9D/uLey7MRq6x8D+D37ePyXECFRtFTua+2MKfWPiHDWeUk668800t/N36nby7VzhourKA/2LqktPGf2zhWRbYVtlkPb6Wpc8B13e34JMZdspPWuPZWyZ/7sw+yIRjKYp6PiKA54Z3XYfXtL8cTMU2Em8vm+wrm6yFG1niKFve2wLj+DMssIX6f8lL8eD0oRYY7xjn/sgCipr/HZA5JkwuiWFcA+MXWniuBXxed0+kM/naJoHmLgYOEDPOriz87Ro/5oyRNu2YbtI+398Cc/SfWfhZCy9NsKDO0fKB+cvWeYHAcFZqiXDXBOVkLmHXm77BfAI3SPOw5D3ps5SbeZGyv80aUzDGpnbExUO7JtDbaj+OK+0D71GYAHN2jrGNw35wAg75pWPdEhMO3gnvYO7nUCGCRvoevQ1kKYGOrkHoEAxIowZ3TEOwpXbPHqUyPtZ++DILnFz9QgtowO9tgQE3FWxe7m/hpskPT7P/P3UCRAb8B1nIuQ5jYMJBd42U3s+zLETumiQCnpQF1y2pI/EL9h3eTuY67RdYHBoIk3Aq32FfPCz5kkHpPhZyvhfva99T5y0DFAMcjtCZEKeEAYh6hCDUCieWH26Bvy7/aR+oL/J4ewsPWP9fSvO77YevtFB76PVmFvd7LDCIujCYs+BAmPBr0/odi0udpwSitvxpvJGHCN/LEufQBQNqTn7OvvziiYzSjmhfkKCc/IZ92T1w9QIUnoOkPcICk2AU2g8kr7RYZLJm0KV8qTD2QSj+aSJ/KBm+1gJ924U2j6smFpmfbYH+52dK0qRoX99i4dss9BBKiCNtPrbfXHYhPa0XqbyLPcP4wDtc/tE+fICFr7HA+ZhUmCQZ6ynXq1v4egtfmokH0WZsT8c7yNsPWGBxnAr9AVIF6fksC4ylKGNKAgm8ygIedfAbO0o2TaApH32Rsd6JQS7vED0OpTGvvmSmcPR72jk+c6PgrYVFCBdT+Jjnv1OHeEhgXEMY274zE498fIKFVi8I9L1vtIB3ivTdMY/U4zdZuGChdmwFQ3wOv4cFPrtwkO93LUBs4QC0qZJgEkA9tPjfZ4zF9ai/E3/iPtfDqVBe1QgLCNr4HB/IpbWJ9jOX55VFgNd8roVSXdKemN+/3YLPqUsJNPk6byGORa9t/7dwmleUbQmB5tm/D5XNgD41oc4B6r/TSRjE7lL7wDoeoDDxUBk0yntlnocsfk7mewZZiF5JcMkHycoJg8FbVOa19H4eT/0acqMVE0NKnOOraGBM2GjjS8IkWJqMGRC+fP0gnQg/iXw3JUxkTHhz2mgmNghx64FSyMF5C3MDPHk8s+Ca35hnMOO9dNAaYfHF1k7N4MMEMewmI0sLIlfz3ppyjCTQX2UvfODMSyE8/12I83n2PZPnlLy+/Vi72Kgpf0ucT7LIpRvhWGCjmcxJ6u4tjbOyL6a8sFyw3++WPETfp7//hAU3h5srC7dRcllVq8Li4+0Z/KDOCYT09+YiJb+X2gx5pd+UBM3vOQvc5Ec/LAmEi99jmVGw/EHhAe/TkL1aXEmK8QCCR72MkE0SaBYtED80orVC+ViMTCkr8FDAIjcVbhr+kJkX4RcfYsR8XJLW6+KpDwj9FHFO3wWhhVQyR89J1PzGuCwkWZSgNKkVCPGvVURmET212K5I4npR8G1c07fjQ5tqP1N5nxp7c89Rf9zgiVJ0BIGG67Gr5cLYxO5Jsywh0HTYOMCOuHkQMkgDiCswCBIDLFv9rLLYjqdBsyUE4ctpqL/XvqfjpELcL7Hg2lgmQzrkHIFGS8XkwHaDiz/bQqDT95OWp+MEGnMNtDi4kYqCFpdOSaeD0LumgUkFn4YloV5osLGuGYwQJ9Bo1tHkx0mGcqFBpKGR728OL0BLhEapJGgduS0vXjdN+RiEIPvUI5oBBlo0YWfJuxngP9IC2v0peSP7kYUNCxjfBiI+GgM0CS60KbYN0fKzXctWEZNAJIjgSPsrEUJP68b2AfzRRLugkXHNFguMmkGR8pMf6nqUjCTQK8sUdcxE6mVj0sNEC80nEykLvJKghTxvAY0K4m2OzxAlyo42aVcCef8KC757EetwikCjrWAnhgnXJT67si+nCDTtlJ0yFpje90mH/uZ9Gpwh90wYaPP4n74C8fYDMDxDn6QMLfK6Fpn+G9uvP887nIj1EGjKTpthTEXrnC7+KQfvhtgwjtF+cot7FAP0a9oaaTIHeBtEyxoXZmzJshN3GwuMccT3vo82nx2omA+0yxctMK5dYwHMeZZ2jo/mKD2EJEni2n83RaBRUMRxmXcxnvilTrQpdsfADnPLtK0wjoFdTlgc0z99rs3NsyjNmDdYBE/tMlIH1CFpkl8UMAg3FTM/TQnP/IiFjwuRaB+UE17AXML7VxaYS9jpjOewaHP0m5pbkcEHQolSw+dCtNlx14KdUtolGMMbmIPoMyh+Im+hTTHXzAmKBuYdn58Ze86tH+LdpcVhmi4mD9RXi0Jik+2nVG7yGNuha5mfbt8/c40Dux63tYCyM/ZdFv/UZY8f6JgfsP5XC74Yu2Cf2QFsliUEmhXmd4U3QppqGkwpkwyoECYHDBLEVo07Fc89R/7pMI9KgC4R6DQNv3p8jkDn3g0ZZMBtIdC5dH7cvnRtByYe/B9X+FQumv1ov0anxcE6K11uf2QibhG2J2k8EGi0MwwIceuP9zFJRTLJwMLqj3h0gHTg9vejyYZEuiaJDoImAqxLW87UIwMpWzWeDwg3ZgS1GracxpPBk3R/uQAObfaJFnyAZOC9ugXIddwz+3usNtBMvH7OoaetARGTCYMjctHCB3ZgvOlHWHBj0oFMEehcPjD/8nazss9TBDo+z6U36ZYwpACTsOhuKT4DMQVDF4h8q6lFCcs72A9+m2wPgY7pprt2jOOM1X+R5N193vrXxGMcvCbEY0zwSxDQikI4SlLSnJIuk2Q8QJSmQVuHYEfChLaK+WGJbIJApzsh5JvFy1Tb80VtXCjQ/qIXrVw5c7suKDgw43KB6NLHI3b8xlwWx1/mB8YTX6jNbZ+n7Yitd8jz1A4oaUPoz4X8tfATFsTY56fCPMaiIWcWgnKNBSGLLqTXtjZqwjEf2ZQf6G22H8cRLTKLIReUBMzbJa9tWCNgwhGVL/5s602EaV2icWbXD+nhf9c+uIRAY2Pk2/+QpJx9cJrpqf8v2I++tUkjhaRx6KBG0BCjrXHyfYgEmnLG1S7kDzvk0pYMmmrsMNHo/lcNSCGOE2gmFciCr8R4PwNAadWLNpHVOQ2uZFtGvblmkfQhwaXt8DTb5IN6dG0HK2RW9jWSEmjwQ9uXTtBpWiwMfKu2t1OeWRrHSqDBKw42aGamtn5zdcUk4CZZtdubNXU+Ms4+EGi0W5DYOfMlNDMPWxe+Rwtdwm1TBJq+SD/LEX0UAU46yBdjeSTZnlf6F/0MwVb85YVC5Ag0Ox4scji4OCfsTkJ+vL0y1kGoahfyufRHE2jmWsY1H7dTrfxcGSFmfnMqczea2ynNZUq2SrvNaPyxr3cpafCpRx8vpxZq5yxeNIXgbEt0WjBVTrgNPMDP8kD2If01kiPQNQsNdnfQpPquCkrB1oOb2yDQ224/YA4msf/D9VDe1cg91nUZ4/bO1Z4GOy/shrl0ceGuh9ZvdM0p/2LjducaJApxWAm4DQrAoAloPSBDp2Y7CTlUAu3wQDwZtObIXy/kTqDj89QhkwyTXa9Es55aApu+C20TpkG+GMJUZ8rG25+PBJp3owGv3f5yuyrSYmHSOlme2TPHTKCXaKGpPzfFGXL7U2/jnHlu1wQazTPa5ZotWAikt9HeXYEcHJsi0MwNjC854UAlB7uRqR2gaF+N+UtJuZISaAgipmQ1ZlWeP4gQJoO+G8aOACS8V0YT6DhesWuHKWOrRNwhvbmzQZ5mJNBodjGDzAk7S+w+IlMa2FhHPHMxkxjKGsZ9nwcw4WDHpkUYyyHOvqOLBrR07iGmmxJodi4uVL4Y8ywUgEjPddHbINDbbj9ggZ2+L2bY3WbR1yK+4+/PLCXQkXOSZuuu47X5WEKgITm+DVNLWEuAPcV+YHWJ9Gi4eI5BlRPfrMprB5V9MuFwbNiiZLXbMuC3NETipgQavDj53koc0/deZV94x6hZsZfyzRbtk9Y/ommDHM9JJNCtWk62Pv2wY09HOrPnj5lAg33UQrdMDBfsWd9ZSrdz5+p0m7/vkkCz4GPrm0PZtYJm7pyF7u3HzIs2RaCn5pm4Y8U2eEn7Hu01Wwg0ZiOYabVKJHlLFykjCTTjE4sChEUXu2w94zZ1gmkFYyXCOZLSYbtIoJnz0bLm5Ar7kkUyMtXXmeuZ85ESgcZO2k1LljgogIhjWgovQDGFnf+cRAKNyUjLQfhoYtWz8No0gd5F+6EOXBNPG2NB26qoSxdUSwk05yTcWwztYapdF9vLEgIdSRjmHCUvFXONFZsot7XFXCFu5809m/4OiWJ7ihU5h8LmZN8INNtq2Ke1mmTMlTP9PdYdhxWjLXtrWjE+DZKGSefAfmnuQF7pXbRLtnHZ9pk7JOlpRAJNZ+OQQK0sIU+848zCsRNoTHG8T9Xe4BQnA840oMneV1nSBpbaQPdMBkvGrlIdHBuBXtrmfJECXhxex8Vhj4wk0LhBfMI6E0vH7ugNYYrw7oJAx8NmEFoWC72CEsY17BwCnzPliQQaLxyMd7UCOWT3AtlHAr2L9oMG3w+cl8x6avCNpkc9Y2Z8R+p1paeuujXQGP7HRthiq5oChc0btrcIkxja7G3Jkklo9CFCMGC7u2RbPBITJ9A9WymlfHCIxIk/ExeHTJcIq346OzJl8+jvEIG+bufCtzmxj2/xR1pTV0zcXic19ohx2651IqrJz8g4ItDX2V9v4hDhrjTQD7Xy3GtBI4nnfNgh6DWpG0mgo+kFpjG1foJzMKCVdZOLKTvqXRBoDnv6QfToUamnOtFyu3vWGk3jMRPoXbQfzH5wTICsLNQesk7rOpLepQQaRwxYLLiwwIr2+1XtrFcDnRJotv+/teqNl0aC+buLGToMh8i2JftEoJc2iBbMohcOPwja8nwuLgf/am2OW991S3vgmpmHRKA3T6BbtNDUmXvQoW1zWGgbi8PWtuXxRaCPj0BjcznlanGurbAb6P5/8QziZHPuufT3kQQ6mlK15mMq/pQd9LYJdLTxH1lG0qqxgz5mAr2L9oMpDiY57EzfZME8ENvFUr7EAc9oJstBRez2m6SXQPOSaAaAq5mSP8m5DEXbNjw8PH/ugYG/i0C/0pPKUlhL7qOWpsvzNXaMItCbJ9DURdRCQ6ijHVms67htOnWIbET7GJGGCPTxEWgIMLsgvRJP/y9R7owk0L9ihXG75d5y5Z7Drzs7EDnZNoGOZp0jy0hamJqyszAlx0ygd9F+/LzcUpMq6uwFFuhPSwl06hUEV3lcZNUkSwh0PEQ4d4p3KlPR9Q0OtOMNMU2F6YgsAj2OQKfeFtyVXUe1XPIIuxJzNs0i0Nsh0FELXXINxYEk9wmP7SIuzEpux0a0jxFpiEAfH4GuPYBcaj9x67nHJZmnO5JAR5eQXCzRa5edlhkXYyWTr20TaPIWFXS17udqxgFInB/CLMU/ZgK9i/bDPRMowUa4O/Z2sZRAR49htIMak8RL2ssSAh3d2NXcKFRqrHjdcLMNLk7BL+i2RAR6HIHmZjd3iF578G9kPYtAb4dAU2dRC83BQCalKNxg6banPe6nRraL2rREoI+PQC+dZJmXmJ9qvTeU2tpIAo3fb3ZtkZqdudr2PxVvFwQ6KuhaD4UvLfMxE+hdtB+cFPiZKPpCtD1uqSsuAnre+oGlfTue9yDJLuuHJQQ6VsSS2/gi8cKx9dQV0S1g18QVgR5HoME7Dno09iUHXGrqL8YRgd4egY5uqFItdBzkcLHGrtK+a59pRyLQx0egqdeu0/X2XJxgURbhsaJXRhLo6L925CHwfSPQ8QBn1/Z6b2XZc8dMoHfRfqJv7NsbvpiR9Ej0ILKUQOPLPF7ShtlQ690j3V44KHx6lfcSwuR2Laj48R5QutqxB/SpZ5YQaAzOr7SwZPFA3uJV3vj03IZs4hAh+Y6XHYy8Ia0GExHo7RFo6iNqoTkl/7R1JXGYmCtvkSUui2rqfGScJQSaC0D8Vq2Vfa49ZY7HFDyn9EwGS8auEm7H5oWDcvb42MZcg8t//BKPO9lnv+irp82NJNDxAD9lu7UFv+a8J281z+xCAx3P1OBbGk8avW5Ra8oY4xwzgd5F+7k8jInUJb6yW8kqBJcbcN0jS8+YGesYe2d2R5HuHaYlGuh46xCZwE4JbVSP4CidVQqCL+S79iSyfobBDpc8ENw5cxAnwa2nQwHeDc5FoF9ZWbiGoTH6FbOlK18XVG/x0X0h0Et9li7BZtNu7GLeohbabyLlili/DAS3jEzuPZc8LMGg99lIglvqkAX/RQtOtlb2WQT6sss4WO53A+zKjZ23BVzzYR5Yc8sjYxd2oswjCF48/Aa13rY1kkCTh/MWuOADwXyKi6dG2ULnyrgLAk2b4VIxTGiQ2svReusoPrcvBJo5DTv+0bLt9kP+o/cPzPtwMdkiqcZ4KYF2pS15eJSFs5bMeNwlBJprMnED4mSJQ2NoIHuENNju9atTe7ZsWKEwaONSD5k6Vex55MKVh6z/qb0ymsE0nuwWgb5+jUdM+QUSRd22ChexUJccSLu3hRfOJLBLAs0JffyWIl3ucFrBKcTfJoEmC1ELjZs6DjVxsxyC03uIyKEI+Xdb7lr3Z9h/c5ubj4GUdWVBBHq/CDT1wu7mmYWpSzHwbsFk6vMQY/ttLMwdYJ5r46MJNFeN45PaF21LbgJmW5yD/CiEri4UZBcEmqzQv54a8jR11ftUHcBV8MhCObhfwHfLSs/skkBzy6YvhqgPyjxatt1+yH/qpatFSZEe+CO9JQSa2yi5qM2l+9bkJQSalz/CAlufCIPNLSz02jviZ5PJyAWtNE6/X1zReqgcbKZ8tcojNdvHDJhuj+NatNLrMDJn1QTYUUSgr4/HDe1ftpfB34XVI/Z6NTcsssWEtgiNgxMTiNljZ9rBLgk0A5JPskzUeJ2occfIIuGeFliRox3Dl3YNRiUotk2goxYa8unba+xC3MrCoWifwTNubVKH5L+ksSQu2tX7ZipiZd+JQO8HgYY0oSCJCxwOvHPDIN6e8BTDuI6dPlrcOGaxKwnhYtt4qYwm0OQnvYr4on2HoqH2xj5uzOPMkc9n7BjR5nOyKwJNXuK4zv94/EL7PudJg7jMRczxHGqmvEjN5Tq7JNDk0W/05XOtzTDEm/bLXIsPfrjQMwv1ydfbbD+ejQfYhzhmcpPmwy2UOCP1hzUBXCCVJQSaQ7iYmLowPtTwzEsysZRARwJK4gxCbLv0CoMdGkwXyCkTFYfTcLPzsvAbt9Kcs4C5h99Y5D/fzT64TeJUXliZ4jGCFQ6CPTIV5p2TCmQVzFW9VHZJIPo0ArQbVGxO0GpwXSqTbxRu6MEnIUI6U8I7nmgh9XpQegYih9sxHJBHgcwiDLZzvg8hdKyEawihv4MyYt/JKXEXSBW+wp9ugc9uz0bjpS656YtOf2YhTnjERTv4oqQM/HuFhXMWKB/Yejugc3BTJrb0lI/tmlTIIwMOGm7aMekgLNzYWXmKhZaLE9wmlTS83WJC5OWkrzGRriyg1cKxvG8Te96mTgJzlTAHmchvSRgUPU3Mk6aIHHaTFybSqv3JXRTF+LX9r/Yd24oXvYfQNxhb4uVAtFMWd2jsXEuZ5o0tVw7PouUCmyi0AdocbR1hTKFNQNb8QAsn1DEbiGOdp0H7wCwKrwQoLjwPPv483r4rTZrcFEr7WaUZDv8zXjihwpRu6uY9ykg+4+SH7TDlu6kFFr0sCBHyxyU6EFdsIKOwY+EuL9lBfKkFSGva9+KkhxaRfkUfTQ8kRU0X4wGn9snnueS9U/8+2n5kHpjb9fI0OJgFdqX5lIPyPq9RrosTL2esYtyo0XpjNoniJwpjO2MRhNjzzzxGW6HdsdNKG47KJp5PrwVnTKUuafO5dsG4nO4wMR57/aLwoO/kxpm48H6MxaHNMmZesJC7bIn6js4F6C/nLdCeKKffikwbZy7ldmPyzAIq7ae3s++Y81NBK8mYfCMLfGYMQx5nAf7BPMj8Xupf1MVtLawsuMkPdcNc/RwLtKlahUI8j0EeKDueLOIcyIUkKCxZ9DDPUldx3qzZxd9k+7kEYPsCvsWYGP2YY14F76Ot+Dx9M/vM2MFigHndhXmdhZDPcc6XsKfmspbane5nW1wfg6kXLtfpkqUEmudZyfvqbok/aC8AFc/kHxuD/0ZnoRFCInK/Q4BZVU+tvFKg6Ggp6WVw4D0OcnyG3+5igU5CB40ytSpicksJU0+lMbGzQp6Tkbc5PdheRmNukdSkJn2WuoQI+DZkLm3aExMnA2ZOoq/QUt5KpkW0M9rLlECymdBr5MYWie1G7wv+DO2FLbn0+5gm5eNQbmkLlbgQEiabkdKyjVZ6b5wMicNEyCS2rQM/I/GgDjk8FiddFtMQkdKYc/d1WXN1l/oOzo01ufyzrZ6Sb+KhrWHHoiQX7QfOppTSxORmpKRkhFtNpy6pyO3WRQLteaM/sKsTJdUa+W/pHJYS6CdbRAgkJkUQk5Q4xncwfj/QAov/Wol2/7XPzMVrsX2lD2NfmlvQgSMLndw85nmAdIBten4pkuFSfunnkEOX0jPpOJOOGf48BDQuWON7If0sDHJCu2LB6YqoXBzIL8qqkq/r6Ja3VN7SRSDR81DpWQ7OuZnfXP3zu5/PinEZizhjgoY5x3887oPsA+SyZjdzU+2nVEYWOSgL3M1pWj7+z3ECxhYOqEOUczyK+r1jBbA4aogmPKUFVUVS5RVz1cPrSAxMaCsQOiyNqUsdHl7KYTQ0gaRdIxAtVjFTGpOpdO5sP2JHNkXmaLxsHbl2KB589LSnPE/MTS415SQOjY8Br0aijWpN/Fwc6pTFQi95gzTc30Lt4oHBkMGDK3TntN7RKXwp79iQoUVIBdtsSEpJk8iEQp5brp9mMoUQ+IHYOczRRtF3mLBZDEwJmiO29qYGzrn3xd9ZiEG2Rni8QUPjuzi7tAFvKX8pLu3ikRbcHKUUj37IRAW5jqYzHp+6RTMUtU5oIhm8pyZ6Flw8F230PM041ubyxaTJNmlOVvYlC7ypMa4FPxbAtJ/YR1MzvDQ9+jTa+yhoeq9KvstphdKtfB6B9KTu5XIEOiYP+aAvoc3HhIpdmmdZQCuV0/rPYYJWDU3oFDGfSyP+zjxDe2oxHWGhjzKHuq8dHxjfwB2zydwWOu2Efl0aHyGT1L9rfylDboGYG2eiiYSXHSLPDja7fyWBWzCP5shX7hnmLtoSZhtzSrVc+0rTRDmXc7OL+QQ7IaU2QF9B6+o+jCeK+IqfSJPFcm2dgh/jFuVlDm2RTbSfufczt1KXc/3mosVBeUdbROJOb3wHab6U/sEAAATOSURBVDEez0nkbeyWMF50y1INNC9mRcE2jQ/MrPLI5AghTU65o73DTo3tJLYxGOyYaAgMflOdrjYfTG5sg7AlwgCLMDmwwuZAIhNfbqCpTf/U493cAGAQYQUI0WSbF3LBtg0BzQArdOr00IVJBy0iRInAgpB2y+RIX2HrmQkoTj6HWma2EikTEzflu9xCjeZjn8vL7gmedthGZPxBM43mhwmQNnrRQu3OxD6X8xjzNkegj7HMXibaLeZuLGTY3mcrHJME5kfGWLTRjD0spF5ywEDQHzHPIUCq4QmUHfMnysmiiH4KeW91l7ZvsFB/KPgwS2EuYSeMeYOxFn4CscQkJWem2FqWXbQfFC/wAsxmWNyyiKX+4F3s2ucUCa3l8vjpbtFiL2EjCDSZY/sZGx2EVR8d95A7aG8F6TkhcGoIxC14NCYcLJYIgV0hcMoEeleY671C4BAQwJzTvUShsUdBsmiBNYpAo4XGdtC3JtMDCYcArvIoBIRAGwJondHKuvYZrdcm/dG25U6xTxEBEehTrHWVWQhMI8AuMDsULthLT7m0rMJzFIHmZfFyEbYXVha0zVlVDYokBA4SgftYrjnYgWjRfJBVeHSZFoE+uipVgYTAYgQ4h+VeOy7a59Jh66YXjSTQpIVLEnc7gpH4kutPmwqiyEJACGwVAQ6eYBfs2mfs12S2tdUq0MsyCIhAq1kIASGQIhA9dmG6MXeotArBkQSaF3JQ7BkWMOof4SKrqhCKJASEwNYRiN4T8HGbc3a/9UzphSePgAj0yTcBASAELkEALykcVrzSAt5KhshoAk2msIfmNKe0UUOqSIkIgZ0gwMUtXCzAojgnHMZwzzu4d3Rf3Zx8Ty+32EkB9NKTQQCPN+45Ce3S2brkF+xvejPfc+073FrWXmpxMiCqoELgiBHAFzzeW+bcxTZBsAkC3ZQBRRYCQmAvEcB/ds1tnrnM43pJC+i9rNajyxRuR0uXY5QKi59tbnSVCAEhIAS6ERCB7oZODwqBo0aAK+BzV97OFZpn8M8qDd8cUvp9BALcZoov3KnLaeJ7OOCOmUfvpVsj8qw0hIAQOAIERKCPoBJVBCGwIQQwxcIkq1a4tVGed2rRUryRCHCotUZony23i9akqThCQAicIAIi0CdY6SqyEBACQkAICAEhIASEQD8CItD92OlJISAEhIAQEAJCQAgIgRNEQAT6BCtdRRYCQkAICAEhIASEgBDoR0AEuh87PSkEhIAQEAJCQAgIASFwggiIQJ9gpavIQkAICAEhIASEgBAQAv0IiED3Y6cnhYAQEAJCQAgIASEgBE4QARHoE6x0FVkICAEhIASEgBAQAkKgHwER6H7s9KQQEAJCQAgIASEgBITACSIgAn2Cla4iCwEhIASEgBAQAkJACPQjIALdj52eFAJCQAgIASEgBISAEDhBBESgT7DSVWQhIASEgBAQAkJACAiBfgREoPux05NCQAgIASEgBISAEBACJ4iACPQJVrqKLASEgBAQAkJACAgBIdCPgAh0P3Z6UggIASEgBISAEBACQuAEERCBPsFKV5GFgBAQAkJACAgBISAE+hEQge7HTk8KASEgBISAEBACQkAInCACItAnWOkqshAQAkJACAgBISAEhEA/Av8Pi9XVvW6/UOoAAAAASUVORK5CYII="/></switch></g><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 430px; height: 1px; padding-top: 369px; margin-left: 181px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><font face="Verdana">Type-checker</font></div></div></div></foreignObject><image x="181" y="361.5" width="430" height="19" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABrgAAABMCAYAAAA2hbeLAAAfWklEQVR4Xu3dD9T92Vwv8ImhuN1JJENoEoqbQnUrfwqVf1EJQ0p1Ka4ofy5CaKSuG/0hulFIf0lEWUIjTfmT9MfNv0tiMISiIUUyY+7nvdbztM7su7/nfM8533Oec57ntdfa6/ec79nf73fv1/c8s+Y577X3/oxTFAIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQJ7JPAZe9RXXSVAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBwioDLh4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQGCvBARce/W4dJYAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQEDA5TNAgAABAgQIECBAgAABAgQIECBAgAABAgQIECCwVwICrr16XDpLgAABAgQIECBAgAABAgQIECBAgAABAgQIECAg4PIZIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQ2CsBAddePS6dJUCAAAECBAgQIECAAAECBAgQIECAAAECBAgQEHD5DBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECOyVgIBrrx6XzhIgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECAi4fAYIECBAgAABAgQIECBAgAABAgQIECBAgAABAgT2SkDAtVePS2cJECBAgAABAgQIENhjgUs1ff90vb5wj8dz1F0/tTow+zftRfX6gqPulPsTIECAAAECBAgQILAdAQHXdpzdhQABAgQIECBAgACBky1wzRr+2xuCl9Tr255slpVHn79lExDOlo/Vi9NWvqITCRAgQIAAAQIECBDYKwEB1149Lp0lQIAAAQIECBBYUiD/v3uPqp+15HnrNs8skmdW/dS6F3L+sRH4shrJG5vRnFOvb35sRrjdgfQCrvTA37jbfQ7uRoAAAQIECBAgQODIBPzP/5HRuzEBAgQIECBAgMAWBC5d9/jkFu7Tu8WV6+AHjujebrt7AgKuaZ+JgGtaT1cjQIAAAQIECBAgsHcCAq69e2Q6TIAAAQIECBAgsISAgGsJLE03KiDgmpZXwDWtp6sRIECAAAECBAgQ2DsBAdfePTIdJkCAAAECBAgQWEJAwLUElqYbFRBwTcsr4JrW09UIECBAgAABAgQI7J2AgGvvHpkOEyBAgAABAgQILCEg4FoCS9ONCgi4puUVcE3r6WoECBAgQIAAAQIE9k5AwLV3j0yHCRAgQIAAAQIElhS4XrX/zCXOeWi1vXPT/ux6/YglrnFhtX39Eu01Pf4CAq5pn7GAa1pPVyNAgAABAgQIECCwdwICrr17ZDpMgAABAgQIECCwYYH/Wdd/eHOPX67X99rwfV3+eAsIuKZ9vgKuaT1djQABAgQIECBAgMDeCQi49u6R6TABAgQIECBAgMCGBQRcGwY+oZcXcE374AVc03q6GgECBAgQIECAAIG9ExBw7d0j02ECBAgQIECAAIENCxzngOuzyu76Va9c9fSqn6r6garvqPp/N+B6zbrmGVU/r+oVqn646tuq/m3Vf93A/TZ1yVMPxpExZCyfrnpu1XdX/cTImy4TcH1RXfNaVa9S9TIzz+e99fNFI+83ttklq2H6lntdsep/rnrewXN6Z/2bz8jUZQrPXQu4Pr+QrnNgmM/IJw8M81n/0NSArkeAAAECBAgQIECAwCmnCLh8CggQIECAAAECBAhcXGDVgOususxXNZgvr9dPXBH4tDrvN6peojn/nvX6g82xW9TrBzXHnl6vX3hw7Ab17/2rfu+cvuSL+J+v+rSqF6zY55x2tar3q3qnqteYc52ENa+p+uiqCb12rSSEyRjuUPU2VRP89ErG8caqz6/6vKofHWi3KODKPnH3qfrfqn75HIxn1Xt51uevCfY1df5/r3rHOWPLLd5S9WVVf7zqR9a459SeUwRcX1rjeXzV9ncsw/yeqv+0YLz/qd6/d9Xs2fe1c9p+rN57bdWfrfrSJQzzO/vNTfsH1Ou/mzmWvue/O2n3hVUTXCeATYD8rqr5788/LnFPTQkQIECAAAECBAjsjYCAa28elY4SIECAAAECBAhsSWDVgKt3Xr7YzmypVWYrZc+vhE2zJdfLTJF/a44nqPjF5tij6nW+3D6r6v9Ywu4vqu13VE1ws0zJ7LDc8xHLnHTQ9oH175OrXrjCuZs45Vvrok+oeu0VLv6Mg2fxV8258wKum1TbnDf2fv9Qbe9a9Y9X6N8X1DkJWs5c8tzcMwHpMgHN4S024bluwJXZha+umt+ntvzEwWd5HtHd682fHjh/3nl5zg+uOiYs/O3Oc/qGOvanVTPz7jurPq7qVefc8CvqvTcs+aw1J0CAAAECBAgQILAXAgKuvXhMOkmAAAECBAgQILBFgVUDrsxWylJ/bblHHfiVJfuf/09/U9XrNuedVa8f07lWL+DKzJssldb7An9RdzKb68ZVxy6tdvlqm9liN1104TnvJ2zIjKksmXhUJaFBwo2HrdmBF9X5CXVmSy/givM5VRNmrlK+rk7KzKCxJTPDzq66ymfi8B6/VD/8YNUxYeQmPdcJuLIEZNx6Dpmp9mNzQDOmhJ8JZVctCQu/bcSzGwq4MnsvszvnzfQ77JuAa9Wn5DwCBAgQIECAAIGdFxBw7fwj0kECBAgQIECAAIEtC6wacKWbv1/19k1//7pef+WSY/j6av8nnXMyU+N9neO9gGvJW/5/zZ9bR+4y4iJZSvHPqrZh3OypmXn29qrZV2poqb+0f1bVLNF3VCX3n7eM49h+jQ24xl5vqN0r6418VsaUhCF/s6BhZu1lWb5FwUmeUawWlU16rhpwZQnNLI3Zm/WU8PisBYMaM6bMmEroO29mVfY3y+9M9uoaKr2A6wXVOMtmji0CrrFS2hEgQIAAAQIECOydgIBr7x6ZDhMgQIAAAQIECGxYYJ2A65bVt+xX1JZlZ9r0vth+Tl00S5L1ytiAK6FVljfLzKzs15O9e25ddSh0ypJ5Cabmld+sN+/WaZCw5L5VE37N7gGUL/6zX9AvD9w3e0O9bsPPuHf59PUpA/fNbLg8kwREb66aJSKvUjXLxWU5x3b/pXUCrsN7JQC5dNXsE3WjqplR1yu3rYMvWeCV5/t/qvb2RHtFHf/Rqpkx+C8H18nfiRnf91XNjLa2ZAZSwsp/nnPfTXuuEnBlTAkFew5n1fHe7MjZIX5/vcjntld+qA7muZ9XNXtgpVy26vWrZvnNG3ZOytKhWS5yqPT+OzCnefctAdeyYtoTIECAAAECBAjsjYCAa28elY4SIECAAAECBAhsSWCdgCvLl2XZufYL9GfVsbEzk7JHUm//qwQcmXnSK4sCrkfWSdmPq7cX2BXreGaF9AKU7OuV5eiGyp3rjYRmbXl8HUhY8PE5516h3vvVqt/StMnScQl0Lppz7tRvfUld8K0DF03o9dCqn5hz02+q936h6uEeWqsEXBn3D1fNHmhtyd9t2d+sF8D07tWen771nmM+k3kG86yztOLvVW0/0/k9STDWK9vwXDbgulJ1NOFub5+zLEmYpQnnlTPqzXM7DRIu3rtqgq2hcqmD55dn2JbT68AHB04cE3AlCM0zfH3VLO8Zl8sdjDNjzWfmwwvG5m0CBAgQIECAAAECeykg4NrLx6bTBAgQIECAAAECGxRYJ+BKt+5fNWFSW7Lfz+xMpqEh5Evw9sv2RcscDgVcCZ8eUvU9C7wuU+//TtU2bMppV67a2xcrf0tkVlC7nF32aMoX/mNKvtx/f6dhZni9fMwFJmrz9LrOPTvXyoy5zJwbUxJiZC+tx1U9p+qYPbhy3SzfmGDr16oezvwZul8Cxzzr2ZKA44vndDCzlnrLWmbW3bPHDKza3KbqH3TaJkj5aOf4NjyXCbiyF12W/Owto/noOv7YEQ6ZadXuu5XZdpkFOS/8PLz0JeqHhJhf3dwr904femVewJVZdPepmnB6m2HwCCpNCBAgQIAAAQIECGxHQMC1HWd3IUCAAAECBAgQ2B+BdQOuLMHXmzHx4Dr+MwsYsiRdZoIkDJst2RcqAchQ6QVcT6jGmXk0tmQpswRWbRlaRi2zls5uGidsyXUOl7obc+8fqUb/q2n4gHr9pDEnT9BmKAB6cV37ditcP2FKZqe9rTk3M6He2BzLbL8sX5l9r8aUnnnOO7XqhQMXSFjazhz6rTr2XWNuONPmpfXzrZpzsrdcwtfZsi3PsQHX51bnEpb2lgiMS28JxpYm1+g9o2WX/8vMxFc3F8/suG8feBZDAddTq/0jqp6/5DPUnAABAgQIECBAgMCxEhBwHavHaTAECBAgQIAAAQITCKwbcKULT6ua2TyzJcsOnlF1KIhI2ztVzUyq2ZIZPpnpNG+5v17ANfbL+9l7Zb+sdj+poWUKf67aJoiaLd9dL7In1zLlOtU4M2FmS5YFzJ5G2yjp8693bpS9k7Ln1lSlF3CdUxe/+RI3+Mxqm/2/2nL1OjC0RF72DGtnLp1Rx969xH3T9AeqZnbebMkSlc9rjm3Lc0zA9TnVt4Sw7aypdDnLK+Z3fUy5QzX63aZh9uJqf8fHXCv7ls3ueZeQM0s69kov4FoUdo/pgzYECBAgQIAAAQIEjoWAgOtYPEaDIECAAAECBAgQmFBgioDrBtWfdmZLunjbqtmzZ6hkj6CbNm9mhklv757ZZlMFXNmT6ZnN/dPf9LstveDkatWot3/YvMeT5RHb8C6hxC07J2Uvqbuv+KyzvNwzOucmtEl4M1uy7Nt3rHifodOmCLhy7XdUbffDSij5550bZ3+1LGU3WxYtaTjU/wRxr2jefHi9bmffbctzUcD12dW3zDrr7S2X2U9ZSnJs6S1PuMzylbP36f2OZ3nLCzqd6QVc31Dtcg2FAAECBAgQIECAwIkXEHCd+I8AAAIECBAgQIAAgUZgioArl3xV1fbL9RfVsXZvpsPbX69+eEPnaXxhHVu0h9ZUAddN6l6vbPrQm2FyWrXp7b3Uhh1jP1wPaxomJEtY1pZ5exItulf2IvvpTqNeUJelHbPE45RlqoDrddWpdkZSPmev6XT21nWsF6iu8pyyz1dmbM2WBIbf3xzblue8gOuy1af8rt2iY5LP2k8t+WB75lnmcdHvZe827Wc9bRJYnttpLOBa8kFpToAAAQIECBAgcLIEBFwn63kbLQECBAgQIECAwGKBqQKuu9atnt25XYKCzKJpy5PrwP2ag1mu8MzFXT5lqoDrWnWvBFptuUQduGjmYL6Qz0yiTZberJZNBFztknEZU8zbpSLXHetUAdcfVEdu03RmKODKbLd5e7etO6bM6PrG5iLb8hwKuDIj8IVV2/3C0s3s9/b4FQb9wTqn3RdvhcsMnvL19U4bLKexgGtKZdciQIAAAQIECBA4dgICrmP3SA2IAAECBAgQIEBgTYGpAq7sl/SPVWf320nXcv3s/zNbLlcvzu/0+2Z17E9GjGeqgCt7Fn2kc78sdfehmeM3rJ//akS/1mkSv39vLjB1wJXgrrcn2tfV8deu0/nOuVMFXNkLKntCzZahgOv+1eiJE49j9nIJZRLOHJZteg4FXJm5dfvOmJ9bx+6yosVsuLviJeaeluUfz+m0EHBtQts1CRAgQIAAAQIEjo2AgOvYPEoDIUCAAAECBAgQmEhgqoAr3Tmr6o81/fpYvc5skH+bOf6D9XP2l5otb6kXCUXGfLk+VcB1ybpfby+gK9Txf5rpXG8/pon4/+MyvYDrsfXuqntj5dznNJ1M+JgZR235ojrwrokHdBQB16NrDI+ZeByzl2sDrm16DgVcQ8PN792Nqr5pSY98Dmd/V5c8fVRzAdcoJo0IECBAgAABAgQIXFxAwOUTQYAAAQIECBAgQODiAlMGXFevS7+7A3y3Ona4fGH+n/ytVa/dtLtnvX7myIczVcB15brf33fu2QZcmTGUPcbaMmY5xTFDSqCQmTibLpeuG3yyc5OvqGO9/dDW6c9RBFwPrw7n8zxbsgTlI9cZyMy559XPszPdtum5bMCVbv9D1a+t2tvvaojk1HrjU503H1jH3jeR48vqOr2g1QyuiYBdhgABAgQIECBA4HgKCLiO53M1KgIECBAgQIAAgdUFpgy40ovnVb1j052EAlkGL+UWVf+oeT+zTU6v+vGRw5gq4Prqut/rOvfMl/yzS/ldt16/udPusnXsEyP7vCvNejPkblede/HEHTyKgOteNYanNeNoZ11NPMzujMNNeK4ScGWs2f/uJlXfv8TAe/uKDc26WuKyC5sKuBYSaUCAAAECBAgQIHCSBQRcJ/npGzsBAgQIECBAgEBPYOqAqxdg5b7Zx+r1VXsB2E/V8Yct8XimCriy/N/zm/smbDutOTY002sTM5+WYFip6TvqrGs0Z96vXrdLRq508ZmTjiLgulPd/3c6zzN7rY1Z+nKVMW/Lc17AdXZ1/HuqvqBqZmy1JbPzbla1t+9db8xvq4PtDMtNfEbaewu4VvkEOocAAQIECBAgQODECAi4TsyjNlACBAgQIECAAIGRAlMHXENLED61+pN7vafTrwQuyyyjNlXAlf3Czmr6k5Cg3fcqM7qyJ1f2XJot31kv2n2uRrIfWbOX1p1v1dz9KfX6hybu0VEEXDeoMfx1ZxxXq2PvnXh8h5fbludQwPV71ZG7Vs0yl1la8zVV23AqfX111VtWHTNL8oXV7tsar/z+3mdDhoeXFXBtGNjlCRAgQIAAAQIE9ltAwLXfz0/vCRAgQIAAAQIEpheYOuBKD/NF+P/udDVBSmaCzJZ8Qf/tSw5rioArs7QSerSh1Q/XsSd3+tP70j/L32XpttnlDJccytabP7TumBlzbblSHcieTVOVowi4hoLIH69BJczcRNmW51DAlX3AZvfMumq9/rOq+bctLzn4Xfv3BRAJO3++aZOZjQnOPrAJxINrCrg2iOvSBAgQIECAAAEC+y8g4Nr/Z2gEBAgQIECAAAEC0wpsIuDKknAfGdnNb6p27Z5ci06dIuDKkoiP69zov9Sxt3SO37eOJaBrywPqwJMWdXiH3s8SdglA2vKEOpCwZtmSv7EuWfWC5sSjCLjShd4SmDme/db+ctnBjWi/Lc+hgKv3N+6XVr+zt1wb3mY4v1U1yxnOC2W/vN7/m87YVwmjRxD+RxMB1zJa2hIgQIAAAQIECJw4AQHXiXvkBkyAAAECBAgQILBAYBMBV26ZWVDtbK22K39bB/Jl/LL7I60bcF2z7pml7NoA4GV17NYDXpev4x8eeC9jyL5Fy5b045lVs8xhb8bbstcb0z5hVAK83jJ2Ofb2MRc5aHN6/fv0qln27szmvKMKuL6x+vHyzhjyWbt+1U8sMb7Dpglhn1Y1e3xlH7nZsi3PZQKu9C+BXkKuXslnLb+b837vXlXv37hz8t3r2G+sYJgZkwlRL1f1LgPnC7hWgHUKAQIECBAgQIDAyREQcJ2cZ22kBAgQIECAAAEC4wQ2FXBdr27/hgVduHe9/0vjunmxVr2A67nVIsfPX3C9O9f7adsr31wHe+HIYdssdfeozolZvu3BVRNWtTOZevf54jqYpRBTU360ap7Dtsp3141+fWAc31vHsw/ZvJJl8fLsfrJqQsIXVf3W5oSjCrjSjcxQy8yqtiTYy/J7rxgJnYDnIVUP96O6af2c4Kct2/BcNuBKHxPMnT0w1sfW8UfPcZh3boKqfF7HzNL83Gp3zwPHzz+wTwjZKwKukR9MzQgQIECAAAECBE6mgIDrZD53oyZAgAABAgQIEBgW2FTAlTv+cdWbDdw6odAXVM2/y5ZewHV4jYRXv181M3ayX1BmF2WmVAK3fLF+14GbJfDJ0m3zSmaf/HnV3uynnJdALyHYm6ueW/WTBxe7RP17jaq3rJog6FbNTbYdcF2q7v/aqjccGGxm+GSpv4zjcF+uy9TP162a2Tfxn539tmsB1w2qf5mhN1SeX288terfVT2v6uFyfdnDK+dmFl9ma2WpvtkyFHBtw3OVgCt9nxfoPrDef+Icp9+s9+428H5+b3+kaj5H76j6zzPtEmTdouq3VE34N1sSLgq45qB7iwABAgQIECBAgMCQgIDLZ4MAAQIECBAgQIDAxQU2GXDdsW6VoKRXfqYOZtbTKmVewLXK9d5ZJyXYmP2Sfug6X1Jv/EXV3v5G7TnvPThw1QWd2nbAle5cveqbRowjQUaW9UtoMVR2LeBKP+cFO+048vw/e8EYc85QwLUNz1UDrvTtPlWHlsDMjL1fG3iwl63jr6w6FITOnpYg9F+qJsidVwRcC4C8TYAAAQIECBAgQGBIQMDls0GAAAECBAgQIEDg4gKbDLgysyUhTy8cuVYdzwyaVcqUAVfCmXtU/dASHUkYluBu0Zf5Yy95FAFX+vZVVV888HzG9j3tdjHgSr8yW+/ZywxkQdt5AdemPdcJuNK3LEf4mIHxZQnGzHrslc+rg9lzq511uCqrgGtVOecRIECAAAECBAiceAEB14n/CAAgQIAAAQIECBBoBDYZcOVWCRjaZQETqtxujScxVcCVJdqeVPWiFfqSvYVy7t1XOHf2lOyRdFbV16x5nVVPP71OzN5ht1nxAlmWMfs5tTP1jnIPrtmhZFnFZ1Tt7cm1zJCzhOXDqv79gpM25bluwJVuP7nq/Qb6f/M6fs7Ae5es41mOMHuurVOyB1r273rWwEXswbWOrnMJECBAgAABAgSOvYCA69g/YgMkQIAAAQIECBBYUuCR1T4BxWzJvjwJf9YtWcbvfVXb5fwyG+QP17h4L+A6q673uqpZju32C66dgC3t/3KNPhyemv297l/1zKrzlvGbvdWr60X2N3pB1ewTtgslAdCDqmZpvzHlF6vRr1TNco29Epe3N2+sEmxm+bw2RMySea8f08mZNpl9leeUZTPHluzV9ZyqL6n6r2NPOmg3tWcv4MqygFdaol8JqjIbq7cPXZaivELVT825XkLde1XNjMehfeja07P8469WjWX2dJtX8nn6vqbBf63XQ5+xJYauKQECBAgQIECAAIH9FxBw7f8zNAICBAgQIECAAIH9EbhvdfUpTXfzhXeWJ/z0GsPoBVyPquv9xME180X8GVWz99XVqp5WNWHA+6u+tur5a9x73qkJdb6y6hWrJiy4XNWPVz236ruqvrtqlmzMnla7WrKsZJZgzMynjCFL1OVZ5bmlZhznVb1gVwewoF+n1vvXO6gZWz4r+XxkicrD5/Se+jkztaYY43H1zGf8a6rm9+vyB/XCg894PucxzL8f3dPPiW4TIECAAAECBAgQ2DkBAdfOPRIdIkCAAAECBAgQOKYCCRISGCRkmi1ZIu0X1hzzooBrzcs7nQABAgQIECBAgAABAgQI7JaAgGu3nofeECBAgAABAgQIHF+BO9TQfrczvMxqWndWh4Dr+H5ujIwAAQIECBAgQIAAAQIEOgICLh8LAgQIECBAgAABAtsReFXd5sbNraba20vAtZ1n6C4ECBAgQIAAAQIECBAgsCMCAq4deRC6QYAAAQIECBAgcKwFsjdP9rpqy3XqwFsnGLmAawJElyBAgAABAgQIECBAgACB/REQcO3Ps9JTAgQIECBAgACB/RX47er6mU33X1avbz3RkARcE0G6DAECBAgQIECAAAECBAjsh4CAaz+ek14SIECAAAECBAjsr8AZ1fVzO92/XR178UTDEnBNBOkyBAgQIECAAAECBAgQILAfAgKu/XhOekmAAAECBAgQILC/Ao+vrj+k6f476/W1q1440bAEXBNBugwBAgQIECBAgAABAgQI7IeAgGs/npNeEiBAgAABAgQI7KfA51S3P9Lp+gPq2JMmHJKAa0JMlyJAgAABAgQIECBAgACB3RcQcO3+M9JDAgQIECBAgACB/RW4SnX9Jzvdf1AdO3/CYd2orvUDzfWeXa//cMJ7uBQBAgQIECBAgAABAgQIENgZAQHXzjwKHSFAgAABAgQIECBAgAABAgQIECBAgAABAgQIEBgjIOAao6QNAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAzggIuHbmUegIAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAGAEB1xglbQgQIECAAAECBAgQIECAAAECBAgQIECAAAECBHZGQMC1M49CRwgQIECAAAECBAgQIECAAAECBAgQIECAAAECBMYICLjGKGlDgAABAgQIECBAgAABAgQIECBAgAABAgQIECCwMwICrp15FDpCgAABAgQIECBAgAABAgQIECBAgAABAgQIECAwRkDANUZJGwIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgZ0REHDtzKPQEQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgTECAq4xStoQIECAAAECBAgQIECAAAECBAgQIECAAAECBAjsjICAa2cehY4QIECAAAECBAgQIECAAAECBAgQIECAAAECBAiMERBwjVHShgABAgQIECBAgAABAgQIECBAgAABAgQIECBAYGcEBFw78yh0hAABAgQIECBAgAABAgQIECBAgAABAgQIECBAYIyAgGuMkjYECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQI7IyDg2plHoSMECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQJjBARcY5S0IUCAAAECBAgQIECAAAECBAgQIECAAAECBAgQ2BkBAdfOPAodIUCAAAECBAgQIECAAAECBAgQIECAAAECBAgQGCPw/wCVo42JpWEa9QAAAABJRU5ErkJggg=="/></switch></g><path d="M 481.9 271.53 L 428.38 354.65" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 425.53 359.06 L 426.38 351.28 L 428.38 354.65 L 432.27 355.07 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 317px; margin-left: 460px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); "><div style="display: inline-block; font-size: 11px; font-family: Helvetica; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; background-color: rgb(255, 255, 255); white-space: nowrap;"><font face="Courier New">RlpProgram' RlpcPs<br /></font></div></div></div></foreignObject><image x="400.5" y="311" width="119" height="15.75" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAdwAAAA/CAYAAABKBHltAAAdEklEQVR4Xu2dA7QlxxaG68W2bds2J7Zt27btZGI7mWRi2zYn9sTGe+/rtfZd+9bt7qrGOTl9Z9daWUnuqe6u/gv/dv/nv/9vzpohYAgYAoaAIWAItAyB/9CMcFuGr93YEDAEDAFDwBBIEDDCtYVgCBgChoAhYAi0AQEj3DaAbI8wBAwBQ8AQMASMcG0NGAKGgCFgCBgCbUDACLcNINsjDAFDwBAwBAwBI1xbA4aAIWAIGAKGQBsQMMJtA8j2CEPAEDAEDAFDwAjX1oAhYAgYAoaAIdAGBIxw2wCyPcIQMAQMAUPAEDDCtTVgCBgChoAhYAi0AYGOINzDDjvMnXvuue6PP/5IfeUpp5zSPfLII22Awx5hCBgCZRFYa6213AMPPNDj8uuuu84tuOCCZW/b667766+/3JprrukeffTRzHfbdNNN3VFHHdXr3n1Qf6FuhPv333+733//PRqToYYayg0xxBDR/bM6zj777O65557LvM9kk03m3n333crPadcNfvnll+hHDTPMMG6wwQaL7m8dDYFORWCuueZyTz/9dI/hvfLKK2766afvyGH/+eefjn9iWx379dtvv3WjjTZa7iO32WYbd+aZZ8YOa5Dp9+uvv7rY0v918VOd4HYR7vPPP+8WXnhh9+OPPxa6/0wzzeRmnXVWt8QSS7h11123FHmwIR988MEeQCItX3/99a4phAt20003nfv4448LYTjnnHM6cFxooYXceuut5wYffPBC11tnQ6ATENhggw3cZZdd1mMo7IsRRhihE4bYbQx9+/Z1W2yxReFxzT///MmZh5ZaVnO/66673FtvvdXj2eedd5576aWXnBFuz2kB72uvvbbQfHEec7bONttsbquttnIjjTRSoevr7txFuPfdd59bfPHFK92fxXfOOee4aaedttJ95OKzzjrLbbvtto0h3K+//tqNOeaYld4d8gVDNrQ1Q6BJCBx00EHu0EMP7TbkEUcc0f3www8d+RqHHHKIO/jggyuNbcstt3RHH320G3XUUSvdRy4WUjHC7QnnzDPPnAgjZdtYY42VWA1WW221sreofF0X4aKmYw6SzbHqqqsm2u4qq6ySkJ7f/vnnHzdgwACHdnr11Ve7L7/8sqvL448/7uaZZ57Kg2sa4fLCr7/+uvvkk0+Sd+fwefjhh91UU03lzjjjjFQMP/jggwTDW2+91b333ntdfW666Sa30korVcbQbmAItAuBiy66yG2yySbdHoc22KnxF5gnn3zySYdPlbbkkksm/4aI55tvvh6w4W5DK+XQ512lTTDBBO7FF18Mmolj5sEINxulzz77zL366qtJh7vvvtsde+yxyX9zdg499NA9Lvz888/da6+9lqw/zmFpu+22mzv++ONjpqP2PplBU8svv7zr37+/ixncTz/95A4//HB3zDHHJAOsawE2kXD1DEG4SP0xhw6b+cQTT3T77rtvcgs0A4h4ookmqn3S7YaGQCsQuP/++91iiy3W7daYmS+55JJWPK72e/7/MEzu2a9fP7fCCivk3h9lY8cdd3S33HJL0o/+N998M59fqzQuI9w4+HA3LrrooklnBCd863nthhtuSMz0ohhC0sstt1zcw2rsVQvhynjOPvvs5KVom222mcNHUqUNSoQrOLEQZLNzeN17771VILRrDYG2IYCFZvLJJ+/2PLTFAw88sG1jqPKgIoTLc7AKErdy1VVXJY+99NJL3frrr19lCIlfGD+lmZTzYSxKuNztww8/dDPMMENiuUWhwbpYlysgdtJrJVweKoET2Mu/+OKL2HGk9ms34SIpselC0lLsSxXRcPU9d999d3fCCSckf/ruu+/cyCOPHPvIf6UfJjlSuoYbbriWPR8XBtHfnRh8U+WliZAFu+GHH77KbVKvZV7IPEgzt8kF4Prbb7/VMne8h/8stFvOhCa0ooTLO/38889JUA7CRh3afLsJF+sk510d2SZ5c8zerTNquAzhMj4sEiuuuGIy1Ntuu80tu+yypZYm7zPkkEMm/xRptRMu0XdLL710Mob333/fTTLJJEXG061vFcJlITGW77//vts98c1MPfXUyd/wtV5xxRWJRPnGG290RWgjLNBnjTXWSCTY0UcfvdQ7lCXcN998000zzTTJM1lYRI+nNSLL8R35YfJjjDFGD5MYh+/tt9/urrnmmsSvwf8TuYckTTpHkYaESPQ4z8bvL/mERJPjuyfga6mllkoOoiqNyHXmkGc88cQTXfPDfQl84ICbdNJJk0fgV3v22We7PQ5yxjUy7LDD9hgGkeRgm5YSwn39A4gxQB5g/tVXX7kZZ5wxWR8ckLFmRNYk70GMAz4l8BMTFxI370XQHALX+OOPnwsdRHnPPfd0xQvQmWvAnbm58sorE+yYK2IBVl999W7a12OPPZZEFNOXMeAG2njjjd3++++fS9Ch+Zxwwgm7Rekzh0TfN6GVIVze64ADDkhcamD40UcfVXrVKoTLeYZZ31/TxOOI0M76Zd6xpOkoafYuqVusfQgpT0iLeUHW90MPPZSscda7ZG5IVgvP2mijjRxnLUILRMjZEcsXZQmXsY899tjJmud8Zu5iGvsWiy34vf32211nEbjBFaS2EuvE+/AuE088cWrga+2Ei1MbtZ1GQELRw1y/fBXCPe6449yee+7ZA8sLL7zQbbjhhu60005zO++8cwzWSSTjfvvtV1gKLEu4HKaSGkRUnZjp9WDTtAn5nYXLIpcGWWDqSktDoM/ee+/tjjzyyCjigFzBTwd4ZYGIOXGfffYpLAUiPTIm5ijUKA4AQZ1yyinJv/3GfEMkfltmmWXcnXfemXp7DgDR1gnUIJ1AfHX+BQTaQFoQZlYDf4q7ZN0j7ToOcPz5WWTOPCywwALdLsUFwYF28sknpw6F/bT11lu7yy+/PNP0yT0ISCmbGw7hc700fJ0cPk1oZQmXrAJwpbF3YwWwNEyqEG6fPn0SodpvEAREsOuuu7rzzz8/OBWs5YsvvjgJmC3aUHCI+4l9DhHetO222y5REvCfx7QqhItAwV5EYEYByWsI8gQC5tWJ0NcTr8PezLLw1k64J510UjKxtIEDB1aykVchXKR/ibTWgLA5kPw5JKWh6SEYiEYGyGgAOgSdgwhNOJSwrp9VlnAhHDExZjn30Woxh6SRhhAumx8i1VIcm4lNTdObgqg9NkpWI6iLADAJjKMf0h0WAzRa8tsQtrTGSx+wxbdFPlxMw9KARqaFAzYimh8aBNo/gpyuaER/3hly143xYcGYe+65ezz6iCOOSN4lLe9cCJdNSV607sMhxDhuvPHGLqmd4AvmKautvPLKSUCNNOaAvHWkYiLYMfuinfBeOs8wb04+/fTTJAc0S/Bhw2OdgewQSkSTRqvgMJVGH+bwggsu6DpUiKhPy0yImT+EQ2I5pKFttdpcGTOumD5lCVcOcNa6b2WJea7uU4VwIS/2u7+m2SukL+k9xXnG+sOSxjmN5oZGqmsI7LLLLkk0b6zwhXa99tprd7PaYN0gnYfn4LLDb8rZmlaRjD3+1FNPRUFWhXAZExr4XnvtlaR0ZTUwYU51owIY78IZgJUQiwZj1vtb+qcV6KiVcDFVcvAx4XUsviqE64MoZgT995Akx+FH8Jcs4KKRiGUJV6dXfPPNN9EkD4lgEmQOyKtmcUhAB+/NZtxhhx26/KAvv/yygww4tENBGghRCFPSKMW5+eabp0rzEC9asEiFHP6kS4WEFUiddcM6oi2yyCIJOaRFarNpMX/5hIPQhBmraGMDiukT0y+CmRZAeBb4YjKlUS1onXXWSQSeUGEWyJmCBhA/GjHCXRYJIVAgKAoGvEvINM/BISkSjA0pG2FBAkI4RGXcggtj5oAUbPHjMj6ETIQAxlGmactSCJcy92/lNWUIl/3FOqBhUdMCaZmxViFc/bx33nnHURLXb+wvzhdcIn7DaoZwpnOTQ4K43MN/HtZDyCzLNA1JcVZpa0g7CBdtn/VNY4/gcspqQsz8jvCBQJ9VZ4H3Z/7Z69JaSriYMqilKuSEtFS2CosMuJWEi4THZgkVqiCXC/+X+Ckxc26//fZRe6kM4SIxzTHHHImUiFYoeWcxDxTCRfpCs9G+VXKlua/fKNbBXBFinxWxx+/iR2ZTgBuHaV5Ds8EsKoUQMGmj6eY1NjpmaBqLGzNsXtUt1hoaqDbV1kG4kKsea1b0KRIumi0ulCmmmCJmiqL6YIYV33TMgacJl/fHneAHsGGiFzJA0ITQWSe6IWCK9QPTYJmqPNrUTRUnBLOmtCKEy/o+/fTTu6x5YMq8hYTKEBatJFyEZkgwFOiDoIywK2c5Vqu0s0PeBUsa/SXXFdJBkA81MGT/ilWn1YSLQIFVEGWERiwG8S5pDQFUYj9wF8BFocb7cI7KuVs74VIkAwkf06Q2bbKx0/ynoQH7v7eKcNkcSPDjjjtu1JD8cHJIioi7UCtKuCx0pGUx/bAQIfvYJoSr+xPABtmWjXRG26NyGFpS1kGdNz7eR7RscuGy/EJoVpieaGhoBNvElLhk05CKIodDHYQr7wMh4X6oq3Ja7DzST3zMHMDMX17ThItJXoIC9TUEyki0cNaBiDY9yyyzJJex5n2tOGb8HDKsQ8gHoclPE4q5x7/VJ4ZwMf0j4GHtkX3KvgDTqpX6eO9WES7KDxaNmD3FOPClSuGdkK9T+7CLuiOwaqH0sH9bSbgoTpjVRThHacqLEWGeRSDFLSVWjNDaJLAStw2tFOGymPzgDIgWW7xfM5i+PDBGugkNnN9bRbhFiYyxaCDx/2L2C7UYwsV/h+8OLUr7vvCXFi075xMu5nAwDEm0ee/BBhKNvkyKByZxNHU09jxTJdqs5GtmkUbWOLVmVhfhsvk5dMYZZ5zQNLfkd4JICJiLCSQRwkV6J9UhrfHFHg7OrIOAv6P1ykcGyhJuS8Bo002FcFmnvqCAkM2ZpyvqMSz6UhWuLqGsVYTLx19CVikfZoKFpKIWBDTeeOOlzoS468CCYj1FzxuUM1wRCAVY02JarA8XUy+EiaVIhHKsm3fccUfuODmXxe2D9g5Rx6QkStAYcS3sYb8FfbgxL08fIiOZoDJmqKxntIJwy4buI62gJTJpsSYGIVzez3e+8zdybNOCXvC1cojGBisIfppwQ1GusfMqm86PfI69nn4E5ED+NIS1tIheBBi0hBiCSXs26465qYNwkeyJ5G1FbqweO5sTyRutA0x4BzFj4WvHZBmDhxFukdWY3bdIdDHrDAGRtVJnUFgrCLdsESLIU3y9pJkREOU3ai2IUFq2HC1+VbJAMC/HlrPVhItA79dOwDKXlpVBXAvkG1PwghgOqv/ReMYee+yRWJ6qCOFBwiXgBd+sbrA/GplIDJAY9SrrDv9vBeGGzCN5W1fMfJhpkZBCTRNuqC+/42PB1xbyK2fdSwi3iGkmNC40HjSfKgEhOlUsq8625G+W0ex5B0lHqYNws4SCEFah34l6JH2JYDWdy6evY78RPYrLA2HMCDeEan2/C+EiXLKHdEM41n59iAESSsvxrjKiVhBuVmphaJz4JMV1hu8Xwc5vupwnwiPabjuaJtyY57GPUGQkZTXmGrJFIF1teeQ6hGP2KEFpWA3Q7Dl3sIqEhLYg4WbVUsZ3xiEsJgcOCsCPTf+IeeFWEG6VUnNIimhrsVGcmnD9r6jw/ixmhBSSvZm8sgU2BEsdpazzcGOwTuuj05OK+DH8e+mNi78HX4pupOGIuabsc4iK5kCsg3B1Hm5Z7PR1CBykZukIxtj7GuHGIlW9X8iHS5wB6VISFIOpEa2ubHxE2ohbQbicy4y1TBNzcZbPU1xO7f4qlCZcYgV8wQfrICZwzlZIsYoySAwK2m3os6twIJxI3n6W+bk04crk6RQWQCfYpa5Py7WCcEPO8rxFSQEF0lRifQ0xPtwymyDrmroJV6eTkNdcJShENm5alLf2l2BGTfN9hHCSkqKdRriY5chz9XN555133uQwQLMnopjf0aKwJhAVigWFvxnhhma+vt9DhMuTiEyHdEnzouEqYm/EmChjRtoKwi0TsyJjlX2bpahI9HvZfReDSVqfWB9u2funXYcPH+sUfmGqKLK32at+3jPEy/jS/PqVCZeBEX0q3xjEvIwkWMcCbAXhVvFFEv2JXwDTr9Q6zpvQphNuTMWrmAWNr3KUUUZJuiIt+i4K/k5gHppD2VQSmZuyG1/n4dal4ZKrS5K8BNpQZILqURKYlIed+XBjVla9fWIIlycSz4F5lUAfGpH3nIF1tFYQLvmuBCUWbZiIJZODwg5Sg1jfR85o/obgXDTupOiYpP+/QbhZY6UIDdYrTPeSP4/ySaCa7x6shXAZCA8TzaSsk95/oVYQLs+gXF9RxzfSjdT5jP0qSNMJF6wk+bssEXIPilSQ6kPDvJrmduBTZ2i/mH/wXxYJRGHBS+3hTiJcfRgVdWUY4ZY9istfF0u4QroIjpJDGnsmhEbXCsJFC6fQRGxKkIxRF/UgnkByw/U76Bz9rD6hdy7zeycRrowfQQzhBl8xDTO0LkjD32ojXG5GzqiUTOSzcv63MYsC2yrCjTHT6bGi6VEhSBKmkWJi0gB6A+FKhSnMJAT6lIlCl7B/MM0q9afzRIvmcevSiZ1EuKK1I2ygQYcCKvSaM8ItelpU71+EcHkawXVYKyRHPU2jKTqqVhAuYyBvOLZ2PP2xylDMBXMpex9tN239ki4lWlyZtMGi+Ej/VhMuZzdKFkpA0a+gSanPtMJFtRIuIeIE/zBJBBZhWq7y1YlWES6TRvATKS8xDb8iByANTYxI05jWGwhXf583Nh1KY8NXNvBX0vJqDuMbo7SglIOkFKR8MSkPay2F06+TCFf8X0VNegSrEREPSccIh5YWFLMbw32KEi53RAiX2AZSTmKK9ueNpFWEyzPxOca4M9DUyOYQ5SlUd0AyDDCj4tssE/yJUkPxJPgjpmpbKwlXV5mKrZql55SUTKlf7xe/qJVweaguEEFdTpzqZVsrCZcxAQr5X1lCAQcfpkAxC2DuRIiIzc/sDYQLTpIjy3+zKUjBiWngRx6f5BoTbJBXeUhXm2LzUmEp63uV+IsQfPwPLnQS4SJoIHAUEVQQWtHYuY5mhBuz0urpU4ZwebIuEEEcAkFyZVsrCZc9RanNtHxaGS8FLnAfyVeHiDsgJz2vQUpSCKjMN4HRknkOdZVja/C3knBRGMWSV9Q9CsHyYRIEsbRa4rUTLpIKfj8JncfcEvq2Z9ZktoJw/Tq5qP0EFFBWUHwUEAQ5k2gmOnm66GbqLYSrLRfMFakAkEhegATkCdbyxSVy2QiXDzXy/fRXf/ioAnWYIW4ODExdL7zwQlIXWEz8/B3tGW23kwiXgufyqTzWUVoxeY0H1Wz4IISuZmSEG1ox9f1elnC1+bWsv1TeohWESxqermlNkBeR1uSkEstCeUXiJrCosPd0fQX2WozGij9bPnXH89ifEiiZN0MQJ+eEpNzEEna7CJexhzR8/X7gJ18gQtNFodOti3ClxCCHK43OmPfY8GJ6ZUHydZG0qkn6promKwni1JYkahki1oc0UZxI8qjwaQ0pi/B7fAh+8rHuD6GHvrsr5j2+j4rJgtqYobwqeQaRzaQ/pdWo9ceN2QZNDkkHAmARYl7P+gwUUd1+kn3MEUKgEIe4NllgXWCcSFZUU8lqzCPvEuOHlnuQb6jrIOPTZlOxaXUpN8ZFAIm2bECGkEmsD5MyhJjn/HB7iNX/G/jRn8IrfA83hnC5B2tUf6ib/4cgaRQ0yHOF4LPyy52mYU3KgKxL5uTUU09NBAPdOOxIK0G47N+/f4/bsNcQ/Gjke5JPyR5i3gmEAW/WNPjy7pQDxQJDP13vW5d2JKKWoDTeQWcT6NKO5Euz7yha73/kIGZ9NqEPFhjWDVHpNNHSWLsyb+AEBqG66zpolEh09jRz7n/pCb8gJIZiktawpnEmUlwnS0BlHyGA5lmL9Nd7iL0gpka+2aufm7an+J39RyZGDGnS3xfKWTusIeJ4dNwHriPGw34DM/ngAfegL9pyVpwIa/2ZZ55JoqFJz6FIDo1zNq22Pe/GPigSgMn9tIYrWKGBI/xzZvoCCHsR7VwrAewZxuoXAukiXPL+ssx3/sKI+WQci8X/Ugg5uvIJNO5JKS8KHdTRQpq0JlzyaUlVweTNpKd9E5UxMWEcdgQOxUwa0c9Z9Ubz3jGvTmnadbogRVnseDfyPouE8Wd9yJ7DhY3JQeFjySKMxU+/C19NYg2lfVBb5gZzD5uOZ3M4xBIuPjfRjsviF/PZPO6tP1fH/7MR8aNxqHCAYAHQmDEvkC+R3axNv0kwovaNp70D+eIUA5GmCVf+hpaDtUKaJlz5GwFfkFJvbBAjZ0CoxZg5Ed4QPv1ygn6KmZQgDT0z9Hvo04c+4aJk8Df2S96ZmyUYhsbD75zBaLf+nmXNIyBAymkfcoecOWchtLxzVlL/YsYifcrkIOtCPGnPYrzUmqCcJOeUXzWOPYwwnBaD0kW4BKkQtJJFPvJgFh+mVb92pT8wncMlBw2HnDarIc2llQsrAih9MQtTWSkvgtYnXHkGG4XDDWc/ByCSElIpm6coeUKETERaDc+sd2LsfLwgpjC23MMPMCqKF/3zCt3n3Y93ZHPob+Om9QdDqfxUZnxyDR+txmqAVoBAg6ZB1Ri0Mx09WIRw/W/7Fh0fhxIkFNJ6uC+aDBozz/QL3+vnsknps9NOOyVaJ3V6/dxJDi4kaTYyHxdA0Em7J/dCW9afx0SLxiqhm1/yL+27uUS2hua6KH6d0h/fJO6KUIstlgPR9OnTp+t2CCuYPjWJ8HuWEBkah/49ZHpNI1y5HkGbMxxBn3Maiw37lbOoav0EtD2EPYJLQ1zCPsIEyxyE+ISxS+GhWJwgRiw/Ietn2v1QDDlzEIiZL3gq9D7sO1KBWC9ZOGb6cGNfqin9sgi3KePvtHGSEgERsiDR9gYOHJhIsXzejX/jeog1IdfxbuS+4S+JMSnX8byi90BqZuNyECIR407Bf4ZQBzESaFP0KytFx2D9Bx0E8gi3HSjgJkTxIO8e8y//jSkWTZt/IFssPTGWw3aMN/QM9i8ETHwP2PIPwjTCP2cd/yBghQQWI9wQ0vZ7IxCQoA18NtSOtWYIDMoI/NuEOyhjn/fuRri2MhqPAGYsJExMomW/NtR4EOwFDAGFgBFuZy4HI9zOnBcbVQEEtL+zSJ5wgUdYV0OgUQgY4XbmdBnhdua82KgiEaCyD7mrNIIWiBqs83NpkcOwboZARyFghNtR09E1GCPczpwXG1UOAgQrDBgwwPXt27dbWkfRwiQGsiHQWxEwwu3Mme21hEu+InmGpJLQ/FxHPR0U9wiVL+vM6eu9oyLthXkhXctvaeH5WZ8P670I2ZsZAt0RIDWOVEtS6fSZh+VHNz7WTqwD56O19iLQawmXSkvkRMU0FiRpLtY6BwH92a+8UVGRh2pkFFC3ZggMyggUyfHl4wRSinFQxqzd795rCRcC7devX1InNK+RK0oBAXJHrXUOApRvQ2slX9Vv5KtS1o6Smf4HnjvnDWwkhkB7EcAaREqc/4UafxSULaXaWkzhlva+Qe9/Wq8l3N4/dfaGhoAhYAgYAk1CwAi3SbNlYzUEDAFDwBBoLAJGuI2dOhu4IWAIGAKGQJMQMMJt0mzZWA0BQ8AQMAQai4ARbmOnzgZuCBgChoAh0CQEjHCbNFs2VkPAEDAEDIHGIpAQbmNHbwM3BAwBQ8AQMAQahIARboMmy4ZqCBgChoAh0FwEjHCbO3c2ckPAEDAEDIEGIWCE26DJsqEaAoaAIWAINBcBI9zmzp2N3BAwBAwBQ6BBCBjhNmiybKiGgCFgCBgCzUXACLe5c2cjNwQMAUPAEGgQAka4DZosG6ohYAgYAoZAcxEwwm3u3NnIDQFDwBAwBBqEwP8AiRBpXT3FEC4AAAAASUVORK5CYII="/></switch></g><path d="M 395.5 450.46 L 395 525.46" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 394.97 530.71 L 391.52 523.68 L 395 525.46 L 398.52 523.73 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 491px; margin-left: 402px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); "><div style="display: inline-block; font-size: 11px; font-family: Helvetica; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; background-color: rgb(255, 255, 255); white-space: nowrap;"><font face="Courier New">RlpProgram' RlpcTc</font></div></div></div></foreignObject><image x="342.5" y="485" width="119" height="15.75" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAdwAAAA/CAYAAABKBHltAAAcYUlEQVR4Xu2dA7AlSdOG61vOrG3bto1Z27Zt2/burO3dWduOtT1r2/z/fToiT+Sp26jWmb5nsiI25vvuqe6uegtvZlZm1v/+77/irBgChoAhYAgYAoZAbQj8j2KEWxu+9mJDwBAwBAwBQyBCwAjXJoIhYAgYAoaAIdABBIxwOwCyfcIQMAQMAUPAEDDCtTlgCBgChoAhYAh0AAEj3A6AbJ8wBAwBQ8AQMASMcG0OGAKGgCFgCBgCHUDACLcDINsnDAFDwBAwBAwBI1ybA4aAIWAIGAKGQAcQMMLtAMj2CUPAEDAEDAFDwAjX5oAhYAgYAoaAIdABBBpBuIcddpg799xz3Z9//hnb5SmnnNI9+uijHYDDPmEIGAJFEVhrrbXcgw8+2OPx6667zi244IJFX9t1z/39999uzTXXdI899lhi3zbddFN31FFHdV3fB/cOtRHuP//84/74449gTIYZZhg31FBDBddPqjj77LO75557LvE9k002mXv33XdLf6dTL/j111+DP9WnTx83xBBDBNe3ioZAUxGYa6653DPPPNOjea+88oqbfvrpG9nsv/76y/FfaKlivX733XdutNFGS/3kNtts484888zQZnV9PXgJfqqyDDfccFW+LuhdLcJ9/vnn3cILL+x++umnoAel0kwzzeRmnXVWt8QSS7h11123EHmwIB966CHn36GAtHz99de73kK4YDfddNO5jz/+OBeGc845pwPHhRZayK233npuyCGHzPW8VTYEmoDABhts4C677LIeTWFdjDDCCE1oYlsb+vfv77bYYovc7Zp//vmjPQ8ttajmfvfdd7u33nqrx7fPO+8899JLLzkj3HZo1llnHXfVVVflHqu0B3755RfXadJtEe7999/vFl988VIdYvKdc845btpppy31Hnn4rLPOcttuu22vIdyvv/7ajTnmmKX6DvmCIQvaiiHQmxA46KCD3KGHHtrW5BFHHNH9+OOPjezGIYcc4g4++OBSbdtyyy3d0Ucf7UYdddRS75GHIfFrr73WCNdDs+sIF+0Sc5AsjlVXXTXSdldZZZWI9Pzy77//uoEDBzq006uvvtp9+eWXrSpPPPGEm2eeeUpPwN5GuHT49ddfd5988knUdzafRx55xE011VTujDPOiMXwgw8+iDC89dZb3Xvvvdeqc9NNN7mVVlqpNIb2AkOgUwhcdNFFbpNNNmn7HNpgU/0vfvvtN/fUU085zlQpSy65ZPQvRDzffPP1gA2zJlopGih9lTLBBBO4F198MdNMHDIORrjxKAnhLrvssm7XXXeNrXT88ce7u+66yyHk3XDDDbF12I9FKBykGq7fuuWXX97ddtttbrfddnN0JK38/PPP7vDDD3fHHHNMVK2qCdgbCVfjxMAi9YdsOizmE0880e27777RK5g0EPFEE00Usk6tjiEwyBF44IEH3GKLLdbWDszMl1xyySBvW0gD/jP3RdUGDBjgVlhhhdRHUDZ23HFHd8stt0T1qH/zzTdz/VrIpxLrGOGmEy4WBSyAcQWe2mOPPaJjvVdffTW2zsMPPxwdnVJ6LeFKz84+++zIFELZbLPNHGckZcrgRLiCE5quLHY2r/vuu68MhPasIdAxBLDQTD755G3fQ1s88MADO9aGMh/KQ7h8B6sgfitytnjppZe69ddfv0wTonNhMyn3hFA0XCNcDxtxnBhrrLHcF198UWrydZpwMTGx6PBErKLk0XD193bffXd3wgknRH/6/vvv3cgjj1xFc2p7ByY5QrrqdEDgCAPv7yY635QBFg9ZsBt++OHLvCb2WcYFz85hhx028d3g+vvvv1cydvTD/xbaLXtCbyh5CZc+oSXh8IiwUYU232nCxTrJfldFtEnaGLN2y0S1NJFwOXLFEpmnJMbh5jEp6w/ifbf00ktHf3r//ffdJJNMkqc9bXXLEC4Tibb88MMPbe/kbGbqqaeO/sZZ6xVXXBFJlG+88UbLQxthgTprrLFGJMGOPvrohfpQlHDffPNNN80000TfxFNbTCB+I/As5+zI9+4eY4wxepjE2HzvuOMOd80117jXXnstOreabbbZIosE4Rx5ChMN73G+zbm/xBPiTc7ZPQ5fSy21VLQRlSl4rjOGfOPJJ59sjQ/vXW211aINbtJJJ40+wbnas88+2/Y5yJl53Ldv3x7NwJMcbONCQnivvwHRBsgDzL/66is344wzRvODDTLUjMicpB/4OHCWBH7i+8DCpV84zSFwjT/++KnQQZT33ntvy1+AyjwD7ozNlVdeGWHHWOELsPrqq7dpX48//njkUUxd2sAx0MYbb+z233//VILOGs8JJ5ywzUufMcT7vjeUIoRLvw444IDoSA0MP/roo1JdLUO47GeY9f05jT+OCO3MX8YdS5r2kmbtErrF3F9xxRVLzQEAYH5jvmWOM98lckOiWvjWRhtt5NhrEVowzbN3JPHFoCZc9kv8athjwJD1I4RLn/iP8FYsHAidzAN8F5Zbbjk30kgjteZE5YSL7XyGGWaIPoBDQt7NXM/WMoR73HHHuT333LPH5L/wwgvdhhtu6E477TS38847By0OPBn322+/3FJgUcJlM5XQIGLxxEyvGxunTcjvTFwmuRTIgokQF4ZAnb333tsdeeSRQcQBuYKfdvBKAhFz4j777OOGHnroIJylEtIwbWKMsgrJASCoU045JfrXL4w3ROKXZZZZJnKwiCv6bOezzz5zW221Veuszq+Pow2klSbpgj/JXeS8L6tP/M4Gznl+EpkzDgsssEDbqziCYOGffPLJsZ9gPW299dbu8ssvTzR98o577rmnUHgfH4XweV4KZ50TTzxxSJcHeZ2ihMuZIrhSWLuhAlhch8sQbr9+/SKh2i9vv/12RGw4G51//vmZODOXL7744shhNm9BwcHvJ/Q7eHhTtttuu0hJ4Pw8rgxKwgU/nAHTEpVIm3GQZd8CP5S5k046qY1nKidcPiBeZN9++20pd/kyhIv0L57WegBZHEj+bJJS0PQQDEQjQ1tCguFfKWxEaMJZAev6W0UJF8IREyOSKFKSX9Bq8diLIw0hXBY/RIoELoXFxKKm6EWBwwELJang1IUDmDjGUQ+pGIsBGi1SHMKW1nipA7acbeHIEFKwNKCRaeGAhYjmhwaB9o8gpzMaUZ8+Q+660D4m/dxzz93j00cccUTUl7i4cyFcCJK4aF2HTYh23HjjjS2pnfFhnJLKyiuvHDnU6DEgbh2JmAWK2RfthH4xx6Skjcmnn34axYAmCT5ssFhnIDuEEtGk0SrYDKRQhzG84IILWsln8KiPi0wIGT+EQ3w5pKBt1W2uDGlXSJ2ihItGyFxhrvtWlpDv6jplCBfyYr37c5q1wtmnXlPsZ8w/LGns02htaKQ6h8Auu+wSOcyGJuZBu1577bXbrDZYN2aeeeboOxzZEZXB3hqXkYw1/vTTT8dChpDPPsK8jIv44KEQpym+jRMrhaOUtOMW6vCt7bffvtUm9pQ55pgj6hPWtW+++Say5PoWA3kAxUFnDKuUcDFVsvEx4FVMvjKE64/a2GOP3Ra6xO9ZkhybH85fMoHzeiIWJVwdXsGAhpI8JIJJkDEgrpr0cDpYnMW4ww47tM5BX375ZQcZsGlnBdojRCFMSSEV5+abbx4rzUO8LBDJHsbmT7hUVj8gdeYN84iyyCKLROQQ56nNwsH85RMOQhNmrLwFE5iYPjH9IphpAYRvgS8mUwrZgpC6EXiyErNAziQ0gPjRiBHukkgIgQJBUTCgL1mm+b322ssde+yxrS6zoUAAEhvKJirtlkq0mQ1SsGXzoX0ImQgBtKNI0ZalLFyKvL/OZ4oQLuuLeUDBoqYF0iJtLUO4+nvvvPOOIyWuX1hf7C8cifgFqxnkoGOTswRxeYf/PayHCABJhAaxsldpa0ga4bKGIC+sNygacSWEcAl7RdhFAMjynudYBoFUSpK1jN8RmjE5Mwf0nlQb4WLKIJeqkBPSUtEsLNLBOgkXCY/FkpWo4vPPP4/Ov8ScgLlASzxpi6oI4WL7R4JCI0lzb4/7rhAuGhiajT5bJVaa9/qFZB2M1aKLLppojdCu9CwKcGMzTStoNphFJeYNkzYSalphoWOGpqCtYoZNy7rFXEMD1abaKggXctVtTfI+5VwHyZYjlCmmmKLI/hr7DGZYOZsO2fA04dJ/jhN8BzYWvpABgiaEzjzRBQFTrB+YBvXZU2jntKmbLE4IZr2l5CFc5vfpp5/esuaBKeOWJVRmYVEn4SI0Q4JZRzwIygi7spdjtYrbO6QvWNKoj9BKgRwR5LMKGLJ+xaqTRrhZ7+L3EMINeQ91cPhFYAEDBFDiekPSk2J5Yi8Va0KlhIu0gISPaVKbNlnYceenoZ2VenURLosDCX7ccccNatKHH34YbapySA5J4XGXVfISLhMdaVkGi4kI2YcWIVxdHwc2yLaopzPaHpnD0JKSNuq09ukMMUzapHMhNCvMNBQ0NJxtQlJc4sBEKIpsDlUQrvQHQuL4oarMaaHjSD05Y2YDZvzSiiZcTPLiFKifwVFGvIWTNkS06VlmmSV6jDnva8Uh7eeog3kI+SA0+WFCIe8YVHVCCBfTPwIe1h5Zp6wLMC2bqY9+10W4KD9YNELWFO3gLFUS7+AciLNlUtFn2HmPI7BqofSwfptEuCiP0ucQK5PGRq+j3ITLZPKdMyBabPF+zmDqoqaHSDchi6ouws1LZLSVfnH+ReH8F7NfVgkhXEwRnN2hRemzL85L86ad8wkXczgYZkm0af3QZxhFQjwwiaOpo7GnmSrRZiVeM4k0ktqpNbOqCJfFz6YzzjjjZA1zLb/jRILDXJojiXxYCBdT2+233x7bHm7sYeOk+F7t8gBar0jxRQm3FjA69FIhXOapLyggZLPn6Yx6NIu6mBKrEsrqIlwuf8mySvkw4ygkGbUQNMYbb7zYkZDjOrAgWU/e/QbljKMIhAKsaUVLVRqujhLBGY49NG9BeUCJ8OPQM89wQz+EbZ0BKmKGSvpGHYRb1HWfTQotEUksdBCEcOkfZyd+IcY2zumFs1Y20VBnBXmvJtwsL9fQcZVF53s+hz5PPRxyIH8KwlqcRy8CDFpCCMHEfZt5x9hUQbhI9njy1hEbq9uO2ZYjC7QOMKEPEsLEWTsmyxA8jHDzzMbkunm8i5lnCIjMlSqdwuog3KJJiCBPOevlPBOHKL9gehWhtGg6WryAiQLBvFwmnW1VhIsljrBDCusTgSJvIUsjZ74oEloYyyRcHF5Qr3VBK0MjEzMeJEbMUdXu/3UQbpZ5JA1YMfNhpr3zzjszx0ATbmbl/ypwxoIJIutcOeldQrhlTTP6/Wg8aD5lHEJ0qFhSnm2J3yyi2dNeCUepgnCThIKQMUyrgyco4Us4q7HJxHlIs97wHkXKRhgzwi2LevjzQrgIl6whXRCO9bk+xAAJxcV4h3+xZ806CDcptDCrnZyxytEZZ78Idn7R6TyLklNWO0J/r4pwZd8u4zyY1OZMwk3KpczZGZuwmBzYKAA/NPwjBMQ6CLdMqjkkRbS10IHQhOvfokL/mcwIKQR7c0BfNMGGYKm9lHUcbgjWcXV0eBLhNeKNmfd9euFy3kOIgi6E4UgGqaLfkbCBKgi36hyrCByEZqHB5y1GuHkRK14/6wwXEyFhKeKMiKMQWl1R/4i4ltZBuOzLtLVIEXMxjqJxcfFy5NSEW6GqIlyxtqHRI1RVWQoTrjRCh7AAOs4uVV0tVwfhJk2cEFBJoECYSuhZQ8gZbsh3Q+tUTbg6nIS45jJOIbJw47y8sZiIWQ4zKueXeYukFG0a4WKWI87Vj+Wdd955I0ELzR6PYn5Hi8KagFcoFhT+ZoSbdyYUr59FuLwZz3RIlzAvCkdFrI2mXc+nw3SK+KwIirJukxQV8X4vuu6Kj1bPJ6siXCxMOLBicZQUu1W1szTh0hBt88a8jCRYxQSsg3DLnEXi/YlnYuhA9HbCDcl4FTIROascZZRRoqqEFPlHFPwdxzw0h6KhJDI2RRe+jsOtSsMlVpd4P3G0IaaP7FEh4QV2hhsys6qtE0K4fBF/DsyrOPpQ8LxPug4ubwvr0HCJd+UsMW/BRCyRHCRuIcGHX2SP5u8Iznn9TvK2Ka1+VYQrY8CxARaMKkslhEuDOCcQzaToIX3SYFYRQK8TX5CuL6/3KR6Kkucz9FaQ3k64jAfJICCjokTIO3R2F8yrcccOXHWG9stYc36ZxxGF2DfJPdwkwtWbUd6jDCPcKre5sHeFEq6QLoKjxJCG7glZLamDcNHCSTQRGhIkbdRJPfAnkNhw3Qcdo59UJ6vPVf1eFeHicMoRUFEH27T+VEa4fISYUUmZyLVy/t2YeYGtQ8OlDSFmOt1WND0yBJG9iYLZLyQMoBsIVzJMcUaPo08RL3Rx+we7pFR/Ok40bxy3Tp3YJMIVrZ24YoSWPF6wRrh5d4vy9fMQLl/DuQ5rhcSoE3pT1OFRWl8H4fJuP6dvFlpYZUjmwrEGax9tN27+Ei4lfS4SNpjVjjy/V0W4aPMS2loknKpjhOtn58C0nJWrMq1xdREu38T5iZCXkMK5IhsgBU0MT9OQ0g2Eq+/nDQ2H0thwOw7nlZS0nMOcjZFaUNJBkgpSbkxKw1pL4dRrEuGKVSWvSQ9nNTziIekQ4dDCgkJWY3advITLGxHCxbeBVKohSfvTWlIX4fJN/AlCjjMwmRPNIcpTVt4BiTDAh4e8wkWcP1FqSJ6E82jRrG1VES59kJhlFC3alUdYlvGVG+t0Fr9KNVw+pBNEkJeTQ/WipU7CpU2YDYj/ShIK2PgwBUqeWgYBISI0PrMbCBecxGuP/83kIwQnpIAfcXwSa4wjR1rmIZ1tisVLhqWkvKmcFyH4+BcuNIlwETQQOPIIKgitSNc8RzHCDZlp1dQpQrh8WSeIwA8BJ7mipU7CZU2RajMunlbaS4ILjo/k1iH8DohJTyt430sioCJ3AqMl8x3yKpfJwV8V4dJXLm6QW7fyKGeCE9mmuBoU6wcCsdyKVDnhIqlw7ieu83ww627PpMGsg3D9PLmcJ+JQILc/0BYIgphJNBN9w0bexdQthKstF+BDKAAkkuYgAXmCtdy4RBYtrrnLKkxMfesPlyqQhxniZsPA1PXCCy9EeYHFxM/f0Z7RdptEuHrRMo/ikslrPEgZyIUQOpuREW7WjKnu96KEq82vRc9LpRd1EC5heDqnNU5eeFqTrhZfFtIr4jeBRYW1p/MrsNZCNFadCpHvsT7FUTJthLg1iH1CshYWIWx5f5WEq1Pa8n7IlwiXrHNwLHVEsrCOpWjCbhGupBhkc6VwcIx5jwUvplcmJLeLxGVN0qDqXJJ4epESEa9liFhv0nhxIslzU0lcQcrC/Z4zBJ320K8LoWfduyvmPbJ/YLIgptRPTZk0MfBsJvwpLket/wxmGzQ5zDIQAPk4idsVCcevz8G8H2QfsoXgKMQmrtP0YV2gnWjiTL6kwjjSl5BzaHkH3no6DzKmFhYVi1ancqNdOJBoywZkCJmEmmVIQ4h5zk8MAbH6fwM/6pN4hftwQwiXdzBH9UXd/H8IkkLsXdpRCGdWfrrTOKwJ75F5yZiceuqpPa5aZLMjrAThkuw0fmGtIfhRiPcknpI1xLjjCAPezGnwpe+kA8UCQz2d71undsSjFqc0+qCjCXRqR+KlWXckrfcvOQiZn72hDhYY5g1e6RTR0pi7Mm7gBAZZede10yie6Kxpxty/6QnnS0gMxSSuYE1jTyS5TpKAyjpCAE2zFumwIHwv8KmRO3v1d+PWFL+z/giJCSFN6vtCOXOHOYQfj/b7gJBoD+sNzOTCA95BXbTlLD8Rn6ukPzzL3hPHFxAlvhQhwoO8D8y4WUgKPIBVDeVM7w/MH47AWI9gprMH4r/C3i97X4twiftLMt/5EyPkyjgmi39TCDG6cgUa7ySVF4kOqihZmrQmXOJpCVXB5M2gx2X8oU1MRjY7HIdCvGbxfk7KN5rWx7Q8pXHP6YQURbGjb8R95nHjT7rIns2FhclG4WMJKYfip/vCrUnMobgLtWVs8IYnMxXfZqKHEi5nbqIdF8UvNKG5vq6Ob0FenKOxqUCWWAA0ZowL5ItnN3PTL+KMqM/G4/qAlE0yECmacOVv/t2imnClDpsUpNSNBWLUd5Um9THEzInwhvCpLWK8zw8xkxSkZfHMitzwCRclg7+xXtL23CTBMKS97MFot/6aZc4jIEDK4qOh3wdBss9izQrZZ3l/v379QprUVqeI9sw6ROH0xxXLKF7bCA/+b3wUQQui9Tm1RbgwNE4rSeQjLWfyYVrt06dPaod1DJdsNGxy2qyGNBeXLiwvknSezEppkpFPuPINFgqgclDOBohWAFgsnrzkCRGS9CNuAJL6RNu5vEAyLYX03XcwCnnGr5OW6D7tffSRxaHvxo2rD4ZIm1l3uWa1nUursRqgFSDQoGmQnQvtTF9Bl4dw/bt9s9rg/86mBAllaT08hyaDxsw3/cT3+r0QLXV22mmnSOskT68fO8nGxTkXzmRcLoCgE/dO3oW2rK/HRIvGKqGLn/Iv7t5c7jXNGuu8+DWlPmeTHFdkldBkOT4RIKxgMtUkAlEkCZFZ7dC/Z5FHHOHK8wja7OEI+uzTWGxYp+xFZfMnYHlB2MO5NItLWEeYsBmDLD7RfSe0EP+IrPf7eCL8IpTnLex5HA+G3HXMmmN/ZK3FWfQSz3DzNqrp9ZMIt+ntbmr7CImACNHQ0Pa+/fbbSIrlejf+5egh1IRcRR+58AEHuBCTchXfy/sONB02WjZCpGKOUzg/Q6hjkeJok/eWlbxtsPqDDwJphNsJFDgmRPGAHMkdzv/GnIumzX+QLZaeEI22E+0N+YZkgsMSxL6HgIrwL/0J8bA2wg1B2uo0HgFx2uDsktyxVgyBwRmBQU24gzP2aX03wrWZ0esRwIyFRo3EWfS2oV4PgnXAEFAIGOE2czoY4TZzXKxVORDQ55154oRzfMKqGgK9CgEj3GYOlxFuM8fFWhWIAJl9JOYNZyG8m6u8Li2wGVbNEGgUAka4jRqOVmOMcJs5LtaqFATw/B04cKDr379/W1hH3sQkBrIh0K0IGOE2c2S7lnCJVyTOkFASih/rqIeD5B5Z6cuaOXzd2yrCXhgXwrX8EhcOkHR9WPciZD0zBNoRIDSOUEtC6fSeh+VHl759+0a+DuyPVjqLQNcSrqT5CoGTCUmYi5XmIKCv/UprFRl5yEZGAnUrhsDgjECeGF8uJyALnpXOItC1hAuBDhgwIMoTmlaIFSWBALGjVpqDAOnb0FqJV/UL8aqktSNlZtnr0JrTY2uJIVAOAaxBhMTpdK9xbyQtIdnWQhK3lGuRPe0j0LWEa0NtCBgChoAhYAg0CQEj3CaNhrXFEDAEDAFDoGsRMMLt2qG1jhkChoAhYAg0CQEj3CaNhrXFEDAEDAFDoGsRMMLt2qG1jhkChoAhYAg0CQEj3CaNhrXFEDAEDAFDoGsRiAi3a3tnHTMEDAFDwBAwBBqEgBFugwbDmmIIGAKGgCHQvQgY4Xbv2FrPDAFDwBAwBBqEgBFugwbDmmIIGAKGgCHQvQgY4Xbv2FrPDAFDwBAwBBqEgBFugwbDmmIIGAKGgCHQvQgY4Xbv2FrPDAFDwBAwBBqEgBFugwbDmmIIGAKGgCHQvQgY4Xbv2FrPDAFDwBAwBBqEwP8D+NpXXexka4MAAAAASUVORK5CYII="/></switch></g><rect x="680" y="460" width="260" height="106.24" rx="10.62" ry="10.62" fill="#dae8fc" stroke="#6c8ebf" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 258px; height: 1px; padding-top: 513px; margin-left: 681px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;">Core.HindleyMilner</div></div></div></foreignObject><image x="681" y="506.5" width="258" height="17" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABAgAAABECAYAAAAMTAceAAAgAElEQVR4Xu2dCbQtR1WGH1EEAYmgEKdAgCCDLFk4ICQoDzGAIGFyJkggIoPIoILMCYMDBgQZFQUSICCOKMQgaHjIjKhgoqAkGEQik0FQjAIS95fVtVa9vj1U9zl9Tve5316r1j33nOru6q+qh/pr164rHNAkIAEJSEACEpCABCQgAQlIQAIS2PcErrDvCQhAAhKQgAQkIAEJSEACEpCABCQggQMKBDYCCUhAAhKQgAQkIAEJSEACEpCABBQIbAMSkIAEJCABCUhAAhKQgAQkIAEJHFAgsBFIQAISkIAEJCABCUhAAhKQgAQkoEBgG5CABCQgAQlIQAISkIAEJCABCUggCBiDwGYgAQlIQAISkIAEJCABCUhAAhKQgAKBbUACEpCABCQgAQlIQAISkIAEJCABPQhsAxKQgAQkIAEJSEACEpCABCQgAQkEAacY2AwkIAEJSEACEpCABCQgAQlIQAISUCCwDUhAAhKQwE4TOC7O7m3VGf5n/L1xpIt3+ow9OQkMJ/Do2OTp1WZ/E3+/ffgu3EICEpCABHaBgB4Eu1CLnoMEJCABCbQRuFP8cE7247Hx+cJ9hOtZca6nRPqq2jk/Mf5/WiEH8j6qYR/55i+If366cH9mmx+BX4oiPbYq1ifi71FrLKLtZ40w3ZUEJCCBqQkoEExN2P1LYHcIfEWcyndEun6k60W6VqRLIvEy+feR3hHp87tzup7JjhDY7wLBR6Iev6mhLn81vvuFwjr+68j3bT15Xxm/37twf2abH4EpBQLbz/zq2xJJQAISaCWgQGDjkIAE+ggwksQI5MMjXbsn84vi91+OdFGkb430xkjvinRi30H8fScIvDrO4oc7zuTl8dtP1H7H5f/sSAhPTYYA9dBIvzeS0H4XCG4f3E6IdETFD08AbIhAgDhwt0hf2VAHaX8KBN0NFDHm8ZHqnhxsdXSkfx3YvrkXf7xlG+7Bjxu4vykFAtvPwMowuwQkIIFtElAg2CZ9jy2B+RO4ZxTxD0YU89TYBu+C51bbXjX+/veI/bjJcgh8eRT1CwXFrT93StrYc2K/CFRjbL8LBHVml1VfDBEIurjjPXTTSAoE3a3z9fHzHVuyMNUDN/wh9pjIjBDQZGNiCEwpENh+htSseSUgAQlsmYACwZYrwMNLYKYEGG18QqQnZ+VjJBcPgT+MdEGk/4r09ZFuGImAVoyQtXkYXD1+I0CcttsEGK0+PtL3R7pVdaqnx9//ifTFSG+uUk7hKvHPSZGSG/z3Vvsgz/MiXRQJz4ShI6zpGDeKD6dV/3wp/uKN8OndrobOs1Mg2E7l41F1j0iIKXUvG+6N3Es/V1g0pnsxdaR+v31tfIfH1p9G+tvCfaVsd48PP1L989H4+/MDtx+bXYFpLDm3k4AEJDARAQWCicC6WwksnABuw4wwJjsjPtCx6nqBvVr8/rBIv9hw7goEC28QA4v/s5H/mdU2Q71HCHSHMIAR5+JTA49t9m4CCgTbbSHfFYd/Z1WEc+Mvghj2U5F+q7BoPxT5frfK+8fxl+kfGB4Kbyjcx1yyKRDMpSYshwQkIIGKgAKBTUECEqgTYKTrfdmXzBln7nipfUtkJGBhPtdWgaCU3m7kUyCYbz0qEGy3bnKBgI5+iq3xT/H5JpHwcukz7q/JQ+fO8RmPAUyBoI+cv0tAAhKQQC8BBYJeRGaQwL4iwDxyIk4jEmDEEMArYKh9Z2zw7mwjBYKhBJedX4FgvvWnQLDduskFAqbk3DXSI6oiMTWHWAVdlt9bmfJFek+1gQLBduvWo0tAAhLYCQIKBDtRjZ6EBNZGIA/oxrzY60YaO1/7L2Pb765KNlYgIBYCSyrerEoso3hepL+LdPHaznrYjq4Y2ZnXDhviMLw/EvEZVjHmHzN6iPfF10T6YKR/iPSBSJeusuMtbatAcODANYM90dtJV47EvG7q9e2RiMewLvu62BGCHtfJN0b6TKR/ifSPkbhO6rZUgeBKcSLfXF0j/OX+hHs6CbZLsbpAQF3RLrA/i8Q9uMteFj/ep8pw8/jL/UiBoLz2WYmD64Ule9NKEB+Oz8RH4X6+TjsydsZ9nbgTx0Qijsr5kXhmjH2urlq+KZ5fq5bJ7SUggZkRUCCYWYVYHAlsmQDzWnF7xXgJfcUK5cnnkvNyT+e+1HipYg47I2ptRgeBFRYeHemTpTvO8jF6RxBG5rnXjUBf9eX46PARSf9BkerBwc6I71jCbIhogRBAFPIfjdS09FkqE67HvxKJY6TO3YjT3egm2xAIviHO8DciId50GS7ZF65Agzb5pEi0h2R0+u8X6csiPTDSz0XqWraRwI3PivR/K5QDF/OfifTjHftAIMAL6KXZsZYmEDDCTpT/5NXUdLrcC86puA8JZkkd/k4kxL4m++f48gcjtXUc6Wy+JBIiUJNRFgL/5XE06gIBcQheEynFEUAMRfRoMtp4EkMOxefbRSJA7BCB4LaRnzgxTfe9dEzup7dpKcO6v15XDAIEshdG4m8ygqNynSCyfl+kp1b/t50D94/HRvqPFU4SLzzuf1ybKfBq0+5oG2dFekqkMSv8bPv5tQIiN5WABOZOQIFg7jVk+SSwOQJfG4dKHe23xWdG/1fpkPICyssPIybPLzwNXq6Y0pAC3JVsRufg5EisrjDEXhCZH9yyQX2ZsLtEPjoCbas0sBu8CL4nEiO3fYYI8+JIXcJAfR90gAhkNqQD1FeOqX7fhkBARy7N5+46L0YOmUYz1s6IDe9b25j2Qhv5/Uis4lBiRJxniceh3gRcI3SYWTWk1A5FRgQvIt8vRSA4Ksr67EgIaKXGvYD7x5nZeXZtSyf4LT0755puy8MI/nt7tv+B+P3sLE+TQHAwfn9TlYdOatt9CWEqrSzDqgMEKBwqECAYEXC2zzb1frgugeDkOCGEsLpxz+Y5hLBbYh+KTDz7hoi9ab+3iA+/HalNMGo6PsdDjEdkHGLbfH4NKad5JSCBBRLY1ANggWgssgT2HQFehHGzxOh85KsYbAIGo2N4MOQdLIQKXoIJmohbJp4IjLAxmkgnLR+lZR32B0QqHY1hHyzlhft3Mtx76bQngQB3zF+LVH+hRsDghZ4RSNYPTyNFRCe/dQcsliejnPfK8iAscAxGe3E1ZvTqmEiMhDOnOLkTswkdIM77jzqOMYeftiEQMI2FjjMu93W7QXyRXtpXFQjokDFnnLaY2gvHQ7hJ7YB6YmT6rZGIxcH/lIG6u39WuKfHZ9azLzVWhKDuT8g2+Kv4zHVDR5VpKXim0HGlI5q3W8rA/HWmrWBc30NEhrYyrquDl++f0V4Ev1xAQ/z5k0hcI4zss2rKsZG4HzwyUj5ai5jGUoJ9LuNcj3jxwCq/7yShCVaMtv9vy8njMcLvjFrzPpW8r8jOvYulBvEs+my2fZNAwLbUX/KSaFq9g/sU9wqY0NY4JuLSUIGAaUysUsPyonXDuyCJoJt6P1xX+0HgZvT/6IpJejZwfdDuk1G3TH/DS4zpHdeJxPWUr77DfZzn4RcaGLV9hScb13Nu3Nfp+NNmqTOmkjE95paR6tc9zxHaSqlt4/lVWjbzSUACCyewqQfAwjFZfAnsCwKMMDLyhtVHvaYGwL2Il3o6xMmYosBoWltUb15w6RDSOUhGpwyX67GeD2mKBQIBLpz8n3fGzoj/6fzm80d5MX11JJYr65tDzEsgL7HJTo0PvER2dWTo2CJIHMy2wyWal9u52jYEgi4Wd6jqhjyrCgT5cejEsrZ9bgg9jO7SiW0yOmGHsh/o5JZOefjNyIsXSTI6FHT027wQ6ESwAknqeOYixlwFAoRCOuZJHKCzxpSNrhFW7gWIIXkHDe+D/N7QUh2Xf43YwIgxx0RIQWzIO/Vd26bf6MAzl50ONvug49nkqt4kELAPhEDiC2DcI5hWlNtJ8U9aTQYe3DewoQJB17nggv+EKsOm3g/XJRDk55VPb0vfUyd47Px5CwDuqSwRSQceGzLFLo/dw7bU0xMj0R7ajHZ+WiRE7WTcS5huMtamfn6NLZfbSUACCyOwqQfAwrBYXAnsSwK80OCKiTE6ddEGKTBvGzEAYxSU+bgXFB4fN2GW+UodCuZ+Pq9w23q2PAYDc//TyyIvl6dEanNhx9OAuAlML2gbbTwYvyU3Yo7L3FhGsUqMezVrpFMGDJdlRJy52n4VCBg1Rozo82LBhRwXYazUiwCvE6YwYLRH5p+XTJWg48r1kNpOajNzFAgISsq1nIRCrrcfi1QaqwFvAoSEdC/AK6DUdZtO9zMqOIzu1keD+641OnqsKIAh/KV7aX27NoEg9xDAU4CR8DxuC3WdvGDwXEoipQLB3pqpCwRcL3BKwSDb6pIpAojDWH2aWds2TIVhv2OfP7nwQ73jOTY2BsKUz6++9u/vEpDADhFQINihyvRUJLAigXz0CNfZkvW4Vzzk5Zszgpq/uHUF6Wo7HvOUX1X9yMvg2NUX8hesdCzmiDJC1Pdy2cXiq+NHxIPkvktnb2jMBEQIhIHk0UDHCY+JOVouEODiOyRAJaPd6WW7ydV6zPluwoMAzwG8A0pe7rm+0qh/n9cJ50vHmfaX3KZxny+Jt5BY0flkmk4SvPh+jgJB3rGj3RyM1Ce21NsD0xPeWH2JyMd0C4LV9Vndi4AVIbiXlBhTFfACSdMcmOZxScuGbQIB2Rm95z6M4QmV7mkIHUxXwRCW4JRMgWAv6LwdUYfEFKD9lxjTWAiMiXHP7YsRkucf4rWSlyWPLdEVg6Kv/FM9v/qO6+8SkMCOEVAg2LEK9XQksAKBbbiXUtzcbTp3nR16Krj503HCxu6n/oJFcDLcPv99aGFq+fGISK6jRK+nAz3GEBqYWkAHGuGCee1ztFwgWKV8SxEI6ITQ+f7YgJPFm+RgJDxmmBfeZUx3Sa7RrNxBQMahxrzn3GNljgIBIloSMeigjwkUB5e8oz1ETMm9CIbEYTk5jpkC5HEfpcPXZl0CAaPRqQ3lI9j5va0uoCoQ7CWdCwRM/co9t/qum9yTru/+w+9piVsEQuqiT1BoOj7v4lzflBXDe2RMMNqpnl99zPxdAhLYMQIKBDtWoZ6OBFYgsC2BgJEdRo3pKPG31J24fqqM2qXlxOjYE2RqqOUvWMwjxW24bcrAkH0TCC0FpWJEk5fJsZZHr2bU83NjdzThdrlAwGjuEA8C+KSR2L4X9NJTmNqDoNQdOS8vo8N4vpQIBMxNT8EqV+k4E2E9TTWYm0CA6JXm/Y8VQRJfOlgpRkdfhz2vkzFeBKwqgbCRvDvwEupadrVLIKAseR0x8s15pLnsXEu05dwUCPbeBXKBAFH1M6U3ishHjA9Ea6zv/sOSp0yJwYiBUbpaT1NxWA4zeYThJdYWK6HrVKZ6fg3AZ1YJSGAXCCgQ7EIteg4SWA+BXCDAZXZIBOexJWAd8eRC/Nz4zBJlq1g+T7fEPbR+rPSChWvyjSONDXZY3y9Rs3nZx/KI2mPOlbnnaYUJ5iQTKX1utt9iEEwtECQRjVFFOr9j7eTYMI10z00gOC7KRgwHjPn/Kd7C2HM9NzZEdGAVFIJGlhorm5xeZSYyffrctn0+h7wknkSfQIBImtzhmUbC1JLHVQdvCh6rQLC3ZjYlEORTA06MYvxbaSNryEdbpc1iY+PoTPX8WuG03FQCElgiAQWCJdaaZZbANARwqU2Rs3lJPW+awxy2Vzq4KdAay781rWM9pBj5dAWWlBri8s1x8ijQvHivw/L55uvYX76PucYhUCDor+lSDwKe0ykeyKoj66zgwNx+bG4CwUOiTKuMwLYRHyqq1L0IiDbftsoI3gNE4U/TIlhi8+M9Vd8nELD5X0RK7uZpd0wp4jh1DysFgr3ANyUQvC4OfZf+S31wjrFxCKZ4fg0uvBtIQALLJ6BAsPw69AwksC4CjLKxxjrGqNhZ69pxx35YN5yXGowpAUwNWMXyZQR5sR86ojPFCxadiKm8MZqWQ1uF37q2VSDoJ1kqEBwZu0qBDxHw8mUy+49yeI5rxL8peN7cBAJGyfO16IeeW1f+oVNxci8CPrPMaJPlbuHkIW+flQgEdDrpfObWNqqsQLCX+KYEgiYhp6/+S35vmkpSst0Uz6+S45pHAhLYMQIKBDtWoZ6OBFYgQKC086vtS192Vzjc5ZvmL8JDgom1HZdypwCAXZHE27af6gWLudUpMv86lydkNDgFyVq1Lta5vQJBP81SgSD3QDkzdnty/65bc9w0fmHEG5ubQPCTUSaW8sRw1V9VLEwQLq32NUSk41r9aHXNEoCyyYuAeiGWCEyx0tgQJQIB+2aaU4prwP4Rd5pWyFAg2NvcNyUQIKKz2gRG4NCS1TL2lnbvN6yI8YGSjLU8Uz2/RhTFTSQggSUTUCBYcu1Zdgmsl0AeD4AXX9z/xwYMLC0Z8/HfXWVedXSU3aS5/kPdilN5p3rBymMjDA2aVcpyTvkUCPpro1QgYE90GOgslgQ07Dpy7rEzN4EgFwufFidBNPltWu5F0LQqyj2jcEz5wJ4T6eGFhS0RCNgV04cImIe9PhKiSZMpEOylsimBgDohTgV2x0hvKGwDU2Wb6vk1VXndrwQkMFMCCgQzrRiLJYEtEciX03pElOHXJy7H1WP/KcL0ofhMAL6xRmDFtOIA0aB5wR5qU71gIX4Q4wGjk7ZqALah57Xp/AoE/cSHCAT5WutD3eXzkuSracxNILhmFDQtJ8ro+Y36EU6ao+5FQEyTtGLIEfGZ4KDEasGuE+kjhaUpFQgKd3f50nrvqTKv2kndxko2eLTghfHKSPcuPemefJsSCHJR63lRJqaBbNOmen5t85w8tgQksAUCCgRbgO4hJTBjAreIshGRPRmR/FnCa6yxP17WiG1wdstOWCaK5aKwpijdpcc+NTKeVmVuGvEr2c9UL1i3iYMnl2kitSOEDHF5Lin7mDy4MhNYjekYn45U2snpO5YCQR+hAweGCAQsh0h+jDgbj+/f/Z4cLB2JB0Ka6jI3gYAC53O67xz/nzPiPNe5yaNiZ2nFENr0s6qd3zX+ItpgLDvKPa7UFAgOJ7VkgeAqcSpJNGIqCtP01nUPLW1Peb6pnl9jyuI2EpDAggkoECy48iy6BCYikI8yvjOOwfJ8XxxxrNvGNoeq7egU00lusvxlm/n0vGR9auDx8qkKbHrdSGkd9CG7muoFi3stAsHxVWGeHX8fOaRgE+Slfjhf1m1PxtQSYkGsIgqxLwWC/gobIhAw/Yfo+Klzz2oEafWP/iMdOED7e22kPOL6HAWC20cZ0/rvdLgQGJlesS1r8iJgWVZG7JmChV0v0kUDCqhAcDisJQsEnMlpkRCnMWLCEGx3XbEIBjSry7NO9fwaWg7zS0ACCyegQLDwCrT4EpiAwJVin2+PlF6AWYv75Ei8GJcaL0lvzjL3rSeeYgewCeuWMz2A4GIlRgeXzndaauy+8fllJRs25JnyBeuWcbx3Zce8T3x+xYhyXjG2eUCkO0V6SqTkXjxkV7hLIwKkDme+Le7dN4u0ioeDAkF/bQwRCNjbYyIh3mF4AiC44fVRYg+OTIx05zZHgYDy5dMpEKwQ1dqWGew6d4RGPAAQG0tWF2jbV+5FgKjHdYPXE0ZQxRQnoKQeyKNAcDippQsETJP7YKQktI5pE4kInnQPjMQUtDHPhimfX6Xt23wSkMAOEFAg2IFK9BQkMAEBonYzxza99DAyQpRxXti7jCX96MgwlzUZLy1Eeu4KeHhMte/UYaWTynzUvs7vvSLPSyOl7ZjKQPCwsTb1C1Y+N5Yyst41o08lKxEw75m10YkLkSKnPzc+P2zEyeYu602bIw5R/2NNgaCf3FCBgGvr3Eh49GC0GerxTR2H4rrALf6UhjxzFQiIRcD9JkXw/1B8pmOeXPr7yHLPIn5KvhwkgtjH+jZs+b3uRcDSqUmMvGF8vmDgfhUIDge2dIGAs6l7sB2K7wha2fe8TCS4nxOY8x7VF2NjcEz9/BrY1M0uAQkslYACwVJrznJLYHoCjCIzJzh3QX9x/M/Ixlsj5dMOmMPOmuB0gFPnlRK+qPquZIrCrSIvUaDzUW2C++EazUtkCmbInHnKRqeHDlIyXqoYVf1kARrmY58QiTmkudGxTR2TJ/Xs50tVeenMDDFG/fMI7bhSnxaJjh7nkOa0EnSRstAJwdUarwHKndut4x+mgQy1ulBR354YCYcG7pSOK4m4BgRLS9MpmDOPyy0CEV4lTDfJDfd56jGdG/WSOsF0bhklJxExns5Z3eBE2zumo7zwSy/fL4/PjPi1Gcd4SSTqt248M5mCkTqID43PXB/U4elVZtof23++YXuWwkPAYiULRp7TOdPWOB6d4PM6ykYwPNpbfk3CiBFHtqMcCEm0G4LXwT5fKo/pPFxPGJ2XFCyTNndGpEtqx4bbHSLBuM1ozxgrh3C9txnHwDuoZMrAsZGP6yFv76wN/4xI74/EEoSpfq4Vn7lGqBPiFhAENDc8oKizVQwPqPoqAmfEd/cbsFPETO6NxHVJS+NRtry+Pxz/93k/3T3ycP9L72+cO95IGAIpwt7FkRBO8zZ8VPzPUnwIMG3GvpPnWNf977LIh3jL6gpdtsn2c1wU5GAk7j/5PYR6o+3RtmnvTNWpG88B2sjRkRBh2Q/GtUXgzHdEQpzrMuLnpGsr5SNwIUIg9/U0bY7rk3ZNe6UtcO9L98q0HfeV53ccbJvPrx4M/iwBCewCAQWCXahFz0EC0xHgRR2XyYMNh+ClB9dfXlCbXNUZxWP5L14mS42ODy9V9Zd8tqcDQkcl7xyl/fIS+ORIpdMScjfm0rI15aOTdfMRO+gawec86VzmHbv6IQjehpgxZq1s9pXHh2gq/tARV17KS0QgjlV/7uTLxXWhfGb82OQqjltucvkeURWNm7QJL/Ugnm3Ho0xNnacXxvcP6ijkofitbyUPOnqs0nGwYT+0nSMj1a9HhANEFNpN2/WIKz0d8NzS6O66uA7prCM60rmis9dkTLOgQ9d07yE/50wwRzpaTWLPkHPKvQjSdkMCuN4kNqK8JcbUiLa83I+7xK18/0xpysXLPLZMSTlK8nA/7pqKtMn289mOtpDOBQaPazixfPnPtvNGROh7vvAseF2kupCb2mPufdLWphGj2gL6pm22/fwqaRvmkYAEFkxAgWDBlWfRJbBBAowi8nKVRpe6Do2XAaNPjGKNNTrQjEa2vfyn/eJ+zFSEoaPoLDmId8KqxqhxWgd76L6YxkE5SqcI0OGhY8i0gq5R5tJyMJrGqGbdTosvEFuGWnJv7dquaSkzOlq8EHcJIpz7/SM1LQ95THxPbIcm4WjoOZAf4YtOelP7vUZ8z8hpV1lpk3hQNLmenxTf48HQZlw3+fSctnzEoXhIJASTps5Ivt2Z8Q/tLI2cNnWkmK7AdZQCBKbtEQxYEWQdRh3i9t81Mlo/Du8oJ0bCEyL3TOoqD6uwMHWHtpa8cdZR/nypUryo0qh9yb5ZmpKgksnzpG0bBMeDkdpiS9BJpdPfxwKBgZHwfLT8bvH/a0oKW5gHbxC8croE4E22n7OiLMkzo+kUaH/UGeWuG6IMgl7btcT9Ce+bErGbOsLbi+u47/mVysH+EdO5/krErDk8vwqbidkkIIElElAgWGKtWWYJbI8Aa5MTaRwXVzq4vADRkWLkkhdXXrKGBDPsOhPmXOOdwLEYuWXNcUbWcaF9X6TzI11U+EK1PWL9R6bzkNzzYUpHl3PHVZ0XfNyOCeJI56ErjkP/kQ7Pwag/L8x4E1w1Eq60vKgyAqYtgwDthBF2VjW4QSRG1KlHllqjk4jLeX3awDLObG8pEZK499A5xosCsYZOH9cI8QXeG4nrhPOfwvIlGLtG+ac4tvtcHgGuTa5L2iyr6jA1Lt1nabN4EzB1AXFzXc/M5VGyxBKQwCwJKBDMsloslAQkIAEJSEACMyHA/PYUOwNPGaZraBKQgAQkIIGdJKBAsJPV6klJQAISkIAEJLAmAsS4IK4Exjzz0uj0azq8u5GABCQgAQlsjoACweZYeyQJSEACEpCABJZFgGB/uIFjqy6juqwzt7QSkIAEJLAvCSgQ7Mtq96QlIAEJSEACEiggkEeMJ0grMVA0CUhAAhKQwM4SUCDY2ar1xCQgAQlIQAISWIFAvqwla9yzooImAQlIQAIS2GkCCgQ7Xb2enAQkIAEJSEACHQRYwpVVCZqMZUCPr35gesFbqs+sMPKqSOtcVcRKkoAEJCABCcyCgALBLKrBQkhAAhKQgAQksGEC14/jXTjymLeL7Q6N3NbNJCABCUhAArMloEAw26qxYBKQgAQkIAEJTEjgapVAcO2Bx/hE5Mez4IKB25ldAhKQgAQkMHsCCgSzryILKAEJSEACEpDARASOiP1eeeC+L438lw3cxuwSkIAEJCCBRRBQIFhENVlICUhAAhKQgAQkIAEJSEACEpDAtAQUCKbl694lIAEJSEACEpCABCQgAQlIQAKLIKBAsIhqspASkIAEJCABCUhAAhKQgAQkIIFpCSgQTMvXvUtAAhKQgAQkIAEJSEACEpCABBZBQIFgEdVkISUgAQlIQAISkIAEJCABCUhAAtMSUCCYlq97l4AEJCABCUhAAhKQgAQkIAEJLIKAAsEiqslCSkACEpCABCQgAQlIQAISkIAEpiWgQDAtX/cuAQlIQAISkIAEJCABCUhAAhJYBAEFgkVUk4WUgAQkIAEJSEACEpCABCQgAQlMS0CBYFq+7l0CEpCABCQgAQlIQAISkIAEJLAIAgoEi6gmCykBCUhAAhKQgAQkIAEJSEACEpiWgALBtHzduwQkIAEJSEACEpCABCQgAQlIYBEEFAgWUU0WUgISkIAEJCABCUhAAhKQgAQkMC0BBYJp+bp3CUhAAhKQgAQkIAEJSEACEpDAIggoECyimiykBCQgAQlIQAISkIAEJCABCUhgWgIKBNPydU0aBMkAAAA2SURBVO8SkIAEJCABCUhAAhKQgAQkIIFFEFAgWEQ1WUgJSEACEpCABCQgAQlIQAISkMC0BP4f78dqnwAZnFMAAAAASUVORK5CYII="/></switch></g><path d="M 871.45 646.37 L 837.16 572.02" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 834.97 567.26 L 841.08 572.15 L 837.16 572.02 L 834.72 575.08 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 605px; margin-left: 857px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); "><div style="display: inline-block; font-size: 11px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; background-color: rgb(255, 255, 255); white-space: nowrap;">Program'</div></div></div></foreignObject><image x="830.5" y="599" width="53" height="18.5" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAANQAAABKCAYAAADDsnorAAAOeElEQVR4Xu2cCdSVUxfHD6WSyhChIkMpUSKRIkVIA9UqJQ1WhTRYhpWSKaXJkDlTRUIDq1hFhGhAVhYaRFEkc4WigfB9fmc5d533uc9z73nuPfe+V+29VuvzvfeM/7P/5+yz9z7PHv/7R5SIICAIZI3AHogQKmscpQFBQCMghBJFEAQ8IiCE8gimNCUICKFEBwQBjwgIoTyCKU0JAkIo0QFBwCMCQiiPYEpTgoAQSnRAEPCIgBDKI5jSlCAghBIdEAT+RWDHjh3qk08+ScKjYsWK6vDDD3fCSQjlBJMU2h0Q+PLLL9WRRx4ZOtU///xTlShRIi0MSYT666+/1JIlS9SGDRvSVqbAPw2oKlWqqGOOOUbts88+TnWkkCBQiAj88ccfqnTp0klDq1Spkvrhhx+chpxEqHfeeUc1btzYqXKwUNWqVVX37t3VjTfeqMqWLZtRG1JJEChOBA477DD19ddfFxlC06ZN1Ztvvuk0rCRCffzxx+r44493qhxVCGJNmDBBnXvuuVm1I5UFgXwjgM6+9tprRbrt1auXGj9+vNNQQu9Q2Iv8Q5o3b67efvttNWjQIDV06NCkRnfu3Kk+//xz9emnn6qHH35YLVy4MFHmjTfeUGeddZbTQKSQIFAICFx55ZXqkUceKTKUESNGqCFDhjgNL61TokmTJpokt956ayih7F7+/vtv9eSTTyoYjWB7cuIdeOCBToORQoJAcSMwZswYNXjw4CLDePbZZ9XFF1/sNDSvhDI9Tp48Wd+lEBg/btw4p8FIIUGguBF47rnn1EUXXVRkGFhojRo1chpaTghFzwyKweH9W7VqldNg4hTatm2b4qGxD8/ir7/+qlauXKndorVr186JQ2X79u26D2Idhx56qPaMhnmU4mCQaVlf2DGnb775RnvAwO6II45QBx98sPb8+hDW12BWr169SLc17m4cCTVq1ND9ZyPvvfeeatiwYZEmaJv1cpGcEWratGmqc+fOegw///yz2m+//ULHw2n27rvvanLYcuKJJ6rLL788aWKPP/64mjhxYsITc9RRR6mBAweq3r17q5IlS7rMWZeZM2eOmjJligLA1atXF6kHqU455RR12WWXOe9MYR3/9NNP6vbbb1fz589XH3zwQVIRTOO+ffuqk046Sf82e/Zs9dJLLxUph4PnhhtuUHvuuWdS/Xxjt3XrVrVgwQL976233lKLFy8Oxbtdu3Zq1KhRqmbNminXA0Lec889av369YlynASdOnVSt9xyi3riiSfUjz/+qH8rX768uvTSS9Vdd92lSpUqpf+G5fPoo4+qZcuWJepzZ580aZICt0zku+++U5UrVy5S1TUGRaWcEerDDz9MKMrSpUtV3bp1k+bHbr333nuHzptdAqIhkA1wzd0srMJ5552nZsyYkfZ0+e233zQBgxfPKPBRZu6PcU8TFA7FMAqRanGHDRumSdO2bdskQlFv+fLlSZ7XfGPH+EaPHh1LR5nXzTffHFln3rx56uyzzy7yO3pywAEHaMKGyTXXXKPuvvtuvYb8b5iwyYJZJqEb/AB2ADeuhZUzQs2aNUtdcMEFer7sbFGTI2Zl73ScFhyxhlAQgPvYzJkzE9g1aNBA9ejRQ/9/FtnEDQD5jjvuiFxATomOHTuqtWvX6jLsepdccokmfp06dbRnE/JTjlPQCIv8/PPPa5PCRYIXW3bNVq1aKU5dNpAVK1ZozykOHCPMB/JxcuLMMaELdvl77703sSvb/ecTu6AZB47EKzHFMIcwIzlpXnnlFfXggw8mhpnqQr9lyxZ1xRVX6HmDSXDzoX0sj2rVqmkvm9ETLAhMQQTycE9HXx577DHFqY3gWOCUzETA3FgtrBuWg6vkjFAtW7bUygEoixYtch2PNpHY1QCIE6d169YJcwkCYKYxSSObNm1SHTp00Dsarv2oXXTz5s36PmcW7ZxzztGkiTINyOlCyckaQSAV/23MjagJBQPjmCSYjmH3ChQEQhuCmzavu+46bdrElVxhxzimTp2qleyMM87QZnCqE/uLL77Q62ew5o5arly5lNO5/vrr1Z133pkogzWCFWHMeDZlyGOTjjVko7Xv0Ubv4mQ3BAeGpfDiiy/qP1911VXqvvvuc16KnBAKINg1kJtuukkNHz7ceUBGKaiAspvTB/CwjbnQB4WUkTVr1mibPeyuQXk7vsDOxQJGlTXtE2ODpNj5CHE4zL8o4U7Ajm12tzBTLViXXZpYnyEuv2dLKN/YOS+eVZBNFPIhbHZnnnmmM6HOP/98fSoE1wc94m6FQK6PPvpIWxm2UK9Nmzb6Txs3blQktsYV4qncbRHaszfwdG15JRSKzQlhlA5CYD4ddNBB6caR+N0mlPkjk2OXiON0sDt8/fXXFYRELrzwQvXCCy84jwczkB3ZKDzzwXQLE3vsmD39+vVz6ieYneKDUL6wc5pASCFyQvfff3/F6eSChTmhOFkw/8J0hlPSxIO4Xwe9cQwDB8UJJ5ygR7Ru3TrnLHF7CpivmONcU7p27RpL77ImFJ1/9dVXmskw2zZfopwRqRYpSCgIyimRjRgzgN0MF37YKZeqfcw/7HYkVRrKaaedpu18zFw8ey7ZyaZfe96+COUDu2xwP/roo7U+cMJfffXVKZsyhOJ0evnll0PLco/l7oZEfZvV3pwyJVQ2c3YmVJxOOOoBsX79+nGq6bK2YsWJUKfqqEKFCnqnHDlypPamZSKckmwY3KXYKILCSbbXXnvpPz/00EMJk8G1r88++0zf8RAfhPKFXdT4UWjuMzgieJmAs2XffffVpxKWCdaEECoEPZN65KIYKASuTBwJmYp9sTZu80zbot63336bCMq9+uqrGSfs4sAwbnvuSmXKlCkyLJsQxGnM/cF17DYhsyWUHXJw7d+lHNYIOLCxGC9bVD08pyb2JieUhZIhFBe99u3bJ+GHh4UIOf/i3JWiFsI3oebOnauIUSFE9YNBOxdFogx3KIK9CJdhY6eb+riLMVcQdu1MAotE+dn1C5FQZFvjpneJqwUxFUKFEMolOdZVOVOV800oOzeLHTYqkJxu7LZtHnY35G94+JD3338/I3PXmKaFRigIce211yYgwnEwYMAAdeyxx+pLP3EowgJ4LMmKAQs2IJ7wIEKoXYhQttcnlYcuHaHsQDXpKYccckiRKnbmAlkdpMnEEcIDPG5DColQtocUpw730J49ezplIcgdKkQD4jzfiKNAUWV9n1C///574r5DHMtkwccdqxlXqoDhcccdp+8WXbp0Uc8880ysLuwM/UIiFNkubCYIHsxTTz3VeV5CqF2QUEwJbyOnE3cpsjfiZkMTXyP2BFlSpaIYTyB98uqTgK2LEIAkUIknspBOqF9++UV77RCCqgTp44gQahclFKlMnDAIdj0mSxwhydMEqx944AHVv3//0Orff/+9dn1DDJwSEDAYyQ+r2K1bN/X0008nfiqUE4qX2CZ/Mc4GwUSI95FzCRZyh7JW/b9u8jEV8sCIH5mgM+9nSLh0ETtrHgUhVy9VxsZTTz2VSNyFXDhFwjLt6Zs8RFKiKGNLoRAK3EwOHoQn79BFeOHNSW5OXCHULkYopmPnlnEPIrXEuLmjlIR7EApvFANPn8mYiKpDwJP3QCa50phLfPyDDHKSa4lZ8Q6LDBDjhoas/EYWeqEQirGbeyGbA2ZzqgedOGZI6g0+2ditCUWAkcAkuydCMBOF4lNKJmEwqEy4i12fNth1SVni4y628GgMZcRUMm7XKOWtVauWfnbhKsE3PcyHlBjuLyZNiPkzJu4M06dPTzR9//33a1exi9AGz0iI27gIeYacAJiiPDB0IVS+sCPrw5i4BKvJqQzmMrIpsGakOgUz55k/pxVmLcmufEjy5JNP1rCw+XDiE3ynXTYTNjty/whvgIud1W6nHrE2tNesWTP9fsqIHd5gPKwtmxVx0nxIUuoR6fBhAdxUg4n7CIu2iAll+3wd0nFxTpc1bo+dl8Q8pzCnjvmN/DucD3bWN7+xwHgHW7RoEXs98Irx3sd+UWo3wmJDnj59+ug5kGHiQqh8YofSk1BsPH2Mn/U2GyhPNYJZE/yOwqNHYQQjXsXapfsGZDD8YBPK4Bj8ZknYZ/BylTkSphBJhOLOQKp9UOFSaRMxFyYfR9jFccGGPQ13bSfu4y/TLhkTnLykIqUSvovBiZnJEwC7XUgPqZgraUvEm6pXr64zL+zNwJVQ+cYOApNSZp5ORGHGBoG5ZzK0jZfPLo9yYwGR98gpy+kRln0B4UiSPf300xPVwwhFGhQbUtgJZf7GK9+xY8e6qlVW5dImx2bVeoFXxiuHohPZJ50Isw9zhrQiHAn5/vwZz8F5Fu5i8hUHtKRU8baJOyBePE4vAtyYU4QIML/jhiSKYx657HO3JlQugc2kbZN6lO5bDJm0LXXyg4AQKj84p+2FuwgmExI35pO2cSmQNwSEUHmDOroj7kSk+JDFgaT67FoBDFeGkAIBIVQBqIf9vQtc01zaRf6bCAihinHduNzzyTETb8NFjyfQ9SulxTh06ToCASFUDlWD70rwjgi3OWKnLPEExA5NQCYeKUZ9ACaHw5SmPSIghPIIZrApPjt22223pe2BuA2ZAnbEP20lKVCQCAihcrgsnEKkFJGBERSSTvmOIOlT+UqLyeFUpel/ERBCiSoIAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQBNKYBAEBAF/CAih/GEpLQkCSgglSiAIeERACOURTGlKEBBCiQ4IAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQAglOiAIeERACOURTGlKEBBCiQ4IAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQAglOiAIeERACOURTGlKEPg/iOU50vWwktgAAAAASUVORK5CYII="/></switch></g><path d="M 810.16 460 L 810.39 383.36" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 810.41 378.11 L 813.89 385.12 L 810.39 383.36 L 806.89 385.1 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 1px; height: 1px; padding-top: 420px; margin-left: 814px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); "><div style="display: inline-block; font-size: 11px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; background-color: rgb(255, 255, 255); white-space: nowrap;">Program'</div></div></div></foreignObject><image x="787.5" y="412.625" width="53" height="18.5" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAANQAAABKCAYAAADDsnorAAAOeElEQVR4Xu2cCdSVUxfHD6WSyhChIkMpUSKRIkVIA9UqJQ1WhTRYhpWSKaXJkDlTRUIDq1hFhGhAVhYaRFEkc4WigfB9fmc5d533uc9z73nuPfe+V+29VuvzvfeM/7P/5+yz9z7PHv/7R5SIICAIZI3AHogQKmscpQFBQCMghBJFEAQ8IiCE8gimNCUICKFEBwQBjwgIoTyCKU0JAkIo0QFBwCMCQiiPYEpTgoAQSnRAEPCIgBDKI5jSlCAghBIdEAT+RWDHjh3qk08+ScKjYsWK6vDDD3fCSQjlBJMU2h0Q+PLLL9WRRx4ZOtU///xTlShRIi0MSYT666+/1JIlS9SGDRvSVqbAPw2oKlWqqGOOOUbts88+TnWkkCBQiAj88ccfqnTp0klDq1Spkvrhhx+chpxEqHfeeUc1btzYqXKwUNWqVVX37t3VjTfeqMqWLZtRG1JJEChOBA477DD19ddfFxlC06ZN1Ztvvuk0rCRCffzxx+r44493qhxVCGJNmDBBnXvuuVm1I5UFgXwjgM6+9tprRbrt1auXGj9+vNNQQu9Q2Iv8Q5o3b67efvttNWjQIDV06NCkRnfu3Kk+//xz9emnn6qHH35YLVy4MFHmjTfeUGeddZbTQKSQIFAICFx55ZXqkUceKTKUESNGqCFDhjgNL61TokmTJpokt956ayih7F7+/vtv9eSTTyoYjWB7cuIdeOCBToORQoJAcSMwZswYNXjw4CLDePbZZ9XFF1/sNDSvhDI9Tp48Wd+lEBg/btw4p8FIIUGguBF47rnn1EUXXVRkGFhojRo1chpaTghFzwyKweH9W7VqldNg4hTatm2b4qGxD8/ir7/+qlauXKndorVr186JQ2X79u26D2Idhx56qPaMhnmU4mCQaVlf2DGnb775RnvAwO6II45QBx98sPb8+hDW12BWr169SLc17m4cCTVq1ND9ZyPvvfeeatiwYZEmaJv1cpGcEWratGmqc+fOegw///yz2m+//ULHw2n27rvvanLYcuKJJ6rLL788aWKPP/64mjhxYsITc9RRR6mBAweq3r17q5IlS7rMWZeZM2eOmjJligLA1atXF6kHqU455RR12WWXOe9MYR3/9NNP6vbbb1fz589XH3zwQVIRTOO+ffuqk046Sf82e/Zs9dJLLxUph4PnhhtuUHvuuWdS/Xxjt3XrVrVgwQL976233lKLFy8Oxbtdu3Zq1KhRqmbNminXA0Lec889av369YlynASdOnVSt9xyi3riiSfUjz/+qH8rX768uvTSS9Vdd92lSpUqpf+G5fPoo4+qZcuWJepzZ580aZICt0zku+++U5UrVy5S1TUGRaWcEerDDz9MKMrSpUtV3bp1k+bHbr333nuHzptdAqIhkA1wzd0srMJ5552nZsyYkfZ0+e233zQBgxfPKPBRZu6PcU8TFA7FMAqRanGHDRumSdO2bdskQlFv+fLlSZ7XfGPH+EaPHh1LR5nXzTffHFln3rx56uyzzy7yO3pywAEHaMKGyTXXXKPuvvtuvYb8b5iwyYJZJqEb/AB2ADeuhZUzQs2aNUtdcMEFer7sbFGTI2Zl73ScFhyxhlAQgPvYzJkzE9g1aNBA9ejRQ/9/FtnEDQD5jjvuiFxATomOHTuqtWvX6jLsepdccokmfp06dbRnE/JTjlPQCIv8/PPPa5PCRYIXW3bNVq1aKU5dNpAVK1ZozykOHCPMB/JxcuLMMaELdvl77703sSvb/ecTu6AZB47EKzHFMIcwIzlpXnnlFfXggw8mhpnqQr9lyxZ1xRVX6HmDSXDzoX0sj2rVqmkvm9ETLAhMQQTycE9HXx577DHFqY3gWOCUzETA3FgtrBuWg6vkjFAtW7bUygEoixYtch2PNpHY1QCIE6d169YJcwkCYKYxSSObNm1SHTp00Dsarv2oXXTz5s36PmcW7ZxzztGkiTINyOlCyckaQSAV/23MjagJBQPjmCSYjmH3ChQEQhuCmzavu+46bdrElVxhxzimTp2qleyMM87QZnCqE/uLL77Q62ew5o5arly5lNO5/vrr1Z133pkogzWCFWHMeDZlyGOTjjVko7Xv0Ubv4mQ3BAeGpfDiiy/qP1911VXqvvvuc16KnBAKINg1kJtuukkNHz7ceUBGKaiAspvTB/CwjbnQB4WUkTVr1mibPeyuQXk7vsDOxQJGlTXtE2ODpNj5CHE4zL8o4U7Ajm12tzBTLViXXZpYnyEuv2dLKN/YOS+eVZBNFPIhbHZnnnmmM6HOP/98fSoE1wc94m6FQK6PPvpIWxm2UK9Nmzb6Txs3blQktsYV4qncbRHaszfwdG15JRSKzQlhlA5CYD4ddNBB6caR+N0mlPkjk2OXiON0sDt8/fXXFYRELrzwQvXCCy84jwczkB3ZKDzzwXQLE3vsmD39+vVz6ieYneKDUL6wc5pASCFyQvfff3/F6eSChTmhOFkw/8J0hlPSxIO4Xwe9cQwDB8UJJ5ygR7Ru3TrnLHF7CpivmONcU7p27RpL77ImFJ1/9dVXmskw2zZfopwRqRYpSCgIyimRjRgzgN0MF37YKZeqfcw/7HYkVRrKaaedpu18zFw8ey7ZyaZfe96+COUDu2xwP/roo7U+cMJfffXVKZsyhOJ0evnll0PLco/l7oZEfZvV3pwyJVQ2c3YmVJxOOOoBsX79+nGq6bK2YsWJUKfqqEKFCnqnHDlypPamZSKckmwY3KXYKILCSbbXXnvpPz/00EMJk8G1r88++0zf8RAfhPKFXdT4UWjuMzgieJmAs2XffffVpxKWCdaEECoEPZN65KIYKASuTBwJmYp9sTZu80zbot63336bCMq9+uqrGSfs4sAwbnvuSmXKlCkyLJsQxGnM/cF17DYhsyWUHXJw7d+lHNYIOLCxGC9bVD08pyb2JieUhZIhFBe99u3bJ+GHh4UIOf/i3JWiFsI3oebOnauIUSFE9YNBOxdFogx3KIK9CJdhY6eb+riLMVcQdu1MAotE+dn1C5FQZFvjpneJqwUxFUKFEMolOdZVOVOV800oOzeLHTYqkJxu7LZtHnY35G94+JD3338/I3PXmKaFRigIce211yYgwnEwYMAAdeyxx+pLP3EowgJ4LMmKAQs2IJ7wIEKoXYhQttcnlYcuHaHsQDXpKYccckiRKnbmAlkdpMnEEcIDPG5DColQtocUpw730J49ezplIcgdKkQD4jzfiKNAUWV9n1C///574r5DHMtkwccdqxlXqoDhcccdp+8WXbp0Uc8880ysLuwM/UIiFNkubCYIHsxTTz3VeV5CqF2QUEwJbyOnE3cpsjfiZkMTXyP2BFlSpaIYTyB98uqTgK2LEIAkUIknspBOqF9++UV77RCCqgTp44gQahclFKlMnDAIdj0mSxwhydMEqx944AHVv3//0Orff/+9dn1DDJwSEDAYyQ+r2K1bN/X0008nfiqUE4qX2CZ/Mc4GwUSI95FzCRZyh7JW/b9u8jEV8sCIH5mgM+9nSLh0ETtrHgUhVy9VxsZTTz2VSNyFXDhFwjLt6Zs8RFKiKGNLoRAK3EwOHoQn79BFeOHNSW5OXCHULkYopmPnlnEPIrXEuLmjlIR7EApvFANPn8mYiKpDwJP3QCa50phLfPyDDHKSa4lZ8Q6LDBDjhoas/EYWeqEQirGbeyGbA2ZzqgedOGZI6g0+2ditCUWAkcAkuydCMBOF4lNKJmEwqEy4i12fNth1SVni4y628GgMZcRUMm7XKOWtVauWfnbhKsE3PcyHlBjuLyZNiPkzJu4M06dPTzR9//33a1exi9AGz0iI27gIeYacAJiiPDB0IVS+sCPrw5i4BKvJqQzmMrIpsGakOgUz55k/pxVmLcmufEjy5JNP1rCw+XDiE3ynXTYTNjty/whvgIud1W6nHrE2tNesWTP9fsqIHd5gPKwtmxVx0nxIUuoR6fBhAdxUg4n7CIu2iAll+3wd0nFxTpc1bo+dl8Q8pzCnjvmN/DucD3bWN7+xwHgHW7RoEXs98Irx3sd+UWo3wmJDnj59+ug5kGHiQqh8YofSk1BsPH2Mn/U2GyhPNYJZE/yOwqNHYQQjXsXapfsGZDD8YBPK4Bj8ZknYZ/BylTkSphBJhOLOQKp9UOFSaRMxFyYfR9jFccGGPQ13bSfu4y/TLhkTnLykIqUSvovBiZnJEwC7XUgPqZgraUvEm6pXr64zL+zNwJVQ+cYOApNSZp5ORGHGBoG5ZzK0jZfPLo9yYwGR98gpy+kRln0B4UiSPf300xPVwwhFGhQbUtgJZf7GK9+xY8e6qlVW5dImx2bVeoFXxiuHohPZJ50Isw9zhrQiHAn5/vwZz8F5Fu5i8hUHtKRU8baJOyBePE4vAtyYU4QIML/jhiSKYx657HO3JlQugc2kbZN6lO5bDJm0LXXyg4AQKj84p+2FuwgmExI35pO2cSmQNwSEUHmDOroj7kSk+JDFgaT67FoBDFeGkAIBIVQBqIf9vQtc01zaRf6bCAihinHduNzzyTETb8NFjyfQ9SulxTh06ToCASFUDlWD70rwjgi3OWKnLPEExA5NQCYeKUZ9ACaHw5SmPSIghPIIZrApPjt22223pe2BuA2ZAnbEP20lKVCQCAihcrgsnEKkFJGBERSSTvmOIOlT+UqLyeFUpel/ERBCiSoIAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQBNKYBAEBAF/CAih/GEpLQkCSgglSiAIeERACOURTGlKEBBCiQ4IAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQAglOiAIeERACOURTGlKEBBCiQ4IAh4REEJ5BFOaEgSEUKIDgoBHBIRQHsGUpgQBIZTogCDgEQEhlEcwpSlBQAglOiAIeERACOURTGlKEPg/iOU50vWwktgAAAAASUVORK5CYII="/></switch></g><path d="M 120 244.64 L 199.02 244.27" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 204.27 244.24 L 197.28 247.78 L 199.02 244.27 L 197.25 240.78 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><rect x="663.71" y="800" width="120" height="60" fill="#fff2cc" stroke="#d6b656" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 118px; height: 1px; padding-top: 830px; margin-left: 665px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><font face="Helvetica">Core source code<br /></font></div></div></div></foreignObject><image x="665" y="823" width="118" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAdgAAABICAYAAABVyORuAAAZ9ElEQVR4Xu2dBbQuO3XHodCibXEppRzc3aHQQ9Hi7nLx4g6lSN8DWtyhOFzc3f3iLm1pcXhIebRogRaH7t9a37CyNjszycxkzvnm/fdaWffc+TKZ5J9MdrbO0Y8mEgJCQAgIASEgBGZH4Oizt6gGhYAQEAJCQAgIgaOJwWoRCAEhIASEgBBogIAYbANQ1aQQEAJCQAgIATFYrQEhIASEgBAQAg0QEINtAKqaFAJCQAgIASEgBqs1IASEgBAQAkKgAQJHJQbLWM9p5YpWzmLlFFZOvcH0T+zfI61838pnrXzAygetfKsB5mpSCAgBIbANCBzfOnm8pKM/tb9/tA0d3y99PCowWJjnPazcwsqfVwL/Wqv/KCvvr7xP1YWAEBAC247AO20Af50M4pP29/m3fVBL9n/NDJax3dDKY6ycbCKoL7L7/9bKjye2o9uFgBAQAtuCwHuto5dIOvuv9ve5t6Xz+6Gfa2Wwf2jgPs/K9WcE+QvW1t9Y+cqMbaopISAEhMB+RUAMduLMrJHBHsswebGVawxggzT6RSvfs3JiK+crwBLmelEr/11QV1WEgBAQAtuMgBjsxNlbI4N9mWFynR5cHm6/vdrKx6382tU7if3/UlYeZuV0mTZwgPqr4N6JU6HbhYAQEAL7CgEx2InTsTYGexPDA9VwRK+0i3ez8o0CzI5pdW5q5VmZune0608uaEdVhIAQEALbioAY7MSZWxODxUP4P6z8cYAJjk73svKbSryubfVfnrmH5/yksj1VFwJCQAhsCwJisBNnak0M9p8Ni9sFeDw1c70UuvtbxQcHlW9u1w6WNqJ6QkAICIEtQ0AMduKErYXBntBwIEmEJ5yScCufImmiLv5PKz7U56127QqV+NPGaTZt/dL+PYaV71r5kpUfVLZVWp1nnNYKAeMkzvhO6Y1Wj0Bz+txJ/tz/i4r7W1U97gZHEoX8fDP3OJ7914wPBLNTWjmplf/dtAt2n9s8c8ZH7UlTf2ZPPflm3R1R2IPTbzD5U/uX9YuD4NessIbnIpwUwZx1+0dWWHMd/nM9Y2w7rce/9P7A+827TQKJ3wagzMVg2UNxJCUnwa+s/HCz7sbOw9bctxYGe1dD/LEB6le1a6+fYTaQYJFkU8ILmQUzRCzi21q5npUL9lR+n/2G/ZhSwsTYfJ5ohX87er798a7Nf85q/z7aCqFFHaHuvu5Ahy9mv6Mav5GVKH6YcCWeg6f2l4cGP+PvZOF6gBUczHJxzfSN+UabMSacisPP7Tfjzzm5MSSc5NCMvK1wfKzPNH4Q5zrs+D8rvJ9EKedI6rL27py59952nbnvCGe+zl+Ag+g/WWFuO1PK0DqG2d1pc08fJjgXPsjKvxeOKa0G4yKkjrV5ruB+Dk+0/0IrH7ESMYMRjy26pfX4W+0P0eDOtsEYJ1D+Tol3B6HhackcTmGwJ7B22POI5rh8Bmneo4Ob53JQXh2thcGSaenibnZ4KU9lhRPTVDqjNeCzOSEVs0j7FgYL+UlWahJdfNPq39rKWwY6jRTBSTCl+9h/HmEld+DoY7BIbDDkofCm9Hk4gWHbbiV98ywkrcM2mNTM40M293lP8agN4qbva+XwmgdYXTzKD1hBA9FHfqOiLht3qeQXre/cu/sJazcNOes0LWTk4VDk12Ifg2UdsiYiv4bceEnKwpooSTNKu+BOKSUwv5UVNAmtqfX4W+4PKTZofP7RCvtCCR20Shw0WTu1iSb+wO65mZXHV6wb9uoDVt5c0rltqrMGBnscA/z/AtA5Tf/DHk7G328W9dgucP9De27OMVhUPo/M3JdjsBe2+m+veCHS5nk5YMrkbp6b2ICRwM40suFn2323sdLHZFk/L7VylZHPgEEhefUdiPaawbK50oeIIgbLvkA4G4xyDH3YbkLT0KeJQT2NBiCSWEueSWY1pK0WtMT4W+8PHS5Iku8ZgTOaMN6/VOs2lMkJVfAzrcBgxxDvK9q+OYSiMc+f/Z41MFhUmpxqPV3aLnTq0tmBG2gQSZJY2j5iYxuSDO5udSLVN+1GDJYXoG/DihhsDr8azBjLRazgxT0noRIk3WWOSjDs24g5bb/BSqpGj55V8hwSkMBYItpLBouqHGk5t9YiBosauUaqjMaM5z6q7YiQoj9kpU/lXLKOWBtI5XNT6/EvsT+ACfbsN1lJ8wlPwaqPwfIuoca/1pQH2L1TnVInPn7e29fAYFHjPD2ApUYFNyeqF7DGPpZpEPUtmy1SGQ45nPiwzfEhAlQyEZH44lDwQ8Rgc+NgE/2qFZjJ/ZJK2ORQtUUqbJgFp9FPW0EVjQ0QSfdqVrz9hiZRbaNKL7Ur5vraXUcqflVQiYMLkgvONdjiUH/9hZUrWeHDDJ6QsLHxRY5u2BafENwDXmhAsPd9anPvse1fDm13sBIxZJ7D4SZytNpLBtuHMxsmzoGssY6QPA9lbnqKXX+GFex1bKgwyMtYiXCniWjtsufwEY1IYwCGaG3AnPml/QtZ2bWSs+OxLsfYfXO4tB7/UvsD4yOqAn+EiPBVYF3yfsOI6RcHlj5tUR+DJccAh6qImFOEIPaaE1lBKuZATt6CiDAB5HIQ5OZtX15fA4P9O0PWq1LZ7LtP0S0JPJvOv1mJGBBqxFxMLX1k88bo7yWN3BcshhgsTOKWm4Wds4fhUBUt8sPsOmrFSFWDSpWkHRGTgfnkXujaeUBy9zYjxoMaKUc79gNfAPGS0Q3s2kvcTTBlNnFPbPIwhpw0zjtDv6LNBLUq69HTfmKw9I+DC5KtV51z4OMgFn11Cino3Rngz7D5zd8XSbGEt0VzyNrnsIxnckQPtIuRjbzEcS/T5O9dbj3+JfcHnB9xQozm8sZ2He2QJyINkCD5PaIcg2W/iw45vEO8e9wX0eXsInZeT7yDO1bwbt5qWgODZVPDczIlpC9UdktTbsEg9b2uoDPXtDowL0+XtQvvcBf7GOwhq4unaJ+jCZsiuZg9lTBJpLlXWEFqTIkXg+/szuHliQqRU25KOCMN2WciqRQvcDbolDhAYAfz/f/LDC4eJ5w4Ik9ewhF8yNh+YLDMDV71SOU54nekS0+o/SJtQlqPtYCGJCW/IecYWCmTzMWkozkZcjTrGfbvfmo9/iX3BzLRPTcYNA5waAj6CI1EpN7PMdjnWP0DrkGEHBjv0BfI0IDg/+FpFXkG1sBgUWMi2aSEN9oVS96omevARL3qC1UML24pYTPx0iGqOa9CzjFYFjQS3JCHKtIFap2UOJjAYEo8bwlR+p9gUHOo7IiBjBgpDhvRM9NuYBqAmaSE9MpJuiOkcFS5XlsAHo8rnChU098O2iDcBKeplPYDg+2TQLu+4qjlVbFsfjCGEoq8ncnv3UmlV7e/kVRTYr2exUqJ1zH3IUXvujbmcnhqPf6l9gfeH6RHr+7FvFJiW+c9+3qwtiMGS6x4NHfsv6VewYTfYZJJCXsuYT5bTWtgsNHpaS8mBztGZH+sWWgsJtQzxJmmhDoPO2JKOQZbmicZBuNtr0iMfRKOX+xR9qwSCXjopUGVht3XM0Bs7Rw0hg4AjAtpqSPmJZUqCenyYVfUrbXbR4c7MAGDlPaawaIVIba5j9BKRCq5Eum1axdNEhqllNL1H5kk8FTO2XCj/rLpenV/qQS8l+Nfcn/YtYFG6ny0S6XJWCIv54jBRir/WgEHcx4MPSUOXjD62vS2A8t82Z/XwGAjSazm1D0X4hjuP+oaQ01CfOmQWjO9LZeVyqsecwwWyXJILYOEGyWJKFHBpn1F9f0aN2biflHTTiVU0JFHIjYbVL6okMe+fHhnE9+ZEoca1Go1hKYBjUNK0Sa01wyWfg7FVeNMFB2uWI8+3jqHEaE3OMKlxNi7++c41CER+2xkOF2duWbigrqtx7/k/hA5fta+lxxSPTOO1jbOSDhpplR7aOJebLjed4UY+CMnzuue3r4GBhvZZSKJrzXQxFv6uDw8LrleS3zxxzsnoEb7fNJQxGBLnbsIcEfKT4lNareyo2xq/qT8Rrt25cp2oup9HpDURw2MzY8YP2Jwa2xwhHagyk0p5/jRN5TIUYp+wWhS2msGu2OdiRy60j5Gm/Ihq5B6GE+ZVjZLUo56wn5amwoxUkmiFh174KJPrce/5P6AKphQoJR4PvtRDXlfiojBsid5VTRxsJFdte/ZaCK9eYLDmhdaavq/53XXwGBzG3GtNDZ1Mgh/IXtQStgW/LWS50QOPl59GzHYUuaGCpMTbQsiRAlpYCqhUsOWiZRcQhwukKaR1GC6ffmn8TTGJpkS4RkwwhrCDhsxB1Tc6ea01wy2hPlEKsE5YxIJRyMkpBWVaG76nt16/EvuD5H2p0SL4fHxUmXEYOdwaMzNy5g+t1pfo9pdA4NFEomCzXfs+tCpvQY01KowtZQ4vXVZpCLPu7GecJEzhPckjhgsDiR4Ig9RLuRh6L6S34eyvZS00dWpZbJp2zAHPH2jlHr/Ytd9Qo6xnqjRBkO4Q5pdbCqDjQ5cuXfXp0oEk5L3PPLGj7yva+Yvrbtr/8mF+YxtM70vdaYa017r8S+5P0TqVnJ5f6YSGL8P+XebUKCWOYRLoy8qh7Vc9ZIXb7nejHtSznZySWuOBPpzETZLH1+JV2QX1oADDmqmlFCVIlXWUiRhEQjO5tnRFAaL/RE7ZAuawx6W9gtpkBAQtAFp2rbSvqPhgNmmFKngSzyU/TPRkkTpAOeWYKMNc24Gi3nDmzNqvKqH5iMXAjN0X+nv5B0v9USO2mw9/iX3h+jQt2ODrhU40CARv9+RZ7D4hQxFK5TOX1RvKHfAlLYXuXcNDDa3yZGH2Lt+jwUVW2MkCWEn7exKkd0jSnBQ0oeImXsP1ykMNvo6EP3Kpfor6XNXBzUgTK0F4TDGJwIJhYoSXeSe6U/CkZSHPRXGW0Ns6qimUyI84uzu2lQJNnIOmpvBRs6CqDVJGzgH5WJA51hzeIlzmK215abjaj3+JfeH6ACJxoYkODXkw648g0VTE5liqBflh695NnWJM89lxatta0/qr4HBAhzOLj7pAZ60uH8PxU2WAE/oyxNdRS+pRU4SZM3xYQtDz2NOImcNP1dTGGzkRctXUEhOsS2EeoqgeWynMN3dgY5Tn2+YQlGOY0J3cJaqoSjtXaSmn8pgI4lkbgZLLCnx1inNaYONvGiHPpVXMxdT67Ye/5L7QxRLP8ae6Q92pTbYs9pkRALJ1DnauvvXwmDvachHX5AhqHoo6f7QpBFPia3Vq4dJSJAmasBpBtVuSlFM5NDzogxLUbrEKQz2gHUCr72UcikZh/q7X35HxYsaEu/JKFUlTjZdyja0G4e5jo9RR0U4km/ae3BOYbC5kKq5GWyUUac2nnHHxu49QXE8Y6POZQ6rCQNqudZaj3/J/SFKMwqDJ267lCL7asRgI+3KWNNYad+2pt5aGGzu5eWEjBpvKC60b8KiTZT6bOZkaeqIzYU8rikRLoQL+1BihPSeKLdylDhjCoPNJRxPpbySRQy2PmMWjiw1ITPRc/CYximjIxIgvKCkQ1YHXPAk9mkWCR0g0QEUJfPARsansmqIz63hfJZSZPONGCxq5Fy+47S9A/Yffxji97kZLOp3/5F63htCjkpzwpIT3OdihnFx8OSg2mkQ0vHVJjehHTBJx4+0NNXfovX4d6yPS+0PUZRAbUa56EAQMdjIIXNMHCxmnDTxzY/s/z4jWs27uS/qroXBAmaU0YnrhMngIDOGSAOGTdFnPGLjwf7KIugot4HUnuaiuLJIEp/CYHN2axL/lzIyxh2pWmvbiOYlCl6vCcOIPMtTmzybOp65nmAmPs1ibt3kUsRFquZoEyq1zyMBRqFKczPY3PotjQ+mP2Tj8fHbhDJ1DDpSXTLXt6p4Oanr4zlr24ge13r8S+4POXs3gkiUYCbCI0obGTHYSHvIQQ2/ldIEO9HHAkpj+iuWzvJV18Rgc45IoEpmodq4z+PbPcRTYufzRCiMz6lKnUii4Zu0fCmnhMgDHJ3EoxR+UxgsfSF5O5+ESwm7Mou9ROI+v9Xjs3ue5lD5kQ7xya5hVI/gW0KRhJoyCpg1L7BPxVjj1BPFTeY+MhF5kEaqZD+2vm/1zs1geXaUgKP0wxkcGLDjp+Slplz89Y7dVOLhilMNm7c/8EYfwyhZJ75O6/EvtT9E2a4YK/4gXsMQ4ZSLWY4YbK5u6QGS50eHyDlDxMashVnuWRODBZAoN24HFAyW+M8fFCCHxx2p83ysJLf25TmGGaehNN2j2Iz9J/V8Nzgg4DHnN33u81994d6pDPYS1kaUWKHEbg0TZfNEWktpjpywtBdJmBw8UFsNnYpZ0/TDp1n0Ktm7WJ0osX8JIyevb/TpwZwjyeGbtZdihaRMiFmOsaB+53CW+z5nCwabM7UMaYHo62eDteuT8OcONoS68S3SPs9TJEA8fX0aTrRJJypYF26phv9tPf4l94coLzSDHvpIPVocNA2RYJGLcY/CCjkIXcqKzzHsgY9yS1NnjNdzyRwvWmdtDJbEBKTognlExMvIpkpsKtJXKqmR7QYJEvUiG0Pufl7CPjXiQfsde58nPDLZHCIGsWPXyQPrT+a0kVNbTmWwtB3ZBrnOGJAiI9sbXrscMqK+wjDmcKvPfakGJku+4CMy88P84+ARhQn5zF7UxQbqnddo+uYbDKLHRPmHqce4Se0WefxG9izuYRPCAzr9bCCMhDCkJ1iJvuXZ9akFg6XtyEGG6/SHT5j59YuNFfNM1Nc0jK3rdy7JCU52xJVHoVI7dh37efRe821eEorMRa3Hf9A6usT+wDuEuSmaF8JffFQE+HHIf0fPussxWBgph0FP7LeYyKKDPNoIHFOjd5UDF2th62ltDJYJIfiZ/JXRxuknDDUhzBJm0beZdfeV2FOjL0N09/Ms1M4dE6IuDCuSlLmnT6UzB4M9jT2D2DgvNfPsrq/YoJH6yYWMWthLrd3Y2HyRMOaiKGyiaxttBI4tMCbs4BxC+P4vh4JoLFz3ISi0hZRLWrmIYL7Yacl+AzMm9ABVf26d9K0NmCbx0tGhhGeDNc/CyQyMc/XSfrZisFGS9/S5h+w/vF9s4Oe1klsPSPnRt40ZI++Ad0LrnsHHHGC2R1jZsXIeK7mYZ7Qo2KfnTNfXevxL7Q/gmcty1625D9gfCBqsbxLz7KYTHfzdl6UNkwfOTRHxHOYULQfaL+aUfS9a5+zJqJ3Tr18NdGv//rxGBgvaMA5UeGMy/0SzxUmMl5yFUkJz5Po9ZA8itjenNpuDwTKWKDyhZIxpnRYbHRqF91vJbcSlfezrG+sfT0U+fjCFSmxbSMXPHvEQmC8quwPu3lYMlsdgm8dGP5aQAvsyhcFkiDkuOdTm+gAuHHpabMStx7/E/gBuZBTjAOl9LUrn9ZBV3E0q9zFYNERInjUJYKJ+cFCeI/lI6Rib1lsrgwU0TmUYynOnqlJgUTnzQqRqvJJ7I2/HkvuowzNxpOpLWD8Xg+V5qHZRDUXS31CfkQzxJJwjc4t/FlIz0k6JRBf1kxcVCadPpY90SZq8WwwNNPN76UesuR3HLaTpUuJgx0mfDdJ7wrdksPQv+jh6Sb9ZD6htoxSS6f1oHTj8jDkEo11Aje7Dikr6V1qn9fhb7w/dOGF8qNf916OGcMBWyzeo2UM76mOw1OFZaJfGfEGMtY7Wo9SRcaj/++L3NTPYDmBsppyma9P3Ye/DOcUnj6iZOFS/nOaxwZUQjADnG6SqIbVXlKZszDdNu37heYgXLZtjCaHyIRVll4u55J4xdQiHwW5OIohS6nDEVlz6CTPimpmrEtMC/UDNT4Yv1KU1hHcl4xk6NLD2ULmjAveZt/oyIHm7Olj4z+eV9hcJEztZyeaMVz3OeDUZfFAXkwABR76Swx0HJjDB6zSKqS0dV2m91uNvuT+kY2SfJ3wO5jeEM0wUj3tMR37docHDT2WIkGJZ4zkHvfR+VMLkRn+ulRIH1KFn76vfjwoMtgOchYX6YdcKkhEbHOEvSDBHWmEjwk7GBkWyhDmTWJ/D2mPRYa/iu5gwDYjFRSYUvu5C1hzsIUNesq0X0CnsATjeEPqAqp2+0ieC5PEI5F/iOklAvySddoMhKmM8gpk/pHiITQENAxIN/9K/MRI1a4E1gmoeOxFjBw8+GM48sU5QbRIjmH6btxYH1N84RBGGwzgo9Jc2CZXi8MLz9gtx+GL9gjvrF29gnJHoK5jT7ynJRTgsYt/mGWzKMDbmgvXGc/C0Jh0qjoB7Qa3Hv9T+QOghaxt/Ad4n1jdaMvBFK4DNnD1o6HBfMgfMH2ucZ5E0BrMA3t7sed28YgJiXvd6zysZz6g6RyUGOwog3SQEhIAQEAJCYAwCYrBjUNM9QkAICAEhIAQGEBCD1RIRAkJACAgBIdAAATHYBqCqSSEgBISAEBACYrBaA0JACAgBISAEGiAgBtsAVDUpBISAEBACQkAMVmtACAgBISAEhEADBMRgG4CqJoWAEBACQkAIiMFqDQgBISAEhIAQaICAGGwDUNWkEBACQkAICAExWK0BISAEhIAQEAINEBCDbQCqmhQCQkAICAEhIAarNSAEhIAQEAJCoAECYrANQFWTQkAICAEhIATEYLUGhIAQEAJCQAg0QEAMtgGoalIICAEhIASEgBis1oAQEAJCQAgIgQYIiME2AFVNCgEhIASEgBAQg9UaEAJCQAgIASHQAAEx2AagqkkhIASEgBAQAmKwWgNCQAgIASEgBBogIAbbAFQ1KQSEgBAQAkJADFZrQAgIASEgBIRAAwTEYBuAqiaFgBAQAkJACIjBag0IASEgBISAEGiAgBhsA1DVpBAQAkJACAgBMVitASEgBISAEBACDRAQg20AqpoUAkJACAgBIfD/ps+glOnRhKwAAAAASUVORK5CYII="/></switch></g><rect x="1410" y="790" width="120" height="60" fill="#fff2cc" stroke="#d6b656" pointer-events="all"/><g transform="translate(-0.5 -0.5)"><switch><foreignObject style="overflow: visible; text-align: left;" pointer-events="none" width="100%" height="100%" requiredFeatures="http://www.w3.org/TR/SVG11/feature#Extensibility"><div xmlns="http://www.w3.org/1999/xhtml" style="display: flex; align-items: unsafe center; justify-content: unsafe center; width: 118px; height: 1px; padding-top: 820px; margin-left: 1411px;"><div style="box-sizing: border-box; font-size: 0px; text-align: center;" data-drawio-colors="color: rgb(0, 0, 0); "><div style="display: inline-block; font-size: 12px; font-family: Courier New; color: rgb(0, 0, 0); line-height: 1.2; pointer-events: all; white-space: normal; overflow-wrap: normal;"><div><font face="Helvetica">???</font></div></div></div></div></foreignObject><image x="1411" y="813" width="118" height="18" xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAdgAAABICAYAAABVyORuAAAKVklEQVR4Xu2dZ6glNRiGdy2oWFAWC/aCuihYsPeCvWJXUFj8YcHeRWzYKxbsoGJh1bX3irsq9i4i9sV1VRQLdlFR3xeuMIScc2bumck9c/J8EO5OTvJ9yZNz972ZySTjx2EQgAAEIAABCNROYHztHnEIAQhAAAIQgMA4BJYvAQQgAAEIQKABAghsA1BxCQEIQAACEEBg+Q5AAAIQgAAEGiCAwDYAFZcQgAAEIAABBJbvAAQgAAEIQKABAghsA1BxmQ2BWdXTZZQmKi2kNEPpI6XPlf6pmcKc8reC0opKcyl9PJK+qTmO3S060qel9fNbpQ+VPlX6s4FYuITA0BJAYId2aOlYQwQsbscrba+0VpcYr+qzc5Tu66MdFrozlDYaEdeYq5+V+azSSUrv9BFrP9WdNNKneTv4sdBer3QpYtsHaapmQwCBzWao6WgNBNaQj8ldxC4W4mFlHq7kGWAV21uFr1PqJHYxXxcr04L8U4VAi6jsNUo7V6hjoT1QaVqFOhSFQHYEENjshpwOj5LACap33ijrutoGSi+UqO8Z8k1Ke5QoGysyU5mrKn1fov5WKnNXRREvuj1KF57NYhCAQIQAAsvXAgK9CWysIs/0KGZhW7xLGc9gV1PyLd1udrI+PLNLAdf/XcnPfDvZFH2wV484E/T5dKVuM+RefXIIi3k/t6Z706cEBFpKAIFt6cDR7GQEZlekt5RWCiJa6DyrfUnpXaW/lOYYKXeZfvq5aWi+FXtwl5Yvq88+iXz+nvIsuq+NfP6vfs43EuMG/YyJ7T7Kv71LrKs6tMWz9EeV3lRyH72Qa0klP3c+qEPbfOv8jy6x+AgCWRJAYLMcdjpdgcARKhu7Ddrtlu9squPnoX72GppXAnulccy8ICp8FurnnZ5Bf92hzgLKf1DJ7SmaVxcv3KHOmsr3IqzQDlPGFV3Y+La1Z8eh7a+MG7vU4yMIZEkAgc1y2Ol0BQJeMBTeRt1ceVN7+Jhbn/u2cDi73FN5d0bqrqw8z4SLZpFcXenLHrFc5o1ImcU61L1D+W5H0U7ThRdI9bJ7VGCXoJBF2eKMQQACBQIILF8HCHQm4BW2XwUfP6/rDUtCiy2M8q3eUyP1d1OeFxwVzYJn4Stjj6nQ1kHBLXX9VKTyB8rzTLpo8+vixxKB1lcZMyiab5OvV6IuRSCQFQEENqvhprMVCVhInwvqVFk563dlHwrq+7WdHSLt8HusZwf5vpX7esk2+9mpBb1ox+rCt6qL5mfK4YYRvsW8U8k4FuIfImXt9++SPigGgSwIILBZDDOdHCUBP1v0xgpF21YXni2WsU1UaFpQsNNs72aV82YPRfNCpl6rjv8vf4r+Ed7iPUt5zi+ad4J6P8g7V9cW+DLm58te0BXaPMr4tYwDykAgFwIIbC4jTT9HQ8DCc2JQscprKd6MwSuHi3a3LnaPNOYV5RV3hrKwWmDLWuy56qGqfGXgYBtde5Vw0Q7RhVcVl7HYs2LX4/+SMvQokxUBfimyGm46W5GAX5vxu6tF8+z1txJ+/LvlRUvh6z0XKs+vvIS2jjK8KOl/+0X/eKJEHBfxlopfRMruqLzwFrVFe4ugrFcUe//kMuZXkMLV0X4P1n94YBCAQIEAAsvXAQLNEPCq2ssjrtdV3ss1hpxFvrw4KlzZ6xmwF2mV+WOgbHP8R4BvcYd2nDIuKuuEchDIhQACm8tI08+UBDxDfDIScJryNqu5IafLX2ylsZ+9+hlsXeZdqrzgKnztyELuE4W+qysQfiAwLAQQ2GEZSfoxKAQsoE9HGuN3Wn27OXztp592d9of+XE59Urlulb1Wly9VaRvmYfm/k7rpxPUhcCwEkBgh3Vk6ddYEOgkrm6LFzB5q8O6rJO4eucnv5NaZrP/Mm3xc2EfhxcTVy/i8ok/GAQgECGAwPK1gEA9BLzIx3sWx8zv04abM/QTdZIqx7YmtLhuqlTXLNnvvLrd4UItt73K+8D99JW6EGgtAQS2tUNHwweIwFJqi1+ziW26X/ctVL+H+0ik796W0XsWx1YTjwaVDy5wHG8LGZpnzxeMxil1IJATAQQ2p9Gmr00Q8Cpez/K8Oji0KptSlGmbN+/3QQHh3sh+vru20mdlnJQs412lYptPVNm+sWQoikFgOAkgsMM5rvQqHQEfCzc5Eq7XcXGjaeG1qnRAUNGreC3uPtKuLltOjj6OOPNmFN68wsflYRCAQA8CCCxfEQj0R8Dnt4YLgM5XXrgDVH9Rxo1bQg5mRJx4tbD3N67Trpaz8OxXb0bhjf7rWplcZ3vxBYGBJIDADuSw0KiWEFha7ZwetHWmricq1b0v777yeUsQy8fehcfO1YHOuzr51ZyiVdkiso424AMCrSeAwLZ+COnAGBLYW7FvC+I3MXt1iNissonZa2ym7LNm1xhDzoSGQCsJILCtHDYaPSAEjlE7wi0Ct1NeuJl+Hc31nsI+/q5oZc9wrRLfi6XCrRyb+qOhSrsoC4HWEUBgWzdkNHiACPjw9JOD9ni3prcbaOOL8hmuVG7i93crxfFOUEWLncrTQBdxCYHhItDEL+hwEaI3EOhMwIeZHx187AVP4XPZOhhatFcpOPKzXt/Ordt88Pr9gVOfU3tr3YHwB4FhJ4DADvsI078mCSwo597ovmhv6iJ2IHm/7fCrMxMKTv7Qv31MXN02ZyDk9u9XduraerHu9uIPAgNLAIEd2KGhYRCAAAQg0GYCCGybR4+2QwACEIDAwBJAYAd2aGhYCwhsojauELTzOV2/30Db/UpQuEXiFOX9WHOs5eVv08CnbxFPrTkO7iAw9AQQ2KEfYjrYIIEH5HvHwH9TG+HHtif0sXQv1dy/I+XvksCnVxVvU3Mc3EFg6AkgsEM/xHSwQQIIbINwcQ2BthNAYNs+grR/LAkgsGNJn9gQGHACCOyADxDNG2gCCOxADw+Ng8DYEkBgx5Y/0dtNwPsQe/FR0Zra9egnBQkXOTWxa5SPw/OxeEW7Vxe7tnuoaD0E0hNAYNMzJyIEIAABCGRAAIHNYJDpIgQgAAEIpCeAwKZnTkQIQAACEMiAAAKbwSDTRQhAAAIQSE8AgU3PnIgQgAAEIJABAQQ2g0GmixCAAAQgkJ4AApueOREhAAEIQCADAghsBoNMFyEAAQhAID0BBDY9cyJCAAIQgEAGBBDYDAaZLkIAAhCAQHoCCGx65kSEAAQgAIEMCCCwGQwyXYQABCAAgfQEENj0zIkIAQhAAAIZEEBgMxhkuggBCEAAAukJILDpmRMRAhCAAAQyIIDAZjDIdBECEIAABNITQGDTMyciBCAAAQhkQACBzWCQ6SIEIAABCKQngMCmZ05ECEAAAhDIgAACm8Eg00UIQAACEEhPAIFNz5yIEIAABCCQAQEENoNBposQgAAEIJCeAAKbnjkRIQABCEAgAwIIbAaDTBchAAEIQCA9AQQ2PXMiQgACEIBABgQQ2AwGmS5CAAIQgEB6AghseuZEhAAEIACBDAggsBkMMl2EAAQgAIH0BBDY9MyJCAEIQAACGRD4DzZnJFgD+z5QAAAAAElFTkSuQmCC"/></switch></g><path d="M 723.71 800 L 723.71 758.98" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 723.71 753.73 L 727.21 760.73 L 723.71 758.98 L 720.21 760.73 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/><path d="M 1470.44 766.32 L 1470.3 783.63" fill="none" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="stroke"/><path d="M 1470.26 788.88 L 1466.81 781.85 L 1470.3 783.63 L 1473.81 781.91 Z" fill="rgb(0, 0, 0)" stroke="rgb(0, 0, 0)" stroke-miterlimit="10" pointer-events="all"/></g></svg>
\ No newline at end of file
-- 
2.52.0


From 357da257959da236a668ba2b387475ceedab5c02 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 00:36:31 -0700
Subject: [PATCH 158/192] diagram

---
 README.md | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/README.md b/README.md
index 2fa2b72..b58a698 100644
--- a/README.md
+++ b/README.md
@@ -3,6 +3,10 @@
 `rlp` (ruelang') will be a lazily-evaluated purely-functional language heavily
 imitating Haskell.
 
+### Architecture
+
+![rlpc architecture diagram](/rlpc.drawio.svg)
+
 ### Build Info
 * rlp is built using [Cabal](https://www.haskell.org/ghcup/)
 * rlp's documentation is built using [Sphinx](https://www.sphinx-doc.org/en/master/)
-- 
2.52.0


From 1079fc7c9bdb4f9dc12f5fea59cfef85a1926af0 Mon Sep 17 00:00:00 2001
From: crumb <95563276+crumbtoo@users.noreply.github.com>
Date: Thu, 8 Feb 2024 00:58:58 -0700
Subject: [PATCH 159/192] Update README.md

---
 README.md | 28 +++++++++++++++++++++-------
 1 file changed, 21 insertions(+), 7 deletions(-)

diff --git a/README.md b/README.md
index b58a698..6087d89 100644
--- a/README.md
+++ b/README.md
@@ -46,6 +46,14 @@ Listed in order of importance.
 ### Milestones
 (This list is incomplete.)
 
+Items are marked off not as they are 100% implemented, but rather once I
+consider them stable enough that completion is soley a matter of getting
+around to it -- no tough design decisions, theorising, etc. remain. For
+example, as of writing this, the rl' frontend parser is not fully featured,
+yet it is marked off on this list; finishing it would require cranking out
+the remaining grammatical rules, and no work on complex tasks like layout
+parsing remains.
+
 - [ ] Backend
     - [x] Core language
         - [x] AST
@@ -73,7 +81,7 @@ Listed in order of importance.
         - [x] AST
         - [x] Lexer
         - [x] Parser
-    - [ ] Translation to the core language
+    - [x] Translation to the core language
         - [ ] Constraint solver
         - [ ] `do`-notation
     - [x] CLI
@@ -101,13 +109,14 @@ Listed in order of importance.
     - [x] Garbage Collection
 - [ ] Stable documentation for the evaluation model
 
-### January Release Plan
-- [ ] Beta rl' to Core
-- [ ] UX improvements
+### February Release Plan
+- [x] Beta rl' to Core
+- [x] UX improvements
     - [x] Actual compiler errors -- no more unexceptional `error` calls
     - [x] Better CLI dump flags
-    - [ ] Annotate the AST with token positions for errors (NOTE: As of Feb. 1,
+    - [x] Annotate the AST with token positions for errors (NOTE: As of Feb. 1,
       this has been done, but the locational info is not yet used in error messages)
+- [x] Compiler architecture diagram
 - [ ] More examples
 
 ### March Release Plan
@@ -120,11 +129,16 @@ Listed in order of importance.
 This list is more concrete than the milestones, but likely further in the future
 than the other release plans.
 
+- [ ] Overall codebase cleaning
+    - [ ] Complete all TODOs
+    - [ ] Replace mtl with effectful
+- [ ] rl' type-checker
+- [ ] Ditch TTG in favour of a simpler AST focusing on extendability via Fix, Free, 
+  Cofree, etc. rather than boilerplate-heavy type families
 - [ ] Stable rl' to Core
 - [ ] Core polish
     - [ ] Better, stable parser
     - [ ] Better, stable lexer
     - [ ] Less hacky handling of named data
     - [ ] Less hacky pragmas
-- [ ] GM to LLVM
-
+- [ ] Choose a target. LLVM, JS, C, and WASM are currently top contenders
-- 
2.52.0


From 6c943af4a1e9628e8c66961f466c56df32d10e98 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 09:26:53 -0700
Subject: [PATCH 160/192] ppr debug flags

ddump-parsed
---
 README.md                     | 33 ++++++++++++++-----
 app/CoreDriver.hs             |  7 ++++
 app/Main.hs                   | 41 +++++++++++++++++++----
 app/RlpDriver.hs              | 10 +++++-
 rlp.cabal                     |  6 ++--
 src/Compiler/RLPC.hs          | 23 ++++++++++---
 src/Compiler/RlpcError.hs     |  4 +--
 src/Control/Monad/Errorful.hs |  6 ++--
 src/Core/Parse.y              |  2 +-
 src/Core/Syntax.hs            | 61 ++++++++++++++++++++++++++++++++++-
 src/Core2Core.hs              | 14 ++++++--
 src/Data/Pretty.hs            | 48 +++++++++++++++++++++++----
 src/Rlp/Parse.y               |  8 +++--
 src/Rlp2Core.hs               | 22 ++++++++++++-
 14 files changed, 244 insertions(+), 41 deletions(-)

diff --git a/README.md b/README.md
index 6087d89..ee49f51 100644
--- a/README.md
+++ b/README.md
@@ -22,21 +22,38 @@ $ cabal test --test-show-details=direct
 ```
 
 ### Use
+
+#### TLDR
+
 ```sh
-# Compile and evaluate examples/factorial.hs, with evaluation info dumped to stderr
-$ rlpc -ddump-eval examples/factorial.hs
-# Compile and evaluate t.hs, with evaluation info dumped to t.log
-$ rlpc -ddump-eval -l t.log t.hs
-# Print the raw structure describing the compiler options
-# (option parsing still must succeed in order to print)
-$ rlpc -ddump-opts t.hs
+# Compile and evaluate examples/factorial.cr, with evaluation info dumped to stderr
+$ rlpc -ddump-eval examples/factorial.cr
+# Compile and evaluate t.cr, with evaluation info dumped to t.log
+$ rlpc -ddump-eval -l t.log t.cr
+# Compile and evaluate t.rl, dumping the desugared Core
+$ rlpc -ddump-desugared t.rl
 ```
 
+#### Options
+
+```sh
+Usage: rlpc [-l|--log FILE] [-d DEBUG FLAG] [-f COMPILATION FLAG] 
+            [-e|--evaluator gm|ti] [--heap-trigger INT] [-x|--language rlp|core]
+            FILES...
+```
+
+Available debug flags include:
+* `-ddump-desugared`: dump Core generated from rl'
+* `-ddump-parsed-core`: dump raw Core AST
+* `-ddump-parsed`: dump raw rl' AST
+* `-ddump-eval`: dump evaluation logs
+* `-dALL`: disable debug message filtering. enables **all** debug messages
+
 ### Potential Features
 Listed in order of importance.
 - [x] ADTs
 - [x] First-class functions
-- [ ] Higher-kinded types
+- [x] Higher-kinded types
 - [ ] Typeclasses
 - [x] Parametric polymorphism
 - [x] Hindley-Milner type inference
diff --git a/app/CoreDriver.hs b/app/CoreDriver.hs
index 56ec299..2ded66e 100644
--- a/app/CoreDriver.hs
+++ b/app/CoreDriver.hs
@@ -5,6 +5,8 @@ module CoreDriver
 --------------------------------------------------------------------------------
 import Compiler.RLPC
 import Control.Monad
+import Data.Text                    qualified as T
+import Lens.Micro.Platform
 
 import Core.Lex
 import Core.Parse
@@ -15,3 +17,8 @@ driver :: RLPCIO ()
 driver = forFiles_ $ \f ->
     withSource f (lexCoreR >=> parseCoreProgR >=> evalProgR)
 
+driverSource :: T.Text -> RLPCIO ()
+driverSource = lexCoreR >=> parseCoreProgR >=> evalProgR >=> printRes
+    where
+        printRes = liftIO . print . view _1
+
diff --git a/app/Main.hs b/app/Main.hs
index 524b590..5571352 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,7 +1,9 @@
 {-# LANGUAGE BlockArguments, LambdaCase #-}
+{-# LANGUAGE OverloadedStrings #-}
 module Main where
 ----------------------------------------------------------------------------------
 import Compiler.RLPC
+import Compiler.RlpcError
 import Control.Exception
 import Options.Applicative      hiding (ParseError)
 import Control.Monad
@@ -11,12 +13,13 @@ import Data.Text                (Text)
 import Data.Text                qualified as T
 import Data.Text.IO             qualified as TIO
 import Data.List
+import Data.Maybe               (listToMaybe)
 import System.IO
 import System.Exit              (exitSuccess)
 import Core
 import TI
 import GM
-import Lens.Micro.Mtl
+import Lens.Micro.Platform
 
 import CoreDriver               qualified
 import RlpDriver                qualified
@@ -65,7 +68,7 @@ options = RLPCOptions
                 \triggering the garbage collector"
         <> value 50
         )
-    <*> option languageReader
+    <*> optional # option languageReader
         (  long "language"
         <> short 'x'
         <> metavar "rlp|core"
@@ -80,6 +83,8 @@ languageReader :: ReadM Language
 languageReader = maybeReader $ \case
     "rlp"   -> Just LanguageRlp
     "core"  -> Just LanguageCore
+    "rl"    -> Just LanguageRlp
+    "cr"    -> Just LanguageCore
     _       -> Nothing
 
 debugFlagReader :: ReadM DebugFlag
@@ -102,10 +107,34 @@ mmany v = liftA2 (<>) v (mmany v)
 main :: IO ()
 main = do
     opts <- execParser optParser
-    void $ evalRLPCIO opts driver
+    void $ evalRLPCIO opts dispatch
+
+dispatch :: RLPCIO ()
+dispatch = getLang >>= \case
+    Just LanguageCore -> CoreDriver.driver
+    Just LanguageRlp  -> RlpDriver.driver
+    Nothing           -> addFatal err
+        where
+            -- TODO: why didn't i make the srcspan optional LOL
+            err = errorMsg (SrcSpan 0 0 0 0) $ Text
+                [ "Could not determine source language from filetype."
+                , "Possible Solutions:\n\
+                  \  Suffix the file with `.cr' for Core, or `.rl' for rl'\n\
+                  \  Specify a language with `rlpc -x core' or `rlpc -x rlp'"
+                ]
+  where
+    getLang = liftA2 (<|>)
+        (view rlpcLanguage)
+        -- TODO: we only check the first file lol
+        ((listToMaybe >=> inferLanguage) <$> view rlpcInputFiles)
+
 
 driver :: RLPCIO ()
-driver = view rlpcLanguage >>= \case
-    LanguageCore -> CoreDriver.driver
-    LanguageRlp  -> RlpDriver.driver
+driver = undefined
+
+inferLanguage :: FilePath -> Maybe Language
+inferLanguage fp
+    | ".rl" `isSuffixOf` fp     = Just LanguageRlp
+    | ".cr" `isSuffixOf` fp     = Just LanguageCore
+    | otherwise                 = Nothing
 
diff --git a/app/RlpDriver.hs b/app/RlpDriver.hs
index 3df1b24..89ad8d7 100644
--- a/app/RlpDriver.hs
+++ b/app/RlpDriver.hs
@@ -1,11 +1,19 @@
+{-# LANGUAGE OverloadedStrings #-}
 module RlpDriver
     ( driver
     )
     where
 --------------------------------------------------------------------------------
 import Compiler.RLPC
+import Control.Monad
+
+import Rlp.Lex
+import Rlp.Parse
+import Rlp2Core
+import GM
 --------------------------------------------------------------------------------
 
 driver :: RLPCIO ()
-driver = undefined
+driver = forFiles_ $ \f ->
+    withSource f (parseRlpProgR >=> desugarRlpProgR >=> evalProgR)
 
diff --git a/rlp.cabal b/rlp.cabal
index c082198..1f18e4d 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -88,6 +88,9 @@ library
         LambdaCase
         ViewPatterns
         DataKinds
+        DerivingVia
+        StandaloneDeriving
+        DerivingStrategies
 
 executable rlpc
     import:           warnings
@@ -98,8 +101,7 @@ executable rlpc
     build-depends: base >=4.17.0.0 && <4.20.0.0
                  , rlp
                  , optparse-applicative >= 0.18.1 && < 0.19
-                 , microlens >= 0.4.13 && < 0.5
-                 , microlens-mtl >= 0.2.0 && < 0.3
+                 , microlens-platform
                  , mtl >= 2.3.1 && < 2.4
                  , unordered-containers >= 0.2.20 && < 0.3
                  , text >= 2.0.2 && < 2.1
diff --git a/src/Compiler/RLPC.hs b/src/Compiler/RLPC.hs
index c75ac95..ec4b8bf 100644
--- a/src/Compiler/RLPC.hs
+++ b/src/Compiler/RLPC.hs
@@ -10,7 +10,6 @@ errors and the family of RLPC monads.
 {-# LANGUAGE TemplateHaskell #-}
 -- only used for mtl instances
 {-# LANGUAGE UndecidableInstances #-}
-{-# LANGUAGE DeriveGeneric, DerivingStrategies, DerivingVia #-}
 {-# LANGUAGE BlockArguments, ViewPatterns #-}
 module Compiler.RLPC
     (
@@ -18,6 +17,7 @@ module Compiler.RLPC
       RLPCT(RLPCT),
     -- ** Special cases
       RLPC, RLPCIO
+    , liftIO
     -- ** Running
     , runRLPCT
     , evalRLPCT, evalRLPCIO, evalRLPC
@@ -61,6 +61,7 @@ import Data.Coerce
 import Data.Text                (Text)
 import Data.Text                qualified as T
 import Data.Text.IO             qualified as T
+import System.IO
 import Text.ANSI                qualified as Ansi
 import Text.PrettyPrint         hiding ((<>))
 import Lens.Micro.Platform
@@ -84,7 +85,11 @@ type RLPC = RLPCT Identity
 
 type RLPCIO = RLPCT IO
 
+instance MonadTrans RLPCT where
+    lift = RLPCT . lift . lift
+
 instance (MonadIO m) => MonadIO (RLPCT m) where
+    liftIO = lift . liftIO
 
 evalRLPC :: RLPCOptions
          -> RLPC a
@@ -114,7 +119,7 @@ data RLPCOptions = RLPCOptions
     , _rlpcFFlags      :: HashSet CompilerFlag
     , _rlpcEvaluator   :: Evaluator
     , _rlpcHeapTrigger :: Int
-    , _rlpcLanguage    :: Language
+    , _rlpcLanguage    :: Maybe Language
     , _rlpcInputFiles  :: [FilePath]
     }
     deriving Show
@@ -135,7 +140,7 @@ instance Default RLPCOptions where
         , _rlpcEvaluator = EvaluatorGM
         , _rlpcHeapTrigger = 200
         , _rlpcInputFiles = []
-        , _rlpcLanguage = LanguageRlp
+        , _rlpcLanguage = Nothing
         }
 
 -- debug flags are passed with -dFLAG
@@ -175,10 +180,18 @@ evalRLPCIO opt r = do
         Nothing -> die "Failed, no code compiled."
 
 putRlpcErrs :: RLPCOptions -> [MsgEnvelope RlpcError] -> IO ()
-putRlpcErrs opts = filter byTag
-               >>> traverse_ (putStrLn . ('\n':) . prettyRlpcMsg)
+putRlpcErrs opt es = case opt ^. rlpcLogFile of
+    Just lf -> withFile lf WriteMode putter
+    Nothing -> putter stderr
+  where
+    putter h = hPutStrLn h `traverse_` renderRlpcErrs opt es
+
+renderRlpcErrs :: RLPCOptions -> [MsgEnvelope RlpcError] -> [String]
+renderRlpcErrs opts = (if don'tBother then id else filter byTag)
+                  >>> fmap prettyRlpcMsg
     where
         dflags = opts ^. rlpcDFlags
+        don'tBother = "ALL" `S.member` (opts ^. rlpcDFlags)
 
         byTag :: MsgEnvelope RlpcError -> Bool
         byTag (view msgSeverity -> SevDebug t) =
diff --git a/src/Compiler/RlpcError.hs b/src/Compiler/RlpcError.hs
index a590a85..a8ef710 100644
--- a/src/Compiler/RlpcError.hs
+++ b/src/Compiler/RlpcError.hs
@@ -34,7 +34,7 @@ data MsgEnvelope e = MsgEnvelope
    deriving (Functor, Show)
 
 newtype RlpcError = Text [Text]
-    deriving Show
+               deriving Show
 
 instance IsString RlpcError where
     fromString = Text . pure . T.pack
@@ -47,7 +47,7 @@ instance IsRlpcError RlpcError where
 
 data Severity = SevWarning
               | SevError
-              | SevDebug Text
+              | SevDebug Text -- ^ Tag
               deriving Show
 
 makeLenses ''MsgEnvelope
diff --git a/src/Control/Monad/Errorful.hs b/src/Control/Monad/Errorful.hs
index 0d70585..f788aaf 100644
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -50,7 +50,7 @@ instance (MonadIO m) => MonadIO (ErrorfulT e m) where
     liftIO = lift . liftIO
 
 instance (Functor m) => Functor (ErrorfulT e m) where
-    fmap f (ErrorfulT m) = ErrorfulT (m & mapped . _1 . _Just %~ f)
+    fmap f (ErrorfulT m) = ErrorfulT (m <&> _1 . _Just %~ f)
 
 instance (Applicative m) => Applicative (ErrorfulT e m) where
     pure a = ErrorfulT . pure $ (Just a, [])
@@ -63,12 +63,12 @@ instance (Monad m) => Monad (ErrorfulT e m) where
     ErrorfulT m >>= k = ErrorfulT $ do
         (a,es) <- m
         case a of
-            Just x      -> runErrorfulT (k x)
+            Just x      -> runErrorfulT (k x) <&> _2 %~ (es<>)
             Nothing     -> pure (Nothing, es)
 
 mapErrorful :: (Functor m) => (e -> e') -> ErrorfulT e m a -> ErrorfulT e' m a
 mapErrorful f (ErrorfulT m) = ErrorfulT $
-    m & mapped . _2 . mapped %~ f
+    m <&> _2 . mapped %~ f
 
 -- when microlens-pro drops we can write this as
 --    mapErrorful f = coerced . mapped . _2 . mapped %~ f
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 20ee3eb..467216d 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -234,7 +234,7 @@ parseCoreProgR = ddumpast <=< (hoistRlpcT generalise . parseCoreProg)
 
         ddumpast :: Program' -> RLPCT m Program'
         ddumpast p = do
-            addDebugMsg "dump-ast" . show $ p
+            addDebugMsg "dump-parsed-core" . show $ p
             pure p
 
 happyBind :: RLPC a -> (a -> RLPC b) -> RLPC b
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 7b71f91..f95163e 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -41,6 +41,7 @@ module Core.Syntax
     , Binding'
     , HasRHS(_rhs)
     , HasLHS(_lhs)
+    , Pretty(pretty)
     )
     where
 ----------------------------------------------------------------------------------
@@ -56,7 +57,7 @@ import Data.HashMap.Strict          qualified as H
 import Data.Hashable
 import Data.Text                    qualified as T
 import Data.Char
-import GHC.Generics
+import GHC.Generics                 (Generic, Generically(..))
 -- Lift instances for the Core quasiquoters
 import Language.Haskell.TH.Syntax   (Lift)
 -- import Lens.Micro.TH                (makeLenses)
@@ -215,3 +216,61 @@ instance HasLHS (Binding b) (Binding b) b b where
         (\ (k := _) -> k)
         (\ (_ := e) k' -> k' := e)
 
+--------------------------------------------------------------------------------
+
+-- TODO: print type sigs with corresponding scdefs
+-- TODO: emit pragmas for datatags
+instance (Pretty b) => Pretty (Program b) where
+    pretty = vsepOf (programScDefs . each . to pretty)
+
+instance (Pretty b) => Pretty (ScDef b) where
+    pretty sc = hsep [name, as, "=", hang empty 1 e]
+        where
+            name = ttext $ sc ^. _lhs . _1
+            as = sc & hsepOf (_lhs . _2 . each . to ttext)
+            e = pretty $ sc ^. _rhs
+
+instance (Pretty b) => Pretty (Expr b) where
+    prettyPrec _ (Var n)      = ttext n
+    prettyPrec _ (Con t a)    = "Pack{" <> (ttext t <+> ttext a) <> "}"
+    prettyPrec _ (Lam bs e)   = hsep ["λ", hsep (prettyPrec 1 <$> bs), "->", pretty e]
+    prettyPrec _ (Let r bs e) = hsep [word, explicitLayout bs]
+                             $$ hsep ["in", pretty e]
+        where word = if r == Rec then "letrec" else "let"
+    prettyPrec p (App f x)    = maybeParens (p>0) $
+        prettyPrec 0 f <+> prettyPrec 1 x
+    prettyPrec _ (Lit l)      = pretty l
+    prettyPrec p (Case e as)  = maybeParens (p>0) $
+        "case" <+> pretty e <+> "of"
+        $$ nest 2 (explicitLayout as)
+
+{-
+
+x = pretty $ desugarRlpProg [rlpProg|
+    main = 3
+    data B = T | F
+|]
+
+-}
+
+instance (Pretty b) => Pretty (Alter b) where
+    pretty (Alter c as e) =
+        hsep [pretty c, hsep (pretty <$> as), "->", pretty e]
+
+instance Pretty AltCon where
+    pretty (AltData n) = ttext n
+    pretty (AltLit l) = pretty l
+    pretty (AltTag t) = ttext t
+    pretty AltDefault = "_"
+
+instance Pretty Lit where
+    pretty (IntL n) = ttext n
+
+instance (Pretty b) => Pretty (Binding b) where
+    pretty (k := v) = hsep [pretty k, "=", pretty v]
+
+explicitLayout :: (Pretty a) => [a] -> Doc
+explicitLayout as = vcat inner <+> "}" where
+    inner = zipWith (<+>) delims (pretty <$> as)
+    delims = "{" : repeat ";"
+
diff --git a/src/Core2Core.hs b/src/Core2Core.hs
index 7717aa7..a187a63 100644
--- a/src/Core2Core.hs
+++ b/src/Core2Core.hs
@@ -21,16 +21,27 @@ import Control.Arrow            ((>>>))
 import Data.Text                qualified as T
 import Data.HashMap.Strict      (HashMap)
 import Numeric                  (showHex)
+
+import Data.Pretty
+import Compiler.RLPC
 -- import Lens.Micro.Platform
 import Control.Lens
 import Core.Syntax
 import Core.Utils
 ----------------------------------------------------------------------------------
 
+-- | General optimisations
+
 core2core :: Program' -> Program'
 core2core p = undefined
 
--- | G-machine preprocessing.
+gmPrepR :: (Monad m) => Program' -> RLPCT m Program'
+gmPrepR p = do
+    let p' = gmPrep p
+    addDebugMsg "dump-gm-preprocessed" $ render . pretty $ p'
+    pure p'
+
+-- | G-machine-specific preprocessing.
 
 gmPrep :: Program' -> Program'
 gmPrep p = p & appFloater (floatNonStrictCases globals)
@@ -46,7 +57,6 @@ gmPrep p = p & appFloater (floatNonStrictCases globals)
 defineData :: Program' -> Program'
 defineData p = p & programScDefs <>~ defs
     where
-        -- defs = ifoldMap' _ (p ^. programDataTags)
         defs = p ^. programDataTags
              . to (ifoldMap (\k (t,a) -> [ScDef k [] (Con t a)]))
 
diff --git a/src/Data/Pretty.hs b/src/Data/Pretty.hs
index b00bfb1..f5b1b4d 100644
--- a/src/Data/Pretty.hs
+++ b/src/Data/Pretty.hs
@@ -1,17 +1,51 @@
-{-# LANGUAGE OverloadedStrings #-}
 module Data.Pretty
     ( Pretty(..)
+    , ttext
+    -- * Pretty-printing lens combinators
+    , hsepOf, vsepOf
+    , module Text.PrettyPrint
+    , maybeParens
     )
     where
 ----------------------------------------------------------------------------------
-import Data.String      (IsString(..))
+import Text.PrettyPrint             hiding ((<>))
+import Text.PrettyPrint.HughesPJ    hiding ((<>))
+import Data.String                  (IsString(..))
+import Data.Text.Lens
+import Data.Monoid
+import Data.Text                    qualified as T
+import Control.Lens
 ----------------------------------------------------------------------------------
 
 class Pretty a where
-    -- pretty :: a -> ISeq
-    -- prettyPrec :: a -> Int -> ISeq
+    pretty :: a -> Doc
+    prettyPrec :: Int -> a -> Doc
 
-    -- {-# MINIMAL pretty | prettyPrec #-}
-    -- pretty a = prettyPrec a 0
-    -- prettyPrec a _ = iBracket (pretty a)
+    {-# MINIMAL pretty | prettyPrec #-}
+    pretty = prettyPrec 0
+    prettyPrec a _ = pretty a
+
+instance Pretty String where
+    pretty = Text.PrettyPrint.text
+
+instance Pretty T.Text where
+    pretty = Text.PrettyPrint.text . view unpacked
+
+newtype Showing a = Showing a
+
+instance (Show a) => Pretty (Showing a) where
+    prettyPrec p (Showing a) = fromString $ showsPrec p a ""
+
+deriving via Showing Int instance Pretty Int
+
+--------------------------------------------------------------------------------
+
+ttext :: Pretty t => t -> Doc
+ttext = pretty
+
+hsepOf :: Getting (Endo Doc) s Doc -> s -> Doc
+hsepOf l = foldrOf l (<+>) mempty
+
+vsepOf :: Getting (Endo Doc) s Doc -> s -> Doc
+vsepOf l = foldrOf l ($+$) mempty
 
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 26363e5..6f8aeb2 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -228,6 +228,7 @@ Expr1       :: { RlpExpr' RlpcPs }
             : '(' Expr ')'              { $1 .> $2 <. $3 }
             | Lit                       { fmap LitE $1 }
             | Var                       { fmap VarE $1 }
+            | Con                       { fmap VarE $1 }
 
 InfixOp     :: { Located PsName }
             : consym                    { mkPsName $1 }
@@ -251,8 +252,11 @@ parseRlpExprR s = liftErrorful $ pToErrorful parseRlpExpr st
         st = programInitState s
 
 parseRlpProgR :: (Monad m) => Text -> RLPCT m (RlpProgram RlpcPs)
-parseRlpProgR s = liftErrorful $ pToErrorful parseRlpProg st
-    where
+parseRlpProgR s = do
+    a <- liftErrorful $ pToErrorful parseRlpProg st
+    addDebugMsg @_ @String "dump-parsed" $ show a
+    pure a
+  where
         st = programInitState s
 
 mkPsName :: Located RlpToken -> Located PsName
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 017c2d6..887f40c 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -1,7 +1,8 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE DeriveTraversable #-}
 module Rlp2Core
-    ( desugarRlpProg
+    ( desugarRlpProgR
+    , desugarRlpProg
     , desugarRlpExpr
     )
     where
@@ -15,6 +16,7 @@ import Control.Comonad
 -- import Lens.Micro
 -- import Lens.Micro.Internal
 import Control.Lens
+import Compiler.RLPC
 import Data.List                        (mapAccumL)
 import Data.Text                        (Text)
 import Data.Text                        qualified as T
@@ -26,6 +28,7 @@ import Data.Maybe                       (fromJust, fromMaybe)
 import Data.Functor.Bind
 import Data.Function                    (on)
 import Debug.Trace
+
 import Effectful.State.Static.Local
 import Effectful.Labeled
 import Effectful
@@ -33,6 +36,7 @@ import Text.Show.Deriving
 
 import Core.Syntax                      as Core
 import Compiler.Types
+import Data.Pretty                      (render, pretty)
 import Rlp.Syntax                       as Rlp
 import Rlp.Parse.Types                  (RlpcPs, PsName)
 --------------------------------------------------------------------------------
@@ -55,6 +59,12 @@ deriveShow1 ''Branch
 
 --------------------------------------------------------------------------------
 
+desugarRlpProgR :: forall m. (Monad m) => RlpProgram RlpcPs -> RLPCT m Program'
+desugarRlpProgR p = do
+    let p' = desugarRlpProg p
+    addDebugMsg "dump-desugared" $ render (pretty p')
+    pure p'
+
 desugarRlpProg :: RlpProgram RlpcPs -> Program'
 desugarRlpProg = rlpProgToCore
 
@@ -107,10 +117,19 @@ exprToCore (VarE n) = pure $ Var (dsNameToName n)
 
 exprToCore (AppE a b) = (liftA2 App `on` exprToCore . unXRec) a b
 
+exprToCore (OAppE f a b) = (liftA2 mkApp `on` exprToCore . unXRec) a b
+    where
+        mkApp s t = (Var f `App` s) `App` t
+
 exprToCore (CaseE (unXRec -> e) as) = do
     e' <- exprToCore e
     Case e' <$> caseAltToCore `traverse` as
 
+exprToCore (LitE l) = litToCore l
+
+litToCore :: (NameSupply :> es) => Rlp.Lit RlpcPs -> Eff es Expr'
+litToCore (Rlp.IntL n) = pure . Lit $ Core.IntL n
+
 -- TODO: where-binds
 caseAltToCore :: (NameSupply :> es)
               => (Alt RlpcPs, Where RlpcPs) -> Eff es Alter'
@@ -127,6 +146,7 @@ conToRose (ConP cn as) = Fix . Branch cn <$> patToForrest `traverse` as
             Right <$> liftA2 (,) uniqueName br
           where
             br = unwrapFix <$> conToRose (unXRec p)
+conToRose _ = error "conToRose: not a ConP!"
 
 branchToCore :: Expr' -> Branch Alter' -> Alter'
 branchToCore e (Branch cn as) = Alter (AltData cn) myBinds e'
-- 
2.52.0


From fba46296db5aabb475df321f166770b0c311f7da Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 11:40:13 -0700
Subject: [PATCH 161/192] ppr typesigs

---
 rlp.cabal          |  1 +
 src/Core/Syntax.hs | 36 +++++++++++++++++++++++++++++++++---
 src/Data/Pretty.hs |  9 +++++++++
 3 files changed, 43 insertions(+), 3 deletions(-)

diff --git a/rlp.cabal b/rlp.cabal
index 1f18e4d..7ed9477 100644
--- a/rlp.cabal
+++ b/rlp.cabal
@@ -78,6 +78,7 @@ library
                     , microlens-pro ^>=0.2.0
                     , effectful-core ^>=2.3.0.0
                     , deriving-compat ^>=0.6.0
+                    , these >=0.2 && <2.0
 
     hs-source-dirs:   src
     default-language: GHC2021
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index f95163e..ebc6dca 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -57,6 +57,8 @@ import Data.HashMap.Strict          qualified as H
 import Data.Hashable
 import Data.Text                    qualified as T
 import Data.Char
+import Data.These
+import Data.Bifoldable              (bifoldr)
 import GHC.Generics                 (Generic, Generically(..))
 -- Lift instances for the Core quasiquoters
 import Language.Haskell.TH.Syntax   (Lift)
@@ -220,11 +222,39 @@ instance HasLHS (Binding b) (Binding b) b b where
 
 -- TODO: print type sigs with corresponding scdefs
 -- TODO: emit pragmas for datatags
-instance (Pretty b) => Pretty (Program b) where
-    pretty = vsepOf (programScDefs . each . to pretty)
+instance (Hashable b, Pretty b) => Pretty (Program b) where
+    -- pretty = vsepOf (programScDefs . each . to pretty)
+    pretty = vlinesOf (programJoinedDefs . to prettyGroup) where
+        programJoinedDefs :: Fold (Program b) (These (b, Type) (ScDef b))
+        programJoinedDefs = folding $ \p ->
+            foldMapOf programTypeSigs thing1 p
+            `u` foldMapOf programScDefs thing2 p
+          where u = H.unionWith unionThese
+
+        thing1 = ifoldMap @b @(HashMap b)
+            (\n t -> H.singleton n (This (n,t)))
+        thing2 = foldMap $ \sc ->
+            H.singleton (sc ^. _lhs . _1) (That sc)
+
+        prettyGroup :: These (b, Type) (ScDef b) -> Doc
+        prettyGroup = bifoldr ($$) ($$) mempty . bimap prettyTySig pretty
+
+        prettyTySig (n,t) = hsep [ttext n, "::", pretty t]
+
+        unionThese :: forall a b. These a b -> These a b -> These a b
+        unionThese (This a) (That b) = These a b
+        unionThese (That b) (This a) = These a b
+        unionThese (These a b) _     = These a b
+
+instance Pretty Type where
+    prettyPrec _ (TyVar n) = ttext n
+    prettyPrec _ TyFun = "(->)"
+    prettyPrec _ (TyCon n) = ttext n
+    prettyPrec p (TyApp f x) = maybeParens (p>0) $
+        prettyPrec 0 f <+> prettyPrec 1 x
 
 instance (Pretty b) => Pretty (ScDef b) where
-    pretty sc = hsep [name, as, "=", hang empty 1 e]
+    pretty sc = hsep [name, as, "=", hang empty 1 e, ";"]
         where
             name = ttext $ sc ^. _lhs . _1
             as = sc & hsepOf (_lhs . _2 . each . to ttext)
diff --git a/src/Data/Pretty.hs b/src/Data/Pretty.hs
index f5b1b4d..f16c319 100644
--- a/src/Data/Pretty.hs
+++ b/src/Data/Pretty.hs
@@ -3,6 +3,8 @@ module Data.Pretty
     , ttext
     -- * Pretty-printing lens combinators
     , hsepOf, vsepOf
+    , vcatOf
+    , vlinesOf
     , module Text.PrettyPrint
     , maybeParens
     )
@@ -49,3 +51,10 @@ hsepOf l = foldrOf l (<+>) mempty
 vsepOf :: Getting (Endo Doc) s Doc -> s -> Doc
 vsepOf l = foldrOf l ($+$) mempty
 
+vcatOf :: Getting (Endo Doc) s Doc -> s -> Doc
+vcatOf l = foldrOf l ($$) mempty
+
+vlinesOf :: Getting (Endo Doc) s Doc -> s -> Doc
+vlinesOf l = foldrOf l (\a b -> a $+$ "" $+$ b) mempty
+-- hack(?) to separate chunks with a blankline
+
-- 
2.52.0


From 1c3286f04752bc2c04a0c0cb1a6e9b7b19a79487 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 12:12:57 -0700
Subject: [PATCH 162/192] ppr datatags

---
 src/Core/Syntax.hs | 43 ++++++++++++++++++++++++-------------------
 1 file changed, 24 insertions(+), 19 deletions(-)

diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index ebc6dca..ad8b67d 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -145,8 +145,8 @@ data Module b = Module (Maybe (Name, [Name])) (Program b)
 data Program b = Program
     { _programScDefs   :: [ScDef b]
     , _programTypeSigs :: HashMap b Type
-    -- map constructors to their tag and arity
     , _programDataTags :: HashMap b (Tag, Int)
+    -- ^ map constructors to their tag and arity
     }
     deriving (Show, Lift, Generic)
     deriving (Semigroup, Monoid)
@@ -223,28 +223,33 @@ instance HasLHS (Binding b) (Binding b) b b where
 -- TODO: print type sigs with corresponding scdefs
 -- TODO: emit pragmas for datatags
 instance (Hashable b, Pretty b) => Pretty (Program b) where
-    -- pretty = vsepOf (programScDefs . each . to pretty)
-    pretty = vlinesOf (programJoinedDefs . to prettyGroup) where
-        programJoinedDefs :: Fold (Program b) (These (b, Type) (ScDef b))
-        programJoinedDefs = folding $ \p ->
-            foldMapOf programTypeSigs thing1 p
-            `u` foldMapOf programScDefs thing2 p
-          where u = H.unionWith unionThese
+    pretty p = ifoldrOf (programDataTags . ifolded) cataDataTag mempty p
+           $+$ vlinesOf (programJoinedDefs . to prettyGroup) p
+        where
+            programJoinedDefs :: Fold (Program b) (These (b, Type) (ScDef b))
+            programJoinedDefs = folding $ \p ->
+                foldMapOf programTypeSigs thisTs p
+                `u` foldMapOf programScDefs thatSc p
+              where u = H.unionWith unionThese
 
-        thing1 = ifoldMap @b @(HashMap b)
-            (\n t -> H.singleton n (This (n,t)))
-        thing2 = foldMap $ \sc ->
-            H.singleton (sc ^. _lhs . _1) (That sc)
+            thisTs = ifoldMap @b @(HashMap b)
+                (\n t -> H.singleton n (This (n,t)))
+            thatSc = foldMap $ \sc ->
+                H.singleton (sc ^. _lhs . _1) (That sc)
 
-        prettyGroup :: These (b, Type) (ScDef b) -> Doc
-        prettyGroup = bifoldr ($$) ($$) mempty . bimap prettyTySig pretty
+            prettyGroup :: These (b, Type) (ScDef b) -> Doc
+            prettyGroup = bifoldr ($$) ($$) mempty . bimap prettyTySig pretty
 
-        prettyTySig (n,t) = hsep [ttext n, "::", pretty t]
+            prettyTySig (n,t) = hsep [ttext n, "::", pretty t]
 
-        unionThese :: forall a b. These a b -> These a b -> These a b
-        unionThese (This a) (That b) = These a b
-        unionThese (That b) (This a) = These a b
-        unionThese (These a b) _     = These a b
+            unionThese (This a) (That b) = These a b
+            unionThese (That b) (This a) = These a b
+            unionThese (These a b) _     = These a b
+
+            cataDataTag n (t,a) acc = prettyDataTag n t a $+$ acc
+
+            prettyDataTag n t a =
+                hsep ["{-#", "PackData", ttext n, ttext t, ttext a, "#-}"]
 
 instance Pretty Type where
     prettyPrec _ (TyVar n) = ttext n
-- 
2.52.0


From 8a94288e5a1f00d4d9312ab6f143e0413bf814f4 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 12:13:40 -0700
Subject: [PATCH 163/192] remove unnecessary comment

---
 src/Core/Syntax.hs | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index ad8b67d..4bd3773 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -279,15 +279,6 @@ instance (Pretty b) => Pretty (Expr b) where
         "case" <+> pretty e <+> "of"
         $$ nest 2 (explicitLayout as)
 
-{-
-
-x = pretty $ desugarRlpProg [rlpProg|
-    main = 3
-    data B = T | F
-|]
-
--}
-
 instance (Pretty b) => Pretty (Alter b) where
     pretty (Alter c as e) =
         hsep [pretty c, hsep (pretty <$> as), "->", pretty e]
-- 
2.52.0


From d2e301fad7d12b3415350327d8996ae227bb745d Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 14:00:43 -0700
Subject: [PATCH 164/192] tidying

---
 src/Core/Syntax.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 4bd3773..9cb25d7 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -5,10 +5,8 @@ Description : Core ASTs and the like
 {-# LANGUAGE PatternSynonyms, OverloadedStrings #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE DerivingStrategies, DerivingVia #-}
 -- for recursion-schemes
-{-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable
-  , TemplateHaskell, TypeFamilies #-}
+{-# LANGUAGE DeriveTraversable, TypeFamilies #-}
 module Core.Syntax
     ( Expr(..)
     , ExprF(..)
-- 
2.52.0


From 055fbfd40c57be13954de3976d56293ec1a50ffb Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 14:02:03 -0700
Subject: [PATCH 165/192] .hs -> .cr

update examples
---
 examples/{constDivZero.hs => constDivZero.cr} |  0
 examples/{factorial.hs => factorial.cr}       |  0
 examples/sumList.cr                           | 12 ++++++++++++
 examples/sumList.hs                           |  9 ---------
 4 files changed, 12 insertions(+), 9 deletions(-)
 rename examples/{constDivZero.hs => constDivZero.cr} (100%)
 rename examples/{factorial.hs => factorial.cr} (100%)
 create mode 100644 examples/sumList.cr
 delete mode 100644 examples/sumList.hs

diff --git a/examples/constDivZero.hs b/examples/constDivZero.cr
similarity index 100%
rename from examples/constDivZero.hs
rename to examples/constDivZero.cr
diff --git a/examples/factorial.hs b/examples/factorial.cr
similarity index 100%
rename from examples/factorial.hs
rename to examples/factorial.cr
diff --git a/examples/sumList.cr b/examples/sumList.cr
new file mode 100644
index 0000000..00b3659
--- /dev/null
+++ b/examples/sumList.cr
@@ -0,0 +1,12 @@
+{-# PackData Nil  0 0 #-}
+{-# PackData Cons 1 2 #-}
+
+foldr f z l = case l of
+    { Nil       -> z
+    ; Cons x xs -> f x (foldr f z xs)
+    };
+
+list = Cons 1 (Cons 2 (Cons 3 Nil));
+
+main = foldr (+#) 0 list;
+
diff --git a/examples/sumList.hs b/examples/sumList.hs
deleted file mode 100644
index 5193a67..0000000
--- a/examples/sumList.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-nil = Pack{0 0};
-cons x y = Pack{1 2} x y;
-list = cons 1 (cons 2 (cons 3 nil));
-sum l = case l of
-    { <0>      -> 0
-    ; <1> x xs -> (+#) x (sum xs)
-    };
-main = sum list;
-
-- 
2.52.0


From 5fdba5b862d73bf3b2b692df943f7ac0b132c412 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 16:29:23 -0700
Subject: [PATCH 166/192] fix evil parser bug (it was a fucking typo)

---
 src/Core/Syntax.hs | 6 ++++--
 src/Rlp/Parse.y    | 3 +--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index 9cb25d7..ae16db0 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -253,8 +253,10 @@ instance Pretty Type where
     prettyPrec _ (TyVar n) = ttext n
     prettyPrec _ TyFun = "(->)"
     prettyPrec _ (TyCon n) = ttext n
-    prettyPrec p (TyApp f x) = maybeParens (p>0) $
-        prettyPrec 0 f <+> prettyPrec 1 x
+    prettyPrec p (a :-> b) = maybeParens (p>0) $
+        hsep [prettyPrec 1 a, "->", prettyPrec 0 b]
+    prettyPrec p (TyApp f x) = maybeParens (p>1) $
+        prettyPrec 1 f <+> prettyPrec 2 x
 
 instance (Pretty b) => Pretty (ScDef b) where
     pretty sc = hsep [name, as, "=", hang empty 1 e, ";"]
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 6f8aeb2..d8c0ff4 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -90,10 +90,9 @@ Decls               : Decl ';' Decls        { $1 : $3 }
                     | Decl                  { [$1] }
 
 DeclsV              :: { [Decl' RlpcPs] }
-DeclsV              : Decl VS Decls         { $1 : $3 }
+DeclsV              : Decl VS DeclsV        { $1 : $3 }
                     | Decl VS               { [$1] }
                     | Decl                  { [$1] }
-                    | {- epsilon -}         { [] }
 
 VS                  :: { Located RlpToken }
 VS                  : ';'                   { $1 }
-- 
2.52.0


From 1d8eddc63f8d05a85829713dc10900ffc5c220e2 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 16:42:37 -0700
Subject: [PATCH 167/192] fix evil lexer bug (it was actually quite subtle
 unlike prev.)

---
 src/Rlp/Lex.x | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 3c07c24..f5e7e34 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -335,16 +335,17 @@ doBol inp l = do
     i <- indentLevel
     -- traceM $ "i: " <> show i
     -- important that we pop the lex state lest we find our lexer diverging
-    popLexState
     case off of
         -- the line is aligned with the previous. it therefore belongs to the
         -- same list
-        EQ -> insertSemicolon
+        EQ -> popLexState *> insertSemicolon
         -- the line is indented further than the previous, so we assume it is a
         -- line continuation. ignore it and move on!
-        GT -> lexToken
+        GT -> popLexState *> lexToken
         -- the line is indented less than the previous, pop the layout stack and
-        -- insert a closing brace.
+        -- insert a closing brace. make VERY good note of the fact that we do not
+        -- pop the lex state! this means doBol is called until indentation is EQ
+        -- GT. so if multiple layouts are closed at once, this catches that.
         LT -> popLayout >> insertRBrace
 
 thenDo :: LexerAction a -> P b -> LexerAction a
-- 
2.52.0


From 6dd581a25f668607b790aa90c03616c7bbc01d13 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 16:42:57 -0700
Subject: [PATCH 168/192] examples

---
 examples/{ => Core}/sumList.cr |  0
 examples/constDivZero.cr       |  3 ---
 examples/factorial.cr          |  7 -------
 examples/rlp/SumList.rl        | 11 +++++++++++
 4 files changed, 11 insertions(+), 10 deletions(-)
 rename examples/{ => Core}/sumList.cr (100%)
 delete mode 100644 examples/constDivZero.cr
 delete mode 100644 examples/factorial.cr
 create mode 100644 examples/rlp/SumList.rl

diff --git a/examples/sumList.cr b/examples/Core/sumList.cr
similarity index 100%
rename from examples/sumList.cr
rename to examples/Core/sumList.cr
diff --git a/examples/constDivZero.cr b/examples/constDivZero.cr
deleted file mode 100644
index da116f5..0000000
--- a/examples/constDivZero.cr
+++ /dev/null
@@ -1,3 +0,0 @@
-k x y = x;
-main = k 3 ((/#) 1 0);
-
diff --git a/examples/factorial.cr b/examples/factorial.cr
deleted file mode 100644
index 1080c7b..0000000
--- a/examples/factorial.cr
+++ /dev/null
@@ -1,7 +0,0 @@
-fac n = case (==#) n 0 of
-    { <1> -> 1
-    ; <0> -> (*#) n (fac ((-#) n 1))
-    };
-
-main = fac 3;
-
diff --git a/examples/rlp/SumList.rl b/examples/rlp/SumList.rl
new file mode 100644
index 0000000..9386c2f
--- /dev/null
+++ b/examples/rlp/SumList.rl
@@ -0,0 +1,11 @@
+data List a = Nil | Cons a (List a)
+
+foldr :: (a -> b -> b) -> b -> List a -> b
+foldr f z l = case l of
+    Nil -> z
+    Cons a as -> f a (foldr f z as)
+
+list = Cons 1 (Cons 2 (Cons 3 Nil))
+
+main = foldr f 0 list
+
-- 
2.52.0


From a2b4bd2afc24c2f473ef98a914c2e31315849e95 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 16:43:02 -0700
Subject: [PATCH 169/192] examples

---
 examples/Core/constDivZero.cr | 3 +++
 examples/Core/factorial.cr    | 7 +++++++
 2 files changed, 10 insertions(+)
 create mode 100644 examples/Core/constDivZero.cr
 create mode 100644 examples/Core/factorial.cr

diff --git a/examples/Core/constDivZero.cr b/examples/Core/constDivZero.cr
new file mode 100644
index 0000000..da116f5
--- /dev/null
+++ b/examples/Core/constDivZero.cr
@@ -0,0 +1,3 @@
+k x y = x;
+main = k 3 ((/#) 1 0);
+
diff --git a/examples/Core/factorial.cr b/examples/Core/factorial.cr
new file mode 100644
index 0000000..1080c7b
--- /dev/null
+++ b/examples/Core/factorial.cr
@@ -0,0 +1,7 @@
+fac n = case (==#) n 0 of
+    { <1> -> 1
+    ; <0> -> (*#) n (fac ((-#) n 1))
+    };
+
+main = fac 3;
+
-- 
2.52.0


From 17058d3f8cd7b3a749a6f8a1513509bd94c2f9fc Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 8 Feb 2024 18:40:46 -0700
Subject: [PATCH 170/192] letrec + typechecking core

---
 src/Control/Monad/Errorful.hs |  4 ++++
 src/Core/HindleyMilner.hs     | 20 +++++++++++-------
 src/Rlp/Lex.x                 |  2 ++
 src/Rlp/Parse.y               |  4 +++-
 src/Rlp/Parse/Types.hs        |  2 ++
 src/Rlp/Syntax.hs             | 39 +++++++++++++++++++++--------------
 6 files changed, 47 insertions(+), 24 deletions(-)

diff --git a/src/Control/Monad/Errorful.hs b/src/Control/Monad/Errorful.hs
index f788aaf..1d46e91 100644
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -8,6 +8,7 @@ module Control.Monad.Errorful
     , errorful
     , runErrorful
     , mapErrorful
+    , hoistErrorfulT
     , MonadErrorful(..)
     )
     where
@@ -74,6 +75,9 @@ mapErrorful f (ErrorfulT m) = ErrorfulT $
 --    mapErrorful f = coerced . mapped . _2 . mapped %~ f
 -- lol
 
+hoistErrorfulT :: (forall a. m a -> n a) -> ErrorfulT e m a -> ErrorfulT e n a
+hoistErrorfulT nt (ErrorfulT m) = ErrorfulT (nt m)
+
 --------------------------------------------------------------------------------
 -- daily dose of n^2 instances
 
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 7dcc4c6..9fa3208 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -22,9 +22,13 @@ import Data.Maybe               (fromMaybe)
 import Data.Text                qualified as T
 import Data.HashMap.Strict      qualified as H
 import Data.Foldable            (traverse_)
+import Data.Functor
+import Data.Functor.Identity
 import Compiler.RLPC
+import Compiler.Types
+import Compiler.RlpcError
 import Control.Monad            (foldM, void, forM)
-import Control.Monad.Errorful   (Errorful, addFatal)
+import Control.Monad.Errorful
 import Control.Monad.State
 import Control.Monad.Utils      (mapAccumLM)
 import Text.Printf
@@ -38,8 +42,6 @@ type Context b = [(b, Type)]
 -- | Unannotated typing context, AKA our beloved Γ.
 type Context' = Context Name
 
--- TODO: Errorful monad?
-
 -- | Type error enum.
 data TypeError
     -- | Two types could not be unified
@@ -93,7 +95,7 @@ check g t1 e = do
 -- in the mean time all top-level binders must have a type annotation.
 checkCoreProg :: Program' -> HMError ()
 checkCoreProg p = scDefs
-            & traverse_ k
+                & traverse_ k
     where
         scDefs = p ^. programScDefs
         g = gatherTypeSigs p
@@ -105,10 +107,14 @@ checkCoreProg p = scDefs
              where scname = sc ^. _lhs._1
 
 -- | @checkCoreProgR p@ returns @p@ if @p@ successfully typechecks.
-checkCoreProgR :: (Applicative m) => Program' -> RLPCT m Program'
-checkCoreProgR p = undefined
+checkCoreProgR :: forall m. (Monad m) => Program' -> RLPCT m Program'
+checkCoreProgR p = (hoistRlpcT generalise . liftE . checkCoreProg $ p)
+                $> p
+    where
+        liftE = liftErrorful . mapErrorful (errorMsg (SrcSpan 0 0 0 0))
 
-{-# WARNING checkCoreProgR "unimpl" #-}
+        generalise :: forall a. Identity a -> m a
+        generalise (Identity a) = pure a
 
 -- | Infer the type of an expression under some context.
 --
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index f5e7e34..7b2e75b 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -85,6 +85,7 @@ $white_no_nl+       ;
 <0>
 {
     "let"               { constToken TokenLet `thenBeginPush` layout_let }
+    "letrec"            { constToken TokenLet `thenBeginPush` layout_let }
     "of"                { constToken TokenOf `thenBeginPush` layout_of }
 }
 
@@ -155,6 +156,7 @@ lexReservedName = \case
     "case"      -> TokenCase
     "of"        -> TokenOf
     "let"       -> TokenLet
+    "letrec"    -> TokenLetrec
     "in"        -> TokenIn
     "infix"     -> TokenInfix
     "infixl"    -> TokenInfixL
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index d8c0ff4..652fccc 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -62,6 +62,7 @@ import Compiler.Types
     infixr          { Located _ TokenInfixR }
     infix           { Located _ TokenInfix }
     let             { Located _ TokenLet }
+    letrec          { Located _ TokenLetrec }
     in              { Located _ TokenIn }
 
 %nonassoc '='
@@ -190,7 +191,8 @@ AppExpr     :: { RlpExpr' RlpcPs }
             | AppExpr Expr1             { AppE <<~ $1 <~> $2 }
 
 LetExpr     :: { RlpExpr' RlpcPs }
-            : let layout1(Binding) in Expr { $1 \$> LetE $2 $4 }
+            : let layout1(Binding) in Expr      { $1 \$> LetE $2 $4 }
+            | letrec layout1(Binding) in Expr   { $1 \$> LetrecE $2 $4 }
 
 CaseExpr    :: { RlpExpr' RlpcPs }
             : case Expr of layout0(CaseAlt)
diff --git a/src/Rlp/Parse/Types.hs b/src/Rlp/Parse/Types.hs
index 244b7e1..1f71d2b 100644
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -64,6 +64,7 @@ type instance XTySigD RlpcPs = ()
 type instance XXDeclD RlpcPs = ()
 
 type instance XLetE RlpcPs = ()
+type instance XLetrecE RlpcPs = ()
 type instance XVarE RlpcPs = ()
 type instance XLamE RlpcPs = ()
 type instance XCaseE RlpcPs = ()
@@ -127,6 +128,7 @@ data RlpToken
     | TokenCase
     | TokenOf
     | TokenLet
+    | TokenLetrec
     | TokenIn
     | TokenInfixL
     | TokenInfixR
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 55146e0..6ef26fb 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -26,15 +26,15 @@ module Rlp.Syntax
     -- *** Decl
     , XFunD, XTySigD, XInfixD, XDataD, XXDeclD
     -- *** RlpExpr
-    , XLetE, XVarE, XLamE, XCaseE, XIfE, XAppE, XLitE
+    , XLetE, XLetrecE, XVarE, XLamE, XCaseE, XIfE, XAppE, XLitE
     , XParE, XOAppE, XXRlpExprE
     -- ** Pattern synonyms
     -- *** Decl
     , pattern FunD, pattern TySigD, pattern InfixD, pattern DataD
     , pattern FunD'', pattern TySigD'', pattern InfixD'', pattern DataD''
     -- *** RlpExpr
-    , pattern LetE, pattern VarE, pattern LamE, pattern CaseE, pattern IfE
-    , pattern AppE, pattern LitE, pattern ParE, pattern OAppE
+    , pattern LetE, pattern LetrecE, pattern VarE, pattern LamE, pattern CaseE
+    , pattern IfE , pattern AppE, pattern LitE, pattern ParE, pattern OAppE
     , pattern XRlpExprE
     -- *** RlpType
     , pattern FunConT'', pattern FunT'', pattern AppT'', pattern VarT''
@@ -165,19 +165,21 @@ data ConAlt p = ConAlt (IdP p) [RlpType' p]
 
 deriving instance (Show (IdP p), Show (XRec p (RlpType p))) => Show (ConAlt p)
 
-data RlpExpr p = LetE'  (XLetE p) [Binding' p] (RlpExpr' p)
-               | VarE'  (XVarE p) (IdP p)
-               | LamE'  (XLamE p) [Pat p] (RlpExpr' p)
-               | CaseE' (XCaseE p) (RlpExpr' p) [(Alt p, Where p)]
-               | IfE'   (XIfE p) (RlpExpr' p) (RlpExpr' p) (RlpExpr' p)
-               | AppE'  (XAppE p) (RlpExpr' p) (RlpExpr' p)
-               | LitE'  (XLitE p) (Lit p)
-               | ParE'  (XParE p) (RlpExpr' p)
-               | OAppE' (XOAppE p) (IdP p) (RlpExpr' p) (RlpExpr' p)
+data RlpExpr p = LetE'      (XLetE p) [Binding' p] (RlpExpr' p)
+               | LetrecE'   (XLetrecE p) [Binding' p] (RlpExpr' p)
+               | VarE'      (XVarE p) (IdP p)
+               | LamE'      (XLamE p) [Pat p] (RlpExpr' p)
+               | CaseE'     (XCaseE p) (RlpExpr' p) [(Alt p, Where p)]
+               | IfE'       (XIfE p) (RlpExpr' p) (RlpExpr' p) (RlpExpr' p)
+               | AppE'      (XAppE p) (RlpExpr' p) (RlpExpr' p)
+               | LitE'      (XLitE p) (Lit p)
+               | ParE'      (XParE p) (RlpExpr' p)
+               | OAppE'     (XOAppE p) (IdP p) (RlpExpr' p) (RlpExpr' p)
                | XRlpExprE' !(XXRlpExprE p)
                deriving (Generic)
 
 type family XLetE p
+type family XLetrecE p
 type family XVarE p
 type family XLamE p
 type family XCaseE p
@@ -189,6 +191,7 @@ type family XOAppE p
 type family XXRlpExprE p
 
 pattern LetE :: (XLetE p ~ ()) => [Binding' p] -> RlpExpr' p -> RlpExpr p
+pattern LetrecE :: (XLetrecE p ~ ()) => [Binding' p] -> RlpExpr' p -> RlpExpr p
 pattern VarE :: (XVarE p ~ ()) => IdP p -> RlpExpr p
 pattern LamE :: (XLamE p ~ ()) => [Pat p] -> RlpExpr' p -> RlpExpr p
 pattern CaseE :: (XCaseE p ~ ()) => RlpExpr' p -> [(Alt p, Where p)] -> RlpExpr p
@@ -200,6 +203,7 @@ pattern OAppE :: (XOAppE p ~ ()) => IdP p -> RlpExpr' p -> RlpExpr' p -> RlpExpr
 pattern XRlpExprE :: (XXRlpExprE p ~ ()) => RlpExpr p
 
 pattern LetE bs e = LetE' () bs e
+pattern LetrecE bs e = LetrecE' () bs e
 pattern VarE n = VarE' () n
 pattern LamE as e = LamE' () as e
 pattern CaseE e as = CaseE' () e as
@@ -211,10 +215,10 @@ pattern OAppE n a b = OAppE' () n a b
 pattern XRlpExprE = XRlpExprE' ()
 
 deriving instance
-    ( Show (XLetE p), Show (XVarE p), Show (XLamE p)
-    , Show (XCaseE p), Show (XIfE p), Show (XAppE p)
-    , Show (XLitE p), Show (XParE p), Show (XOAppE p)
-    , Show (XXRlpExprE p)
+    ( Show (XLetE p), Show (XLetrecE p), Show (XVarE p)
+    , Show (XLamE p), Show (XCaseE p), Show (XIfE p)
+    , Show (XAppE p), Show (XLitE p), Show (XParE p)
+    , Show (XOAppE p), Show (XXRlpExprE p)
     , PhaseShow p
     ) => Show (RlpExpr p)
 
@@ -308,6 +312,7 @@ makePrisms ''Pat
 --------------------------------------------------------------------------------
 
 data RlpExprF p a = LetE'F  (XLetE p) [Binding' p] a
+                  | LetrecE'F  (XLetrecE p) [Binding' p] a
                   | VarE'F  (XVarE p) (IdP p)
                   | LamE'F  (XLamE p) [Pat p] a
                   | CaseE'F (XCaseE p) a [(Alt p, Where p)]
@@ -324,6 +329,7 @@ type instance Base (RlpExpr p) = RlpExprF p
 instance (UnXRec p) => Recursive (RlpExpr p) where
     project = \case
         LetE' xx bs e   -> LetE'F xx bs (unXRec e)
+        LetrecE' xx bs e   -> LetrecE'F xx bs (unXRec e)
         VarE' xx n      -> VarE'F xx n
         LamE' xx ps e   -> LamE'F xx ps (unXRec e)
         CaseE' xx e as  -> CaseE'F xx (unXRec e) as
@@ -337,6 +343,7 @@ instance (UnXRec p) => Recursive (RlpExpr p) where
 instance (WrapXRec p) => Corecursive (RlpExpr p) where
     embed = \case
         LetE'F xx bs e   -> LetE' xx bs (wrapXRec e)
+        LetrecE'F xx bs e   -> LetrecE' xx bs (wrapXRec e)
         VarE'F xx n      -> VarE' xx n
         LamE'F xx ps e   -> LamE' xx ps (wrapXRec e)
         CaseE'F xx e as  -> CaseE' xx (wrapXRec e) as
-- 
2.52.0


From 4b8c55d2d86fb89ff927a8a2c7d3a642cd376ded Mon Sep 17 00:00:00 2001
From: crumb <95563276+crumbtoo@users.noreply.github.com>
Date: Fri, 9 Feb 2024 01:44:32 -0700
Subject: [PATCH 171/192] Update README.md

---
 README.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/README.md b/README.md
index ee49f51..460fced 100644
--- a/README.md
+++ b/README.md
@@ -159,3 +159,4 @@ than the other release plans.
     - [ ] Less hacky handling of named data
     - [ ] Less hacky pragmas
 - [ ] Choose a target. LLVM, JS, C, and WASM are currently top contenders
+- [ ] https://proglangdesign.net/wiki/challenges
-- 
2.52.0


From 2492660da49dc17424c18416e555c34a3b3fb6aa Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 9 Feb 2024 14:46:50 -0700
Subject: [PATCH 172/192] Rlp2Core: simple let binds

---
 src/Compiler/Types.hs |  4 ++++
 src/Core/Syntax.hs    |  4 ++--
 src/Rlp/Lex.x         |  2 +-
 src/Rlp/Syntax.hs     |  7 +++++++
 src/Rlp2Core.hs       | 44 +++++++++++++++++++++++++++++++++++++++++--
 5 files changed, 56 insertions(+), 5 deletions(-)

diff --git a/src/Compiler/Types.hs b/src/Compiler/Types.hs
index 28e4ab4..607a0db 100644
--- a/src/Compiler/Types.hs
+++ b/src/Compiler/Types.hs
@@ -4,6 +4,7 @@ module Compiler.Types
     , srcspanLine, srcspanColumn, srcspanAbs, srcspanLen
     , Located(..)
     , _Located
+    , located
     , nolo
     , (<<~), (<~>), (<#>)
 
@@ -25,6 +26,9 @@ import Language.Haskell.TH.Syntax   (Lift)
 data Located a = Located SrcSpan a
     deriving (Show, Lift, Functor)
 
+located :: Lens (Located a) (Located b) a b
+located = lens extract ($>)
+
 instance Apply Located where
     liftF2 f (Located sa p) (Located sb q)
             = Located (sa <> sb) (p `f` q)
diff --git a/src/Core/Syntax.hs b/src/Core/Syntax.hs
index ae16db0..c7bc9ee 100644
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -270,14 +270,14 @@ instance (Pretty b) => Pretty (Expr b) where
     prettyPrec _ (Con t a)    = "Pack{" <> (ttext t <+> ttext a) <> "}"
     prettyPrec _ (Lam bs e)   = hsep ["λ", hsep (prettyPrec 1 <$> bs), "->", pretty e]
     prettyPrec _ (Let r bs e) = hsep [word, explicitLayout bs]
-                             $$ hsep ["in", pretty e]
+                            $+$ hsep ["in", pretty e]
         where word = if r == Rec then "letrec" else "let"
     prettyPrec p (App f x)    = maybeParens (p>0) $
         prettyPrec 0 f <+> prettyPrec 1 x
     prettyPrec _ (Lit l)      = pretty l
     prettyPrec p (Case e as)  = maybeParens (p>0) $
         "case" <+> pretty e <+> "of"
-        $$ nest 2 (explicitLayout as)
+        $+$ nest 2 (explicitLayout as)
 
 instance (Pretty b) => Pretty (Alter b) where
     pretty (Alter c as e) =
diff --git a/src/Rlp/Lex.x b/src/Rlp/Lex.x
index 7b2e75b..d046499 100644
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -85,7 +85,7 @@ $white_no_nl+       ;
 <0>
 {
     "let"               { constToken TokenLet `thenBeginPush` layout_let }
-    "letrec"            { constToken TokenLet `thenBeginPush` layout_let }
+    "letrec"            { constToken TokenLetrec `thenBeginPush` layout_let }
     "of"                { constToken TokenOf `thenBeginPush` layout_of }
 }
 
diff --git a/src/Rlp/Syntax.hs b/src/Rlp/Syntax.hs
index 6ef26fb..8b49edc 100644
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
@@ -18,6 +18,7 @@ module Rlp.Syntax
     , ConAlt(..)
     , Binding(..), Binding'
 
+    , _PatB, _FunB
     , _VarP, _LitP, _ConP
 
     -- * Trees That Grow boilerplate
@@ -41,6 +42,8 @@ module Rlp.Syntax
     , pattern ConT''
     -- *** Pat
     , pattern VarP'', pattern LitP'', pattern ConP''
+    -- *** Binding
+    , pattern PatB''
     )
     where
 ----------------------------------------------------------------------------------
@@ -253,6 +256,9 @@ data Binding p = PatB (Pat' p) (RlpExpr' p)
 
 type Binding' p = XRec p (Binding p)
 
+pattern PatB'' :: (UnXRec p) => Pat' p -> RlpExpr' p -> Binding' p
+pattern PatB'' p e <- (unXRec -> PatB p e)
+
 deriving instance (Show (XRec p (Pat p)), Show (XRec p (RlpExpr p)), Show (IdP p)
                   ) => Show (Binding p)
 
@@ -308,6 +314,7 @@ type Lit' p = XRec p (Lit p)
 
 makeLenses ''RlpModule
 makePrisms ''Pat
+makePrisms ''Binding
 
 --------------------------------------------------------------------------------
 
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 887f40c..9740c10 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -17,11 +17,12 @@ import Control.Comonad
 -- import Lens.Micro.Internal
 import Control.Lens
 import Compiler.RLPC
-import Data.List                        (mapAccumL)
+import Data.List                        (mapAccumL, partition)
 import Data.Text                        (Text)
 import Data.Text                        qualified as T
 import Data.HashMap.Strict              qualified as H
 import Data.Monoid                      (Endo(..))
+import Data.Either                      (partitionEithers)
 import Data.Foldable
 import Data.Fix
 import Data.Maybe                       (fromJust, fromMaybe)
@@ -111,7 +112,7 @@ patArgsToCase e (x,p) = (e', x') where
 type NameSupply = Labeled NameSupplyLabel (State [IdP RlpcPs])
 type NameSupplyLabel = "expr-name-supply"
 
-exprToCore :: (NameSupply :> es) => RlpExpr RlpcPs -> Eff es Expr'
+exprToCore :: forall es. (NameSupply :> es) => RlpExpr RlpcPs -> Eff es Expr'
 
 exprToCore (VarE n) = pure $ Var (dsNameToName n)
 
@@ -125,11 +126,44 @@ exprToCore (CaseE (unXRec -> e) as) = do
     e' <- exprToCore e
     Case e' <$> caseAltToCore `traverse` as
 
+exprToCore (LetE bs e) = letToCore NonRec bs e
+exprToCore (LetrecE bs e) = letToCore Rec bs e
+
 exprToCore (LitE l) = litToCore l
 
+letToCore :: forall es. (NameSupply :> es)
+          => Rec -> [Rlp.Binding' RlpcPs] -> RlpExpr' RlpcPs -> Eff es Expr'
+letToCore r bs e = do
+    (bs',as) <- getParts
+    e' <- caseify as (unXRec e)
+    pure $ Let r bs' e'
+  where
+    -- partition & map the list of binders into:
+    --  bs'   : the let-binds that may be directly translated to Core
+    --          let-binds (we do exactly that). this is all the binders that
+    --          are a simple variable rather than a pattern match.
+    -- and as : the let-binds that may **not** be directly translated to
+    --          Core let-exprs. they get turned into case alternates.
+    getParts = traverse f bs <&> partitionEithers
+
+    f :: Rlp.Binding' RlpcPs
+      -> Eff es (Either Core.Binding' (Alt RlpcPs))
+    f (PatB'' (VarP'' n) e) = Left . (n :=) <$> exprToCore (unXRec e)
+    f (PatB'' p          e) = undefined
+
+    varPatB :: Traversal' (Rlp.Binding' RlpcPs) (IdP RlpcPs)
+    varPatB = located . _PatB . _1 . located . _VarP
+
 litToCore :: (NameSupply :> es) => Rlp.Lit RlpcPs -> Eff es Expr'
 litToCore (Rlp.IntL n) = pure . Lit $ Core.IntL n
 
+caseify :: (NameSupply :> es) => [Alt RlpcPs] -> RlpExpr RlpcPs -> Eff es Expr'
+caseify as ee = do
+    ee' <- exprToCore ee
+    foldrM go ee' as
+  where
+    go a e = Case e . pure <$> altToCore a
+
 -- TODO: where-binds
 caseAltToCore :: (NameSupply :> es)
               => (Alt RlpcPs, Where RlpcPs) -> Eff es Alter'
@@ -137,6 +171,12 @@ caseAltToCore (AltA (unXRec -> p) e, wh) = do
     e' <- exprToCore . unXRec $ e
     conToRose p <&> foldFix (branchToCore e')
 
+altToCore :: (NameSupply :> es)
+          => Alt RlpcPs -> Eff es Alter'
+altToCore (AltA (unXRec -> p) e) = do
+    e' <- exprToCore . unXRec $ e
+    conToRose p <&> foldFix (branchToCore e')
+
 conToRose :: forall es. (NameSupply :> es) => Pat RlpcPs -> Eff es Rose
 conToRose (ConP cn as) = Fix . Branch cn <$> patToForrest `traverse` as
     where
-- 
2.52.0


From c37e8bdf153708479a9ff7dddaef2fc369b781d9 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 9 Feb 2024 17:04:33 -0700
Subject: [PATCH 173/192] Rlp2Core: pattern let binds

---
 src/Control/Monad/Utils.hs | 11 ++++++++++
 src/Rlp2Core.hs            | 41 ++++++++++++++++++++++++--------------
 2 files changed, 37 insertions(+), 15 deletions(-)

diff --git a/src/Control/Monad/Utils.hs b/src/Control/Monad/Utils.hs
index 6cc5521..60681e3 100644
--- a/src/Control/Monad/Utils.hs
+++ b/src/Control/Monad/Utils.hs
@@ -1,10 +1,13 @@
 module Control.Monad.Utils
     ( mapAccumLM
+    , Kendo(..)
     )
     where
 ----------------------------------------------------------------------------------
 import Data.Tuple               (swap)
+import Data.Coerce
 import Control.Monad.State
+import Control.Monad
 ----------------------------------------------------------------------------------
 
 -- | Monadic variant of @mapAccumL@
@@ -19,3 +22,11 @@ mapAccumLM k s t = swap <$> runStateT (traverse k' t) s
         k' :: a -> StateT s m b
         k' a = StateT $ fmap swap <$> flip k a
 
+newtype Kendo m a = Kendo { appKendo :: a -> m a }
+
+instance (Monad m) => Semigroup (Kendo m a) where
+    Kendo f <> Kendo g = Kendo (f <=< g)
+
+instance (Monad m) => Monoid (Kendo m a) where
+    mempty = Kendo pure
+
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 9740c10..142f752 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -9,7 +9,7 @@ module Rlp2Core
 --------------------------------------------------------------------------------
 import Control.Monad
 import Control.Monad.Writer.CPS
-import Control.Monad.Utils              (mapAccumLM)
+import Control.Monad.Utils
 import Control.Arrow
 import Control.Applicative
 import Control.Comonad
@@ -135,8 +135,10 @@ letToCore :: forall es. (NameSupply :> es)
           => Rec -> [Rlp.Binding' RlpcPs] -> RlpExpr' RlpcPs -> Eff es Expr'
 letToCore r bs e = do
     (bs',as) <- getParts
-    e' <- caseify as (unXRec e)
-    pure $ Let r bs' e'
+    e' <- appKendo (foldMap Kendo as) <=< exprToCore $ unXRec e
+    if null bs'
+        then pure e'
+        else pure $ Let r bs' e'
   where
     -- partition & map the list of binders into:
     --  bs'   : the let-binds that may be directly translated to Core
@@ -147,22 +149,27 @@ letToCore r bs e = do
     getParts = traverse f bs <&> partitionEithers
 
     f :: Rlp.Binding' RlpcPs
-      -> Eff es (Either Core.Binding' (Alt RlpcPs))
+      -> Eff es (Either Core.Binding' (Expr' -> Eff es Expr'))
     f (PatB'' (VarP'' n) e) = Left . (n :=) <$> exprToCore (unXRec e)
-    f (PatB'' p          e) = undefined
-
-    varPatB :: Traversal' (Rlp.Binding' RlpcPs) (IdP RlpcPs)
-    varPatB = located . _PatB . _1 . located . _VarP
+    f (PatB'' p          e) = pure $ Right (caseify p e)
 
 litToCore :: (NameSupply :> es) => Rlp.Lit RlpcPs -> Eff es Expr'
 litToCore (Rlp.IntL n) = pure . Lit $ Core.IntL n
 
-caseify :: (NameSupply :> es) => [Alt RlpcPs] -> RlpExpr RlpcPs -> Eff es Expr'
-caseify as ee = do
-    ee' <- exprToCore ee
-    foldrM go ee' as
+{-
+let C x = y
+in e
+
+case y of
+    C x -> e
+ -}
+
+caseify :: (NameSupply :> es)
+        => Pat' RlpcPs -> RlpExpr' RlpcPs -> Expr' -> Eff es Expr'
+caseify p (unXRec -> e) i =
+    Case <$> exprToCore e <*> ((:[]) <$> alt)
   where
-    go a e = Case e . pure <$> altToCore a
+    alt = conToRose (unXRec p) <&> foldFix (branchToCore i)
 
 -- TODO: where-binds
 caseAltToCore :: (NameSupply :> es)
@@ -173,8 +180,12 @@ caseAltToCore (AltA (unXRec -> p) e, wh) = do
 
 altToCore :: (NameSupply :> es)
           => Alt RlpcPs -> Eff es Alter'
-altToCore (AltA (unXRec -> p) e) = do
-    e' <- exprToCore . unXRec $ e
+altToCore (AltA p e) = altToCore' p e
+
+altToCore' :: (NameSupply :> es)
+           => Pat' RlpcPs -> RlpExpr' RlpcPs -> Eff es Alter'
+altToCore' (unXRec -> p) (unXRec -> e) = do
+    e' <- exprToCore e
     conToRose p <&> foldFix (branchToCore e')
 
 conToRose :: forall es. (NameSupply :> es) => Pat RlpcPs -> Eff es Rose
-- 
2.52.0


From 50a4d0010cd4c158e7b68845f7862fc8e09b77f2 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 9 Feb 2024 17:44:17 -0700
Subject: [PATCH 174/192] small core fixes

---
 src/Compiler/JustRun.hs | 28 +++++++++--------
 src/Core/Examples.hs    | 21 +++++++------
 src/Core/Lex.x          | 17 +++++------
 src/Core/Parse.y        | 68 ++++++++++++++++++++---------------------
 4 files changed, 68 insertions(+), 66 deletions(-)

diff --git a/src/Compiler/JustRun.hs b/src/Compiler/JustRun.hs
index 6a0d4ca..23cdc9e 100644
--- a/src/Compiler/JustRun.hs
+++ b/src/Compiler/JustRun.hs
@@ -8,9 +8,9 @@ that use Prelude types such as @Either@ and @String@ rather than more complex
 types such as @RLPC@ or @Text@.
 -}
 module Compiler.JustRun
-    ( justLexSrc
-    , justParseSrc
-    , justTypeCheckSrc
+    ( justLexCore
+    , justParseCore
+    , justTypeCheckCore
     )
     where
 ----------------------------------------------------------------------------------
@@ -21,24 +21,26 @@ import Core.Syntax                      (Program')
 import Compiler.RLPC
 import Control.Arrow                    ((>>>))
 import Control.Monad                    ((>=>))
+import Control.Comonad
+import Control.Lens
 import Data.Text                        qualified as T
 import Data.Function                    ((&))
 import GM
 ----------------------------------------------------------------------------------
 
-justLexSrc :: String -> Either [MsgEnvelope RlpcError] [CoreToken]
-justLexSrc s = lexCoreR (T.pack s)
-             & fmap (map $ \ (Located _ _ _ t) -> t)
-             & rlpcToEither
+justLexCore :: String -> Either [MsgEnvelope RlpcError] [CoreToken]
+justLexCore s = lexCoreR (T.pack s)
+              & mapped . each %~ extract
+              & rlpcToEither
 
-justParseSrc :: String -> Either [MsgEnvelope RlpcError] Program'
-justParseSrc s = parse (T.pack s)
-               & rlpcToEither
+justParseCore :: String -> Either [MsgEnvelope RlpcError] Program'
+justParseCore s = parse (T.pack s)
+                & rlpcToEither
     where parse = lexCoreR >=> parseCoreProgR
 
-justTypeCheckSrc :: String -> Either [MsgEnvelope RlpcError] Program'
-justTypeCheckSrc s = typechk (T.pack s)
-                   & rlpcToEither
+justTypeCheckCore :: String -> Either [MsgEnvelope RlpcError] Program'
+justTypeCheckCore s = typechk (T.pack s)
+                    & rlpcToEither
     where typechk = lexCoreR >=> parseCoreProgR >=> checkCoreProgR
 
 rlpcToEither :: RLPC a -> Either [MsgEnvelope RlpcError] a
diff --git a/src/Core/Examples.hs b/src/Core/Examples.hs
index ee1fe25..b13abe5 100644
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -76,12 +76,12 @@ negExample3 = [coreProg|
 
 arithExample1 :: Program'
 arithExample1 = [coreProg|
-    main = (+#) 3 (negate# 2);
+    main = +# 3 (negate# 2);
 |]
 
 arithExample2 :: Program'
 arithExample2 = [coreProg|
-    main = negate# ((+#) 2 ((*#) 5 3));
+    main = negate# (+# 2 (*# 5 3));
 |]
 
 ifExample1 :: Program'
@@ -96,7 +96,7 @@ ifExample2 = [coreProg|
 
 facExample :: Program'
 facExample = [coreProg|
-    fac n = if# ((==#) n 0) 1 ((*#) n (fac ((-#) n 1)));
+    fac n = if# (==# n 0) 1 (*# n (fac (-# n 1)));
     main = fac 3;
 |]
 
@@ -149,14 +149,14 @@ caseBool1 = [coreProg|
     false = Pack{0 0};
     true = Pack{1 0};
 
-    main = _if false ((+#) 2 3) ((*#) 4 5);
+    main = _if false (+# 2 3) (*# 4 5);
 |]
 
 fac3 :: Program'
 fac3 = [coreProg|
-    fac n = case (==#) n 0 of
+    fac n = case ==# n 0 of
         { <1> -> 1
-        ; <0> -> (*#) n (fac ((-#) n 1))
+        ; <0> -> *# n (fac (-# n 1))
         };
 
     main = fac 3;
@@ -171,7 +171,7 @@ sumList = [coreProg|
         list = cons 1 (cons 2 (cons 3 nil));
         sum l = case l of
             { <0>      -> 0
-            ; <1> x xs -> (+#) x (sum xs)
+            ; <1> x xs -> +# x (sum xs)
             };
         main = sum list;
     |]
@@ -179,7 +179,7 @@ sumList = [coreProg|
 constDivZero :: Program'
 constDivZero = [coreProg|
         k x y = x;
-        main = k 3 ((/#) 1 0);
+        main = k 3 (/# 1 0);
     |]
 
 idCase :: Program'
@@ -187,7 +187,7 @@ idCase = [coreProg|
         id x = x;
 
         main = id (case Pack{1 0} of
-            { <1> -> (+#) 2 3
+            { <1> -> +# 2 3
             })
     |]
 
@@ -197,7 +197,7 @@ namedBoolCase :: Program'
 namedBoolCase = [coreProg|
         {-# PackData True 1 0 #-}
         {-# PackData False 0 0 #-}
-        main = case (==#) 1 1 of
+        main = case ==# 1 1 of
             { True -> 123
             ; False -> 456
             }
@@ -243,3 +243,4 @@ namedConsCase = [coreProg|
 --         ]
 
 --}
+
diff --git a/src/Core/Lex.x b/src/Core/Lex.x
index dba29c9..f62fb8d 100644
--- a/src/Core/Lex.x
+++ b/src/Core/Lex.x
@@ -23,8 +23,9 @@ import Data.String          (IsString(..))
 import Data.Functor.Identity
 import Core.Syntax
 import Compiler.RLPC
+import Compiler.Types
 -- TODO: unify Located definitions
-import Compiler.RlpcError   hiding (Located(..))
+import Compiler.RlpcError
 import Lens.Micro
 import Lens.Micro.TH
 }
@@ -120,11 +121,9 @@ rlp :-
 }
 
 {
-data Located a = Located Int Int Int a
-    deriving Show
 
 constTok :: t -> AlexInput -> Int -> Alex (Located t)
-constTok t (AlexPn _ y x,_,_,_) l = pure $ Located y x l t
+constTok t (AlexPn _ y x,_,_,_) l = pure $ nolo t
 
 data CoreToken = TokenLet
                | TokenLetrec
@@ -171,7 +170,7 @@ data SrcErrorType = SrcErrLexical String
 type Lexer = AlexInput -> Int -> Alex (Located CoreToken)
 
 lexWith :: (Text -> CoreToken) -> Lexer
-lexWith f (AlexPn _ y x,_,_,s) l = pure $ Located y x l (f $ T.take l s)
+lexWith f (AlexPn _ y x,_,_,s) l = pure . nolo . f . T.take l $ s
 
 -- | The main lexer driver.
 lexCore :: Text -> RLPC [Located CoreToken]
@@ -191,14 +190,14 @@ lexCoreR = hoistRlpcT generalise . lexCore
 -- debugging
 lexCore' :: Text -> RLPC [CoreToken]
 lexCore' s = fmap f <$> lexCore s
-    where f (Located _ _ _ t) = t
+    where f (Located _ t) = t
 
 lexStream :: Alex [Located CoreToken]
 lexStream = do
     l <- alexMonadScan
     case l of
-        Located _ _ _ TokenEOF  -> pure [l]
-        _                       -> (l:) <$> lexStream
+        Located _ TokenEOF -> pure [l]
+        _                  -> (l:) <$> lexStream
 
 data ParseError = ParErrLexical String
                 | ParErrParse
@@ -214,7 +213,7 @@ instance IsRlpcError ParseError where
 
 alexEOF :: Alex (Located CoreToken)
 alexEOF = Alex $ \ st@(AlexState { alex_pos = AlexPn _ y x }) ->
-    Right (st, Located y x 0 TokenEOF)
+    Right (st, nolo $ TokenEOF)
 
 }
 
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 467216d..3d119cf 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -40,34 +40,34 @@ import Data.HashMap.Strict  qualified as H
 %monad { RLPC } { happyBind } { happyPure }
 
 %token
-      let             { Located _ _ _ TokenLet }
-      letrec          { Located _ _ _ TokenLetrec }
-      module          { Located _ _ _ TokenModule }
-      where           { Located _ _ _ TokenWhere }
-      case            { Located _ _ _ TokenCase }
-      of              { Located _ _ _ TokenOf }
-      pack            { Located _ _ _ TokenPack } -- temp
-      in              { Located _ _ _ TokenIn }
-      litint          { Located _ _ _ (TokenLitInt $$) }
-      varname         { Located _ _ _ (TokenVarName $$) }
-      varsym          { Located _ _ _ (TokenVarSym $$) }
-      conname         { Located _ _ _ (TokenConName $$) }
-      consym          { Located _ _ _ (TokenConSym $$) }
-      alttag          { Located _ _ _ (TokenAltTag $$) }
-      word            { Located _ _ _ (TokenWord $$) }
-      'λ'             { Located _ _ _ TokenLambda }
-      '->'            { Located _ _ _ TokenArrow }
-      '='             { Located _ _ _ TokenEquals }
-      '@'             { Located _ _ _ TokenTypeApp }
-      '('             { Located _ _ _ TokenLParen }
-      ')'             { Located _ _ _ TokenRParen }
-      '{'             { Located _ _ _ TokenLBrace }
-      '}'             { Located _ _ _ TokenRBrace }
-      '{-#'           { Located _ _ _ TokenLPragma }
-      '#-}'           { Located _ _ _ TokenRPragma }
-      ';'             { Located _ _ _ TokenSemicolon }
-      '::'            { Located _ _ _ TokenHasType }
-      eof             { Located _ _ _ TokenEOF }
+      let             { Located _ TokenLet }
+      letrec          { Located _ TokenLetrec }
+      module          { Located _ TokenModule }
+      where           { Located _ TokenWhere }
+      case            { Located _ TokenCase }
+      of              { Located _ TokenOf }
+      pack            { Located _ TokenPack } -- temp
+      in              { Located _ TokenIn }
+      litint          { Located _ (TokenLitInt $$) }
+      varname         { Located _ (TokenVarName $$) }
+      varsym          { Located _ (TokenVarSym $$) }
+      conname         { Located _ (TokenConName $$) }
+      consym          { Located _ (TokenConSym $$) }
+      alttag          { Located _ (TokenAltTag $$) }
+      word            { Located _ (TokenWord $$) }
+      'λ'             { Located _ TokenLambda }
+      '->'            { Located _ TokenArrow }
+      '='             { Located _ TokenEquals }
+      '@'             { Located _ TokenTypeApp }
+      '('             { Located _ TokenLParen }
+      ')'             { Located _ TokenRParen }
+      '{'             { Located _ TokenLBrace }
+      '}'             { Located _ TokenRBrace }
+      '{-#'           { Located _ TokenLPragma }
+      '#-}'           { Located _ TokenRPragma }
+      ';'             { Located _ TokenSemicolon }
+      '::'            { Located _ TokenHasType }
+      eof             { Located _ TokenEOF }
 
 %%
 
@@ -187,18 +187,18 @@ Id              : Var                                { $1 }
                 | Con                                { $1 }
 
 Var             :: { Name }
-Var             : '(' varsym ')'                    { $2 }
-                | varname                           { $1 }
+Var             : varname                           { $1 }
+                | varsym                            { $1 }
 
 Con             :: { Name }
-Con             : '(' consym ')'                    { $2 }
-                | conname                           { $1 }
+Con             : conname                           { $1 }
+                | consym                            { $1 }
 
 {
 
 parseError :: [Located CoreToken] -> RLPC a
-parseError (Located y x l t : _) =
-    error $ show y <> ":" <> show x
+parseError (Located _ t : _) =
+    error $ "<line>" <> ":" <> "<col>"
          <> ": parse error at token `" <> show t <> "'"
 
 {-# WARNING parseError "unimpl" #-}
-- 
2.52.0


From 615a6f1b07898526945d2fe5d6662b96b79ec959 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 9 Feb 2024 17:56:38 -0700
Subject: [PATCH 175/192] update examples

---
 examples/Core/constDivZero.cr | 2 +-
 examples/Core/factorial.cr    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/examples/Core/constDivZero.cr b/examples/Core/constDivZero.cr
index da116f5..f25e208 100644
--- a/examples/Core/constDivZero.cr
+++ b/examples/Core/constDivZero.cr
@@ -1,3 +1,3 @@
 k x y = x;
-main = k 3 ((/#) 1 0);
+main = k 3 (/# 1 0);
 
diff --git a/examples/Core/factorial.cr b/examples/Core/factorial.cr
index 1080c7b..305e9d8 100644
--- a/examples/Core/factorial.cr
+++ b/examples/Core/factorial.cr
@@ -1,6 +1,6 @@
 fac n = case (==#) n 0 of
     { <1> -> 1
-    ; <0> -> (*#) n (fac ((-#) n 1))
+    ; <0> -> *# n (fac (-# n 1))
     };
 
 main = fac 3;
-- 
2.52.0


From 58838b9527f13e94d3fa36f08bf19ce7f86a4104 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 9 Feb 2024 18:07:08 -0700
Subject: [PATCH 176/192] formatting

---
 src/GM.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GM.hs b/src/GM.hs
index 216672d..15e7e14 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -739,7 +739,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
         compileE g e = compileC g e ++ [Eval]
 
         compileD :: Env -> [Alter'] -> [(Tag, Code)]
-        compileD g as = fmap (compileA g) as
+        compileD g = fmap (compileA g)
 
         compileA :: Env -> Alter' -> (Tag, Code)
         compileA g (Alter (AltTag t) as e) = (t, [Split n] <> c <> [Slide n])
-- 
2.52.0


From 17d764c2ec9eefd75d1b21f91b9f1298239b2c1f Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 9 Feb 2024 18:31:37 -0700
Subject: [PATCH 177/192] typed coreExpr quoter

---
 src/Control/Monad/Utils.hs |  5 +++++
 src/Core/HindleyMilner.hs  | 10 +++++++---
 src/Core/Parse.y           |  8 +++++---
 src/Core/TH.hs             | 19 ++++++++++++-------
 4 files changed, 29 insertions(+), 13 deletions(-)

diff --git a/src/Control/Monad/Utils.hs b/src/Control/Monad/Utils.hs
index 60681e3..d09e91a 100644
--- a/src/Control/Monad/Utils.hs
+++ b/src/Control/Monad/Utils.hs
@@ -1,11 +1,13 @@
 module Control.Monad.Utils
     ( mapAccumLM
     , Kendo(..)
+    , generalise
     )
     where
 ----------------------------------------------------------------------------------
 import Data.Tuple               (swap)
 import Data.Coerce
+import Data.Functor.Identity
 import Control.Monad.State
 import Control.Monad
 ----------------------------------------------------------------------------------
@@ -30,3 +32,6 @@ instance (Monad m) => Semigroup (Kendo m a) where
 instance (Monad m) => Monoid (Kendo m a) where
     mempty = Kendo pure
 
+generalise :: (Monad m) => Identity a -> m a
+generalise (Identity a) = pure a
+
diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index 9fa3208..d47689b 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -10,6 +10,7 @@ module Core.HindleyMilner
     , check
     , checkCoreProg
     , checkCoreProgR
+    , checkCoreExprR
     , TypeError(..)
     , HMError
     )
@@ -30,7 +31,7 @@ import Compiler.RlpcError
 import Control.Monad            (foldM, void, forM)
 import Control.Monad.Errorful
 import Control.Monad.State
-import Control.Monad.Utils      (mapAccumLM)
+import Control.Monad.Utils      (mapAccumLM, generalise)
 import Text.Printf
 import Core.Syntax
 ----------------------------------------------------------------------------------
@@ -113,8 +114,11 @@ checkCoreProgR p = (hoistRlpcT generalise . liftE . checkCoreProg $ p)
     where
         liftE = liftErrorful . mapErrorful (errorMsg (SrcSpan 0 0 0 0))
 
-        generalise :: forall a. Identity a -> m a
-        generalise (Identity a) = pure a
+checkCoreExprR :: (Monad m) => Context' -> Expr' -> RLPCT m Expr'
+checkCoreExprR g e = (hoistRlpcT generalise . liftE . infer g $ e)
+                  $> e
+    where
+        liftE = liftErrorful . mapErrorful (errorMsg (SrcSpan 0 0 0 0))
 
 -- | Infer the type of an expression under some context.
 --
diff --git a/src/Core/Parse.y b/src/Core/Parse.y
index 3d119cf..fcb6e2c 100644
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -7,6 +7,7 @@ Description : Parser for the Core language
 module Core.Parse
     ( parseCore
     , parseCoreExpr
+    , parseCoreExprR
     , parseCoreProg
     , parseCoreProgR
     , module Core.Lex -- temp convenience
@@ -16,6 +17,7 @@ module Core.Parse
     where
 
 import Control.Monad        ((>=>))
+import Control.Monad.Utils  (generalise)
 import Data.Foldable        (foldl')
 import Data.Functor.Identity
 import Core.Syntax
@@ -226,12 +228,12 @@ insScDef sc = programScDefs %~ (sc:)
 singletonScDef :: (Hashable b) => ScDef b -> Program b
 singletonScDef sc = insScDef sc mempty
 
+parseCoreExprR :: (Monad m) => [Located CoreToken] -> RLPCT m Expr'
+parseCoreExprR = hoistRlpcT generalise . parseCoreExpr
+
 parseCoreProgR :: forall m. (Monad m) => [Located CoreToken] -> RLPCT m Program'
 parseCoreProgR = ddumpast <=< (hoistRlpcT generalise . parseCoreProg)
     where
-        generalise :: forall a. Identity a -> m a
-        generalise (Identity a) = pure a
-
         ddumpast :: Program' -> RLPCT m Program'
         ddumpast p = do
             addDebugMsg "dump-parsed-core" . show $ p
diff --git a/src/Core/TH.hs b/src/Core/TH.hs
index 8031314..36a3e3f 100644
--- a/src/Core/TH.hs
+++ b/src/Core/TH.hs
@@ -5,6 +5,7 @@ Description : Core quasiquoters
 module Core.TH
     ( coreExpr
     , coreProg
+    , coreExprT
     , coreProgT
     )
     where
@@ -22,20 +23,26 @@ import Data.Text                    qualified as T
 import Core.Parse
 import Core.Lex
 import Core.Syntax
-import Core.HindleyMilner           (checkCoreProgR)
+import Core.HindleyMilner           (checkCoreProgR, checkCoreExprR)
 ----------------------------------------------------------------------------------
 
 coreProg :: QuasiQuoter
 coreProg = mkqq $ lexCoreR >=> parseCoreProgR
 
 coreExpr :: QuasiQuoter
-coreExpr = mkqq $ lexCoreR >=> parseCoreExpr
+coreExpr = mkqq $ lexCoreR >=> parseCoreExprR
 
 -- | Type-checked @coreProg@
 coreProgT :: QuasiQuoter
 coreProgT = mkqq $ lexCoreR >=> parseCoreProgR >=> checkCoreProgR
 
-mkqq :: (Lift a) => (Text -> RLPC a) -> QuasiQuoter
+coreExprT :: QuasiQuoter
+coreExprT = mkqq $ lexCoreR >=> parseCoreExprR >=> checkCoreExprR g
+    where
+        g = [ ("+#", TyCon "Int#" :-> TyCon "Int#" :-> TyCon "Int#")
+            ]
+
+mkqq :: (Lift a) => (Text -> RLPCIO a) -> QuasiQuoter
 mkqq p = QuasiQuoter
     { quoteExp = mkq p
     , quotePat = error "core quasiquotes may only be used in expressions"
@@ -43,8 +50,6 @@ mkqq p = QuasiQuoter
     , quoteDec = error "core quasiquotes may only be used in expressions"
     }
 
-mkq :: (Lift a) => (Text -> RLPC a) -> String -> Q Exp
-mkq parse s = case evalRLPC def (parse $ T.pack s) of
-    (Just a,  _) -> lift a
-    (Nothing, _) -> error "todo: aaahhbbhjhbdjhabsjh"
+mkq :: (Lift a) => (Text -> RLPCIO a) -> String -> Q Exp
+mkq parse s = liftIO $ evalRLPCIO def (parse $ T.pack s) >>= lift
 
-- 
2.52.0


From f53d42bf844ed2b3daa77cc6550a5139c3bf9baf Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Fri, 9 Feb 2024 19:07:34 -0700
Subject: [PATCH 178/192] typechecking things

---
 src/Core/HindleyMilner.hs | 21 ++++++---------------
 src/Core/TH.hs            |  2 ++
 src/Data/Pretty.hs        |  5 +++++
 3 files changed, 13 insertions(+), 15 deletions(-)

diff --git a/src/Core/HindleyMilner.hs b/src/Core/HindleyMilner.hs
index d47689b..17d7118 100644
--- a/src/Core/HindleyMilner.hs
+++ b/src/Core/HindleyMilner.hs
@@ -21,6 +21,7 @@ import Lens.Micro.Mtl
 import Lens.Micro.Platform
 import Data.Maybe               (fromMaybe)
 import Data.Text                qualified as T
+import Data.Pretty              (rpretty)
 import Data.HashMap.Strict      qualified as H
 import Data.Foldable            (traverse_)
 import Data.Functor
@@ -59,26 +60,22 @@ instance IsRlpcError TypeError where
         -- todo: use anti-parser instead of show
         TyErrCouldNotUnify t u -> Text
             [ T.pack $ printf "Could not match type `%s` with `%s`."
-                              (show t) (show u)
-            , "Expected: " <> tshow t
-            , "Got: " <> tshow u
+                              (rpretty @String t) (rpretty @String u)
+            , "Expected: " <> rpretty t
+            , "Got: " <> rpretty u
             ]
         TyErrUntypedVariable n -> Text
             [ "Untyped (likely undefined) variable `" <> n <> "`"
             ]
         TyErrRecursiveType t x -> Text
-            [ T.pack $ printf "recursive type error lol"
+            [ T.pack $ printf "Recursive type: `%s' occurs in `%s'"
+                              (rpretty @String t) (rpretty @String x)
             ]
 
-        where tshow = T.pack . show
-
 -- | Synonym for @Errorful [TypeError]@. This means an @HMError@ action may
 -- throw any number of fatal or nonfatal errors. Run with @runErrorful@.
 type HMError = Errorful TypeError
 
--- TODO: better errors. Errorful-esque, with cummulative errors instead of
--- instantly dying.
-
 -- | Assert that an expression unifies with a given type
 --
 -- >>> let e = [coreProg|3|]
@@ -281,9 +278,3 @@ demoContext =
     , ("False", TyCon "Bool")
     ]
 
-pprintType :: Type -> String
-pprintType (s :-> t) = "(" <> pprintType s <> " -> " <> pprintType t <> ")"
-pprintType TyFun = "(->)"
-pprintType (TyVar x) = x ^. unpacked
-pprintType (TyCon t) = t ^. unpacked
-
diff --git a/src/Core/TH.hs b/src/Core/TH.hs
index 36a3e3f..71f6a7a 100644
--- a/src/Core/TH.hs
+++ b/src/Core/TH.hs
@@ -40,6 +40,8 @@ coreExprT :: QuasiQuoter
 coreExprT = mkqq $ lexCoreR >=> parseCoreExprR >=> checkCoreExprR g
     where
         g = [ ("+#", TyCon "Int#" :-> TyCon "Int#" :-> TyCon "Int#")
+            , ("id", TyCon "a" :-> TyCon "a")
+            , ("fix", (TyCon "a" :-> TyCon "a") :-> TyCon "a")
             ]
 
 mkqq :: (Lift a) => (Text -> RLPCIO a) -> QuasiQuoter
diff --git a/src/Data/Pretty.hs b/src/Data/Pretty.hs
index f16c319..77337d7 100644
--- a/src/Data/Pretty.hs
+++ b/src/Data/Pretty.hs
@@ -1,5 +1,6 @@
 module Data.Pretty
     ( Pretty(..)
+    , rpretty
     , ttext
     -- * Pretty-printing lens combinators
     , hsepOf, vsepOf
@@ -12,6 +13,7 @@ module Data.Pretty
 ----------------------------------------------------------------------------------
 import Text.PrettyPrint             hiding ((<>))
 import Text.PrettyPrint.HughesPJ    hiding ((<>))
+import Text.Printf
 import Data.String                  (IsString(..))
 import Data.Text.Lens
 import Data.Monoid
@@ -27,6 +29,9 @@ class Pretty a where
     pretty = prettyPrec 0
     prettyPrec a _ = pretty a
 
+rpretty :: (IsString s, Pretty a) => a -> s
+rpretty = fromString . render . pretty
+
 instance Pretty String where
     pretty = Text.PrettyPrint.text
 
-- 
2.52.0


From dfad80b163e2fdee17a2b07f4117d3d391884f26 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 12 Feb 2024 07:34:16 -0700
Subject: [PATCH 179/192] lt

---
 src/GM.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/GM.hs b/src/GM.hs
index 15e7e14..3feb86b 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -89,7 +89,7 @@ data Instr = Unwind
            -- arith
            | Neg | Add | Sub | Mul | Div
            -- comparison
-           | Equals
+           | Equals | Lesser
            | Pack Tag Int -- Pack Tag Arity
            | CaseJump [(Tag, Code)]
            | Split Int
@@ -212,6 +212,7 @@ step st = case head (st ^. gmCode) of
     Mul            -> mulI           
     Div            -> divI           
     Equals         -> equalsI           
+    Lesser         -> lesserI           
     Split      n   -> splitI        n
     Pack       t n -> packI       t n
     CaseJump    as -> caseJumpI    as
@@ -411,8 +412,9 @@ step st = case head (st ^. gmCode) of
         mulI = primitive2 boxInt unboxInt (*) st
         divI = primitive2 boxInt unboxInt div st
 
-        equalsI :: GmState
+        lesserI, equalsI :: GmState
         equalsI = primitive2 boxBool unboxInt (==) st
+        lesserI = primitive2 boxBool unboxInt (<) st
 
         splitI :: Int -> GmState
         splitI n = st
@@ -595,6 +597,7 @@ compiledPrims =
     , binop "*#" Mul
     , binop "/#" Div
     , binop "==#" Equals
+    , binop "<#" Lesser
     ]
     where
         unop k i = (k, 1, [Push 0, Eval, i, Update 1, Pop 1, Unwind])
@@ -733,6 +736,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
         compileE g ("*#" :$ a :$ b)  = inlineOp2 g Mul    a b
         compileE g ("/#" :$ a :$ b)  = inlineOp2 g Div    a b
         compileE g ("==#" :$ a :$ b) = inlineOp2 g Equals a b
+        compileE g ("<#" :$ a :$ b)  = inlineOp2 g Lesser a b
 
         compileE g (Case e as) = compileE g e <> [CaseJump (compileD g as)]
 
-- 
2.52.0


From 941f228c6c87ec4d2dfa978c0749e9738e27ece0 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 12 Feb 2024 07:44:10 -0700
Subject: [PATCH 180/192] decent state!

---
 examples/rlp/SumList.rl |  2 +-
 src/Rlp/Parse.y         |  1 +
 src/Rlp2Core.hs         | 27 +++++++++------------------
 3 files changed, 11 insertions(+), 19 deletions(-)

diff --git a/examples/rlp/SumList.rl b/examples/rlp/SumList.rl
index 9386c2f..4f9a49e 100644
--- a/examples/rlp/SumList.rl
+++ b/examples/rlp/SumList.rl
@@ -7,5 +7,5 @@ foldr f z l = case l of
 
 list = Cons 1 (Cons 2 (Cons 3 Nil))
 
-main = foldr f 0 list
+main = foldr (+#) 0 list
 
diff --git a/src/Rlp/Parse.y b/src/Rlp/Parse.y
index 652fccc..4b86aea 100644
--- a/src/Rlp/Parse.y
+++ b/src/Rlp/Parse.y
@@ -241,6 +241,7 @@ Lit         :: { Lit' RlpcPs }
 
 Var         :: { Located PsName }
 Var         : varname                   { mkPsName $1 }
+            | varsym                    { mkPsName $1 }
 
 Con         :: { Located PsName }
             : conname                   { mkPsName $1 }
diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 142f752..70ac008 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -28,6 +28,7 @@ import Data.Fix
 import Data.Maybe                       (fromJust, fromMaybe)
 import Data.Functor.Bind
 import Data.Function                    (on)
+import GHC.Stack
 import Debug.Trace
 
 import Effectful.State.Static.Local
@@ -91,23 +92,13 @@ declToCore (DataD'' n as ds) = fold . getZipList $
         t' = foldl TyApp (TyCon n) (TyVar . dsNameToName <$> as)
 
 -- TODO: where-binds
-declToCore fd@(FunD'' n as e _) = mempty & programScDefs .~ [ScDef n' as' e'']
+declToCore fd@(FunD'' n as e _) = mempty & programScDefs .~ [ScDef n' as' e']
     where
         n' = dsNameToName n
-        -- e   : verbatim function body
-        -- e'  : function body w/ case-exprs matching pattern arguments
-        -- e'' : exprToCore e'
-        (e',as') = mapAccumL patArgsToCase (extract e) (names `zip` as)
-        e'' = runPureEff . runNameSupply n $ exprToCore e'
-        names = [ nolo $ "$x_" <> tshow n | n <- [0..] ]
-        tshow = T.pack . show
-
-patArgsToCase :: RlpExpr RlpcPs -> (IdP' RlpcPs, Pat' RlpcPs)
-        -> (RlpExpr RlpcPs, Name)
-patArgsToCase e (x,p) = (e', x') where
-    x' = dsNameToName (extract x)
-    e' = CaseE (VarE <$> x) [(alt, [])]
-    alt = AltA p (nolo e)
+        e' = runPureEff . runNameSupply n . exprToCore . unXRec $ e
+        as' = as <&> \case
+            (unXRec -> VarP k) -> dsNameToName k
+            _                  -> error "no patargs yet"
 
 type NameSupply = Labeled NameSupplyLabel (State [IdP RlpcPs])
 type NameSupplyLabel = "expr-name-supply"
@@ -172,7 +163,7 @@ caseify p (unXRec -> e) i =
     alt = conToRose (unXRec p) <&> foldFix (branchToCore i)
 
 -- TODO: where-binds
-caseAltToCore :: (NameSupply :> es)
+caseAltToCore :: (HasCallStack, NameSupply :> es)
               => (Alt RlpcPs, Where RlpcPs) -> Eff es Alter'
 caseAltToCore (AltA (unXRec -> p) e, wh) = do
     e' <- exprToCore . unXRec $ e
@@ -188,7 +179,7 @@ altToCore' (unXRec -> p) (unXRec -> e) = do
     e' <- exprToCore e
     conToRose p <&> foldFix (branchToCore e')
 
-conToRose :: forall es. (NameSupply :> es) => Pat RlpcPs -> Eff es Rose
+conToRose :: forall es. (HasCallStack, NameSupply :> es) => Pat RlpcPs -> Eff es Rose
 conToRose (ConP cn as) = Fix . Branch cn <$> patToForrest `traverse` as
     where
         patToForrest :: Pat' RlpcPs -> Eff es (Tree Rose)
@@ -197,7 +188,7 @@ conToRose (ConP cn as) = Fix . Branch cn <$> patToForrest `traverse` as
             Right <$> liftA2 (,) uniqueName br
           where
             br = unwrapFix <$> conToRose (unXRec p)
-conToRose _ = error "conToRose: not a ConP!"
+conToRose s = error $ "conToRose: not a ConP!: " <> show s
 
 branchToCore :: Expr' -> Branch Alter' -> Alter'
 branchToCore e (Branch cn as) = Alter (AltData cn) myBinds e'
-- 
2.52.0


From 8ac301aa4823d44169e8ae697cf2ad7ea1feb8ef Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 12 Feb 2024 09:47:16 -0700
Subject: [PATCH 181/192] constants for bool tags

---
 src/GM.hs | 33 ++++++++++++++++++++-------------
 1 file changed, 20 insertions(+), 13 deletions(-)

diff --git a/src/GM.hs b/src/GM.hs
index 3feb86b..84da355 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -40,6 +40,12 @@ import Core2Core
 import Core
 ----------------------------------------------------------------------------------
 
+tag_Bool_True :: Int
+tag_Bool_True = 1
+
+tag_Bool_False :: Int
+tag_Bool_False = 0
+
 {-}
 
 hdbgProg = undefined
@@ -195,24 +201,24 @@ isFinal st = null $ st ^. gmCode
 
 step :: GmState -> GmState
 step st = case head (st ^. gmCode) of
-    Unwind         -> unwindI        
+    Unwind         -> unwindI
     PushGlobal n   -> pushGlobalI   n
     PushConstr t n -> pushConstrI t n
     PushInt    n   -> pushIntI      n
     Push       n   -> pushI         n
-    MkAp           -> mkApI          
+    MkAp           -> mkApI
     Slide      n   -> slideI        n
     Pop        n   -> popI          n
     Update     n   -> updateI       n
     Alloc      n   -> allocI        n
-    Eval           -> evalI          
-    Neg            -> negI           
-    Add            -> addI           
-    Sub            -> subI           
-    Mul            -> mulI           
-    Div            -> divI           
-    Equals         -> equalsI           
-    Lesser         -> lesserI           
+    Eval           -> evalI
+    Neg            -> negI
+    Add            -> addI
+    Sub            -> subI
+    Mul            -> mulI
+    Div            -> divI
+    Equals         -> equalsI
+    Lesser         -> lesserI
     Split      n   -> splitI        n
     Pack       t n -> packI       t n
     CaseJump    as -> caseJumpI    as
@@ -556,12 +562,13 @@ boxBool st p = st
     where
         h = st ^. gmHeap
         (h',a) = alloc h (NConstr p' [])
-        p' = if p then 1 else 0
+        p' = if p then tag_Bool_True else tag_Bool_False
 
 unboxBool :: Addr -> GmState -> Bool
 unboxBool a st = case hLookup a h of
-        Just (NConstr 1 []) -> True
-        Just (NConstr 0 []) -> False
+        Just (NConstr t [])
+            | t == tag_Bool_True  -> True
+            | t == tag_Bool_False -> False
         Just _              -> error "unboxInt received a non-int"
         Nothing             -> error "unboxInt received an invalid address"
     where h = st ^. gmHeap
-- 
2.52.0


From af42d4fbd60d9eb824a4443455ba11d238a987b6 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 12 Feb 2024 11:09:01 -0700
Subject: [PATCH 182/192] print# gm primitive

---
 src/Data/Heap.hs | 18 +++++++++++++++++-
 src/GM.hs        | 35 +++++++++++++++++++++++++++++++++++
 2 files changed, 52 insertions(+), 1 deletion(-)

diff --git a/src/Data/Heap.hs b/src/Data/Heap.hs
index 2fa28de..878cab6 100644
--- a/src/Data/Heap.hs
+++ b/src/Data/Heap.hs
@@ -27,6 +27,7 @@ import Debug.Trace
 import Data.Map.Strict              qualified as M
 import Data.List                    (intersect)
 import GHC.Stack                    (HasCallStack)
+import Control.Lens
 ----------------------------------------------------------------------------------
 
 data Heap a = Heap [Addr] (Map Addr a)
@@ -34,6 +35,21 @@ data Heap a = Heap [Addr] (Map Addr a)
 
 type Addr = Int
 
+type instance Index (Heap a) = Addr
+type instance IxValue (Heap a) = a
+
+instance Ixed (Heap a) where
+    ix a k (Heap as m) = Heap as <$> M.alterF k' a m where
+        k' (Just v) = Just <$> k v
+        k' Nothing = pure Nothing
+
+instance At (Heap a) where
+    at ma k (Heap as m) = Heap as <$> M.alterF k ma m
+
+instance FoldableWithIndex Addr Heap where
+    ifoldr fi z (Heap _ m) = ifoldr fi z m
+    ifoldMap iam (Heap _ m) = ifoldMap iam m
+
 instance Semigroup (Heap a) where
     Heap ua ma <> Heap ub mb = Heap u m
         where
@@ -54,7 +70,7 @@ instance Foldable Heap where
     length (Heap _ m) = M.size m
 
 instance Traversable Heap where
-    traverse t (Heap u m) = Heap u <$> (traverse t m)
+    traverse t (Heap u m) = Heap u <$> traverse t m
 
 ----------------------------------------------------------------------------------
 
diff --git a/src/GM.hs b/src/GM.hs
index 84da355..7e272f5 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -32,6 +32,11 @@ import Text.PrettyPrint             hiding ((<>))
 import Text.PrettyPrint.HughesPJ    (maybeParens)
 import Data.Foldable                (traverse_)
 import System.IO                    (Handle, hPutStrLn)
+-- TODO: an actual output system
+-- TODO: an actual output system
+-- TODO: an actual output system
+-- TODO: an actual output system
+import System.IO.Unsafe             (unsafePerformIO)
 import Data.String                  (IsString)
 import Data.Heap
 import Debug.Trace
@@ -40,6 +45,9 @@ import Core2Core
 import Core
 ----------------------------------------------------------------------------------
 
+tag_Unit_unit :: Int
+tag_Unit_unit = 0
+
 tag_Bool_True :: Int
 tag_Bool_True = 1
 
@@ -99,6 +107,7 @@ data Instr = Unwind
            | Pack Tag Int -- Pack Tag Arity
            | CaseJump [(Tag, Code)]
            | Split Int
+           | Print
            | Halt
            deriving (Show, Eq)
 
@@ -222,9 +231,33 @@ step st = case head (st ^. gmCode) of
     Split      n   -> splitI        n
     Pack       t n -> packI       t n
     CaseJump    as -> caseJumpI    as
+    Print          -> printI
     Halt           -> haltI
     where
 
+        printI :: GmState
+        printI = case hLookupUnsafe a h of
+            NNum n       -> (evilTempPrinter `seq` st)
+                          & gmCode .~ i
+                          & gmStack .~ s
+                where
+                    -- TODO: an actual output system
+                    -- TODO: an actual output system
+                    -- TODO: an actual output system
+                    -- TODO: an actual output system
+                    evilTempPrinter = unsafePerformIO (print n)
+            NConstr _ as -> st
+                          & gmCode .~ i' ++ i
+                          & gmStack .~ s'
+                where
+                    i' = mconcat $ replicate n [Eval,Print]
+                    n = length as
+                    s' = as ++ s
+          where
+            h = st ^. gmHeap
+            (a:s) = st ^. gmStack
+            Print : i = st ^. gmCode
+
         -- nuke the state
         haltI :: GmState
         haltI = error "halt#"
@@ -605,6 +638,8 @@ compiledPrims =
     , binop "/#" Div
     , binop "==#" Equals
     , binop "<#" Lesser
+    , ("print#", 1, [ Push 0, Eval, Print, Pack tag_Unit_unit 0, Update 1, Pop 1
+                    , Unwind])
     ]
     where
         unop k i = (k, 1, [Push 0, Eval, i, Update 1, Pop 1, Unwind])
-- 
2.52.0


From 7b271e5265e7eecafec8bdb8d9c3559507b6549a Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 12 Feb 2024 11:52:48 -0700
Subject: [PATCH 183/192] bind VarP after pats

---
 src/Rlp2Core.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Rlp2Core.hs b/src/Rlp2Core.hs
index 70ac008..b938b74 100644
--- a/src/Rlp2Core.hs
+++ b/src/Rlp2Core.hs
@@ -125,11 +125,11 @@ exprToCore (LitE l) = litToCore l
 letToCore :: forall es. (NameSupply :> es)
           => Rec -> [Rlp.Binding' RlpcPs] -> RlpExpr' RlpcPs -> Eff es Expr'
 letToCore r bs e = do
+    -- TODO: preserve binder order.
     (bs',as) <- getParts
-    e' <- appKendo (foldMap Kendo as) <=< exprToCore $ unXRec e
-    if null bs'
-        then pure e'
-        else pure $ Let r bs' e'
+    let insbs | null bs'  = pure
+              | otherwise = pure . Let r bs'
+    appKendo (foldMap Kendo (as `snoc` insbs)) <=< exprToCore $ unXRec e
   where
     -- partition & map the list of binders into:
     --  bs'   : the let-binds that may be directly translated to Core
-- 
2.52.0


From de16bf12df9e5d06f661e063fa73d20e5f506e9d Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 13 Feb 2024 10:42:17 -0700
Subject: [PATCH 184/192] fix: tag nested data names

---
 src/Core2Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Core2Core.hs b/src/Core2Core.hs
index a187a63..d1bcfe3 100644
--- a/src/Core2Core.hs
+++ b/src/Core2Core.hs
@@ -70,7 +70,7 @@ tagData p = let ?dt = p ^. programDataTags
     go x                = embed x
 
     tagAlts :: (?dt :: HashMap Name (Tag, Int)) => Alter' -> Alter'
-    tagAlts (Alter (AltData c) bs e) = Alter (AltTag tag) bs e
+    tagAlts (Alter (AltData c) bs e) = Alter (AltTag tag) bs (cata go e)
         where tag = case ?dt ^. at c of
                 Just (t,_) -> t
                 -- TODO: errorful
-- 
2.52.0


From bb41d3c1963a428842d6fee81e29935a86545237 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 13 Feb 2024 10:42:45 -0700
Subject: [PATCH 185/192] gte gm prim

---
 src/GM.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/GM.hs b/src/GM.hs
index 7e272f5..511ff9f 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -103,7 +103,7 @@ data Instr = Unwind
            -- arith
            | Neg | Add | Sub | Mul | Div
            -- comparison
-           | Equals | Lesser
+           | Equals | Lesser | GreaterEq
            | Pack Tag Int -- Pack Tag Arity
            | CaseJump [(Tag, Code)]
            | Split Int
@@ -228,6 +228,7 @@ step st = case head (st ^. gmCode) of
     Div            -> divI
     Equals         -> equalsI
     Lesser         -> lesserI
+    GreaterEq      -> greaterEqI
     Split      n   -> splitI        n
     Pack       t n -> packI       t n
     CaseJump    as -> caseJumpI    as
@@ -451,9 +452,10 @@ step st = case head (st ^. gmCode) of
         mulI = primitive2 boxInt unboxInt (*) st
         divI = primitive2 boxInt unboxInt div st
 
-        lesserI, equalsI :: GmState
+        lesserI, greaterEqI, equalsI :: GmState
         equalsI = primitive2 boxBool unboxInt (==) st
         lesserI = primitive2 boxBool unboxInt (<) st
+        greaterEqI = primitive2 boxBool unboxInt (>=) st
 
         splitI :: Int -> GmState
         splitI n = st
@@ -638,6 +640,7 @@ compiledPrims =
     , binop "/#" Div
     , binop "==#" Equals
     , binop "<#" Lesser
+    , binop ">=#" GreaterEq
     , ("print#", 1, [ Push 0, Eval, Print, Pack tag_Unit_unit 0, Update 1, Pop 1
                     , Unwind])
     ]
@@ -743,7 +746,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
                 mconcat binders <> compileE g' e <> [Slide d]
             where
                 d = length bs
-                (g',binders) = mapAccumL compileBinder (argOffset d g) addressed
+                (g',binders) = mapAccumL compileBinder (argOffset (d-1) g) addressed
                 -- kinda gross. revisit this
                 addressed = bs `zip` reverse [0 .. d-1]
 
@@ -779,6 +782,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
         compileE g ("/#" :$ a :$ b)  = inlineOp2 g Div    a b
         compileE g ("==#" :$ a :$ b) = inlineOp2 g Equals a b
         compileE g ("<#" :$ a :$ b)  = inlineOp2 g Lesser a b
+        compileE g (">=#" :$ a :$ b)  = inlineOp2 g GreaterEq a b
 
         compileE g (Case e as) = compileE g e <> [CaseJump (compileD g as)]
 
-- 
2.52.0


From cd2a283493b32c117189f4315e601a9514a58ebd Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 13 Feb 2024 11:48:03 -0700
Subject: [PATCH 186/192] more nightmare GM fixes

---
 src/GM.hs | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/src/GM.hs b/src/GM.hs
index 511ff9f..942e661 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -11,6 +11,7 @@ module GM
     , evalProgR
     , Node(..)
     , gmEvalProg
+    , Stats(..)
     , finalStateOf
     , resultOf
     , resultOfExpr
@@ -642,7 +643,7 @@ compiledPrims =
     , binop "<#" Lesser
     , binop ">=#" GreaterEq
     , ("print#", 1, [ Push 0, Eval, Print, Pack tag_Unit_unit 0, Update 1, Pop 1
-                    , Unwind])
+                    , Unwind ])
     ]
     where
         unop k i = (k, 1, [Push 0, Eval, i, Update 1, Pop 1, Unwind])
@@ -743,17 +744,16 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
         compileE _ (Lit l) = compileEL l
         compileE g (Let NonRec bs e) =
                 -- we use compileE instead of compileC
-                mconcat binders <> compileE g' e <> [Slide d]
+                mconcat binders <> compileE (trc g') e <> [Slide d]
             where
+                trc = traceWith (\s -> "compileE.g': "<>show s)
                 d = length bs
-                (g',binders) = mapAccumL compileBinder (argOffset (d-1) g) addressed
-                -- kinda gross. revisit this
-                addressed = bs `zip` reverse [0 .. d-1]
+                (g',binders) = mapAccumL compileBinder g bs
 
-                compileBinder :: Env -> (Binding', Int) -> (Env, Code)
-                compileBinder m (k := v, a) = (m',c)
+                compileBinder :: Env -> Binding' -> (Env, Code)
+                compileBinder m (k := v) = (m',c)
                     where
-                        m' = (NameKey k, a) : m
+                        m' = (NameKey k, 0) : argOffset 1 m
                         -- make note that we use m rather than m'!
                         c = compileC m v
 
@@ -796,7 +796,8 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
             where
                 n = length as
                 binds = (NameKey <$> as) `zip` [0..]
-                g' = binds ++ argOffset n g
+                g' = traceWith (\s -> "compileA.g': "<>show s) $
+                    binds ++ argOffset n g
                 c = compileE g' e
         compileA _ (Alter _ as e) = error "GM.compileA found an untagged\
                                           \ constructor, which should have\
-- 
2.52.0


From 81b019e659b1b66b25eda2fd16b670896a66b415 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 13 Feb 2024 11:50:10 -0700
Subject: [PATCH 187/192] QuickSort example works i'm gonig to cry

---
 examples/rlp/QuickSort.rl | 40 +++++++++++++++++++++++++++++++++++++++
 src/Compiler/JustRun.hs   | 11 ++++++++++-
 2 files changed, 50 insertions(+), 1 deletion(-)
 create mode 100644 examples/rlp/QuickSort.rl

diff --git a/examples/rlp/QuickSort.rl b/examples/rlp/QuickSort.rl
new file mode 100644
index 0000000..1d45c1f
--- /dev/null
+++ b/examples/rlp/QuickSort.rl
@@ -0,0 +1,40 @@
+data List a = Nil | Cons a (List a)
+
+data Bool = False | True
+
+filter :: (a -> Bool) -> List a -> List a
+filter p l = case l of
+    Nil -> Nil
+    Cons a as ->
+        case p a of
+            True -> Cons a (filter p as)
+            False -> filter p as
+
+append :: List a -> List a -> List a
+append p q = case p of
+    Nil -> q
+    Cons a as -> Cons a (append as q)
+
+qsort :: List Int# -> List Int#
+qsort l = case l of
+    Nil -> Nil
+    Cons a as ->
+        let lesser = filter (>=# a) as
+            greater = filter (<# a) as
+        in append (append (qsort lesser) (Cons a Nil)) (qsort greater)
+
+list = Cons 9 (Cons 2 (Cons 3 (Cons 2
+            (Cons 5 (Cons 2 (Cons 12 (Cons 89 Nil)))))))
+
+list2 = Cons 2 (Cons 3 Nil)
+
+lt :: Int# -> Int# -> Bool
+lt a = (>=# a)
+
+gte :: Int# -> Int# -> Bool
+gte a = (<# a)
+
+id x = x
+
+main = print# (qsort list)
+
diff --git a/src/Compiler/JustRun.hs b/src/Compiler/JustRun.hs
index 23cdc9e..8046603 100644
--- a/src/Compiler/JustRun.hs
+++ b/src/Compiler/JustRun.hs
@@ -11,6 +11,7 @@ module Compiler.JustRun
     ( justLexCore
     , justParseCore
     , justTypeCheckCore
+    , justHdbg
     )
     where
 ----------------------------------------------------------------------------------
@@ -20,14 +21,22 @@ import Core.HindleyMilner
 import Core.Syntax                      (Program')
 import Compiler.RLPC
 import Control.Arrow                    ((>>>))
-import Control.Monad                    ((>=>))
+import Control.Monad                    ((>=>), void)
 import Control.Comonad
 import Control.Lens
 import Data.Text                        qualified as T
 import Data.Function                    ((&))
+import System.IO
 import GM
+import Rlp.Parse
+import Rlp2Core
 ----------------------------------------------------------------------------------
 
+justHdbg :: String -> IO (Node, Stats)
+justHdbg s = do
+    p <- evalRLPCIO def (parseRlpProgR >=> desugarRlpProgR $ T.pack s)
+    withFile "/tmp/t.log" WriteMode $ hdbgProg p
+
 justLexCore :: String -> Either [MsgEnvelope RlpcError] [CoreToken]
 justLexCore s = lexCoreR (T.pack s)
               & mapped . each %~ extract
-- 
2.52.0


From 968832bfaf30d49c41014327283febcece630c46 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 13 Feb 2024 11:51:10 -0700
Subject: [PATCH 188/192] remove debug code

---
 examples/rlp/QuickSort.rl | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/examples/rlp/QuickSort.rl b/examples/rlp/QuickSort.rl
index 1d45c1f..4d65229 100644
--- a/examples/rlp/QuickSort.rl
+++ b/examples/rlp/QuickSort.rl
@@ -26,15 +26,5 @@ qsort l = case l of
 list = Cons 9 (Cons 2 (Cons 3 (Cons 2
             (Cons 5 (Cons 2 (Cons 12 (Cons 89 Nil)))))))
 
-list2 = Cons 2 (Cons 3 Nil)
-
-lt :: Int# -> Int# -> Bool
-lt a = (>=# a)
-
-gte :: Int# -> Int# -> Bool
-gte a = (<# a)
-
-id x = x
-
 main = print# (qsort list)
 
-- 
2.52.0


From 8267548fabc713bb6eca2ff9cc79dcdb72a18709 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 13 Feb 2024 12:01:46 -0700
Subject: [PATCH 189/192] remove debug tracers

---
 examples/rlp/QuickSort.rl | 1 +
 src/GM.hs                 | 6 ++----
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/examples/rlp/QuickSort.rl b/examples/rlp/QuickSort.rl
index 4d65229..c374aa6 100644
--- a/examples/rlp/QuickSort.rl
+++ b/examples/rlp/QuickSort.rl
@@ -23,6 +23,7 @@ qsort l = case l of
             greater = filter (<# a) as
         in append (append (qsort lesser) (Cons a Nil)) (qsort greater)
 
+list :: List Int#
 list = Cons 9 (Cons 2 (Cons 3 (Cons 2
             (Cons 5 (Cons 2 (Cons 12 (Cons 89 Nil)))))))
 
diff --git a/src/GM.hs b/src/GM.hs
index 942e661..5809f16 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -744,9 +744,8 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
         compileE _ (Lit l) = compileEL l
         compileE g (Let NonRec bs e) =
                 -- we use compileE instead of compileC
-                mconcat binders <> compileE (trc g') e <> [Slide d]
+                mconcat binders <> compileE g' e <> [Slide d]
             where
-                trc = traceWith (\s -> "compileE.g': "<>show s)
                 d = length bs
                 (g',binders) = mapAccumL compileBinder g bs
 
@@ -796,8 +795,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
             where
                 n = length as
                 binds = (NameKey <$> as) `zip` [0..]
-                g' = traceWith (\s -> "compileA.g': "<>show s) $
-                    binds ++ argOffset n g
+                g' = binds ++ argOffset n g
                 c = compileE g' e
         compileA _ (Alter _ as e) = error "GM.compileA found an untagged\
                                           \ constructor, which should have\
-- 
2.52.0


From 4c9ceb74d14e3f2956b3be2aa91b5cfc289b87be Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 13 Feb 2024 12:52:06 -0700
Subject: [PATCH 190/192] ready?

---
 examples/rlp/SumList.rl | 2 +-
 src/Compiler/JustRun.hs | 2 +-
 src/GM.hs               | 7 +++++--
 tst/Arith.hs            | 1 +
 4 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/examples/rlp/SumList.rl b/examples/rlp/SumList.rl
index 4f9a49e..92cd410 100644
--- a/examples/rlp/SumList.rl
+++ b/examples/rlp/SumList.rl
@@ -7,5 +7,5 @@ foldr f z l = case l of
 
 list = Cons 1 (Cons 2 (Cons 3 Nil))
 
-main = foldr (+#) 0 list
+main = print# (foldr (+#) 0 list)
 
diff --git a/src/Compiler/JustRun.hs b/src/Compiler/JustRun.hs
index 8046603..055062a 100644
--- a/src/Compiler/JustRun.hs
+++ b/src/Compiler/JustRun.hs
@@ -32,7 +32,7 @@ import Rlp.Parse
 import Rlp2Core
 ----------------------------------------------------------------------------------
 
-justHdbg :: String -> IO (Node, Stats)
+justHdbg :: String -> IO GmState
 justHdbg s = do
     p <- evalRLPCIO def (parseRlpProgR >=> desugarRlpProgR $ T.pack s)
     withFile "/tmp/t.log" WriteMode $ hdbgProg p
diff --git a/src/GM.hs b/src/GM.hs
index 5809f16..d4493cf 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -9,7 +9,10 @@ module GM
     ( hdbgProg
     , evalProg
     , evalProgR
+    , GmState(..)
+    , gmCode, gmStack, gmDump, gmHeap, gmEnv, gmStats
     , Node(..)
+    , showState
     , gmEvalProg
     , Stats(..)
     , finalStateOf
@@ -153,7 +156,7 @@ evalProg p = res <&> (,sts)
         resAddr = final ^. gmStack ^? _head
         res = resAddr >>= flip hLookup h
 
-hdbgProg :: Program' -> Handle -> IO (Node, Stats)
+hdbgProg :: Program' -> Handle -> IO GmState
 hdbgProg p hio = do
     (renderOut . showState) `traverse_` states
     -- TODO: i'd like the statistics to be at the top of the file, but `sts`
@@ -161,7 +164,7 @@ hdbgProg p hio = do
     -- *can't* get partial logs in the case of a crash. this is in opposition to
     -- the above traversal which *will* produce partial logs. i love laziness :3
     renderOut . showStats $ sts
-    pure (res, sts)
+    pure final
     where
         renderOut r = hPutStrLn hio $ render r ++ "\n"
 
diff --git a/tst/Arith.hs b/tst/Arith.hs
index 2c168c4..2bfb7ed 100644
--- a/tst/Arith.hs
+++ b/tst/Arith.hs
@@ -41,6 +41,7 @@ evalArith (a ::* b)   = evalArith a * evalArith b
 evalArith (a ::- b)   = evalArith a - evalArith b
 
 instance Arbitrary ArithExpr where
+    -- TODO: implement shrink
     arbitrary = gen 4
         where
             gen :: Int -> Gen ArithExpr
-- 
2.52.0


From c57da862ae1afe60ce8685b00d88a45d07185097 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 13 Feb 2024 12:57:01 -0700
Subject: [PATCH 191/192] update readme

---
 README.md | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/README.md b/README.md
index 460fced..616061b 100644
--- a/README.md
+++ b/README.md
@@ -26,12 +26,14 @@ $ cabal test --test-show-details=direct
 #### TLDR
 
 ```sh
-# Compile and evaluate examples/factorial.cr, with evaluation info dumped to stderr
-$ rlpc -ddump-eval examples/factorial.cr
+# Compile and evaluate examples/rlp/QuickSort.rl
+$ rlpc examples/QuickSort.rl
 # Compile and evaluate t.cr, with evaluation info dumped to t.log
 $ rlpc -ddump-eval -l t.log t.cr
 # Compile and evaluate t.rl, dumping the desugared Core
 $ rlpc -ddump-desugared t.rl
+# Compile and evaluate t.rl with all compiler messages enabled
+$ rlpc -dALL t.rl
 ```
 
 #### Options
@@ -126,7 +128,7 @@ parsing remains.
     - [x] Garbage Collection
 - [ ] Stable documentation for the evaluation model
 
-### February Release Plan
+### ~~February Release Plan~~
 - [x] Beta rl' to Core
 - [x] UX improvements
     - [x] Actual compiler errors -- no more unexceptional `error` calls
@@ -134,12 +136,14 @@ parsing remains.
     - [x] Annotate the AST with token positions for errors (NOTE: As of Feb. 1,
       this has been done, but the locational info is not yet used in error messages)
 - [x] Compiler architecture diagram
-- [ ] More examples
+- [x] More examples
 
 ### March Release Plan
 - [ ] Tests
     - [ ] rl' parser
     - [ ] rl' lexer
+- [ ] Ditch TTG in favour of a simpler AST focusing on extendability via Fix, Free, 
+  Cofree, etc. rather than boilerplate-heavy type families
 
 ### Indefinite Release Plan
 
@@ -150,8 +154,6 @@ than the other release plans.
     - [ ] Complete all TODOs
     - [ ] Replace mtl with effectful
 - [ ] rl' type-checker
-- [ ] Ditch TTG in favour of a simpler AST focusing on extendability via Fix, Free, 
-  Cofree, etc. rather than boilerplate-heavy type families
 - [ ] Stable rl' to Core
 - [ ] Core polish
     - [ ] Better, stable parser
@@ -160,3 +162,4 @@ than the other release plans.
     - [ ] Less hacky pragmas
 - [ ] Choose a target. LLVM, JS, C, and WASM are currently top contenders
 - [ ] https://proglangdesign.net/wiki/challenges
+
-- 
2.52.0


From ccc71a751c550f3a7c91eba3877e8061514c1140 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Tue, 13 Feb 2024 13:20:39 -0700
Subject: [PATCH 192/192] remove bad, incorrct, outdated docs

---
 doc/src/commentary/gm.rst            |  49 +--------
 doc/src/commentary/layout-lexing.rst | 153 ---------------------------
 src/GM.hs                            |   2 +
 3 files changed, 7 insertions(+), 197 deletions(-)

diff --git a/doc/src/commentary/gm.rst b/doc/src/commentary/gm.rst
index d1ae166..e471c95 100644
--- a/doc/src/commentary/gm.rst
+++ b/doc/src/commentary/gm.rst
@@ -63,52 +63,13 @@ an assembly target. The goal of our new G-Machine is to compile a *linear
 sequence of instructions* which, **when executed**, build up a graph
 representing the code.
 
-**************************
-Trees and Vines, in Theory
-**************************
-
-Rather than instantiating an expression at runtime -- traversing the AST and
-building a graph -- we want to compile all expressions at compile-time,
-generating a linear sequence of instructions which may be executed to build the
-graph.
-
-**************************
-Evaluation: Slurping Vines
-**************************
-
-WIP.
-
-Laziness
---------
-
-WIP.
-
-* Instead of :code:`Slide (n+1); Unwind`, do :code:`Update n; Pop n; Unwind`
-
-****************************
-Compilation: Squashing Trees
-****************************
-
-WIP.
-
-Notice that we do not keep a (local) environment at run-time. The environment
-only exists at compile-time to map local names to stack indices. When compiling
-a supercombinator, the arguments are enumerated from zero (the top of the
-stack), and passed to :code:`compileR` as an environment.
+*************
+The G-Machine
+*************
 
 .. literalinclude:: /../../src/GM.hs
    :dedent:
-   :start-after: -- >> [ref/compileSc]
-   :end-before: -- << [ref/compileSc]
-   :caption: src/GM.hs
-
-Of course, variables being indexed relative to the top of the stack means that
-they will become inaccurate the moment we push or pop the stack a single time.
-The way around this is quite simple: simply offset the stack when w
-
-.. literalinclude:: /../../src/GM.hs
-   :dedent:
-   :start-after: -- >> [ref/compileC]
-   :end-before: -- << [ref/compileC]
+   :start-after: -- >> [ref/Instr]
+   :end-before: -- << [ref/Instr]
    :caption: src/GM.hs
 
diff --git a/doc/src/commentary/layout-lexing.rst b/doc/src/commentary/layout-lexing.rst
index 2039b35..e000c3a 100644
--- a/doc/src/commentary/layout-lexing.rst
+++ b/doc/src/commentary/layout-lexing.rst
@@ -62,159 +62,6 @@ braces and semicolons. In developing our *layout* rules, we will follow in the
 pattern of translating the whitespace-sensitive source language to an explicitly
 sectioned language.
 
-But What About Haskell?
-***********************
-
-Parsing Haskell -- and thus rl' -- is only slightly more complex than Python,
-but the design is certainly more sensitive. 
-
-.. code-block:: haskell
-
-   -- line folds
-   something = this is a
-       single expression
-
-   -- an extremely common style found in haskell
-   data Some = Data
-       { is    :: Presented
-       , in    :: This
-       , silly :: Style
-       }
-
-   -- another style oddity
-   -- note that this is not a single
-   -- continued line! `look at`,
-   -- `this odd`, and `alignment` are all
-   -- discrete items!
-   anotherThing = do look at
-                     this odd
-                     alignment
-
-But enough fear, lets actually think about implementation. Firstly, some
-formality: what do we mean when we say layout? We will define layout as the
-rules we apply to an implicitly-sectioned language in order to yield one that is
-explicitly-sectioned. We will also define indentation of a lexeme as the column
-number of its first character.
-
-Thankfully for us, our entry point is quite clear; layouts only appear after a
-select few keywords, (with a minor exception; TODO: elaborate) being :code:`let`
-(followed by supercombinators), :code:`where` (followed by supercombinators),
-:code:`do` (followed by expressions), and :code:`of` (followed by alternatives)
-(TODO: all of these terms need linked glossary entries). In order to manage the
-cascade of layout contexts, our lexer will record a stack for which each element
-is either :math:`\varnothing`, denoting an explicit layout written with braces
-and semicolons, or a :math:`\langle n \rangle`, denoting an implicitly laid-out
-layout where the start of each item belonging to the layout is indented
-:math:`n` columns.
-
-.. code-block:: haskell
-
-    -- layout stack: []
-    module M where -- layout stack: [∅]
-
-    f x = let -- layout keyword; remember indentation of next token
-              y = w * w -- layout stack: [∅, <10>]
-              w = x + x
-              -- layout ends here
-          in do -- layout keyword; next token is a brace!
-              { -- layout stack: [∅]
-                  print y;
-                  print x;
-              }
-
-Finally, we also need the concept of "virtual" brace tokens, which as far as
-we're concerned at this moment are exactly like normal brace tokens, except
-implicitly inserted by the compiler. With the presented ideas in mind, we may
-begin to introduce a small set of informal rules describing the lexer's handling
-of layouts, the first being:
-
-1. If a layout keyword is followed by the token '{', push :math:`\varnothing`
-   onto the layout context stack. Otherwise, push :math:`\langle n \rangle` onto
-   the layout context stack where :math:`n` is the indentation of the token
-   following the layout keyword. Additionally, the lexer is to insert a virtual
-   opening brace after the token representing the layout keyword.
-
-Consider the following observations from that previous code sample:
-
-* Function definitions should belong to a layout, each of which may start at
-  column 1.
-
-* A layout can enclose multiple bodies, as seen in the :code:`let`-bindings and
-  the :code:`do`-expression.
-
-* Semicolons should *terminate* items, rather than *separate* them.
-
-Our current focus is the semicolons. In an implicit layout, items are on
-separate lines each aligned with the previous. A naïve implementation would be
-to insert the semicolon token when the EOL is reached, but this proves unideal
-when you consider the alignment requirement. In our implementation, our lexer
-will wait until the first token on a new line is reached, then compare
-indentation and insert a semicolon if appropriate. This comparison -- the
-nondescript measurement of "more, less, or equal indentation" rather than a
-numeric value -- is referred to as *offside* by myself internally and the
-Haskell report describing layouts. We informally formalise this rule as follows:
-
-2. When the first token on a line is preceeded only by whitespace, if the
-   token's first grapheme resides on a column number :math:`m` equal to the
-   indentation level of the enclosing context -- i.e. the :math:`\langle n
-   \rangle` on top of the layout stack. Should no such context exist on the
-   stack, assume :math:`m > n`.
-
-We have an idea of how to begin layouts, delimit the enclosed items, and last
-we'll need to end layouts. This is where the distinction between virtual and
-non-virtual brace tokens comes into play. The lexer needs only partial concern
-towards closing layouts; the complete responsibility is shared with the parser.
-This will be elaborated on in the next section. For now, we will be content with
-naïvely inserting a virtual closing brace when a token is indented right of the
-layout.
-
-3. Under the same conditions as rule 2., when :math:`m < n` the lexer shall
-   insert a virtual closing brace and pop the layout stack.
-
-This rule covers some cases including the top-level, however, consider
-tokenising the :code:`in` in a :code:`let`-expression. If our lexical analysis
-framework only allows for lexing a single token at a time, we cannot return both
-a virtual right-brace and a :code:`in`. Under this model, the lexer may simply
-pop the layout stack and return the :code:`in` token. As we'll see in the next
-section, as long as the lexer keeps track of its own context (i.e. the stack),
-the parser will cope just fine without the virtual end-brace.
-
-Parsing Lonely Braces
-*********************
-
-When viewed in the abstract, parsing and tokenising are near-identical tasks yet
-the two are very often decomposed into discrete systems with very different
-implementations. Lexers operate on streams of text and tokens, while parsers
-are typically far less linear, using a parse stack or recursing top-down. A
-big reason for this separation is state management: the parser aims to be as
-context-free as possible, while the lexer tends to burden the necessary
-statefulness. Still, the nature of a stream-oriented lexer makes backtracking
-difficult and quite inelegant.
-
-However, simply declaring a parse error to be not an error at all
-counterintuitively proves to be an elegant solution our layout problem which
-minimises backtracking and state in both the lexer and the parser. Consider the
-following definitions found in rlp's BNF:
-
-.. productionlist:: rlp
-   VOpen   : `vopen`
-   VClose  : `vclose` | `error`
-
-A parse error is recovered and treated as a closing brace. Another point of note
-in the BNF is the difference between virtual and non-virtual braces (TODO: i
-don't like that the BNF is formatted without newlines :/):
-
-.. productionlist:: rlp
-   LetExpr : `let` VOpen Bindings VClose `in` Expr | `let` `{` Bindings `}` `in` Expr
-
-This ensures that non-virtual braces are closed explicitly.
-
-This set of rules is adequete enough to satisfy our basic concerns about line
-continations and layout lists. For a more pedantic description of the layout
-system, see `chapter 10
-<https://www.haskell.org/onlinereport/haskell2010/haskellch10.html>`_ of the
-2010 Haskell Report, which I heavily referenced here.
-
 References
 ----------
 
diff --git a/src/GM.hs b/src/GM.hs
index d4493cf..c815e83 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -93,6 +93,7 @@ data Key = NameKey Name
          | ConstrKey Tag Int
          deriving (Show, Eq)
 
+-- >> [ref/Instr]
 data Instr = Unwind
            | PushGlobal Name
            | PushConstr Tag Int
@@ -114,6 +115,7 @@ data Instr = Unwind
            | Print
            | Halt
            deriving (Show, Eq)
+-- << [ref/Instr]
 
 data Node = NNum Int
           | NAp Addr Addr
-- 
2.52.0