show typechecked source code in .out files & fix local function handling (again)

138 files changed, 10597 insertions, 2008 deletions

diff --git a/testdata/Builtins.out b/testdata/Builtins.out
index 2c4b1a46..e5a33d12 100644
--- a/testdata/Builtins.out
+++ b/testdata/Builtins.out
@@ -10,7 +10,7 @@ data VecS (_ :: Type) :: Nat -> Type where
 mapVec :: forall (a :: _) (b :: _) (c :: _) . (a -> b) -> VecS a c -> VecS b c
 mapVec
   = \(a :: _) (b :: _) -> case'VecS
-    (\_ _ -> _)
+    (\(_ :: _) (_ :: _) -> _)
     (\(c :: _) (d :: _) -> _rhs (V2 (a c) (a d)))
     (\(e :: _) (f :: _) (g :: _) -> _rhs (V3 (a e) (a f) (a g)))
     (\(h :: _) (i :: _) (j :: _) (k :: _) -> _rhs (V4 (a h) (a i) (a j) (a k)))
@@ -22,10 +22,10 @@ mapVec
 'VecScalar :: Nat -> Type -> Type
 'VecScalar
   = \(a :: _) (b :: _) -> case'Nat
-    (\_ -> _)
+    (\(_ :: _) -> _)
     undefined
     (\(c :: _) -> case'Nat
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs b)
       (\(d :: _) -> _rhs ('Vec (Succ (Succ d)) b))
       c)
@@ -72,31 +72,35 @@ data Mat :: Nat -> Nat -> Type -> Type where
 'MatVecScalarElem :: Type -> Type
 'MatVecScalarElem
   = \(a :: _) -> match'Float
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs 'Float)
     a
     (match'Bool
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs 'Bool)
       a
       (match'Int
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs 'Int)
         a
         (match'VecS
-          (\_ -> _)
-          (\(b :: _) _ -> _rhs b)
+          (\(_ :: _) -> _)
+          (\(b :: _) (_ :: _) -> _rhs b)
           a
-          (match'Mat (\_ -> _) (\_ _ (c :: _) -> _rhs c) a undefined))))
+          (match'Mat
+            (\(_ :: _) -> _)
+            (\(_ :: _) (_ :: _) (c :: _) -> _rhs c)
+            a
+            undefined))))
 
 'Signed :: Type -> Constraint
 'Signed
   = \(a :: _) -> match'Int
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs 'CUnit)
     a
     (match'Float
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs 'CUnit)
       a
       (_rhs ('CEmpty "no instance of 'Signed on ???")))
@@ -104,37 +108,37 @@ data Mat :: Nat -> Nat -> Type -> Type where
 'Component :: Type -> Constraint
 'Component
   = \(a :: _) -> match'Int
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs 'CUnit)
     a
     (match'Word
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs 'CUnit)
       a
       (match'Float
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs 'CUnit)
         a
         (match'VecS
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (\(b :: _) (c :: _) -> match'Float
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (case'Nat
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (_rhs ('CEmpty "no instance of 'Component on ???"))
               (\(d :: _) -> case'Nat
-                (\_ -> _)
+                (\(_ :: _) -> _)
                 (_rhs ('CEmpty "no instance of 'Component on ???"))
                 (\(e :: _) -> case'Nat
-                  (\_ -> _)
+                  (\(_ :: _) -> _)
                   (_rhs 'CUnit)
                   (\(f :: _) -> case'Nat
-                    (\_ -> _)
+                    (\(_ :: _) -> _)
                     (_rhs 'CUnit)
                     (\(g :: _) -> case'Nat
-                      (\_ -> _)
+                      (\(_ :: _) -> _)
                       (_rhs 'CUnit)
-                      (\_ -> _rhs ('CEmpty "no instance of 'Component on ???"))
+                      (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Component on ???"))
                       g)
                     f)
                   e)
@@ -142,23 +146,23 @@ data Mat :: Nat -> Nat -> Type -> Type where
               c)
             b
             (match'Bool
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (case'Nat
-                (\_ -> _)
+                (\(_ :: _) -> _)
                 (_rhs ('CEmpty "no instance of 'Component on ???"))
                 (\(h :: _) -> case'Nat
-                  (\_ -> _)
+                  (\(_ :: _) -> _)
                   (_rhs ('CEmpty "no instance of 'Component on ???"))
                   (\(i :: _) -> case'Nat
-                    (\_ -> _)
+                    (\(_ :: _) -> _)
                     (_rhs 'CUnit)
                     (\(j :: _) -> case'Nat
-                      (\_ -> _)
+                      (\(_ :: _) -> _)
                       (_rhs 'CUnit)
                       (\(k :: _) -> case'Nat
-                        (\_ -> _)
+                        (\(_ :: _) -> _)
                         (_rhs 'CUnit)
-                        (\_ -> _rhs ('CEmpty "no instance of 'Component on ???"))
+                        (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Component on ???"))
                         k)
                       j)
                     i)
@@ -168,45 +172,45 @@ data Mat :: Nat -> Nat -> Type -> Type where
               (_rhs ('CEmpty "no instance of 'Component on ???"))))
           a
           (match'Bool
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (_rhs 'CUnit)
             a
             (_rhs ('CEmpty "no instance of 'Component on ???"))))))
 
 zero :: forall a . Component a => a
 zero
-  = \ @a @_ -> match'Int
-    (\_ -> _)
+  = \ @a @(_ :: _) -> match'Int
+    (\(_ :: _) -> _)
     (_rhs let b = _rhs (fromInt 0 :: Int) in b)
     a
     (match'Word
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs let c = _rhs (fromInt 0 :: Word) in c)
       a
       (match'Float
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs let d = _rhs 0.0 in d)
         a
         (match'VecS
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (\(e :: _) (f :: _) -> match'Float
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (case'Nat
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (_rhs undefined)
               (\(g :: _) -> case'Nat
-                (\_ -> _)
+                (\(_ :: _) -> _)
                 (_rhs undefined)
                 (\(h :: _) -> case'Nat
-                  (\_ -> _)
+                  (\(_ :: _) -> _)
                   (_rhs let i = _rhs (V2 0.0 0.0) in i)
                   (\(j :: _) -> case'Nat
-                    (\_ -> _)
+                    (\(_ :: _) -> _)
                     (_rhs let k = _rhs (V3 0.0 0.0 0.0) in k)
                     (\(l :: _) -> case'Nat
-                      (\_ -> _)
+                      (\(_ :: _) -> _)
                       (_rhs let m = _rhs (V4 0.0 0.0 0.0 0.0) in m)
-                      (\_ -> _rhs undefined)
+                      (\(_ :: _) -> _rhs undefined)
                       l)
                     j)
                   h)
@@ -214,23 +218,23 @@ zero
               f)
             e
             (match'Bool
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (case'Nat
-                (\_ -> _)
+                (\(_ :: _) -> _)
                 (_rhs undefined)
                 (\(n :: _) -> case'Nat
-                  (\_ -> _)
+                  (\(_ :: _) -> _)
                   (_rhs undefined)
                   (\(o :: _) -> case'Nat
-                    (\_ -> _)
+                    (\(_ :: _) -> _)
                     (_rhs let p = _rhs (V2 False False) in p)
                     (\(q :: _) -> case'Nat
-                      (\_ -> _)
+                      (\(_ :: _) -> _)
                       (_rhs let r = _rhs (V3 False False False) in r)
                       (\(s :: _) -> case'Nat
-                        (\_ -> _)
+                        (\(_ :: _) -> _)
                         (_rhs let t = _rhs (V4 False False False False) in t)
-                        (\_ -> _rhs undefined)
+                        (\(_ :: _) -> _rhs undefined)
                         s)
                       q)
                     o)
@@ -239,42 +243,46 @@ zero
               e
               (_rhs undefined)))
           a
-          (match'Bool (\_ -> _) (_rhs let u = _rhs False in u) a (_rhs undefined)))))
+          (match'Bool
+            (\(_ :: _) -> _)
+            (_rhs let u = _rhs False in u)
+            a
+            (_rhs undefined)))))
 
 one :: forall a . Component a => a
 one
-  = \ @a @_ -> match'Int
-    (\_ -> _)
+  = \ @a @(_ :: _) -> match'Int
+    (\(_ :: _) -> _)
     (_rhs let b = _rhs (fromInt 1 :: Int) in b)
     a
     (match'Word
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs let c = _rhs (fromInt 1 :: Word) in c)
       a
       (match'Float
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs let d = _rhs 1.0 in d)
         a
         (match'VecS
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (\(e :: _) (f :: _) -> match'Float
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (case'Nat
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (_rhs undefined)
               (\(g :: _) -> case'Nat
-                (\_ -> _)
+                (\(_ :: _) -> _)
                 (_rhs undefined)
                 (\(h :: _) -> case'Nat
-                  (\_ -> _)
+                  (\(_ :: _) -> _)
                   (_rhs let i = _rhs (V2 1.0 1.0) in i)
                   (\(j :: _) -> case'Nat
-                    (\_ -> _)
+                    (\(_ :: _) -> _)
                     (_rhs let k = _rhs (V3 1.0 1.0 1.0) in k)
                     (\(l :: _) -> case'Nat
-                      (\_ -> _)
+                      (\(_ :: _) -> _)
                       (_rhs let m = _rhs (V4 1.0 1.0 1.0 1.0) in m)
-                      (\_ -> _rhs undefined)
+                      (\(_ :: _) -> _rhs undefined)
                       l)
                     j)
                   h)
@@ -282,23 +290,23 @@ one
               f)
             e
             (match'Bool
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (case'Nat
-                (\_ -> _)
+                (\(_ :: _) -> _)
                 (_rhs undefined)
                 (\(n :: _) -> case'Nat
-                  (\_ -> _)
+                  (\(_ :: _) -> _)
                   (_rhs undefined)
                   (\(o :: _) -> case'Nat
-                    (\_ -> _)
+                    (\(_ :: _) -> _)
                     (_rhs let p = _rhs (V2 True True) in p)
                     (\(q :: _) -> case'Nat
-                      (\_ -> _)
+                      (\(_ :: _) -> _)
                       (_rhs let r = _rhs (V3 True True True) in r)
                       (\(s :: _) -> case'Nat
-                        (\_ -> _)
+                        (\(_ :: _) -> _)
                         (_rhs let t = _rhs (V4 True True True True) in t)
-                        (\_ -> _rhs undefined)
+                        (\(_ :: _) -> _rhs undefined)
                         s)
                       q)
                     o)
@@ -307,16 +315,20 @@ one
               e
               (_rhs undefined)))
           a
-          (match'Bool (\_ -> _) (_rhs let u = _rhs True in u) a (_rhs undefined)))))
+          (match'Bool
+            (\(_ :: _) -> _)
+            (_rhs let u = _rhs True in u)
+            a
+            (_rhs undefined)))))
 
 'Integral :: Type -> Constraint
 'Integral
   = \(a :: _) -> match'Int
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs 'CUnit)
     a
     (match'Word
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs 'CUnit)
       a
       (_rhs ('CEmpty "no instance of 'Integral on ???")))
@@ -324,29 +336,29 @@ one
 'Floating :: Type -> Constraint
 'Floating
   = \(a :: _) -> match'Float
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs 'CUnit)
     a
     (match'VecS
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (\(b :: _) (c :: _) -> match'Float
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (case'Nat
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (_rhs ('CEmpty "no instance of 'Floating on ???"))
           (\(d :: _) -> case'Nat
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (_rhs ('CEmpty "no instance of 'Floating on ???"))
             (\(e :: _) -> case'Nat
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (_rhs 'CUnit)
               (\(f :: _) -> case'Nat
-                (\_ -> _)
+                (\(_ :: _) -> _)
                 (_rhs 'CUnit)
                 (\(g :: _) -> case'Nat
-                  (\_ -> _)
+                  (\(_ :: _) -> _)
                   (_rhs 'CUnit)
-                  (\_ -> _rhs ('CEmpty "no instance of 'Floating on ???"))
+                  (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
                   g)
                 f)
               e)
@@ -356,119 +368,119 @@ one
         (_rhs ('CEmpty "no instance of 'Floating on ???")))
       a
       (match'Mat
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (\(h :: _) (i :: _) (j :: _) -> case'Nat
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (_rhs ('CEmpty "no instance of 'Floating on ???"))
           (\(k :: _) -> case'Nat
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (_rhs ('CEmpty "no instance of 'Floating on ???"))
             (\(l :: _) -> case'Nat
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (case'Nat
-                (\_ -> _)
+                (\(_ :: _) -> _)
                 (_rhs ('CEmpty "no instance of 'Floating on ???"))
                 (\(m :: _) -> case'Nat
-                  (\_ -> _)
+                  (\(_ :: _) -> _)
                   (_rhs ('CEmpty "no instance of 'Floating on ???"))
                   (\(n :: _) -> case'Nat
-                    (\_ -> _)
+                    (\(_ :: _) -> _)
                     (match'Float
-                      (\_ -> _)
+                      (\(_ :: _) -> _)
                       (_rhs 'CUnit)
                       j
                       (_rhs ('CEmpty "no instance of 'Floating on ???")))
                     (\(o :: _) -> case'Nat
-                      (\_ -> _)
+                      (\(_ :: _) -> _)
                       (match'Float
-                        (\_ -> _)
+                        (\(_ :: _) -> _)
                         (_rhs 'CUnit)
                         j
                         (_rhs ('CEmpty "no instance of 'Floating on ???")))
                       (\(p :: _) -> case'Nat
-                        (\_ -> _)
+                        (\(_ :: _) -> _)
                         (match'Float
-                          (\_ -> _)
+                          (\(_ :: _) -> _)
                           (_rhs 'CUnit)
                           j
                           (_rhs ('CEmpty "no instance of 'Floating on ???")))
-                        (\_ -> _rhs ('CEmpty "no instance of 'Floating on ???"))
+                        (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
                         p)
                       o)
                     n)
                   m)
                 i)
               (\(q :: _) -> case'Nat
-                (\_ -> _)
+                (\(_ :: _) -> _)
                 (case'Nat
-                  (\_ -> _)
+                  (\(_ :: _) -> _)
                   (_rhs ('CEmpty "no instance of 'Floating on ???"))
                   (\(r :: _) -> case'Nat
-                    (\_ -> _)
+                    (\(_ :: _) -> _)
                     (_rhs ('CEmpty "no instance of 'Floating on ???"))
                     (\(s :: _) -> case'Nat
-                      (\_ -> _)
+                      (\(_ :: _) -> _)
                       (match'Float
-                        (\_ -> _)
+                        (\(_ :: _) -> _)
                         (_rhs 'CUnit)
                         j
                         (_rhs ('CEmpty "no instance of 'Floating on ???")))
                       (\(t :: _) -> case'Nat
-                        (\_ -> _)
+                        (\(_ :: _) -> _)
                         (match'Float
-                          (\_ -> _)
+                          (\(_ :: _) -> _)
                           (_rhs 'CUnit)
                           j
                           (_rhs ('CEmpty "no instance of 'Floating on ???")))
                         (\(u :: _) -> case'Nat
-                          (\_ -> _)
+                          (\(_ :: _) -> _)
                           (match'Float
-                            (\_ -> _)
+                            (\(_ :: _) -> _)
                             (_rhs 'CUnit)
                             j
                             (_rhs ('CEmpty "no instance of 'Floating on ???")))
-                          (\_ -> _rhs ('CEmpty "no instance of 'Floating on ???"))
+                          (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
                           u)
                         t)
                       s)
                     r)
                   i)
                 (\(v :: _) -> case'Nat
-                  (\_ -> _)
+                  (\(_ :: _) -> _)
                   (case'Nat
-                    (\_ -> _)
+                    (\(_ :: _) -> _)
                     (_rhs ('CEmpty "no instance of 'Floating on ???"))
                     (\(w :: _) -> case'Nat
-                      (\_ -> _)
+                      (\(_ :: _) -> _)
                       (_rhs ('CEmpty "no instance of 'Floating on ???"))
                       (\(x :: _) -> case'Nat
-                        (\_ -> _)
+                        (\(_ :: _) -> _)
                         (match'Float
-                          (\_ -> _)
+                          (\(_ :: _) -> _)
                           (_rhs 'CUnit)
                           j
                           (_rhs ('CEmpty "no instance of 'Floating on ???")))
                         (\(y :: _) -> case'Nat
-                          (\_ -> _)
+                          (\(_ :: _) -> _)
                           (match'Float
-                            (\_ -> _)
+                            (\(_ :: _) -> _)
                             (_rhs 'CUnit)
                             j
                             (_rhs ('CEmpty "no instance of 'Floating on ???")))
                           (\(z :: _) -> case'Nat
-                            (\_ -> _)
+                            (\(_ :: _) -> _)
                             (match'Float
-                              (\_ -> _)
+                              (\(_ :: _) -> _)
                               (_rhs 'CUnit)
                               j
                               (_rhs ('CEmpty "no instance of 'Floating on ???")))
-                            (\_ -> _rhs ('CEmpty "no instance of 'Floating on ???"))
+                            (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
                             z)
                           y)
                         x)
                       w)
                     i)
-                  (\_ -> _rhs ('CEmpty "no instance of 'Floating on ???"))
+                  (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
                   v)
                 q)
               l)
@@ -766,18 +778,22 @@ PrimNoise3 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 3) Float
 PrimNoise4 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 4) Float
 
 head
-  = \(a :: _) -> case'List (\_ -> _) (_rhs undefined) (\(b :: _) _ -> _rhs b) a
+  = \(a :: _) -> case'List
+    (\(_ :: _) -> _)
+    (_rhs undefined)
+    (\(b :: _) (_ :: _) -> _rhs b)
+    a
 
 (++)
   = \(a :: _) (b :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs b)
     (\(c :: _) (d :: _) -> _rhs (c : d ++ b))
     a
 
 foldr
   = \(a :: _) (b :: _) (c :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs b)
     (\(d :: _) (e :: _) -> _rhs (a d (foldr a b e)))
     c
@@ -786,7 +802,7 @@ concat = _rhs (foldr (++) [])
 
 map
   = \(a :: _) (b :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs [])
     (\(c :: _) (d :: _) -> _rhs (a c : map a d))
     b
@@ -796,9 +812,9 @@ concatMap = \(a :: _) (b :: _) -> _rhs (concat (map a b))
 
 len
   = \(a :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs (fromInt 0))
-    (\_ (b :: _) -> _rhs (fromInt 1 `primAddInt` len b))
+    (\(_ :: _) (b :: _) -> _rhs (fromInt 1 `primAddInt` len b))
     a
 
 data Maybe (_ :: Type) :: Type where
@@ -832,7 +848,8 @@ mapPrimitives
 mapPrimitives = \(a :: _) -> _rhs (map (mapPrimitive a))
 
 'ListElem :: Type -> Type
-'ListElem = \(a :: _) -> match'List (\_ -> _) (\(b :: _) -> _rhs b) a undefined
+'ListElem
+  = \(a :: _) -> match'List (\(_ :: _) -> _) (\(b :: _) -> _rhs b) a undefined
 
 fetchArrays
   :: forall (a :: _) (b :: _) (c :: _)
@@ -854,10 +871,16 @@ data SimpleFragment (_ :: Type) :: Type where
 'Fragment = \(a :: _) (b :: _) -> _rhs ('Vector a ('Maybe ('SimpleFragment b)))
 
 sFragmentCoords
-  = \(a :: _) -> case'SimpleFragment (\_ -> _) (\(b :: _) _ -> _rhs b) a
+  = \(a :: _) -> case'SimpleFragment
+    (\(_ :: _) -> _)
+    (\(b :: _) (_ :: _) -> _rhs b)
+    a
 
 sFragmentValue
-  = \(a :: _) -> case'SimpleFragment (\_ -> _) (\_ (b :: _) -> _rhs b) a
+  = \(a :: _) -> case'SimpleFragment
+    (\(_ :: _) -> _)
+    (\(_ :: _) (b :: _) -> _rhs b)
+    a
 
 'FragmentStream = \(a :: _) (b :: _) -> _rhs ['Fragment a b]
 
@@ -893,7 +916,7 @@ data ImageKind :: Type where
 imageType :: ImageKind -> Type
 imageType
   = \(a :: _) -> case'ImageKind
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (\(b :: _) -> _rhs b)
     (_rhs 'Float)
     (_rhs 'Int)
@@ -923,23 +946,23 @@ data Swizz :: Type where
 swizzscalar :: forall (a :: _) (b :: _) . Vec b a -> Swizz -> a
 swizzscalar
   = \(a :: _) (b :: _) -> case'VecS
-    (\_ _ -> _)
+    (\(_ :: _) (_ :: _) -> _)
     (\(c :: _) (d :: _) -> case'Swizz
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs c)
       (_rhs d)
       (_rhs undefined)
       (_rhs undefined)
       b)
     (\(e :: _) (f :: _) (g :: _) -> case'Swizz
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs e)
       (_rhs f)
       (_rhs g)
       (_rhs undefined)
       b)
     (\(h :: _) (i :: _) (j :: _) (k :: _) -> case'Swizz
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs h)
       (_rhs i)
       (_rhs j)
@@ -950,17 +973,17 @@ swizzscalar
 definedVec :: forall (a :: _) (b :: _) . Vec b a -> Bool
 definedVec
   = \(a :: _) -> case'VecS
-    (\_ _ -> _)
-    (\_ _ -> _rhs True)
-    (\_ _ _ -> _rhs True)
-    (\_ _ _ _ -> _rhs True)
+    (\(_ :: _) (_ :: _) -> _)
+    (\(_ :: _) (_ :: _) -> _rhs True)
+    (\(_ :: _) (_ :: _) (_ :: _) -> _rhs True)
+    (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs True)
     a
 
 swizzvector
   :: forall (a :: _) (b :: _) (c :: _) . Vec b a -> Vec c Swizz -> Vec c a
 swizzvector
   = \(a :: _) (b :: _) -> case'Bool
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs undefined)
     (_rhs (mapVec (swizzscalar a) b))
     (definedVec a)
@@ -1107,15 +1130,19 @@ rasterizePrimitives
 
 'ImageLC :: Type -> Nat
 'ImageLC
-  = \(a :: _) -> match'Image (\_ -> _) (\(b :: _) _ -> _rhs b) a undefined
+  = \(a :: _) -> match'Image
+    (\(_ :: _) -> _)
+    (\(b :: _) (_ :: _) -> _rhs b)
+    a
+    undefined
 
 allSame :: forall (a :: _) . [a] -> Constraint
 allSame
   = \(a :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs 'CUnit)
     (\(b :: _) (c :: _) -> case'List
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs 'CUnit)
       (\(d :: _) (e :: _) -> _rhs ('T2 (b `'EqCTt` d) (allSame (d : e))))
       c)
@@ -1129,11 +1156,11 @@ data FrameBuffer (_ :: Nat) (_ :: [ImageKind]) :: Type where
 imageType' :: [ImageKind] -> [Type]
 imageType'
   = \(a :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs (map imageType a))
     (\(b :: _) (c :: _) -> case'ImageKind
-      (\_ -> _)
-      (\_ -> _rhs (map imageType a))
+      (\(_ :: _) -> _)
+      (\(_ :: _) -> _rhs (map imageType a))
       (_rhs (map imageType c))
       (_rhs (map imageType a))
       b)
@@ -1142,7 +1169,7 @@ imageType'
 'FragmentOperationKind :: Type -> ImageKind
 'FragmentOperationKind
   = \(a :: _) -> match'FragmentOperation
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (\(b :: _) -> _rhs b)
     a
     undefined
@@ -1168,7 +1195,11 @@ infixl 0 overlay
 
 'GetImageKind :: Type -> ImageKind
 'GetImageKind
-  = \(a :: _) -> match'Image (\_ -> _) (\_ (b :: _) -> _rhs b) a undefined
+  = \(a :: _) -> match'Image
+    (\(_ :: _) -> _)
+    (\(_ :: _) (b :: _) -> _rhs b)
+    a
+    undefined
 
 FrameBuffer
   :: forall (a :: [Type])
@@ -1214,383 +1245,1287 @@ data Sampler :: Type where
 texture2D :: Sampler -> Vec (fromInt 2) Float -> Vec (fromInt 4) Float
 
 accumulationContext = \(a :: _) -> _rhs a
------------- trace
-id :: forall a . a -> a
-'VecS :: Type -> Nat -> Type
-V2 :: forall a . a -> a -> VecS a 2
-V3 :: forall a . a -> a -> a -> VecS a 3
-V4 :: forall a . a -> a -> a -> a -> VecS a 4
-case'VecS
-  :: forall a
-    . forall (b :: forall (c :: Nat) -> VecS a c -> Type)
-      -> (forall (d :: a) (e :: a) -> b 2 ('V2 d e))
-        -> (forall (f :: a) (g :: a) (h :: a) -> b 3 ('V3 f g h))
-          -> (forall (i :: a) (j :: a) (k :: a) (l :: a) -> b 4 ('V4 i j k l))
-            -> forall (m :: Nat) . forall (n :: VecS a m) -> b m n
-match'VecS
-  :: forall (a :: Type -> Type)
-    -> (forall b (c :: Nat) -> a (VecS b c)) -> forall d -> a d -> a d
-mapVec :: forall a b (c :: Nat) . (a -> b) -> VecS a c -> VecS b c
+------------ core code
+'BlendEquation :: Type
+'BlendEquation
+  = <<type constructor with 0 indices; constructors: FuncAdd, FuncSubtract, FuncReverseSubtract, Min, Max>>
+
+'Blending :: Type -> Type
+'Blending
+  = <<type constructor with 1 indices; constructors: NoBlending, BlendLogicOp, Blend>>
+
+'BlendingFactor :: Type
+'BlendingFactor
+  = <<type constructor with 0 indices; constructors: ZeroBF, OneBF, SrcColor, OneMinusSrcColor, DstColor, OneMinusDstColor, SrcAlpha, OneMinusSrcAlpha, DstAlpha, OneMinusDstAlpha, ConstantColor, OneMinusConstantColor, ConstantAlpha, OneMinusConstantAlpha, SrcAlphaSaturate>>
+
+'ComparisonFunction :: Type
+'ComparisonFunction
+  = <<type constructor with 0 indices; constructors: Never, Less, Equal, Lequal, Greater, Notequal, Gequal, Always>>
+
+'Component :: Type -> Constraint
+'Component
+  = \a -> match'Int
+    (\_ -> 'Constraint)
+    (_rhs CUnit)
+    a
+    (match'Word
+      (\_ -> 'Constraint)
+      (_rhs CUnit)
+      a
+      (match'Float
+        (\_ -> 'Constraint)
+        (_rhs CUnit)
+        a
+        (match'VecS
+          (\_ -> 'Constraint)
+          (\b c -> match'Float
+            (\_ -> 'Constraint)
+            (case'Nat
+              (\_ -> 'Constraint)
+              (_rhs (CEmpty "no instance of 'Component on ???"))
+              (\d -> case'Nat
+                (\_ -> 'Constraint)
+                (_rhs (CEmpty "no instance of 'Component on ???"))
+                (\e -> case'Nat
+                  (\_ -> 'Constraint)
+                  (_rhs CUnit)
+                  (\f -> case'Nat
+                    (\_ -> 'Constraint)
+                    (_rhs CUnit)
+                    (\g -> case'Nat
+                      (\_ -> 'Constraint)
+                      (_rhs CUnit)
+                      (\_ -> _rhs (CEmpty "no instance of 'Component on ???"))
+                      g)
+                    f)
+                  e)
+                d)
+              c)
+            b
+            (match'Bool
+              (\_ -> 'Constraint)
+              (case'Nat
+                (\_ -> 'Constraint)
+                (_rhs (CEmpty "no instance of 'Component on ???"))
+                (\h -> case'Nat
+                  (\_ -> 'Constraint)
+                  (_rhs (CEmpty "no instance of 'Component on ???"))
+                  (\i -> case'Nat
+                    (\_ -> 'Constraint)
+                    (_rhs CUnit)
+                    (\j -> case'Nat
+                      (\_ -> 'Constraint)
+                      (_rhs CUnit)
+                      (\k -> case'Nat
+                        (\_ -> 'Constraint)
+                        (_rhs CUnit)
+                        (\_ -> _rhs (CEmpty "no instance of 'Component on ???"))
+                        k)
+                      j)
+                    i)
+                  h)
+                c)
+              b
+              (_rhs (CEmpty "no instance of 'Component on ???"))))
+          a
+          (match'Bool
+            (\_ -> 'Constraint)
+            (_rhs CUnit)
+            a
+            (_rhs (CEmpty "no instance of 'Component on ???"))))))
+
+'CullMode :: Type
+'CullMode
+  = <<type constructor with 0 indices; constructors: CullFront, CullBack, CullNone>>
+
+'EdgeMode :: Type
+'EdgeMode
+  = <<type constructor with 0 indices; constructors: Repeat, MirroredRepeat, ClampToEdge>>
+
+'Filter :: Type
+'Filter
+  = <<type constructor with 0 indices; constructors: PointFilter, LinearFilter>>
+
+'Floating :: Type -> Constraint
+'Floating
+  = \a -> match'Float
+    (\_ -> 'Constraint)
+    (_rhs CUnit)
+    a
+    (match'VecS
+      (\_ -> 'Constraint)
+      (\b c -> match'Float
+        (\_ -> 'Constraint)
+        (case'Nat
+          (\_ -> 'Constraint)
+          (_rhs (CEmpty "no instance of 'Floating on ???"))
+          (\d -> case'Nat
+            (\_ -> 'Constraint)
+            (_rhs (CEmpty "no instance of 'Floating on ???"))
+            (\e -> case'Nat
+              (\_ -> 'Constraint)
+              (_rhs CUnit)
+              (\f -> case'Nat
+                (\_ -> 'Constraint)
+                (_rhs CUnit)
+                (\g -> case'Nat
+                  (\_ -> 'Constraint)
+                  (_rhs CUnit)
+                  (\_ -> _rhs (CEmpty "no instance of 'Floating on ???"))
+                  g)
+                f)
+              e)
+            d)
+          c)
+        b
+        (_rhs (CEmpty "no instance of 'Floating on ???")))
+      a
+      (match'Mat
+        (\_ -> 'Constraint)
+        (\h i j -> case'Nat
+          (\_ -> 'Constraint)
+          (_rhs (CEmpty "no instance of 'Floating on ???"))
+          (\k -> case'Nat
+            (\_ -> 'Constraint)
+            (_rhs (CEmpty "no instance of 'Floating on ???"))
+            (\l -> case'Nat
+              (\_ -> 'Constraint)
+              (case'Nat
+                (\_ -> 'Constraint)
+                (_rhs (CEmpty "no instance of 'Floating on ???"))
+                (\m -> case'Nat
+                  (\_ -> 'Constraint)
+                  (_rhs (CEmpty "no instance of 'Floating on ???"))
+                  (\n -> case'Nat
+                    (\_ -> 'Constraint)
+                    (match'Float
+                      (\_ -> 'Constraint)
+                      (_rhs CUnit)
+                      j
+                      (_rhs (CEmpty "no instance of 'Floating on ???")))
+                    (\o -> case'Nat
+                      (\_ -> 'Constraint)
+                      (match'Float
+                        (\_ -> 'Constraint)
+                        (_rhs CUnit)
+                        j
+                        (_rhs (CEmpty "no instance of 'Floating on ???")))
+                      (\p -> case'Nat
+                        (\_ -> 'Constraint)
+                        (match'Float
+                          (\_ -> 'Constraint)
+                          (_rhs CUnit)
+                          j
+                          (_rhs (CEmpty "no instance of 'Floating on ???")))
+                        (\_ -> _rhs (CEmpty "no instance of 'Floating on ???"))
+                        p)
+                      o)
+                    n)
+                  m)
+                i)
+              (\q -> case'Nat
+                (\_ -> 'Constraint)
+                (case'Nat
+                  (\_ -> 'Constraint)
+                  (_rhs (CEmpty "no instance of 'Floating on ???"))
+                  (\r -> case'Nat
+                    (\_ -> 'Constraint)
+                    (_rhs (CEmpty "no instance of 'Floating on ???"))
+                    (\s -> case'Nat
+                      (\_ -> 'Constraint)
+                      (match'Float
+                        (\_ -> 'Constraint)
+                        (_rhs CUnit)
+                        j
+                        (_rhs (CEmpty "no instance of 'Floating on ???")))
+                      (\t -> case'Nat
+                        (\_ -> 'Constraint)
+                        (match'Float
+                          (\_ -> 'Constraint)
+                          (_rhs CUnit)
+                          j
+                          (_rhs (CEmpty "no instance of 'Floating on ???")))
+                        (\u -> case'Nat
+                          (\_ -> 'Constraint)
+                          (match'Float
+                            (\_ -> 'Constraint)
+                            (_rhs CUnit)
+                            j
+                            (_rhs (CEmpty "no instance of 'Floating on ???")))
+                          (\_ -> _rhs (CEmpty "no instance of 'Floating on ???"))
+                          u)
+                        t)
+                      s)
+                    r)
+                  i)
+                (\v -> case'Nat
+                  (\_ -> 'Constraint)
+                  (case'Nat
+                    (\_ -> 'Constraint)
+                    (_rhs (CEmpty "no instance of 'Floating on ???"))
+                    (\w -> case'Nat
+                      (\_ -> 'Constraint)
+                      (_rhs (CEmpty "no instance of 'Floating on ???"))
+                      (\x -> case'Nat
+                        (\_ -> 'Constraint)
+                        (match'Float
+                          (\_ -> 'Constraint)
+                          (_rhs CUnit)
+                          j
+                          (_rhs (CEmpty "no instance of 'Floating on ???")))
+                        (\y -> case'Nat
+                          (\_ -> 'Constraint)
+                          (match'Float
+                            (\_ -> 'Constraint)
+                            (_rhs CUnit)
+                            j
+                            (_rhs (CEmpty "no instance of 'Floating on ???")))
+                          (\z -> case'Nat
+                            (\_ -> 'Constraint)
+                            (match'Float
+                              (\_ -> 'Constraint)
+                              (_rhs CUnit)
+                              j
+                              (_rhs (CEmpty "no instance of 'Floating on ???")))
+                            (\_ -> _rhs (CEmpty "no instance of 'Floating on ???"))
+                            z)
+                          y)
+                        x)
+                      w)
+                    i)
+                  (\_ -> _rhs (CEmpty "no instance of 'Floating on ???"))
+                  v)
+                q)
+              l)
+            k)
+          h)
+        a
+        (_rhs (CEmpty "no instance of 'Floating on ???"))))
+
+'Fragment :: Nat -> Type -> Type
+'Fragment = \a b -> _rhs ('Vector a ('Maybe ('SimpleFragment b)))
+
+'FragmentOperation :: ImageKind -> Type
+'FragmentOperation
+  = <<type constructor with 1 indices; constructors: ColorOp, DepthOp, StencilOp>>
+
+'FragmentOperationKind :: Type -> ImageKind
+'FragmentOperationKind
+  = \a -> match'FragmentOperation
+    (\_ -> 'ImageKind)
+    (\b -> _rhs b)
+    a
+    (undefined 'ImageKind)
+
+'FragmentStream :: Nat -> Type -> Type
+'FragmentStream = \a b -> _rhs ['Vector a ('Maybe ('SimpleFragment b))]
+
+'FrameBuffer :: Nat -> [ImageKind] -> Type
+'FrameBuffer = <<type constructor with 0 indices; constructors: >>
+
+'GetImageKind :: Type -> ImageKind
+'GetImageKind
+  = \a -> match'Image (\_ -> 'ImageKind) (\_ b -> _rhs b) a (undefined 'ImageKind)
+
+'Image :: Nat -> ImageKind -> Type
+'Image = <<type constructor with 0 indices; constructors: >>
+
+'ImageKind :: Type
+'ImageKind
+  = <<type constructor with 0 indices; constructors: Color, Depth, Stencil>>
+
+'ImageLC :: Type -> Nat
+'ImageLC = \a -> match'Image (\_ -> 'Nat) (\b _ -> _rhs b) a (undefined 'Nat)
+
+'Integral :: Type -> Constraint
+'Integral
+  = \a -> match'Int
+    (\_ -> 'Constraint)
+    (_rhs CUnit)
+    a
+    (match'Word
+      (\_ -> 'Constraint)
+      (_rhs CUnit)
+      a
+      (_rhs (CEmpty "no instance of 'Integral on ???")))
+
+'Interpolated :: Type -> Type
+'Interpolated
+  = <<type constructor with 0 indices; constructors: Smooth, NoPerspective, Flat>>
+
+'ListElem :: Type -> Type
+'ListElem = \a -> match'List (\_ -> Type) (\b -> _rhs b) a (undefined Type)
+
+'LogicOperation :: Type
+'LogicOperation
+  = <<type constructor with 0 indices; constructors: Clear, And, AndReverse, Copy, AndInverted, Noop, Xor, Or, Nor, Equiv, Invert, OrReverse, CopyInverted, OrInverted, Nand, Set>>
+
+'Mat :: Nat -> Nat -> Type -> Type
+'Mat
+  = <<type constructor with 3 indices; constructors: M22F, M32F, M42F, M23F, M33F, M43F, M24F, M34F, M44F>>
+
+'MatVecScalarElem :: Type -> Type
+'MatVecScalarElem
+  = \a -> match'Float
+    (\_ -> Type)
+    (_rhs 'Float)
+    a
+    (match'Bool
+      (\_ -> Type)
+      (_rhs 'Bool)
+      a
+      (match'Int
+        (\_ -> Type)
+        (_rhs 'Int)
+        a
+        (match'VecS
+          (\_ -> Type)
+          (\b _ -> _rhs b)
+          a
+          (match'Mat (\_ -> Type) (\_ _ c -> _rhs c) a (undefined Type)))))
+
+'Maybe :: Type -> Type
+'Maybe = <<type constructor with 0 indices; constructors: Nothing, Just>>
+
+'Output :: Type
+'Output = <<type constructor with 0 indices; constructors: ScreenOut>>
+
+'PointSize :: Type -> Type
+'PointSize
+  = <<type constructor with 0 indices; constructors: PointSize, ProgramPointSize>>
+
+'PointSpriteCoordOrigin :: Type
+'PointSpriteCoordOrigin
+  = <<type constructor with 0 indices; constructors: LowerLeft, UpperLeft>>
+
+'PolygonMode :: Type -> Type
+'PolygonMode
+  = <<type constructor with 0 indices; constructors: PolygonFill, PolygonPoint, PolygonLine>>
+
+'PolygonOffset :: Type
+'PolygonOffset
+  = <<type constructor with 0 indices; constructors: NoOffset, Offset>>
+
+'Primitive :: Type -> PrimitiveType -> Type
+'Primitive
+  = <<type constructor with 1 indices; constructors: PrimPoint, PrimLine, PrimTriangle>>
+
+'PrimitiveStream :: PrimitiveType -> Type -> Type
+'PrimitiveStream = \a b -> _rhs ['Primitive b a]
+
+'PrimitiveType :: Type
+'PrimitiveType
+  = <<type constructor with 0 indices; constructors: Triangle, Line, Point, TriangleAdjacency, LineAdjacency>>
+
+'ProvokingVertex :: Type
+'ProvokingVertex
+  = <<type constructor with 0 indices; constructors: LastVertex, FirstVertex>>
+
+'RasterContext :: Type -> PrimitiveType -> Type
+'RasterContext
+  = <<type constructor with 1 indices; constructors: TriangleCtx, PointCtx, LineCtx>>
+
+'Sampler :: Type
+'Sampler = <<type constructor with 0 indices; constructors: Sampler>>
+
+'Signed :: Type -> Constraint
+'Signed
+  = \a -> match'Int
+    (\_ -> 'Constraint)
+    (_rhs CUnit)
+    a
+    (match'Float
+      (\_ -> 'Constraint)
+      (_rhs CUnit)
+      a
+      (_rhs (CEmpty "no instance of 'Signed on ???")))
+
+'SimpleFragment :: Type -> Type
+'SimpleFragment
+  = <<type constructor with 0 indices; constructors: SimpleFragment>>
+
+'StencilOperation :: Type
+'StencilOperation
+  = <<type constructor with 0 indices; constructors: OpZero, OpKeep, OpReplace, OpIncr, OpIncrWrap, OpDecr, OpDecrWrap, OpInvert>>
+
+'StencilOps :: Type
+'StencilOps = <<type constructor with 0 indices; constructors: >>
+
+'StencilTests :: Type
+'StencilTests = <<type constructor with 0 indices; constructors: >>
+
+'Swizz :: Type
+'Swizz = <<type constructor with 0 indices; constructors: Sx, Sy, Sz, Sw>>
+
+'Texture :: Type
+'Texture
+  = <<type constructor with 0 indices; constructors: Texture2DSlot, Texture2D>>
+
 'Vec :: Nat -> Type -> Type
+'Vec = \a b -> _rhs ('VecS b a)
+
+'VecS :: Type -> Nat -> Type
+'VecS = <<type constructor with 1 indices; constructors: V2, V3, V4>>
+
 'VecScalar :: Nat -> Type -> Type
-'Mat :: Nat -> Nat -> Type -> Type
+'VecScalar
+  = \a b -> case'Nat
+    (\_ -> Type)
+    (undefined Type)
+    (\c -> case'Nat (\_ -> Type) (_rhs b) (\d -> _rhs ('VecS b (Succ (Succ d)))) c)
+    a
+
+'Vector :: Nat -> Type -> Type
+'Vector = <<type constructor with 0 indices; constructors: >>
+
+++ :: forall a . [a] -> [a] -> [a]
+++
+  = \a -> primFix
+    ([a] -> [a] -> [a])
+    \b c d -> case'List (\_ -> [a]) (_rhs d) (\e f -> _rhs (e : b f d)) c
+
+Accumulate
+  :: forall (a :: [ImageKind]) (b :: Nat) (c :: [Type])
+    . (a ~ (map Type ImageKind FragmentOperationKind c :: [ImageKind]))
+      => HList c
+        -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
+Accumulate = \a b c d e f g -> <<builtin>>
+
+Always :: ComparisonFunction
+Always = <<7th constructor of 'ComparisonFunction>>
+
+And :: LogicOperation
+And = <<1st constructor of 'LogicOperation>>
+
+AndInverted :: LogicOperation
+AndInverted = <<4th constructor of 'LogicOperation>>
+
+AndReverse :: LogicOperation
+AndReverse = <<2nd constructor of 'LogicOperation>>
+
+Attribute :: forall a . String -> a
+Attribute = \a b -> <<builtin>>
+
+Blend
+  :: (BlendEquation, BlendEquation)
+    -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
+      -> Vec 4 Float -> Blending Float
+Blend = <<2nd constructor of 'Blending>>
+
+BlendLogicOp :: forall a . Integral a => LogicOperation -> Blending a
+BlendLogicOp = <<1st constructor of 'Blending>>
+
+ClampToEdge :: EdgeMode
+ClampToEdge = <<2nd constructor of 'EdgeMode>>
+
+Clear :: LogicOperation
+Clear = <<0th constructor of 'LogicOperation>>
+
+Color :: Type -> ImageKind
+Color = <<0th constructor of 'ImageKind>>
+
+ColorImage
+  :: forall (a :: Nat) (b :: Nat) c d
+    . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
+ColorImage = \a b c d e f g -> <<builtin>>
+
+ColorOp
+  :: forall a (b :: Nat)
+    . Num a
+      => Blending a -> VecScalar b Bool -> FragmentOperation ('Color (VecScalar b a))
+ColorOp = <<0th constructor of 'FragmentOperation>>
+
+ConstantAlpha :: BlendingFactor
+ConstantAlpha = <<12th constructor of 'BlendingFactor>>
+
+ConstantColor :: BlendingFactor
+ConstantColor = <<10th constructor of 'BlendingFactor>>
+
+Copy :: LogicOperation
+Copy = <<3rd constructor of 'LogicOperation>>
+
+CopyInverted :: LogicOperation
+CopyInverted = <<12th constructor of 'LogicOperation>>
+
+CullBack :: CullMode
+CullBack = <<1st constructor of 'CullMode>>
+
+CullFront :: CullMode
+CullFront = <<0th constructor of 'CullMode>>
+
+CullNone :: CullMode
+CullNone = <<2nd constructor of 'CullMode>>
+
+Depth :: ImageKind
+Depth = <<1st constructor of 'ImageKind>>
+
+DepthImage :: forall (a :: Nat) . Float -> Image a 'Depth
+DepthImage = \a b -> <<builtin>>
+
+DepthOp :: ComparisonFunction -> Bool -> FragmentOperation 'Depth
+DepthOp = <<1st constructor of 'FragmentOperation>>
+
+DstAlpha :: BlendingFactor
+DstAlpha = <<8th constructor of 'BlendingFactor>>
+
+DstColor :: BlendingFactor
+DstColor = <<4th constructor of 'BlendingFactor>>
+
+Equal :: ComparisonFunction
+Equal = <<2nd constructor of 'ComparisonFunction>>
+
+Equiv :: LogicOperation
+Equiv = <<9th constructor of 'LogicOperation>>
+
+FirstVertex :: ProvokingVertex
+FirstVertex = <<1st constructor of 'ProvokingVertex>>
+
+Flat :: forall a . Interpolated a
+Flat = <<2nd constructor of 'Interpolated>>
+
+FrameBuffer
+  :: forall (a :: [Type])
+    . sameLayerCounts a
+      => HList a
+        -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
+FrameBuffer = \a b c -> <<builtin>>
+
+FuncAdd :: BlendEquation
+FuncAdd = <<0th constructor of 'BlendEquation>>
+
+FuncReverseSubtract :: BlendEquation
+FuncReverseSubtract = <<2nd constructor of 'BlendEquation>>
+
+FuncSubtract :: BlendEquation
+FuncSubtract = <<1st constructor of 'BlendEquation>>
+
+Gequal :: ComparisonFunction
+Gequal = <<6th constructor of 'ComparisonFunction>>
+
+Greater :: ComparisonFunction
+Greater = <<4th constructor of 'ComparisonFunction>>
+
+Invert :: LogicOperation
+Invert = <<10th constructor of 'LogicOperation>>
+
+Just :: forall a . a -> Maybe a
+Just = <<1st constructor of 'Maybe>>
+
+LastVertex :: ProvokingVertex
+LastVertex = <<0th constructor of 'ProvokingVertex>>
+
+Lequal :: ComparisonFunction
+Lequal = <<3rd constructor of 'ComparisonFunction>>
+
+Less :: ComparisonFunction
+Less = <<1st constructor of 'ComparisonFunction>>
+
+Line :: PrimitiveType
+Line = <<1st constructor of 'PrimitiveType>>
+
+LineAdjacency :: PrimitiveType
+LineAdjacency = <<4th constructor of 'PrimitiveType>>
+
+LineCtx :: forall a . Float -> ProvokingVertex -> RasterContext a 'Line
+LineCtx = <<2nd constructor of 'RasterContext>>
+
+LinearFilter :: Filter
+LinearFilter = <<1st constructor of 'Filter>>
+
+LowerLeft :: PointSpriteCoordOrigin
+LowerLeft = <<0th constructor of 'PointSpriteCoordOrigin>>
+
 M22F :: Vec 2 Float -> Vec 2 Float -> Mat 2 2 Float
-M32F :: Vec 3 Float -> Vec 3 Float -> Mat 3 2 Float
-M42F :: Vec 4 Float -> Vec 4 Float -> Mat 4 2 Float
+M22F = <<0th constructor of 'Mat>>
+
 M23F :: Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Mat 2 3 Float
-M33F :: Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 3 3 Float
-M43F :: Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 3 Float
+M23F = <<3rd constructor of 'Mat>>
+
 M24F
   :: Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Mat 2 4 Float
+M24F = <<6th constructor of 'Mat>>
+
+M32F :: Vec 3 Float -> Vec 3 Float -> Mat 3 2 Float
+M32F = <<1st constructor of 'Mat>>
+
+M33F :: Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 3 3 Float
+M33F = <<4th constructor of 'Mat>>
+
 M34F
   :: Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 3 4 Float
+M34F = <<7th constructor of 'Mat>>
+
+M42F :: Vec 4 Float -> Vec 4 Float -> Mat 4 2 Float
+M42F = <<2nd constructor of 'Mat>>
+
+M43F :: Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 3 Float
+M43F = <<5th constructor of 'Mat>>
+
 M44F
   :: Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-case'Mat
-  :: forall (a :: forall (b :: Nat) (c :: Nat) d -> Mat b c d -> Type)
-    -> (forall (e :: Vec 2 Float) (f :: Vec 2 Float) -> a 2 2 Float ('M22F e f))
-      -> (forall (g :: Vec 3 Float) (h :: Vec 3 Float) -> a 3 2 Float ('M32F g h))
-        -> (forall (i :: Vec 4 Float) (j :: Vec 4 Float) -> a 4 2 Float ('M42F i j))
-          -> (forall (k :: Vec 2 Float) (l :: Vec 2 Float) (m :: Vec 2 Float)
-              -> a 2 3 Float ('M23F k l m))
-            -> (forall (n :: Vec 3 Float) (o :: Vec 3 Float) (p :: Vec 3 Float)
-                -> a 3 3 Float ('M33F n o p))
-              -> (forall (q :: Vec 4 Float) (r :: Vec 4 Float) (s :: Vec 4 Float)
-                  -> a 4 3 Float ('M43F q r s))
-                -> (forall (t :: Vec 2 Float)
-                      (u :: Vec 2 Float) (v :: Vec 2 Float) (w :: Vec 2 Float)
-                    -> a 2 4 Float ('M24F t u v w))
-                  -> (forall (x :: Vec 3 Float)
-                        (y :: Vec 3 Float) (z :: Vec 3 Float) (a' :: Vec 3 Float)
-                      -> a 3 4 Float ('M34F x y z a'))
-                    -> (forall (b' :: Vec 4 Float)
-                          (c' :: Vec 4 Float) (d' :: Vec 4 Float) (e' :: Vec 4 Float)
-                        -> a 4 4 Float ('M44F b' c' d' e'))
-                      -> forall (f' :: Nat) (g' :: Nat) h'
-                        . forall (i' :: Mat f' g' h') -> a f' g' h' i'
-match'Mat
-  :: forall (a :: Type -> Type)
-    -> (forall (b :: Nat) (c :: Nat) d -> a (Mat b c d)) -> forall e -> a e -> a e
-'MatVecScalarElem :: Type -> Type
-'Signed :: Type -> Constraint
-'Component :: Type -> Constraint
-zero :: forall a . Component a => a
-one :: forall a . Component a => a
-'Integral :: Type -> Constraint
-'Floating :: Type -> Constraint
+M44F = <<8th constructor of 'Mat>>
+
+Max :: BlendEquation
+Max = <<4th constructor of 'BlendEquation>>
+
+Min :: BlendEquation
+Min = <<3rd constructor of 'BlendEquation>>
+
+MirroredRepeat :: EdgeMode
+MirroredRepeat = <<1st constructor of 'EdgeMode>>
+
+Nand :: LogicOperation
+Nand = <<14th constructor of 'LogicOperation>>
+
+Never :: ComparisonFunction
+Never = <<0th constructor of 'ComparisonFunction>>
+
+NoBlending :: forall a . Blending a
+NoBlending = <<0th constructor of 'Blending>>
+
+NoOffset :: PolygonOffset
+NoOffset = <<0th constructor of 'PolygonOffset>>
+
+NoPerspective :: forall a . Floating a => Interpolated a
+NoPerspective = <<1st constructor of 'Interpolated>>
+
+Noop :: LogicOperation
+Noop = <<5th constructor of 'LogicOperation>>
+
+Nor :: LogicOperation
+Nor = <<8th constructor of 'LogicOperation>>
+
+Notequal :: ComparisonFunction
+Notequal = <<5th constructor of 'ComparisonFunction>>
+
+Nothing :: forall a . Maybe a
+Nothing = <<0th constructor of 'Maybe>>
+
+Offset :: Float -> Float -> PolygonOffset
+Offset = <<1st constructor of 'PolygonOffset>>
+
+OneBF :: BlendingFactor
+OneBF = <<1st constructor of 'BlendingFactor>>
+
+OneMinusConstantAlpha :: BlendingFactor
+OneMinusConstantAlpha = <<13th constructor of 'BlendingFactor>>
+
+OneMinusConstantColor :: BlendingFactor
+OneMinusConstantColor = <<11th constructor of 'BlendingFactor>>
+
+OneMinusDstAlpha :: BlendingFactor
+OneMinusDstAlpha = <<9th constructor of 'BlendingFactor>>
+
+OneMinusDstColor :: BlendingFactor
+OneMinusDstColor = <<5th constructor of 'BlendingFactor>>
+
+OneMinusSrcAlpha :: BlendingFactor
+OneMinusSrcAlpha = <<7th constructor of 'BlendingFactor>>
+
+OneMinusSrcColor :: BlendingFactor
+OneMinusSrcColor = <<3rd constructor of 'BlendingFactor>>
+
+OpDecr :: StencilOperation
+OpDecr = <<5th constructor of 'StencilOperation>>
+
+OpDecrWrap :: StencilOperation
+OpDecrWrap = <<6th constructor of 'StencilOperation>>
+
+OpIncr :: StencilOperation
+OpIncr = <<3rd constructor of 'StencilOperation>>
+
+OpIncrWrap :: StencilOperation
+OpIncrWrap = <<4th constructor of 'StencilOperation>>
+
+OpInvert :: StencilOperation
+OpInvert = <<7th constructor of 'StencilOperation>>
+
+OpKeep :: StencilOperation
+OpKeep = <<1st constructor of 'StencilOperation>>
+
+OpReplace :: StencilOperation
+OpReplace = <<2nd constructor of 'StencilOperation>>
+
+OpZero :: StencilOperation
+OpZero = <<0th constructor of 'StencilOperation>>
+
+Or :: LogicOperation
+Or = <<7th constructor of 'LogicOperation>>
+
+OrInverted :: LogicOperation
+OrInverted = <<13th constructor of 'LogicOperation>>
+
+OrReverse :: LogicOperation
+OrReverse = <<11th constructor of 'LogicOperation>>
+
+Point :: PrimitiveType
+Point = <<2nd constructor of 'PrimitiveType>>
+
+PointCtx
+  :: forall a
+    . PointSize a -> Float -> PointSpriteCoordOrigin -> RasterContext a 'Point
+PointCtx = <<1st constructor of 'RasterContext>>
+
+PointFilter :: Filter
+PointFilter = <<0th constructor of 'Filter>>
+
+PointSize :: forall a . Float -> PointSize a
+PointSize = <<0th constructor of 'PointSize>>
+
+PolygonFill :: forall a . PolygonMode a
+PolygonFill = <<0th constructor of 'PolygonMode>>
+
+PolygonLine :: forall a . Float -> PolygonMode a
+PolygonLine = <<2nd constructor of 'PolygonMode>>
+
+PolygonPoint :: forall a . PointSize a -> PolygonMode a
+PolygonPoint = <<1st constructor of 'PolygonMode>>
+
+PrimACos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimACos = \a b c d -> <<builtin>>
+
+PrimACosH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimACosH = \a b c d -> <<builtin>>
+
+PrimASin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimASin = \a b c d -> <<builtin>>
+
+PrimASinH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimASinH = \a b c d -> <<builtin>>
+
+PrimATan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimATan = \a b c d -> <<builtin>>
+
+PrimATan2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+PrimATan2 = \a b c d e -> <<builtin>>
+
+PrimATanH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimATanH = \a b c d -> <<builtin>>
+
+PrimAbs :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+PrimAbs = \a b c d e f -> <<builtin>>
+
 PrimAdd :: forall a . Num (MatVecScalarElem a) => a -> a -> a
-PrimSub :: forall a . Num (MatVecScalarElem a) => a -> a -> a
-PrimMul :: forall a . Num (MatVecScalarElem a) => a -> a -> a
+PrimAdd = \a b c d -> <<builtin>>
+
 PrimAddS :: forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
-PrimSubS :: forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
-PrimMulS :: forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
-PrimDiv :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-PrimMod :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-PrimDivS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-PrimModS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-PrimNeg :: forall a . Signed (MatVecScalarElem a) => a -> a
+PrimAddS = \a b c d e f -> <<builtin>>
+
+PrimAll :: forall (a :: Nat) . VecScalar a Bool -> Bool
+PrimAll = \a b -> <<builtin>>
+
+PrimAnd :: Bool -> Bool -> Bool
+PrimAnd = \a b -> <<builtin>>
+
+PrimAny :: forall (a :: Nat) . VecScalar a Bool -> Bool
+PrimAny = \a b -> <<builtin>>
+
 PrimBAnd
   :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-PrimBOr
-  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-PrimBXor
-  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+PrimBAnd = \a b c d e f g -> <<builtin>>
+
 PrimBAndS
   :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+PrimBAndS = \a b c d e f g -> <<builtin>>
+
+PrimBNot :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
+PrimBNot = \a b c d e f -> <<builtin>>
+
+PrimBOr
+  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+PrimBOr = \a b c d e f g -> <<builtin>>
+
 PrimBOrS
   :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-PrimBXorS
-  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-PrimBNot :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
+PrimBOrS = \a b c d e f g -> <<builtin>>
+
 PrimBShiftL
   :: forall a b (c :: Nat) d
     . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+PrimBShiftL = \a b c d e f g h i -> <<builtin>>
+
+PrimBShiftLS
+  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+PrimBShiftLS = \a b c d e f g -> <<builtin>>
+
 PrimBShiftR
   :: forall a b (c :: Nat) d
     . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
-PrimBShiftLS
-  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+PrimBShiftR = \a b c d e f g h i -> <<builtin>>
+
 PrimBShiftRS
   :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
-PrimAnd :: Bool -> Bool -> Bool
-PrimOr :: Bool -> Bool -> Bool
-PrimXor :: Bool -> Bool -> Bool
-PrimNot :: forall a (b :: Nat) . (a ~ VecScalar b Bool) => a -> a
-PrimAny :: forall (a :: Nat) . VecScalar a Bool -> Bool
-PrimAll :: forall (a :: Nat) . VecScalar a Bool -> Bool
-PrimACos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimACosH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimASin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimASinH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimATan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimATanH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimCos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimCosH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimDegrees :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimRadians :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimSin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimSinH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimTan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimTanH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimExp :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimLog :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimExp2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimLog2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimSqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimInvSqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimPow :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-PrimATan2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-PrimFloor :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimTrunc :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimRound :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimRoundEven :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimBShiftRS = \a b c d e f g -> <<builtin>>
+
+PrimBXor
+  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+PrimBXor = \a b c d e f g -> <<builtin>>
+
+PrimBXorS
+  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+PrimBXorS = \a b c d e f g -> <<builtin>>
+
 PrimCeil :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimFract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimMin :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-PrimMax :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-PrimMinS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-PrimMaxS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-PrimIsNan
-  :: forall a (b :: Nat) c
-    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-PrimIsInf
-  :: forall a (b :: Nat) c
-    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-PrimAbs :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-PrimSign :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-PrimModF :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
+PrimCeil = \a b c d -> <<builtin>>
+
 PrimClamp
   :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
+PrimClamp = \a b c d e f g h -> <<builtin>>
+
 PrimClampS
   :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
-PrimMix :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-PrimMixS
-  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
-PrimMixB
-  :: forall a (b :: Nat) c
-    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
-PrimStep :: forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
-PrimStepS :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
-PrimSmoothStep :: forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
-PrimSmoothStepS
-  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
-PrimFloatBitsToInt :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
-PrimFloatBitsToUInt :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
-PrimIntBitsToFloat :: forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
-PrimUIntBitsToFloat :: forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
-PrimLength :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
-PrimDistance :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-PrimDot :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+PrimClampS = \a b c d e f g h -> <<builtin>>
+
+PrimCos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimCos = \a b c d -> <<builtin>>
+
+PrimCosH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimCosH = \a b c d -> <<builtin>>
+
 PrimCross :: forall a . (a ~ VecS Float 3) => a -> a -> a
-PrimNormalize :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimFaceForward
-  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-PrimRefract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-PrimReflect :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-PrimTranspose :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
+PrimCross = \a b c d -> <<builtin>>
+
+PrimDFdx :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimDFdx = \a b c d -> <<builtin>>
+
+PrimDFdy :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimDFdy = \a b c d -> <<builtin>>
+
+PrimDegrees :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimDegrees = \a b c d -> <<builtin>>
+
 PrimDeterminant :: forall (a :: Nat) b . Mat a a b -> Float
-PrimInverse :: forall (a :: Nat) b . Mat a a b -> Mat a a b
-PrimOuterProduct
-  :: forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
-PrimMulMatVec
-  :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> Vec b c -> Vec a c
-PrimMulVecMat
-  :: forall (a :: Nat) b (c :: Nat) . Vec a b -> Mat a c b -> Vec c b
-PrimMulMatMat
-  :: forall (a :: Nat) (b :: Nat) c (d :: Nat)
-    . Mat a b c -> Mat b d c -> Mat a d c
-PrimLessThan
-  :: forall a (b :: Nat) c d
-    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-PrimLessThanEqual
+PrimDeterminant = \a b c -> <<builtin>>
+
+PrimDistance :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+PrimDistance = \a b c d e -> <<builtin>>
+
+PrimDiv :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimDiv = \a b c d e f g -> <<builtin>>
+
+PrimDivS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimDivS = \a b c d e f g -> <<builtin>>
+
+PrimDot :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+PrimDot = \a b c d e -> <<builtin>>
+
+PrimEqual :: forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
+PrimEqual = \a b c d e -> <<builtin>>
+
+PrimEqualV
   :: forall a (b :: Nat) c d
     . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimEqualV = \a b c d e f g h i -> <<builtin>>
+
+PrimExp :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimExp = \a b c d -> <<builtin>>
+
+PrimExp2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimExp2 = \a b c d -> <<builtin>>
+
+PrimFWidth :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimFWidth = \a b c d -> <<builtin>>
+
+PrimFaceForward
+  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+PrimFaceForward = \a b c d e f -> <<builtin>>
+
+PrimFloatBitsToInt :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
+PrimFloatBitsToInt = \a b -> <<builtin>>
+
+PrimFloatBitsToUInt :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
+PrimFloatBitsToUInt = \a b -> <<builtin>>
+
+PrimFloor :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimFloor = \a b c d -> <<builtin>>
+
+PrimFract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimFract = \a b c d -> <<builtin>>
+
 PrimGreaterThan
   :: forall a (b :: Nat) c d
     . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimGreaterThan = \a b c d e f g h i -> <<builtin>>
+
 PrimGreaterThanEqual
   :: forall a (b :: Nat) c d
     . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-PrimEqualV
+PrimGreaterThanEqual = \a b c d e f g h i -> <<builtin>>
+
+PrimIntBitsToFloat :: forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
+PrimIntBitsToFloat = \a b -> <<builtin>>
+
+PrimInvSqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimInvSqrt = \a b c d -> <<builtin>>
+
+PrimInverse :: forall (a :: Nat) b . Mat a a b -> Mat a a b
+PrimInverse = \a b c -> <<builtin>>
+
+PrimIsInf
+  :: forall a (b :: Nat) c
+    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+PrimIsInf = \a b c d e f -> <<builtin>>
+
+PrimIsNan
+  :: forall a (b :: Nat) c
+    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+PrimIsNan = \a b c d e f -> <<builtin>>
+
+PrimLength :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
+PrimLength = \a b c d -> <<builtin>>
+
+PrimLessThan
   :: forall a (b :: Nat) c d
     . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-PrimNotEqualV
+PrimLessThan = \a b c d e f g h i -> <<builtin>>
+
+PrimLessThanEqual
   :: forall a (b :: Nat) c d
     . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-PrimEqual :: forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
-PrimNotEqual :: forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
-PrimDFdx :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimDFdy :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimFWidth :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimLessThanEqual = \a b c d e f g h i -> <<builtin>>
+
+PrimLine :: forall a . a -> a -> Primitive a 'Line
+PrimLine = <<1st constructor of 'Primitive>>
+
+PrimLog :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimLog = \a b c d -> <<builtin>>
+
+PrimLog2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimLog2 = \a b c d -> <<builtin>>
+
+PrimMax :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimMax = \a b c d e f g -> <<builtin>>
+
+PrimMaxS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimMaxS = \a b c d e f g -> <<builtin>>
+
+PrimMin :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimMin = \a b c d e f g -> <<builtin>>
+
+PrimMinS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimMinS = \a b c d e f g -> <<builtin>>
+
+PrimMix :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+PrimMix = \a b c d e f -> <<builtin>>
+
+PrimMixB
+  :: forall a (b :: Nat) c
+    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
+PrimMixB = \a b c d e f g h -> <<builtin>>
+
+PrimMixS
+  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
+PrimMixS = \a b c d e f -> <<builtin>>
+
+PrimMod :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimMod = \a b c d e f g -> <<builtin>>
+
+PrimModF :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
+PrimModF = \a b c d -> <<builtin>>
+
+PrimModS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimModS = \a b c d e f g -> <<builtin>>
+
+PrimMul :: forall a . Num (MatVecScalarElem a) => a -> a -> a
+PrimMul = \a b c d -> <<builtin>>
+
+PrimMulMatMat
+  :: forall (a :: Nat) (b :: Nat) c (d :: Nat)
+    . Mat a b c -> Mat b d c -> Mat a d c
+PrimMulMatMat = \a b c d e f -> <<builtin>>
+
+PrimMulMatVec
+  :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> Vec b c -> Vec a c
+PrimMulMatVec = \a b c d e -> <<builtin>>
+
+PrimMulS :: forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
+PrimMulS = \a b c d e f -> <<builtin>>
+
+PrimMulVecMat
+  :: forall (a :: Nat) b (c :: Nat) . Vec a b -> Mat a c b -> Vec c b
+PrimMulVecMat = \a b c d e -> <<builtin>>
+
+PrimNeg :: forall a . Signed (MatVecScalarElem a) => a -> a
+PrimNeg = \a b c -> <<builtin>>
+
 PrimNoise1 :: forall (a :: Nat) . VecScalar a Float -> Float
+PrimNoise1 = \a b -> <<builtin>>
+
 PrimNoise2 :: forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
+PrimNoise2 = \a b -> <<builtin>>
+
 PrimNoise3 :: forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
+PrimNoise3 = \a b -> <<builtin>>
+
 PrimNoise4 :: forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
-head :: forall a . [a] -> a
-(++) :: forall a . [a] -> [a] -> [a]
-foldr :: forall a b . (b -> a -> a) -> a -> [b] -> a
-concat :: forall a . [[a]] -> [a]
-map :: forall a b . (a -> b) -> [a] -> [b]
-concatMap :: forall a b . (a -> [b]) -> [a] -> [b]
-len :: forall a . [a] -> Int
-'Maybe :: Type -> Type
-Nothing :: forall a . Maybe a
-Just :: forall a . a -> Maybe a
-case'Maybe
-  :: forall a
-    . forall (b :: Maybe a -> Type)
-      -> b 'Nothing
-        -> (forall (c :: a) -> b ('Just c)) -> forall (d :: Maybe a) -> b d
-match'Maybe
-  :: forall (a :: Type -> Type)
-    -> (forall b -> a (Maybe b)) -> forall c -> a c -> a c
-'Vector :: Nat -> Type -> Type
-case'Vector
-  :: forall (a :: Nat) b
-    . forall (c :: Vector a b -> Type) (d :: Vector a b) -> c d
-match'Vector
-  :: forall (a :: Type -> Type)
-    -> (forall (b :: Nat) c -> a (Vector b c)) -> forall d -> a d -> a d
-'PrimitiveType :: Type
-Triangle :: PrimitiveType
-Line :: PrimitiveType
-Point :: PrimitiveType
-TriangleAdjacency :: PrimitiveType
-LineAdjacency :: PrimitiveType
-case'PrimitiveType
-  :: forall (a :: PrimitiveType -> Type)
-    -> a 'Triangle
-      -> a 'Line
-        -> a 'Point
-          -> a 'TriangleAdjacency
-            -> a 'LineAdjacency -> forall (b :: PrimitiveType) -> a b
-match'PrimitiveType
-  :: forall (a :: Type -> Type) -> a PrimitiveType -> forall b -> a b -> a b
-'Primitive :: Type -> PrimitiveType -> Type
+PrimNoise4 = \a b -> <<builtin>>
+
+PrimNormalize :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimNormalize = \a b c d -> <<builtin>>
+
+PrimNot :: forall a (b :: Nat) . (a ~ VecScalar b Bool) => a -> a
+PrimNot = \a b c d -> <<builtin>>
+
+PrimNotEqual :: forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
+PrimNotEqual = \a b c d e -> <<builtin>>
+
+PrimNotEqualV
+  :: forall a (b :: Nat) c d
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimNotEqualV = \a b c d e f g h i -> <<builtin>>
+
+PrimOr :: Bool -> Bool -> Bool
+PrimOr = \a b -> <<builtin>>
+
+PrimOuterProduct
+  :: forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
+PrimOuterProduct = \a b c d e -> <<builtin>>
+
 PrimPoint :: forall a . a -> Primitive a 'Point
-PrimLine :: forall a . a -> a -> Primitive a 'Line
+PrimPoint = <<0th constructor of 'Primitive>>
+
+PrimPow :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+PrimPow = \a b c d e -> <<builtin>>
+
+PrimRadians :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimRadians = \a b c d -> <<builtin>>
+
+PrimReflect :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+PrimReflect = \a b c d e -> <<builtin>>
+
+PrimRefract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+PrimRefract = \a b c d e f -> <<builtin>>
+
+PrimRound :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimRound = \a b c d -> <<builtin>>
+
+PrimRoundEven :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimRoundEven = \a b c d -> <<builtin>>
+
+PrimSign :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+PrimSign = \a b c d e f -> <<builtin>>
+
+PrimSin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimSin = \a b c d -> <<builtin>>
+
+PrimSinH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimSinH = \a b c d -> <<builtin>>
+
+PrimSmoothStep :: forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
+PrimSmoothStep = \a b c d e f -> <<builtin>>
+
+PrimSmoothStepS
+  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
+PrimSmoothStepS = \a b c d e f -> <<builtin>>
+
+PrimSqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimSqrt = \a b c d -> <<builtin>>
+
+PrimStep :: forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
+PrimStep = \a b c d e -> <<builtin>>
+
+PrimStepS :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
+PrimStepS = \a b c d e -> <<builtin>>
+
+PrimSub :: forall a . Num (MatVecScalarElem a) => a -> a -> a
+PrimSub = \a b c d -> <<builtin>>
+
+PrimSubS :: forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
+PrimSubS = \a b c d e f -> <<builtin>>
+
+PrimTan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimTan = \a b c d -> <<builtin>>
+
+PrimTanH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimTanH = \a b c d -> <<builtin>>
+
+PrimTranspose :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
+PrimTranspose = \a b c d -> <<builtin>>
+
 PrimTriangle :: forall a . a -> a -> a -> Primitive a 'Triangle
-case'Primitive
-  :: forall a
-    . forall (b :: forall (c :: PrimitiveType) -> Primitive a c -> Type)
-      -> (forall (d :: a) -> b 'Point ('PrimPoint d))
-        -> (forall (e :: a) (f :: a) -> b 'Line ('PrimLine e f))
-          -> (forall (g :: a) (h :: a) (i :: a) -> b 'Triangle ('PrimTriangle g h i))
-            -> forall (j :: PrimitiveType) . forall (k :: Primitive a j) -> b j k
-match'Primitive
-  :: forall (a :: Type -> Type)
-    -> (forall b (c :: PrimitiveType) -> a (Primitive b c))
-      -> forall d -> a d -> a d
-mapPrimitive
-  :: forall a b (c :: PrimitiveType) . (a -> b) -> Primitive a c -> Primitive b c
-'PrimitiveStream :: PrimitiveType -> Type -> Type
-mapPrimitives
-  :: forall a b (c :: PrimitiveType)
-    . (a -> b) -> [Primitive a c] -> [Primitive b c]
-'ListElem :: Type -> Type
-fetchArrays
-  :: forall (a :: PrimitiveType) (b :: [Type]) (c :: [Type])
-    . (b ~ (map Type Type ListElem c :: [Type]))
-      => HList c -> PrimitiveStream a (HList b)
-fetch
-  :: forall (a :: PrimitiveType) (b :: [Type])
-    . String -> HList b -> PrimitiveStream a (HList b)
-Attribute :: forall a . String -> a
-fetchStream
-  :: forall (a :: PrimitiveType) (b :: [Type])
-    . String
-      -> forall (c :: [String])
-        -> (len String c ~ (len Type b :: Int)) => PrimitiveStream a (HList b)
-'SimpleFragment :: Type -> Type
+PrimTriangle = <<2nd constructor of 'Primitive>>
+
+PrimTrunc :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimTrunc = \a b c d -> <<builtin>>
+
+PrimUIntBitsToFloat :: forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
+PrimUIntBitsToFloat = \a b -> <<builtin>>
+
+PrimXor :: Bool -> Bool -> Bool
+PrimXor = \a b -> <<builtin>>
+
+PrjImage :: forall (a :: ImageKind) . FrameBuffer 1 ' [a] -> Image 1 a
+PrjImage = \a b -> <<builtin>>
+
+PrjImageColor
+  :: FrameBuffer 1 ' ['Depth, 'Color (Vec 4 Float)]
+    -> Image 1 ('Color (Vec 4 Float))
+PrjImageColor = \a -> <<builtin>>
+
+ProgramPointSize :: forall a . (a -> Float) -> PointSize a
+ProgramPointSize = <<1st constructor of 'PointSize>>
+
+Repeat :: EdgeMode
+Repeat = <<0th constructor of 'EdgeMode>>
+
+Sampler :: Filter -> EdgeMode -> Texture -> Sampler
+Sampler = <<0th constructor of 'Sampler>>
+
+ScreenOut :: forall (a :: Nat) (b :: [ImageKind]) . FrameBuffer a b -> Output
+ScreenOut = <<0th constructor of 'Output>>
+
+Set :: LogicOperation
+Set = <<15th constructor of 'LogicOperation>>
+
 SimpleFragment :: forall a . Vec 3 Float -> a -> SimpleFragment a
-case'SimpleFragment
-  :: forall a
-    . forall (b :: SimpleFragment a -> Type)
-      -> (forall (c :: Vec 3 Float) (d :: a) -> b ('SimpleFragment c d))
-        -> forall (e :: SimpleFragment a) -> b e
-match'SimpleFragment
-  :: forall (a :: Type -> Type)
-    -> (forall b -> a (SimpleFragment b)) -> forall c -> a c -> a c
-'Fragment :: Nat -> Type -> Type
-sFragmentCoords :: forall a . SimpleFragment a -> VecS Float 3
-sFragmentValue :: forall a . SimpleFragment a -> a
-'FragmentStream :: Nat -> Type -> Type
-customizeDepth
-  :: forall a (b :: Nat) . (a -> Float) -> Fragment b a -> Fragment b a
-customizeDepths
-  :: forall a (b :: Nat)
-    . (a -> Float)
-      -> [Vector b (Maybe (SimpleFragment a))]
-        -> [Vector b (Maybe (SimpleFragment a))]
-filterFragment
-  :: forall a (b :: Nat) . (a -> Bool) -> Fragment b a -> Fragment b a
-filterFragments
-  :: forall a (b :: Nat)
-    . (a -> Bool)
-      -> [Vector b (Maybe (SimpleFragment a))]
-        -> [Vector b (Maybe (SimpleFragment a))]
-mapFragment :: forall a b (c :: Nat) . (a -> b) -> Fragment c a -> Fragment c b
-mapFragments
-  :: forall a b (c :: Nat)
-    . (a -> b)
-      -> [Vector c (Maybe (SimpleFragment a))]
-        -> [Vector c (Maybe (SimpleFragment b))]
-'ImageKind :: Type
-Color :: Type -> ImageKind
-Depth :: ImageKind
+SimpleFragment = <<0th constructor of 'SimpleFragment>>
+
+Smooth :: forall a . Floating a => Interpolated a
+Smooth = <<0th constructor of 'Interpolated>>
+
+SrcAlpha :: BlendingFactor
+SrcAlpha = <<6th constructor of 'BlendingFactor>>
+
+SrcAlphaSaturate :: BlendingFactor
+SrcAlphaSaturate = <<14th constructor of 'BlendingFactor>>
+
+SrcColor :: BlendingFactor
+SrcColor = <<2nd constructor of 'BlendingFactor>>
+
 Stencil :: ImageKind
-case'ImageKind
-  :: forall (a :: ImageKind -> Type)
-    -> (forall b -> a ('Color b))
-      -> a 'Depth -> a 'Stencil -> forall (c :: ImageKind) -> a c
-match'ImageKind
-  :: forall (a :: Type -> Type) -> a ImageKind -> forall b -> a b -> a b
-imageType :: ImageKind -> Type
-'Image :: Nat -> ImageKind -> Type
-case'Image
-  :: forall (a :: Nat) (b :: ImageKind)
-    . forall (c :: Image a b -> Type) (d :: Image a b) -> c d
-match'Image
-  :: forall (a :: Type -> Type)
-    -> (forall (b :: Nat) (c :: ImageKind) -> a (Image b c))
-      -> forall d -> a d -> a d
-ColorImage
-  :: forall (a :: Nat) (b :: Nat) c d
-    . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
-DepthImage :: forall (a :: Nat) . Float -> Image a 'Depth
+Stencil = <<2nd constructor of 'ImageKind>>
+
 StencilImage :: forall (a :: Nat) . Int -> Image a 'Stencil
-emptyDepthImage :: Float -> Image 1 'Depth
-emptyColorImage
-  :: forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
-'Swizz :: Type
+StencilImage = \a b -> <<builtin>>
+
+StencilOp
+  :: StencilTests -> StencilOps -> StencilOps -> FragmentOperation 'Stencil
+StencilOp = <<2nd constructor of 'FragmentOperation>>
+
+Sw :: Swizz
+Sw = <<3rd constructor of 'Swizz>>
+
 Sx :: Swizz
+Sx = <<0th constructor of 'Swizz>>
+
 Sy :: Swizz
+Sy = <<1st constructor of 'Swizz>>
+
 Sz :: Swizz
-Sw :: Swizz
-case'Swizz
-  :: forall (a :: Swizz -> Type)
-    -> a 'Sx -> a 'Sy -> a 'Sz -> a 'Sw -> forall (b :: Swizz) -> a b
-match'Swizz :: forall (a :: Type -> Type) -> a Swizz -> forall b -> a b -> a b
-swizzscalar :: forall a (b :: Nat) . Vec b a -> Swizz -> a
-definedVec :: forall a (b :: Nat) . Vec b a -> Bool
-swizzvector
-  :: forall a (b :: Nat) (c :: Nat) . Vec b a -> Vec c Swizz -> VecS a c
-'BlendingFactor :: Type
+Sz = <<2nd constructor of 'Swizz>>
+
+Texture2D :: Vec 2 Int -> Image 1 ('Color (Vec 4 Float)) -> Texture
+Texture2D = <<1st constructor of 'Texture>>
+
+Texture2DSlot :: String -> Texture
+Texture2DSlot = <<0th constructor of 'Texture>>
+
+Triangle :: PrimitiveType
+Triangle = <<0th constructor of 'PrimitiveType>>
+
+TriangleAdjacency :: PrimitiveType
+TriangleAdjacency = <<3rd constructor of 'PrimitiveType>>
+
+TriangleCtx
+  :: forall a
+    . CullMode
+      -> PolygonMode a
+        -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle
+TriangleCtx = <<0th constructor of 'RasterContext>>
+
+Uniform :: forall a . String -> a
+Uniform = \a b -> <<builtin>>
+
+UpperLeft :: PointSpriteCoordOrigin
+UpperLeft = <<1st constructor of 'PointSpriteCoordOrigin>>
+
+V2 :: forall a . a -> a -> VecS a 2
+V2 = <<0th constructor of 'VecS>>
+
+V3 :: forall a . a -> a -> a -> VecS a 3
+V3 = <<1st constructor of 'VecS>>
+
+V4 :: forall a . a -> a -> a -> a -> VecS a 4
+V4 = <<2nd constructor of 'VecS>>
+
+Xor :: LogicOperation
+Xor = <<6th constructor of 'LogicOperation>>
+
 ZeroBF :: BlendingFactor
-OneBF :: BlendingFactor
-SrcColor :: BlendingFactor
-OneMinusSrcColor :: BlendingFactor
-DstColor :: BlendingFactor
-OneMinusDstColor :: BlendingFactor
-SrcAlpha :: BlendingFactor
-OneMinusSrcAlpha :: BlendingFactor
-DstAlpha :: BlendingFactor
-OneMinusDstAlpha :: BlendingFactor
-ConstantColor :: BlendingFactor
-OneMinusConstantColor :: BlendingFactor
-ConstantAlpha :: BlendingFactor
-OneMinusConstantAlpha :: BlendingFactor
-SrcAlphaSaturate :: BlendingFactor
+ZeroBF = <<0th constructor of 'BlendingFactor>>
+
+accumulate
+  :: forall (a :: Nat) (b :: [Type]) c
+    . HList b
+      -> (c -> HList (imageType' (map Type ImageKind FragmentOperationKind b)))
+        -> [Vector a (Maybe (SimpleFragment c))]
+          -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+            -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+accumulate
+  = \a b c d e f g -> _rhs
+    (Accumulate
+      (map Type 'ImageKind 'FragmentOperationKind b)
+      a
+      b
+      TT
+      d
+      (map
+        ('Vector a ('Maybe ('SimpleFragment c)))
+        ('Vector
+          a
+          ('Maybe
+            ('SimpleFragment
+              ('HList (imageType' (map Type 'ImageKind 'FragmentOperationKind b))))))
+        (\h -> mapFragment
+          c
+          ('HList (imageType' (map Type 'ImageKind 'FragmentOperationKind b)))
+          a
+          e
+          h)
+        f)
+      g)
+
+accumulateWith :: forall a b . a -> b -> (a, b)
+accumulateWith = \a b c d -> _rhs (c, d)
+
+accumulationContext :: forall a . a -> a
+accumulationContext = \_ a -> _rhs a
+
+allSame :: forall a . [a] -> Constraint
+allSame
+  = primFix
+    (forall a . [a] -> 'Constraint)
+    \b c d -> case'List
+      (\_ -> 'Constraint)
+      (_rhs CUnit)
+      (\e f -> case'List
+        (\_ -> 'Constraint)
+        (_rhs CUnit)
+        (\g h -> _rhs ('T2 (e ~ (g :: c)) (b c (g : h))))
+        f)
+      d
+
+case'BlendEquation
+  :: forall (a :: BlendEquation -> Type)
+    -> a 'FuncAdd
+      -> a 'FuncSubtract
+        -> a 'FuncReverseSubtract
+          -> a 'Min -> a 'Max -> forall (b :: BlendEquation) -> a b
+case'BlendEquation
+  = \a b c d e f g -> <<case function of a type with 0 parameters>>
+
+case'Blending
+  :: forall (a :: forall b -> Blending b -> Type)
+    -> (forall c . a c ('NoBlending c))
+      -> (forall d (e :: CW (Integral d))
+          . forall (f :: LogicOperation) -> a d ('BlendLogicOp d e f))
+        -> (forall (g :: (BlendEquation, BlendEquation))
+              (h :: ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor)))
+                (i :: Vec 4 Float)
+            -> a Float ('Blend g h i))
+          -> forall j . forall (k :: Blending j) -> a j k
+case'Blending = \a b c d e f -> <<case function of a type with 0 parameters>>
+
 case'BlendingFactor
   :: forall (a :: BlendingFactor -> Type)
     -> a 'ZeroBF
@@ -1608,39 +2543,75 @@ case'BlendingFactor
                             -> a 'ConstantAlpha
                               -> a 'OneMinusConstantAlpha
                                 -> a 'SrcAlphaSaturate -> forall (b :: BlendingFactor) -> a b
-match'BlendingFactor
-  :: forall (a :: Type -> Type) -> a BlendingFactor -> forall b -> a b -> a b
-'BlendEquation :: Type
-FuncAdd :: BlendEquation
-FuncSubtract :: BlendEquation
-FuncReverseSubtract :: BlendEquation
-Min :: BlendEquation
-Max :: BlendEquation
-case'BlendEquation
-  :: forall (a :: BlendEquation -> Type)
-    -> a 'FuncAdd
-      -> a 'FuncSubtract
-        -> a 'FuncReverseSubtract
-          -> a 'Min -> a 'Max -> forall (b :: BlendEquation) -> a b
-match'BlendEquation
-  :: forall (a :: Type -> Type) -> a BlendEquation -> forall b -> a b -> a b
-'LogicOperation :: Type
-Clear :: LogicOperation
-And :: LogicOperation
-AndReverse :: LogicOperation
-Copy :: LogicOperation
-AndInverted :: LogicOperation
-Noop :: LogicOperation
-Xor :: LogicOperation
-Or :: LogicOperation
-Nor :: LogicOperation
-Equiv :: LogicOperation
-Invert :: LogicOperation
-OrReverse :: LogicOperation
-CopyInverted :: LogicOperation
-OrInverted :: LogicOperation
-Nand :: LogicOperation
-Set :: LogicOperation
+case'BlendingFactor
+  = \a b c d e f g h i j k l m n o p q
+    -> <<case function of a type with 0 parameters>>
+
+case'ComparisonFunction
+  :: forall (a :: ComparisonFunction -> Type)
+    -> a 'Never
+      -> a 'Less
+        -> a 'Equal
+          -> a 'Lequal
+            -> a 'Greater
+              -> a 'Notequal
+                -> a 'Gequal -> a 'Always -> forall (b :: ComparisonFunction) -> a b
+case'ComparisonFunction
+  = \a b c d e f g h i j -> <<case function of a type with 0 parameters>>
+
+case'CullMode
+  :: forall (a :: CullMode -> Type)
+    -> a 'CullFront -> a 'CullBack -> a 'CullNone -> forall (b :: CullMode) -> a b
+case'CullMode = \a b c d e -> <<case function of a type with 0 parameters>>
+
+case'EdgeMode
+  :: forall (a :: EdgeMode -> Type)
+    -> a 'Repeat
+      -> a 'MirroredRepeat -> a 'ClampToEdge -> forall (b :: EdgeMode) -> a b
+case'EdgeMode = \a b c d e -> <<case function of a type with 0 parameters>>
+
+case'Filter
+  :: forall (a :: Filter -> Type)
+    -> a 'PointFilter -> a 'LinearFilter -> forall (b :: Filter) -> a b
+case'Filter = \a b c d -> <<case function of a type with 0 parameters>>
+
+case'FragmentOperation
+  :: forall (a :: forall (b :: ImageKind) -> FragmentOperation b -> Type)
+    -> (forall c (d :: Nat) (e :: CW (Num c))
+        . forall (f :: Blending c) (g :: VecScalar d Bool)
+          -> a ('Color (VecScalar d c)) ('ColorOp c d e f g))
+      -> (forall (h :: ComparisonFunction) (i :: Bool) -> a 'Depth ('DepthOp h i))
+        -> (forall (j :: StencilTests) (k :: StencilOps) (l :: StencilOps)
+            -> a 'Stencil ('StencilOp j k l))
+          -> forall (m :: ImageKind) . forall (n :: FragmentOperation m) -> a m n
+case'FragmentOperation
+  = \a b c d e f -> <<case function of a type with 0 parameters>>
+
+case'FrameBuffer
+  :: forall (a :: Nat) (b :: [ImageKind])
+    . forall (c :: FrameBuffer a b -> Type) (d :: FrameBuffer a b) -> c d
+case'FrameBuffer = \_ _ a b -> <<case function of a type with 2 parameters>>
+
+case'Image
+  :: forall (a :: Nat) (b :: ImageKind)
+    . forall (c :: Image a b -> Type) (d :: Image a b) -> c d
+case'Image = \_ _ a b -> <<case function of a type with 2 parameters>>
+
+case'ImageKind
+  :: forall (a :: ImageKind -> Type)
+    -> (forall b -> a ('Color b))
+      -> a 'Depth -> a 'Stencil -> forall (c :: ImageKind) -> a c
+case'ImageKind = \a b c d e -> <<case function of a type with 0 parameters>>
+
+case'Interpolated
+  :: forall a
+    . forall (b :: Interpolated a -> Type)
+      -> (forall (c :: CW (Floating a)) . b ('Smooth c))
+        -> (forall (d :: CW (Floating a)) . b ('NoPerspective d))
+          -> b 'Flat -> forall (e :: Interpolated a) -> b e
+case'Interpolated
+  = \_ a b c d e -> <<case function of a type with 1 parameters>>
+
 case'LogicOperation
   :: forall (a :: LogicOperation -> Type)
     -> a 'Clear
@@ -1657,81 +2628,63 @@ case'LogicOperation
                           -> a 'OrReverse
                             -> a 'CopyInverted
                               -> a 'OrInverted -> a 'Nand -> a 'Set -> forall (b :: LogicOperation) -> a b
-match'LogicOperation
-  :: forall (a :: Type -> Type) -> a LogicOperation -> forall b -> a b -> a b
-'StencilOperation :: Type
-OpZero :: StencilOperation
-OpKeep :: StencilOperation
-OpReplace :: StencilOperation
-OpIncr :: StencilOperation
-OpIncrWrap :: StencilOperation
-OpDecr :: StencilOperation
-OpDecrWrap :: StencilOperation
-OpInvert :: StencilOperation
-case'StencilOperation
-  :: forall (a :: StencilOperation -> Type)
-    -> a 'OpZero
-      -> a 'OpKeep
-        -> a 'OpReplace
-          -> a 'OpIncr
-            -> a 'OpIncrWrap
-              -> a 'OpDecr
-                -> a 'OpDecrWrap -> a 'OpInvert -> forall (b :: StencilOperation) -> a b
-match'StencilOperation
-  :: forall (a :: Type -> Type) -> a StencilOperation -> forall b -> a b -> a b
-'ComparisonFunction :: Type
-Never :: ComparisonFunction
-Less :: ComparisonFunction
-Equal :: ComparisonFunction
-Lequal :: ComparisonFunction
-Greater :: ComparisonFunction
-Notequal :: ComparisonFunction
-Gequal :: ComparisonFunction
-Always :: ComparisonFunction
-case'ComparisonFunction
-  :: forall (a :: ComparisonFunction -> Type)
-    -> a 'Never
-      -> a 'Less
-        -> a 'Equal
-          -> a 'Lequal
-            -> a 'Greater
-              -> a 'Notequal
-                -> a 'Gequal -> a 'Always -> forall (b :: ComparisonFunction) -> a b
-match'ComparisonFunction
-  :: forall (a :: Type -> Type) -> a ComparisonFunction -> forall b -> a b -> a b
-'ProvokingVertex :: Type
-LastVertex :: ProvokingVertex
-FirstVertex :: ProvokingVertex
-case'ProvokingVertex
-  :: forall (a :: ProvokingVertex -> Type)
-    -> a 'LastVertex -> a 'FirstVertex -> forall (b :: ProvokingVertex) -> a b
-match'ProvokingVertex
-  :: forall (a :: Type -> Type) -> a ProvokingVertex -> forall b -> a b -> a b
-'CullMode :: Type
-CullFront :: CullMode
-CullBack :: CullMode
-CullNone :: CullMode
-case'CullMode
-  :: forall (a :: CullMode -> Type)
-    -> a 'CullFront -> a 'CullBack -> a 'CullNone -> forall (b :: CullMode) -> a b
-match'CullMode
-  :: forall (a :: Type -> Type) -> a CullMode -> forall b -> a b -> a b
-'PointSize :: Type -> Type
-PointSize :: forall a . Float -> PointSize a
-ProgramPointSize :: forall a . (a -> Float) -> PointSize a
+case'LogicOperation
+  = \a b c d e f g h i j k l m n o p q r
+    -> <<case function of a type with 0 parameters>>
+
+case'Mat
+  :: forall (a :: forall (b :: Nat) (c :: Nat) d -> Mat b c d -> Type)
+    -> (forall (e :: Vec 2 Float) (f :: Vec 2 Float) -> a 2 2 Float ('M22F e f))
+      -> (forall (g :: Vec 3 Float) (h :: Vec 3 Float) -> a 3 2 Float ('M32F g h))
+        -> (forall (i :: Vec 4 Float) (j :: Vec 4 Float) -> a 4 2 Float ('M42F i j))
+          -> (forall (k :: Vec 2 Float) (l :: Vec 2 Float) (m :: Vec 2 Float)
+              -> a 2 3 Float ('M23F k l m))
+            -> (forall (n :: Vec 3 Float) (o :: Vec 3 Float) (p :: Vec 3 Float)
+                -> a 3 3 Float ('M33F n o p))
+              -> (forall (q :: Vec 4 Float) (r :: Vec 4 Float) (s :: Vec 4 Float)
+                  -> a 4 3 Float ('M43F q r s))
+                -> (forall (t :: Vec 2 Float)
+                      (u :: Vec 2 Float) (v :: Vec 2 Float) (w :: Vec 2 Float)
+                    -> a 2 4 Float ('M24F t u v w))
+                  -> (forall (x :: Vec 3 Float)
+                        (y :: Vec 3 Float) (z :: Vec 3 Float) (a' :: Vec 3 Float)
+                      -> a 3 4 Float ('M34F x y z a'))
+                    -> (forall (b' :: Vec 4 Float)
+                          (c' :: Vec 4 Float) (d' :: Vec 4 Float) (e' :: Vec 4 Float)
+                        -> a 4 4 Float ('M44F b' c' d' e'))
+                      -> forall (f' :: Nat) (g' :: Nat) h'
+                        . forall (i' :: Mat f' g' h') -> a f' g' h' i'
+case'Mat
+  = \a b c d e f g h i j k l m n -> <<case function of a type with 0 parameters>>
+
+case'Maybe
+  :: forall a
+    . forall (b :: Maybe a -> Type)
+      -> b 'Nothing
+        -> (forall (c :: a) -> b ('Just c)) -> forall (d :: Maybe a) -> b d
+case'Maybe = \_ a b c d -> <<case function of a type with 1 parameters>>
+
+case'Output
+  :: forall (a :: Output -> Type)
+    -> (forall (b :: Nat) (c :: [ImageKind])
+        . forall (d :: FrameBuffer b c) -> a ('ScreenOut b c d))
+      -> forall (e :: Output) -> a e
+case'Output = \a b c -> <<case function of a type with 0 parameters>>
+
 case'PointSize
   :: forall a
     . forall (b :: PointSize a -> Type)
       -> (forall (c :: Float) -> b ('PointSize c))
         -> (forall (d :: a -> Float) -> b ('ProgramPointSize d))
           -> forall (e :: PointSize a) -> b e
-match'PointSize
-  :: forall (a :: Type -> Type)
-    -> (forall b -> a (PointSize b)) -> forall c -> a c -> a c
-'PolygonMode :: Type -> Type
-PolygonFill :: forall a . PolygonMode a
-PolygonPoint :: forall a . PointSize a -> PolygonMode a
-PolygonLine :: forall a . Float -> PolygonMode a
+case'PointSize = \_ a b c d -> <<case function of a type with 1 parameters>>
+
+case'PointSpriteCoordOrigin
+  :: forall (a :: PointSpriteCoordOrigin -> Type)
+    -> a 'LowerLeft -> a 'UpperLeft -> forall (b :: PointSpriteCoordOrigin) -> a b
+case'PointSpriteCoordOrigin
+  = \a b c d -> <<case function of a type with 0 parameters>>
+
 case'PolygonMode
   :: forall a
     . forall (b :: PolygonMode a -> Type)
@@ -1739,40 +2692,39 @@ case'PolygonMode
         -> (forall (c :: PointSize a) -> b ('PolygonPoint c))
           -> (forall (d :: Float) -> b ('PolygonLine d))
             -> forall (e :: PolygonMode a) -> b e
-match'PolygonMode
-  :: forall (a :: Type -> Type)
-    -> (forall b -> a (PolygonMode b)) -> forall c -> a c -> a c
-'PolygonOffset :: Type
-NoOffset :: PolygonOffset
-Offset :: Float -> Float -> PolygonOffset
+case'PolygonMode = \_ a b c d e -> <<case function of a type with 1 parameters>>
+
 case'PolygonOffset
   :: forall (a :: PolygonOffset -> Type)
     -> a 'NoOffset
       -> (forall (b :: Float) (c :: Float) -> a ('Offset b c))
         -> forall (d :: PolygonOffset) -> a d
-match'PolygonOffset
-  :: forall (a :: Type -> Type) -> a PolygonOffset -> forall b -> a b -> a b
-'PointSpriteCoordOrigin :: Type
-LowerLeft :: PointSpriteCoordOrigin
-UpperLeft :: PointSpriteCoordOrigin
-case'PointSpriteCoordOrigin
-  :: forall (a :: PointSpriteCoordOrigin -> Type)
-    -> a 'LowerLeft -> a 'UpperLeft -> forall (b :: PointSpriteCoordOrigin) -> a b
-match'PointSpriteCoordOrigin
-  :: forall (a :: Type -> Type)
-    -> a PointSpriteCoordOrigin -> forall b -> a b -> a b
-primTexture :: () -> Vec 2 Float -> Vec 4 Float
-Uniform :: forall a . String -> a
-'RasterContext :: Type -> PrimitiveType -> Type
-TriangleCtx
-  :: forall a
-    . CullMode
-      -> PolygonMode a
-        -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle
-PointCtx
+case'PolygonOffset = \a b c d -> <<case function of a type with 0 parameters>>
+
+case'Primitive
   :: forall a
-    . PointSize a -> Float -> PointSpriteCoordOrigin -> RasterContext a 'Point
-LineCtx :: forall a . Float -> ProvokingVertex -> RasterContext a 'Line
+    . forall (b :: forall (c :: PrimitiveType) -> Primitive a c -> Type)
+      -> (forall (d :: a) -> b 'Point ('PrimPoint d))
+        -> (forall (e :: a) (f :: a) -> b 'Line ('PrimLine e f))
+          -> (forall (g :: a) (h :: a) (i :: a) -> b 'Triangle ('PrimTriangle g h i))
+            -> forall (j :: PrimitiveType) . forall (k :: Primitive a j) -> b j k
+case'Primitive = \_ a b c d e f -> <<case function of a type with 1 parameters>>
+
+case'PrimitiveType
+  :: forall (a :: PrimitiveType -> Type)
+    -> a 'Triangle
+      -> a 'Line
+        -> a 'Point
+          -> a 'TriangleAdjacency
+            -> a 'LineAdjacency -> forall (b :: PrimitiveType) -> a b
+case'PrimitiveType
+  = \a b c d e f g -> <<case function of a type with 0 parameters>>
+
+case'ProvokingVertex
+  :: forall (a :: ProvokingVertex -> Type)
+    -> a 'LastVertex -> a 'FirstVertex -> forall (b :: ProvokingVertex) -> a b
+case'ProvokingVertex = \a b c d -> <<case function of a type with 0 parameters>>
+
 case'RasterContext
   :: forall a
     . forall (b :: forall (c :: PrimitiveType) -> RasterContext a c -> Type)
@@ -1783,73 +2735,477 @@ case'RasterContext
             -> b 'Point ('PointCtx h i j))
           -> (forall (k :: Float) (l :: ProvokingVertex) -> b 'Line ('LineCtx k l))
             -> forall (m :: PrimitiveType) . forall (n :: RasterContext a m) -> b m n
-match'RasterContext
-  :: forall (a :: Type -> Type)
-    -> (forall b (c :: PrimitiveType) -> a (RasterContext b c))
-      -> forall d -> a d -> a d
-'Blending :: Type -> Type
-NoBlending :: forall a . Blending a
-BlendLogicOp :: forall a . Integral a => LogicOperation -> Blending a
-Blend
-  :: (BlendEquation, BlendEquation)
-    -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
-      -> Vec 4 Float -> Blending Float
-case'Blending
-  :: forall (a :: forall b -> Blending b -> Type)
-    -> (forall c . a c ('NoBlending c))
-      -> (forall d (e :: CW (Integral d))
-          . forall (f :: LogicOperation) -> a d ('BlendLogicOp d e f))
-        -> (forall (g :: (BlendEquation, BlendEquation))
-              (h :: ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor)))
-                (i :: Vec 4 Float)
-            -> a Float ('Blend g h i))
-          -> forall j . forall (k :: Blending j) -> a j k
-match'Blending
-  :: forall (a :: Type -> Type)
-    -> (forall b -> a (Blending b)) -> forall c -> a c -> a c
-'StencilTests :: Type
+case'RasterContext
+  = \_ a b c d e f -> <<case function of a type with 1 parameters>>
+
+case'Sampler
+  :: forall (a :: Sampler -> Type)
+    -> (forall (b :: Filter) (c :: EdgeMode) (d :: Texture) -> a ('Sampler b c d))
+      -> forall (e :: Sampler) -> a e
+case'Sampler = \a b c -> <<case function of a type with 0 parameters>>
+
+case'SimpleFragment
+  :: forall a
+    . forall (b :: SimpleFragment a -> Type)
+      -> (forall (c :: Vec 3 Float) (d :: a) -> b ('SimpleFragment c d))
+        -> forall (e :: SimpleFragment a) -> b e
+case'SimpleFragment = \_ a b c -> <<case function of a type with 1 parameters>>
+
+case'StencilOperation
+  :: forall (a :: StencilOperation -> Type)
+    -> a 'OpZero
+      -> a 'OpKeep
+        -> a 'OpReplace
+          -> a 'OpIncr
+            -> a 'OpIncrWrap
+              -> a 'OpDecr
+                -> a 'OpDecrWrap -> a 'OpInvert -> forall (b :: StencilOperation) -> a b
+case'StencilOperation
+  = \a b c d e f g h i j -> <<case function of a type with 0 parameters>>
+
+case'StencilOps :: forall (a :: StencilOps -> Type) (b :: StencilOps) -> a b
+case'StencilOps = \a b -> <<case function of a type with 0 parameters>>
+
 case'StencilTests
   :: forall (a :: StencilTests -> Type) (b :: StencilTests) -> a b
-match'StencilTests
-  :: forall (a :: Type -> Type) -> a StencilTests -> forall b -> a b -> a b
-'StencilOps :: Type
-case'StencilOps :: forall (a :: StencilOps -> Type) (b :: StencilOps) -> a b
-match'StencilOps
-  :: forall (a :: Type -> Type) -> a StencilOps -> forall b -> a b -> a b
-'FragmentOperation :: ImageKind -> Type
-ColorOp
+case'StencilTests = \a b -> <<case function of a type with 0 parameters>>
+
+case'Swizz
+  :: forall (a :: Swizz -> Type)
+    -> a 'Sx -> a 'Sy -> a 'Sz -> a 'Sw -> forall (b :: Swizz) -> a b
+case'Swizz = \a b c d e f -> <<case function of a type with 0 parameters>>
+
+case'Texture
+  :: forall (a :: Texture -> Type)
+    -> (forall (b :: String) -> a ('Texture2DSlot b))
+      -> (forall (c :: Vec 2 Int) (d :: Image 1 ('Color (Vec 4 Float)))
+          -> a ('Texture2D c d))
+        -> forall (e :: Texture) -> a e
+case'Texture = \a b c d -> <<case function of a type with 0 parameters>>
+
+case'VecS
+  :: forall a
+    . forall (b :: forall (c :: Nat) -> VecS a c -> Type)
+      -> (forall (d :: a) (e :: a) -> b 2 ('V2 d e))
+        -> (forall (f :: a) (g :: a) (h :: a) -> b 3 ('V3 f g h))
+          -> (forall (i :: a) (j :: a) (k :: a) (l :: a) -> b 4 ('V4 i j k l))
+            -> forall (m :: Nat) . forall (n :: VecS a m) -> b m n
+case'VecS = \_ a b c d e f -> <<case function of a type with 1 parameters>>
+
+case'Vector
+  :: forall (a :: Nat) b
+    . forall (c :: Vector a b -> Type) (d :: Vector a b) -> c d
+case'Vector = \_ _ a b -> <<case function of a type with 2 parameters>>
+
+concat :: forall a . [[a]] -> [a]
+concat = \a -> _rhs (foldr [a] [a] ((++) a) [])
+
+concatMap :: forall a b . (a -> [b]) -> [a] -> [b]
+concatMap = \a b c d -> _rhs (foldr [b] [b] ((++) b) [] (map a [b] c d))
+
+customizeDepth
+  :: forall a (b :: Nat) . (a -> Float) -> Fragment b a -> Fragment b a
+customizeDepth = \a b c d -> <<builtin>>
+
+customizeDepths
   :: forall a (b :: Nat)
-    . Num a
-      => Blending a -> VecScalar b Bool -> FragmentOperation ('Color (VecScalar b a))
-DepthOp :: ComparisonFunction -> Bool -> FragmentOperation 'Depth
-StencilOp
-  :: StencilTests -> StencilOps -> StencilOps -> FragmentOperation 'Stencil
-case'FragmentOperation
-  :: forall (a :: forall (b :: ImageKind) -> FragmentOperation b -> Type)
-    -> (forall c (d :: Nat) (e :: CW (Num c))
-        . forall (f :: Blending c) (g :: VecScalar d Bool)
-          -> a ('Color (VecScalar d c)) ('ColorOp c d e f g))
-      -> (forall (h :: ComparisonFunction) (i :: Bool) -> a 'Depth ('DepthOp h i))
-        -> (forall (j :: StencilTests) (k :: StencilOps) (l :: StencilOps)
-            -> a 'Stencil ('StencilOp j k l))
-          -> forall (m :: ImageKind) . forall (n :: FragmentOperation m) -> a m n
+    . (a -> Float)
+      -> [Vector b (Maybe (SimpleFragment a))]
+        -> [Vector b (Maybe (SimpleFragment a))]
+customizeDepths
+  = \a b c -> _rhs
+    (map
+      ('Vector b ('Maybe ('SimpleFragment a)))
+      ('Vector b ('Maybe ('SimpleFragment a)))
+      \d -> customizeDepth a b c d)
+
+definedVec :: forall a (b :: Nat) . Vec b a -> Bool
+definedVec
+  = \_ a b -> case'VecS
+    (\_ _ -> 'Bool)
+    (\_ _ -> _rhs True)
+    (\_ _ _ -> _rhs True)
+    (\_ _ _ _ -> _rhs True)
+    a
+    b
+
+emptyColorImage
+  :: forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
+emptyColorImage = _rhs \a b c d e f -> ColorImage 1 a b c d e f
+
+emptyDepthImage :: Float -> Image 1 'Depth
+emptyDepthImage = _rhs \a -> DepthImage 1 a
+
+fetch
+  :: forall (a :: PrimitiveType) (b :: [Type])
+    . String -> HList b -> PrimitiveStream a (HList b)
+fetch = \a b c d -> <<builtin>>
+
+fetchArrays
+  :: forall (a :: PrimitiveType) (b :: [Type]) (c :: [Type])
+    . (b ~ (map Type Type ListElem c :: [Type]))
+      => HList c -> PrimitiveStream a (HList b)
+fetchArrays = \a b c d e -> <<builtin>>
+
+fetchStream
+  :: forall (a :: PrimitiveType) (b :: [Type])
+    . String
+      -> forall (c :: [String])
+        -> (len String c ~ (len Type b :: Int)) => PrimitiveStream a (HList b)
+fetchStream = \a b c d e -> <<builtin>>
+
+filterFragment
+  :: forall a (b :: Nat) . (a -> Bool) -> Fragment b a -> Fragment b a
+filterFragment = \a b c d -> <<builtin>>
+
+filterFragments
+  :: forall a (b :: Nat)
+    . (a -> Bool)
+      -> [Vector b (Maybe (SimpleFragment a))]
+        -> [Vector b (Maybe (SimpleFragment a))]
+filterFragments
+  = \a b c -> _rhs
+    (map
+      ('Vector b ('Maybe ('SimpleFragment a)))
+      ('Vector b ('Maybe ('SimpleFragment a)))
+      \d -> filterFragment a b c d)
+
+foldr :: forall a b . (b -> a -> a) -> a -> [b] -> a
+foldr
+  = \a b -> primFix
+    ((b -> a -> a) -> a -> [b] -> a)
+    \c d e f -> case'List (\_ -> a) (_rhs e) (\g h -> _rhs (d g (c d e h))) f
+
+head :: forall a . [a] -> a
+head = \a b -> case'List (\_ -> a) (_rhs (undefined a)) (\c _ -> _rhs c) b
+
+id :: forall a . a -> a
+id = \_ a -> _rhs a
+
+imageFrame
+  :: forall (a :: [Type])
+    . sameLayerCounts a
+      => HList a
+        -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
+imageFrame = _rhs \a b c -> FrameBuffer a b c
+
+imageType :: ImageKind -> Type
+imageType
+  = \a -> case'ImageKind (\_ -> Type) (\b -> _rhs b) (_rhs 'Float) (_rhs 'Int) a
+
+imageType' :: [ImageKind] -> [Type]
+imageType'
+  = \a -> case'List
+    (\_ -> [Type])
+    (_rhs (map 'ImageKind Type imageType a))
+    (\b c -> case'ImageKind
+      (\_ -> [Type])
+      (\_ -> _rhs (map 'ImageKind Type imageType a))
+      (_rhs (map 'ImageKind Type imageType c))
+      (_rhs (map 'ImageKind Type imageType a))
+      b)
+    a
+
+len :: forall a . [a] -> Int
+len
+  = \a -> primFix
+    ([a] -> 'Int)
+    \b c -> case'List (\_ -> 'Int) (_rhs 0) (\_ d -> _rhs (primAddInt 1 (b d))) c
+
+map :: forall a b . (a -> b) -> [a] -> [b]
+map
+  = \a b -> primFix
+    ((a -> b) -> [a] -> [b])
+    \c d e -> case'List (\_ -> [b]) (_rhs []) (\f g -> _rhs (d f : c d g)) e
+
+mapFragment :: forall a b (c :: Nat) . (a -> b) -> Fragment c a -> Fragment c b
+mapFragment = \a b c d e -> <<builtin>>
+
+mapFragments
+  :: forall a b (c :: Nat)
+    . (a -> b)
+      -> [Vector c (Maybe (SimpleFragment a))]
+        -> [Vector c (Maybe (SimpleFragment b))]
+mapFragments
+  = \a b c d -> _rhs
+    (map
+      ('Vector c ('Maybe ('SimpleFragment a)))
+      ('Vector c ('Maybe ('SimpleFragment b)))
+      \e -> mapFragment a b c d e)
+
+mapPrimitive
+  :: forall a b (c :: PrimitiveType) . (a -> b) -> Primitive a c -> Primitive b c
+mapPrimitive = \a b c d e -> <<builtin>>
+
+mapPrimitives
+  :: forall a b (c :: PrimitiveType)
+    . (a -> b) -> [Primitive a c] -> [Primitive b c]
+mapPrimitives
+  = \a b c d -> _rhs
+    (map ('Primitive a c) ('Primitive b c) \e -> mapPrimitive a b c d e)
+
+mapVec :: forall a b (c :: Nat) . (a -> b) -> VecS a c -> VecS b c
+mapVec
+  = \_ a b c d -> case'VecS
+    (\e _ -> 'VecS a e)
+    (\f g -> _rhs (V2 (c f) (c g)))
+    (\h i j -> _rhs (V3 (c h) (c i) (c j)))
+    (\k l m n -> _rhs (V4 (c k) (c l) (c m) (c n)))
+    b
+    d
+
+match'BlendEquation
+  :: forall (a :: Type -> Type) -> a BlendEquation -> forall b -> a b -> a b
+match'BlendEquation = \a b c d -> <<type case function>>
+
+match'Blending
+  :: forall (a :: Type -> Type)
+    -> (forall b -> a (Blending b)) -> forall c -> a c -> a c
+match'Blending = \a b c d -> <<type case function>>
+
+match'BlendingFactor
+  :: forall (a :: Type -> Type) -> a BlendingFactor -> forall b -> a b -> a b
+match'BlendingFactor = \a b c d -> <<type case function>>
+
+match'ComparisonFunction
+  :: forall (a :: Type -> Type) -> a ComparisonFunction -> forall b -> a b -> a b
+match'ComparisonFunction = \a b c d -> <<type case function>>
+
+match'CullMode
+  :: forall (a :: Type -> Type) -> a CullMode -> forall b -> a b -> a b
+match'CullMode = \a b c d -> <<type case function>>
+
+match'EdgeMode
+  :: forall (a :: Type -> Type) -> a EdgeMode -> forall b -> a b -> a b
+match'EdgeMode = \a b c d -> <<type case function>>
+
+match'Filter :: forall (a :: Type -> Type) -> a Filter -> forall b -> a b -> a b
+match'Filter = \a b c d -> <<type case function>>
+
 match'FragmentOperation
   :: forall (a :: Type -> Type)
     -> (forall (b :: ImageKind) -> a (FragmentOperation b))
       -> forall c -> a c -> a c
-'Interpolated :: Type -> Type
-Smooth :: forall a . Floating a => Interpolated a
-NoPerspective :: forall a . Floating a => Interpolated a
-Flat :: forall a . Interpolated a
-case'Interpolated
-  :: forall a
-    . forall (b :: Interpolated a -> Type)
-      -> (forall (c :: CW (Floating a)) . b ('Smooth c))
-        -> (forall (d :: CW (Floating a)) . b ('NoPerspective d))
-          -> b 'Flat -> forall (e :: Interpolated a) -> b e
+match'FragmentOperation = \a b c d -> <<type case function>>
+
+match'FrameBuffer
+  :: forall (a :: Type -> Type)
+    -> (forall (b :: Nat) (c :: [ImageKind]) -> a (FrameBuffer b c))
+      -> forall d -> a d -> a d
+match'FrameBuffer = \a b c d -> <<type case function>>
+
+match'Image
+  :: forall (a :: Type -> Type)
+    -> (forall (b :: Nat) (c :: ImageKind) -> a (Image b c))
+      -> forall d -> a d -> a d
+match'Image = \a b c d -> <<type case function>>
+
+match'ImageKind
+  :: forall (a :: Type -> Type) -> a ImageKind -> forall b -> a b -> a b
+match'ImageKind = \a b c d -> <<type case function>>
+
 match'Interpolated
   :: forall (a :: Type -> Type)
     -> (forall b -> a (Interpolated b)) -> forall c -> a c -> a c
+match'Interpolated = \a b c d -> <<type case function>>
+
+match'LogicOperation
+  :: forall (a :: Type -> Type) -> a LogicOperation -> forall b -> a b -> a b
+match'LogicOperation = \a b c d -> <<type case function>>
+
+match'Mat
+  :: forall (a :: Type -> Type)
+    -> (forall (b :: Nat) (c :: Nat) d -> a (Mat b c d)) -> forall e -> a e -> a e
+match'Mat = \a b c d -> <<type case function>>
+
+match'Maybe
+  :: forall (a :: Type -> Type)
+    -> (forall b -> a (Maybe b)) -> forall c -> a c -> a c
+match'Maybe = \a b c d -> <<type case function>>
+
+match'Output :: forall (a :: Type -> Type) -> a Output -> forall b -> a b -> a b
+match'Output = \a b c d -> <<type case function>>
+
+match'PointSize
+  :: forall (a :: Type -> Type)
+    -> (forall b -> a (PointSize b)) -> forall c -> a c -> a c
+match'PointSize = \a b c d -> <<type case function>>
+
+match'PointSpriteCoordOrigin
+  :: forall (a :: Type -> Type)
+    -> a PointSpriteCoordOrigin -> forall b -> a b -> a b
+match'PointSpriteCoordOrigin = \a b c d -> <<type case function>>
+
+match'PolygonMode
+  :: forall (a :: Type -> Type)
+    -> (forall b -> a (PolygonMode b)) -> forall c -> a c -> a c
+match'PolygonMode = \a b c d -> <<type case function>>
+
+match'PolygonOffset
+  :: forall (a :: Type -> Type) -> a PolygonOffset -> forall b -> a b -> a b
+match'PolygonOffset = \a b c d -> <<type case function>>
+
+match'Primitive
+  :: forall (a :: Type -> Type)
+    -> (forall b (c :: PrimitiveType) -> a (Primitive b c))
+      -> forall d -> a d -> a d
+match'Primitive = \a b c d -> <<type case function>>
+
+match'PrimitiveType
+  :: forall (a :: Type -> Type) -> a PrimitiveType -> forall b -> a b -> a b
+match'PrimitiveType = \a b c d -> <<type case function>>
+
+match'ProvokingVertex
+  :: forall (a :: Type -> Type) -> a ProvokingVertex -> forall b -> a b -> a b
+match'ProvokingVertex = \a b c d -> <<type case function>>
+
+match'RasterContext
+  :: forall (a :: Type -> Type)
+    -> (forall b (c :: PrimitiveType) -> a (RasterContext b c))
+      -> forall d -> a d -> a d
+match'RasterContext = \a b c d -> <<type case function>>
+
+match'Sampler
+  :: forall (a :: Type -> Type) -> a Sampler -> forall b -> a b -> a b
+match'Sampler = \a b c d -> <<type case function>>
+
+match'SimpleFragment
+  :: forall (a :: Type -> Type)
+    -> (forall b -> a (SimpleFragment b)) -> forall c -> a c -> a c
+match'SimpleFragment = \a b c d -> <<type case function>>
+
+match'StencilOperation
+  :: forall (a :: Type -> Type) -> a StencilOperation -> forall b -> a b -> a b
+match'StencilOperation = \a b c d -> <<type case function>>
+
+match'StencilOps
+  :: forall (a :: Type -> Type) -> a StencilOps -> forall b -> a b -> a b
+match'StencilOps = \a b c d -> <<type case function>>
+
+match'StencilTests
+  :: forall (a :: Type -> Type) -> a StencilTests -> forall b -> a b -> a b
+match'StencilTests = \a b c d -> <<type case function>>
+
+match'Swizz :: forall (a :: Type -> Type) -> a Swizz -> forall b -> a b -> a b
+match'Swizz = \a b c d -> <<type case function>>
+
+match'Texture
+  :: forall (a :: Type -> Type) -> a Texture -> forall b -> a b -> a b
+match'Texture = \a b c d -> <<type case function>>
+
+match'VecS
+  :: forall (a :: Type -> Type)
+    -> (forall b (c :: Nat) -> a (VecS b c)) -> forall d -> a d -> a d
+match'VecS = \a b c d -> <<type case function>>
+
+match'Vector
+  :: forall (a :: Type -> Type)
+    -> (forall (b :: Nat) c -> a (Vector b c)) -> forall d -> a d -> a d
+match'Vector = \a b c d -> <<type case function>>
+
+one :: forall a . Component a => a
+one
+  = \a _ -> match'Int
+    (\b -> b)
+    (_rhs 1)
+    a
+    (match'Word
+      (\c -> c)
+      (_rhs (primIntToWord 1))
+      a
+      (match'Float
+        (\d -> d)
+        (_rhs 1.0)
+        a
+        (match'VecS
+          (\e -> e)
+          (\f g -> match'Float
+            (\h -> 'VecS h g)
+            (case'Nat
+              (\i -> 'VecS 'Float i)
+              (_rhs (undefined ('VecS 'Float 0)))
+              (\j -> case'Nat
+                (\k -> 'VecS 'Float (Succ k))
+                (_rhs (undefined ('VecS 'Float 1)))
+                (\l -> case'Nat
+                  (\m -> 'VecS 'Float (Succ (Succ m)))
+                  (_rhs (V2 1.0 1.0))
+                  (\n -> case'Nat
+                    (\o -> 'VecS 'Float (Succ (Succ (Succ o))))
+                    (_rhs (V3 1.0 1.0 1.0))
+                    (\p -> case'Nat
+                      (\q -> 'VecS 'Float (Succ (Succ (Succ (Succ q)))))
+                      (_rhs (V4 1.0 1.0 1.0 1.0))
+                      (\r -> _rhs (undefined ('VecS 'Float (Succ (Succ (Succ (Succ (Succ r))))))))
+                      p)
+                    n)
+                  l)
+                j)
+              g)
+            f
+            (match'Bool
+              (\s -> 'VecS s g)
+              (case'Nat
+                (\t -> 'VecS 'Bool t)
+                (_rhs (undefined ('VecS 'Bool 0)))
+                (\u -> case'Nat
+                  (\v -> 'VecS 'Bool (Succ v))
+                  (_rhs (undefined ('VecS 'Bool 1)))
+                  (\w -> case'Nat
+                    (\x -> 'VecS 'Bool (Succ (Succ x)))
+                    (_rhs (V2 True True))
+                    (\y -> case'Nat
+                      (\z -> 'VecS 'Bool (Succ (Succ (Succ z))))
+                      (_rhs (V3 True True True))
+                      (\a' -> case'Nat
+                        (\b' -> 'VecS 'Bool (Succ (Succ (Succ (Succ b')))))
+                        (_rhs (V4 True True True True))
+                        (\c' -> _rhs (undefined ('VecS 'Bool (Succ (Succ (Succ (Succ (Succ c'))))))))
+                        a')
+                      y)
+                    w)
+                  u)
+                g)
+              f
+              (_rhs (undefined ('VecS f g)))))
+          a
+          (match'Bool (\d' -> d') (_rhs True) a (_rhs (undefined a))))))
+
+overlay
+  :: forall (a :: Nat) (b :: [Type])
+    . FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+      -> (HList b
+        , [Fragment
+          a
+          (HList (imageType' (map Type ImageKind FragmentOperationKind b)))])
+        -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+overlay
+  = \a b c d -> hlistConsCase
+    ('HList b)
+    [['Vector
+      a
+      ('Maybe
+        ('SimpleFragment
+          ('HList (imageType' (map Type 'ImageKind 'FragmentOperationKind b)))))]]
+    ('FrameBuffer a (map Type 'ImageKind 'FragmentOperationKind b))
+    (\e f -> hlistConsCase
+      ['Vector
+        a
+        ('Maybe
+          ('SimpleFragment
+            ('HList (imageType' (map Type 'ImageKind 'FragmentOperationKind b)))))]
+      []
+      ('FrameBuffer a (map Type 'ImageKind 'FragmentOperationKind b))
+      (\g h -> hlistNilCase
+        ('FrameBuffer a (map Type 'ImageKind 'FragmentOperationKind b))
+        (_rhs (Accumulate (map Type 'ImageKind 'FragmentOperationKind b) a b TT e g c))
+        h)
+      f)
+    d
+
+primTexture :: () -> Vec 2 Float -> Vec 4 Float
+primTexture = \a b -> <<builtin>>
+
 rasterizePrimitive
   :: forall (a :: [Type]) (b :: [Type]) (c :: [Type]) (d :: PrimitiveType)
     . (map Type Type Interpolated a ~ (b :: [Type])
@@ -1857,108 +3213,150 @@ rasterizePrimitive
       => HList b
         -> RasterContext (HList c) d
           -> Primitive (HList c) d -> FragmentStream 1 (HList a)
+rasterizePrimitive = \a b c d e f g h i -> <<builtin>>
+
 rasterizePrimitives
   :: forall (a :: [Type]) (b :: PrimitiveType)
     . RasterContext (HList (Vec 4 Float : a)) b
       -> HList (map Type Type Interpolated a)
         -> [Primitive (HList (Vec 4 Float : a)) b]
           -> [Vector 1 (Maybe (SimpleFragment (HList a)))]
-'ImageLC :: Type -> Nat
-allSame :: forall a . [a] -> Constraint
-sameLayerCounts :: [Type] -> Constraint
-'FrameBuffer :: Nat -> [ImageKind] -> Type
-case'FrameBuffer
-  :: forall (a :: Nat) (b :: [ImageKind])
-    . forall (c :: FrameBuffer a b -> Type) (d :: FrameBuffer a b) -> c d
-match'FrameBuffer
-  :: forall (a :: Type -> Type)
-    -> (forall (b :: Nat) (c :: [ImageKind]) -> a (FrameBuffer b c))
-      -> forall d -> a d -> a d
-imageType' :: [ImageKind] -> [Type]
-'FragmentOperationKind :: Type -> ImageKind
-Accumulate
-  :: forall (a :: [ImageKind]) (b :: Nat) (c :: [Type])
-    . (a ~ (map Type ImageKind FragmentOperationKind c :: [ImageKind]))
-      => HList c
-        -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
-accumulateWith :: forall a b . a -> b -> (a, b)
-overlay
-  :: forall (a :: Nat) (b :: [Type])
-    . FrameBuffer a (map Type ImageKind FragmentOperationKind b)
-      -> (HList b
-        , [Fragment
+rasterizePrimitives
+  = \a b c d e -> _rhs
+    (foldr
+      ['Vector 1 ('Maybe ('SimpleFragment ('HList a)))]
+      ['Vector 1 ('Maybe ('SimpleFragment ('HList a)))]
+      ((++) ('Vector 1 ('Maybe ('SimpleFragment ('HList a)))))
+      []
+      (map
+        ('Primitive ('HList ('VecS 'Float 4 : a)) b)
+        ['Vector 1 ('Maybe ('SimpleFragment ('HList a)))]
+        (\f -> rasterizePrimitive
           a
-          (HList (imageType' (map Type ImageKind FragmentOperationKind b)))])
-        -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
-'GetImageKind :: Type -> ImageKind
-FrameBuffer
-  :: forall (a :: [Type])
-    . sameLayerCounts a
-      => HList a
-        -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
-imageFrame
-  :: forall (a :: [Type])
-    . sameLayerCounts a
-      => HList a
-        -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
-accumulate
-  :: forall (a :: Nat) (b :: [Type]) c
-    . HList b
-      -> (c -> HList (imageType' (map Type ImageKind FragmentOperationKind b)))
-        -> [Vector a (Maybe (SimpleFragment c))]
-          -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
-            -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
-PrjImage :: forall (a :: ImageKind) . FrameBuffer 1 ' [a] -> Image 1 a
-PrjImageColor
-  :: FrameBuffer 1 ' ['Depth, 'Color (Vec 4 Float)]
-    -> Image 1 ('Color (Vec 4 Float))
-'Output :: Type
-ScreenOut :: forall (a :: Nat) (b :: [ImageKind]) . FrameBuffer a b -> Output
-case'Output
-  :: forall (a :: Output -> Type)
-    -> (forall (b :: Nat) (c :: [ImageKind])
-        . forall (d :: FrameBuffer b c) -> a ('ScreenOut b c d))
-      -> forall (e :: Output) -> a e
-match'Output :: forall (a :: Type -> Type) -> a Output -> forall b -> a b -> a b
+          (map Type Type 'Interpolated a)
+          ('VecS 'Float 4 : a)
+          b
+          TT
+          TT
+          d
+          c
+          f)
+        e))
+
 renderFrame :: forall (a :: Nat) (b :: [ImageKind]) . FrameBuffer a b -> Output
-'Texture :: Type
-Texture2DSlot :: String -> Texture
-Texture2D :: Vec 2 Int -> Image 1 ('Color (Vec 4 Float)) -> Texture
-case'Texture
-  :: forall (a :: Texture -> Type)
-    -> (forall (b :: String) -> a ('Texture2DSlot b))
-      -> (forall (c :: Vec 2 Int) (d :: Image 1 ('Color (Vec 4 Float)))
-          -> a ('Texture2D c d))
-        -> forall (e :: Texture) -> a e
-match'Texture
-  :: forall (a :: Type -> Type) -> a Texture -> forall b -> a b -> a b
-'Filter :: Type
-PointFilter :: Filter
-LinearFilter :: Filter
-case'Filter
-  :: forall (a :: Filter -> Type)
-    -> a 'PointFilter -> a 'LinearFilter -> forall (b :: Filter) -> a b
-match'Filter :: forall (a :: Type -> Type) -> a Filter -> forall b -> a b -> a b
-'EdgeMode :: Type
-Repeat :: EdgeMode
-MirroredRepeat :: EdgeMode
-ClampToEdge :: EdgeMode
-case'EdgeMode
-  :: forall (a :: EdgeMode -> Type)
-    -> a 'Repeat
-      -> a 'MirroredRepeat -> a 'ClampToEdge -> forall (b :: EdgeMode) -> a b
-match'EdgeMode
-  :: forall (a :: Type -> Type) -> a EdgeMode -> forall b -> a b -> a b
-'Sampler :: Type
-Sampler :: Filter -> EdgeMode -> Texture -> Sampler
-case'Sampler
-  :: forall (a :: Sampler -> Type)
-    -> (forall (b :: Filter) (c :: EdgeMode) (d :: Texture) -> a ('Sampler b c d))
-      -> forall (e :: Sampler) -> a e
-match'Sampler
-  :: forall (a :: Type -> Type) -> a Sampler -> forall b -> a b -> a b
+renderFrame = _rhs ScreenOut
+
+sFragmentCoords :: forall a . SimpleFragment a -> VecS Float 3
+sFragmentCoords
+  = \_ a -> case'SimpleFragment (\_ -> 'VecS 'Float 3) (\b _ -> _rhs b) a
+
+sFragmentValue :: forall a . SimpleFragment a -> a
+sFragmentValue = \a b -> case'SimpleFragment (\_ -> a) (\_ c -> _rhs c) b
+
+sameLayerCounts :: [Type] -> Constraint
+sameLayerCounts = \a -> _rhs (allSame 'Nat (map Type 'Nat 'ImageLC a))
+
+swizzscalar :: forall a (b :: Nat) . Vec b a -> Swizz -> a
+swizzscalar
+  = \a b c d -> case'VecS
+    (\_ _ -> a)
+    (\e f -> case'Swizz
+      (\_ -> a)
+      (_rhs e)
+      (_rhs f)
+      (_rhs (undefined a))
+      (_rhs (undefined a))
+      d)
+    (\g h i -> case'Swizz
+      (\_ -> a)
+      (_rhs g)
+      (_rhs h)
+      (_rhs i)
+      (_rhs (undefined a))
+      d)
+    (\j k l m -> case'Swizz (\_ -> a) (_rhs j) (_rhs k) (_rhs l) (_rhs m) d)
+    b
+    c
+
+swizzvector
+  :: forall a (b :: Nat) (c :: Nat) . Vec b a -> Vec c Swizz -> VecS a c
+swizzvector
+  = \a b c d e -> case'Bool
+    (\_ -> 'VecS a c)
+    (_rhs (undefined ('VecS a c)))
+    (_rhs (mapVec 'Swizz a c (swizzscalar a b d) e))
+    (definedVec a b d)
+
 texture2D :: Sampler -> Vec 2 Float -> Vec 4 Float
-accumulationContext :: forall a . a -> a
+texture2D = \a b -> <<builtin>>
+
+zero :: forall a . Component a => a
+zero
+  = \a _ -> match'Int
+    (\b -> b)
+    (_rhs 0)
+    a
+    (match'Word
+      (\c -> c)
+      (_rhs (primIntToWord 0))
+      a
+      (match'Float
+        (\d -> d)
+        (_rhs 0.0)
+        a
+        (match'VecS
+          (\e -> e)
+          (\f g -> match'Float
+            (\h -> 'VecS h g)
+            (case'Nat
+              (\i -> 'VecS 'Float i)
+              (_rhs (undefined ('VecS 'Float 0)))
+              (\j -> case'Nat
+                (\k -> 'VecS 'Float (Succ k))
+                (_rhs (undefined ('VecS 'Float 1)))
+                (\l -> case'Nat
+                  (\m -> 'VecS 'Float (Succ (Succ m)))
+                  (_rhs (V2 0.0 0.0))
+                  (\n -> case'Nat
+                    (\o -> 'VecS 'Float (Succ (Succ (Succ o))))
+                    (_rhs (V3 0.0 0.0 0.0))
+                    (\p -> case'Nat
+                      (\q -> 'VecS 'Float (Succ (Succ (Succ (Succ q)))))
+                      (_rhs (V4 0.0 0.0 0.0 0.0))
+                      (\r -> _rhs (undefined ('VecS 'Float (Succ (Succ (Succ (Succ (Succ r))))))))
+                      p)
+                    n)
+                  l)
+                j)
+              g)
+            f
+            (match'Bool
+              (\s -> 'VecS s g)
+              (case'Nat
+                (\t -> 'VecS 'Bool t)
+                (_rhs (undefined ('VecS 'Bool 0)))
+                (\u -> case'Nat
+                  (\v -> 'VecS 'Bool (Succ v))
+                  (_rhs (undefined ('VecS 'Bool 1)))
+                  (\w -> case'Nat
+                    (\x -> 'VecS 'Bool (Succ (Succ x)))
+                    (_rhs (V2 False False))
+                    (\y -> case'Nat
+                      (\z -> 'VecS 'Bool (Succ (Succ (Succ z))))
+                      (_rhs (V3 False False False))
+                      (\a' -> case'Nat
+                        (\b' -> 'VecS 'Bool (Succ (Succ (Succ (Succ b')))))
+                        (_rhs (V4 False False False False))
+                        (\c' -> _rhs (undefined ('VecS 'Bool (Succ (Succ (Succ (Succ (Succ c'))))))))
+                        a')
+                      y)
+                    w)
+                  u)
+                g)
+              f
+              (_rhs (undefined ('VecS f g)))))
+          a
+          (match'Bool (\d' -> d') (_rhs False) a (_rhs (undefined a))))))
 ------------ tooltips
 testdata/Builtins.lc 10:1-10:3
     forall a . a -> a
diff --git a/testdata/Internals.out b/testdata/Internals.out
index eabd6286..a66b70d3 100644
--- a/testdata/Internals.out
+++ b/testdata/Internals.out
@@ -96,146 +96,167 @@ primRound :: Float -> Int
 
 primIfThenElse :: forall (a :: _) . Bool -> a -> a -> a
 primIfThenElse
-  = \(a :: _) (b :: _) (c :: _) -> case'Bool (\_ -> _) (_rhs c) (_rhs b) a
+  = \(a :: _) (b :: _) (c :: _) -> case'Bool (\(_ :: _) -> _) (_rhs c) (_rhs b) a
 
 isEQ
-  = \(a :: _) -> case'Ordering (\_ -> _) (_rhs False) (_rhs True) (_rhs False) a
+  = \(a :: _) -> case'Ordering
+    (\(_ :: _) -> _)
+    (_rhs False)
+    (_rhs True)
+    (_rhs False)
+    a
 
 'Num :: Type -> Constraint
 'Num
   = \(a :: _) -> match'Int
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs 'CUnit)
     a
     (match'Word
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs 'CUnit)
       a
       (match'Float
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs 'CUnit)
         a
         (match'Nat
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (_rhs 'CUnit)
           a
           (_rhs ('CEmpty "no instance of 'Num on ???")))))
 
 fromInt :: forall a . Num a => Int -> a
 fromInt
-  = \ @a @_ -> match'Int
-    (\_ -> _)
+  = \ @a @(_ :: _) -> match'Int
+    (\(_ :: _) -> _)
     (_rhs let b = _rhs \(c :: _) -> c in b)
     a
     (match'Word
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs let d = _rhs primIntToWord in d)
       a
       (match'Float
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs let e = _rhs primIntToFloat in e)
         a
-        (match'Nat (\_ -> _) (_rhs let f = _rhs primIntToNat in f) a (_rhs undefined))))
+        (match'Nat
+          (\(_ :: _) -> _)
+          (_rhs let f = _rhs primIntToNat in f)
+          a
+          (_rhs undefined))))
 
 compare :: forall a . Num a => a -> a -> Ordering
 compare
-  = \ @a @_ -> match'Int
-    (\_ -> _)
+  = \ @a @(_ :: _) -> match'Int
+    (\(_ :: _) -> _)
     (_rhs let b = _rhs primCompareInt in b)
     a
     (match'Word
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs let c = _rhs primCompareWord in c)
       a
       (match'Float
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs let d = _rhs primCompareFloat in d)
         a
-        (match'Nat (\_ -> _) (_rhs let e = _rhs undefined in e) a (_rhs undefined))))
+        (match'Nat
+          (\(_ :: _) -> _)
+          (_rhs let e = _rhs undefined in e)
+          a
+          (_rhs undefined))))
 
 negate :: forall a . Num a => a -> a
 negate
-  = \ @a @_ -> match'Int
-    (\_ -> _)
+  = \ @a @(_ :: _) -> match'Int
+    (\(_ :: _) -> _)
     (_rhs let b = _rhs primNegateInt in b)
     a
     (match'Word
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs let c = _rhs primNegateWord in c)
       a
       (match'Float
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs let d = _rhs primNegateFloat in d)
         a
-        (match'Nat (\_ -> _) (_rhs let e = _rhs undefined in e) a (_rhs undefined))))
+        (match'Nat
+          (\(_ :: _) -> _)
+          (_rhs let e = _rhs undefined in e)
+          a
+          (_rhs undefined))))
 
 'Eq :: Type -> Constraint
 'Eq
   = \(a :: _) -> match'String
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs 'CUnit)
     a
     (match'Char
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs 'CUnit)
       a
       (match'Int
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs 'CUnit)
         a
         (match'Float
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (_rhs 'CUnit)
           a
           (match'Bool
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (_rhs 'CUnit)
             a
             (match'Nat
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (_rhs 'CUnit)
               a
               (_rhs ('CEmpty "no instance of 'Eq on ???")))))))
 
 (==) :: forall a . Eq a => a -> a -> Bool
 (==)
-  = \ @a @_ -> match'String
-    (\_ -> _)
+  = \ @a @(_ :: _) -> match'String
+    (\(_ :: _) -> _)
     (_rhs let b = \(c :: _) (d :: _) -> _rhs (isEQ (primCompareString c d)) in b)
     a
     (match'Char
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs let e = \(f :: _) (g :: _) -> _rhs (isEQ (primCompareChar f g)) in e)
       a
       (match'Int
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs let h = \(i :: _) (j :: _) -> _rhs (isEQ (primCompareInt i j)) in h)
         a
         (match'Float
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (_rhs let k = \(l :: _) (m :: _) -> _rhs (isEQ (primCompareFloat l m)) in k)
           a
           (match'Bool
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (_rhs
               let
                 n
                   = \(o :: _) (p :: _) -> case'Bool
-                    (\_ -> _)
-                    (case'Bool (\_ -> _) (_rhs True) (_rhs False) p)
-                    (case'Bool (\_ -> _) (_rhs False) (_rhs True) p)
+                    (\(_ :: _) -> _)
+                    (case'Bool (\(_ :: _) -> _) (_rhs True) (_rhs False) p)
+                    (case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs True) p)
                     o
                 in n)
             a
             (match'Nat
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (_rhs
                 let
                   q
                     = \(r :: _) (s :: _) -> case'Nat
-                      (\_ -> _)
-                      (case'Nat (\_ -> _) (_rhs True) (\_ -> _rhs False) s)
-                      (\(t :: _) -> case'Nat (\_ -> _) (_rhs False) (\(u :: _) -> _rhs (t == u)) s)
+                      (\(_ :: _) -> _)
+                      (case'Nat (\(_ :: _) -> _) (_rhs True) (\(_ :: _) -> _rhs False) s)
+                      (\(t :: _) -> case'Nat
+                        (\(_ :: _) -> _)
+                        (_rhs False)
+                        (\(u :: _) -> _rhs (t == u))
+                        s)
                       r
                   in q)
               a
@@ -258,126 +279,427 @@ hlistNilCase :: forall (a :: _) -> a -> HList Nil -> a
 hlistConsCase
   :: forall a (b :: [Type])
     . forall (c :: _) -> (a -> HList b -> c) -> HList (a : b) -> c
------------- trace
-typeAnn :: forall a . a -> a
-parens :: forall a . a -> a
-undefined :: forall a . a
-primFix :: forall a . (a -> a) -> a
-'Unit :: Type
-TT :: Unit
-case'Unit :: forall (a :: Unit -> Type) -> a 'TT -> forall (b :: Unit) -> a b
-match'Unit :: forall (a :: Type -> Type) -> a Unit -> forall b -> a b -> a b
-'String :: Type
-case'String :: forall (a :: String -> Type) (b :: String) -> a b
-match'String :: forall (a :: Type -> Type) -> a String -> forall b -> a b -> a b
-'Empty :: String -> Type
-case'Empty
-  :: forall (a :: String) . forall (b :: Empty a -> Type) (c :: Empty a) -> b c
-match'Empty
-  :: forall (a :: Type -> Type)
-    -> (forall (b :: String) -> a (Empty b)) -> forall c -> a c -> a c
-unsafeCoerce :: forall a b . a -> b
-'Constraint :: Type
-CUnit :: Constraint
-CEmpty :: String -> Constraint
-case'Constraint
-  :: forall (a :: Constraint -> Type)
-    -> a 'CUnit
-      -> (forall (b :: String) -> a ('CEmpty b)) -> forall (c :: Constraint) -> a c
-match'Constraint
-  :: forall (a :: Type -> Type) -> a Constraint -> forall b -> a b -> a b
+------------ core code
+'Bool :: Type
+'Bool = <<type constructor with 0 indices; constructors: False, True>>
+
 'CW :: Constraint -> Type
+'CW = \a -> <<builtin>>
+
+'Char :: Type
+'Char = <<type constructor with 0 indices; constructors: >>
+
+'Constraint :: Type
+'Constraint = <<type constructor with 0 indices; constructors: CUnit, CEmpty>>
+
+'Empty :: String -> Type
+'Empty = <<type constructor with 0 indices; constructors: >>
+
+'Eq :: Type -> Constraint
+'Eq
+  = \a -> match'String
+    (\_ -> 'Constraint)
+    (_rhs CUnit)
+    a
+    (match'Char
+      (\_ -> 'Constraint)
+      (_rhs CUnit)
+      a
+      (match'Int
+        (\_ -> 'Constraint)
+        (_rhs CUnit)
+        a
+        (match'Float
+          (\_ -> 'Constraint)
+          (_rhs CUnit)
+          a
+          (match'Bool
+            (\_ -> 'Constraint)
+            (_rhs CUnit)
+            a
+            (match'Nat
+              (\_ -> 'Constraint)
+              (_rhs CUnit)
+              a
+              (_rhs (CEmpty "no instance of 'Eq on ???")))))))
+
 'EqCT :: forall a -> a -> a -> Constraint
-parEval :: forall a -> a -> a -> a
-'T2 :: Constraint -> Constraint -> Constraint
-match'Type :: forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b
+'EqCT = \a b c -> b ~ (c :: a)
+
 'EqCTt :: forall a . a -> a -> Constraint
-t2C :: Unit -> Unit -> Unit
+'EqCTt = \a -> _rhs \b c -> b ~ (c :: a)
+
+'Float :: Type
+'Float = <<type constructor with 0 indices; constructors: >>
+
+'HList :: [Type] -> Type
+'HList = <<type constructor with 1 indices; constructors: HNil, HCons>>
+
 'Int :: Type
-case'Int :: forall (a :: Int -> Type) (b :: Int) -> a b
-match'Int :: forall (a :: Type -> Type) -> a Int -> forall b -> a b -> a b
+'Int = <<type constructor with 0 indices; constructors: >>
+
+'List :: Type -> Type
+'List = <<type constructor with 0 indices; constructors: Nil, :>>
+
+'Nat :: Type
+'Nat = <<type constructor with 0 indices; constructors: Zero, Succ>>
+
+'Num :: Type -> Constraint
+'Num
+  = \a -> match'Int
+    (\_ -> 'Constraint)
+    (_rhs CUnit)
+    a
+    (match'Word
+      (\_ -> 'Constraint)
+      (_rhs CUnit)
+      a
+      (match'Float
+        (\_ -> 'Constraint)
+        (_rhs CUnit)
+        a
+        (match'Nat
+          (\_ -> 'Constraint)
+          (_rhs CUnit)
+          a
+          (_rhs (CEmpty "no instance of 'Num on ???")))))
+
+'Ordering :: Type
+'Ordering = <<type constructor with 0 indices; constructors: LT, EQ, GT>>
+
+'String :: Type
+'String = <<type constructor with 0 indices; constructors: >>
+
+'T2 :: Constraint -> Constraint -> Constraint
+'T2 = \a b -> <<builtin>>
+
+'Unit :: Type
+'Unit = <<type constructor with 0 indices; constructors: TT>>
+
 'Word :: Type
-case'Word :: forall (a :: Word -> Type) (b :: Word) -> a b
-match'Word :: forall (a :: Type -> Type) -> a Word -> forall b -> a b -> a b
-'Float :: Type
-case'Float :: forall (a :: Float -> Type) (b :: Float) -> a b
-match'Float :: forall (a :: Type -> Type) -> a Float -> forall b -> a b -> a b
-'Char :: Type
-case'Char :: forall (a :: Char -> Type) (b :: Char) -> a b
-match'Char :: forall (a :: Type -> Type) -> a Char -> forall b -> a b -> a b
-'Bool :: Type
+'Word = <<type constructor with 0 indices; constructors: >>
+
+: :: forall a . a -> [a] -> [a]
+: = <<1st constructor of 'List>>
+
+== :: forall a . Eq a => a -> a -> Bool
+==
+  = primFix
+    (forall a . 'Eq a => a -> a -> 'Bool)
+    \b c _ -> match'String
+      (\d -> d -> d -> 'Bool)
+      (_rhs (==))
+      c
+      (match'Char
+        (\e -> e -> e -> 'Bool)
+        (_rhs (==))
+        c
+        (match'Int
+          (\f -> f -> f -> 'Bool)
+          (_rhs (==))
+          c
+          (match'Float
+            (\g -> g -> g -> 'Bool)
+            (_rhs (==))
+            c
+            (match'Bool
+              (\h -> h -> h -> 'Bool)
+              (_rhs (==))
+              c
+              (match'Nat
+                (\i -> i -> i -> 'Bool)
+                (_rhs ((==) b))
+                c
+                (_rhs (undefined (c -> c -> 'Bool))))))))
+
+CEmpty :: String -> Constraint
+CEmpty = <<1st constructor of 'Constraint>>
+
+CUnit :: Constraint
+CUnit = <<0th constructor of 'Constraint>>
+
+EQ :: Ordering
+EQ = <<1st constructor of 'Ordering>>
+
 False :: Bool
+False = <<0th constructor of 'Bool>>
+
+GT :: Ordering
+GT = <<2nd constructor of 'Ordering>>
+
+HCons :: forall a (b :: [Type]) . a -> HList b -> HList (a : b)
+HCons = <<1st constructor of 'HList>>
+
+() :: ()
+() = <<0th constructor of 'HList>>
+
+LT :: Ordering
+LT = <<0th constructor of 'Ordering>>
+
+[] :: forall a . [a]
+[] = <<0th constructor of 'List>>
+
+Succ :: Nat -> Nat
+Succ = <<1st constructor of 'Nat>>
+
+TT :: Unit
+TT = <<0th constructor of 'Unit>>
+
 True :: Bool
+True = <<1st constructor of 'Bool>>
+
+Zero :: Nat
+Zero = 0
+
 case'Bool
   :: forall (a :: Bool -> Type)
     -> a 'False -> a 'True -> forall (b :: Bool) -> a b
-match'Bool :: forall (a :: Type -> Type) -> a Bool -> forall b -> a b -> a b
-'Ordering :: Type
-LT :: Ordering
-EQ :: Ordering
-GT :: Ordering
+case'Bool = \a b c d -> <<case function of a type with 0 parameters>>
+
+case'Char :: forall (a :: Char -> Type) (b :: Char) -> a b
+case'Char = \a b -> <<case function of a type with 0 parameters>>
+
+case'Constraint
+  :: forall (a :: Constraint -> Type)
+    -> a 'CUnit
+      -> (forall (b :: String) -> a ('CEmpty b)) -> forall (c :: Constraint) -> a c
+case'Constraint = \a b c d -> <<case function of a type with 0 parameters>>
+
+case'Empty
+  :: forall (a :: String) . forall (b :: Empty a -> Type) (c :: Empty a) -> b c
+case'Empty = \_ a b -> <<case function of a type with 1 parameters>>
+
+case'Float :: forall (a :: Float -> Type) (b :: Float) -> a b
+case'Float = \a b -> <<case function of a type with 0 parameters>>
+
+case'HList
+  :: forall (a :: forall (b :: [Type]) -> HList b -> Type)
+    -> a ' [] ' ()
+      -> (forall c (d :: [Type])
+          . forall (e :: c) (f :: HList d) -> a (c : d) ('HCons e f))
+        -> forall (g :: [Type]) . forall (h :: HList g) -> a g h
+case'HList = \a b c d e -> <<case function of a type with 0 parameters>>
+
+case'Int :: forall (a :: Int -> Type) (b :: Int) -> a b
+case'Int = \a b -> <<case function of a type with 0 parameters>>
+
+case'List
+  :: forall a
+    . forall (b :: [a] -> Type)
+      -> b ' []
+        -> (forall (c :: a) (d :: [a]) -> b (c : d)) -> forall (e :: [a]) -> b e
+case'List = \_ a b c d -> <<case function of a type with 1 parameters>>
+
+case'Nat
+  :: forall (a :: Nat -> Type)
+    -> a 0 -> (forall (b :: Nat) -> a ('Succ b)) -> forall (c :: Nat) -> a c
+case'Nat = \a b c d -> <<case function of a type with 0 parameters>>
+
 case'Ordering
   :: forall (a :: Ordering -> Type)
     -> a 'LT -> a 'EQ -> a 'GT -> forall (b :: Ordering) -> a b
+case'Ordering = \a b c d e -> <<case function of a type with 0 parameters>>
+
+case'String :: forall (a :: String -> Type) (b :: String) -> a b
+case'String = \a b -> <<case function of a type with 0 parameters>>
+
+case'Unit :: forall (a :: Unit -> Type) -> a 'TT -> forall (b :: Unit) -> a b
+case'Unit = \a b c -> <<case function of a type with 0 parameters>>
+
+case'Word :: forall (a :: Word -> Type) (b :: Word) -> a b
+case'Word = \a b -> <<case function of a type with 0 parameters>>
+
+compare :: forall a . Num a => a -> a -> Ordering
+compare
+  = \a _ -> match'Int
+    (\b -> b -> b -> 'Ordering)
+    (_rhs \c d -> primCompareInt c d)
+    a
+    (match'Word
+      (\e -> e -> e -> 'Ordering)
+      (_rhs \f g -> primCompareWord f g)
+      a
+      (match'Float
+        (\h -> h -> h -> 'Ordering)
+        (_rhs \i j -> primCompareFloat i j)
+        a
+        (match'Nat
+          (\k -> k -> k -> 'Ordering)
+          (_rhs (undefined ('Nat -> 'Nat -> 'Ordering)))
+          a
+          (_rhs (undefined (a -> a -> 'Ordering))))))
+
+fromInt :: forall a . Num a => Int -> a
+fromInt
+  = \a _ -> match'Int
+    (\b -> 'Int -> b)
+    (_rhs \c -> c)
+    a
+    (match'Word
+      (\d -> 'Int -> d)
+      (_rhs \e -> primIntToWord e)
+      a
+      (match'Float
+        (\f -> 'Int -> f)
+        (_rhs \g -> primIntToFloat g)
+        a
+        (match'Nat
+          (\h -> 'Int -> h)
+          (_rhs \i -> primIntToNat i)
+          a
+          (_rhs (undefined ('Int -> a))))))
+
+hlistConsCase
+  :: forall a (b :: [Type])
+    . forall c -> (a -> HList b -> c) -> HList (a : b) -> c
+hlistConsCase = \a b c d e -> <<builtin>>
+
+hlistNilCase :: forall a -> a -> () -> a
+hlistNilCase = \a b c -> <<builtin>>
+
+isEQ :: Ordering -> Bool
+isEQ = \a -> case'Ordering (\_ -> 'Bool) (_rhs False) (_rhs True) (_rhs False) a
+
+match'Bool :: forall (a :: Type -> Type) -> a Bool -> forall b -> a b -> a b
+match'Bool = \a b c d -> <<type case function>>
+
+match'Char :: forall (a :: Type -> Type) -> a Char -> forall b -> a b -> a b
+match'Char = \a b c d -> <<type case function>>
+
+match'Constraint
+  :: forall (a :: Type -> Type) -> a Constraint -> forall b -> a b -> a b
+match'Constraint = \a b c d -> <<type case function>>
+
+match'Empty
+  :: forall (a :: Type -> Type)
+    -> (forall (b :: String) -> a (Empty b)) -> forall c -> a c -> a c
+match'Empty = \a b c d -> <<type case function>>
+
+match'Float :: forall (a :: Type -> Type) -> a Float -> forall b -> a b -> a b
+match'Float = \a b c d -> <<type case function>>
+
+match'HList
+  :: forall (a :: Type -> Type)
+    -> (forall (b :: [Type]) -> a (HList b)) -> forall c -> a c -> a c
+match'HList = \a b c d -> <<type case function>>
+
+match'Int :: forall (a :: Type -> Type) -> a Int -> forall b -> a b -> a b
+match'Int = \a b c d -> <<type case function>>
+
+match'List
+  :: forall (a :: Type -> Type) -> (forall b -> a [b]) -> forall c -> a c -> a c
+match'List = \a b c d -> <<type case function>>
+
+match'Nat :: forall (a :: Type -> Type) -> a Nat -> forall b -> a b -> a b
+match'Nat = \a b c d -> <<type case function>>
+
 match'Ordering
   :: forall (a :: Type -> Type) -> a Ordering -> forall b -> a b -> a b
-'Nat :: Type
-Zero :: Nat
-Succ :: Nat -> Nat
-case'Nat
-  :: forall (a :: Nat -> Type)
-    -> a 0 -> (forall (b :: Nat) -> a ('Succ b)) -> forall (c :: Nat) -> a c
-match'Nat :: forall (a :: Type -> Type) -> a Nat -> forall b -> a b -> a b
-primIntToWord :: Int -> Word
-primIntToFloat :: Int -> Float
-primIntToNat :: Int -> Nat
-primCompareInt :: Int -> Int -> Ordering
-primCompareWord :: Word -> Word -> Ordering
-primCompareFloat :: Float -> Float -> Ordering
+match'Ordering = \a b c d -> <<type case function>>
+
+match'String :: forall (a :: Type -> Type) -> a String -> forall b -> a b -> a b
+match'String = \a b c d -> <<type case function>>
+
+match'Type :: forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b
+match'Type = \a b c d -> <<builtin>>
+
+match'Unit :: forall (a :: Type -> Type) -> a Unit -> forall b -> a b -> a b
+match'Unit = \a b c d -> <<type case function>>
+
+match'Word :: forall (a :: Type -> Type) -> a Word -> forall b -> a b -> a b
+match'Word = \a b c d -> <<type case function>>
+
+negate :: forall a . Num a => a -> a
+negate
+  = \a _ -> match'Int
+    (\b -> b -> b)
+    (_rhs \c -> primNegateInt c)
+    a
+    (match'Word
+      (\d -> d -> d)
+      (_rhs \e -> primNegateWord e)
+      a
+      (match'Float
+        (\f -> f -> f)
+        (_rhs \g -> primNegateFloat g)
+        a
+        (match'Nat
+          (\h -> h -> h)
+          (_rhs (undefined ('Nat -> 'Nat)))
+          a
+          (_rhs (undefined (a -> a))))))
+
+parEval :: forall a -> a -> a -> a
+parEval = \a b c -> <<builtin>>
+
+parens :: forall a . a -> a
+parens = \_ a -> _rhs a
+
+primAddInt :: Int -> Int -> Int
+primAddInt = \a b -> <<builtin>>
+
 primCompareChar :: Char -> Char -> Ordering
+primCompareChar = \a b -> <<builtin>>
+
+primCompareFloat :: Float -> Float -> Ordering
+primCompareFloat = \a b -> <<builtin>>
+
+primCompareInt :: Int -> Int -> Ordering
+primCompareInt = \a b -> <<builtin>>
+
 primCompareString :: String -> String -> Ordering
+primCompareString = \a b -> <<builtin>>
+
+primCompareWord :: Word -> Word -> Ordering
+primCompareWord = \a b -> <<builtin>>
+
+primFix :: forall a . (a -> a) -> a
+primFix = \a b -> <<builtin>>
+
+primIfThenElse :: forall a . Bool -> a -> a -> a
+primIfThenElse = \a b c d -> case'Bool (\_ -> a) (_rhs d) (_rhs c) b
+
+primIntToFloat :: Int -> Float
+primIntToFloat = \a -> <<builtin>>
+
+primIntToNat :: Int -> Nat
+primIntToNat = \a -> <<builtin>>
+
+primIntToWord :: Int -> Word
+primIntToWord = \a -> <<builtin>>
+
+primModInt :: Int -> Int -> Int
+primModInt = \a b -> <<builtin>>
+
+primNegateFloat :: Float -> Float
+primNegateFloat = \a -> <<builtin>>
+
 primNegateInt :: Int -> Int
+primNegateInt = \a -> <<builtin>>
+
 primNegateWord :: Word -> Word
-primNegateFloat :: Float -> Float
-primAddInt :: Int -> Int -> Int
-primSubInt :: Int -> Int -> Int
-primModInt :: Int -> Int -> Int
-primSqrtFloat :: Float -> Float
+primNegateWord = \a -> <<builtin>>
+
 primRound :: Float -> Int
-primIfThenElse :: forall a . Bool -> a -> a -> a
-isEQ :: Ordering -> Bool
-'Num :: Type -> Constraint
-fromInt :: forall a . Num a => Int -> a
-compare :: forall a . Num a => a -> a -> Ordering
-negate :: forall a . Num a => a -> a
-'Eq :: Type -> Constraint
-(==) :: forall a . Eq a => a -> a -> Bool
-'List :: Type -> Type
-[] :: forall a . [a]
-(:) :: forall a . a -> [a] -> [a]
-case'List
-  :: forall a
-    . forall (b :: [a] -> Type)
-      -> b ' []
-        -> (forall (c :: a) (d :: [a]) -> b (c : d)) -> forall (e :: [a]) -> b e
-match'List
-  :: forall (a :: Type -> Type) -> (forall b -> a [b]) -> forall c -> a c -> a c
-'HList :: [Type] -> Type
-() :: ()
-HCons :: forall a (b :: [Type]) . a -> HList b -> HList (a : b)
-case'HList
-  :: forall (a :: forall (b :: [Type]) -> HList b -> Type)
-    -> a ' [] ' ()
-      -> (forall c (d :: [Type])
-          . forall (e :: c) (f :: HList d) -> a (c : d) ('HCons e f))
-        -> forall (g :: [Type]) . forall (h :: HList g) -> a g h
-match'HList
-  :: forall (a :: Type -> Type)
-    -> (forall (b :: [Type]) -> a (HList b)) -> forall c -> a c -> a c
-hlistNilCase :: forall a -> a -> () -> a
-hlistConsCase
-  :: forall a (b :: [Type])
-    . forall c -> (a -> HList b -> c) -> HList (a : b) -> c
+primRound = \a -> <<builtin>>
+
+primSqrtFloat :: Float -> Float
+primSqrtFloat = \a -> <<builtin>>
+
+primSubInt :: Int -> Int -> Int
+primSubInt = \a b -> <<builtin>>
+
+t2C :: Unit -> Unit -> Unit
+t2C = \a b -> <<builtin>>
+
+typeAnn :: forall a . a -> a
+typeAnn = \_ a -> _rhs a
+
+undefined :: forall a . a
+undefined = \a -> <<builtin>>
+
+unsafeCoerce :: forall a b . a -> b
+unsafeCoerce = \a b c -> <<builtin>>
 ------------ tooltips
 testdata/Internals.lc 6:1-6:8
     forall a . a -> a
diff --git a/testdata/Material.out b/testdata/Material.out
index 8ae91b82..c64db179 100644
--- a/testdata/Material.out
+++ b/testdata/Material.out
@@ -9,14 +9,29 @@ data Entity :: Type where
         -> Vec (fromInt 4) Float
           -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity
 
-eAmbientLight = \(a :: _) -> case'Entity (\_ -> _) (\(b :: _) _ _ _ -> _rhs b) a
+eAmbientLight
+  = \(a :: _) -> case'Entity
+    (\(_ :: _) -> _)
+    (\(b :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs b)
+    a
 
 eDirectedLight
-  = \(a :: _) -> case'Entity (\_ -> _) (\_ (b :: _) _ _ -> _rhs b) a
+  = \(a :: _) -> case'Entity
+    (\(_ :: _) -> _)
+    (\(_ :: _) (b :: _) (_ :: _) (_ :: _) -> _rhs b)
+    a
 
-eLightDir = \(a :: _) -> case'Entity (\_ -> _) (\_ _ (b :: _) _ -> _rhs b) a
+eLightDir
+  = \(a :: _) -> case'Entity
+    (\(_ :: _) -> _)
+    (\(_ :: _) (_ :: _) (b :: _) (_ :: _) -> _rhs b)
+    a
 
-eShaderRGBA = \(a :: _) -> case'Entity (\_ -> _) (\_ _ _ (b :: _) -> _rhs b) a
+eShaderRGBA
+  = \(a :: _) -> case'Entity
+    (\(_ :: _) -> _)
+    (\(_ :: _) (_ :: _) (_ :: _) (b :: _) -> _rhs b)
+    a
 
 data WaveType :: Type where
     WT_Sin :: WaveType
@@ -132,68 +147,101 @@ data StageAttrs :: Type where
 
 saBlend
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\(b :: _) _ _ _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(b :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saRGBGen
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ (b :: _) _ _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (b :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saAlphaGen
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ (b :: _) _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saTCGen
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ (b :: _) _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saTCMod
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ (b :: _) _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saTexture
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ (b :: _) _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saDepthWrite
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ (b :: _) _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saDepthFunc
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ (b :: _) _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saAlphaFunc
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ (b :: _) _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saDepthMaskExplicit
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ _ (b :: _) _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saTextureUniform
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ _ _ (b :: _) -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _)
+      -> _rhs b)
     a
 
 defaultStageAttrs :: StageAttrs
@@ -224,74 +272,122 @@ data CommonAttrs :: Type where
 
 caSkyParms
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\(b :: _) _ _ _ _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(b :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caFogParms
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ (b :: _) _ _ _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (b :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caPortal
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ (b :: _) _ _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (b :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caSort
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ (b :: _) _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caEntityMergable
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ (b :: _) _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caFogOnly
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ (b :: _) _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caCull
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ (b :: _) _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caDeformVertexes
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ (b :: _) _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caNoMipMaps
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ (b :: _) _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caPolygonOffset
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ _ (b :: _) _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caStages
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ _ _ (b :: _) _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caIsSky
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ _ _ _ (b :: _) -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _)
+      -> _rhs b)
     a
 
 defaultCommonAttrs :: CommonAttrs
@@ -310,61 +406,430 @@ defaultCommonAttrs
       False
       []
       False)
------------- trace
-identityLight :: Float
+------------ core code
+'AlphaFunction :: Type
+'AlphaFunction
+  = <<type constructor with 0 indices; constructors: A_Gt0, A_Lt128, A_Ge128>>
+
+'AlphaGen :: Type
+'AlphaGen
+  = <<type constructor with 0 indices; constructors: A_Wave, A_Const, A_Portal, A_Identity, A_Entity, A_OneMinusEntity, A_Vertex, A_LightingSpecular, A_OneMinusVertex>>
+
+'Blending' :: Type
+'Blending'
+  = <<type constructor with 0 indices; constructors: B_DstAlpha, B_DstColor, B_One, B_OneMinusDstAlpha, B_OneMinusDstColor, B_OneMinusSrcAlpha, B_OneMinusSrcColor, B_SrcAlpha, B_SrcAlphaSaturate, B_SrcColor, B_Zero>>
+
+'CommonAttrs :: Type
+'CommonAttrs = <<type constructor with 0 indices; constructors: CommonAttrs>>
+
+'CullType :: Type
+'CullType
+  = <<type constructor with 0 indices; constructors: CT_FrontSided, CT_BackSided, CT_TwoSided>>
+
+'Deform :: Type
+'Deform
+  = <<type constructor with 0 indices; constructors: D_AutoSprite, D_AutoSprite2, D_Bulge, D_Move, D_Normal, D_ProjectionShadow, D_Text0, D_Text1, D_Text2, D_Text3, D_Text4, D_Text5, D_Text6, D_Text7, D_Wave>>
+
+'DepthFunction :: Type
+'DepthFunction
+  = <<type constructor with 0 indices; constructors: D_Equal, D_Lequal>>
+
 'Entity :: Type
-Entity :: Vec 4 Float -> Vec 4 Float -> Vec 3 Float -> Vec 4 Float -> Entity
-case'Entity
-  :: forall (a :: Entity -> Type)
-    -> (forall (b :: Vec 4 Float)
-          (c :: Vec 4 Float) (d :: Vec 3 Float) (e :: Vec 4 Float)
-        -> a ('Entity b c d e))
-      -> forall (f :: Entity) -> a f
-match'Entity :: forall (a :: Type -> Type) -> a Entity -> forall b -> a b -> a b
-eAmbientLight :: Entity -> VecS Float 4
-eDirectedLight :: Entity -> VecS Float 4
-eLightDir :: Entity -> VecS Float 3
-eShaderRGBA :: Entity -> VecS Float 4
-'WaveType :: Type
-WT_Sin :: WaveType
-WT_Triangle :: WaveType
-WT_Square :: WaveType
-WT_Sawtooth :: WaveType
-WT_InverseSawtooth :: WaveType
-WT_Noise :: WaveType
-case'WaveType
-  :: forall (a :: WaveType -> Type)
-    -> a 'WT_Sin
-      -> a 'WT_Triangle
-        -> a 'WT_Square
-          -> a 'WT_Sawtooth
-            -> a 'WT_InverseSawtooth -> a 'WT_Noise -> forall (b :: WaveType) -> a b
-match'WaveType
-  :: forall (a :: Type -> Type) -> a WaveType -> forall b -> a b -> a b
+'Entity = <<type constructor with 0 indices; constructors: Entity>>
+
+'RGBGen :: Type
+'RGBGen
+  = <<type constructor with 0 indices; constructors: RGB_Wave, RGB_Const, RGB_Identity, RGB_IdentityLighting, RGB_Entity, RGB_OneMinusEntity, RGB_ExactVertex, RGB_Vertex, RGB_LightingDiffuse, RGB_OneMinusVertex, RGB_Undefined>>
+
+'StageAttrs :: Type
+'StageAttrs = <<type constructor with 0 indices; constructors: StageAttrs>>
+
+'StageTexture :: Type
+'StageTexture
+  = <<type constructor with 0 indices; constructors: ST_Map, ST_ClampMap, ST_AnimMap, ST_Lightmap, ST_WhiteImage>>
+
+'TCGen :: Type
+'TCGen
+  = <<type constructor with 0 indices; constructors: TG_Base, TG_Lightmap, TG_Environment, TG_Vector, TG_Undefined>>
+
+'TCMod :: Type
+'TCMod
+  = <<type constructor with 0 indices; constructors: TM_EntityTranslate, TM_Rotate, TM_Scroll, TM_Scale, TM_Stretch, TM_Transform, TM_Turb>>
+
 'Wave :: Type
-Wave :: WaveType -> Float -> Float -> Float -> Float -> Wave
-case'Wave
-  :: forall (a :: Wave -> Type)
-    -> (forall (b :: WaveType) (c :: Float) (d :: Float) (e :: Float) (f :: Float)
-        -> a ('Wave b c d e f))
-      -> forall (g :: Wave) -> a g
-match'Wave :: forall (a :: Type -> Type) -> a Wave -> forall b -> a b -> a b
-'Deform :: Type
+'Wave = <<type constructor with 0 indices; constructors: Wave>>
+
+'WaveType :: Type
+'WaveType
+  = <<type constructor with 0 indices; constructors: WT_Sin, WT_Triangle, WT_Square, WT_Sawtooth, WT_InverseSawtooth, WT_Noise>>
+
+A_Const :: Float -> AlphaGen
+A_Const = <<1st constructor of 'AlphaGen>>
+
+A_Entity :: AlphaGen
+A_Entity = <<4th constructor of 'AlphaGen>>
+
+A_Ge128 :: AlphaFunction
+A_Ge128 = <<2nd constructor of 'AlphaFunction>>
+
+A_Gt0 :: AlphaFunction
+A_Gt0 = <<0th constructor of 'AlphaFunction>>
+
+A_Identity :: AlphaGen
+A_Identity = <<3rd constructor of 'AlphaGen>>
+
+A_LightingSpecular :: AlphaGen
+A_LightingSpecular = <<7th constructor of 'AlphaGen>>
+
+A_Lt128 :: AlphaFunction
+A_Lt128 = <<1st constructor of 'AlphaFunction>>
+
+A_OneMinusEntity :: AlphaGen
+A_OneMinusEntity = <<5th constructor of 'AlphaGen>>
+
+A_OneMinusVertex :: AlphaGen
+A_OneMinusVertex = <<8th constructor of 'AlphaGen>>
+
+A_Portal :: AlphaGen
+A_Portal = <<2nd constructor of 'AlphaGen>>
+
+A_Vertex :: AlphaGen
+A_Vertex = <<6th constructor of 'AlphaGen>>
+
+A_Wave :: Wave -> AlphaGen
+A_Wave = <<0th constructor of 'AlphaGen>>
+
+B_DstAlpha :: Blending'
+B_DstAlpha = <<0th constructor of 'Blending'>>
+
+B_DstColor :: Blending'
+B_DstColor = <<1st constructor of 'Blending'>>
+
+B_One :: Blending'
+B_One = <<2nd constructor of 'Blending'>>
+
+B_OneMinusDstAlpha :: Blending'
+B_OneMinusDstAlpha = <<3rd constructor of 'Blending'>>
+
+B_OneMinusDstColor :: Blending'
+B_OneMinusDstColor = <<4th constructor of 'Blending'>>
+
+B_OneMinusSrcAlpha :: Blending'
+B_OneMinusSrcAlpha = <<5th constructor of 'Blending'>>
+
+B_OneMinusSrcColor :: Blending'
+B_OneMinusSrcColor = <<6th constructor of 'Blending'>>
+
+B_SrcAlpha :: Blending'
+B_SrcAlpha = <<7th constructor of 'Blending'>>
+
+B_SrcAlphaSaturate :: Blending'
+B_SrcAlphaSaturate = <<8th constructor of 'Blending'>>
+
+B_SrcColor :: Blending'
+B_SrcColor = <<9th constructor of 'Blending'>>
+
+B_Zero :: Blending'
+B_Zero = <<10th constructor of 'Blending'>>
+
+CT_BackSided :: CullType
+CT_BackSided = <<1st constructor of 'CullType>>
+
+CT_FrontSided :: CullType
+CT_FrontSided = <<0th constructor of 'CullType>>
+
+CT_TwoSided :: CullType
+CT_TwoSided = <<2nd constructor of 'CullType>>
+
+CommonAttrs
+  :: ()
+    -> ()
+      -> Bool
+        -> Float
+          -> Bool
+            -> Bool
+              -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs
+CommonAttrs = <<0th constructor of 'CommonAttrs>>
+
 D_AutoSprite :: Deform
+D_AutoSprite = <<0th constructor of 'Deform>>
+
 D_AutoSprite2 :: Deform
+D_AutoSprite2 = <<1st constructor of 'Deform>>
+
 D_Bulge :: Float -> Float -> Float -> Deform
+D_Bulge = <<2nd constructor of 'Deform>>
+
+D_Equal :: DepthFunction
+D_Equal = <<0th constructor of 'DepthFunction>>
+
+D_Lequal :: DepthFunction
+D_Lequal = <<1st constructor of 'DepthFunction>>
+
 D_Move :: Vec 3 Float -> Wave -> Deform
+D_Move = <<3rd constructor of 'Deform>>
+
 D_Normal :: Float -> Float -> Deform
+D_Normal = <<4th constructor of 'Deform>>
+
 D_ProjectionShadow :: Deform
+D_ProjectionShadow = <<5th constructor of 'Deform>>
+
 D_Text0 :: Deform
+D_Text0 = <<6th constructor of 'Deform>>
+
 D_Text1 :: Deform
+D_Text1 = <<7th constructor of 'Deform>>
+
 D_Text2 :: Deform
+D_Text2 = <<8th constructor of 'Deform>>
+
 D_Text3 :: Deform
+D_Text3 = <<9th constructor of 'Deform>>
+
 D_Text4 :: Deform
+D_Text4 = <<10th constructor of 'Deform>>
+
 D_Text5 :: Deform
+D_Text5 = <<11th constructor of 'Deform>>
+
 D_Text6 :: Deform
+D_Text6 = <<12th constructor of 'Deform>>
+
 D_Text7 :: Deform
+D_Text7 = <<13th constructor of 'Deform>>
+
 D_Wave :: Float -> Wave -> Deform
+D_Wave = <<14th constructor of 'Deform>>
+
+Entity :: Vec 4 Float -> Vec 4 Float -> Vec 3 Float -> Vec 4 Float -> Entity
+Entity = <<0th constructor of 'Entity>>
+
+RGB_Const :: Float -> Float -> Float -> RGBGen
+RGB_Const = <<1st constructor of 'RGBGen>>
+
+RGB_Entity :: RGBGen
+RGB_Entity = <<4th constructor of 'RGBGen>>
+
+RGB_ExactVertex :: RGBGen
+RGB_ExactVertex = <<6th constructor of 'RGBGen>>
+
+RGB_Identity :: RGBGen
+RGB_Identity = <<2nd constructor of 'RGBGen>>
+
+RGB_IdentityLighting :: RGBGen
+RGB_IdentityLighting = <<3rd constructor of 'RGBGen>>
+
+RGB_LightingDiffuse :: RGBGen
+RGB_LightingDiffuse = <<8th constructor of 'RGBGen>>
+
+RGB_OneMinusEntity :: RGBGen
+RGB_OneMinusEntity = <<5th constructor of 'RGBGen>>
+
+RGB_OneMinusVertex :: RGBGen
+RGB_OneMinusVertex = <<9th constructor of 'RGBGen>>
+
+RGB_Undefined :: RGBGen
+RGB_Undefined = <<10th constructor of 'RGBGen>>
+
+RGB_Vertex :: RGBGen
+RGB_Vertex = <<7th constructor of 'RGBGen>>
+
+RGB_Wave :: Wave -> RGBGen
+RGB_Wave = <<0th constructor of 'RGBGen>>
+
+ST_AnimMap :: Float -> [String] -> StageTexture
+ST_AnimMap = <<2nd constructor of 'StageTexture>>
+
+ST_ClampMap :: String -> StageTexture
+ST_ClampMap = <<1st constructor of 'StageTexture>>
+
+ST_Lightmap :: StageTexture
+ST_Lightmap = <<3rd constructor of 'StageTexture>>
+
+ST_Map :: String -> StageTexture
+ST_Map = <<0th constructor of 'StageTexture>>
+
+ST_WhiteImage :: StageTexture
+ST_WhiteImage = <<4th constructor of 'StageTexture>>
+
+StageAttrs
+  :: Maybe (Blending', Blending')
+    -> RGBGen
+      -> AlphaGen
+        -> TCGen
+          -> [TCMod]
+            -> StageTexture
+              -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+StageAttrs = <<0th constructor of 'StageAttrs>>
+
+TG_Base :: TCGen
+TG_Base = <<0th constructor of 'TCGen>>
+
+TG_Environment :: TCGen
+TG_Environment = <<2nd constructor of 'TCGen>>
+
+TG_Lightmap :: TCGen
+TG_Lightmap = <<1st constructor of 'TCGen>>
+
+TG_Undefined :: TCGen
+TG_Undefined = <<4th constructor of 'TCGen>>
+
+TG_Vector :: Vec 3 Float -> Vec 3 Float -> TCGen
+TG_Vector = <<3rd constructor of 'TCGen>>
+
+TM_EntityTranslate :: TCMod
+TM_EntityTranslate = <<0th constructor of 'TCMod>>
+
+TM_Rotate :: Float -> TCMod
+TM_Rotate = <<1st constructor of 'TCMod>>
+
+TM_Scale :: Float -> Float -> TCMod
+TM_Scale = <<3rd constructor of 'TCMod>>
+
+TM_Scroll :: Float -> Float -> TCMod
+TM_Scroll = <<2nd constructor of 'TCMod>>
+
+TM_Stretch :: Wave -> TCMod
+TM_Stretch = <<4th constructor of 'TCMod>>
+
+TM_Transform :: Float -> Float -> Float -> Float -> Float -> Float -> TCMod
+TM_Transform = <<5th constructor of 'TCMod>>
+
+TM_Turb :: Float -> Float -> Float -> Float -> TCMod
+TM_Turb = <<6th constructor of 'TCMod>>
+
+WT_InverseSawtooth :: WaveType
+WT_InverseSawtooth = <<4th constructor of 'WaveType>>
+
+WT_Noise :: WaveType
+WT_Noise = <<5th constructor of 'WaveType>>
+
+WT_Sawtooth :: WaveType
+WT_Sawtooth = <<3rd constructor of 'WaveType>>
+
+WT_Sin :: WaveType
+WT_Sin = <<0th constructor of 'WaveType>>
+
+WT_Square :: WaveType
+WT_Square = <<2nd constructor of 'WaveType>>
+
+WT_Triangle :: WaveType
+WT_Triangle = <<1st constructor of 'WaveType>>
+
+Wave :: WaveType -> Float -> Float -> Float -> Float -> Wave
+Wave = <<0th constructor of 'Wave>>
+
+caCull :: CommonAttrs -> CullType
+caCull
+  = \a -> case'CommonAttrs
+    (\_ -> 'CullType)
+    (\_ _ _ _ _ _ b _ _ _ _ _ -> _rhs b)
+    a
+
+caDeformVertexes :: CommonAttrs -> [Deform]
+caDeformVertexes
+  = \a -> case'CommonAttrs
+    (\_ -> ['Deform])
+    (\_ _ _ _ _ _ _ b _ _ _ _ -> _rhs b)
+    a
+
+caEntityMergable :: CommonAttrs -> Bool
+caEntityMergable
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ _ _ b _ _ _ _ _ _ _ -> _rhs b) a
+
+caFogOnly :: CommonAttrs -> Bool
+caFogOnly
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ _ _ _ b _ _ _ _ _ _ -> _rhs b) a
+
+caFogParms :: CommonAttrs -> ()
+caFogParms
+  = \a -> case'CommonAttrs (\_ -> ' ()) (\_ b _ _ _ _ _ _ _ _ _ _ -> _rhs b) a
+
+caIsSky :: CommonAttrs -> Bool
+caIsSky
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ _ _ _ _ _ _ _ _ _ b -> _rhs b) a
+
+caNoMipMaps :: CommonAttrs -> Bool
+caNoMipMaps
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ _ _ _ _ _ _ b _ _ _ -> _rhs b) a
+
+caPolygonOffset :: CommonAttrs -> Bool
+caPolygonOffset
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ _ _ _ _ _ _ _ b _ _ -> _rhs b) a
+
+caPortal :: CommonAttrs -> Bool
+caPortal
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ b _ _ _ _ _ _ _ _ _ -> _rhs b) a
+
+caSkyParms :: CommonAttrs -> ()
+caSkyParms
+  = \a -> case'CommonAttrs (\_ -> ' ()) (\b _ _ _ _ _ _ _ _ _ _ _ -> _rhs b) a
+
+caSort :: CommonAttrs -> Float
+caSort
+  = \a -> case'CommonAttrs (\_ -> 'Float) (\_ _ _ b _ _ _ _ _ _ _ _ -> _rhs b) a
+
+caStages :: CommonAttrs -> [StageAttrs]
+caStages
+  = \a -> case'CommonAttrs
+    (\_ -> ['StageAttrs])
+    (\_ _ _ _ _ _ _ _ _ _ b _ -> _rhs b)
+    a
+
+case'AlphaFunction
+  :: forall (a :: AlphaFunction -> Type)
+    -> a 'A_Gt0 -> a 'A_Lt128 -> a 'A_Ge128 -> forall (b :: AlphaFunction) -> a b
+case'AlphaFunction = \a b c d e -> <<case function of a type with 0 parameters>>
+
+case'AlphaGen
+  :: forall (a :: AlphaGen -> Type)
+    -> (forall (b :: Wave) -> a ('A_Wave b))
+      -> (forall (c :: Float) -> a ('A_Const c))
+        -> a 'A_Portal
+          -> a 'A_Identity
+            -> a 'A_Entity
+              -> a 'A_OneMinusEntity
+                -> a 'A_Vertex
+                  -> a 'A_LightingSpecular -> a 'A_OneMinusVertex -> forall (d :: AlphaGen) -> a d
+case'AlphaGen
+  = \a b c d e f g h i j k -> <<case function of a type with 0 parameters>>
+
+case'Blending'
+  :: forall (a :: Blending' -> Type)
+    -> a 'B_DstAlpha
+      -> a 'B_DstColor
+        -> a 'B_One
+          -> a 'B_OneMinusDstAlpha
+            -> a 'B_OneMinusDstColor
+              -> a 'B_OneMinusSrcAlpha
+                -> a 'B_OneMinusSrcColor
+                  -> a 'B_SrcAlpha
+                    -> a 'B_SrcAlphaSaturate
+                      -> a 'B_SrcColor -> a 'B_Zero -> forall (b :: Blending') -> a b
+case'Blending'
+  = \a b c d e f g h i j k l m -> <<case function of a type with 0 parameters>>
+
+case'CommonAttrs
+  :: forall (a :: CommonAttrs -> Type)
+    -> (forall (b :: ())
+          (c :: ())
+            (d :: Bool)
+              (e :: Float)
+                (f :: Bool)
+                  (g :: Bool)
+                    (h :: CullType)
+                      (i :: [Deform]) (j :: Bool) (k :: Bool) (l :: [StageAttrs]) (m :: Bool)
+        -> a ('CommonAttrs b c d e f g h i j k l m))
+      -> forall (n :: CommonAttrs) -> a n
+case'CommonAttrs = \a b c -> <<case function of a type with 0 parameters>>
+
+case'CullType
+  :: forall (a :: CullType -> Type)
+    -> a 'CT_FrontSided
+      -> a 'CT_BackSided -> a 'CT_TwoSided -> forall (b :: CullType) -> a b
+case'CullType = \a b c d e -> <<case function of a type with 0 parameters>>
+
 case'Deform
   :: forall (a :: Deform -> Type)
     -> a 'D_AutoSprite
@@ -383,55 +848,23 @@ case'Deform
                               -> a 'D_Text7
                                 -> (forall (i :: Float) (j :: Wave) -> a ('D_Wave i j))
                                   -> forall (k :: Deform) -> a k
-match'Deform :: forall (a :: Type -> Type) -> a Deform -> forall b -> a b -> a b
-'CullType :: Type
-CT_FrontSided :: CullType
-CT_BackSided :: CullType
-CT_TwoSided :: CullType
-case'CullType
-  :: forall (a :: CullType -> Type)
-    -> a 'CT_FrontSided
-      -> a 'CT_BackSided -> a 'CT_TwoSided -> forall (b :: CullType) -> a b
-match'CullType
-  :: forall (a :: Type -> Type) -> a CullType -> forall b -> a b -> a b
-'Blending' :: Type
-B_DstAlpha :: Blending'
-B_DstColor :: Blending'
-B_One :: Blending'
-B_OneMinusDstAlpha :: Blending'
-B_OneMinusDstColor :: Blending'
-B_OneMinusSrcAlpha :: Blending'
-B_OneMinusSrcColor :: Blending'
-B_SrcAlpha :: Blending'
-B_SrcAlphaSaturate :: Blending'
-B_SrcColor :: Blending'
-B_Zero :: Blending'
-case'Blending'
-  :: forall (a :: Blending' -> Type)
-    -> a 'B_DstAlpha
-      -> a 'B_DstColor
-        -> a 'B_One
-          -> a 'B_OneMinusDstAlpha
-            -> a 'B_OneMinusDstColor
-              -> a 'B_OneMinusSrcAlpha
-                -> a 'B_OneMinusSrcColor
-                  -> a 'B_SrcAlpha
-                    -> a 'B_SrcAlphaSaturate
-                      -> a 'B_SrcColor -> a 'B_Zero -> forall (b :: Blending') -> a b
-match'Blending'
-  :: forall (a :: Type -> Type) -> a Blending' -> forall b -> a b -> a b
-'RGBGen :: Type
-RGB_Wave :: Wave -> RGBGen
-RGB_Const :: Float -> Float -> Float -> RGBGen
-RGB_Identity :: RGBGen
-RGB_IdentityLighting :: RGBGen
-RGB_Entity :: RGBGen
-RGB_OneMinusEntity :: RGBGen
-RGB_ExactVertex :: RGBGen
-RGB_Vertex :: RGBGen
-RGB_LightingDiffuse :: RGBGen
-RGB_OneMinusVertex :: RGBGen
-RGB_Undefined :: RGBGen
+case'Deform
+  = \a b c d e f g h i j k l m n o p q
+    -> <<case function of a type with 0 parameters>>
+
+case'DepthFunction
+  :: forall (a :: DepthFunction -> Type)
+    -> a 'D_Equal -> a 'D_Lequal -> forall (b :: DepthFunction) -> a b
+case'DepthFunction = \a b c d -> <<case function of a type with 0 parameters>>
+
+case'Entity
+  :: forall (a :: Entity -> Type)
+    -> (forall (b :: Vec 4 Float)
+          (c :: Vec 4 Float) (d :: Vec 3 Float) (e :: Vec 4 Float)
+        -> a ('Entity b c d e))
+      -> forall (f :: Entity) -> a f
+case'Entity = \a b c -> <<case function of a type with 0 parameters>>
+
 case'RGBGen
   :: forall (a :: RGBGen -> Type)
     -> (forall (b :: Wave) -> a ('RGB_Wave b))
@@ -444,35 +877,32 @@ case'RGBGen
                   -> a 'RGB_Vertex
                     -> a 'RGB_LightingDiffuse
                       -> a 'RGB_OneMinusVertex -> a 'RGB_Undefined -> forall (f :: RGBGen) -> a f
-match'RGBGen :: forall (a :: Type -> Type) -> a RGBGen -> forall b -> a b -> a b
-'AlphaGen :: Type
-A_Wave :: Wave -> AlphaGen
-A_Const :: Float -> AlphaGen
-A_Portal :: AlphaGen
-A_Identity :: AlphaGen
-A_Entity :: AlphaGen
-A_OneMinusEntity :: AlphaGen
-A_Vertex :: AlphaGen
-A_LightingSpecular :: AlphaGen
-A_OneMinusVertex :: AlphaGen
-case'AlphaGen
-  :: forall (a :: AlphaGen -> Type)
-    -> (forall (b :: Wave) -> a ('A_Wave b))
-      -> (forall (c :: Float) -> a ('A_Const c))
-        -> a 'A_Portal
-          -> a 'A_Identity
-            -> a 'A_Entity
-              -> a 'A_OneMinusEntity
-                -> a 'A_Vertex
-                  -> a 'A_LightingSpecular -> a 'A_OneMinusVertex -> forall (d :: AlphaGen) -> a d
-match'AlphaGen
-  :: forall (a :: Type -> Type) -> a AlphaGen -> forall b -> a b -> a b
-'TCGen :: Type
-TG_Base :: TCGen
-TG_Lightmap :: TCGen
-TG_Environment :: TCGen
-TG_Vector :: Vec 3 Float -> Vec 3 Float -> TCGen
-TG_Undefined :: TCGen
+case'RGBGen
+  = \a b c d e f g h i j k l m -> <<case function of a type with 0 parameters>>
+
+case'StageAttrs
+  :: forall (a :: StageAttrs -> Type)
+    -> (forall (b :: Maybe (Blending', Blending'))
+          (c :: RGBGen)
+            (d :: AlphaGen)
+              (e :: TCGen)
+                (f :: [TCMod])
+                  (g :: StageTexture)
+                    (h :: Bool)
+                      (i :: DepthFunction) (j :: Maybe AlphaFunction) (k :: Bool) (l :: String)
+        -> a ('StageAttrs b c d e f g h i j k l))
+      -> forall (m :: StageAttrs) -> a m
+case'StageAttrs = \a b c -> <<case function of a type with 0 parameters>>
+
+case'StageTexture
+  :: forall (a :: StageTexture -> Type)
+    -> (forall (b :: String) -> a ('ST_Map b))
+      -> (forall (c :: String) -> a ('ST_ClampMap c))
+        -> (forall (d :: Float) (e :: [String]) -> a ('ST_AnimMap d e))
+          -> a 'ST_Lightmap -> a 'ST_WhiteImage -> forall (f :: StageTexture) -> a f
+case'StageTexture
+  = \a b c d e f g -> <<case function of a type with 0 parameters>>
+
 case'TCGen
   :: forall (a :: TCGen -> Type)
     -> a 'TG_Base
@@ -480,15 +910,8 @@ case'TCGen
         -> a 'TG_Environment
           -> (forall (b :: Vec 3 Float) (c :: Vec 3 Float) -> a ('TG_Vector b c))
             -> a 'TG_Undefined -> forall (d :: TCGen) -> a d
-match'TCGen :: forall (a :: Type -> Type) -> a TCGen -> forall b -> a b -> a b
-'TCMod :: Type
-TM_EntityTranslate :: TCMod
-TM_Rotate :: Float -> TCMod
-TM_Scroll :: Float -> Float -> TCMod
-TM_Scale :: Float -> Float -> TCMod
-TM_Stretch :: Wave -> TCMod
-TM_Transform :: Float -> Float -> Float -> Float -> Float -> Float -> TCMod
-TM_Turb :: Float -> Float -> Float -> Float -> TCMod
+case'TCGen = \a b c d e f g -> <<case function of a type with 0 parameters>>
+
 case'TCMod
   :: forall (a :: TCMod -> Type)
     -> a 'TM_EntityTranslate
@@ -502,109 +925,170 @@ case'TCMod
                 -> (forall (n :: Float) (o :: Float) (p :: Float) (q :: Float)
                     -> a ('TM_Turb n o p q))
                   -> forall (r :: TCMod) -> a r
-match'TCMod :: forall (a :: Type -> Type) -> a TCMod -> forall b -> a b -> a b
-'StageTexture :: Type
-ST_Map :: String -> StageTexture
-ST_ClampMap :: String -> StageTexture
-ST_AnimMap :: Float -> [String] -> StageTexture
-ST_Lightmap :: StageTexture
-ST_WhiteImage :: StageTexture
-case'StageTexture
-  :: forall (a :: StageTexture -> Type)
-    -> (forall (b :: String) -> a ('ST_Map b))
-      -> (forall (c :: String) -> a ('ST_ClampMap c))
-        -> (forall (d :: Float) (e :: [String]) -> a ('ST_AnimMap d e))
-          -> a 'ST_Lightmap -> a 'ST_WhiteImage -> forall (f :: StageTexture) -> a f
-match'StageTexture
-  :: forall (a :: Type -> Type) -> a StageTexture -> forall b -> a b -> a b
-'AlphaFunction :: Type
-A_Gt0 :: AlphaFunction
-A_Lt128 :: AlphaFunction
-A_Ge128 :: AlphaFunction
-case'AlphaFunction
-  :: forall (a :: AlphaFunction -> Type)
-    -> a 'A_Gt0 -> a 'A_Lt128 -> a 'A_Ge128 -> forall (b :: AlphaFunction) -> a b
+case'TCMod = \a b c d e f g h i -> <<case function of a type with 0 parameters>>
+
+case'Wave
+  :: forall (a :: Wave -> Type)
+    -> (forall (b :: WaveType) (c :: Float) (d :: Float) (e :: Float) (f :: Float)
+        -> a ('Wave b c d e f))
+      -> forall (g :: Wave) -> a g
+case'Wave = \a b c -> <<case function of a type with 0 parameters>>
+
+case'WaveType
+  :: forall (a :: WaveType -> Type)
+    -> a 'WT_Sin
+      -> a 'WT_Triangle
+        -> a 'WT_Square
+          -> a 'WT_Sawtooth
+            -> a 'WT_InverseSawtooth -> a 'WT_Noise -> forall (b :: WaveType) -> a b
+case'WaveType
+  = \a b c d e f g h -> <<case function of a type with 0 parameters>>
+
+defaultCommonAttrs :: CommonAttrs
+defaultCommonAttrs
+  = _rhs
+    (CommonAttrs () () False 0.0 False False CT_FrontSided [] False False [] False)
+
+defaultStageAttrs :: StageAttrs
+defaultStageAttrs
+  = _rhs
+    (StageAttrs
+      Nothing
+      RGB_Undefined
+      A_Identity
+      TG_Undefined
+      []
+      ST_WhiteImage
+      True
+      D_Lequal
+      Nothing
+      False
+      "")
+
+eAmbientLight :: Entity -> VecS Float 4
+eAmbientLight = \a -> case'Entity (\_ -> 'VecS 'Float 4) (\b _ _ _ -> _rhs b) a
+
+eDirectedLight :: Entity -> VecS Float 4
+eDirectedLight = \a -> case'Entity (\_ -> 'VecS 'Float 4) (\_ b _ _ -> _rhs b) a
+
+eLightDir :: Entity -> VecS Float 3
+eLightDir = \a -> case'Entity (\_ -> 'VecS 'Float 3) (\_ _ b _ -> _rhs b) a
+
+eShaderRGBA :: Entity -> VecS Float 4
+eShaderRGBA = \a -> case'Entity (\_ -> 'VecS 'Float 4) (\_ _ _ b -> _rhs b) a
+
+identityLight :: Float
+identityLight = _rhs 1.0
+
 match'AlphaFunction
   :: forall (a :: Type -> Type) -> a AlphaFunction -> forall b -> a b -> a b
-'DepthFunction :: Type
-D_Equal :: DepthFunction
-D_Lequal :: DepthFunction
-case'DepthFunction
-  :: forall (a :: DepthFunction -> Type)
-    -> a 'D_Equal -> a 'D_Lequal -> forall (b :: DepthFunction) -> a b
+match'AlphaFunction = \a b c d -> <<type case function>>
+
+match'AlphaGen
+  :: forall (a :: Type -> Type) -> a AlphaGen -> forall b -> a b -> a b
+match'AlphaGen = \a b c d -> <<type case function>>
+
+match'Blending'
+  :: forall (a :: Type -> Type) -> a Blending' -> forall b -> a b -> a b
+match'Blending' = \a b c d -> <<type case function>>
+
+match'CommonAttrs
+  :: forall (a :: Type -> Type) -> a CommonAttrs -> forall b -> a b -> a b
+match'CommonAttrs = \a b c d -> <<type case function>>
+
+match'CullType
+  :: forall (a :: Type -> Type) -> a CullType -> forall b -> a b -> a b
+match'CullType = \a b c d -> <<type case function>>
+
+match'Deform :: forall (a :: Type -> Type) -> a Deform -> forall b -> a b -> a b
+match'Deform = \a b c d -> <<type case function>>
+
 match'DepthFunction
   :: forall (a :: Type -> Type) -> a DepthFunction -> forall b -> a b -> a b
-'StageAttrs :: Type
-StageAttrs
-  :: Maybe (Blending', Blending')
-    -> RGBGen
-      -> AlphaGen
-        -> TCGen
-          -> [TCMod]
-            -> StageTexture
-              -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-case'StageAttrs
-  :: forall (a :: StageAttrs -> Type)
-    -> (forall (b :: Maybe (Blending', Blending'))
-          (c :: RGBGen)
-            (d :: AlphaGen)
-              (e :: TCGen)
-                (f :: [TCMod])
-                  (g :: StageTexture)
-                    (h :: Bool)
-                      (i :: DepthFunction) (j :: Maybe AlphaFunction) (k :: Bool) (l :: String)
-        -> a ('StageAttrs b c d e f g h i j k l))
-      -> forall (m :: StageAttrs) -> a m
+match'DepthFunction = \a b c d -> <<type case function>>
+
+match'Entity :: forall (a :: Type -> Type) -> a Entity -> forall b -> a b -> a b
+match'Entity = \a b c d -> <<type case function>>
+
+match'RGBGen :: forall (a :: Type -> Type) -> a RGBGen -> forall b -> a b -> a b
+match'RGBGen = \a b c d -> <<type case function>>
+
 match'StageAttrs
   :: forall (a :: Type -> Type) -> a StageAttrs -> forall b -> a b -> a b
+match'StageAttrs = \a b c d -> <<type case function>>
+
+match'StageTexture
+  :: forall (a :: Type -> Type) -> a StageTexture -> forall b -> a b -> a b
+match'StageTexture = \a b c d -> <<type case function>>
+
+match'TCGen :: forall (a :: Type -> Type) -> a TCGen -> forall b -> a b -> a b
+match'TCGen = \a b c d -> <<type case function>>
+
+match'TCMod :: forall (a :: Type -> Type) -> a TCMod -> forall b -> a b -> a b
+match'TCMod = \a b c d -> <<type case function>>
+
+match'Wave :: forall (a :: Type -> Type) -> a Wave -> forall b -> a b -> a b
+match'Wave = \a b c d -> <<type case function>>
+
+match'WaveType
+  :: forall (a :: Type -> Type) -> a WaveType -> forall b -> a b -> a b
+match'WaveType = \a b c d -> <<type case function>>
+
+saAlphaFunc :: StageAttrs -> Maybe AlphaFunction
+saAlphaFunc
+  = \a -> case'StageAttrs
+    (\_ -> 'Maybe 'AlphaFunction)
+    (\_ _ _ _ _ _ _ _ b _ _ -> _rhs b)
+    a
+
+saAlphaGen :: StageAttrs -> AlphaGen
+saAlphaGen
+  = \a -> case'StageAttrs (\_ -> 'AlphaGen) (\_ _ b _ _ _ _ _ _ _ _ -> _rhs b) a
+
 saBlend :: StageAttrs -> Maybe (Blending', Blending')
+saBlend
+  = \a -> case'StageAttrs
+    (\_ -> 'Maybe ' ('Blending', 'Blending'))
+    (\b _ _ _ _ _ _ _ _ _ _ -> _rhs b)
+    a
+
+saDepthFunc :: StageAttrs -> DepthFunction
+saDepthFunc
+  = \a -> case'StageAttrs
+    (\_ -> 'DepthFunction)
+    (\_ _ _ _ _ _ _ b _ _ _ -> _rhs b)
+    a
+
+saDepthMaskExplicit :: StageAttrs -> Bool
+saDepthMaskExplicit
+  = \a -> case'StageAttrs (\_ -> 'Bool) (\_ _ _ _ _ _ _ _ _ b _ -> _rhs b) a
+
+saDepthWrite :: StageAttrs -> Bool
+saDepthWrite
+  = \a -> case'StageAttrs (\_ -> 'Bool) (\_ _ _ _ _ _ b _ _ _ _ -> _rhs b) a
+
 saRGBGen :: StageAttrs -> RGBGen
-saAlphaGen :: StageAttrs -> AlphaGen
+saRGBGen
+  = \a -> case'StageAttrs (\_ -> 'RGBGen) (\_ b _ _ _ _ _ _ _ _ _ -> _rhs b) a
+
 saTCGen :: StageAttrs -> TCGen
+saTCGen
+  = \a -> case'StageAttrs (\_ -> 'TCGen) (\_ _ _ b _ _ _ _ _ _ _ -> _rhs b) a
+
 saTCMod :: StageAttrs -> [TCMod]
+saTCMod
+  = \a -> case'StageAttrs (\_ -> ['TCMod]) (\_ _ _ _ b _ _ _ _ _ _ -> _rhs b) a
+
 saTexture :: StageAttrs -> StageTexture
-saDepthWrite :: StageAttrs -> Bool
-saDepthFunc :: StageAttrs -> DepthFunction
-saAlphaFunc :: StageAttrs -> Maybe AlphaFunction
-saDepthMaskExplicit :: StageAttrs -> Bool
+saTexture
+  = \a -> case'StageAttrs
+    (\_ -> 'StageTexture)
+    (\_ _ _ _ _ b _ _ _ _ _ -> _rhs b)
+    a
+
 saTextureUniform :: StageAttrs -> String
-defaultStageAttrs :: StageAttrs
-'CommonAttrs :: Type
-CommonAttrs
-  :: ()
-    -> ()
-      -> Bool
-        -> Float
-          -> Bool
-            -> Bool
-              -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs
-case'CommonAttrs
-  :: forall (a :: CommonAttrs -> Type)
-    -> (forall (b :: ())
-          (c :: ())
-            (d :: Bool)
-              (e :: Float)
-                (f :: Bool)
-                  (g :: Bool)
-                    (h :: CullType)
-                      (i :: [Deform]) (j :: Bool) (k :: Bool) (l :: [StageAttrs]) (m :: Bool)
-        -> a ('CommonAttrs b c d e f g h i j k l m))
-      -> forall (n :: CommonAttrs) -> a n
-match'CommonAttrs
-  :: forall (a :: Type -> Type) -> a CommonAttrs -> forall b -> a b -> a b
-caSkyParms :: CommonAttrs -> ()
-caFogParms :: CommonAttrs -> ()
-caPortal :: CommonAttrs -> Bool
-caSort :: CommonAttrs -> Float
-caEntityMergable :: CommonAttrs -> Bool
-caFogOnly :: CommonAttrs -> Bool
-caCull :: CommonAttrs -> CullType
-caDeformVertexes :: CommonAttrs -> [Deform]
-caNoMipMaps :: CommonAttrs -> Bool
-caPolygonOffset :: CommonAttrs -> Bool
-caStages :: CommonAttrs -> [StageAttrs]
-caIsSky :: CommonAttrs -> Bool
-defaultCommonAttrs :: CommonAttrs
+saTextureUniform
+  = \a -> case'StageAttrs (\_ -> 'String) (\_ _ _ _ _ _ _ _ _ _ b -> _rhs b) a
 ------------ tooltips
 testdata/Material.lc 7:18-7:23
     Type
diff --git a/testdata/Prelude.out b/testdata/Prelude.out
index 90f52a55..556b39e2 100644
--- a/testdata/Prelude.out
+++ b/testdata/Prelude.out
@@ -12,7 +12,7 @@ infixr 3 ***
 
 infixr 0 $
 
-const = \(a :: _) _ -> _rhs a
+const = \(a :: _) (_ :: _) -> _rhs a
 
 otherwise = _rhs True
 
@@ -45,10 +45,10 @@ pi = _rhs 3.141592653589793
 zip :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)]
 zip
   = \(a :: _) (b :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs [])
     (\(c :: _) (d :: _) -> case'List
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs [])
       (\(e :: _) (f :: _) -> _rhs ((c, e) : zip d f))
       b)
@@ -57,7 +57,7 @@ zip
 unzip :: forall (a :: _) (b :: _) . [(a, b)] -> ([a], [b])
 unzip
   = \(a :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs ([], []))
     (\(b :: _) (c :: _) -> hlistConsCase
       _
@@ -72,14 +72,20 @@ unzip
                 = _rhs
                   ((\(k :: _) -> hlistConsCase
                       _
-                      (\_ (l :: _) -> hlistConsCase _ (\(m :: _) (n :: _) -> hlistNilCase _ m n) l)
+                      (\(_ :: _) (l :: _) -> hlistConsCase
+                        _
+                        (\(m :: _) (n :: _) -> hlistNilCase _ m n)
+                        l)
                       k)
                     h);
               j
                 = _rhs
                   ((\(o :: _) -> hlistConsCase
                       _
-                      (\(p :: _) (q :: _) -> hlistConsCase _ (\_ (r :: _) -> hlistNilCase _ p r) q)
+                      (\(p :: _) (q :: _) -> hlistConsCase
+                        _
+                        (\(_ :: _) (r :: _) -> hlistNilCase _ p r)
+                        q)
                       o)
                     h)
               in (d : j, f : i))
@@ -90,36 +96,41 @@ unzip
 
 filter
   = \(a :: _) (b :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs [])
     (\(c :: _) (d :: _) -> _rhs
-      ((\(e :: _) -> case'Bool (\_ -> _) (filter a d) (c : filter a d) e) (a c)))
+      ((\(e :: _) -> case'Bool (\(_ :: _) -> _) (filter a d) (c : filter a d) e)
+        (a c)))
     b
 
 tail :: forall (a :: _) . [a] -> [a]
 tail
-  = \(a :: _) -> case'List (\_ -> _) (_rhs undefined) (\_ (b :: _) -> _rhs b) a
+  = \(a :: _) -> case'List
+    (\(_ :: _) -> _)
+    (_rhs undefined)
+    (\(_ :: _) (b :: _) -> _rhs b)
+    a
 
 pairs :: forall (a :: _) . [a] -> [(a, a)]
 pairs = \(a :: _) -> _rhs (zip a (tail a))
 
 foldl'
   = \(a :: _) (b :: _) (c :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs b)
     (\(d :: _) (e :: _) -> _rhs (foldl' a (a b d) e))
     c
 
 foldr1
   = \(a :: _) (b :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs undefined)
     (\(c :: _) (d :: _) -> _rhs (foldr a c d))
     b
 
 split
   = \(a :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs ([], []))
     (\(b :: _) (c :: _) -> _rhs
       let
@@ -128,14 +139,20 @@ split
           = _rhs
             ((\(g :: _) -> hlistConsCase
                 _
-                (\_ (h :: _) -> hlistConsCase _ (\(i :: _) (j :: _) -> hlistNilCase _ i j) h)
+                (\(_ :: _) (h :: _) -> hlistConsCase
+                  _
+                  (\(i :: _) (j :: _) -> hlistNilCase _ i j)
+                  h)
                 g)
               d);
         f
           = _rhs
             ((\(k :: _) -> hlistConsCase
                 _
-                (\(l :: _) (m :: _) -> hlistConsCase _ (\_ (n :: _) -> hlistNilCase _ l n) m)
+                (\(l :: _) (m :: _) -> hlistConsCase
+                  _
+                  (\(_ :: _) (n :: _) -> hlistNilCase _ l n)
+                  m)
                 k)
               d)
         in (b : e, f))
@@ -143,14 +160,14 @@ split
 
 mergeBy
   = \(a :: _) (b :: _) (c :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs c)
     (\(d :: _) (e :: _) -> case'List
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs b)
       (\(f :: _) (g :: _) -> _rhs
         ((\(h :: _) -> case'Ordering
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (d : mergeBy a e (f : g))
             (f : mergeBy a (d : e) g)
             (f : mergeBy a (d : e) g)
@@ -161,12 +178,13 @@ mergeBy
 
 sortBy
   = \(a :: _) (b :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs [])
     (\(c :: _) (d :: _) -> case'List
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs [c])
-      (\_ _ -> _rhs (uncurry (mergeBy a) ((sortBy a *** sortBy a) (split b))))
+      (\(_ :: _) (_ :: _) -> _rhs
+        (uncurry (mergeBy a) ((sortBy a *** sortBy a) (split b))))
       d)
     b
 
@@ -178,63 +196,64 @@ fst
     _
     (\(b :: _) (c :: _) -> hlistConsCase
       _
-      (\_ (d :: _) -> hlistNilCase _ (_rhs b) d)
+      (\(_ :: _) (d :: _) -> hlistNilCase _ (_rhs b) d)
       c)
     a
 
 snd
   = \(a :: _) -> hlistConsCase
     _
-    (\_ (b :: _) -> hlistConsCase
+    (\(_ :: _) (b :: _) -> hlistConsCase
       _
       (\(c :: _) (d :: _) -> hlistNilCase _ (_rhs c) d)
       b)
     a
 
-(|||) = \(a :: _) (b :: _) -> case'Bool (\_ -> _) (_rhs b) (_rhs True) a
+(|||) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs b) (_rhs True) a
 
 infixr 2 |||
 
-(&&&) = \(a :: _) (b :: _) -> case'Bool (\_ -> _) (_rhs False) (_rhs b) a
+(&&&) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs b) a
 
 infixr 3 &&&
 
 data RecItem :: Type where
     RecItem :: String -> Type -> RecItem
 
-recItemType = \(a :: _) -> case'RecItem (\_ -> _) (\_ (b :: _) -> _rhs b) a
+recItemType
+  = \(a :: _) -> case'RecItem (\(_ :: _) -> _) (\(_ :: _) (b :: _) -> _rhs b) a
 
 data RecordC (_ :: [RecItem]) :: Type where
     RecordCons :: forall (a :: [RecItem]) . HList (map recItemType a) -> RecordC a
 
 isKeyC
   = \(a :: _) (b :: _) (c :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs ('CEmpty ""))
     (\(d :: _) (e :: _) -> case'RecItem
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (\(f :: _) (g :: _) -> _rhs
         (primIfThenElse (a == f) (b `'EqCTt` g) (isKeyC a b e)))
       d)
     c
 
-fstTup = _rhs (hlistConsCase (_ :: _) \(a :: _) _ -> a)
+fstTup = _rhs (hlistConsCase (_ :: _) \(a :: _) (_ :: _) -> a)
 
-sndTup = _rhs (hlistConsCase (_ :: _) \_ (a :: _) -> a)
+sndTup = _rhs (hlistConsCase (_ :: _) \(_ :: _) (a :: _) -> a)
 
 project
   :: forall (a :: _) (b :: [RecItem])
     . forall (c :: String) -> isKeyC c a b => RecordC b -> a
 project
-  = \ @(a :: _) @(b :: _) (c :: _) @_ (d :: _) -> case'List
-    (\_ -> _)
+  = \ @(a :: _) @(b :: _) (c :: _) @(_ :: _) (d :: _) -> case'List
+    (\(_ :: _) -> _)
     (_rhs undefined)
     (\(e :: _) (f :: _) -> case'RecItem
-      (\_ -> _)
-      (\(g :: _) _ -> case'RecordC
-        (\_ -> _)
+      (\(_ :: _) -> _)
+      (\(g :: _) (_ :: _) -> case'RecordC
+        (\(_ :: _) -> _)
         (\(h :: _) -> case'Bool
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (_rhs
             (project
               @a
@@ -632,7 +651,7 @@ scale = \(a :: _) (b :: _) -> _rhs (b * V4 a a a 1.0)
 fromTo :: Float -> Float -> [Float]
 fromTo
   = \(a :: _) (b :: _) -> case'Bool
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs (a : fromTo (a + fromInt 1) b))
     (_rhs [])
     (a > b)
@@ -640,227 +659,1192 @@ fromTo
 (!!) :: forall (a :: _) . [a] -> Int -> a
 (!!)
   = \(a :: _) (b :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs undefined)
     (\(c :: _) (d :: _) -> case'Bool
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs (d !! (b - fromInt 1)))
       (_rhs c)
       (fromInt 0 == b))
     a
------------- trace
-const :: forall a b . a -> b -> a
-otherwise :: Bool
-(&) :: forall a b . a -> (a -> b) -> b
-($) :: forall a b . (a -> b) -> a -> b
-(.) :: forall a b c . (b -> c) -> (a -> b) -> a -> c
-uncurry :: forall a b c . (a -> c -> b) -> (a, c) -> b
-(***) :: forall a b c d . (a -> c) -> (b -> d) -> (a, b) -> (c, d)
-pi :: Float
-zip :: forall a b . [a] -> [b] -> [(a, b)]
-unzip :: forall a b . [(a, b)] -> ([a], [b])
-filter :: forall a . (a -> Bool) -> [a] -> [a]
-tail :: forall a . [a] -> [a]
-pairs :: forall a . [a] -> [(a, a)]
-foldl' :: forall a b . (a -> b -> a) -> a -> [b] -> a
-foldr1 :: forall a . (a -> a -> a) -> [a] -> a
-split :: forall a . [a] -> ([a], [a])
-mergeBy :: forall a . (a -> a -> Ordering) -> [a] -> [a] -> [a]
-sortBy :: forall a . (a -> a -> Ordering) -> [a] -> [a]
-iterate :: forall a . (a -> a) -> a -> [a]
-fst :: forall a b . (a, b) -> a
-snd :: forall a b . (a, b) -> b
-(|||) :: Bool -> Bool -> Bool
-(&&&) :: Bool -> Bool -> Bool
+------------ core code
+!! :: forall a . [a] -> Int -> a
+!!
+  = primFix
+    (forall a . [a] -> 'Int -> a)
+    \b c d e -> case'List
+      (\_ -> c)
+      (_rhs (undefined c))
+      (\f g -> case'Bool
+        (\_ -> c)
+        (_rhs (b c g (PrimSub 'Int TT e 1)))
+        (_rhs f)
+        (isEQ (primCompareInt 0 e)))
+      d
+
+$ :: forall a b . (a -> b) -> a -> b
+$ = \_ _ -> _rhs \a b -> a b
+
+%
+  :: forall a (b :: Nat)
+    . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+% = \a b c d e -> _rhs (PrimMod a ('VecScalar b a) b c TT d e)
+
+%! :: forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
+%! = \a b c d e -> _rhs (PrimModS a ('VecScalar b a) b c TT d e)
+
+& :: forall a b . a -> (a -> b) -> b
+& = \_ _ a b -> _rhs (b a)
+
+&& :: Bool -> Bool -> Bool
+&& = \a b -> _rhs (PrimAnd a b)
+
+&&& :: Bool -> Bool -> Bool
+&&& = \a b -> case'Bool (\_ -> 'Bool) (_rhs False) (_rhs b) a
+
 'RecItem :: Type
+'RecItem = <<type constructor with 0 indices; constructors: RecItem>>
+
+'RecordC :: [RecItem] -> Type
+'RecordC = <<type constructor with 0 indices; constructors: RecordCons>>
+
+* :: forall a . Num (MatVecScalarElem a) => a -> a -> a
+* = \a b c d -> _rhs (PrimMul a b c d)
+
+*! :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
+*! = \a b c d -> _rhs (PrimMulS ('MatVecScalarElem a) a TT b c d)
+
+*** :: forall a b c d . (a -> c) -> (b -> d) -> (a, b) -> (c, d)
+***
+  = \a b c d e f g -> hlistConsCase
+    a
+    [b]
+    ' (c, d)
+    (\h i -> hlistConsCase
+      b
+      []
+      ' (c, d)
+      (\j k -> hlistNilCase ' (c, d) (_rhs (e h, f j)) k)
+      i)
+    g
+
+*. :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> VecS c b -> Vec a c
+*. = \a b c d e -> _rhs (PrimMulMatVec a b c d e)
+
++ :: forall a . Num (MatVecScalarElem a) => a -> a -> a
++ = \a b c d -> _rhs (PrimAdd a b c d)
+
++! :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
++! = \a b c d -> _rhs (PrimAddS ('MatVecScalarElem a) a TT b c d)
+
+- :: forall a . Num (MatVecScalarElem a) => a -> a -> a
+- = \a b c d -> _rhs (PrimSub a b c d)
+
+-! :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
+-! = \a b c d -> _rhs (PrimSubS ('MatVecScalarElem a) a TT b c d)
+
+. :: forall a b c . (b -> c) -> (a -> b) -> a -> c
+. = \_ _ _ -> _rhs \a b c -> a (b c)
+
+.* :: forall (a :: Nat) b (c :: Nat) . VecS b a -> Mat a c b -> Vec c b
+.* = \a b c d e -> _rhs (PrimMulVecMat a b c d e)
+
+.*.
+  :: forall (a :: Nat) (b :: Nat) c (d :: Nat)
+    . Mat a b c -> Mat b d c -> Mat a d c
+.*. = \a b c d e f -> _rhs (PrimMulMatMat a b c d e f)
+
+/
+  :: forall a (b :: Nat)
+    . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+/ = \a b c d e -> _rhs (PrimDiv a ('VecScalar b a) b c TT d e)
+
+/! :: forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
+/! = \a b c d e -> _rhs (PrimDivS a ('VecScalar b a) b c TT d e)
+
+/= :: forall a . a -> a -> Bool
+/= = \a b c -> _rhs (PrimNotEqual a ('MatVecScalarElem a) TT b c)
+
+<
+  :: forall (a :: Nat) b
+    . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+<
+  = \a b c d e -> _rhs
+    (PrimLessThan ('VecScalar a b) a b ('VecScalar a 'Bool) c TT TT d e)
+
+<=
+  :: forall (a :: Nat) b
+    . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+<=
+  = \a b c d e -> _rhs
+    (PrimLessThanEqual ('VecScalar a b) a b ('VecScalar a 'Bool) c TT TT d e)
+
+>
+  :: forall (a :: Nat) b
+    . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+>
+  = \a b c d e -> _rhs
+    (PrimGreaterThan ('VecScalar a b) a b ('VecScalar a 'Bool) c TT TT d e)
+
+>=
+  :: forall (a :: Nat) b
+    . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+>=
+  = \a b c d e -> _rhs
+    (PrimGreaterThanEqual ('VecScalar a b) a b ('VecScalar a 'Bool) c TT TT d e)
+
 RecItem :: String -> Type -> RecItem
+RecItem = <<0th constructor of 'RecItem>>
+
+RecordCons
+  :: forall (a :: [RecItem]) . HList (map RecItem Type recItemType a) -> RecordC a
+RecordCons = <<0th constructor of 'RecordC>>
+
+abs :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+abs = _rhs \a b c d e f -> PrimAbs a b c d e f
+
+acos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+acos = _rhs \a b c d -> PrimACos a b c d
+
+acosh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+acosh = _rhs \a b c d -> PrimACosH a b c d
+
+all :: forall (a :: Nat) . VecScalar a Bool -> Bool
+all = \a b -> _rhs (PrimAll a b)
+
+any :: forall (a :: Nat) . VecScalar a Bool -> Bool
+any = \a b -> _rhs (PrimAny a b)
+
+aqua :: VecS Float 4
+aqua = _rhs (V4 0.0 1.0 1.0 1.0)
+
+asin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+asin = _rhs \a b c d -> PrimASin a b c d
+
+asinh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+asinh = _rhs \a b c d -> PrimASinH a b c d
+
+atan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+atan = _rhs \a b c d -> PrimATan a b c d
+
+atan2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+atan2 = _rhs \a b c d e -> PrimATan2 a b c d e
+
+atanh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+atanh = _rhs \a b c d -> PrimATanH a b c d
+
+bAnd :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+bAnd = _rhs \a b c d e f g -> PrimBAnd a b c d e f g
+
+bAndS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+bAndS = _rhs \a b c d e f g -> PrimBAndS a b c d e f g
+
+bNot :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
+bNot = _rhs \a b c d e f -> PrimBNot a b c d e f
+
+bOr :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+bOr = _rhs \a b c d e f g -> PrimBOr a b c d e f g
+
+bOrS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+bOrS = _rhs \a b c d e f g -> PrimBOrS a b c d e f g
+
+bXor :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+bXor = _rhs \a b c d e f g -> PrimBXor a b c d e f g
+
+bXorS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+bXorS = _rhs \a b c d e f g -> PrimBXorS a b c d e f g
+
+black :: VecS Float 4
+black = _rhs (V4 0.0 0.0 0.0 1.0)
+
+blue :: VecS Float 4
+blue = _rhs (V4 0.0 0.0 1.0 1.0)
+
 case'RecItem
   :: forall (a :: RecItem -> Type)
     -> (forall (b :: String) c -> a ('RecItem b c)) -> forall (d :: RecItem) -> a d
-match'RecItem
-  :: forall (a :: Type -> Type) -> a RecItem -> forall b -> a b -> a b
-recItemType :: RecItem -> Type
-'RecordC :: [RecItem] -> Type
-RecordCons
-  :: forall (a :: [RecItem]) . HList (map RecItem Type recItemType a) -> RecordC a
+case'RecItem = \a b c -> <<case function of a type with 0 parameters>>
+
 case'RecordC
   :: forall (a :: [RecItem])
     . forall (b :: RecordC a -> Type)
       -> (forall (c :: HList (map RecItem Type recItemType a)) -> b ('RecordCons c))
         -> forall (d :: RecordC a) -> b d
-match'RecordC
-  :: forall (a :: Type -> Type)
-    -> (forall (b :: [RecItem]) -> a (RecordC b)) -> forall c -> a c -> a c
-isKeyC :: String -> Type -> [RecItem] -> Constraint
-fstTup :: forall a (b :: [Type]) . HList (a : b) -> a
-sndTup :: forall a (b :: [Type]) . HList (a : b) -> HList b
-project
-  :: forall a (b :: [RecItem])
-    . forall (c :: String) -> isKeyC c a b => RecordC b -> a
-rgb :: Float -> Float -> Float -> VecS Float 4
-black :: VecS Float 4
-gray :: VecS Float 4
-silver :: VecS Float 4
-white :: VecS Float 4
-maroon :: VecS Float 4
-red :: VecS Float 4
-olive :: VecS Float 4
-yellow :: VecS Float 4
-green :: VecS Float 4
-lime :: VecS Float 4
-teal :: VecS Float 4
-aqua :: VecS Float 4
-navy :: VecS Float 4
-blue :: VecS Float 4
-purple :: VecS Float 4
-fuchsia :: VecS Float 4
+case'RecordC = \_ a b c -> <<case function of a type with 1 parameters>>
+
+ceil :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+ceil = _rhs \a b c d -> PrimCeil a b c d
+
+clamp :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
+clamp = _rhs \a b c d e f g h -> PrimClamp a b c d e f g h
+
+clampS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
+clampS = _rhs \a b c d e f g h -> PrimClampS a b c d e f g h
+
 colorImage1
   :: forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
+colorImage1 = _rhs \a b c d e f -> ColorImage 1 a b c d e f
+
 colorImage2
   :: forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 2 ('Color c)
-depthImage1 :: Float -> Image 1 'Depth
-v3FToV4F :: Vec 3 Float -> VecS Float 4
-radians :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-degrees :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-sin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+colorImage2 = _rhs \a b c d e f -> ColorImage 2 a b c d e f
+
+const :: forall a b . a -> b -> a
+const = \_ _ a _ -> _rhs a
+
 cos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-tan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-sinh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+cos = _rhs \a b c d -> PrimCos a b c d
+
 cosh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-tanh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-asin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-asinh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-acos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-acosh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-atan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-atanh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-atan2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-pow :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+cosh = _rhs \a b c d -> PrimCosH a b c d
+
+cross :: forall a . (a ~ VecS Float 3) => a -> a -> a
+cross = _rhs \a b c d -> PrimCross a b c d
+
+dFdx :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+dFdx = _rhs \a b c d -> PrimDFdx a b c d
+
+dFdy :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+dFdy = _rhs \a b c d -> PrimDFdy a b c d
+
+degrees :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+degrees = _rhs \a b c d -> PrimDegrees a b c d
+
+depthImage1 :: Float -> Image 1 'Depth
+depthImage1 = _rhs \a -> DepthImage 1 a
+
+det :: forall (a :: Nat) b . Mat a a b -> Float
+det = _rhs \a b c -> PrimDeterminant a b c
+
+distance :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+distance = _rhs \a b c d e -> PrimDistance a b c d e
+
+dot :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+dot = _rhs \a b c d e -> PrimDot a b c d e
+
 exp :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-log :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+exp = _rhs \a b c d -> PrimExp a b c d
+
 exp2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-log2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-sqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-inversesqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-abs :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-sign :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+exp2 = _rhs \a b c d -> PrimExp2 a b c d
+
+fWidth :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+fWidth = _rhs \a b c d -> PrimFWidth a b c d
+
+faceforward :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+faceforward = _rhs \a b c d e f -> PrimFaceForward a b c d e f
+
+filter :: forall a . (a -> Bool) -> [a] -> [a]
+filter
+  = \a -> primFix
+    ((a -> 'Bool) -> [a] -> [a])
+    \b c d -> case'List
+      (\_ -> [a])
+      (_rhs [])
+      (\e f -> _rhs (case'Bool (\_ -> [a]) (b c f) (e : b c f) (c e)))
+      d
+
+floatBitsToInt :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
+floatBitsToInt = _rhs \a b -> PrimFloatBitsToInt a b
+
+floatBitsToWord :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
+floatBitsToWord = _rhs \a b -> PrimFloatBitsToUInt a b
+
 floor :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-trunc :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-round :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-roundEven :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-ceil :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+floor = _rhs \a b c d -> PrimFloor a b c d
+
+foldl' :: forall a b . (a -> b -> a) -> a -> [b] -> a
+foldl'
+  = \a b -> primFix
+    ((a -> b -> a) -> a -> [b] -> a)
+    \c d e f -> case'List (\_ -> a) (_rhs e) (\g h -> _rhs (c d (d e g) h)) f
+
+foldr1 :: forall a . (a -> a -> a) -> [a] -> a
+foldr1
+  = \a b c -> case'List
+    (\_ -> a)
+    (_rhs (undefined a))
+    (\d e -> _rhs (foldr a a b d e))
+    c
+
 fract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-mod :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-min :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-max :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-modF :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
-clamp :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
-clampS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
-mix :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-mixS :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
-mixB
+fract = _rhs \a b c d -> PrimFract a b c d
+
+fromTo :: Float -> Float -> [Float]
+fromTo
+  = primFix
+    ('Float -> 'Float -> ['Float])
+    \a b c -> case'Bool
+      (\_ -> ['Float])
+      (_rhs (b : a (PrimAdd 'Float TT b 1.0) c))
+      (_rhs [])
+      (PrimGreaterThan 'Float 1 'Float 'Bool TT TT TT b c)
+
+fst :: forall a b . (a, b) -> a
+fst
+  = \a b c -> hlistConsCase
+    a
+    [b]
+    a
+    (\d e -> hlistConsCase b [] a (\_ f -> hlistNilCase a (_rhs d) f) e)
+    c
+
+fstTup :: forall a (b :: [Type]) . HList (a : b) -> a
+fstTup = \a b -> _rhs \c -> hlistConsCase a b a (\d _ -> d) c
+
+fuchsia :: VecS Float 4
+fuchsia = _rhs (V4 1.0 0.0 1.0 1.0)
+
+gray :: VecS Float 4
+gray = _rhs (V4 0.5 0.5 0.5 1.0)
+
+green :: VecS Float 4
+green = _rhs (V4 0.0 0.5 0.0 1.0)
+
+intBitsToFloat :: forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
+intBitsToFloat = _rhs \a b -> PrimIntBitsToFloat a b
+
+inv :: forall (a :: Nat) b . Mat a a b -> Mat a a b
+inv = _rhs \a b c -> PrimInverse a b c
+
+inversesqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+inversesqrt = _rhs \a b c d -> PrimInvSqrt a b c d
+
+isInf
   :: forall a (b :: Nat) c
-    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
-step :: forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
-stepS :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
-smoothstep :: forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
-smoothstepS
-  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
+    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+isInf = _rhs \a b c d e f -> PrimIsInf a b c d e f
+
+isKeyC :: String -> Type -> [RecItem] -> Constraint
+isKeyC
+  = primFix
+    ('String -> Type -> ['RecItem] -> 'Constraint)
+    \a b c d -> case'List
+      (\_ -> 'Constraint)
+      (_rhs (CEmpty ""))
+      (\e f -> case'RecItem
+        (\_ -> 'Constraint)
+        (\g h -> _rhs
+          (primIfThenElse 'Constraint (isEQ (primCompareString b g)) (c ~ h) (a b c f)))
+        e)
+      d
+
 isNan
   :: forall a (b :: Nat) c
     . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-isInf
+isNan = _rhs \a b c d e f -> PrimIsNan a b c d e f
+
+iterate :: forall a . (a -> a) -> a -> [a]
+iterate
+  = primFix (forall a . (a -> a) -> a -> [a]) \b c d e -> _rhs (e : b c d (d e))
+
+length :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
+length = _rhs \a b c d -> PrimLength a b c d
+
+lime :: VecS Float 4
+lime = _rhs (V4 0.0 1.0 0.0 1.0)
+
+log :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+log = _rhs \a b c d -> PrimLog a b c d
+
+log2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+log2 = _rhs \a b c d -> PrimLog2 a b c d
+
+lookat :: Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 4 4 Float
+lookat
+  = \a b c -> _rhs
+    (PrimMulMatMat
+      4
+      4
+      'Float
+      4
+      (PrimTranspose
+        4
+        4
+        'Float
+        (M44F
+          (V4
+            (swizzscalar
+              'Float
+              3
+              (PrimNormalize
+                ('VecS 'Float 3)
+                3
+                TT
+                (PrimCross
+                  ('VecS 'Float 3)
+                  TT
+                  c
+                  (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b))))
+              Sx)
+            (swizzscalar
+              'Float
+              3
+              (PrimNormalize
+                ('VecS 'Float 3)
+                3
+                TT
+                (PrimCross
+                  ('VecS 'Float 3)
+                  TT
+                  c
+                  (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b))))
+              Sy)
+            (swizzscalar
+              'Float
+              3
+              (PrimNormalize
+                ('VecS 'Float 3)
+                3
+                TT
+                (PrimCross
+                  ('VecS 'Float 3)
+                  TT
+                  c
+                  (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b))))
+              Sz)
+            0.0)
+          (V4
+            (swizzscalar
+              'Float
+              3
+              (PrimCross
+                ('VecS 'Float 3)
+                TT
+                (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b))
+                (PrimNormalize
+                  ('VecS 'Float 3)
+                  3
+                  TT
+                  (PrimCross
+                    ('VecS 'Float 3)
+                    TT
+                    c
+                    (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b)))))
+              Sx)
+            (swizzscalar
+              'Float
+              3
+              (PrimCross
+                ('VecS 'Float 3)
+                TT
+                (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b))
+                (PrimNormalize
+                  ('VecS 'Float 3)
+                  3
+                  TT
+                  (PrimCross
+                    ('VecS 'Float 3)
+                    TT
+                    c
+                    (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b)))))
+              Sy)
+            (swizzscalar
+              'Float
+              3
+              (PrimCross
+                ('VecS 'Float 3)
+                TT
+                (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b))
+                (PrimNormalize
+                  ('VecS 'Float 3)
+                  3
+                  TT
+                  (PrimCross
+                    ('VecS 'Float 3)
+                    TT
+                    c
+                    (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b)))))
+              Sz)
+            0.0)
+          (V4
+            (swizzscalar
+              'Float
+              3
+              (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b))
+              Sx)
+            (swizzscalar
+              'Float
+              3
+              (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b))
+              Sy)
+            (swizzscalar
+              'Float
+              3
+              (PrimNormalize ('VecS 'Float 3) 3 TT (PrimSub ('VecS 'Float 3) TT a b))
+              Sz)
+            0.0)
+          (V4 0.0 0.0 0.0 1.0)))
+      (M44F
+        (V4 1.0 0.0 0.0 0.0)
+        (V4 0.0 1.0 0.0 0.0)
+        (V4 0.0 0.0 1.0 0.0)
+        (V4
+          (swizzscalar 'Float 3 (PrimNeg ('VecS 'Float 3) TT a) Sx)
+          (swizzscalar 'Float 3 (PrimNeg ('VecS 'Float 3) TT a) Sy)
+          (swizzscalar 'Float 3 (PrimNeg ('VecS 'Float 3) TT a) Sz)
+          1.0)))
+
+maroon :: VecS Float 4
+maroon = _rhs (V4 0.5 0.0 0.0 1.0)
+
+match'RecItem
+  :: forall (a :: Type -> Type) -> a RecItem -> forall b -> a b -> a b
+match'RecItem = \a b c d -> <<type case function>>
+
+match'RecordC
+  :: forall (a :: Type -> Type)
+    -> (forall (b :: [RecItem]) -> a (RecordC b)) -> forall c -> a c -> a c
+match'RecordC = \a b c d -> <<type case function>>
+
+max :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+max = _rhs \a b c d e f g -> PrimMax a b c d e f g
+
+mergeBy :: forall a . (a -> a -> Ordering) -> [a] -> [a] -> [a]
+mergeBy
+  = \a -> primFix
+    ((a -> a -> 'Ordering) -> [a] -> [a] -> [a])
+    \b c d e -> case'List
+      (\_ -> [a])
+      (_rhs e)
+      (\f g -> case'List
+        (\_ -> [a])
+        (_rhs d)
+        (\h i -> _rhs
+          (case'Ordering
+            (\_ -> [a])
+            (f : b c g (h : i))
+            (h : b c (f : g) i)
+            (h : b c (f : g) i)
+            (c f h)))
+        e)
+      d
+
+min :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+min = _rhs \a b c d e f g -> PrimMin a b c d e f g
+
+mix :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+mix = _rhs \a b c d e f -> PrimMix a b c d e f
+
+mixB
   :: forall a (b :: Nat) c
-    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-dFdx :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-dFdy :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-fWidth :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
+mixB = _rhs \a b c d e f g h -> PrimMixB a b c d e f g h
+
+mixS :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
+mixS = _rhs \a b c d e f -> PrimMixS a b c d e f
+
+mod :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+mod = _rhs \a b c d e f g -> PrimMod a b c d e f g
+
+modF :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
+modF = _rhs \a b c d -> PrimModF a b c d
+
+navy :: VecS Float 4
+navy = _rhs (V4 0.0 0.0 0.5 1.0)
+
+neg :: forall a . Signed (MatVecScalarElem a) => a -> a
+neg = \a b c -> _rhs (PrimNeg a b c)
+
 noise1 :: forall (a :: Nat) . VecScalar a Float -> Float
+noise1 = _rhs \a b -> PrimNoise1 a b
+
 noise2 :: forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
+noise2 = _rhs \a b -> PrimNoise2 a b
+
 noise3 :: forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
+noise3 = _rhs \a b -> PrimNoise3 a b
+
 noise4 :: forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
-length :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
-distance :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-dot :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-cross :: forall a . (a ~ VecS Float 3) => a -> a -> a
+noise4 = _rhs \a b -> PrimNoise4 a b
+
 normalize :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-faceforward :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+normalize = _rhs \a b c d -> PrimNormalize a b c d
+
+not :: forall (a :: Nat) . VecScalar a Bool -> VecScalar a Bool
+not = \a b -> _rhs (PrimNot ('VecScalar a 'Bool) a TT b)
+
+olive :: VecS Float 4
+olive = _rhs (V4 0.5 0.5 0.0 1.0)
+
+otherwise :: Bool
+otherwise = _rhs True
+
+outer :: forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
+outer = _rhs \a b c d e -> PrimOuterProduct a b c d e
+
+pairs :: forall a . [a] -> [(a, a)]
+pairs = \a b -> _rhs (zip a a b (tail a b))
+
+perspective :: Float -> Float -> Float -> Float -> Mat 4 4 Float
+perspective
+  = \a b c d -> _rhs
+    (M44F
+      (V4
+        (PrimDiv
+          'Float
+          'Float
+          1
+          TT
+          TT
+          (PrimMul 'Float TT 2.0 a)
+          (PrimSub
+            'Float
+            TT
+            (PrimMul
+              'Float
+              TT
+              d
+              (PrimMul
+                'Float
+                TT
+                a
+                (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0))))
+            (PrimSub
+              'Float
+              TT
+              0.0
+              (PrimMul
+                'Float
+                TT
+                d
+                (PrimMul
+                  'Float
+                  TT
+                  a
+                  (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0)))))))
+        0.0
+        0.0
+        0.0)
+      (V4
+        0.0
+        (PrimDiv
+          'Float
+          'Float
+          1
+          TT
+          TT
+          (PrimMul 'Float TT 2.0 a)
+          (PrimSub
+            'Float
+            TT
+            (PrimMul
+              'Float
+              TT
+              a
+              (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0)))
+            (PrimSub
+              'Float
+              TT
+              0.0
+              (PrimMul
+                'Float
+                TT
+                a
+                (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0))))))
+        0.0
+        0.0)
+      (V4
+        (PrimDiv
+          'Float
+          'Float
+          1
+          TT
+          TT
+          (PrimAdd
+            'Float
+            TT
+            (PrimMul
+              'Float
+              TT
+              d
+              (PrimMul
+                'Float
+                TT
+                a
+                (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0))))
+            (PrimSub
+              'Float
+              TT
+              0.0
+              (PrimMul
+                'Float
+                TT
+                d
+                (PrimMul
+                  'Float
+                  TT
+                  a
+                  (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0))))))
+          (PrimSub
+            'Float
+            TT
+            (PrimMul
+              'Float
+              TT
+              d
+              (PrimMul
+                'Float
+                TT
+                a
+                (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0))))
+            (PrimSub
+              'Float
+              TT
+              0.0
+              (PrimMul
+                'Float
+                TT
+                d
+                (PrimMul
+                  'Float
+                  TT
+                  a
+                  (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0)))))))
+        (PrimDiv
+          'Float
+          'Float
+          1
+          TT
+          TT
+          (PrimAdd
+            'Float
+            TT
+            (PrimMul
+              'Float
+              TT
+              a
+              (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0)))
+            (PrimSub
+              'Float
+              TT
+              0.0
+              (PrimMul
+                'Float
+                TT
+                a
+                (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0)))))
+          (PrimSub
+            'Float
+            TT
+            (PrimMul
+              'Float
+              TT
+              a
+              (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0)))
+            (PrimSub
+              'Float
+              TT
+              0.0
+              (PrimMul
+                'Float
+                TT
+                a
+                (PrimTan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c 2.0))))))
+        (PrimSub
+          'Float
+          TT
+          0.0
+          (PrimDiv 'Float 'Float 1 TT TT (PrimAdd 'Float TT b a) (PrimSub 'Float TT b a)))
+        -1.0)
+      (V4
+        0.0
+        0.0
+        (PrimSub
+          'Float
+          TT
+          0.0
+          (PrimDiv
+            'Float
+            'Float
+            1
+            TT
+            TT
+            (PrimMul 'Float TT (PrimMul 'Float TT 2.0 b) a)
+            (PrimSub 'Float TT b a)))
+        0.0))
+
+pi :: Float
+pi = _rhs 3.141592653589793
+
+pow :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+pow = _rhs \a b c d e -> PrimPow a b c d e
+
+project
+  :: forall a (b :: [RecItem])
+    . forall (c :: String) -> isKeyC c a b => RecordC b -> a
+project
+  = primFix
+    (forall a (b :: [RecItem])
+      . forall (c :: String) -> isKeyC c a b => 'RecordC b -> a)
+    \d e f g _ h -> case'List
+      (\_ -> e)
+      (_rhs (undefined e))
+      (\i j -> case'RecItem
+        (\_ -> e)
+        (\k _ -> case'RecordC
+          (\_ -> e)
+          (\l -> case'Bool
+            (\_ -> e)
+            (_rhs
+              (d
+                e
+                j
+                g
+                (undefined ('CW (isKeyC g e j)))
+                (RecordCons
+                  (hlistConsCase
+                    e
+                    (map 'RecItem Type recItemType j)
+                    ('HList (map 'RecItem Type recItemType j))
+                    (\_ m -> m)
+                    (unsafeCoerce
+                      ('HList (map 'RecItem Type recItemType f))
+                      ('HList (e : map 'RecItem Type recItemType j))
+                      l)))))
+            (_rhs
+              (hlistConsCase
+                e
+                (map 'RecItem Type recItemType j)
+                e
+                (\n _ -> n)
+                (unsafeCoerce
+                  ('HList (map 'RecItem Type recItemType f))
+                  ('HList (e : map 'RecItem Type recItemType j))
+                  l)))
+            (isEQ (primCompareString g k)))
+          h)
+        i)
+      f
+
+purple :: VecS Float 4
+purple = _rhs (V4 0.5 0.0 0.5 1.0)
+
+radians :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+radians = _rhs \a b c d -> PrimRadians a b c d
+
+recItemType :: RecItem -> Type
+recItemType = \a -> case'RecItem (\_ -> Type) (\_ b -> _rhs b) a
+
+red :: VecS Float 4
+red = _rhs (V4 1.0 0.0 0.0 1.0)
+
 reflect :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+reflect = _rhs \a b c d e -> PrimReflect a b c d e
+
 refract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-transpose :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
-det :: forall (a :: Nat) b . Mat a a b -> Float
-inv :: forall (a :: Nat) b . Mat a a b -> Mat a a b
-outer :: forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
-bAnd :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-bOr :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-bXor :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-bNot :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
-bAndS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-bOrS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-bXorS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+refract = _rhs \a b c d e f -> PrimRefract a b c d e f
+
+rgb :: Float -> Float -> Float -> VecS Float 4
+rgb = \a b c -> _rhs (V4 a b c 1.0)
+
+rotMatrixX :: VecScalar 1 Float -> Mat 4 4 Float
+rotMatrixX
+  = \a -> _rhs
+    (M44F
+      (V4 1.0 0.0 0.0 0.0)
+      (V4 0.0 (PrimCos 'Float 1 TT a) (PrimSin 'Float 1 TT a) 0.0)
+      (V4
+        0.0
+        (PrimSub 'Float TT 0.0 (PrimSin 'Float 1 TT a))
+        (PrimCos 'Float 1 TT a)
+        0.0)
+      (V4 0.0 0.0 0.0 1.0))
+
+rotMatrixY :: VecScalar 1 Float -> Mat 4 4 Float
+rotMatrixY
+  = \a -> _rhs
+    (M44F
+      (V4
+        (PrimCos 'Float 1 TT a)
+        0.0
+        (PrimSub 'Float TT 0.0 (PrimSin 'Float 1 TT a))
+        0.0)
+      (V4 0.0 1.0 0.0 0.0)
+      (V4 (PrimSin 'Float 1 TT a) 0.0 (PrimCos 'Float 1 TT a) 0.0)
+      (V4 0.0 0.0 0.0 1.0))
+
+rotMatrixZ :: VecScalar 1 Float -> Mat 4 4 Float
+rotMatrixZ
+  = \a -> _rhs
+    (M44F
+      (V4 (PrimCos 'Float 1 TT a) (PrimSin 'Float 1 TT a) 0.0 0.0)
+      (V4
+        (PrimSub 'Float TT 0.0 (PrimSin 'Float 1 TT a))
+        (PrimCos 'Float 1 TT a)
+        0.0
+        0.0)
+      (V4 0.0 0.0 1.0 0.0)
+      (V4 0.0 0.0 0.0 1.0))
+
+rotationEuler :: Float -> Float -> Float -> Mat 4 4 Float
+rotationEuler
+  = \a b c -> _rhs
+    (PrimMulMatMat
+      4
+      4
+      'Float
+      4
+      (PrimMulMatMat
+        4
+        4
+        'Float
+        4
+        (M44F
+          (V4
+            (PrimCos 'Float 1 TT a)
+            0.0
+            (PrimSub 'Float TT 0.0 (PrimSin 'Float 1 TT a))
+            0.0)
+          (V4 0.0 1.0 0.0 0.0)
+          (V4 (PrimSin 'Float 1 TT a) 0.0 (PrimCos 'Float 1 TT a) 0.0)
+          (V4 0.0 0.0 0.0 1.0))
+        (M44F
+          (V4 1.0 0.0 0.0 0.0)
+          (V4 0.0 (PrimCos 'Float 1 TT b) (PrimSin 'Float 1 TT b) 0.0)
+          (V4
+            0.0
+            (PrimSub 'Float TT 0.0 (PrimSin 'Float 1 TT b))
+            (PrimCos 'Float 1 TT b)
+            0.0)
+          (V4 0.0 0.0 0.0 1.0)))
+      (M44F
+        (V4 (PrimCos 'Float 1 TT c) (PrimSin 'Float 1 TT c) 0.0 0.0)
+        (V4
+          (PrimSub 'Float TT 0.0 (PrimSin 'Float 1 TT c))
+          (PrimCos 'Float 1 TT c)
+          0.0
+          0.0)
+        (V4 0.0 0.0 1.0 0.0)
+        (V4 0.0 0.0 0.0 1.0)))
+
+round :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+round = _rhs \a b c d -> PrimRound a b c d
+
+roundEven :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+roundEven = _rhs \a b c d -> PrimRoundEven a b c d
+
+scale :: Float -> VecS Float 4 -> VecS Float 4
+scale = \a b -> _rhs (PrimMul ('VecS 'Float 4) TT b (V4 a a a 1.0))
+
 shiftL
   :: forall a b (c :: Nat) d
     . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+shiftL = _rhs \a b c d e f g h i -> PrimBShiftL a b c d e f g h i
+
+shiftLS
+  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+shiftLS = _rhs \a b c d e f g -> PrimBShiftLS a b c d e f g
+
 shiftR
   :: forall a b (c :: Nat) d
     . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
-shiftLS
-  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+shiftR = _rhs \a b c d e f g h i -> PrimBShiftR a b c d e f g h i
+
 shiftRS
   :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
-floatBitsToInt :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
-floatBitsToWord :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
-intBitsToFloat :: forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
+shiftRS = _rhs \a b c d e f g -> PrimBShiftRS a b c d e f g
+
+sign :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+sign = _rhs \a b c d e f -> PrimSign a b c d e f
+
+silver :: VecS Float 4
+silver = _rhs (V4 0.75 0.75 0.75 1.0)
+
+sin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+sin = _rhs \a b c d -> PrimSin a b c d
+
+sinh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+sinh = _rhs \a b c d -> PrimSinH a b c d
+
+smoothstep :: forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
+smoothstep = _rhs \a b c d e f -> PrimSmoothStep a b c d e f
+
+smoothstepS
+  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
+smoothstepS = _rhs \a b c d e f -> PrimSmoothStepS a b c d e f
+
+snd :: forall a b . (a, b) -> b
+snd
+  = \a b c -> hlistConsCase
+    a
+    [b]
+    b
+    (\_ d -> hlistConsCase b [] b (\e f -> hlistNilCase b (_rhs e) f) d)
+    c
+
+sndTup :: forall a (b :: [Type]) . HList (a : b) -> HList b
+sndTup = \a b -> _rhs \c -> hlistConsCase a b ('HList b) (\_ d -> d) c
+
+sortBy :: forall a . (a -> a -> Ordering) -> [a] -> [a]
+sortBy
+  = \a -> primFix
+    ((a -> a -> 'Ordering) -> [a] -> [a])
+    \b c d -> case'List
+      (\_ -> [a])
+      (_rhs [])
+      (\e f -> case'List
+        (\_ -> [a])
+        (_rhs [e])
+        (\_ _ -> _rhs
+          (uncurry
+            [a]
+            [a]
+            [a]
+            (mergeBy a c)
+            (([a] *** [a]) [a] [a] (b c) (b c) (split a d))))
+        f)
+      d
+
+split :: forall a . [a] -> ([a], [a])
+split
+  = \a -> primFix
+    ([a] -> ' ([a], [a]))
+    \b c -> case'List
+      (\_ -> ' ([a], [a]))
+      (_rhs ([], []))
+      (\d e -> _rhs
+        (d
+          : hlistConsCase
+            [a]
+            [[a]]
+            [a]
+            (\_ f -> hlistConsCase [a] [] [a] (\g h -> hlistNilCase [a] g h) f)
+            (b e)
+        , hlistConsCase
+          [a]
+          [[a]]
+          [a]
+          (\i j -> hlistConsCase [a] [] [a] (\_ k -> hlistNilCase [a] i k) j)
+          (b e)))
+      c
+
+sqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+sqrt = _rhs \a b c d -> PrimSqrt a b c d
+
+step :: forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
+step = _rhs \a b c d e -> PrimStep a b c d e
+
+stepS :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
+stepS = _rhs \a b c d e -> PrimStepS a b c d e
+
+tail :: forall a . [a] -> [a]
+tail = \a b -> case'List (\_ -> [a]) (_rhs (undefined [a])) (\_ c -> _rhs c) b
+
+tan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+tan = _rhs \a b c d -> PrimTan a b c d
+
+tanh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+tanh = _rhs \a b c d -> PrimTanH a b c d
+
+teal :: VecS Float 4
+teal = _rhs (V4 0.0 0.5 0.5 1.0)
+
+translateBefore4 :: Vec 3 Float -> Mat 4 4 Float
+translateBefore4
+  = \a -> _rhs
+    (M44F
+      (V4 1.0 0.0 0.0 0.0)
+      (V4 0.0 1.0 0.0 0.0)
+      (V4 0.0 0.0 1.0 0.0)
+      (V4
+        (swizzscalar 'Float 3 a Sx)
+        (swizzscalar 'Float 3 a Sy)
+        (swizzscalar 'Float 3 a Sz)
+        1.0))
+
+transpose :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
+transpose = _rhs \a b c d -> PrimTranspose a b c d
+
+trunc :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+trunc = _rhs \a b c d -> PrimTrunc a b c d
+
+uncurry :: forall a b c . (a -> c -> b) -> (a, c) -> b
+uncurry
+  = \a b c d e -> hlistConsCase
+    a
+    [c]
+    b
+    (\f g -> hlistConsCase c [] b (\h i -> hlistNilCase b (_rhs (d f h)) i) g)
+    e
+
+unzip :: forall a b . [(a, b)] -> ([a], [b])
+unzip
+  = primFix
+    (forall a b . [' (a, b)] -> ' ([a], [b]))
+    \c d e f -> case'List
+      (\_ -> ' ([d], [e]))
+      (_rhs ([], []))
+      (\g h -> hlistConsCase
+        d
+        [e]
+        ' ([d], [e])
+        (\i j -> hlistConsCase
+          e
+          []
+          ' ([d], [e])
+          (\k l -> hlistNilCase
+            ' ([d], [e])
+            (_rhs
+              (i
+                : hlistConsCase
+                  [d]
+                  [[e]]
+                  [d]
+                  (\m n -> hlistConsCase [e] [] [d] (\_ o -> hlistNilCase [d] m o) n)
+                  (c d e h)
+              , k
+                : hlistConsCase
+                  [d]
+                  [[e]]
+                  [e]
+                  (\_ p -> hlistConsCase [e] [] [e] (\q r -> hlistNilCase [e] q r) p)
+                  (c d e h)))
+            l)
+          j)
+        g)
+      f
+
+v3FToV4F :: Vec 3 Float -> VecS Float 4
+v3FToV4F
+  = \a -> _rhs
+    (V4
+      (swizzscalar 'Float 3 a Sx)
+      (swizzscalar 'Float 3 a Sy)
+      (swizzscalar 'Float 3 a Sz)
+      1.0)
+
+white :: VecS Float 4
+white = _rhs (V4 1.0 1.0 1.0 1.0)
+
 wordBitsToFloat :: forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
-(+) :: forall a . Num (MatVecScalarElem a) => a -> a -> a
-(-) :: forall a . Num (MatVecScalarElem a) => a -> a -> a
-(*) :: forall a . Num (MatVecScalarElem a) => a -> a -> a
-(/)
-  :: forall a (b :: Nat)
-    . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-(%)
-  :: forall a (b :: Nat)
-    . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-neg :: forall a . Signed (MatVecScalarElem a) => a -> a
-(/=) :: forall a . a -> a -> Bool
-(<)
-  :: forall (a :: Nat) b
-    . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-(<=)
-  :: forall (a :: Nat) b
-    . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-(>=)
-  :: forall (a :: Nat) b
-    . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-(>)
-  :: forall (a :: Nat) b
-    . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-(&&) :: Bool -> Bool -> Bool
-(||) :: Bool -> Bool -> Bool
+wordBitsToFloat = _rhs \a b -> PrimUIntBitsToFloat a b
+
 xor :: Bool -> Bool -> Bool
-not :: forall (a :: Nat) . VecScalar a Bool -> VecScalar a Bool
-any :: forall (a :: Nat) . VecScalar a Bool -> Bool
-all :: forall (a :: Nat) . VecScalar a Bool -> Bool
-(.*.)
-  :: forall (a :: Nat) (b :: Nat) c (d :: Nat)
-    . Mat a b c -> Mat b d c -> Mat a d c
-(*.) :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> VecS c b -> Vec a c
-(.*) :: forall (a :: Nat) b (c :: Nat) . VecS b a -> Mat a c b -> Vec c b
-(+!) :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
-(-!) :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
-(*!) :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
-(/!) :: forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
-(%!) :: forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
-perspective :: Float -> Float -> Float -> Float -> Mat 4 4 Float
-rotMatrixZ :: VecScalar 1 Float -> Mat 4 4 Float
-rotMatrixY :: VecScalar 1 Float -> Mat 4 4 Float
-rotMatrixX :: VecScalar 1 Float -> Mat 4 4 Float
-rotationEuler :: Float -> Float -> Float -> Mat 4 4 Float
-translateBefore4 :: Vec 3 Float -> Mat 4 4 Float
-lookat :: Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 4 4 Float
-scale :: Float -> VecS Float 4 -> VecS Float 4
-fromTo :: Float -> Float -> [Float]
-(!!) :: forall a . [a] -> Int -> a
+xor = _rhs \a b -> PrimXor a b
+
+yellow :: VecS Float 4
+yellow = _rhs (V4 1.0 1.0 0.0 1.0)
+
+zip :: forall a b . [a] -> [b] -> [(a, b)]
+zip
+  = primFix
+    (forall a b . [a] -> [b] -> [' (a, b)])
+    \c d e f g -> case'List
+      (\_ -> [' (d, e)])
+      (_rhs [])
+      (\h i -> case'List
+        (\_ -> [' (d, e)])
+        (_rhs [])
+        (\j k -> _rhs ((h, j) : c d e i k))
+        g)
+      f
+
+|| :: Bool -> Bool -> Bool
+|| = \a b -> _rhs (PrimOr a b)
+
+||| :: Bool -> Bool -> Bool
+||| = \a b -> case'Bool (\_ -> 'Bool) (_rhs b) (_rhs True) a
 ------------ tooltips
 testdata/Prelude.lc 16:1-16:6
     forall a b . a -> b -> a
diff --git a/testdata/SampleMaterial.out b/testdata/SampleMaterial.out
index f3c00e80..70bcb06a 100644
--- a/testdata/SampleMaterial.out
+++ b/testdata/SampleMaterial.out
@@ -1876,8 +1876,1884 @@ sampleMaterial
         False
         "Tex_3226210144"]
       False)]
------------- trace
+------------ core code
 sampleMaterial :: [(String, CommonAttrs)]
+sampleMaterial
+  = _rhs
+    [("textures/gothic_block/blocks11b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/blocks11b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_4288602201"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/blocks15"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/blocks15")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2523116863"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/blocks18b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/blocks18b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2639119078"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/blocks18c_3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/blocks18c_3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3939430064"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/demon_block15fx"
+    , CommonAttrs
+      ()
+      ()
+      False
+      3.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_Identity
+        A_Identity
+        TG_Base
+        [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0]
+        (ST_Map "textures/sfx/firegorre.tga")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_47037129"
+      , StageAttrs
+        (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
+        RGB_Identity
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/demon_block15fx.tga")
+        False
+        D_Lequal
+        Nothing
+        False
+        "Tex_3562558025"
+      , StageAttrs
+        (Just (B_DstColor, B_OneMinusDstAlpha))
+        RGB_Identity
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        False
+        D_Lequal
+        Nothing
+        False
+        "Tex_2065974340"]
+      False)
+    , ("textures/gothic_block/killblock"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/killblock")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3647563961"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/killblock_i"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/killblock_i")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_209322640"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/killblock_i4"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/killblock_i4")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3617993418"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/km_arena1archfinalc_mid"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/km_arena1archfinalc_mid")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2073154888"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/km_arena1archfinalc_top"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/km_arena1archfinalc_top")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3071107621"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/km_arena1archfinald_bot"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/km_arena1archfinald_bot")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1201212243"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/km_arena1archfinald_mid"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/km_arena1archfinald_mid")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3768122504"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_a"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_a")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1284708166"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1318715778"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_c"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_c")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_4189195777"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_d"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_d")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1250438154"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_e"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_e")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_4255130505"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_f"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_f")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_4289279309"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skullarch_a"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skullarch_a")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3448884269"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skullarch_b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      3.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_Identity
+        A_Identity
+        TG_Base
+        [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5]
+        (ST_Map "textures/sfx/firegorre.tga")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3416962274"
+      , StageAttrs
+        (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
+        RGB_Identity
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skullarch_b.tga")
+        False
+        D_Lequal
+        Nothing
+        False
+        "Tex_4077187607"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_Identity
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        False
+        D_Lequal
+        Nothing
+        False
+        "Tex_1196599720"]
+      False)
+    , ("textures/gothic_door/skullarch_c"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skullarch_c")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2024854890"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/xian_tourneyarch_inside2"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/xian_tourneyarch_inside2")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1435187472"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/blocks17floor2"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/blocks17floor2")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3814342582"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/largerblock3b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/largerblock3b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2966885788"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/metalbridge06"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/metalbridge06")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1581337759"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/metalbridge06broke"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/metalbridge06broke")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3921745736"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/xstairtop4"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/xstairtop4")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3836020895"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/xstepborder3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/xstepborder3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3269743316"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard04"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard04")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1002517541"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard09_c3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard09_c3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2289735512"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard09_e"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard09_e")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2367525081"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard09_e2"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard09_e2")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3694494180"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard09_l2"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard09_l2")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3202786139"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard09_o3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard09_o3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2512757607"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/km_arena1tower4"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/km_arena1tower4")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3479185666"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/km_arena1tower4_a"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/km_arena1tower4_a")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3012001075"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/metaldemonkillblock"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/metaldemonkillblock")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1062467595"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/metalsupport4b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/metalsupport4b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3593923076"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/metalsupsolid"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/metalsupsolid")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2893650486"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/pitted_rust"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/pitted_rust")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1243894392"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/pitted_rust2"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/pitted_rust2")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2099456856"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/pitted_rust2_trans"
+    , CommonAttrs
+      ()
+      ()
+      False
+      3.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_Identity
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_511571587"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_Identity
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/pitted_rust2.tga")
+        False
+        D_Lequal
+        Nothing
+        False
+        "Tex_1910997598"]
+      False)
+    , ("textures/gothic_trim/pitted_rust3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/pitted_rust3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3389727963"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/skullsvertgray02b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/skullsvertgray02b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2634868983"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/iron01_e"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/iron01_e")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2432583247"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/iron01_ntech3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/iron01_ntech3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_442868841"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/skull4"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/skull4")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2239853403"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/slateroofc"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/slateroofc")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2490648334"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/supportborder_blue_b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/supportborder_blue_b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_564811775"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/supportborder_blue_c"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/supportborder_blue_c")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2525124732"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)]
 ------------ tooltips
 testdata/SampleMaterial.lc 3:1-3:15
     [(String, CommonAttrs)]
diff --git a/testdata/ambig.out b/testdata/ambig.out
index ae29a38e..dd058a85 100644
--- a/testdata/ambig.out
+++ b/testdata/ambig.out
@@ -1,7 +1,7 @@
 main is not found
 ------------ desugared source code
 h
-  = \(a :: _) (b :: _) _ -> _rhs
+  = \(a :: _) (b :: _) (_ :: _) -> _rhs
     let
       c
         = _rhs
@@ -14,8 +14,16 @@ h
               d)
             b)
       in c
------------- trace
+------------ core code
 h :: forall a b c d . (b -> d -> c) -> (b, d) -> a -> c
+h
+  = \_ a b c d e _ -> _rhs
+    (hlistConsCase
+      a
+      [c]
+      b
+      (\f g -> hlistConsCase c [] b (\h i -> hlistNilCase b (d f h) i) g)
+      e)
 ------------ tooltips
 testdata/ambig.lc 4:1-4:2
     forall a b c d . (b -> d -> c) -> (b, d) -> a -> c
diff --git a/testdata/complex.out b/testdata/complex.out
index a040aee0..913661e9 100644
--- a/testdata/complex.out
+++ b/testdata/complex.out
@@ -8,7 +8,7 @@ data Complex :: Repr -> Type where
     Complex :: forall (a :: _) . Float -> Float -> Complex a
 
 repr :: forall (a :: _) . Complex a -> Repr
-repr = \ @(a :: _) _ -> _rhs a
+repr = \ @(a :: _) (_ :: _) -> _rhs a
 
 normal :: Float -> Float -> Complex Normal
 normal = \(a :: _) (b :: _) -> _rhs (Complex a b)
@@ -19,15 +19,18 @@ polar = \(a :: _) (b :: _) -> _rhs (Complex a b)
 cabs :: forall (a :: _) . Complex a -> Float
 cabs
   = \ @(a :: _) (b :: _) -> case'Repr
-    (\_ -> _)
-    (case'Complex (\_ _ -> _) (\(c :: _) (d :: _) -> _rhs (sqrt (c * c + d * d))) b)
-    (case'Complex (\_ _ -> _) (\(e :: _) _ -> _rhs e) b)
+    (\(_ :: _) -> _)
+    (case'Complex
+      (\(_ :: _) (_ :: _) -> _)
+      (\(c :: _) (d :: _) -> _rhs (sqrt (c * c + d * d)))
+      b)
+    (case'Complex (\(_ :: _) (_ :: _) -> _) (\(e :: _) (_ :: _) -> _rhs e) b)
     a
 
 toPolar :: Complex Normal -> Complex Polar
 toPolar
   = \(a :: _) -> case'Complex
-    (\_ _ -> _)
+    (\(_ :: _) (_ :: _) -> _)
     (\(b :: _) (c :: _) -> _rhs
       let d = _rhs (sqrt (b * b + c * c)) in primIfThenElse
         (b > 0.0)
@@ -50,22 +53,26 @@ toPolar
 toNormal :: Complex Polar -> Complex Normal
 toNormal
   = \(a :: _) -> case'Complex
-    (\_ _ -> _)
+    (\(_ :: _) (_ :: _) -> _)
     (\(b :: _) (c :: _) -> _rhs (Complex (b * cos c) (b * sin c)))
     a
 
-it_should_fail = \(a :: _) -> case'Complex (\_ _ -> _) (\(b :: _) _ -> _rhs b) a
+it_should_fail
+  = \(a :: _) -> case'Complex
+    (\(_ :: _) (_ :: _) -> _)
+    (\(b :: _) (_ :: _) -> _rhs b)
+    a
 
 add :: forall (a :: _) (b :: _) . Complex a -> Complex b -> Complex a
 add
   = \ @(a :: _) @(b :: _) (c :: _) (d :: _) -> case'Repr
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (case'Repr
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (case'Complex
-        (\_ _ -> _)
+        (\(_ :: _) (_ :: _) -> _)
         (\(e :: _) (f :: _) -> case'Complex
-          (\_ _ -> _)
+          (\(_ :: _) (_ :: _) -> _)
           (\(g :: _) (h :: _) -> _rhs (Complex (e + g) (f + h)))
           d)
         c)
@@ -77,13 +84,13 @@ add
 mul :: forall (a :: _) (b :: _) . Complex a -> Complex b -> Complex a
 mul
   = \ @(a :: _) @(b :: _) (c :: _) (d :: _) -> case'Repr
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (case'Repr
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (case'Complex
-        (\_ _ -> _)
+        (\(_ :: _) (_ :: _) -> _)
         (\(e :: _) (f :: _) -> case'Complex
-          (\_ _ -> _)
+          (\(_ :: _) (_ :: _) -> _)
           (\(g :: _) (h :: _) -> _rhs (Complex (e * g - f * h) (f * g + e * h)))
           d)
         c)
@@ -100,37 +107,369 @@ s4 = \(a :: _) -> _rhs (s (s (s (s a))))
 iter = _rhs s4
 
 mandel = \(a :: _) -> _rhs (cabs (iter a) < 2.0)
------------- trace
+------------ core code
+'Complex :: Repr -> Type
+'Complex = <<type constructor with 1 indices; constructors: Complex>>
+
 'Repr :: Type
+'Repr = <<type constructor with 0 indices; constructors: Normal, Polar>>
+
+Complex :: forall (a :: Repr) . Float -> Float -> Complex a
+Complex = <<0th constructor of 'Complex>>
+
 Normal :: Repr
+Normal = <<0th constructor of 'Repr>>
+
 Polar :: Repr
-case'Repr
-  :: forall (a :: Repr -> Type)
-    -> a 'Normal -> a 'Polar -> forall (b :: Repr) -> a b
-match'Repr :: forall (a :: Type -> Type) -> a Repr -> forall b -> a b -> a b
-'Complex :: Repr -> Type
-Complex :: forall (a :: Repr) . Float -> Float -> Complex a
+Polar = <<1st constructor of 'Repr>>
+
+add :: forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
+add
+  = \a b c d -> case'Repr
+    (\_ -> 'Complex a)
+    (case'Repr
+      (\_ -> 'Complex a)
+      (case'Complex
+        (\_ _ -> 'Complex a)
+        (\_ e f -> case'Complex
+          (\_ _ -> 'Complex a)
+          (\_ g h -> _rhs (Complex a (PrimAdd 'Float TT e g) (PrimAdd 'Float TT f h)))
+          b
+          d)
+        a
+        c)
+      (_rhs (undefined ('Complex a)))
+      b)
+    (_rhs (undefined ('Complex a)))
+    a
+
+cabs :: forall (a :: Repr) . Complex a -> Float
+cabs
+  = \a b -> case'Repr
+    (\_ -> 'Float)
+    (case'Complex
+      (\_ _ -> 'Float)
+      (\_ c d -> _rhs
+        (PrimSqrt
+          'Float
+          1
+          TT
+          (PrimAdd 'Float TT (PrimMul 'Float TT c c) (PrimMul 'Float TT d d))))
+      a
+      b)
+    (case'Complex (\_ _ -> 'Float) (\_ e _ -> _rhs e) a b)
+    a
+
 case'Complex
   :: forall (a :: forall (b :: Repr) -> Complex b -> Type)
     -> (forall (c :: Repr)
         . forall (d :: Float) (e :: Float) -> a c ('Complex c d e))
       -> forall (f :: Repr) . forall (g :: Complex f) -> a f g
+case'Complex = \a b c d -> <<case function of a type with 0 parameters>>
+
+case'Repr
+  :: forall (a :: Repr -> Type)
+    -> a 'Normal -> a 'Polar -> forall (b :: Repr) -> a b
+case'Repr = \a b c d -> <<case function of a type with 0 parameters>>
+
+it_should_fail :: forall (a :: Repr) . Complex a -> Float
+it_should_fail = \a b -> case'Complex (\_ _ -> 'Float) (\_ c _ -> _rhs c) a b
+
+iter :: forall (a :: Repr) . Complex a -> Complex a
+iter = _rhs s4
+
+mandel :: forall (a :: Repr) . Complex a -> VecScalar 1 Bool
+mandel
+  = \a b -> _rhs
+    (PrimLessThan
+      'Float
+      1
+      'Float
+      'Bool
+      TT
+      TT
+      TT
+      (cabs
+        a
+        (add
+          a
+          a
+          (mul
+            a
+            a
+            (add
+              a
+              a
+              (mul
+                a
+                a
+                (add
+                  a
+                  a
+                  (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+                  (add a a (mul a a b b) b))
+                (add
+                  a
+                  a
+                  (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+                  (add a a (mul a a b b) b)))
+              (add
+                a
+                a
+                (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+                (add a a (mul a a b b) b)))
+            (add
+              a
+              a
+              (mul
+                a
+                a
+                (add
+                  a
+                  a
+                  (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+                  (add a a (mul a a b b) b))
+                (add
+                  a
+                  a
+                  (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+                  (add a a (mul a a b b) b)))
+              (add
+                a
+                a
+                (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+                (add a a (mul a a b b) b))))
+          (add
+            a
+            a
+            (mul
+              a
+              a
+              (add
+                a
+                a
+                (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+                (add a a (mul a a b b) b))
+              (add
+                a
+                a
+                (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+                (add a a (mul a a b b) b)))
+            (add
+              a
+              a
+              (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+              (add a a (mul a a b b) b)))))
+      2.0)
+
 match'Complex
   :: forall (a :: Type -> Type)
     -> (forall (b :: Repr) -> a (Complex b)) -> forall c -> a c -> a c
-repr :: forall (a :: Repr) . Complex a -> Repr
+match'Complex = \a b c d -> <<type case function>>
+
+match'Repr :: forall (a :: Type -> Type) -> a Repr -> forall b -> a b -> a b
+match'Repr = \a b c d -> <<type case function>>
+
+mul :: forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
+mul
+  = \a b c d -> case'Repr
+    (\_ -> 'Complex a)
+    (case'Repr
+      (\_ -> 'Complex a)
+      (case'Complex
+        (\_ _ -> 'Complex a)
+        (\_ e f -> case'Complex
+          (\_ _ -> 'Complex a)
+          (\_ g h -> _rhs
+            (Complex
+              a
+              (PrimSub 'Float TT (PrimMul 'Float TT e g) (PrimMul 'Float TT f h))
+              (PrimAdd 'Float TT (PrimMul 'Float TT f g) (PrimMul 'Float TT e h))))
+          b
+          d)
+        a
+        c)
+      (_rhs (undefined ('Complex a)))
+      b)
+    (_rhs (undefined ('Complex a)))
+    a
+
 normal :: Float -> Float -> Complex 'Normal
+normal = \a b -> _rhs (Complex Normal a b)
+
 polar :: Float -> Float -> Complex 'Polar
-cabs :: forall (a :: Repr) . Complex a -> Float
-toPolar :: Complex 'Normal -> Complex 'Polar
-toNormal :: Complex 'Polar -> Complex 'Normal
-it_should_fail :: forall (a :: Repr) . Complex a -> Float
-add :: forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
-mul :: forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
+polar = \a b -> _rhs (Complex Polar a b)
+
+repr :: forall (a :: Repr) . Complex a -> Repr
+repr = \a _ -> _rhs a
+
 s :: forall (a :: Repr) . Complex a -> Complex a
+s = \a b -> _rhs (add a a (mul a a b b) b)
+
 s4 :: forall (a :: Repr) . Complex a -> Complex a
-iter :: forall (a :: Repr) . Complex a -> Complex a
-mandel :: forall (a :: Repr) . Complex a -> VecScalar 1 Bool
+s4
+  = \a b -> _rhs
+    (add
+      a
+      a
+      (mul
+        a
+        a
+        (add
+          a
+          a
+          (mul
+            a
+            a
+            (add
+              a
+              a
+              (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+              (add a a (mul a a b b) b))
+            (add
+              a
+              a
+              (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+              (add a a (mul a a b b) b)))
+          (add
+            a
+            a
+            (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+            (add a a (mul a a b b) b)))
+        (add
+          a
+          a
+          (mul
+            a
+            a
+            (add
+              a
+              a
+              (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+              (add a a (mul a a b b) b))
+            (add
+              a
+              a
+              (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+              (add a a (mul a a b b) b)))
+          (add
+            a
+            a
+            (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+            (add a a (mul a a b b) b))))
+      (add
+        a
+        a
+        (mul
+          a
+          a
+          (add
+            a
+            a
+            (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+            (add a a (mul a a b b) b))
+          (add
+            a
+            a
+            (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+            (add a a (mul a a b b) b)))
+        (add
+          a
+          a
+          (mul a a (add a a (mul a a b b) b) (add a a (mul a a b b) b))
+          (add a a (mul a a b b) b))))
+
+toNormal :: Complex 'Polar -> Complex 'Normal
+toNormal
+  = \a -> case'Complex
+    (\_ _ -> 'Complex Normal)
+    (\_ b c -> _rhs
+      (Complex
+        Normal
+        (PrimMul 'Float TT b (PrimCos 'Float 1 TT c))
+        (PrimMul 'Float TT b (PrimSin 'Float 1 TT c))))
+    Polar
+    a
+
+toPolar :: Complex 'Normal -> Complex 'Polar
+toPolar
+  = \a -> case'Complex
+    (\_ _ -> 'Complex Polar)
+    (\_ b c -> _rhs
+      (primIfThenElse
+        ('Complex Polar)
+        (PrimGreaterThan 'Float 1 'Float 'Bool TT TT TT b 0.0)
+        (Complex
+          Polar
+          (PrimSqrt
+            'Float
+            1
+            TT
+            (PrimAdd 'Float TT (PrimMul 'Float TT b b) (PrimMul 'Float TT c c)))
+          (PrimATan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c b)))
+        (primIfThenElse
+          ('Complex Polar)
+          (PrimAnd
+            (PrimLessThan 'Float 1 'Float 'Bool TT TT TT b 0.0)
+            (PrimGreaterThanEqual 'Float 1 'Float 'Bool TT TT TT c 0.0))
+          (Complex
+            Polar
+            (PrimSqrt
+              'Float
+              1
+              TT
+              (PrimAdd 'Float TT (PrimMul 'Float TT b b) (PrimMul 'Float TT c c)))
+            (PrimAdd
+              'Float
+              TT
+              (PrimATan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c b))
+              3.141592653589793))
+          (primIfThenElse
+            ('Complex Polar)
+            (PrimAnd
+              (PrimLessThan 'Float 1 'Float 'Bool TT TT TT b 0.0)
+              (PrimLessThan 'Float 1 'Float 'Bool TT TT TT c 0.0))
+            (Complex
+              Polar
+              (PrimSqrt
+                'Float
+                1
+                TT
+                (PrimAdd 'Float TT (PrimMul 'Float TT b b) (PrimMul 'Float TT c c)))
+              (PrimSub
+                'Float
+                TT
+                (PrimATan 'Float 1 TT (PrimDiv 'Float 'Float 1 TT TT c b))
+                3.141592653589793))
+            (primIfThenElse
+              ('Complex Polar)
+              (PrimAnd
+                (isEQ (primCompareFloat b 0.0))
+                (PrimGreaterThanEqual 'Float 1 'Float 'Bool TT TT TT c 0.0))
+              (Complex
+                Polar
+                (PrimSqrt
+                  'Float
+                  1
+                  TT
+                  (PrimAdd 'Float TT (PrimMul 'Float TT b b) (PrimMul 'Float TT c c)))
+                1.5707963267948966)
+              (primIfThenElse
+                ('Complex Polar)
+                (PrimAnd
+                  (isEQ (primCompareFloat b 0.0))
+                  (PrimLessThan 'Float 1 'Float 'Bool TT TT TT c 0.0))
+                (Complex
+                  Polar
+                  (PrimSqrt
+                    'Float
+                    1
+                    TT
+                    (PrimAdd 'Float TT (PrimMul 'Float TT b b) (PrimMul 'Float TT c c)))
+                  -1.5707963267948966)
+                (undefined ('Complex Polar))))))))
+    Normal
+    a
 ------------ tooltips
 testdata/complex.lc 3:6-3:10
     Type | Type | Type | Type | Type | Type
diff --git a/testdata/data.out b/testdata/data.out
index 1f6a592f..1d441619 100644
--- a/testdata/data.out
+++ b/testdata/data.out
@@ -14,19 +14,19 @@ data Data2 :: Type where
 
 x
   = \(a :: _) -> case'Data2
-    (\_ -> _)
-    (\_ -> _rhs undefined)
-    (\(b :: _) _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _) -> _rhs undefined)
+    (\(b :: _) (_ :: _) -> _rhs b)
     (\(c :: _) -> _rhs c)
     (_rhs undefined)
     a
 
 y
   = \(a :: _) -> case'Data2
-    (\_ -> _)
-    (\_ -> _rhs undefined)
-    (\_ (b :: _) -> _rhs b)
-    (\_ -> _rhs undefined)
+    (\(_ :: _) -> _)
+    (\(_ :: _) -> _rhs undefined)
+    (\(_ :: _) (b :: _) -> _rhs b)
+    (\(_ :: _) -> _rhs undefined)
     (_rhs undefined)
     a
 
@@ -37,61 +37,115 @@ data Data5 (_ :: Type) (_ :: Type) (_ :: Type) :: Type where
 
 a5
   = \(a :: _) -> case'Data5
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (\(b :: _) -> _rhs b)
-    (\(c :: _) _ _ -> _rhs c)
-    (\_ _ _ _ _ -> _rhs undefined)
+    (\(c :: _) (_ :: _) (_ :: _) -> _rhs c)
+    (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined)
     a
 
 b5
   = \(a :: _) -> case'Data5
-    (\_ -> _)
-    (\_ -> _rhs undefined)
-    (\_ (b :: _) _ -> _rhs b)
-    (\_ _ _ _ _ -> _rhs undefined)
+    (\(_ :: _) -> _)
+    (\(_ :: _) -> _rhs undefined)
+    (\(_ :: _) (b :: _) (_ :: _) -> _rhs b)
+    (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined)
     a
 
 c5
   = \(a :: _) -> case'Data5
-    (\_ -> _)
-    (\_ -> _rhs undefined)
-    (\_ _ (b :: _) -> _rhs b)
-    (\_ _ _ _ _ -> _rhs undefined)
+    (\(_ :: _) -> _)
+    (\(_ :: _) -> _rhs undefined)
+    (\(_ :: _) (_ :: _) (b :: _) -> _rhs b)
+    (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined)
     a
------------- trace
+------------ core code
 'Data0 :: Type
+'Data0 = <<type constructor with 0 indices; constructors: Data0>>
+
+'Data1 :: Type -> Type -> Type -> Type
+'Data1 = <<type constructor with 0 indices; constructors: Data1>>
+
+'Data2 :: Type
+'Data2
+  = <<type constructor with 0 indices; constructors: Data21, Data22, Data23, Data24>>
+
+'Data5 :: Type -> Type -> Type -> Type
+'Data5
+  = <<type constructor with 0 indices; constructors: Data51, Data52, Data53>>
+
 Data0 :: Data0
+Data0 = <<0th constructor of 'Data0>>
+
+Data1 :: forall a b c . a -> b -> c -> Data1 a b c
+Data1 = <<0th constructor of 'Data1>>
+
+Data21 :: Int -> Data2
+Data21 = <<0th constructor of 'Data2>>
+
+Data22 :: Int -> Int -> Data2
+Data22 = <<1st constructor of 'Data2>>
+
+Data23 :: Int -> Data2
+Data23 = <<2nd constructor of 'Data2>>
+
+Data24 :: Data2
+Data24 = <<3rd constructor of 'Data2>>
+
+Data51 :: forall a b c . a -> Data5 a b c
+Data51 = <<0th constructor of 'Data5>>
+
+Data52 :: forall a b c . a -> b -> c -> Data5 a b c
+Data52 = <<1st constructor of 'Data5>>
+
+Data53 :: forall a b c . Int -> a -> Float -> b -> c -> Data5 a b c
+Data53 = <<2nd constructor of 'Data5>>
+
+a5 :: forall a b c . Data5 a b c -> a
+a5
+  = \a _ _ b -> case'Data5
+    (\_ -> a)
+    (\c -> _rhs c)
+    (\d _ _ -> _rhs d)
+    (\_ _ _ _ _ -> _rhs (undefined a))
+    b
+
+b5 :: forall a b c . Data5 a b c -> b
+b5
+  = \_ a _ b -> case'Data5
+    (\_ -> a)
+    (\_ -> _rhs (undefined a))
+    (\_ c _ -> _rhs c)
+    (\_ _ _ _ _ -> _rhs (undefined a))
+    b
+
+c5 :: forall a b c . Data5 a b c -> c
+c5
+  = \_ _ a b -> case'Data5
+    (\_ -> a)
+    (\_ -> _rhs (undefined a))
+    (\_ _ c -> _rhs c)
+    (\_ _ _ _ _ -> _rhs (undefined a))
+    b
+
 case'Data0
   :: forall (a :: Data0 -> Type) -> a 'Data0 -> forall (b :: Data0) -> a b
-match'Data0 :: forall (a :: Type -> Type) -> a Data0 -> forall b -> a b -> a b
-'Data1 :: Type -> Type -> Type -> Type
-Data1 :: forall a b c . a -> b -> c -> Data1 a b c
+case'Data0 = \a b c -> <<case function of a type with 0 parameters>>
+
 case'Data1
   :: forall a b c
     . forall (d :: Data1 a b c -> Type)
       -> (forall (e :: a) (f :: b) (g :: c) -> d ('Data1 e f g))
         -> forall (h :: Data1 a b c) -> d h
-match'Data1
-  :: forall (a :: Type -> Type)
-    -> (forall b c d -> a (Data1 b c d)) -> forall e -> a e -> a e
-'Data2 :: Type
-Data21 :: Int -> Data2
-Data22 :: Int -> Int -> Data2
-Data23 :: Int -> Data2
-Data24 :: Data2
+case'Data1 = \_ _ _ a b c -> <<case function of a type with 3 parameters>>
+
 case'Data2
   :: forall (a :: Data2 -> Type)
     -> (forall (b :: Int) -> a ('Data21 b))
       -> (forall (c :: Int) (d :: Int) -> a ('Data22 c d))
         -> (forall (e :: Int) -> a ('Data23 e))
           -> a 'Data24 -> forall (f :: Data2) -> a f
-match'Data2 :: forall (a :: Type -> Type) -> a Data2 -> forall b -> a b -> a b
-x :: Data2 -> Int
-y :: Data2 -> Int
-'Data5 :: Type -> Type -> Type -> Type
-Data51 :: forall a b c . a -> Data5 a b c
-Data52 :: forall a b c . a -> b -> c -> Data5 a b c
-Data53 :: forall a b c . Int -> a -> Float -> b -> c -> Data5 a b c
+case'Data2 = \a b c d e f -> <<case function of a type with 0 parameters>>
+
 case'Data5
   :: forall a b c
     . forall (d :: Data5 a b c -> Type)
@@ -100,12 +154,43 @@ case'Data5
           -> (forall (i :: Int) (j :: a) (k :: Float) (l :: b) (m :: c)
               -> d ('Data53 i j k l m))
             -> forall (n :: Data5 a b c) -> d n
+case'Data5 = \_ _ _ a b c d e -> <<case function of a type with 3 parameters>>
+
+match'Data0 :: forall (a :: Type -> Type) -> a Data0 -> forall b -> a b -> a b
+match'Data0 = \a b c d -> <<type case function>>
+
+match'Data1
+  :: forall (a :: Type -> Type)
+    -> (forall b c d -> a (Data1 b c d)) -> forall e -> a e -> a e
+match'Data1 = \a b c d -> <<type case function>>
+
+match'Data2 :: forall (a :: Type -> Type) -> a Data2 -> forall b -> a b -> a b
+match'Data2 = \a b c d -> <<type case function>>
+
 match'Data5
   :: forall (a :: Type -> Type)
     -> (forall b c d -> a (Data5 b c d)) -> forall e -> a e -> a e
-a5 :: forall a b c . Data5 a b c -> a
-b5 :: forall a b c . Data5 a b c -> b
-c5 :: forall a b c . Data5 a b c -> c
+match'Data5 = \a b c d -> <<type case function>>
+
+x :: Data2 -> Int
+x
+  = \a -> case'Data2
+    (\_ -> 'Int)
+    (\_ -> _rhs (undefined 'Int))
+    (\b _ -> _rhs b)
+    (\c -> _rhs c)
+    (_rhs (undefined 'Int))
+    a
+
+y :: Data2 -> Int
+y
+  = \a -> case'Data2
+    (\_ -> 'Int)
+    (\_ -> _rhs (undefined 'Int))
+    (\_ b -> _rhs b)
+    (\_ -> _rhs (undefined 'Int))
+    (_rhs (undefined 'Int))
+    a
 ------------ tooltips
 testdata/data.lc 1:6-1:11
     Type | Type | Type | Type | Type
diff --git a/testdata/empty.out b/testdata/empty.out
index 4cf07220..b764cc62 100644
--- a/testdata/empty.out
+++ b/testdata/empty.out
@@ -2,10 +2,15 @@ main is not found
 ------------ desugared source code
 data Empty :: Type where
     
------------- trace
+------------ core code
 'Empty :: Type
+'Empty = <<type constructor with 0 indices; constructors: >>
+
 case'Empty :: forall (a :: Empty -> Type) (b :: Empty) -> a b
+case'Empty = \a b -> <<case function of a type with 0 parameters>>
+
 match'Empty :: forall (a :: Type -> Type) -> a Empty -> forall b -> a b -> a b
+match'Empty = \a b c d -> <<type case function>>
 ------------ tooltips
 testdata/empty.lc 3:6-3:11
     Type | Type | Type | Type
\ No newline at end of file
diff --git a/testdata/id.out b/testdata/id.out
index a7e45fe7..c05db920 100644
--- a/testdata/id.out
+++ b/testdata/id.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 main' = _rhs let a = _rhs \(b :: _) -> b in (a 4.0, a True)
------------- trace
+------------ core code
 main' :: (Float, Bool)
+main' = _rhs (4.0, True)
 ------------ tooltips
 testdata/id.lc 1:1-1:6
     (Float, Bool)
diff --git a/testdata/instantiate.out b/testdata/instantiate.out
index bda35a20..f1310ba2 100644
--- a/testdata/instantiate.out
+++ b/testdata/instantiate.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 main' = _rhs let a = _rhs PrimAdd in a (V2 1.0 2.0) (V2 1.0 2.0)
------------- trace
+------------ core code
 main' :: VecS Float 2
+main' = _rhs (PrimAdd ('VecS 'Float 2) TT (V2 1.0 2.0) (V2 1.0 2.0))
 ------------ tooltips
 testdata/instantiate.lc 1:1-1:6
     VecS Float 2
diff --git a/testdata/language-features/basic-list/list01.out b/testdata/language-features/basic-list/list01.out
index c4a54c52..14eb5c08 100644
--- a/testdata/language-features/basic-list/list01.out
+++ b/testdata/language-features/basic-list/list01.out
@@ -5,10 +5,16 @@ value1 = _rhs []
 value2 = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4]
 
 value3 = _rhs ['h', 'e', 'l', 'l', 'o']
------------- trace
+------------ core code
 value1 :: forall a . [a]
+value1 = _rhs []
+
 value2 :: forall a . Num a => [a]
+value2
+  = \a b -> _rhs [fromInt a b 1, fromInt a b 2, fromInt a b 3, fromInt a b 4]
+
 value3 :: [Char]
+value3 = _rhs ['h', 'e', 'l', 'l', 'o']
 ------------ tooltips
 testdata/language-features/basic-list/list01.lc 1:1-1:7
     forall a . [a]
diff --git a/testdata/language-features/basic-list/list02.out b/testdata/language-features/basic-list/list02.out
index 049f23d2..8710b507 100644
--- a/testdata/language-features/basic-list/list02.out
+++ b/testdata/language-features/basic-list/list02.out
@@ -5,10 +5,16 @@ value1 = _rhs []
 value2 = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4]
 
 value3 = _rhs ['h', 'e', 'l', 'l', 'o']
------------- trace
+------------ core code
 value1 :: forall a . [a]
+value1 = _rhs []
+
 value2 :: forall a . Num a => [a]
+value2
+  = \a b -> _rhs [fromInt a b 1, fromInt a b 2, fromInt a b 3, fromInt a b 4]
+
 value3 :: [Char]
+value3 = _rhs ['h', 'e', 'l', 'l', 'o']
 ------------ tooltips
 testdata/language-features/basic-list/list02.lc 1:1-1:7
     forall a . [a]
diff --git a/testdata/language-features/basic-list/list08.out b/testdata/language-features/basic-list/list08.out
index 22e97544..e92d9b36 100644
--- a/testdata/language-features/basic-list/list08.out
+++ b/testdata/language-features/basic-list/list08.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 value = _rhs [fromInt 1, 1.2]
------------- trace
+------------ core code
 value :: [Float]
+value = _rhs [1.0, 1.2]
 ------------ tooltips
 testdata/language-features/basic-list/list08.lc 1:1-1:6
     [Float]
diff --git a/testdata/language-features/basic-list/list09.out b/testdata/language-features/basic-list/list09.out
index 1b80e97a..676c1ed6 100644
--- a/testdata/language-features/basic-list/list09.out
+++ b/testdata/language-features/basic-list/list09.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 value = _rhs ([fromInt 1, 1.2] :: [Float])
------------- trace
+------------ core code
 value :: [Float]
+value = _rhs [1.0, 1.2]
 ------------ tooltips
 testdata/language-features/basic-list/list09.lc 1:1-1:6
     [Float]
diff --git a/testdata/language-features/basic-list/list11.out b/testdata/language-features/basic-list/list11.out
index 74537514..00b52310 100644
--- a/testdata/language-features/basic-list/list11.out
+++ b/testdata/language-features/basic-list/list11.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 value = _rhs [fromInt 1]
------------- trace
+------------ core code
 value :: forall a . Num a => [a]
+value = \a b -> _rhs [fromInt a b 1]
 ------------ tooltips
 testdata/language-features/basic-list/list11.lc 1:1-1:6
     forall a . Num a => [a]
diff --git a/testdata/language-features/basic-list/list12.out b/testdata/language-features/basic-list/list12.out
index 043d44a7..9e289ae6 100644
--- a/testdata/language-features/basic-list/list12.out
+++ b/testdata/language-features/basic-list/list12.out
@@ -1,8 +1,11 @@
 main is not found
 ------------ desugared source code
 value = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4, fromInt 5]
------------- trace
+------------ core code
 value :: forall a . Num a => [a]
+value
+  = \a b -> _rhs
+    [fromInt a b 1, fromInt a b 2, fromInt a b 3, fromInt a b 4, fromInt a b 5]
 ------------ tooltips
 testdata/language-features/basic-list/list12.lc 1:1-1:6
     forall a . Num a => [a]
diff --git a/testdata/language-features/basic-list/list13.out b/testdata/language-features/basic-list/list13.out
index 42a750fc..bb27f13d 100644
--- a/testdata/language-features/basic-list/list13.out
+++ b/testdata/language-features/basic-list/list13.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 value = _rhs ['h', 'e', 'l', 'l', 'o']
------------- trace
+------------ core code
 value :: [Char]
+value = _rhs ['h', 'e', 'l', 'l', 'o']
 ------------ tooltips
 testdata/language-features/basic-list/list13.lc 1:1-1:6
     [Char]
diff --git a/testdata/language-features/basic-list/listcomp01.out b/testdata/language-features/basic-list/listcomp01.out
index bcfa6659..e02d3045 100644
--- a/testdata/language-features/basic-list/listcomp01.out
+++ b/testdata/language-features/basic-list/listcomp01.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-value = _rhs (concatMap (\_ -> [()]) [(), (), (), ()])
------------- trace
+value = _rhs (concatMap (\(_ :: _) -> [()]) [(), (), (), ()])
+------------ core code
 value :: [()]
+value = _rhs [(), (), (), ()]
 ------------ tooltips
 testdata/language-features/basic-list/listcomp01.lc 1:1-1:6
     [()]
diff --git a/testdata/language-features/basic-list/listcomp02.out b/testdata/language-features/basic-list/listcomp02.out
index a7287a6f..aa811e16 100644
--- a/testdata/language-features/basic-list/listcomp02.out
+++ b/testdata/language-features/basic-list/listcomp02.out
@@ -3,9 +3,12 @@ main is not found
 l = _rhs [(), (), (), ()]
 
 value = _rhs (concatMap (\(a :: _) -> [a]) l)
------------- trace
+------------ core code
 l :: [()]
+l = _rhs [(), (), (), ()]
+
 value :: [()]
+value = _rhs [(), (), (), ()]
 ------------ tooltips
 testdata/language-features/basic-list/listcomp02.lc 1:1-1:2
     [()]
diff --git a/testdata/language-features/basic-list/listcomp03.out b/testdata/language-features/basic-list/listcomp03.out
index 36571c98..e3192970 100644
--- a/testdata/language-features/basic-list/listcomp03.out
+++ b/testdata/language-features/basic-list/listcomp03.out
@@ -1,8 +1,10 @@
 main is not found
 ------------ desugared source code
-value = _rhs (concatMap (\_ -> primIfThenElse False [()] []) [(), (), (), ()])
------------- trace
+value
+  = _rhs (concatMap (\(_ :: _) -> primIfThenElse False [()] []) [(), (), (), ()])
+------------ core code
 value :: [()]
+value = _rhs []
 ------------ tooltips
 testdata/language-features/basic-list/listcomp03.lc 1:1-1:6
     [()]
diff --git a/testdata/language-features/basic-list/listcomp04.out b/testdata/language-features/basic-list/listcomp04.out
index 6f615c06..9352d6ae 100644
--- a/testdata/language-features/basic-list/listcomp04.out
+++ b/testdata/language-features/basic-list/listcomp04.out
@@ -2,10 +2,13 @@ main is not found
 ------------ desugared source code
 l = _rhs [(), (), (), ()]
 
-value = _rhs (concatMap (\_ -> concatMap (\_ -> [()]) l) l)
------------- trace
+value = _rhs (concatMap (\(_ :: _) -> concatMap (\(_ :: _) -> [()]) l) l)
+------------ core code
 l :: [()]
+l = _rhs [(), (), (), ()]
+
 value :: [()]
+value = _rhs [(), (), (), (), (), (), (), (), (), (), (), (), (), (), (), ()]
 ------------ tooltips
 testdata/language-features/basic-list/listcomp04.lc 1:1-1:2
     [()]
diff --git a/testdata/language-features/basic-list/listcomp05.out b/testdata/language-features/basic-list/listcomp05.out
index b5790541..c3984bc7 100644
--- a/testdata/language-features/basic-list/listcomp05.out
+++ b/testdata/language-features/basic-list/listcomp05.out
@@ -3,10 +3,11 @@ main is not found
 value
   = _rhs
     (concatMap
-      (\_ -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in [b])
+      (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in [b])
       [(), ()])
------------- trace
+------------ core code
 value :: [()]
+value = _rhs [(), ()]
 ------------ tooltips
 testdata/language-features/basic-list/listcomp05.lc 1:1-1:6
     [()]
diff --git a/testdata/language-features/basic-list/listcomp06.out b/testdata/language-features/basic-list/listcomp06.out
index 7209b42a..3fc12622 100644
--- a/testdata/language-features/basic-list/listcomp06.out
+++ b/testdata/language-features/basic-list/listcomp06.out
@@ -3,7 +3,7 @@ main is not found
 value1
   = _rhs
     (concatMap
-      (\_ -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
+      (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
         True
         [b]
         [])
@@ -12,14 +12,17 @@ value1
 value2
   = _rhs
     (concatMap
-      (\_ -> primIfThenElse
+      (\(_ :: _) -> primIfThenElse
         True
         (let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in [b])
         [])
       [(), ()])
------------- trace
+------------ core code
 value1 :: [()]
+value1 = _rhs [(), ()]
+
 value2 :: [()]
+value2 = _rhs [(), ()]
 ------------ tooltips
 testdata/language-features/basic-list/listcomp06.lc 1:1-1:7
     [()]
diff --git a/testdata/language-features/basic-list/listcomp07.out b/testdata/language-features/basic-list/listcomp07.out
index eeaa1292..1923e806 100644
--- a/testdata/language-features/basic-list/listcomp07.out
+++ b/testdata/language-features/basic-list/listcomp07.out
@@ -3,7 +3,7 @@ main is not found
 value1
   = _rhs
     (concatMap
-      (\_ -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
+      (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
         True
         (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b])
         [])
@@ -12,7 +12,7 @@ value1
 value2
   = _rhs
     (concatMap
-      (\_ -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
+      (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
         True
         (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b])
         [])
@@ -21,15 +21,20 @@ value2
 value3
   = _rhs
     (concatMap
-      (\_ -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
+      (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
         True
         (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b])
         [])
       [(), ()])
------------- trace
+------------ core code
 value1 :: [()]
+value1 = _rhs [(), ()]
+
 value2 :: [()]
+value2 = _rhs [(), ()]
+
 value3 :: [()]
+value3 = _rhs [(), ()]
 ------------ tooltips
 testdata/language-features/basic-list/listcomp07.lc 1:1-1:7
     [()]
diff --git a/testdata/language-features/basic-list/listcomp09.out b/testdata/language-features/basic-list/listcomp09.out
index 502a9258..536f024a 100644
--- a/testdata/language-features/basic-list/listcomp09.out
+++ b/testdata/language-features/basic-list/listcomp09.out
@@ -1,8 +1,10 @@
 main is not found
 ------------ desugared source code
-value1 = _rhs (concatMap (\_ -> [\(a :: _) -> hlistNilCase _ "Hello" a]) [])
------------- trace
+value1
+  = _rhs (concatMap (\(_ :: _) -> [\(a :: _) -> hlistNilCase _ "Hello" a]) [])
+------------ core code
 value1 :: @Type -> [() -> String]
+value1 = \a -> _rhs []
 ------------ tooltips
 testdata/language-features/basic-list/listcomp09.lc 1:1-1:7
     @Type -> [() -> String]
diff --git a/testdata/language-features/basic-values/bool01.out b/testdata/language-features/basic-values/bool01.out
index 339dbe3a..ee5e9859 100644
--- a/testdata/language-features/basic-values/bool01.out
+++ b/testdata/language-features/basic-values/bool01.out
@@ -3,9 +3,12 @@ main is not found
 value1 = _rhs True
 
 value2 = _rhs False
------------- trace
+------------ core code
 value1 :: Bool
+value1 = _rhs True
+
 value2 :: Bool
+value2 = _rhs False
 ------------ tooltips
 testdata/language-features/basic-values/bool01.lc 1:1-1:7
     Bool
diff --git a/testdata/language-features/basic-values/case01.out b/testdata/language-features/basic-values/case01.out
index 7d617350..ee13f28e 100644
--- a/testdata/language-features/basic-values/case01.out
+++ b/testdata/language-features/basic-values/case01.out
@@ -10,14 +10,25 @@ value4 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ())
 
 value5 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ())
 
-value6 = _rhs ((\_ -> ()) ())
------------- trace
+value6 = _rhs ((\(_ :: _) -> ()) ())
+------------ core code
 value1 :: ()
+value1 = _rhs ()
+
 value2 :: ()
+value2 = _rhs ()
+
 value3 :: ()
+value3 = _rhs ()
+
 value4 :: ()
+value4 = _rhs ()
+
 value5 :: ()
+value5 = _rhs ()
+
 value6 :: ()
+value6 = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/case01.lc 1:1-1:7
     ()
diff --git a/testdata/language-features/basic-values/case02.out b/testdata/language-features/basic-values/case02.out
index 44fd204e..9d1dd476 100644
--- a/testdata/language-features/basic-values/case02.out
+++ b/testdata/language-features/basic-values/case02.out
@@ -1,19 +1,31 @@
 main is not found
 ------------ desugared source code
 value1
-  = _rhs ((\(a :: _) -> case'Bool (\_ -> _) () () (fromInt 1 == a)) (fromInt 1))
+  = _rhs
+    ((\(a :: _) -> case'Bool (\(_ :: _) -> _) () () (fromInt 1 == a)) (fromInt 1))
 
 value2
   = _rhs
     ((\(a :: _) -> case'Bool
-        (\_ -> _)
-        (case'Bool (\_ -> _) "_" "2" (fromInt 2 == a))
+        (\(_ :: _) -> _)
+        (case'Bool (\(_ :: _) -> _) "_" "2" (fromInt 2 == a))
         "1"
         (fromInt 1 == a))
       (fromInt 2))
------------- trace
+------------ core code
 value1 :: forall a . (Eq a, Num a) => ()
+value1
+  = \a b c -> _rhs
+    (case'Bool (\_ -> ' ()) () () ((a == b) (fromInt a c 1) (fromInt a c 1)))
+
 value2 :: forall a . (Eq a, Num a, Eq a, Num a) => String
+value2
+  = \a b c d e -> _rhs
+    (case'Bool
+      (\_ -> 'String)
+      (case'Bool (\_ -> 'String) "_" "2" ((a == b) (fromInt a c 2) (fromInt a e 2)))
+      "1"
+      ((a == d) (fromInt a e 1) (fromInt a e 2)))
 ------------ tooltips
 testdata/language-features/basic-values/case02.lc 1:1-1:7
     forall a . (Eq a, Num a) => ()
diff --git a/testdata/language-features/basic-values/case05.out b/testdata/language-features/basic-values/case05.out
index 2c1ab232..51e7f245 100644
--- a/testdata/language-features/basic-values/case05.out
+++ b/testdata/language-features/basic-values/case05.out
@@ -2,9 +2,12 @@ main is not found
 ------------ desugared source code
 value
   = \(a :: _) -> _rhs
-    ((\(b :: _) -> case'Bool (\_ -> _) undefined '1' (fromInt 1 == b)) a)
------------- trace
+    ((\(b :: _) -> case'Bool (\(_ :: _) -> _) undefined '1' (fromInt 1 == b)) a)
+------------ core code
 value :: forall a . (Eq a, Num a) => a -> Char
+value
+  = \a b c d -> _rhs
+    (case'Bool (\_ -> 'Char) (undefined 'Char) '1' ((a == b) (fromInt a c 1) d))
 ------------ tooltips
 testdata/language-features/basic-values/case05.lc 1:1-1:6
     forall a . (Eq a, Num a) => a -> Char
diff --git a/testdata/language-features/basic-values/case06.out b/testdata/language-features/basic-values/case06.out
index 65999ca4..0191877b 100644
--- a/testdata/language-features/basic-values/case06.out
+++ b/testdata/language-features/basic-values/case06.out
@@ -2,9 +2,12 @@ main is not found
 ------------ desugared source code
 value
   = \(a :: _) -> _rhs
-    ((\(b :: _) -> case'Bool (\_ -> _) '_' '1' (fromInt 1 == b)) a)
------------- trace
+    ((\(b :: _) -> case'Bool (\(_ :: _) -> _) '_' '1' (fromInt 1 == b)) a)
+------------ core code
 value :: forall a . (Eq a, Num a) => a -> Char
+value
+  = \a b c d -> _rhs
+    (case'Bool (\_ -> 'Char) '_' '1' ((a == b) (fromInt a c 1) d))
 ------------ tooltips
 testdata/language-features/basic-values/case06.lc 1:1-1:6
     forall a . (Eq a, Num a) => a -> Char
diff --git a/testdata/language-features/basic-values/data01.out b/testdata/language-features/basic-values/data01.out
index b350dc21..0bad6ca1 100644
--- a/testdata/language-features/basic-values/data01.out
+++ b/testdata/language-features/basic-values/data01.out
@@ -14,30 +14,65 @@ data D1 :: Type where
     C1 :: D1
     C2 :: () -> D1
     C3 :: D1
------------- trace
+------------ core code
 'A :: Type
+'A = <<type constructor with 0 indices; constructors: B, C, D>>
+
+'D1 :: Type
+'D1 = <<type constructor with 0 indices; constructors: C1, C2, C3>>
+
+'E :: Type
+'E = <<type constructor with 0 indices; constructors: F, G, H>>
+
 B :: A
+B = <<0th constructor of 'A>>
+
 C :: A
+C = <<1st constructor of 'A>>
+
+C1 :: D1
+C1 = <<0th constructor of 'D1>>
+
+C2 :: () -> D1
+C2 = <<1st constructor of 'D1>>
+
+C3 :: D1
+C3 = <<2nd constructor of 'D1>>
+
 D :: A
-case'A
-  :: forall (a :: A -> Type) -> a 'B -> a 'C -> a 'D -> forall (b :: A) -> a b
-match'A :: forall (a :: Type -> Type) -> a A -> forall b -> a b -> a b
-'E :: Type
+D = <<2nd constructor of 'A>>
+
 F :: E
+F = <<0th constructor of 'E>>
+
 G :: () -> E
+G = <<1st constructor of 'E>>
+
 H :: E
-case'E
-  :: forall (a :: E -> Type)
-    -> a 'F -> (forall (b :: ()) -> a ('G b)) -> a 'H -> forall (c :: E) -> a c
-match'E :: forall (a :: Type -> Type) -> a E -> forall b -> a b -> a b
-'D1 :: Type
-C1 :: D1
-C2 :: () -> D1
-C3 :: D1
+H = <<2nd constructor of 'E>>
+
+case'A
+  :: forall (a :: A -> Type) -> a 'B -> a 'C -> a 'D -> forall (b :: A) -> a b
+case'A = \a b c d e -> <<case function of a type with 0 parameters>>
+
 case'D1
   :: forall (a :: D1 -> Type)
     -> a 'C1 -> (forall (b :: ()) -> a ('C2 b)) -> a 'C3 -> forall (c :: D1) -> a c
+case'D1 = \a b c d e -> <<case function of a type with 0 parameters>>
+
+case'E
+  :: forall (a :: E -> Type)
+    -> a 'F -> (forall (b :: ()) -> a ('G b)) -> a 'H -> forall (c :: E) -> a c
+case'E = \a b c d e -> <<case function of a type with 0 parameters>>
+
+match'A :: forall (a :: Type -> Type) -> a A -> forall b -> a b -> a b
+match'A = \a b c d -> <<type case function>>
+
 match'D1 :: forall (a :: Type -> Type) -> a D1 -> forall b -> a b -> a b
+match'D1 = \a b c d -> <<type case function>>
+
+match'E :: forall (a :: Type -> Type) -> a E -> forall b -> a b -> a b
+match'E = \a b c d -> <<type case function>>
 ------------ tooltips
 testdata/language-features/basic-values/data01.lc 1:6-1:7
     Type | Type | Type | Type | Type | Type | Type
diff --git a/testdata/language-features/basic-values/def01.out b/testdata/language-features/basic-values/def01.out
index 56283e44..3ada4423 100644
--- a/testdata/language-features/basic-values/def01.out
+++ b/testdata/language-features/basic-values/def01.out
@@ -2,13 +2,18 @@ main is not found
 ------------ desugared source code
 unit = _rhs ()
 
-fun1 = \_ -> _rhs (fromInt 1)
+fun1 = \(_ :: _) -> _rhs (fromInt 1)
 
-fun2 = \_ _ _ _ _ -> _rhs 'c'
------------- trace
-unit :: ()
+fun2 = \(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs 'c'
+------------ core code
 fun1 :: forall a b . Num b => a -> b
+fun1 = \_ a b _ -> _rhs (fromInt a b 1)
+
 fun2 :: forall a b c d e . a -> b -> c -> d -> e -> Char
+fun2 = \_ _ _ _ _ _ _ _ _ _ -> _rhs 'c'
+
+unit :: ()
+unit = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/def01.lc 1:1-1:5
     ()
diff --git a/testdata/language-features/basic-values/def03.out b/testdata/language-features/basic-values/def03.out
index c4bed094..e803c077 100644
--- a/testdata/language-features/basic-values/def03.out
+++ b/testdata/language-features/basic-values/def03.out
@@ -2,12 +2,22 @@ main is not found
 ------------ desugared source code
 fun
   = \(a :: _) -> case'Bool
-    (\_ -> _)
-    (case'Bool (\_ -> _) (_rhs undefined) (_rhs '2') (fromInt 2 == a))
+    (\(_ :: _) -> _)
+    (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs '2') (fromInt 2 == a))
     (_rhs '1')
     (fromInt 1 == a)
------------- trace
+------------ core code
 fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
+fun
+  = \a b c d e f -> case'Bool
+    (\_ -> 'Char)
+    (case'Bool
+      (\_ -> 'Char)
+      (_rhs (undefined 'Char))
+      (_rhs '2')
+      ((a == b) (fromInt a c 2) f))
+    (_rhs '1')
+    ((a == d) (fromInt a e 1) f)
 ------------ tooltips
 testdata/language-features/basic-values/def03.lc 1:1-1:4
     forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
diff --git a/testdata/language-features/basic-values/def04.out b/testdata/language-features/basic-values/def04.out
index e6dfbba7..de250fdb 100644
--- a/testdata/language-features/basic-values/def04.out
+++ b/testdata/language-features/basic-values/def04.out
@@ -2,20 +2,33 @@ main is not found
 ------------ desugared source code
 fun
   = \(a :: _) -> case'Bool
-    (\_ -> _)
-    (case'Bool (\_ -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a))
+    (\(_ :: _) -> _)
+    (case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a))
     (_rhs '1')
     (fromInt 1 == a)
 
 fun2
-  = \(a :: _) _ -> case'Bool
-    (\_ -> _)
-    (case'Bool (\_ -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a))
+  = \(a :: _) (_ :: _) -> case'Bool
+    (\(_ :: _) -> _)
+    (case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a))
     (_rhs '1')
     (fromInt 1 == a)
------------- trace
+------------ core code
 fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
+fun
+  = \a b c d e f -> case'Bool
+    (\_ -> 'Char)
+    (case'Bool (\_ -> 'Char) (_rhs '_') (_rhs '2') ((a == b) (fromInt a c 2) f))
+    (_rhs '1')
+    ((a == d) (fromInt a e 1) f)
+
 fun2 :: forall a b . (Eq a, Num a, Eq a, Num a) => a -> b -> Char
+fun2
+  = \a _ b c d e f _ -> case'Bool
+    (\_ -> 'Char)
+    (case'Bool (\_ -> 'Char) (_rhs '_') (_rhs '2') ((a == b) (fromInt a c 2) f))
+    (_rhs '1')
+    ((a == d) (fromInt a e 1) f)
 ------------ tooltips
 testdata/language-features/basic-values/def04.lc 1:1-1:4
     forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
diff --git a/testdata/language-features/basic-values/deforder01.out b/testdata/language-features/basic-values/deforder01.out
index 14117b02..65ee8408 100644
--- a/testdata/language-features/basic-values/deforder01.out
+++ b/testdata/language-features/basic-values/deforder01.out
@@ -3,9 +3,12 @@ main is not found
 x = _rhs '1'
 
 y = _rhs x
------------- trace
+------------ core code
 x :: Char
+x = _rhs '1'
+
 y :: Char
+y = _rhs '1'
 ------------ tooltips
 testdata/language-features/basic-values/deforder01.lc 1:1-1:2
     Char
diff --git a/testdata/language-features/basic-values/deforder02.out b/testdata/language-features/basic-values/deforder02.out
index 23d62c33..bc81cbfd 100644
--- a/testdata/language-features/basic-values/deforder02.out
+++ b/testdata/language-features/basic-values/deforder02.out
@@ -3,9 +3,12 @@ main is not found
 x = _rhs '1'
 
 y = _rhs x
------------- trace
+------------ core code
 x :: Char
+x = _rhs '1'
+
 y :: Char
+y = _rhs '1'
 ------------ tooltips
 testdata/language-features/basic-values/deforder02.lc 1:1-1:2
     Char
diff --git a/testdata/language-features/basic-values/deforder03.out b/testdata/language-features/basic-values/deforder03.out
index 4903f7cc..6dd09a14 100644
--- a/testdata/language-features/basic-values/deforder03.out
+++ b/testdata/language-features/basic-values/deforder03.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 value = _rhs let a = _rhs (); b = _rhs a in '1'
------------- trace
+------------ core code
 value :: Char
+value = _rhs '1'
 ------------ tooltips
 testdata/language-features/basic-values/deforder03.lc 1:1-1:6
     Char
diff --git a/testdata/language-features/basic-values/deforder04.out b/testdata/language-features/basic-values/deforder04.out
index ffe0fb17..34f04f22 100644
--- a/testdata/language-features/basic-values/deforder04.out
+++ b/testdata/language-features/basic-values/deforder04.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 value = _rhs let a = _rhs (); b = _rhs a in '1'
------------- trace
+------------ core code
 value :: Char
+value = _rhs '1'
 ------------ tooltips
 testdata/language-features/basic-values/deforder04.lc 1:1-1:6
     Char
diff --git a/testdata/language-features/basic-values/deforder05.out b/testdata/language-features/basic-values/deforder05.out
index f07ef3ee..c4c4eda5 100644
--- a/testdata/language-features/basic-values/deforder05.out
+++ b/testdata/language-features/basic-values/deforder05.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 value = _rhs let a = _rhs (); b = _rhs a in '1'
------------- trace
+------------ core code
 value :: Char
+value = _rhs '1'
 ------------ tooltips
 testdata/language-features/basic-values/deforder05.lc 1:1-1:6
     Char
diff --git a/testdata/language-features/basic-values/deforder06.out b/testdata/language-features/basic-values/deforder06.out
index db561937..6228b957 100644
--- a/testdata/language-features/basic-values/deforder06.out
+++ b/testdata/language-features/basic-values/deforder06.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 value = _rhs let a = _rhs (); b = _rhs a in '1'
------------- trace
+------------ core code
 value :: Char
+value = _rhs '1'
 ------------ tooltips
 testdata/language-features/basic-values/deforder06.lc 1:1-1:6
     Char
diff --git a/testdata/language-features/basic-values/fixity01.out b/testdata/language-features/basic-values/fixity01.out
index 22e2ae45..8f75a8f2 100644
--- a/testdata/language-features/basic-values/fixity01.out
+++ b/testdata/language-features/basic-values/fixity01.out
@@ -1,12 +1,12 @@
 main is not found
 ------------ desugared source code
-funL = \(a :: _) _ -> _rhs a
+funL = \(a :: _) (_ :: _) -> _rhs a
 
-funR = \(a :: _) _ -> _rhs a
+funR = \(a :: _) (_ :: _) -> _rhs a
 
-(<<<<) = \(a :: _) _ -> _rhs a
+(<<<<) = \(a :: _) (_ :: _) -> _rhs a
 
-(>>>>) = \_ (a :: _) -> _rhs a
+(>>>>) = \(_ :: _) (a :: _) -> _rhs a
 
 infixr 7 funL
 
@@ -15,11 +15,18 @@ infixr 7 <<<<
 infixr 6 >>>>
 
 infixr 6 funR
------------- trace
+------------ core code
+<<<< :: forall a b . a -> b -> a
+<<<< = \_ _ a _ -> _rhs a
+
+>>>> :: forall a b . a -> b -> b
+>>>> = \_ _ _ a -> _rhs a
+
 funL :: forall a b . a -> b -> a
+funL = \_ _ a _ -> _rhs a
+
 funR :: forall a b . a -> b -> a
-(<<<<) :: forall a b . a -> b -> a
-(>>>>) :: forall a b . a -> b -> b
+funR = \_ _ a _ -> _rhs a
 ------------ tooltips
 testdata/language-features/basic-values/fixity01.lc 1:1-1:5
     forall a b . a -> b -> a
diff --git a/testdata/language-features/basic-values/fixity02.out b/testdata/language-features/basic-values/fixity02.out
index 973e69be..e018eb76 100644
--- a/testdata/language-features/basic-values/fixity02.out
+++ b/testdata/language-features/basic-values/fixity02.out
@@ -1,12 +1,12 @@
 main is not found
 ------------ desugared source code
-funL = \(a :: _) _ -> _rhs a
+funL = \(a :: _) (_ :: _) -> _rhs a
 
-funR = \_ (a :: _) -> _rhs a
+funR = \(_ :: _) (a :: _) -> _rhs a
 
-(<@) = \(a :: _) _ -> _rhs a
+(<@) = \(a :: _) (_ :: _) -> _rhs a
 
-(@>) = \_ (a :: _) -> _rhs a
+(@>) = \(_ :: _) (a :: _) -> _rhs a
 
 infixr 7 funL
 
@@ -47,27 +47,66 @@ funValue6 = _rhs (() `funR` 'c' `funL` "hi" `funL` 1.2 :: Char)
 funValue7 = _rhs (() `funL` 'c' `funR` "hi" `funL` 1.2 :: String)
 
 funValue8 = _rhs (() `funL` 'c' `funL` "hi" `funL` 1.2 :: ())
------------- trace
+------------ core code
+<@ :: forall a b . a -> b -> a
+<@ = \_ _ a _ -> _rhs a
+
+@> :: forall a b . a -> b -> b
+@> = \_ _ _ a -> _rhs a
+
 funL :: forall a b . a -> b -> a
+funL = \_ _ a _ -> _rhs a
+
 funR :: forall a b . a -> b -> b
-(<@) :: forall a b . a -> b -> a
-(@>) :: forall a b . a -> b -> b
-value1 :: Float
-value2 :: Float
-value3 :: Float
-value4 :: Float
-value5 :: String
-value6 :: Char
-value7 :: String
-value8 :: ()
+funR = \_ _ _ a -> _rhs a
+
 funValue1 :: Float
+funValue1 = _rhs 1.2
+
 funValue2 :: Float
+funValue2 = _rhs 1.2
+
 funValue3 :: Float
+funValue3 = _rhs 1.2
+
 funValue4 :: Float
+funValue4 = _rhs 1.2
+
 funValue5 :: String
+funValue5 = _rhs "hi"
+
 funValue6 :: Char
+funValue6 = _rhs 'c'
+
 funValue7 :: String
+funValue7 = _rhs "hi"
+
 funValue8 :: ()
+funValue8 = _rhs ()
+
+value1 :: Float
+value1 = _rhs 1.2
+
+value2 :: Float
+value2 = _rhs 1.2
+
+value3 :: Float
+value3 = _rhs 1.2
+
+value4 :: Float
+value4 = _rhs 1.2
+
+value5 :: String
+value5 = _rhs "hi"
+
+value6 :: Char
+value6 = _rhs 'c'
+
+value7 :: String
+value7 = _rhs "hi"
+
+value8 :: ()
+value8 = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/fixity02.lc 1:1-1:5
     forall a b . a -> b -> a
diff --git a/testdata/language-features/basic-values/if01.out b/testdata/language-features/basic-values/if01.out
index 68ae2364..cfac15fd 100644
--- a/testdata/language-features/basic-values/if01.out
+++ b/testdata/language-features/basic-values/if01.out
@@ -3,9 +3,12 @@ main is not found
 value1 = _rhs (primIfThenElse True () ())
 
 value2 = _rhs (primIfThenElse False 1.0 2.0)
------------- trace
+------------ core code
 value1 :: ()
+value1 = _rhs ()
+
 value2 :: Float
+value2 = _rhs 2.0
 ------------ tooltips
 testdata/language-features/basic-values/if01.lc 1:1-1:7
     ()
diff --git a/testdata/language-features/basic-values/indentation01.out b/testdata/language-features/basic-values/indentation01.out
index 9579e866..737c8ecd 100644
--- a/testdata/language-features/basic-values/indentation01.out
+++ b/testdata/language-features/basic-values/indentation01.out
@@ -3,9 +3,12 @@ main is not found
 tuple1 = _rhs ()
 
 tuple2 = _rhs ()
------------- trace
+------------ core code
 tuple1 :: ()
+tuple1 = _rhs ()
+
 tuple2 :: ()
+tuple2 = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/indentation01.lc 1:1-1:7
     ()
diff --git a/testdata/language-features/basic-values/indentation02.out b/testdata/language-features/basic-values/indentation02.out
index ddb90a56..33b04d5e 100644
--- a/testdata/language-features/basic-values/indentation02.out
+++ b/testdata/language-features/basic-values/indentation02.out
@@ -3,9 +3,12 @@ main is not found
 tuple1 = _rhs ()
 
 tuple2 = _rhs ()
------------- trace
+------------ core code
 tuple1 :: ()
+tuple1 = _rhs ()
+
 tuple2 :: ()
+tuple2 = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/indentation02.lc 1:3-1:9
     ()
diff --git a/testdata/language-features/basic-values/infix01.out b/testdata/language-features/basic-values/infix01.out
index 61491fb2..cee5de49 100644
--- a/testdata/language-features/basic-values/infix01.out
+++ b/testdata/language-features/basic-values/infix01.out
@@ -1,11 +1,14 @@
 main is not found
 ------------ desugared source code
-fun = \_ _ -> _rhs ()
+fun = \(_ :: _) (_ :: _) -> _rhs ()
 
 value = \(a :: _) (b :: _) -> _rhs (a `fun` b)
------------- trace
+------------ core code
 fun :: forall a b . a -> b -> ()
+fun = \_ _ _ _ -> _rhs ()
+
 value :: forall a b . a -> b -> ()
+value = \a b c d -> _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/infix01.lc 1:1-1:4
     forall a b . a -> b -> ()
diff --git a/testdata/language-features/basic-values/infix02.out b/testdata/language-features/basic-values/infix02.out
index 341b4acd..8f743998 100644
--- a/testdata/language-features/basic-values/infix02.out
+++ b/testdata/language-features/basic-values/infix02.out
@@ -1,11 +1,14 @@
 main is not found
 ------------ desugared source code
-fun = \_ _ _ -> _rhs ()
+fun = \(_ :: _) (_ :: _) (_ :: _) -> _rhs ()
 
 value = \(a :: _) (b :: _) -> _rhs (a `fun` b)
------------- trace
+------------ core code
 fun :: forall a b c . a -> b -> c -> ()
+fun = \_ _ _ _ _ _ -> _rhs ()
+
 value :: forall a b c . a -> b -> c -> ()
+value = \a b c d e -> _rhs (fun a b c d e)
 ------------ tooltips
 testdata/language-features/basic-values/infix02.lc 1:1-1:4
     forall a b c . a -> b -> c -> ()
diff --git a/testdata/language-features/basic-values/infix03.out b/testdata/language-features/basic-values/infix03.out
index 7b501216..4b6af910 100644
--- a/testdata/language-features/basic-values/infix03.out
+++ b/testdata/language-features/basic-values/infix03.out
@@ -7,18 +7,31 @@ data D :: Type where
 d2 = \(a :: _) (b :: _) -> _rhs (a `D2` b)
 
 d3 = \(a :: _) (b :: _) -> _rhs (a `D3` b)
------------- trace
+------------ core code
 'D :: Type
+'D = <<type constructor with 0 indices; constructors: D2, D3>>
+
 D2 :: () -> () -> D
+D2 = <<0th constructor of 'D>>
+
 D3 :: () -> () -> () -> D
+D3 = <<1st constructor of 'D>>
+
 case'D
   :: forall (a :: D -> Type)
     -> (forall (b :: ()) (c :: ()) -> a ('D2 b c))
       -> (forall (d :: ()) (e :: ()) (f :: ()) -> a ('D3 d e f))
         -> forall (g :: D) -> a g
-match'D :: forall (a :: Type -> Type) -> a D -> forall b -> a b -> a b
+case'D = \a b c d -> <<case function of a type with 0 parameters>>
+
 d2 :: () -> () -> D
+d2 = \a b -> _rhs (D2 a b)
+
 d3 :: () -> () -> () -> D
+d3 = \a b -> _rhs (D3 a b)
+
+match'D :: forall (a :: Type -> Type) -> a D -> forall b -> a b -> a b
+match'D = \a b c d -> <<type case function>>
 ------------ tooltips
 testdata/language-features/basic-values/infix03.lc 1:6-1:7
     Type | Type | Type | Type | Type | Type | Type | Type
diff --git a/testdata/language-features/basic-values/lambda01.out b/testdata/language-features/basic-values/lambda01.out
index 678f21c0..591970d1 100644
--- a/testdata/language-features/basic-values/lambda01.out
+++ b/testdata/language-features/basic-values/lambda01.out
@@ -1,18 +1,29 @@
 main is not found
 ------------ desugared source code
-fun1 = _rhs \_ -> ()
+fun1 = _rhs \(_ :: _) -> ()
 
-fun2 = _rhs \_ -> ()
+fun2 = _rhs \(_ :: _) -> ()
 
-fun3 = _rhs \_ -> ()
+fun3 = _rhs \(_ :: _) -> ()
 
-fun4 = _rhs \_ _ _ _ _ _ _ _ _ -> ()
------------- trace
+fun4
+  = _rhs
+    \(_ :: _)
+        (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> ()
+------------ core code
 fun1 :: forall a . a -> ()
+fun1 = \_ -> _rhs \_ -> ()
+
 fun2 :: forall a . a -> ()
+fun2 = \_ -> _rhs \_ -> ()
+
 fun3 :: forall a . a -> ()
+fun3 = \_ -> _rhs \_ -> ()
+
 fun4
   :: forall a b c d e f g h i . a -> b -> c -> d -> e -> f -> g -> h -> i -> ()
+fun4 = \_ _ _ _ _ _ _ _ _ -> _rhs \_ _ _ _ _ _ _ _ _ -> ()
 ------------ tooltips
 testdata/language-features/basic-values/lambda01.lc 1:1-1:5
     forall a . a -> ()
diff --git a/testdata/language-features/basic-values/lambda03.out b/testdata/language-features/basic-values/lambda03.out
index 97ee5c15..69e50ccf 100644
--- a/testdata/language-features/basic-values/lambda03.out
+++ b/testdata/language-features/basic-values/lambda03.out
@@ -1,11 +1,14 @@
 main is not found
 ------------ desugared source code
-fun1 = _rhs \_ (a :: _) _ -> a
+fun1 = _rhs \(_ :: _) (a :: _) (_ :: _) -> a
 
-fun2 = \(a :: _) -> _rhs \_ _ _ -> a
------------- trace
+fun2 = \(a :: _) -> _rhs \(_ :: _) (_ :: _) (_ :: _) -> a
+------------ core code
 fun1 :: forall a b c . a -> b -> c -> b
+fun1 = \_ _ _ -> _rhs \_ a _ -> a
+
 fun2 :: forall a b c d . a -> b -> c -> d -> a
+fun2 = \_ _ _ _ a -> _rhs \_ _ _ -> a
 ------------ tooltips
 testdata/language-features/basic-values/lambda03.lc 1:1-1:5
     forall a b c . a -> b -> c -> b
diff --git a/testdata/language-features/basic-values/let01.out b/testdata/language-features/basic-values/let01.out
index b1389aae..3c1f5fa4 100644
--- a/testdata/language-features/basic-values/let01.out
+++ b/testdata/language-features/basic-values/let01.out
@@ -9,12 +9,21 @@ value3 = _rhs let a = _rhs (fromInt 1); b = _rhs 'c' in fromInt 1
 value4 = _rhs let a = _rhs (fromInt 1) in fromInt 1
 
 value5 = _rhs let a = _rhs (fromInt 1); b = _rhs (fromInt 2) in fromInt 1
------------- trace
+------------ core code
 value1 :: forall a . Num a => a
+value1 = \a b -> _rhs (fromInt a b 1)
+
 value2 :: forall a . Num a => a
+value2 = \a b -> _rhs (fromInt a b 1)
+
 value3 :: forall a . Num a => a
+value3 = \a b -> _rhs (fromInt a b 1)
+
 value4 :: forall a . Num a => a
+value4 = \a b -> _rhs (fromInt a b 1)
+
 value5 :: forall a . Num a => a
+value5 = \a b -> _rhs (fromInt a b 1)
 ------------ tooltips
 testdata/language-features/basic-values/let01.lc 1:1-1:7
     forall a . Num a => a
diff --git a/testdata/language-features/basic-values/let02.out b/testdata/language-features/basic-values/let02.out
index 6624f824..4ca11163 100644
--- a/testdata/language-features/basic-values/let02.out
+++ b/testdata/language-features/basic-values/let02.out
@@ -7,8 +7,9 @@ value
       b = _rhs let d = _rhs 'A' in ();
       c = _rhs let e = _rhs (); f = _rhs (fromInt 1); g = _rhs "hello" in 'B'
       in ()
------------- trace
+------------ core code
 value :: ()
+value = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/let02.lc 1:1-1:6
     ()
diff --git a/testdata/language-features/basic-values/literal01.out b/testdata/language-features/basic-values/literal01.out
index ec3b6908..4619304a 100644
--- a/testdata/language-features/basic-values/literal01.out
+++ b/testdata/language-features/basic-values/literal01.out
@@ -15,15 +15,30 @@ charValue = _rhs 'A'
 stringValue1 = _rhs "Hello World"
 
 stringValue2 = _rhs "\nHello World\tagain!\r\n"
------------- trace
+------------ core code
+charValue :: Char
+charValue = _rhs 'A'
+
+floatValue1 :: Float
+floatValue1 = _rhs 2.0
+
+floatValue2 :: Float
+floatValue2 = _rhs 123400.0
+
 intValue1 :: forall a . Num a => a
+intValue1 = \a b -> _rhs (fromInt a b 0)
+
 intValue2 :: forall a . Num a => a
+intValue2 = \a b -> _rhs (fromInt a b 1)
+
 intValue3 :: forall a . Num a => a
-floatValue1 :: Float
-floatValue2 :: Float
-charValue :: Char
+intValue3 = \a b -> _rhs (fromInt a b 12345)
+
 stringValue1 :: String
+stringValue1 = _rhs "Hello World"
+
 stringValue2 :: String
+stringValue2 = _rhs "\nHello World\tagain!\r\n"
 ------------ tooltips
 testdata/language-features/basic-values/literal01.lc 1:1-1:10
     forall a . Num a => a
diff --git a/testdata/language-features/basic-values/operator01.out b/testdata/language-features/basic-values/operator01.out
index 8596dd0d..f239d6b3 100644
--- a/testdata/language-features/basic-values/operator01.out
+++ b/testdata/language-features/basic-values/operator01.out
@@ -1,17 +1,24 @@
 main is not found
 ------------ desugared source code
-(#$#) = \_ _ -> _rhs ()
+(#$#) = \(_ :: _) (_ :: _) -> _rhs ()
 
-($$#) = \_ _ -> _rhs ()
+($$#) = \(_ :: _) (_ :: _) -> _rhs ()
 
-($$$#) = \_ _ -> _rhs ()
+($$$#) = \(_ :: _) (_ :: _) -> _rhs ()
 
-($$$) = \_ _ -> _rhs ()
------------- trace
-(#$#) :: forall a b . a -> b -> ()
-($$#) :: forall a b . a -> b -> ()
-($$$#) :: forall a b . a -> b -> ()
-($$$) :: forall a b . a -> b -> ()
+($$$) = \(_ :: _) (_ :: _) -> _rhs ()
+------------ core code
+#$# :: forall a b . a -> b -> ()
+#$# = \_ _ _ _ -> _rhs ()
+
+$$# :: forall a b . a -> b -> ()
+$$# = \_ _ _ _ -> _rhs ()
+
+$$$ :: forall a b . a -> b -> ()
+$$$ = \_ _ _ _ -> _rhs ()
+
+$$$# :: forall a b . a -> b -> ()
+$$$# = \_ _ _ _ -> _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/operator01.lc 1:3-1:6
     forall a b . a -> b -> ()
diff --git a/testdata/language-features/basic-values/operator05.out b/testdata/language-features/basic-values/operator05.out
index 26a9c706..6a12b629 100644
--- a/testdata/language-features/basic-values/operator05.out
+++ b/testdata/language-features/basic-values/operator05.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-value1 = _rhs let a = \_ _ -> _rhs () in a () ()
------------- trace
+value1 = _rhs let a = \(_ :: _) (_ :: _) -> _rhs () in a () ()
+------------ core code
 value1 :: ()
+value1 = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/operator05.lc 1:1-1:7
     ()
diff --git a/testdata/language-features/basic-values/operator06.out b/testdata/language-features/basic-values/operator06.out
index c2aa64bd..31724acd 100644
--- a/testdata/language-features/basic-values/operator06.out
+++ b/testdata/language-features/basic-values/operator06.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-value1 = _rhs let a = \_ _ -> _rhs () in a () ()
------------- trace
+value1 = _rhs let a = \(_ :: _) (_ :: _) -> _rhs () in a () ()
+------------ core code
 value1 :: ()
+value1 = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/operator06.lc 1:1-1:7
     ()
diff --git a/testdata/language-features/basic-values/shadowing01.out b/testdata/language-features/basic-values/shadowing01.out
index a57dc95d..5233865a 100644
--- a/testdata/language-features/basic-values/shadowing01.out
+++ b/testdata/language-features/basic-values/shadowing01.out
@@ -13,8 +13,9 @@ value
             f = _rhs let g = _rhs (); h = _rhs 'C'; i = _rhs 3.12 in "world"
             in ()
       in '7'
------------- trace
+------------ core code
 value :: Char
+value = _rhs '7'
 ------------ tooltips
 testdata/language-features/basic-values/shadowing01.lc 1:1-1:6
     Char
diff --git a/testdata/language-features/basic-values/shadowing02.out b/testdata/language-features/basic-values/shadowing02.out
index 44db12ab..19a72446 100644
--- a/testdata/language-features/basic-values/shadowing02.out
+++ b/testdata/language-features/basic-values/shadowing02.out
@@ -18,10 +18,15 @@ value2
             g = _rhs let h = _rhs (); i = _rhs 'C'; j = _rhs 3.12; k = _rhs c in world
             in ()
       in '7'
------------- trace
+------------ core code
 c :: forall a . Num a => a
-world :: String
+c = \a b -> _rhs (fromInt a b 7)
+
 value2 :: Char
+value2 = _rhs '7'
+
+world :: String
+world = _rhs "world"
 ------------ tooltips
 testdata/language-features/basic-values/shadowing02.lc 1:1-1:2
     forall a . Num a => a
diff --git a/testdata/language-features/basic-values/shadowing03.out b/testdata/language-features/basic-values/shadowing03.out
index 66839639..0ee5fa0e 100644
--- a/testdata/language-features/basic-values/shadowing03.out
+++ b/testdata/language-features/basic-values/shadowing03.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-x = \_ _ -> _rhs ()
------------- trace
+x = \(_ :: _) (_ :: _) -> _rhs ()
+------------ core code
 x :: forall a b . a -> b -> ()
+x = \_ _ _ _ -> _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/shadowing03.lc 1:1-1:2
     forall a b . a -> b -> ()
diff --git a/testdata/language-features/basic-values/shadowing04.out b/testdata/language-features/basic-values/shadowing04.out
index cd79b079..c55d2dfe 100644
--- a/testdata/language-features/basic-values/shadowing04.out
+++ b/testdata/language-features/basic-values/shadowing04.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-__ = \_ _ -> _rhs ()
------------- trace
+__ = \(_ :: _) (_ :: _) -> _rhs ()
+------------ core code
 __ :: forall a b . a -> b -> ()
+__ = \_ _ _ _ -> _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/shadowing04.lc 1:1-1:3
     forall a b . a -> b -> ()
diff --git a/testdata/language-features/basic-values/tuple01.out b/testdata/language-features/basic-values/tuple01.out
index c3862fc1..fbe79611 100644
--- a/testdata/language-features/basic-values/tuple01.out
+++ b/testdata/language-features/basic-values/tuple01.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 unit = _rhs ()
------------- trace
+------------ core code
 unit :: ()
+unit = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/tuple01.lc 1:1-1:5
     ()
diff --git a/testdata/language-features/basic-values/tuple02.out b/testdata/language-features/basic-values/tuple02.out
index 7a8df18f..3b6e4410 100644
--- a/testdata/language-features/basic-values/tuple02.out
+++ b/testdata/language-features/basic-values/tuple02.out
@@ -5,10 +5,15 @@ tuple1 = _rhs (fromInt 1, 2.3, 'D', "string", ())
 tuple2 = _rhs ((), ())
 
 tuple3 = _rhs (("name", 'c'), ())
------------- trace
+------------ core code
 tuple1 :: forall a . Num a => (a, Float, Char, String, ())
+tuple1 = \a b -> _rhs (fromInt a b 1, 2.3, 'D', "string", ())
+
 tuple2 :: ((), ())
+tuple2 = _rhs ((), ())
+
 tuple3 :: ((String, Char), ())
+tuple3 = _rhs (("name", 'c'), ())
 ------------ tooltips
 testdata/language-features/basic-values/tuple02.lc 1:1-1:7
     forall a . Num a => (a, Float, Char, String, ())
diff --git a/testdata/language-features/basic-values/typesig01.out b/testdata/language-features/basic-values/typesig01.out
index 4b710886..c36d5cf2 100644
--- a/testdata/language-features/basic-values/typesig01.out
+++ b/testdata/language-features/basic-values/typesig01.out
@@ -5,9 +5,12 @@ value1 = _rhs 'a'
 
 value2 :: Char
 value2 = _rhs 'a'
------------- trace
+------------ core code
 value1 :: Char
+value1 = _rhs 'a'
+
 value2 :: Char
+value2 = _rhs 'a'
 ------------ tooltips
 testdata/language-features/basic-values/typesig01.lc 1:11-1:15
     Type
diff --git a/testdata/language-features/basic-values/typesig02.out b/testdata/language-features/basic-values/typesig02.out
index a685db82..415f46d9 100644
--- a/testdata/language-features/basic-values/typesig02.out
+++ b/testdata/language-features/basic-values/typesig02.out
@@ -3,9 +3,12 @@ main is not found
 value1 = _rhs ('a' :: Char)
 
 value2 = _rhs ('a' :: Char)
------------- trace
+------------ core code
 value1 :: Char
+value1 = _rhs 'a'
+
 value2 :: Char
+value2 = _rhs 'a'
 ------------ tooltips
 testdata/language-features/basic-values/typesig02.lc 1:1-1:7
     Char
diff --git a/testdata/language-features/basic-values/typesig03.out b/testdata/language-features/basic-values/typesig03.out
index dce9b02b..738ddca8 100644
--- a/testdata/language-features/basic-values/typesig03.out
+++ b/testdata/language-features/basic-values/typesig03.out
@@ -1,13 +1,16 @@
 main is not found
 ------------ desugared source code
 fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> ()
-fun1 = \_ _ _ -> _rhs ()
+fun1 = \(_ :: _) (_ :: _) (_ :: _) -> _rhs ()
 
 fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> ()
-fun2 = \_ _ _ -> _rhs ()
------------- trace
+fun2 = \(_ :: _) (_ :: _) (_ :: _) -> _rhs ()
+------------ core code
 fun1 :: forall a b c . a -> b -> c -> ()
+fun1 = \_ _ _ _ _ _ -> _rhs ()
+
 fun2 :: forall a b c . a -> b -> c -> ()
+fun2 = \_ _ _ _ _ _ -> _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/typesig03.lc 1:9-1:10
     _f
diff --git a/testdata/language-features/basic-values/typesig04.out b/testdata/language-features/basic-values/typesig04.out
index e85b6781..0df6fc91 100644
--- a/testdata/language-features/basic-values/typesig04.out
+++ b/testdata/language-features/basic-values/typesig04.out
@@ -1,13 +1,16 @@
 main is not found
 ------------ desugared source code
 fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> ()
-fun1 = \_ _ -> _rhs ()
+fun1 = \(_ :: _) (_ :: _) -> _rhs ()
 
 fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> ()
-fun2 = \_ _ -> _rhs ()
------------- trace
+fun2 = \(_ :: _) (_ :: _) -> _rhs ()
+------------ core code
 fun1 :: forall a b c . a -> (b -> c) -> ()
+fun1 = \_ _ _ _ _ -> _rhs ()
+
 fun2 :: forall a b c . a -> (b -> c) -> ()
+fun2 = \_ _ _ _ _ -> _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/typesig04.lc 1:9-1:10
     _f
diff --git a/testdata/language-features/basic-values/typesig05.out b/testdata/language-features/basic-values/typesig05.out
index 0f4f157e..b5fdd7ec 100644
--- a/testdata/language-features/basic-values/typesig05.out
+++ b/testdata/language-features/basic-values/typesig05.out
@@ -1,8 +1,8 @@
 main is not found
 ------------ desugared source code
-funL = \(a :: _) _ -> _rhs a
+funL = \(a :: _) (_ :: _) -> _rhs a
 
-funR = \_ (a :: _) -> _rhs a
+funR = \(_ :: _) (a :: _) -> _rhs a
 
 value1 = _rhs (funL 'a' "b" :: Char)
 
@@ -13,13 +13,24 @@ value3 = _rhs (funL 'a' "b")
 
 value4 :: String
 value4 = _rhs (funR 'a' "b")
------------- trace
+------------ core code
 funL :: forall a b . a -> b -> a
+funL = \_ _ a _ -> _rhs a
+
 funR :: forall a b . a -> b -> b
+funR = \_ _ _ a -> _rhs a
+
 value1 :: Char
+value1 = _rhs 'a'
+
 value2 :: String
+value2 = _rhs "b"
+
 value3 :: Char
+value3 = _rhs 'a'
+
 value4 :: String
+value4 = _rhs "b"
 ------------ tooltips
 testdata/language-features/basic-values/typesig05.lc 1:1-1:5
     forall a b . a -> b -> a
diff --git a/testdata/language-features/basic-values/typesig06.out b/testdata/language-features/basic-values/typesig06.out
index b933dda4..5b74205a 100644
--- a/testdata/language-features/basic-values/typesig06.out
+++ b/testdata/language-features/basic-values/typesig06.out
@@ -1,17 +1,24 @@
 main is not found
 ------------ desugared source code
-funL = \(a :: _) _ -> _rhs a
+funL = \(a :: _) (_ :: _) -> _rhs a
 
-(<@) = \(a :: _) _ -> _rhs a
+(<@) = \(a :: _) (_ :: _) -> _rhs a
 
 value1 = _rhs ("hi" <@ 1.2 :: String)
 
 value2 = _rhs ("hi" `funL` 1.2 :: String)
------------- trace
+------------ core code
+<@ :: forall a b . a -> b -> a
+<@ = \_ _ a _ -> _rhs a
+
 funL :: forall a b . a -> b -> a
-(<@) :: forall a b . a -> b -> a
+funL = \_ _ a _ -> _rhs a
+
 value1 :: String
+value1 = _rhs "hi"
+
 value2 :: String
+value2 = _rhs "hi"
 ------------ tooltips
 testdata/language-features/basic-values/typesig06.lc 1:1-1:5
     forall a b . a -> b -> a
diff --git a/testdata/language-features/basic-values/typesig07.out b/testdata/language-features/basic-values/typesig07.out
index dfad6a8c..a374ab2a 100644
--- a/testdata/language-features/basic-values/typesig07.out
+++ b/testdata/language-features/basic-values/typesig07.out
@@ -10,20 +10,31 @@ value3 :: Int
 value3 = _rhs (fromInt 3)
 
 value4 :: () -> () -> ()
-value4 = \_ _ -> _rhs ()
+value4 = \(_ :: _) (_ :: _) -> _rhs ()
 
 (@@@) :: () -> () -> ()
-(@@@) = \_ _ -> _rhs ()
+(@@@) = \(_ :: _) (_ :: _) -> _rhs ()
 
 value6 :: () -> () -> ()
-value6 = \_ _ -> _rhs ()
------------- trace
+value6 = \(_ :: _) (_ :: _) -> _rhs ()
+------------ core code
+@@@ :: () -> () -> ()
+@@@ = \_ _ -> _rhs ()
+
 value1 :: Int
+value1 = _rhs 1
+
 value2 :: Int
+value2 = _rhs 2
+
 value3 :: Int
+value3 = _rhs 3
+
 value4 :: () -> () -> ()
-(@@@) :: () -> () -> ()
+value4 = \_ _ -> _rhs ()
+
 value6 :: () -> () -> ()
+value6 = \_ _ -> _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/typesig07.lc 1:27-1:30
     Type | Type | Type
diff --git a/testdata/language-features/basic-values/typesyn01.out b/testdata/language-features/basic-values/typesyn01.out
index 2d858ff5..442aeac3 100644
--- a/testdata/language-features/basic-values/typesyn01.out
+++ b/testdata/language-features/basic-values/typesyn01.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 'MyUnit = _rhs ' ()
------------- trace
+------------ core code
 'MyUnit :: Type
+'MyUnit = _rhs ' ()
 ------------ tooltips
 testdata/language-features/basic-values/typesyn01.lc 1:6-1:12
     Type
diff --git a/testdata/language-features/basic-values/typesyn02.out b/testdata/language-features/basic-values/typesyn02.out
index 5381b04b..fa019006 100644
--- a/testdata/language-features/basic-values/typesyn02.out
+++ b/testdata/language-features/basic-values/typesyn02.out
@@ -3,10 +3,13 @@ main is not found
 'MyUnit = _rhs ' ()
 
 fun :: forall (a :: _) . a -> MyUnit -> MyUnit
-fun = \_ (a :: _) -> hlistNilCase _ (_rhs ()) a
------------- trace
+fun = \(_ :: _) (a :: _) -> hlistNilCase _ (_rhs ()) a
+------------ core code
 'MyUnit :: Type
+'MyUnit = _rhs ' ()
+
 fun :: forall a . a -> MyUnit -> ()
+fun = \_ _ a -> hlistNilCase ' () (_rhs ()) a
 ------------ tooltips
 testdata/language-features/basic-values/typesyn02.lc 1:6-1:12
     Type
diff --git a/testdata/language-features/basic-values/where01.out b/testdata/language-features/basic-values/where01.out
index 82492897..843b762e 100644
--- a/testdata/language-features/basic-values/where01.out
+++ b/testdata/language-features/basic-values/where01.out
@@ -21,18 +21,39 @@ value9 = _rhs let a = _rhs (); b = _rhs () in a
 value10 = _rhs let a = _rhs (); b = _rhs () in a
 
 value11 = _rhs let a = _rhs (); b = _rhs () in a
------------- trace
+------------ core code
 value1 :: ()
+value1 = _rhs ()
+
+value10 :: ()
+value10 = _rhs ()
+
+value11 :: ()
+value11 = _rhs ()
+
 value2 :: ()
+value2 = _rhs ()
+
 value3 :: ()
+value3 = _rhs ()
+
 value4 :: ()
+value4 = _rhs ()
+
 value5 :: ()
+value5 = _rhs ()
+
 value6 :: ()
+value6 = _rhs ()
+
 value7 :: ()
+value7 = _rhs ()
+
 value8 :: ()
+value8 = _rhs ()
+
 value9 :: ()
-value10 :: ()
-value11 :: ()
+value9 = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/where01.lc 1:1-1:7
     ()
diff --git a/testdata/language-features/basic-values/where04.out b/testdata/language-features/basic-values/where04.out
index 911c7e1a..9eb5f765 100644
--- a/testdata/language-features/basic-values/where04.out
+++ b/testdata/language-features/basic-values/where04.out
@@ -5,10 +5,15 @@ value1 = _rhs let a = _rhs let b = _rhs () in b in a
 value2 = _rhs let a = _rhs let b = _rhs () in b in a
 
 value3 = _rhs let a = _rhs let b = _rhs () in b in a
------------- trace
+------------ core code
 value1 :: ()
+value1 = _rhs ()
+
 value2 :: ()
+value2 = _rhs ()
+
 value3 :: ()
+value3 = _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/where04.lc 1:1-1:7
     ()
diff --git a/testdata/language-features/basic-values/where05.out b/testdata/language-features/basic-values/where05.out
index cbfce0ea..55c7a06d 100644
--- a/testdata/language-features/basic-values/where05.out
+++ b/testdata/language-features/basic-values/where05.out
@@ -2,28 +2,59 @@ main is not found
 ------------ desugared source code
 value1
   = _rhs
-    ((\(a :: _) -> case'Bool (\_ -> _) () (let b = _rhs () in b) (fromInt 1 == a))
+    ((\(a :: _) -> case'Bool
+        (\(_ :: _) -> _)
+        ()
+        (let b = _rhs () in b)
+        (fromInt 1 == a))
       (fromInt 1))
 
 value2
   = _rhs
-    ((\(a :: _) -> case'Bool (\_ -> _) () (let b = _rhs () in b) (fromInt 1 == a))
+    ((\(a :: _) -> case'Bool
+        (\(_ :: _) -> _)
+        ()
+        (let b = _rhs () in b)
+        (fromInt 1 == a))
       (fromInt 1))
 
 value3
   = _rhs
-    ((\(a :: _) -> case'Bool (\_ -> _) () (let b = _rhs () in b) (fromInt 1 == a))
+    ((\(a :: _) -> case'Bool
+        (\(_ :: _) -> _)
+        ()
+        (let b = _rhs () in b)
+        (fromInt 1 == a))
       (fromInt 1))
 
 value4
   = _rhs
-    let a = _rhs () in (\(b :: _) -> case'Bool (\_ -> _) () a (fromInt 1 == b))
+    let a = _rhs () in (\(b :: _) -> case'Bool
+        (\(_ :: _) -> _)
+        ()
+        a
+        (fromInt 1 == b))
       (fromInt 1)
------------- trace
+------------ core code
 value1 :: forall a . (Eq a, Num a) => ()
+value1
+  = \a b c -> _rhs
+    (case'Bool (\_ -> ' ()) () () ((a == b) (fromInt a c 1) (fromInt a c 1)))
+
 value2 :: forall a . (Eq a, Num a) => ()
+value2
+  = \a b c -> _rhs
+    (case'Bool (\_ -> ' ()) () () ((a == b) (fromInt a c 1) (fromInt a c 1)))
+
 value3 :: forall a . (Eq a, Num a) => ()
+value3
+  = \a b c -> _rhs
+    (case'Bool (\_ -> ' ()) () () ((a == b) (fromInt a c 1) (fromInt a c 1)))
+
 value4 :: forall a . (Eq a, Num a) => ()
+value4
+  = \a b c -> _rhs
+    (case'Bool (\_ -> ' ()) () () ((a == b) (fromInt a c 1) (fromInt a c 1)))
 ------------ tooltips
 testdata/language-features/basic-values/where05.lc 1:1-1:7
     forall a . (Eq a, Num a) => ()
diff --git a/testdata/language-features/basic-values/wildcard01.out b/testdata/language-features/basic-values/wildcard01.out
index f13dd4d2..9fa1c034 100644
--- a/testdata/language-features/basic-values/wildcard01.out
+++ b/testdata/language-features/basic-values/wildcard01.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-funUnit = \_ -> _rhs ()
------------- trace
+funUnit = \(_ :: _) -> _rhs ()
+------------ core code
 funUnit :: forall a . a -> ()
+funUnit = \_ _ -> _rhs ()
 ------------ tooltips
 testdata/language-features/basic-values/wildcard01.lc 1:1-1:8
     forall a . a -> ()
diff --git a/testdata/language-features/comment/comment01.out b/testdata/language-features/comment/comment01.out
index 521dcdfe..790653d7 100644
--- a/testdata/language-features/comment/comment01.out
+++ b/testdata/language-features/comment/comment01.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/language-features/comment/comment02.out b/testdata/language-features/comment/comment02.out
index 521dcdfe..790653d7 100644
--- a/testdata/language-features/comment/comment02.out
+++ b/testdata/language-features/comment/comment02.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/language-features/comment/comment03.out b/testdata/language-features/comment/comment03.out
index 521dcdfe..790653d7 100644
--- a/testdata/language-features/comment/comment03.out
+++ b/testdata/language-features/comment/comment03.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/language-features/comment/comment04.out b/testdata/language-features/comment/comment04.out
index 521dcdfe..790653d7 100644
--- a/testdata/language-features/comment/comment04.out
+++ b/testdata/language-features/comment/comment04.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/language-features/emptysource.out b/testdata/language-features/emptysource.out
index 521dcdfe..790653d7 100644
--- a/testdata/language-features/emptysource.out
+++ b/testdata/language-features/emptysource.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard01.out b/testdata/language-features/guard/guard01.out
index a4d1b1be..3e232549 100644
--- a/testdata/language-features/guard/guard01.out
+++ b/testdata/language-features/guard/guard01.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-value = case'Bool (\_ -> _) (_rhs undefined) (_rhs ()) True
------------- trace
+value = case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs ()) True
+------------ core code
 value :: ()
+value = _rhs ()
 ------------ tooltips
 testdata/language-features/guard/guard01.lc 1:1-1:6
     ()
diff --git a/testdata/language-features/guard/guard03.out b/testdata/language-features/guard/guard03.out
index 6540522a..3e44257a 100644
--- a/testdata/language-features/guard/guard03.out
+++ b/testdata/language-features/guard/guard03.out
@@ -2,12 +2,13 @@ main is not found
 ------------ desugared source code
 value
   = case'Bool
-    (\_ -> _)
-    (case'Bool (\_ -> _) (_rhs undefined) (_rhs "False") False)
+    (\(_ :: _) -> _)
+    (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False)
     (_rhs "True")
     True
------------- trace
+------------ core code
 value :: String
+value = _rhs "True"
 ------------ tooltips
 testdata/language-features/guard/guard03.lc 1:1-1:6
     String
diff --git a/testdata/language-features/guard/guard04.out b/testdata/language-features/guard/guard04.out
index 5b55275b..3becb569 100644
--- a/testdata/language-features/guard/guard04.out
+++ b/testdata/language-features/guard/guard04.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-value = case'Bool (\_ -> _) (_rhs "False") (_rhs "True") True
------------- trace
+value = case'Bool (\(_ :: _) -> _) (_rhs "False") (_rhs "True") True
+------------ core code
 value :: String
+value = _rhs "True"
 ------------ tooltips
 testdata/language-features/guard/guard04.lc 1:1-1:6
     String
diff --git a/testdata/language-features/guard/guard06.out b/testdata/language-features/guard/guard06.out
index e4a81609..aa385877 100644
--- a/testdata/language-features/guard/guard06.out
+++ b/testdata/language-features/guard/guard06.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 value = _rhs ()
------------- trace
+------------ core code
 value :: ()
+value = _rhs ()
 ------------ tooltips
 testdata/language-features/guard/guard06.lc 1:1-1:6
     ()
diff --git a/testdata/language-features/guard/guard07.out b/testdata/language-features/guard/guard07.out
index acd4ea18..81726eed 100644
--- a/testdata/language-features/guard/guard07.out
+++ b/testdata/language-features/guard/guard07.out
@@ -2,12 +2,13 @@ main is not found
 ------------ desugared source code
 value
   = case'Bool
-    (\_ -> _)
-    (case'Bool (\_ -> _) (_rhs undefined) (_rhs "False") False)
+    (\(_ :: _) -> _)
+    (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False)
     (_rhs "True")
     True
------------- trace
+------------ core code
 value :: String
+value = _rhs "True"
 ------------ tooltips
 testdata/language-features/guard/guard07.lc 1:1-1:6
     String
diff --git a/testdata/language-features/guard/guard08.out b/testdata/language-features/guard/guard08.out
index 1f5e5ab3..5d6e6bdc 100644
--- a/testdata/language-features/guard/guard08.out
+++ b/testdata/language-features/guard/guard08.out
@@ -2,12 +2,13 @@ main is not found
 ------------ desugared source code
 value
   = case'Bool
-    (\_ -> _)
-    (case'Bool (\_ -> _) (_rhs undefined) (_rhs "False") False)
+    (\(_ :: _) -> _)
+    (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False)
     (_rhs "True")
     True
------------- trace
+------------ core code
 value :: String
+value = _rhs "True"
 ------------ tooltips
 testdata/language-features/guard/guard08.lc 1:1-1:6
     String
diff --git a/testdata/language-features/guard/guard09.out b/testdata/language-features/guard/guard09.out
index 1aa3c7a2..4b580469 100644
--- a/testdata/language-features/guard/guard09.out
+++ b/testdata/language-features/guard/guard09.out
@@ -2,12 +2,13 @@ main is not found
 ------------ desugared source code
 value
   = case'Bool
-    (\_ -> _)
-    (case'Bool (\_ -> _) (_rhs undefined) (_rhs "False") False)
+    (\(_ :: _) -> _)
+    (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False)
     (_rhs "True")
     True
------------- trace
+------------ core code
 value :: String
+value = _rhs "True"
 ------------ tooltips
 testdata/language-features/guard/guard09.lc 1:1-1:6
     String
diff --git a/testdata/language-features/guard/guard11.out b/testdata/language-features/guard/guard11.out
index b8449128..a08332c1 100644
--- a/testdata/language-features/guard/guard11.out
+++ b/testdata/language-features/guard/guard11.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-fun = \(a :: _) -> case'Bool (\_ -> _) (_rhs "False") (_rhs "True") a
------------- trace
+fun = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs "False") (_rhs "True") a
+------------ core code
 fun :: Bool -> String
+fun = \a -> case'Bool (\_ -> 'String) (_rhs "False") (_rhs "True") a
 ------------ tooltips
 testdata/language-features/guard/guard11.lc 1:1-1:4
     Bool -> String
diff --git a/testdata/language-features/guard/guard13.out b/testdata/language-features/guard/guard13.out
index 56ac235a..5498c290 100644
--- a/testdata/language-features/guard/guard13.out
+++ b/testdata/language-features/guard/guard13.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-fun = \(a :: _) -> case'Bool (\_ -> _) (_rhs ()) (_rhs ()) a
------------- trace
+fun = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) a
+------------ core code
 fun :: Bool -> ()
+fun = \a -> case'Bool (\_ -> ' ()) (_rhs ()) (_rhs ()) a
 ------------ tooltips
 testdata/language-features/guard/guard13.lc 1:1-1:4
     Bool -> ()
diff --git a/testdata/language-features/guard/guard14.out b/testdata/language-features/guard/guard14.out
index aabcc1c6..6e6f225c 100644
--- a/testdata/language-features/guard/guard14.out
+++ b/testdata/language-features/guard/guard14.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-value = _rhs let a = case'Bool (\_ -> _) (_rhs ()) (_rhs ()) True in ()
------------- trace
+value = _rhs let a = case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) True in ()
+------------ core code
 value :: ()
+value = _rhs ()
 ------------ tooltips
 testdata/language-features/guard/guard14.lc 1:1-1:6
     ()
diff --git a/testdata/language-features/guard/guard15.out b/testdata/language-features/guard/guard15.out
index 68d58632..3d01ff73 100644
--- a/testdata/language-features/guard/guard15.out
+++ b/testdata/language-features/guard/guard15.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-value = _rhs let a = case'Bool (\_ -> _) (_rhs ()) (_rhs ()) True in ()
------------- trace
+value = _rhs let a = case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) True in ()
+------------ core code
 value :: ()
+value = _rhs ()
 ------------ tooltips
 testdata/language-features/guard/guard15.lc 1:1-1:6
     ()
diff --git a/testdata/language-features/guard/guard16.out b/testdata/language-features/guard/guard16.out
index 99d1d9b9..1a574cf7 100644
--- a/testdata/language-features/guard/guard16.out
+++ b/testdata/language-features/guard/guard16.out
@@ -3,13 +3,16 @@ main is not found
 value
   = _rhs
     ((\(a :: _) -> case'Bool
-        (\_ -> _)
+        (\(_ :: _) -> _)
         ()
-        (case'Bool (\_ -> _) () () True)
+        (case'Bool (\(_ :: _) -> _) () () True)
         (fromInt 1 == a))
       (fromInt 1))
------------- trace
+------------ core code
 value :: forall a . (Eq a, Num a) => ()
+value
+  = \a b c -> _rhs
+    (case'Bool (\_ -> ' ()) () () ((a == b) (fromInt a c 1) (fromInt a c 1)))
 ------------ tooltips
 testdata/language-features/guard/guard16.lc 1:1-1:6
     forall a . (Eq a, Num a) => ()
diff --git a/testdata/language-features/module/Hello01.out b/testdata/language-features/module/Hello01.out
index 34f3f918..0c553aa4 100644
--- a/testdata/language-features/module/Hello01.out
+++ b/testdata/language-features/module/Hello01.out
@@ -3,9 +3,12 @@ main is not found
 hello = _rhs "hello"
 
 world = _rhs "world"
------------- trace
+------------ core code
 hello :: String
+hello = _rhs "hello"
+
 world :: String
+world = _rhs "world"
 ------------ tooltips
 testdata/language-features/module/Hello01.lc 3:1-3:6
     String
diff --git a/testdata/language-features/module/Hello02.out b/testdata/language-features/module/Hello02.out
index fc3a7be7..86d52127 100644
--- a/testdata/language-features/module/Hello02.out
+++ b/testdata/language-features/module/Hello02.out
@@ -3,9 +3,9 @@ main is not found
 hello = _rhs "hello"
 
 world = _rhs "world"
------------- trace
+------------ core code
 hello :: String
-world :: String
+hello = _rhs "hello"
 ------------ tooltips
 testdata/language-features/module/Hello02.lc 3:1-3:6
     String
diff --git a/testdata/language-features/module/Hello03.out b/testdata/language-features/module/Hello03.out
index 8a645fda..66b7e036 100644
--- a/testdata/language-features/module/Hello03.out
+++ b/testdata/language-features/module/Hello03.out
@@ -3,9 +3,9 @@ main is not found
 greeting = _rhs 'G'
 
 value = _rhs 12.2
------------- trace
+------------ core code
 greeting :: Char
-value :: Float
+greeting = _rhs 'G'
 ------------ tooltips
 testdata/language-features/module/Hello03.lc 7:1-7:9
     Char
diff --git a/testdata/language-features/module/ModulePackage/SubModule01.out b/testdata/language-features/module/ModulePackage/SubModule01.out
index 119eaeac..71c67233 100644
--- a/testdata/language-features/module/ModulePackage/SubModule01.out
+++ b/testdata/language-features/module/ModulePackage/SubModule01.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 hello = _rhs "Hello"
------------- trace
+------------ core code
 hello :: String
+hello = _rhs "Hello"
 ------------ tooltips
 testdata/language-features/module/ModulePackage/SubModule01.lc 3:1-3:6
     String
diff --git a/testdata/language-features/module/Moduledef01.out b/testdata/language-features/module/Moduledef01.out
index 521dcdfe..790653d7 100644
--- a/testdata/language-features/module/Moduledef01.out
+++ b/testdata/language-features/module/Moduledef01.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/language-features/module/Moduledef06.out b/testdata/language-features/module/Moduledef06.out
index ef523d5a..5036cb7f 100644
--- a/testdata/language-features/module/Moduledef06.out
+++ b/testdata/language-features/module/Moduledef06.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 hello = _rhs "hello"
------------- trace
+------------ core code
 hello :: String
+hello = _rhs "hello"
 ------------ tooltips
 testdata/language-features/module/Moduledef06.lc 3:1-3:6
     String
diff --git a/testdata/language-features/module/Moduledef07.out b/testdata/language-features/module/Moduledef07.out
index ac2aa83e..b75130a3 100644
--- a/testdata/language-features/module/Moduledef07.out
+++ b/testdata/language-features/module/Moduledef07.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 hello = _rhs "hello"
------------- trace
+------------ core code
 hello :: String
+hello = _rhs "hello"
 ------------ tooltips
 testdata/language-features/module/Moduledef07.lc 5:1-5:6
     String
diff --git a/testdata/language-features/module/Moduledef08.out b/testdata/language-features/module/Moduledef08.out
index e2b3e946..4b1c55aa 100644
--- a/testdata/language-features/module/Moduledef08.out
+++ b/testdata/language-features/module/Moduledef08.out
@@ -1,8 +1,7 @@
 main is not found
 ------------ desugared source code
 hello = _rhs "hello"
------------- trace
-hello :: String
+------------ core code
 ------------ tooltips
 testdata/language-features/module/Moduledef08.lc 5:1-5:6
     String
diff --git a/testdata/language-features/module/Moduledef09.out b/testdata/language-features/module/Moduledef09.out
index 503326bb..0aea411c 100644
--- a/testdata/language-features/module/Moduledef09.out
+++ b/testdata/language-features/module/Moduledef09.out
@@ -3,9 +3,9 @@ main is not found
 hello = _rhs "hello"
 
 world = _rhs "world"
------------- trace
+------------ core code
 hello :: String
-world :: String
+hello = _rhs "hello"
 ------------ tooltips
 testdata/language-features/module/Moduledef09.lc 5:1-5:6
     String
diff --git a/testdata/language-features/module/Moduledef10.out b/testdata/language-features/module/Moduledef10.out
index 70a9525c..ec9a574e 100644
--- a/testdata/language-features/module/Moduledef10.out
+++ b/testdata/language-features/module/Moduledef10.out
@@ -5,10 +5,12 @@ hello = _rhs "hello"
 world = _rhs "world"
 
 value = _rhs ()
------------- trace
+------------ core code
 hello :: String
+hello = _rhs "hello"
+
 world :: String
-value :: ()
+world = _rhs "world"
 ------------ tooltips
 testdata/language-features/module/Moduledef10.lc 6:1-6:6
     String
diff --git a/testdata/language-features/module/Moduledef13.out b/testdata/language-features/module/Moduledef13.out
index 90ae50c7..f1cf03de 100644
--- a/testdata/language-features/module/Moduledef13.out
+++ b/testdata/language-features/module/Moduledef13.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 hello = _rhs "hello"
------------- trace
+------------ core code
 hello :: String
+hello = _rhs "hello"
 ------------ tooltips
 testdata/language-features/module/Moduledef13.lc 3:1-3:6
     String
diff --git a/testdata/language-features/module/TypeSyn01Mod.out b/testdata/language-features/module/TypeSyn01Mod.out
index 796185a0..109f5ee9 100644
--- a/testdata/language-features/module/TypeSyn01Mod.out
+++ b/testdata/language-features/module/TypeSyn01Mod.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 'MyUnit = _rhs ' ()
------------- trace
+------------ core code
 'MyUnit :: Type
+'MyUnit = _rhs ' ()
 ------------ tooltips
 testdata/language-features/module/TypeSyn01Mod.lc 2:6-2:12
     Type
diff --git a/testdata/language-features/module/import01.out b/testdata/language-features/module/import01.out
index 531eae39..6ccf9702 100644
--- a/testdata/language-features/module/import01.out
+++ b/testdata/language-features/module/import01.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 x = _rhs hello
------------- trace
+------------ core code
 x :: String
+x = _rhs "hello"
 ------------ tooltips
 testdata/language-features/module/import01.lc 3:1-3:2
     String
diff --git a/testdata/language-features/module/import05.out b/testdata/language-features/module/import05.out
index 9dfe0dba..3d820de9 100644
--- a/testdata/language-features/module/import05.out
+++ b/testdata/language-features/module/import05.out
@@ -2,8 +2,9 @@ main is not found
 ------------ desugared source code
 x :: String
 x = _rhs hello
------------- trace
+------------ core code
 x :: String
+x = _rhs "hello"
 ------------ tooltips
 testdata/language-features/module/import05.lc 3:6-3:12
     Type
diff --git a/testdata/language-features/module/import06.out b/testdata/language-features/module/import06.out
index 735c1544..ae0e10e5 100644
--- a/testdata/language-features/module/import06.out
+++ b/testdata/language-features/module/import06.out
@@ -3,9 +3,12 @@ main is not found
 hello = _rhs ()
 
 x = _rhs world
------------- trace
+------------ core code
 hello :: ()
+hello = _rhs ()
+
 x :: String
+x = _rhs "world"
 ------------ tooltips
 testdata/language-features/module/import06.lc 3:1-3:6
     ()
diff --git a/testdata/language-features/module/import07.out b/testdata/language-features/module/import07.out
index bcbe4e32..31cb267f 100644
--- a/testdata/language-features/module/import07.out
+++ b/testdata/language-features/module/import07.out
@@ -3,9 +3,12 @@ main is not found
 hello = _rhs ()
 
 x = _rhs world
------------- trace
+------------ core code
 hello :: ()
+hello = _rhs ()
+
 x :: String
+x = _rhs "world"
 ------------ tooltips
 testdata/language-features/module/import07.lc 3:1-3:6
     ()
diff --git a/testdata/language-features/module/import08.out b/testdata/language-features/module/import08.out
index 4d9e057c..e68b7bcd 100644
--- a/testdata/language-features/module/import08.out
+++ b/testdata/language-features/module/import08.out
@@ -10,11 +10,18 @@ h = _rhs hello
 
 w :: String
 w = _rhs world
------------- trace
-value :: ()
+------------ core code
 g :: Char
+g = _rhs 'G'
+
 h :: String
+h = _rhs "hello"
+
+value :: ()
+value = _rhs ()
+
 w :: String
+w = _rhs "world"
 ------------ tooltips
 testdata/language-features/module/import08.lc 3:1-3:6
     ()
diff --git a/testdata/language-features/module/import09.out b/testdata/language-features/module/import09.out
index 58440063..c8e689e5 100644
--- a/testdata/language-features/module/import09.out
+++ b/testdata/language-features/module/import09.out
@@ -1,9 +1,10 @@
 main is not found
 ------------ desugared source code
 fun :: forall (a :: _) . a -> MyUnit -> MyUnit
-fun = \_ (a :: _) -> hlistNilCase _ (_rhs ()) a
------------- trace
+fun = \(_ :: _) (a :: _) -> hlistNilCase _ (_rhs ()) a
+------------ core code
 fun :: forall a . a -> MyUnit -> ()
+fun = \_ _ a -> hlistNilCase ' () (_rhs ()) a
 ------------ tooltips
 testdata/language-features/module/import09.lc 3:8-3:9
     _b
diff --git a/testdata/language-features/module/import12.out b/testdata/language-features/module/import12.out
index df4d894b..26a58bd3 100644
--- a/testdata/language-features/module/import12.out
+++ b/testdata/language-features/module/import12.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 fun = _rhs hello
------------- trace
+------------ core code
 fun :: String
+fun = _rhs "hello"
 ------------ tooltips
 testdata/language-features/module/import12.lc 4:1-4:4
     String
diff --git a/testdata/language-features/module/import13.out b/testdata/language-features/module/import13.out
index 68ed44d8..5a9791da 100644
--- a/testdata/language-features/module/import13.out
+++ b/testdata/language-features/module/import13.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 fun = _rhs hello
------------- trace
+------------ core code
 fun :: String
+fun = _rhs "hello"
 ------------ tooltips
 testdata/language-features/module/import13.lc 4:1-4:4
     String
diff --git a/testdata/language-features/module/import14.out b/testdata/language-features/module/import14.out
index 958207ba..a2feaea6 100644
--- a/testdata/language-features/module/import14.out
+++ b/testdata/language-features/module/import14.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 fun = _rhs hello
------------- trace
+------------ core code
 fun :: String
+fun = _rhs "hello"
 ------------ tooltips
 testdata/language-features/module/import14.lc 4:1-4:4
     String
diff --git a/testdata/language-features/module/import15.out b/testdata/language-features/module/import15.out
index 8727ac08..7e58a5c7 100644
--- a/testdata/language-features/module/import15.out
+++ b/testdata/language-features/module/import15.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 fun = _rhs hello
------------- trace
+------------ core code
 fun :: String
+fun = _rhs "Hello"
 ------------ tooltips
 testdata/language-features/module/import15.lc 3:1-3:4
     String
diff --git a/testdata/language-features/pattern/pattern01.out b/testdata/language-features/pattern/pattern01.out
index eeda616d..b01ea25b 100644
--- a/testdata/language-features/pattern/pattern01.out
+++ b/testdata/language-features/pattern/pattern01.out
@@ -1,17 +1,40 @@
 main is not found
 ------------ desugared source code
-fun1 = \(a :: _) -> case'Bool (\_ -> _) (_rhs '_') (_rhs '0') (fromInt 0 == a)
+fun1
+  = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') (fromInt 0 == a)
 
-fun2 = \(a :: _) -> case'Bool (\_ -> _) (_rhs '_') (_rhs '0') ("0" == a)
+fun2 = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') ("0" == a)
 
-fun3 = \(a :: _) -> case'Bool (\_ -> _) (_rhs '_') (_rhs '0') ('0' == a)
+fun3 = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') ('0' == a)
 
 fun4 = \(a :: _) -> hlistNilCase _ (_rhs '0') a
------------- trace
+------------ core code
 fun1 :: forall a . (Eq a, Num a) => a -> Char
+fun1
+  = \a b c d -> case'Bool
+    (\_ -> 'Char)
+    (_rhs '_')
+    (_rhs '0')
+    ((a == b) (fromInt a c 0) d)
+
 fun2 :: String -> Char
+fun2
+  = \a -> case'Bool
+    (\_ -> 'Char)
+    (_rhs '_')
+    (_rhs '0')
+    (isEQ (primCompareString "0" a))
+
 fun3 :: Char -> Char
+fun3
+  = \a -> case'Bool
+    (\_ -> 'Char)
+    (_rhs '_')
+    (_rhs '0')
+    (isEQ (primCompareChar '0' a))
+
 fun4 :: () -> Char
+fun4 = \a -> hlistNilCase 'Char (_rhs '0') a
 ------------ tooltips
 testdata/language-features/pattern/pattern01.lc 1:1-1:5
     forall a . (Eq a, Num a) => a -> Char
diff --git a/testdata/language-features/pattern/uncovered.out b/testdata/language-features/pattern/uncovered.out
index ab9ba45e..b461ff6e 100644
--- a/testdata/language-features/pattern/uncovered.out
+++ b/testdata/language-features/pattern/uncovered.out
@@ -2,38 +2,42 @@ main is not found
 ------------ desugared source code
 f
   = \(a :: _) (b :: _) (c :: _) -> case'Bool
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (case'Bool
-      (\_ -> _)
-      (case'Bool (\_ -> _) (_rhs undefined) (_rhs (fromInt 1)) c)
+      (\(_ :: _) -> _)
+      (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs (fromInt 1)) c)
       (_rhs (fromInt 2))
       a)
     (case'Bool
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs (fromInt 0))
-      (case'Bool (\_ -> _) (_rhs (fromInt 1)) (_rhs undefined) a)
+      (case'Bool (\(_ :: _) -> _) (_rhs (fromInt 1)) (_rhs undefined) a)
       c)
     b
 
 g
   = \(a :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs undefined)
     (\(b :: _) (c :: _) -> case'Bool
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs undefined)
       (case'List
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs undefined)
         (\(d :: _) (e :: _) -> case'Bool
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (case'List
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (_rhs undefined)
             (\(f :: _) (g :: _) -> case'Bool
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (_rhs undefined)
-              (case'List (\_ -> _) (_rhs False) (\_ _ -> _rhs undefined) g)
+              (case'List
+                (\(_ :: _) -> _)
+                (_rhs False)
+                (\(_ :: _) (_ :: _) -> _rhs undefined)
+                g)
               f)
             e)
           (_rhs undefined)
@@ -44,42 +48,122 @@ g
 
 h
   = \(a :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs undefined)
     (\(b :: _) (c :: _) -> case'List
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs undefined)
       (\(d :: _) (e :: _) -> case'Bool
-        (\_ -> _)
+        (\(_ :: _) -> _)
         (_rhs undefined)
         (case'List
-          (\_ -> _)
+          (\(_ :: _) -> _)
           (case'List
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (_rhs undefined)
             (\(f :: _) (g :: _) -> case'List
-              (\_ -> _)
+              (\(_ :: _) -> _)
               (_rhs undefined)
               (\(h :: _) (i :: _) -> case'Bool
-                (\_ -> _)
+                (\(_ :: _) -> _)
                 (case'List
-                  (\_ -> _)
-                  (case'List (\_ -> _) (_rhs True) (\_ _ -> _rhs undefined) g)
-                  (\_ _ -> _rhs undefined)
+                  (\(_ :: _) -> _)
+                  (case'List
+                    (\(_ :: _) -> _)
+                    (_rhs True)
+                    (\(_ :: _) (_ :: _) -> _rhs undefined)
+                    g)
+                  (\(_ :: _) (_ :: _) -> _rhs undefined)
                   i)
                 (_rhs undefined)
                 h)
               f)
             c)
-          (\_ _ -> _rhs undefined)
+          (\(_ :: _) (_ :: _) -> _rhs undefined)
           e)
         d)
       b)
     a
------------- trace
+------------ core code
 f :: forall a . Num a => Bool -> Bool -> Bool -> a
+f
+  = \a b c d e -> case'Bool
+    (\_ -> a)
+    (case'Bool
+      (\_ -> a)
+      (case'Bool (\_ -> a) (_rhs (undefined a)) (_rhs (fromInt a b 1)) e)
+      (_rhs (fromInt a b 2))
+      c)
+    (case'Bool
+      (\_ -> a)
+      (_rhs (fromInt a b 0))
+      (case'Bool (\_ -> a) (_rhs (fromInt a b 1)) (_rhs (undefined a)) c)
+      e)
+    d
+
 g :: [Bool] -> Bool
+g
+  = \a -> case'List
+    (\_ -> 'Bool)
+    (_rhs (undefined 'Bool))
+    (\b c -> case'Bool
+      (\_ -> 'Bool)
+      (_rhs (undefined 'Bool))
+      (case'List
+        (\_ -> 'Bool)
+        (_rhs (undefined 'Bool))
+        (\d e -> case'Bool
+          (\_ -> 'Bool)
+          (case'List
+            (\_ -> 'Bool)
+            (_rhs (undefined 'Bool))
+            (\f g -> case'Bool
+              (\_ -> 'Bool)
+              (_rhs (undefined 'Bool))
+              (case'List (\_ -> 'Bool) (_rhs False) (\_ _ -> _rhs (undefined 'Bool)) g)
+              f)
+            e)
+          (_rhs (undefined 'Bool))
+          d)
+        c)
+      b)
+    a
+
 h :: [[Bool]] -> Bool
+h
+  = \a -> case'List
+    (\_ -> 'Bool)
+    (_rhs (undefined 'Bool))
+    (\b c -> case'List
+      (\_ -> 'Bool)
+      (_rhs (undefined 'Bool))
+      (\d e -> case'Bool
+        (\_ -> 'Bool)
+        (_rhs (undefined 'Bool))
+        (case'List
+          (\_ -> 'Bool)
+          (case'List
+            (\_ -> 'Bool)
+            (_rhs (undefined 'Bool))
+            (\f g -> case'List
+              (\_ -> 'Bool)
+              (_rhs (undefined 'Bool))
+              (\h i -> case'Bool
+                (\_ -> 'Bool)
+                (case'List
+                  (\_ -> 'Bool)
+                  (case'List (\_ -> 'Bool) (_rhs True) (\_ _ -> _rhs (undefined 'Bool)) g)
+                  (\_ _ -> _rhs (undefined 'Bool))
+                  i)
+                (_rhs (undefined 'Bool))
+                h)
+              f)
+            c)
+          (\_ _ -> _rhs (undefined 'Bool))
+          e)
+        d)
+      b)
+    a
 ------------ tooltips
 testdata/language-features/pattern/uncovered.lc 2:1-2:2
     forall a . Num a => Bool -> Bool -> Bool -> a
diff --git a/testdata/language-features/pattern/unreachable.out b/testdata/language-features/pattern/unreachable.out
index f7961855..e8991ac1 100644
--- a/testdata/language-features/pattern/unreachable.out
+++ b/testdata/language-features/pattern/unreachable.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
-f = \_ -> _rhs "hello"
------------- trace
+f = \(_ :: _) -> _rhs "hello"
+------------ core code
 f :: forall a . a -> String
+f = \_ _ -> _rhs "hello"
 ------------ tooltips
 testdata/language-features/pattern/unreachable.lc 4:1-4:2
     forall a . a -> String
diff --git a/testdata/language-features/pragma/pragma01.out b/testdata/language-features/pragma/pragma01.out
index 521dcdfe..790653d7 100644
--- a/testdata/language-features/pragma/pragma01.out
+++ b/testdata/language-features/pragma/pragma01.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/language-features/pragma/pragma02.out b/testdata/language-features/pragma/pragma02.out
index 521dcdfe..790653d7 100644
--- a/testdata/language-features/pragma/pragma02.out
+++ b/testdata/language-features/pragma/pragma02.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/language-features/pragma/pragma03.out b/testdata/language-features/pragma/pragma03.out
index 521dcdfe..790653d7 100644
--- a/testdata/language-features/pragma/pragma03.out
+++ b/testdata/language-features/pragma/pragma03.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/language-features/pragma/pragma04.out b/testdata/language-features/pragma/pragma04.out
index 521dcdfe..790653d7 100644
--- a/testdata/language-features/pragma/pragma04.out
+++ b/testdata/language-features/pragma/pragma04.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/language-features/recursion/simplerec01.out b/testdata/language-features/recursion/simplerec01.out
index 656adc64..f6732e0f 100644
--- a/testdata/language-features/recursion/simplerec01.out
+++ b/testdata/language-features/recursion/simplerec01.out
@@ -2,12 +2,20 @@ main is not found
 ------------ desugared source code
 fun
   = \(a :: _) -> case'Bool
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs (fun (fromInt 0)))
     (_rhs 'a')
     (fromInt 0 == a)
------------- trace
+------------ core code
 fun :: forall a . (Num a, Eq a, Num a) => a -> Char
+fun
+  = \a b c d -> primFix
+    (a -> 'Char)
+    \e f -> case'Bool
+      (\_ -> 'Char)
+      (_rhs (e (fromInt a b 0)))
+      (_rhs 'a')
+      ((a == c) (fromInt a d 0) f)
 ------------ tooltips
 testdata/language-features/recursion/simplerec01.lc 1:1-1:4
     forall a . (Num a, Eq a, Num a) => a -> Char
diff --git a/testdata/language-features/recursion/simplerec02.out b/testdata/language-features/recursion/simplerec02.out
index 3155a2a2..39e52ba0 100644
--- a/testdata/language-features/recursion/simplerec02.out
+++ b/testdata/language-features/recursion/simplerec02.out
@@ -6,13 +6,14 @@ value
       a
         = primFix
           \(b :: _) (c :: _) -> case'Bool
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (_rhs (b (fromInt 0)))
             (_rhs 'a')
             (fromInt 0 == c)
       in ()
------------- trace
+------------ core code
 value :: ()
+value = _rhs ()
 ------------ tooltips
 testdata/language-features/recursion/simplerec02.lc 1:1-1:6
     ()
diff --git a/testdata/language-features/recursion/simplerec03.out b/testdata/language-features/recursion/simplerec03.out
index 0b36d193..32df69c1 100644
--- a/testdata/language-features/recursion/simplerec03.out
+++ b/testdata/language-features/recursion/simplerec03.out
@@ -6,13 +6,14 @@ value
       a
         = primFix
           \(b :: _) (c :: _) -> case'Bool
-            (\_ -> _)
+            (\(_ :: _) -> _)
             (_rhs (b (fromInt 0)))
             (_rhs 'a')
             (fromInt 0 == c)
       in ()
------------- trace
+------------ core code
 value :: ()
+value = _rhs ()
 ------------ tooltips
 testdata/language-features/recursion/simplerec03.lc 1:1-1:6
     ()
diff --git a/testdata/language-features/section/section01.out b/testdata/language-features/section/section01.out
index f8f8b791..d99e803e 100644
--- a/testdata/language-features/section/section01.out
+++ b/testdata/language-features/section/section01.out
@@ -1,14 +1,19 @@
 main is not found
 ------------ desugared source code
-(!@!) = \_ _ -> _rhs ()
+(!@!) = \(_ :: _) (_ :: _) -> _rhs ()
 
 value1 = \(a :: _) -> _rhs \(b :: _) -> a !@! b
 
 value2 = \(a :: _) -> _rhs \(b :: _) -> b !@! a
------------- trace
-(!@!) :: forall a b . a -> b -> ()
+------------ core code
+!@! :: forall a b . a -> b -> ()
+!@! = \_ _ _ _ -> _rhs ()
+
 value1 :: forall a b . a -> b -> ()
+value1 = \a b c -> _rhs \d -> ()
+
 value2 :: forall a b . a -> b -> ()
+value2 = \a b c -> _rhs \d -> ()
 ------------ tooltips
 testdata/language-features/section/section01.lc 1:3-1:6
     forall a b . a -> b -> ()
diff --git a/testdata/let.lc b/testdata/let.lc
index 2ba0749e..c2896c80 100644
--- a/testdata/let.lc
+++ b/testdata/let.lc
@@ -1,4 +1,7 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+import Internals
+
+id x = x
 
 f x = let y = id x in y
---f x = (\y -> y) (id x)
 
diff --git a/testdata/let.out b/testdata/let.out
index b9caae94..538f8977 100644
--- a/testdata/let.out
+++ b/testdata/let.out
@@ -1,16 +1,26 @@
 main is not found
 ------------ desugared source code
+id = \(a :: _) -> _rhs a
+
 f = \(a :: _) -> _rhs let b = _rhs (id a) in b
------------- trace
+------------ core code
 f :: forall a . a -> a
+f = \a b -> _rhs b
+
+id :: forall a . a -> a
+id = \_ a -> _rhs a
 ------------ tooltips
-testdata/let.lc 2:1-2:2
+testdata/let.lc 4:1-4:3
     forall a . a -> a
-testdata/let.lc 2:15-2:17
+testdata/let.lc 4:8-4:9
+    _b
+testdata/let.lc 6:1-6:2
+    forall a . a -> a
+testdata/let.lc 6:15-6:17
     forall a . a -> a
-testdata/let.lc 2:15-2:19
+testdata/let.lc 6:15-6:19
     _b
-testdata/let.lc 2:18-2:19
+testdata/let.lc 6:18-6:19
     _c
-testdata/let.lc 2:23-2:24
+testdata/let.lc 6:23-6:24
     _c
\ No newline at end of file
diff --git a/testdata/letIndent.out b/testdata/letIndent.out
index 8818ab73..3d5160fb 100644
--- a/testdata/letIndent.out
+++ b/testdata/letIndent.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 fun = \(a :: _) -> _rhs let b = _rhs (fromInt 1); c = _rhs (fromInt 2) in a
------------- trace
+------------ core code
 fun :: forall a . a -> a
+fun = \_ a -> _rhs a
 ------------ tooltips
 testdata/letIndent.lc 2:1-2:4
     forall a . a -> a
diff --git a/testdata/localfun2.lc b/testdata/localfun2.lc
new file mode 100644
index 00000000..70055b0b
--- /dev/null
+++ b/testdata/localfun2.lc
@@ -0,0 +1,11 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+import Internals
+
+split [] = ([], [])
+split (x: xs) = (x: bs, as)  where (as, bs) = split xs
+
+{-
+main = case split [True, True] of
+    ([True], [True]) -> True
+-}
+
diff --git a/testdata/localfun2.out b/testdata/localfun2.out
new file mode 100644
index 00000000..e4d0cd45
--- /dev/null
+++ b/testdata/localfun2.out
@@ -0,0 +1,89 @@
+main is not found
+------------ desugared source code
+split
+  = \(a :: _) -> case'List
+    (\(_ :: _) -> _)
+    (_rhs ([], []))
+    (\(b :: _) (c :: _) -> _rhs
+      let
+        d = _rhs (split c);
+        e
+          = _rhs
+            ((\(g :: _) -> hlistConsCase
+                _
+                (\(_ :: _) (h :: _) -> hlistConsCase
+                  _
+                  (\(i :: _) (j :: _) -> hlistNilCase _ i j)
+                  h)
+                g)
+              d);
+        f
+          = _rhs
+            ((\(k :: _) -> hlistConsCase
+                _
+                (\(l :: _) (m :: _) -> hlistConsCase
+                  _
+                  (\(_ :: _) (n :: _) -> hlistNilCase _ l n)
+                  m)
+                k)
+              d)
+        in (b : e, f))
+    a
+------------ core code
+split :: forall a . [a] -> ([a], [a])
+split
+  = \a -> primFix
+    ([a] -> ' ([a], [a]))
+    \b c -> case'List
+      (\_ -> ' ([a], [a]))
+      (_rhs ([], []))
+      (\d e -> _rhs
+        (d
+          : hlistConsCase
+            [a]
+            [[a]]
+            [a]
+            (\_ f -> hlistConsCase [a] [] [a] (\g h -> hlistNilCase [a] g h) f)
+            (b e)
+        , hlistConsCase
+          [a]
+          [[a]]
+          [a]
+          (\i j -> hlistConsCase [a] [] [a] (\_ k -> hlistNilCase [a] i k) j)
+          (b e)))
+      c
+------------ tooltips
+testdata/localfun2.lc 4:1-4:6
+    forall a . [a] -> ([a], [a])
+testdata/localfun2.lc 4:12-4:20
+    ([_b], [_a])
+testdata/localfun2.lc 4:12-5:55
+    [_b] -> ([_b], [_a])
+testdata/localfun2.lc 4:13-4:15
+    forall a . [a]
+testdata/localfun2.lc 4:17-4:19
+    forall a . [a] | (([_a]))
+testdata/localfun2.lc 5:17-5:28
+    ([_i], _c)
+testdata/localfun2.lc 5:18-5:19
+    _m
+testdata/localfun2.lc 5:18-5:20
+    [_l] -> [_l]
+testdata/localfun2.lc 5:18-5:23
+    [_j]
+testdata/localfun2.lc 5:19-5:20
+    forall a . a -> [a] -> [a]
+testdata/localfun2.lc 5:21-5:23
+    _d
+testdata/localfun2.lc 5:25-5:27
+    _f | ((_c))
+testdata/localfun2.lc 5:37-5:39
+    _k | _h | _d
+testdata/localfun2.lc 5:37-5:43
+    _d | (_e, _d)
+testdata/localfun2.lc 5:41-5:43
+    _f | _c | _c
+testdata/localfun2.lc 5:47-5:52
+    _i
+testdata/localfun2.lc 5:53-5:55
+    [_h]
\ No newline at end of file
diff --git a/testdata/performance/Material.out b/testdata/performance/Material.out
index 1a615e54..a88e95ca 100644
--- a/testdata/performance/Material.out
+++ b/testdata/performance/Material.out
@@ -9,14 +9,29 @@ data Entity :: Type where
         -> Vec (fromInt 4) Float
           -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity
 
-eAmbientLight = \(a :: _) -> case'Entity (\_ -> _) (\(b :: _) _ _ _ -> _rhs b) a
+eAmbientLight
+  = \(a :: _) -> case'Entity
+    (\(_ :: _) -> _)
+    (\(b :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs b)
+    a
 
 eDirectedLight
-  = \(a :: _) -> case'Entity (\_ -> _) (\_ (b :: _) _ _ -> _rhs b) a
+  = \(a :: _) -> case'Entity
+    (\(_ :: _) -> _)
+    (\(_ :: _) (b :: _) (_ :: _) (_ :: _) -> _rhs b)
+    a
 
-eLightDir = \(a :: _) -> case'Entity (\_ -> _) (\_ _ (b :: _) _ -> _rhs b) a
+eLightDir
+  = \(a :: _) -> case'Entity
+    (\(_ :: _) -> _)
+    (\(_ :: _) (_ :: _) (b :: _) (_ :: _) -> _rhs b)
+    a
 
-eShaderRGBA = \(a :: _) -> case'Entity (\_ -> _) (\_ _ _ (b :: _) -> _rhs b) a
+eShaderRGBA
+  = \(a :: _) -> case'Entity
+    (\(_ :: _) -> _)
+    (\(_ :: _) (_ :: _) (_ :: _) (b :: _) -> _rhs b)
+    a
 
 data WaveType :: Type where
     WT_Sin :: WaveType
@@ -132,68 +147,101 @@ data StageAttrs :: Type where
 
 saBlend
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\(b :: _) _ _ _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(b :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saRGBGen
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ (b :: _) _ _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (b :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saAlphaGen
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ (b :: _) _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saTCGen
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ (b :: _) _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saTCMod
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ (b :: _) _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saTexture
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ (b :: _) _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saDepthWrite
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ (b :: _) _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saDepthFunc
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ (b :: _) _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saAlphaFunc
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ (b :: _) _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saDepthMaskExplicit
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ _ (b :: _) _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _)
+      -> _rhs b)
     a
 
 saTextureUniform
   = \(a :: _) -> case'StageAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ _ _ (b :: _) -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _)
+      -> _rhs b)
     a
 
 defaultStageAttrs :: StageAttrs
@@ -224,74 +272,122 @@ data CommonAttrs :: Type where
 
 caSkyParms
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\(b :: _) _ _ _ _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(b :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caFogParms
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ (b :: _) _ _ _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (b :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caPortal
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ (b :: _) _ _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (b :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caSort
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ (b :: _) _ _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caEntityMergable
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ (b :: _) _ _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caFogOnly
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ (b :: _) _ _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caCull
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ (b :: _) _ _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caDeformVertexes
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ (b :: _) _ _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caNoMipMaps
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ (b :: _) _ _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caPolygonOffset
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ _ (b :: _) _ _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caStages
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ _ _ (b :: _) _ -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _)
+      -> _rhs b)
     a
 
 caIsSky
   = \(a :: _) -> case'CommonAttrs
-    (\_ -> _)
-    (\_ _ _ _ _ _ _ _ _ _ _ (b :: _) -> _rhs b)
+    (\(_ :: _) -> _)
+    (\(_ :: _)
+        (_ :: _)
+          (_ :: _)
+            (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _)
+      -> _rhs b)
     a
 
 defaultCommonAttrs :: CommonAttrs
@@ -310,61 +406,430 @@ defaultCommonAttrs
       False
       []
       False)
------------- trace
-identityLight :: Float
+------------ core code
+'AlphaFunction :: Type
+'AlphaFunction
+  = <<type constructor with 0 indices; constructors: A_Gt0, A_Lt128, A_Ge128>>
+
+'AlphaGen :: Type
+'AlphaGen
+  = <<type constructor with 0 indices; constructors: A_Wave, A_Const, A_Portal, A_Identity, A_Entity, A_OneMinusEntity, A_Vertex, A_LightingSpecular, A_OneMinusVertex>>
+
+'Blending' :: Type
+'Blending'
+  = <<type constructor with 0 indices; constructors: B_DstAlpha, B_DstColor, B_One, B_OneMinusDstAlpha, B_OneMinusDstColor, B_OneMinusSrcAlpha, B_OneMinusSrcColor, B_SrcAlpha, B_SrcAlphaSaturate, B_SrcColor, B_Zero>>
+
+'CommonAttrs :: Type
+'CommonAttrs = <<type constructor with 0 indices; constructors: CommonAttrs>>
+
+'CullType :: Type
+'CullType
+  = <<type constructor with 0 indices; constructors: CT_FrontSided, CT_BackSided, CT_TwoSided>>
+
+'Deform :: Type
+'Deform
+  = <<type constructor with 0 indices; constructors: D_AutoSprite, D_AutoSprite2, D_Bulge, D_Move, D_Normal, D_ProjectionShadow, D_Text0, D_Text1, D_Text2, D_Text3, D_Text4, D_Text5, D_Text6, D_Text7, D_Wave>>
+
+'DepthFunction :: Type
+'DepthFunction
+  = <<type constructor with 0 indices; constructors: D_Equal, D_Lequal>>
+
 'Entity :: Type
-Entity :: Vec 4 Float -> Vec 4 Float -> Vec 3 Float -> Vec 4 Float -> Entity
-case'Entity
-  :: forall (a :: Entity -> Type)
-    -> (forall (b :: Vec 4 Float)
-          (c :: Vec 4 Float) (d :: Vec 3 Float) (e :: Vec 4 Float)
-        -> a ('Entity b c d e))
-      -> forall (f :: Entity) -> a f
-match'Entity :: forall (a :: Type -> Type) -> a Entity -> forall b -> a b -> a b
-eAmbientLight :: Entity -> VecS Float 4
-eDirectedLight :: Entity -> VecS Float 4
-eLightDir :: Entity -> VecS Float 3
-eShaderRGBA :: Entity -> VecS Float 4
-'WaveType :: Type
-WT_Sin :: WaveType
-WT_Triangle :: WaveType
-WT_Square :: WaveType
-WT_Sawtooth :: WaveType
-WT_InverseSawtooth :: WaveType
-WT_Noise :: WaveType
-case'WaveType
-  :: forall (a :: WaveType -> Type)
-    -> a 'WT_Sin
-      -> a 'WT_Triangle
-        -> a 'WT_Square
-          -> a 'WT_Sawtooth
-            -> a 'WT_InverseSawtooth -> a 'WT_Noise -> forall (b :: WaveType) -> a b
-match'WaveType
-  :: forall (a :: Type -> Type) -> a WaveType -> forall b -> a b -> a b
+'Entity = <<type constructor with 0 indices; constructors: Entity>>
+
+'RGBGen :: Type
+'RGBGen
+  = <<type constructor with 0 indices; constructors: RGB_Wave, RGB_Const, RGB_Identity, RGB_IdentityLighting, RGB_Entity, RGB_OneMinusEntity, RGB_ExactVertex, RGB_Vertex, RGB_LightingDiffuse, RGB_OneMinusVertex, RGB_Undefined>>
+
+'StageAttrs :: Type
+'StageAttrs = <<type constructor with 0 indices; constructors: StageAttrs>>
+
+'StageTexture :: Type
+'StageTexture
+  = <<type constructor with 0 indices; constructors: ST_Map, ST_ClampMap, ST_AnimMap, ST_Lightmap, ST_WhiteImage>>
+
+'TCGen :: Type
+'TCGen
+  = <<type constructor with 0 indices; constructors: TG_Base, TG_Lightmap, TG_Environment, TG_Vector, TG_Undefined>>
+
+'TCMod :: Type
+'TCMod
+  = <<type constructor with 0 indices; constructors: TM_EntityTranslate, TM_Rotate, TM_Scroll, TM_Scale, TM_Stretch, TM_Transform, TM_Turb>>
+
 'Wave :: Type
-Wave :: WaveType -> Float -> Float -> Float -> Float -> Wave
-case'Wave
-  :: forall (a :: Wave -> Type)
-    -> (forall (b :: WaveType) (c :: Float) (d :: Float) (e :: Float) (f :: Float)
-        -> a ('Wave b c d e f))
-      -> forall (g :: Wave) -> a g
-match'Wave :: forall (a :: Type -> Type) -> a Wave -> forall b -> a b -> a b
-'Deform :: Type
+'Wave = <<type constructor with 0 indices; constructors: Wave>>
+
+'WaveType :: Type
+'WaveType
+  = <<type constructor with 0 indices; constructors: WT_Sin, WT_Triangle, WT_Square, WT_Sawtooth, WT_InverseSawtooth, WT_Noise>>
+
+A_Const :: Float -> AlphaGen
+A_Const = <<1st constructor of 'AlphaGen>>
+
+A_Entity :: AlphaGen
+A_Entity = <<4th constructor of 'AlphaGen>>
+
+A_Ge128 :: AlphaFunction
+A_Ge128 = <<2nd constructor of 'AlphaFunction>>
+
+A_Gt0 :: AlphaFunction
+A_Gt0 = <<0th constructor of 'AlphaFunction>>
+
+A_Identity :: AlphaGen
+A_Identity = <<3rd constructor of 'AlphaGen>>
+
+A_LightingSpecular :: AlphaGen
+A_LightingSpecular = <<7th constructor of 'AlphaGen>>
+
+A_Lt128 :: AlphaFunction
+A_Lt128 = <<1st constructor of 'AlphaFunction>>
+
+A_OneMinusEntity :: AlphaGen
+A_OneMinusEntity = <<5th constructor of 'AlphaGen>>
+
+A_OneMinusVertex :: AlphaGen
+A_OneMinusVertex = <<8th constructor of 'AlphaGen>>
+
+A_Portal :: AlphaGen
+A_Portal = <<2nd constructor of 'AlphaGen>>
+
+A_Vertex :: AlphaGen
+A_Vertex = <<6th constructor of 'AlphaGen>>
+
+A_Wave :: Wave -> AlphaGen
+A_Wave = <<0th constructor of 'AlphaGen>>
+
+B_DstAlpha :: Blending'
+B_DstAlpha = <<0th constructor of 'Blending'>>
+
+B_DstColor :: Blending'
+B_DstColor = <<1st constructor of 'Blending'>>
+
+B_One :: Blending'
+B_One = <<2nd constructor of 'Blending'>>
+
+B_OneMinusDstAlpha :: Blending'
+B_OneMinusDstAlpha = <<3rd constructor of 'Blending'>>
+
+B_OneMinusDstColor :: Blending'
+B_OneMinusDstColor = <<4th constructor of 'Blending'>>
+
+B_OneMinusSrcAlpha :: Blending'
+B_OneMinusSrcAlpha = <<5th constructor of 'Blending'>>
+
+B_OneMinusSrcColor :: Blending'
+B_OneMinusSrcColor = <<6th constructor of 'Blending'>>
+
+B_SrcAlpha :: Blending'
+B_SrcAlpha = <<7th constructor of 'Blending'>>
+
+B_SrcAlphaSaturate :: Blending'
+B_SrcAlphaSaturate = <<8th constructor of 'Blending'>>
+
+B_SrcColor :: Blending'
+B_SrcColor = <<9th constructor of 'Blending'>>
+
+B_Zero :: Blending'
+B_Zero = <<10th constructor of 'Blending'>>
+
+CT_BackSided :: CullType
+CT_BackSided = <<1st constructor of 'CullType>>
+
+CT_FrontSided :: CullType
+CT_FrontSided = <<0th constructor of 'CullType>>
+
+CT_TwoSided :: CullType
+CT_TwoSided = <<2nd constructor of 'CullType>>
+
+CommonAttrs
+  :: ()
+    -> ()
+      -> Bool
+        -> Float
+          -> Bool
+            -> Bool
+              -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs
+CommonAttrs = <<0th constructor of 'CommonAttrs>>
+
 D_AutoSprite :: Deform
+D_AutoSprite = <<0th constructor of 'Deform>>
+
 D_AutoSprite2 :: Deform
+D_AutoSprite2 = <<1st constructor of 'Deform>>
+
 D_Bulge :: Float -> Float -> Float -> Deform
+D_Bulge = <<2nd constructor of 'Deform>>
+
+D_Equal :: DepthFunction
+D_Equal = <<0th constructor of 'DepthFunction>>
+
+D_Lequal :: DepthFunction
+D_Lequal = <<1st constructor of 'DepthFunction>>
+
 D_Move :: Vec 3 Float -> Wave -> Deform
+D_Move = <<3rd constructor of 'Deform>>
+
 D_Normal :: Float -> Float -> Deform
+D_Normal = <<4th constructor of 'Deform>>
+
 D_ProjectionShadow :: Deform
+D_ProjectionShadow = <<5th constructor of 'Deform>>
+
 D_Text0 :: Deform
+D_Text0 = <<6th constructor of 'Deform>>
+
 D_Text1 :: Deform
+D_Text1 = <<7th constructor of 'Deform>>
+
 D_Text2 :: Deform
+D_Text2 = <<8th constructor of 'Deform>>
+
 D_Text3 :: Deform
+D_Text3 = <<9th constructor of 'Deform>>
+
 D_Text4 :: Deform
+D_Text4 = <<10th constructor of 'Deform>>
+
 D_Text5 :: Deform
+D_Text5 = <<11th constructor of 'Deform>>
+
 D_Text6 :: Deform
+D_Text6 = <<12th constructor of 'Deform>>
+
 D_Text7 :: Deform
+D_Text7 = <<13th constructor of 'Deform>>
+
 D_Wave :: Float -> Wave -> Deform
+D_Wave = <<14th constructor of 'Deform>>
+
+Entity :: Vec 4 Float -> Vec 4 Float -> Vec 3 Float -> Vec 4 Float -> Entity
+Entity = <<0th constructor of 'Entity>>
+
+RGB_Const :: Float -> Float -> Float -> RGBGen
+RGB_Const = <<1st constructor of 'RGBGen>>
+
+RGB_Entity :: RGBGen
+RGB_Entity = <<4th constructor of 'RGBGen>>
+
+RGB_ExactVertex :: RGBGen
+RGB_ExactVertex = <<6th constructor of 'RGBGen>>
+
+RGB_Identity :: RGBGen
+RGB_Identity = <<2nd constructor of 'RGBGen>>
+
+RGB_IdentityLighting :: RGBGen
+RGB_IdentityLighting = <<3rd constructor of 'RGBGen>>
+
+RGB_LightingDiffuse :: RGBGen
+RGB_LightingDiffuse = <<8th constructor of 'RGBGen>>
+
+RGB_OneMinusEntity :: RGBGen
+RGB_OneMinusEntity = <<5th constructor of 'RGBGen>>
+
+RGB_OneMinusVertex :: RGBGen
+RGB_OneMinusVertex = <<9th constructor of 'RGBGen>>
+
+RGB_Undefined :: RGBGen
+RGB_Undefined = <<10th constructor of 'RGBGen>>
+
+RGB_Vertex :: RGBGen
+RGB_Vertex = <<7th constructor of 'RGBGen>>
+
+RGB_Wave :: Wave -> RGBGen
+RGB_Wave = <<0th constructor of 'RGBGen>>
+
+ST_AnimMap :: Float -> [String] -> StageTexture
+ST_AnimMap = <<2nd constructor of 'StageTexture>>
+
+ST_ClampMap :: String -> StageTexture
+ST_ClampMap = <<1st constructor of 'StageTexture>>
+
+ST_Lightmap :: StageTexture
+ST_Lightmap = <<3rd constructor of 'StageTexture>>
+
+ST_Map :: String -> StageTexture
+ST_Map = <<0th constructor of 'StageTexture>>
+
+ST_WhiteImage :: StageTexture
+ST_WhiteImage = <<4th constructor of 'StageTexture>>
+
+StageAttrs
+  :: Maybe (Blending', Blending')
+    -> RGBGen
+      -> AlphaGen
+        -> TCGen
+          -> [TCMod]
+            -> StageTexture
+              -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+StageAttrs = <<0th constructor of 'StageAttrs>>
+
+TG_Base :: TCGen
+TG_Base = <<0th constructor of 'TCGen>>
+
+TG_Environment :: TCGen
+TG_Environment = <<2nd constructor of 'TCGen>>
+
+TG_Lightmap :: TCGen
+TG_Lightmap = <<1st constructor of 'TCGen>>
+
+TG_Undefined :: TCGen
+TG_Undefined = <<4th constructor of 'TCGen>>
+
+TG_Vector :: Vec 3 Float -> Vec 3 Float -> TCGen
+TG_Vector = <<3rd constructor of 'TCGen>>
+
+TM_EntityTranslate :: TCMod
+TM_EntityTranslate = <<0th constructor of 'TCMod>>
+
+TM_Rotate :: Float -> TCMod
+TM_Rotate = <<1st constructor of 'TCMod>>
+
+TM_Scale :: Float -> Float -> TCMod
+TM_Scale = <<3rd constructor of 'TCMod>>
+
+TM_Scroll :: Float -> Float -> TCMod
+TM_Scroll = <<2nd constructor of 'TCMod>>
+
+TM_Stretch :: Wave -> TCMod
+TM_Stretch = <<4th constructor of 'TCMod>>
+
+TM_Transform :: Float -> Float -> Float -> Float -> Float -> Float -> TCMod
+TM_Transform = <<5th constructor of 'TCMod>>
+
+TM_Turb :: Float -> Float -> Float -> Float -> TCMod
+TM_Turb = <<6th constructor of 'TCMod>>
+
+WT_InverseSawtooth :: WaveType
+WT_InverseSawtooth = <<4th constructor of 'WaveType>>
+
+WT_Noise :: WaveType
+WT_Noise = <<5th constructor of 'WaveType>>
+
+WT_Sawtooth :: WaveType
+WT_Sawtooth = <<3rd constructor of 'WaveType>>
+
+WT_Sin :: WaveType
+WT_Sin = <<0th constructor of 'WaveType>>
+
+WT_Square :: WaveType
+WT_Square = <<2nd constructor of 'WaveType>>
+
+WT_Triangle :: WaveType
+WT_Triangle = <<1st constructor of 'WaveType>>
+
+Wave :: WaveType -> Float -> Float -> Float -> Float -> Wave
+Wave = <<0th constructor of 'Wave>>
+
+caCull :: CommonAttrs -> CullType
+caCull
+  = \a -> case'CommonAttrs
+    (\_ -> 'CullType)
+    (\_ _ _ _ _ _ b _ _ _ _ _ -> _rhs b)
+    a
+
+caDeformVertexes :: CommonAttrs -> [Deform]
+caDeformVertexes
+  = \a -> case'CommonAttrs
+    (\_ -> ['Deform])
+    (\_ _ _ _ _ _ _ b _ _ _ _ -> _rhs b)
+    a
+
+caEntityMergable :: CommonAttrs -> Bool
+caEntityMergable
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ _ _ b _ _ _ _ _ _ _ -> _rhs b) a
+
+caFogOnly :: CommonAttrs -> Bool
+caFogOnly
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ _ _ _ b _ _ _ _ _ _ -> _rhs b) a
+
+caFogParms :: CommonAttrs -> ()
+caFogParms
+  = \a -> case'CommonAttrs (\_ -> ' ()) (\_ b _ _ _ _ _ _ _ _ _ _ -> _rhs b) a
+
+caIsSky :: CommonAttrs -> Bool
+caIsSky
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ _ _ _ _ _ _ _ _ _ b -> _rhs b) a
+
+caNoMipMaps :: CommonAttrs -> Bool
+caNoMipMaps
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ _ _ _ _ _ _ b _ _ _ -> _rhs b) a
+
+caPolygonOffset :: CommonAttrs -> Bool
+caPolygonOffset
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ _ _ _ _ _ _ _ b _ _ -> _rhs b) a
+
+caPortal :: CommonAttrs -> Bool
+caPortal
+  = \a -> case'CommonAttrs (\_ -> 'Bool) (\_ _ b _ _ _ _ _ _ _ _ _ -> _rhs b) a
+
+caSkyParms :: CommonAttrs -> ()
+caSkyParms
+  = \a -> case'CommonAttrs (\_ -> ' ()) (\b _ _ _ _ _ _ _ _ _ _ _ -> _rhs b) a
+
+caSort :: CommonAttrs -> Float
+caSort
+  = \a -> case'CommonAttrs (\_ -> 'Float) (\_ _ _ b _ _ _ _ _ _ _ _ -> _rhs b) a
+
+caStages :: CommonAttrs -> [StageAttrs]
+caStages
+  = \a -> case'CommonAttrs
+    (\_ -> ['StageAttrs])
+    (\_ _ _ _ _ _ _ _ _ _ b _ -> _rhs b)
+    a
+
+case'AlphaFunction
+  :: forall (a :: AlphaFunction -> Type)
+    -> a 'A_Gt0 -> a 'A_Lt128 -> a 'A_Ge128 -> forall (b :: AlphaFunction) -> a b
+case'AlphaFunction = \a b c d e -> <<case function of a type with 0 parameters>>
+
+case'AlphaGen
+  :: forall (a :: AlphaGen -> Type)
+    -> (forall (b :: Wave) -> a ('A_Wave b))
+      -> (forall (c :: Float) -> a ('A_Const c))
+        -> a 'A_Portal
+          -> a 'A_Identity
+            -> a 'A_Entity
+              -> a 'A_OneMinusEntity
+                -> a 'A_Vertex
+                  -> a 'A_LightingSpecular -> a 'A_OneMinusVertex -> forall (d :: AlphaGen) -> a d
+case'AlphaGen
+  = \a b c d e f g h i j k -> <<case function of a type with 0 parameters>>
+
+case'Blending'
+  :: forall (a :: Blending' -> Type)
+    -> a 'B_DstAlpha
+      -> a 'B_DstColor
+        -> a 'B_One
+          -> a 'B_OneMinusDstAlpha
+            -> a 'B_OneMinusDstColor
+              -> a 'B_OneMinusSrcAlpha
+                -> a 'B_OneMinusSrcColor
+                  -> a 'B_SrcAlpha
+                    -> a 'B_SrcAlphaSaturate
+                      -> a 'B_SrcColor -> a 'B_Zero -> forall (b :: Blending') -> a b
+case'Blending'
+  = \a b c d e f g h i j k l m -> <<case function of a type with 0 parameters>>
+
+case'CommonAttrs
+  :: forall (a :: CommonAttrs -> Type)
+    -> (forall (b :: ())
+          (c :: ())
+            (d :: Bool)
+              (e :: Float)
+                (f :: Bool)
+                  (g :: Bool)
+                    (h :: CullType)
+                      (i :: [Deform]) (j :: Bool) (k :: Bool) (l :: [StageAttrs]) (m :: Bool)
+        -> a ('CommonAttrs b c d e f g h i j k l m))
+      -> forall (n :: CommonAttrs) -> a n
+case'CommonAttrs = \a b c -> <<case function of a type with 0 parameters>>
+
+case'CullType
+  :: forall (a :: CullType -> Type)
+    -> a 'CT_FrontSided
+      -> a 'CT_BackSided -> a 'CT_TwoSided -> forall (b :: CullType) -> a b
+case'CullType = \a b c d e -> <<case function of a type with 0 parameters>>
+
 case'Deform
   :: forall (a :: Deform -> Type)
     -> a 'D_AutoSprite
@@ -383,55 +848,23 @@ case'Deform
                               -> a 'D_Text7
                                 -> (forall (i :: Float) (j :: Wave) -> a ('D_Wave i j))
                                   -> forall (k :: Deform) -> a k
-match'Deform :: forall (a :: Type -> Type) -> a Deform -> forall b -> a b -> a b
-'CullType :: Type
-CT_FrontSided :: CullType
-CT_BackSided :: CullType
-CT_TwoSided :: CullType
-case'CullType
-  :: forall (a :: CullType -> Type)
-    -> a 'CT_FrontSided
-      -> a 'CT_BackSided -> a 'CT_TwoSided -> forall (b :: CullType) -> a b
-match'CullType
-  :: forall (a :: Type -> Type) -> a CullType -> forall b -> a b -> a b
-'Blending' :: Type
-B_DstAlpha :: Blending'
-B_DstColor :: Blending'
-B_One :: Blending'
-B_OneMinusDstAlpha :: Blending'
-B_OneMinusDstColor :: Blending'
-B_OneMinusSrcAlpha :: Blending'
-B_OneMinusSrcColor :: Blending'
-B_SrcAlpha :: Blending'
-B_SrcAlphaSaturate :: Blending'
-B_SrcColor :: Blending'
-B_Zero :: Blending'
-case'Blending'
-  :: forall (a :: Blending' -> Type)
-    -> a 'B_DstAlpha
-      -> a 'B_DstColor
-        -> a 'B_One
-          -> a 'B_OneMinusDstAlpha
-            -> a 'B_OneMinusDstColor
-              -> a 'B_OneMinusSrcAlpha
-                -> a 'B_OneMinusSrcColor
-                  -> a 'B_SrcAlpha
-                    -> a 'B_SrcAlphaSaturate
-                      -> a 'B_SrcColor -> a 'B_Zero -> forall (b :: Blending') -> a b
-match'Blending'
-  :: forall (a :: Type -> Type) -> a Blending' -> forall b -> a b -> a b
-'RGBGen :: Type
-RGB_Wave :: Wave -> RGBGen
-RGB_Const :: Float -> Float -> Float -> RGBGen
-RGB_Identity :: RGBGen
-RGB_IdentityLighting :: RGBGen
-RGB_Entity :: RGBGen
-RGB_OneMinusEntity :: RGBGen
-RGB_ExactVertex :: RGBGen
-RGB_Vertex :: RGBGen
-RGB_LightingDiffuse :: RGBGen
-RGB_OneMinusVertex :: RGBGen
-RGB_Undefined :: RGBGen
+case'Deform
+  = \a b c d e f g h i j k l m n o p q
+    -> <<case function of a type with 0 parameters>>
+
+case'DepthFunction
+  :: forall (a :: DepthFunction -> Type)
+    -> a 'D_Equal -> a 'D_Lequal -> forall (b :: DepthFunction) -> a b
+case'DepthFunction = \a b c d -> <<case function of a type with 0 parameters>>
+
+case'Entity
+  :: forall (a :: Entity -> Type)
+    -> (forall (b :: Vec 4 Float)
+          (c :: Vec 4 Float) (d :: Vec 3 Float) (e :: Vec 4 Float)
+        -> a ('Entity b c d e))
+      -> forall (f :: Entity) -> a f
+case'Entity = \a b c -> <<case function of a type with 0 parameters>>
+
 case'RGBGen
   :: forall (a :: RGBGen -> Type)
     -> (forall (b :: Wave) -> a ('RGB_Wave b))
@@ -444,35 +877,32 @@ case'RGBGen
                   -> a 'RGB_Vertex
                     -> a 'RGB_LightingDiffuse
                       -> a 'RGB_OneMinusVertex -> a 'RGB_Undefined -> forall (f :: RGBGen) -> a f
-match'RGBGen :: forall (a :: Type -> Type) -> a RGBGen -> forall b -> a b -> a b
-'AlphaGen :: Type
-A_Wave :: Wave -> AlphaGen
-A_Const :: Float -> AlphaGen
-A_Portal :: AlphaGen
-A_Identity :: AlphaGen
-A_Entity :: AlphaGen
-A_OneMinusEntity :: AlphaGen
-A_Vertex :: AlphaGen
-A_LightingSpecular :: AlphaGen
-A_OneMinusVertex :: AlphaGen
-case'AlphaGen
-  :: forall (a :: AlphaGen -> Type)
-    -> (forall (b :: Wave) -> a ('A_Wave b))
-      -> (forall (c :: Float) -> a ('A_Const c))
-        -> a 'A_Portal
-          -> a 'A_Identity
-            -> a 'A_Entity
-              -> a 'A_OneMinusEntity
-                -> a 'A_Vertex
-                  -> a 'A_LightingSpecular -> a 'A_OneMinusVertex -> forall (d :: AlphaGen) -> a d
-match'AlphaGen
-  :: forall (a :: Type -> Type) -> a AlphaGen -> forall b -> a b -> a b
-'TCGen :: Type
-TG_Base :: TCGen
-TG_Lightmap :: TCGen
-TG_Environment :: TCGen
-TG_Vector :: Vec 3 Float -> Vec 3 Float -> TCGen
-TG_Undefined :: TCGen
+case'RGBGen
+  = \a b c d e f g h i j k l m -> <<case function of a type with 0 parameters>>
+
+case'StageAttrs
+  :: forall (a :: StageAttrs -> Type)
+    -> (forall (b :: Maybe (Blending', Blending'))
+          (c :: RGBGen)
+            (d :: AlphaGen)
+              (e :: TCGen)
+                (f :: [TCMod])
+                  (g :: StageTexture)
+                    (h :: Bool)
+                      (i :: DepthFunction) (j :: Maybe AlphaFunction) (k :: Bool) (l :: String)
+        -> a ('StageAttrs b c d e f g h i j k l))
+      -> forall (m :: StageAttrs) -> a m
+case'StageAttrs = \a b c -> <<case function of a type with 0 parameters>>
+
+case'StageTexture
+  :: forall (a :: StageTexture -> Type)
+    -> (forall (b :: String) -> a ('ST_Map b))
+      -> (forall (c :: String) -> a ('ST_ClampMap c))
+        -> (forall (d :: Float) (e :: [String]) -> a ('ST_AnimMap d e))
+          -> a 'ST_Lightmap -> a 'ST_WhiteImage -> forall (f :: StageTexture) -> a f
+case'StageTexture
+  = \a b c d e f g -> <<case function of a type with 0 parameters>>
+
 case'TCGen
   :: forall (a :: TCGen -> Type)
     -> a 'TG_Base
@@ -480,15 +910,8 @@ case'TCGen
         -> a 'TG_Environment
           -> (forall (b :: Vec 3 Float) (c :: Vec 3 Float) -> a ('TG_Vector b c))
             -> a 'TG_Undefined -> forall (d :: TCGen) -> a d
-match'TCGen :: forall (a :: Type -> Type) -> a TCGen -> forall b -> a b -> a b
-'TCMod :: Type
-TM_EntityTranslate :: TCMod
-TM_Rotate :: Float -> TCMod
-TM_Scroll :: Float -> Float -> TCMod
-TM_Scale :: Float -> Float -> TCMod
-TM_Stretch :: Wave -> TCMod
-TM_Transform :: Float -> Float -> Float -> Float -> Float -> Float -> TCMod
-TM_Turb :: Float -> Float -> Float -> Float -> TCMod
+case'TCGen = \a b c d e f g -> <<case function of a type with 0 parameters>>
+
 case'TCMod
   :: forall (a :: TCMod -> Type)
     -> a 'TM_EntityTranslate
@@ -502,109 +925,170 @@ case'TCMod
                 -> (forall (n :: Float) (o :: Float) (p :: Float) (q :: Float)
                     -> a ('TM_Turb n o p q))
                   -> forall (r :: TCMod) -> a r
-match'TCMod :: forall (a :: Type -> Type) -> a TCMod -> forall b -> a b -> a b
-'StageTexture :: Type
-ST_Map :: String -> StageTexture
-ST_ClampMap :: String -> StageTexture
-ST_AnimMap :: Float -> [String] -> StageTexture
-ST_Lightmap :: StageTexture
-ST_WhiteImage :: StageTexture
-case'StageTexture
-  :: forall (a :: StageTexture -> Type)
-    -> (forall (b :: String) -> a ('ST_Map b))
-      -> (forall (c :: String) -> a ('ST_ClampMap c))
-        -> (forall (d :: Float) (e :: [String]) -> a ('ST_AnimMap d e))
-          -> a 'ST_Lightmap -> a 'ST_WhiteImage -> forall (f :: StageTexture) -> a f
-match'StageTexture
-  :: forall (a :: Type -> Type) -> a StageTexture -> forall b -> a b -> a b
-'AlphaFunction :: Type
-A_Gt0 :: AlphaFunction
-A_Lt128 :: AlphaFunction
-A_Ge128 :: AlphaFunction
-case'AlphaFunction
-  :: forall (a :: AlphaFunction -> Type)
-    -> a 'A_Gt0 -> a 'A_Lt128 -> a 'A_Ge128 -> forall (b :: AlphaFunction) -> a b
+case'TCMod = \a b c d e f g h i -> <<case function of a type with 0 parameters>>
+
+case'Wave
+  :: forall (a :: Wave -> Type)
+    -> (forall (b :: WaveType) (c :: Float) (d :: Float) (e :: Float) (f :: Float)
+        -> a ('Wave b c d e f))
+      -> forall (g :: Wave) -> a g
+case'Wave = \a b c -> <<case function of a type with 0 parameters>>
+
+case'WaveType
+  :: forall (a :: WaveType -> Type)
+    -> a 'WT_Sin
+      -> a 'WT_Triangle
+        -> a 'WT_Square
+          -> a 'WT_Sawtooth
+            -> a 'WT_InverseSawtooth -> a 'WT_Noise -> forall (b :: WaveType) -> a b
+case'WaveType
+  = \a b c d e f g h -> <<case function of a type with 0 parameters>>
+
+defaultCommonAttrs :: CommonAttrs
+defaultCommonAttrs
+  = _rhs
+    (CommonAttrs () () False 0.0 False False CT_FrontSided [] False False [] False)
+
+defaultStageAttrs :: StageAttrs
+defaultStageAttrs
+  = _rhs
+    (StageAttrs
+      Nothing
+      RGB_Undefined
+      A_Identity
+      TG_Undefined
+      []
+      ST_WhiteImage
+      True
+      D_Lequal
+      Nothing
+      False
+      "")
+
+eAmbientLight :: Entity -> VecS Float 4
+eAmbientLight = \a -> case'Entity (\_ -> 'VecS 'Float 4) (\b _ _ _ -> _rhs b) a
+
+eDirectedLight :: Entity -> VecS Float 4
+eDirectedLight = \a -> case'Entity (\_ -> 'VecS 'Float 4) (\_ b _ _ -> _rhs b) a
+
+eLightDir :: Entity -> VecS Float 3
+eLightDir = \a -> case'Entity (\_ -> 'VecS 'Float 3) (\_ _ b _ -> _rhs b) a
+
+eShaderRGBA :: Entity -> VecS Float 4
+eShaderRGBA = \a -> case'Entity (\_ -> 'VecS 'Float 4) (\_ _ _ b -> _rhs b) a
+
+identityLight :: Float
+identityLight = _rhs 1.0
+
 match'AlphaFunction
   :: forall (a :: Type -> Type) -> a AlphaFunction -> forall b -> a b -> a b
-'DepthFunction :: Type
-D_Equal :: DepthFunction
-D_Lequal :: DepthFunction
-case'DepthFunction
-  :: forall (a :: DepthFunction -> Type)
-    -> a 'D_Equal -> a 'D_Lequal -> forall (b :: DepthFunction) -> a b
+match'AlphaFunction = \a b c d -> <<type case function>>
+
+match'AlphaGen
+  :: forall (a :: Type -> Type) -> a AlphaGen -> forall b -> a b -> a b
+match'AlphaGen = \a b c d -> <<type case function>>
+
+match'Blending'
+  :: forall (a :: Type -> Type) -> a Blending' -> forall b -> a b -> a b
+match'Blending' = \a b c d -> <<type case function>>
+
+match'CommonAttrs
+  :: forall (a :: Type -> Type) -> a CommonAttrs -> forall b -> a b -> a b
+match'CommonAttrs = \a b c d -> <<type case function>>
+
+match'CullType
+  :: forall (a :: Type -> Type) -> a CullType -> forall b -> a b -> a b
+match'CullType = \a b c d -> <<type case function>>
+
+match'Deform :: forall (a :: Type -> Type) -> a Deform -> forall b -> a b -> a b
+match'Deform = \a b c d -> <<type case function>>
+
 match'DepthFunction
   :: forall (a :: Type -> Type) -> a DepthFunction -> forall b -> a b -> a b
-'StageAttrs :: Type
-StageAttrs
-  :: Maybe (Blending', Blending')
-    -> RGBGen
-      -> AlphaGen
-        -> TCGen
-          -> [TCMod]
-            -> StageTexture
-              -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-case'StageAttrs
-  :: forall (a :: StageAttrs -> Type)
-    -> (forall (b :: Maybe (Blending', Blending'))
-          (c :: RGBGen)
-            (d :: AlphaGen)
-              (e :: TCGen)
-                (f :: [TCMod])
-                  (g :: StageTexture)
-                    (h :: Bool)
-                      (i :: DepthFunction) (j :: Maybe AlphaFunction) (k :: Bool) (l :: String)
-        -> a ('StageAttrs b c d e f g h i j k l))
-      -> forall (m :: StageAttrs) -> a m
+match'DepthFunction = \a b c d -> <<type case function>>
+
+match'Entity :: forall (a :: Type -> Type) -> a Entity -> forall b -> a b -> a b
+match'Entity = \a b c d -> <<type case function>>
+
+match'RGBGen :: forall (a :: Type -> Type) -> a RGBGen -> forall b -> a b -> a b
+match'RGBGen = \a b c d -> <<type case function>>
+
 match'StageAttrs
   :: forall (a :: Type -> Type) -> a StageAttrs -> forall b -> a b -> a b
+match'StageAttrs = \a b c d -> <<type case function>>
+
+match'StageTexture
+  :: forall (a :: Type -> Type) -> a StageTexture -> forall b -> a b -> a b
+match'StageTexture = \a b c d -> <<type case function>>
+
+match'TCGen :: forall (a :: Type -> Type) -> a TCGen -> forall b -> a b -> a b
+match'TCGen = \a b c d -> <<type case function>>
+
+match'TCMod :: forall (a :: Type -> Type) -> a TCMod -> forall b -> a b -> a b
+match'TCMod = \a b c d -> <<type case function>>
+
+match'Wave :: forall (a :: Type -> Type) -> a Wave -> forall b -> a b -> a b
+match'Wave = \a b c d -> <<type case function>>
+
+match'WaveType
+  :: forall (a :: Type -> Type) -> a WaveType -> forall b -> a b -> a b
+match'WaveType = \a b c d -> <<type case function>>
+
+saAlphaFunc :: StageAttrs -> Maybe AlphaFunction
+saAlphaFunc
+  = \a -> case'StageAttrs
+    (\_ -> 'Maybe 'AlphaFunction)
+    (\_ _ _ _ _ _ _ _ b _ _ -> _rhs b)
+    a
+
+saAlphaGen :: StageAttrs -> AlphaGen
+saAlphaGen
+  = \a -> case'StageAttrs (\_ -> 'AlphaGen) (\_ _ b _ _ _ _ _ _ _ _ -> _rhs b) a
+
 saBlend :: StageAttrs -> Maybe (Blending', Blending')
+saBlend
+  = \a -> case'StageAttrs
+    (\_ -> 'Maybe ' ('Blending', 'Blending'))
+    (\b _ _ _ _ _ _ _ _ _ _ -> _rhs b)
+    a
+
+saDepthFunc :: StageAttrs -> DepthFunction
+saDepthFunc
+  = \a -> case'StageAttrs
+    (\_ -> 'DepthFunction)
+    (\_ _ _ _ _ _ _ b _ _ _ -> _rhs b)
+    a
+
+saDepthMaskExplicit :: StageAttrs -> Bool
+saDepthMaskExplicit
+  = \a -> case'StageAttrs (\_ -> 'Bool) (\_ _ _ _ _ _ _ _ _ b _ -> _rhs b) a
+
+saDepthWrite :: StageAttrs -> Bool
+saDepthWrite
+  = \a -> case'StageAttrs (\_ -> 'Bool) (\_ _ _ _ _ _ b _ _ _ _ -> _rhs b) a
+
 saRGBGen :: StageAttrs -> RGBGen
-saAlphaGen :: StageAttrs -> AlphaGen
+saRGBGen
+  = \a -> case'StageAttrs (\_ -> 'RGBGen) (\_ b _ _ _ _ _ _ _ _ _ -> _rhs b) a
+
 saTCGen :: StageAttrs -> TCGen
+saTCGen
+  = \a -> case'StageAttrs (\_ -> 'TCGen) (\_ _ _ b _ _ _ _ _ _ _ -> _rhs b) a
+
 saTCMod :: StageAttrs -> [TCMod]
+saTCMod
+  = \a -> case'StageAttrs (\_ -> ['TCMod]) (\_ _ _ _ b _ _ _ _ _ _ -> _rhs b) a
+
 saTexture :: StageAttrs -> StageTexture
-saDepthWrite :: StageAttrs -> Bool
-saDepthFunc :: StageAttrs -> DepthFunction
-saAlphaFunc :: StageAttrs -> Maybe AlphaFunction
-saDepthMaskExplicit :: StageAttrs -> Bool
+saTexture
+  = \a -> case'StageAttrs
+    (\_ -> 'StageTexture)
+    (\_ _ _ _ _ b _ _ _ _ _ -> _rhs b)
+    a
+
 saTextureUniform :: StageAttrs -> String
-defaultStageAttrs :: StageAttrs
-'CommonAttrs :: Type
-CommonAttrs
-  :: ()
-    -> ()
-      -> Bool
-        -> Float
-          -> Bool
-            -> Bool
-              -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs
-case'CommonAttrs
-  :: forall (a :: CommonAttrs -> Type)
-    -> (forall (b :: ())
-          (c :: ())
-            (d :: Bool)
-              (e :: Float)
-                (f :: Bool)
-                  (g :: Bool)
-                    (h :: CullType)
-                      (i :: [Deform]) (j :: Bool) (k :: Bool) (l :: [StageAttrs]) (m :: Bool)
-        -> a ('CommonAttrs b c d e f g h i j k l m))
-      -> forall (n :: CommonAttrs) -> a n
-match'CommonAttrs
-  :: forall (a :: Type -> Type) -> a CommonAttrs -> forall b -> a b -> a b
-caSkyParms :: CommonAttrs -> ()
-caFogParms :: CommonAttrs -> ()
-caPortal :: CommonAttrs -> Bool
-caSort :: CommonAttrs -> Float
-caEntityMergable :: CommonAttrs -> Bool
-caFogOnly :: CommonAttrs -> Bool
-caCull :: CommonAttrs -> CullType
-caDeformVertexes :: CommonAttrs -> [Deform]
-caNoMipMaps :: CommonAttrs -> Bool
-caPolygonOffset :: CommonAttrs -> Bool
-caStages :: CommonAttrs -> [StageAttrs]
-caIsSky :: CommonAttrs -> Bool
-defaultCommonAttrs :: CommonAttrs
+saTextureUniform
+  = \a -> case'StageAttrs (\_ -> 'String) (\_ _ _ _ _ _ _ _ _ _ b -> _rhs b) a
 ------------ tooltips
 testdata/performance/Material.lc 7:18-7:23
     Type
diff --git a/testdata/performance/SampleMaterial.out b/testdata/performance/SampleMaterial.out
index 5d70651e..6a2d1969 100644
--- a/testdata/performance/SampleMaterial.out
+++ b/testdata/performance/SampleMaterial.out
@@ -1876,8 +1876,1884 @@ sampleMaterial
         False
         "Tex_3226210144"]
       False)]
------------- trace
+------------ core code
 sampleMaterial :: [(String, CommonAttrs)]
+sampleMaterial
+  = _rhs
+    [("textures/gothic_block/blocks11b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/blocks11b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_4288602201"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/blocks15"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/blocks15")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2523116863"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/blocks18b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/blocks18b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2639119078"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/blocks18c_3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/blocks18c_3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3939430064"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/demon_block15fx"
+    , CommonAttrs
+      ()
+      ()
+      False
+      3.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_Identity
+        A_Identity
+        TG_Base
+        [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0]
+        (ST_Map "textures/sfx/firegorre.tga")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_47037129"
+      , StageAttrs
+        (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
+        RGB_Identity
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/demon_block15fx.tga")
+        False
+        D_Lequal
+        Nothing
+        False
+        "Tex_3562558025"
+      , StageAttrs
+        (Just (B_DstColor, B_OneMinusDstAlpha))
+        RGB_Identity
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        False
+        D_Lequal
+        Nothing
+        False
+        "Tex_2065974340"]
+      False)
+    , ("textures/gothic_block/killblock"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/killblock")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3647563961"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/killblock_i"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/killblock_i")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_209322640"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_block/killblock_i4"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_block/killblock_i4")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3617993418"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/km_arena1archfinalc_mid"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/km_arena1archfinalc_mid")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2073154888"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/km_arena1archfinalc_top"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/km_arena1archfinalc_top")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3071107621"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/km_arena1archfinald_bot"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/km_arena1archfinald_bot")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1201212243"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/km_arena1archfinald_mid"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/km_arena1archfinald_mid")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3768122504"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_a"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_a")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1284708166"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1318715778"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_c"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_c")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_4189195777"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_d"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_d")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1250438154"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_e"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_e")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_4255130505"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skull_door_f"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skull_door_f")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_4289279309"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skullarch_a"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skullarch_a")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3448884269"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/skullarch_b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      3.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_Identity
+        A_Identity
+        TG_Base
+        [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5]
+        (ST_Map "textures/sfx/firegorre.tga")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3416962274"
+      , StageAttrs
+        (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
+        RGB_Identity
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skullarch_b.tga")
+        False
+        D_Lequal
+        Nothing
+        False
+        "Tex_4077187607"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_Identity
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        False
+        D_Lequal
+        Nothing
+        False
+        "Tex_1196599720"]
+      False)
+    , ("textures/gothic_door/skullarch_c"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/skullarch_c")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2024854890"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_door/xian_tourneyarch_inside2"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_door/xian_tourneyarch_inside2")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1435187472"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/blocks17floor2"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/blocks17floor2")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3814342582"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/largerblock3b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/largerblock3b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2966885788"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/metalbridge06"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/metalbridge06")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1581337759"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/metalbridge06broke"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/metalbridge06broke")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3921745736"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/xstairtop4"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/xstairtop4")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3836020895"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_floor/xstepborder3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_floor/xstepborder3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3269743316"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard04"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard04")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1002517541"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard09_c3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard09_c3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2289735512"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard09_e"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard09_e")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2367525081"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard09_e2"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard09_e2")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3694494180"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard09_l2"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard09_l2")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3202786139"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/baseboard09_o3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/baseboard09_o3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2512757607"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/km_arena1tower4"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/km_arena1tower4")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3479185666"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/km_arena1tower4_a"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/km_arena1tower4_a")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3012001075"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/metaldemonkillblock"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/metaldemonkillblock")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1062467595"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/metalsupport4b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/metalsupport4b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3593923076"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/metalsupsolid"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/metalsupsolid")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2893650486"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/pitted_rust"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/pitted_rust")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_1243894392"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/pitted_rust2"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/pitted_rust2")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2099456856"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/pitted_rust2_trans"
+    , CommonAttrs
+      ()
+      ()
+      False
+      3.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_Identity
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_511571587"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_Identity
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/pitted_rust2.tga")
+        False
+        D_Lequal
+        Nothing
+        False
+        "Tex_1910997598"]
+      False)
+    , ("textures/gothic_trim/pitted_rust3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/pitted_rust3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3389727963"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_trim/skullsvertgray02b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_trim/skullsvertgray02b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2634868983"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/iron01_e"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/iron01_e")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2432583247"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/iron01_ntech3"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/iron01_ntech3")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_442868841"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/skull4"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/skull4")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2239853403"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/slateroofc"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/slateroofc")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2490648334"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/supportborder_blue_b"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/supportborder_blue_b")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_564811775"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)
+    , ("textures/gothic_wall/supportborder_blue_c"
+    , CommonAttrs
+      ()
+      ()
+      False
+      0.0
+      False
+      False
+      CT_FrontSided
+      []
+      False
+      False
+      [StageAttrs
+        Nothing
+        RGB_IdentityLighting
+        A_Identity
+        TG_Base
+        []
+        (ST_Map "textures/gothic_wall/supportborder_blue_c")
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_2525124732"
+      , StageAttrs
+        (Just (B_DstColor, B_Zero))
+        RGB_IdentityLighting
+        A_Identity
+        TG_Lightmap
+        []
+        ST_Lightmap
+        True
+        D_Lequal
+        Nothing
+        False
+        "Tex_3226210144"]
+      False)]
 ------------ tooltips
 testdata/performance/SampleMaterial.lc 3:1-3:15
     [(String, CommonAttrs)]
diff --git a/testdata/qualified.out b/testdata/qualified.out
index 521dcdfe..790653d7 100644
--- a/testdata/qualified.out
+++ b/testdata/qualified.out
@@ -1,2 +1,3 @@
 main is not found
------------- desugared source code
\ No newline at end of file
+------------ desugared source code
+------------ core code
\ No newline at end of file
diff --git a/testdata/traceTest.out b/testdata/traceTest.out
index ff73ee7b..1284a26e 100644
--- a/testdata/traceTest.out
+++ b/testdata/traceTest.out
@@ -7,14 +7,23 @@ data X (_ :: Type) (_ :: _a) :: Type where
 
 x :: X \(a :: _) (b :: _) -> (a, b)
 x = _rhs undefined
------------- trace
-id :: forall a . a -> a
+------------ core code
 'X :: forall a . a -> Type
+'X = <<type constructor with 0 indices; constructors: >>
+
 case'X :: forall a (b :: a) . forall (c :: X a b -> Type) (d :: X a b) -> c d
+case'X = \_ _ a b -> <<case function of a type with 2 parameters>>
+
+id :: forall a . a -> a
+id = \_ a -> _rhs a
+
 match'X
   :: forall (a :: Type -> Type)
     -> (forall b . forall (c :: b) -> a (X b c)) -> forall d -> a d -> a d
+match'X = \a b c d -> <<type case function>>
+
 x :: X (Type -> Type -> Type) \a b -> (a, b)
+x = _rhs (undefined ('X (Type -> Type -> Type) \a b -> ' (a, b)))
 ------------ tooltips
 testdata/traceTest.lc 6:1-6:3
     forall a . a -> a
diff --git a/testdata/typeclass.out b/testdata/typeclass.out
index 36287148..7d3b916a 100644
--- a/testdata/typeclass.out
+++ b/testdata/typeclass.out
@@ -10,27 +10,27 @@ infixr 3 &&
 
 infixr 2 ||
 
-not = \(a :: _) -> case'Bool (\_ -> _) (_rhs True) (_rhs False) a
+not = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs True) (_rhs False) a
 
-(&&) = \(a :: _) (b :: _) -> case'Bool (\_ -> _) (_rhs False) (_rhs b) a
+(&&) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs b) a
 
-(||) = \(a :: _) (b :: _) -> case'Bool (\_ -> _) (_rhs b) (_rhs True) a
+(||) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs b) (_rhs True) a
 
 'Eq :: Type -> Constraint
 'Eq
   = \(a :: _) -> match'Bool
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs 'CUnit)
     a
     (_rhs ('CEmpty "no instance of 'Eq on ???"))
 
 (==) :: forall a . Eq a => a -> a -> Bool
 (==)
-  = \ @a @_ -> match'Bool
-    (\_ -> _)
+  = \ @a @(_ :: _) -> match'Bool
+    (\(_ :: _) -> _)
     (_rhs
       let
-        b = \(c :: _) (d :: _) -> case'Bool (\_ -> _) (_rhs (not d)) (_rhs d) c
+        b = \(c :: _) (d :: _) -> case'Bool (\(_ :: _) -> _) (_rhs (not d)) (_rhs d) c
         in b)
     a
     (_rhs undefined)
@@ -39,22 +39,52 @@ not = \(a :: _) -> case'Bool (\_ -> _) (_rhs True) (_rhs False) a
 
 (==.)
   = \(a :: _) (b :: _) -> case'List
-    (\_ -> _)
-    (case'List (\_ -> _) (_rhs True) (\_ _ -> _rhs False) b)
-    (\_ (c :: _) -> case'List
-      (\_ -> _)
+    (\(_ :: _) -> _)
+    (case'List (\(_ :: _) -> _) (_rhs True) (\(_ :: _) (_ :: _) -> _rhs False) b)
+    (\(_ :: _) (c :: _) -> case'List
+      (\(_ :: _) -> _)
       (_rhs False)
-      (\_ (d :: _) -> _rhs (c ==. d))
+      (\(_ :: _) (d :: _) -> _rhs (c ==. d))
       b)
     a
------------- trace
-not :: Bool -> Bool
-(&&) :: Bool -> Bool -> Bool
-(||) :: Bool -> Bool -> Bool
+------------ core code
+&& :: Bool -> Bool -> Bool
+&& = \a b -> case'Bool (\_ -> 'Bool) (_rhs False) (_rhs b) a
+
 'Eq :: Type -> Constraint
-(==) :: forall a . Eq a => a -> a -> Bool
-(/=) :: forall a . Eq a => a -> a -> Bool
-(==.) :: forall a b . [a] -> [b] -> Bool
+'Eq
+  = \a -> match'Bool
+    (\_ -> 'Constraint)
+    (_rhs CUnit)
+    a
+    (_rhs (CEmpty "no instance of 'Eq on ???"))
+
+/= :: forall a . Eq a => a -> a -> Bool
+/= = \a b c d -> _rhs (not ((a == b) c d))
+
+== :: forall a . Eq a => a -> a -> Bool
+==
+  = \a _ -> match'Bool
+    (\b -> b -> b -> 'Bool)
+    (_rhs (==))
+    a
+    (_rhs (undefined (a -> a -> 'Bool)))
+
+==. :: forall a b . [a] -> [b] -> Bool
+==.
+  = \a b -> primFix
+    ([a] -> [b] -> 'Bool)
+    \c d e -> case'List
+      (\_ -> 'Bool)
+      (case'List (\_ -> 'Bool) (_rhs True) (\_ _ -> _rhs False) e)
+      (\_ f -> case'List (\_ -> 'Bool) (_rhs False) (\_ g -> _rhs (c f g)) e)
+      d
+
+not :: Bool -> Bool
+not = \a -> case'Bool (\_ -> 'Bool) (_rhs True) (_rhs False) a
+
+|| :: Bool -> Bool -> Bool
+|| = \a b -> case'Bool (\_ -> 'Bool) (_rhs b) (_rhs True) a
 ------------ tooltips
 testdata/typeclass.lc 8:1-8:4
     Bool -> Bool
diff --git a/testdata/where.out b/testdata/where.out
index 35e08403..1c329429 100644
--- a/testdata/where.out
+++ b/testdata/where.out
@@ -1,8 +1,9 @@
 main is not found
 ------------ desugared source code
 f = _rhs let a = _rhs let c = _rhs 1.0 in c; b = _rhs 1.0 in b
------------- trace
+------------ core code
 f :: Float
+f = _rhs 1.0
 ------------ tooltips
 testdata/where.lc 3:1-3:2
     Float
diff --git a/testdata/zip01.out b/testdata/zip01.out
index 06e95e78..e6f51391 100644
--- a/testdata/zip01.out
+++ b/testdata/zip01.out
@@ -3,16 +3,28 @@ main is not found
 zip2 :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)]
 zip2
   = \(a :: _) (b :: _) -> case'List
-    (\_ -> _)
+    (\(_ :: _) -> _)
     (_rhs [])
     (\(c :: _) (d :: _) -> case'List
-      (\_ -> _)
+      (\(_ :: _) -> _)
       (_rhs [])
       (\(e :: _) (f :: _) -> _rhs ((c, e) : zip2 d f))
       b)
     a
------------- trace
+------------ core code
 zip2 :: forall a b . [a] -> [b] -> [(a, b)]
+zip2
+  = primFix
+    (forall a b . [a] -> [b] -> [' (a, b)])
+    \c d e f g -> case'List
+      (\_ -> [' (d, e)])
+      (_rhs [])
+      (\h i -> case'List
+        (\_ -> [' (d, e)])
+        (_rhs [])
+        (\j k -> _rhs ((h, j) : c d e i k))
+        g)
+      f
 ------------ tooltips
 testdata/zip01.lc 1:9-1:12
     Type