improve pretty print layout & show desugared source code in .out files

181 files changed, 17913 insertions, 4745 deletions

diff --git a/testdata/Builtins.out b/testdata/Builtins.out
index cf554d40..e36156db 100644
--- a/testdata/Builtins.out
+++ b/testdata/Builtins.out
@@ -1,3 +1,1018 @@
+------------ desugared source code
+id = \(a :: _) -> _rhs a
+data VecS (_ :: Type) :: Nat -> Type where
+    V2 :: _a -> _a -> VecS _a (fromInt 2)
+    V3 :: _a -> _a -> _a -> VecS _a (fromInt 3)
+    V4 :: _a -> _a -> _a -> _a -> VecS _a (fromInt 4)
+mapVec
+  = (\(a :: _) (b :: _) -> 'VecSCase
+      \_ -> \_ -> _ :: _
+      \(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))
+      b)
+    :: forall (l :: _) (m :: _) (n :: _) . (l -> m) -> VecS l n -> VecS m n
+'Vec = (\(a :: _) (b :: _) -> _rhs ('VecS b a)) :: Nat -> Type -> Type
+'VecScalar
+  = (\(a :: _) (b :: _) -> 'NatCase
+      \_ -> _ :: _
+      undefined
+      \(c :: _) -> 'NatCase
+        \_ -> _ :: _
+        (_rhs b)
+        \(d :: _) -> _rhs ('Vec (Succ (Succ d)) b)
+        c
+      a)
+    :: Nat -> Type -> Type
+data Mat :: Nat -> Nat -> Type -> Type where
+    M22F
+      :: Vec (fromInt 2) Float
+        -> Vec (fromInt 2) Float -> Mat (fromInt 2) (fromInt 2) Float
+    M32F
+      :: Vec (fromInt 3) Float
+        -> Vec (fromInt 3) Float -> Mat (fromInt 3) (fromInt 2) Float
+    M42F
+      :: Vec (fromInt 4) Float
+        -> Vec (fromInt 4) Float -> Mat (fromInt 4) (fromInt 2) Float
+    M23F
+      :: Vec (fromInt 2) Float
+        -> Vec (fromInt 2) Float
+          -> Vec (fromInt 2) Float -> Mat (fromInt 2) (fromInt 3) Float
+    M33F
+      :: Vec (fromInt 3) Float
+        -> Vec (fromInt 3) Float
+          -> Vec (fromInt 3) Float -> Mat (fromInt 3) (fromInt 3) Float
+    M43F
+      :: Vec (fromInt 4) Float
+        -> Vec (fromInt 4) Float
+          -> Vec (fromInt 4) Float -> Mat (fromInt 4) (fromInt 3) Float
+    M24F
+      :: Vec (fromInt 2) Float
+        -> Vec (fromInt 2) Float
+          -> Vec (fromInt 2) Float
+            -> Vec (fromInt 2) Float -> Mat (fromInt 2) (fromInt 4) Float
+    M34F
+      :: Vec (fromInt 3) Float
+        -> Vec (fromInt 3) Float
+          -> Vec (fromInt 3) Float
+            -> Vec (fromInt 3) Float -> Mat (fromInt 3) (fromInt 4) Float
+    M44F
+      :: Vec (fromInt 4) Float
+        -> Vec (fromInt 4) Float
+          -> Vec (fromInt 4) Float
+            -> Vec (fromInt 4) Float -> Mat (fromInt 4) (fromInt 4) Float
+'MatVecScalarElem
+  = (\(a :: _) -> match'Float
+      \_ -> _
+      (_rhs 'Float)
+      a
+      (match'Bool
+        \_ -> _
+        (_rhs 'Bool)
+        a
+        (match'Int
+          \_ -> _
+          (_rhs 'Int)
+          a
+          (match'VecS
+            \_ -> _
+            \(b :: _) -> \_ -> _rhs b
+            a
+            (match'Mat \_ -> _ \_ -> \_ (c :: _) -> _rhs c a undefined)))))
+    :: Type -> Type
+'Signed
+  = (\(a :: _) -> match'Int
+      \_ -> _
+      (_rhs 'Unit)
+      a
+      (match'Float
+        \_ -> _
+        (_rhs 'Unit)
+        a
+        (_rhs ('Empty "no instance of 'Signed on ???"))))
+    :: Type -> Type
+'Component
+  = (\(a :: _) -> match'Int
+      \_ -> _
+      (_rhs 'Unit)
+      a
+      (match'Word
+        \_ -> _
+        (_rhs 'Unit)
+        a
+        (match'Float
+          \_ -> _
+          (_rhs 'Unit)
+          a
+          (match'VecS
+            \_ -> _
+            \(b :: _) (c :: _) -> match'Float
+              \_ -> _
+              ('NatCase
+                \_ -> _ :: _
+                (_rhs ('Empty "no instance of 'Component on ???"))
+                \(d :: _) -> 'NatCase
+                  \_ -> _ :: _
+                  (_rhs ('Empty "no instance of 'Component on ???"))
+                  \(e :: _) -> 'NatCase
+                    \_ -> _ :: _
+                    (_rhs 'Unit)
+                    \(f :: _) -> 'NatCase
+                      \_ -> _ :: _
+                      (_rhs 'Unit)
+                      \(g :: _) -> 'NatCase
+                        \_ -> _ :: _
+                        (_rhs 'Unit)
+                        \_ -> _rhs ('Empty "no instance of 'Component on ???")
+                        g
+                      f
+                    e
+                  d
+                c)
+              b
+              (match'Bool
+                \_ -> _
+                ('NatCase
+                  \_ -> _ :: _
+                  (_rhs ('Empty "no instance of 'Component on ???"))
+                  \(h :: _) -> 'NatCase
+                    \_ -> _ :: _
+                    (_rhs ('Empty "no instance of 'Component on ???"))
+                    \(i :: _) -> 'NatCase
+                      \_ -> _ :: _
+                      (_rhs 'Unit)
+                      \(j :: _) -> 'NatCase
+                        \_ -> _ :: _
+                        (_rhs 'Unit)
+                        \(k :: _) -> 'NatCase
+                          \_ -> _ :: _
+                          (_rhs 'Unit)
+                          \_ -> _rhs ('Empty "no instance of 'Component on ???")
+                          k
+                        j
+                      i
+                    h
+                  c)
+                b
+                (_rhs ('Empty "no instance of 'Component on ???")))
+            a
+            (match'Bool
+              \_ -> _
+              (_rhs 'Unit)
+              a
+              (_rhs ('Empty "no instance of 'Component on ???")))))))
+    :: Type -> Type
+zero
+  = (\ @a -> \ @_ -> match'Int
+      \_ -> _
+      (_rhs \(b := _rhs (fromInt 0 :: Int)) -> b)
+      a
+      (match'Word
+        \_ -> _
+        (_rhs \(c := _rhs (fromInt 0 :: Word)) -> c)
+        a
+        (match'Float
+          \_ -> _
+          (_rhs \(d := _rhs 0.0) -> d)
+          a
+          (match'VecS
+            \_ -> _
+            \(e :: _) (f :: _) -> match'Float
+              \_ -> _
+              ('NatCase
+                \_ -> _ :: _
+                (_rhs undefined)
+                \(g :: _) -> 'NatCase
+                  \_ -> _ :: _
+                  (_rhs undefined)
+                  \(h :: _) -> 'NatCase
+                    \_ -> _ :: _
+                    (_rhs \(i := _rhs (V2 0.0 0.0)) -> i)
+                    \(j :: _) -> 'NatCase
+                      \_ -> _ :: _
+                      (_rhs \(k := _rhs (V3 0.0 0.0 0.0)) -> k)
+                      \(l :: _) -> 'NatCase
+                        \_ -> _ :: _
+                        (_rhs \(m := _rhs (V4 0.0 0.0 0.0 0.0)) -> m)
+                        \_ -> _rhs undefined
+                        l
+                      j
+                    h
+                  g
+                f)
+              e
+              (match'Bool
+                \_ -> _
+                ('NatCase
+                  \_ -> _ :: _
+                  (_rhs undefined)
+                  \(n :: _) -> 'NatCase
+                    \_ -> _ :: _
+                    (_rhs undefined)
+                    \(o :: _) -> 'NatCase
+                      \_ -> _ :: _
+                      (_rhs \(p := _rhs (V2 False False)) -> p)
+                      \(q :: _) -> 'NatCase
+                        \_ -> _ :: _
+                        (_rhs \(r := _rhs (V3 False False False)) -> r)
+                        \(s :: _) -> 'NatCase
+                          \_ -> _ :: _
+                          (_rhs \(t := _rhs (V4 False False False False)) -> t)
+                          \_ -> _rhs undefined
+                          s
+                        q
+                      o
+                    n
+                  f)
+                e
+                (_rhs undefined))
+            a
+            (match'Bool \_ -> _ (_rhs \(u := _rhs False) -> u) a (_rhs undefined))))))
+    :: forall v . Component v => v
+one
+  = (\ @a -> \ @_ -> match'Int
+      \_ -> _
+      (_rhs \(b := _rhs (fromInt 1 :: Int)) -> b)
+      a
+      (match'Word
+        \_ -> _
+        (_rhs \(c := _rhs (fromInt 1 :: Word)) -> c)
+        a
+        (match'Float
+          \_ -> _
+          (_rhs \(d := _rhs 1.0) -> d)
+          a
+          (match'VecS
+            \_ -> _
+            \(e :: _) (f :: _) -> match'Float
+              \_ -> _
+              ('NatCase
+                \_ -> _ :: _
+                (_rhs undefined)
+                \(g :: _) -> 'NatCase
+                  \_ -> _ :: _
+                  (_rhs undefined)
+                  \(h :: _) -> 'NatCase
+                    \_ -> _ :: _
+                    (_rhs \(i := _rhs (V2 1.0 1.0)) -> i)
+                    \(j :: _) -> 'NatCase
+                      \_ -> _ :: _
+                      (_rhs \(k := _rhs (V3 1.0 1.0 1.0)) -> k)
+                      \(l :: _) -> 'NatCase
+                        \_ -> _ :: _
+                        (_rhs \(m := _rhs (V4 1.0 1.0 1.0 1.0)) -> m)
+                        \_ -> _rhs undefined
+                        l
+                      j
+                    h
+                  g
+                f)
+              e
+              (match'Bool
+                \_ -> _
+                ('NatCase
+                  \_ -> _ :: _
+                  (_rhs undefined)
+                  \(n :: _) -> 'NatCase
+                    \_ -> _ :: _
+                    (_rhs undefined)
+                    \(o :: _) -> 'NatCase
+                      \_ -> _ :: _
+                      (_rhs \(p := _rhs (V2 True True)) -> p)
+                      \(q :: _) -> 'NatCase
+                        \_ -> _ :: _
+                        (_rhs \(r := _rhs (V3 True True True)) -> r)
+                        \(s :: _) -> 'NatCase
+                          \_ -> _ :: _
+                          (_rhs \(t := _rhs (V4 True True True True)) -> t)
+                          \_ -> _rhs undefined
+                          s
+                        q
+                      o
+                    n
+                  f)
+                e
+                (_rhs undefined))
+            a
+            (match'Bool \_ -> _ (_rhs \(u := _rhs True) -> u) a (_rhs undefined))))))
+    :: forall v . Component v => v
+'Integral
+  = (\(a :: _) -> match'Int
+      \_ -> _
+      (_rhs 'Unit)
+      a
+      (match'Word
+        \_ -> _
+        (_rhs 'Unit)
+        a
+        (_rhs ('Empty "no instance of 'Integral on ???"))))
+    :: Type -> Type
+'Floating
+  = (\(a :: _) -> match'Float
+      \_ -> _
+      (_rhs 'Unit)
+      a
+      (match'VecS
+        \_ -> _
+        \(b :: _) (c :: _) -> match'Float
+          \_ -> _
+          ('NatCase
+            \_ -> _ :: _
+            (_rhs ('Empty "no instance of 'Floating on ???"))
+            \(d :: _) -> 'NatCase
+              \_ -> _ :: _
+              (_rhs ('Empty "no instance of 'Floating on ???"))
+              \(e :: _) -> 'NatCase
+                \_ -> _ :: _
+                (_rhs 'Unit)
+                \(f :: _) -> 'NatCase
+                  \_ -> _ :: _
+                  (_rhs 'Unit)
+                  \(g :: _) -> 'NatCase
+                    \_ -> _ :: _
+                    (_rhs 'Unit)
+                    \_ -> _rhs ('Empty "no instance of 'Floating on ???")
+                    g
+                  f
+                e
+              d
+            c)
+          b
+          (_rhs ('Empty "no instance of 'Floating on ???"))
+        a
+        (match'Mat
+          \_ -> _
+          \(h :: _) (i :: _) (j :: _) -> 'NatCase
+            \_ -> _ :: _
+            (_rhs ('Empty "no instance of 'Floating on ???"))
+            \(k :: _) -> 'NatCase
+              \_ -> _ :: _
+              (_rhs ('Empty "no instance of 'Floating on ???"))
+              \(l :: _) -> 'NatCase
+                \_ -> _ :: _
+                ('NatCase
+                  \_ -> _ :: _
+                  (_rhs ('Empty "no instance of 'Floating on ???"))
+                  \(m :: _) -> 'NatCase
+                    \_ -> _ :: _
+                    (_rhs ('Empty "no instance of 'Floating on ???"))
+                    \(n :: _) -> 'NatCase
+                      \_ -> _ :: _
+                      (match'Float
+                        \_ -> _
+                        (_rhs 'Unit)
+                        j
+                        (_rhs ('Empty "no instance of 'Floating on ???")))
+                      \(o :: _) -> 'NatCase
+                        \_ -> _ :: _
+                        (match'Float
+                          \_ -> _
+                          (_rhs 'Unit)
+                          j
+                          (_rhs ('Empty "no instance of 'Floating on ???")))
+                        \(p :: _) -> 'NatCase
+                          \_ -> _ :: _
+                          (match'Float
+                            \_ -> _
+                            (_rhs 'Unit)
+                            j
+                            (_rhs ('Empty "no instance of 'Floating on ???")))
+                          \_ -> _rhs ('Empty "no instance of 'Floating on ???")
+                          p
+                        o
+                      n
+                    m
+                  i)
+                \(q :: _) -> 'NatCase
+                  \_ -> _ :: _
+                  ('NatCase
+                    \_ -> _ :: _
+                    (_rhs ('Empty "no instance of 'Floating on ???"))
+                    \(r :: _) -> 'NatCase
+                      \_ -> _ :: _
+                      (_rhs ('Empty "no instance of 'Floating on ???"))
+                      \(s :: _) -> 'NatCase
+                        \_ -> _ :: _
+                        (match'Float
+                          \_ -> _
+                          (_rhs 'Unit)
+                          j
+                          (_rhs ('Empty "no instance of 'Floating on ???")))
+                        \(t :: _) -> 'NatCase
+                          \_ -> _ :: _
+                          (match'Float
+                            \_ -> _
+                            (_rhs 'Unit)
+                            j
+                            (_rhs ('Empty "no instance of 'Floating on ???")))
+                          \(u :: _) -> 'NatCase
+                            \_ -> _ :: _
+                            (match'Float
+                              \_ -> _
+                              (_rhs 'Unit)
+                              j
+                              (_rhs ('Empty "no instance of 'Floating on ???")))
+                            \_ -> _rhs ('Empty "no instance of 'Floating on ???")
+                            u
+                          t
+                        s
+                      r
+                    i)
+                  \(v :: _) -> 'NatCase
+                    \_ -> _ :: _
+                    ('NatCase
+                      \_ -> _ :: _
+                      (_rhs ('Empty "no instance of 'Floating on ???"))
+                      \(w :: _) -> 'NatCase
+                        \_ -> _ :: _
+                        (_rhs ('Empty "no instance of 'Floating on ???"))
+                        \(x :: _) -> 'NatCase
+                          \_ -> _ :: _
+                          (match'Float
+                            \_ -> _
+                            (_rhs 'Unit)
+                            j
+                            (_rhs ('Empty "no instance of 'Floating on ???")))
+                          \(y :: _) -> 'NatCase
+                            \_ -> _ :: _
+                            (match'Float
+                              \_ -> _
+                              (_rhs 'Unit)
+                              j
+                              (_rhs ('Empty "no instance of 'Floating on ???")))
+                            \(z :: _) -> 'NatCase
+                              \_ -> _ :: _
+                              (match'Float
+                                \_ -> _
+                                (_rhs 'Unit)
+                                j
+                                (_rhs ('Empty "no instance of 'Floating on ???")))
+                              \_ -> _rhs ('Empty "no instance of 'Floating on ???")
+                              z
+                            y
+                          x
+                        w
+                      i)
+                    \_ -> _rhs ('Empty "no instance of 'Floating on ???")
+                    v
+                  q
+                l
+              k
+            h
+          a
+          (_rhs ('Empty "no instance of 'Floating on ???")))))
+    :: Type -> Type
+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
+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 :: _) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimMod
+  :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimDivS
+  :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimModS
+  :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimNeg :: forall (a :: _) . Signed (MatVecScalarElem a) => a -> a
+PrimBAnd
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (Integral a, b ~ VecScalar c a) => b -> b -> b
+PrimBOr
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (Integral a, b ~ VecScalar c a) => b -> b -> b
+PrimBXor
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (Integral a, b ~ VecScalar c a) => b -> b -> b
+PrimBAndS
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (Integral a, b ~ VecScalar c a) => b -> a -> b
+PrimBOrS
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (Integral a, b ~ VecScalar c a) => b -> a -> b
+PrimBXorS
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (Integral a, b ~ VecScalar c a) => b -> a -> b
+PrimBNot
+  :: forall (a :: _) (b :: _) (c :: _) . (Integral a, b ~ VecScalar c a) => b -> b
+PrimBShiftL
+  :: forall (a :: _) (b :: _) (c :: _) (d :: _)
+    . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+PrimBShiftR
+  :: forall (a :: _) (b :: _) (c :: _) (d :: _)
+    . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+PrimBShiftLS
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+PrimBShiftRS
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (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 :: _) . (a ~ VecScalar b Bool) => a -> a
+PrimAny :: forall (a :: _) . VecScalar a Bool -> Bool
+PrimAll :: forall (a :: _) . VecScalar a Bool -> Bool
+PrimACos :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimACosH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimASin :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimASinH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimATan :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimATanH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimCos :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimCosH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimDegrees :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimRadians :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimSin :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimSinH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimTan :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimTanH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimExp :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimLog :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimExp2 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimLog2 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimSqrt :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimInvSqrt :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimPow :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a
+PrimATan2 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a
+PrimFloor :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimTrunc :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimRound :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimRoundEven :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimCeil :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimFract :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimMin
+  :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimMax
+  :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimMinS
+  :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimMaxS
+  :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimIsNan
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+PrimIsInf
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+PrimAbs
+  :: forall (a :: _) (b :: _) (c :: _) . (Signed a, b ~ VecScalar c a) => b -> b
+PrimSign
+  :: forall (a :: _) (b :: _) (c :: _) . (Signed a, b ~ VecScalar c a) => b -> b
+PrimModF
+  :: forall (a :: _) (b :: _)
+    . (a ~ VecScalar b Float) => a -> HList ('Cons a ('Cons a 'Nil))
+PrimClamp
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
+PrimClampS
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
+PrimMix
+  :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a -> a
+PrimMixS
+  :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> Float -> a
+PrimMixB
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
+PrimStep :: forall (a :: _) (b :: _) . (a ~ Vec b Float) => a -> a -> a
+PrimStepS
+  :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => Float -> a -> a
+PrimSmoothStep
+  :: forall (a :: _) (b :: _) . (a ~ Vec b Float) => a -> a -> a -> a
+PrimSmoothStepS
+  :: forall (a :: _) (b :: _)
+    . (a ~ VecScalar b Float) => Float -> Float -> a -> a
+PrimFloatBitsToInt :: forall (a :: _) . VecScalar a Float -> VecScalar a Int
+PrimFloatBitsToUInt :: forall (a :: _) . VecScalar a Float -> VecScalar a Word
+PrimIntBitsToFloat :: forall (a :: _) . VecScalar a Int -> VecScalar a Float
+PrimUIntBitsToFloat :: forall (a :: _) . VecScalar a Word -> VecScalar a Float
+PrimLength :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> Float
+PrimDistance
+  :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> Float
+PrimDot :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> Float
+PrimCross :: forall (a :: _) . (a ~ VecScalar (fromInt 3) Float) => a -> a -> a
+PrimNormalize :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimFaceForward
+  :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a -> a
+PrimRefract
+  :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a -> a
+PrimReflect :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a
+PrimTranspose :: forall (a :: _) (b :: _) (c :: _) . Mat a b c -> Mat b a c
+PrimDeterminant :: forall (a :: _) (b :: _) . Mat a a b -> Float
+PrimInverse :: forall (a :: _) (b :: _) . Mat a a b -> Mat a a b
+PrimOuterProduct
+  :: forall (a :: _) (b :: _) (c :: _) . Vec a b -> Vec c b -> Mat c a b
+PrimMulMatVec
+  :: forall (a :: _) (b :: _) (c :: _) . Mat a b c -> Vec b c -> Vec a c
+PrimMulVecMat
+  :: forall (a :: _) (b :: _) (c :: _) . Vec a b -> Mat a c b -> Vec c b
+PrimMulMatMat
+  :: forall (a :: _) (b :: _) (c :: _) (d :: _)
+    . Mat a b c -> Mat b d c -> Mat a d c
+PrimLessThan
+  :: forall (a :: _) (b :: _) (c :: _) (d :: _)
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimLessThanEqual
+  :: forall (a :: _) (b :: _) (c :: _) (d :: _)
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimGreaterThan
+  :: forall (a :: _) (b :: _) (c :: _) (d :: _)
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimGreaterThanEqual
+  :: forall (a :: _) (b :: _) (c :: _) (d :: _)
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimEqualV
+  :: forall (a :: _) (b :: _) (c :: _) (d :: _)
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimNotEqualV
+  :: forall (a :: _) (b :: _) (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 :: _) . (a ~ VecScalar b Float) => a -> a
+PrimDFdy :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimFWidth :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
+PrimNoise1 :: forall (a :: _) . VecScalar a Float -> Float
+PrimNoise2 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 2) Float
+PrimNoise3 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 3) Float
+PrimNoise4 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 4) Float
+head
+  = \(a :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs undefined)
+    \(b :: _) -> \_ -> _rhs b
+    a
+++
+  = \(a :: _) (b :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs b)
+    \(c :: _) (d :: _) -> _rhs (c : d ++ b)
+    a
+foldr
+  = \(a :: _) (b :: _) (c :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs b)
+    \(d :: _) (e :: _) -> _rhs (a d (foldr a b e))
+    c
+concat = _rhs (foldr ++ Nil)
+map
+  = \(a :: _) (b :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs Nil)
+    \(c :: _) (d :: _) -> _rhs (a c : map a d)
+    b
+concatMap
+  = (\(a :: _) (b :: _) -> _rhs (concat (map a b)))
+    :: forall (c :: _) (d :: _) . (c -> List d) -> List c -> List d
+len
+  = \(a :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs (fromInt 0))
+    \_ (b :: _) -> _rhs (fromInt 1 `primAddInt` len b)
+    a
+data Maybe (_ :: Type) :: Type where
+    Nothing :: Maybe _a
+    Just :: _a -> Maybe _a
+data Vector (_ :: Nat) (_ :: Type) :: Type where
+    
+data PrimitiveType :: Type where
+    Triangle :: PrimitiveType
+    Line :: PrimitiveType
+    Point :: PrimitiveType
+    TriangleAdjacency :: PrimitiveType
+    LineAdjacency :: PrimitiveType
+data Primitive (_ :: Type) :: PrimitiveType -> Type where
+    PrimPoint :: _a -> Primitive _a Point
+    PrimLine :: _a -> _a -> Primitive _a Line
+    PrimTriangle :: _a -> _a -> _a -> Primitive _a Triangle
+mapPrimitive
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (a -> b) -> Primitive a c -> Primitive b c
+'PrimitiveStream = \(a :: _) (b :: _) -> _rhs ('List ('Primitive b a))
+mapPrimitives
+  = (\(a :: _) -> _rhs (map (mapPrimitive a)))
+    :: forall (b :: _) (c :: _) (d :: _)
+      . (b -> c) -> PrimitiveStream d b -> PrimitiveStream d c
+'ListElem
+  = (\(a :: _) -> match'List \_ -> _ \(b :: _) -> _rhs b a undefined)
+    :: Type -> Type
+fetchArrays
+  :: forall (a :: _) (b :: _) (c :: _)
+    . (b ~ map ListElem c) => HList c -> PrimitiveStream a (HList b)
+fetch
+  :: forall (a :: _) (b :: _) . String -> HList b -> PrimitiveStream a (HList b)
+Attribute :: forall (a :: _) . String -> a
+fetchStream
+  :: forall (a :: _) (b :: List Type)
+    . String
+      -> forall (c :: List String) -> (len c ~ len b) => PrimitiveStream a (HList b)
+data SimpleFragment (_ :: Type) :: Type where
+    SimpleFragment :: Vec (fromInt 3) Float -> _a -> SimpleFragment _a
+'Fragment = \(a :: _) (b :: _) -> _rhs ('Vector a ('Maybe ('SimpleFragment b)))
+sFragmentCoords
+  = \(a :: _) -> 'SimpleFragmentCase \_ -> _ :: _ \(b :: _) -> \_ -> _rhs b a
+sFragmentValue
+  = \(a :: _) -> 'SimpleFragmentCase \_ -> _ :: _ \_ (b :: _) -> _rhs b a
+'FragmentStream = \(a :: _) (b :: _) -> _rhs ('List ('Fragment a b))
+customizeDepth
+  :: forall (a :: _) (b :: _) . (a -> Float) -> Fragment b a -> Fragment b a
+customizeDepths
+  = (\(a :: _) -> _rhs (map (customizeDepth a)))
+    :: forall (b :: _) (c :: _)
+      . (b -> Float) -> FragmentStream c b -> FragmentStream c b
+filterFragment
+  :: forall (a :: _) (b :: _) . (a -> Bool) -> Fragment b a -> Fragment b a
+filterFragments
+  = (\(a :: _) -> _rhs (map (filterFragment a)))
+    :: forall (b :: _) (c :: _)
+      . (b -> Bool) -> FragmentStream c b -> FragmentStream c b
+mapFragment
+  :: forall (a :: _) (b :: _) (c :: _) . (a -> b) -> Fragment c a -> Fragment c b
+mapFragments
+  = (\(a :: _) -> _rhs (map (mapFragment a)))
+    :: forall (b :: _) (c :: _) (d :: _)
+      . (b -> c) -> FragmentStream d b -> FragmentStream d c
+data ImageKind :: Type where
+    Color :: Type -> ImageKind
+    Depth :: ImageKind
+    Stencil :: ImageKind
+imageType
+  = (\(a :: _) -> 'ImageKindCase
+      \_ -> _ :: _
+      \(b :: _) -> _rhs b
+      (_rhs 'Float)
+      (_rhs 'Int)
+      a)
+    :: ImageKind -> Type
+data Image (_ :: Nat) (_ :: ImageKind) :: Type where
+    
+ColorImage
+  :: forall (a :: _) (b :: _) (c :: _) (d :: _)
+    . (Num c, d ~ VecScalar b c) => d -> Image a (Color d)
+DepthImage :: forall (a :: _) . Float -> Image a Depth
+StencilImage :: forall (a :: _) . Int -> Image a Stencil
+emptyDepthImage = _rhs (DepthImage @(fromInt 1))
+emptyColorImage = _rhs (ColorImage @(fromInt 1))
+data Swizz :: Type where
+    Sx :: Swizz
+    Sy :: Swizz
+    Sz :: Swizz
+    Sw :: Swizz
+swizzscalar
+  = (\(a :: _) (b :: _) -> 'VecSCase
+      \_ -> \_ -> _ :: _
+      \(c :: _) (d :: _) -> 'SwizzCase
+        \_ -> _ :: _
+        (_rhs c)
+        (_rhs d)
+        (_rhs undefined)
+        (_rhs undefined)
+        b
+      \(e :: _) (f :: _) (g :: _) -> 'SwizzCase
+        \_ -> _ :: _
+        (_rhs e)
+        (_rhs f)
+        (_rhs g)
+        (_rhs undefined)
+        b
+      \(h :: _) (i :: _) (j :: _) (k :: _) -> 'SwizzCase
+        \_ -> _ :: _
+        (_rhs h)
+        (_rhs i)
+        (_rhs j)
+        (_rhs k)
+        b
+      a)
+    :: forall (l :: _) (m :: _) . Vec m l -> Swizz -> l
+definedVec
+  = (\(a :: _) -> 'VecSCase
+      \_ -> \_ -> _ :: _
+      \_ -> \_ -> _rhs True
+      \_ -> \_ -> \_ -> _rhs True
+      \_ -> \_ -> \_ -> \_ -> _rhs True
+      a)
+    :: forall (b :: _) (c :: _) . Vec c b -> Bool
+swizzvector
+  = (\(a :: _) (b :: _) -> 'BoolCase
+      \_ -> _ :: _
+      (_rhs undefined)
+      (_rhs (mapVec (swizzscalar a) b))
+      (definedVec a))
+    :: forall (c :: _) (d :: _) (e :: _) . Vec d c -> Vec e Swizz -> Vec e c
+data BlendingFactor :: Type where
+    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
+data BlendEquation :: Type where
+    FuncAdd :: BlendEquation
+    FuncSubtract :: BlendEquation
+    FuncReverseSubtract :: BlendEquation
+    Min :: BlendEquation
+    Max :: BlendEquation
+data LogicOperation :: Type where
+    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
+data StencilOperation :: Type where
+    OpZero :: StencilOperation
+    OpKeep :: StencilOperation
+    OpReplace :: StencilOperation
+    OpIncr :: StencilOperation
+    OpIncrWrap :: StencilOperation
+    OpDecr :: StencilOperation
+    OpDecrWrap :: StencilOperation
+    OpInvert :: StencilOperation
+data ComparisonFunction :: Type where
+    Never :: ComparisonFunction
+    Less :: ComparisonFunction
+    Equal :: ComparisonFunction
+    Lequal :: ComparisonFunction
+    Greater :: ComparisonFunction
+    Notequal :: ComparisonFunction
+    Gequal :: ComparisonFunction
+    Always :: ComparisonFunction
+data ProvokingVertex :: Type where
+    LastVertex :: ProvokingVertex
+    FirstVertex :: ProvokingVertex
+data CullMode :: Type where
+    CullFront :: CullMode
+    CullBack :: CullMode
+    CullNone :: CullMode
+data PointSize (_ :: Type) :: Type where
+    PointSize :: Float -> PointSize _a
+    ProgramPointSize :: (_a -> Float) -> PointSize _a
+data PolygonMode (_ :: Type) :: Type where
+    PolygonFill :: PolygonMode _a
+    PolygonPoint :: PointSize _a -> PolygonMode _a
+    PolygonLine :: Float -> PolygonMode _a
+data PolygonOffset :: Type where
+    NoOffset :: PolygonOffset
+    Offset :: Float -> Float -> PolygonOffset
+data PointSpriteCoordOrigin :: Type where
+    LowerLeft :: PointSpriteCoordOrigin
+    UpperLeft :: PointSpriteCoordOrigin
+primTexture :: HList 'Nil -> Vec (fromInt 2) Float -> Vec (fromInt 4) Float
+Uniform :: forall (a :: _) . String -> a
+data RasterContext (_ :: Type) :: PrimitiveType -> Type where
+    TriangleCtx
+      :: CullMode
+        -> PolygonMode _a
+          -> PolygonOffset -> ProvokingVertex -> RasterContext _a Triangle
+    PointCtx
+      :: PointSize _a -> Float -> PointSpriteCoordOrigin -> RasterContext _a Point
+    LineCtx :: Float -> ProvokingVertex -> RasterContext _a Line
+data Blending :: Type -> Type where
+    NoBlending :: forall (a :: _) . Blending a
+    BlendLogicOp :: forall (b :: _) . Integral b => LogicOperation -> Blending b
+    Blend
+      :: HList ('Cons BlendEquation ('Cons BlendEquation 'Nil))
+        -> HList
+            ('Cons
+              (HList ('Cons BlendingFactor ('Cons BlendingFactor 'Nil)))
+              ('Cons (HList ('Cons BlendingFactor ('Cons BlendingFactor 'Nil))) 'Nil))
+          -> Vec (fromInt 4) Float -> Blending Float
+data StencilTests :: Type where
+    
+data StencilOps :: Type where
+    
+data FragmentOperation :: ImageKind -> Type where
+    ColorOp
+      :: forall (a :: _) (b :: _)
+        . Num a
+          => Blending a -> VecScalar b Bool -> FragmentOperation (Color (VecScalar b a))
+    DepthOp :: ComparisonFunction -> Bool -> FragmentOperation Depth
+    StencilOp
+      :: StencilTests -> StencilOps -> StencilOps -> FragmentOperation Stencil
+data Interpolated (_ :: Type) :: Type where
+    Smooth :: Floating _a => Interpolated _a
+    NoPerspective :: Floating _a => Interpolated _a
+    Flat :: Interpolated _a
+rasterizePrimitive
+  :: forall (a :: _) (b :: _) (c :: _) (d :: _)
+    . (map Interpolated a ~ b, c ~ 'Cons (Vec (fromInt 4) Float) a)
+      => HList b
+        -> RasterContext (HList c) d
+          -> Primitive (HList c) d -> FragmentStream (fromInt 1) (HList a)
+rasterizePrimitives
+  = \(a :: _) (b :: _) (c :: _) -> _rhs (concat (map (rasterizePrimitive b a) c))
+'ImageLC
+  = (\(a :: _) -> match'Image \_ -> _ \(b :: _) -> \_ -> _rhs b a undefined)
+    :: Type -> Nat
+allSame
+  = (\(a :: _) -> 'ListCase
+      \_ -> _ :: _
+      (_rhs 'Unit)
+      \(b :: _) (c :: _) -> 'ListCase
+        \_ -> _ :: _
+        (_rhs 'Unit)
+        \(d :: _) (e :: _) -> _rhs ('T2 (b ~ d) (allSame (d : e)))
+        c
+      a)
+    :: forall (f :: _) . List f -> Type
+sameLayerCounts = \(a :: _) -> _rhs (allSame (map 'ImageLC a))
+data FrameBuffer (_ :: Nat) (_ :: List ImageKind) :: Type where
+    
+imageType'
+  = (\(a :: _) -> 'ListCase
+      \_ -> _ :: _
+      (_rhs (map imageType a))
+      \(b :: _) (c :: _) -> 'ImageKindCase
+        \_ -> _ :: _
+        \_ -> _rhs (map imageType a)
+        (_rhs (map imageType c))
+        (_rhs (map imageType a))
+        b
+      a)
+    :: List ImageKind -> List Type
+'FragmentOperationKind
+  = (\(a :: _) -> match'FragmentOperation \_ -> _ \(b :: _) -> _rhs b a undefined)
+    :: Type -> ImageKind
+Accumulate
+  :: forall (a :: _) (b :: Nat) (c :: List Type)
+    . (a ~ map FragmentOperationKind c)
+      => HList c
+        -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
+accumulateWith = \(a :: _) (b :: _) -> _rhs (HCons a (HCons b HNil))
+overlay
+  = \(a :: _) (b :: _) -> hlistConsCase
+    (_ :: _)
+    \(c :: _) (d :: _) -> hlistConsCase
+      (_ :: _)
+      \(e :: _) (f :: _) -> hlistNilCase (_ :: _) (_rhs (Accumulate c e a)) f
+      d
+    b
+infixl 0 overlay
+'GetImageKind
+  = (\(a :: _) -> match'Image \_ -> _ \_ (b :: _) -> _rhs b a undefined)
+    :: Type -> ImageKind
+FrameBuffer
+  :: forall (a :: List Type)
+    . sameLayerCounts a
+      => HList a -> FrameBuffer (ImageLC (head a)) (map GetImageKind a)
+imageFrame = _rhs FrameBuffer
+accumulate
+  = \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs
+    (Accumulate a (mapFragments b c) d)
+PrjImage
+  :: forall (a :: _)
+    . FrameBuffer (fromInt 1) ('Cons a 'Nil) -> Image (fromInt 1) a
+PrjImageColor
+  :: FrameBuffer
+      (fromInt 1)
+      ('Cons 'Depth ('Cons ('Color (Vec (fromInt 4) Float)) 'Nil))
+    -> Image (fromInt 1) (Color (Vec (fromInt 4) Float))
+data Output :: Type where
+    ScreenOut :: forall (a :: _) (b :: _) . FrameBuffer a b -> Output
+renderFrame = _rhs ScreenOut
+data Texture :: Type where
+    Texture2DSlot :: String -> Texture
+    Texture2D
+      :: Vec (fromInt 2) Int
+        -> Image (fromInt 1) (Color (Vec (fromInt 4) Float)) -> Texture
+data Filter :: Type where
+    PointFilter :: Filter
+    LinearFilter :: Filter
+data EdgeMode :: Type where
+    Repeat :: EdgeMode
+    MirroredRepeat :: EdgeMode
+    ClampToEdge :: EdgeMode
+data Sampler :: Type where
+    Sampler :: Filter -> EdgeMode -> Texture -> Sampler
+texture2D :: Sampler -> Vec (fromInt 2) Float -> Vec (fromInt 4) Float
+accumulationContext = \(a :: _) -> _rhs a
 main is not found
 ------------ trace
 id :: forall a . a -> a
@@ -5,8 +1020,16 @@ id :: forall a . a -> a
 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
-'VecSCase :: 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
+'VecSCase
+  :: 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
 'Vec :: Nat -> Type -> Type
 'VecScalar :: Nat -> Type -> Type
@@ -17,11 +1040,37 @@ M42F :: Vec 4 Float -> Vec 4
 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
-M24F :: Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Mat 2 4 Float
-M34F :: Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 3 4 Float
-M44F :: Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-'MatCase :: 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
+M24F
+  :: Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Mat 2 4 Float
+M34F
+  :: Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 3 4 Float
+M44F
+  :: Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+'MatCase
+  :: 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 -> Type
 'Component :: Type -> Type
@@ -40,17 +1089,29 @@ PrimMod :: forall a b (c :: Nat) . (Num a[0;3
 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
-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
-PrimBAndS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-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
+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
+PrimBAndS
+  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+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
-PrimBShiftL :: forall a b (c :: Nat) d . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
-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
-PrimBShiftRS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+PrimBShiftL
+  :: forall a b (c :: Nat) d
+    . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+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
+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
@@ -89,20 +1150,30 @@ PrimMin :: forall a b (c :: Nat) . (Num a[0;3
 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
+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)
-PrimClamp :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
-PrimClampS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
+PrimClamp
+  :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
+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
+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
+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
@@ -112,22 +1183,40 @@ PrimDistance :: forall a (b :: Nat) . (a ~ [3
 PrimDot :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
 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
+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
 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 :: forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-PrimGreaterThan :: forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-PrimGreaterThanEqual :: forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-PrimEqualV :: forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-PrimNotEqualV :: forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+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
+  :: forall a (b :: Nat) c d
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimGreaterThan
+  :: forall a (b :: Nat) c d
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimGreaterThanEqual
+  :: forall a (b :: Nat) c d
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimEqualV
+  :: forall a (b :: Nat) c d
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimNotEqualV
+  :: 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
@@ -147,72 +1236,144 @@ len :: forall a . List a -> Int
 'Maybe :: Type -> Type
 Nothing :: forall a . Maybe a
 Just :: forall a . a -> Maybe a
-'MaybeCase :: 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
+'MaybeCase
+  :: 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
-'VectorCase :: 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
+'VectorCase
+  :: 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
-'PrimitiveTypeCase :: 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
+'PrimitiveTypeCase
+  :: 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
 PrimPoint :: forall a . a -> Primitive a 'Point
 PrimLine :: forall a . a -> a -> Primitive a 'Line
 PrimTriangle :: forall a . a -> a -> a -> Primitive a 'Triangle
-'PrimitiveCase :: 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
+'PrimitiveCase
+  :: 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) -> List (Primitive a c) -> List (Primitive b c)
+mapPrimitives
+  :: forall a b (c :: PrimitiveType)
+    . (a -> b) -> List (Primitive a c) -> List (Primitive b c)
 'ListElem :: Type -> Type
-fetchArrays :: forall (a :: PrimitiveType) (b :: List Type) (c :: List Type) . (b ~ map Type Type ListElem c) => HList c -> PrimitiveStream a (HList b)
-fetch :: forall (a :: PrimitiveType) (b :: List Type) . String -> HList b -> PrimitiveStream a (HList b)
+fetchArrays
+  :: forall (a :: PrimitiveType) (b :: List Type) (c :: List Type)
+    . (b ~ map Type Type ListElem c) => HList c -> PrimitiveStream a (HList b)
+fetch
+  :: forall (a :: PrimitiveType) (b :: List Type)
+    . String -> HList b -> PrimitiveStream a (HList b)
 Attribute :: forall a . String -> a
-fetchStream :: forall (a :: PrimitiveType) (b :: List Type) . String -> forall (c :: List String) -> (len String c ~ len Type b) => PrimitiveStream a (HList b)
+fetchStream
+  :: forall (a :: PrimitiveType) (b :: List Type)
+    . String
+      -> forall (c :: List String)
+        -> (len String c ~ len Type b) => PrimitiveStream a (HList b)
 'SimpleFragment :: Type -> Type
 SimpleFragment :: forall a . Vec 3 Float -> a -> SimpleFragment a
-'SimpleFragmentCase :: 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
+'SimpleFragmentCase
+  :: 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) -> List (Vector b (Maybe (SimpleFragment a))) -> List (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) -> List (Vector b (Maybe (SimpleFragment a))) -> List (Vector b (Maybe (SimpleFragment a)))
+customizeDepth
+  :: forall a (b :: Nat) . (a -> Float) -> Fragment b a -> Fragment b a
+customizeDepths
+  :: forall a (b :: Nat)
+    . (a -> Float)
+      -> List (Vector b (Maybe (SimpleFragment a)))
+        -> List (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)
+      -> List (Vector b (Maybe (SimpleFragment a)))
+        -> List (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) -> List (Vector c (Maybe (SimpleFragment a))) -> List (Vector c (Maybe (SimpleFragment b)))
+mapFragments
+  :: forall a b (c :: Nat)
+    . (a -> b)
+      -> List (Vector c (Maybe (SimpleFragment a)))
+        -> List (Vector c (Maybe (SimpleFragment b)))
 'ImageKind :: Type
 Color :: Type -> ImageKind
 Depth :: ImageKind
 Stencil :: ImageKind
-'ImageKindCase :: 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
+'ImageKindCase
+  :: 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
-'ImageCase :: 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)
+'ImageCase
+  :: 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
 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)
+emptyColorImage
+  :: forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
 'Swizz :: Type
 Sx :: Swizz
 Sy :: Swizz
 Sz :: Swizz
 Sw :: Swizz
-'SwizzCase :: forall (a :: Swizz -> Type) -> a 'Sx -> a 'Sy -> a 'Sz -> a 'Sw -> forall (b :: Swizz) -> a b
+'SwizzCase
+  :: 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
+swizzvector
+  :: forall a (b :: Nat) (c :: Nat) . Vec b a -> Vec c Swizz -> VecS a c
 'BlendingFactor :: Type
 ZeroBF :: BlendingFactor
 OneBF :: BlendingFactor
@@ -229,16 +1390,39 @@ OneMinusConstantColor :: BlendingFactor
 ConstantAlpha :: BlendingFactor
 OneMinusConstantAlpha :: BlendingFactor
 SrcAlphaSaturate :: BlendingFactor
-'BlendingFactorCase :: forall (a :: BlendingFactor -> Type) -> a 'ZeroBF -> a 'OneBF -> a 'SrcColor -> a 'OneMinusSrcColor -> a 'DstColor -> a 'OneMinusDstColor -> a 'SrcAlpha -> a 'OneMinusSrcAlpha -> a 'DstAlpha -> a 'OneMinusDstAlpha -> a 'ConstantColor -> a 'OneMinusConstantColor -> 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
+'BlendingFactorCase
+  :: forall (a :: BlendingFactor -> Type)
+    -> a 'ZeroBF
+      -> a 'OneBF
+        -> a 'SrcColor
+          -> a 'OneMinusSrcColor
+            -> a 'DstColor
+              -> a 'OneMinusDstColor
+                -> a 'SrcAlpha
+                  -> a 'OneMinusSrcAlpha
+                    -> a 'DstAlpha
+                      -> a 'OneMinusDstAlpha
+                        -> a 'ConstantColor
+                          -> a 'OneMinusConstantColor
+                            -> 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
-'BlendEquationCase :: 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
+'BlendEquationCase
+  :: 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
@@ -256,8 +1440,24 @@ CopyInverted :: LogicOperation
 OrInverted :: LogicOperation
 Nand :: LogicOperation
 Set :: LogicOperation
-'LogicOperationCase :: forall (a :: LogicOperation -> Type) -> a 'Clear -> a 'And -> a 'AndReverse -> a 'Copy -> a 'AndInverted -> a 'Noop -> a 'Xor -> a 'Or -> a 'Nor -> a 'Equiv -> a 'Invert -> 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
+'LogicOperationCase
+  :: forall (a :: LogicOperation -> Type)
+    -> a 'Clear
+      -> a 'And
+        -> a 'AndReverse
+          -> a 'Copy
+            -> a 'AndInverted
+              -> a 'Noop
+                -> a 'Xor
+                  -> a 'Or
+                    -> a 'Nor
+                      -> a 'Equiv
+                        -> a 'Invert
+                          -> 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
@@ -267,8 +1467,17 @@ OpIncrWrap :: StencilOperation
 OpDecr :: StencilOperation
 OpDecrWrap :: StencilOperation
 OpInvert :: StencilOperation
-'StencilOperationCase :: 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
+'StencilOperationCase
+  :: 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
@@ -278,116 +1487,274 @@ Greater :: ComparisonFunction
 Notequal :: ComparisonFunction
 Gequal :: ComparisonFunction
 Always :: ComparisonFunction
-'ComparisonFunctionCase :: 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
+'ComparisonFunctionCase
+  :: 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
-'ProvokingVertexCase :: 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
+'ProvokingVertexCase
+  :: 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
-'CullModeCase :: 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
+'CullModeCase
+  :: 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
-'PointSizeCase :: 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
+'PointSizeCase
+  :: 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
-'PolygonModeCase :: forall a . forall (b :: PolygonMode a -> Type) -> b 'PolygonFill -> (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
+'PolygonModeCase
+  :: forall a
+    . forall (b :: PolygonMode a -> Type)
+      -> b 'PolygonFill
+        -> (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
-'PolygonOffsetCase :: 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
+'PolygonOffsetCase
+  :: 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
-'PointSpriteCoordOriginCase :: 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
+'PointSpriteCoordOriginCase
+  :: 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 :: forall a . PointSize a -> Float -> PointSpriteCoordOrigin -> RasterContext a 'Point
+TriangleCtx
+  :: forall a
+    . CullMode
+      -> PolygonMode a
+        -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle
+PointCtx
+  :: forall a
+    . PointSize a -> Float -> PointSpriteCoordOrigin -> RasterContext a 'Point
 LineCtx :: forall a . Float -> ProvokingVertex -> RasterContext a 'Line
-'RasterContextCase :: forall a . forall (b :: forall (c :: PrimitiveType) -> RasterContext a c -> Type) -> (forall (d :: CullMode) (e :: PolygonMode a) (f :: PolygonOffset) (g :: ProvokingVertex) -> b 'Triangle ('TriangleCtx d e f g)) -> (forall (h :: PointSize a) (i :: Float) (j :: PointSpriteCoordOrigin) -> 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
+'RasterContextCase
+  :: forall a
+    . forall (b :: forall (c :: PrimitiveType) -> RasterContext a c -> Type)
+      -> (forall (d :: CullMode)
+            (e :: PolygonMode a) (f :: PolygonOffset) (g :: ProvokingVertex)
+          -> b 'Triangle ('TriangleCtx d e f g))
+        -> (forall (h :: PointSize a) (i :: Float) (j :: PointSpriteCoordOrigin)
+            -> 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
-'BlendingCase :: forall (a :: forall b -> Blending b -> Type) -> (forall c . a c ('NoBlending c)) -> (forall d (e :: 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
+Blend
+  :: (BlendEquation, BlendEquation)
+    -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
+      -> Vec 4 Float -> Blending Float
+'BlendingCase
+  :: forall (a :: forall b -> Blending b -> Type)
+    -> (forall c . a c ('NoBlending c))
+      -> (forall d (e :: 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
-'StencilTestsCase :: forall (a :: StencilTests -> Type) (b :: StencilTests) -> a b
-match'StencilTests :: forall (a :: Type -> Type) -> a StencilTests -> forall b -> a b -> a b
+'StencilTestsCase
+  :: forall (a :: StencilTests -> Type) (b :: StencilTests) -> a b
+match'StencilTests
+  :: forall (a :: Type -> Type) -> a StencilTests -> forall b -> a b -> a b
 'StencilOps :: Type
 'StencilOpsCase :: forall (a :: StencilOps -> Type) (b :: StencilOps) -> a b
-match'StencilOps :: forall (a :: Type -> Type) -> a StencilOps -> forall b -> a b -> a b
+match'StencilOps
+  :: forall (a :: Type -> Type) -> a StencilOps -> forall b -> a b -> a b
 'FragmentOperation :: ImageKind -> Type
-ColorOp :: forall a (b :: Nat) . Num a => Blending a -> VecScalar b Bool -> FragmentOperation ('Color (VecScalar b a))
+ColorOp
+  :: 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
-'FragmentOperationCase :: forall (a :: forall (b :: ImageKind) -> FragmentOperation b -> Type) -> (forall c (d :: Nat) (e :: 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
-match'FragmentOperation :: forall (a :: Type -> Type) -> (forall (b :: ImageKind) -> a (FragmentOperation b)) -> forall c -> a c -> a c
+StencilOp
+  :: StencilTests -> StencilOps -> StencilOps -> FragmentOperation 'Stencil
+'FragmentOperationCase
+  :: forall (a :: forall (b :: ImageKind) -> FragmentOperation b -> Type)
+    -> (forall c (d :: Nat) (e :: 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
+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
-'InterpolatedCase :: forall a . forall (b :: Interpolated a -> Type) -> (forall (c :: Floating a) . b ('Smooth c)) -> (forall (d :: Floating a) . b ('NoPerspective d)) -> b 'Flat -> forall (e :: Interpolated a) -> b e
-match'Interpolated :: forall (a :: Type -> Type) -> (forall b -> a (Interpolated b)) -> forall c -> a c -> a c
-rasterizePrimitive :: forall (a :: List Type) (b :: List Type) (c :: List Type) (d :: PrimitiveType) . (map Type Type Interpolated a ~ b, c ~ 'Cons (Vec 4 Float) a) => HList b -> RasterContext (HList c) d -> Primitive (HList c) d -> FragmentStream 1 (HList a)
-rasterizePrimitives :: forall (a :: List Type) (b :: PrimitiveType) . RasterContext (HList ('Cons (Vec 4 Float) a)) b -> HList (map Type Type Interpolated a) -> List (Primitive (HList ('Cons (Vec 4 Float) a)) b) -> List (Vector 1 (Maybe (SimpleFragment (HList a))))
+'InterpolatedCase
+  :: forall a
+    . forall (b :: Interpolated a -> Type)
+      -> (forall (c :: Floating a) . b ('Smooth c))
+        -> (forall (d :: Floating a) . b ('NoPerspective d))
+          -> b 'Flat -> forall (e :: Interpolated a) -> b e
+match'Interpolated
+  :: forall (a :: Type -> Type)
+    -> (forall b -> a (Interpolated b)) -> forall c -> a c -> a c
+rasterizePrimitive
+  :: forall (a :: List Type)
+      (b :: List Type) (c :: List Type) (d :: PrimitiveType)
+    . (map Type Type Interpolated a ~ b, c ~ 'Cons (Vec 4 Float) a)
+      => HList b
+        -> RasterContext (HList c) d
+          -> Primitive (HList c) d -> FragmentStream 1 (HList a)
+rasterizePrimitives
+  :: forall (a :: List Type) (b :: PrimitiveType)
+    . RasterContext (HList ('Cons (Vec 4 Float) a)) b
+      -> HList (map Type Type Interpolated a)
+        -> List (Primitive (HList ('Cons (Vec 4 Float) a)) b)
+          -> List (Vector 1 (Maybe (SimpleFragment (HList a))))
 'ImageLC :: Type -> Nat
 allSame :: forall a . List a -> Type
 sameLayerCounts :: List Type -> Type
 'FrameBuffer :: Nat -> List ImageKind -> Type
-'FrameBufferCase :: forall (a :: Nat) (b :: List ImageKind) . forall (c :: FrameBuffer a b -> Type) (d :: FrameBuffer a b) -> c d
-match'FrameBuffer :: forall (a :: Type -> Type) -> (forall (b :: Nat) (c :: List ImageKind) -> a (FrameBuffer b c)) -> forall d -> a d -> a d
+'FrameBufferCase
+  :: forall (a :: Nat) (b :: List ImageKind)
+    . forall (c :: FrameBuffer a b -> Type) (d :: FrameBuffer a b) -> c d
+match'FrameBuffer
+  :: forall (a :: Type -> Type)
+    -> (forall (b :: Nat) (c :: List ImageKind) -> a (FrameBuffer b c))
+      -> forall d -> a d -> a d
 imageType' :: List ImageKind -> List Type
 'FragmentOperationKind :: Type -> ImageKind
-Accumulate :: forall (a :: List ImageKind) (b :: Nat) (c :: List Type) . (a ~ map Type ImageKind FragmentOperationKind c) => HList c -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
+Accumulate
+  :: forall (a :: List ImageKind) (b :: Nat) (c :: List Type)
+    . (a ~ map Type ImageKind FragmentOperationKind c)
+      => 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 :: List Type) . FrameBuffer a (map Type ImageKind FragmentOperationKind b) -> (HList b, List (Fragment a (HList (imageType' (map Type ImageKind FragmentOperationKind b))))) -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+overlay
+  :: forall (a :: Nat) (b :: List Type)
+    . FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+      -> (HList b, List
+            (Fragment a (HList (imageType' (map Type ImageKind FragmentOperationKind b)))))
+        -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
 'GetImageKind :: Type -> ImageKind
-FrameBuffer :: forall (a :: List Type) . sameLayerCounts a => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
-imageFrame :: forall (a :: List Type) . sameLayerCounts a => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
-accumulate :: forall (a :: Nat) (b :: List Type) c . HList b -> (c -> HList (imageType' (map Type ImageKind FragmentOperationKind b))) -> List (Vector a (Maybe (SimpleFragment c))) -> FrameBuffer a (map Type ImageKind FragmentOperationKind b) -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+FrameBuffer
+  :: forall (a :: List Type)
+    . sameLayerCounts a
+      => HList a
+        -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
+imageFrame
+  :: forall (a :: List Type)
+    . sameLayerCounts a
+      => HList a
+        -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
+accumulate
+  :: forall (a :: Nat) (b :: List Type) c
+    . HList b
+      -> (c -> HList (imageType' (map Type ImageKind FragmentOperationKind b)))
+        -> List (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 ('Cons a 'Nil) -> Image 1 a
-PrjImageColor :: FrameBuffer 1 ('Cons 'Depth ('Cons ('Color (Vec 4 Float)) 'Nil)) -> Image 1 ('Color (Vec 4 Float))
+PrjImageColor
+  :: FrameBuffer 1 ('Cons 'Depth ('Cons ('Color (Vec 4 Float)) 'Nil))
+    -> Image 1 ('Color (Vec 4 Float))
 'Output :: Type
 ScreenOut :: forall (a :: Nat) (b :: List ImageKind) . FrameBuffer a b -> Output
-'OutputCase :: forall (a :: Output -> Type) -> (forall (b :: Nat) (c :: List ImageKind) . forall (d :: FrameBuffer b c) -> a ('ScreenOut b c d)) -> forall (e :: Output) -> a e
+'OutputCase
+  :: forall (a :: Output -> Type)
+    -> (forall (b :: Nat) (c :: List 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
-renderFrame :: forall (a :: Nat) (b :: List ImageKind) . FrameBuffer a b -> Output
+renderFrame
+  :: forall (a :: Nat) (b :: List ImageKind) . FrameBuffer a b -> Output
 'Texture :: Type
 Texture2DSlot :: String -> Texture
 Texture2D :: Vec 2 Int -> Image 1 ('Color (Vec 4 Float)) -> Texture
-'TextureCase :: 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
+'TextureCase
+  :: 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
-'FilterCase :: forall (a :: Filter -> Type) -> a 'PointFilter -> a 'LinearFilter -> forall (b :: Filter) -> a b
+'FilterCase
+  :: 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
-'EdgeModeCase :: 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
+'EdgeModeCase
+  :: 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
-'SamplerCase :: 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
+'SamplerCase
+  :: 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
 texture2D :: Sampler -> Vec 2 Float -> Vec 4 Float
 accumulationContext :: forall a . a -> a
 ------------ tooltips
@@ -1054,8 +2421,10 @@ testdata/Builtins.lc 126:63-126:64  Type
 testdata/Builtins.lc 126:69-126:70  Type
 testdata/Builtins.lc 126:69-126:75  Type
 testdata/Builtins.lc 126:74-126:75  Type
-testdata/Builtins.lc 127:1-127:12  forall a b (c :: Nat) d . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
-testdata/Builtins.lc 127:14-127:25  forall a b (c :: Nat) d . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+testdata/Builtins.lc 127:1-127:12  forall a b (c :: Nat) d
+  . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+testdata/Builtins.lc 127:14-127:25  forall a b (c :: Nat) d
+  . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
 testdata/Builtins.lc 127:34-127:102  Type
 testdata/Builtins.lc 127:35-127:43  Type -> Type
 testdata/Builtins.lc 127:35-127:45  Type
@@ -2028,7 +3397,8 @@ testdata/Builtins.lc 253:24-253:38  Primitive _g _a -> Primitive _f _a
 testdata/Builtins.lc 253:37-253:38  _i -> _h
 testdata/Builtins.lc 255:30-255:38  Type -> Type
 testdata/Builtins.lc 255:45-255:46  Type | Type -> Type
-testdata/Builtins.lc 260:1-260:12  forall (a :: PrimitiveType) (b :: List Type) (c :: List Type) . (b ~ map Type Type ListElem c) => HList c -> PrimitiveStream a (HList b)
+testdata/Builtins.lc 260:1-260:12  forall (a :: PrimitiveType) (b :: List Type) (c :: List Type)
+  . (b ~ map Type Type ListElem c) => HList c -> PrimitiveStream a (HList b)
 testdata/Builtins.lc 260:32-260:119  Type
 testdata/Builtins.lc 260:56-260:57  _e
 testdata/Builtins.lc 260:56-260:59  _d -> Type
@@ -2050,7 +3420,8 @@ testdata/Builtins.lc 260:108-260:109  _f
 testdata/Builtins.lc 260:111-260:116  List Type -> Type
 testdata/Builtins.lc 260:111-260:118  Type
 testdata/Builtins.lc 260:117-260:118  List Type
-testdata/Builtins.lc 262:1-262:6  forall (a :: PrimitiveType) (b :: List Type) . String -> HList b -> PrimitiveStream a (HList b)
+testdata/Builtins.lc 262:1-262:6  forall (a :: PrimitiveType) (b :: List Type)
+  . String -> HList b -> PrimitiveStream a (HList b)
 testdata/Builtins.lc 262:56-262:62  Type
 testdata/Builtins.lc 262:56-262:104  Type
 testdata/Builtins.lc 262:66-262:71  List Type -> Type
@@ -2068,7 +3439,9 @@ testdata/Builtins.lc 264:1-264:10  forall a . String -> a
 testdata/Builtins.lc 264:14-264:20  Type
 testdata/Builtins.lc 264:14-264:25  Type
 testdata/Builtins.lc 264:24-264:25  Type | _c
-testdata/Builtins.lc 266:1-266:12  forall (a :: PrimitiveType) (b :: List Type) . String -> forall (c :: List String) -> (len String c ~ len Type b) => PrimitiveStream a (HList b)
+testdata/Builtins.lc 266:1-266:12  forall (a :: PrimitiveType) (b :: List Type)
+  . String
+    -> forall (c :: List String) -> (len String c ~ len Type b) => PrimitiveStream a (HList b)
 testdata/Builtins.lc 266:31-266:37  Type
 testdata/Builtins.lc 266:31-266:123  Type
 testdata/Builtins.lc 266:32-266:36  Type
@@ -2154,9 +3527,13 @@ testdata/Builtins.lc 281:58-281:74  Type -> Type
 testdata/Builtins.lc 281:58-281:76  Type
 testdata/Builtins.lc 281:73-281:74  Nat
 testdata/Builtins.lc 281:75-281:76  Type
-testdata/Builtins.lc 282:1-282:16  forall a (b :: Nat) . (a -> Float) -> List (Vector b (Maybe (SimpleFragment a))) -> List (Vector b (Maybe (SimpleFragment a)))
+testdata/Builtins.lc 282:1-282:16  forall a (b :: Nat)
+  . (a -> Float)
+    -> List (Vector b (Maybe (SimpleFragment a)))
+      -> List (Vector b (Maybe (SimpleFragment a)))
 testdata/Builtins.lc 282:21-282:24  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 282:21-282:43  (_b -> Float) -> FragmentStream _a _b -> FragmentStream _a _b | List (Vector _a (Maybe (SimpleFragment _d))) -> List (Vector _a (Maybe (SimpleFragment _d)))
+testdata/Builtins.lc 282:21-282:43  (_b -> Float) -> FragmentStream _a _b -> FragmentStream _a _b | List (Vector _a (Maybe (SimpleFragment _d)))
+  -> List (Vector _a (Maybe (SimpleFragment _d)))
 testdata/Builtins.lc 282:26-282:40  forall a (b :: Nat) . (a -> Float) -> Fragment b a -> Fragment b a
 testdata/Builtins.lc 282:26-282:42  Fragment _a _f -> Fragment _a _f
 testdata/Builtins.lc 282:41-282:42  _g -> Float
@@ -2189,9 +3566,13 @@ testdata/Builtins.lc 286:57-286:73  Type -> Type
 testdata/Builtins.lc 286:57-286:75  Type
 testdata/Builtins.lc 286:72-286:73  Nat
 testdata/Builtins.lc 286:74-286:75  Type
-testdata/Builtins.lc 287:1-287:16  forall a (b :: Nat) . (a -> Bool) -> List (Vector b (Maybe (SimpleFragment a))) -> List (Vector b (Maybe (SimpleFragment a)))
+testdata/Builtins.lc 287:1-287:16  forall a (b :: Nat)
+  . (a -> Bool)
+    -> List (Vector b (Maybe (SimpleFragment a)))
+      -> List (Vector b (Maybe (SimpleFragment a)))
 testdata/Builtins.lc 287:21-287:24  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 287:21-287:43  (_b -> Bool) -> FragmentStream _a _b -> FragmentStream _a _b | List (Vector _a (Maybe (SimpleFragment _d))) -> List (Vector _a (Maybe (SimpleFragment _d)))
+testdata/Builtins.lc 287:21-287:43  (_b -> Bool) -> FragmentStream _a _b -> FragmentStream _a _b | List (Vector _a (Maybe (SimpleFragment _d)))
+  -> List (Vector _a (Maybe (SimpleFragment _d)))
 testdata/Builtins.lc 287:26-287:40  forall a (b :: Nat) . (a -> Bool) -> Fragment b a -> Fragment b a
 testdata/Builtins.lc 287:26-287:42  Fragment _a _f -> Fragment _a _f
 testdata/Builtins.lc 287:41-287:42  _g -> Bool
@@ -2224,9 +3605,13 @@ testdata/Builtins.lc 291:51-291:67  Type -> Type
 testdata/Builtins.lc 291:51-291:69  Type
 testdata/Builtins.lc 291:66-291:67  Nat
 testdata/Builtins.lc 291:68-291:69  Type
-testdata/Builtins.lc 292:1-292:13  forall a b (c :: Nat) . (a -> b) -> List (Vector c (Maybe (SimpleFragment a))) -> List (Vector c (Maybe (SimpleFragment b)))
+testdata/Builtins.lc 292:1-292:13  forall a b (c :: Nat)
+  . (a -> b)
+    -> List (Vector c (Maybe (SimpleFragment a)))
+      -> List (Vector c (Maybe (SimpleFragment b)))
 testdata/Builtins.lc 292:18-292:21  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 292:18-292:37  (_c -> _b) -> FragmentStream _a _c -> FragmentStream _a _b | List (Vector _a (Maybe (SimpleFragment _e))) -> List (Vector _a (Maybe (SimpleFragment _d)))
+testdata/Builtins.lc 292:18-292:37  (_c -> _b) -> FragmentStream _a _c -> FragmentStream _a _b | List (Vector _a (Maybe (SimpleFragment _e)))
+  -> List (Vector _a (Maybe (SimpleFragment _d)))
 testdata/Builtins.lc 292:23-292:34  forall a b (c :: Nat) . (a -> b) -> Fragment c a -> Fragment c b
 testdata/Builtins.lc 292:23-292:36  Fragment _a _g -> Fragment _a _f
 testdata/Builtins.lc 292:35-292:36  _i -> _h
@@ -2502,7 +3887,9 @@ testdata/Builtins.lc 455:6-458:111  Type
 testdata/Builtins.lc 455:25-455:38  Type
 testdata/Builtins.lc 455:25-455:46  Type
 testdata/Builtins.lc 455:42-455:46  Type
-testdata/Builtins.lc 456:3-456:14  RasterContext _f 'Triangle | forall a . CullMode -> PolygonMode a -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle
+testdata/Builtins.lc 456:3-456:14  RasterContext _f 'Triangle | forall a
+  . CullMode
+    -> PolygonMode a -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle
 testdata/Builtins.lc 456:3-456:115  Type
 testdata/Builtins.lc 456:26-456:34  Type
 testdata/Builtins.lc 456:26-456:115  Type
@@ -2565,7 +3952,9 @@ testdata/Builtins.lc 462:42-462:70  Type
 testdata/Builtins.lc 462:60-462:68  Type -> Type
 testdata/Builtins.lc 462:60-462:70  Type
 testdata/Builtins.lc 462:69-462:70  Type
-testdata/Builtins.lc 463:3-463:8  (BlendEquation, BlendEquation) -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor)) -> Vec 4 Float -> Blending Float | Blending Float
+testdata/Builtins.lc 463:3-463:8  (BlendEquation, BlendEquation)
+  -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
+    -> Vec 4 Float -> Blending Float | Blending Float
 testdata/Builtins.lc 463:3-465:74  Type
 testdata/Builtins.lc 463:26-463:56  Type
 testdata/Builtins.lc 463:27-463:40  Type
@@ -2597,7 +3986,8 @@ testdata/Builtins.lc 470:6-470:23  ImageKind -> Type | Type
 testdata/Builtins.lc 470:6-473:96  Type
 testdata/Builtins.lc 470:27-470:36  Type
 testdata/Builtins.lc 470:40-470:44  Type
-testdata/Builtins.lc 471:3-471:10  FragmentOperation ('Color (VecScalar _d _e)) | forall a (b :: Nat) . Num a => Blending a -> VecScalar b Bool -> FragmentOperation ('Color (VecScalar b a))
+testdata/Builtins.lc 471:3-471:10  FragmentOperation ('Color (VecScalar _d _e)) | forall a (b :: Nat)
+  . Num a => Blending a -> VecScalar b Bool -> FragmentOperation ('Color (VecScalar b a))
 testdata/Builtins.lc 471:3-471:112  Type
 testdata/Builtins.lc 471:26-471:29  Type -> Type
 testdata/Builtins.lc 471:26-471:31  Type
@@ -2655,7 +4045,10 @@ testdata/Builtins.lc 478:3-478:7  Interpolated _d | forall a . Interpolated a
 testdata/Builtins.lc 478:42-478:54  Type -> Type
 testdata/Builtins.lc 478:42-478:56  Type
 testdata/Builtins.lc 478:55-478:56  Type
-testdata/Builtins.lc 480:1-480:19  forall (a :: List Type) (b :: List Type) (c :: List Type) (d :: PrimitiveType) . (map Type Type Interpolated a ~ b, c ~ 'Cons (Vec 4 Float) a) => HList b -> RasterContext (HList c) d -> Primitive (HList c) d -> FragmentStream 1 (HList a)
+testdata/Builtins.lc 480:1-480:19  forall (a :: List Type) (b :: List Type) (c :: List Type) (d :: PrimitiveType)
+  . (map Type Type Interpolated a ~ b, c ~ 'Cons (Vec 4 Float) a)
+    => HList b
+      -> RasterContext (HList c) d -> Primitive (HList c) d -> FragmentStream 1 (HList a)
 testdata/Builtins.lc 481:8-486:34  Type
 testdata/Builtins.lc 481:10-481:13  forall a b . (a -> b) -> List a -> List b
 testdata/Builtins.lc 481:10-481:26  List Type -> List Type
@@ -2707,14 +4100,23 @@ testdata/Builtins.lc 486:23-486:24  _b
 testdata/Builtins.lc 486:26-486:31  List Type -> Type
 testdata/Builtins.lc 486:26-486:33  Type
 testdata/Builtins.lc 486:32-486:33  List Type
-testdata/Builtins.lc 488:1-488:20  forall (a :: List Type) (b :: PrimitiveType) . RasterContext (HList ('Cons (Vec 4 Float) a)) b -> HList (map Type Type Interpolated a) -> List (Primitive (HList ('Cons (Vec 4 Float) a)) b) -> List (Vector 1 (Maybe (SimpleFragment (HList a))))
+testdata/Builtins.lc 488:1-488:20  forall (a :: List Type) (b :: PrimitiveType)
+  . RasterContext (HList ('Cons (Vec 4 Float) a)) b
+    -> HList (map Type Type Interpolated a)
+      -> List (Primitive (HList ('Cons (Vec 4 Float) a)) b)
+        -> List (Vector 1 (Maybe (SimpleFragment (HList a))))
 testdata/Builtins.lc 488:32-488:38  forall a . List (List a) -> List a
 testdata/Builtins.lc 488:32-488:74  List (Vector 1 (Maybe (SimpleFragment (HList _b))))
 testdata/Builtins.lc 488:40-488:43  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 488:40-488:71  List (Primitive (HList ('Cons (Vec 4 Float) _b)) _a) -> List (List (Fragment 1 (HList _b)))
+testdata/Builtins.lc 488:40-488:71  List (Primitive (HList ('Cons (Vec 4 Float) _b)) _a)
+  -> List (List (Fragment 1 (HList _b)))
 testdata/Builtins.lc 488:40-488:73  List (List (Fragment 1 (HList _b)))
-testdata/Builtins.lc 488:45-488:63  forall (a :: List Type) (b :: List Type) (c :: List Type) (d :: PrimitiveType) . (map Type Type Interpolated a ~ b, c ~ 'Cons (Vec 4 Float) a) => HList b -> RasterContext (HList c) d -> Primitive (HList c) d -> FragmentStream 1 (HList a)
-testdata/Builtins.lc 488:45-488:66  RasterContext (HList ('Cons (Vec 4 Float) _b)) _a -> Primitive (HList ('Cons (Vec 4 Float) _b)) _a -> FragmentStream 1 (HList _b)
+testdata/Builtins.lc 488:45-488:63  forall (a :: List Type) (b :: List Type) (c :: List Type) (d :: PrimitiveType)
+  . (map Type Type Interpolated a ~ b, c ~ 'Cons (Vec 4 Float) a)
+    => HList b
+      -> RasterContext (HList c) d -> Primitive (HList c) d -> FragmentStream 1 (HList a)
+testdata/Builtins.lc 488:45-488:66  RasterContext (HList ('Cons (Vec 4 Float) _b)) _a
+  -> Primitive (HList ('Cons (Vec 4 Float) _b)) _a -> FragmentStream 1 (HList _b)
 testdata/Builtins.lc 488:45-488:70  Primitive (HList ('Cons (Vec 4 Float) _b)) _a -> FragmentStream 1 (HList _b)
 testdata/Builtins.lc 488:64-488:66  _i
 testdata/Builtins.lc 488:67-488:70  _h
@@ -2779,7 +4181,10 @@ testdata/Builtins.lc 513:30-513:31  List ImageKind
 testdata/Builtins.lc 515:40-515:49  Type
 testdata/Builtins.lc 515:56-515:77  Type -> ImageKind
 testdata/Builtins.lc 515:102-515:103  ImageKind | ImageKind -> ImageKind | Type -> ImageKind
-testdata/Builtins.lc 517:1-517:11  forall (a :: List ImageKind) (b :: Nat) (c :: List Type) . (a ~ map Type ImageKind FragmentOperationKind c) => HList c -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
+testdata/Builtins.lc 517:1-517:11  forall (a :: List ImageKind) (b :: Nat) (c :: List Type)
+  . (a ~ map Type ImageKind FragmentOperationKind c)
+    => HList c
+      -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
 testdata/Builtins.lc 517:15-517:174  Type
 testdata/Builtins.lc 517:28-517:31  Type
 testdata/Builtins.lc 517:39-517:45  Type
@@ -2824,10 +4229,20 @@ testdata/Builtins.lc 519:1-519:15  forall a b . a -> b -> (a, b)
 testdata/Builtins.lc 519:24-519:32  (_d, _b)
 testdata/Builtins.lc 519:25-519:28  _f
 testdata/Builtins.lc 519:30-519:31  ((_b)) | _e
-testdata/Builtins.lc 520:1-520:8  forall (a :: Nat) (b :: List Type) . FrameBuffer a (map Type ImageKind FragmentOperationKind b) -> (HList b, List (Fragment a (HList (imageType' (map Type ImageKind FragmentOperationKind b))))) -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
-testdata/Builtins.lc 520:25-520:35  forall (a :: List ImageKind) (b :: Nat) (c :: List Type) . (a ~ map Type ImageKind FragmentOperationKind c) => HList c -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
-testdata/Builtins.lc 520:25-520:39  FragmentStream _b (HList (imageType' (map Type ImageKind FragmentOperationKind _a))) -> FrameBuffer _b (map Type ImageKind FragmentOperationKind _a) -> FrameBuffer _b (map Type ImageKind FragmentOperationKind _a)
-testdata/Builtins.lc 520:25-520:43  FrameBuffer _b (map Type ImageKind FragmentOperationKind _a) -> FrameBuffer _b (map Type ImageKind FragmentOperationKind _a)
+testdata/Builtins.lc 520:1-520:8  forall (a :: Nat) (b :: List Type)
+  . FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+    -> (HList b, List
+          (Fragment a (HList (imageType' (map Type ImageKind FragmentOperationKind b)))))
+      -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+testdata/Builtins.lc 520:25-520:35  forall (a :: List ImageKind) (b :: Nat) (c :: List Type)
+  . (a ~ map Type ImageKind FragmentOperationKind c)
+    => HList c
+      -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
+testdata/Builtins.lc 520:25-520:39  FragmentStream _b (HList (imageType' (map Type ImageKind FragmentOperationKind _a)))
+  -> FrameBuffer _b (map Type ImageKind FragmentOperationKind _a)
+    -> FrameBuffer _b (map Type ImageKind FragmentOperationKind _a)
+testdata/Builtins.lc 520:25-520:43  FrameBuffer _b (map Type ImageKind FragmentOperationKind _a)
+  -> FrameBuffer _b (map Type ImageKind FragmentOperationKind _a)
 testdata/Builtins.lc 520:25-520:46  FrameBuffer _b (map Type ImageKind FragmentOperationKind _a) | HList _c -> _b | _c -> HList _b -> _a
 testdata/Builtins.lc 520:36-520:39  _m
 testdata/Builtins.lc 520:40-520:43  _h
@@ -2835,7 +4250,9 @@ testdata/Builtins.lc 520:44-520:46  _n
 testdata/Builtins.lc 524:31-524:40  Type
 testdata/Builtins.lc 524:47-524:59  Type -> ImageKind
 testdata/Builtins.lc 524:74-524:75  ImageKind | ImageKind -> ImageKind | Nat -> ImageKind -> ImageKind | Type -> ImageKind
-testdata/Builtins.lc 530:1-530:12  forall (a :: List Type) . sameLayerCounts a => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
+testdata/Builtins.lc 530:1-530:12  forall (a :: List Type)
+  . sameLayerCounts a
+    => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
 testdata/Builtins.lc 530:30-530:36  Type
 testdata/Builtins.lc 530:31-530:35  Type
 testdata/Builtins.lc 530:40-530:125  Type
@@ -2859,17 +4276,40 @@ testdata/Builtins.lc 530:106-530:122  List Type -> List ImageKind
 testdata/Builtins.lc 530:106-530:124  List ImageKind
 testdata/Builtins.lc 530:110-530:122  Type -> ImageKind
 testdata/Builtins.lc 530:123-530:124  List Type
-testdata/Builtins.lc 532:1-532:11  forall (a :: List Type) . sameLayerCounts a => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
-testdata/Builtins.lc 532:14-532:25  forall (a :: List Type) . sameLayerCounts a => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
-testdata/Builtins.lc 534:1-534:11  forall (a :: Nat) (b :: List Type) c . HList b -> (c -> HList (imageType' (map Type ImageKind FragmentOperationKind b))) -> List (Vector a (Maybe (SimpleFragment c))) -> FrameBuffer a (map Type ImageKind FragmentOperationKind b) -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
-testdata/Builtins.lc 534:34-534:44  forall (a :: List ImageKind) (b :: Nat) (c :: List Type) . (a ~ map Type ImageKind FragmentOperationKind c) => HList c -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
-testdata/Builtins.lc 534:34-534:48  FragmentStream _b (HList (imageType' (map Type ImageKind FragmentOperationKind _a))) -> FrameBuffer _b (map Type ImageKind FragmentOperationKind _a) -> FrameBuffer _b (map Type ImageKind FragmentOperationKind _a)
-testdata/Builtins.lc 534:34-534:76  FrameBuffer _c (map Type ImageKind FragmentOperationKind _b) -> FrameBuffer _c (map Type ImageKind FragmentOperationKind _b)
+testdata/Builtins.lc 532:1-532:11  forall (a :: List Type)
+  . sameLayerCounts a
+    => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
+testdata/Builtins.lc 532:14-532:25  forall (a :: List Type)
+  . sameLayerCounts a
+    => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
+testdata/Builtins.lc 534:1-534:11  forall (a :: Nat) (b :: List Type) c
+  . HList b
+    -> (c -> HList (imageType' (map Type ImageKind FragmentOperationKind b)))
+      -> List (Vector a (Maybe (SimpleFragment c)))
+        -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+          -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+testdata/Builtins.lc 534:34-534:44  forall (a :: List ImageKind) (b :: Nat) (c :: List Type)
+  . (a ~ map Type ImageKind FragmentOperationKind c)
+    => HList c
+      -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
+testdata/Builtins.lc 534:34-534:48  FragmentStream _b (HList (imageType' (map Type ImageKind FragmentOperationKind _a)))
+  -> FrameBuffer _b (map Type ImageKind FragmentOperationKind _a)
+    -> FrameBuffer _b (map Type ImageKind FragmentOperationKind _a)
+testdata/Builtins.lc 534:34-534:76  FrameBuffer _c (map Type ImageKind FragmentOperationKind _b)
+  -> FrameBuffer _c (map Type ImageKind FragmentOperationKind _b)
 testdata/Builtins.lc 534:34-534:79  FrameBuffer _c (map Type ImageKind FragmentOperationKind _b)
 testdata/Builtins.lc 534:45-534:48  _j
-testdata/Builtins.lc 534:50-534:62  forall a b (c :: Nat) . (a -> b) -> List (Vector c (Maybe (SimpleFragment a))) -> List (Vector c (Maybe (SimpleFragment b)))
-testdata/Builtins.lc 534:50-534:70  List (Vector _a (Maybe (SimpleFragment _c))) -> List (Vector _a (Maybe (SimpleFragment _b)))
-testdata/Builtins.lc 534:50-534:75  List (Vector _c (Maybe (SimpleFragment (HList (imageType' (map Type ImageKind FragmentOperationKind _b))))))
+testdata/Builtins.lc 534:50-534:62  forall a b (c :: Nat)
+  . (a -> b)
+    -> List (Vector c (Maybe (SimpleFragment a)))
+      -> List (Vector c (Maybe (SimpleFragment b)))
+testdata/Builtins.lc 534:50-534:70  List (Vector _a (Maybe (SimpleFragment _c)))
+  -> List (Vector _a (Maybe (SimpleFragment _b)))
+testdata/Builtins.lc 534:50-534:75  List
+  (Vector
+    _c
+    (Maybe
+      (SimpleFragment (HList (imageType' (map Type ImageKind FragmentOperationKind _b))))))
 testdata/Builtins.lc 534:63-534:70  _k
 testdata/Builtins.lc 534:71-534:75  _g
 testdata/Builtins.lc 534:77-534:79  _e
@@ -2886,7 +4326,8 @@ testdata/Builtins.lc 537:46-537:53  ImageKind -> Type
 testdata/Builtins.lc 537:46-537:55  Type
 testdata/Builtins.lc 537:52-537:53  _b
 testdata/Builtins.lc 537:54-537:55  ImageKind
-testdata/Builtins.lc 538:1-538:14  FrameBuffer 1 ('Cons 'Depth ('Cons ('Color (Vec 4 Float)) 'Nil)) -> Image 1 ('Color (Vec 4 Float))
+testdata/Builtins.lc 538:1-538:14  FrameBuffer 1 ('Cons 'Depth ('Cons ('Color (Vec 4 Float)) 'Nil))
+  -> Image 1 ('Color (Vec 4 Float))
 testdata/Builtins.lc 538:24-538:35  Nat -> List ImageKind -> Type
 testdata/Builtins.lc 538:24-538:37  List ImageKind -> Type
 testdata/Builtins.lc 538:24-538:70  Type
diff --git a/testdata/HyperbolicParaboloic.out b/testdata/HyperbolicParaboloic.out
index 6dd15ba0..08a0239b 100644
--- a/testdata/HyperbolicParaboloic.out
+++ b/testdata/HyperbolicParaboloic.out
@@ -25,8 +25,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -34,10 +33,7 @@ Pipeline
               in vec3 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               float t;
               void main() {
@@ -47,18 +43,14 @@ Pipeline
                                                      ,(((0.5) * ((Mouse).x)) * ((vi1).x)) * ((vi1).y)
                                                      ,(t) * ((vi1).y)
                                                      ,1.0)));
-                  vo1 = vec4 ((vi1).x
-                             ,(vi1).y
-                             ,(vi1).z
-                             ,1.0);
+                  vo1 = vec4 ((vi1).x,(vi1).y,(vi1).z,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/Hyperboloid.out b/testdata/Hyperboloid.out
index 2e9fa214..0d39c7ed 100644
--- a/testdata/Hyperboloid.out
+++ b/testdata/Hyperboloid.out
@@ -25,8 +25,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -36,33 +35,24 @@ Pipeline
               float k;
               float r;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   k = (2.0) * ((Mouse).y);
                   r = (Mouse).x;
                   gl_Position = scale (0.1
-                                      ,(MVP) * (vec4 ((k) * (sin
-                                                     (((0.7) * ((vi1).x)) + ((r) * ((vi1).y))))
+                                      ,(MVP) * (vec4 ((k) * (sin (((0.7) * ((vi1).x)) + ((r) * ((vi1).y))))
                                                      ,(vi1).y
-                                                     ,(k) * (cos
-                                                     (((0.7) * ((vi1).x)) + ((r) * ((vi1).y))))
+                                                     ,(k) * (cos (((0.7) * ((vi1).x)) + ((r) * ((vi1).y))))
                                                      ,1.0)));
-                  vo1 = vec4 ((vi1).x
-                             ,(vi1).y
-                             ,(vi1).z
-                             ,1.0);
+                  vo1 = vec4 ((vi1).x,(vi1).y,(vi1).z,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/Internals.out b/testdata/Internals.out
index af664ddd..520e7204 100644
--- a/testdata/Internals.out
+++ b/testdata/Internals.out
@@ -1,3 +1,207 @@
+------------ desugared source code
+typeAnn = \(a :: _) -> _rhs a
+parens = \(a :: _) -> _rhs a
+undefined :: forall a . a
+primFix :: forall a . (a -> a) -> a
+data Unit :: Type where
+    TT :: Unit
+data String :: Type where
+    
+data Empty (_ :: String) :: Type where
+    
+unsafeCoerce :: forall (a :: _) (b :: _) . a -> b
+'EqCT :: forall a -> a -> a -> Type
+parEval :: forall (a :: _) -> a -> a -> a
+'T2 :: Type -> Type -> Type
+match'Type :: forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b
+'EqCTt = _rhs ('EqCT (_ :: _))
+t2C :: Unit -> Unit -> Unit
+data Int :: Type where
+    
+data Word :: Type where
+    
+data Float :: Type where
+    
+data Char :: Type where
+    
+data Bool :: Type where
+    False :: Bool
+    True :: Bool
+data Ordering :: Type where
+    LT :: Ordering
+    EQ :: Ordering
+    GT :: Ordering
+data Nat :: Type where
+    Zero :: Nat
+    Succ :: Nat -> Nat
+primIntToWord :: Int -> Word
+primIntToFloat :: Int -> Float
+primIntToNat :: Int -> Nat
+primCompareInt :: Int -> Int -> Ordering
+primCompareWord :: Word -> Word -> Ordering
+primCompareFloat :: Float -> Float -> Ordering
+primCompareChar :: Char -> Char -> Ordering
+primCompareString :: String -> String -> Ordering
+primNegateInt :: Int -> Int
+primNegateWord :: Word -> Word
+primNegateFloat :: Float -> Float
+primAddInt :: Int -> Int -> Int
+primSubInt :: Int -> Int -> Int
+primModInt :: Int -> Int -> Int
+primSqrtFloat :: Float -> Float
+primRound :: Float -> Int
+primIfThenElse
+  = (\(a :: _) (b :: _) (c :: _) -> 'BoolCase \_ -> _ :: _ (_rhs c) (_rhs b) a)
+    :: forall (d :: _) . Bool -> d -> d -> d
+isEQ
+  = \(a :: _) -> 'OrderingCase
+    \_ -> _ :: _
+    (_rhs False)
+    (_rhs True)
+    (_rhs False)
+    a
+'Num
+  = (\(a :: _) -> match'Int
+      \_ -> _
+      (_rhs 'Unit)
+      a
+      (match'Word
+        \_ -> _
+        (_rhs 'Unit)
+        a
+        (match'Float
+          \_ -> _
+          (_rhs 'Unit)
+          a
+          (match'Nat
+            \_ -> _
+            (_rhs 'Unit)
+            a
+            (_rhs ('Empty "no instance of 'Num on ???"))))))
+    :: Type -> Type
+fromInt
+  = (\ @a -> \ @_ -> match'Int
+      \_ -> _
+      (_rhs \(b := _rhs \(c :: _) -> c) -> b)
+      a
+      (match'Word
+        \_ -> _
+        (_rhs \(d := _rhs primIntToWord) -> d)
+        a
+        (match'Float
+          \_ -> _
+          (_rhs \(e := _rhs primIntToFloat) -> e)
+          a
+          (match'Nat \_ -> _ (_rhs \(f := _rhs primIntToNat) -> f) a (_rhs undefined)))))
+    :: forall g . Num g => Int -> g
+compare
+  = (\ @a -> \ @_ -> match'Int
+      \_ -> _
+      (_rhs \(b := _rhs primCompareInt) -> b)
+      a
+      (match'Word
+        \_ -> _
+        (_rhs \(c := _rhs primCompareWord) -> c)
+        a
+        (match'Float
+          \_ -> _
+          (_rhs \(d := _rhs primCompareFloat) -> d)
+          a
+          (match'Nat \_ -> _ (_rhs \(e := _rhs undefined) -> e) a (_rhs undefined)))))
+    :: forall f . Num f => f -> f -> Ordering
+negate
+  = (\ @a -> \ @_ -> match'Int
+      \_ -> _
+      (_rhs \(b := _rhs primNegateInt) -> b)
+      a
+      (match'Word
+        \_ -> _
+        (_rhs \(c := _rhs primNegateWord) -> c)
+        a
+        (match'Float
+          \_ -> _
+          (_rhs \(d := _rhs primNegateFloat) -> d)
+          a
+          (match'Nat \_ -> _ (_rhs \(e := _rhs undefined) -> e) a (_rhs undefined)))))
+    :: forall f . Num f => f -> f
+'Eq
+  = (\(a :: _) -> match'String
+      \_ -> _
+      (_rhs 'Unit)
+      a
+      (match'Char
+        \_ -> _
+        (_rhs 'Unit)
+        a
+        (match'Int
+          \_ -> _
+          (_rhs 'Unit)
+          a
+          (match'Float
+            \_ -> _
+            (_rhs 'Unit)
+            a
+            (match'Bool
+              \_ -> _
+              (_rhs 'Unit)
+              a
+              (match'Nat
+                \_ -> _
+                (_rhs 'Unit)
+                a
+                (_rhs ('Empty "no instance of 'Eq on ???"))))))))
+    :: Type -> Type
+==
+  = (\ @a -> \ @_ -> match'String
+      \_ -> _
+      (_rhs \(b := \(c :: _) (d :: _) -> _rhs (isEQ (primCompareString c d))) -> b)
+      a
+      (match'Char
+        \_ -> _
+        (_rhs \(e := \(f :: _) (g :: _) -> _rhs (isEQ (primCompareChar f g))) -> e)
+        a
+        (match'Int
+          \_ -> _
+          (_rhs \(h := \(i :: _) (j :: _) -> _rhs (isEQ (primCompareInt i j))) -> h)
+          a
+          (match'Float
+            \_ -> _
+            (_rhs \(k := \(l :: _) (m :: _) -> _rhs (isEQ (primCompareFloat l m))) -> k)
+            a
+            (match'Bool
+              \_ -> _
+              (_rhs
+                \(n
+                  := \(o :: _) (p :: _) -> 'BoolCase
+                    \_ -> _ :: _
+                    ('BoolCase \_ -> _ :: _ (_rhs True) (_rhs False) p)
+                    ('BoolCase \_ -> _ :: _ (_rhs False) (_rhs True) p)
+                    o) -> n)
+              a
+              (match'Nat
+                \_ -> _
+                (_rhs
+                  \(q
+                    := \(r :: _) (s :: _) -> 'NatCase
+                      \_ -> _ :: _
+                      ('NatCase \_ -> _ :: _ (_rhs True) \_ -> _rhs False s)
+                      \(t :: _) -> 'NatCase \_ -> _ :: _ (_rhs False) \(u :: _) -> _rhs (t == u) s
+                      r) -> q)
+                a
+                (_rhs undefined)))))))
+    :: forall v . Eq v => v -> v -> Bool
+infix 4 ==
+data List (_ :: Type) :: Type where
+    Nil :: List _a
+    Cons :: _a -> List _a -> List _a
+infixr 5 Cons
+data HList :: List Type -> Type where
+    HNil :: HList 'Nil
+    HCons :: forall (a :: _) (b :: _) . a -> HList b -> HList (a : b)
+hlistNilCase :: forall (a :: _) -> a -> HList Nil -> a
+hlistConsCase
+  :: forall a (b :: List Type)
+    . forall (c :: _) -> (a -> HList b -> c) -> HList (Cons a b) -> c
 main is not found
 ------------ trace
 typeAnn :: forall a . a -> a
@@ -12,8 +216,11 @@ match'Unit :: forall (a :: Type -> Type) -> a Unit[0
 'StringCase :: 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
-'EmptyCase :: 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
+'EmptyCase
+  :: 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
 'EqCT :: forall a -> a -> a -> Type
 parEval :: forall a -> a -> a -> a
@@ -36,18 +243,25 @@ match'Char :: forall (a :: Type -> Type) -> a Char[0
 'Bool :: Type
 False :: Bool
 True :: Bool
-'BoolCase :: forall (a :: Bool -> Type) -> a 'False -> a 'True -> forall (b :: Bool) -> a b
+'BoolCase
+  :: 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
-'OrderingCase :: forall (a :: Ordering -> Type) -> a 'LT -> a 'EQ -> a 'GT -> forall (b :: Ordering) -> a b
-match'Ordering :: forall (a :: Type -> Type) -> a Ordering -> forall b -> a b -> a b
+'OrderingCase
+  :: forall (a :: Ordering -> Type)
+    -> a 'LT -> a 'EQ -> a 'GT -> forall (b :: Ordering) -> a b
+match'Ordering
+  :: forall (a :: Type -> Type) -> a Ordering -> forall b -> a b -> a b
 'Nat :: Type
 Zero :: Nat
 Succ :: Nat -> Nat
-'NatCase :: forall (a :: Nat -> Type) -> a 0 -> (forall (b :: Nat) -> a ('Succ b)) -> forall (c :: Nat) -> a c
+'NatCase
+  :: 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
@@ -76,15 +290,31 @@ negate :: forall a . Num a => a[0
 'List :: Type -> Type
 Nil :: forall a . List a
 Cons :: forall a . a -> List a -> List a
-'ListCase :: forall a . forall (b :: List a -> Type) -> b 'Nil -> (forall (c :: a) (d :: List a) -> b ('Cons c d)) -> forall (e :: List a) -> b e
-match'List :: forall (a :: Type -> Type) -> (forall b -> a (List b)) -> forall c -> a c -> a c
+'ListCase
+  :: forall a
+    . forall (b :: List a -> Type)
+      -> b 'Nil
+        -> (forall (c :: a) (d :: List a) -> b ('Cons c d))
+          -> forall (e :: List a) -> b e
+match'List
+  :: forall (a :: Type -> Type)
+    -> (forall b -> a (List b)) -> forall c -> a c -> a c
 'HList :: List Type -> Type
 HNil :: ()
 HCons :: forall a (b :: List Type) . a -> HList b -> HList ('Cons a b)
-'HListCase :: forall (a :: forall (b :: List Type) -> HList b -> Type) -> a 'Nil () -> (forall c (d :: List Type) . forall (e :: c) (f :: HList d) -> a ('Cons c d) ('HCons c d e f)) -> forall (g :: List Type) . forall (h :: HList g) -> a g h
-match'HList :: forall (a :: Type -> Type) -> (forall (b :: List Type) -> a (HList b)) -> forall c -> a c -> a c
+'HListCase
+  :: forall (a :: forall (b :: List Type) -> HList b -> Type)
+    -> a 'Nil ()
+      -> (forall c (d :: List Type)
+          . forall (e :: c) (f :: HList d) -> a ('Cons c d) ('HCons c d e f))
+        -> forall (g :: List Type) . forall (h :: HList g) -> a g h
+match'HList
+  :: forall (a :: Type -> Type)
+    -> (forall (b :: List Type) -> a (HList b)) -> forall c -> a c -> a c
 hlistNilCase :: forall a -> a -> () -> a
-hlistConsCase :: forall a (b :: List Type) . forall c -> (a -> HList b -> c) -> HList ('Cons a b) -> c
+hlistConsCase
+  :: forall a (b :: List Type)
+    . forall c -> (a -> HList b -> c) -> HList ('Cons a b) -> c
 ------------ tooltips
 testdata/Internals.lc 6:1-6:8  forall a . a -> a
 testdata/Internals.lc 6:13-6:14  _b
diff --git a/testdata/Material.out b/testdata/Material.out
index 28b5cfa3..7e277702 100644
--- a/testdata/Material.out
+++ b/testdata/Material.out
@@ -1,9 +1,297 @@
+------------ desugared source code
+identityLight = _rhs (fromInt 1) :: Float
+data Entity :: Type where
+    Entity
+      :: Vec (fromInt 4) Float
+        -> Vec (fromInt 4) Float
+          -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity
+eAmbientLight
+  = \(a :: _) -> 'EntityCase \_ -> _ :: _ \(b :: _) -> \_ -> \_ -> \_ -> _rhs b a
+eDirectedLight
+  = \(a :: _) -> 'EntityCase \_ -> _ :: _ \_ (b :: _) -> \_ -> \_ -> _rhs b a
+eLightDir
+  = \(a :: _) -> 'EntityCase \_ -> _ :: _ \_ -> \_ (b :: _) -> \_ -> _rhs b a
+eShaderRGBA
+  = \(a :: _) -> 'EntityCase \_ -> _ :: _ \_ -> \_ -> \_ (b :: _) -> _rhs b a
+data WaveType :: Type where
+    WT_Sin :: WaveType
+    WT_Triangle :: WaveType
+    WT_Square :: WaveType
+    WT_Sawtooth :: WaveType
+    WT_InverseSawtooth :: WaveType
+    WT_Noise :: WaveType
+data Wave :: Type where
+    Wave :: WaveType -> Float -> Float -> Float -> Float -> Wave
+data Deform :: Type where
+    D_AutoSprite :: Deform
+    D_AutoSprite2 :: Deform
+    D_Bulge :: Float -> Float -> Float -> Deform
+    D_Move :: Vec (fromInt 3) Float -> Wave -> Deform
+    D_Normal :: Float -> Float -> Deform
+    D_ProjectionShadow :: Deform
+    D_Text0 :: Deform
+    D_Text1 :: Deform
+    D_Text2 :: Deform
+    D_Text3 :: Deform
+    D_Text4 :: Deform
+    D_Text5 :: Deform
+    D_Text6 :: Deform
+    D_Text7 :: Deform
+    D_Wave :: Float -> Wave -> Deform
+data CullType :: Type where
+    CT_FrontSided :: CullType
+    CT_BackSided :: CullType
+    CT_TwoSided :: CullType
+data Blending' :: Type where
+    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'
+data RGBGen :: Type where
+    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
+data AlphaGen :: Type where
+    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
+data TCGen :: Type where
+    TG_Base :: TCGen
+    TG_Lightmap :: TCGen
+    TG_Environment :: TCGen
+    TG_Vector :: Vec (fromInt 3) Float -> Vec (fromInt 3) Float -> TCGen
+    TG_Undefined :: TCGen
+data TCMod :: Type where
+    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
+data StageTexture :: Type where
+    ST_Map :: String -> StageTexture
+    ST_ClampMap :: String -> StageTexture
+    ST_AnimMap :: Float -> List String -> StageTexture
+    ST_Lightmap :: StageTexture
+    ST_WhiteImage :: StageTexture
+data AlphaFunction :: Type where
+    A_Gt0 :: AlphaFunction
+    A_Lt128 :: AlphaFunction
+    A_Ge128 :: AlphaFunction
+data DepthFunction :: Type where
+    D_Equal :: DepthFunction
+    D_Lequal :: DepthFunction
+data StageAttrs :: Type where
+    StageAttrs
+      :: Maybe (HList ('Cons Blending' ('Cons Blending' 'Nil)))
+        -> RGBGen
+          -> AlphaGen
+            -> TCGen
+              -> List TCMod
+                -> StageTexture
+                  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+saBlend
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \(b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saRGBGen
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saAlphaGen
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saTCGen
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saTCMod
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saTexture
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saDepthWrite
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saDepthFunc
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> _rhs b
+    a
+saAlphaFunc
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> _rhs b
+    a
+saDepthMaskExplicit
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> _rhs b
+    a
+saTextureUniform
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> _rhs b
+    a
+defaultStageAttrs
+  = _rhs
+      (StageAttrs
+        Nothing
+        RGB_Undefined
+        A_Identity
+        TG_Undefined
+        Nil
+        ST_WhiteImage
+        True
+        D_Lequal
+        Nothing
+        False
+        "")
+    :: StageAttrs
+data CommonAttrs :: Type where
+    CommonAttrs
+      :: HList 'Nil
+        -> HList 'Nil
+          -> Bool
+            -> Float
+              -> Bool
+                -> Bool
+                  -> CullType
+                    -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+caSkyParms
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \(b
+      :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caFogParms
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caPortal
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caSort
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caEntityMergable
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caFogOnly
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caCull
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caDeformVertexes
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caNoMipMaps
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caPolygonOffset
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> _rhs
+      b
+    a
+caStages
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> _rhs
+      b
+    a
+caIsSky
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> _rhs
+      b
+    a
+defaultCommonAttrs
+  = _rhs
+      (CommonAttrs
+        HNil
+        HNil
+        False
+        (fromInt 0)
+        False
+        False
+        CT_FrontSided
+        Nil
+        False
+        False
+        Nil
+        False)
+    :: CommonAttrs
 main is not found
 ------------ trace
 identityLight :: Float
 'Entity :: Type
 Entity :: Vec 4 Float -> Vec 4 Float -> Vec 3 Float -> Vec 4 Float -> Entity
-'EntityCase :: 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
+'EntityCase
+  :: 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
@@ -16,11 +304,22 @@ WT_Square :: WaveType
 WT_Sawtooth :: WaveType
 WT_InverseSawtooth :: WaveType
 WT_Noise :: WaveType
-'WaveTypeCase :: 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
+'WaveTypeCase
+  :: 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
 'Wave :: Type
 Wave :: WaveType -> Float -> Float -> Float -> Float -> Wave
-'WaveCase :: 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
+'WaveCase
+  :: 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
 D_AutoSprite :: Deform
@@ -38,14 +337,35 @@ D_Text5 :: Deform
 D_Text6 :: Deform
 D_Text7 :: Deform
 D_Wave :: Float -> Wave -> Deform
-'DeformCase :: forall (a :: Deform -> Type) -> a 'D_AutoSprite -> a 'D_AutoSprite2 -> (forall (b :: Float) (c :: Float) (d :: Float) -> a ('D_Bulge b c d)) -> (forall (e :: Vec 3 Float) (f :: Wave) -> a ('D_Move e f)) -> (forall (g :: Float) (h :: Float) -> a ('D_Normal g h)) -> a 'D_ProjectionShadow -> a 'D_Text0 -> a 'D_Text1 -> a 'D_Text2 -> a 'D_Text3 -> a 'D_Text4 -> a 'D_Text5 -> a 'D_Text6 -> a 'D_Text7 -> (forall (i :: Float) (j :: Wave) -> a ('D_Wave i j)) -> forall (k :: Deform) -> a k
+'DeformCase
+  :: forall (a :: Deform -> Type)
+    -> a 'D_AutoSprite
+      -> a 'D_AutoSprite2
+        -> (forall (b :: Float) (c :: Float) (d :: Float) -> a ('D_Bulge b c d))
+          -> (forall (e :: Vec 3 Float) (f :: Wave) -> a ('D_Move e f))
+            -> (forall (g :: Float) (h :: Float) -> a ('D_Normal g h))
+              -> a 'D_ProjectionShadow
+                -> a 'D_Text0
+                  -> a 'D_Text1
+                    -> a 'D_Text2
+                      -> a 'D_Text3
+                        -> a 'D_Text4
+                          -> a 'D_Text5
+                            -> a 'D_Text6
+                              -> 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
-'CullTypeCase :: 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
+'CullTypeCase
+  :: 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'
@@ -58,8 +378,20 @@ B_SrcAlpha :: Blending'
 B_SrcAlphaSaturate :: Blending'
 B_SrcColor :: Blending'
 B_Zero :: Blending'
-'Blending'Case :: 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
+'Blending'Case
+  :: 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
@@ -72,7 +404,18 @@ RGB_Vertex :: RGBGen
 RGB_LightingDiffuse :: RGBGen
 RGB_OneMinusVertex :: RGBGen
 RGB_Undefined :: RGBGen
-'RGBGenCase :: forall (a :: RGBGen -> Type) -> (forall (b :: Wave) -> a ('RGB_Wave b)) -> (forall (c :: Float) (d :: Float) (e :: Float) -> a ('RGB_Const c d e)) -> a 'RGB_Identity -> a 'RGB_IdentityLighting -> a 'RGB_Entity -> a 'RGB_OneMinusEntity -> a 'RGB_ExactVertex -> a 'RGB_Vertex -> a 'RGB_LightingDiffuse -> a 'RGB_OneMinusVertex -> a 'RGB_Undefined -> forall (f :: RGBGen) -> a f
+'RGBGenCase
+  :: forall (a :: RGBGen -> Type)
+    -> (forall (b :: Wave) -> a ('RGB_Wave b))
+      -> (forall (c :: Float) (d :: Float) (e :: Float) -> a ('RGB_Const c d e))
+        -> a 'RGB_Identity
+          -> a 'RGB_IdentityLighting
+            -> a 'RGB_Entity
+              -> a 'RGB_OneMinusEntity
+                -> a 'RGB_ExactVertex
+                  -> 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
@@ -84,15 +427,31 @@ A_OneMinusEntity :: AlphaGen
 A_Vertex :: AlphaGen
 A_LightingSpecular :: AlphaGen
 A_OneMinusVertex :: AlphaGen
-'AlphaGenCase :: 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
+'AlphaGenCase
+  :: 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
-'TCGenCase :: forall (a :: TCGen -> Type) -> a 'TG_Base -> a 'TG_Lightmap -> 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
+'TCGenCase
+  :: forall (a :: TCGen -> Type)
+    -> a 'TG_Base
+      -> a 'TG_Lightmap
+        -> 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
@@ -102,7 +461,19 @@ 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
-'TCModCase :: forall (a :: TCMod -> Type) -> a 'TM_EntityTranslate -> (forall (b :: Float) -> a ('TM_Rotate b)) -> (forall (c :: Float) (d :: Float) -> a ('TM_Scroll c d)) -> (forall (e :: Float) (f :: Float) -> a ('TM_Scale e f)) -> (forall (g :: Wave) -> a ('TM_Stretch g)) -> (forall (h :: Float) (i :: Float) (j :: Float) (k :: Float) (l :: Float) (m :: Float) -> a ('TM_Transform h i j k l m)) -> (forall (n :: Float) (o :: Float) (p :: Float) (q :: Float) -> a ('TM_Turb n o p q)) -> forall (r :: TCMod) -> a r
+'TCModCase
+  :: forall (a :: TCMod -> Type)
+    -> a 'TM_EntityTranslate
+      -> (forall (b :: Float) -> a ('TM_Rotate b))
+        -> (forall (c :: Float) (d :: Float) -> a ('TM_Scroll c d))
+          -> (forall (e :: Float) (f :: Float) -> a ('TM_Scale e f))
+            -> (forall (g :: Wave) -> a ('TM_Stretch g))
+              -> (forall (h :: Float)
+                    (i :: Float) (j :: Float) (k :: Float) (l :: Float) (m :: Float)
+                  -> a ('TM_Transform h i j k l m))
+                -> (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
@@ -110,23 +481,54 @@ ST_ClampMap :: String -> StageTexture
 ST_AnimMap :: Float -> List String -> StageTexture
 ST_Lightmap :: StageTexture
 ST_WhiteImage :: StageTexture
-'StageTextureCase :: forall (a :: StageTexture -> Type) -> (forall (b :: String) -> a ('ST_Map b)) -> (forall (c :: String) -> a ('ST_ClampMap c)) -> (forall (d :: Float) (e :: List 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
+'StageTextureCase
+  :: forall (a :: StageTexture -> Type)
+    -> (forall (b :: String) -> a ('ST_Map b))
+      -> (forall (c :: String) -> a ('ST_ClampMap c))
+        -> (forall (d :: Float) (e :: List 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
-'AlphaFunctionCase :: forall (a :: AlphaFunction -> Type) -> a 'A_Gt0 -> a 'A_Lt128 -> a 'A_Ge128 -> forall (b :: AlphaFunction) -> a b
-match'AlphaFunction :: forall (a :: Type -> Type) -> a AlphaFunction -> forall b -> a b -> a b
+'AlphaFunctionCase
+  :: forall (a :: AlphaFunction -> Type)
+    -> a 'A_Gt0 -> a 'A_Lt128 -> a 'A_Ge128 -> forall (b :: AlphaFunction) -> a b
+match'AlphaFunction
+  :: forall (a :: Type -> Type) -> a AlphaFunction -> forall b -> a b -> a b
 'DepthFunction :: Type
 D_Equal :: DepthFunction
 D_Lequal :: DepthFunction
-'DepthFunctionCase :: forall (a :: DepthFunction -> Type) -> a 'D_Equal -> a 'D_Lequal -> forall (b :: DepthFunction) -> a b
-match'DepthFunction :: forall (a :: Type -> Type) -> a DepthFunction -> forall b -> a b -> a b
+'DepthFunctionCase
+  :: forall (a :: DepthFunction -> Type)
+    -> a 'D_Equal -> a 'D_Lequal -> forall (b :: DepthFunction) -> a b
+match'DepthFunction
+  :: forall (a :: Type -> Type) -> a DepthFunction -> forall b -> a b -> a b
 'StageAttrs :: Type
-StageAttrs :: Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-'StageAttrsCase :: forall (a :: StageAttrs -> Type) -> (forall (b :: Maybe (Blending', Blending')) (c :: RGBGen) (d :: AlphaGen) (e :: TCGen) (f :: List 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'StageAttrs :: forall (a :: Type -> Type) -> a StageAttrs -> forall b -> a b -> a b
+StageAttrs
+  :: Maybe (Blending', Blending')
+    -> RGBGen
+      -> AlphaGen
+        -> TCGen
+          -> List TCMod
+            -> StageTexture
+              -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+'StageAttrsCase
+  :: forall (a :: StageAttrs -> Type)
+    -> (forall (b :: Maybe (Blending', Blending'))
+          (c :: RGBGen)
+            (d :: AlphaGen)
+              (e :: TCGen)
+                (f :: List 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'StageAttrs
+  :: forall (a :: Type -> Type) -> a StageAttrs -> forall b -> a b -> a b
 saBlend :: StageAttrs -> Maybe (Blending', Blending')
 saRGBGen :: StageAttrs -> RGBGen
 saAlphaGen :: StageAttrs -> AlphaGen
@@ -140,9 +542,29 @@ saDepthMaskExplicit :: StageAttrs -> Bool
 saTextureUniform :: StageAttrs -> String
 defaultStageAttrs :: StageAttrs
 'CommonAttrs :: Type
-CommonAttrs :: () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-'CommonAttrsCase :: forall (a :: CommonAttrs -> Type) -> (forall (b :: ()) (c :: ()) (d :: Bool) (e :: Float) (f :: Bool) (g :: Bool) (h :: CullType) (i :: List Deform) (j :: Bool) (k :: Bool) (l :: List 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
+CommonAttrs
+  :: ()
+    -> ()
+      -> Bool
+        -> Float
+          -> Bool
+            -> Bool
+              -> CullType
+                -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+'CommonAttrsCase
+  :: forall (a :: CommonAttrs -> Type)
+    -> (forall (b :: ())
+          (c :: ())
+            (d :: Bool)
+              (e :: Float)
+                (f :: Bool)
+                  (g :: Bool)
+                    (h :: CullType)
+                      (i :: List Deform) (j :: Bool) (k :: Bool) (l :: List 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
@@ -360,7 +782,13 @@ testdata/Material.lc 127:7-127:15  DepthFunction
 testdata/Material.lc 130:6-130:16  Type
 testdata/Material.lc 130:6-131:17  Type
 testdata/Material.lc 130:6-144:34  Type
-testdata/Material.lc 131:7-131:17  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs | StageAttrs | Type
+testdata/Material.lc 131:7-131:17  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs | StageAttrs | Type
 testdata/Material.lc 132:7-132:14  StageAttrs -> Maybe (Blending', Blending')
 testdata/Material.lc 132:25-132:30  Type -> Type
 testdata/Material.lc 132:25-132:53  Type
@@ -393,12 +821,33 @@ testdata/Material.lc 144:7-144:23  StageAttrs -> String
 testdata/Material.lc 144:28-144:34  Type
 testdata/Material.lc 148:22-148:32  Type
 testdata/Material.lc 149:1-149:18  StageAttrs
-testdata/Material.lc 149:21-149:31  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/Material.lc 149:21-150:30  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/Material.lc 149:21-151:36  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/Material.lc 149:21-152:33  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/Material.lc 149:21-153:35  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/Material.lc 149:21-154:25  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-149:31  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-150:30  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-151:36  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-152:33  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-153:35  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-154:25  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/Material.lc 149:21-155:36  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/Material.lc 149:21-156:27  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/Material.lc 149:21-157:31  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -419,7 +868,13 @@ testdata/Material.lc 160:27-160:29  String
 testdata/Material.lc 163:6-163:17  Type
 testdata/Material.lc 163:6-164:18  Type
 testdata/Material.lc 163:6-178:32  Type
-testdata/Material.lc 164:7-164:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs | CommonAttrs | Type
+testdata/Material.lc 164:7-164:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs | CommonAttrs | Type
 testdata/Material.lc 165:7-165:17  CommonAttrs -> ()
 testdata/Material.lc 165:28-165:30  Type
 testdata/Material.lc 166:7-166:17  CommonAttrs -> ()
@@ -448,11 +903,31 @@ testdata/Material.lc 178:7-178:14  CommonAttrs -> Bool
 testdata/Material.lc 178:28-178:32  Type
 testdata/Material.lc 182:23-182:34  Type
 testdata/Material.lc 183:1-183:19  CommonAttrs
-testdata/Material.lc 183:22-183:33  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/Material.lc 183:22-184:29  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/Material.lc 183:22-185:29  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/Material.lc 183:22-186:32  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/Material.lc 183:22-187:28  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-183:33  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-184:29  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-185:29  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-186:32  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-187:28  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/Material.lc 183:22-188:32  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/Material.lc 183:22-189:32  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/Material.lc 183:22-190:40  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
diff --git a/testdata/NewStyle.out b/testdata/NewStyle.out
index ec16a74c..a950e3cf 100644
--- a/testdata/NewStyle.out
+++ b/testdata/NewStyle.out
@@ -24,22 +24,17 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (vi1));
+                  gl_Position = scale (0.5,(MVP) * (vi1));
                   vo1 = vi1;
               }
               """
@@ -47,8 +42,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/Prelude.out b/testdata/Prelude.out
index dac505a0..bf8a02e4 100644
--- a/testdata/Prelude.out
+++ b/testdata/Prelude.out
@@ -1,3 +1,473 @@
+------------ desugared source code
+infixr 9 .
+infixl 7 PrimMulMatVec
+infixl 7 PrimDot
+infixr 5 ++
+infixr 3 ***
+infixr 0 $
+const = \(a :: _) -> \_ -> _rhs a
+otherwise = _rhs True
+& = \(a :: _) (b :: _) -> _rhs (b a)
+$ = _rhs \(a :: _) (b :: _) -> a b
+. = _rhs \(a :: _) (b :: _) (c :: _) -> a (b c)
+uncurry
+  = \(a :: _) (b :: _) -> hlistConsCase
+    (_ :: _)
+    \(c :: _) (d :: _) -> hlistConsCase
+      (_ :: _)
+      \(e :: _) (f :: _) -> hlistNilCase (_ :: _) (_rhs (a c e)) f
+      d
+    b
+***
+  = \(a :: _) (b :: _) (c :: _) -> hlistConsCase
+    (_ :: _)
+    \(d :: _) (e :: _) -> hlistConsCase
+      (_ :: _)
+      \(f :: _) (g :: _) -> hlistNilCase
+        (_ :: _)
+        (_rhs (HCons (a d) (HCons (b f) HNil)))
+        g
+      e
+    c
+pi = _rhs 3.141592653589793
+zip
+  = (\(a :: _) (b :: _) -> 'ListCase
+      \_ -> _ :: _
+      (_rhs Nil)
+      \(c :: _) (d :: _) -> 'ListCase
+        \_ -> _ :: _
+        (_rhs Nil)
+        \(e :: _) (f :: _) -> _rhs (HCons c (HCons e HNil) : zip d f)
+        b
+      a)
+    :: forall (g :: _) (h :: _)
+      . List g -> List h -> List (HList ('Cons g ('Cons h 'Nil)))
+unzip
+  = (\(a :: _) -> 'ListCase
+      \_ -> _ :: _
+      (_rhs (HCons Nil (HCons Nil HNil)))
+      \(b :: _) (c :: _) -> hlistConsCase
+        (_ :: _)
+        \(d :: _) (e :: _) -> hlistConsCase
+          (_ :: _)
+          \(f :: _) (g :: _) -> hlistNilCase
+            (_ :: _)
+            (_rhs
+              \(h := _rhs (unzip c))
+                (i
+                    := _rhs
+                      ((\(k :: _) -> hlistConsCase
+                          (_ :: _)
+                          \_ (l :: _) -> hlistConsCase
+                            (_ :: _)
+                            \(m :: _) (n :: _) -> hlistNilCase (_ :: _) m n
+                            l
+                          k)
+                        h))
+                  (j
+                    := _rhs
+                      ((\(o :: _) -> hlistConsCase
+                          (_ :: _)
+                          \(p :: _) (q :: _) -> hlistConsCase
+                            (_ :: _)
+                            \_ (r :: _) -> hlistNilCase (_ :: _) p r
+                            q
+                          o)
+                        h)) -> HCons (d : j) (HCons (f : i) HNil))
+            g
+          e
+        b
+      a)
+    :: forall (s :: _) (t :: _)
+      . List (HList ('Cons s ('Cons t 'Nil)))
+        -> HList ('Cons (List s) ('Cons (List t) 'Nil))
+filter
+  = \(a :: _) (b :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs Nil)
+    \(c :: _) (d :: _) -> _rhs
+      ((\(e :: _) -> 'BoolCase \_ -> _ :: _ (filter a d) (c : filter a d) e) (a c))
+    b
+tail
+  = (\(a :: _) -> 'ListCase \_ -> _ :: _ (_rhs undefined) \_ (b :: _) -> _rhs b a)
+    :: forall (c :: _) . List c -> List c
+pairs
+  = (\(a :: _) -> _rhs (zip a (tail a)))
+    :: forall (b :: _) . List b -> List (HList ('Cons b ('Cons b 'Nil)))
+foldl'
+  = \(a :: _) (b :: _) (c :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs b)
+    \(d :: _) (e :: _) -> _rhs (foldl' a (a b d) e)
+    c
+foldr1
+  = \(a :: _) (b :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs undefined)
+    \(c :: _) (d :: _) -> _rhs (foldr a c d)
+    b
+split
+  = \(a :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs (HCons Nil (HCons Nil HNil)))
+    \(b :: _) (c :: _) -> _rhs
+      \(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)) -> HCons (b : e) (HCons f HNil)
+    a
+mergeBy
+  = \(a :: _) (b :: _) (c :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs c)
+    \(d :: _) (e :: _) -> 'ListCase
+      \_ -> _ :: _
+      (_rhs b)
+      \(f :: _) (g :: _) -> _rhs
+        ((\(h :: _) -> 'OrderingCase
+            \_ -> _ :: _
+            (d : mergeBy a e (f : g))
+            (f : mergeBy a (d : e) g)
+            (f : mergeBy a (d : e) g)
+            h)
+          (a d f))
+      c
+    b
+sortBy
+  = \(a :: _) (b :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs Nil)
+    \(c :: _) (d :: _) -> 'ListCase
+      \_ -> _ :: _
+      (_rhs (Cons c Nil))
+      \_ -> \_ -> _rhs (uncurry (mergeBy a) ((sortBy a *** sortBy a) (split b)))
+      d
+    b
+iterate
+  = (\(a :: _) (b :: _) -> _rhs (b : iterate a (a b)))
+    :: forall (c :: _) . (c -> c) -> c -> List c
+fst
+  = \(a :: _) -> hlistConsCase
+    (_ :: _)
+    \(b :: _) (c :: _) -> hlistConsCase
+      (_ :: _)
+      \_ (d :: _) -> hlistNilCase (_ :: _) (_rhs b) d
+      c
+    a
+snd
+  = \(a :: _) -> hlistConsCase
+    (_ :: _)
+    \_ (b :: _) -> hlistConsCase
+      (_ :: _)
+      \(c :: _) (d :: _) -> hlistNilCase (_ :: _) (_rhs c) d
+      b
+    a
+||| = \(a :: _) (b :: _) -> 'BoolCase \_ -> _ :: _ (_rhs b) (_rhs True) a
+infixr 2 |||
+&&& = \(a :: _) (b :: _) -> 'BoolCase \_ -> _ :: _ (_rhs False) (_rhs b) a
+infixr 3 &&&
+data RecItem :: Type where
+    RecItem :: String -> Type -> RecItem
+recItemType = \(a :: _) -> 'RecItemCase \_ -> _ :: _ \_ (b :: _) -> _rhs b a
+data RecordC (_ :: List RecItem) :: Type where
+    RecordCons :: HList (map recItemType _a) -> RecordC _a
+isKeyC
+  = \(a :: _) (b :: _) (c :: _) -> 'ListCase
+    \_ -> _ :: _
+    (_rhs ('Empty ""))
+    \(d :: _) (e :: _) -> 'RecItemCase
+      \_ -> _ :: _
+      \(f :: _) (g :: _) -> _rhs (primIfThenElse (a == f) (b ~ g) (isKeyC a b e))
+      d
+    c
+fstTup = _rhs (hlistConsCase (_ :: _) \(a :: _) -> \_ -> a)
+sndTup = _rhs (hlistConsCase (_ :: _) \_ (a :: _) -> a)
+project
+  = (\ @(a :: _) @(b :: _) (c :: _) -> \ @_ (d :: _) -> 'ListCase
+      \_ -> _ :: _
+      (_rhs undefined)
+      \(e :: _) (f :: _) -> 'RecItemCase
+        \_ -> _ :: _
+        \(g :: _) -> \_ -> 'RecordCCase
+          \_ -> _ :: _
+          \(h :: _) -> 'BoolCase
+            \_ -> _ :: _
+            (_rhs
+              (project
+                @a
+                @f
+                c
+                @(undefined @(isKeyC c a f))
+                (RecordCons
+                  (sndTup (unsafeCoerce @(_ :: _) @('HList (a : map recItemType f)) h)))))
+            (_rhs (fstTup (unsafeCoerce @(_ :: _) @('HList (a : map recItemType f)) h)))
+            (c == g)
+          d
+        e
+      b)
+    :: forall (i :: _) (j :: List RecItem)
+      . forall (k :: String) -> isKeyC k i j => RecordC j -> i
+rgb = \(a :: _) (b :: _) (c :: _) -> _rhs (V4 a b c 1.0)
+black = _rhs (rgb 0.0 0.0 0.0)
+gray = _rhs (rgb 0.5 0.5 0.5)
+silver = _rhs (rgb 0.75 0.75 0.75)
+white = _rhs (rgb 1.0 1.0 1.0)
+maroon = _rhs (rgb 0.5 0.0 0.0)
+red = _rhs (rgb 1.0 0.0 0.0)
+olive = _rhs (rgb 0.5 0.5 0.0)
+yellow = _rhs (rgb 1.0 1.0 0.0)
+green = _rhs (rgb 0.0 0.5 0.0)
+lime = _rhs (rgb 0.0 1.0 0.0)
+teal = _rhs (rgb 0.0 0.5 0.5)
+aqua = _rhs (rgb 0.0 1.0 1.0)
+navy = _rhs (rgb 0.0 0.0 0.5)
+blue = _rhs (rgb 0.0 0.0 1.0)
+purple = _rhs (rgb 0.5 0.0 0.5)
+fuchsia = _rhs (rgb 1.0 0.0 1.0)
+colorImage1 = _rhs (ColorImage @(fromInt 1))
+colorImage2 = _rhs (ColorImage @(fromInt 2))
+depthImage1 = _rhs (DepthImage @(fromInt 1))
+v3FToV4F
+  = (\(a :: _) -> _rhs
+      (V4 (swizzscalar a Sx) (swizzscalar a Sy) (swizzscalar a Sz) (fromInt 1)))
+    :: Vec (fromInt 3) Float -> Vec (fromInt 4) Float
+radians = _rhs PrimRadians
+degrees = _rhs PrimDegrees
+sin = _rhs PrimSin
+cos = _rhs PrimCos
+tan = _rhs PrimTan
+sinh = _rhs PrimSinH
+cosh = _rhs PrimCosH
+tanh = _rhs PrimTanH
+asin = _rhs PrimASin
+asinh = _rhs PrimASinH
+acos = _rhs PrimACos
+acosh = _rhs PrimACosH
+atan = _rhs PrimATan
+atanh = _rhs PrimATanH
+atan2 = _rhs PrimATan2
+pow = _rhs PrimPow
+exp = _rhs PrimExp
+log = _rhs PrimLog
+exp2 = _rhs PrimExp2
+log2 = _rhs PrimLog2
+sqrt = _rhs PrimSqrt
+inversesqrt = _rhs PrimInvSqrt
+abs = _rhs PrimAbs
+sign = _rhs PrimSign
+floor = _rhs PrimFloor
+trunc = _rhs PrimTrunc
+round = _rhs PrimRound
+roundEven = _rhs PrimRoundEven
+ceil = _rhs PrimCeil
+fract = _rhs PrimFract
+mod = _rhs PrimMod
+min = _rhs PrimMin
+max = _rhs PrimMax
+modF = _rhs PrimModF
+clamp = _rhs PrimClamp
+clampS = _rhs PrimClampS
+mix = _rhs PrimMix
+mixS = _rhs PrimMixS
+mixB = _rhs PrimMixB
+step = _rhs PrimStep
+stepS = _rhs PrimStepS
+smoothstep = _rhs PrimSmoothStep
+smoothstepS = _rhs PrimSmoothStepS
+isNan = _rhs PrimIsNan
+isInf = _rhs PrimIsInf
+dFdx = _rhs PrimDFdx
+dFdy = _rhs PrimDFdy
+fWidth = _rhs PrimFWidth
+noise1 = _rhs PrimNoise1
+noise2 = _rhs PrimNoise2
+noise3 = _rhs PrimNoise3
+noise4 = _rhs PrimNoise4
+length = _rhs PrimLength
+distance = _rhs PrimDistance
+dot = _rhs PrimDot
+cross = _rhs PrimCross
+normalize = _rhs PrimNormalize
+faceforward = _rhs PrimFaceForward
+reflect = _rhs PrimReflect
+refract = _rhs PrimRefract
+transpose = _rhs PrimTranspose
+det = _rhs PrimDeterminant
+inv = _rhs PrimInverse
+outer = _rhs PrimOuterProduct
+bAnd = _rhs PrimBAnd
+bOr = _rhs PrimBOr
+bXor = _rhs PrimBXor
+bNot = _rhs PrimBNot
+bAndS = _rhs PrimBAndS
+bOrS = _rhs PrimBOrS
+bXorS = _rhs PrimBXorS
+shiftL = _rhs PrimBShiftL
+shiftR = _rhs PrimBShiftR
+shiftLS = _rhs PrimBShiftLS
+shiftRS = _rhs PrimBShiftRS
+floatBitsToInt = _rhs PrimFloatBitsToInt
+floatBitsToWord = _rhs PrimFloatBitsToUInt
+intBitsToFloat = _rhs PrimIntBitsToFloat
+wordBitsToFloat = _rhs PrimUIntBitsToFloat
+infixl 7 *
+infixl 7 /
+infixl 7 %
+infixl 6 +
+infixl 6 -
+infix 4 /=
+infix 4 <
+infix 4 <=
+infix 4 >=
+infix 4 >
+infixr 3 &&
+infixr 2 ||
+infix 7 dot
+infix 7 cross
+infixr 7 *.
+infixl 7 .*
+infixl 7 .*.
++ = \(a :: _) (b :: _) -> _rhs (PrimAdd a b)
+- = \(a :: _) (b :: _) -> _rhs (PrimSub a b)
+* = \(a :: _) (b :: _) -> _rhs (PrimMul a b)
+/ = \(a :: _) (b :: _) -> _rhs (PrimDiv a b)
+% = \(a :: _) (b :: _) -> _rhs (PrimMod a b)
+neg = \(a :: _) -> _rhs (PrimNeg a)
+/= = \(a :: _) (b :: _) -> _rhs (PrimNotEqual a b)
+< = \(a :: _) (b :: _) -> _rhs (PrimLessThan a b)
+<= = \(a :: _) (b :: _) -> _rhs (PrimLessThanEqual a b)
+>= = \(a :: _) (b :: _) -> _rhs (PrimGreaterThanEqual a b)
+> = \(a :: _) (b :: _) -> _rhs (PrimGreaterThan a b)
+&& = \(a :: _) (b :: _) -> _rhs (PrimAnd a b)
+|| = \(a :: _) (b :: _) -> _rhs (PrimOr a b)
+xor = _rhs PrimXor
+not = \(a :: _) -> _rhs (PrimNot a)
+any = \(a :: _) -> _rhs (PrimAny a)
+all = \(a :: _) -> _rhs (PrimAll a)
+.*. = \(a :: _) (b :: _) -> _rhs (PrimMulMatMat a b)
+*. = \(a :: _) (b :: _) -> _rhs (PrimMulMatVec a b)
+.* = \(a :: _) (b :: _) -> _rhs (PrimMulVecMat a b)
+infixl 7 *!
+infixl 7 /!
+infixl 7 %!
+infixl 6 +!
+infixl 6 -!
++! = \(a :: _) (b :: _) -> _rhs (PrimAddS a b)
+-! = \(a :: _) (b :: _) -> _rhs (PrimSubS a b)
+*! = \(a :: _) (b :: _) -> _rhs (PrimMulS a b)
+/! = \(a :: _) (b :: _) -> _rhs (PrimDivS a b)
+%! = \(a :: _) (b :: _) -> _rhs (PrimModS a b)
+perspective
+  = (\(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs
+      \(e := _rhs (a * tan (c / fromInt 2)))
+        (f := _rhs (fromInt 0 - e))
+          (g := _rhs (d * e)) (h := _rhs (fromInt 0 - g)) -> M44F
+        (V4 (fromInt 2 * a / (g - h)) (fromInt 0) (fromInt 0) (fromInt 0))
+        (V4 (fromInt 0) (fromInt 2 * a / (e - f)) (fromInt 0) (fromInt 0))
+        (V4
+          ((g + h) / (g - h))
+          ((e + f) / (e - f))
+          (fromInt 0 - (b + a) / (b - a))
+          (fromInt 0 - fromInt 1))
+        (V4
+          (fromInt 0)
+          (fromInt 0)
+          (fromInt 0 - fromInt 2 * b * a / (b - a))
+          (fromInt 0)))
+    :: Float -> Float -> Float -> Float -> Mat (fromInt 4) (fromInt 4) Float
+rotMatrixZ
+  = \(a :: _) -> _rhs
+    \(b := _rhs (cos a)) (c := _rhs (sin a)) -> M44F
+      (V4 b c (fromInt 0) (fromInt 0))
+      (V4 (fromInt 0 - c) b (fromInt 0) (fromInt 0))
+      (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0))
+      (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1))
+rotMatrixY
+  = \(a :: _) -> _rhs
+    \(b := _rhs (cos a)) (c := _rhs (sin a)) -> M44F
+      (V4 b (fromInt 0) (fromInt 0 - c) (fromInt 0))
+      (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0))
+      (V4 c (fromInt 0) b (fromInt 0))
+      (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1))
+rotMatrixX
+  = \(a :: _) -> _rhs
+    \(b := _rhs (cos a)) (c := _rhs (sin a)) -> M44F
+      (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0))
+      (V4 (fromInt 0) b c (fromInt 0))
+      (V4 (fromInt 0) (fromInt 0 - c) b (fromInt 0))
+      (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1))
+rotationEuler
+  = \(a :: _) (b :: _) (c :: _) -> _rhs
+    (rotMatrixY a .*. rotMatrixX b .*. rotMatrixZ c)
+translateBefore4
+  = (\(a :: _) -> _rhs
+      \(b := _rhs (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0)))
+        (c := _rhs (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0)))
+          (d := _rhs (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0)))
+            (e
+              := _rhs
+                (V4
+                  (swizzscalar a Sx)
+                  (swizzscalar a Sy)
+                  (swizzscalar a Sz)
+                  (fromInt 1))) -> M44F b c d e)
+    :: Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float
+lookat
+  = (\(a :: _) (b :: _) (c :: _) -> _rhs
+      \(d
+          := \(i :: _) -> _rhs
+            (V4 (swizzscalar i Sx) (swizzscalar i Sy) (swizzscalar i Sz) (fromInt 0)))
+        (e := _rhs (normalize $ a - b))
+          (f := _rhs (normalize $ c `cross` e))
+            (g := _rhs (e `cross` f))
+              (h
+                := _rhs
+                  (transpose
+                    $ M44F
+                      (d f)
+                      (d g)
+                      (d e)
+                      (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)))) -> h
+        .*. translateBefore4 (neg a))
+    :: Vec (fromInt 3) Float
+      -> Vec (fromInt 3) Float
+        -> Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float
+scale = \(a :: _) (b :: _) -> _rhs (b * V4 a a a 1.0)
+fromTo
+  = (\(a :: _) (b :: _) -> 'BoolCase
+      \_ -> _ :: _
+      (_rhs (a : fromTo (a + fromInt 1) b))
+      (_rhs Nil)
+      (a > b))
+    :: Float -> Float -> List Float
+!!
+  = (\(a :: _) (b :: _) -> 'ListCase
+      \_ -> _ :: _
+      (_rhs undefined)
+      \(c :: _) (d :: _) -> 'BoolCase
+        \_ -> _ :: _
+        (_rhs (d !! (b - fromInt 1)))
+        (_rhs c)
+        (fromInt 0 == b)
+      a)
+    :: forall (e :: _) . List e -> Int -> e
 main is not found
 ------------ trace
 const :: forall a b . a -> b -> a
@@ -25,17 +495,30 @@ snd :: forall a b . (a, b) -> b
 &&& :: Bool -> Bool -> Bool
 'RecItem :: Type
 RecItem :: String -> Type -> RecItem
-'RecItemCase :: 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
+'RecItemCase
+  :: 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 :: List RecItem -> Type
-RecordCons :: forall (a :: List RecItem) . HList (map RecItem Type recItemType a) -> RecordC a
-'RecordCCase :: forall (a :: List 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 :: List RecItem) -> a (RecordC b)) -> forall c -> a c -> a c
+RecordCons
+  :: forall (a :: List RecItem)
+    . HList (map RecItem Type recItemType a) -> RecordC a
+'RecordCCase
+  :: forall (a :: List 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 :: List RecItem) -> a (RecordC b)) -> forall c -> a c -> a c
 isKeyC :: String -> Type -> List RecItem -> Type
 fstTup :: forall a (b :: List Type) . HList ('Cons a b) -> a
 sndTup :: forall a (b :: List Type) . HList ('Cons a b) -> HList b
-project :: forall a (b :: List RecItem) . forall (c :: String) -> isKeyC c a b => RecordC b -> a
+project
+  :: forall a (b :: List 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
@@ -53,8 +536,10 @@ navy :: VecS Float 4
 blue :: VecS Float 4
 purple :: VecS Float 4
 fuchsia :: VecS Float 4
-colorImage1 :: forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
-colorImage2 :: forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 2 ('Color c)
+colorImage1
+  :: forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
+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
@@ -95,13 +580,20 @@ clamp :: forall a b (c :: Nat) . (Num a
 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 :: forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
+mixB
+  :: 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
-isNan :: forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-isInf :: forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+smoothstepS
+  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
+isNan
+  :: forall a (b :: Nat) c
+    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+isInf
+  :: 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
@@ -128,10 +620,16 @@ bNot :: forall a b (c :: Nat) . (Integral a[0
 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
-shiftL :: forall a b (c :: Nat) d . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
-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
-shiftRS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+shiftL
+  :: forall a b (c :: Nat) d
+    . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+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
+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
@@ -139,21 +637,35 @@ wordBitsToFloat :: forall (a :: Nat) . VecScalar a[0
 + :: 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
+/
+  :: 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
+<
+  :: 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
 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 (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
@@ -888,10 +1400,14 @@ testdata/Prelude.lc 253:1-253:5  forall a b (c :: Nat) . (Integral a, b ~ VecSca
 testdata/Prelude.lc 253:11-253:19  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
 testdata/Prelude.lc 254:1-254:6  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
 testdata/Prelude.lc 254:11-254:20  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-testdata/Prelude.lc 255:1-255:7  forall a b (c :: Nat) d . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
-testdata/Prelude.lc 255:11-255:22  forall a b (c :: Nat) d . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
-testdata/Prelude.lc 256:1-256:7  forall a b (c :: Nat) d . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
-testdata/Prelude.lc 256:11-256:22  forall a b (c :: Nat) d . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+testdata/Prelude.lc 255:1-255:7  forall a b (c :: Nat) d
+  . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+testdata/Prelude.lc 255:11-255:22  forall a b (c :: Nat) d
+  . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+testdata/Prelude.lc 256:1-256:7  forall a b (c :: Nat) d
+  . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+testdata/Prelude.lc 256:11-256:22  forall a b (c :: Nat) d
+  . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
 testdata/Prelude.lc 257:1-257:8  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
 testdata/Prelude.lc 257:11-257:23  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
 testdata/Prelude.lc 258:1-258:8  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
@@ -1210,7 +1726,8 @@ testdata/Prelude.lc 342:16-342:49  Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
 testdata/Prelude.lc 342:16-342:62  Vec 4 Float -> Mat 4 4 Float
 testdata/Prelude.lc 342:16-342:75  Mat 4 4 Float
 testdata/Prelude.lc 342:22-342:24  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 342:22-342:26  VecScalar _c Float -> VecScalar _c Float -> VecScalar _c Float -> VecS (VecScalar _c Float) 4
+testdata/Prelude.lc 342:22-342:26  VecScalar _c Float
+  -> VecScalar _c Float -> VecScalar _c Float -> VecS (VecScalar _c Float) 4
 testdata/Prelude.lc 342:22-342:28  VecScalar _c Float -> VecScalar _c Float -> VecS (VecScalar _c Float) 4
 testdata/Prelude.lc 342:22-342:30  VecScalar _d Float -> VecS (VecScalar _d Float) 4
 testdata/Prelude.lc 342:22-342:32  VecS (VecScalar 1 Float) 4
@@ -1260,7 +1777,8 @@ testdata/Prelude.lc 347:16-347:49  Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
 testdata/Prelude.lc 347:16-347:62  Vec 4 Float -> Mat 4 4 Float
 testdata/Prelude.lc 347:16-347:75  Mat 4 4 Float
 testdata/Prelude.lc 347:22-347:24  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 347:22-347:26  VecScalar _c Float -> VecScalar _c Float -> VecScalar _c Float -> VecS (VecScalar _c Float) 4
+testdata/Prelude.lc 347:22-347:26  VecScalar _c Float
+  -> VecScalar _c Float -> VecScalar _c Float -> VecS (VecScalar _c Float) 4
 testdata/Prelude.lc 347:22-347:28  VecScalar _d Float -> VecScalar _d Float -> VecS (VecScalar _d Float) 4
 testdata/Prelude.lc 347:22-347:33  VecScalar _f Float -> VecS (VecScalar _f Float) 4
 testdata/Prelude.lc 347:22-347:35  VecS (VecScalar 1 Float) 4
diff --git a/testdata/PrimReduce.out b/testdata/PrimReduce.out
index 83377657..0fc353f0 100644
--- a/testdata/PrimReduce.out
+++ b/testdata/PrimReduce.out
@@ -22,49 +22,32 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               vec4 rotate(float z0,vec4 z1) {
-                  return (mat4 (vec4 (cos (z0)
-                                     ,(0.0) - (sin (z0))
-                                     ,0.0
-                                     ,0.0)
-                               ,vec4 (sin (z0)
-                                     ,cos (z0)
-                                     ,0.0
-                                     ,0.0)
+                  return (mat4 (vec4 (cos (z0),(0.0) - (sin (z0)),0.0,0.0)
+                               ,vec4 (sin (z0),cos (z0),0.0,0.0)
                                ,vec4 (0.0,0.0,1.0,0.0)
-                               ,vec4 (0.0
-                                     ,0.0
-                                     ,0.0
-                                     ,1.0))) * (z1);
+                               ,vec4 (0.0,0.0,0.0,1.0))) * (z1);
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.1
-                                      ,rotate (3.0,vi1));
+                  gl_Position = scale (0.1,rotate (3.0,vi1));
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               out vec4 f0;
-              vec4 rgb(float z0
-                      ,float z1
-                      ,float z2) {
+              vec4 rgb(float z0,float z1,float z2) {
                   return vec4 (z0,z1,z2,1.0);
               }
               vec4 blue;
diff --git a/testdata/SampleMaterial.out b/testdata/SampleMaterial.out
index fd598d79..cd8a5f3b 100644
--- a/testdata/SampleMaterial.out
+++ b/testdata/SampleMaterial.out
@@ -1,3 +1,2237 @@
+------------ desugared source code
+sampleMaterial
+  = _rhs
+    (Cons
+      (HCons
+        "textures/gothic_block/blocks11b"
+        (HCons
+          (CommonAttrs
+            HNil
+            HNil
+            False
+            (fromInt 0)
+            False
+            False
+            CT_FrontSided
+            Nil
+            False
+            False
+            (Cons
+              (StageAttrs
+                Nothing
+                RGB_IdentityLighting
+                A_Identity
+                TG_Base
+                Nil
+                (ST_Map "textures/gothic_block/blocks11b")
+                True
+                D_Lequal
+                Nothing
+                False
+                "Tex_4288602201")
+              (Cons
+                (StageAttrs
+                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                  RGB_IdentityLighting
+                  A_Identity
+                  TG_Lightmap
+                  Nil
+                  ST_Lightmap
+                  True
+                  D_Lequal
+                  Nothing
+                  False
+                  "Tex_3226210144")
+                Nil))
+            False)
+          HNil))
+      (Cons
+        (HCons
+          "textures/gothic_block/blocks15"
+          (HCons
+            (CommonAttrs
+              HNil
+              HNil
+              False
+              (fromInt 0)
+              False
+              False
+              CT_FrontSided
+              Nil
+              False
+              False
+              (Cons
+                (StageAttrs
+                  Nothing
+                  RGB_IdentityLighting
+                  A_Identity
+                  TG_Base
+                  Nil
+                  (ST_Map "textures/gothic_block/blocks15")
+                  True
+                  D_Lequal
+                  Nothing
+                  False
+                  "Tex_2523116863")
+                (Cons
+                  (StageAttrs
+                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                    RGB_IdentityLighting
+                    A_Identity
+                    TG_Lightmap
+                    Nil
+                    ST_Lightmap
+                    True
+                    D_Lequal
+                    Nothing
+                    False
+                    "Tex_3226210144")
+                  Nil))
+              False)
+            HNil))
+        (Cons
+          (HCons
+            "textures/gothic_block/blocks18b"
+            (HCons
+              (CommonAttrs
+                HNil
+                HNil
+                False
+                (fromInt 0)
+                False
+                False
+                CT_FrontSided
+                Nil
+                False
+                False
+                (Cons
+                  (StageAttrs
+                    Nothing
+                    RGB_IdentityLighting
+                    A_Identity
+                    TG_Base
+                    Nil
+                    (ST_Map "textures/gothic_block/blocks18b")
+                    True
+                    D_Lequal
+                    Nothing
+                    False
+                    "Tex_2639119078")
+                  (Cons
+                    (StageAttrs
+                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                      RGB_IdentityLighting
+                      A_Identity
+                      TG_Lightmap
+                      Nil
+                      ST_Lightmap
+                      True
+                      D_Lequal
+                      Nothing
+                      False
+                      "Tex_3226210144")
+                    Nil))
+                False)
+              HNil))
+          (Cons
+            (HCons
+              "textures/gothic_block/blocks18c_3"
+              (HCons
+                (CommonAttrs
+                  HNil
+                  HNil
+                  False
+                  (fromInt 0)
+                  False
+                  False
+                  CT_FrontSided
+                  Nil
+                  False
+                  False
+                  (Cons
+                    (StageAttrs
+                      Nothing
+                      RGB_IdentityLighting
+                      A_Identity
+                      TG_Base
+                      Nil
+                      (ST_Map "textures/gothic_block/blocks18c_3")
+                      True
+                      D_Lequal
+                      Nothing
+                      False
+                      "Tex_3939430064")
+                    (Cons
+                      (StageAttrs
+                        (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                        RGB_IdentityLighting
+                        A_Identity
+                        TG_Lightmap
+                        Nil
+                        ST_Lightmap
+                        True
+                        D_Lequal
+                        Nothing
+                        False
+                        "Tex_3226210144")
+                      Nil))
+                  False)
+                HNil))
+            (Cons
+              (HCons
+                "textures/gothic_block/demon_block15fx"
+                (HCons
+                  (CommonAttrs
+                    HNil
+                    HNil
+                    False
+                    (fromInt 3)
+                    False
+                    False
+                    CT_FrontSided
+                    Nil
+                    False
+                    False
+                    (Cons
+                      (StageAttrs
+                        Nothing
+                        RGB_Identity
+                        A_Identity
+                        TG_Base
+                        (Cons
+                          (TM_Scroll 0.0 1.0)
+                          (Cons (TM_Turb 0.0 0.25 0.0 1.6) (Cons (TM_Scale 4.0 4.0) Nil)))
+                        (ST_Map "textures/sfx/firegorre.tga")
+                        True
+                        D_Lequal
+                        Nothing
+                        False
+                        "Tex_47037129")
+                      (Cons
+                        (StageAttrs
+                          (Just (HCons B_SrcAlpha (HCons B_OneMinusSrcAlpha HNil)))
+                          RGB_Identity
+                          A_Identity
+                          TG_Base
+                          Nil
+                          (ST_Map "textures/gothic_block/demon_block15fx.tga")
+                          False
+                          D_Lequal
+                          Nothing
+                          False
+                          "Tex_3562558025")
+                        (Cons
+                          (StageAttrs
+                            (Just (HCons B_DstColor (HCons B_OneMinusDstAlpha HNil)))
+                            RGB_Identity
+                            A_Identity
+                            TG_Lightmap
+                            Nil
+                            ST_Lightmap
+                            False
+                            D_Lequal
+                            Nothing
+                            False
+                            "Tex_2065974340")
+                          Nil)))
+                    False)
+                  HNil))
+              (Cons
+                (HCons
+                  "textures/gothic_block/killblock"
+                  (HCons
+                    (CommonAttrs
+                      HNil
+                      HNil
+                      False
+                      (fromInt 0)
+                      False
+                      False
+                      CT_FrontSided
+                      Nil
+                      False
+                      False
+                      (Cons
+                        (StageAttrs
+                          Nothing
+                          RGB_IdentityLighting
+                          A_Identity
+                          TG_Base
+                          Nil
+                          (ST_Map "textures/gothic_block/killblock")
+                          True
+                          D_Lequal
+                          Nothing
+                          False
+                          "Tex_3647563961")
+                        (Cons
+                          (StageAttrs
+                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                            RGB_IdentityLighting
+                            A_Identity
+                            TG_Lightmap
+                            Nil
+                            ST_Lightmap
+                            True
+                            D_Lequal
+                            Nothing
+                            False
+                            "Tex_3226210144")
+                          Nil))
+                      False)
+                    HNil))
+                (Cons
+                  (HCons
+                    "textures/gothic_block/killblock_i"
+                    (HCons
+                      (CommonAttrs
+                        HNil
+                        HNil
+                        False
+                        (fromInt 0)
+                        False
+                        False
+                        CT_FrontSided
+                        Nil
+                        False
+                        False
+                        (Cons
+                          (StageAttrs
+                            Nothing
+                            RGB_IdentityLighting
+                            A_Identity
+                            TG_Base
+                            Nil
+                            (ST_Map "textures/gothic_block/killblock_i")
+                            True
+                            D_Lequal
+                            Nothing
+                            False
+                            "Tex_209322640")
+                          (Cons
+                            (StageAttrs
+                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                              RGB_IdentityLighting
+                              A_Identity
+                              TG_Lightmap
+                              Nil
+                              ST_Lightmap
+                              True
+                              D_Lequal
+                              Nothing
+                              False
+                              "Tex_3226210144")
+                            Nil))
+                        False)
+                      HNil))
+                  (Cons
+                    (HCons
+                      "textures/gothic_block/killblock_i4"
+                      (HCons
+                        (CommonAttrs
+                          HNil
+                          HNil
+                          False
+                          (fromInt 0)
+                          False
+                          False
+                          CT_FrontSided
+                          Nil
+                          False
+                          False
+                          (Cons
+                            (StageAttrs
+                              Nothing
+                              RGB_IdentityLighting
+                              A_Identity
+                              TG_Base
+                              Nil
+                              (ST_Map "textures/gothic_block/killblock_i4")
+                              True
+                              D_Lequal
+                              Nothing
+                              False
+                              "Tex_3617993418")
+                            (Cons
+                              (StageAttrs
+                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                RGB_IdentityLighting
+                                A_Identity
+                                TG_Lightmap
+                                Nil
+                                ST_Lightmap
+                                True
+                                D_Lequal
+                                Nothing
+                                False
+                                "Tex_3226210144")
+                              Nil))
+                          False)
+                        HNil))
+                    (Cons
+                      (HCons
+                        "textures/gothic_door/km_arena1archfinalc_mid"
+                        (HCons
+                          (CommonAttrs
+                            HNil
+                            HNil
+                            False
+                            (fromInt 0)
+                            False
+                            False
+                            CT_FrontSided
+                            Nil
+                            False
+                            False
+                            (Cons
+                              (StageAttrs
+                                Nothing
+                                RGB_IdentityLighting
+                                A_Identity
+                                TG_Base
+                                Nil
+                                (ST_Map "textures/gothic_door/km_arena1archfinalc_mid")
+                                True
+                                D_Lequal
+                                Nothing
+                                False
+                                "Tex_2073154888")
+                              (Cons
+                                (StageAttrs
+                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                  RGB_IdentityLighting
+                                  A_Identity
+                                  TG_Lightmap
+                                  Nil
+                                  ST_Lightmap
+                                  True
+                                  D_Lequal
+                                  Nothing
+                                  False
+                                  "Tex_3226210144")
+                                Nil))
+                            False)
+                          HNil))
+                      (Cons
+                        (HCons
+                          "textures/gothic_door/km_arena1archfinalc_top"
+                          (HCons
+                            (CommonAttrs
+                              HNil
+                              HNil
+                              False
+                              (fromInt 0)
+                              False
+                              False
+                              CT_FrontSided
+                              Nil
+                              False
+                              False
+                              (Cons
+                                (StageAttrs
+                                  Nothing
+                                  RGB_IdentityLighting
+                                  A_Identity
+                                  TG_Base
+                                  Nil
+                                  (ST_Map "textures/gothic_door/km_arena1archfinalc_top")
+                                  True
+                                  D_Lequal
+                                  Nothing
+                                  False
+                                  "Tex_3071107621")
+                                (Cons
+                                  (StageAttrs
+                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                    RGB_IdentityLighting
+                                    A_Identity
+                                    TG_Lightmap
+                                    Nil
+                                    ST_Lightmap
+                                    True
+                                    D_Lequal
+                                    Nothing
+                                    False
+                                    "Tex_3226210144")
+                                  Nil))
+                              False)
+                            HNil))
+                        (Cons
+                          (HCons
+                            "textures/gothic_door/km_arena1archfinald_bot"
+                            (HCons
+                              (CommonAttrs
+                                HNil
+                                HNil
+                                False
+                                (fromInt 0)
+                                False
+                                False
+                                CT_FrontSided
+                                Nil
+                                False
+                                False
+                                (Cons
+                                  (StageAttrs
+                                    Nothing
+                                    RGB_IdentityLighting
+                                    A_Identity
+                                    TG_Base
+                                    Nil
+                                    (ST_Map "textures/gothic_door/km_arena1archfinald_bot")
+                                    True
+                                    D_Lequal
+                                    Nothing
+                                    False
+                                    "Tex_1201212243")
+                                  (Cons
+                                    (StageAttrs
+                                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                      RGB_IdentityLighting
+                                      A_Identity
+                                      TG_Lightmap
+                                      Nil
+                                      ST_Lightmap
+                                      True
+                                      D_Lequal
+                                      Nothing
+                                      False
+                                      "Tex_3226210144")
+                                    Nil))
+                                False)
+                              HNil))
+                          (Cons
+                            (HCons
+                              "textures/gothic_door/km_arena1archfinald_mid"
+                              (HCons
+                                (CommonAttrs
+                                  HNil
+                                  HNil
+                                  False
+                                  (fromInt 0)
+                                  False
+                                  False
+                                  CT_FrontSided
+                                  Nil
+                                  False
+                                  False
+                                  (Cons
+                                    (StageAttrs
+                                      Nothing
+                                      RGB_IdentityLighting
+                                      A_Identity
+                                      TG_Base
+                                      Nil
+                                      (ST_Map "textures/gothic_door/km_arena1archfinald_mid")
+                                      True
+                                      D_Lequal
+                                      Nothing
+                                      False
+                                      "Tex_3768122504")
+                                    (Cons
+                                      (StageAttrs
+                                        (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                        RGB_IdentityLighting
+                                        A_Identity
+                                        TG_Lightmap
+                                        Nil
+                                        ST_Lightmap
+                                        True
+                                        D_Lequal
+                                        Nothing
+                                        False
+                                        "Tex_3226210144")
+                                      Nil))
+                                  False)
+                                HNil))
+                            (Cons
+                              (HCons
+                                "textures/gothic_door/skull_door_a"
+                                (HCons
+                                  (CommonAttrs
+                                    HNil
+                                    HNil
+                                    False
+                                    (fromInt 0)
+                                    False
+                                    False
+                                    CT_FrontSided
+                                    Nil
+                                    False
+                                    False
+                                    (Cons
+                                      (StageAttrs
+                                        Nothing
+                                        RGB_IdentityLighting
+                                        A_Identity
+                                        TG_Base
+                                        Nil
+                                        (ST_Map "textures/gothic_door/skull_door_a")
+                                        True
+                                        D_Lequal
+                                        Nothing
+                                        False
+                                        "Tex_1284708166")
+                                      (Cons
+                                        (StageAttrs
+                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                          RGB_IdentityLighting
+                                          A_Identity
+                                          TG_Lightmap
+                                          Nil
+                                          ST_Lightmap
+                                          True
+                                          D_Lequal
+                                          Nothing
+                                          False
+                                          "Tex_3226210144")
+                                        Nil))
+                                    False)
+                                  HNil))
+                              (Cons
+                                (HCons
+                                  "textures/gothic_door/skull_door_b"
+                                  (HCons
+                                    (CommonAttrs
+                                      HNil
+                                      HNil
+                                      False
+                                      (fromInt 0)
+                                      False
+                                      False
+                                      CT_FrontSided
+                                      Nil
+                                      False
+                                      False
+                                      (Cons
+                                        (StageAttrs
+                                          Nothing
+                                          RGB_IdentityLighting
+                                          A_Identity
+                                          TG_Base
+                                          Nil
+                                          (ST_Map "textures/gothic_door/skull_door_b")
+                                          True
+                                          D_Lequal
+                                          Nothing
+                                          False
+                                          "Tex_1318715778")
+                                        (Cons
+                                          (StageAttrs
+                                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                            RGB_IdentityLighting
+                                            A_Identity
+                                            TG_Lightmap
+                                            Nil
+                                            ST_Lightmap
+                                            True
+                                            D_Lequal
+                                            Nothing
+                                            False
+                                            "Tex_3226210144")
+                                          Nil))
+                                      False)
+                                    HNil))
+                                (Cons
+                                  (HCons
+                                    "textures/gothic_door/skull_door_c"
+                                    (HCons
+                                      (CommonAttrs
+                                        HNil
+                                        HNil
+                                        False
+                                        (fromInt 0)
+                                        False
+                                        False
+                                        CT_FrontSided
+                                        Nil
+                                        False
+                                        False
+                                        (Cons
+                                          (StageAttrs
+                                            Nothing
+                                            RGB_IdentityLighting
+                                            A_Identity
+                                            TG_Base
+                                            Nil
+                                            (ST_Map "textures/gothic_door/skull_door_c")
+                                            True
+                                            D_Lequal
+                                            Nothing
+                                            False
+                                            "Tex_4189195777")
+                                          (Cons
+                                            (StageAttrs
+                                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                              RGB_IdentityLighting
+                                              A_Identity
+                                              TG_Lightmap
+                                              Nil
+                                              ST_Lightmap
+                                              True
+                                              D_Lequal
+                                              Nothing
+                                              False
+                                              "Tex_3226210144")
+                                            Nil))
+                                        False)
+                                      HNil))
+                                  (Cons
+                                    (HCons
+                                      "textures/gothic_door/skull_door_d"
+                                      (HCons
+                                        (CommonAttrs
+                                          HNil
+                                          HNil
+                                          False
+                                          (fromInt 0)
+                                          False
+                                          False
+                                          CT_FrontSided
+                                          Nil
+                                          False
+                                          False
+                                          (Cons
+                                            (StageAttrs
+                                              Nothing
+                                              RGB_IdentityLighting
+                                              A_Identity
+                                              TG_Base
+                                              Nil
+                                              (ST_Map "textures/gothic_door/skull_door_d")
+                                              True
+                                              D_Lequal
+                                              Nothing
+                                              False
+                                              "Tex_1250438154")
+                                            (Cons
+                                              (StageAttrs
+                                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                RGB_IdentityLighting
+                                                A_Identity
+                                                TG_Lightmap
+                                                Nil
+                                                ST_Lightmap
+                                                True
+                                                D_Lequal
+                                                Nothing
+                                                False
+                                                "Tex_3226210144")
+                                              Nil))
+                                          False)
+                                        HNil))
+                                    (Cons
+                                      (HCons
+                                        "textures/gothic_door/skull_door_e"
+                                        (HCons
+                                          (CommonAttrs
+                                            HNil
+                                            HNil
+                                            False
+                                            (fromInt 0)
+                                            False
+                                            False
+                                            CT_FrontSided
+                                            Nil
+                                            False
+                                            False
+                                            (Cons
+                                              (StageAttrs
+                                                Nothing
+                                                RGB_IdentityLighting
+                                                A_Identity
+                                                TG_Base
+                                                Nil
+                                                (ST_Map "textures/gothic_door/skull_door_e")
+                                                True
+                                                D_Lequal
+                                                Nothing
+                                                False
+                                                "Tex_4255130505")
+                                              (Cons
+                                                (StageAttrs
+                                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                  RGB_IdentityLighting
+                                                  A_Identity
+                                                  TG_Lightmap
+                                                  Nil
+                                                  ST_Lightmap
+                                                  True
+                                                  D_Lequal
+                                                  Nothing
+                                                  False
+                                                  "Tex_3226210144")
+                                                Nil))
+                                            False)
+                                          HNil))
+                                      (Cons
+                                        (HCons
+                                          "textures/gothic_door/skull_door_f"
+                                          (HCons
+                                            (CommonAttrs
+                                              HNil
+                                              HNil
+                                              False
+                                              (fromInt 0)
+                                              False
+                                              False
+                                              CT_FrontSided
+                                              Nil
+                                              False
+                                              False
+                                              (Cons
+                                                (StageAttrs
+                                                  Nothing
+                                                  RGB_IdentityLighting
+                                                  A_Identity
+                                                  TG_Base
+                                                  Nil
+                                                  (ST_Map "textures/gothic_door/skull_door_f")
+                                                  True
+                                                  D_Lequal
+                                                  Nothing
+                                                  False
+                                                  "Tex_4289279309")
+                                                (Cons
+                                                  (StageAttrs
+                                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                    RGB_IdentityLighting
+                                                    A_Identity
+                                                    TG_Lightmap
+                                                    Nil
+                                                    ST_Lightmap
+                                                    True
+                                                    D_Lequal
+                                                    Nothing
+                                                    False
+                                                    "Tex_3226210144")
+                                                  Nil))
+                                              False)
+                                            HNil))
+                                        (Cons
+                                          (HCons
+                                            "textures/gothic_door/skullarch_a"
+                                            (HCons
+                                              (CommonAttrs
+                                                HNil
+                                                HNil
+                                                False
+                                                (fromInt 0)
+                                                False
+                                                False
+                                                CT_FrontSided
+                                                Nil
+                                                False
+                                                False
+                                                (Cons
+                                                  (StageAttrs
+                                                    Nothing
+                                                    RGB_IdentityLighting
+                                                    A_Identity
+                                                    TG_Base
+                                                    Nil
+                                                    (ST_Map "textures/gothic_door/skullarch_a")
+                                                    True
+                                                    D_Lequal
+                                                    Nothing
+                                                    False
+                                                    "Tex_3448884269")
+                                                  (Cons
+                                                    (StageAttrs
+                                                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                      RGB_IdentityLighting
+                                                      A_Identity
+                                                      TG_Lightmap
+                                                      Nil
+                                                      ST_Lightmap
+                                                      True
+                                                      D_Lequal
+                                                      Nothing
+                                                      False
+                                                      "Tex_3226210144")
+                                                    Nil))
+                                                False)
+                                              HNil))
+                                          (Cons
+                                            (HCons
+                                              "textures/gothic_door/skullarch_b"
+                                              (HCons
+                                                (CommonAttrs
+                                                  HNil
+                                                  HNil
+                                                  False
+                                                  (fromInt 3)
+                                                  False
+                                                  False
+                                                  CT_FrontSided
+                                                  Nil
+                                                  False
+                                                  False
+                                                  (Cons
+                                                    (StageAttrs
+                                                      Nothing
+                                                      RGB_Identity
+                                                      A_Identity
+                                                      TG_Base
+                                                      (Cons
+                                                        (TM_Scroll 0.0 1.0)
+                                                        (Cons (TM_Turb 0.0 0.25 0.0 5.6) (Cons (TM_Scale 1.5 1.5) Nil)))
+                                                      (ST_Map "textures/sfx/firegorre.tga")
+                                                      True
+                                                      D_Lequal
+                                                      Nothing
+                                                      False
+                                                      "Tex_3416962274")
+                                                    (Cons
+                                                      (StageAttrs
+                                                        (Just (HCons B_SrcAlpha (HCons B_OneMinusSrcAlpha HNil)))
+                                                        RGB_Identity
+                                                        A_Identity
+                                                        TG_Base
+                                                        Nil
+                                                        (ST_Map "textures/gothic_door/skullarch_b.tga")
+                                                        False
+                                                        D_Lequal
+                                                        Nothing
+                                                        False
+                                                        "Tex_4077187607")
+                                                      (Cons
+                                                        (StageAttrs
+                                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                          RGB_Identity
+                                                          A_Identity
+                                                          TG_Lightmap
+                                                          Nil
+                                                          ST_Lightmap
+                                                          False
+                                                          D_Lequal
+                                                          Nothing
+                                                          False
+                                                          "Tex_1196599720")
+                                                        Nil)))
+                                                  False)
+                                                HNil))
+                                            (Cons
+                                              (HCons
+                                                "textures/gothic_door/skullarch_c"
+                                                (HCons
+                                                  (CommonAttrs
+                                                    HNil
+                                                    HNil
+                                                    False
+                                                    (fromInt 0)
+                                                    False
+                                                    False
+                                                    CT_FrontSided
+                                                    Nil
+                                                    False
+                                                    False
+                                                    (Cons
+                                                      (StageAttrs
+                                                        Nothing
+                                                        RGB_IdentityLighting
+                                                        A_Identity
+                                                        TG_Base
+                                                        Nil
+                                                        (ST_Map "textures/gothic_door/skullarch_c")
+                                                        True
+                                                        D_Lequal
+                                                        Nothing
+                                                        False
+                                                        "Tex_2024854890")
+                                                      (Cons
+                                                        (StageAttrs
+                                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                          RGB_IdentityLighting
+                                                          A_Identity
+                                                          TG_Lightmap
+                                                          Nil
+                                                          ST_Lightmap
+                                                          True
+                                                          D_Lequal
+                                                          Nothing
+                                                          False
+                                                          "Tex_3226210144")
+                                                        Nil))
+                                                    False)
+                                                  HNil))
+                                              (Cons
+                                                (HCons
+                                                  "textures/gothic_door/xian_tourneyarch_inside2"
+                                                  (HCons
+                                                    (CommonAttrs
+                                                      HNil
+                                                      HNil
+                                                      False
+                                                      (fromInt 0)
+                                                      False
+                                                      False
+                                                      CT_FrontSided
+                                                      Nil
+                                                      False
+                                                      False
+                                                      (Cons
+                                                        (StageAttrs
+                                                          Nothing
+                                                          RGB_IdentityLighting
+                                                          A_Identity
+                                                          TG_Base
+                                                          Nil
+                                                          (ST_Map "textures/gothic_door/xian_tourneyarch_inside2")
+                                                          True
+                                                          D_Lequal
+                                                          Nothing
+                                                          False
+                                                          "Tex_1435187472")
+                                                        (Cons
+                                                          (StageAttrs
+                                                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                            RGB_IdentityLighting
+                                                            A_Identity
+                                                            TG_Lightmap
+                                                            Nil
+                                                            ST_Lightmap
+                                                            True
+                                                            D_Lequal
+                                                            Nothing
+                                                            False
+                                                            "Tex_3226210144")
+                                                          Nil))
+                                                      False)
+                                                    HNil))
+                                                (Cons
+                                                  (HCons
+                                                    "textures/gothic_floor/blocks17floor2"
+                                                    (HCons
+                                                      (CommonAttrs
+                                                        HNil
+                                                        HNil
+                                                        False
+                                                        (fromInt 0)
+                                                        False
+                                                        False
+                                                        CT_FrontSided
+                                                        Nil
+                                                        False
+                                                        False
+                                                        (Cons
+                                                          (StageAttrs
+                                                            Nothing
+                                                            RGB_IdentityLighting
+                                                            A_Identity
+                                                            TG_Base
+                                                            Nil
+                                                            (ST_Map "textures/gothic_floor/blocks17floor2")
+                                                            True
+                                                            D_Lequal
+                                                            Nothing
+                                                            False
+                                                            "Tex_3814342582")
+                                                          (Cons
+                                                            (StageAttrs
+                                                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                              RGB_IdentityLighting
+                                                              A_Identity
+                                                              TG_Lightmap
+                                                              Nil
+                                                              ST_Lightmap
+                                                              True
+                                                              D_Lequal
+                                                              Nothing
+                                                              False
+                                                              "Tex_3226210144")
+                                                            Nil))
+                                                        False)
+                                                      HNil))
+                                                  (Cons
+                                                    (HCons
+                                                      "textures/gothic_floor/largerblock3b"
+                                                      (HCons
+                                                        (CommonAttrs
+                                                          HNil
+                                                          HNil
+                                                          False
+                                                          (fromInt 0)
+                                                          False
+                                                          False
+                                                          CT_FrontSided
+                                                          Nil
+                                                          False
+                                                          False
+                                                          (Cons
+                                                            (StageAttrs
+                                                              Nothing
+                                                              RGB_IdentityLighting
+                                                              A_Identity
+                                                              TG_Base
+                                                              Nil
+                                                              (ST_Map "textures/gothic_floor/largerblock3b")
+                                                              True
+                                                              D_Lequal
+                                                              Nothing
+                                                              False
+                                                              "Tex_2966885788")
+                                                            (Cons
+                                                              (StageAttrs
+                                                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                RGB_IdentityLighting
+                                                                A_Identity
+                                                                TG_Lightmap
+                                                                Nil
+                                                                ST_Lightmap
+                                                                True
+                                                                D_Lequal
+                                                                Nothing
+                                                                False
+                                                                "Tex_3226210144")
+                                                              Nil))
+                                                          False)
+                                                        HNil))
+                                                    (Cons
+                                                      (HCons
+                                                        "textures/gothic_floor/metalbridge06"
+                                                        (HCons
+                                                          (CommonAttrs
+                                                            HNil
+                                                            HNil
+                                                            False
+                                                            (fromInt 0)
+                                                            False
+                                                            False
+                                                            CT_FrontSided
+                                                            Nil
+                                                            False
+                                                            False
+                                                            (Cons
+                                                              (StageAttrs
+                                                                Nothing
+                                                                RGB_IdentityLighting
+                                                                A_Identity
+                                                                TG_Base
+                                                                Nil
+                                                                (ST_Map "textures/gothic_floor/metalbridge06")
+                                                                True
+                                                                D_Lequal
+                                                                Nothing
+                                                                False
+                                                                "Tex_1581337759")
+                                                              (Cons
+                                                                (StageAttrs
+                                                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                  RGB_IdentityLighting
+                                                                  A_Identity
+                                                                  TG_Lightmap
+                                                                  Nil
+                                                                  ST_Lightmap
+                                                                  True
+                                                                  D_Lequal
+                                                                  Nothing
+                                                                  False
+                                                                  "Tex_3226210144")
+                                                                Nil))
+                                                            False)
+                                                          HNil))
+                                                      (Cons
+                                                        (HCons
+                                                          "textures/gothic_floor/metalbridge06broke"
+                                                          (HCons
+                                                            (CommonAttrs
+                                                              HNil
+                                                              HNil
+                                                              False
+                                                              (fromInt 0)
+                                                              False
+                                                              False
+                                                              CT_FrontSided
+                                                              Nil
+                                                              False
+                                                              False
+                                                              (Cons
+                                                                (StageAttrs
+                                                                  Nothing
+                                                                  RGB_IdentityLighting
+                                                                  A_Identity
+                                                                  TG_Base
+                                                                  Nil
+                                                                  (ST_Map "textures/gothic_floor/metalbridge06broke")
+                                                                  True
+                                                                  D_Lequal
+                                                                  Nothing
+                                                                  False
+                                                                  "Tex_3921745736")
+                                                                (Cons
+                                                                  (StageAttrs
+                                                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                    RGB_IdentityLighting
+                                                                    A_Identity
+                                                                    TG_Lightmap
+                                                                    Nil
+                                                                    ST_Lightmap
+                                                                    True
+                                                                    D_Lequal
+                                                                    Nothing
+                                                                    False
+                                                                    "Tex_3226210144")
+                                                                  Nil))
+                                                              False)
+                                                            HNil))
+                                                        (Cons
+                                                          (HCons
+                                                            "textures/gothic_floor/xstairtop4"
+                                                            (HCons
+                                                              (CommonAttrs
+                                                                HNil
+                                                                HNil
+                                                                False
+                                                                (fromInt 0)
+                                                                False
+                                                                False
+                                                                CT_FrontSided
+                                                                Nil
+                                                                False
+                                                                False
+                                                                (Cons
+                                                                  (StageAttrs
+                                                                    Nothing
+                                                                    RGB_IdentityLighting
+                                                                    A_Identity
+                                                                    TG_Base
+                                                                    Nil
+                                                                    (ST_Map "textures/gothic_floor/xstairtop4")
+                                                                    True
+                                                                    D_Lequal
+                                                                    Nothing
+                                                                    False
+                                                                    "Tex_3836020895")
+                                                                  (Cons
+                                                                    (StageAttrs
+                                                                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                      RGB_IdentityLighting
+                                                                      A_Identity
+                                                                      TG_Lightmap
+                                                                      Nil
+                                                                      ST_Lightmap
+                                                                      True
+                                                                      D_Lequal
+                                                                      Nothing
+                                                                      False
+                                                                      "Tex_3226210144")
+                                                                    Nil))
+                                                                False)
+                                                              HNil))
+                                                          (Cons
+                                                            (HCons
+                                                              "textures/gothic_floor/xstepborder3"
+                                                              (HCons
+                                                                (CommonAttrs
+                                                                  HNil
+                                                                  HNil
+                                                                  False
+                                                                  (fromInt 0)
+                                                                  False
+                                                                  False
+                                                                  CT_FrontSided
+                                                                  Nil
+                                                                  False
+                                                                  False
+                                                                  (Cons
+                                                                    (StageAttrs
+                                                                      Nothing
+                                                                      RGB_IdentityLighting
+                                                                      A_Identity
+                                                                      TG_Base
+                                                                      Nil
+                                                                      (ST_Map "textures/gothic_floor/xstepborder3")
+                                                                      True
+                                                                      D_Lequal
+                                                                      Nothing
+                                                                      False
+                                                                      "Tex_3269743316")
+                                                                    (Cons
+                                                                      (StageAttrs
+                                                                        (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                        RGB_IdentityLighting
+                                                                        A_Identity
+                                                                        TG_Lightmap
+                                                                        Nil
+                                                                        ST_Lightmap
+                                                                        True
+                                                                        D_Lequal
+                                                                        Nothing
+                                                                        False
+                                                                        "Tex_3226210144")
+                                                                      Nil))
+                                                                  False)
+                                                                HNil))
+                                                            (Cons
+                                                              (HCons
+                                                                "textures/gothic_trim/baseboard04"
+                                                                (HCons
+                                                                  (CommonAttrs
+                                                                    HNil
+                                                                    HNil
+                                                                    False
+                                                                    (fromInt 0)
+                                                                    False
+                                                                    False
+                                                                    CT_FrontSided
+                                                                    Nil
+                                                                    False
+                                                                    False
+                                                                    (Cons
+                                                                      (StageAttrs
+                                                                        Nothing
+                                                                        RGB_IdentityLighting
+                                                                        A_Identity
+                                                                        TG_Base
+                                                                        Nil
+                                                                        (ST_Map "textures/gothic_trim/baseboard04")
+                                                                        True
+                                                                        D_Lequal
+                                                                        Nothing
+                                                                        False
+                                                                        "Tex_1002517541")
+                                                                      (Cons
+                                                                        (StageAttrs
+                                                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                          RGB_IdentityLighting
+                                                                          A_Identity
+                                                                          TG_Lightmap
+                                                                          Nil
+                                                                          ST_Lightmap
+                                                                          True
+                                                                          D_Lequal
+                                                                          Nothing
+                                                                          False
+                                                                          "Tex_3226210144")
+                                                                        Nil))
+                                                                    False)
+                                                                  HNil))
+                                                              (Cons
+                                                                (HCons
+                                                                  "textures/gothic_trim/baseboard09_c3"
+                                                                  (HCons
+                                                                    (CommonAttrs
+                                                                      HNil
+                                                                      HNil
+                                                                      False
+                                                                      (fromInt 0)
+                                                                      False
+                                                                      False
+                                                                      CT_FrontSided
+                                                                      Nil
+                                                                      False
+                                                                      False
+                                                                      (Cons
+                                                                        (StageAttrs
+                                                                          Nothing
+                                                                          RGB_IdentityLighting
+                                                                          A_Identity
+                                                                          TG_Base
+                                                                          Nil
+                                                                          (ST_Map "textures/gothic_trim/baseboard09_c3")
+                                                                          True
+                                                                          D_Lequal
+                                                                          Nothing
+                                                                          False
+                                                                          "Tex_2289735512")
+                                                                        (Cons
+                                                                          (StageAttrs
+                                                                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                            RGB_IdentityLighting
+                                                                            A_Identity
+                                                                            TG_Lightmap
+                                                                            Nil
+                                                                            ST_Lightmap
+                                                                            True
+                                                                            D_Lequal
+                                                                            Nothing
+                                                                            False
+                                                                            "Tex_3226210144")
+                                                                          Nil))
+                                                                      False)
+                                                                    HNil))
+                                                                (Cons
+                                                                  (HCons
+                                                                    "textures/gothic_trim/baseboard09_e"
+                                                                    (HCons
+                                                                      (CommonAttrs
+                                                                        HNil
+                                                                        HNil
+                                                                        False
+                                                                        (fromInt 0)
+                                                                        False
+                                                                        False
+                                                                        CT_FrontSided
+                                                                        Nil
+                                                                        False
+                                                                        False
+                                                                        (Cons
+                                                                          (StageAttrs
+                                                                            Nothing
+                                                                            RGB_IdentityLighting
+                                                                            A_Identity
+                                                                            TG_Base
+                                                                            Nil
+                                                                            (ST_Map "textures/gothic_trim/baseboard09_e")
+                                                                            True
+                                                                            D_Lequal
+                                                                            Nothing
+                                                                            False
+                                                                            "Tex_2367525081")
+                                                                          (Cons
+                                                                            (StageAttrs
+                                                                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                              RGB_IdentityLighting
+                                                                              A_Identity
+                                                                              TG_Lightmap
+                                                                              Nil
+                                                                              ST_Lightmap
+                                                                              True
+                                                                              D_Lequal
+                                                                              Nothing
+                                                                              False
+                                                                              "Tex_3226210144")
+                                                                            Nil))
+                                                                        False)
+                                                                      HNil))
+                                                                  (Cons
+                                                                    (HCons
+                                                                      "textures/gothic_trim/baseboard09_e2"
+                                                                      (HCons
+                                                                        (CommonAttrs
+                                                                          HNil
+                                                                          HNil
+                                                                          False
+                                                                          (fromInt 0)
+                                                                          False
+                                                                          False
+                                                                          CT_FrontSided
+                                                                          Nil
+                                                                          False
+                                                                          False
+                                                                          (Cons
+                                                                            (StageAttrs
+                                                                              Nothing
+                                                                              RGB_IdentityLighting
+                                                                              A_Identity
+                                                                              TG_Base
+                                                                              Nil
+                                                                              (ST_Map "textures/gothic_trim/baseboard09_e2")
+                                                                              True
+                                                                              D_Lequal
+                                                                              Nothing
+                                                                              False
+                                                                              "Tex_3694494180")
+                                                                            (Cons
+                                                                              (StageAttrs
+                                                                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                RGB_IdentityLighting
+                                                                                A_Identity
+                                                                                TG_Lightmap
+                                                                                Nil
+                                                                                ST_Lightmap
+                                                                                True
+                                                                                D_Lequal
+                                                                                Nothing
+                                                                                False
+                                                                                "Tex_3226210144")
+                                                                              Nil))
+                                                                          False)
+                                                                        HNil))
+                                                                    (Cons
+                                                                      (HCons
+                                                                        "textures/gothic_trim/baseboard09_l2"
+                                                                        (HCons
+                                                                          (CommonAttrs
+                                                                            HNil
+                                                                            HNil
+                                                                            False
+                                                                            (fromInt 0)
+                                                                            False
+                                                                            False
+                                                                            CT_FrontSided
+                                                                            Nil
+                                                                            False
+                                                                            False
+                                                                            (Cons
+                                                                              (StageAttrs
+                                                                                Nothing
+                                                                                RGB_IdentityLighting
+                                                                                A_Identity
+                                                                                TG_Base
+                                                                                Nil
+                                                                                (ST_Map "textures/gothic_trim/baseboard09_l2")
+                                                                                True
+                                                                                D_Lequal
+                                                                                Nothing
+                                                                                False
+                                                                                "Tex_3202786139")
+                                                                              (Cons
+                                                                                (StageAttrs
+                                                                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                  RGB_IdentityLighting
+                                                                                  A_Identity
+                                                                                  TG_Lightmap
+                                                                                  Nil
+                                                                                  ST_Lightmap
+                                                                                  True
+                                                                                  D_Lequal
+                                                                                  Nothing
+                                                                                  False
+                                                                                  "Tex_3226210144")
+                                                                                Nil))
+                                                                            False)
+                                                                          HNil))
+                                                                      (Cons
+                                                                        (HCons
+                                                                          "textures/gothic_trim/baseboard09_o3"
+                                                                          (HCons
+                                                                            (CommonAttrs
+                                                                              HNil
+                                                                              HNil
+                                                                              False
+                                                                              (fromInt 0)
+                                                                              False
+                                                                              False
+                                                                              CT_FrontSided
+                                                                              Nil
+                                                                              False
+                                                                              False
+                                                                              (Cons
+                                                                                (StageAttrs
+                                                                                  Nothing
+                                                                                  RGB_IdentityLighting
+                                                                                  A_Identity
+                                                                                  TG_Base
+                                                                                  Nil
+                                                                                  (ST_Map "textures/gothic_trim/baseboard09_o3")
+                                                                                  True
+                                                                                  D_Lequal
+                                                                                  Nothing
+                                                                                  False
+                                                                                  "Tex_2512757607")
+                                                                                (Cons
+                                                                                  (StageAttrs
+                                                                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                    RGB_IdentityLighting
+                                                                                    A_Identity
+                                                                                    TG_Lightmap
+                                                                                    Nil
+                                                                                    ST_Lightmap
+                                                                                    True
+                                                                                    D_Lequal
+                                                                                    Nothing
+                                                                                    False
+                                                                                    "Tex_3226210144")
+                                                                                  Nil))
+                                                                              False)
+                                                                            HNil))
+                                                                        (Cons
+                                                                          (HCons
+                                                                            "textures/gothic_trim/km_arena1tower4"
+                                                                            (HCons
+                                                                              (CommonAttrs
+                                                                                HNil
+                                                                                HNil
+                                                                                False
+                                                                                (fromInt 0)
+                                                                                False
+                                                                                False
+                                                                                CT_FrontSided
+                                                                                Nil
+                                                                                False
+                                                                                False
+                                                                                (Cons
+                                                                                  (StageAttrs
+                                                                                    Nothing
+                                                                                    RGB_IdentityLighting
+                                                                                    A_Identity
+                                                                                    TG_Base
+                                                                                    Nil
+                                                                                    (ST_Map "textures/gothic_trim/km_arena1tower4")
+                                                                                    True
+                                                                                    D_Lequal
+                                                                                    Nothing
+                                                                                    False
+                                                                                    "Tex_3479185666")
+                                                                                  (Cons
+                                                                                    (StageAttrs
+                                                                                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                      RGB_IdentityLighting
+                                                                                      A_Identity
+                                                                                      TG_Lightmap
+                                                                                      Nil
+                                                                                      ST_Lightmap
+                                                                                      True
+                                                                                      D_Lequal
+                                                                                      Nothing
+                                                                                      False
+                                                                                      "Tex_3226210144")
+                                                                                    Nil))
+                                                                                False)
+                                                                              HNil))
+                                                                          (Cons
+                                                                            (HCons
+                                                                              "textures/gothic_trim/km_arena1tower4_a"
+                                                                              (HCons
+                                                                                (CommonAttrs
+                                                                                  HNil
+                                                                                  HNil
+                                                                                  False
+                                                                                  (fromInt 0)
+                                                                                  False
+                                                                                  False
+                                                                                  CT_FrontSided
+                                                                                  Nil
+                                                                                  False
+                                                                                  False
+                                                                                  (Cons
+                                                                                    (StageAttrs
+                                                                                      Nothing
+                                                                                      RGB_IdentityLighting
+                                                                                      A_Identity
+                                                                                      TG_Base
+                                                                                      Nil
+                                                                                      (ST_Map "textures/gothic_trim/km_arena1tower4_a")
+                                                                                      True
+                                                                                      D_Lequal
+                                                                                      Nothing
+                                                                                      False
+                                                                                      "Tex_3012001075")
+                                                                                    (Cons
+                                                                                      (StageAttrs
+                                                                                        (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                        RGB_IdentityLighting
+                                                                                        A_Identity
+                                                                                        TG_Lightmap
+                                                                                        Nil
+                                                                                        ST_Lightmap
+                                                                                        True
+                                                                                        D_Lequal
+                                                                                        Nothing
+                                                                                        False
+                                                                                        "Tex_3226210144")
+                                                                                      Nil))
+                                                                                  False)
+                                                                                HNil))
+                                                                            (Cons
+                                                                              (HCons
+                                                                                "textures/gothic_trim/metaldemonkillblock"
+                                                                                (HCons
+                                                                                  (CommonAttrs
+                                                                                    HNil
+                                                                                    HNil
+                                                                                    False
+                                                                                    (fromInt 0)
+                                                                                    False
+                                                                                    False
+                                                                                    CT_FrontSided
+                                                                                    Nil
+                                                                                    False
+                                                                                    False
+                                                                                    (Cons
+                                                                                      (StageAttrs
+                                                                                        Nothing
+                                                                                        RGB_IdentityLighting
+                                                                                        A_Identity
+                                                                                        TG_Base
+                                                                                        Nil
+                                                                                        (ST_Map "textures/gothic_trim/metaldemonkillblock")
+                                                                                        True
+                                                                                        D_Lequal
+                                                                                        Nothing
+                                                                                        False
+                                                                                        "Tex_1062467595")
+                                                                                      (Cons
+                                                                                        (StageAttrs
+                                                                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                          RGB_IdentityLighting
+                                                                                          A_Identity
+                                                                                          TG_Lightmap
+                                                                                          Nil
+                                                                                          ST_Lightmap
+                                                                                          True
+                                                                                          D_Lequal
+                                                                                          Nothing
+                                                                                          False
+                                                                                          "Tex_3226210144")
+                                                                                        Nil))
+                                                                                    False)
+                                                                                  HNil))
+                                                                              (Cons
+                                                                                (HCons
+                                                                                  "textures/gothic_trim/metalsupport4b"
+                                                                                  (HCons
+                                                                                    (CommonAttrs
+                                                                                      HNil
+                                                                                      HNil
+                                                                                      False
+                                                                                      (fromInt 0)
+                                                                                      False
+                                                                                      False
+                                                                                      CT_FrontSided
+                                                                                      Nil
+                                                                                      False
+                                                                                      False
+                                                                                      (Cons
+                                                                                        (StageAttrs
+                                                                                          Nothing
+                                                                                          RGB_IdentityLighting
+                                                                                          A_Identity
+                                                                                          TG_Base
+                                                                                          Nil
+                                                                                          (ST_Map "textures/gothic_trim/metalsupport4b")
+                                                                                          True
+                                                                                          D_Lequal
+                                                                                          Nothing
+                                                                                          False
+                                                                                          "Tex_3593923076")
+                                                                                        (Cons
+                                                                                          (StageAttrs
+                                                                                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                            RGB_IdentityLighting
+                                                                                            A_Identity
+                                                                                            TG_Lightmap
+                                                                                            Nil
+                                                                                            ST_Lightmap
+                                                                                            True
+                                                                                            D_Lequal
+                                                                                            Nothing
+                                                                                            False
+                                                                                            "Tex_3226210144")
+                                                                                          Nil))
+                                                                                      False)
+                                                                                    HNil))
+                                                                                (Cons
+                                                                                  (HCons
+                                                                                    "textures/gothic_trim/metalsupsolid"
+                                                                                    (HCons
+                                                                                      (CommonAttrs
+                                                                                        HNil
+                                                                                        HNil
+                                                                                        False
+                                                                                        (fromInt 0)
+                                                                                        False
+                                                                                        False
+                                                                                        CT_FrontSided
+                                                                                        Nil
+                                                                                        False
+                                                                                        False
+                                                                                        (Cons
+                                                                                          (StageAttrs
+                                                                                            Nothing
+                                                                                            RGB_IdentityLighting
+                                                                                            A_Identity
+                                                                                            TG_Base
+                                                                                            Nil
+                                                                                            (ST_Map "textures/gothic_trim/metalsupsolid")
+                                                                                            True
+                                                                                            D_Lequal
+                                                                                            Nothing
+                                                                                            False
+                                                                                            "Tex_2893650486")
+                                                                                          (Cons
+                                                                                            (StageAttrs
+                                                                                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                              RGB_IdentityLighting
+                                                                                              A_Identity
+                                                                                              TG_Lightmap
+                                                                                              Nil
+                                                                                              ST_Lightmap
+                                                                                              True
+                                                                                              D_Lequal
+                                                                                              Nothing
+                                                                                              False
+                                                                                              "Tex_3226210144")
+                                                                                            Nil))
+                                                                                        False)
+                                                                                      HNil))
+                                                                                  (Cons
+                                                                                    (HCons
+                                                                                      "textures/gothic_trim/pitted_rust"
+                                                                                      (HCons
+                                                                                        (CommonAttrs
+                                                                                          HNil
+                                                                                          HNil
+                                                                                          False
+                                                                                          (fromInt 0)
+                                                                                          False
+                                                                                          False
+                                                                                          CT_FrontSided
+                                                                                          Nil
+                                                                                          False
+                                                                                          False
+                                                                                          (Cons
+                                                                                            (StageAttrs
+                                                                                              Nothing
+                                                                                              RGB_IdentityLighting
+                                                                                              A_Identity
+                                                                                              TG_Base
+                                                                                              Nil
+                                                                                              (ST_Map "textures/gothic_trim/pitted_rust")
+                                                                                              True
+                                                                                              D_Lequal
+                                                                                              Nothing
+                                                                                              False
+                                                                                              "Tex_1243894392")
+                                                                                            (Cons
+                                                                                              (StageAttrs
+                                                                                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                RGB_IdentityLighting
+                                                                                                A_Identity
+                                                                                                TG_Lightmap
+                                                                                                Nil
+                                                                                                ST_Lightmap
+                                                                                                True
+                                                                                                D_Lequal
+                                                                                                Nothing
+                                                                                                False
+                                                                                                "Tex_3226210144")
+                                                                                              Nil))
+                                                                                          False)
+                                                                                        HNil))
+                                                                                    (Cons
+                                                                                      (HCons
+                                                                                        "textures/gothic_trim/pitted_rust2"
+                                                                                        (HCons
+                                                                                          (CommonAttrs
+                                                                                            HNil
+                                                                                            HNil
+                                                                                            False
+                                                                                            (fromInt 0)
+                                                                                            False
+                                                                                            False
+                                                                                            CT_FrontSided
+                                                                                            Nil
+                                                                                            False
+                                                                                            False
+                                                                                            (Cons
+                                                                                              (StageAttrs
+                                                                                                Nothing
+                                                                                                RGB_IdentityLighting
+                                                                                                A_Identity
+                                                                                                TG_Base
+                                                                                                Nil
+                                                                                                (ST_Map "textures/gothic_trim/pitted_rust2")
+                                                                                                True
+                                                                                                D_Lequal
+                                                                                                Nothing
+                                                                                                False
+                                                                                                "Tex_2099456856")
+                                                                                              (Cons
+                                                                                                (StageAttrs
+                                                                                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                  RGB_IdentityLighting
+                                                                                                  A_Identity
+                                                                                                  TG_Lightmap
+                                                                                                  Nil
+                                                                                                  ST_Lightmap
+                                                                                                  True
+                                                                                                  D_Lequal
+                                                                                                  Nothing
+                                                                                                  False
+                                                                                                  "Tex_3226210144")
+                                                                                                Nil))
+                                                                                            False)
+                                                                                          HNil))
+                                                                                      (Cons
+                                                                                        (HCons
+                                                                                          "textures/gothic_trim/pitted_rust2_trans"
+                                                                                          (HCons
+                                                                                            (CommonAttrs
+                                                                                              HNil
+                                                                                              HNil
+                                                                                              False
+                                                                                              (fromInt 3)
+                                                                                              False
+                                                                                              False
+                                                                                              CT_FrontSided
+                                                                                              Nil
+                                                                                              False
+                                                                                              False
+                                                                                              (Cons
+                                                                                                (StageAttrs
+                                                                                                  Nothing
+                                                                                                  RGB_Identity
+                                                                                                  A_Identity
+                                                                                                  TG_Lightmap
+                                                                                                  Nil
+                                                                                                  ST_Lightmap
+                                                                                                  True
+                                                                                                  D_Lequal
+                                                                                                  Nothing
+                                                                                                  False
+                                                                                                  "Tex_511571587")
+                                                                                                (Cons
+                                                                                                  (StageAttrs
+                                                                                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                    RGB_Identity
+                                                                                                    A_Identity
+                                                                                                    TG_Base
+                                                                                                    Nil
+                                                                                                    (ST_Map "textures/gothic_trim/pitted_rust2.tga")
+                                                                                                    False
+                                                                                                    D_Lequal
+                                                                                                    Nothing
+                                                                                                    False
+                                                                                                    "Tex_1910997598")
+                                                                                                  Nil))
+                                                                                              False)
+                                                                                            HNil))
+                                                                                        (Cons
+                                                                                          (HCons
+                                                                                            "textures/gothic_trim/pitted_rust3"
+                                                                                            (HCons
+                                                                                              (CommonAttrs
+                                                                                                HNil
+                                                                                                HNil
+                                                                                                False
+                                                                                                (fromInt 0)
+                                                                                                False
+                                                                                                False
+                                                                                                CT_FrontSided
+                                                                                                Nil
+                                                                                                False
+                                                                                                False
+                                                                                                (Cons
+                                                                                                  (StageAttrs
+                                                                                                    Nothing
+                                                                                                    RGB_IdentityLighting
+                                                                                                    A_Identity
+                                                                                                    TG_Base
+                                                                                                    Nil
+                                                                                                    (ST_Map "textures/gothic_trim/pitted_rust3")
+                                                                                                    True
+                                                                                                    D_Lequal
+                                                                                                    Nothing
+                                                                                                    False
+                                                                                                    "Tex_3389727963")
+                                                                                                  (Cons
+                                                                                                    (StageAttrs
+                                                                                                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                      RGB_IdentityLighting
+                                                                                                      A_Identity
+                                                                                                      TG_Lightmap
+                                                                                                      Nil
+                                                                                                      ST_Lightmap
+                                                                                                      True
+                                                                                                      D_Lequal
+                                                                                                      Nothing
+                                                                                                      False
+                                                                                                      "Tex_3226210144")
+                                                                                                    Nil))
+                                                                                                False)
+                                                                                              HNil))
+                                                                                          (Cons
+                                                                                            (HCons
+                                                                                              "textures/gothic_trim/skullsvertgray02b"
+                                                                                              (HCons
+                                                                                                (CommonAttrs
+                                                                                                  HNil
+                                                                                                  HNil
+                                                                                                  False
+                                                                                                  (fromInt 0)
+                                                                                                  False
+                                                                                                  False
+                                                                                                  CT_FrontSided
+                                                                                                  Nil
+                                                                                                  False
+                                                                                                  False
+                                                                                                  (Cons
+                                                                                                    (StageAttrs
+                                                                                                      Nothing
+                                                                                                      RGB_IdentityLighting
+                                                                                                      A_Identity
+                                                                                                      TG_Base
+                                                                                                      Nil
+                                                                                                      (ST_Map "textures/gothic_trim/skullsvertgray02b")
+                                                                                                      True
+                                                                                                      D_Lequal
+                                                                                                      Nothing
+                                                                                                      False
+                                                                                                      "Tex_2634868983")
+                                                                                                    (Cons
+                                                                                                      (StageAttrs
+                                                                                                        (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                        RGB_IdentityLighting
+                                                                                                        A_Identity
+                                                                                                        TG_Lightmap
+                                                                                                        Nil
+                                                                                                        ST_Lightmap
+                                                                                                        True
+                                                                                                        D_Lequal
+                                                                                                        Nothing
+                                                                                                        False
+                                                                                                        "Tex_3226210144")
+                                                                                                      Nil))
+                                                                                                  False)
+                                                                                                HNil))
+                                                                                            (Cons
+                                                                                              (HCons
+                                                                                                "textures/gothic_wall/iron01_e"
+                                                                                                (HCons
+                                                                                                  (CommonAttrs
+                                                                                                    HNil
+                                                                                                    HNil
+                                                                                                    False
+                                                                                                    (fromInt 0)
+                                                                                                    False
+                                                                                                    False
+                                                                                                    CT_FrontSided
+                                                                                                    Nil
+                                                                                                    False
+                                                                                                    False
+                                                                                                    (Cons
+                                                                                                      (StageAttrs
+                                                                                                        Nothing
+                                                                                                        RGB_IdentityLighting
+                                                                                                        A_Identity
+                                                                                                        TG_Base
+                                                                                                        Nil
+                                                                                                        (ST_Map "textures/gothic_wall/iron01_e")
+                                                                                                        True
+                                                                                                        D_Lequal
+                                                                                                        Nothing
+                                                                                                        False
+                                                                                                        "Tex_2432583247")
+                                                                                                      (Cons
+                                                                                                        (StageAttrs
+                                                                                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                          RGB_IdentityLighting
+                                                                                                          A_Identity
+                                                                                                          TG_Lightmap
+                                                                                                          Nil
+                                                                                                          ST_Lightmap
+                                                                                                          True
+                                                                                                          D_Lequal
+                                                                                                          Nothing
+                                                                                                          False
+                                                                                                          "Tex_3226210144")
+                                                                                                        Nil))
+                                                                                                    False)
+                                                                                                  HNil))
+                                                                                              (Cons
+                                                                                                (HCons
+                                                                                                  "textures/gothic_wall/iron01_ntech3"
+                                                                                                  (HCons
+                                                                                                    (CommonAttrs
+                                                                                                      HNil
+                                                                                                      HNil
+                                                                                                      False
+                                                                                                      (fromInt 0)
+                                                                                                      False
+                                                                                                      False
+                                                                                                      CT_FrontSided
+                                                                                                      Nil
+                                                                                                      False
+                                                                                                      False
+                                                                                                      (Cons
+                                                                                                        (StageAttrs
+                                                                                                          Nothing
+                                                                                                          RGB_IdentityLighting
+                                                                                                          A_Identity
+                                                                                                          TG_Base
+                                                                                                          Nil
+                                                                                                          (ST_Map "textures/gothic_wall/iron01_ntech3")
+                                                                                                          True
+                                                                                                          D_Lequal
+                                                                                                          Nothing
+                                                                                                          False
+                                                                                                          "Tex_442868841")
+                                                                                                        (Cons
+                                                                                                          (StageAttrs
+                                                                                                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                            RGB_IdentityLighting
+                                                                                                            A_Identity
+                                                                                                            TG_Lightmap
+                                                                                                            Nil
+                                                                                                            ST_Lightmap
+                                                                                                            True
+                                                                                                            D_Lequal
+                                                                                                            Nothing
+                                                                                                            False
+                                                                                                            "Tex_3226210144")
+                                                                                                          Nil))
+                                                                                                      False)
+                                                                                                    HNil))
+                                                                                                (Cons
+                                                                                                  (HCons
+                                                                                                    "textures/gothic_wall/skull4"
+                                                                                                    (HCons
+                                                                                                      (CommonAttrs
+                                                                                                        HNil
+                                                                                                        HNil
+                                                                                                        False
+                                                                                                        (fromInt 0)
+                                                                                                        False
+                                                                                                        False
+                                                                                                        CT_FrontSided
+                                                                                                        Nil
+                                                                                                        False
+                                                                                                        False
+                                                                                                        (Cons
+                                                                                                          (StageAttrs
+                                                                                                            Nothing
+                                                                                                            RGB_IdentityLighting
+                                                                                                            A_Identity
+                                                                                                            TG_Base
+                                                                                                            Nil
+                                                                                                            (ST_Map "textures/gothic_wall/skull4")
+                                                                                                            True
+                                                                                                            D_Lequal
+                                                                                                            Nothing
+                                                                                                            False
+                                                                                                            "Tex_2239853403")
+                                                                                                          (Cons
+                                                                                                            (StageAttrs
+                                                                                                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                              RGB_IdentityLighting
+                                                                                                              A_Identity
+                                                                                                              TG_Lightmap
+                                                                                                              Nil
+                                                                                                              ST_Lightmap
+                                                                                                              True
+                                                                                                              D_Lequal
+                                                                                                              Nothing
+                                                                                                              False
+                                                                                                              "Tex_3226210144")
+                                                                                                            Nil))
+                                                                                                        False)
+                                                                                                      HNil))
+                                                                                                  (Cons
+                                                                                                    (HCons
+                                                                                                      "textures/gothic_wall/slateroofc"
+                                                                                                      (HCons
+                                                                                                        (CommonAttrs
+                                                                                                          HNil
+                                                                                                          HNil
+                                                                                                          False
+                                                                                                          (fromInt 0)
+                                                                                                          False
+                                                                                                          False
+                                                                                                          CT_FrontSided
+                                                                                                          Nil
+                                                                                                          False
+                                                                                                          False
+                                                                                                          (Cons
+                                                                                                            (StageAttrs
+                                                                                                              Nothing
+                                                                                                              RGB_IdentityLighting
+                                                                                                              A_Identity
+                                                                                                              TG_Base
+                                                                                                              Nil
+                                                                                                              (ST_Map "textures/gothic_wall/slateroofc")
+                                                                                                              True
+                                                                                                              D_Lequal
+                                                                                                              Nothing
+                                                                                                              False
+                                                                                                              "Tex_2490648334")
+                                                                                                            (Cons
+                                                                                                              (StageAttrs
+                                                                                                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                                RGB_IdentityLighting
+                                                                                                                A_Identity
+                                                                                                                TG_Lightmap
+                                                                                                                Nil
+                                                                                                                ST_Lightmap
+                                                                                                                True
+                                                                                                                D_Lequal
+                                                                                                                Nothing
+                                                                                                                False
+                                                                                                                "Tex_3226210144")
+                                                                                                              Nil))
+                                                                                                          False)
+                                                                                                        HNil))
+                                                                                                    (Cons
+                                                                                                      (HCons
+                                                                                                        "textures/gothic_wall/supportborder_blue_b"
+                                                                                                        (HCons
+                                                                                                          (CommonAttrs
+                                                                                                            HNil
+                                                                                                            HNil
+                                                                                                            False
+                                                                                                            (fromInt 0)
+                                                                                                            False
+                                                                                                            False
+                                                                                                            CT_FrontSided
+                                                                                                            Nil
+                                                                                                            False
+                                                                                                            False
+                                                                                                            (Cons
+                                                                                                              (StageAttrs
+                                                                                                                Nothing
+                                                                                                                RGB_IdentityLighting
+                                                                                                                A_Identity
+                                                                                                                TG_Base
+                                                                                                                Nil
+                                                                                                                (ST_Map "textures/gothic_wall/supportborder_blue_b")
+                                                                                                                True
+                                                                                                                D_Lequal
+                                                                                                                Nothing
+                                                                                                                False
+                                                                                                                "Tex_564811775")
+                                                                                                              (Cons
+                                                                                                                (StageAttrs
+                                                                                                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                                  RGB_IdentityLighting
+                                                                                                                  A_Identity
+                                                                                                                  TG_Lightmap
+                                                                                                                  Nil
+                                                                                                                  ST_Lightmap
+                                                                                                                  True
+                                                                                                                  D_Lequal
+                                                                                                                  Nothing
+                                                                                                                  False
+                                                                                                                  "Tex_3226210144")
+                                                                                                                Nil))
+                                                                                                            False)
+                                                                                                          HNil))
+                                                                                                      (Cons
+                                                                                                        (HCons
+                                                                                                          "textures/gothic_wall/supportborder_blue_c"
+                                                                                                          (HCons
+                                                                                                            (CommonAttrs
+                                                                                                              HNil
+                                                                                                              HNil
+                                                                                                              False
+                                                                                                              (fromInt 0)
+                                                                                                              False
+                                                                                                              False
+                                                                                                              CT_FrontSided
+                                                                                                              Nil
+                                                                                                              False
+                                                                                                              False
+                                                                                                              (Cons
+                                                                                                                (StageAttrs
+                                                                                                                  Nothing
+                                                                                                                  RGB_IdentityLighting
+                                                                                                                  A_Identity
+                                                                                                                  TG_Base
+                                                                                                                  Nil
+                                                                                                                  (ST_Map "textures/gothic_wall/supportborder_blue_c")
+                                                                                                                  True
+                                                                                                                  D_Lequal
+                                                                                                                  Nothing
+                                                                                                                  False
+                                                                                                                  "Tex_2525124732")
+                                                                                                                (Cons
+                                                                                                                  (StageAttrs
+                                                                                                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                                    RGB_IdentityLighting
+                                                                                                                    A_Identity
+                                                                                                                    TG_Lightmap
+                                                                                                                    Nil
+                                                                                                                    ST_Lightmap
+                                                                                                                    True
+                                                                                                                    D_Lequal
+                                                                                                                    Nothing
+                                                                                                                    False
+                                                                                                                    "Tex_3226210144")
+                                                                                                                  Nil))
+                                                                                                              False)
+                                                                                                            HNil))
+                                                                                                        Nil))))))))))))))))))))))))))))))))))))))))))))))))))
 main is not found
 ------------ trace
 sampleMaterial :: List (String, CommonAttrs)
@@ -6,11 +2240,31 @@ testdata/SampleMaterial.lc 3:1-3:15  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 4:3-2183:4  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 4:5-46:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 4:7-4:40  String
-testdata/SampleMaterial.lc 5:7-5:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 5:7-6:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 5:7-7:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 5:7-8:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 5:7-9:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-5:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-6:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-7:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-8:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-9:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 5:7-10:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 5:7-11:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 5:7-12:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -30,12 +2284,33 @@ testdata/SampleMaterial.lc 13:30-13:32  forall a . List a
 testdata/SampleMaterial.lc 14:25-14:30  Bool
 testdata/SampleMaterial.lc 15:29-15:34  Bool
 testdata/SampleMaterial.lc 17:13-43:14  List StageAttrs
-testdata/SampleMaterial.lc 17:15-17:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 17:15-18:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 17:15-19:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 17:15-20:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 17:15-21:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 17:15-22:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-17:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-18:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-19:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-20:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-21:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-22:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 17:15-23:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 17:15-24:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 17:15-25:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -55,12 +2330,33 @@ testdata/SampleMaterial.lc 25:33-25:41  DepthFunction
 testdata/SampleMaterial.lc 26:33-26:40  forall a . Maybe a
 testdata/SampleMaterial.lc 27:41-27:46  Bool
 testdata/SampleMaterial.lc 28:38-28:54  String
-testdata/SampleMaterial.lc 30:15-30:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 30:15-31:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 30:15-32:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 30:15-33:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 30:15-34:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 30:15-35:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-30:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-31:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-32:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-33:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-34:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-35:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 30:15-36:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 30:15-37:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 30:15-38:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -86,11 +2382,31 @@ testdata/SampleMaterial.lc 44:21-44:26  Bool
 testdata/SampleMaterial.lc 47:5-89:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 47:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 47:7-47:39  String
-testdata/SampleMaterial.lc 48:7-48:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 48:7-49:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 48:7-50:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 48:7-51:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 48:7-52:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-48:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-49:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-50:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-51:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-52:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 48:7-53:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 48:7-54:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 48:7-55:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -110,12 +2426,33 @@ testdata/SampleMaterial.lc 56:30-56:32  forall a . List a
 testdata/SampleMaterial.lc 57:25-57:30  Bool
 testdata/SampleMaterial.lc 58:29-58:34  Bool
 testdata/SampleMaterial.lc 60:13-86:14  List StageAttrs
-testdata/SampleMaterial.lc 60:15-60:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 60:15-61:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 60:15-62:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 60:15-63:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 60:15-64:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 60:15-65:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-60:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-61:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-62:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-63:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-64:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-65:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 60:15-66:70  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 60:15-67:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 60:15-68:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -135,12 +2472,33 @@ testdata/SampleMaterial.lc 68:33-68:41  DepthFunction
 testdata/SampleMaterial.lc 69:33-69:40  forall a . Maybe a
 testdata/SampleMaterial.lc 70:41-70:46  Bool
 testdata/SampleMaterial.lc 71:38-71:54  String
-testdata/SampleMaterial.lc 73:15-73:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 73:15-74:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 73:15-75:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 73:15-76:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 73:15-77:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 73:15-78:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-73:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-74:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-75:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-76:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-77:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-78:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 73:15-79:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 73:15-80:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 73:15-81:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -166,11 +2524,31 @@ testdata/SampleMaterial.lc 87:21-87:26  Bool
 testdata/SampleMaterial.lc 90:5-132:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 90:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 90:7-90:40  String
-testdata/SampleMaterial.lc 91:7-91:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 91:7-92:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 91:7-93:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 91:7-94:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 91:7-95:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-91:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-92:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-93:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-94:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-95:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 91:7-96:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 91:7-97:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 91:7-98:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -190,12 +2568,33 @@ testdata/SampleMaterial.lc 99:30-99:32  forall a . List a
 testdata/SampleMaterial.lc 100:25-100:30  Bool
 testdata/SampleMaterial.lc 101:29-101:34  Bool
 testdata/SampleMaterial.lc 103:13-129:14  List StageAttrs
-testdata/SampleMaterial.lc 103:15-103:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 103:15-104:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 103:15-105:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 103:15-106:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 103:15-107:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 103:15-108:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-103:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-104:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-105:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-106:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-107:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-108:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 103:15-109:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 103:15-110:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 103:15-111:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -215,12 +2614,33 @@ testdata/SampleMaterial.lc 111:33-111:41  DepthFunction
 testdata/SampleMaterial.lc 112:33-112:40  forall a . Maybe a
 testdata/SampleMaterial.lc 113:41-113:46  Bool
 testdata/SampleMaterial.lc 114:38-114:54  String
-testdata/SampleMaterial.lc 116:15-116:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 116:15-117:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 116:15-118:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 116:15-119:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 116:15-120:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 116:15-121:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-116:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-117:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-118:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-119:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-120:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-121:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 116:15-122:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 116:15-123:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 116:15-124:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -246,11 +2666,31 @@ testdata/SampleMaterial.lc 130:21-130:26  Bool
 testdata/SampleMaterial.lc 133:5-175:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 133:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 133:7-133:42  String
-testdata/SampleMaterial.lc 134:7-134:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 134:7-135:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 134:7-136:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 134:7-137:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 134:7-138:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-134:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-135:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-136:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-137:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-138:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 134:7-139:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 134:7-140:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 134:7-141:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -270,12 +2710,33 @@ testdata/SampleMaterial.lc 142:30-142:32  forall a . List a
 testdata/SampleMaterial.lc 143:25-143:30  Bool
 testdata/SampleMaterial.lc 144:29-144:34  Bool
 testdata/SampleMaterial.lc 146:13-172:14  List StageAttrs
-testdata/SampleMaterial.lc 146:15-146:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 146:15-147:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 146:15-148:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 146:15-149:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 146:15-150:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 146:15-151:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-146:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-147:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-148:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-149:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-150:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-151:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 146:15-152:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 146:15-153:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 146:15-154:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -295,12 +2756,33 @@ testdata/SampleMaterial.lc 154:33-154:41  DepthFunction
 testdata/SampleMaterial.lc 155:33-155:40  forall a . Maybe a
 testdata/SampleMaterial.lc 156:41-156:46  Bool
 testdata/SampleMaterial.lc 157:38-157:54  String
-testdata/SampleMaterial.lc 159:15-159:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 159:15-160:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 159:15-161:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 159:15-162:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 159:15-163:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 159:15-164:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-159:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-160:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-161:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-162:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-163:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-164:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 159:15-165:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 159:15-166:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 159:15-167:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -326,11 +2808,31 @@ testdata/SampleMaterial.lc 173:21-173:26  Bool
 testdata/SampleMaterial.lc 176:5-232:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 176:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 176:7-176:46  String
-testdata/SampleMaterial.lc 177:7-177:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 177:7-178:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 177:7-179:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 177:7-180:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 177:7-181:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-177:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-178:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-179:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-180:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-181:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 177:7-182:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 177:7-183:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 177:7-184:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -350,12 +2852,33 @@ testdata/SampleMaterial.lc 185:30-185:32  forall a . List a
 testdata/SampleMaterial.lc 186:25-186:30  Bool
 testdata/SampleMaterial.lc 187:29-187:34  Bool
 testdata/SampleMaterial.lc 189:13-229:14  List StageAttrs
-testdata/SampleMaterial.lc 189:15-189:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 189:15-190:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 189:15-191:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 189:15-192:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 189:15-193:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 189:15-195:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-189:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-190:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-191:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-192:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-193:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-195:88  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 189:15-196:66  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 189:15-197:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 189:15-198:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -395,12 +2918,33 @@ testdata/SampleMaterial.lc 198:33-198:41  DepthFunction
 testdata/SampleMaterial.lc 199:33-199:40  forall a . Maybe a
 testdata/SampleMaterial.lc 200:41-200:46  Bool
 testdata/SampleMaterial.lc 201:38-201:52  String
-testdata/SampleMaterial.lc 203:15-203:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 203:15-204:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 203:15-205:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 203:15-206:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 203:15-207:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 203:15-208:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-203:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-204:69  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-205:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-206:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-207:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-208:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 203:15-209:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 203:15-210:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 203:15-211:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -425,12 +2969,33 @@ testdata/SampleMaterial.lc 211:33-211:41  DepthFunction
 testdata/SampleMaterial.lc 212:33-212:40  forall a . Maybe a
 testdata/SampleMaterial.lc 213:41-213:46  Bool
 testdata/SampleMaterial.lc 214:38-214:54  String
-testdata/SampleMaterial.lc 216:15-216:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 216:15-217:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 216:15-218:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 216:15-219:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 216:15-220:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 216:15-221:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-216:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-217:69  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-218:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-219:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-220:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-221:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 216:15-222:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 216:15-223:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 216:15-224:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -456,11 +3021,31 @@ testdata/SampleMaterial.lc 230:21-230:26  Bool
 testdata/SampleMaterial.lc 233:5-275:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 233:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 233:7-233:40  String
-testdata/SampleMaterial.lc 234:7-234:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 234:7-235:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 234:7-236:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 234:7-237:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 234:7-238:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-234:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-235:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-236:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-237:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-238:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 234:7-239:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 234:7-240:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 234:7-241:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -480,12 +3065,33 @@ testdata/SampleMaterial.lc 242:30-242:32  forall a . List a
 testdata/SampleMaterial.lc 243:25-243:30  Bool
 testdata/SampleMaterial.lc 244:29-244:34  Bool
 testdata/SampleMaterial.lc 246:13-272:14  List StageAttrs
-testdata/SampleMaterial.lc 246:15-246:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 246:15-247:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 246:15-248:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 246:15-249:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 246:15-250:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 246:15-251:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-246:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-247:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-248:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-249:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-250:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-251:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 246:15-252:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 246:15-253:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 246:15-254:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -505,12 +3111,33 @@ testdata/SampleMaterial.lc 254:33-254:41  DepthFunction
 testdata/SampleMaterial.lc 255:33-255:40  forall a . Maybe a
 testdata/SampleMaterial.lc 256:41-256:46  Bool
 testdata/SampleMaterial.lc 257:38-257:54  String
-testdata/SampleMaterial.lc 259:15-259:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 259:15-260:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 259:15-261:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 259:15-262:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 259:15-263:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 259:15-264:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-259:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-260:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-261:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-262:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-263:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-264:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 259:15-265:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 259:15-266:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 259:15-267:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -536,11 +3163,31 @@ testdata/SampleMaterial.lc 273:21-273:26  Bool
 testdata/SampleMaterial.lc 276:5-318:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 276:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 276:7-276:42  String
-testdata/SampleMaterial.lc 277:7-277:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 277:7-278:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 277:7-279:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 277:7-280:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 277:7-281:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-277:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-278:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-279:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-280:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-281:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 277:7-282:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 277:7-283:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 277:7-284:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -560,12 +3207,33 @@ testdata/SampleMaterial.lc 285:30-285:32  forall a . List a
 testdata/SampleMaterial.lc 286:25-286:30  Bool
 testdata/SampleMaterial.lc 287:29-287:34  Bool
 testdata/SampleMaterial.lc 289:13-315:14  List StageAttrs
-testdata/SampleMaterial.lc 289:15-289:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 289:15-290:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 289:15-291:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 289:15-292:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 289:15-293:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 289:15-294:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-289:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-290:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-291:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-292:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-293:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-294:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 289:15-295:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 289:15-296:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 289:15-297:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -585,12 +3253,33 @@ testdata/SampleMaterial.lc 297:33-297:41  DepthFunction
 testdata/SampleMaterial.lc 298:33-298:40  forall a . Maybe a
 testdata/SampleMaterial.lc 299:41-299:46  Bool
 testdata/SampleMaterial.lc 300:38-300:53  String
-testdata/SampleMaterial.lc 302:15-302:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 302:15-303:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 302:15-304:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 302:15-305:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 302:15-306:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 302:15-307:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-302:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-303:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-304:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-305:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-306:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-307:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 302:15-308:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 302:15-309:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 302:15-310:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -616,11 +3305,31 @@ testdata/SampleMaterial.lc 316:21-316:26  Bool
 testdata/SampleMaterial.lc 319:5-361:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 319:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 319:7-319:43  String
-testdata/SampleMaterial.lc 320:7-320:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 320:7-321:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 320:7-322:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 320:7-323:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 320:7-324:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-320:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-321:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-322:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-323:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-324:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 320:7-325:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 320:7-326:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 320:7-327:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -640,12 +3349,33 @@ testdata/SampleMaterial.lc 328:30-328:32  forall a . List a
 testdata/SampleMaterial.lc 329:25-329:30  Bool
 testdata/SampleMaterial.lc 330:29-330:34  Bool
 testdata/SampleMaterial.lc 332:13-358:14  List StageAttrs
-testdata/SampleMaterial.lc 332:15-332:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 332:15-333:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 332:15-334:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 332:15-335:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 332:15-336:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 332:15-337:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-332:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-333:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-334:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-335:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-336:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-337:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 332:15-338:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 332:15-339:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 332:15-340:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -665,12 +3395,33 @@ testdata/SampleMaterial.lc 340:33-340:41  DepthFunction
 testdata/SampleMaterial.lc 341:33-341:40  forall a . Maybe a
 testdata/SampleMaterial.lc 342:41-342:46  Bool
 testdata/SampleMaterial.lc 343:38-343:54  String
-testdata/SampleMaterial.lc 345:15-345:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 345:15-346:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 345:15-347:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 345:15-348:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 345:15-349:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 345:15-350:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-345:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-346:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-347:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-348:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-349:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-350:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 345:15-351:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 345:15-352:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 345:15-353:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -696,11 +3447,31 @@ testdata/SampleMaterial.lc 359:21-359:26  Bool
 testdata/SampleMaterial.lc 362:5-404:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 362:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 362:7-362:53  String
-testdata/SampleMaterial.lc 363:7-363:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 363:7-364:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 363:7-365:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 363:7-366:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 363:7-367:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-363:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-364:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-365:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-366:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-367:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 363:7-368:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 363:7-369:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 363:7-370:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -720,12 +3491,33 @@ testdata/SampleMaterial.lc 371:30-371:32  forall a . List a
 testdata/SampleMaterial.lc 372:25-372:30  Bool
 testdata/SampleMaterial.lc 373:29-373:34  Bool
 testdata/SampleMaterial.lc 375:13-401:14  List StageAttrs
-testdata/SampleMaterial.lc 375:15-375:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 375:15-376:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 375:15-377:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 375:15-378:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 375:15-379:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 375:15-380:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-375:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-376:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-377:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-378:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-379:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-380:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 375:15-381:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 375:15-382:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 375:15-383:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -745,12 +3537,33 @@ testdata/SampleMaterial.lc 383:33-383:41  DepthFunction
 testdata/SampleMaterial.lc 384:33-384:40  forall a . Maybe a
 testdata/SampleMaterial.lc 385:41-385:46  Bool
 testdata/SampleMaterial.lc 386:38-386:54  String
-testdata/SampleMaterial.lc 388:15-388:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 388:15-389:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 388:15-390:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 388:15-391:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 388:15-392:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 388:15-393:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-388:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-389:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-390:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-391:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-392:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-393:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 388:15-394:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 388:15-395:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 388:15-396:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -776,11 +3589,31 @@ testdata/SampleMaterial.lc 402:21-402:26  Bool
 testdata/SampleMaterial.lc 405:5-447:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 405:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 405:7-405:53  String
-testdata/SampleMaterial.lc 406:7-406:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 406:7-407:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 406:7-408:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 406:7-409:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 406:7-410:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-406:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-407:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-408:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-409:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-410:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 406:7-411:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 406:7-412:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 406:7-413:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -800,12 +3633,33 @@ testdata/SampleMaterial.lc 414:30-414:32  forall a . List a
 testdata/SampleMaterial.lc 415:25-415:30  Bool
 testdata/SampleMaterial.lc 416:29-416:34  Bool
 testdata/SampleMaterial.lc 418:13-444:14  List StageAttrs
-testdata/SampleMaterial.lc 418:15-418:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 418:15-419:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 418:15-420:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 418:15-421:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 418:15-422:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 418:15-423:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-418:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-419:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-420:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-421:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-422:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-423:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 418:15-424:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 418:15-425:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 418:15-426:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -825,12 +3679,33 @@ testdata/SampleMaterial.lc 426:33-426:41  DepthFunction
 testdata/SampleMaterial.lc 427:33-427:40  forall a . Maybe a
 testdata/SampleMaterial.lc 428:41-428:46  Bool
 testdata/SampleMaterial.lc 429:38-429:54  String
-testdata/SampleMaterial.lc 431:15-431:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 431:15-432:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 431:15-433:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 431:15-434:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 431:15-435:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 431:15-436:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-431:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-432:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-433:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-434:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-435:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-436:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 431:15-437:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 431:15-438:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 431:15-439:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -856,11 +3731,31 @@ testdata/SampleMaterial.lc 445:21-445:26  Bool
 testdata/SampleMaterial.lc 448:5-490:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 448:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 448:7-448:53  String
-testdata/SampleMaterial.lc 449:7-449:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 449:7-450:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 449:7-451:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 449:7-452:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 449:7-453:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-449:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-450:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-451:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-452:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-453:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 449:7-454:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 449:7-455:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 449:7-456:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -880,12 +3775,33 @@ testdata/SampleMaterial.lc 457:30-457:32  forall a . List a
 testdata/SampleMaterial.lc 458:25-458:30  Bool
 testdata/SampleMaterial.lc 459:29-459:34  Bool
 testdata/SampleMaterial.lc 461:13-487:14  List StageAttrs
-testdata/SampleMaterial.lc 461:15-461:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 461:15-462:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 461:15-463:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 461:15-464:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 461:15-465:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 461:15-466:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-461:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-462:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-463:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-464:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-465:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-466:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 461:15-467:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 461:15-468:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 461:15-469:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -905,12 +3821,33 @@ testdata/SampleMaterial.lc 469:33-469:41  DepthFunction
 testdata/SampleMaterial.lc 470:33-470:40  forall a . Maybe a
 testdata/SampleMaterial.lc 471:41-471:46  Bool
 testdata/SampleMaterial.lc 472:38-472:54  String
-testdata/SampleMaterial.lc 474:15-474:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 474:15-475:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 474:15-476:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 474:15-477:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 474:15-478:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 474:15-479:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-474:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-475:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-476:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-477:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-478:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-479:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 474:15-480:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 474:15-481:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 474:15-482:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -936,11 +3873,31 @@ testdata/SampleMaterial.lc 488:21-488:26  Bool
 testdata/SampleMaterial.lc 491:5-533:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 491:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 491:7-491:53  String
-testdata/SampleMaterial.lc 492:7-492:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 492:7-493:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 492:7-494:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 492:7-495:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 492:7-496:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-492:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-493:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-494:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-495:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-496:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 492:7-497:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 492:7-498:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 492:7-499:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -960,12 +3917,33 @@ testdata/SampleMaterial.lc 500:30-500:32  forall a . List a
 testdata/SampleMaterial.lc 501:25-501:30  Bool
 testdata/SampleMaterial.lc 502:29-502:34  Bool
 testdata/SampleMaterial.lc 504:13-530:14  List StageAttrs
-testdata/SampleMaterial.lc 504:15-504:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 504:15-505:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 504:15-506:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 504:15-507:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 504:15-508:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 504:15-509:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-504:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-505:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-506:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-507:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-508:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-509:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 504:15-510:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 504:15-511:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 504:15-512:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -985,12 +3963,33 @@ testdata/SampleMaterial.lc 512:33-512:41  DepthFunction
 testdata/SampleMaterial.lc 513:33-513:40  forall a . Maybe a
 testdata/SampleMaterial.lc 514:41-514:46  Bool
 testdata/SampleMaterial.lc 515:38-515:54  String
-testdata/SampleMaterial.lc 517:15-517:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 517:15-518:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 517:15-519:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 517:15-520:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 517:15-521:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 517:15-522:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-517:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-518:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-519:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-520:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-521:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-522:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 517:15-523:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 517:15-524:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 517:15-525:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1016,11 +4015,31 @@ testdata/SampleMaterial.lc 531:21-531:26  Bool
 testdata/SampleMaterial.lc 534:5-576:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 534:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 534:7-534:42  String
-testdata/SampleMaterial.lc 535:7-535:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 535:7-536:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 535:7-537:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 535:7-538:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 535:7-539:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-535:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-536:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-537:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-538:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-539:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 535:7-540:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 535:7-541:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 535:7-542:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1040,12 +4059,33 @@ testdata/SampleMaterial.lc 543:30-543:32  forall a . List a
 testdata/SampleMaterial.lc 544:25-544:30  Bool
 testdata/SampleMaterial.lc 545:29-545:34  Bool
 testdata/SampleMaterial.lc 547:13-573:14  List StageAttrs
-testdata/SampleMaterial.lc 547:15-547:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 547:15-548:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 547:15-549:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 547:15-550:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 547:15-551:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 547:15-552:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-547:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-548:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-549:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-550:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-551:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-552:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 547:15-553:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 547:15-554:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 547:15-555:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1065,12 +4105,33 @@ testdata/SampleMaterial.lc 555:33-555:41  DepthFunction
 testdata/SampleMaterial.lc 556:33-556:40  forall a . Maybe a
 testdata/SampleMaterial.lc 557:41-557:46  Bool
 testdata/SampleMaterial.lc 558:38-558:54  String
-testdata/SampleMaterial.lc 560:15-560:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 560:15-561:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 560:15-562:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 560:15-563:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 560:15-564:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 560:15-565:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-560:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-561:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-562:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-563:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-564:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-565:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 560:15-566:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 560:15-567:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 560:15-568:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1096,11 +4157,31 @@ testdata/SampleMaterial.lc 574:21-574:26  Bool
 testdata/SampleMaterial.lc 577:5-619:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 577:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 577:7-577:42  String
-testdata/SampleMaterial.lc 578:7-578:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 578:7-579:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 578:7-580:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 578:7-581:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 578:7-582:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-578:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-579:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-580:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-581:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-582:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 578:7-583:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 578:7-584:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 578:7-585:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1120,12 +4201,33 @@ testdata/SampleMaterial.lc 586:30-586:32  forall a . List a
 testdata/SampleMaterial.lc 587:25-587:30  Bool
 testdata/SampleMaterial.lc 588:29-588:34  Bool
 testdata/SampleMaterial.lc 590:13-616:14  List StageAttrs
-testdata/SampleMaterial.lc 590:15-590:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 590:15-591:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 590:15-592:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 590:15-593:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 590:15-594:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 590:15-595:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-590:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-591:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-592:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-593:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-594:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-595:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 590:15-596:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 590:15-597:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 590:15-598:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1145,12 +4247,33 @@ testdata/SampleMaterial.lc 598:33-598:41  DepthFunction
 testdata/SampleMaterial.lc 599:33-599:40  forall a . Maybe a
 testdata/SampleMaterial.lc 600:41-600:46  Bool
 testdata/SampleMaterial.lc 601:38-601:54  String
-testdata/SampleMaterial.lc 603:15-603:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 603:15-604:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 603:15-605:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 603:15-606:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 603:15-607:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 603:15-608:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-603:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-604:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-605:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-606:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-607:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-608:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 603:15-609:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 603:15-610:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 603:15-611:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1176,11 +4299,31 @@ testdata/SampleMaterial.lc 617:21-617:26  Bool
 testdata/SampleMaterial.lc 620:5-662:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 620:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 620:7-620:42  String
-testdata/SampleMaterial.lc 621:7-621:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 621:7-622:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 621:7-623:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 621:7-624:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 621:7-625:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-621:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-622:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-623:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-624:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-625:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 621:7-626:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 621:7-627:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 621:7-628:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1200,12 +4343,33 @@ testdata/SampleMaterial.lc 629:30-629:32  forall a . List a
 testdata/SampleMaterial.lc 630:25-630:30  Bool
 testdata/SampleMaterial.lc 631:29-631:34  Bool
 testdata/SampleMaterial.lc 633:13-659:14  List StageAttrs
-testdata/SampleMaterial.lc 633:15-633:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 633:15-634:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 633:15-635:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 633:15-636:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 633:15-637:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 633:15-638:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-633:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-634:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-635:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-636:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-637:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-638:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 633:15-639:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 633:15-640:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 633:15-641:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1225,12 +4389,33 @@ testdata/SampleMaterial.lc 641:33-641:41  DepthFunction
 testdata/SampleMaterial.lc 642:33-642:40  forall a . Maybe a
 testdata/SampleMaterial.lc 643:41-643:46  Bool
 testdata/SampleMaterial.lc 644:38-644:54  String
-testdata/SampleMaterial.lc 646:15-646:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 646:15-647:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 646:15-648:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 646:15-649:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 646:15-650:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 646:15-651:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-646:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-647:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-648:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-649:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-650:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-651:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 646:15-652:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 646:15-653:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 646:15-654:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1256,11 +4441,31 @@ testdata/SampleMaterial.lc 660:21-660:26  Bool
 testdata/SampleMaterial.lc 663:5-705:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 663:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 663:7-663:42  String
-testdata/SampleMaterial.lc 664:7-664:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 664:7-665:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 664:7-666:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 664:7-667:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 664:7-668:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-664:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-665:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-666:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-667:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-668:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 664:7-669:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 664:7-670:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 664:7-671:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1280,12 +4485,33 @@ testdata/SampleMaterial.lc 672:30-672:32  forall a . List a
 testdata/SampleMaterial.lc 673:25-673:30  Bool
 testdata/SampleMaterial.lc 674:29-674:34  Bool
 testdata/SampleMaterial.lc 676:13-702:14  List StageAttrs
-testdata/SampleMaterial.lc 676:15-676:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 676:15-677:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 676:15-678:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 676:15-679:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 676:15-680:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 676:15-681:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-676:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-677:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-678:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-679:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-680:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-681:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 676:15-682:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 676:15-683:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 676:15-684:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1305,12 +4531,33 @@ testdata/SampleMaterial.lc 684:33-684:41  DepthFunction
 testdata/SampleMaterial.lc 685:33-685:40  forall a . Maybe a
 testdata/SampleMaterial.lc 686:41-686:46  Bool
 testdata/SampleMaterial.lc 687:38-687:54  String
-testdata/SampleMaterial.lc 689:15-689:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 689:15-690:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 689:15-691:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 689:15-692:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 689:15-693:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 689:15-694:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-689:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-690:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-691:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-692:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-693:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-694:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 689:15-695:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 689:15-696:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 689:15-697:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1336,11 +4583,31 @@ testdata/SampleMaterial.lc 703:21-703:26  Bool
 testdata/SampleMaterial.lc 706:5-748:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 706:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 706:7-706:42  String
-testdata/SampleMaterial.lc 707:7-707:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 707:7-708:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 707:7-709:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 707:7-710:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 707:7-711:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-707:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-708:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-709:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-710:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-711:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 707:7-712:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 707:7-713:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 707:7-714:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1360,12 +4627,33 @@ testdata/SampleMaterial.lc 715:30-715:32  forall a . List a
 testdata/SampleMaterial.lc 716:25-716:30  Bool
 testdata/SampleMaterial.lc 717:29-717:34  Bool
 testdata/SampleMaterial.lc 719:13-745:14  List StageAttrs
-testdata/SampleMaterial.lc 719:15-719:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 719:15-720:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 719:15-721:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 719:15-722:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 719:15-723:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 719:15-724:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-719:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-720:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-721:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-722:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-723:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-724:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 719:15-725:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 719:15-726:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 719:15-727:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1385,12 +4673,33 @@ testdata/SampleMaterial.lc 727:33-727:41  DepthFunction
 testdata/SampleMaterial.lc 728:33-728:40  forall a . Maybe a
 testdata/SampleMaterial.lc 729:41-729:46  Bool
 testdata/SampleMaterial.lc 730:38-730:54  String
-testdata/SampleMaterial.lc 732:15-732:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 732:15-733:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 732:15-734:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 732:15-735:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 732:15-736:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 732:15-737:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-732:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-733:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-734:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-735:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-736:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-737:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 732:15-738:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 732:15-739:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 732:15-740:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1416,11 +4725,31 @@ testdata/SampleMaterial.lc 746:21-746:26  Bool
 testdata/SampleMaterial.lc 749:5-791:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 749:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 749:7-749:42  String
-testdata/SampleMaterial.lc 750:7-750:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 750:7-751:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 750:7-752:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 750:7-753:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 750:7-754:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-750:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-751:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-752:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-753:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-754:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 750:7-755:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 750:7-756:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 750:7-757:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1440,12 +4769,33 @@ testdata/SampleMaterial.lc 758:30-758:32  forall a . List a
 testdata/SampleMaterial.lc 759:25-759:30  Bool
 testdata/SampleMaterial.lc 760:29-760:34  Bool
 testdata/SampleMaterial.lc 762:13-788:14  List StageAttrs
-testdata/SampleMaterial.lc 762:15-762:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 762:15-763:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 762:15-764:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 762:15-765:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 762:15-766:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 762:15-767:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-762:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-763:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-764:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-765:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-766:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-767:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 762:15-768:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 762:15-769:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 762:15-770:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1465,12 +4815,33 @@ testdata/SampleMaterial.lc 770:33-770:41  DepthFunction
 testdata/SampleMaterial.lc 771:33-771:40  forall a . Maybe a
 testdata/SampleMaterial.lc 772:41-772:46  Bool
 testdata/SampleMaterial.lc 773:38-773:54  String
-testdata/SampleMaterial.lc 775:15-775:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 775:15-776:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 775:15-777:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 775:15-778:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 775:15-779:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 775:15-780:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-775:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-776:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-777:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-778:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-779:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-780:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 775:15-781:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 775:15-782:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 775:15-783:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1496,11 +4867,31 @@ testdata/SampleMaterial.lc 789:21-789:26  Bool
 testdata/SampleMaterial.lc 792:5-834:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 792:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 792:7-792:41  String
-testdata/SampleMaterial.lc 793:7-793:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 793:7-794:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 793:7-795:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 793:7-796:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 793:7-797:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-793:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-794:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-795:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-796:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-797:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 793:7-798:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 793:7-799:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 793:7-800:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1520,12 +4911,33 @@ testdata/SampleMaterial.lc 801:30-801:32  forall a . List a
 testdata/SampleMaterial.lc 802:25-802:30  Bool
 testdata/SampleMaterial.lc 803:29-803:34  Bool
 testdata/SampleMaterial.lc 805:13-831:14  List StageAttrs
-testdata/SampleMaterial.lc 805:15-805:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 805:15-806:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 805:15-807:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 805:15-808:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 805:15-809:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 805:15-810:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-805:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-806:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-807:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-808:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-809:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-810:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 805:15-811:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 805:15-812:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 805:15-813:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1545,12 +4957,33 @@ testdata/SampleMaterial.lc 813:33-813:41  DepthFunction
 testdata/SampleMaterial.lc 814:33-814:40  forall a . Maybe a
 testdata/SampleMaterial.lc 815:41-815:46  Bool
 testdata/SampleMaterial.lc 816:38-816:54  String
-testdata/SampleMaterial.lc 818:15-818:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 818:15-819:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 818:15-820:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 818:15-821:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 818:15-822:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 818:15-823:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-818:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-819:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-820:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-821:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-822:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-823:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 818:15-824:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 818:15-825:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 818:15-826:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1576,11 +5009,31 @@ testdata/SampleMaterial.lc 832:21-832:26  Bool
 testdata/SampleMaterial.lc 835:5-891:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 835:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 835:7-835:41  String
-testdata/SampleMaterial.lc 836:7-836:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 836:7-837:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 836:7-838:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 836:7-839:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 836:7-840:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-836:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-837:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-838:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-839:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-840:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 836:7-841:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 836:7-842:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 836:7-843:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1600,12 +5053,33 @@ testdata/SampleMaterial.lc 844:30-844:32  forall a . List a
 testdata/SampleMaterial.lc 845:25-845:30  Bool
 testdata/SampleMaterial.lc 846:29-846:34  Bool
 testdata/SampleMaterial.lc 848:13-888:14  List StageAttrs
-testdata/SampleMaterial.lc 848:15-848:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 848:15-849:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 848:15-850:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 848:15-851:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 848:15-852:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 848:15-854:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-848:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-849:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-850:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-851:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-852:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-854:88  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 848:15-855:66  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 848:15-856:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 848:15-857:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1645,12 +5119,33 @@ testdata/SampleMaterial.lc 857:33-857:41  DepthFunction
 testdata/SampleMaterial.lc 858:33-858:40  forall a . Maybe a
 testdata/SampleMaterial.lc 859:41-859:46  Bool
 testdata/SampleMaterial.lc 860:38-860:54  String
-testdata/SampleMaterial.lc 862:15-862:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 862:15-863:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 862:15-864:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 862:15-865:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 862:15-866:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 862:15-867:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-862:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-863:69  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-864:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-865:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-866:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-867:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 862:15-868:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 862:15-869:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 862:15-870:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1675,12 +5170,33 @@ testdata/SampleMaterial.lc 870:33-870:41  DepthFunction
 testdata/SampleMaterial.lc 871:33-871:40  forall a . Maybe a
 testdata/SampleMaterial.lc 872:41-872:46  Bool
 testdata/SampleMaterial.lc 873:38-873:54  String
-testdata/SampleMaterial.lc 875:15-875:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 875:15-876:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 875:15-877:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 875:15-878:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 875:15-879:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 875:15-880:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-875:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-876:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-877:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-878:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-879:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-880:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 875:15-881:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 875:15-882:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 875:15-883:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1706,11 +5222,31 @@ testdata/SampleMaterial.lc 889:21-889:26  Bool
 testdata/SampleMaterial.lc 892:5-934:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 892:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 892:7-892:41  String
-testdata/SampleMaterial.lc 893:7-893:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 893:7-894:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 893:7-895:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 893:7-896:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 893:7-897:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-893:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-894:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-895:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-896:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-897:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 893:7-898:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 893:7-899:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 893:7-900:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1730,12 +5266,33 @@ testdata/SampleMaterial.lc 901:30-901:32  forall a . List a
 testdata/SampleMaterial.lc 902:25-902:30  Bool
 testdata/SampleMaterial.lc 903:29-903:34  Bool
 testdata/SampleMaterial.lc 905:13-931:14  List StageAttrs
-testdata/SampleMaterial.lc 905:15-905:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 905:15-906:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 905:15-907:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 905:15-908:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 905:15-909:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 905:15-910:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-905:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-906:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-907:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-908:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-909:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-910:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 905:15-911:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 905:15-912:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 905:15-913:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1755,12 +5312,33 @@ testdata/SampleMaterial.lc 913:33-913:41  DepthFunction
 testdata/SampleMaterial.lc 914:33-914:40  forall a . Maybe a
 testdata/SampleMaterial.lc 915:41-915:46  Bool
 testdata/SampleMaterial.lc 916:38-916:54  String
-testdata/SampleMaterial.lc 918:15-918:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 918:15-919:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 918:15-920:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 918:15-921:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 918:15-922:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 918:15-923:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-918:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-919:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-920:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-921:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-922:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-923:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 918:15-924:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 918:15-925:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 918:15-926:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1786,11 +5364,31 @@ testdata/SampleMaterial.lc 932:21-932:26  Bool
 testdata/SampleMaterial.lc 935:5-978:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 935:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 935:7-935:54  String
-testdata/SampleMaterial.lc 936:7-936:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 936:7-937:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 936:7-938:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 936:7-939:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 936:7-940:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-936:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-937:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-938:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-939:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-940:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 936:7-941:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 936:7-942:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 936:7-943:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1810,12 +5408,33 @@ testdata/SampleMaterial.lc 944:30-944:32  forall a . List a
 testdata/SampleMaterial.lc 945:25-945:30  Bool
 testdata/SampleMaterial.lc 946:29-946:34  Bool
 testdata/SampleMaterial.lc 948:13-975:14  List StageAttrs
-testdata/SampleMaterial.lc 948:15-948:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 948:15-949:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 948:15-950:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 948:15-951:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 948:15-952:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 948:15-953:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-948:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-949:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-950:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-951:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-952:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-953:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 948:15-955:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 948:15-956:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 948:15-957:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1835,12 +5454,33 @@ testdata/SampleMaterial.lc 957:33-957:41  DepthFunction
 testdata/SampleMaterial.lc 958:33-958:40  forall a . Maybe a
 testdata/SampleMaterial.lc 959:41-959:46  Bool
 testdata/SampleMaterial.lc 960:38-960:54  String
-testdata/SampleMaterial.lc 962:15-962:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 962:15-963:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 962:15-964:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 962:15-965:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 962:15-966:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 962:15-967:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-962:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-963:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-964:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-965:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-966:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-967:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 962:15-968:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 962:15-969:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 962:15-970:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1866,11 +5506,31 @@ testdata/SampleMaterial.lc 976:21-976:26  Bool
 testdata/SampleMaterial.lc 979:5-1021:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 979:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 979:7-979:45  String
-testdata/SampleMaterial.lc 980:7-980:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 980:7-981:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 980:7-982:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 980:7-983:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 980:7-984:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-980:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-981:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-982:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-983:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-984:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 980:7-985:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 980:7-986:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 980:7-987:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1890,12 +5550,33 @@ testdata/SampleMaterial.lc 988:30-988:32  forall a . List a
 testdata/SampleMaterial.lc 989:25-989:30  Bool
 testdata/SampleMaterial.lc 990:29-990:34  Bool
 testdata/SampleMaterial.lc 992:13-1018:14  List StageAttrs
-testdata/SampleMaterial.lc 992:15-992:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 992:15-993:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 992:15-994:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 992:15-995:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 992:15-996:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 992:15-997:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-992:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-993:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-994:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-995:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-996:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-997:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 992:15-998:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 992:15-999:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 992:15-1000:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1915,12 +5596,33 @@ testdata/SampleMaterial.lc 1000:33-1000:41  DepthFunction
 testdata/SampleMaterial.lc 1001:33-1001:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1002:41-1002:46  Bool
 testdata/SampleMaterial.lc 1003:38-1003:54  String
-testdata/SampleMaterial.lc 1005:15-1005:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1005:15-1006:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1005:15-1007:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1005:15-1008:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1005:15-1009:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1005:15-1010:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1005:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1006:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1007:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1008:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1009:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1010:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1005:15-1011:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1005:15-1012:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1005:15-1013:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1946,11 +5648,31 @@ testdata/SampleMaterial.lc 1019:21-1019:26  Bool
 testdata/SampleMaterial.lc 1022:5-1064:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1022:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1022:7-1022:44  String
-testdata/SampleMaterial.lc 1023:7-1023:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1023:7-1024:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1023:7-1025:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1023:7-1026:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1023:7-1027:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1023:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1024:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1025:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1026:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1027:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1023:7-1028:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1023:7-1029:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1023:7-1030:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1970,12 +5692,33 @@ testdata/SampleMaterial.lc 1031:30-1031:32  forall a . List a
 testdata/SampleMaterial.lc 1032:25-1032:30  Bool
 testdata/SampleMaterial.lc 1033:29-1033:34  Bool
 testdata/SampleMaterial.lc 1035:13-1061:14  List StageAttrs
-testdata/SampleMaterial.lc 1035:15-1035:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1035:15-1036:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1035:15-1037:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1035:15-1038:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1035:15-1039:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1035:15-1040:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1035:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1036:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1037:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1038:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1039:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1040:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1035:15-1041:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1035:15-1042:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1035:15-1043:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1995,12 +5738,33 @@ testdata/SampleMaterial.lc 1043:33-1043:41  DepthFunction
 testdata/SampleMaterial.lc 1044:33-1044:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1045:41-1045:46  Bool
 testdata/SampleMaterial.lc 1046:38-1046:54  String
-testdata/SampleMaterial.lc 1048:15-1048:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1048:15-1049:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1048:15-1050:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1048:15-1051:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1048:15-1052:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1048:15-1053:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1048:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1049:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1050:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1051:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1052:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1053:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1048:15-1054:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1048:15-1055:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1048:15-1056:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2026,11 +5790,31 @@ testdata/SampleMaterial.lc 1062:21-1062:26  Bool
 testdata/SampleMaterial.lc 1065:5-1107:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1065:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1065:7-1065:44  String
-testdata/SampleMaterial.lc 1066:7-1066:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1066:7-1067:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1066:7-1068:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1066:7-1069:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1066:7-1070:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1066:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1067:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1068:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1069:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1070:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1066:7-1071:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1066:7-1072:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1066:7-1073:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2050,12 +5834,33 @@ testdata/SampleMaterial.lc 1074:30-1074:32  forall a . List a
 testdata/SampleMaterial.lc 1075:25-1075:30  Bool
 testdata/SampleMaterial.lc 1076:29-1076:34  Bool
 testdata/SampleMaterial.lc 1078:13-1104:14  List StageAttrs
-testdata/SampleMaterial.lc 1078:15-1078:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1078:15-1079:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1078:15-1080:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1078:15-1081:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1078:15-1082:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1078:15-1083:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1078:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1079:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1080:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1081:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1082:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1083:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1078:15-1084:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1078:15-1085:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1078:15-1086:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2075,12 +5880,33 @@ testdata/SampleMaterial.lc 1086:33-1086:41  DepthFunction
 testdata/SampleMaterial.lc 1087:33-1087:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1088:41-1088:46  Bool
 testdata/SampleMaterial.lc 1089:38-1089:54  String
-testdata/SampleMaterial.lc 1091:15-1091:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1091:15-1092:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1091:15-1093:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1091:15-1094:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1091:15-1095:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1091:15-1096:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1091:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1092:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1093:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1094:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1095:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1096:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1091:15-1097:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1091:15-1098:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1091:15-1099:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2106,11 +5932,31 @@ testdata/SampleMaterial.lc 1105:21-1105:26  Bool
 testdata/SampleMaterial.lc 1108:5-1150:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1108:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1108:7-1108:49  String
-testdata/SampleMaterial.lc 1109:7-1109:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1109:7-1110:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1109:7-1111:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1109:7-1112:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1109:7-1113:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1109:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1110:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1111:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1112:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1113:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1109:7-1114:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1109:7-1115:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1109:7-1116:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2130,12 +5976,33 @@ testdata/SampleMaterial.lc 1117:30-1117:32  forall a . List a
 testdata/SampleMaterial.lc 1118:25-1118:30  Bool
 testdata/SampleMaterial.lc 1119:29-1119:34  Bool
 testdata/SampleMaterial.lc 1121:13-1147:14  List StageAttrs
-testdata/SampleMaterial.lc 1121:15-1121:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1121:15-1122:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1121:15-1123:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1121:15-1124:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1121:15-1125:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1121:15-1126:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1121:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1122:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1123:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1124:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1125:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1126:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1121:15-1127:80  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1121:15-1128:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1121:15-1129:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2155,12 +6022,33 @@ testdata/SampleMaterial.lc 1129:33-1129:41  DepthFunction
 testdata/SampleMaterial.lc 1130:33-1130:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1131:41-1131:46  Bool
 testdata/SampleMaterial.lc 1132:38-1132:54  String
-testdata/SampleMaterial.lc 1134:15-1134:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1134:15-1135:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1134:15-1136:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1134:15-1137:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1134:15-1138:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1134:15-1139:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1134:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1135:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1136:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1137:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1138:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1139:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1134:15-1140:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1134:15-1141:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1134:15-1142:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2186,11 +6074,31 @@ testdata/SampleMaterial.lc 1148:21-1148:26  Bool
 testdata/SampleMaterial.lc 1151:5-1193:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1151:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1151:7-1151:41  String
-testdata/SampleMaterial.lc 1152:7-1152:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1152:7-1153:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1152:7-1154:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1152:7-1155:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1152:7-1156:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1152:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1153:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1154:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1155:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1156:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1152:7-1157:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1152:7-1158:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1152:7-1159:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2210,12 +6118,33 @@ testdata/SampleMaterial.lc 1160:30-1160:32  forall a . List a
 testdata/SampleMaterial.lc 1161:25-1161:30  Bool
 testdata/SampleMaterial.lc 1162:29-1162:34  Bool
 testdata/SampleMaterial.lc 1164:13-1190:14  List StageAttrs
-testdata/SampleMaterial.lc 1164:15-1164:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1164:15-1165:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1164:15-1166:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1164:15-1167:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1164:15-1168:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1164:15-1169:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1164:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1165:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1166:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1167:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1168:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1169:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1164:15-1170:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1164:15-1171:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1164:15-1172:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2235,12 +6164,33 @@ testdata/SampleMaterial.lc 1172:33-1172:41  DepthFunction
 testdata/SampleMaterial.lc 1173:33-1173:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1174:41-1174:46  Bool
 testdata/SampleMaterial.lc 1175:38-1175:54  String
-testdata/SampleMaterial.lc 1177:15-1177:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1177:15-1178:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1177:15-1179:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1177:15-1180:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1177:15-1181:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1177:15-1182:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1177:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1178:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1179:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1180:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1181:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1182:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1177:15-1183:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1177:15-1184:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1177:15-1185:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2266,11 +6216,31 @@ testdata/SampleMaterial.lc 1191:21-1191:26  Bool
 testdata/SampleMaterial.lc 1194:5-1236:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1194:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1194:7-1194:43  String
-testdata/SampleMaterial.lc 1195:7-1195:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1195:7-1196:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1195:7-1197:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1195:7-1198:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1195:7-1199:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1195:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1196:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1197:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1198:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1199:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1195:7-1200:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1195:7-1201:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1195:7-1202:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2290,12 +6260,33 @@ testdata/SampleMaterial.lc 1203:30-1203:32  forall a . List a
 testdata/SampleMaterial.lc 1204:25-1204:30  Bool
 testdata/SampleMaterial.lc 1205:29-1205:34  Bool
 testdata/SampleMaterial.lc 1207:13-1233:14  List StageAttrs
-testdata/SampleMaterial.lc 1207:15-1207:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1207:15-1208:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1207:15-1209:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1207:15-1210:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1207:15-1211:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1207:15-1212:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1207:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1208:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1209:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1210:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1211:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1212:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1207:15-1213:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1207:15-1214:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1207:15-1215:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2315,12 +6306,33 @@ testdata/SampleMaterial.lc 1215:33-1215:41  DepthFunction
 testdata/SampleMaterial.lc 1216:33-1216:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1217:41-1217:46  Bool
 testdata/SampleMaterial.lc 1218:38-1218:54  String
-testdata/SampleMaterial.lc 1220:15-1220:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1220:15-1221:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1220:15-1222:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1220:15-1223:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1220:15-1224:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1220:15-1225:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1220:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1221:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1222:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1223:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1224:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1225:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1220:15-1226:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1220:15-1227:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1220:15-1228:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2346,11 +6358,31 @@ testdata/SampleMaterial.lc 1234:21-1234:26  Bool
 testdata/SampleMaterial.lc 1237:5-1279:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1237:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1237:7-1237:41  String
-testdata/SampleMaterial.lc 1238:7-1238:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1238:7-1239:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1238:7-1240:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1238:7-1241:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1238:7-1242:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1238:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1239:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1240:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1241:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1242:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1238:7-1243:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1238:7-1244:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1238:7-1245:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2370,12 +6402,33 @@ testdata/SampleMaterial.lc 1246:30-1246:32  forall a . List a
 testdata/SampleMaterial.lc 1247:25-1247:30  Bool
 testdata/SampleMaterial.lc 1248:29-1248:34  Bool
 testdata/SampleMaterial.lc 1250:13-1276:14  List StageAttrs
-testdata/SampleMaterial.lc 1250:15-1250:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1250:15-1251:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1250:15-1252:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1250:15-1253:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1250:15-1254:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1250:15-1255:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1250:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1251:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1252:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1253:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1254:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1255:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1250:15-1256:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1250:15-1257:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1250:15-1258:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2395,12 +6448,33 @@ testdata/SampleMaterial.lc 1258:33-1258:41  DepthFunction
 testdata/SampleMaterial.lc 1259:33-1259:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1260:41-1260:46  Bool
 testdata/SampleMaterial.lc 1261:38-1261:54  String
-testdata/SampleMaterial.lc 1263:15-1263:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1263:15-1264:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1263:15-1265:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1263:15-1266:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1263:15-1267:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1263:15-1268:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1263:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1264:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1265:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1266:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1267:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1268:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1263:15-1269:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1263:15-1270:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1263:15-1271:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2426,11 +6500,31 @@ testdata/SampleMaterial.lc 1277:21-1277:26  Bool
 testdata/SampleMaterial.lc 1280:5-1322:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1280:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1280:7-1280:44  String
-testdata/SampleMaterial.lc 1281:7-1281:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1281:7-1282:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1281:7-1283:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1281:7-1284:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1281:7-1285:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1281:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1282:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1283:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1284:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1285:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1281:7-1286:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1281:7-1287:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1281:7-1288:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2450,12 +6544,33 @@ testdata/SampleMaterial.lc 1289:30-1289:32  forall a . List a
 testdata/SampleMaterial.lc 1290:25-1290:30  Bool
 testdata/SampleMaterial.lc 1291:29-1291:34  Bool
 testdata/SampleMaterial.lc 1293:13-1319:14  List StageAttrs
-testdata/SampleMaterial.lc 1293:15-1293:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1293:15-1294:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1293:15-1295:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1293:15-1296:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1293:15-1297:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1293:15-1298:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1293:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1294:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1295:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1296:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1297:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1298:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1293:15-1299:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1293:15-1300:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1293:15-1301:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2475,12 +6590,33 @@ testdata/SampleMaterial.lc 1301:33-1301:41  DepthFunction
 testdata/SampleMaterial.lc 1302:33-1302:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1303:41-1303:46  Bool
 testdata/SampleMaterial.lc 1304:38-1304:54  String
-testdata/SampleMaterial.lc 1306:15-1306:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1306:15-1307:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1306:15-1308:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1306:15-1309:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1306:15-1310:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1306:15-1311:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1306:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1307:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1308:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1309:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1310:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1311:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1306:15-1312:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1306:15-1313:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1306:15-1314:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2506,11 +6642,31 @@ testdata/SampleMaterial.lc 1320:21-1320:26  Bool
 testdata/SampleMaterial.lc 1323:5-1365:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1323:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1323:7-1323:43  String
-testdata/SampleMaterial.lc 1324:7-1324:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1324:7-1325:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1324:7-1326:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1324:7-1327:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1324:7-1328:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1324:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1325:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1326:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1327:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1328:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1324:7-1329:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1324:7-1330:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1324:7-1331:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2530,12 +6686,33 @@ testdata/SampleMaterial.lc 1332:30-1332:32  forall a . List a
 testdata/SampleMaterial.lc 1333:25-1333:30  Bool
 testdata/SampleMaterial.lc 1334:29-1334:34  Bool
 testdata/SampleMaterial.lc 1336:13-1362:14  List StageAttrs
-testdata/SampleMaterial.lc 1336:15-1336:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1336:15-1337:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1336:15-1338:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1336:15-1339:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1336:15-1340:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1336:15-1341:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1336:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1337:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1338:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1339:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1340:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1341:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1336:15-1342:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1336:15-1343:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1336:15-1344:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2555,12 +6732,33 @@ testdata/SampleMaterial.lc 1344:33-1344:41  DepthFunction
 testdata/SampleMaterial.lc 1345:33-1345:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1346:41-1346:46  Bool
 testdata/SampleMaterial.lc 1347:38-1347:54  String
-testdata/SampleMaterial.lc 1349:15-1349:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1349:15-1350:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1349:15-1351:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1349:15-1352:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1349:15-1353:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1349:15-1354:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1349:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1350:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1351:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1352:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1353:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1354:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1349:15-1355:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1349:15-1356:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1349:15-1357:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2586,11 +6784,31 @@ testdata/SampleMaterial.lc 1363:21-1363:26  Bool
 testdata/SampleMaterial.lc 1366:5-1408:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1366:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1366:7-1366:44  String
-testdata/SampleMaterial.lc 1367:7-1367:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1367:7-1368:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1367:7-1369:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1367:7-1370:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1367:7-1371:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1367:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1368:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1369:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1370:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1371:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1367:7-1372:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1367:7-1373:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1367:7-1374:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2610,12 +6828,33 @@ testdata/SampleMaterial.lc 1375:30-1375:32  forall a . List a
 testdata/SampleMaterial.lc 1376:25-1376:30  Bool
 testdata/SampleMaterial.lc 1377:29-1377:34  Bool
 testdata/SampleMaterial.lc 1379:13-1405:14  List StageAttrs
-testdata/SampleMaterial.lc 1379:15-1379:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1379:15-1380:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1379:15-1381:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1379:15-1382:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1379:15-1383:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1379:15-1384:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1379:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1380:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1381:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1382:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1383:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1384:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1379:15-1385:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1379:15-1386:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1379:15-1387:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2635,12 +6874,33 @@ testdata/SampleMaterial.lc 1387:33-1387:41  DepthFunction
 testdata/SampleMaterial.lc 1388:33-1388:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1389:41-1389:46  Bool
 testdata/SampleMaterial.lc 1390:38-1390:54  String
-testdata/SampleMaterial.lc 1392:15-1392:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1392:15-1393:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1392:15-1394:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1392:15-1395:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1392:15-1396:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1392:15-1397:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1392:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1393:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1394:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1395:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1396:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1397:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1392:15-1398:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1392:15-1399:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1392:15-1400:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2666,11 +6926,31 @@ testdata/SampleMaterial.lc 1406:21-1406:26  Bool
 testdata/SampleMaterial.lc 1409:5-1451:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1409:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1409:7-1409:44  String
-testdata/SampleMaterial.lc 1410:7-1410:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1410:7-1411:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1410:7-1412:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1410:7-1413:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1410:7-1414:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1410:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1411:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1412:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1413:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1414:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1410:7-1415:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1410:7-1416:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1410:7-1417:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2690,12 +6970,33 @@ testdata/SampleMaterial.lc 1418:30-1418:32  forall a . List a
 testdata/SampleMaterial.lc 1419:25-1419:30  Bool
 testdata/SampleMaterial.lc 1420:29-1420:34  Bool
 testdata/SampleMaterial.lc 1422:13-1448:14  List StageAttrs
-testdata/SampleMaterial.lc 1422:15-1422:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1422:15-1423:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1422:15-1424:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1422:15-1425:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1422:15-1426:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1422:15-1427:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1422:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1423:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1424:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1425:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1426:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1427:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1422:15-1428:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1422:15-1429:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1422:15-1430:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2715,12 +7016,33 @@ testdata/SampleMaterial.lc 1430:33-1430:41  DepthFunction
 testdata/SampleMaterial.lc 1431:33-1431:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1432:41-1432:46  Bool
 testdata/SampleMaterial.lc 1433:38-1433:54  String
-testdata/SampleMaterial.lc 1435:15-1435:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1435:15-1436:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1435:15-1437:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1435:15-1438:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1435:15-1439:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1435:15-1440:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1435:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1436:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1437:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1438:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1439:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1440:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1435:15-1441:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1435:15-1442:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1435:15-1443:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2746,11 +7068,31 @@ testdata/SampleMaterial.lc 1449:21-1449:26  Bool
 testdata/SampleMaterial.lc 1452:5-1494:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1452:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1452:7-1452:44  String
-testdata/SampleMaterial.lc 1453:7-1453:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1453:7-1454:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1453:7-1455:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1453:7-1456:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1453:7-1457:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1453:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1454:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1455:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1456:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1457:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1453:7-1458:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1453:7-1459:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1453:7-1460:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2770,12 +7112,33 @@ testdata/SampleMaterial.lc 1461:30-1461:32  forall a . List a
 testdata/SampleMaterial.lc 1462:25-1462:30  Bool
 testdata/SampleMaterial.lc 1463:29-1463:34  Bool
 testdata/SampleMaterial.lc 1465:13-1491:14  List StageAttrs
-testdata/SampleMaterial.lc 1465:15-1465:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1465:15-1466:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1465:15-1467:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1465:15-1468:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1465:15-1469:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1465:15-1470:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1465:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1466:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1467:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1468:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1469:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1470:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1465:15-1471:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1465:15-1472:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1465:15-1473:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2795,12 +7158,33 @@ testdata/SampleMaterial.lc 1473:33-1473:41  DepthFunction
 testdata/SampleMaterial.lc 1474:33-1474:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1475:41-1475:46  Bool
 testdata/SampleMaterial.lc 1476:38-1476:54  String
-testdata/SampleMaterial.lc 1478:15-1478:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1478:15-1479:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1478:15-1480:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1478:15-1481:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1478:15-1482:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1478:15-1483:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1478:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1479:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1480:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1481:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1482:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1483:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1478:15-1484:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1478:15-1485:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1478:15-1486:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2826,11 +7210,31 @@ testdata/SampleMaterial.lc 1492:21-1492:26  Bool
 testdata/SampleMaterial.lc 1495:5-1537:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1495:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1495:7-1495:45  String
-testdata/SampleMaterial.lc 1496:7-1496:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1496:7-1497:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1496:7-1498:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1496:7-1499:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1496:7-1500:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1496:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1497:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1498:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1499:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1500:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1496:7-1501:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1496:7-1502:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1496:7-1503:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2850,12 +7254,33 @@ testdata/SampleMaterial.lc 1504:30-1504:32  forall a . List a
 testdata/SampleMaterial.lc 1505:25-1505:30  Bool
 testdata/SampleMaterial.lc 1506:29-1506:34  Bool
 testdata/SampleMaterial.lc 1508:13-1534:14  List StageAttrs
-testdata/SampleMaterial.lc 1508:15-1508:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1508:15-1509:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1508:15-1510:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1508:15-1511:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1508:15-1512:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1508:15-1513:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1508:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1509:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1510:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1511:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1512:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1513:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1508:15-1514:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1508:15-1515:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1508:15-1516:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2875,12 +7300,33 @@ testdata/SampleMaterial.lc 1516:33-1516:41  DepthFunction
 testdata/SampleMaterial.lc 1517:33-1517:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1518:41-1518:46  Bool
 testdata/SampleMaterial.lc 1519:38-1519:54  String
-testdata/SampleMaterial.lc 1521:15-1521:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1521:15-1522:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1521:15-1523:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1521:15-1524:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1521:15-1525:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1521:15-1526:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1521:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1522:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1523:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1524:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1525:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1526:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1521:15-1527:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1521:15-1528:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1521:15-1529:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2906,11 +7352,31 @@ testdata/SampleMaterial.lc 1535:21-1535:26  Bool
 testdata/SampleMaterial.lc 1538:5-1580:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1538:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1538:7-1538:47  String
-testdata/SampleMaterial.lc 1539:7-1539:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1539:7-1540:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1539:7-1541:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1539:7-1542:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1539:7-1543:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1539:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1540:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1541:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1542:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1543:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1539:7-1544:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1539:7-1545:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1539:7-1546:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2930,12 +7396,33 @@ testdata/SampleMaterial.lc 1547:30-1547:32  forall a . List a
 testdata/SampleMaterial.lc 1548:25-1548:30  Bool
 testdata/SampleMaterial.lc 1549:29-1549:34  Bool
 testdata/SampleMaterial.lc 1551:13-1577:14  List StageAttrs
-testdata/SampleMaterial.lc 1551:15-1551:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1551:15-1552:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1551:15-1553:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1551:15-1554:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1551:15-1555:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1551:15-1556:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1551:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1552:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1553:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1554:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1555:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1556:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1551:15-1557:78  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1551:15-1558:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1551:15-1559:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2955,12 +7442,33 @@ testdata/SampleMaterial.lc 1559:33-1559:41  DepthFunction
 testdata/SampleMaterial.lc 1560:33-1560:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1561:41-1561:46  Bool
 testdata/SampleMaterial.lc 1562:38-1562:54  String
-testdata/SampleMaterial.lc 1564:15-1564:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1564:15-1565:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1564:15-1566:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1564:15-1567:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1564:15-1568:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1564:15-1569:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1564:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1565:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1566:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1567:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1568:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1569:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1564:15-1570:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1564:15-1571:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1564:15-1572:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2986,11 +7494,31 @@ testdata/SampleMaterial.lc 1578:21-1578:26  Bool
 testdata/SampleMaterial.lc 1581:5-1623:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1581:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1581:7-1581:49  String
-testdata/SampleMaterial.lc 1582:7-1582:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1582:7-1583:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1582:7-1584:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1582:7-1585:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1582:7-1586:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1582:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1583:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1584:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1585:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1586:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1582:7-1587:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1582:7-1588:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1582:7-1589:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3010,12 +7538,33 @@ testdata/SampleMaterial.lc 1590:30-1590:32  forall a . List a
 testdata/SampleMaterial.lc 1591:25-1591:30  Bool
 testdata/SampleMaterial.lc 1592:29-1592:34  Bool
 testdata/SampleMaterial.lc 1594:13-1620:14  List StageAttrs
-testdata/SampleMaterial.lc 1594:15-1594:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1594:15-1595:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1594:15-1596:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1594:15-1597:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1594:15-1598:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1594:15-1599:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1594:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1595:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1596:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1597:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1598:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1599:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1594:15-1600:80  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1594:15-1601:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1594:15-1602:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3035,12 +7584,33 @@ testdata/SampleMaterial.lc 1602:33-1602:41  DepthFunction
 testdata/SampleMaterial.lc 1603:33-1603:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1604:41-1604:46  Bool
 testdata/SampleMaterial.lc 1605:38-1605:54  String
-testdata/SampleMaterial.lc 1607:15-1607:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1607:15-1608:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1607:15-1609:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1607:15-1610:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1607:15-1611:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1607:15-1612:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1607:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1608:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1609:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1610:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1611:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1612:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1607:15-1613:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1607:15-1614:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1607:15-1615:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3066,11 +7636,31 @@ testdata/SampleMaterial.lc 1621:21-1621:26  Bool
 testdata/SampleMaterial.lc 1624:5-1666:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1624:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1624:7-1624:44  String
-testdata/SampleMaterial.lc 1625:7-1625:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1625:7-1626:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1625:7-1627:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1625:7-1628:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1625:7-1629:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1625:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1626:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1627:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1628:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1629:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1625:7-1630:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1625:7-1631:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1625:7-1632:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3090,12 +7680,33 @@ testdata/SampleMaterial.lc 1633:30-1633:32  forall a . List a
 testdata/SampleMaterial.lc 1634:25-1634:30  Bool
 testdata/SampleMaterial.lc 1635:29-1635:34  Bool
 testdata/SampleMaterial.lc 1637:13-1663:14  List StageAttrs
-testdata/SampleMaterial.lc 1637:15-1637:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1637:15-1638:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1637:15-1639:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1637:15-1640:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1637:15-1641:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1637:15-1642:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1637:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1638:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1639:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1640:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1641:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1642:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1637:15-1643:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1637:15-1644:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1637:15-1645:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3115,12 +7726,33 @@ testdata/SampleMaterial.lc 1645:33-1645:41  DepthFunction
 testdata/SampleMaterial.lc 1646:33-1646:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1647:41-1647:46  Bool
 testdata/SampleMaterial.lc 1648:38-1648:54  String
-testdata/SampleMaterial.lc 1650:15-1650:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1650:15-1651:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1650:15-1652:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1650:15-1653:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1650:15-1654:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1650:15-1655:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1650:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1651:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1652:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1653:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1654:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1655:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1650:15-1656:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1650:15-1657:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1650:15-1658:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3146,11 +7778,31 @@ testdata/SampleMaterial.lc 1664:21-1664:26  Bool
 testdata/SampleMaterial.lc 1667:5-1709:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1667:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1667:7-1667:43  String
-testdata/SampleMaterial.lc 1668:7-1668:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1668:7-1669:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1668:7-1670:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1668:7-1671:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1668:7-1672:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1668:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1669:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1670:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1671:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1672:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1668:7-1673:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1668:7-1674:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1668:7-1675:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3170,12 +7822,33 @@ testdata/SampleMaterial.lc 1676:30-1676:32  forall a . List a
 testdata/SampleMaterial.lc 1677:25-1677:30  Bool
 testdata/SampleMaterial.lc 1678:29-1678:34  Bool
 testdata/SampleMaterial.lc 1680:13-1706:14  List StageAttrs
-testdata/SampleMaterial.lc 1680:15-1680:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1680:15-1681:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1680:15-1682:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1680:15-1683:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1680:15-1684:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1680:15-1685:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1680:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1681:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1682:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1683:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1684:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1685:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1680:15-1686:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1680:15-1687:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1680:15-1688:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3195,12 +7868,33 @@ testdata/SampleMaterial.lc 1688:33-1688:41  DepthFunction
 testdata/SampleMaterial.lc 1689:33-1689:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1690:41-1690:46  Bool
 testdata/SampleMaterial.lc 1691:38-1691:54  String
-testdata/SampleMaterial.lc 1693:15-1693:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1693:15-1694:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1693:15-1695:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1693:15-1696:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1693:15-1697:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1693:15-1698:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1693:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1694:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1695:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1696:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1697:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1698:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1693:15-1699:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1693:15-1700:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1693:15-1701:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3226,11 +7920,31 @@ testdata/SampleMaterial.lc 1707:21-1707:26  Bool
 testdata/SampleMaterial.lc 1710:5-1752:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1710:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1710:7-1710:41  String
-testdata/SampleMaterial.lc 1711:7-1711:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1711:7-1712:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1711:7-1713:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1711:7-1714:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1711:7-1715:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1711:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1712:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1713:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1714:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1715:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1711:7-1716:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1711:7-1717:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1711:7-1718:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3250,12 +7964,33 @@ testdata/SampleMaterial.lc 1719:30-1719:32  forall a . List a
 testdata/SampleMaterial.lc 1720:25-1720:30  Bool
 testdata/SampleMaterial.lc 1721:29-1721:34  Bool
 testdata/SampleMaterial.lc 1723:13-1749:14  List StageAttrs
-testdata/SampleMaterial.lc 1723:15-1723:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1723:15-1724:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1723:15-1725:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1723:15-1726:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1723:15-1727:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1723:15-1728:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1723:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1724:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1725:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1726:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1727:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1728:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1723:15-1729:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1723:15-1730:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1723:15-1731:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3275,12 +8010,33 @@ testdata/SampleMaterial.lc 1731:33-1731:41  DepthFunction
 testdata/SampleMaterial.lc 1732:33-1732:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1733:41-1733:46  Bool
 testdata/SampleMaterial.lc 1734:38-1734:54  String
-testdata/SampleMaterial.lc 1736:15-1736:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1736:15-1737:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1736:15-1738:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1736:15-1739:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1736:15-1740:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1736:15-1741:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1736:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1737:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1738:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1739:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1740:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1741:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1736:15-1742:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1736:15-1743:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1736:15-1744:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3306,11 +8062,31 @@ testdata/SampleMaterial.lc 1750:21-1750:26  Bool
 testdata/SampleMaterial.lc 1753:5-1795:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1753:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1753:7-1753:42  String
-testdata/SampleMaterial.lc 1754:7-1754:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1754:7-1755:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1754:7-1756:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1754:7-1757:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1754:7-1758:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1754:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1755:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1756:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1757:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1758:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1754:7-1759:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1754:7-1760:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1754:7-1761:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3330,12 +8106,33 @@ testdata/SampleMaterial.lc 1762:30-1762:32  forall a . List a
 testdata/SampleMaterial.lc 1763:25-1763:30  Bool
 testdata/SampleMaterial.lc 1764:29-1764:34  Bool
 testdata/SampleMaterial.lc 1766:13-1792:14  List StageAttrs
-testdata/SampleMaterial.lc 1766:15-1766:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1766:15-1767:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1766:15-1768:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1766:15-1769:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1766:15-1770:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1766:15-1771:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1766:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1767:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1768:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1769:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1770:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1771:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1766:15-1772:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1766:15-1773:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1766:15-1774:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3355,12 +8152,33 @@ testdata/SampleMaterial.lc 1774:33-1774:41  DepthFunction
 testdata/SampleMaterial.lc 1775:33-1775:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1776:41-1776:46  Bool
 testdata/SampleMaterial.lc 1777:38-1777:54  String
-testdata/SampleMaterial.lc 1779:15-1779:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1779:15-1780:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1779:15-1781:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1779:15-1782:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1779:15-1783:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1779:15-1784:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1779:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1780:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1781:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1782:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1783:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1784:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1779:15-1785:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1779:15-1786:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1779:15-1787:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3386,11 +8204,31 @@ testdata/SampleMaterial.lc 1793:21-1793:26  Bool
 testdata/SampleMaterial.lc 1796:5-1838:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1796:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1796:7-1796:48  String
-testdata/SampleMaterial.lc 1797:7-1797:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1797:7-1798:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1797:7-1799:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1797:7-1800:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1797:7-1801:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1797:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1798:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1799:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1800:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1801:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1797:7-1802:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1797:7-1803:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1797:7-1804:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3410,12 +8248,33 @@ testdata/SampleMaterial.lc 1805:30-1805:32  forall a . List a
 testdata/SampleMaterial.lc 1806:25-1806:30  Bool
 testdata/SampleMaterial.lc 1807:29-1807:34  Bool
 testdata/SampleMaterial.lc 1809:13-1835:14  List StageAttrs
-testdata/SampleMaterial.lc 1809:15-1809:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1809:15-1810:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1809:15-1811:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1809:15-1812:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1809:15-1813:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1809:15-1814:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1809:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1810:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1811:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1812:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1813:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1814:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1809:15-1815:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1809:15-1816:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1809:15-1817:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3433,12 +8292,33 @@ testdata/SampleMaterial.lc 1817:33-1817:41  DepthFunction
 testdata/SampleMaterial.lc 1818:33-1818:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1819:41-1819:46  Bool
 testdata/SampleMaterial.lc 1820:38-1820:53  String
-testdata/SampleMaterial.lc 1822:15-1822:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1822:15-1823:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1822:15-1824:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1822:15-1825:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1822:15-1826:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1822:15-1827:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1822:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1823:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1824:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1825:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1826:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1827:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1822:15-1828:77  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1822:15-1829:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1822:15-1830:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3466,11 +8346,31 @@ testdata/SampleMaterial.lc 1836:21-1836:26  Bool
 testdata/SampleMaterial.lc 1839:5-1881:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1839:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1839:7-1839:42  String
-testdata/SampleMaterial.lc 1840:7-1840:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1840:7-1841:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1840:7-1842:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1840:7-1843:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1840:7-1844:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1840:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1841:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1842:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1843:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1844:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1840:7-1845:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1840:7-1846:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1840:7-1847:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3490,12 +8390,33 @@ testdata/SampleMaterial.lc 1848:30-1848:32  forall a . List a
 testdata/SampleMaterial.lc 1849:25-1849:30  Bool
 testdata/SampleMaterial.lc 1850:29-1850:34  Bool
 testdata/SampleMaterial.lc 1852:13-1878:14  List StageAttrs
-testdata/SampleMaterial.lc 1852:15-1852:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1852:15-1853:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1852:15-1854:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1852:15-1855:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1852:15-1856:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1852:15-1857:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1852:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1853:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1854:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1855:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1856:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1857:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1852:15-1858:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1852:15-1859:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1852:15-1860:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3515,12 +8436,33 @@ testdata/SampleMaterial.lc 1860:33-1860:41  DepthFunction
 testdata/SampleMaterial.lc 1861:33-1861:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1862:41-1862:46  Bool
 testdata/SampleMaterial.lc 1863:38-1863:54  String
-testdata/SampleMaterial.lc 1865:15-1865:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1865:15-1866:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1865:15-1867:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1865:15-1868:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1865:15-1869:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1865:15-1870:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1865:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1866:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1867:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1868:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1869:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1870:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1865:15-1871:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1865:15-1872:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1865:15-1873:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3546,11 +8488,31 @@ testdata/SampleMaterial.lc 1879:21-1879:26  Bool
 testdata/SampleMaterial.lc 1882:5-1924:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1882:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1882:7-1882:47  String
-testdata/SampleMaterial.lc 1883:7-1883:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1883:7-1884:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1883:7-1885:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1883:7-1886:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1883:7-1887:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1883:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1884:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1885:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1886:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1887:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1883:7-1888:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1883:7-1889:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1883:7-1890:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3570,12 +8532,33 @@ testdata/SampleMaterial.lc 1891:30-1891:32  forall a . List a
 testdata/SampleMaterial.lc 1892:25-1892:30  Bool
 testdata/SampleMaterial.lc 1893:29-1893:34  Bool
 testdata/SampleMaterial.lc 1895:13-1921:14  List StageAttrs
-testdata/SampleMaterial.lc 1895:15-1895:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1895:15-1896:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1895:15-1897:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1895:15-1898:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1895:15-1899:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1895:15-1900:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1895:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1896:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1897:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1898:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1899:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1900:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1895:15-1901:78  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1895:15-1902:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1895:15-1903:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3595,12 +8578,33 @@ testdata/SampleMaterial.lc 1903:33-1903:41  DepthFunction
 testdata/SampleMaterial.lc 1904:33-1904:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1905:41-1905:46  Bool
 testdata/SampleMaterial.lc 1906:38-1906:54  String
-testdata/SampleMaterial.lc 1908:15-1908:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1908:15-1909:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1908:15-1910:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1908:15-1911:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1908:15-1912:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1908:15-1913:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1908:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1909:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1910:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1911:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1912:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1913:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1908:15-1914:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1908:15-1915:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1908:15-1916:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3626,11 +8630,31 @@ testdata/SampleMaterial.lc 1922:21-1922:26  Bool
 testdata/SampleMaterial.lc 1925:5-1967:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1925:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1925:7-1925:38  String
-testdata/SampleMaterial.lc 1926:7-1926:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1926:7-1927:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1926:7-1928:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1926:7-1929:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1926:7-1930:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1926:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1927:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1928:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1929:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1930:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1926:7-1931:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1926:7-1932:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1926:7-1933:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3650,12 +8674,33 @@ testdata/SampleMaterial.lc 1934:30-1934:32  forall a . List a
 testdata/SampleMaterial.lc 1935:25-1935:30  Bool
 testdata/SampleMaterial.lc 1936:29-1936:34  Bool
 testdata/SampleMaterial.lc 1938:13-1964:14  List StageAttrs
-testdata/SampleMaterial.lc 1938:15-1938:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1938:15-1939:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1938:15-1940:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1938:15-1941:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1938:15-1942:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1938:15-1943:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1938:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1939:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1940:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1941:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1942:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1943:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1938:15-1944:69  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1938:15-1945:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1938:15-1946:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3675,12 +8720,33 @@ testdata/SampleMaterial.lc 1946:33-1946:41  DepthFunction
 testdata/SampleMaterial.lc 1947:33-1947:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1948:41-1948:46  Bool
 testdata/SampleMaterial.lc 1949:38-1949:54  String
-testdata/SampleMaterial.lc 1951:15-1951:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1951:15-1952:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1951:15-1953:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1951:15-1954:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1951:15-1955:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1951:15-1956:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1951:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1952:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1953:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1954:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1955:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1956:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1951:15-1957:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1951:15-1958:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1951:15-1959:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3706,11 +8772,31 @@ testdata/SampleMaterial.lc 1965:21-1965:26  Bool
 testdata/SampleMaterial.lc 1968:5-2010:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 1968:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 1968:7-1968:43  String
-testdata/SampleMaterial.lc 1969:7-1969:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1969:7-1970:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1969:7-1971:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1969:7-1972:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1969:7-1973:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1969:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1970:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1971:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1972:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1973:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1969:7-1974:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1969:7-1975:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 1969:7-1976:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3730,12 +8816,33 @@ testdata/SampleMaterial.lc 1977:30-1977:32  forall a . List a
 testdata/SampleMaterial.lc 1978:25-1978:30  Bool
 testdata/SampleMaterial.lc 1979:29-1979:34  Bool
 testdata/SampleMaterial.lc 1981:13-2007:14  List StageAttrs
-testdata/SampleMaterial.lc 1981:15-1981:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1981:15-1982:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1981:15-1983:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1981:15-1984:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1981:15-1985:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1981:15-1986:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1981:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1982:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1983:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1984:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1985:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1986:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1981:15-1987:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1981:15-1988:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1981:15-1989:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3755,12 +8862,33 @@ testdata/SampleMaterial.lc 1989:33-1989:41  DepthFunction
 testdata/SampleMaterial.lc 1990:33-1990:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1991:41-1991:46  Bool
 testdata/SampleMaterial.lc 1992:38-1992:53  String
-testdata/SampleMaterial.lc 1994:15-1994:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1994:15-1995:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1994:15-1996:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1994:15-1997:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1994:15-1998:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1994:15-1999:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1994:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1995:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1996:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1997:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1998:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1999:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1994:15-2000:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1994:15-2001:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 1994:15-2002:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3786,11 +8914,31 @@ testdata/SampleMaterial.lc 2008:21-2008:26  Bool
 testdata/SampleMaterial.lc 2011:5-2053:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 2011:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 2011:7-2011:36  String
-testdata/SampleMaterial.lc 2012:7-2012:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2012:7-2013:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2012:7-2014:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2012:7-2015:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2012:7-2016:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2012:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2013:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2014:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2015:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2016:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2012:7-2017:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2012:7-2018:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2012:7-2019:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3810,12 +8958,33 @@ testdata/SampleMaterial.lc 2020:30-2020:32  forall a . List a
 testdata/SampleMaterial.lc 2021:25-2021:30  Bool
 testdata/SampleMaterial.lc 2022:29-2022:34  Bool
 testdata/SampleMaterial.lc 2024:13-2050:14  List StageAttrs
-testdata/SampleMaterial.lc 2024:15-2024:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2024:15-2025:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2024:15-2026:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2024:15-2027:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2024:15-2028:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2024:15-2029:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2024:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2025:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2026:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2027:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2028:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2029:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2024:15-2030:67  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2024:15-2031:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2024:15-2032:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3835,12 +9004,33 @@ testdata/SampleMaterial.lc 2032:33-2032:41  DepthFunction
 testdata/SampleMaterial.lc 2033:33-2033:40  forall a . Maybe a
 testdata/SampleMaterial.lc 2034:41-2034:46  Bool
 testdata/SampleMaterial.lc 2035:38-2035:54  String
-testdata/SampleMaterial.lc 2037:15-2037:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2037:15-2038:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2037:15-2039:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2037:15-2040:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2037:15-2041:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2037:15-2042:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2037:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2038:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2039:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2040:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2041:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2042:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2037:15-2043:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2037:15-2044:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2037:15-2045:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3866,11 +9056,31 @@ testdata/SampleMaterial.lc 2051:21-2051:26  Bool
 testdata/SampleMaterial.lc 2054:5-2096:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 2054:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 2054:7-2054:40  String
-testdata/SampleMaterial.lc 2055:7-2055:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2055:7-2056:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2055:7-2057:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2055:7-2058:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2055:7-2059:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2055:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2056:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2057:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2058:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2059:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2055:7-2060:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2055:7-2061:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2055:7-2062:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3890,12 +9100,33 @@ testdata/SampleMaterial.lc 2063:30-2063:32  forall a . List a
 testdata/SampleMaterial.lc 2064:25-2064:30  Bool
 testdata/SampleMaterial.lc 2065:29-2065:34  Bool
 testdata/SampleMaterial.lc 2067:13-2093:14  List StageAttrs
-testdata/SampleMaterial.lc 2067:15-2067:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2067:15-2068:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2067:15-2069:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2067:15-2070:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2067:15-2071:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2067:15-2072:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2067:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2068:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2069:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2070:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2071:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2072:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2067:15-2073:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2067:15-2074:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2067:15-2075:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3915,12 +9146,33 @@ testdata/SampleMaterial.lc 2075:33-2075:41  DepthFunction
 testdata/SampleMaterial.lc 2076:33-2076:40  forall a . Maybe a
 testdata/SampleMaterial.lc 2077:41-2077:46  Bool
 testdata/SampleMaterial.lc 2078:38-2078:54  String
-testdata/SampleMaterial.lc 2080:15-2080:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2080:15-2081:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2080:15-2082:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2080:15-2083:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2080:15-2084:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2080:15-2085:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2080:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2081:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2082:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2083:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2084:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2085:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2080:15-2086:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2080:15-2087:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2080:15-2088:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3946,11 +9198,31 @@ testdata/SampleMaterial.lc 2094:21-2094:26  Bool
 testdata/SampleMaterial.lc 2097:5-2139:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 2097:5-2182:6  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 2097:7-2097:50  String
-testdata/SampleMaterial.lc 2098:7-2098:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2098:7-2099:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2098:7-2100:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2098:7-2101:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2098:7-2102:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2098:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2099:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2100:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2101:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2102:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2098:7-2103:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2098:7-2104:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2098:7-2105:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3970,12 +9242,33 @@ testdata/SampleMaterial.lc 2106:30-2106:32  forall a . List a
 testdata/SampleMaterial.lc 2107:25-2107:30  Bool
 testdata/SampleMaterial.lc 2108:29-2108:34  Bool
 testdata/SampleMaterial.lc 2110:13-2136:14  List StageAttrs
-testdata/SampleMaterial.lc 2110:15-2110:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2110:15-2111:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2110:15-2112:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2110:15-2113:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2110:15-2114:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2110:15-2115:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2110:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2111:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2112:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2113:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2114:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2115:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2110:15-2116:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2110:15-2117:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2110:15-2118:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3995,12 +9288,33 @@ testdata/SampleMaterial.lc 2118:33-2118:41  DepthFunction
 testdata/SampleMaterial.lc 2119:33-2119:40  forall a . Maybe a
 testdata/SampleMaterial.lc 2120:41-2120:46  Bool
 testdata/SampleMaterial.lc 2121:38-2121:53  String
-testdata/SampleMaterial.lc 2123:15-2123:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2123:15-2124:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2123:15-2125:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2123:15-2126:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2123:15-2127:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2123:15-2128:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2123:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2124:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2125:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2126:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2127:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2128:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2123:15-2129:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2123:15-2130:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2123:15-2131:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -4025,11 +9339,31 @@ testdata/SampleMaterial.lc 2134:38-2134:54  String
 testdata/SampleMaterial.lc 2137:21-2137:26  Bool
 testdata/SampleMaterial.lc 2140:5-2182:6  (String, CommonAttrs) | List (String, CommonAttrs)
 testdata/SampleMaterial.lc 2140:7-2140:50  String
-testdata/SampleMaterial.lc 2141:7-2141:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2141:7-2142:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2141:7-2143:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2141:7-2144:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2141:7-2145:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2141:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2142:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2143:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2144:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2145:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2141:7-2146:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2141:7-2147:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/SampleMaterial.lc 2141:7-2148:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -4049,12 +9383,33 @@ testdata/SampleMaterial.lc 2149:30-2149:32  forall a . List a
 testdata/SampleMaterial.lc 2150:25-2150:30  Bool
 testdata/SampleMaterial.lc 2151:29-2151:34  Bool
 testdata/SampleMaterial.lc 2153:13-2179:14  List StageAttrs
-testdata/SampleMaterial.lc 2153:15-2153:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2153:15-2154:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2153:15-2155:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2153:15-2156:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2153:15-2157:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2153:15-2158:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2153:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2154:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2155:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2156:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2157:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2158:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2153:15-2159:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2153:15-2160:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2153:15-2161:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -4074,12 +9429,33 @@ testdata/SampleMaterial.lc 2161:33-2161:41  DepthFunction
 testdata/SampleMaterial.lc 2162:33-2162:40  forall a . Maybe a
 testdata/SampleMaterial.lc 2163:41-2163:46  Bool
 testdata/SampleMaterial.lc 2164:38-2164:54  String
-testdata/SampleMaterial.lc 2166:15-2166:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2166:15-2167:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2166:15-2168:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2166:15-2169:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2166:15-2170:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2166:15-2171:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2166:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2167:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2168:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2169:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2170:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2171:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2166:15-2172:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2166:15-2173:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/SampleMaterial.lc 2166:15-2174:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
diff --git a/testdata/Spiral.out b/testdata/Spiral.out
index f08fa25a..070dbd1c 100644
--- a/testdata/Spiral.out
+++ b/testdata/Spiral.out
@@ -25,8 +25,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -34,33 +33,23 @@ Pipeline
               in vec3 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (0.5
-                                      ,(MVP) * (vec4 ((exp
-                                                     ((((Mouse).x) - (0.5)) * ((vi1).x))) * (sin
-                                                     ((0.9) * ((vi1).x)))
-                                                     ,(exp
-                                                     ((((Mouse).x) - (0.5)) * ((vi1).x))) * (cos
+                                      ,(MVP) * (vec4 ((exp ((((Mouse).x) - (0.5)) * ((vi1).x))) * (sin
                                                      ((0.9) * ((vi1).x)))
+                                                     ,(exp ((((Mouse).x) - (0.5)) * ((vi1).x))) * (cos ((0.9) * ((vi1).x)))
                                                      ,((Mouse).y) * ((0.9) * ((vi1).x))
                                                      ,1.0)));
-                  vo1 = vec4 ((vi1).x
-                             ,(vi1).y
-                             ,(vi1).z
-                             ,1.0);
+                  vo1 = vec4 ((vi1).x,(vi1).y,(vi1).z,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/ambig.out b/testdata/ambig.out
index 35d323b3..ca10ff27 100644
--- a/testdata/ambig.out
+++ b/testdata/ambig.out
@@ -1,3 +1,16 @@
+------------ desugared source code
+h
+  = \(a :: _) (b :: _) -> \_ -> _rhs
+    \(c
+      := _rhs
+        ((\(d :: _) -> hlistConsCase
+            (_ :: _)
+            \(e :: _) (f :: _) -> hlistConsCase
+              (_ :: _)
+              \(g :: _) (h :: _) -> hlistNilCase (_ :: _) (a e g) h
+              f
+            d)
+          b)) -> c
 main is not found
 ------------ trace
 h :: forall a b c d . (b -> d -> c) -> (b, d) -> a -> c
diff --git a/testdata/complex.out b/testdata/complex.out
index 2a357e18..4c7e0d46 100644
--- a/testdata/complex.out
+++ b/testdata/complex.out
@@ -1,14 +1,113 @@
+------------ desugared source code
+data Repr :: Type where
+    Normal :: Repr
+    Polar :: Repr
+data Complex :: Repr -> Type where
+    Complex :: forall (a :: _) . Float -> Float -> Complex a
+repr = (\ @(a :: _) -> \_ -> _rhs a) :: forall (b :: _) . Complex b -> Repr
+normal
+  = (\(a :: _) (b :: _) -> _rhs (Complex a b)) :: Float -> Float -> Complex Normal
+polar
+  = (\(a :: _) (b :: _) -> _rhs (Complex a b)) :: Float -> Float -> Complex Polar
+cabs
+  = (\ @(a :: _) (b :: _) -> 'ReprCase
+      \_ -> _ :: _
+      ('ComplexCase
+        \_ -> \_ -> _ :: _
+        \(c :: _) (d :: _) -> _rhs (sqrt (c * c + d * d))
+        b)
+      ('ComplexCase \_ -> \_ -> _ :: _ \(e :: _) -> \_ -> _rhs e b)
+      a)
+    :: forall (f :: _) . Complex f -> Float
+toPolar
+  = (\(a :: _) -> 'ComplexCase
+      \_ -> \_ -> _ :: _
+      \(b :: _) (c :: _) -> _rhs
+        \(d := _rhs (sqrt (b * b + c * c))) -> primIfThenElse
+          (b > 0.0)
+          (polar d (atan (c / b)))
+          (primIfThenElse
+            (b < 0.0 && c >= 0.0)
+            (polar d (atan (c / b) + pi))
+            (primIfThenElse
+              (b < 0.0 && c < 0.0)
+              (polar d (atan (c / b) - pi))
+              (primIfThenElse
+                (b == 0.0 && c >= 0.0)
+                (polar d (pi / 2.0))
+                (primIfThenElse
+                  (b == 0.0 && c < 0.0)
+                  (polar d (fromInt 0 - pi / 2.0))
+                  undefined))))
+      a)
+    :: Complex Normal -> Complex Polar
+toNormal
+  = (\(a :: _) -> 'ComplexCase
+      \_ -> \_ -> _ :: _
+      \(b :: _) (c :: _) -> _rhs (Complex (b * cos c) (b * sin c))
+      a)
+    :: Complex Polar -> Complex Normal
+it_should_fail
+  = \(a :: _) -> 'ComplexCase \_ -> \_ -> _ :: _ \(b :: _) -> \_ -> _rhs b a
+add
+  = (\ @(a :: _) @(b :: _) (c :: _) (d :: _) -> 'ReprCase
+      \_ -> _ :: _
+      ('ReprCase
+        \_ -> _ :: _
+        ('ComplexCase
+          \_ -> \_ -> _ :: _
+          \(e :: _) (f :: _) -> 'ComplexCase
+            \_ -> \_ -> _ :: _
+            \(g :: _) (h :: _) -> _rhs (Complex (e + g) (f + h))
+            d
+          c)
+        (_rhs undefined)
+        b)
+      (_rhs undefined)
+      a)
+    :: forall (i :: _) (j :: _) . Complex i -> Complex j -> Complex i
+mul
+  = (\ @(a :: _) @(b :: _) (c :: _) (d :: _) -> 'ReprCase
+      \_ -> _ :: _
+      ('ReprCase
+        \_ -> _ :: _
+        ('ComplexCase
+          \_ -> \_ -> _ :: _
+          \(e :: _) (f :: _) -> 'ComplexCase
+            \_ -> \_ -> _ :: _
+            \(g :: _) (h :: _) -> _rhs (Complex (e * g - f * h) (f * g + e * h))
+            d
+          c)
+        (_rhs undefined)
+        b)
+      (_rhs undefined)
+      a)
+    :: forall (i :: _) (j :: _) . Complex i -> Complex j -> Complex i
+s
+  = (\(a :: _) -> _rhs (mul a a `add` a))
+    :: forall (b :: _) . Complex b -> Complex b
+s4 = \(a :: _) -> _rhs (s (s (s (s a))))
+iter = _rhs s4
+mandel = \(a :: _) -> _rhs (cabs (iter a) < 2.0)
 main is not found
 ------------ trace
 'Repr :: Type
 Normal :: Repr
 Polar :: Repr
-'ReprCase :: forall (a :: Repr -> Type) -> a 'Normal -> a 'Polar -> forall (b :: Repr) -> a b
+'ReprCase
+  :: 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
-'ComplexCase :: 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
-match'Complex :: forall (a :: Type -> Type) -> (forall (b :: Repr) -> a (Complex b)) -> forall c -> a c -> a c
+'ComplexCase
+  :: 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
+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
 normal :: Float -> Float -> Complex 'Normal
 polar :: Float -> Float -> Complex 'Polar
diff --git a/testdata/data.out b/testdata/data.out
index bf9da023..498f6f32 100644
--- a/testdata/data.out
+++ b/testdata/data.out
@@ -1,19 +1,82 @@
+------------ desugared source code
+data Data0 :: Type where
+    Data0 :: Data0
+data Data1 (_ :: Type) (_ :: Type) (_ :: Type) :: Type where
+    Data1 :: _c -> _b -> _a -> Data1 _c _b _a
+data Data2 :: Type where
+    Data21 :: Int -> Data2
+    Data22 :: Int -> Int -> Data2
+    Data23 :: Int -> Data2
+    Data24 :: Data2
+x
+  = \(a :: _) -> 'Data2Case
+    \_ -> _ :: _
+    \_ -> _rhs undefined
+    \(b :: _) -> \_ -> _rhs b
+    \(c :: _) -> _rhs c
+    (_rhs undefined)
+    a
+y
+  = \(a :: _) -> 'Data2Case
+    \_ -> _ :: _
+    \_ -> _rhs undefined
+    \_ (b :: _) -> _rhs b
+    \_ -> _rhs undefined
+    (_rhs undefined)
+    a
+data Data5 (_ :: Type) (_ :: Type) (_ :: Type) :: Type where
+    Data51 :: _c -> Data5 _c _b _a
+    Data52 :: _c -> _b -> _a -> Data5 _c _b _a
+    Data53 :: Int -> _c -> Float -> _b -> _a -> Data5 _c _b _a
+a5
+  = \(a :: _) -> 'Data5Case
+    \_ -> _ :: _
+    \(b :: _) -> _rhs b
+    \(c :: _) -> \_ -> \_ -> _rhs c
+    \_ -> \_ -> \_ -> \_ -> \_ -> _rhs undefined
+    a
+b5
+  = \(a :: _) -> 'Data5Case
+    \_ -> _ :: _
+    \_ -> _rhs undefined
+    \_ (b :: _) -> \_ -> _rhs b
+    \_ -> \_ -> \_ -> \_ -> \_ -> _rhs undefined
+    a
+c5
+  = \(a :: _) -> 'Data5Case
+    \_ -> _ :: _
+    \_ -> _rhs undefined
+    \_ -> \_ (b :: _) -> _rhs b
+    \_ -> \_ -> \_ -> \_ -> \_ -> _rhs undefined
+    a
 main is not found
 ------------ trace
 'Data0 :: Type
 Data0 :: Data0
-'Data0Case :: forall (a :: Data0 -> Type) -> a 'Data0 -> forall (b :: Data0) -> a b
+'Data0Case
+  :: 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
-'Data1Case :: 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
+'Data1Case
+  :: 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
-'Data2Case :: 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
+'Data2Case
+  :: 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
@@ -21,8 +84,17 @@ y :: Data2 -> Int
 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
-'Data5Case :: forall a b c . forall (d :: Data5 a b c -> Type) -> (forall (e :: a) -> d ('Data51 e)) -> (forall (f :: a) (g :: b) (h :: c) -> d ('Data52 f g h)) -> (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
-match'Data5 :: forall (a :: Type -> Type) -> (forall b c d -> a (Data5 b c d)) -> forall e -> a e -> a e
+'Data5Case
+  :: forall a b c
+    . forall (d :: Data5 a b c -> Type)
+      -> (forall (e :: a) -> d ('Data51 e))
+        -> (forall (f :: a) (g :: b) (h :: c) -> d ('Data52 f g h))
+          -> (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
+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
diff --git a/testdata/editor-examples/Cube.out b/testdata/editor-examples/Cube.out
index e2c21c01..b3b01bfd 100644
--- a/testdata/editor-examples/Cube.out
+++ b/testdata/editor-examples/Cube.out
@@ -24,8 +24,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -35,118 +34,62 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
               }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
               }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
                   gl_Position = scale (0.5
-                                      ,(((perspective (0.1
-                                                      ,100.0
-                                                      ,0.5235987755982988
-                                                      ,1.0)) * (lookat (vec3 (3.0
-                                                                             ,1.3
-                                                                             ,0.3)
-                                                                       ,vec3 (0.0,0.0,0.0)
-                                                                       ,vec3 (0.0
-                                                                             ,1.0
-                                                                             ,0.0)))) * (rotMatrixY
-                                      ((0.1308996938995747) * (Time)))) * (vi1));
+                                      ,(((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3 (3.0
+                                                                                                          ,1.3
+                                                                                                          ,0.3)
+                                                                                                    ,vec3 (0.0,0.0,0.0)
+                                                                                                    ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)))) * (vi1));
                   vo1 = vi1;
               }
               """
@@ -154,8 +97,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/editor-examples/Heartbeat.out b/testdata/editor-examples/Heartbeat.out
index dac805c6..6c435c7e 100644
--- a/testdata/editor-examples/Heartbeat.out
+++ b/testdata/editor-examples/Heartbeat.out
@@ -79,39 +79,31 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               in vec2 vi2;
               smooth out vec2 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (1.0,vi1);
-                  vo1 = vec2 ((vi2).x
-                             ,(1.0) - ((vi2).y));
+                  vo1 = vec2 ((vi2).x,(1.0) - ((vi2).y));
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec2 vo1;
               out vec4 f0;
-              vec4 rgb(float z0
-                      ,float z1
-                      ,float z2) {
+              vec4 rgb(float z0,float z1,float z2) {
                   return vec4 (z0,z1,z2,1.0);
               }
               vec4 blue;
@@ -122,21 +114,17 @@ Pipeline
               void main() {
                   blue = rgb (0.0,0.0,1.0);
                   navy = rgb (0.0,0.0,0.5);
-                  ti = abs ((sin
-                      ((Time) * (4.0))) - (0.37));
+                  ti = abs ((sin ((Time) * (4.0))) - (0.37));
                   white = rgb (1.0,1.0,1.0);
                   yellow = rgb (1.0,1.0,0.0);
                   f0 =
                       ((((((vo1).x) - (0.85)) * (((vo1).x) - (0.85))) + ((((vo1).y) - (0.85)) * (((vo1).y) - (0.85)))) + ((5.0e-4) * (sin
-                      (((3.0) * (atan
-                      (((vo1).x) - (0.85)
-                      ,((vo1).y) - (0.85)))) + ((15.0) * (Time)))))) < ((5.0e-3) * (ti)) ? navy : ((((((vo1).x) - (0.85)) * (((vo1).x) - (0.85))) + ((((vo1).y) - (0.85)) * (((vo1).y) - (0.85)))) + ((2.0e-3) * (sin
-                      (((5.0) * (atan
-                      (((vo1).x) - (0.85)
-                      ,((vo1).y) - (0.85)))) - ((5.0) * (Time)))))) < ((2.0e-2) * (ti)) ? blue : ((((((vo1).x) - (0.85)) * (((vo1).x) - (0.85))) + ((((vo1).y) - (0.85)) * (((vo1).y) - (0.85)))) + ((2.0e-3) * (sin
-                      (((7.0) * (atan
-                      (((vo1).x) - (0.85)
-                      ,((vo1).y) - (0.85)))) + ((3.0) * (Time)))))) < ((5.0e-2) * (ti)) ? white : yellow;
+                      (((3.0) * (atan (((vo1).x) - (0.85)
+                                      ,((vo1).y) - (0.85)))) + ((15.0) * (Time)))))) < ((5.0e-3) * (ti)) ? navy : ((((((vo1).x) - (0.85)) * (((vo1).x) - (0.85))) + ((((vo1).y) - (0.85)) * (((vo1).y) - (0.85)))) + ((2.0e-3) * (sin
+                      (((5.0) * (atan (((vo1).x) - (0.85)
+                                      ,((vo1).y) - (0.85)))) - ((5.0) * (Time)))))) < ((2.0e-2) * (ti)) ? blue : ((((((vo1).x) - (0.85)) * (((vo1).x) - (0.85))) + ((((vo1).y) - (0.85)) * (((vo1).y) - (0.85)))) + ((2.0e-3) * (sin
+                      (((7.0) * (atan (((vo1).x) - (0.85)
+                                      ,((vo1).y) - (0.85)))) + ((3.0) * (Time)))))) < ((5.0e-2) * (ti)) ? white : yellow;
               }
               """
           }
@@ -152,8 +140,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -164,120 +151,63 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
               }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
               }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 projmat;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
-                  projmat = ((perspective (0.1
-                                          ,100.0
-                                          ,0.5235987755982988
-                                          ,1.0)) * (lookat (vec3 (3.0
-                                                                 ,1.3
-                                                                 ,0.3)
-                                                           ,vec3 (0.0,0.0,0.0)
-                                                           ,vec3 (0.0
-                                                                 ,1.0
-                                                                 ,0.0)))) * (rotMatrixY
-                      ((0.1308996938995747) * (Time)));
-                  gl_Position = scale (0.5
-                                      ,(projmat) * (vi1));
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
+                  projmat = ((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3 (3.0
+                                                                                              ,1.3
+                                                                                              ,0.3)
+                                                                                        ,vec3 (0.0,0.0,0.0)
+                                                                                        ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)));
+                  gl_Position = scale (0.5,(projmat) * (vi1));
                   vo1 = vi2;
               }
               """
@@ -285,8 +215,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D s0;
diff --git a/testdata/editor-examples/LambdaCube.out b/testdata/editor-examples/LambdaCube.out
index bd059d50..68796786 100644
--- a/testdata/editor-examples/LambdaCube.out
+++ b/testdata/editor-examples/LambdaCube.out
@@ -24,8 +24,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -33,46 +32,27 @@ Pipeline
               smooth out vec4 vo1;
               float phase;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               float smoothPhase;
               void main() {
                   phase = fract ((Time) * (0.2));
-                  smoothPhase =
-                      ((phase) * (phase)) * ((3.0) - ((2.0) * (phase)));
-                  gl_Position = scale
-                      ((0.2) + ((abs
-                      ((0.5) - (smoothPhase))) * (0.6))
-                      ,(rotMatrixY
-                      ((4.1) + ((smoothPhase) * (6.28318530718)))) * ((rotMatrixZ
-                      (2.35619449017)) * (vi1)));
+                  smoothPhase = ((phase) * (phase)) * ((3.0) - ((2.0) * (phase)));
+                  gl_Position = scale ((0.2) + ((abs ((0.5) - (smoothPhase))) * (0.6))
+                                      ,(rotMatrixY ((4.1) + ((smoothPhase) * (6.28318530718)))) * ((rotMatrixZ
+                                      (2.35619449017)) * (vi1)));
                   vo1 = vi1;
               }
               """
@@ -80,23 +60,19 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
               out vec4 f0;
-              vec4 rgb(float z0
-                      ,float z1
-                      ,float z2) {
+              vec4 rgb(float z0,float z1,float z2) {
                   return vec4 (z0,z1,z2,1.0);
               }
               vec4 black;
               vec4 leftSide(vec2 z0) {
                   return vec4 (0.0
                               ,1.0
-                              ,(dot (z0
-                                    ,vec2 (0.5,-0.5))) + (0.4)
+                              ,(dot (z0,vec2 (0.5,-0.5))) + (0.4)
                               ,((z0).y) > (0.75) ? 0.0 : 1.0);
               }
               vec4 rightSide_2(vec2 z0) {
@@ -106,27 +82,18 @@ Pipeline
                               ,((z0).y) > (0.75) ? 0.0 : 1.0);
               }
               vec4 topSide(vec2 z0) {
-                  return vec4 ((dot (z0
-                                    ,vec2 (-0.5,0.5))) + (0.4)
+                  return vec4 ((dot (z0,vec2 (-0.5,0.5))) + (0.4)
                               ,1.0
                               ,0.0
-                              ,((dot (z0
-                                     ,vec2 (1.0
-                                           ,-1.0))) > (-0.25)) && ((dot (z0
-                                                                        ,vec2 (1.0
-                                                                              ,-1.0))) < (0.0)) ? 0.0 : 1.0);
+                              ,((dot (z0,vec2 (1.0,-1.0))) > (-0.25)) && ((dot (z0
+                                                                               ,vec2 (1.0,-1.0))) < (0.0)) ? 0.0 : 1.0);
               }
               void main() {
                   black = rgb (0.0,0.0,0.0);
-                  f0 = (abs
-                      ((vo1).x)) > (0.99999) ? rightSide_2
-                      (((((vo1).yz) * (sign
-                      ((vo1).x))) * (0.5)) + (0.5)) : (abs
-                      ((vo1).y)) > (0.99999) ? topSide
-                      (((((vo1).zx) * (sign
-                      ((vo1).y))) * (0.5)) + (0.5)) : (abs
-                      ((vo1).z)) > (0.99999) ? leftSide
-                      (((((vo1).xy) * (sign
+                  f0 = (abs ((vo1).x)) > (0.99999) ? rightSide_2 (((((vo1).yz) * (sign
+                      ((vo1).x))) * (0.5)) + (0.5)) : (abs ((vo1).y)) > (0.99999) ? topSide
+                      (((((vo1).zx) * (sign ((vo1).y))) * (0.5)) + (0.5)) : (abs
+                      ((vo1).z)) > (0.99999) ? leftSide (((((vo1).xy) * (sign
                       ((vo1).z))) * (0.5)) + (0.5)) : black;
               }
               """
diff --git a/testdata/editor-examples/LambdaCube2.out b/testdata/editor-examples/LambdaCube2.out
index c17008e6..3bc6b019 100644
--- a/testdata/editor-examples/LambdaCube2.out
+++ b/testdata/editor-examples/LambdaCube2.out
@@ -24,8 +24,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -35,118 +34,62 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
               }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
               }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
                   gl_Position = scale (0.5
-                                      ,(((perspective (0.1
-                                                      ,100.0
-                                                      ,0.5235987755982988
-                                                      ,1.0)) * (lookat (vec3 (3.0
-                                                                             ,1.3
-                                                                             ,0.3)
-                                                                       ,vec3 (0.0,0.0,0.0)
-                                                                       ,vec3 (0.0
-                                                                             ,1.0
-                                                                             ,0.0)))) * (rotMatrixY
-                                      ((0.1308996938995747) * (Time)))) * (vi1));
+                                      ,(((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3 (3.0
+                                                                                                          ,1.3
+                                                                                                          ,0.3)
+                                                                                                    ,vec3 (0.0,0.0,0.0)
+                                                                                                    ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)))) * (vi1));
                   vo1 = vi1;
               }
               """
@@ -154,8 +97,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -170,9 +112,7 @@ Pipeline
                       (((((vo1).y) + ((vo1).x)) + ((vo1).z)) - (1.0))) > (0.25))) && (((((((vo1).y) - ((vo1).x)) - ((vo1).z)) > (1.0)) || ((abs
                       (((((vo1).y) + ((vo1).x)) - ((vo1).z)) - (1.0))) > (0.25))) && (((((((vo1).y) - ((vo1).x)) + ((vo1).z)) > (1.0)) || ((abs
                       (((((vo1).y) - ((vo1).x)) - ((vo1).z)) - (1.0))) > (0.25))) && ((len2_Float_4
-                      (sin ((vo1) * (20.0)))) > (abs
-                      ((3.0) * (sin
-                      ((1.0) * (Time))))))))))) discard;
+                      (sin ((vo1) * (20.0)))) > (abs ((3.0) * (sin ((1.0) * (Time))))))))))) discard;
                   f0 = vo1;
               }
               """
diff --git a/testdata/editor-examples/MagicCube.out b/testdata/editor-examples/MagicCube.out
index 63c04661..94e32a84 100644
--- a/testdata/editor-examples/MagicCube.out
+++ b/testdata/editor-examples/MagicCube.out
@@ -24,8 +24,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -35,118 +34,62 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
               }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
               }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
                   gl_Position = scale (0.5
-                                      ,(((perspective (0.1
-                                                      ,100.0
-                                                      ,0.5235987755982988
-                                                      ,1.0)) * (lookat (vec3 (3.0
-                                                                             ,1.3
-                                                                             ,0.3)
-                                                                       ,vec3 (0.0,0.0,0.0)
-                                                                       ,vec3 (0.0
-                                                                             ,1.0
-                                                                             ,0.0)))) * (rotMatrixY
-                                      ((0.1308996938995747) * (Time)))) * (vi1));
+                                      ,(((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3 (3.0
+                                                                                                          ,1.3
+                                                                                                          ,0.3)
+                                                                                                    ,vec3 (0.0,0.0,0.0)
+                                                                                                    ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)))) * (vi1));
                   vo1 = vi1;
               }
               """
@@ -154,181 +97,84 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               float f(float z0) {
-                  return (mod (((z0) + (sin
-                              (z0))) + (sin ((1.1) * (z0)))
-                              ,4.0)) * (2.0);
+                  return (mod (((z0) + (sin (z0))) + (sin ((1.1) * (z0))),4.0)) * (2.0);
               }
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
                   if (!((((((vo1).y) * ((vo1).y)) + (((vo1).x) * ((vo1).x))) + (((vo1).z) * ((vo1).z))) > (1.5))) discard;
-                  f0 = (vec4 (((vec3 (0.5
-                                     ,0.5
-                                     ,0.5)) + ((cos (((((rotMatrixZ
-                             (Time)) * ((rotMatrixY
-                             (Time)) * ((vec4 (((vec3 (0.5
-                                                      ,0.5
-                                                      ,0.5)) + ((cos (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).x
-                                              ,((vec3 (0.5,0.5,0.5)) + ((cos
-                                              (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).y
-                                              ,((vec3 (0.5,0.5,0.5)) + ((cos
-                                              (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).z
-                                              ,((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).w)) * ((1.0) + ((0.5) * (sin
-                             (Time))))))).xyz) + (vec3 (0.0
-                                                       ,0.1
-                                                       ,0.2))) * (6.28318))) * (0.5))).x
-                             ,((vec3 (0.5,0.5,0.5)) + ((cos
-                             (((((rotMatrixZ
-                             (Time)) * ((rotMatrixY
-                             (Time)) * ((vec4 (((vec3 (0.5
-                                                      ,0.5
-                                                      ,0.5)) + ((cos (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).x
-                                              ,((vec3 (0.5,0.5,0.5)) + ((cos
-                                              (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).y
-                                              ,((vec3 (0.5,0.5,0.5)) + ((cos
-                                              (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).z
-                                              ,((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).w)) * ((1.0) + ((0.5) * (sin
-                             (Time))))))).xyz) + (vec3 (0.0
-                                                       ,0.1
-                                                       ,0.2))) * (6.28318))) * (0.5))).y
-                             ,((vec3 (0.5,0.5,0.5)) + ((cos
-                             (((((rotMatrixZ
-                             (Time)) * ((rotMatrixY
-                             (Time)) * ((vec4 (((vec3 (0.5
-                                                      ,0.5
-                                                      ,0.5)) + ((cos (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).x
-                                              ,((vec3 (0.5,0.5,0.5)) + ((cos
-                                              (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).y
-                                              ,((vec3 (0.5,0.5,0.5)) + ((cos
-                                              (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).z
-                                              ,((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).w)) * ((1.0) + ((0.5) * (sin
-                             (Time))))))).xyz) + (vec3 (0.0
-                                                       ,0.1
-                                                       ,0.2))) * (6.28318))) * (0.5))).z
-                             ,((rotMatrixZ
-                             (Time)) * ((rotMatrixY
-                             (Time)) * ((vec4 (((vec3 (0.5
-                                                      ,0.5
-                                                      ,0.5)) + ((cos (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).x
-                                              ,((vec3 (0.5,0.5,0.5)) + ((cos
-                                              (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).y
-                                              ,((vec3 (0.5,0.5,0.5)) + ((cos
-                                              (((((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).xyz) + (vec3
-                                              (0.0
-                                              ,0.1
-                                              ,0.2))) * (6.28318))) * (0.5))).z
-                                              ,((rotMatrixX
-                                              (Time)) * ((rotMatrixY
-                                              (Time)) * (vo1))).w)) * ((1.0) + ((0.5) * (sin
-                             (Time))))))).w)) * (f (Time));
+                  f0 = (vec4 (((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixZ (Time)) * ((rotMatrixY
+                             (Time)) * ((vec4 (((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX
+                                              (Time)) * ((rotMatrixY (Time)) * (vo1))).xyz) + (vec3 (0.0
+                                                                                                    ,0.1
+                                                                                                    ,0.2))) * (6.28318))) * (0.5))).x
+                                              ,((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX (Time)) * ((rotMatrixY
+                                              (Time)) * (vo1))).xyz) + (vec3 (0.0,0.1,0.2))) * (6.28318))) * (0.5))).y
+                                              ,((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX (Time)) * ((rotMatrixY
+                                              (Time)) * (vo1))).xyz) + (vec3 (0.0,0.1,0.2))) * (6.28318))) * (0.5))).z
+                                              ,((rotMatrixX (Time)) * ((rotMatrixY
+                                              (Time)) * (vo1))).w)) * ((1.0) + ((0.5) * (sin (Time))))))).xyz) + (vec3 (0.0
+                                                                                                                       ,0.1
+                                                                                                                       ,0.2))) * (6.28318))) * (0.5))).x
+                             ,((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixZ (Time)) * ((rotMatrixY
+                             (Time)) * ((vec4 (((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX
+                                              (Time)) * ((rotMatrixY (Time)) * (vo1))).xyz) + (vec3 (0.0
+                                                                                                    ,0.1
+                                                                                                    ,0.2))) * (6.28318))) * (0.5))).x
+                                              ,((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX (Time)) * ((rotMatrixY
+                                              (Time)) * (vo1))).xyz) + (vec3 (0.0,0.1,0.2))) * (6.28318))) * (0.5))).y
+                                              ,((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX (Time)) * ((rotMatrixY
+                                              (Time)) * (vo1))).xyz) + (vec3 (0.0,0.1,0.2))) * (6.28318))) * (0.5))).z
+                                              ,((rotMatrixX (Time)) * ((rotMatrixY
+                                              (Time)) * (vo1))).w)) * ((1.0) + ((0.5) * (sin (Time))))))).xyz) + (vec3 (0.0
+                                                                                                                       ,0.1
+                                                                                                                       ,0.2))) * (6.28318))) * (0.5))).y
+                             ,((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixZ (Time)) * ((rotMatrixY
+                             (Time)) * ((vec4 (((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX
+                                              (Time)) * ((rotMatrixY (Time)) * (vo1))).xyz) + (vec3 (0.0
+                                                                                                    ,0.1
+                                                                                                    ,0.2))) * (6.28318))) * (0.5))).x
+                                              ,((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX (Time)) * ((rotMatrixY
+                                              (Time)) * (vo1))).xyz) + (vec3 (0.0,0.1,0.2))) * (6.28318))) * (0.5))).y
+                                              ,((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX (Time)) * ((rotMatrixY
+                                              (Time)) * (vo1))).xyz) + (vec3 (0.0,0.1,0.2))) * (6.28318))) * (0.5))).z
+                                              ,((rotMatrixX (Time)) * ((rotMatrixY
+                                              (Time)) * (vo1))).w)) * ((1.0) + ((0.5) * (sin (Time))))))).xyz) + (vec3 (0.0
+                                                                                                                       ,0.1
+                                                                                                                       ,0.2))) * (6.28318))) * (0.5))).z
+                             ,((rotMatrixZ (Time)) * ((rotMatrixY (Time)) * ((vec4 (((vec3 (0.5
+                                                                                           ,0.5
+                                                                                           ,0.5)) + ((cos (((((rotMatrixX (Time)) * ((rotMatrixY
+                                                                                   (Time)) * (vo1))).xyz) + (vec3 (0.0,0.1,0.2))) * (6.28318))) * (0.5))).x
+                                                                                   ,((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX (Time)) * ((rotMatrixY
+                                                                                   (Time)) * (vo1))).xyz) + (vec3 (0.0,0.1,0.2))) * (6.28318))) * (0.5))).y
+                                                                                   ,((vec3 (0.5,0.5,0.5)) + ((cos (((((rotMatrixX (Time)) * ((rotMatrixY
+                                                                                   (Time)) * (vo1))).xyz) + (vec3 (0.0,0.1,0.2))) * (6.28318))) * (0.5))).z
+                                                                                   ,((rotMatrixX (Time)) * ((rotMatrixY
+                                                                                   (Time)) * (vo1))).w)) * ((1.0) + ((0.5) * (sin (Time))))))).w)) * (f (Time));
               }
               """
           }
diff --git a/testdata/editor-examples/RecLC.out b/testdata/editor-examples/RecLC.out
index 6d9f31d8..7c4393e1 100644
--- a/testdata/editor-examples/RecLC.out
+++ b/testdata/editor-examples/RecLC.out
@@ -129,8 +129,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -140,118 +139,62 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
-              }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
-              }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
+              }
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
+              }
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
                   gl_Position = scale (0.5
-                                      ,(((perspective (0.1
-                                                      ,100.0
-                                                      ,0.5235987755982988
-                                                      ,1.0)) * (lookat (vec3 (3.0
-                                                                             ,1.3
-                                                                             ,0.3)
-                                                                       ,vec3 (0.0,0.0,0.0)
-                                                                       ,vec3 (0.0
-                                                                             ,1.0
-                                                                             ,0.0)))) * (rotMatrixY
-                                      ((0.1308996938995747) * (Time)))) * (vi1));
+                                      ,(((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3 (3.0
+                                                                                                          ,1.3
+                                                                                                          ,0.3)
+                                                                                                    ,vec3 (0.0,0.0,0.0)
+                                                                                                    ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)))) * (vi1));
                   vo1 = vi1;
               }
               """
@@ -259,8 +202,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -275,9 +217,7 @@ Pipeline
                       (((((vo1).y) + ((vo1).x)) + ((vo1).z)) - (1.0))) > (0.25))) && (((((((vo1).y) - ((vo1).x)) - ((vo1).z)) > (1.0)) || ((abs
                       (((((vo1).y) + ((vo1).x)) - ((vo1).z)) - (1.0))) > (0.25))) && (((((((vo1).y) - ((vo1).x)) + ((vo1).z)) > (1.0)) || ((abs
                       (((((vo1).y) - ((vo1).x)) - ((vo1).z)) - (1.0))) > (0.25))) && ((len2_Float_4
-                      (sin ((vo1) * (20.0)))) > (abs
-                      ((3.0) * (sin
-                      ((1.0) * (Time))))))))))) discard;
+                      (sin ((vo1) * (20.0)))) > (abs ((3.0) * (sin ((1.0) * (Time))))))))))) discard;
                   f0 = vo1;
               }
               """
@@ -294,8 +234,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -306,136 +245,68 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
-              }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
-              }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
+              }
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
+              }
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrix;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
-                  rotMatrix = ((perspective (0.1
-                                            ,100.0
-                                            ,0.5235987755982988
-                                            ,1.0)) * (lookat (vec3 (3.0
-                                                                   ,1.3
-                                                                   ,0.3)
-                                                             ,vec3 (0.0,0.0,0.0)
-                                                             ,vec3 (0.0
-                                                                   ,1.0
-                                                                   ,0.0)))) * (rotMatrixY
-                      ((0.1308996938995747) * (Time)));
-                  gl_Position =
-                      (rotMatrix) * (scale (0.4
-                                           ,(rotMatrixX (0.0)) * (vi1)));
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
+                  rotMatrix = ((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3
+                                                                                          (3.0,1.3,0.3)
+                                                                                          ,vec3 (0.0,0.0,0.0)
+                                                                                          ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)));
+                  gl_Position = (rotMatrix) * (scale (0.4,(rotMatrixX (0.0)) * (vi1)));
                   vo1 = vi2;
               }
               """
@@ -443,26 +314,17 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D s0;
               smooth in vec2 vo1;
               out vec4 f0;
               vec4 setAlpha(vec4 z0) {
-                  return ((z0) * (vec4 (1.0
-                                       ,1.0
-                                       ,1.0
-                                       ,0.0))) + (vec4 (0.0
-                                                       ,0.0
-                                                       ,0.0
-                                                       ,1.0));
+                  return ((z0) * (vec4 (1.0,1.0,1.0,0.0))) + (vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  f0 = setAlpha
-                      (((((vo1).yyyx) * (0.5)) + (texture2D
-                      (s0,vo1))) * (0.7));
+                  f0 = setAlpha (((((vo1).yyyx) * (0.5)) + (texture2D (s0,vo1))) * (0.7));
               }
               """
           }
@@ -478,8 +340,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -490,136 +351,68 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
-              }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
-              }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
+              }
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
+              }
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrix;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
-                  rotMatrix = ((perspective (0.1
-                                            ,100.0
-                                            ,0.5235987755982988
-                                            ,1.0)) * (lookat (vec3 (3.0
-                                                                   ,1.3
-                                                                   ,0.3)
-                                                             ,vec3 (0.0,0.0,0.0)
-                                                             ,vec3 (0.0
-                                                                   ,1.0
-                                                                   ,0.0)))) * (rotMatrixY
-                      ((0.1308996938995747) * (Time)));
-                  gl_Position =
-                      (rotMatrix) * (scale (0.4
-                                           ,(rotMatrixX (0.1)) * (vi1)));
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
+                  rotMatrix = ((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3
+                                                                                          (3.0,1.3,0.3)
+                                                                                          ,vec3 (0.0,0.0,0.0)
+                                                                                          ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)));
+                  gl_Position = (rotMatrix) * (scale (0.4,(rotMatrixX (0.1)) * (vi1)));
                   vo1 = vi2;
               }
               """
@@ -627,26 +420,17 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D s0;
               smooth in vec2 vo1;
               out vec4 f0;
               vec4 setAlpha(vec4 z0) {
-                  return ((z0) * (vec4 (1.0
-                                       ,1.0
-                                       ,1.0
-                                       ,0.0))) + (vec4 (0.0
-                                                       ,0.0
-                                                       ,0.0
-                                                       ,1.0));
+                  return ((z0) * (vec4 (1.0,1.0,1.0,0.0))) + (vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  f0 = setAlpha
-                      (((((vo1).yyyx) * (0.5)) + (texture2D
-                      (s0,vo1))) * (0.7));
+                  f0 = setAlpha (((((vo1).yyyx) * (0.5)) + (texture2D (s0,vo1))) * (0.7));
               }
               """
           }
diff --git a/testdata/editor-examples/RecursiveTexture.out b/testdata/editor-examples/RecursiveTexture.out
index 22c6a002..d008848d 100644
--- a/testdata/editor-examples/RecursiveTexture.out
+++ b/testdata/editor-examples/RecursiveTexture.out
@@ -287,8 +287,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -299,136 +298,68 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
-              }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
-              }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
+              }
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
+              }
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrix;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
-                  rotMatrix = ((perspective (0.1
-                                            ,100.0
-                                            ,0.5235987755982988
-                                            ,1.0)) * (lookat (vec3 (3.0
-                                                                   ,1.3
-                                                                   ,0.3)
-                                                             ,vec3 (0.0,0.0,0.0)
-                                                             ,vec3 (0.0
-                                                                   ,1.0
-                                                                   ,0.0)))) * (rotMatrixY
-                      ((0.1308996938995747) * (Time)));
-                  gl_Position =
-                      (rotMatrix) * (scale (0.4
-                                           ,(rotMatrixX (0.0)) * (vi1)));
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
+                  rotMatrix = ((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3
+                                                                                          (3.0,1.3,0.3)
+                                                                                          ,vec3 (0.0,0.0,0.0)
+                                                                                          ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)));
+                  gl_Position = (rotMatrix) * (scale (0.4,(rotMatrixX (0.0)) * (vi1)));
                   vo1 = vi2;
               }
               """
@@ -436,26 +367,17 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D s0;
               smooth in vec2 vo1;
               out vec4 f0;
               vec4 setAlpha(vec4 z0) {
-                  return ((z0) * (vec4 (1.0
-                                       ,1.0
-                                       ,1.0
-                                       ,0.0))) + (vec4 (0.0
-                                                       ,0.0
-                                                       ,0.0
-                                                       ,1.0));
+                  return ((z0) * (vec4 (1.0,1.0,1.0,0.0))) + (vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  f0 = setAlpha
-                      (((((vo1).yyyx) * (0.5)) + (texture2D
-                      (s0,vo1))) * (0.7));
+                  f0 = setAlpha (((((vo1).yyyx) * (0.5)) + (texture2D (s0,vo1))) * (0.7));
               }
               """
           }
@@ -471,8 +393,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -483,136 +404,68 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
-              }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
-              }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
+              }
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
+              }
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrix;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
-                  rotMatrix = ((perspective (0.1
-                                            ,100.0
-                                            ,0.5235987755982988
-                                            ,1.0)) * (lookat (vec3 (3.0
-                                                                   ,1.3
-                                                                   ,0.3)
-                                                             ,vec3 (0.0,0.0,0.0)
-                                                             ,vec3 (0.0
-                                                                   ,1.0
-                                                                   ,0.0)))) * (rotMatrixY
-                      ((0.1308996938995747) * (Time)));
-                  gl_Position =
-                      (rotMatrix) * (scale (0.4
-                                           ,(rotMatrixX (0.1)) * (vi1)));
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
+                  rotMatrix = ((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3
+                                                                                          (3.0,1.3,0.3)
+                                                                                          ,vec3 (0.0,0.0,0.0)
+                                                                                          ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)));
+                  gl_Position = (rotMatrix) * (scale (0.4,(rotMatrixX (0.1)) * (vi1)));
                   vo1 = vi2;
               }
               """
@@ -620,26 +473,17 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D s0;
               smooth in vec2 vo1;
               out vec4 f0;
               vec4 setAlpha(vec4 z0) {
-                  return ((z0) * (vec4 (1.0
-                                       ,1.0
-                                       ,1.0
-                                       ,0.0))) + (vec4 (0.0
-                                                       ,0.0
-                                                       ,0.0
-                                                       ,1.0));
+                  return ((z0) * (vec4 (1.0,1.0,1.0,0.0))) + (vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  f0 = setAlpha
-                      (((((vo1).yyyx) * (0.5)) + (texture2D
-                      (s0,vo1))) * (0.7));
+                  f0 = setAlpha (((((vo1).yyyx) * (0.5)) + (texture2D (s0,vo1))) * (0.7));
               }
               """
           }
@@ -655,8 +499,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -667,136 +510,68 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
-              }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
-              }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
+              }
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
+              }
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrix;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
-                  rotMatrix = ((perspective (0.1
-                                            ,100.0
-                                            ,0.5235987755982988
-                                            ,1.0)) * (lookat (vec3 (3.0
-                                                                   ,1.3
-                                                                   ,0.3)
-                                                             ,vec3 (0.0,0.0,0.0)
-                                                             ,vec3 (0.0
-                                                                   ,1.0
-                                                                   ,0.0)))) * (rotMatrixY
-                      ((0.1308996938995747) * (Time)));
-                  gl_Position =
-                      (rotMatrix) * (scale (0.4
-                                           ,(rotMatrixX (0.2)) * (vi1)));
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
+                  rotMatrix = ((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3
+                                                                                          (3.0,1.3,0.3)
+                                                                                          ,vec3 (0.0,0.0,0.0)
+                                                                                          ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)));
+                  gl_Position = (rotMatrix) * (scale (0.4,(rotMatrixX (0.2)) * (vi1)));
                   vo1 = vi2;
               }
               """
@@ -804,26 +579,17 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D s0;
               smooth in vec2 vo1;
               out vec4 f0;
               vec4 setAlpha(vec4 z0) {
-                  return ((z0) * (vec4 (1.0
-                                       ,1.0
-                                       ,1.0
-                                       ,0.0))) + (vec4 (0.0
-                                                       ,0.0
-                                                       ,0.0
-                                                       ,1.0));
+                  return ((z0) * (vec4 (1.0,1.0,1.0,0.0))) + (vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  f0 = setAlpha
-                      (((((vo1).yyyx) * (0.5)) + (texture2D
-                      (s0,vo1))) * (0.7));
+                  f0 = setAlpha (((((vo1).yyyx) * (0.5)) + (texture2D (s0,vo1))) * (0.7));
               }
               """
           }
@@ -839,8 +605,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -851,136 +616,68 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
-              }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
-              }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
+              }
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
+              }
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrix;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
-                  rotMatrix = ((perspective (0.1
-                                            ,100.0
-                                            ,0.5235987755982988
-                                            ,1.0)) * (lookat (vec3 (3.0
-                                                                   ,1.3
-                                                                   ,0.3)
-                                                             ,vec3 (0.0,0.0,0.0)
-                                                             ,vec3 (0.0
-                                                                   ,1.0
-                                                                   ,0.0)))) * (rotMatrixY
-                      ((0.1308996938995747) * (Time)));
-                  gl_Position =
-                      (rotMatrix) * (scale (0.4
-                                           ,(rotMatrixX (0.3)) * (vi1)));
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
+                  rotMatrix = ((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3
+                                                                                          (3.0,1.3,0.3)
+                                                                                          ,vec3 (0.0,0.0,0.0)
+                                                                                          ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)));
+                  gl_Position = (rotMatrix) * (scale (0.4,(rotMatrixX (0.3)) * (vi1)));
                   vo1 = vi2;
               }
               """
@@ -988,26 +685,17 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D s0;
               smooth in vec2 vo1;
               out vec4 f0;
               vec4 setAlpha(vec4 z0) {
-                  return ((z0) * (vec4 (1.0
-                                       ,1.0
-                                       ,1.0
-                                       ,0.0))) + (vec4 (0.0
-                                                       ,0.0
-                                                       ,0.0
-                                                       ,1.0));
+                  return ((z0) * (vec4 (1.0,1.0,1.0,0.0))) + (vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  f0 = setAlpha
-                      (((((vo1).yyyx) * (0.5)) + (texture2D
-                      (s0,vo1))) * (0.7));
+                  f0 = setAlpha (((((vo1).yyyx) * (0.5)) + (texture2D (s0,vo1))) * (0.7));
               }
               """
           }
@@ -1023,8 +711,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -1035,136 +722,68 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
-              }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
-              }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
+              }
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
+              }
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrix;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
-                  rotMatrix = ((perspective (0.1
-                                            ,100.0
-                                            ,0.5235987755982988
-                                            ,1.0)) * (lookat (vec3 (3.0
-                                                                   ,1.3
-                                                                   ,0.3)
-                                                             ,vec3 (0.0,0.0,0.0)
-                                                             ,vec3 (0.0
-                                                                   ,1.0
-                                                                   ,0.0)))) * (rotMatrixY
-                      ((0.1308996938995747) * (Time)));
-                  gl_Position =
-                      (rotMatrix) * (scale (0.4
-                                           ,(rotMatrixX (0.4)) * (vi1)));
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
+                  rotMatrix = ((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3
+                                                                                          (3.0,1.3,0.3)
+                                                                                          ,vec3 (0.0,0.0,0.0)
+                                                                                          ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)));
+                  gl_Position = (rotMatrix) * (scale (0.4,(rotMatrixX (0.4)) * (vi1)));
                   vo1 = vi2;
               }
               """
@@ -1172,26 +791,17 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D s0;
               smooth in vec2 vo1;
               out vec4 f0;
               vec4 setAlpha(vec4 z0) {
-                  return ((z0) * (vec4 (1.0
-                                       ,1.0
-                                       ,1.0
-                                       ,0.0))) + (vec4 (0.0
-                                                       ,0.0
-                                                       ,0.0
-                                                       ,1.0));
+                  return ((z0) * (vec4 (1.0,1.0,1.0,0.0))) + (vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  f0 = setAlpha
-                      (((((vo1).yyyx) * (0.5)) + (texture2D
-                      (s0,vo1))) * (0.7));
+                  f0 = setAlpha (((((vo1).yyyx) * (0.5)) + (texture2D (s0,vo1))) * (0.7));
               }
               """
           }
diff --git a/testdata/editor-examples/Stripes.out b/testdata/editor-examples/Stripes.out
index 96aca729..a5172e9e 100644
--- a/testdata/editor-examples/Stripes.out
+++ b/testdata/editor-examples/Stripes.out
@@ -24,17 +24,13 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (1.0,vi1);
@@ -45,41 +41,26 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  if (!((sin
-                      ((10.0) * (((rotMatrixY
-                      (Time)) * ((rotMatrixZ
+                  if (!((sin ((10.0) * (((rotMatrixY (Time)) * ((rotMatrixZ
                       ((Time) * (1.0))) * (vo1))).x))) > (0.5))) discard;
                   f0 = vec4 (0.0,0.0,0.0,1.0);
               }
@@ -95,17 +76,13 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (0.9,vi1);
@@ -116,46 +93,28 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  if (!((sin
-                      ((10.0) * (((rotMatrixY
-                      (Time)) * ((rotMatrixZ
+                  if (!((sin ((10.0) * (((rotMatrixY (Time)) * ((rotMatrixZ
                       ((Time) * (0.9))) * (vo1))).x))) > (0.5))) discard;
-                  f0 = vec4 (9.999999999999998e-2
-                            ,9.999999999999998e-2
-                            ,9.999999999999998e-2
-                            ,1.0);
+                  f0 = vec4 (9.999999999999998e-2,9.999999999999998e-2,9.999999999999998e-2,1.0);
               }
               """
           }
@@ -169,17 +128,13 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (0.8,vi1);
@@ -190,46 +145,28 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  if (!((sin
-                      ((10.0) * (((rotMatrixY
-                      (Time)) * ((rotMatrixZ
+                  if (!((sin ((10.0) * (((rotMatrixY (Time)) * ((rotMatrixZ
                       ((Time) * (0.8))) * (vo1))).x))) > (0.5))) discard;
-                  f0 = vec4 (0.19999999999999996
-                            ,0.19999999999999996
-                            ,0.19999999999999996
-                            ,1.0);
+                  f0 = vec4 (0.19999999999999996,0.19999999999999996,0.19999999999999996,1.0);
               }
               """
           }
@@ -243,17 +180,13 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (0.7,vi1);
@@ -264,46 +197,28 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  if (!((sin
-                      ((10.0) * (((rotMatrixY
-                      (Time)) * ((rotMatrixZ
+                  if (!((sin ((10.0) * (((rotMatrixY (Time)) * ((rotMatrixZ
                       ((Time) * (0.7))) * (vo1))).x))) > (0.5))) discard;
-                  f0 = vec4 (0.30000000000000004
-                            ,0.30000000000000004
-                            ,0.30000000000000004
-                            ,1.0);
+                  f0 = vec4 (0.30000000000000004,0.30000000000000004,0.30000000000000004,1.0);
               }
               """
           }
@@ -317,17 +232,13 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (0.6,vi1);
@@ -338,41 +249,26 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  if (!((sin
-                      ((10.0) * (((rotMatrixY
-                      (Time)) * ((rotMatrixZ
+                  if (!((sin ((10.0) * (((rotMatrixY (Time)) * ((rotMatrixZ
                       ((Time) * (0.6))) * (vo1))).x))) > (0.5))) discard;
                   f0 = vec4 (0.4,0.4,0.4,1.0);
               }
@@ -388,17 +284,13 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (0.5,vi1);
@@ -409,41 +301,26 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  if (!((sin
-                      ((10.0) * (((rotMatrixY
-                      (Time)) * ((rotMatrixZ
+                  if (!((sin ((10.0) * (((rotMatrixY (Time)) * ((rotMatrixZ
                       ((Time) * (0.5))) * (vo1))).x))) > (0.5))) discard;
                   f0 = vec4 (0.5,0.5,0.5,1.0);
               }
@@ -459,17 +336,13 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (0.4,vi1);
@@ -480,41 +353,26 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  if (!((sin
-                      ((10.0) * (((rotMatrixY
-                      (Time)) * ((rotMatrixZ
+                  if (!((sin ((10.0) * (((rotMatrixY (Time)) * ((rotMatrixZ
                       ((Time) * (0.4))) * (vo1))).x))) > (0.5))) discard;
                   f0 = vec4 (0.6,0.6,0.6,1.0);
               }
@@ -530,17 +388,13 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (0.3,vi1);
@@ -551,41 +405,26 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  if (!((sin
-                      ((10.0) * (((rotMatrixY
-                      (Time)) * ((rotMatrixZ
+                  if (!((sin ((10.0) * (((rotMatrixY (Time)) * ((rotMatrixZ
                       ((Time) * (0.3))) * (vo1))).x))) > (0.5))) discard;
                   f0 = vec4 (0.7,0.7,0.7,1.0);
               }
@@ -601,17 +440,13 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (0.2,vi1);
@@ -622,41 +457,26 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  if (!((sin
-                      ((10.0) * (((rotMatrixY
-                      (Time)) * ((rotMatrixZ
+                  if (!((sin ((10.0) * (((rotMatrixY (Time)) * ((rotMatrixZ
                       ((Time) * (0.2))) * (vo1))).x))) > (0.5))) discard;
                   f0 = vec4 (0.8,0.8,0.8,1.0);
               }
@@ -672,17 +492,13 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
                   gl_Position = scale (0.1,vi1);
@@ -693,41 +509,26 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
-                  if (!((sin
-                      ((10.0) * (((rotMatrixY
-                      (Time)) * ((rotMatrixZ
+                  if (!((sin ((10.0) * (((rotMatrixY (Time)) * ((rotMatrixZ
                       ((Time) * (0.1))) * (vo1))).x))) > (0.5))) discard;
                   f0 = vec4 (0.9,0.9,0.9,1.0);
               }
diff --git a/testdata/editor-examples/Tetrahedron.out b/testdata/editor-examples/Tetrahedron.out
index 0df9bd13..ddce3ba3 100644
--- a/testdata/editor-examples/Tetrahedron.out
+++ b/testdata/editor-examples/Tetrahedron.out
@@ -24,8 +24,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -35,118 +34,62 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
               }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
               }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
                   gl_Position = scale (0.5
-                                      ,(((perspective (0.1
-                                                      ,100.0
-                                                      ,0.5235987755982988
-                                                      ,1.0)) * (lookat (vec3 (3.0
-                                                                             ,1.3
-                                                                             ,0.3)
-                                                                       ,vec3 (0.0,0.0,0.0)
-                                                                       ,vec3 (0.0
-                                                                             ,1.0
-                                                                             ,0.0)))) * (rotMatrixY
-                                      ((0.1308996938995747) * (Time)))) * (vi1));
+                                      ,(((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3 (3.0
+                                                                                                          ,1.3
+                                                                                                          ,0.3)
+                                                                                                    ,vec3 (0.0,0.0,0.0)
+                                                                                                    ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)))) * (vi1));
                   vo1 = vi1;
               }
               """
@@ -154,47 +97,30 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
               float f(float z0) {
-                  return (mod (((z0) + (sin
-                              (z0))) + (sin ((1.1) * (z0)))
-                              ,4.0)) * (2.0);
+                  return (mod (((z0) + (sin (z0))) + (sin ((1.1) * (z0))),4.0)) * (2.0);
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               void main() {
                   if (!(true)) discard;
-                  f0 = ((rotMatrixZ
-                      (Time)) * ((rotMatrixY
-                      (Time)) * (vo1))) * (f (Time));
+                  f0 = ((rotMatrixZ (Time)) * ((rotMatrixY (Time)) * (vo1))) * (f (Time));
               }
               """
           }
diff --git a/testdata/editor-examples/Texturing.out b/testdata/editor-examples/Texturing.out
index 9e2684a3..2c488805 100644
--- a/testdata/editor-examples/Texturing.out
+++ b/testdata/editor-examples/Texturing.out
@@ -27,8 +27,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
@@ -39,118 +38,62 @@ Pipeline
               vec4 r2_Float;
               vec4 r3_Float;
               vec4 ext0_Float_3(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,0.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,0.0);
               }
               vec3 neg_VecSFloat3(vec3 z0) {
                   return - (z0);
               }
               mat4 translateBefore4(vec3 z0) {
-                  return mat4 (r1_Float
-                              ,r2_Float
-                              ,r3_Float
-                              ,vec4 ((z0).x
-                                    ,(z0).y
-                                    ,(z0).z
-                                    ,1.0));
+                  return mat4 (r1_Float,r2_Float,r3_Float,vec4 ((z0).x,(z0).y,(z0).z,1.0));
               }
-              mat4 lookat(vec3 z0
-                         ,vec3 z1
-                         ,vec3 z2) {
-                  return (transpose (mat4
-                      (ext0_Float_3 (normalize (cross
-                      (z2,normalize ((z0) - (z1)))))
-                      ,ext0_Float_3 (cross (normalize
-                                           ((z0) - (z1))
-                                           ,normalize (cross (z2
-                                                             ,normalize ((z0) - (z1))))))
-                      ,ext0_Float_3 (normalize
-                      ((z0) - (z1)))
-                      ,vec4 (0.0
-                            ,0.0
-                            ,0.0
-                            ,1.0)))) * (translateBefore4
-                      (neg_VecSFloat3 (z0)));
+              mat4 lookat(vec3 z0,vec3 z1,vec3 z2) {
+                  return (transpose (mat4 (ext0_Float_3 (normalize (cross (z2
+                                                                          ,normalize ((z0) - (z1)))))
+                                          ,ext0_Float_3 (cross (normalize ((z0) - (z1))
+                                                               ,normalize (cross (z2,normalize ((z0) - (z1))))))
+                                          ,ext0_Float_3 (normalize ((z0) - (z1)))
+                                          ,vec4 (0.0,0.0,0.0,1.0)))) * (translateBefore4 (neg_VecSFloat3 (z0)));
               }
-              mat4 perspective(float z0
-                              ,float z1
-                              ,float z2
-                              ,float z3) {
-                  return mat4 (vec4
-                              (((2.0) * (z0)) / (((z3) * ((z0) * (tan
-                              ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                              ((z2) / (2.0)))))))
-                              ,0.0
-                              ,0.0
-                              ,0.0)
+              mat4 perspective(float z0,float z1,float z2,float z3) {
+                  return mat4 (vec4 (((2.0) * (z0)) / (((z3) * ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,0.0
+                                    ,0.0
+                                    ,0.0)
                               ,vec4 (0.0
-                                    ,((2.0) * (z0)) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ,((2.0) * (z0)) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,0.0
                                     ,0.0)
-                              ,vec4 ((((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
+                              ,vec4 ((((z3) * ((z0) * (tan ((z2) / (2.0))))) + ((0.0) - ((z3) * ((z0) * (tan
                                     ((z2) / (2.0))))))) / (((z3) * ((z0) * (tan
-                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan
-                                    ((z2) / (2.0)))))))
-                                    ,(((z0) * (tan
-                                    ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
-                                    ((z2) / (2.0)))))) / (((z0) * (tan
-                                    ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0))))) - ((0.0) - ((z3) * ((z0) * (tan ((z2) / (2.0)))))))
+                                    ,(((z0) * (tan ((z2) / (2.0)))) + ((0.0) - ((z0) * (tan
+                                    ((z2) / (2.0)))))) / (((z0) * (tan ((z2) / (2.0)))) - ((0.0) - ((z0) * (tan
                                     ((z2) / (2.0))))))
                                     ,(0.0) - (((z1) + (z0)) / ((z1) - (z0)))
                                     ,-1.0)
-                              ,vec4 (0.0
-                                    ,0.0
-                                    ,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0)))
-                                    ,0.0));
+                              ,vec4 (0.0,0.0,(0.0) - ((((2.0) * (z1)) * (z0)) / ((z1) - (z0))),0.0));
               }
               mat4 rotMatrixY(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),0.0,(0.0) - (sin (z0)),0.0)
                               ,vec4 (0.0,1.0,0.0,0.0)
-                              ,vec4 (sin (z0)
-                                    ,0.0
-                                    ,cos (z0)
-                                    ,0.0)
+                              ,vec4 (sin (z0),0.0,cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  r1_Float = vec4 (1.0
-                                  ,0.0
-                                  ,0.0
-                                  ,0.0);
-                  r2_Float = vec4 (0.0
-                                  ,1.0
-                                  ,0.0
-                                  ,0.0);
-                  r3_Float = vec4 (0.0
-                                  ,0.0
-                                  ,1.0
-                                  ,0.0);
+                  r1_Float = vec4 (1.0,0.0,0.0,0.0);
+                  r2_Float = vec4 (0.0,1.0,0.0,0.0);
+                  r3_Float = vec4 (0.0,0.0,1.0,0.0);
                   gl_Position = scale (0.5
-                                      ,(((perspective (0.1
-                                                      ,100.0
-                                                      ,0.5235987755982988
-                                                      ,1.0)) * (lookat (vec3 (3.0
-                                                                             ,1.3
-                                                                             ,0.3)
-                                                                       ,vec3 (0.0,0.0,0.0)
-                                                                       ,vec3 (0.0
-                                                                             ,1.0
-                                                                             ,0.0)))) * (rotMatrixY
-                                      ((0.1308996938995747) * (Time)))) * (vi1));
+                                      ,(((perspective (0.1,100.0,0.5235987755982988,1.0)) * (lookat (vec3 (3.0
+                                                                                                          ,1.3
+                                                                                                          ,0.3)
+                                                                                                    ,vec3 (0.0,0.0,0.0)
+                                                                                                    ,vec3 (0.0,1.0,0.0)))) * (rotMatrixY ((0.1308996938995747) * (Time)))) * (vi1));
                   vo1 = vi2;
               }
               """
@@ -158,8 +101,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Diffuse;
diff --git a/testdata/empty.out b/testdata/empty.out
index a5a55263..771dc4de 100644
--- a/testdata/empty.out
+++ b/testdata/empty.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+data Empty :: Type where
+    
 main is not found
 ------------ trace
 'Empty :: Type
diff --git a/testdata/example06.out b/testdata/example06.out
index 8bf3fb28..4b1e1761 100644
--- a/testdata/example06.out
+++ b/testdata/example06.out
@@ -24,22 +24,17 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (vi1));
+                  gl_Position = scale (0.5,(MVP) * (vi1));
                   vo1 = vi1;
               }
               """
@@ -47,8 +42,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/example07.out b/testdata/example07.out
index 98456485..29991b12 100644
--- a/testdata/example07.out
+++ b/testdata/example07.out
@@ -24,22 +24,17 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (vi1));
+                  gl_Position = scale (0.5,(MVP) * (vi1));
                   vo1 = vi1;
               }
               """
@@ -47,15 +42,12 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
               out vec4 f0;
-              vec4 rgb(float z0
-                      ,float z1
-                      ,float z2) {
+              vec4 rgb(float z0,float z1,float z2) {
                   return vec4 (z0,z1,z2,1.0);
               }
               vec4 blue;
@@ -63,8 +55,7 @@ Pipeline
               void main() {
                   blue = rgb (0.0,0.0,1.0);
                   red = rgb (1.0,0.0,0.0);
-                  f0 =
-                      ((vo1).x) < (0.5) ? blue : red;
+                  f0 = ((vo1).x) < (0.5) ? blue : red;
               }
               """
           }
diff --git a/testdata/example08.out b/testdata/example08.out
index b2c30351..bbcf34d3 100644
--- a/testdata/example08.out
+++ b/testdata/example08.out
@@ -25,8 +25,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -34,57 +33,30 @@ Pipeline
               in vec4 vi1;
               smooth out vec4 vo1;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
-              vec4 trMat_4_4_Float(mat4 z0
-                                  ,vec4 z1) {
+              vec4 trMat_4_4_Float(mat4 z0,vec4 z1) {
                   return (z0) * (z1);
               }
               vec4 trX(float z0,vec4 z1) {
-                  return (vec4 (z0
-                               ,0.0
-                               ,0.0
-                               ,0.0)) + (z1);
+                  return (vec4 (z0,0.0,0.0,0.0)) + (z1);
               }
               void main() {
-                  gl_Position = trMat_4_4_Float
-                      (rotMatrixZ ((Time) * (2.0))
-                      ,(MVP) * (trX ((1.0) + ((sin
-                                    (Time)) * (0.1))
-                                    ,scale (4.0e-2
-                                           ,trMat_4_4_Float (rotMatrixX
-                                                            (((Time) * (2.0)) * (2.0))
-                                                            ,vi1)))));
+                  gl_Position = trMat_4_4_Float (rotMatrixZ ((Time) * (2.0))
+                                                ,(MVP) * (trX ((1.0) + ((sin (Time)) * (0.1))
+                                                              ,scale (4.0e-2,trMat_4_4_Float (rotMatrixX (((Time) * (2.0)) * (2.0)),vi1)))));
                   vo1 = vi1;
               }
               """
@@ -92,8 +64,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
@@ -114,8 +85,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -123,57 +93,30 @@ Pipeline
               in vec4 vi1;
               smooth out vec4 vo1;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
-              vec4 trMat_4_4_Float(mat4 z0
-                                  ,vec4 z1) {
+              vec4 trMat_4_4_Float(mat4 z0,vec4 z1) {
                   return (z0) * (z1);
               }
               vec4 trX(float z0,vec4 z1) {
-                  return (vec4 (z0
-                               ,0.0
-                               ,0.0
-                               ,0.0)) + (z1);
+                  return (vec4 (z0,0.0,0.0,0.0)) + (z1);
               }
               void main() {
-                  gl_Position = trMat_4_4_Float
-                      (rotMatrixZ ((Time) * (1.0))
-                      ,(MVP) * (trX ((0.5) + ((sin
-                                    (Time)) * (0.1))
-                                    ,scale (4.0e-2
-                                           ,trMat_4_4_Float (rotMatrixX
-                                                            (((Time) * (2.0)) * (1.0))
-                                                            ,vi1)))));
+                  gl_Position = trMat_4_4_Float (rotMatrixZ ((Time) * (1.0))
+                                                ,(MVP) * (trX ((0.5) + ((sin (Time)) * (0.1))
+                                                              ,scale (4.0e-2,trMat_4_4_Float (rotMatrixX (((Time) * (2.0)) * (1.0)),vi1)))));
                   vo1 = vi1;
               }
               """
@@ -181,8 +124,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
@@ -203,8 +145,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -212,57 +153,30 @@ Pipeline
               in vec4 vi1;
               smooth out vec4 vo1;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
-              vec4 trMat_4_4_Float(mat4 z0
-                                  ,vec4 z1) {
+              vec4 trMat_4_4_Float(mat4 z0,vec4 z1) {
                   return (z0) * (z1);
               }
               vec4 trX(float z0,vec4 z1) {
-                  return (vec4 (z0
-                               ,0.0
-                               ,0.0
-                               ,0.0)) + (z1);
+                  return (vec4 (z0,0.0,0.0,0.0)) + (z1);
               }
               void main() {
-                  gl_Position = trMat_4_4_Float
-                      (rotMatrixZ ((Time) * (0.0))
-                      ,(MVP) * (trX ((0.0) + ((sin
-                                    (Time)) * (0.1))
-                                    ,scale (4.0e-2
-                                           ,trMat_4_4_Float (rotMatrixX
-                                                            (((Time) * (2.0)) * (0.0))
-                                                            ,vi1)))));
+                  gl_Position = trMat_4_4_Float (rotMatrixZ ((Time) * (0.0))
+                                                ,(MVP) * (trX ((0.0) + ((sin (Time)) * (0.1))
+                                                              ,scale (4.0e-2,trMat_4_4_Float (rotMatrixX (((Time) * (2.0)) * (0.0)),vi1)))));
                   vo1 = vi1;
               }
               """
@@ -270,8 +184,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
@@ -292,8 +205,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -301,57 +213,30 @@ Pipeline
               in vec4 vi1;
               smooth out vec4 vo1;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
-              vec4 trMat_4_4_Float(mat4 z0
-                                  ,vec4 z1) {
+              vec4 trMat_4_4_Float(mat4 z0,vec4 z1) {
                   return (z0) * (z1);
               }
               vec4 trX(float z0,vec4 z1) {
-                  return (vec4 (z0
-                               ,0.0
-                               ,0.0
-                               ,0.0)) + (z1);
+                  return (vec4 (z0,0.0,0.0,0.0)) + (z1);
               }
               void main() {
-                  gl_Position = trMat_4_4_Float
-                      (rotMatrixZ ((Time) * (-1.0))
-                      ,(MVP) * (trX ((-0.5) + ((sin
-                                    (Time)) * (0.1))
-                                    ,scale (4.0e-2
-                                           ,trMat_4_4_Float (rotMatrixX
-                                                            (((Time) * (2.0)) * (-1.0))
-                                                            ,vi1)))));
+                  gl_Position = trMat_4_4_Float (rotMatrixZ ((Time) * (-1.0))
+                                                ,(MVP) * (trX ((-0.5) + ((sin (Time)) * (0.1))
+                                                              ,scale (4.0e-2,trMat_4_4_Float (rotMatrixX (((Time) * (2.0)) * (-1.0)),vi1)))));
                   vo1 = vi1;
               }
               """
@@ -359,8 +244,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
@@ -381,8 +265,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -390,57 +273,30 @@ Pipeline
               in vec4 vi1;
               smooth out vec4 vo1;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
-              vec4 trMat_4_4_Float(mat4 z0
-                                  ,vec4 z1) {
+              vec4 trMat_4_4_Float(mat4 z0,vec4 z1) {
                   return (z0) * (z1);
               }
               vec4 trX(float z0,vec4 z1) {
-                  return (vec4 (z0
-                               ,0.0
-                               ,0.0
-                               ,0.0)) + (z1);
+                  return (vec4 (z0,0.0,0.0,0.0)) + (z1);
               }
               void main() {
-                  gl_Position = trMat_4_4_Float
-                      (rotMatrixZ ((Time) * (0.75))
-                      ,(MVP) * (trX ((0.375) + ((sin
-                                    (Time)) * (0.1))
-                                    ,scale (4.0e-2
-                                           ,trMat_4_4_Float (rotMatrixX
-                                                            (((Time) * (2.0)) * (0.75))
-                                                            ,vi1)))));
+                  gl_Position = trMat_4_4_Float (rotMatrixZ ((Time) * (0.75))
+                                                ,(MVP) * (trX ((0.375) + ((sin (Time)) * (0.1))
+                                                              ,scale (4.0e-2,trMat_4_4_Float (rotMatrixX (((Time) * (2.0)) * (0.75)),vi1)))));
                   vo1 = vi1;
               }
               """
@@ -448,8 +304,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
@@ -470,8 +325,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -479,57 +333,30 @@ Pipeline
               in vec4 vi1;
               smooth out vec4 vo1;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
-              vec4 trMat_4_4_Float(mat4 z0
-                                  ,vec4 z1) {
+              vec4 trMat_4_4_Float(mat4 z0,vec4 z1) {
                   return (z0) * (z1);
               }
               vec4 trX(float z0,vec4 z1) {
-                  return (vec4 (z0
-                               ,0.0
-                               ,0.0
-                               ,0.0)) + (z1);
+                  return (vec4 (z0,0.0,0.0,0.0)) + (z1);
               }
               void main() {
-                  gl_Position = trMat_4_4_Float
-                      (rotMatrixZ ((Time) * (0.3))
-                      ,(MVP) * (trX ((0.15) + ((sin
-                                    (Time)) * (0.1))
-                                    ,scale (4.0e-2
-                                           ,trMat_4_4_Float (rotMatrixX
-                                                            (((Time) * (2.0)) * (0.3))
-                                                            ,vi1)))));
+                  gl_Position = trMat_4_4_Float (rotMatrixZ ((Time) * (0.3))
+                                                ,(MVP) * (trX ((0.15) + ((sin (Time)) * (0.1))
+                                                              ,scale (4.0e-2,trMat_4_4_Float (rotMatrixX (((Time) * (2.0)) * (0.3)),vi1)))));
                   vo1 = vi1;
               }
               """
@@ -537,8 +364,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
@@ -559,8 +385,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -568,57 +393,30 @@ Pipeline
               in vec4 vi1;
               smooth out vec4 vo1;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
-              vec4 trMat_4_4_Float(mat4 z0
-                                  ,vec4 z1) {
+              vec4 trMat_4_4_Float(mat4 z0,vec4 z1) {
                   return (z0) * (z1);
               }
               vec4 trX(float z0,vec4 z1) {
-                  return (vec4 (z0
-                               ,0.0
-                               ,0.0
-                               ,0.0)) + (z1);
+                  return (vec4 (z0,0.0,0.0,0.0)) + (z1);
               }
               void main() {
-                  gl_Position = trMat_4_4_Float
-                      (rotMatrixZ ((Time) * (0.5))
-                      ,(MVP) * (trX ((0.25) + ((sin
-                                    (Time)) * (0.1))
-                                    ,scale (4.0e-2
-                                           ,trMat_4_4_Float (rotMatrixX
-                                                            (((Time) * (2.0)) * (0.5))
-                                                            ,vi1)))));
+                  gl_Position = trMat_4_4_Float (rotMatrixZ ((Time) * (0.5))
+                                                ,(MVP) * (trX ((0.25) + ((sin (Time)) * (0.1))
+                                                              ,scale (4.0e-2,trMat_4_4_Float (rotMatrixX (((Time) * (2.0)) * (0.5)),vi1)))));
                   vo1 = vi1;
               }
               """
@@ -626,8 +424,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
@@ -648,8 +445,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -657,57 +453,30 @@ Pipeline
               in vec4 vi1;
               smooth out vec4 vo1;
               mat4 rotMatrixX(float z0) {
-                  return mat4 (vec4 (1.0
-                                    ,0.0
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,cos (z0)
-                                    ,sin (z0)
-                                    ,0.0)
-                              ,vec4 (0.0
-                                    ,(0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0)
+                  return mat4 (vec4 (1.0,0.0,0.0,0.0)
+                              ,vec4 (0.0,cos (z0),sin (z0),0.0)
+                              ,vec4 (0.0,(0.0) - (sin (z0)),cos (z0),0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               mat4 rotMatrixZ(float z0) {
-                  return mat4 (vec4 (cos (z0)
-                                    ,sin (z0)
-                                    ,0.0
-                                    ,0.0)
-                              ,vec4 ((0.0) - (sin (z0))
-                                    ,cos (z0)
-                                    ,0.0
-                                    ,0.0)
+                  return mat4 (vec4 (cos (z0),sin (z0),0.0,0.0)
+                              ,vec4 ((0.0) - (sin (z0)),cos (z0),0.0,0.0)
                               ,vec4 (0.0,0.0,1.0,0.0)
                               ,vec4 (0.0,0.0,0.0,1.0));
               }
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
-              vec4 trMat_4_4_Float(mat4 z0
-                                  ,vec4 z1) {
+              vec4 trMat_4_4_Float(mat4 z0,vec4 z1) {
                   return (z0) * (z1);
               }
               vec4 trX(float z0,vec4 z1) {
-                  return (vec4 (z0
-                               ,0.0
-                               ,0.0
-                               ,0.0)) + (z1);
+                  return (vec4 (z0,0.0,0.0,0.0)) + (z1);
               }
               void main() {
-                  gl_Position = trMat_4_4_Float
-                      (rotMatrixZ ((Time) * (-0.5))
-                      ,(MVP) * (trX ((-0.25) + ((sin
-                                    (Time)) * (0.1))
-                                    ,scale (4.0e-2
-                                           ,trMat_4_4_Float (rotMatrixX
-                                                            (((Time) * (2.0)) * (-0.5))
-                                                            ,vi1)))));
+                  gl_Position = trMat_4_4_Float (rotMatrixZ ((Time) * (-0.5))
+                                                ,(MVP) * (trX ((-0.25) + ((sin (Time)) * (0.1))
+                                                              ,scale (4.0e-2,trMat_4_4_Float (rotMatrixX (((Time) * (2.0)) * (-0.5)),vi1)))));
                   vo1 = vi1;
               }
               """
@@ -715,8 +484,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/fetcharrays01.out b/testdata/fetcharrays01.out
index 6819fc6b..d4c100a2 100644
--- a/testdata/fetcharrays01.out
+++ b/testdata/fetcharrays01.out
@@ -26,8 +26,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -35,29 +34,18 @@ Pipeline
               in vec3 vi2;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (vec4 ((vi1).x
-                                                     ,(vi1).y
-                                                     ,(vi1).z
-                                                     ,1.0)));
-                  vo1 = vec4 ((vi1).x
-                             ,(vi1).y
-                             ,(vi1).z
-                             ,1.0);
+                  gl_Position = scale (0.5,(MVP) * (vec4 ((vi1).x,(vi1).y,(vi1).z,1.0)));
+                  vo1 = vec4 ((vi1).x,(vi1).y,(vi1).z,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/fragment01.out b/testdata/fragment01.out
index a0655a52..f3e048fe 100644
--- a/testdata/fragment01.out
+++ b/testdata/fragment01.out
@@ -21,8 +21,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
@@ -34,14 +33,11 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               out vec4 f0;
-              vec4 rgb(float z0
-                      ,float z1
-                      ,float z2) {
+              vec4 rgb(float z0,float z1,float z2) {
                   return vec4 (z0,z1,z2,1.0);
               }
               vec4 blue;
diff --git a/testdata/fragment03swizzling.out b/testdata/fragment03swizzling.out
index 949f4d70..fc617b69 100644
--- a/testdata/fragment03swizzling.out
+++ b/testdata/fragment03swizzling.out
@@ -21,8 +21,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
@@ -36,15 +35,13 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
               out vec4 f0;
               void main() {
-                  f0 =
-                      ((vo1).xxxw) + ((vo1).yyyw);
+                  f0 = ((vo1).xxxw) + ((vo1).yyyw);
               }
               """
           }
diff --git a/testdata/fragment04ifthenelse.out b/testdata/fragment04ifthenelse.out
index a4f099a0..53374903 100644
--- a/testdata/fragment04ifthenelse.out
+++ b/testdata/fragment04ifthenelse.out
@@ -21,8 +21,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
@@ -36,23 +35,19 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float Time;
               smooth in vec4 vo1;
               out vec4 f0;
-              vec4 rgb(float z0
-                      ,float z1
-                      ,float z2) {
+              vec4 rgb(float z0,float z1,float z2) {
                   return vec4 (z0,z1,z2,1.0);
               }
               vec4 blue;
               void main() {
                   blue = rgb (0.0,0.0,1.0);
-                  f0 =
-                      (Time) < (0.5) ? vo1 : blue;
+                  f0 = (Time) < (0.5) ? vo1 : blue;
               }
               """
           }
diff --git a/testdata/fragment07let.out b/testdata/fragment07let.out
index 433db976..38bd16a8 100644
--- a/testdata/fragment07let.out
+++ b/testdata/fragment07let.out
@@ -21,8 +21,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
@@ -36,8 +35,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/framebuffer02.reject.out b/testdata/framebuffer02.reject.out
index 5740a835..ddaae5c2 100644
--- a/testdata/framebuffer02.reject.out
+++ b/testdata/framebuffer02.reject.out
@@ -20,9 +20,23 @@ in testdata/framebuffer02.reject.lc:2:17:
                             ,colorImage1 1.0
                             )
 ------------ tooltips
-testdata/framebuffer02.reject.lc 2:17-2:28  forall (a :: List Type) . sameLayerCounts a => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
-testdata/framebuffer02.reject.lc 2:17-5:30  FrameBuffer 1 (map Type ImageKind GetImageKind ('Cons (Image 1 ('Color (VecScalar 4 Float))) ('Cons (Image 2 ('Color (VecScalar 4 Float))) ('Cons (Image 1 ('Color (VecScalar 1 Float))) 'Nil))))
-testdata/framebuffer02.reject.lc 2:29-5:30  (Image 1 ('Color (VecScalar 4 Float)), Image 2 ('Color (VecScalar 4 Float)), Image 1 ('Color (VecScalar 1 Float)))
+testdata/framebuffer02.reject.lc 2:17-2:28  forall (a :: List Type)
+  . sameLayerCounts a
+    => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
+testdata/framebuffer02.reject.lc 2:17-5:30  FrameBuffer
+  1
+  (map
+    Type
+    ImageKind
+    GetImageKind
+    ('Cons
+      (Image 1 ('Color (VecScalar 4 Float)))
+      ('Cons
+        (Image 2 ('Color (VecScalar 4 Float)))
+        ('Cons (Image 1 ('Color (VecScalar 1 Float))) 'Nil))))
+testdata/framebuffer02.reject.lc 2:29-5:30  (Image 1 ('Color (VecScalar 4 Float)), Image 2 ('Color (VecScalar 4 Float)), Image
+      1
+      ('Color (VecScalar 1 Float)))
 testdata/framebuffer02.reject.lc 2:30-2:41  forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
 testdata/framebuffer02.reject.lc 2:30-2:62  Image 1 ('Color (VecScalar 4 Float))
 testdata/framebuffer02.reject.lc 2:43-2:45  forall a . a -> a -> a -> a -> VecS a 4
diff --git a/testdata/gfx02.out b/testdata/gfx02.out
index d5abef3b..a4378aaf 100644
--- a/testdata/gfx02.out
+++ b/testdata/gfx02.out
@@ -22,8 +22,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
@@ -37,8 +36,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/gfx03.out b/testdata/gfx03.out
index 6fa00e25..0a5740b2 100644
--- a/testdata/gfx03.out
+++ b/testdata/gfx03.out
@@ -23,23 +23,20 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP2;
               in vec3 vi1;
               void main() {
-                  gl_Position = (MVP2) * (vec4
-                      ((vi1).x,(vi1).y,(vi1).z,1.0));
+                  gl_Position = (MVP2) * (vec4 ((vi1).x,(vi1).y,(vi1).z,1.0));
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               out vec4 f0;
@@ -57,37 +54,28 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP2;
               in vec3 vi1;
               smooth out vec4 vo1;
               void main() {
-                  gl_Position = (MVP2) * (vec4
-                      ((vi1).x,(vi1).y,(vi1).z,1.0));
-                  vo1 = vec4 ((vi1).x
-                             ,(vi1).y
-                             ,(vi1).z
-                             ,1.0);
+                  gl_Position = (MVP2) * (vec4 ((vi1).x,(vi1).y,(vi1).z,1.0));
+                  vo1 = vec4 ((vi1).x,(vi1).y,(vi1).z,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
               out vec4 f0;
               void main() {
-                  f0 = (vo1) + (vec4 (1.0
-                                     ,1.4
-                                     ,1.0
-                                     ,0.6));
+                  f0 = (vo1) + (vec4 (1.0,1.4,1.0,0.6));
               }
               """
           }
@@ -101,8 +89,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -117,17 +104,13 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               flat in vec4 vo1;
               out vec4 f0;
               void main() {
-                  f0 = (vo1) * (vec4 (1.0
-                                     ,1.4
-                                     ,1.0
-                                     ,0.6));
+                  f0 = (vo1) * (vec4 (1.0,1.4,1.0,0.6));
               }
               """
           }
diff --git a/testdata/gfx04.out b/testdata/gfx04.out
index 9934b162..e3256fe9 100644
--- a/testdata/gfx04.out
+++ b/testdata/gfx04.out
@@ -26,8 +26,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -35,14 +34,10 @@ Pipeline
               in vec3 vi2;
               smooth out vec4 vo1;
               vec4 v3FToV4F(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,1.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,1.0);
               }
               void main() {
-                  gl_Position = (MVP) * (v3FToV4F
-                      (vi1));
+                  gl_Position = (MVP) * (v3FToV4F (vi1));
                   vo1 = v3FToV4F (vi2);
               }
               """
@@ -50,17 +45,13 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
               out vec4 f0;
               void main() {
-                  f0 = (vo1) * (vec4 (1.0
-                                     ,1.4
-                                     ,1.0
-                                     ,0.6));
+                  f0 = (vo1) * (vec4 (1.0,1.4,1.0,0.6));
               }
               """
           }
diff --git a/testdata/graphics-features/codegen/shadergen01.out b/testdata/graphics-features/codegen/shadergen01.out
index 8a567cbe..3f3a7bb0 100644
--- a/testdata/graphics-features/codegen/shadergen01.out
+++ b/testdata/graphics-features/codegen/shadergen01.out
@@ -24,22 +24,17 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (vi1));
+                  gl_Position = scale (0.5,(MVP) * (vi1));
                   vo1 = vi1;
               }
               """
@@ -47,8 +42,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/helloWorld.out b/testdata/helloWorld.out
index 8c114891..493bdfd8 100644
--- a/testdata/helloWorld.out
+++ b/testdata/helloWorld.out
@@ -24,22 +24,17 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
               in vec4 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (vi1));
+                  gl_Position = scale (0.5,(MVP) * (vi1));
                   vo1 = vi1;
               }
               """
@@ -47,8 +42,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/id.out b/testdata/id.out
index 5e63f9d1..0b2b73ad 100644
--- a/testdata/id.out
+++ b/testdata/id.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+main' = _rhs \(a := _rhs \(b :: _) -> b) -> HCons (a 4.0) (HCons (a True) HNil)
 main is not found
 ------------ trace
 main' :: (Float, Bool)
diff --git a/testdata/instantiate.out b/testdata/instantiate.out
index 4c233f52..012eda70 100644
--- a/testdata/instantiate.out
+++ b/testdata/instantiate.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+main' = _rhs \(a := _rhs PrimAdd) -> a (V2 1.0 2.0) (V2 1.0 2.0)
 main is not found
 ------------ trace
 main' :: VecS Float 2
diff --git a/testdata/language-features/adt/adt02.reject.out b/testdata/language-features/adt/adt02.reject.out
index 29f62600..ee25f4ed 100644
--- a/testdata/language-features/adt/adt02.reject.out
+++ b/testdata/language-features/adt/adt02.reject.out
@@ -8,7 +8,11 @@ in proj
 'Data3 :: Type
 Data3 :: Bool -> Char -> Bool -> Data3
 Data31 :: Int -> String -> Int -> Data3
-'Data3Case :: forall (a :: Data3 -> Type) -> (forall (b :: Bool) (c :: Char) (d :: Bool) -> a ('Data3 b c d)) -> (forall (e :: Int) (f :: String) (g :: Int) -> a ('Data31 e f g)) -> forall (h :: Data3) -> a h
+'Data3Case
+  :: forall (a :: Data3 -> Type)
+    -> (forall (b :: Bool) (c :: Char) (d :: Bool) -> a ('Data3 b c d))
+      -> (forall (e :: Int) (f :: String) (g :: Int) -> a ('Data31 e f g))
+        -> forall (h :: Data3) -> a h
 match'Data3 :: forall (a :: Type -> Type) -> a Data3 -> forall b -> a b -> a b
 !type error: can not unify
 'Bool
diff --git a/testdata/language-features/adt/gadt03.reject.out b/testdata/language-features/adt/gadt03.reject.out
index 39016938..36261981 100644
--- a/testdata/language-features/adt/gadt03.reject.out
+++ b/testdata/language-features/adt/gadt03.reject.out
@@ -2,8 +2,14 @@ illegal data definition (parameters are not uniform)
 ------------ trace
 'M2 :: Type -> String -> Type
 Value2 :: forall a . a -> forall (b :: String) . M2 a b
-'M2Case :: forall a . forall (b :: forall (c :: String) -> M2 a c -> Type) -> (forall (d :: a) -> forall (e :: String) . b e ('Value2 d e)) -> forall (f :: String) . forall (g :: M2 a f) -> b f g
-match'M2 :: forall (a :: Type -> Type) -> (forall b (c :: String) -> a (M2 b c)) -> forall d -> a d -> a d
+'M2Case
+  :: forall a
+    . forall (b :: forall (c :: String) -> M2 a c -> Type)
+      -> (forall (d :: a) -> forall (e :: String) . b e ('Value2 d e))
+        -> forall (f :: String) . forall (g :: M2 a f) -> b f g
+match'M2
+  :: forall (a :: Type -> Type)
+    -> (forall b (c :: String) -> a (M2 b c)) -> forall d -> a d -> a d
 'M3 :: Type -> String -> Type
 !illegal data definition (parameters are not uniform)
 ------------ tooltips
diff --git a/testdata/language-features/adt/gadt04.reject.out b/testdata/language-features/adt/gadt04.reject.out
index 70903666..22338d9b 100644
--- a/testdata/language-features/adt/gadt04.reject.out
+++ b/testdata/language-features/adt/gadt04.reject.out
@@ -7,8 +7,13 @@ and at testdata/language-features/adt/gadt04.reject.lc:3:3:
 ------------ trace
 'M :: Type -> String -> Type
 Value :: forall a . a -> forall (b :: String) . M a b
-'MCase :: forall (a :: forall b (c :: String) -> M b c -> Type) -> (forall d . forall (e :: d) -> forall (f :: String) . a d f ('Value d e f)) -> forall g (h :: String) . forall (i :: M g h) -> a g h i
-match'M :: forall (a :: Type -> Type) -> (forall b (c :: String) -> a (M b c)) -> forall d -> a d -> a d
+'MCase
+  :: forall (a :: forall b (c :: String) -> M b c -> Type)
+    -> (forall d . forall (e :: d) -> forall (f :: String) . a d f ('Value d e f))
+      -> forall g (h :: String) . forall (i :: M g h) -> a g h i
+match'M
+  :: forall (a :: Type -> Type)
+    -> (forall b (c :: String) -> a (M b c)) -> forall d -> a d -> a d
 'M2 :: Type -> String -> Type
 Value :: forall a . a -> forall (b :: String) . M2 a b
 !already defined Value at testdata/language-features/adt/gadt04.reject.lc:6:3:
diff --git a/testdata/language-features/basic-list/list01.out b/testdata/language-features/basic-list/list01.out
index 25208099..500b3ba9 100644
--- a/testdata/language-features/basic-list/list01.out
+++ b/testdata/language-features/basic-list/list01.out
@@ -1,3 +1,9 @@
+------------ desugared source code
+value1 = _rhs Nil
+value2
+  = _rhs
+    (Cons (fromInt 1) (Cons (fromInt 2) (Cons (fromInt 3) (Cons (fromInt 4) Nil))))
+value3 = _rhs (Cons 'h' (Cons 'e' (Cons 'l' (Cons 'l' (Cons 'o' Nil)))))
 main is not found
 ------------ trace
 value1 :: forall a . List a
diff --git a/testdata/language-features/basic-list/list02.out b/testdata/language-features/basic-list/list02.out
index b95d51c9..f10ae96c 100644
--- a/testdata/language-features/basic-list/list02.out
+++ b/testdata/language-features/basic-list/list02.out
@@ -1,3 +1,9 @@
+------------ desugared source code
+value1 = _rhs Nil
+value2
+  = _rhs
+    (Cons (fromInt 1) (Cons (fromInt 2) (Cons (fromInt 3) (Cons (fromInt 4) Nil))))
+value3 = _rhs (Cons 'h' (Cons 'e' (Cons 'l' (Cons 'l' (Cons 'o' Nil)))))
 main is not found
 ------------ trace
 value1 :: forall a . List a
diff --git a/testdata/language-features/basic-list/list08.out b/testdata/language-features/basic-list/list08.out
index 724faf89..88bd2006 100644
--- a/testdata/language-features/basic-list/list08.out
+++ b/testdata/language-features/basic-list/list08.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs (Cons (fromInt 1) (Cons 1.2 Nil))
 main is not found
 ------------ trace
 value :: List Float
diff --git a/testdata/language-features/basic-list/list09.out b/testdata/language-features/basic-list/list09.out
index d25415c0..24341f59 100644
--- a/testdata/language-features/basic-list/list09.out
+++ b/testdata/language-features/basic-list/list09.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs (Cons (fromInt 1) (Cons 1.2 Nil) :: List Float)
 main is not found
 ------------ trace
 value :: List Float
diff --git a/testdata/language-features/basic-list/list11.out b/testdata/language-features/basic-list/list11.out
index b3285136..01414c97 100644
--- a/testdata/language-features/basic-list/list11.out
+++ b/testdata/language-features/basic-list/list11.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs (fromInt 1 : Nil)
 main is not found
 ------------ trace
 value :: forall a . Num a => List a
diff --git a/testdata/language-features/basic-list/list12.out b/testdata/language-features/basic-list/list12.out
index 59378f6a..9d57e36d 100644
--- a/testdata/language-features/basic-list/list12.out
+++ b/testdata/language-features/basic-list/list12.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs (fromInt 1 : fromInt 2 : fromInt 3 : fromInt 4 : fromInt 5 : Nil)
 main is not found
 ------------ trace
 value :: forall a . Num a => List a
diff --git a/testdata/language-features/basic-list/list13.out b/testdata/language-features/basic-list/list13.out
index 59395fa3..477564f1 100644
--- a/testdata/language-features/basic-list/list13.out
+++ b/testdata/language-features/basic-list/list13.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs ('h' : 'e' : 'l' : 'l' : 'o' : Nil)
 main is not found
 ------------ trace
 value :: List Char
diff --git a/testdata/language-features/basic-list/listcomp01.out b/testdata/language-features/basic-list/listcomp01.out
index 2e52e998..74cf6abb 100644
--- a/testdata/language-features/basic-list/listcomp01.out
+++ b/testdata/language-features/basic-list/listcomp01.out
@@ -1,3 +1,9 @@
+------------ desugared source code
+value
+  = _rhs
+    (concatMap
+      \_ -> Cons HNil Nil
+      (Cons HNil (Cons HNil (Cons HNil (Cons HNil Nil)))))
 main is not found
 ------------ trace
 value :: List ()
diff --git a/testdata/language-features/basic-list/listcomp02.out b/testdata/language-features/basic-list/listcomp02.out
index 3421166e..7e689b09 100644
--- a/testdata/language-features/basic-list/listcomp02.out
+++ b/testdata/language-features/basic-list/listcomp02.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+l = _rhs (Cons HNil (Cons HNil (Cons HNil (Cons HNil Nil))))
+value = _rhs (concatMap \(a :: _) -> Cons a Nil l)
 main is not found
 ------------ trace
 l :: List ()
diff --git a/testdata/language-features/basic-list/listcomp03.out b/testdata/language-features/basic-list/listcomp03.out
index d8cb4fbb..6bb450ce 100644
--- a/testdata/language-features/basic-list/listcomp03.out
+++ b/testdata/language-features/basic-list/listcomp03.out
@@ -1,3 +1,9 @@
+------------ desugared source code
+value
+  = _rhs
+    (concatMap
+      \_ -> primIfThenElse False (Cons HNil Nil) Nil
+      (Cons HNil (Cons HNil (Cons HNil (Cons HNil Nil)))))
 main is not found
 ------------ trace
 value :: List ()
diff --git a/testdata/language-features/basic-list/listcomp04.out b/testdata/language-features/basic-list/listcomp04.out
index 3ad41bba..48f2b74f 100644
--- a/testdata/language-features/basic-list/listcomp04.out
+++ b/testdata/language-features/basic-list/listcomp04.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+l = _rhs (Cons HNil (Cons HNil (Cons HNil (Cons HNil Nil))))
+value = _rhs (concatMap \_ -> concatMap \_ -> Cons HNil Nil l l)
 main is not found
 ------------ trace
 l :: List ()
diff --git a/testdata/language-features/basic-list/listcomp05.out b/testdata/language-features/basic-list/listcomp05.out
index 562bf9ca..ff151c96 100644
--- a/testdata/language-features/basic-list/listcomp05.out
+++ b/testdata/language-features/basic-list/listcomp05.out
@@ -1,3 +1,9 @@
+------------ desugared source code
+value
+  = _rhs
+    (concatMap
+      \_ (a := _rhs HNil) (b := _rhs ((\(c :: _) -> c) a)) -> Cons b Nil
+      (Cons HNil (Cons HNil Nil)))
 main is not found
 ------------ trace
 value :: List ()
diff --git a/testdata/language-features/basic-list/listcomp06.out b/testdata/language-features/basic-list/listcomp06.out
index 45071292..4219a6d0 100644
--- a/testdata/language-features/basic-list/listcomp06.out
+++ b/testdata/language-features/basic-list/listcomp06.out
@@ -1,3 +1,20 @@
+------------ desugared source code
+value1
+  = _rhs
+    (concatMap
+      \_ (a := _rhs HNil) (b := _rhs ((\(c :: _) -> c) a)) -> primIfThenElse
+        True
+        (Cons b Nil)
+        Nil
+      (Cons HNil (Cons HNil Nil)))
+value2
+  = _rhs
+    (concatMap
+      \_ -> primIfThenElse
+        True
+        \(a := _rhs HNil) (b := _rhs ((\(c :: _) -> c) a)) -> Cons b Nil
+        Nil
+      (Cons HNil (Cons HNil Nil)))
 main is not found
 ------------ trace
 value1 :: List ()
diff --git a/testdata/language-features/basic-list/listcomp07.out b/testdata/language-features/basic-list/listcomp07.out
index 3fc2fb5c..62a30caf 100644
--- a/testdata/language-features/basic-list/listcomp07.out
+++ b/testdata/language-features/basic-list/listcomp07.out
@@ -1,3 +1,28 @@
+------------ desugared source code
+value1
+  = _rhs
+    (concatMap
+      \_ (a := _rhs HNil) (b := _rhs ((\(c :: _) -> c) a)) -> primIfThenElse
+        True
+        \(d := _rhs b) (e := _rhs ((\(f :: _) -> f) d)) -> Cons b Nil
+        Nil
+      (Cons HNil (Cons HNil Nil)))
+value2
+  = _rhs
+    (concatMap
+      \_ (a := _rhs HNil) (b := _rhs ((\(c :: _) -> c) a)) -> primIfThenElse
+        True
+        \(d := _rhs b) (e := _rhs ((\(f :: _) -> f) d)) -> Cons b Nil
+        Nil
+      (Cons HNil (Cons HNil Nil)))
+value3
+  = _rhs
+    (concatMap
+      \_ (a := _rhs HNil) (b := _rhs ((\(c :: _) -> c) a)) -> primIfThenElse
+        True
+        \(d := _rhs b) (e := _rhs ((\(f :: _) -> f) d)) -> Cons b Nil
+        Nil
+      (Cons HNil (Cons HNil Nil)))
 main is not found
 ------------ trace
 value1 :: List ()
diff --git a/testdata/language-features/basic-list/listcomp09.out b/testdata/language-features/basic-list/listcomp09.out
index 2e6ce09f..34f86f7f 100644
--- a/testdata/language-features/basic-list/listcomp09.out
+++ b/testdata/language-features/basic-list/listcomp09.out
@@ -1,3 +1,7 @@
+------------ desugared source code
+value1
+  = _rhs
+    (concatMap \_ -> Cons \(a :: _) -> hlistNilCase (_ :: _) "Hello" a Nil Nil)
 main is not found
 ------------ trace
 value1 :: Type => List (() -> String)
diff --git a/testdata/language-features/basic-values/bool01.out b/testdata/language-features/basic-values/bool01.out
index 3fd03cdf..125ed17a 100644
--- a/testdata/language-features/basic-values/bool01.out
+++ b/testdata/language-features/basic-values/bool01.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+value1 = _rhs True
+value2 = _rhs False
 main is not found
 ------------ trace
 value1 :: Bool
diff --git a/testdata/language-features/basic-values/case01.out b/testdata/language-features/basic-values/case01.out
index 1cbce892..1fc0f7f0 100644
--- a/testdata/language-features/basic-values/case01.out
+++ b/testdata/language-features/basic-values/case01.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+value1 = _rhs ((\(a :: _) -> hlistNilCase (_ :: _) HNil a) HNil)
+value2 = _rhs ((\(a :: _) -> hlistNilCase (_ :: _) HNil a) HNil)
+value3 = _rhs ((\(a :: _) -> hlistNilCase (_ :: _) HNil a) HNil)
+value4 = _rhs ((\(a :: _) -> hlistNilCase (_ :: _) HNil a) HNil)
+value5 = _rhs ((\(a :: _) -> hlistNilCase (_ :: _) HNil a) HNil)
+value6 = _rhs ((\_ -> HNil) HNil)
 main is not found
 ------------ trace
 value1 :: ()
diff --git a/testdata/language-features/basic-values/case02.out b/testdata/language-features/basic-values/case02.out
index 974b56da..146ad059 100644
--- a/testdata/language-features/basic-values/case02.out
+++ b/testdata/language-features/basic-values/case02.out
@@ -1,3 +1,15 @@
+------------ desugared source code
+value1
+  = _rhs
+    ((\(a :: _) -> 'BoolCase \_ -> _ :: _ HNil HNil (fromInt 1 == a)) (fromInt 1))
+value2
+  = _rhs
+    ((\(a :: _) -> 'BoolCase
+        \_ -> _ :: _
+        ('BoolCase \_ -> _ :: _ "_" "2" (fromInt 2 == a))
+        "1"
+        (fromInt 1 == a))
+      (fromInt 2))
 main is not found
 ------------ trace
 value1 :: 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 e77a1024..7b58c84f 100644
--- a/testdata/language-features/basic-values/case05.out
+++ b/testdata/language-features/basic-values/case05.out
@@ -1,3 +1,7 @@
+------------ desugared source code
+value
+  = \(a :: _) -> _rhs
+    ((\(b :: _) -> 'BoolCase \_ -> _ :: _ undefined '1' (fromInt 1 == b)) a)
 main is not found
 ------------ trace
 value :: 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 d2524007..92b5e196 100644
--- a/testdata/language-features/basic-values/case06.out
+++ b/testdata/language-features/basic-values/case06.out
@@ -1,3 +1,7 @@
+------------ desugared source code
+value
+  = \(a :: _) -> _rhs
+    ((\(b :: _) -> 'BoolCase \_ -> _ :: _ '_' '1' (fromInt 1 == b)) a)
 main is not found
 ------------ trace
 value :: 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 294c3b86..aa1f0c31 100644
--- a/testdata/language-features/basic-values/data01.out
+++ b/testdata/language-features/basic-values/data01.out
@@ -1,22 +1,40 @@
+------------ desugared source code
+data A :: Type where
+    B :: A
+    C :: A
+    D :: A
+data E :: Type where
+    F :: E
+    G :: HList 'Nil -> E
+    H :: E
+data D1 :: Type where
+    C1 :: D1
+    C2 :: HList 'Nil -> D1
+    C3 :: D1
 main is not found
 ------------ trace
 'A :: Type
 B :: A
 C :: A
 D :: A
-'ACase :: forall (a :: A -> Type) -> a 'B -> a 'C -> a 'D -> forall (b :: A) -> a b
+'ACase
+  :: 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
 F :: E
 G :: () -> E
 H :: E
-'ECase :: forall (a :: E -> Type) -> a 'F -> (forall (b :: ()) -> a ('G b)) -> a 'H -> forall (c :: E) -> a c
+'ECase
+  :: 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
-'D1Case :: forall (a :: D1 -> Type) -> a 'C1 -> (forall (b :: ()) -> a ('C2 b)) -> a 'C3 -> forall (c :: D1) -> a c
+'D1Case
+  :: forall (a :: D1 -> Type)
+    -> a 'C1 -> (forall (b :: ()) -> a ('C2 b)) -> a 'C3 -> forall (c :: D1) -> a c
 match'D1 :: forall (a :: Type -> Type) -> a D1 -> forall b -> a b -> a b
 ------------ tooltips
 testdata/language-features/basic-values/data01.lc 1:6-1:7  Type
diff --git a/testdata/language-features/basic-values/def01.out b/testdata/language-features/basic-values/def01.out
index 712cd657..7519f75e 100644
--- a/testdata/language-features/basic-values/def01.out
+++ b/testdata/language-features/basic-values/def01.out
@@ -1,3 +1,7 @@
+------------ desugared source code
+unit = _rhs HNil
+fun1 = \_ -> _rhs (fromInt 1)
+fun2 = \_ -> \_ -> \_ -> \_ -> \_ -> _rhs 'c'
 main is not found
 ------------ trace
 unit :: ()
diff --git a/testdata/language-features/basic-values/def03.out b/testdata/language-features/basic-values/def03.out
index 38bae81f..1dca3720 100644
--- a/testdata/language-features/basic-values/def03.out
+++ b/testdata/language-features/basic-values/def03.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+fun
+  = \(a :: _) -> 'BoolCase
+    \_ -> _ :: _
+    ('BoolCase \_ -> _ :: _ (_rhs undefined) (_rhs '2') (fromInt 2 == a))
+    (_rhs '1')
+    (fromInt 1 == a)
 main is not found
 ------------ trace
 fun :: 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 977601b2..8c4b3f46 100644
--- a/testdata/language-features/basic-values/def04.out
+++ b/testdata/language-features/basic-values/def04.out
@@ -1,3 +1,16 @@
+------------ desugared source code
+fun
+  = \(a :: _) -> 'BoolCase
+    \_ -> _ :: _
+    ('BoolCase \_ -> _ :: _ (_rhs '_') (_rhs '2') (fromInt 2 == a))
+    (_rhs '1')
+    (fromInt 1 == a)
+fun2
+  = \(a :: _) -> \_ -> 'BoolCase
+    \_ -> _ :: _
+    ('BoolCase \_ -> _ :: _ (_rhs '_') (_rhs '2') (fromInt 2 == a))
+    (_rhs '1')
+    (fromInt 1 == a)
 main is not found
 ------------ trace
 fun :: 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 325f4361..be9385d0 100644
--- a/testdata/language-features/basic-values/deforder01.out
+++ b/testdata/language-features/basic-values/deforder01.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+x = _rhs '1'
+y = _rhs x
 main is not found
 ------------ trace
 x :: Char
diff --git a/testdata/language-features/basic-values/deforder02.out b/testdata/language-features/basic-values/deforder02.out
index 9f79a9bd..b8990ab3 100644
--- a/testdata/language-features/basic-values/deforder02.out
+++ b/testdata/language-features/basic-values/deforder02.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+x = _rhs '1'
+y = _rhs x
 main is not found
 ------------ trace
 x :: Char
diff --git a/testdata/language-features/basic-values/deforder03.out b/testdata/language-features/basic-values/deforder03.out
index d98597f6..e6f8794d 100644
--- a/testdata/language-features/basic-values/deforder03.out
+++ b/testdata/language-features/basic-values/deforder03.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs \(a := _rhs HNil) (b := _rhs a) -> '1'
 main is not found
 ------------ trace
 value :: Char
diff --git a/testdata/language-features/basic-values/deforder04.out b/testdata/language-features/basic-values/deforder04.out
index 5d6e1d80..ec663000 100644
--- a/testdata/language-features/basic-values/deforder04.out
+++ b/testdata/language-features/basic-values/deforder04.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs \(a := _rhs HNil) (b := _rhs a) -> '1'
 main is not found
 ------------ trace
 value :: Char
diff --git a/testdata/language-features/basic-values/deforder05.out b/testdata/language-features/basic-values/deforder05.out
index 73897e36..58a3f0fc 100644
--- a/testdata/language-features/basic-values/deforder05.out
+++ b/testdata/language-features/basic-values/deforder05.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs \(a := _rhs HNil) (b := _rhs a) -> '1'
 main is not found
 ------------ trace
 value :: Char
diff --git a/testdata/language-features/basic-values/deforder06.out b/testdata/language-features/basic-values/deforder06.out
index 794432d6..48f45d42 100644
--- a/testdata/language-features/basic-values/deforder06.out
+++ b/testdata/language-features/basic-values/deforder06.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs \(a := _rhs HNil) (b := _rhs a) -> '1'
 main is not found
 ------------ trace
 value :: Char
diff --git a/testdata/language-features/basic-values/fixity01.out b/testdata/language-features/basic-values/fixity01.out
index f30cd6fa..2274b6a6 100644
--- a/testdata/language-features/basic-values/fixity01.out
+++ b/testdata/language-features/basic-values/fixity01.out
@@ -1,3 +1,12 @@
+------------ desugared source code
+funL = \(a :: _) -> \_ -> _rhs a
+funR = \(a :: _) -> \_ -> _rhs a
+<<<< = \(a :: _) -> \_ -> _rhs a
+>>>> = \_ (a :: _) -> _rhs a
+infixr 7 funL
+infixr 7 <<<<
+infixr 6 >>>>
+infixr 6 funR
 main is not found
 ------------ trace
 funL :: 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 e16184f0..38f4bea0 100644
--- a/testdata/language-features/basic-values/fixity02.out
+++ b/testdata/language-features/basic-values/fixity02.out
@@ -1,3 +1,28 @@
+------------ desugared source code
+funL = \(a :: _) -> \_ -> _rhs a
+funR = \_ (a :: _) -> _rhs a
+<@ = \(a :: _) -> \_ -> _rhs a
+@> = \_ (a :: _) -> _rhs a
+infixr 7 funL
+infixr 7 <@
+infixr 6 @>
+infixr 6 funR
+value1 = _rhs (HNil @> 'c' @> "hi" @> 1.2 :: Float)
+value2 = _rhs (HNil @> 'c' <@ "hi" @> 1.2 :: Float)
+value3 = _rhs (HNil <@ 'c' @> "hi" @> 1.2 :: Float)
+value4 = _rhs (HNil <@ 'c' <@ "hi" @> 1.2 :: Float)
+value5 = _rhs (HNil @> 'c' @> "hi" <@ 1.2 :: String)
+value6 = _rhs (HNil @> 'c' <@ "hi" <@ 1.2 :: Char)
+value7 = _rhs (HNil <@ 'c' @> "hi" <@ 1.2 :: String)
+value8 = _rhs (HNil <@ 'c' <@ "hi" <@ 1.2 :: HList 'Nil)
+funValue1 = _rhs (HNil `funR` 'c' `funR` "hi" `funR` 1.2 :: Float)
+funValue2 = _rhs (HNil `funR` 'c' `funL` "hi" `funR` 1.2 :: Float)
+funValue3 = _rhs (HNil `funL` 'c' `funR` "hi" `funR` 1.2 :: Float)
+funValue4 = _rhs (HNil `funL` 'c' `funL` "hi" `funR` 1.2 :: Float)
+funValue5 = _rhs (HNil `funR` 'c' `funR` "hi" `funL` 1.2 :: String)
+funValue6 = _rhs (HNil `funR` 'c' `funL` "hi" `funL` 1.2 :: Char)
+funValue7 = _rhs (HNil `funL` 'c' `funR` "hi" `funL` 1.2 :: String)
+funValue8 = _rhs (HNil `funL` 'c' `funL` "hi" `funL` 1.2 :: HList 'Nil)
 main is not found
 ------------ trace
 funL :: 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 b68d03e3..1e472faf 100644
--- a/testdata/language-features/basic-values/if01.out
+++ b/testdata/language-features/basic-values/if01.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+value1 = _rhs (primIfThenElse True HNil HNil)
+value2 = _rhs (primIfThenElse False 1.0 2.0)
 main is not found
 ------------ trace
 value1 :: ()
diff --git a/testdata/language-features/basic-values/indentation01.out b/testdata/language-features/basic-values/indentation01.out
index 3893683c..0540da3c 100644
--- a/testdata/language-features/basic-values/indentation01.out
+++ b/testdata/language-features/basic-values/indentation01.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+tuple1 = _rhs HNil
+tuple2 = _rhs HNil
 main is not found
 ------------ trace
 tuple1 :: ()
diff --git a/testdata/language-features/basic-values/indentation02.out b/testdata/language-features/basic-values/indentation02.out
index c6fd7aad..8fa11e6c 100644
--- a/testdata/language-features/basic-values/indentation02.out
+++ b/testdata/language-features/basic-values/indentation02.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+tuple1 = _rhs HNil
+tuple2 = _rhs HNil
 main is not found
 ------------ trace
 tuple1 :: ()
diff --git a/testdata/language-features/basic-values/infix01.out b/testdata/language-features/basic-values/infix01.out
index 33ab245c..ec2b9ce7 100644
--- a/testdata/language-features/basic-values/infix01.out
+++ b/testdata/language-features/basic-values/infix01.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+fun = \_ -> \_ -> _rhs HNil
+value = \(a :: _) (b :: _) -> _rhs (a `fun` b)
 main is not found
 ------------ trace
 fun :: forall a b . a -> b -> ()
diff --git a/testdata/language-features/basic-values/infix02.out b/testdata/language-features/basic-values/infix02.out
index 11e17685..2db04d26 100644
--- a/testdata/language-features/basic-values/infix02.out
+++ b/testdata/language-features/basic-values/infix02.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+fun = \_ -> \_ -> \_ -> _rhs HNil
+value = \(a :: _) (b :: _) -> _rhs (a `fun` b)
 main is not found
 ------------ trace
 fun :: 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 213d9e06..d089f79d 100644
--- a/testdata/language-features/basic-values/infix03.out
+++ b/testdata/language-features/basic-values/infix03.out
@@ -1,9 +1,19 @@
+------------ desugared source code
+data D :: Type where
+    D2 :: HList 'Nil -> HList 'Nil -> D
+    D3 :: HList 'Nil -> HList 'Nil -> HList 'Nil -> D
+d2 = \(a :: _) (b :: _) -> _rhs (a `D2` b)
+d3 = \(a :: _) (b :: _) -> _rhs (a `D3` b)
 main is not found
 ------------ trace
 'D :: Type
 D2 :: () -> () -> D
 D3 :: () -> () -> () -> D
-'DCase :: 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
+'DCase
+  :: 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
 d2 :: () -> () -> D
 d3 :: () -> () -> () -> D
diff --git a/testdata/language-features/basic-values/lambda01.out b/testdata/language-features/basic-values/lambda01.out
index e2c51312..5d57cdfd 100644
--- a/testdata/language-features/basic-values/lambda01.out
+++ b/testdata/language-features/basic-values/lambda01.out
@@ -1,9 +1,15 @@
+------------ desugared source code
+fun1 = _rhs \_ -> HNil
+fun2 = _rhs \_ -> HNil
+fun3 = _rhs \_ -> HNil
+fun4 = _rhs \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> HNil
 main is not found
 ------------ trace
 fun1 :: forall a . a -> ()
 fun2 :: forall a . a -> ()
 fun3 :: forall a . a -> ()
-fun4 :: forall a b c d e f g h i . a -> b -> c -> d -> e -> f -> g -> h -> i -> ()
+fun4
+  :: forall a b c d e f g h i . a -> b -> c -> d -> e -> f -> g -> h -> i -> ()
 ------------ tooltips
 testdata/language-features/basic-values/lambda01.lc 1:1-1:5  forall a . a -> ()
 testdata/language-features/basic-values/lambda01.lc 1:14-1:16  ()
diff --git a/testdata/language-features/basic-values/lambda03.out b/testdata/language-features/basic-values/lambda03.out
index 902fdc98..33988c84 100644
--- a/testdata/language-features/basic-values/lambda03.out
+++ b/testdata/language-features/basic-values/lambda03.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+fun1 = _rhs \_ (a :: _) -> \_ -> a
+fun2 = \(a :: _) -> _rhs \_ -> \_ -> \_ -> a
 main is not found
 ------------ trace
 fun1 :: 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 36ecf369..24948a10 100644
--- a/testdata/language-features/basic-values/let01.out
+++ b/testdata/language-features/basic-values/let01.out
@@ -1,3 +1,9 @@
+------------ desugared source code
+value1 = _rhs \(a := _rhs (fromInt 1)) -> fromInt 1
+value2 = _rhs \(a := _rhs (fromInt 1)) -> fromInt 1
+value3 = _rhs \(a := _rhs (fromInt 1)) (b := _rhs 'c') -> fromInt 1
+value4 = _rhs \(a := _rhs (fromInt 1)) -> fromInt 1
+value5 = _rhs \(a := _rhs (fromInt 1)) (b := _rhs (fromInt 2)) -> fromInt 1
 main is not found
 ------------ trace
 value1 :: forall a . Num a => a
diff --git a/testdata/language-features/basic-values/let02.out b/testdata/language-features/basic-values/let02.out
index bee7d640..92afbe41 100644
--- a/testdata/language-features/basic-values/let02.out
+++ b/testdata/language-features/basic-values/let02.out
@@ -1,3 +1,11 @@
+------------ desugared source code
+value
+  = _rhs
+    \(a := _rhs HNil)
+      (b := _rhs \(d := _rhs 'A') -> HNil)
+        (c
+          := _rhs
+            \(e := _rhs HNil) (f := _rhs (fromInt 1)) (g := _rhs "hello") -> 'B') -> HNil
 main is not found
 ------------ trace
 value :: ()
diff --git a/testdata/language-features/basic-values/literal01.out b/testdata/language-features/basic-values/literal01.out
index abaca3a7..a8328841 100644
--- a/testdata/language-features/basic-values/literal01.out
+++ b/testdata/language-features/basic-values/literal01.out
@@ -1,3 +1,12 @@
+------------ desugared source code
+intValue1 = _rhs (fromInt 0)
+intValue2 = _rhs (fromInt 1)
+intValue3 = _rhs (fromInt 12345)
+floatValue1 = _rhs 2.0
+floatValue2 = _rhs 123400.0
+charValue = _rhs 'A'
+stringValue1 = _rhs "Hello World"
+stringValue2 = _rhs "\nHello World\tagain!\r\n"
 main is not found
 ------------ trace
 intValue1 :: forall a . Num a => a
diff --git a/testdata/language-features/basic-values/operator01.out b/testdata/language-features/basic-values/operator01.out
index 597a3a00..deae312b 100644
--- a/testdata/language-features/basic-values/operator01.out
+++ b/testdata/language-features/basic-values/operator01.out
@@ -1,3 +1,8 @@
+------------ desugared source code
+#$# = \_ -> \_ -> _rhs HNil
+$$# = \_ -> \_ -> _rhs HNil
+$$$# = \_ -> \_ -> _rhs HNil
+$$$ = \_ -> \_ -> _rhs HNil
 main is not found
 ------------ trace
 #$# :: forall a b . a -> b -> ()
diff --git a/testdata/language-features/basic-values/operator05.out b/testdata/language-features/basic-values/operator05.out
index 30b3fcac..d6ef392d 100644
--- a/testdata/language-features/basic-values/operator05.out
+++ b/testdata/language-features/basic-values/operator05.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value1 = _rhs \(a := \_ -> \_ -> _rhs HNil) -> a HNil HNil
 main is not found
 ------------ trace
 value1 :: ()
diff --git a/testdata/language-features/basic-values/operator06.out b/testdata/language-features/basic-values/operator06.out
index 4fa5381e..0252f155 100644
--- a/testdata/language-features/basic-values/operator06.out
+++ b/testdata/language-features/basic-values/operator06.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value1 = _rhs \(a := \_ -> \_ -> _rhs HNil) -> a HNil HNil
 main is not found
 ------------ trace
 value1 :: ()
diff --git a/testdata/language-features/basic-values/shadowing01.out b/testdata/language-features/basic-values/shadowing01.out
index 9a8f5f22..6bddb912 100644
--- a/testdata/language-features/basic-values/shadowing01.out
+++ b/testdata/language-features/basic-values/shadowing01.out
@@ -1,3 +1,15 @@
+------------ desugared source code
+value
+  = _rhs
+    \(a := _rhs 'A')
+      (b := _rhs "hello")
+        (c
+          := _rhs
+            \(d := _rhs (fromInt 1))
+              (e := _rhs 2.12)
+                (f
+                  := _rhs
+                    \(g := _rhs HNil) (h := _rhs 'C') (i := _rhs 3.12) -> "world") -> HNil) -> '7'
 main is not found
 ------------ trace
 value :: Char
diff --git a/testdata/language-features/basic-values/shadowing02.out b/testdata/language-features/basic-values/shadowing02.out
index d4d4373b..e5eaf957 100644
--- a/testdata/language-features/basic-values/shadowing02.out
+++ b/testdata/language-features/basic-values/shadowing02.out
@@ -1,3 +1,19 @@
+------------ desugared source code
+c = _rhs (fromInt 7)
+world = _rhs "world"
+value2
+  = _rhs
+    \(a := _rhs 'A')
+      (b := _rhs "hello")
+        (c := _rhs (fromInt 123))
+          (d
+            := _rhs
+              \(e := _rhs (fromInt 1))
+                (f := _rhs 2.12)
+                  (g
+                    := _rhs
+                      \(h := _rhs HNil)
+                        (i := _rhs 'C') (j := _rhs 3.12) (k := _rhs c) -> world) -> HNil) -> '7'
 main is not found
 ------------ trace
 c :: forall a . Num a => a
diff --git a/testdata/language-features/basic-values/shadowing03.out b/testdata/language-features/basic-values/shadowing03.out
index 23d28466..7c734e30 100644
--- a/testdata/language-features/basic-values/shadowing03.out
+++ b/testdata/language-features/basic-values/shadowing03.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+x = \_ -> \_ -> _rhs HNil
 main is not found
 ------------ trace
 x :: forall a b . a -> b -> ()
diff --git a/testdata/language-features/basic-values/shadowing04.out b/testdata/language-features/basic-values/shadowing04.out
index 70a54caa..8cd2c778 100644
--- a/testdata/language-features/basic-values/shadowing04.out
+++ b/testdata/language-features/basic-values/shadowing04.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+__ = \_ -> \_ -> _rhs HNil
 main is not found
 ------------ trace
 __ :: forall a b . a -> b -> ()
diff --git a/testdata/language-features/basic-values/tuple01.out b/testdata/language-features/basic-values/tuple01.out
index d3a27511..b1208a3a 100644
--- a/testdata/language-features/basic-values/tuple01.out
+++ b/testdata/language-features/basic-values/tuple01.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+unit = _rhs HNil
 main is not found
 ------------ trace
 unit :: ()
diff --git a/testdata/language-features/basic-values/tuple02.out b/testdata/language-features/basic-values/tuple02.out
index 4e15f913..0419494e 100644
--- a/testdata/language-features/basic-values/tuple02.out
+++ b/testdata/language-features/basic-values/tuple02.out
@@ -1,3 +1,9 @@
+------------ desugared source code
+tuple1
+  = _rhs
+    (HCons (fromInt 1) (HCons 2.3 (HCons 'D' (HCons "string" (HCons HNil HNil)))))
+tuple2 = _rhs (HCons HNil (HCons HNil HNil))
+tuple3 = _rhs (HCons (HCons "name" (HCons 'c' HNil)) (HCons HNil HNil))
 main is not found
 ------------ trace
 tuple1 :: 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 c473b40c..491eb5f1 100644
--- a/testdata/language-features/basic-values/typesig01.out
+++ b/testdata/language-features/basic-values/typesig01.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+value1 = _rhs 'a' :: Char
+value2 = _rhs 'a' :: Char
 main is not found
 ------------ trace
 value1 :: Char
diff --git a/testdata/language-features/basic-values/typesig02.out b/testdata/language-features/basic-values/typesig02.out
index c1e6361e..e7b64644 100644
--- a/testdata/language-features/basic-values/typesig02.out
+++ b/testdata/language-features/basic-values/typesig02.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+value1 = _rhs ('a' :: Char)
+value2 = _rhs ('a' :: Char)
 main is not found
 ------------ trace
 value1 :: Char
diff --git a/testdata/language-features/basic-values/typesig03.out b/testdata/language-features/basic-values/typesig03.out
index 68d312c9..393824b3 100644
--- a/testdata/language-features/basic-values/typesig03.out
+++ b/testdata/language-features/basic-values/typesig03.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+fun1
+  = (\_ -> \_ -> \_ -> _rhs HNil)
+    :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> HList 'Nil
+fun2
+  = (\_ -> \_ -> \_ -> _rhs HNil)
+    :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> HList 'Nil
 main is not found
 ------------ trace
 fun1 :: forall a b c . a -> b -> c -> ()
diff --git a/testdata/language-features/basic-values/typesig04.out b/testdata/language-features/basic-values/typesig04.out
index 3059a3ac..e6fbc596 100644
--- a/testdata/language-features/basic-values/typesig04.out
+++ b/testdata/language-features/basic-values/typesig04.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+fun1
+  = (\_ -> \_ -> _rhs HNil)
+    :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> HList 'Nil
+fun2
+  = (\_ -> \_ -> _rhs HNil)
+    :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> HList 'Nil
 main is not found
 ------------ trace
 fun1 :: forall a b c . a -> (b -> c) -> ()
diff --git a/testdata/language-features/basic-values/typesig05.out b/testdata/language-features/basic-values/typesig05.out
index d107f4eb..1f40f653 100644
--- a/testdata/language-features/basic-values/typesig05.out
+++ b/testdata/language-features/basic-values/typesig05.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+funL = \(a :: _) -> \_ -> _rhs a
+funR = \_ (a :: _) -> _rhs a
+value1 = _rhs (funL 'a' "b" :: Char)
+value2 = _rhs (funR 'a' "b" :: String)
+value3 = _rhs (funL 'a' "b") :: Char
+value4 = _rhs (funR 'a' "b") :: String
 main is not found
 ------------ trace
 funL :: 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 c249026f..6c86ce15 100644
--- a/testdata/language-features/basic-values/typesig06.out
+++ b/testdata/language-features/basic-values/typesig06.out
@@ -1,3 +1,8 @@
+------------ desugared source code
+funL = \(a :: _) -> \_ -> _rhs a
+<@ = \(a :: _) -> \_ -> _rhs a
+value1 = _rhs ("hi" <@ 1.2 :: String)
+value2 = _rhs ("hi" `funL` 1.2 :: String)
 main is not found
 ------------ trace
 funL :: 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 65ce8df7..08742feb 100644
--- a/testdata/language-features/basic-values/typesig07.out
+++ b/testdata/language-features/basic-values/typesig07.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+value1 = _rhs (fromInt 1) :: Int
+value2 = _rhs (fromInt 2) :: Int
+value3 = _rhs (fromInt 3) :: Int
+value4 = (\_ -> \_ -> _rhs HNil) :: HList 'Nil -> HList 'Nil -> HList 'Nil
+@@@ = (\_ -> \_ -> _rhs HNil) :: HList 'Nil -> HList 'Nil -> HList 'Nil
+value6 = (\_ -> \_ -> _rhs HNil) :: HList 'Nil -> HList 'Nil -> HList 'Nil
 main is not found
 ------------ trace
 value1 :: Int
diff --git a/testdata/language-features/basic-values/typesyn01.out b/testdata/language-features/basic-values/typesyn01.out
index f5bf60cf..3d10ddaa 100644
--- a/testdata/language-features/basic-values/typesyn01.out
+++ b/testdata/language-features/basic-values/typesyn01.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+'MyUnit = _rhs ('HList Nil)
 main is not found
 ------------ trace
 'MyUnit :: Type
diff --git a/testdata/language-features/basic-values/typesyn02.out b/testdata/language-features/basic-values/typesyn02.out
index 858e7b33..615d97eb 100644
--- a/testdata/language-features/basic-values/typesyn02.out
+++ b/testdata/language-features/basic-values/typesyn02.out
@@ -1,3 +1,8 @@
+------------ desugared source code
+'MyUnit = _rhs ('HList Nil)
+fun
+  = (\_ (a :: _) -> hlistNilCase (_ :: _) (_rhs HNil) a)
+    :: forall (b :: _) . b -> MyUnit -> MyUnit
 main is not found
 ------------ trace
 'MyUnit :: Type
diff --git a/testdata/language-features/basic-values/where01.out b/testdata/language-features/basic-values/where01.out
index 11498269..0008aa6a 100644
--- a/testdata/language-features/basic-values/where01.out
+++ b/testdata/language-features/basic-values/where01.out
@@ -1,3 +1,15 @@
+------------ desugared source code
+value1 = _rhs \(a := _rhs HNil) -> HNil
+value2 = _rhs \(a := _rhs HNil) -> a
+value3 = _rhs \(a := _rhs HNil) (b := _rhs HNil) -> a
+value4 = _rhs \(a := _rhs HNil) (b := _rhs HNil) -> b
+value5 = _rhs \(a := _rhs HNil) (b := _rhs HNil) -> a
+value6 = _rhs HNil
+value7 = _rhs HNil
+value8 = _rhs HNil
+value9 = _rhs \(a := _rhs HNil) (b := _rhs HNil) -> a
+value10 = _rhs \(a := _rhs HNil) (b := _rhs HNil) -> a
+value11 = _rhs \(a := _rhs HNil) (b := _rhs HNil) -> a
 main is not found
 ------------ trace
 value1 :: ()
diff --git a/testdata/language-features/basic-values/where04.out b/testdata/language-features/basic-values/where04.out
index 8649acfa..36bc3969 100644
--- a/testdata/language-features/basic-values/where04.out
+++ b/testdata/language-features/basic-values/where04.out
@@ -1,3 +1,7 @@
+------------ desugared source code
+value1 = _rhs \(a := _rhs \(b := _rhs HNil) -> b) -> a
+value2 = _rhs \(a := _rhs \(b := _rhs HNil) -> b) -> a
+value3 = _rhs \(a := _rhs \(b := _rhs HNil) -> b) -> a
 main is not found
 ------------ trace
 value1 :: ()
diff --git a/testdata/language-features/basic-values/where05.out b/testdata/language-features/basic-values/where05.out
index 11743f93..ee42956d 100644
--- a/testdata/language-features/basic-values/where05.out
+++ b/testdata/language-features/basic-values/where05.out
@@ -1,3 +1,36 @@
+------------ desugared source code
+value1
+  = _rhs
+    ((\(a :: _) -> 'BoolCase
+        \_ -> _ :: _
+        HNil
+        \(b := _rhs HNil) -> b
+        (fromInt 1 == a))
+      (fromInt 1))
+value2
+  = _rhs
+    ((\(a :: _) -> 'BoolCase
+        \_ -> _ :: _
+        HNil
+        \(b := _rhs HNil) -> b
+        (fromInt 1 == a))
+      (fromInt 1))
+value3
+  = _rhs
+    ((\(a :: _) -> 'BoolCase
+        \_ -> _ :: _
+        HNil
+        \(b := _rhs HNil) -> b
+        (fromInt 1 == a))
+      (fromInt 1))
+value4
+  = _rhs
+    \(a := _rhs HNil) -> (\(b :: _) -> 'BoolCase
+        \_ -> _ :: _
+        HNil
+        a
+        (fromInt 1 == b))
+      (fromInt 1)
 main is not found
 ------------ trace
 value1 :: 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 891a7edd..86b6cae7 100644
--- a/testdata/language-features/basic-values/wildcard01.out
+++ b/testdata/language-features/basic-values/wildcard01.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+funUnit = \_ -> _rhs HNil
 main is not found
 ------------ trace
 funUnit :: forall a . a -> ()
diff --git a/testdata/language-features/comment/comment01.out b/testdata/language-features/comment/comment01.out
index 8fcbc3af..907bca84 100644
--- a/testdata/language-features/comment/comment01.out
+++ b/testdata/language-features/comment/comment01.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/language-features/comment/comment02.out b/testdata/language-features/comment/comment02.out
index 8fcbc3af..907bca84 100644
--- a/testdata/language-features/comment/comment02.out
+++ b/testdata/language-features/comment/comment02.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/language-features/comment/comment03.out b/testdata/language-features/comment/comment03.out
index 8fcbc3af..907bca84 100644
--- a/testdata/language-features/comment/comment03.out
+++ b/testdata/language-features/comment/comment03.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/language-features/comment/comment04.out b/testdata/language-features/comment/comment04.out
index 8fcbc3af..907bca84 100644
--- a/testdata/language-features/comment/comment04.out
+++ b/testdata/language-features/comment/comment04.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/language-features/emptysource.out b/testdata/language-features/emptysource.out
index 8fcbc3af..907bca84 100644
--- a/testdata/language-features/emptysource.out
+++ b/testdata/language-features/emptysource.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/language-features/guard/guard01.out b/testdata/language-features/guard/guard01.out
index 5f08a0dc..6fde06b1 100644
--- a/testdata/language-features/guard/guard01.out
+++ b/testdata/language-features/guard/guard01.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = 'BoolCase \_ -> _ :: _ (_rhs undefined) (_rhs HNil) True
 main is not found
 ------------ trace
 value :: ()
diff --git a/testdata/language-features/guard/guard03.out b/testdata/language-features/guard/guard03.out
index 7090e22b..7b176d9b 100644
--- a/testdata/language-features/guard/guard03.out
+++ b/testdata/language-features/guard/guard03.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+value
+  = 'BoolCase
+    \_ -> _ :: _
+    ('BoolCase \_ -> _ :: _ (_rhs undefined) (_rhs "False") False)
+    (_rhs "True")
+    True
 main is not found
 ------------ trace
 value :: String
diff --git a/testdata/language-features/guard/guard04.out b/testdata/language-features/guard/guard04.out
index 3f34c61b..54ca2fb7 100644
--- a/testdata/language-features/guard/guard04.out
+++ b/testdata/language-features/guard/guard04.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = 'BoolCase \_ -> _ :: _ (_rhs "False") (_rhs "True") True
 main is not found
 ------------ trace
 value :: String
diff --git a/testdata/language-features/guard/guard06.out b/testdata/language-features/guard/guard06.out
index 6a42d526..9e4d40a5 100644
--- a/testdata/language-features/guard/guard06.out
+++ b/testdata/language-features/guard/guard06.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs HNil
 main is not found
 ------------ trace
 value :: ()
diff --git a/testdata/language-features/guard/guard07.out b/testdata/language-features/guard/guard07.out
index 38e182d2..461efa43 100644
--- a/testdata/language-features/guard/guard07.out
+++ b/testdata/language-features/guard/guard07.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+value
+  = 'BoolCase
+    \_ -> _ :: _
+    ('BoolCase \_ -> _ :: _ (_rhs undefined) (_rhs "False") False)
+    (_rhs "True")
+    True
 main is not found
 ------------ trace
 value :: String
diff --git a/testdata/language-features/guard/guard08.out b/testdata/language-features/guard/guard08.out
index 075a074b..4f273b1d 100644
--- a/testdata/language-features/guard/guard08.out
+++ b/testdata/language-features/guard/guard08.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+value
+  = 'BoolCase
+    \_ -> _ :: _
+    ('BoolCase \_ -> _ :: _ (_rhs undefined) (_rhs "False") False)
+    (_rhs "True")
+    True
 main is not found
 ------------ trace
 value :: String
diff --git a/testdata/language-features/guard/guard09.out b/testdata/language-features/guard/guard09.out
index 694aaa0a..f7fe0f27 100644
--- a/testdata/language-features/guard/guard09.out
+++ b/testdata/language-features/guard/guard09.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+value
+  = 'BoolCase
+    \_ -> _ :: _
+    ('BoolCase \_ -> _ :: _ (_rhs undefined) (_rhs "False") False)
+    (_rhs "True")
+    True
 main is not found
 ------------ trace
 value :: String
diff --git a/testdata/language-features/guard/guard11.out b/testdata/language-features/guard/guard11.out
index 08498e54..ab4e408f 100644
--- a/testdata/language-features/guard/guard11.out
+++ b/testdata/language-features/guard/guard11.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+fun = \(a :: _) -> 'BoolCase \_ -> _ :: _ (_rhs "False") (_rhs "True") a
 main is not found
 ------------ trace
 fun :: Bool -> String
diff --git a/testdata/language-features/guard/guard13.out b/testdata/language-features/guard/guard13.out
index 2ab6fd64..a39476bd 100644
--- a/testdata/language-features/guard/guard13.out
+++ b/testdata/language-features/guard/guard13.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+fun = \(a :: _) -> 'BoolCase \_ -> _ :: _ (_rhs HNil) (_rhs HNil) a
 main is not found
 ------------ trace
 fun :: Bool -> ()
diff --git a/testdata/language-features/guard/guard14.out b/testdata/language-features/guard/guard14.out
index 6239a07f..67a9c499 100644
--- a/testdata/language-features/guard/guard14.out
+++ b/testdata/language-features/guard/guard14.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs \(a := 'BoolCase \_ -> _ :: _ (_rhs HNil) (_rhs HNil) True) -> HNil
 main is not found
 ------------ trace
 value :: ()
diff --git a/testdata/language-features/guard/guard15.out b/testdata/language-features/guard/guard15.out
index d29b7738..4293221c 100644
--- a/testdata/language-features/guard/guard15.out
+++ b/testdata/language-features/guard/guard15.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+value = _rhs \(a := 'BoolCase \_ -> _ :: _ (_rhs HNil) (_rhs HNil) True) -> HNil
 main is not found
 ------------ trace
 value :: ()
diff --git a/testdata/language-features/guard/guard16.out b/testdata/language-features/guard/guard16.out
index 1c3bd27d..9886821b 100644
--- a/testdata/language-features/guard/guard16.out
+++ b/testdata/language-features/guard/guard16.out
@@ -1,3 +1,12 @@
+------------ desugared source code
+value
+  = _rhs
+    ((\(a :: _) -> 'BoolCase
+        \_ -> _ :: _
+        HNil
+        ('BoolCase \_ -> _ :: _ HNil HNil True)
+        (fromInt 1 == a))
+      (fromInt 1))
 main is not found
 ------------ trace
 value :: forall a . (Eq a, Num a) => ()
diff --git a/testdata/language-features/module/Hello01.out b/testdata/language-features/module/Hello01.out
index 1092217c..d7ab37a3 100644
--- a/testdata/language-features/module/Hello01.out
+++ b/testdata/language-features/module/Hello01.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+hello = _rhs "hello"
+world = _rhs "world"
 main is not found
 ------------ trace
 hello :: String
diff --git a/testdata/language-features/module/Hello02.out b/testdata/language-features/module/Hello02.out
index 5add282c..40a09950 100644
--- a/testdata/language-features/module/Hello02.out
+++ b/testdata/language-features/module/Hello02.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+hello = _rhs "hello"
+world = _rhs "world"
 main is not found
 ------------ trace
 hello :: String
diff --git a/testdata/language-features/module/Hello03.out b/testdata/language-features/module/Hello03.out
index 12f70b11..f926b872 100644
--- a/testdata/language-features/module/Hello03.out
+++ b/testdata/language-features/module/Hello03.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+greeting = _rhs 'G'
+value = _rhs 12.2
 main is not found
 ------------ trace
 greeting :: Char
diff --git a/testdata/language-features/module/ModulePackage/SubModule01.out b/testdata/language-features/module/ModulePackage/SubModule01.out
index 513c363e..88780f22 100644
--- a/testdata/language-features/module/ModulePackage/SubModule01.out
+++ b/testdata/language-features/module/ModulePackage/SubModule01.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+hello = _rhs "Hello"
 main is not found
 ------------ trace
 hello :: String
diff --git a/testdata/language-features/module/Moduledef01.out b/testdata/language-features/module/Moduledef01.out
index 8fcbc3af..907bca84 100644
--- a/testdata/language-features/module/Moduledef01.out
+++ b/testdata/language-features/module/Moduledef01.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/language-features/module/Moduledef06.out b/testdata/language-features/module/Moduledef06.out
index 0d6e7543..72cb3a01 100644
--- a/testdata/language-features/module/Moduledef06.out
+++ b/testdata/language-features/module/Moduledef06.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+hello = _rhs "hello"
 main is not found
 ------------ trace
 hello :: String
diff --git a/testdata/language-features/module/Moduledef07.out b/testdata/language-features/module/Moduledef07.out
index abacda06..ddd44c2e 100644
--- a/testdata/language-features/module/Moduledef07.out
+++ b/testdata/language-features/module/Moduledef07.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+hello = _rhs "hello"
 main is not found
 ------------ trace
 hello :: String
diff --git a/testdata/language-features/module/Moduledef08.out b/testdata/language-features/module/Moduledef08.out
index 873b2467..8c446393 100644
--- a/testdata/language-features/module/Moduledef08.out
+++ b/testdata/language-features/module/Moduledef08.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+hello = _rhs "hello"
 main is not found
 ------------ trace
 hello :: String
diff --git a/testdata/language-features/module/Moduledef09.out b/testdata/language-features/module/Moduledef09.out
index f8d17e75..6a8ec166 100644
--- a/testdata/language-features/module/Moduledef09.out
+++ b/testdata/language-features/module/Moduledef09.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+hello = _rhs "hello"
+world = _rhs "world"
 main is not found
 ------------ trace
 hello :: String
diff --git a/testdata/language-features/module/Moduledef10.out b/testdata/language-features/module/Moduledef10.out
index 6064ace1..2cec647d 100644
--- a/testdata/language-features/module/Moduledef10.out
+++ b/testdata/language-features/module/Moduledef10.out
@@ -1,3 +1,7 @@
+------------ desugared source code
+hello = _rhs "hello"
+world = _rhs "world"
+value = _rhs HNil
 main is not found
 ------------ trace
 hello :: String
diff --git a/testdata/language-features/module/Moduledef13.out b/testdata/language-features/module/Moduledef13.out
index 01a5781b..08922d6a 100644
--- a/testdata/language-features/module/Moduledef13.out
+++ b/testdata/language-features/module/Moduledef13.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+hello = _rhs "hello"
 main is not found
 ------------ trace
 hello :: String
diff --git a/testdata/language-features/module/TypeSyn01Mod.out b/testdata/language-features/module/TypeSyn01Mod.out
index 47ed80b8..61a3438b 100644
--- a/testdata/language-features/module/TypeSyn01Mod.out
+++ b/testdata/language-features/module/TypeSyn01Mod.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+'MyUnit = _rhs ('HList Nil)
 main is not found
 ------------ trace
 'MyUnit :: Type
diff --git a/testdata/language-features/module/import01.out b/testdata/language-features/module/import01.out
index fbf732d3..92e24184 100644
--- a/testdata/language-features/module/import01.out
+++ b/testdata/language-features/module/import01.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+x = _rhs hello
 main is not found
 ------------ trace
 x :: String
diff --git a/testdata/language-features/module/import05.out b/testdata/language-features/module/import05.out
index 3ed4aafc..1074387f 100644
--- a/testdata/language-features/module/import05.out
+++ b/testdata/language-features/module/import05.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+x = _rhs hello :: String
 main is not found
 ------------ trace
 x :: String
diff --git a/testdata/language-features/module/import06.out b/testdata/language-features/module/import06.out
index b9ec1f0f..7709e076 100644
--- a/testdata/language-features/module/import06.out
+++ b/testdata/language-features/module/import06.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+hello = _rhs HNil
+x = _rhs world
 main is not found
 ------------ trace
 hello :: ()
diff --git a/testdata/language-features/module/import07.out b/testdata/language-features/module/import07.out
index 10ec3003..d4246086 100644
--- a/testdata/language-features/module/import07.out
+++ b/testdata/language-features/module/import07.out
@@ -1,3 +1,6 @@
+------------ desugared source code
+hello = _rhs HNil
+x = _rhs world
 main is not found
 ------------ trace
 hello :: ()
diff --git a/testdata/language-features/module/import08.out b/testdata/language-features/module/import08.out
index ea29a899..75c34115 100644
--- a/testdata/language-features/module/import08.out
+++ b/testdata/language-features/module/import08.out
@@ -1,3 +1,8 @@
+------------ desugared source code
+value = _rhs HNil
+g = _rhs greeting :: Char
+h = _rhs hello :: String
+w = _rhs world :: String
 main is not found
 ------------ trace
 value :: ()
diff --git a/testdata/language-features/module/import09.out b/testdata/language-features/module/import09.out
index b084e577..c8edeca8 100644
--- a/testdata/language-features/module/import09.out
+++ b/testdata/language-features/module/import09.out
@@ -1,3 +1,7 @@
+------------ desugared source code
+fun
+  = (\_ (a :: _) -> hlistNilCase (_ :: _) (_rhs HNil) a)
+    :: forall (b :: _) . b -> MyUnit -> MyUnit
 main is not found
 ------------ trace
 fun :: forall a . a -> () -> ()
diff --git a/testdata/language-features/module/import12.out b/testdata/language-features/module/import12.out
index fb54d02c..da5cbbc0 100644
--- a/testdata/language-features/module/import12.out
+++ b/testdata/language-features/module/import12.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+fun = _rhs hello
 main is not found
 ------------ trace
 fun :: String
diff --git a/testdata/language-features/module/import13.out b/testdata/language-features/module/import13.out
index 9a46cd6d..509460bf 100644
--- a/testdata/language-features/module/import13.out
+++ b/testdata/language-features/module/import13.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+fun = _rhs hello
 main is not found
 ------------ trace
 fun :: String
diff --git a/testdata/language-features/module/import14.out b/testdata/language-features/module/import14.out
index 114303dd..73df8f0a 100644
--- a/testdata/language-features/module/import14.out
+++ b/testdata/language-features/module/import14.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+fun = _rhs hello
 main is not found
 ------------ trace
 fun :: String
diff --git a/testdata/language-features/module/import15.out b/testdata/language-features/module/import15.out
index b4d11105..92df1171 100644
--- a/testdata/language-features/module/import15.out
+++ b/testdata/language-features/module/import15.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+fun = _rhs hello
 main is not found
 ------------ trace
 fun :: String
diff --git a/testdata/language-features/pattern/pattern01.out b/testdata/language-features/pattern/pattern01.out
index 8e753e7d..f5b7944c 100644
--- a/testdata/language-features/pattern/pattern01.out
+++ b/testdata/language-features/pattern/pattern01.out
@@ -1,3 +1,9 @@
+------------ desugared source code
+fun1
+  = \(a :: _) -> 'BoolCase \_ -> _ :: _ (_rhs '_') (_rhs '0') (fromInt 0 == a)
+fun2 = \(a :: _) -> 'BoolCase \_ -> _ :: _ (_rhs '_') (_rhs '0') ("0" == a)
+fun3 = \(a :: _) -> 'BoolCase \_ -> _ :: _ (_rhs '_') (_rhs '0') ('0' == a)
+fun4 = \(a :: _) -> hlistNilCase (_ :: _) (_rhs '0') a
 main is not found
 ------------ trace
 fun1 :: 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 2ff30ef1..79e060a1 100644
--- a/testdata/language-features/pattern/uncovered.out
+++ b/testdata/language-features/pattern/uncovered.out
@@ -1,3 +1,18 @@
+------------ desugared source code
+f
+  = \(a :: _) (b :: _) (c :: _) -> 'BoolCase
+    \_ -> _ :: _
+    ('BoolCase
+      \_ -> _ :: _
+      ('BoolCase \_ -> _ :: _ (_rhs undefined) (_rhs (fromInt 1)) c)
+      (_rhs (fromInt 2))
+      a)
+    ('BoolCase
+      \_ -> _ :: _
+      (_rhs (fromInt 0))
+      ('BoolCase \_ -> _ :: _ (_rhs (fromInt 1)) (_rhs undefined) a)
+      c)
+    b
 main is not found
 ------------ trace
 f :: 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 6c6f0a82..f9e362fc 100644
--- a/testdata/language-features/pattern/unreachable.out
+++ b/testdata/language-features/pattern/unreachable.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+f = \_ -> _rhs "hello"
 main is not found
 ------------ trace
 f :: forall a . a -> String
diff --git a/testdata/language-features/pragma/pragma01.out b/testdata/language-features/pragma/pragma01.out
index 8fcbc3af..907bca84 100644
--- a/testdata/language-features/pragma/pragma01.out
+++ b/testdata/language-features/pragma/pragma01.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/language-features/pragma/pragma02.out b/testdata/language-features/pragma/pragma02.out
index 8fcbc3af..907bca84 100644
--- a/testdata/language-features/pragma/pragma02.out
+++ b/testdata/language-features/pragma/pragma02.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/language-features/pragma/pragma03.out b/testdata/language-features/pragma/pragma03.out
index 8fcbc3af..907bca84 100644
--- a/testdata/language-features/pragma/pragma03.out
+++ b/testdata/language-features/pragma/pragma03.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/language-features/pragma/pragma04.out b/testdata/language-features/pragma/pragma04.out
index 8fcbc3af..907bca84 100644
--- a/testdata/language-features/pragma/pragma04.out
+++ b/testdata/language-features/pragma/pragma04.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/language-features/recursion/simplerec01.out b/testdata/language-features/recursion/simplerec01.out
index f3c0147f..b6bde121 100644
--- a/testdata/language-features/recursion/simplerec01.out
+++ b/testdata/language-features/recursion/simplerec01.out
@@ -1,3 +1,10 @@
+------------ desugared source code
+fun
+  = \(a :: _) -> 'BoolCase
+    \_ -> _ :: _
+    (_rhs (fun (fromInt 0)))
+    (_rhs 'a')
+    (fromInt 0 == a)
 main is not found
 ------------ trace
 fun :: 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 107d0414..74b2298a 100644
--- a/testdata/language-features/recursion/simplerec02.out
+++ b/testdata/language-features/recursion/simplerec02.out
@@ -1,3 +1,13 @@
+------------ desugared source code
+value
+  = _rhs
+    \(a
+      := primFix
+        \(b :: _) (c :: _) -> 'BoolCase
+          \_ -> _ :: _
+          (_rhs (b (fromInt 0)))
+          (_rhs 'a')
+          (fromInt 0 == c)) -> HNil
 main is not found
 ------------ trace
 value :: ()
diff --git a/testdata/language-features/recursion/simplerec03.out b/testdata/language-features/recursion/simplerec03.out
index dd90c946..62da7f5a 100644
--- a/testdata/language-features/recursion/simplerec03.out
+++ b/testdata/language-features/recursion/simplerec03.out
@@ -1,3 +1,13 @@
+------------ desugared source code
+value
+  = _rhs
+    \(a
+      := primFix
+        \(b :: _) (c :: _) -> 'BoolCase
+          \_ -> _ :: _
+          (_rhs (b (fromInt 0)))
+          (_rhs 'a')
+          (fromInt 0 == c)) -> HNil
 main is not found
 ------------ trace
 value :: ()
diff --git a/testdata/language-features/section/section01.out b/testdata/language-features/section/section01.out
index 07477f24..86a78f54 100644
--- a/testdata/language-features/section/section01.out
+++ b/testdata/language-features/section/section01.out
@@ -1,3 +1,7 @@
+------------ desugared source code
+!@! = \_ -> \_ -> _rhs HNil
+value1 = \(a :: _) -> _rhs \(b :: _) -> a !@! b
+value2 = \(a :: _) -> _rhs \(b :: _) -> b !@! a
 main is not found
 ------------ trace
 !@! :: forall a b . a -> b -> ()
diff --git a/testdata/let.out b/testdata/let.out
index 1c7a5534..9ab1367e 100644
--- a/testdata/let.out
+++ b/testdata/let.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+f = \(a :: _) -> _rhs \(b := _rhs (id a)) -> b
 main is not found
 ------------ trace
 f :: forall a . a -> a
diff --git a/testdata/letIndent.out b/testdata/letIndent.out
index 7469dd50..b353ddfa 100644
--- a/testdata/letIndent.out
+++ b/testdata/letIndent.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+fun = \(a :: _) -> _rhs \(b := _rhs (fromInt 1)) (c := _rhs (fromInt 2)) -> a
 main is not found
 ------------ trace
 fun :: forall a . a -> a
diff --git a/testdata/line01.out b/testdata/line01.out
index 422b2375..9c5a0369 100644
--- a/testdata/line01.out
+++ b/testdata/line01.out
@@ -24,37 +24,25 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
               in vec3 vi1;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (vec4 ((vi1).x
-                                                     ,(vi1).y
-                                                     ,(vi1).z
-                                                     ,1.0)));
-                  vo1 = vec4 ((vi1).x
-                             ,(vi1).y
-                             ,(vi1).z
-                             ,1.0);
+                  gl_Position = scale (0.5,(MVP) * (vec4 ((vi1).x,(vi1).y,(vi1).z,1.0)));
+                  vo1 = vec4 ((vi1).x,(vi1).y,(vi1).z,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/performance/Material.out b/testdata/performance/Material.out
index d31c4191..527ef2c3 100644
--- a/testdata/performance/Material.out
+++ b/testdata/performance/Material.out
@@ -1,9 +1,297 @@
+------------ desugared source code
+identityLight = _rhs (fromInt 1) :: Float
+data Entity :: Type where
+    Entity
+      :: Vec (fromInt 4) Float
+        -> Vec (fromInt 4) Float
+          -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity
+eAmbientLight
+  = \(a :: _) -> 'EntityCase \_ -> _ :: _ \(b :: _) -> \_ -> \_ -> \_ -> _rhs b a
+eDirectedLight
+  = \(a :: _) -> 'EntityCase \_ -> _ :: _ \_ (b :: _) -> \_ -> \_ -> _rhs b a
+eLightDir
+  = \(a :: _) -> 'EntityCase \_ -> _ :: _ \_ -> \_ (b :: _) -> \_ -> _rhs b a
+eShaderRGBA
+  = \(a :: _) -> 'EntityCase \_ -> _ :: _ \_ -> \_ -> \_ (b :: _) -> _rhs b a
+data WaveType :: Type where
+    WT_Sin :: WaveType
+    WT_Triangle :: WaveType
+    WT_Square :: WaveType
+    WT_Sawtooth :: WaveType
+    WT_InverseSawtooth :: WaveType
+    WT_Noise :: WaveType
+data Wave :: Type where
+    Wave :: WaveType -> Float -> Float -> Float -> Float -> Wave
+data Deform :: Type where
+    D_AutoSprite :: Deform
+    D_AutoSprite2 :: Deform
+    D_Bulge :: Float -> Float -> Float -> Deform
+    D_Move :: Vec (fromInt 3) Float -> Wave -> Deform
+    D_Normal :: Float -> Float -> Deform
+    D_ProjectionShadow :: Deform
+    D_Text0 :: Deform
+    D_Text1 :: Deform
+    D_Text2 :: Deform
+    D_Text3 :: Deform
+    D_Text4 :: Deform
+    D_Text5 :: Deform
+    D_Text6 :: Deform
+    D_Text7 :: Deform
+    D_Wave :: Float -> Wave -> Deform
+data CullType :: Type where
+    CT_FrontSided :: CullType
+    CT_BackSided :: CullType
+    CT_TwoSided :: CullType
+data Blending' :: Type where
+    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'
+data RGBGen :: Type where
+    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
+data AlphaGen :: Type where
+    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
+data TCGen :: Type where
+    TG_Base :: TCGen
+    TG_Lightmap :: TCGen
+    TG_Environment :: TCGen
+    TG_Vector :: Vec (fromInt 3) Float -> Vec (fromInt 3) Float -> TCGen
+    TG_Undefined :: TCGen
+data TCMod :: Type where
+    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
+data StageTexture :: Type where
+    ST_Map :: String -> StageTexture
+    ST_ClampMap :: String -> StageTexture
+    ST_AnimMap :: Float -> List String -> StageTexture
+    ST_Lightmap :: StageTexture
+    ST_WhiteImage :: StageTexture
+data AlphaFunction :: Type where
+    A_Gt0 :: AlphaFunction
+    A_Lt128 :: AlphaFunction
+    A_Ge128 :: AlphaFunction
+data DepthFunction :: Type where
+    D_Equal :: DepthFunction
+    D_Lequal :: DepthFunction
+data StageAttrs :: Type where
+    StageAttrs
+      :: Maybe (HList ('Cons Blending' ('Cons Blending' 'Nil)))
+        -> RGBGen
+          -> AlphaGen
+            -> TCGen
+              -> List TCMod
+                -> StageTexture
+                  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+saBlend
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \(b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saRGBGen
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saAlphaGen
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saTCGen
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saTCMod
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saTexture
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saDepthWrite
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> _rhs b
+    a
+saDepthFunc
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> _rhs b
+    a
+saAlphaFunc
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> _rhs b
+    a
+saDepthMaskExplicit
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> _rhs b
+    a
+saTextureUniform
+  = \(a :: _) -> 'StageAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> _rhs b
+    a
+defaultStageAttrs
+  = _rhs
+      (StageAttrs
+        Nothing
+        RGB_Undefined
+        A_Identity
+        TG_Undefined
+        Nil
+        ST_WhiteImage
+        True
+        D_Lequal
+        Nothing
+        False
+        "")
+    :: StageAttrs
+data CommonAttrs :: Type where
+    CommonAttrs
+      :: HList 'Nil
+        -> HList 'Nil
+          -> Bool
+            -> Float
+              -> Bool
+                -> Bool
+                  -> CullType
+                    -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+caSkyParms
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \(b
+      :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caFogParms
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caPortal
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caSort
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caEntityMergable
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caFogOnly
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caCull
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caDeformVertexes
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caNoMipMaps
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> \_ -> _rhs
+      b
+    a
+caPolygonOffset
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> \_ -> _rhs
+      b
+    a
+caStages
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> \_ -> _rhs
+      b
+    a
+caIsSky
+  = \(a :: _) -> 'CommonAttrsCase
+    \_ -> _ :: _
+    \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ (b :: _) -> _rhs
+      b
+    a
+defaultCommonAttrs
+  = _rhs
+      (CommonAttrs
+        HNil
+        HNil
+        False
+        (fromInt 0)
+        False
+        False
+        CT_FrontSided
+        Nil
+        False
+        False
+        Nil
+        False)
+    :: CommonAttrs
 main is not found
 ------------ trace
 identityLight :: Float
 'Entity :: Type
 Entity :: Vec 4 Float -> Vec 4 Float -> Vec 3 Float -> Vec 4 Float -> Entity
-'EntityCase :: 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
+'EntityCase
+  :: 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
@@ -16,11 +304,22 @@ WT_Square :: WaveType
 WT_Sawtooth :: WaveType
 WT_InverseSawtooth :: WaveType
 WT_Noise :: WaveType
-'WaveTypeCase :: 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
+'WaveTypeCase
+  :: 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
 'Wave :: Type
 Wave :: WaveType -> Float -> Float -> Float -> Float -> Wave
-'WaveCase :: 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
+'WaveCase
+  :: 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
 D_AutoSprite :: Deform
@@ -38,14 +337,35 @@ D_Text5 :: Deform
 D_Text6 :: Deform
 D_Text7 :: Deform
 D_Wave :: Float -> Wave -> Deform
-'DeformCase :: forall (a :: Deform -> Type) -> a 'D_AutoSprite -> a 'D_AutoSprite2 -> (forall (b :: Float) (c :: Float) (d :: Float) -> a ('D_Bulge b c d)) -> (forall (e :: Vec 3 Float) (f :: Wave) -> a ('D_Move e f)) -> (forall (g :: Float) (h :: Float) -> a ('D_Normal g h)) -> a 'D_ProjectionShadow -> a 'D_Text0 -> a 'D_Text1 -> a 'D_Text2 -> a 'D_Text3 -> a 'D_Text4 -> a 'D_Text5 -> a 'D_Text6 -> a 'D_Text7 -> (forall (i :: Float) (j :: Wave) -> a ('D_Wave i j)) -> forall (k :: Deform) -> a k
+'DeformCase
+  :: forall (a :: Deform -> Type)
+    -> a 'D_AutoSprite
+      -> a 'D_AutoSprite2
+        -> (forall (b :: Float) (c :: Float) (d :: Float) -> a ('D_Bulge b c d))
+          -> (forall (e :: Vec 3 Float) (f :: Wave) -> a ('D_Move e f))
+            -> (forall (g :: Float) (h :: Float) -> a ('D_Normal g h))
+              -> a 'D_ProjectionShadow
+                -> a 'D_Text0
+                  -> a 'D_Text1
+                    -> a 'D_Text2
+                      -> a 'D_Text3
+                        -> a 'D_Text4
+                          -> a 'D_Text5
+                            -> a 'D_Text6
+                              -> 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
-'CullTypeCase :: 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
+'CullTypeCase
+  :: 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'
@@ -58,8 +378,20 @@ B_SrcAlpha :: Blending'
 B_SrcAlphaSaturate :: Blending'
 B_SrcColor :: Blending'
 B_Zero :: Blending'
-'Blending'Case :: 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
+'Blending'Case
+  :: 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
@@ -72,7 +404,18 @@ RGB_Vertex :: RGBGen
 RGB_LightingDiffuse :: RGBGen
 RGB_OneMinusVertex :: RGBGen
 RGB_Undefined :: RGBGen
-'RGBGenCase :: forall (a :: RGBGen -> Type) -> (forall (b :: Wave) -> a ('RGB_Wave b)) -> (forall (c :: Float) (d :: Float) (e :: Float) -> a ('RGB_Const c d e)) -> a 'RGB_Identity -> a 'RGB_IdentityLighting -> a 'RGB_Entity -> a 'RGB_OneMinusEntity -> a 'RGB_ExactVertex -> a 'RGB_Vertex -> a 'RGB_LightingDiffuse -> a 'RGB_OneMinusVertex -> a 'RGB_Undefined -> forall (f :: RGBGen) -> a f
+'RGBGenCase
+  :: forall (a :: RGBGen -> Type)
+    -> (forall (b :: Wave) -> a ('RGB_Wave b))
+      -> (forall (c :: Float) (d :: Float) (e :: Float) -> a ('RGB_Const c d e))
+        -> a 'RGB_Identity
+          -> a 'RGB_IdentityLighting
+            -> a 'RGB_Entity
+              -> a 'RGB_OneMinusEntity
+                -> a 'RGB_ExactVertex
+                  -> 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
@@ -84,15 +427,31 @@ A_OneMinusEntity :: AlphaGen
 A_Vertex :: AlphaGen
 A_LightingSpecular :: AlphaGen
 A_OneMinusVertex :: AlphaGen
-'AlphaGenCase :: 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
+'AlphaGenCase
+  :: 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
-'TCGenCase :: forall (a :: TCGen -> Type) -> a 'TG_Base -> a 'TG_Lightmap -> 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
+'TCGenCase
+  :: forall (a :: TCGen -> Type)
+    -> a 'TG_Base
+      -> a 'TG_Lightmap
+        -> 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
@@ -102,7 +461,19 @@ 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
-'TCModCase :: forall (a :: TCMod -> Type) -> a 'TM_EntityTranslate -> (forall (b :: Float) -> a ('TM_Rotate b)) -> (forall (c :: Float) (d :: Float) -> a ('TM_Scroll c d)) -> (forall (e :: Float) (f :: Float) -> a ('TM_Scale e f)) -> (forall (g :: Wave) -> a ('TM_Stretch g)) -> (forall (h :: Float) (i :: Float) (j :: Float) (k :: Float) (l :: Float) (m :: Float) -> a ('TM_Transform h i j k l m)) -> (forall (n :: Float) (o :: Float) (p :: Float) (q :: Float) -> a ('TM_Turb n o p q)) -> forall (r :: TCMod) -> a r
+'TCModCase
+  :: forall (a :: TCMod -> Type)
+    -> a 'TM_EntityTranslate
+      -> (forall (b :: Float) -> a ('TM_Rotate b))
+        -> (forall (c :: Float) (d :: Float) -> a ('TM_Scroll c d))
+          -> (forall (e :: Float) (f :: Float) -> a ('TM_Scale e f))
+            -> (forall (g :: Wave) -> a ('TM_Stretch g))
+              -> (forall (h :: Float)
+                    (i :: Float) (j :: Float) (k :: Float) (l :: Float) (m :: Float)
+                  -> a ('TM_Transform h i j k l m))
+                -> (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
@@ -110,23 +481,54 @@ ST_ClampMap :: String -> StageTexture
 ST_AnimMap :: Float -> List String -> StageTexture
 ST_Lightmap :: StageTexture
 ST_WhiteImage :: StageTexture
-'StageTextureCase :: forall (a :: StageTexture -> Type) -> (forall (b :: String) -> a ('ST_Map b)) -> (forall (c :: String) -> a ('ST_ClampMap c)) -> (forall (d :: Float) (e :: List 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
+'StageTextureCase
+  :: forall (a :: StageTexture -> Type)
+    -> (forall (b :: String) -> a ('ST_Map b))
+      -> (forall (c :: String) -> a ('ST_ClampMap c))
+        -> (forall (d :: Float) (e :: List 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
-'AlphaFunctionCase :: forall (a :: AlphaFunction -> Type) -> a 'A_Gt0 -> a 'A_Lt128 -> a 'A_Ge128 -> forall (b :: AlphaFunction) -> a b
-match'AlphaFunction :: forall (a :: Type -> Type) -> a AlphaFunction -> forall b -> a b -> a b
+'AlphaFunctionCase
+  :: forall (a :: AlphaFunction -> Type)
+    -> a 'A_Gt0 -> a 'A_Lt128 -> a 'A_Ge128 -> forall (b :: AlphaFunction) -> a b
+match'AlphaFunction
+  :: forall (a :: Type -> Type) -> a AlphaFunction -> forall b -> a b -> a b
 'DepthFunction :: Type
 D_Equal :: DepthFunction
 D_Lequal :: DepthFunction
-'DepthFunctionCase :: forall (a :: DepthFunction -> Type) -> a 'D_Equal -> a 'D_Lequal -> forall (b :: DepthFunction) -> a b
-match'DepthFunction :: forall (a :: Type -> Type) -> a DepthFunction -> forall b -> a b -> a b
+'DepthFunctionCase
+  :: forall (a :: DepthFunction -> Type)
+    -> a 'D_Equal -> a 'D_Lequal -> forall (b :: DepthFunction) -> a b
+match'DepthFunction
+  :: forall (a :: Type -> Type) -> a DepthFunction -> forall b -> a b -> a b
 'StageAttrs :: Type
-StageAttrs :: Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-'StageAttrsCase :: forall (a :: StageAttrs -> Type) -> (forall (b :: Maybe (Blending', Blending')) (c :: RGBGen) (d :: AlphaGen) (e :: TCGen) (f :: List 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'StageAttrs :: forall (a :: Type -> Type) -> a StageAttrs -> forall b -> a b -> a b
+StageAttrs
+  :: Maybe (Blending', Blending')
+    -> RGBGen
+      -> AlphaGen
+        -> TCGen
+          -> List TCMod
+            -> StageTexture
+              -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+'StageAttrsCase
+  :: forall (a :: StageAttrs -> Type)
+    -> (forall (b :: Maybe (Blending', Blending'))
+          (c :: RGBGen)
+            (d :: AlphaGen)
+              (e :: TCGen)
+                (f :: List 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'StageAttrs
+  :: forall (a :: Type -> Type) -> a StageAttrs -> forall b -> a b -> a b
 saBlend :: StageAttrs -> Maybe (Blending', Blending')
 saRGBGen :: StageAttrs -> RGBGen
 saAlphaGen :: StageAttrs -> AlphaGen
@@ -140,9 +542,29 @@ saDepthMaskExplicit :: StageAttrs -> Bool
 saTextureUniform :: StageAttrs -> String
 defaultStageAttrs :: StageAttrs
 'CommonAttrs :: Type
-CommonAttrs :: () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-'CommonAttrsCase :: forall (a :: CommonAttrs -> Type) -> (forall (b :: ()) (c :: ()) (d :: Bool) (e :: Float) (f :: Bool) (g :: Bool) (h :: CullType) (i :: List Deform) (j :: Bool) (k :: Bool) (l :: List 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
+CommonAttrs
+  :: ()
+    -> ()
+      -> Bool
+        -> Float
+          -> Bool
+            -> Bool
+              -> CullType
+                -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+'CommonAttrsCase
+  :: forall (a :: CommonAttrs -> Type)
+    -> (forall (b :: ())
+          (c :: ())
+            (d :: Bool)
+              (e :: Float)
+                (f :: Bool)
+                  (g :: Bool)
+                    (h :: CullType)
+                      (i :: List Deform) (j :: Bool) (k :: Bool) (l :: List 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
@@ -360,7 +782,13 @@ testdata/performance/Material.lc 127:7-127:15  DepthFunction
 testdata/performance/Material.lc 130:6-130:16  Type
 testdata/performance/Material.lc 130:6-131:17  Type
 testdata/performance/Material.lc 130:6-144:34  Type
-testdata/performance/Material.lc 131:7-131:17  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs | StageAttrs | Type
+testdata/performance/Material.lc 131:7-131:17  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs | StageAttrs | Type
 testdata/performance/Material.lc 132:7-132:14  StageAttrs -> Maybe (Blending', Blending')
 testdata/performance/Material.lc 132:25-132:30  Type -> Type
 testdata/performance/Material.lc 132:25-132:53  Type
@@ -393,12 +821,33 @@ testdata/performance/Material.lc 144:7-144:23  StageAttrs -> String
 testdata/performance/Material.lc 144:28-144:34  Type
 testdata/performance/Material.lc 148:22-148:32  Type
 testdata/performance/Material.lc 149:1-149:18  StageAttrs
-testdata/performance/Material.lc 149:21-149:31  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/Material.lc 149:21-150:30  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/Material.lc 149:21-151:36  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/Material.lc 149:21-152:33  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/Material.lc 149:21-153:35  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/Material.lc 149:21-154:25  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-149:31  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-150:30  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-151:36  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-152:33  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-153:35  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-154:25  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/Material.lc 149:21-155:36  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/Material.lc 149:21-156:27  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/Material.lc 149:21-157:31  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -419,7 +868,13 @@ testdata/performance/Material.lc 160:27-160:29  String
 testdata/performance/Material.lc 163:6-163:17  Type
 testdata/performance/Material.lc 163:6-164:18  Type
 testdata/performance/Material.lc 163:6-178:32  Type
-testdata/performance/Material.lc 164:7-164:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs | CommonAttrs | Type
+testdata/performance/Material.lc 164:7-164:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs | CommonAttrs | Type
 testdata/performance/Material.lc 165:7-165:17  CommonAttrs -> ()
 testdata/performance/Material.lc 165:28-165:30  Type
 testdata/performance/Material.lc 166:7-166:17  CommonAttrs -> ()
@@ -448,11 +903,31 @@ testdata/performance/Material.lc 178:7-178:14  CommonAttrs -> Bool
 testdata/performance/Material.lc 178:28-178:32  Type
 testdata/performance/Material.lc 182:23-182:34  Type
 testdata/performance/Material.lc 183:1-183:19  CommonAttrs
-testdata/performance/Material.lc 183:22-183:33  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/Material.lc 183:22-184:29  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/Material.lc 183:22-185:29  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/Material.lc 183:22-186:32  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/Material.lc 183:22-187:28  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-183:33  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-184:29  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-185:29  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-186:32  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-187:28  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/Material.lc 183:22-188:32  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/Material.lc 183:22-189:32  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/Material.lc 183:22-190:40  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
diff --git a/testdata/performance/SampleMaterial.out b/testdata/performance/SampleMaterial.out
index 3f722498..238470c8 100644
--- a/testdata/performance/SampleMaterial.out
+++ b/testdata/performance/SampleMaterial.out
@@ -1,3 +1,2237 @@
+------------ desugared source code
+sampleMaterial
+  = _rhs
+    (Cons
+      (HCons
+        "textures/gothic_block/blocks11b"
+        (HCons
+          (CommonAttrs
+            HNil
+            HNil
+            False
+            (fromInt 0)
+            False
+            False
+            CT_FrontSided
+            Nil
+            False
+            False
+            (Cons
+              (StageAttrs
+                Nothing
+                RGB_IdentityLighting
+                A_Identity
+                TG_Base
+                Nil
+                (ST_Map "textures/gothic_block/blocks11b")
+                True
+                D_Lequal
+                Nothing
+                False
+                "Tex_4288602201")
+              (Cons
+                (StageAttrs
+                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                  RGB_IdentityLighting
+                  A_Identity
+                  TG_Lightmap
+                  Nil
+                  ST_Lightmap
+                  True
+                  D_Lequal
+                  Nothing
+                  False
+                  "Tex_3226210144")
+                Nil))
+            False)
+          HNil))
+      (Cons
+        (HCons
+          "textures/gothic_block/blocks15"
+          (HCons
+            (CommonAttrs
+              HNil
+              HNil
+              False
+              (fromInt 0)
+              False
+              False
+              CT_FrontSided
+              Nil
+              False
+              False
+              (Cons
+                (StageAttrs
+                  Nothing
+                  RGB_IdentityLighting
+                  A_Identity
+                  TG_Base
+                  Nil
+                  (ST_Map "textures/gothic_block/blocks15")
+                  True
+                  D_Lequal
+                  Nothing
+                  False
+                  "Tex_2523116863")
+                (Cons
+                  (StageAttrs
+                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                    RGB_IdentityLighting
+                    A_Identity
+                    TG_Lightmap
+                    Nil
+                    ST_Lightmap
+                    True
+                    D_Lequal
+                    Nothing
+                    False
+                    "Tex_3226210144")
+                  Nil))
+              False)
+            HNil))
+        (Cons
+          (HCons
+            "textures/gothic_block/blocks18b"
+            (HCons
+              (CommonAttrs
+                HNil
+                HNil
+                False
+                (fromInt 0)
+                False
+                False
+                CT_FrontSided
+                Nil
+                False
+                False
+                (Cons
+                  (StageAttrs
+                    Nothing
+                    RGB_IdentityLighting
+                    A_Identity
+                    TG_Base
+                    Nil
+                    (ST_Map "textures/gothic_block/blocks18b")
+                    True
+                    D_Lequal
+                    Nothing
+                    False
+                    "Tex_2639119078")
+                  (Cons
+                    (StageAttrs
+                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                      RGB_IdentityLighting
+                      A_Identity
+                      TG_Lightmap
+                      Nil
+                      ST_Lightmap
+                      True
+                      D_Lequal
+                      Nothing
+                      False
+                      "Tex_3226210144")
+                    Nil))
+                False)
+              HNil))
+          (Cons
+            (HCons
+              "textures/gothic_block/blocks18c_3"
+              (HCons
+                (CommonAttrs
+                  HNil
+                  HNil
+                  False
+                  (fromInt 0)
+                  False
+                  False
+                  CT_FrontSided
+                  Nil
+                  False
+                  False
+                  (Cons
+                    (StageAttrs
+                      Nothing
+                      RGB_IdentityLighting
+                      A_Identity
+                      TG_Base
+                      Nil
+                      (ST_Map "textures/gothic_block/blocks18c_3")
+                      True
+                      D_Lequal
+                      Nothing
+                      False
+                      "Tex_3939430064")
+                    (Cons
+                      (StageAttrs
+                        (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                        RGB_IdentityLighting
+                        A_Identity
+                        TG_Lightmap
+                        Nil
+                        ST_Lightmap
+                        True
+                        D_Lequal
+                        Nothing
+                        False
+                        "Tex_3226210144")
+                      Nil))
+                  False)
+                HNil))
+            (Cons
+              (HCons
+                "textures/gothic_block/demon_block15fx"
+                (HCons
+                  (CommonAttrs
+                    HNil
+                    HNil
+                    False
+                    (fromInt 3)
+                    False
+                    False
+                    CT_FrontSided
+                    Nil
+                    False
+                    False
+                    (Cons
+                      (StageAttrs
+                        Nothing
+                        RGB_Identity
+                        A_Identity
+                        TG_Base
+                        (Cons
+                          (TM_Scroll 0.0 1.0)
+                          (Cons (TM_Turb 0.0 0.25 0.0 1.6) (Cons (TM_Scale 4.0 4.0) Nil)))
+                        (ST_Map "textures/sfx/firegorre.tga")
+                        True
+                        D_Lequal
+                        Nothing
+                        False
+                        "Tex_47037129")
+                      (Cons
+                        (StageAttrs
+                          (Just (HCons B_SrcAlpha (HCons B_OneMinusSrcAlpha HNil)))
+                          RGB_Identity
+                          A_Identity
+                          TG_Base
+                          Nil
+                          (ST_Map "textures/gothic_block/demon_block15fx.tga")
+                          False
+                          D_Lequal
+                          Nothing
+                          False
+                          "Tex_3562558025")
+                        (Cons
+                          (StageAttrs
+                            (Just (HCons B_DstColor (HCons B_OneMinusDstAlpha HNil)))
+                            RGB_Identity
+                            A_Identity
+                            TG_Lightmap
+                            Nil
+                            ST_Lightmap
+                            False
+                            D_Lequal
+                            Nothing
+                            False
+                            "Tex_2065974340")
+                          Nil)))
+                    False)
+                  HNil))
+              (Cons
+                (HCons
+                  "textures/gothic_block/killblock"
+                  (HCons
+                    (CommonAttrs
+                      HNil
+                      HNil
+                      False
+                      (fromInt 0)
+                      False
+                      False
+                      CT_FrontSided
+                      Nil
+                      False
+                      False
+                      (Cons
+                        (StageAttrs
+                          Nothing
+                          RGB_IdentityLighting
+                          A_Identity
+                          TG_Base
+                          Nil
+                          (ST_Map "textures/gothic_block/killblock")
+                          True
+                          D_Lequal
+                          Nothing
+                          False
+                          "Tex_3647563961")
+                        (Cons
+                          (StageAttrs
+                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                            RGB_IdentityLighting
+                            A_Identity
+                            TG_Lightmap
+                            Nil
+                            ST_Lightmap
+                            True
+                            D_Lequal
+                            Nothing
+                            False
+                            "Tex_3226210144")
+                          Nil))
+                      False)
+                    HNil))
+                (Cons
+                  (HCons
+                    "textures/gothic_block/killblock_i"
+                    (HCons
+                      (CommonAttrs
+                        HNil
+                        HNil
+                        False
+                        (fromInt 0)
+                        False
+                        False
+                        CT_FrontSided
+                        Nil
+                        False
+                        False
+                        (Cons
+                          (StageAttrs
+                            Nothing
+                            RGB_IdentityLighting
+                            A_Identity
+                            TG_Base
+                            Nil
+                            (ST_Map "textures/gothic_block/killblock_i")
+                            True
+                            D_Lequal
+                            Nothing
+                            False
+                            "Tex_209322640")
+                          (Cons
+                            (StageAttrs
+                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                              RGB_IdentityLighting
+                              A_Identity
+                              TG_Lightmap
+                              Nil
+                              ST_Lightmap
+                              True
+                              D_Lequal
+                              Nothing
+                              False
+                              "Tex_3226210144")
+                            Nil))
+                        False)
+                      HNil))
+                  (Cons
+                    (HCons
+                      "textures/gothic_block/killblock_i4"
+                      (HCons
+                        (CommonAttrs
+                          HNil
+                          HNil
+                          False
+                          (fromInt 0)
+                          False
+                          False
+                          CT_FrontSided
+                          Nil
+                          False
+                          False
+                          (Cons
+                            (StageAttrs
+                              Nothing
+                              RGB_IdentityLighting
+                              A_Identity
+                              TG_Base
+                              Nil
+                              (ST_Map "textures/gothic_block/killblock_i4")
+                              True
+                              D_Lequal
+                              Nothing
+                              False
+                              "Tex_3617993418")
+                            (Cons
+                              (StageAttrs
+                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                RGB_IdentityLighting
+                                A_Identity
+                                TG_Lightmap
+                                Nil
+                                ST_Lightmap
+                                True
+                                D_Lequal
+                                Nothing
+                                False
+                                "Tex_3226210144")
+                              Nil))
+                          False)
+                        HNil))
+                    (Cons
+                      (HCons
+                        "textures/gothic_door/km_arena1archfinalc_mid"
+                        (HCons
+                          (CommonAttrs
+                            HNil
+                            HNil
+                            False
+                            (fromInt 0)
+                            False
+                            False
+                            CT_FrontSided
+                            Nil
+                            False
+                            False
+                            (Cons
+                              (StageAttrs
+                                Nothing
+                                RGB_IdentityLighting
+                                A_Identity
+                                TG_Base
+                                Nil
+                                (ST_Map "textures/gothic_door/km_arena1archfinalc_mid")
+                                True
+                                D_Lequal
+                                Nothing
+                                False
+                                "Tex_2073154888")
+                              (Cons
+                                (StageAttrs
+                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                  RGB_IdentityLighting
+                                  A_Identity
+                                  TG_Lightmap
+                                  Nil
+                                  ST_Lightmap
+                                  True
+                                  D_Lequal
+                                  Nothing
+                                  False
+                                  "Tex_3226210144")
+                                Nil))
+                            False)
+                          HNil))
+                      (Cons
+                        (HCons
+                          "textures/gothic_door/km_arena1archfinalc_top"
+                          (HCons
+                            (CommonAttrs
+                              HNil
+                              HNil
+                              False
+                              (fromInt 0)
+                              False
+                              False
+                              CT_FrontSided
+                              Nil
+                              False
+                              False
+                              (Cons
+                                (StageAttrs
+                                  Nothing
+                                  RGB_IdentityLighting
+                                  A_Identity
+                                  TG_Base
+                                  Nil
+                                  (ST_Map "textures/gothic_door/km_arena1archfinalc_top")
+                                  True
+                                  D_Lequal
+                                  Nothing
+                                  False
+                                  "Tex_3071107621")
+                                (Cons
+                                  (StageAttrs
+                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                    RGB_IdentityLighting
+                                    A_Identity
+                                    TG_Lightmap
+                                    Nil
+                                    ST_Lightmap
+                                    True
+                                    D_Lequal
+                                    Nothing
+                                    False
+                                    "Tex_3226210144")
+                                  Nil))
+                              False)
+                            HNil))
+                        (Cons
+                          (HCons
+                            "textures/gothic_door/km_arena1archfinald_bot"
+                            (HCons
+                              (CommonAttrs
+                                HNil
+                                HNil
+                                False
+                                (fromInt 0)
+                                False
+                                False
+                                CT_FrontSided
+                                Nil
+                                False
+                                False
+                                (Cons
+                                  (StageAttrs
+                                    Nothing
+                                    RGB_IdentityLighting
+                                    A_Identity
+                                    TG_Base
+                                    Nil
+                                    (ST_Map "textures/gothic_door/km_arena1archfinald_bot")
+                                    True
+                                    D_Lequal
+                                    Nothing
+                                    False
+                                    "Tex_1201212243")
+                                  (Cons
+                                    (StageAttrs
+                                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                      RGB_IdentityLighting
+                                      A_Identity
+                                      TG_Lightmap
+                                      Nil
+                                      ST_Lightmap
+                                      True
+                                      D_Lequal
+                                      Nothing
+                                      False
+                                      "Tex_3226210144")
+                                    Nil))
+                                False)
+                              HNil))
+                          (Cons
+                            (HCons
+                              "textures/gothic_door/km_arena1archfinald_mid"
+                              (HCons
+                                (CommonAttrs
+                                  HNil
+                                  HNil
+                                  False
+                                  (fromInt 0)
+                                  False
+                                  False
+                                  CT_FrontSided
+                                  Nil
+                                  False
+                                  False
+                                  (Cons
+                                    (StageAttrs
+                                      Nothing
+                                      RGB_IdentityLighting
+                                      A_Identity
+                                      TG_Base
+                                      Nil
+                                      (ST_Map "textures/gothic_door/km_arena1archfinald_mid")
+                                      True
+                                      D_Lequal
+                                      Nothing
+                                      False
+                                      "Tex_3768122504")
+                                    (Cons
+                                      (StageAttrs
+                                        (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                        RGB_IdentityLighting
+                                        A_Identity
+                                        TG_Lightmap
+                                        Nil
+                                        ST_Lightmap
+                                        True
+                                        D_Lequal
+                                        Nothing
+                                        False
+                                        "Tex_3226210144")
+                                      Nil))
+                                  False)
+                                HNil))
+                            (Cons
+                              (HCons
+                                "textures/gothic_door/skull_door_a"
+                                (HCons
+                                  (CommonAttrs
+                                    HNil
+                                    HNil
+                                    False
+                                    (fromInt 0)
+                                    False
+                                    False
+                                    CT_FrontSided
+                                    Nil
+                                    False
+                                    False
+                                    (Cons
+                                      (StageAttrs
+                                        Nothing
+                                        RGB_IdentityLighting
+                                        A_Identity
+                                        TG_Base
+                                        Nil
+                                        (ST_Map "textures/gothic_door/skull_door_a")
+                                        True
+                                        D_Lequal
+                                        Nothing
+                                        False
+                                        "Tex_1284708166")
+                                      (Cons
+                                        (StageAttrs
+                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                          RGB_IdentityLighting
+                                          A_Identity
+                                          TG_Lightmap
+                                          Nil
+                                          ST_Lightmap
+                                          True
+                                          D_Lequal
+                                          Nothing
+                                          False
+                                          "Tex_3226210144")
+                                        Nil))
+                                    False)
+                                  HNil))
+                              (Cons
+                                (HCons
+                                  "textures/gothic_door/skull_door_b"
+                                  (HCons
+                                    (CommonAttrs
+                                      HNil
+                                      HNil
+                                      False
+                                      (fromInt 0)
+                                      False
+                                      False
+                                      CT_FrontSided
+                                      Nil
+                                      False
+                                      False
+                                      (Cons
+                                        (StageAttrs
+                                          Nothing
+                                          RGB_IdentityLighting
+                                          A_Identity
+                                          TG_Base
+                                          Nil
+                                          (ST_Map "textures/gothic_door/skull_door_b")
+                                          True
+                                          D_Lequal
+                                          Nothing
+                                          False
+                                          "Tex_1318715778")
+                                        (Cons
+                                          (StageAttrs
+                                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                            RGB_IdentityLighting
+                                            A_Identity
+                                            TG_Lightmap
+                                            Nil
+                                            ST_Lightmap
+                                            True
+                                            D_Lequal
+                                            Nothing
+                                            False
+                                            "Tex_3226210144")
+                                          Nil))
+                                      False)
+                                    HNil))
+                                (Cons
+                                  (HCons
+                                    "textures/gothic_door/skull_door_c"
+                                    (HCons
+                                      (CommonAttrs
+                                        HNil
+                                        HNil
+                                        False
+                                        (fromInt 0)
+                                        False
+                                        False
+                                        CT_FrontSided
+                                        Nil
+                                        False
+                                        False
+                                        (Cons
+                                          (StageAttrs
+                                            Nothing
+                                            RGB_IdentityLighting
+                                            A_Identity
+                                            TG_Base
+                                            Nil
+                                            (ST_Map "textures/gothic_door/skull_door_c")
+                                            True
+                                            D_Lequal
+                                            Nothing
+                                            False
+                                            "Tex_4189195777")
+                                          (Cons
+                                            (StageAttrs
+                                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                              RGB_IdentityLighting
+                                              A_Identity
+                                              TG_Lightmap
+                                              Nil
+                                              ST_Lightmap
+                                              True
+                                              D_Lequal
+                                              Nothing
+                                              False
+                                              "Tex_3226210144")
+                                            Nil))
+                                        False)
+                                      HNil))
+                                  (Cons
+                                    (HCons
+                                      "textures/gothic_door/skull_door_d"
+                                      (HCons
+                                        (CommonAttrs
+                                          HNil
+                                          HNil
+                                          False
+                                          (fromInt 0)
+                                          False
+                                          False
+                                          CT_FrontSided
+                                          Nil
+                                          False
+                                          False
+                                          (Cons
+                                            (StageAttrs
+                                              Nothing
+                                              RGB_IdentityLighting
+                                              A_Identity
+                                              TG_Base
+                                              Nil
+                                              (ST_Map "textures/gothic_door/skull_door_d")
+                                              True
+                                              D_Lequal
+                                              Nothing
+                                              False
+                                              "Tex_1250438154")
+                                            (Cons
+                                              (StageAttrs
+                                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                RGB_IdentityLighting
+                                                A_Identity
+                                                TG_Lightmap
+                                                Nil
+                                                ST_Lightmap
+                                                True
+                                                D_Lequal
+                                                Nothing
+                                                False
+                                                "Tex_3226210144")
+                                              Nil))
+                                          False)
+                                        HNil))
+                                    (Cons
+                                      (HCons
+                                        "textures/gothic_door/skull_door_e"
+                                        (HCons
+                                          (CommonAttrs
+                                            HNil
+                                            HNil
+                                            False
+                                            (fromInt 0)
+                                            False
+                                            False
+                                            CT_FrontSided
+                                            Nil
+                                            False
+                                            False
+                                            (Cons
+                                              (StageAttrs
+                                                Nothing
+                                                RGB_IdentityLighting
+                                                A_Identity
+                                                TG_Base
+                                                Nil
+                                                (ST_Map "textures/gothic_door/skull_door_e")
+                                                True
+                                                D_Lequal
+                                                Nothing
+                                                False
+                                                "Tex_4255130505")
+                                              (Cons
+                                                (StageAttrs
+                                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                  RGB_IdentityLighting
+                                                  A_Identity
+                                                  TG_Lightmap
+                                                  Nil
+                                                  ST_Lightmap
+                                                  True
+                                                  D_Lequal
+                                                  Nothing
+                                                  False
+                                                  "Tex_3226210144")
+                                                Nil))
+                                            False)
+                                          HNil))
+                                      (Cons
+                                        (HCons
+                                          "textures/gothic_door/skull_door_f"
+                                          (HCons
+                                            (CommonAttrs
+                                              HNil
+                                              HNil
+                                              False
+                                              (fromInt 0)
+                                              False
+                                              False
+                                              CT_FrontSided
+                                              Nil
+                                              False
+                                              False
+                                              (Cons
+                                                (StageAttrs
+                                                  Nothing
+                                                  RGB_IdentityLighting
+                                                  A_Identity
+                                                  TG_Base
+                                                  Nil
+                                                  (ST_Map "textures/gothic_door/skull_door_f")
+                                                  True
+                                                  D_Lequal
+                                                  Nothing
+                                                  False
+                                                  "Tex_4289279309")
+                                                (Cons
+                                                  (StageAttrs
+                                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                    RGB_IdentityLighting
+                                                    A_Identity
+                                                    TG_Lightmap
+                                                    Nil
+                                                    ST_Lightmap
+                                                    True
+                                                    D_Lequal
+                                                    Nothing
+                                                    False
+                                                    "Tex_3226210144")
+                                                  Nil))
+                                              False)
+                                            HNil))
+                                        (Cons
+                                          (HCons
+                                            "textures/gothic_door/skullarch_a"
+                                            (HCons
+                                              (CommonAttrs
+                                                HNil
+                                                HNil
+                                                False
+                                                (fromInt 0)
+                                                False
+                                                False
+                                                CT_FrontSided
+                                                Nil
+                                                False
+                                                False
+                                                (Cons
+                                                  (StageAttrs
+                                                    Nothing
+                                                    RGB_IdentityLighting
+                                                    A_Identity
+                                                    TG_Base
+                                                    Nil
+                                                    (ST_Map "textures/gothic_door/skullarch_a")
+                                                    True
+                                                    D_Lequal
+                                                    Nothing
+                                                    False
+                                                    "Tex_3448884269")
+                                                  (Cons
+                                                    (StageAttrs
+                                                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                      RGB_IdentityLighting
+                                                      A_Identity
+                                                      TG_Lightmap
+                                                      Nil
+                                                      ST_Lightmap
+                                                      True
+                                                      D_Lequal
+                                                      Nothing
+                                                      False
+                                                      "Tex_3226210144")
+                                                    Nil))
+                                                False)
+                                              HNil))
+                                          (Cons
+                                            (HCons
+                                              "textures/gothic_door/skullarch_b"
+                                              (HCons
+                                                (CommonAttrs
+                                                  HNil
+                                                  HNil
+                                                  False
+                                                  (fromInt 3)
+                                                  False
+                                                  False
+                                                  CT_FrontSided
+                                                  Nil
+                                                  False
+                                                  False
+                                                  (Cons
+                                                    (StageAttrs
+                                                      Nothing
+                                                      RGB_Identity
+                                                      A_Identity
+                                                      TG_Base
+                                                      (Cons
+                                                        (TM_Scroll 0.0 1.0)
+                                                        (Cons (TM_Turb 0.0 0.25 0.0 5.6) (Cons (TM_Scale 1.5 1.5) Nil)))
+                                                      (ST_Map "textures/sfx/firegorre.tga")
+                                                      True
+                                                      D_Lequal
+                                                      Nothing
+                                                      False
+                                                      "Tex_3416962274")
+                                                    (Cons
+                                                      (StageAttrs
+                                                        (Just (HCons B_SrcAlpha (HCons B_OneMinusSrcAlpha HNil)))
+                                                        RGB_Identity
+                                                        A_Identity
+                                                        TG_Base
+                                                        Nil
+                                                        (ST_Map "textures/gothic_door/skullarch_b.tga")
+                                                        False
+                                                        D_Lequal
+                                                        Nothing
+                                                        False
+                                                        "Tex_4077187607")
+                                                      (Cons
+                                                        (StageAttrs
+                                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                          RGB_Identity
+                                                          A_Identity
+                                                          TG_Lightmap
+                                                          Nil
+                                                          ST_Lightmap
+                                                          False
+                                                          D_Lequal
+                                                          Nothing
+                                                          False
+                                                          "Tex_1196599720")
+                                                        Nil)))
+                                                  False)
+                                                HNil))
+                                            (Cons
+                                              (HCons
+                                                "textures/gothic_door/skullarch_c"
+                                                (HCons
+                                                  (CommonAttrs
+                                                    HNil
+                                                    HNil
+                                                    False
+                                                    (fromInt 0)
+                                                    False
+                                                    False
+                                                    CT_FrontSided
+                                                    Nil
+                                                    False
+                                                    False
+                                                    (Cons
+                                                      (StageAttrs
+                                                        Nothing
+                                                        RGB_IdentityLighting
+                                                        A_Identity
+                                                        TG_Base
+                                                        Nil
+                                                        (ST_Map "textures/gothic_door/skullarch_c")
+                                                        True
+                                                        D_Lequal
+                                                        Nothing
+                                                        False
+                                                        "Tex_2024854890")
+                                                      (Cons
+                                                        (StageAttrs
+                                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                          RGB_IdentityLighting
+                                                          A_Identity
+                                                          TG_Lightmap
+                                                          Nil
+                                                          ST_Lightmap
+                                                          True
+                                                          D_Lequal
+                                                          Nothing
+                                                          False
+                                                          "Tex_3226210144")
+                                                        Nil))
+                                                    False)
+                                                  HNil))
+                                              (Cons
+                                                (HCons
+                                                  "textures/gothic_door/xian_tourneyarch_inside2"
+                                                  (HCons
+                                                    (CommonAttrs
+                                                      HNil
+                                                      HNil
+                                                      False
+                                                      (fromInt 0)
+                                                      False
+                                                      False
+                                                      CT_FrontSided
+                                                      Nil
+                                                      False
+                                                      False
+                                                      (Cons
+                                                        (StageAttrs
+                                                          Nothing
+                                                          RGB_IdentityLighting
+                                                          A_Identity
+                                                          TG_Base
+                                                          Nil
+                                                          (ST_Map "textures/gothic_door/xian_tourneyarch_inside2")
+                                                          True
+                                                          D_Lequal
+                                                          Nothing
+                                                          False
+                                                          "Tex_1435187472")
+                                                        (Cons
+                                                          (StageAttrs
+                                                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                            RGB_IdentityLighting
+                                                            A_Identity
+                                                            TG_Lightmap
+                                                            Nil
+                                                            ST_Lightmap
+                                                            True
+                                                            D_Lequal
+                                                            Nothing
+                                                            False
+                                                            "Tex_3226210144")
+                                                          Nil))
+                                                      False)
+                                                    HNil))
+                                                (Cons
+                                                  (HCons
+                                                    "textures/gothic_floor/blocks17floor2"
+                                                    (HCons
+                                                      (CommonAttrs
+                                                        HNil
+                                                        HNil
+                                                        False
+                                                        (fromInt 0)
+                                                        False
+                                                        False
+                                                        CT_FrontSided
+                                                        Nil
+                                                        False
+                                                        False
+                                                        (Cons
+                                                          (StageAttrs
+                                                            Nothing
+                                                            RGB_IdentityLighting
+                                                            A_Identity
+                                                            TG_Base
+                                                            Nil
+                                                            (ST_Map "textures/gothic_floor/blocks17floor2")
+                                                            True
+                                                            D_Lequal
+                                                            Nothing
+                                                            False
+                                                            "Tex_3814342582")
+                                                          (Cons
+                                                            (StageAttrs
+                                                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                              RGB_IdentityLighting
+                                                              A_Identity
+                                                              TG_Lightmap
+                                                              Nil
+                                                              ST_Lightmap
+                                                              True
+                                                              D_Lequal
+                                                              Nothing
+                                                              False
+                                                              "Tex_3226210144")
+                                                            Nil))
+                                                        False)
+                                                      HNil))
+                                                  (Cons
+                                                    (HCons
+                                                      "textures/gothic_floor/largerblock3b"
+                                                      (HCons
+                                                        (CommonAttrs
+                                                          HNil
+                                                          HNil
+                                                          False
+                                                          (fromInt 0)
+                                                          False
+                                                          False
+                                                          CT_FrontSided
+                                                          Nil
+                                                          False
+                                                          False
+                                                          (Cons
+                                                            (StageAttrs
+                                                              Nothing
+                                                              RGB_IdentityLighting
+                                                              A_Identity
+                                                              TG_Base
+                                                              Nil
+                                                              (ST_Map "textures/gothic_floor/largerblock3b")
+                                                              True
+                                                              D_Lequal
+                                                              Nothing
+                                                              False
+                                                              "Tex_2966885788")
+                                                            (Cons
+                                                              (StageAttrs
+                                                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                RGB_IdentityLighting
+                                                                A_Identity
+                                                                TG_Lightmap
+                                                                Nil
+                                                                ST_Lightmap
+                                                                True
+                                                                D_Lequal
+                                                                Nothing
+                                                                False
+                                                                "Tex_3226210144")
+                                                              Nil))
+                                                          False)
+                                                        HNil))
+                                                    (Cons
+                                                      (HCons
+                                                        "textures/gothic_floor/metalbridge06"
+                                                        (HCons
+                                                          (CommonAttrs
+                                                            HNil
+                                                            HNil
+                                                            False
+                                                            (fromInt 0)
+                                                            False
+                                                            False
+                                                            CT_FrontSided
+                                                            Nil
+                                                            False
+                                                            False
+                                                            (Cons
+                                                              (StageAttrs
+                                                                Nothing
+                                                                RGB_IdentityLighting
+                                                                A_Identity
+                                                                TG_Base
+                                                                Nil
+                                                                (ST_Map "textures/gothic_floor/metalbridge06")
+                                                                True
+                                                                D_Lequal
+                                                                Nothing
+                                                                False
+                                                                "Tex_1581337759")
+                                                              (Cons
+                                                                (StageAttrs
+                                                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                  RGB_IdentityLighting
+                                                                  A_Identity
+                                                                  TG_Lightmap
+                                                                  Nil
+                                                                  ST_Lightmap
+                                                                  True
+                                                                  D_Lequal
+                                                                  Nothing
+                                                                  False
+                                                                  "Tex_3226210144")
+                                                                Nil))
+                                                            False)
+                                                          HNil))
+                                                      (Cons
+                                                        (HCons
+                                                          "textures/gothic_floor/metalbridge06broke"
+                                                          (HCons
+                                                            (CommonAttrs
+                                                              HNil
+                                                              HNil
+                                                              False
+                                                              (fromInt 0)
+                                                              False
+                                                              False
+                                                              CT_FrontSided
+                                                              Nil
+                                                              False
+                                                              False
+                                                              (Cons
+                                                                (StageAttrs
+                                                                  Nothing
+                                                                  RGB_IdentityLighting
+                                                                  A_Identity
+                                                                  TG_Base
+                                                                  Nil
+                                                                  (ST_Map "textures/gothic_floor/metalbridge06broke")
+                                                                  True
+                                                                  D_Lequal
+                                                                  Nothing
+                                                                  False
+                                                                  "Tex_3921745736")
+                                                                (Cons
+                                                                  (StageAttrs
+                                                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                    RGB_IdentityLighting
+                                                                    A_Identity
+                                                                    TG_Lightmap
+                                                                    Nil
+                                                                    ST_Lightmap
+                                                                    True
+                                                                    D_Lequal
+                                                                    Nothing
+                                                                    False
+                                                                    "Tex_3226210144")
+                                                                  Nil))
+                                                              False)
+                                                            HNil))
+                                                        (Cons
+                                                          (HCons
+                                                            "textures/gothic_floor/xstairtop4"
+                                                            (HCons
+                                                              (CommonAttrs
+                                                                HNil
+                                                                HNil
+                                                                False
+                                                                (fromInt 0)
+                                                                False
+                                                                False
+                                                                CT_FrontSided
+                                                                Nil
+                                                                False
+                                                                False
+                                                                (Cons
+                                                                  (StageAttrs
+                                                                    Nothing
+                                                                    RGB_IdentityLighting
+                                                                    A_Identity
+                                                                    TG_Base
+                                                                    Nil
+                                                                    (ST_Map "textures/gothic_floor/xstairtop4")
+                                                                    True
+                                                                    D_Lequal
+                                                                    Nothing
+                                                                    False
+                                                                    "Tex_3836020895")
+                                                                  (Cons
+                                                                    (StageAttrs
+                                                                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                      RGB_IdentityLighting
+                                                                      A_Identity
+                                                                      TG_Lightmap
+                                                                      Nil
+                                                                      ST_Lightmap
+                                                                      True
+                                                                      D_Lequal
+                                                                      Nothing
+                                                                      False
+                                                                      "Tex_3226210144")
+                                                                    Nil))
+                                                                False)
+                                                              HNil))
+                                                          (Cons
+                                                            (HCons
+                                                              "textures/gothic_floor/xstepborder3"
+                                                              (HCons
+                                                                (CommonAttrs
+                                                                  HNil
+                                                                  HNil
+                                                                  False
+                                                                  (fromInt 0)
+                                                                  False
+                                                                  False
+                                                                  CT_FrontSided
+                                                                  Nil
+                                                                  False
+                                                                  False
+                                                                  (Cons
+                                                                    (StageAttrs
+                                                                      Nothing
+                                                                      RGB_IdentityLighting
+                                                                      A_Identity
+                                                                      TG_Base
+                                                                      Nil
+                                                                      (ST_Map "textures/gothic_floor/xstepborder3")
+                                                                      True
+                                                                      D_Lequal
+                                                                      Nothing
+                                                                      False
+                                                                      "Tex_3269743316")
+                                                                    (Cons
+                                                                      (StageAttrs
+                                                                        (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                        RGB_IdentityLighting
+                                                                        A_Identity
+                                                                        TG_Lightmap
+                                                                        Nil
+                                                                        ST_Lightmap
+                                                                        True
+                                                                        D_Lequal
+                                                                        Nothing
+                                                                        False
+                                                                        "Tex_3226210144")
+                                                                      Nil))
+                                                                  False)
+                                                                HNil))
+                                                            (Cons
+                                                              (HCons
+                                                                "textures/gothic_trim/baseboard04"
+                                                                (HCons
+                                                                  (CommonAttrs
+                                                                    HNil
+                                                                    HNil
+                                                                    False
+                                                                    (fromInt 0)
+                                                                    False
+                                                                    False
+                                                                    CT_FrontSided
+                                                                    Nil
+                                                                    False
+                                                                    False
+                                                                    (Cons
+                                                                      (StageAttrs
+                                                                        Nothing
+                                                                        RGB_IdentityLighting
+                                                                        A_Identity
+                                                                        TG_Base
+                                                                        Nil
+                                                                        (ST_Map "textures/gothic_trim/baseboard04")
+                                                                        True
+                                                                        D_Lequal
+                                                                        Nothing
+                                                                        False
+                                                                        "Tex_1002517541")
+                                                                      (Cons
+                                                                        (StageAttrs
+                                                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                          RGB_IdentityLighting
+                                                                          A_Identity
+                                                                          TG_Lightmap
+                                                                          Nil
+                                                                          ST_Lightmap
+                                                                          True
+                                                                          D_Lequal
+                                                                          Nothing
+                                                                          False
+                                                                          "Tex_3226210144")
+                                                                        Nil))
+                                                                    False)
+                                                                  HNil))
+                                                              (Cons
+                                                                (HCons
+                                                                  "textures/gothic_trim/baseboard09_c3"
+                                                                  (HCons
+                                                                    (CommonAttrs
+                                                                      HNil
+                                                                      HNil
+                                                                      False
+                                                                      (fromInt 0)
+                                                                      False
+                                                                      False
+                                                                      CT_FrontSided
+                                                                      Nil
+                                                                      False
+                                                                      False
+                                                                      (Cons
+                                                                        (StageAttrs
+                                                                          Nothing
+                                                                          RGB_IdentityLighting
+                                                                          A_Identity
+                                                                          TG_Base
+                                                                          Nil
+                                                                          (ST_Map "textures/gothic_trim/baseboard09_c3")
+                                                                          True
+                                                                          D_Lequal
+                                                                          Nothing
+                                                                          False
+                                                                          "Tex_2289735512")
+                                                                        (Cons
+                                                                          (StageAttrs
+                                                                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                            RGB_IdentityLighting
+                                                                            A_Identity
+                                                                            TG_Lightmap
+                                                                            Nil
+                                                                            ST_Lightmap
+                                                                            True
+                                                                            D_Lequal
+                                                                            Nothing
+                                                                            False
+                                                                            "Tex_3226210144")
+                                                                          Nil))
+                                                                      False)
+                                                                    HNil))
+                                                                (Cons
+                                                                  (HCons
+                                                                    "textures/gothic_trim/baseboard09_e"
+                                                                    (HCons
+                                                                      (CommonAttrs
+                                                                        HNil
+                                                                        HNil
+                                                                        False
+                                                                        (fromInt 0)
+                                                                        False
+                                                                        False
+                                                                        CT_FrontSided
+                                                                        Nil
+                                                                        False
+                                                                        False
+                                                                        (Cons
+                                                                          (StageAttrs
+                                                                            Nothing
+                                                                            RGB_IdentityLighting
+                                                                            A_Identity
+                                                                            TG_Base
+                                                                            Nil
+                                                                            (ST_Map "textures/gothic_trim/baseboard09_e")
+                                                                            True
+                                                                            D_Lequal
+                                                                            Nothing
+                                                                            False
+                                                                            "Tex_2367525081")
+                                                                          (Cons
+                                                                            (StageAttrs
+                                                                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                              RGB_IdentityLighting
+                                                                              A_Identity
+                                                                              TG_Lightmap
+                                                                              Nil
+                                                                              ST_Lightmap
+                                                                              True
+                                                                              D_Lequal
+                                                                              Nothing
+                                                                              False
+                                                                              "Tex_3226210144")
+                                                                            Nil))
+                                                                        False)
+                                                                      HNil))
+                                                                  (Cons
+                                                                    (HCons
+                                                                      "textures/gothic_trim/baseboard09_e2"
+                                                                      (HCons
+                                                                        (CommonAttrs
+                                                                          HNil
+                                                                          HNil
+                                                                          False
+                                                                          (fromInt 0)
+                                                                          False
+                                                                          False
+                                                                          CT_FrontSided
+                                                                          Nil
+                                                                          False
+                                                                          False
+                                                                          (Cons
+                                                                            (StageAttrs
+                                                                              Nothing
+                                                                              RGB_IdentityLighting
+                                                                              A_Identity
+                                                                              TG_Base
+                                                                              Nil
+                                                                              (ST_Map "textures/gothic_trim/baseboard09_e2")
+                                                                              True
+                                                                              D_Lequal
+                                                                              Nothing
+                                                                              False
+                                                                              "Tex_3694494180")
+                                                                            (Cons
+                                                                              (StageAttrs
+                                                                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                RGB_IdentityLighting
+                                                                                A_Identity
+                                                                                TG_Lightmap
+                                                                                Nil
+                                                                                ST_Lightmap
+                                                                                True
+                                                                                D_Lequal
+                                                                                Nothing
+                                                                                False
+                                                                                "Tex_3226210144")
+                                                                              Nil))
+                                                                          False)
+                                                                        HNil))
+                                                                    (Cons
+                                                                      (HCons
+                                                                        "textures/gothic_trim/baseboard09_l2"
+                                                                        (HCons
+                                                                          (CommonAttrs
+                                                                            HNil
+                                                                            HNil
+                                                                            False
+                                                                            (fromInt 0)
+                                                                            False
+                                                                            False
+                                                                            CT_FrontSided
+                                                                            Nil
+                                                                            False
+                                                                            False
+                                                                            (Cons
+                                                                              (StageAttrs
+                                                                                Nothing
+                                                                                RGB_IdentityLighting
+                                                                                A_Identity
+                                                                                TG_Base
+                                                                                Nil
+                                                                                (ST_Map "textures/gothic_trim/baseboard09_l2")
+                                                                                True
+                                                                                D_Lequal
+                                                                                Nothing
+                                                                                False
+                                                                                "Tex_3202786139")
+                                                                              (Cons
+                                                                                (StageAttrs
+                                                                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                  RGB_IdentityLighting
+                                                                                  A_Identity
+                                                                                  TG_Lightmap
+                                                                                  Nil
+                                                                                  ST_Lightmap
+                                                                                  True
+                                                                                  D_Lequal
+                                                                                  Nothing
+                                                                                  False
+                                                                                  "Tex_3226210144")
+                                                                                Nil))
+                                                                            False)
+                                                                          HNil))
+                                                                      (Cons
+                                                                        (HCons
+                                                                          "textures/gothic_trim/baseboard09_o3"
+                                                                          (HCons
+                                                                            (CommonAttrs
+                                                                              HNil
+                                                                              HNil
+                                                                              False
+                                                                              (fromInt 0)
+                                                                              False
+                                                                              False
+                                                                              CT_FrontSided
+                                                                              Nil
+                                                                              False
+                                                                              False
+                                                                              (Cons
+                                                                                (StageAttrs
+                                                                                  Nothing
+                                                                                  RGB_IdentityLighting
+                                                                                  A_Identity
+                                                                                  TG_Base
+                                                                                  Nil
+                                                                                  (ST_Map "textures/gothic_trim/baseboard09_o3")
+                                                                                  True
+                                                                                  D_Lequal
+                                                                                  Nothing
+                                                                                  False
+                                                                                  "Tex_2512757607")
+                                                                                (Cons
+                                                                                  (StageAttrs
+                                                                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                    RGB_IdentityLighting
+                                                                                    A_Identity
+                                                                                    TG_Lightmap
+                                                                                    Nil
+                                                                                    ST_Lightmap
+                                                                                    True
+                                                                                    D_Lequal
+                                                                                    Nothing
+                                                                                    False
+                                                                                    "Tex_3226210144")
+                                                                                  Nil))
+                                                                              False)
+                                                                            HNil))
+                                                                        (Cons
+                                                                          (HCons
+                                                                            "textures/gothic_trim/km_arena1tower4"
+                                                                            (HCons
+                                                                              (CommonAttrs
+                                                                                HNil
+                                                                                HNil
+                                                                                False
+                                                                                (fromInt 0)
+                                                                                False
+                                                                                False
+                                                                                CT_FrontSided
+                                                                                Nil
+                                                                                False
+                                                                                False
+                                                                                (Cons
+                                                                                  (StageAttrs
+                                                                                    Nothing
+                                                                                    RGB_IdentityLighting
+                                                                                    A_Identity
+                                                                                    TG_Base
+                                                                                    Nil
+                                                                                    (ST_Map "textures/gothic_trim/km_arena1tower4")
+                                                                                    True
+                                                                                    D_Lequal
+                                                                                    Nothing
+                                                                                    False
+                                                                                    "Tex_3479185666")
+                                                                                  (Cons
+                                                                                    (StageAttrs
+                                                                                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                      RGB_IdentityLighting
+                                                                                      A_Identity
+                                                                                      TG_Lightmap
+                                                                                      Nil
+                                                                                      ST_Lightmap
+                                                                                      True
+                                                                                      D_Lequal
+                                                                                      Nothing
+                                                                                      False
+                                                                                      "Tex_3226210144")
+                                                                                    Nil))
+                                                                                False)
+                                                                              HNil))
+                                                                          (Cons
+                                                                            (HCons
+                                                                              "textures/gothic_trim/km_arena1tower4_a"
+                                                                              (HCons
+                                                                                (CommonAttrs
+                                                                                  HNil
+                                                                                  HNil
+                                                                                  False
+                                                                                  (fromInt 0)
+                                                                                  False
+                                                                                  False
+                                                                                  CT_FrontSided
+                                                                                  Nil
+                                                                                  False
+                                                                                  False
+                                                                                  (Cons
+                                                                                    (StageAttrs
+                                                                                      Nothing
+                                                                                      RGB_IdentityLighting
+                                                                                      A_Identity
+                                                                                      TG_Base
+                                                                                      Nil
+                                                                                      (ST_Map "textures/gothic_trim/km_arena1tower4_a")
+                                                                                      True
+                                                                                      D_Lequal
+                                                                                      Nothing
+                                                                                      False
+                                                                                      "Tex_3012001075")
+                                                                                    (Cons
+                                                                                      (StageAttrs
+                                                                                        (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                        RGB_IdentityLighting
+                                                                                        A_Identity
+                                                                                        TG_Lightmap
+                                                                                        Nil
+                                                                                        ST_Lightmap
+                                                                                        True
+                                                                                        D_Lequal
+                                                                                        Nothing
+                                                                                        False
+                                                                                        "Tex_3226210144")
+                                                                                      Nil))
+                                                                                  False)
+                                                                                HNil))
+                                                                            (Cons
+                                                                              (HCons
+                                                                                "textures/gothic_trim/metaldemonkillblock"
+                                                                                (HCons
+                                                                                  (CommonAttrs
+                                                                                    HNil
+                                                                                    HNil
+                                                                                    False
+                                                                                    (fromInt 0)
+                                                                                    False
+                                                                                    False
+                                                                                    CT_FrontSided
+                                                                                    Nil
+                                                                                    False
+                                                                                    False
+                                                                                    (Cons
+                                                                                      (StageAttrs
+                                                                                        Nothing
+                                                                                        RGB_IdentityLighting
+                                                                                        A_Identity
+                                                                                        TG_Base
+                                                                                        Nil
+                                                                                        (ST_Map "textures/gothic_trim/metaldemonkillblock")
+                                                                                        True
+                                                                                        D_Lequal
+                                                                                        Nothing
+                                                                                        False
+                                                                                        "Tex_1062467595")
+                                                                                      (Cons
+                                                                                        (StageAttrs
+                                                                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                          RGB_IdentityLighting
+                                                                                          A_Identity
+                                                                                          TG_Lightmap
+                                                                                          Nil
+                                                                                          ST_Lightmap
+                                                                                          True
+                                                                                          D_Lequal
+                                                                                          Nothing
+                                                                                          False
+                                                                                          "Tex_3226210144")
+                                                                                        Nil))
+                                                                                    False)
+                                                                                  HNil))
+                                                                              (Cons
+                                                                                (HCons
+                                                                                  "textures/gothic_trim/metalsupport4b"
+                                                                                  (HCons
+                                                                                    (CommonAttrs
+                                                                                      HNil
+                                                                                      HNil
+                                                                                      False
+                                                                                      (fromInt 0)
+                                                                                      False
+                                                                                      False
+                                                                                      CT_FrontSided
+                                                                                      Nil
+                                                                                      False
+                                                                                      False
+                                                                                      (Cons
+                                                                                        (StageAttrs
+                                                                                          Nothing
+                                                                                          RGB_IdentityLighting
+                                                                                          A_Identity
+                                                                                          TG_Base
+                                                                                          Nil
+                                                                                          (ST_Map "textures/gothic_trim/metalsupport4b")
+                                                                                          True
+                                                                                          D_Lequal
+                                                                                          Nothing
+                                                                                          False
+                                                                                          "Tex_3593923076")
+                                                                                        (Cons
+                                                                                          (StageAttrs
+                                                                                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                            RGB_IdentityLighting
+                                                                                            A_Identity
+                                                                                            TG_Lightmap
+                                                                                            Nil
+                                                                                            ST_Lightmap
+                                                                                            True
+                                                                                            D_Lequal
+                                                                                            Nothing
+                                                                                            False
+                                                                                            "Tex_3226210144")
+                                                                                          Nil))
+                                                                                      False)
+                                                                                    HNil))
+                                                                                (Cons
+                                                                                  (HCons
+                                                                                    "textures/gothic_trim/metalsupsolid"
+                                                                                    (HCons
+                                                                                      (CommonAttrs
+                                                                                        HNil
+                                                                                        HNil
+                                                                                        False
+                                                                                        (fromInt 0)
+                                                                                        False
+                                                                                        False
+                                                                                        CT_FrontSided
+                                                                                        Nil
+                                                                                        False
+                                                                                        False
+                                                                                        (Cons
+                                                                                          (StageAttrs
+                                                                                            Nothing
+                                                                                            RGB_IdentityLighting
+                                                                                            A_Identity
+                                                                                            TG_Base
+                                                                                            Nil
+                                                                                            (ST_Map "textures/gothic_trim/metalsupsolid")
+                                                                                            True
+                                                                                            D_Lequal
+                                                                                            Nothing
+                                                                                            False
+                                                                                            "Tex_2893650486")
+                                                                                          (Cons
+                                                                                            (StageAttrs
+                                                                                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                              RGB_IdentityLighting
+                                                                                              A_Identity
+                                                                                              TG_Lightmap
+                                                                                              Nil
+                                                                                              ST_Lightmap
+                                                                                              True
+                                                                                              D_Lequal
+                                                                                              Nothing
+                                                                                              False
+                                                                                              "Tex_3226210144")
+                                                                                            Nil))
+                                                                                        False)
+                                                                                      HNil))
+                                                                                  (Cons
+                                                                                    (HCons
+                                                                                      "textures/gothic_trim/pitted_rust"
+                                                                                      (HCons
+                                                                                        (CommonAttrs
+                                                                                          HNil
+                                                                                          HNil
+                                                                                          False
+                                                                                          (fromInt 0)
+                                                                                          False
+                                                                                          False
+                                                                                          CT_FrontSided
+                                                                                          Nil
+                                                                                          False
+                                                                                          False
+                                                                                          (Cons
+                                                                                            (StageAttrs
+                                                                                              Nothing
+                                                                                              RGB_IdentityLighting
+                                                                                              A_Identity
+                                                                                              TG_Base
+                                                                                              Nil
+                                                                                              (ST_Map "textures/gothic_trim/pitted_rust")
+                                                                                              True
+                                                                                              D_Lequal
+                                                                                              Nothing
+                                                                                              False
+                                                                                              "Tex_1243894392")
+                                                                                            (Cons
+                                                                                              (StageAttrs
+                                                                                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                RGB_IdentityLighting
+                                                                                                A_Identity
+                                                                                                TG_Lightmap
+                                                                                                Nil
+                                                                                                ST_Lightmap
+                                                                                                True
+                                                                                                D_Lequal
+                                                                                                Nothing
+                                                                                                False
+                                                                                                "Tex_3226210144")
+                                                                                              Nil))
+                                                                                          False)
+                                                                                        HNil))
+                                                                                    (Cons
+                                                                                      (HCons
+                                                                                        "textures/gothic_trim/pitted_rust2"
+                                                                                        (HCons
+                                                                                          (CommonAttrs
+                                                                                            HNil
+                                                                                            HNil
+                                                                                            False
+                                                                                            (fromInt 0)
+                                                                                            False
+                                                                                            False
+                                                                                            CT_FrontSided
+                                                                                            Nil
+                                                                                            False
+                                                                                            False
+                                                                                            (Cons
+                                                                                              (StageAttrs
+                                                                                                Nothing
+                                                                                                RGB_IdentityLighting
+                                                                                                A_Identity
+                                                                                                TG_Base
+                                                                                                Nil
+                                                                                                (ST_Map "textures/gothic_trim/pitted_rust2")
+                                                                                                True
+                                                                                                D_Lequal
+                                                                                                Nothing
+                                                                                                False
+                                                                                                "Tex_2099456856")
+                                                                                              (Cons
+                                                                                                (StageAttrs
+                                                                                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                  RGB_IdentityLighting
+                                                                                                  A_Identity
+                                                                                                  TG_Lightmap
+                                                                                                  Nil
+                                                                                                  ST_Lightmap
+                                                                                                  True
+                                                                                                  D_Lequal
+                                                                                                  Nothing
+                                                                                                  False
+                                                                                                  "Tex_3226210144")
+                                                                                                Nil))
+                                                                                            False)
+                                                                                          HNil))
+                                                                                      (Cons
+                                                                                        (HCons
+                                                                                          "textures/gothic_trim/pitted_rust2_trans"
+                                                                                          (HCons
+                                                                                            (CommonAttrs
+                                                                                              HNil
+                                                                                              HNil
+                                                                                              False
+                                                                                              (fromInt 3)
+                                                                                              False
+                                                                                              False
+                                                                                              CT_FrontSided
+                                                                                              Nil
+                                                                                              False
+                                                                                              False
+                                                                                              (Cons
+                                                                                                (StageAttrs
+                                                                                                  Nothing
+                                                                                                  RGB_Identity
+                                                                                                  A_Identity
+                                                                                                  TG_Lightmap
+                                                                                                  Nil
+                                                                                                  ST_Lightmap
+                                                                                                  True
+                                                                                                  D_Lequal
+                                                                                                  Nothing
+                                                                                                  False
+                                                                                                  "Tex_511571587")
+                                                                                                (Cons
+                                                                                                  (StageAttrs
+                                                                                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                    RGB_Identity
+                                                                                                    A_Identity
+                                                                                                    TG_Base
+                                                                                                    Nil
+                                                                                                    (ST_Map "textures/gothic_trim/pitted_rust2.tga")
+                                                                                                    False
+                                                                                                    D_Lequal
+                                                                                                    Nothing
+                                                                                                    False
+                                                                                                    "Tex_1910997598")
+                                                                                                  Nil))
+                                                                                              False)
+                                                                                            HNil))
+                                                                                        (Cons
+                                                                                          (HCons
+                                                                                            "textures/gothic_trim/pitted_rust3"
+                                                                                            (HCons
+                                                                                              (CommonAttrs
+                                                                                                HNil
+                                                                                                HNil
+                                                                                                False
+                                                                                                (fromInt 0)
+                                                                                                False
+                                                                                                False
+                                                                                                CT_FrontSided
+                                                                                                Nil
+                                                                                                False
+                                                                                                False
+                                                                                                (Cons
+                                                                                                  (StageAttrs
+                                                                                                    Nothing
+                                                                                                    RGB_IdentityLighting
+                                                                                                    A_Identity
+                                                                                                    TG_Base
+                                                                                                    Nil
+                                                                                                    (ST_Map "textures/gothic_trim/pitted_rust3")
+                                                                                                    True
+                                                                                                    D_Lequal
+                                                                                                    Nothing
+                                                                                                    False
+                                                                                                    "Tex_3389727963")
+                                                                                                  (Cons
+                                                                                                    (StageAttrs
+                                                                                                      (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                      RGB_IdentityLighting
+                                                                                                      A_Identity
+                                                                                                      TG_Lightmap
+                                                                                                      Nil
+                                                                                                      ST_Lightmap
+                                                                                                      True
+                                                                                                      D_Lequal
+                                                                                                      Nothing
+                                                                                                      False
+                                                                                                      "Tex_3226210144")
+                                                                                                    Nil))
+                                                                                                False)
+                                                                                              HNil))
+                                                                                          (Cons
+                                                                                            (HCons
+                                                                                              "textures/gothic_trim/skullsvertgray02b"
+                                                                                              (HCons
+                                                                                                (CommonAttrs
+                                                                                                  HNil
+                                                                                                  HNil
+                                                                                                  False
+                                                                                                  (fromInt 0)
+                                                                                                  False
+                                                                                                  False
+                                                                                                  CT_FrontSided
+                                                                                                  Nil
+                                                                                                  False
+                                                                                                  False
+                                                                                                  (Cons
+                                                                                                    (StageAttrs
+                                                                                                      Nothing
+                                                                                                      RGB_IdentityLighting
+                                                                                                      A_Identity
+                                                                                                      TG_Base
+                                                                                                      Nil
+                                                                                                      (ST_Map "textures/gothic_trim/skullsvertgray02b")
+                                                                                                      True
+                                                                                                      D_Lequal
+                                                                                                      Nothing
+                                                                                                      False
+                                                                                                      "Tex_2634868983")
+                                                                                                    (Cons
+                                                                                                      (StageAttrs
+                                                                                                        (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                        RGB_IdentityLighting
+                                                                                                        A_Identity
+                                                                                                        TG_Lightmap
+                                                                                                        Nil
+                                                                                                        ST_Lightmap
+                                                                                                        True
+                                                                                                        D_Lequal
+                                                                                                        Nothing
+                                                                                                        False
+                                                                                                        "Tex_3226210144")
+                                                                                                      Nil))
+                                                                                                  False)
+                                                                                                HNil))
+                                                                                            (Cons
+                                                                                              (HCons
+                                                                                                "textures/gothic_wall/iron01_e"
+                                                                                                (HCons
+                                                                                                  (CommonAttrs
+                                                                                                    HNil
+                                                                                                    HNil
+                                                                                                    False
+                                                                                                    (fromInt 0)
+                                                                                                    False
+                                                                                                    False
+                                                                                                    CT_FrontSided
+                                                                                                    Nil
+                                                                                                    False
+                                                                                                    False
+                                                                                                    (Cons
+                                                                                                      (StageAttrs
+                                                                                                        Nothing
+                                                                                                        RGB_IdentityLighting
+                                                                                                        A_Identity
+                                                                                                        TG_Base
+                                                                                                        Nil
+                                                                                                        (ST_Map "textures/gothic_wall/iron01_e")
+                                                                                                        True
+                                                                                                        D_Lequal
+                                                                                                        Nothing
+                                                                                                        False
+                                                                                                        "Tex_2432583247")
+                                                                                                      (Cons
+                                                                                                        (StageAttrs
+                                                                                                          (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                          RGB_IdentityLighting
+                                                                                                          A_Identity
+                                                                                                          TG_Lightmap
+                                                                                                          Nil
+                                                                                                          ST_Lightmap
+                                                                                                          True
+                                                                                                          D_Lequal
+                                                                                                          Nothing
+                                                                                                          False
+                                                                                                          "Tex_3226210144")
+                                                                                                        Nil))
+                                                                                                    False)
+                                                                                                  HNil))
+                                                                                              (Cons
+                                                                                                (HCons
+                                                                                                  "textures/gothic_wall/iron01_ntech3"
+                                                                                                  (HCons
+                                                                                                    (CommonAttrs
+                                                                                                      HNil
+                                                                                                      HNil
+                                                                                                      False
+                                                                                                      (fromInt 0)
+                                                                                                      False
+                                                                                                      False
+                                                                                                      CT_FrontSided
+                                                                                                      Nil
+                                                                                                      False
+                                                                                                      False
+                                                                                                      (Cons
+                                                                                                        (StageAttrs
+                                                                                                          Nothing
+                                                                                                          RGB_IdentityLighting
+                                                                                                          A_Identity
+                                                                                                          TG_Base
+                                                                                                          Nil
+                                                                                                          (ST_Map "textures/gothic_wall/iron01_ntech3")
+                                                                                                          True
+                                                                                                          D_Lequal
+                                                                                                          Nothing
+                                                                                                          False
+                                                                                                          "Tex_442868841")
+                                                                                                        (Cons
+                                                                                                          (StageAttrs
+                                                                                                            (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                            RGB_IdentityLighting
+                                                                                                            A_Identity
+                                                                                                            TG_Lightmap
+                                                                                                            Nil
+                                                                                                            ST_Lightmap
+                                                                                                            True
+                                                                                                            D_Lequal
+                                                                                                            Nothing
+                                                                                                            False
+                                                                                                            "Tex_3226210144")
+                                                                                                          Nil))
+                                                                                                      False)
+                                                                                                    HNil))
+                                                                                                (Cons
+                                                                                                  (HCons
+                                                                                                    "textures/gothic_wall/skull4"
+                                                                                                    (HCons
+                                                                                                      (CommonAttrs
+                                                                                                        HNil
+                                                                                                        HNil
+                                                                                                        False
+                                                                                                        (fromInt 0)
+                                                                                                        False
+                                                                                                        False
+                                                                                                        CT_FrontSided
+                                                                                                        Nil
+                                                                                                        False
+                                                                                                        False
+                                                                                                        (Cons
+                                                                                                          (StageAttrs
+                                                                                                            Nothing
+                                                                                                            RGB_IdentityLighting
+                                                                                                            A_Identity
+                                                                                                            TG_Base
+                                                                                                            Nil
+                                                                                                            (ST_Map "textures/gothic_wall/skull4")
+                                                                                                            True
+                                                                                                            D_Lequal
+                                                                                                            Nothing
+                                                                                                            False
+                                                                                                            "Tex_2239853403")
+                                                                                                          (Cons
+                                                                                                            (StageAttrs
+                                                                                                              (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                              RGB_IdentityLighting
+                                                                                                              A_Identity
+                                                                                                              TG_Lightmap
+                                                                                                              Nil
+                                                                                                              ST_Lightmap
+                                                                                                              True
+                                                                                                              D_Lequal
+                                                                                                              Nothing
+                                                                                                              False
+                                                                                                              "Tex_3226210144")
+                                                                                                            Nil))
+                                                                                                        False)
+                                                                                                      HNil))
+                                                                                                  (Cons
+                                                                                                    (HCons
+                                                                                                      "textures/gothic_wall/slateroofc"
+                                                                                                      (HCons
+                                                                                                        (CommonAttrs
+                                                                                                          HNil
+                                                                                                          HNil
+                                                                                                          False
+                                                                                                          (fromInt 0)
+                                                                                                          False
+                                                                                                          False
+                                                                                                          CT_FrontSided
+                                                                                                          Nil
+                                                                                                          False
+                                                                                                          False
+                                                                                                          (Cons
+                                                                                                            (StageAttrs
+                                                                                                              Nothing
+                                                                                                              RGB_IdentityLighting
+                                                                                                              A_Identity
+                                                                                                              TG_Base
+                                                                                                              Nil
+                                                                                                              (ST_Map "textures/gothic_wall/slateroofc")
+                                                                                                              True
+                                                                                                              D_Lequal
+                                                                                                              Nothing
+                                                                                                              False
+                                                                                                              "Tex_2490648334")
+                                                                                                            (Cons
+                                                                                                              (StageAttrs
+                                                                                                                (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                                RGB_IdentityLighting
+                                                                                                                A_Identity
+                                                                                                                TG_Lightmap
+                                                                                                                Nil
+                                                                                                                ST_Lightmap
+                                                                                                                True
+                                                                                                                D_Lequal
+                                                                                                                Nothing
+                                                                                                                False
+                                                                                                                "Tex_3226210144")
+                                                                                                              Nil))
+                                                                                                          False)
+                                                                                                        HNil))
+                                                                                                    (Cons
+                                                                                                      (HCons
+                                                                                                        "textures/gothic_wall/supportborder_blue_b"
+                                                                                                        (HCons
+                                                                                                          (CommonAttrs
+                                                                                                            HNil
+                                                                                                            HNil
+                                                                                                            False
+                                                                                                            (fromInt 0)
+                                                                                                            False
+                                                                                                            False
+                                                                                                            CT_FrontSided
+                                                                                                            Nil
+                                                                                                            False
+                                                                                                            False
+                                                                                                            (Cons
+                                                                                                              (StageAttrs
+                                                                                                                Nothing
+                                                                                                                RGB_IdentityLighting
+                                                                                                                A_Identity
+                                                                                                                TG_Base
+                                                                                                                Nil
+                                                                                                                (ST_Map "textures/gothic_wall/supportborder_blue_b")
+                                                                                                                True
+                                                                                                                D_Lequal
+                                                                                                                Nothing
+                                                                                                                False
+                                                                                                                "Tex_564811775")
+                                                                                                              (Cons
+                                                                                                                (StageAttrs
+                                                                                                                  (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                                  RGB_IdentityLighting
+                                                                                                                  A_Identity
+                                                                                                                  TG_Lightmap
+                                                                                                                  Nil
+                                                                                                                  ST_Lightmap
+                                                                                                                  True
+                                                                                                                  D_Lequal
+                                                                                                                  Nothing
+                                                                                                                  False
+                                                                                                                  "Tex_3226210144")
+                                                                                                                Nil))
+                                                                                                            False)
+                                                                                                          HNil))
+                                                                                                      (Cons
+                                                                                                        (HCons
+                                                                                                          "textures/gothic_wall/supportborder_blue_c"
+                                                                                                          (HCons
+                                                                                                            (CommonAttrs
+                                                                                                              HNil
+                                                                                                              HNil
+                                                                                                              False
+                                                                                                              (fromInt 0)
+                                                                                                              False
+                                                                                                              False
+                                                                                                              CT_FrontSided
+                                                                                                              Nil
+                                                                                                              False
+                                                                                                              False
+                                                                                                              (Cons
+                                                                                                                (StageAttrs
+                                                                                                                  Nothing
+                                                                                                                  RGB_IdentityLighting
+                                                                                                                  A_Identity
+                                                                                                                  TG_Base
+                                                                                                                  Nil
+                                                                                                                  (ST_Map "textures/gothic_wall/supportborder_blue_c")
+                                                                                                                  True
+                                                                                                                  D_Lequal
+                                                                                                                  Nothing
+                                                                                                                  False
+                                                                                                                  "Tex_2525124732")
+                                                                                                                (Cons
+                                                                                                                  (StageAttrs
+                                                                                                                    (Just (HCons B_DstColor (HCons B_Zero HNil)))
+                                                                                                                    RGB_IdentityLighting
+                                                                                                                    A_Identity
+                                                                                                                    TG_Lightmap
+                                                                                                                    Nil
+                                                                                                                    ST_Lightmap
+                                                                                                                    True
+                                                                                                                    D_Lequal
+                                                                                                                    Nothing
+                                                                                                                    False
+                                                                                                                    "Tex_3226210144")
+                                                                                                                  Nil))
+                                                                                                              False)
+                                                                                                            HNil))
+                                                                                                        Nil))))))))))))))))))))))))))))))))))))))))))))))))))
 main is not found
 ------------ trace
 sampleMaterial :: List (String, CommonAttrs)
@@ -6,11 +2240,31 @@ testdata/performance/SampleMaterial.lc 3:1-3:15  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 4:3-2183:4  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 4:5-46:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 4:7-4:40  String
-testdata/performance/SampleMaterial.lc 5:7-5:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-6:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-7:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-8:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-9:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-5:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-6:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-7:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-8:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-9:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 5:7-10:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 5:7-11:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 5:7-12:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -30,12 +2284,33 @@ testdata/performance/SampleMaterial.lc 13:30-13:32  forall a . List a
 testdata/performance/SampleMaterial.lc 14:25-14:30  Bool
 testdata/performance/SampleMaterial.lc 15:29-15:34  Bool
 testdata/performance/SampleMaterial.lc 17:13-43:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-17:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-18:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-19:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-20:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-21:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-22:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-17:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-18:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-19:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-20:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-21:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-22:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 17:15-23:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 17:15-24:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 17:15-25:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -55,12 +2330,33 @@ testdata/performance/SampleMaterial.lc 25:33-25:41  DepthFunction
 testdata/performance/SampleMaterial.lc 26:33-26:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 27:41-27:46  Bool
 testdata/performance/SampleMaterial.lc 28:38-28:54  String
-testdata/performance/SampleMaterial.lc 30:15-30:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-31:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-32:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-33:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-34:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-35:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-30:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-31:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-32:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-33:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-34:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-35:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 30:15-36:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 30:15-37:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 30:15-38:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -86,11 +2382,31 @@ testdata/performance/SampleMaterial.lc 44:21-44:26  Bool
 testdata/performance/SampleMaterial.lc 47:5-89:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 47:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 47:7-47:39  String
-testdata/performance/SampleMaterial.lc 48:7-48:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 48:7-49:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 48:7-50:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 48:7-51:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 48:7-52:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-48:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-49:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-50:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-51:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-52:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 48:7-53:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 48:7-54:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 48:7-55:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -110,12 +2426,33 @@ testdata/performance/SampleMaterial.lc 56:30-56:32  forall a . List a
 testdata/performance/SampleMaterial.lc 57:25-57:30  Bool
 testdata/performance/SampleMaterial.lc 58:29-58:34  Bool
 testdata/performance/SampleMaterial.lc 60:13-86:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-60:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-61:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-62:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-63:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-64:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-65:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-60:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-61:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-62:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-63:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-64:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-65:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 60:15-66:70  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 60:15-67:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 60:15-68:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -135,12 +2472,33 @@ testdata/performance/SampleMaterial.lc 68:33-68:41  DepthFunction
 testdata/performance/SampleMaterial.lc 69:33-69:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 70:41-70:46  Bool
 testdata/performance/SampleMaterial.lc 71:38-71:54  String
-testdata/performance/SampleMaterial.lc 73:15-73:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-74:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-75:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-76:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-77:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-78:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-73:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-74:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-75:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-76:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-77:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-78:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 73:15-79:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 73:15-80:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 73:15-81:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -166,11 +2524,31 @@ testdata/performance/SampleMaterial.lc 87:21-87:26  Bool
 testdata/performance/SampleMaterial.lc 90:5-132:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 90:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 90:7-90:40  String
-testdata/performance/SampleMaterial.lc 91:7-91:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 91:7-92:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 91:7-93:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 91:7-94:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 91:7-95:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-91:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-92:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-93:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-94:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-95:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 91:7-96:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 91:7-97:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 91:7-98:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -190,12 +2568,33 @@ testdata/performance/SampleMaterial.lc 99:30-99:32  forall a . List a
 testdata/performance/SampleMaterial.lc 100:25-100:30  Bool
 testdata/performance/SampleMaterial.lc 101:29-101:34  Bool
 testdata/performance/SampleMaterial.lc 103:13-129:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-103:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-104:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-105:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-106:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-107:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-108:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-103:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-104:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-105:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-106:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-107:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-108:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 103:15-109:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 103:15-110:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 103:15-111:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -215,12 +2614,33 @@ testdata/performance/SampleMaterial.lc 111:33-111:41  DepthFunction
 testdata/performance/SampleMaterial.lc 112:33-112:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 113:41-113:46  Bool
 testdata/performance/SampleMaterial.lc 114:38-114:54  String
-testdata/performance/SampleMaterial.lc 116:15-116:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-117:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-118:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-119:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-120:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-121:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-116:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-117:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-118:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-119:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-120:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-121:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 116:15-122:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 116:15-123:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 116:15-124:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -246,11 +2666,31 @@ testdata/performance/SampleMaterial.lc 130:21-130:26  Bool
 testdata/performance/SampleMaterial.lc 133:5-175:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 133:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 133:7-133:42  String
-testdata/performance/SampleMaterial.lc 134:7-134:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 134:7-135:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 134:7-136:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 134:7-137:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 134:7-138:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-134:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-135:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-136:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-137:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-138:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 134:7-139:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 134:7-140:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 134:7-141:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -270,12 +2710,33 @@ testdata/performance/SampleMaterial.lc 142:30-142:32  forall a . List a
 testdata/performance/SampleMaterial.lc 143:25-143:30  Bool
 testdata/performance/SampleMaterial.lc 144:29-144:34  Bool
 testdata/performance/SampleMaterial.lc 146:13-172:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-146:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-147:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-148:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-149:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-150:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-151:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-146:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-147:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-148:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-149:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-150:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-151:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 146:15-152:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 146:15-153:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 146:15-154:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -295,12 +2756,33 @@ testdata/performance/SampleMaterial.lc 154:33-154:41  DepthFunction
 testdata/performance/SampleMaterial.lc 155:33-155:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 156:41-156:46  Bool
 testdata/performance/SampleMaterial.lc 157:38-157:54  String
-testdata/performance/SampleMaterial.lc 159:15-159:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-160:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-161:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-162:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-163:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-164:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-159:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-160:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-161:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-162:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-163:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-164:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 159:15-165:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 159:15-166:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 159:15-167:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -326,11 +2808,31 @@ testdata/performance/SampleMaterial.lc 173:21-173:26  Bool
 testdata/performance/SampleMaterial.lc 176:5-232:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 176:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 176:7-176:46  String
-testdata/performance/SampleMaterial.lc 177:7-177:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 177:7-178:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 177:7-179:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 177:7-180:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 177:7-181:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-177:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-178:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-179:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-180:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-181:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 177:7-182:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 177:7-183:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 177:7-184:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -350,12 +2852,33 @@ testdata/performance/SampleMaterial.lc 185:30-185:32  forall a . List a
 testdata/performance/SampleMaterial.lc 186:25-186:30  Bool
 testdata/performance/SampleMaterial.lc 187:29-187:34  Bool
 testdata/performance/SampleMaterial.lc 189:13-229:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-189:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-190:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-191:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-192:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-193:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-195:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-189:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-190:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-191:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-192:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-193:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-195:88  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 189:15-196:66  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 189:15-197:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 189:15-198:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -395,12 +2918,33 @@ testdata/performance/SampleMaterial.lc 198:33-198:41  DepthFunction
 testdata/performance/SampleMaterial.lc 199:33-199:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 200:41-200:46  Bool
 testdata/performance/SampleMaterial.lc 201:38-201:52  String
-testdata/performance/SampleMaterial.lc 203:15-203:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-204:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-205:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-206:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-207:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-208:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-203:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-204:69  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-205:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-206:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-207:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-208:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 203:15-209:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 203:15-210:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 203:15-211:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -425,12 +2969,33 @@ testdata/performance/SampleMaterial.lc 211:33-211:41  DepthFunction
 testdata/performance/SampleMaterial.lc 212:33-212:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 213:41-213:46  Bool
 testdata/performance/SampleMaterial.lc 214:38-214:54  String
-testdata/performance/SampleMaterial.lc 216:15-216:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-217:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-218:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-219:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-220:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-221:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-216:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-217:69  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-218:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-219:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-220:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-221:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 216:15-222:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 216:15-223:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 216:15-224:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -456,11 +3021,31 @@ testdata/performance/SampleMaterial.lc 230:21-230:26  Bool
 testdata/performance/SampleMaterial.lc 233:5-275:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 233:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 233:7-233:40  String
-testdata/performance/SampleMaterial.lc 234:7-234:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 234:7-235:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 234:7-236:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 234:7-237:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 234:7-238:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-234:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-235:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-236:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-237:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-238:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 234:7-239:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 234:7-240:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 234:7-241:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -480,12 +3065,33 @@ testdata/performance/SampleMaterial.lc 242:30-242:32  forall a . List a
 testdata/performance/SampleMaterial.lc 243:25-243:30  Bool
 testdata/performance/SampleMaterial.lc 244:29-244:34  Bool
 testdata/performance/SampleMaterial.lc 246:13-272:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-246:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-247:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-248:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-249:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-250:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-251:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-246:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-247:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-248:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-249:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-250:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-251:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 246:15-252:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 246:15-253:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 246:15-254:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -505,12 +3111,33 @@ testdata/performance/SampleMaterial.lc 254:33-254:41  DepthFunction
 testdata/performance/SampleMaterial.lc 255:33-255:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 256:41-256:46  Bool
 testdata/performance/SampleMaterial.lc 257:38-257:54  String
-testdata/performance/SampleMaterial.lc 259:15-259:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-260:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-261:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-262:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-263:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-264:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-259:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-260:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-261:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-262:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-263:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-264:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 259:15-265:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 259:15-266:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 259:15-267:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -536,11 +3163,31 @@ testdata/performance/SampleMaterial.lc 273:21-273:26  Bool
 testdata/performance/SampleMaterial.lc 276:5-318:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 276:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 276:7-276:42  String
-testdata/performance/SampleMaterial.lc 277:7-277:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 277:7-278:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 277:7-279:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 277:7-280:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 277:7-281:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-277:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-278:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-279:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-280:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-281:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 277:7-282:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 277:7-283:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 277:7-284:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -560,12 +3207,33 @@ testdata/performance/SampleMaterial.lc 285:30-285:32  forall a . List a
 testdata/performance/SampleMaterial.lc 286:25-286:30  Bool
 testdata/performance/SampleMaterial.lc 287:29-287:34  Bool
 testdata/performance/SampleMaterial.lc 289:13-315:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-289:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-290:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-291:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-292:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-293:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-294:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-289:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-290:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-291:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-292:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-293:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-294:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 289:15-295:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 289:15-296:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 289:15-297:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -585,12 +3253,33 @@ testdata/performance/SampleMaterial.lc 297:33-297:41  DepthFunction
 testdata/performance/SampleMaterial.lc 298:33-298:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 299:41-299:46  Bool
 testdata/performance/SampleMaterial.lc 300:38-300:53  String
-testdata/performance/SampleMaterial.lc 302:15-302:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-303:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-304:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-305:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-306:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-307:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-302:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-303:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-304:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-305:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-306:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-307:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 302:15-308:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 302:15-309:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 302:15-310:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -616,11 +3305,31 @@ testdata/performance/SampleMaterial.lc 316:21-316:26  Bool
 testdata/performance/SampleMaterial.lc 319:5-361:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 319:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 319:7-319:43  String
-testdata/performance/SampleMaterial.lc 320:7-320:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 320:7-321:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 320:7-322:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 320:7-323:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 320:7-324:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-320:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-321:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-322:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-323:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-324:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 320:7-325:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 320:7-326:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 320:7-327:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -640,12 +3349,33 @@ testdata/performance/SampleMaterial.lc 328:30-328:32  forall a . List a
 testdata/performance/SampleMaterial.lc 329:25-329:30  Bool
 testdata/performance/SampleMaterial.lc 330:29-330:34  Bool
 testdata/performance/SampleMaterial.lc 332:13-358:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-332:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-333:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-334:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-335:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-336:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-337:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-332:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-333:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-334:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-335:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-336:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-337:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 332:15-338:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 332:15-339:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 332:15-340:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -665,12 +3395,33 @@ testdata/performance/SampleMaterial.lc 340:33-340:41  DepthFunction
 testdata/performance/SampleMaterial.lc 341:33-341:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 342:41-342:46  Bool
 testdata/performance/SampleMaterial.lc 343:38-343:54  String
-testdata/performance/SampleMaterial.lc 345:15-345:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-346:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-347:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-348:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-349:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-350:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-345:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-346:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-347:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-348:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-349:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-350:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 345:15-351:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 345:15-352:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 345:15-353:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -696,11 +3447,31 @@ testdata/performance/SampleMaterial.lc 359:21-359:26  Bool
 testdata/performance/SampleMaterial.lc 362:5-404:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 362:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 362:7-362:53  String
-testdata/performance/SampleMaterial.lc 363:7-363:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 363:7-364:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 363:7-365:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 363:7-366:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 363:7-367:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-363:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-364:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-365:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-366:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-367:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 363:7-368:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 363:7-369:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 363:7-370:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -720,12 +3491,33 @@ testdata/performance/SampleMaterial.lc 371:30-371:32  forall a . List a
 testdata/performance/SampleMaterial.lc 372:25-372:30  Bool
 testdata/performance/SampleMaterial.lc 373:29-373:34  Bool
 testdata/performance/SampleMaterial.lc 375:13-401:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-375:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-376:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-377:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-378:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-379:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-380:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-375:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-376:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-377:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-378:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-379:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-380:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 375:15-381:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 375:15-382:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 375:15-383:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -745,12 +3537,33 @@ testdata/performance/SampleMaterial.lc 383:33-383:41  DepthFunction
 testdata/performance/SampleMaterial.lc 384:33-384:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 385:41-385:46  Bool
 testdata/performance/SampleMaterial.lc 386:38-386:54  String
-testdata/performance/SampleMaterial.lc 388:15-388:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-389:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-390:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-391:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-392:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-393:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-388:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-389:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-390:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-391:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-392:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-393:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 388:15-394:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 388:15-395:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 388:15-396:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -776,11 +3589,31 @@ testdata/performance/SampleMaterial.lc 402:21-402:26  Bool
 testdata/performance/SampleMaterial.lc 405:5-447:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 405:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 405:7-405:53  String
-testdata/performance/SampleMaterial.lc 406:7-406:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 406:7-407:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 406:7-408:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 406:7-409:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 406:7-410:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-406:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-407:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-408:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-409:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-410:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 406:7-411:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 406:7-412:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 406:7-413:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -800,12 +3633,33 @@ testdata/performance/SampleMaterial.lc 414:30-414:32  forall a . List a
 testdata/performance/SampleMaterial.lc 415:25-415:30  Bool
 testdata/performance/SampleMaterial.lc 416:29-416:34  Bool
 testdata/performance/SampleMaterial.lc 418:13-444:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-418:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-419:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-420:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-421:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-422:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-423:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-418:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-419:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-420:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-421:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-422:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-423:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 418:15-424:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 418:15-425:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 418:15-426:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -825,12 +3679,33 @@ testdata/performance/SampleMaterial.lc 426:33-426:41  DepthFunction
 testdata/performance/SampleMaterial.lc 427:33-427:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 428:41-428:46  Bool
 testdata/performance/SampleMaterial.lc 429:38-429:54  String
-testdata/performance/SampleMaterial.lc 431:15-431:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-432:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-433:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-434:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-435:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-436:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-431:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-432:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-433:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-434:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-435:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-436:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 431:15-437:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 431:15-438:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 431:15-439:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -856,11 +3731,31 @@ testdata/performance/SampleMaterial.lc 445:21-445:26  Bool
 testdata/performance/SampleMaterial.lc 448:5-490:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 448:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 448:7-448:53  String
-testdata/performance/SampleMaterial.lc 449:7-449:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 449:7-450:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 449:7-451:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 449:7-452:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 449:7-453:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-449:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-450:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-451:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-452:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-453:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 449:7-454:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 449:7-455:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 449:7-456:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -880,12 +3775,33 @@ testdata/performance/SampleMaterial.lc 457:30-457:32  forall a . List a
 testdata/performance/SampleMaterial.lc 458:25-458:30  Bool
 testdata/performance/SampleMaterial.lc 459:29-459:34  Bool
 testdata/performance/SampleMaterial.lc 461:13-487:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-461:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-462:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-463:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-464:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-465:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-466:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-461:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-462:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-463:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-464:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-465:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-466:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 461:15-467:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 461:15-468:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 461:15-469:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -905,12 +3821,33 @@ testdata/performance/SampleMaterial.lc 469:33-469:41  DepthFunction
 testdata/performance/SampleMaterial.lc 470:33-470:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 471:41-471:46  Bool
 testdata/performance/SampleMaterial.lc 472:38-472:54  String
-testdata/performance/SampleMaterial.lc 474:15-474:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-475:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-476:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-477:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-478:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-479:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-474:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-475:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-476:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-477:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-478:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-479:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 474:15-480:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 474:15-481:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 474:15-482:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -936,11 +3873,31 @@ testdata/performance/SampleMaterial.lc 488:21-488:26  Bool
 testdata/performance/SampleMaterial.lc 491:5-533:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 491:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 491:7-491:53  String
-testdata/performance/SampleMaterial.lc 492:7-492:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 492:7-493:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 492:7-494:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 492:7-495:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 492:7-496:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-492:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-493:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-494:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-495:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-496:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 492:7-497:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 492:7-498:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 492:7-499:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -960,12 +3917,33 @@ testdata/performance/SampleMaterial.lc 500:30-500:32  forall a . List a
 testdata/performance/SampleMaterial.lc 501:25-501:30  Bool
 testdata/performance/SampleMaterial.lc 502:29-502:34  Bool
 testdata/performance/SampleMaterial.lc 504:13-530:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-504:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-505:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-506:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-507:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-508:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-509:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-504:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-505:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-506:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-507:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-508:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-509:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 504:15-510:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 504:15-511:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 504:15-512:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -985,12 +3963,33 @@ testdata/performance/SampleMaterial.lc 512:33-512:41  DepthFunction
 testdata/performance/SampleMaterial.lc 513:33-513:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 514:41-514:46  Bool
 testdata/performance/SampleMaterial.lc 515:38-515:54  String
-testdata/performance/SampleMaterial.lc 517:15-517:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-518:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-519:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-520:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-521:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-522:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-517:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-518:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-519:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-520:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-521:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-522:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 517:15-523:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 517:15-524:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 517:15-525:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1016,11 +4015,31 @@ testdata/performance/SampleMaterial.lc 531:21-531:26  Bool
 testdata/performance/SampleMaterial.lc 534:5-576:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 534:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 534:7-534:42  String
-testdata/performance/SampleMaterial.lc 535:7-535:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 535:7-536:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 535:7-537:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 535:7-538:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 535:7-539:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-535:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-536:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-537:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-538:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-539:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 535:7-540:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 535:7-541:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 535:7-542:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1040,12 +4059,33 @@ testdata/performance/SampleMaterial.lc 543:30-543:32  forall a . List a
 testdata/performance/SampleMaterial.lc 544:25-544:30  Bool
 testdata/performance/SampleMaterial.lc 545:29-545:34  Bool
 testdata/performance/SampleMaterial.lc 547:13-573:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-547:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-548:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-549:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-550:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-551:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-552:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-547:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-548:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-549:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-550:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-551:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-552:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 547:15-553:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 547:15-554:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 547:15-555:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1065,12 +4105,33 @@ testdata/performance/SampleMaterial.lc 555:33-555:41  DepthFunction
 testdata/performance/SampleMaterial.lc 556:33-556:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 557:41-557:46  Bool
 testdata/performance/SampleMaterial.lc 558:38-558:54  String
-testdata/performance/SampleMaterial.lc 560:15-560:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-561:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-562:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-563:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-564:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-565:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-560:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-561:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-562:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-563:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-564:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-565:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 560:15-566:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 560:15-567:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 560:15-568:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1096,11 +4157,31 @@ testdata/performance/SampleMaterial.lc 574:21-574:26  Bool
 testdata/performance/SampleMaterial.lc 577:5-619:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 577:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 577:7-577:42  String
-testdata/performance/SampleMaterial.lc 578:7-578:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 578:7-579:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 578:7-580:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 578:7-581:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 578:7-582:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-578:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-579:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-580:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-581:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-582:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 578:7-583:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 578:7-584:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 578:7-585:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1120,12 +4201,33 @@ testdata/performance/SampleMaterial.lc 586:30-586:32  forall a . List a
 testdata/performance/SampleMaterial.lc 587:25-587:30  Bool
 testdata/performance/SampleMaterial.lc 588:29-588:34  Bool
 testdata/performance/SampleMaterial.lc 590:13-616:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-590:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-591:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-592:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-593:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-594:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-595:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-590:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-591:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-592:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-593:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-594:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-595:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 590:15-596:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 590:15-597:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 590:15-598:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1145,12 +4247,33 @@ testdata/performance/SampleMaterial.lc 598:33-598:41  DepthFunction
 testdata/performance/SampleMaterial.lc 599:33-599:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 600:41-600:46  Bool
 testdata/performance/SampleMaterial.lc 601:38-601:54  String
-testdata/performance/SampleMaterial.lc 603:15-603:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-604:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-605:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-606:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-607:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-608:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-603:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-604:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-605:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-606:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-607:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-608:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 603:15-609:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 603:15-610:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 603:15-611:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1176,11 +4299,31 @@ testdata/performance/SampleMaterial.lc 617:21-617:26  Bool
 testdata/performance/SampleMaterial.lc 620:5-662:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 620:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 620:7-620:42  String
-testdata/performance/SampleMaterial.lc 621:7-621:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 621:7-622:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 621:7-623:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 621:7-624:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 621:7-625:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-621:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-622:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-623:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-624:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-625:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 621:7-626:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 621:7-627:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 621:7-628:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1200,12 +4343,33 @@ testdata/performance/SampleMaterial.lc 629:30-629:32  forall a . List a
 testdata/performance/SampleMaterial.lc 630:25-630:30  Bool
 testdata/performance/SampleMaterial.lc 631:29-631:34  Bool
 testdata/performance/SampleMaterial.lc 633:13-659:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-633:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-634:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-635:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-636:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-637:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-638:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-633:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-634:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-635:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-636:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-637:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-638:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 633:15-639:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 633:15-640:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 633:15-641:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1225,12 +4389,33 @@ testdata/performance/SampleMaterial.lc 641:33-641:41  DepthFunction
 testdata/performance/SampleMaterial.lc 642:33-642:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 643:41-643:46  Bool
 testdata/performance/SampleMaterial.lc 644:38-644:54  String
-testdata/performance/SampleMaterial.lc 646:15-646:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-647:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-648:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-649:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-650:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-651:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-646:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-647:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-648:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-649:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-650:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-651:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 646:15-652:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 646:15-653:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 646:15-654:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1256,11 +4441,31 @@ testdata/performance/SampleMaterial.lc 660:21-660:26  Bool
 testdata/performance/SampleMaterial.lc 663:5-705:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 663:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 663:7-663:42  String
-testdata/performance/SampleMaterial.lc 664:7-664:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 664:7-665:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 664:7-666:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 664:7-667:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 664:7-668:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-664:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-665:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-666:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-667:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-668:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 664:7-669:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 664:7-670:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 664:7-671:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1280,12 +4485,33 @@ testdata/performance/SampleMaterial.lc 672:30-672:32  forall a . List a
 testdata/performance/SampleMaterial.lc 673:25-673:30  Bool
 testdata/performance/SampleMaterial.lc 674:29-674:34  Bool
 testdata/performance/SampleMaterial.lc 676:13-702:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-676:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-677:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-678:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-679:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-680:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-681:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-676:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-677:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-678:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-679:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-680:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-681:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 676:15-682:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 676:15-683:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 676:15-684:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1305,12 +4531,33 @@ testdata/performance/SampleMaterial.lc 684:33-684:41  DepthFunction
 testdata/performance/SampleMaterial.lc 685:33-685:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 686:41-686:46  Bool
 testdata/performance/SampleMaterial.lc 687:38-687:54  String
-testdata/performance/SampleMaterial.lc 689:15-689:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-690:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-691:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-692:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-693:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-694:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-689:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-690:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-691:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-692:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-693:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-694:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 689:15-695:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 689:15-696:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 689:15-697:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1336,11 +4583,31 @@ testdata/performance/SampleMaterial.lc 703:21-703:26  Bool
 testdata/performance/SampleMaterial.lc 706:5-748:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 706:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 706:7-706:42  String
-testdata/performance/SampleMaterial.lc 707:7-707:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 707:7-708:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 707:7-709:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 707:7-710:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 707:7-711:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-707:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-708:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-709:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-710:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-711:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 707:7-712:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 707:7-713:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 707:7-714:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1360,12 +4627,33 @@ testdata/performance/SampleMaterial.lc 715:30-715:32  forall a . List a
 testdata/performance/SampleMaterial.lc 716:25-716:30  Bool
 testdata/performance/SampleMaterial.lc 717:29-717:34  Bool
 testdata/performance/SampleMaterial.lc 719:13-745:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-719:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-720:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-721:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-722:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-723:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-724:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-719:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-720:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-721:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-722:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-723:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-724:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 719:15-725:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 719:15-726:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 719:15-727:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1385,12 +4673,33 @@ testdata/performance/SampleMaterial.lc 727:33-727:41  DepthFunction
 testdata/performance/SampleMaterial.lc 728:33-728:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 729:41-729:46  Bool
 testdata/performance/SampleMaterial.lc 730:38-730:54  String
-testdata/performance/SampleMaterial.lc 732:15-732:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-733:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-734:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-735:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-736:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-737:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-732:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-733:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-734:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-735:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-736:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-737:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 732:15-738:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 732:15-739:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 732:15-740:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1416,11 +4725,31 @@ testdata/performance/SampleMaterial.lc 746:21-746:26  Bool
 testdata/performance/SampleMaterial.lc 749:5-791:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 749:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 749:7-749:42  String
-testdata/performance/SampleMaterial.lc 750:7-750:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 750:7-751:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 750:7-752:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 750:7-753:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 750:7-754:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-750:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-751:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-752:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-753:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-754:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 750:7-755:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 750:7-756:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 750:7-757:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1440,12 +4769,33 @@ testdata/performance/SampleMaterial.lc 758:30-758:32  forall a . List a
 testdata/performance/SampleMaterial.lc 759:25-759:30  Bool
 testdata/performance/SampleMaterial.lc 760:29-760:34  Bool
 testdata/performance/SampleMaterial.lc 762:13-788:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-762:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-763:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-764:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-765:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-766:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-767:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-762:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-763:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-764:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-765:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-766:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-767:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 762:15-768:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 762:15-769:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 762:15-770:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1465,12 +4815,33 @@ testdata/performance/SampleMaterial.lc 770:33-770:41  DepthFunction
 testdata/performance/SampleMaterial.lc 771:33-771:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 772:41-772:46  Bool
 testdata/performance/SampleMaterial.lc 773:38-773:54  String
-testdata/performance/SampleMaterial.lc 775:15-775:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-776:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-777:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-778:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-779:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-780:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-775:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-776:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-777:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-778:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-779:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-780:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 775:15-781:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 775:15-782:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 775:15-783:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1496,11 +4867,31 @@ testdata/performance/SampleMaterial.lc 789:21-789:26  Bool
 testdata/performance/SampleMaterial.lc 792:5-834:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 792:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 792:7-792:41  String
-testdata/performance/SampleMaterial.lc 793:7-793:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 793:7-794:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 793:7-795:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 793:7-796:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 793:7-797:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-793:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-794:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-795:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-796:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-797:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 793:7-798:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 793:7-799:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 793:7-800:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1520,12 +4911,33 @@ testdata/performance/SampleMaterial.lc 801:30-801:32  forall a . List a
 testdata/performance/SampleMaterial.lc 802:25-802:30  Bool
 testdata/performance/SampleMaterial.lc 803:29-803:34  Bool
 testdata/performance/SampleMaterial.lc 805:13-831:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-805:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-806:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-807:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-808:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-809:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-810:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-805:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-806:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-807:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-808:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-809:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-810:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 805:15-811:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 805:15-812:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 805:15-813:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1545,12 +4957,33 @@ testdata/performance/SampleMaterial.lc 813:33-813:41  DepthFunction
 testdata/performance/SampleMaterial.lc 814:33-814:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 815:41-815:46  Bool
 testdata/performance/SampleMaterial.lc 816:38-816:54  String
-testdata/performance/SampleMaterial.lc 818:15-818:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-819:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-820:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-821:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-822:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-823:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-818:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-819:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-820:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-821:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-822:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-823:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 818:15-824:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 818:15-825:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 818:15-826:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1576,11 +5009,31 @@ testdata/performance/SampleMaterial.lc 832:21-832:26  Bool
 testdata/performance/SampleMaterial.lc 835:5-891:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 835:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 835:7-835:41  String
-testdata/performance/SampleMaterial.lc 836:7-836:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 836:7-837:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 836:7-838:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 836:7-839:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 836:7-840:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-836:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-837:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-838:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-839:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-840:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 836:7-841:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 836:7-842:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 836:7-843:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1600,12 +5053,33 @@ testdata/performance/SampleMaterial.lc 844:30-844:32  forall a . List a
 testdata/performance/SampleMaterial.lc 845:25-845:30  Bool
 testdata/performance/SampleMaterial.lc 846:29-846:34  Bool
 testdata/performance/SampleMaterial.lc 848:13-888:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-848:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-849:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-850:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-851:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-852:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-854:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-848:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-849:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-850:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-851:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-852:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-854:88  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 848:15-855:66  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 848:15-856:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 848:15-857:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1645,12 +5119,33 @@ testdata/performance/SampleMaterial.lc 857:33-857:41  DepthFunction
 testdata/performance/SampleMaterial.lc 858:33-858:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 859:41-859:46  Bool
 testdata/performance/SampleMaterial.lc 860:38-860:54  String
-testdata/performance/SampleMaterial.lc 862:15-862:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-863:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-864:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-865:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-866:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-867:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-862:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-863:69  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-864:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-865:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-866:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-867:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 862:15-868:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 862:15-869:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 862:15-870:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1675,12 +5170,33 @@ testdata/performance/SampleMaterial.lc 870:33-870:41  DepthFunction
 testdata/performance/SampleMaterial.lc 871:33-871:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 872:41-872:46  Bool
 testdata/performance/SampleMaterial.lc 873:38-873:54  String
-testdata/performance/SampleMaterial.lc 875:15-875:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-876:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-877:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-878:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-879:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-880:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-875:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-876:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-877:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-878:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-879:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-880:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 875:15-881:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 875:15-882:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 875:15-883:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1706,11 +5222,31 @@ testdata/performance/SampleMaterial.lc 889:21-889:26  Bool
 testdata/performance/SampleMaterial.lc 892:5-934:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 892:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 892:7-892:41  String
-testdata/performance/SampleMaterial.lc 893:7-893:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 893:7-894:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 893:7-895:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 893:7-896:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 893:7-897:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-893:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-894:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-895:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-896:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-897:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 893:7-898:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 893:7-899:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 893:7-900:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1730,12 +5266,33 @@ testdata/performance/SampleMaterial.lc 901:30-901:32  forall a . List a
 testdata/performance/SampleMaterial.lc 902:25-902:30  Bool
 testdata/performance/SampleMaterial.lc 903:29-903:34  Bool
 testdata/performance/SampleMaterial.lc 905:13-931:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-905:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-906:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-907:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-908:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-909:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-910:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-905:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-906:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-907:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-908:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-909:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-910:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 905:15-911:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 905:15-912:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 905:15-913:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1755,12 +5312,33 @@ testdata/performance/SampleMaterial.lc 913:33-913:41  DepthFunction
 testdata/performance/SampleMaterial.lc 914:33-914:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 915:41-915:46  Bool
 testdata/performance/SampleMaterial.lc 916:38-916:54  String
-testdata/performance/SampleMaterial.lc 918:15-918:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-919:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-920:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-921:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-922:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-923:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-918:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-919:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-920:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-921:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-922:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-923:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 918:15-924:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 918:15-925:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 918:15-926:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1786,11 +5364,31 @@ testdata/performance/SampleMaterial.lc 932:21-932:26  Bool
 testdata/performance/SampleMaterial.lc 935:5-978:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 935:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 935:7-935:54  String
-testdata/performance/SampleMaterial.lc 936:7-936:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 936:7-937:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 936:7-938:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 936:7-939:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 936:7-940:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-936:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-937:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-938:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-939:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-940:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 936:7-941:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 936:7-942:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 936:7-943:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1810,12 +5408,33 @@ testdata/performance/SampleMaterial.lc 944:30-944:32  forall a . List a
 testdata/performance/SampleMaterial.lc 945:25-945:30  Bool
 testdata/performance/SampleMaterial.lc 946:29-946:34  Bool
 testdata/performance/SampleMaterial.lc 948:13-975:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-948:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-949:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-950:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-951:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-952:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-953:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-948:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-949:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-950:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-951:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-952:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-953:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 948:15-955:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 948:15-956:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 948:15-957:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1835,12 +5454,33 @@ testdata/performance/SampleMaterial.lc 957:33-957:41  DepthFunction
 testdata/performance/SampleMaterial.lc 958:33-958:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 959:41-959:46  Bool
 testdata/performance/SampleMaterial.lc 960:38-960:54  String
-testdata/performance/SampleMaterial.lc 962:15-962:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-963:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-964:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-965:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-966:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-967:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-962:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-963:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-964:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-965:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-966:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-967:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 962:15-968:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 962:15-969:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 962:15-970:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1866,11 +5506,31 @@ testdata/performance/SampleMaterial.lc 976:21-976:26  Bool
 testdata/performance/SampleMaterial.lc 979:5-1021:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 979:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 979:7-979:45  String
-testdata/performance/SampleMaterial.lc 980:7-980:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 980:7-981:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 980:7-982:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 980:7-983:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 980:7-984:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-980:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-981:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-982:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-983:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-984:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 980:7-985:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 980:7-986:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 980:7-987:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1890,12 +5550,33 @@ testdata/performance/SampleMaterial.lc 988:30-988:32  forall a . List a
 testdata/performance/SampleMaterial.lc 989:25-989:30  Bool
 testdata/performance/SampleMaterial.lc 990:29-990:34  Bool
 testdata/performance/SampleMaterial.lc 992:13-1018:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-992:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-993:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-994:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-995:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-996:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-997:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-992:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-993:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-994:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-995:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-996:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-997:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 992:15-998:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 992:15-999:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 992:15-1000:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1915,12 +5596,33 @@ testdata/performance/SampleMaterial.lc 1000:33-1000:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1001:33-1001:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1002:41-1002:46  Bool
 testdata/performance/SampleMaterial.lc 1003:38-1003:54  String
-testdata/performance/SampleMaterial.lc 1005:15-1005:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1006:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1007:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1008:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1009:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1010:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1005:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1006:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1007:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1008:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1009:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1010:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1005:15-1011:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1005:15-1012:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1005:15-1013:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1946,11 +5648,31 @@ testdata/performance/SampleMaterial.lc 1019:21-1019:26  Bool
 testdata/performance/SampleMaterial.lc 1022:5-1064:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1022:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1022:7-1022:44  String
-testdata/performance/SampleMaterial.lc 1023:7-1023:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1023:7-1024:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1023:7-1025:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1023:7-1026:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1023:7-1027:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1023:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1024:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1025:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1026:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1027:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1023:7-1028:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1023:7-1029:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1023:7-1030:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -1970,12 +5692,33 @@ testdata/performance/SampleMaterial.lc 1031:30-1031:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1032:25-1032:30  Bool
 testdata/performance/SampleMaterial.lc 1033:29-1033:34  Bool
 testdata/performance/SampleMaterial.lc 1035:13-1061:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1035:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1036:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1037:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1038:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1039:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1040:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1035:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1036:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1037:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1038:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1039:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1040:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1035:15-1041:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1035:15-1042:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1035:15-1043:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -1995,12 +5738,33 @@ testdata/performance/SampleMaterial.lc 1043:33-1043:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1044:33-1044:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1045:41-1045:46  Bool
 testdata/performance/SampleMaterial.lc 1046:38-1046:54  String
-testdata/performance/SampleMaterial.lc 1048:15-1048:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1049:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1050:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1051:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1052:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1053:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1048:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1049:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1050:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1051:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1052:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1053:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1048:15-1054:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1048:15-1055:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1048:15-1056:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2026,11 +5790,31 @@ testdata/performance/SampleMaterial.lc 1062:21-1062:26  Bool
 testdata/performance/SampleMaterial.lc 1065:5-1107:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1065:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1065:7-1065:44  String
-testdata/performance/SampleMaterial.lc 1066:7-1066:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1066:7-1067:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1066:7-1068:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1066:7-1069:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1066:7-1070:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1066:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1067:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1068:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1069:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1070:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1066:7-1071:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1066:7-1072:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1066:7-1073:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2050,12 +5834,33 @@ testdata/performance/SampleMaterial.lc 1074:30-1074:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1075:25-1075:30  Bool
 testdata/performance/SampleMaterial.lc 1076:29-1076:34  Bool
 testdata/performance/SampleMaterial.lc 1078:13-1104:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1078:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1079:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1080:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1081:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1082:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1083:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1078:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1079:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1080:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1081:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1082:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1083:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1078:15-1084:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1078:15-1085:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1078:15-1086:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2075,12 +5880,33 @@ testdata/performance/SampleMaterial.lc 1086:33-1086:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1087:33-1087:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1088:41-1088:46  Bool
 testdata/performance/SampleMaterial.lc 1089:38-1089:54  String
-testdata/performance/SampleMaterial.lc 1091:15-1091:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1092:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1093:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1094:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1095:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1096:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1091:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1092:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1093:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1094:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1095:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1096:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1091:15-1097:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1091:15-1098:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1091:15-1099:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2106,11 +5932,31 @@ testdata/performance/SampleMaterial.lc 1105:21-1105:26  Bool
 testdata/performance/SampleMaterial.lc 1108:5-1150:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1108:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1108:7-1108:49  String
-testdata/performance/SampleMaterial.lc 1109:7-1109:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1109:7-1110:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1109:7-1111:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1109:7-1112:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1109:7-1113:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1109:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1110:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1111:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1112:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1113:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1109:7-1114:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1109:7-1115:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1109:7-1116:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2130,12 +5976,33 @@ testdata/performance/SampleMaterial.lc 1117:30-1117:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1118:25-1118:30  Bool
 testdata/performance/SampleMaterial.lc 1119:29-1119:34  Bool
 testdata/performance/SampleMaterial.lc 1121:13-1147:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1121:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1122:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1123:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1124:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1125:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1126:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1121:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1122:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1123:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1124:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1125:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1126:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1121:15-1127:80  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1121:15-1128:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1121:15-1129:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2155,12 +6022,33 @@ testdata/performance/SampleMaterial.lc 1129:33-1129:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1130:33-1130:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1131:41-1131:46  Bool
 testdata/performance/SampleMaterial.lc 1132:38-1132:54  String
-testdata/performance/SampleMaterial.lc 1134:15-1134:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1135:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1136:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1137:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1138:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1139:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1134:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1135:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1136:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1137:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1138:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1139:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1134:15-1140:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1134:15-1141:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1134:15-1142:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2186,11 +6074,31 @@ testdata/performance/SampleMaterial.lc 1148:21-1148:26  Bool
 testdata/performance/SampleMaterial.lc 1151:5-1193:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1151:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1151:7-1151:41  String
-testdata/performance/SampleMaterial.lc 1152:7-1152:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1152:7-1153:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1152:7-1154:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1152:7-1155:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1152:7-1156:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1152:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1153:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1154:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1155:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1156:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1152:7-1157:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1152:7-1158:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1152:7-1159:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2210,12 +6118,33 @@ testdata/performance/SampleMaterial.lc 1160:30-1160:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1161:25-1161:30  Bool
 testdata/performance/SampleMaterial.lc 1162:29-1162:34  Bool
 testdata/performance/SampleMaterial.lc 1164:13-1190:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1164:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1165:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1166:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1167:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1168:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1169:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1164:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1165:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1166:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1167:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1168:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1169:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1164:15-1170:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1164:15-1171:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1164:15-1172:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2235,12 +6164,33 @@ testdata/performance/SampleMaterial.lc 1172:33-1172:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1173:33-1173:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1174:41-1174:46  Bool
 testdata/performance/SampleMaterial.lc 1175:38-1175:54  String
-testdata/performance/SampleMaterial.lc 1177:15-1177:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1178:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1179:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1180:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1181:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1182:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1177:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1178:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1179:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1180:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1181:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1182:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1177:15-1183:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1177:15-1184:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1177:15-1185:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2266,11 +6216,31 @@ testdata/performance/SampleMaterial.lc 1191:21-1191:26  Bool
 testdata/performance/SampleMaterial.lc 1194:5-1236:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1194:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1194:7-1194:43  String
-testdata/performance/SampleMaterial.lc 1195:7-1195:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1195:7-1196:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1195:7-1197:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1195:7-1198:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1195:7-1199:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1195:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1196:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1197:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1198:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1199:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1195:7-1200:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1195:7-1201:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1195:7-1202:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2290,12 +6260,33 @@ testdata/performance/SampleMaterial.lc 1203:30-1203:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1204:25-1204:30  Bool
 testdata/performance/SampleMaterial.lc 1205:29-1205:34  Bool
 testdata/performance/SampleMaterial.lc 1207:13-1233:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1207:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1208:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1209:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1210:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1211:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1212:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1207:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1208:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1209:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1210:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1211:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1212:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1207:15-1213:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1207:15-1214:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1207:15-1215:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2315,12 +6306,33 @@ testdata/performance/SampleMaterial.lc 1215:33-1215:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1216:33-1216:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1217:41-1217:46  Bool
 testdata/performance/SampleMaterial.lc 1218:38-1218:54  String
-testdata/performance/SampleMaterial.lc 1220:15-1220:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1221:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1222:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1223:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1224:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1225:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1220:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1221:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1222:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1223:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1224:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1225:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1220:15-1226:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1220:15-1227:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1220:15-1228:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2346,11 +6358,31 @@ testdata/performance/SampleMaterial.lc 1234:21-1234:26  Bool
 testdata/performance/SampleMaterial.lc 1237:5-1279:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1237:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1237:7-1237:41  String
-testdata/performance/SampleMaterial.lc 1238:7-1238:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1238:7-1239:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1238:7-1240:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1238:7-1241:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1238:7-1242:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1238:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1239:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1240:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1241:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1242:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1238:7-1243:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1238:7-1244:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1238:7-1245:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2370,12 +6402,33 @@ testdata/performance/SampleMaterial.lc 1246:30-1246:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1247:25-1247:30  Bool
 testdata/performance/SampleMaterial.lc 1248:29-1248:34  Bool
 testdata/performance/SampleMaterial.lc 1250:13-1276:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1250:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1251:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1252:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1253:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1254:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1255:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1250:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1251:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1252:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1253:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1254:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1255:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1250:15-1256:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1250:15-1257:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1250:15-1258:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2395,12 +6448,33 @@ testdata/performance/SampleMaterial.lc 1258:33-1258:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1259:33-1259:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1260:41-1260:46  Bool
 testdata/performance/SampleMaterial.lc 1261:38-1261:54  String
-testdata/performance/SampleMaterial.lc 1263:15-1263:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1264:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1265:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1266:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1267:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1268:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1263:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1264:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1265:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1266:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1267:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1268:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1263:15-1269:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1263:15-1270:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1263:15-1271:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2426,11 +6500,31 @@ testdata/performance/SampleMaterial.lc 1277:21-1277:26  Bool
 testdata/performance/SampleMaterial.lc 1280:5-1322:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1280:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1280:7-1280:44  String
-testdata/performance/SampleMaterial.lc 1281:7-1281:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1281:7-1282:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1281:7-1283:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1281:7-1284:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1281:7-1285:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1281:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1282:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1283:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1284:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1285:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1281:7-1286:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1281:7-1287:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1281:7-1288:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2450,12 +6544,33 @@ testdata/performance/SampleMaterial.lc 1289:30-1289:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1290:25-1290:30  Bool
 testdata/performance/SampleMaterial.lc 1291:29-1291:34  Bool
 testdata/performance/SampleMaterial.lc 1293:13-1319:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1293:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1294:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1295:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1296:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1297:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1298:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1293:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1294:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1295:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1296:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1297:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1298:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1293:15-1299:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1293:15-1300:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1293:15-1301:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2475,12 +6590,33 @@ testdata/performance/SampleMaterial.lc 1301:33-1301:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1302:33-1302:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1303:41-1303:46  Bool
 testdata/performance/SampleMaterial.lc 1304:38-1304:54  String
-testdata/performance/SampleMaterial.lc 1306:15-1306:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1307:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1308:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1309:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1310:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1311:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1306:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1307:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1308:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1309:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1310:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1311:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1306:15-1312:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1306:15-1313:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1306:15-1314:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2506,11 +6642,31 @@ testdata/performance/SampleMaterial.lc 1320:21-1320:26  Bool
 testdata/performance/SampleMaterial.lc 1323:5-1365:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1323:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1323:7-1323:43  String
-testdata/performance/SampleMaterial.lc 1324:7-1324:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1324:7-1325:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1324:7-1326:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1324:7-1327:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1324:7-1328:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1324:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1325:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1326:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1327:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1328:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1324:7-1329:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1324:7-1330:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1324:7-1331:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2530,12 +6686,33 @@ testdata/performance/SampleMaterial.lc 1332:30-1332:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1333:25-1333:30  Bool
 testdata/performance/SampleMaterial.lc 1334:29-1334:34  Bool
 testdata/performance/SampleMaterial.lc 1336:13-1362:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1336:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1337:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1338:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1339:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1340:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1341:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1336:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1337:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1338:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1339:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1340:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1341:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1336:15-1342:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1336:15-1343:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1336:15-1344:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2555,12 +6732,33 @@ testdata/performance/SampleMaterial.lc 1344:33-1344:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1345:33-1345:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1346:41-1346:46  Bool
 testdata/performance/SampleMaterial.lc 1347:38-1347:54  String
-testdata/performance/SampleMaterial.lc 1349:15-1349:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1350:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1351:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1352:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1353:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1354:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1349:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1350:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1351:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1352:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1353:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1354:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1349:15-1355:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1349:15-1356:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1349:15-1357:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2586,11 +6784,31 @@ testdata/performance/SampleMaterial.lc 1363:21-1363:26  Bool
 testdata/performance/SampleMaterial.lc 1366:5-1408:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1366:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1366:7-1366:44  String
-testdata/performance/SampleMaterial.lc 1367:7-1367:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1367:7-1368:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1367:7-1369:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1367:7-1370:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1367:7-1371:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1367:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1368:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1369:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1370:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1371:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1367:7-1372:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1367:7-1373:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1367:7-1374:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2610,12 +6828,33 @@ testdata/performance/SampleMaterial.lc 1375:30-1375:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1376:25-1376:30  Bool
 testdata/performance/SampleMaterial.lc 1377:29-1377:34  Bool
 testdata/performance/SampleMaterial.lc 1379:13-1405:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1379:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1380:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1381:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1382:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1383:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1384:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1379:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1380:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1381:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1382:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1383:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1384:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1379:15-1385:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1379:15-1386:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1379:15-1387:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2635,12 +6874,33 @@ testdata/performance/SampleMaterial.lc 1387:33-1387:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1388:33-1388:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1389:41-1389:46  Bool
 testdata/performance/SampleMaterial.lc 1390:38-1390:54  String
-testdata/performance/SampleMaterial.lc 1392:15-1392:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1393:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1394:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1395:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1396:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1397:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1392:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1393:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1394:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1395:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1396:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1397:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1392:15-1398:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1392:15-1399:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1392:15-1400:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2666,11 +6926,31 @@ testdata/performance/SampleMaterial.lc 1406:21-1406:26  Bool
 testdata/performance/SampleMaterial.lc 1409:5-1451:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1409:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1409:7-1409:44  String
-testdata/performance/SampleMaterial.lc 1410:7-1410:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1410:7-1411:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1410:7-1412:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1410:7-1413:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1410:7-1414:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1410:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1411:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1412:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1413:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1414:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1410:7-1415:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1410:7-1416:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1410:7-1417:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2690,12 +6970,33 @@ testdata/performance/SampleMaterial.lc 1418:30-1418:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1419:25-1419:30  Bool
 testdata/performance/SampleMaterial.lc 1420:29-1420:34  Bool
 testdata/performance/SampleMaterial.lc 1422:13-1448:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1422:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1423:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1424:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1425:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1426:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1427:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1422:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1423:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1424:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1425:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1426:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1427:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1422:15-1428:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1422:15-1429:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1422:15-1430:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2715,12 +7016,33 @@ testdata/performance/SampleMaterial.lc 1430:33-1430:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1431:33-1431:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1432:41-1432:46  Bool
 testdata/performance/SampleMaterial.lc 1433:38-1433:54  String
-testdata/performance/SampleMaterial.lc 1435:15-1435:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1436:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1437:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1438:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1439:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1440:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1435:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1436:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1437:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1438:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1439:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1440:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1435:15-1441:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1435:15-1442:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1435:15-1443:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2746,11 +7068,31 @@ testdata/performance/SampleMaterial.lc 1449:21-1449:26  Bool
 testdata/performance/SampleMaterial.lc 1452:5-1494:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1452:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1452:7-1452:44  String
-testdata/performance/SampleMaterial.lc 1453:7-1453:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1453:7-1454:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1453:7-1455:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1453:7-1456:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1453:7-1457:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1453:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1454:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1455:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1456:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1457:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1453:7-1458:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1453:7-1459:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1453:7-1460:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2770,12 +7112,33 @@ testdata/performance/SampleMaterial.lc 1461:30-1461:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1462:25-1462:30  Bool
 testdata/performance/SampleMaterial.lc 1463:29-1463:34  Bool
 testdata/performance/SampleMaterial.lc 1465:13-1491:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1465:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1466:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1467:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1468:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1469:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1470:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1465:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1466:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1467:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1468:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1469:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1470:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1465:15-1471:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1465:15-1472:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1465:15-1473:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2795,12 +7158,33 @@ testdata/performance/SampleMaterial.lc 1473:33-1473:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1474:33-1474:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1475:41-1475:46  Bool
 testdata/performance/SampleMaterial.lc 1476:38-1476:54  String
-testdata/performance/SampleMaterial.lc 1478:15-1478:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1479:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1480:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1481:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1482:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1483:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1478:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1479:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1480:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1481:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1482:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1483:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1478:15-1484:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1478:15-1485:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1478:15-1486:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2826,11 +7210,31 @@ testdata/performance/SampleMaterial.lc 1492:21-1492:26  Bool
 testdata/performance/SampleMaterial.lc 1495:5-1537:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1495:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1495:7-1495:45  String
-testdata/performance/SampleMaterial.lc 1496:7-1496:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1496:7-1497:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1496:7-1498:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1496:7-1499:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1496:7-1500:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1496:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1497:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1498:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1499:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1500:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1496:7-1501:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1496:7-1502:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1496:7-1503:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2850,12 +7254,33 @@ testdata/performance/SampleMaterial.lc 1504:30-1504:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1505:25-1505:30  Bool
 testdata/performance/SampleMaterial.lc 1506:29-1506:34  Bool
 testdata/performance/SampleMaterial.lc 1508:13-1534:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1508:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1509:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1510:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1511:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1512:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1513:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1508:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1509:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1510:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1511:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1512:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1513:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1508:15-1514:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1508:15-1515:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1508:15-1516:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2875,12 +7300,33 @@ testdata/performance/SampleMaterial.lc 1516:33-1516:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1517:33-1517:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1518:41-1518:46  Bool
 testdata/performance/SampleMaterial.lc 1519:38-1519:54  String
-testdata/performance/SampleMaterial.lc 1521:15-1521:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1522:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1523:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1524:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1525:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1526:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1521:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1522:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1523:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1524:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1525:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1526:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1521:15-1527:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1521:15-1528:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1521:15-1529:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2906,11 +7352,31 @@ testdata/performance/SampleMaterial.lc 1535:21-1535:26  Bool
 testdata/performance/SampleMaterial.lc 1538:5-1580:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1538:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1538:7-1538:47  String
-testdata/performance/SampleMaterial.lc 1539:7-1539:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1539:7-1540:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1539:7-1541:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1539:7-1542:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1539:7-1543:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1539:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1540:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1541:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1542:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1543:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1539:7-1544:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1539:7-1545:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1539:7-1546:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -2930,12 +7396,33 @@ testdata/performance/SampleMaterial.lc 1547:30-1547:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1548:25-1548:30  Bool
 testdata/performance/SampleMaterial.lc 1549:29-1549:34  Bool
 testdata/performance/SampleMaterial.lc 1551:13-1577:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1551:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1552:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1553:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1554:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1555:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1556:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1551:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1552:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1553:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1554:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1555:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1556:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1551:15-1557:78  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1551:15-1558:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1551:15-1559:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2955,12 +7442,33 @@ testdata/performance/SampleMaterial.lc 1559:33-1559:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1560:33-1560:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1561:41-1561:46  Bool
 testdata/performance/SampleMaterial.lc 1562:38-1562:54  String
-testdata/performance/SampleMaterial.lc 1564:15-1564:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1565:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1566:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1567:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1568:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1569:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1564:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1565:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1566:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1567:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1568:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1569:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1564:15-1570:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1564:15-1571:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1564:15-1572:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -2986,11 +7494,31 @@ testdata/performance/SampleMaterial.lc 1578:21-1578:26  Bool
 testdata/performance/SampleMaterial.lc 1581:5-1623:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1581:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1581:7-1581:49  String
-testdata/performance/SampleMaterial.lc 1582:7-1582:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1582:7-1583:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1582:7-1584:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1582:7-1585:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1582:7-1586:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1582:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1583:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1584:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1585:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1586:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1582:7-1587:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1582:7-1588:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1582:7-1589:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3010,12 +7538,33 @@ testdata/performance/SampleMaterial.lc 1590:30-1590:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1591:25-1591:30  Bool
 testdata/performance/SampleMaterial.lc 1592:29-1592:34  Bool
 testdata/performance/SampleMaterial.lc 1594:13-1620:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1594:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1595:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1596:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1597:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1598:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1599:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1594:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1595:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1596:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1597:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1598:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1599:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1594:15-1600:80  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1594:15-1601:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1594:15-1602:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3035,12 +7584,33 @@ testdata/performance/SampleMaterial.lc 1602:33-1602:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1603:33-1603:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1604:41-1604:46  Bool
 testdata/performance/SampleMaterial.lc 1605:38-1605:54  String
-testdata/performance/SampleMaterial.lc 1607:15-1607:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1608:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1609:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1610:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1611:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1612:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1607:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1608:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1609:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1610:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1611:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1612:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1607:15-1613:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1607:15-1614:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1607:15-1615:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3066,11 +7636,31 @@ testdata/performance/SampleMaterial.lc 1621:21-1621:26  Bool
 testdata/performance/SampleMaterial.lc 1624:5-1666:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1624:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1624:7-1624:44  String
-testdata/performance/SampleMaterial.lc 1625:7-1625:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1625:7-1626:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1625:7-1627:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1625:7-1628:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1625:7-1629:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1625:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1626:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1627:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1628:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1629:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1625:7-1630:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1625:7-1631:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1625:7-1632:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3090,12 +7680,33 @@ testdata/performance/SampleMaterial.lc 1633:30-1633:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1634:25-1634:30  Bool
 testdata/performance/SampleMaterial.lc 1635:29-1635:34  Bool
 testdata/performance/SampleMaterial.lc 1637:13-1663:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1637:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1638:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1639:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1640:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1641:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1642:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1637:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1638:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1639:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1640:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1641:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1642:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1637:15-1643:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1637:15-1644:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1637:15-1645:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3115,12 +7726,33 @@ testdata/performance/SampleMaterial.lc 1645:33-1645:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1646:33-1646:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1647:41-1647:46  Bool
 testdata/performance/SampleMaterial.lc 1648:38-1648:54  String
-testdata/performance/SampleMaterial.lc 1650:15-1650:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1651:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1652:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1653:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1654:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1655:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1650:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1651:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1652:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1653:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1654:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1655:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1650:15-1656:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1650:15-1657:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1650:15-1658:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3146,11 +7778,31 @@ testdata/performance/SampleMaterial.lc 1664:21-1664:26  Bool
 testdata/performance/SampleMaterial.lc 1667:5-1709:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1667:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1667:7-1667:43  String
-testdata/performance/SampleMaterial.lc 1668:7-1668:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1668:7-1669:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1668:7-1670:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1668:7-1671:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1668:7-1672:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1668:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1669:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1670:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1671:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1672:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1668:7-1673:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1668:7-1674:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1668:7-1675:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3170,12 +7822,33 @@ testdata/performance/SampleMaterial.lc 1676:30-1676:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1677:25-1677:30  Bool
 testdata/performance/SampleMaterial.lc 1678:29-1678:34  Bool
 testdata/performance/SampleMaterial.lc 1680:13-1706:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1680:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1681:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1682:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1683:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1684:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1685:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1680:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1681:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1682:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1683:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1684:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1685:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1680:15-1686:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1680:15-1687:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1680:15-1688:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3195,12 +7868,33 @@ testdata/performance/SampleMaterial.lc 1688:33-1688:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1689:33-1689:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1690:41-1690:46  Bool
 testdata/performance/SampleMaterial.lc 1691:38-1691:54  String
-testdata/performance/SampleMaterial.lc 1693:15-1693:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1694:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1695:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1696:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1697:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1698:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1693:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1694:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1695:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1696:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1697:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1698:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1693:15-1699:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1693:15-1700:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1693:15-1701:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3226,11 +7920,31 @@ testdata/performance/SampleMaterial.lc 1707:21-1707:26  Bool
 testdata/performance/SampleMaterial.lc 1710:5-1752:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1710:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1710:7-1710:41  String
-testdata/performance/SampleMaterial.lc 1711:7-1711:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1711:7-1712:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1711:7-1713:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1711:7-1714:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1711:7-1715:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1711:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1712:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1713:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1714:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1715:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1711:7-1716:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1711:7-1717:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1711:7-1718:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3250,12 +7964,33 @@ testdata/performance/SampleMaterial.lc 1719:30-1719:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1720:25-1720:30  Bool
 testdata/performance/SampleMaterial.lc 1721:29-1721:34  Bool
 testdata/performance/SampleMaterial.lc 1723:13-1749:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1723:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1724:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1725:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1726:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1727:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1728:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1723:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1724:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1725:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1726:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1727:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1728:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1723:15-1729:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1723:15-1730:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1723:15-1731:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3275,12 +8010,33 @@ testdata/performance/SampleMaterial.lc 1731:33-1731:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1732:33-1732:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1733:41-1733:46  Bool
 testdata/performance/SampleMaterial.lc 1734:38-1734:54  String
-testdata/performance/SampleMaterial.lc 1736:15-1736:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1737:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1738:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1739:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1740:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1741:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1736:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1737:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1738:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1739:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1740:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1741:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1736:15-1742:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1736:15-1743:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1736:15-1744:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3306,11 +8062,31 @@ testdata/performance/SampleMaterial.lc 1750:21-1750:26  Bool
 testdata/performance/SampleMaterial.lc 1753:5-1795:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1753:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1753:7-1753:42  String
-testdata/performance/SampleMaterial.lc 1754:7-1754:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1754:7-1755:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1754:7-1756:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1754:7-1757:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1754:7-1758:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1754:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1755:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1756:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1757:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1758:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1754:7-1759:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1754:7-1760:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1754:7-1761:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3330,12 +8106,33 @@ testdata/performance/SampleMaterial.lc 1762:30-1762:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1763:25-1763:30  Bool
 testdata/performance/SampleMaterial.lc 1764:29-1764:34  Bool
 testdata/performance/SampleMaterial.lc 1766:13-1792:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1766:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1767:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1768:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1769:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1770:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1771:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1766:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1767:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1768:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1769:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1770:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1771:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1766:15-1772:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1766:15-1773:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1766:15-1774:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3355,12 +8152,33 @@ testdata/performance/SampleMaterial.lc 1774:33-1774:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1775:33-1775:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1776:41-1776:46  Bool
 testdata/performance/SampleMaterial.lc 1777:38-1777:54  String
-testdata/performance/SampleMaterial.lc 1779:15-1779:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1780:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1781:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1782:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1783:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1784:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1779:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1780:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1781:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1782:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1783:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1784:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1779:15-1785:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1779:15-1786:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1779:15-1787:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3386,11 +8204,31 @@ testdata/performance/SampleMaterial.lc 1793:21-1793:26  Bool
 testdata/performance/SampleMaterial.lc 1796:5-1838:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1796:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1796:7-1796:48  String
-testdata/performance/SampleMaterial.lc 1797:7-1797:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1797:7-1798:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1797:7-1799:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1797:7-1800:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1797:7-1801:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1797:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1798:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1799:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1800:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1801:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1797:7-1802:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1797:7-1803:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1797:7-1804:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3410,12 +8248,33 @@ testdata/performance/SampleMaterial.lc 1805:30-1805:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1806:25-1806:30  Bool
 testdata/performance/SampleMaterial.lc 1807:29-1807:34  Bool
 testdata/performance/SampleMaterial.lc 1809:13-1835:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1809:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1810:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1811:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1812:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1813:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1814:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1809:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1810:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1811:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1812:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1813:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1814:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1809:15-1815:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1809:15-1816:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1809:15-1817:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3433,12 +8292,33 @@ testdata/performance/SampleMaterial.lc 1817:33-1817:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1818:33-1818:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1819:41-1819:46  Bool
 testdata/performance/SampleMaterial.lc 1820:38-1820:53  String
-testdata/performance/SampleMaterial.lc 1822:15-1822:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1823:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1824:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1825:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1826:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1827:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1822:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1823:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1824:42  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1825:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1826:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1827:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1822:15-1828:77  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1822:15-1829:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1822:15-1830:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3466,11 +8346,31 @@ testdata/performance/SampleMaterial.lc 1836:21-1836:26  Bool
 testdata/performance/SampleMaterial.lc 1839:5-1881:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1839:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1839:7-1839:42  String
-testdata/performance/SampleMaterial.lc 1840:7-1840:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1840:7-1841:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1840:7-1842:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1840:7-1843:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1840:7-1844:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1840:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1841:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1842:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1843:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1844:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1840:7-1845:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1840:7-1846:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1840:7-1847:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3490,12 +8390,33 @@ testdata/performance/SampleMaterial.lc 1848:30-1848:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1849:25-1849:30  Bool
 testdata/performance/SampleMaterial.lc 1850:29-1850:34  Bool
 testdata/performance/SampleMaterial.lc 1852:13-1878:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1852:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1853:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1854:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1855:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1856:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1857:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1852:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1853:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1854:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1855:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1856:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1857:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1852:15-1858:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1852:15-1859:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1852:15-1860:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3515,12 +8436,33 @@ testdata/performance/SampleMaterial.lc 1860:33-1860:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1861:33-1861:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1862:41-1862:46  Bool
 testdata/performance/SampleMaterial.lc 1863:38-1863:54  String
-testdata/performance/SampleMaterial.lc 1865:15-1865:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1866:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1867:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1868:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1869:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1870:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1865:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1866:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1867:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1868:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1869:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1870:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1865:15-1871:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1865:15-1872:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1865:15-1873:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3546,11 +8488,31 @@ testdata/performance/SampleMaterial.lc 1879:21-1879:26  Bool
 testdata/performance/SampleMaterial.lc 1882:5-1924:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1882:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1882:7-1882:47  String
-testdata/performance/SampleMaterial.lc 1883:7-1883:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1883:7-1884:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1883:7-1885:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1883:7-1886:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1883:7-1887:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1883:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1884:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1885:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1886:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1887:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1883:7-1888:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1883:7-1889:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1883:7-1890:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3570,12 +8532,33 @@ testdata/performance/SampleMaterial.lc 1891:30-1891:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1892:25-1892:30  Bool
 testdata/performance/SampleMaterial.lc 1893:29-1893:34  Bool
 testdata/performance/SampleMaterial.lc 1895:13-1921:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1895:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1896:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1897:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1898:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1899:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1900:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1895:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1896:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1897:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1898:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1899:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1900:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1895:15-1901:78  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1895:15-1902:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1895:15-1903:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3595,12 +8578,33 @@ testdata/performance/SampleMaterial.lc 1903:33-1903:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1904:33-1904:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1905:41-1905:46  Bool
 testdata/performance/SampleMaterial.lc 1906:38-1906:54  String
-testdata/performance/SampleMaterial.lc 1908:15-1908:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1909:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1910:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1911:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1912:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1913:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1908:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1909:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1910:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1911:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1912:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1913:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1908:15-1914:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1908:15-1915:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1908:15-1916:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3626,11 +8630,31 @@ testdata/performance/SampleMaterial.lc 1922:21-1922:26  Bool
 testdata/performance/SampleMaterial.lc 1925:5-1967:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1925:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1925:7-1925:38  String
-testdata/performance/SampleMaterial.lc 1926:7-1926:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1926:7-1927:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1926:7-1928:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1926:7-1929:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1926:7-1930:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1926:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1927:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1928:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1929:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1930:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1926:7-1931:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1926:7-1932:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1926:7-1933:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3650,12 +8674,33 @@ testdata/performance/SampleMaterial.lc 1934:30-1934:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1935:25-1935:30  Bool
 testdata/performance/SampleMaterial.lc 1936:29-1936:34  Bool
 testdata/performance/SampleMaterial.lc 1938:13-1964:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1938:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1939:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1940:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1941:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1942:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1943:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1938:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1939:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1940:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1941:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1942:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1943:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1938:15-1944:69  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1938:15-1945:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1938:15-1946:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3675,12 +8720,33 @@ testdata/performance/SampleMaterial.lc 1946:33-1946:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1947:33-1947:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1948:41-1948:46  Bool
 testdata/performance/SampleMaterial.lc 1949:38-1949:54  String
-testdata/performance/SampleMaterial.lc 1951:15-1951:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1952:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1953:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1954:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1955:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1956:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1951:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1952:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1953:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1954:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1955:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1956:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1951:15-1957:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1951:15-1958:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1951:15-1959:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3706,11 +8772,31 @@ testdata/performance/SampleMaterial.lc 1965:21-1965:26  Bool
 testdata/performance/SampleMaterial.lc 1968:5-2010:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1968:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 1968:7-1968:43  String
-testdata/performance/SampleMaterial.lc 1969:7-1969:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1969:7-1970:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1969:7-1971:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1969:7-1972:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1969:7-1973:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1969:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1970:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1971:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1972:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1973:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1969:7-1974:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1969:7-1975:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 1969:7-1976:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3730,12 +8816,33 @@ testdata/performance/SampleMaterial.lc 1977:30-1977:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1978:25-1978:30  Bool
 testdata/performance/SampleMaterial.lc 1979:29-1979:34  Bool
 testdata/performance/SampleMaterial.lc 1981:13-2007:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1981:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1982:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1983:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1984:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1985:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1986:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1981:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1982:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1983:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1984:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1985:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1986:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1981:15-1987:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1981:15-1988:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1981:15-1989:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3755,12 +8862,33 @@ testdata/performance/SampleMaterial.lc 1989:33-1989:41  DepthFunction
 testdata/performance/SampleMaterial.lc 1990:33-1990:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1991:41-1991:46  Bool
 testdata/performance/SampleMaterial.lc 1992:38-1992:53  String
-testdata/performance/SampleMaterial.lc 1994:15-1994:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1995:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1996:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1997:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1998:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1999:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1994:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1995:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1996:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1997:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1998:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1999:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1994:15-2000:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1994:15-2001:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 1994:15-2002:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3786,11 +8914,31 @@ testdata/performance/SampleMaterial.lc 2008:21-2008:26  Bool
 testdata/performance/SampleMaterial.lc 2011:5-2053:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 2011:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 2011:7-2011:36  String
-testdata/performance/SampleMaterial.lc 2012:7-2012:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2012:7-2013:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2012:7-2014:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2012:7-2015:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2012:7-2016:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2012:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2013:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2014:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2015:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2016:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2012:7-2017:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2012:7-2018:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2012:7-2019:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3810,12 +8958,33 @@ testdata/performance/SampleMaterial.lc 2020:30-2020:32  forall a . List a
 testdata/performance/SampleMaterial.lc 2021:25-2021:30  Bool
 testdata/performance/SampleMaterial.lc 2022:29-2022:34  Bool
 testdata/performance/SampleMaterial.lc 2024:13-2050:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2024:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2025:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2026:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2027:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2028:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2029:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2024:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2025:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2026:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2027:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2028:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2029:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2024:15-2030:67  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2024:15-2031:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2024:15-2032:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3835,12 +9004,33 @@ testdata/performance/SampleMaterial.lc 2032:33-2032:41  DepthFunction
 testdata/performance/SampleMaterial.lc 2033:33-2033:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 2034:41-2034:46  Bool
 testdata/performance/SampleMaterial.lc 2035:38-2035:54  String
-testdata/performance/SampleMaterial.lc 2037:15-2037:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2038:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2039:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2040:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2041:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2042:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2037:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2038:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2039:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2040:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2041:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2042:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2037:15-2043:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2037:15-2044:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2037:15-2045:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3866,11 +9056,31 @@ testdata/performance/SampleMaterial.lc 2051:21-2051:26  Bool
 testdata/performance/SampleMaterial.lc 2054:5-2096:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 2054:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 2054:7-2054:40  String
-testdata/performance/SampleMaterial.lc 2055:7-2055:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2055:7-2056:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2055:7-2057:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2055:7-2058:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2055:7-2059:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2055:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2056:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2057:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2058:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2059:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2055:7-2060:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2055:7-2061:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2055:7-2062:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3890,12 +9100,33 @@ testdata/performance/SampleMaterial.lc 2063:30-2063:32  forall a . List a
 testdata/performance/SampleMaterial.lc 2064:25-2064:30  Bool
 testdata/performance/SampleMaterial.lc 2065:29-2065:34  Bool
 testdata/performance/SampleMaterial.lc 2067:13-2093:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2067:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2068:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2069:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2070:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2071:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2072:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2067:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2068:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2069:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2070:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2071:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2072:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2067:15-2073:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2067:15-2074:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2067:15-2075:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3915,12 +9146,33 @@ testdata/performance/SampleMaterial.lc 2075:33-2075:41  DepthFunction
 testdata/performance/SampleMaterial.lc 2076:33-2076:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 2077:41-2077:46  Bool
 testdata/performance/SampleMaterial.lc 2078:38-2078:54  String
-testdata/performance/SampleMaterial.lc 2080:15-2080:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2081:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2082:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2083:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2084:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2085:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2080:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2081:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2082:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2083:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2084:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2085:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2080:15-2086:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2080:15-2087:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2080:15-2088:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3946,11 +9198,31 @@ testdata/performance/SampleMaterial.lc 2094:21-2094:26  Bool
 testdata/performance/SampleMaterial.lc 2097:5-2139:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 2097:5-2182:6  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 2097:7-2097:50  String
-testdata/performance/SampleMaterial.lc 2098:7-2098:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2098:7-2099:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2098:7-2100:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2098:7-2101:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2098:7-2102:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2098:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2099:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2100:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2101:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2102:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2098:7-2103:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2098:7-2104:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2098:7-2105:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -3970,12 +9242,33 @@ testdata/performance/SampleMaterial.lc 2106:30-2106:32  forall a . List a
 testdata/performance/SampleMaterial.lc 2107:25-2107:30  Bool
 testdata/performance/SampleMaterial.lc 2108:29-2108:34  Bool
 testdata/performance/SampleMaterial.lc 2110:13-2136:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2110:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2111:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2112:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2113:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2114:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2115:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2110:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2111:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2112:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2113:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2114:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2115:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2110:15-2116:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2110:15-2117:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2110:15-2118:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -3995,12 +9288,33 @@ testdata/performance/SampleMaterial.lc 2118:33-2118:41  DepthFunction
 testdata/performance/SampleMaterial.lc 2119:33-2119:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 2120:41-2120:46  Bool
 testdata/performance/SampleMaterial.lc 2121:38-2121:53  String
-testdata/performance/SampleMaterial.lc 2123:15-2123:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2124:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2125:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2126:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2127:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2128:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2123:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2124:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2125:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2126:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2127:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2128:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2123:15-2129:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2123:15-2130:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2123:15-2131:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -4025,11 +9339,31 @@ testdata/performance/SampleMaterial.lc 2134:38-2134:54  String
 testdata/performance/SampleMaterial.lc 2137:21-2137:26  Bool
 testdata/performance/SampleMaterial.lc 2140:5-2182:6  (String, CommonAttrs) | List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 2140:7-2140:50  String
-testdata/performance/SampleMaterial.lc 2141:7-2141:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2141:7-2142:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2141:7-2143:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2141:7-2144:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2141:7-2145:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2141:18  ()
+  -> ()
+    -> Bool
+      -> Float
+        -> Bool
+          -> Bool
+            -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2142:26  ()
+  -> Bool
+    -> Float
+      -> Bool
+        -> Bool
+          -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2143:26  Bool
+  -> Float
+    -> Bool
+      -> Bool
+        -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2144:27  Float
+  -> Bool
+    -> Bool
+      -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2145:21  Bool
+  -> Bool
+    -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2141:7-2146:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2141:7-2147:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 testdata/performance/SampleMaterial.lc 2141:7-2148:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
@@ -4049,12 +9383,33 @@ testdata/performance/SampleMaterial.lc 2149:30-2149:32  forall a . List a
 testdata/performance/SampleMaterial.lc 2150:25-2150:30  Bool
 testdata/performance/SampleMaterial.lc 2151:29-2151:34  Bool
 testdata/performance/SampleMaterial.lc 2153:13-2179:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2153:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2154:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2155:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2156:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2157:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2158:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2153:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2154:36  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2155:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2156:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2157:36  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2158:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2153:15-2159:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2153:15-2160:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2153:15-2161:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
@@ -4074,12 +9429,33 @@ testdata/performance/SampleMaterial.lc 2161:33-2161:41  DepthFunction
 testdata/performance/SampleMaterial.lc 2162:33-2162:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 2163:41-2163:46  Bool
 testdata/performance/SampleMaterial.lc 2164:38-2164:54  String
-testdata/performance/SampleMaterial.lc 2166:15-2166:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2167:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2168:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2169:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2170:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2171:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2166:25  Maybe (Blending', Blending')
+  -> RGBGen
+    -> AlphaGen
+      -> TCGen
+        -> List TCMod
+          -> StageTexture
+            -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2167:57  RGBGen
+  -> AlphaGen
+    -> TCGen
+      -> List TCMod
+        -> StageTexture
+          -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2168:50  AlphaGen
+  -> TCGen
+    -> List TCMod
+      -> StageTexture
+        -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2169:42  TCGen
+  -> List TCMod
+    -> StageTexture
+      -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2170:40  List TCMod
+  -> StageTexture
+    -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2171:31  StageTexture
+  -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2166:15-2172:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2166:15-2173:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 testdata/performance/SampleMaterial.lc 2166:15-2174:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
diff --git a/testdata/point01.out b/testdata/point01.out
index 6b30b9e1..d661a33c 100644
--- a/testdata/point01.out
+++ b/testdata/point01.out
@@ -26,8 +26,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -35,20 +34,13 @@ Pipeline
               in vec4 vi2;
               smooth out vec4 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               vec4 v3FToV4F(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,1.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,1.0);
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (v3FToV4F (vi1)));
+                  gl_Position = scale (0.5,(MVP) * (v3FToV4F (vi1)));
                   vo1 = vi2;
                   gl_PointSize = 30.0;
               }
@@ -57,8 +49,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/qualified.out b/testdata/qualified.out
index 8fcbc3af..907bca84 100644
--- a/testdata/qualified.out
+++ b/testdata/qualified.out
@@ -1 +1,2 @@
+------------ desugared source code
 main is not found
diff --git a/testdata/record01.reject.out b/testdata/record01.reject.out
index ab3d7153..1f25211e 100644
--- a/testdata/record01.reject.out
+++ b/testdata/record01.reject.out
@@ -16,8 +16,11 @@ in testdata/record01.reject.lc:26:15:
  in ScreenOut record.fieldA
               ^^^^^^
 ------------ tooltips
-testdata/record01.reject.lc 2:16-2:21  (BlendEquation, BlendEquation) -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor)) -> Vec 4 Float -> Blending Float
-testdata/record01.reject.lc 2:16-2:23  ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor)) -> Vec 4 Float -> Blending Float
+testdata/record01.reject.lc 2:16-2:21  (BlendEquation, BlendEquation)
+  -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
+    -> Vec 4 Float -> Blending Float
+testdata/record01.reject.lc 2:16-2:23  ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
+  -> Vec 4 Float -> Blending Float
 testdata/record01.reject.lc 2:16-2:81  Vec 4 Float -> Blending Float
 testdata/record01.reject.lc 2:16-2:102  Blending Float
 testdata/record01.reject.lc 2:22-2:23  _b
@@ -42,8 +45,11 @@ testdata/record01.reject.lc 3:13-3:39  Blending Float
 testdata/record01.reject.lc 3:22-3:39  (BlendEquation, BlendEquation)
 testdata/record01.reject.lc 3:23-3:30  BlendEquation
 testdata/record01.reject.lc 3:31-3:38  ((BlendEquation)) | BlendEquation
-testdata/record01.reject.lc 4:11-4:16  (BlendEquation, BlendEquation) -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor)) -> Vec 4 Float -> Blending Float
-testdata/record01.reject.lc 4:11-4:34  ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor)) -> Vec 4 Float -> Blending Float
+testdata/record01.reject.lc 4:11-4:16  (BlendEquation, BlendEquation)
+  -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
+    -> Vec 4 Float -> Blending Float
+testdata/record01.reject.lc 4:11-4:34  ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
+  -> Vec 4 Float -> Blending Float
 testdata/record01.reject.lc 4:11-4:92  Vec 4 Float -> Blending Float
 testdata/record01.reject.lc 4:11-4:113  Blending Float
 testdata/record01.reject.lc 4:17-4:34  (BlendEquation, BlendEquation)
@@ -84,8 +90,16 @@ testdata/record01.reject.lc 7:17-7:20  Float
 testdata/record01.reject.lc 7:21-7:24  Float
 testdata/record01.reject.lc 7:25-7:28  Float
 testdata/record01.reject.lc 7:29-7:32  Float
-testdata/record01.reject.lc 8:23-8:34  forall (a :: List Type) . sameLayerCounts a => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
-testdata/record01.reject.lc 8:23-8:75  FrameBuffer 1 (map Type ImageKind GetImageKind ('Cons (Image 1 'Depth) ('Cons (Image 1 ('Color (VecScalar 4 Float))) 'Nil)))
+testdata/record01.reject.lc 8:23-8:34  forall (a :: List Type)
+  . sameLayerCounts a
+    => HList a -> FrameBuffer (ImageLC (head Type a)) (map Type ImageKind GetImageKind a)
+testdata/record01.reject.lc 8:23-8:75  FrameBuffer
+  1
+  (map
+    Type
+    ImageKind
+    GetImageKind
+    ('Cons (Image 1 'Depth) ('Cons (Image 1 ('Color (VecScalar 4 Float))) 'Nil)))
 testdata/record01.reject.lc 8:35-8:75  (Image 1 'Depth, Image 1 ('Color (VecScalar 4 Float)))
 testdata/record01.reject.lc 8:36-8:47  Float -> Image 1 'Depth
 testdata/record01.reject.lc 8:36-8:54  Image 1 'Depth
@@ -104,7 +118,9 @@ testdata/record01.reject.lc 11:37-11:51  PointSize _a
 testdata/record01.reject.lc 11:47-11:51  Float
 testdata/record01.reject.lc 12:10-12:18  CullMode
 testdata/record01.reject.lc 13:11-13:20  CullMode
-testdata/record01.reject.lc 14:23-14:34  forall a . CullMode -> PolygonMode a -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle
+testdata/record01.reject.lc 14:23-14:34  forall a
+  . CullMode
+    -> PolygonMode a -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle
 testdata/record01.reject.lc 14:23-14:39  PolygonMode _a -> PolygonOffset -> ProvokingVertex -> RasterContext _a 'Triangle
 testdata/record01.reject.lc 14:23-14:49  PolygonOffset -> ProvokingVertex -> RasterContext _a 'Triangle
 testdata/record01.reject.lc 14:23-14:58  ProvokingVertex -> RasterContext _a 'Triangle
@@ -121,7 +137,8 @@ testdata/record01.reject.lc 15:44-15:56  Bool -> FragmentOperation 'Depth
 testdata/record01.reject.lc 15:44-15:61  FragmentOperation 'Depth
 testdata/record01.reject.lc 15:52-15:56  ComparisonFunction
 testdata/record01.reject.lc 15:57-15:61  Bool
-testdata/record01.reject.lc 15:63-15:70  forall a (b :: Nat) . Num a => Blending a -> VecScalar b Bool -> FragmentOperation ('Color (VecScalar b a))
+testdata/record01.reject.lc 15:63-15:70  forall a (b :: Nat)
+  . Num a => Blending a -> VecScalar b Bool -> FragmentOperation ('Color (VecScalar b a))
 testdata/record01.reject.lc 15:63-15:76  VecScalar _b Bool -> FragmentOperation ('Color (VecScalar _b Float))
 testdata/record01.reject.lc 15:63-15:101  ((FragmentOperation ('Color (VecScalar 4 Float)))) | FragmentOperation ('Color (VecScalar 4 Float))
 testdata/record01.reject.lc 15:71-15:76  Blending Float
@@ -151,7 +168,8 @@ testdata/record01.reject.lc 17:28-17:57  Vec 4 Float
 testdata/record01.reject.lc 17:42-17:55  Mat 4 4 Float
 testdata/record01.reject.lc 17:56-17:57  _g
 testdata/record01.reject.lc 17:59-17:60  ((VecS Float 4)) | VecS Float 4
-testdata/record01.reject.lc 18:23-18:28  forall (a :: PrimitiveType) (b :: List Type) . String -> HList b -> PrimitiveStream a (HList b)
+testdata/record01.reject.lc 18:23-18:28  forall (a :: PrimitiveType) (b :: List Type)
+  . String -> HList b -> PrimitiveStream a (HList b)
 testdata/record01.reject.lc 18:23-18:37  HList _a -> PrimitiveStream _b (HList _a)
 testdata/record01.reject.lc 18:23-18:79  PrimitiveStream _a ((Vec 4 Float))
 testdata/record01.reject.lc 18:29-18:37  String
@@ -170,9 +188,16 @@ testdata/record01.reject.lc 19:23-19:49  List (Primitive ((VecS Float 4)) _a) ->
 testdata/record01.reject.lc 19:23-19:62  List (Primitive (VecS Float 4, VecS Float 4) _a)
 testdata/record01.reject.lc 19:37-19:49  ((VecS Float 4)) -> (VecS Float 4, VecS Float 4)
 testdata/record01.reject.lc 19:50-19:62  forall (a :: PrimitiveType) . PrimitiveStream a ((Vec 4 Float))
-testdata/record01.reject.lc 20:23-20:42  forall (a :: List Type) (b :: PrimitiveType) . RasterContext (HList ('Cons (Vec 4 Float) a)) b -> HList (map Type Type Interpolated a) -> List (Primitive (HList ('Cons (Vec 4 Float) a)) b) -> List (Vector 1 (Maybe (SimpleFragment (HList a))))
-testdata/record01.reject.lc 20:23-20:52  HList (map Type Type Interpolated _a) -> List (Primitive (HList ('Cons (Vec 4 Float) _a)) 'Triangle) -> List (Vector 1 (Maybe (SimpleFragment (HList _a))))
-testdata/record01.reject.lc 20:23-20:63  List (Primitive (HList ('Cons (Vec 4 Float) _d)) 'Triangle) -> List (Vector 1 (Maybe (SimpleFragment (HList _d))))
+testdata/record01.reject.lc 20:23-20:42  forall (a :: List Type) (b :: PrimitiveType)
+  . RasterContext (HList ('Cons (Vec 4 Float) a)) b
+    -> HList (map Type Type Interpolated a)
+      -> List (Primitive (HList ('Cons (Vec 4 Float) a)) b)
+        -> List (Vector 1 (Maybe (SimpleFragment (HList a))))
+testdata/record01.reject.lc 20:23-20:52  HList (map Type Type Interpolated _a)
+  -> List (Primitive (HList ('Cons (Vec 4 Float) _a)) 'Triangle)
+    -> List (Vector 1 (Maybe (SimpleFragment (HList _a))))
+testdata/record01.reject.lc 20:23-20:63  List (Primitive (HList ('Cons (Vec 4 Float) _d)) 'Triangle)
+  -> List (Vector 1 (Maybe (SimpleFragment (HList _d))))
 testdata/record01.reject.lc 20:23-20:79  List (Vector 1 (Maybe (SimpleFragment ((VecS Float 4)))))
 testdata/record01.reject.lc 20:43-20:52  forall a . RasterContext a 'Triangle
 testdata/record01.reject.lc 20:53-20:63  ((Interpolated _c))
@@ -202,30 +227,178 @@ testdata/record01.reject.lc 22:49-22:52  Float
 testdata/record01.reject.lc 22:53-22:56  Float
 testdata/record01.reject.lc 22:57-22:60  Float
 testdata/record01.reject.lc 22:61-22:64  Float
-testdata/record01.reject.lc 23:23-23:33  forall (a :: Nat) (b :: List Type) c . HList b -> (c -> HList (imageType' (map Type ImageKind FragmentOperationKind b))) -> List (Vector a (Maybe (SimpleFragment c))) -> FrameBuffer a (map Type ImageKind FragmentOperationKind b) -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
-testdata/record01.reject.lc 23:23-23:45  (_a -> ((imageType (FragmentOperationKind (FragmentOperation ('Color (VecScalar 4 Float))))))) -> List (Vector _b (Maybe (SimpleFragment _a))) -> FrameBuffer _b (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))) -> FrameBuffer _b (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
-testdata/record01.reject.lc 23:23-23:60  List (Vector _a (Maybe (SimpleFragment ((VecS Float 4))))) -> FrameBuffer _a (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))) -> FrameBuffer _a (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
-testdata/record01.reject.lc 23:23-23:75  FrameBuffer 1 (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))) -> FrameBuffer 1 (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
-testdata/record01.reject.lc 23:23-23:83  FrameBuffer 1 (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
+testdata/record01.reject.lc 23:23-23:33  forall (a :: Nat) (b :: List Type) c
+  . HList b
+    -> (c -> HList (imageType' (map Type ImageKind FragmentOperationKind b)))
+      -> List (Vector a (Maybe (SimpleFragment c)))
+        -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+          -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
+testdata/record01.reject.lc 23:23-23:45  (_a
+    -> ((imageType (FragmentOperationKind (FragmentOperation ('Color (VecScalar 4 Float)))))))
+  -> List (Vector _b (Maybe (SimpleFragment _a)))
+    -> FrameBuffer
+        _b
+        (map
+          Type
+          ImageKind
+          FragmentOperationKind
+          ('Cons
+            (FragmentOperation 'Depth)
+            ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
+      -> FrameBuffer
+        _b
+        (map
+          Type
+          ImageKind
+          FragmentOperationKind
+          ('Cons
+            (FragmentOperation 'Depth)
+            ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
+testdata/record01.reject.lc 23:23-23:60  List (Vector _a (Maybe (SimpleFragment ((VecS Float 4)))))
+  -> FrameBuffer
+      _a
+      (map
+        Type
+        ImageKind
+        FragmentOperationKind
+        ('Cons
+          (FragmentOperation 'Depth)
+          ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
+    -> FrameBuffer
+      _a
+      (map
+        Type
+        ImageKind
+        FragmentOperationKind
+        ('Cons
+          (FragmentOperation 'Depth)
+          ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
+testdata/record01.reject.lc 23:23-23:75  FrameBuffer
+    1
+    (map
+      Type
+      ImageKind
+      FragmentOperationKind
+      ('Cons
+        (FragmentOperation 'Depth)
+        ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
+  -> FrameBuffer
+    1
+    (map
+      Type
+      ImageKind
+      FragmentOperationKind
+      ('Cons
+        (FragmentOperation 'Depth)
+        ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
+testdata/record01.reject.lc 23:23-23:83  FrameBuffer
+  1
+  (map
+    Type
+    ImageKind
+    FragmentOperationKind
+    ('Cons
+      (FragmentOperation 'Depth)
+      ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
 testdata/record01.reject.lc 23:34-23:45  (FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float)))
 testdata/record01.reject.lc 23:46-23:60  ((VecS Float 4)) -> ((VecS Float 4))
 testdata/record01.reject.lc 23:61-23:75  List (Vector 1 (Maybe (SimpleFragment ((VecS Float 4)))))
-testdata/record01.reject.lc 23:76-23:83  FrameBuffer 1 (map Type ImageKind GetImageKind ('Cons (Image 1 'Depth) ('Cons (Image 1 ('Color (VecScalar 4 Float))) 'Nil)))
-testdata/record01.reject.lc 24:12-24:58  RecordC ('Cons ('RecItem "fieldA" Float) ('Cons ('RecItem "fieldB" (FrameBuffer 1 (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))))) ('Cons ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)) 'Nil)))
+testdata/record01.reject.lc 23:76-23:83  FrameBuffer
+  1
+  (map
+    Type
+    ImageKind
+    GetImageKind
+    ('Cons (Image 1 'Depth) ('Cons (Image 1 ('Color (VecScalar 4 Float))) 'Nil)))
+testdata/record01.reject.lc 24:12-24:58  RecordC
+  ('Cons
+    ('RecItem "fieldA" Float)
+    ('Cons
+      ('RecItem
+        "fieldB"
+        (FrameBuffer
+          1
+          (map
+            Type
+            ImageKind
+            FragmentOperationKind
+            ('Cons
+              (FragmentOperation 'Depth)
+              ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))))
+      ('Cons ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)) 'Nil)))
 testdata/record01.reject.lc 24:13-24:19  RecItem | String
 testdata/record01.reject.lc 24:13-24:47  List RecItem
 testdata/record01.reject.lc 24:21-24:24  Float
-testdata/record01.reject.lc 24:21-24:57  (Float, recItemType ('RecItem "fieldB" (FrameBuffer 1 (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))))), recItemType ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)))
+testdata/record01.reject.lc 24:21-24:57  (Float, recItemType
+      ('RecItem
+        "fieldB"
+        (FrameBuffer
+          1
+          (map
+            Type
+            ImageKind
+            FragmentOperationKind
+            ('Cons
+              (FragmentOperation 'Depth)
+              ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))))), recItemType
+      ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)))
 testdata/record01.reject.lc 24:26-24:32  RecItem | String
 testdata/record01.reject.lc 24:26-24:47  List RecItem
-testdata/record01.reject.lc 24:34-24:39  FrameBuffer 1 (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
-testdata/record01.reject.lc 24:34-24:57  (FrameBuffer 1 (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))), recItemType ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)))
+testdata/record01.reject.lc 24:34-24:39  FrameBuffer
+  1
+  (map
+    Type
+    ImageKind
+    FragmentOperationKind
+    ('Cons
+      (FragmentOperation 'Depth)
+      ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
+testdata/record01.reject.lc 24:34-24:57  (FrameBuffer
+    1
+    (map
+      Type
+      ImageKind
+      FragmentOperationKind
+      ('Cons
+        (FragmentOperation 'Depth)
+        ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))), recItemType
+    ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)))
 testdata/record01.reject.lc 24:41-24:47  List RecItem | RecItem | String
 testdata/record01.reject.lc 24:49-24:57  (((BlendEquation, BlendEquation) -> Blending Float)) | (BlendEquation, BlendEquation) -> Blending Float
-testdata/record01.reject.lc 25:11-25:17  RecordC ('Cons ('RecItem "fieldA" Float) ('Cons ('RecItem "fieldB" (FrameBuffer 1 (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))))) ('Cons ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)) 'Nil)))
+testdata/record01.reject.lc 25:11-25:17  RecordC
+  ('Cons
+    ('RecItem "fieldA" Float)
+    ('Cons
+      ('RecItem
+        "fieldB"
+        (FrameBuffer
+          1
+          (map
+            Type
+            ImageKind
+            FragmentOperationKind
+            ('Cons
+              (FragmentOperation 'Depth)
+              ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))))
+      ('Cons ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)) 'Nil)))
 testdata/record01.reject.lc 25:11-25:24  _b
 testdata/record01.reject.lc 25:18-25:24  String
 testdata/record01.reject.lc 26:5-26:14  forall (a :: Nat) (b :: List ImageKind) . FrameBuffer a b -> Output
-testdata/record01.reject.lc 26:15-26:21  RecordC ('Cons ('RecItem "fieldA" Float) ('Cons ('RecItem "fieldB" (FrameBuffer 1 (map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))))) ('Cons ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)) 'Nil)))
+testdata/record01.reject.lc 26:15-26:21  RecordC
+  ('Cons
+    ('RecItem "fieldA" Float)
+    ('Cons
+      ('RecItem
+        "fieldB"
+        (FrameBuffer
+          1
+          (map
+            Type
+            ImageKind
+            FragmentOperationKind
+            ('Cons
+              (FragmentOperation 'Depth)
+              ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))))
+      ('Cons ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)) 'Nil)))
 testdata/record01.reject.lc 26:15-26:28  _b
 testdata/record01.reject.lc 26:22-26:28  String
diff --git a/testdata/recursivetexture02.out b/testdata/recursivetexture02.out
index bf5be0a0..2ced4f41 100644
--- a/testdata/recursivetexture02.out
+++ b/testdata/recursivetexture02.out
@@ -287,8 +287,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -296,14 +295,10 @@ Pipeline
               in vec2 vi2;
               smooth out vec2 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (vi1));
+                  gl_Position = scale (0.5,(MVP) * (vi1));
                   vo1 = vi2;
               }
               """
@@ -311,8 +306,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec2 vo1;
@@ -334,8 +328,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -343,14 +336,10 @@ Pipeline
               in vec2 vi2;
               smooth out vec2 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (1.0
-                                      ,(MVP) * (vi1));
+                  gl_Position = scale (1.0,(MVP) * (vi1));
                   vo1 = vi2;
               }
               """
@@ -358,19 +347,14 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D s0;
               smooth in vec2 vo1;
               out vec4 f0;
               void main() {
-                  f0 = (texture2D (s0
-                                  ,vo1)) * (vec4 (0.7
-                                                 ,0.7
-                                                 ,0.7
-                                                 ,1.0));
+                  f0 = (texture2D (s0,vo1)) * (vec4 (0.7,0.7,0.7,1.0));
               }
               """
           }
diff --git a/testdata/reduce01.out b/testdata/reduce01.out
index d5abef3b..a4378aaf 100644
--- a/testdata/reduce01.out
+++ b/testdata/reduce01.out
@@ -22,8 +22,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
@@ -37,8 +36,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/reduce05.out b/testdata/reduce05.out
index e30a8a73..6a6e25e7 100644
--- a/testdata/reduce05.out
+++ b/testdata/reduce05.out
@@ -22,8 +22,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
@@ -37,8 +36,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
@@ -58,8 +56,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
@@ -73,8 +70,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/simple02.out b/testdata/simple02.out
index dc196170..30597566 100644
--- a/testdata/simple02.out
+++ b/testdata/simple02.out
@@ -24,8 +24,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -40,17 +39,13 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
               out vec4 f0;
               void main() {
-                  f0 = (vo1) * (vec4 (1.0
-                                     ,0.4
-                                     ,0.0
-                                     ,0.2));
+                  f0 = (vo1) * (vec4 (1.0,0.4,0.0,0.2));
               }
               """
           }
diff --git a/testdata/simple03.out b/testdata/simple03.out
index ce153a25..e68bd748 100644
--- a/testdata/simple03.out
+++ b/testdata/simple03.out
@@ -26,8 +26,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 viewProj;
@@ -35,14 +34,10 @@ Pipeline
               in vec3 vi2;
               smooth out vec4 vo1;
               vec4 v3FToV4F(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,1.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,1.0);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * (v3FToV4F (vi1));
+                  gl_Position = (viewProj) * (v3FToV4F (vi1));
                   vo1 = v3FToV4F (vi2);
               }
               """
@@ -50,8 +45,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
@@ -73,8 +67,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 viewProj;
@@ -82,14 +75,10 @@ Pipeline
               in vec3 vi2;
               smooth out vec4 vo1;
               vec4 v3FToV4F(vec3 z0) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,1.0);
+                  return vec4 ((z0).x,(z0).y,(z0).z,1.0);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * (v3FToV4F (vi1));
+                  gl_Position = (viewProj) * (v3FToV4F (vi1));
                   vo1 = v3FToV4F (vi2);
               }
               """
@@ -97,8 +86,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               smooth in vec4 vo1;
diff --git a/testdata/texture01.out b/testdata/texture01.out
index 02c74188..cae568ff 100644
--- a/testdata/texture01.out
+++ b/testdata/texture01.out
@@ -27,8 +27,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -36,14 +35,10 @@ Pipeline
               in vec2 vi2;
               smooth out vec2 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (vi1));
+                  gl_Position = scale (0.5,(MVP) * (vi1));
                   vo1 = vi2;
               }
               """
@@ -51,8 +46,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D diffuse;
diff --git a/testdata/texture02.out b/testdata/texture02.out
index 888df86a..610acbe4 100644
--- a/testdata/texture02.out
+++ b/testdata/texture02.out
@@ -79,8 +79,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -88,14 +87,10 @@ Pipeline
               in vec2 vi2;
               smooth out vec2 vo1;
               vec4 scale(float z0,vec4 z1) {
-                  return (z1) * (vec4 (z0
-                                      ,z0
-                                      ,z0
-                                      ,1.0));
+                  return (z1) * (vec4 (z0,z0,z0,1.0));
               }
               void main() {
-                  gl_Position = scale (0.5
-                                      ,(MVP) * (vi1));
+                  gl_Position = scale (0.5,(MVP) * (vi1));
                   vo1 = vi2;
               }
               """
@@ -103,8 +98,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D s0;
diff --git a/testdata/traceTest.out b/testdata/traceTest.out
index ba76748f..7ec5a68b 100644
--- a/testdata/traceTest.out
+++ b/testdata/traceTest.out
@@ -1,9 +1,16 @@
+------------ desugared source code
+id = \(a :: _) -> _rhs a
+data X (_ :: Type) (_ :: _a) :: Type where
+    
+x = _rhs undefined :: X \(a :: _) (b :: _) -> HList ('Cons a ('Cons b 'Nil))
 main is not found
 ------------ trace
 id :: forall a . a -> a
 'X :: forall a . a -> Type
 'XCase :: forall a (b :: a) . forall (c :: X a b -> Type) (d :: X a b) -> c d
-match'X :: forall (a :: Type -> Type) -> (forall b . forall (c :: b) -> a (X b c)) -> forall d -> a d -> a d
+match'X
+  :: forall (a :: Type -> Type)
+    -> (forall b . forall (c :: b) -> a (X b c)) -> forall d -> a d -> a d
 x :: X (Type -> Type -> Type) \(a :: Type) (b :: Type) -> (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 3f5e3629..746fa7b9 100644
--- a/testdata/typeclass.out
+++ b/testdata/typeclass.out
@@ -1,3 +1,29 @@
+------------ desugared source code
+infix 4 ==
+infix 4 /=
+infix 4 <
+infixr 3 &&
+infixr 2 ||
+not = \(a :: _) -> 'BoolCase \_ -> _ :: _ (_rhs True) (_rhs False) a
+&& = \(a :: _) (b :: _) -> 'BoolCase \_ -> _ :: _ (_rhs False) (_rhs b) a
+|| = \(a :: _) (b :: _) -> 'BoolCase \_ -> _ :: _ (_rhs b) (_rhs True) a
+'Eq
+  = (\(a :: _) -> match'Bool
+      \_ -> _
+      (_rhs 'Unit)
+      a
+      (_rhs ('Empty "no instance of 'Eq on ???")))
+    :: Type -> Type
+==
+  = (\ @a -> \ @_ -> match'Bool
+      \_ -> _
+      (_rhs
+        \(b
+          := \(c :: _) (d :: _) -> 'BoolCase \_ -> _ :: _ (_rhs (not d)) (_rhs d) c) -> b)
+      a
+      (_rhs undefined))
+    :: forall e . Eq e => e -> e -> Bool
+/= = \(a :: _) (b :: _) -> _rhs (not (a == b))
 main is not found
 ------------ trace
 not :: Bool -> Bool
diff --git a/testdata/typesig.reject.out b/testdata/typesig.reject.out
index 909ee06d..aa062c93 100644
--- a/testdata/typesig.reject.out
+++ b/testdata/typesig.reject.out
@@ -1,11 +1,13 @@
-focus checkMetas: \(a :: Type) -> (\(b :: Type) -> primFix a b) \(a := Type) -> \(c :: Type) -> <<HERE>>
+focus checkMetas: \(a :: Type) -> (\(b :: Type) -> primFix a b)
+  \(a := Type) -> \(c :: Type) -> <<HERE>>
 \(d :: Type ~ _a) (e :: _a ~ X) -> typeAnn _a (labend X)
 ------------ trace
 'X :: Type
 X :: X
 'XCase :: forall (a :: X -> Type) -> a 'X -> forall (b :: X) -> a b
 match'X :: forall (a :: Type -> Type) -> a X -> forall b -> a b -> a b
-!focus checkMetas: \(a :: Type) -> (\(b :: Type) -> primFix a b) \(a := Type) -> \(c :: Type) -> <<HERE>>
+!focus checkMetas: \(a :: Type) -> (\(b :: Type) -> primFix a b)
+  \(a := Type) -> \(c :: Type) -> <<HERE>>
 \(d :: Type ~ _a) (e :: _a ~ X) -> typeAnn _a (labend X)
 ------------ tooltips
 testdata/typesig.reject.lc 4:6-4:7  Type
diff --git a/testdata/uniformparam01.out b/testdata/uniformparam01.out
index 48d595fe..90c8677b 100644
--- a/testdata/uniformparam01.out
+++ b/testdata/uniformparam01.out
@@ -22,8 +22,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -38,8 +37,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               flat in vec4 vo1;
diff --git a/testdata/uniformparam02.out b/testdata/uniformparam02.out
index f1311195..9caaa4ee 100644
--- a/testdata/uniformparam02.out
+++ b/testdata/uniformparam02.out
@@ -22,8 +22,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               in vec4 vi1;
@@ -37,8 +36,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               flat in vec4 vo1;
diff --git a/testdata/uniformparam03.out b/testdata/uniformparam03.out
index 48d595fe..90c8677b 100644
--- a/testdata/uniformparam03.out
+++ b/testdata/uniformparam03.out
@@ -22,8 +22,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform mat4 MVP;
@@ -38,8 +37,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               flat in vec4 vo1;
diff --git a/testdata/where.out b/testdata/where.out
index d106b8f0..6b633324 100644
--- a/testdata/where.out
+++ b/testdata/where.out
@@ -1,3 +1,5 @@
+------------ desugared source code
+f = _rhs \(a := _rhs \(c := _rhs 1.0) -> c) (b := _rhs 1.0) -> b
 main is not found
 ------------ trace
 f :: Float
diff --git a/testdata/zip01.out b/testdata/zip01.out
index cd811cda..deb2cf14 100644
--- a/testdata/zip01.out
+++ b/testdata/zip01.out
@@ -1,3 +1,16 @@
+------------ desugared source code
+zip2
+  = (\(a :: _) (b :: _) -> 'ListCase
+      \_ -> _ :: _
+      (_rhs Nil)
+      \(c :: _) (d :: _) -> 'ListCase
+        \_ -> _ :: _
+        (_rhs Nil)
+        \(e :: _) (f :: _) -> _rhs (HCons c (HCons e HNil) : zip2 d f)
+        b
+      a)
+    :: forall (g :: _) (h :: _)
+      . List g -> List h -> List (HList ('Cons g ('Cons h 'Nil)))
 main is not found
 ------------ trace
 zip2 :: forall a b . List a -> List b -> List (a, b)