159 files changed, 37950 insertions, 22259 deletions

diff --git a/testdata/Builtins.out b/testdata/Builtins.out
index e36156db..2853bc4e 100644
--- a/testdata/Builtins.out
+++ b/testdata/Builtins.out
@@ -1015,3410 +1015,6098 @@ texture2D :: Sampler -> Vec (fromInt 2) Float -> Vec (fromInt 4) Float
 accumulationContext = \(a :: _) -> _rhs a
 main is not found
 ------------ trace
-id :: forall a . a -> a
-'VecS :: Type -> Nat -> Type
-V2 :: forall a . a -> a -> VecS a 2
-V3 :: forall a . a -> a -> a -> VecS a 3
-V4 :: forall a . a -> a -> a -> a -> VecS a 4
+id :: forall a . a -> a
+'VecS :: Type -> Nat -> Type
+V2 :: forall a . a -> a -> VecS a 2
+V3 :: forall a . a -> a -> a -> VecS a 3
+V4 :: forall a . a -> a -> a -> a -> VecS a 4
 '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
+  :: 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
-'Mat :: Nat -> Nat -> Type -> Type
-M22F :: Vec 2 Float -> Vec 2 Float -> Mat 2 2 Float
-M32F :: Vec 3 Float -> Vec 3 Float -> Mat 3 2 Float
-M42F :: Vec 4 Float -> Vec 4 Float -> Mat 4 2 Float
-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
+  :: 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
+'Mat :: Nat -> Nat -> Type -> Type
+M22F :: Vec 2 Float -> Vec 2 Float -> Mat 2 2 Float
+M32F :: Vec 3 Float -> Vec 3 Float -> Mat 3 2 Float
+M42F :: Vec 4 Float -> Vec 4 Float -> Mat 4 2 Float
+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
+  :: 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
+  :: 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
+  :: 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 (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'
+                        . 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
-zero :: forall a . Component a => a
-one :: forall a . Component a => a
-'Integral :: Type -> Type
-'Floating :: 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 :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-PrimMod :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-PrimDivS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-PrimModS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-PrimNeg :: forall a . Signed (MatVecScalarElem a) => a -> a
+  :: 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
+zero :: forall a . Component a => a
+one :: forall a . Component a => a
+'Integral :: Type -> Type
+'Floating :: 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 :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimMod :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimDivS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimModS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimNeg :: forall a . Signed (MatVecScalarElem a) => a -> a
 PrimBAnd
-  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
-PrimNot :: forall a (b :: Nat) . (a ~ VecScalar b Bool) => a -> a
-PrimAny :: forall (a :: Nat) . VecScalar a Bool -> Bool
-PrimAll :: forall (a :: Nat) . VecScalar a Bool -> Bool
-PrimACos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimACosH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimASin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimASinH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimATan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimATanH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimCos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimCosH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimDegrees :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimRadians :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimSin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimSinH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimTan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimTanH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimExp :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimLog :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimExp2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimLog2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimSqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimInvSqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimPow :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-PrimATan2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-PrimFloor :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimTrunc :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimRound :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimRoundEven :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimCeil :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimFract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimMin :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-PrimMax :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-PrimMinS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-PrimMaxS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+  :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+PrimAnd :: Bool -> Bool -> Bool
+PrimOr :: Bool -> Bool -> Bool
+PrimXor :: Bool -> Bool -> Bool
+PrimNot :: forall a (b :: Nat) . (a ~ VecScalar b Bool) => a -> a
+PrimAny :: forall (a :: Nat) . VecScalar a Bool -> Bool
+PrimAll :: forall (a :: Nat) . VecScalar a Bool -> Bool
+PrimACos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimACosH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimASin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimASinH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimATan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimATanH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimCos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimCosH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimDegrees :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimRadians :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimSin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimSinH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimTan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimTanH :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimExp :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimLog :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimExp2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimLog2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimSqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimInvSqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimPow :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+PrimATan2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+PrimFloor :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimTrunc :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimRound :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimRoundEven :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimCeil :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimFract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimMin :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimMax :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+PrimMinS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+PrimMaxS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
 PrimIsNan
-  :: forall a (b :: Nat) c
-    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+  :: 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)
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: forall a (b :: Nat) c
+    . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
+PrimStep :: forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
+PrimStepS :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
+PrimSmoothStep :: forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
 PrimSmoothStepS
-  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
-PrimFloatBitsToInt :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
-PrimFloatBitsToUInt :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
-PrimIntBitsToFloat :: forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
-PrimUIntBitsToFloat :: forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
-PrimLength :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
-PrimDistance :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-PrimDot :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-PrimCross :: forall a . (a ~ VecS Float 3) => a -> a -> a
-PrimNormalize :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
+PrimFloatBitsToInt :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
+PrimFloatBitsToUInt :: forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
+PrimIntBitsToFloat :: forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
+PrimUIntBitsToFloat :: forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
+PrimLength :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
+PrimDistance :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+PrimDot :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+PrimCross :: forall a . (a ~ VecS Float 3) => a -> a -> a
+PrimNormalize :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
 PrimFaceForward
-  :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-PrimRefract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-PrimReflect :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-PrimTranspose :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
-PrimDeterminant :: forall (a :: Nat) b . Mat a a b -> Float
-PrimInverse :: forall (a :: Nat) b . Mat a a b -> Mat a a b
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
-PrimDFdy :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimFWidth :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-PrimNoise1 :: forall (a :: Nat) . VecScalar a Float -> Float
-PrimNoise2 :: forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
-PrimNoise3 :: forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
-PrimNoise4 :: forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
-head :: forall a . List a -> a
-++ :: forall a . List a -> List a -> List a
-foldr :: forall a b . (b -> a -> a) -> a -> List b -> a
-concat :: forall a . List (List a) -> List a
-map :: forall a b . (a -> b) -> List a -> List b
-concatMap :: forall a b . (a -> List b) -> List a -> List b
-len :: forall a . List a -> Int
-'Maybe :: Type -> Type
-Nothing :: forall a . Maybe a
-Just :: forall a . a -> Maybe a
+  :: forall a (b :: Nat) c d
+    . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+PrimEqual :: forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
+PrimNotEqual :: forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
+PrimDFdx :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimDFdy :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimFWidth :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+PrimNoise1 :: forall (a :: Nat) . VecScalar a Float -> Float
+PrimNoise2 :: forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
+PrimNoise3 :: forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
+PrimNoise4 :: forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
+head :: forall a . List a -> a
+++ :: forall a . List a -> List a -> List a
+foldr :: forall a b . (b -> a -> a) -> a -> List b -> a
+concat :: forall a . List (List a) -> List a
+map :: forall a b . (a -> b) -> List a -> List b
+concatMap :: forall a b . (a -> List b) -> List a -> List b
+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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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)
-'ListElem :: Type -> Type
+  :: 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)
+  :: 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
+  :: 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)
+  :: 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
+        -> (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
+  :: 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
+  :: 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
+  :: 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)))
+  :: 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
+  :: 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
+  :: 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)))
-'ImageKind :: Type
-Color :: Type -> ImageKind
-Depth :: ImageKind
-Stencil :: ImageKind
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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)
-'Swizz :: Type
-Sx :: Swizz
-Sy :: Swizz
-Sz :: Swizz
-Sw :: Swizz
+  :: 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
-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
+  :: forall (a :: Swizz -> Type)
+    -> a 'Sx -> a 'Sy -> a 'Sz -> a 'Sw -> forall (b :: Swizz) -> a b
+match'Swizz :: forall (a :: Type -> Type) -> a Swizz -> forall b -> a b -> a b
+swizzscalar :: forall a (b :: Nat) . Vec b a -> Swizz -> a
+definedVec :: forall a (b :: Nat) . Vec b a -> Bool
 swizzvector
-  :: forall a (b :: Nat) (c :: Nat) . Vec b a -> Vec c Swizz -> VecS a c
-'BlendingFactor :: Type
-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
+  :: forall a (b :: Nat) (c :: Nat) . Vec b a -> Vec c Swizz -> VecS a c
+'BlendingFactor :: Type
+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
 '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
+  :: 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
+  :: 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
+  :: forall (a :: BlendEquation -> Type)
+    -> a 'FuncAdd
+      -> a 'FuncSubtract
+        -> a 'FuncReverseSubtract
+          -> a 'Min -> a 'Max -> forall (b :: BlendEquation) -> a b
 match'BlendEquation
-  :: forall (a :: Type -> Type) -> a BlendEquation -> forall b -> a b -> a b
-'LogicOperation :: Type
-Clear :: LogicOperation
-And :: LogicOperation
-AndReverse :: LogicOperation
-Copy :: LogicOperation
-AndInverted :: LogicOperation
-Noop :: LogicOperation
-Xor :: LogicOperation
-Or :: LogicOperation
-Nor :: LogicOperation
-Equiv :: LogicOperation
-Invert :: LogicOperation
-OrReverse :: LogicOperation
-CopyInverted :: LogicOperation
-OrInverted :: LogicOperation
-Nand :: LogicOperation
-Set :: LogicOperation
+  :: forall (a :: Type -> Type) -> a BlendEquation -> forall b -> a b -> a b
+'LogicOperation :: Type
+Clear :: LogicOperation
+And :: LogicOperation
+AndReverse :: LogicOperation
+Copy :: LogicOperation
+AndInverted :: LogicOperation
+Noop :: LogicOperation
+Xor :: LogicOperation
+Or :: LogicOperation
+Nor :: LogicOperation
+Equiv :: LogicOperation
+Invert :: LogicOperation
+OrReverse :: LogicOperation
+CopyInverted :: LogicOperation
+OrInverted :: LogicOperation
+Nand :: LogicOperation
+Set :: LogicOperation
 '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
+  :: 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
-OpReplace :: StencilOperation
-OpIncr :: StencilOperation
-OpIncrWrap :: StencilOperation
-OpDecr :: StencilOperation
-OpDecrWrap :: StencilOperation
-OpInvert :: StencilOperation
+  :: forall (a :: Type -> Type) -> a LogicOperation -> forall b -> a b -> a b
+'StencilOperation :: Type
+OpZero :: StencilOperation
+OpKeep :: StencilOperation
+OpReplace :: StencilOperation
+OpIncr :: StencilOperation
+OpIncrWrap :: StencilOperation
+OpDecr :: StencilOperation
+OpDecrWrap :: StencilOperation
+OpInvert :: StencilOperation
 '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
+  :: forall (a :: StencilOperation -> Type)
+    -> a 'OpZero
+      -> a 'OpKeep
+        -> a 'OpReplace
+          -> a 'OpIncr
+            -> a 'OpIncrWrap
+              -> a 'OpDecr
+                -> a 'OpDecrWrap -> a 'OpInvert -> forall (b :: StencilOperation) -> a b
 match'StencilOperation
-  :: forall (a :: Type -> Type) -> a StencilOperation -> forall b -> a b -> a b
-'ComparisonFunction :: Type
-Never :: ComparisonFunction
-Less :: ComparisonFunction
-Equal :: ComparisonFunction
-Lequal :: ComparisonFunction
-Greater :: ComparisonFunction
-Notequal :: ComparisonFunction
-Gequal :: ComparisonFunction
-Always :: ComparisonFunction
+  :: forall (a :: Type -> Type) -> a StencilOperation -> forall b -> a b -> a b
+'ComparisonFunction :: Type
+Never :: ComparisonFunction
+Less :: ComparisonFunction
+Equal :: ComparisonFunction
+Lequal :: ComparisonFunction
+Greater :: ComparisonFunction
+Notequal :: ComparisonFunction
+Gequal :: ComparisonFunction
+Always :: ComparisonFunction
 '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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: forall a
     . CullMode
-      -> PolygonMode a
-        -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle
+      -> 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
+  :: 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 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
+            (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
+  :: 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)
+  :: (BlendEquation, BlendEquation)
     -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
-      -> Vec 4 Float -> Blending Float
+      -> 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 (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
+                (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
+  :: 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
+  :: 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
+  :: 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
-'FragmentOperation :: ImageKind -> Type
+  :: 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))
-DepthOp :: ComparisonFunction -> Bool -> FragmentOperation 'Depth
+  :: 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
+  :: 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 (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
+            -> 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
+  :: 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
+  :: 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
+  :: forall (a :: Type -> Type)
+    -> (forall b -> a (Interpolated b)) -> forall c -> a c -> a c
 rasterizePrimitive
-  :: forall (a :: List Type)
+  :: 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)
+    . (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
+  :: 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
+  :: 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
+  :: 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
-accumulateWith :: forall a b . a -> b -> (a, b)
+  :: 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)
-'GetImageKind :: Type -> ImageKind
+  :: 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)
+  :: 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)
+  :: 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
+  :: 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))
-'Output :: Type
-ScreenOut :: forall (a :: Nat) (b :: List ImageKind) . FrameBuffer a b -> Output
+  :: 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 (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
+        . 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
-'Texture :: Type
-Texture2DSlot :: String -> Texture
-Texture2D :: Vec 2 Int -> Image 1 ('Color (Vec 4 Float)) -> Texture
+  :: 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
+  :: 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
+  :: 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
-match'Filter :: forall (a :: Type -> Type) -> a Filter -> forall b -> a b -> a b
-'EdgeMode :: Type
-Repeat :: EdgeMode
-MirroredRepeat :: EdgeMode
-ClampToEdge :: EdgeMode
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
-testdata/Builtins.lc 10:1-10:3  forall a . a -> a
-testdata/Builtins.lc 10:8-10:9  _b
-testdata/Builtins.lc 14:6-14:10  Type | Type -> Nat -> Type
-testdata/Builtins.lc 14:6-17:37  Type
-testdata/Builtins.lc 14:17-14:21  Type
-testdata/Builtins.lc 14:26-14:29  Type
-testdata/Builtins.lc 14:26-14:37  Type
-testdata/Builtins.lc 14:33-14:37  Type
-testdata/Builtins.lc 15:3-15:5  VecS _d 2 | forall a . a -> a -> VecS a 2
-testdata/Builtins.lc 15:3-15:27  Type
-testdata/Builtins.lc 15:9-15:10  Type
-testdata/Builtins.lc 15:9-15:27  Type
-testdata/Builtins.lc 15:14-15:15  Type
-testdata/Builtins.lc 15:14-15:27  Type
-testdata/Builtins.lc 15:19-15:23  Type -> Nat -> Type
-testdata/Builtins.lc 15:19-15:25  Nat -> Type
-testdata/Builtins.lc 15:19-15:27  Type
-testdata/Builtins.lc 15:24-15:25  Type
-testdata/Builtins.lc 15:26-15:27  _b
-testdata/Builtins.lc 16:3-16:5  VecS _f 3 | forall a . a -> a -> a -> VecS a 3
-testdata/Builtins.lc 16:3-16:32  Type
-testdata/Builtins.lc 16:9-16:10  Type
-testdata/Builtins.lc 16:9-16:32  Type
-testdata/Builtins.lc 16:14-16:15  Type
-testdata/Builtins.lc 16:14-16:32  Type
-testdata/Builtins.lc 16:19-16:20  Type
-testdata/Builtins.lc 16:19-16:32  Type
-testdata/Builtins.lc 16:24-16:28  Type -> Nat -> Type
-testdata/Builtins.lc 16:24-16:30  Nat -> Type
-testdata/Builtins.lc 16:24-16:32  Type
-testdata/Builtins.lc 16:29-16:30  Type
-testdata/Builtins.lc 16:31-16:32  _b
-testdata/Builtins.lc 17:3-17:5  VecS _h 4 | forall a . a -> a -> a -> a -> VecS a 4
-testdata/Builtins.lc 17:3-17:37  Type
-testdata/Builtins.lc 17:9-17:10  Type
-testdata/Builtins.lc 17:9-17:37  Type
-testdata/Builtins.lc 17:14-17:15  Type
-testdata/Builtins.lc 17:14-17:37  Type
-testdata/Builtins.lc 17:19-17:20  Type
-testdata/Builtins.lc 17:19-17:37  Type
-testdata/Builtins.lc 17:24-17:25  Type
-testdata/Builtins.lc 17:24-17:37  Type
-testdata/Builtins.lc 17:29-17:33  Type -> Nat -> Type
-testdata/Builtins.lc 17:29-17:35  Nat -> Type
-testdata/Builtins.lc 17:29-17:37  Type
-testdata/Builtins.lc 17:34-17:35  Type
-testdata/Builtins.lc 17:36-17:37  _b
-testdata/Builtins.lc 19:11-19:43  Type
-testdata/Builtins.lc 19:12-19:13  _f
-testdata/Builtins.lc 19:17-19:18  Type | _e
-testdata/Builtins.lc 19:23-19:27  Type -> Nat -> Type
-testdata/Builtins.lc 19:23-19:29  Nat -> Type
-testdata/Builtins.lc 19:23-19:31  Type
-testdata/Builtins.lc 19:23-19:43  Type
-testdata/Builtins.lc 19:28-19:29  Type
-testdata/Builtins.lc 19:30-19:31  _c
-testdata/Builtins.lc 19:35-19:39  Type -> Nat -> Type
-testdata/Builtins.lc 19:35-19:41  Nat -> Type
-testdata/Builtins.lc 19:35-19:43  Type
-testdata/Builtins.lc 19:40-19:41  Type
-testdata/Builtins.lc 19:42-19:43  Nat
-testdata/Builtins.lc 20:1-20:7  forall a b (c :: Nat) . (a -> b) -> VecS a c -> VecS b c
-testdata/Builtins.lc 20:21-20:23  forall a . a -> a -> VecS a 2
-testdata/Builtins.lc 20:21-20:29  _f -> VecS _f 2
-testdata/Builtins.lc 20:21-20:35  VecS _f 2 | _a -> _a -> VecS _e 2 | _b -> VecS _f 2
-testdata/Builtins.lc 20:21-21:43  (_e -> _e -> _e -> _e -> VecS _d 4) -> forall (a :: Nat) . VecS _e a -> VecS _d a
-testdata/Builtins.lc 20:21-22:51  (_c -> _b) -> VecS _c _a -> VecS _b _a | VecS _d _b -> VecS _c _b | forall (a :: Nat) . VecS _e a -> VecS _d a
-testdata/Builtins.lc 20:25-20:26  _i -> _h
-testdata/Builtins.lc 20:25-20:28  _f
-testdata/Builtins.lc 20:27-20:28  _c
-testdata/Builtins.lc 20:31-20:32  _g -> _f
-testdata/Builtins.lc 20:31-20:34  _f
-testdata/Builtins.lc 20:33-20:34  _g
-testdata/Builtins.lc 21:23-21:25  forall a . a -> a -> a -> VecS a 3
-testdata/Builtins.lc 21:23-21:31  _g -> _g -> VecS _g 3
-testdata/Builtins.lc 21:23-21:37  _g -> VecS _g 3
-testdata/Builtins.lc 21:23-21:43  VecS _g 3 | _e -> _e -> _e -> VecS _d 3 | _f -> _f -> VecS _e 3 | _g -> VecS _f 3
-testdata/Builtins.lc 21:27-21:28  _i -> _h
-testdata/Builtins.lc 21:27-21:30  _g
-testdata/Builtins.lc 21:29-21:30  _h
-testdata/Builtins.lc 21:33-21:34  _h -> _g
-testdata/Builtins.lc 21:33-21:36  _g
-testdata/Builtins.lc 21:35-21:36  _h
-testdata/Builtins.lc 21:39-21:40  _h -> _g
-testdata/Builtins.lc 21:39-21:42  _g
-testdata/Builtins.lc 21:41-21:42  _h
-testdata/Builtins.lc 22:25-22:27  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Builtins.lc 22:25-22:33  _h -> _h -> _h -> VecS _h 4
-testdata/Builtins.lc 22:25-22:39  _h -> _h -> VecS _h 4
-testdata/Builtins.lc 22:25-22:45  _h -> VecS _h 4
-testdata/Builtins.lc 22:25-22:51  VecS _h 4 | _e -> _e -> _e -> _e -> VecS _d 4 | _f -> _f -> _f -> VecS _e 4 | _g -> _g -> VecS _f 4 | _h -> VecS _g 4
-testdata/Builtins.lc 22:29-22:30  _j -> _i
-testdata/Builtins.lc 22:29-22:32  _h
-testdata/Builtins.lc 22:31-22:32  _i
-testdata/Builtins.lc 22:35-22:36  _i -> _h
-testdata/Builtins.lc 22:35-22:38  _h
-testdata/Builtins.lc 22:37-22:38  _i
-testdata/Builtins.lc 22:41-22:42  _i -> _h
-testdata/Builtins.lc 22:41-22:44  _h
-testdata/Builtins.lc 22:43-22:44  _i
-testdata/Builtins.lc 22:47-22:48  _i -> _h
-testdata/Builtins.lc 22:47-22:50  _h
-testdata/Builtins.lc 22:49-22:50  _i
-testdata/Builtins.lc 24:23-24:26  Type
-testdata/Builtins.lc 24:37-24:40  Nat -> Type -> Type
-testdata/Builtins.lc 24:47-24:51  Type -> Nat -> Type
-testdata/Builtins.lc 24:47-24:53  Nat -> Type
-testdata/Builtins.lc 24:47-24:55  Nat -> Type -> Type | Type | Type -> Type
-testdata/Builtins.lc 24:52-24:53  Type
-testdata/Builtins.lc 24:54-24:55  Nat
-testdata/Builtins.lc 27:29-27:32  Type
-testdata/Builtins.lc 28:5-28:14  Nat -> Type -> Type
-testdata/Builtins.lc 28:21-28:22  Type
-testdata/Builtins.lc 28:21-29:60  Nat -> Type | Nat -> Type -> Type | Type -> Type
-testdata/Builtins.lc 29:37-29:40  Nat -> Type -> Type
-testdata/Builtins.lc 29:37-29:58  Type -> Type
-testdata/Builtins.lc 29:37-29:60  Nat -> Type | Type
-testdata/Builtins.lc 29:42-29:47  Nat -> Nat
-testdata/Builtins.lc 29:42-29:57  Nat
-testdata/Builtins.lc 29:49-29:54  Nat -> Nat
-testdata/Builtins.lc 29:49-29:56  Nat
-testdata/Builtins.lc 29:55-29:56  Nat
-testdata/Builtins.lc 29:59-29:60  Type
-testdata/Builtins.lc 32:6-32:9  Nat -> Nat -> Type -> Type | Type
-testdata/Builtins.lc 32:6-41:84  Type
-testdata/Builtins.lc 32:13-32:16  Type
-testdata/Builtins.lc 32:20-32:23  Type
-testdata/Builtins.lc 32:20-32:39  Type
-testdata/Builtins.lc 32:27-32:31  Type
-testdata/Builtins.lc 32:27-32:39  Type
-testdata/Builtins.lc 32:35-32:39  Type
-testdata/Builtins.lc 33:3-33:7  Mat 2 2 Float | Vec 2 Float -> Vec 2 Float -> Mat 2 2 Float
-testdata/Builtins.lc 33:3-33:54  Type
-testdata/Builtins.lc 33:11-33:14  Nat -> Type -> Type
-testdata/Builtins.lc 33:11-33:16  Type -> Type
-testdata/Builtins.lc 33:11-33:22  Type
-testdata/Builtins.lc 33:15-33:16  _b
-testdata/Builtins.lc 33:17-33:22  Type
-testdata/Builtins.lc 33:26-33:29  Nat -> Type -> Type
-testdata/Builtins.lc 33:26-33:31  Type -> Type
-testdata/Builtins.lc 33:26-33:37  Type
-testdata/Builtins.lc 33:26-33:54  Type
-testdata/Builtins.lc 33:30-33:31  _b
-testdata/Builtins.lc 33:32-33:37  Type
-testdata/Builtins.lc 33:41-33:44  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 33:41-33:46  Nat -> Type -> Type
-testdata/Builtins.lc 33:41-33:48  Type -> Type
-testdata/Builtins.lc 33:41-33:54  Type
-testdata/Builtins.lc 33:45-33:46  _b
-testdata/Builtins.lc 33:45-33:48  forall a -> Mat 2 2 a -> Type
-testdata/Builtins.lc 33:45-33:54  Mat 2 2 Float -> Type
-testdata/Builtins.lc 33:47-33:48  _b
-testdata/Builtins.lc 33:49-33:54  Type
-testdata/Builtins.lc 34:3-34:7  Mat 3 2 Float | Vec 3 Float -> Vec 3 Float -> Mat 3 2 Float
-testdata/Builtins.lc 34:3-34:54  Type
-testdata/Builtins.lc 34:11-34:14  Nat -> Type -> Type
-testdata/Builtins.lc 34:11-34:16  Type -> Type
-testdata/Builtins.lc 34:11-34:22  Type
-testdata/Builtins.lc 34:15-34:16  _b
-testdata/Builtins.lc 34:17-34:22  Type
-testdata/Builtins.lc 34:26-34:29  Nat -> Type -> Type
-testdata/Builtins.lc 34:26-34:31  Type -> Type
-testdata/Builtins.lc 34:26-34:37  Type
-testdata/Builtins.lc 34:26-34:54  Type
-testdata/Builtins.lc 34:30-34:31  _b
-testdata/Builtins.lc 34:32-34:37  Type
-testdata/Builtins.lc 34:41-34:44  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 34:41-34:46  Nat -> Type -> Type
-testdata/Builtins.lc 34:41-34:48  Type -> Type
-testdata/Builtins.lc 34:41-34:54  Type
-testdata/Builtins.lc 34:45-34:46  _b
-testdata/Builtins.lc 34:45-34:48  forall a -> Mat 3 2 a -> Type
-testdata/Builtins.lc 34:45-34:54  Mat 3 2 Float -> Type
-testdata/Builtins.lc 34:47-34:48  _b
-testdata/Builtins.lc 34:49-34:54  Type
-testdata/Builtins.lc 35:3-35:7  Mat 4 2 Float | Vec 4 Float -> Vec 4 Float -> Mat 4 2 Float
-testdata/Builtins.lc 35:3-35:54  Type
-testdata/Builtins.lc 35:11-35:14  Nat -> Type -> Type
-testdata/Builtins.lc 35:11-35:16  Type -> Type
-testdata/Builtins.lc 35:11-35:22  Type
-testdata/Builtins.lc 35:15-35:16  _b
-testdata/Builtins.lc 35:17-35:22  Type
-testdata/Builtins.lc 35:26-35:29  Nat -> Type -> Type
-testdata/Builtins.lc 35:26-35:31  Type -> Type
-testdata/Builtins.lc 35:26-35:37  Type
-testdata/Builtins.lc 35:26-35:54  Type
-testdata/Builtins.lc 35:30-35:31  _b
-testdata/Builtins.lc 35:32-35:37  Type
-testdata/Builtins.lc 35:41-35:44  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 35:41-35:46  Nat -> Type -> Type
-testdata/Builtins.lc 35:41-35:48  Type -> Type
-testdata/Builtins.lc 35:41-35:54  Type
-testdata/Builtins.lc 35:45-35:46  _b
-testdata/Builtins.lc 35:45-35:48  forall a -> Mat 4 2 a -> Type
-testdata/Builtins.lc 35:45-35:54  Mat 4 2 Float -> Type
-testdata/Builtins.lc 35:47-35:48  _b
-testdata/Builtins.lc 35:49-35:54  Type
-testdata/Builtins.lc 36:3-36:7  Mat 2 3 Float | Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Mat 2 3 Float
-testdata/Builtins.lc 36:3-36:69  Type
-testdata/Builtins.lc 36:11-36:14  Nat -> Type -> Type
-testdata/Builtins.lc 36:11-36:16  Type -> Type
-testdata/Builtins.lc 36:11-36:22  Type
-testdata/Builtins.lc 36:15-36:16  _b
-testdata/Builtins.lc 36:17-36:22  Type
-testdata/Builtins.lc 36:26-36:29  Nat -> Type -> Type
-testdata/Builtins.lc 36:26-36:31  Type -> Type
-testdata/Builtins.lc 36:26-36:37  Type
-testdata/Builtins.lc 36:26-36:69  Type
-testdata/Builtins.lc 36:30-36:31  _b
-testdata/Builtins.lc 36:32-36:37  Type
-testdata/Builtins.lc 36:41-36:44  Nat -> Type -> Type
-testdata/Builtins.lc 36:41-36:46  Type -> Type
-testdata/Builtins.lc 36:41-36:52  Type
-testdata/Builtins.lc 36:41-36:69  Type
-testdata/Builtins.lc 36:45-36:46  _b
-testdata/Builtins.lc 36:47-36:52  Type
-testdata/Builtins.lc 36:56-36:59  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 36:56-36:61  Nat -> Type -> Type
-testdata/Builtins.lc 36:56-36:63  Type -> Type
-testdata/Builtins.lc 36:56-36:69  Type
-testdata/Builtins.lc 36:60-36:61  _b
-testdata/Builtins.lc 36:60-36:63  forall a -> Mat 2 3 a -> Type
-testdata/Builtins.lc 36:60-36:69  Mat 2 3 Float -> Type
-testdata/Builtins.lc 36:62-36:63  _b
-testdata/Builtins.lc 36:64-36:69  Type
-testdata/Builtins.lc 37:3-37:7  Mat 3 3 Float | Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 3 3 Float
-testdata/Builtins.lc 37:3-37:69  Type
-testdata/Builtins.lc 37:11-37:14  Nat -> Type -> Type
-testdata/Builtins.lc 37:11-37:16  Type -> Type
-testdata/Builtins.lc 37:11-37:22  Type
-testdata/Builtins.lc 37:15-37:16  _b
-testdata/Builtins.lc 37:17-37:22  Type
-testdata/Builtins.lc 37:26-37:29  Nat -> Type -> Type
-testdata/Builtins.lc 37:26-37:31  Type -> Type
-testdata/Builtins.lc 37:26-37:37  Type
-testdata/Builtins.lc 37:26-37:69  Type
-testdata/Builtins.lc 37:30-37:31  _b
-testdata/Builtins.lc 37:32-37:37  Type
-testdata/Builtins.lc 37:41-37:44  Nat -> Type -> Type
-testdata/Builtins.lc 37:41-37:46  Type -> Type
-testdata/Builtins.lc 37:41-37:52  Type
-testdata/Builtins.lc 37:41-37:69  Type
-testdata/Builtins.lc 37:45-37:46  _b
-testdata/Builtins.lc 37:47-37:52  Type
-testdata/Builtins.lc 37:56-37:59  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 37:56-37:61  Nat -> Type -> Type
-testdata/Builtins.lc 37:56-37:63  Type -> Type
-testdata/Builtins.lc 37:56-37:69  Type
-testdata/Builtins.lc 37:60-37:61  _b
-testdata/Builtins.lc 37:60-37:63  forall a -> Mat 3 3 a -> Type
-testdata/Builtins.lc 37:60-37:69  Mat 3 3 Float -> Type
-testdata/Builtins.lc 37:62-37:63  _b
-testdata/Builtins.lc 37:64-37:69  Type
-testdata/Builtins.lc 38:3-38:7  Mat 4 3 Float | Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 3 Float
-testdata/Builtins.lc 38:3-38:69  Type
-testdata/Builtins.lc 38:11-38:14  Nat -> Type -> Type
-testdata/Builtins.lc 38:11-38:16  Type -> Type
-testdata/Builtins.lc 38:11-38:22  Type
-testdata/Builtins.lc 38:15-38:16  _b
-testdata/Builtins.lc 38:17-38:22  Type
-testdata/Builtins.lc 38:26-38:29  Nat -> Type -> Type
-testdata/Builtins.lc 38:26-38:31  Type -> Type
-testdata/Builtins.lc 38:26-38:37  Type
-testdata/Builtins.lc 38:26-38:69  Type
-testdata/Builtins.lc 38:30-38:31  _b
-testdata/Builtins.lc 38:32-38:37  Type
-testdata/Builtins.lc 38:41-38:44  Nat -> Type -> Type
-testdata/Builtins.lc 38:41-38:46  Type -> Type
-testdata/Builtins.lc 38:41-38:52  Type
-testdata/Builtins.lc 38:41-38:69  Type
-testdata/Builtins.lc 38:45-38:46  _b
-testdata/Builtins.lc 38:47-38:52  Type
-testdata/Builtins.lc 38:56-38:59  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 38:56-38:61  Nat -> Type -> Type
-testdata/Builtins.lc 38:56-38:63  Type -> Type
-testdata/Builtins.lc 38:56-38:69  Type
-testdata/Builtins.lc 38:60-38:61  _b
-testdata/Builtins.lc 38:60-38:63  forall a -> Mat 4 3 a -> Type
-testdata/Builtins.lc 38:60-38:69  Mat 4 3 Float -> Type
-testdata/Builtins.lc 38:62-38:63  _b
-testdata/Builtins.lc 38:64-38:69  Type
-testdata/Builtins.lc 39:3-39:7  Mat 2 4 Float | Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Mat 2 4 Float
-testdata/Builtins.lc 39:3-39:84  Type
-testdata/Builtins.lc 39:11-39:14  Nat -> Type -> Type
-testdata/Builtins.lc 39:11-39:16  Type -> Type
-testdata/Builtins.lc 39:11-39:22  Type
-testdata/Builtins.lc 39:15-39:16  _b
-testdata/Builtins.lc 39:17-39:22  Type
-testdata/Builtins.lc 39:26-39:29  Nat -> Type -> Type
-testdata/Builtins.lc 39:26-39:31  Type -> Type
-testdata/Builtins.lc 39:26-39:37  Type
-testdata/Builtins.lc 39:26-39:84  Type
-testdata/Builtins.lc 39:30-39:31  _b
-testdata/Builtins.lc 39:32-39:37  Type
-testdata/Builtins.lc 39:41-39:44  Nat -> Type -> Type
-testdata/Builtins.lc 39:41-39:46  Type -> Type
-testdata/Builtins.lc 39:41-39:52  Type
-testdata/Builtins.lc 39:41-39:84  Type
-testdata/Builtins.lc 39:45-39:46  _b
-testdata/Builtins.lc 39:47-39:52  Type
-testdata/Builtins.lc 39:56-39:59  Nat -> Type -> Type
-testdata/Builtins.lc 39:56-39:61  Type -> Type
-testdata/Builtins.lc 39:56-39:67  Type
-testdata/Builtins.lc 39:56-39:84  Type
-testdata/Builtins.lc 39:60-39:61  _b
-testdata/Builtins.lc 39:62-39:67  Type
-testdata/Builtins.lc 39:71-39:74  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 39:71-39:76  Nat -> Type -> Type
-testdata/Builtins.lc 39:71-39:78  Type -> Type
-testdata/Builtins.lc 39:71-39:84  Type
-testdata/Builtins.lc 39:75-39:76  _b
-testdata/Builtins.lc 39:75-39:78  forall a -> Mat 2 4 a -> Type
-testdata/Builtins.lc 39:75-39:84  Mat 2 4 Float -> Type
-testdata/Builtins.lc 39:77-39:78  _b
-testdata/Builtins.lc 39:79-39:84  Type
-testdata/Builtins.lc 40:3-40:7  Mat 3 4 Float | Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 3 4 Float
-testdata/Builtins.lc 40:3-40:84  Type
-testdata/Builtins.lc 40:11-40:14  Nat -> Type -> Type
-testdata/Builtins.lc 40:11-40:16  Type -> Type
-testdata/Builtins.lc 40:11-40:22  Type
-testdata/Builtins.lc 40:15-40:16  _b
-testdata/Builtins.lc 40:17-40:22  Type
-testdata/Builtins.lc 40:26-40:29  Nat -> Type -> Type
-testdata/Builtins.lc 40:26-40:31  Type -> Type
-testdata/Builtins.lc 40:26-40:37  Type
-testdata/Builtins.lc 40:26-40:84  Type
-testdata/Builtins.lc 40:30-40:31  _b
-testdata/Builtins.lc 40:32-40:37  Type
-testdata/Builtins.lc 40:41-40:44  Nat -> Type -> Type
-testdata/Builtins.lc 40:41-40:46  Type -> Type
-testdata/Builtins.lc 40:41-40:52  Type
-testdata/Builtins.lc 40:41-40:84  Type
-testdata/Builtins.lc 40:45-40:46  _b
-testdata/Builtins.lc 40:47-40:52  Type
-testdata/Builtins.lc 40:56-40:59  Nat -> Type -> Type
-testdata/Builtins.lc 40:56-40:61  Type -> Type
-testdata/Builtins.lc 40:56-40:67  Type
-testdata/Builtins.lc 40:56-40:84  Type
-testdata/Builtins.lc 40:60-40:61  _b
-testdata/Builtins.lc 40:62-40:67  Type
-testdata/Builtins.lc 40:71-40:74  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 40:71-40:76  Nat -> Type -> Type
-testdata/Builtins.lc 40:71-40:78  Type -> Type
-testdata/Builtins.lc 40:71-40:84  Type
-testdata/Builtins.lc 40:75-40:76  _b
-testdata/Builtins.lc 40:75-40:78  forall a -> Mat 3 4 a -> Type
-testdata/Builtins.lc 40:75-40:84  Mat 3 4 Float -> Type
-testdata/Builtins.lc 40:77-40:78  _b
-testdata/Builtins.lc 40:79-40:84  Type
-testdata/Builtins.lc 41:3-41:7  Mat 4 4 Float | Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Builtins.lc 41:3-41:84  Type
-testdata/Builtins.lc 41:11-41:14  Nat -> Type -> Type
-testdata/Builtins.lc 41:11-41:16  Type -> Type
-testdata/Builtins.lc 41:11-41:22  Type
-testdata/Builtins.lc 41:15-41:16  _b
-testdata/Builtins.lc 41:17-41:22  Type
-testdata/Builtins.lc 41:26-41:29  Nat -> Type -> Type
-testdata/Builtins.lc 41:26-41:31  Type -> Type
-testdata/Builtins.lc 41:26-41:37  Type
-testdata/Builtins.lc 41:26-41:84  Type
-testdata/Builtins.lc 41:30-41:31  _b
-testdata/Builtins.lc 41:32-41:37  Type
-testdata/Builtins.lc 41:41-41:44  Nat -> Type -> Type
-testdata/Builtins.lc 41:41-41:46  Type -> Type
-testdata/Builtins.lc 41:41-41:52  Type
-testdata/Builtins.lc 41:41-41:84  Type
-testdata/Builtins.lc 41:45-41:46  _b
-testdata/Builtins.lc 41:47-41:52  Type
-testdata/Builtins.lc 41:56-41:59  Nat -> Type -> Type
-testdata/Builtins.lc 41:56-41:61  Type -> Type
-testdata/Builtins.lc 41:56-41:67  Type
-testdata/Builtins.lc 41:56-41:84  Type
-testdata/Builtins.lc 41:60-41:61  _b
-testdata/Builtins.lc 41:62-41:67  Type
-testdata/Builtins.lc 41:71-41:74  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 41:71-41:76  Nat -> Type -> Type
-testdata/Builtins.lc 41:71-41:78  Type -> Type
-testdata/Builtins.lc 41:71-41:84  Type
-testdata/Builtins.lc 41:75-41:76  _b
-testdata/Builtins.lc 41:75-41:78  forall a -> Mat 4 4 a -> Type
-testdata/Builtins.lc 41:75-41:84  Mat 4 4 Float -> Type
-testdata/Builtins.lc 41:77-41:78  _b
-testdata/Builtins.lc 41:79-41:84  Type
-testdata/Builtins.lc 44:5-44:21  Type -> Type
-testdata/Builtins.lc 44:30-44:35  Type
-testdata/Builtins.lc 44:30-48:37  Type | Type -> Type
-testdata/Builtins.lc 45:29-45:33  Type
-testdata/Builtins.lc 45:29-48:37  Type
-testdata/Builtins.lc 46:28-46:31  Type
-testdata/Builtins.lc 46:28-48:37  Type
-testdata/Builtins.lc 47:35-47:36  Nat -> Type | Type | Type -> Nat -> Type
-testdata/Builtins.lc 47:35-48:37  Type
-testdata/Builtins.lc 48:36-48:37  Nat -> Nat -> Type -> Type | Nat -> Type -> Type | Type | Type -> Type
-testdata/Builtins.lc 52:7-52:13  Type -> Type
-testdata/Builtins.lc 57:7-57:16  Type -> Type
-testdata/Builtins.lc 57:7-58:12  Type
-testdata/Builtins.lc 57:7-59:11  Type
-testdata/Builtins.lc 58:3-58:7  forall a . Component a => a
-testdata/Builtins.lc 58:11-58:12  Type
-testdata/Builtins.lc 59:3-59:6  forall a . Component a => a
-testdata/Builtins.lc 59:10-59:11  Type
-testdata/Builtins.lc 62:10-62:11  _b
-testdata/Builtins.lc 62:10-89:36  Component _a => _a | _b | forall a . Component a => a
-testdata/Builtins.lc 62:15-62:18  Type
-testdata/Builtins.lc 63:9-63:10  _b
-testdata/Builtins.lc 63:9-90:31  Component _a => _a | _b | forall a . Component a => a
-testdata/Builtins.lc 63:14-63:17  Type
-testdata/Builtins.lc 65:10-65:11  _b
-testdata/Builtins.lc 65:10-89:36  _b
-testdata/Builtins.lc 65:15-65:19  Type
-testdata/Builtins.lc 66:9-66:10  _b
-testdata/Builtins.lc 66:9-90:31  _b
-testdata/Builtins.lc 66:14-66:18  Type
-testdata/Builtins.lc 68:10-68:13  Float
-testdata/Builtins.lc 68:10-89:36  _b
-testdata/Builtins.lc 69:9-69:12  Float
-testdata/Builtins.lc 69:9-90:31  _b
-testdata/Builtins.lc 71:10-71:12  forall a . a -> a -> VecS a 2
-testdata/Builtins.lc 71:10-71:16  Float -> VecS Float 2
-testdata/Builtins.lc 71:10-71:20  VecS Float 2
-testdata/Builtins.lc 71:10-77:28  forall (a :: Nat) -> VecS Float ('Succ ('Succ a)) | forall (a :: Nat) -> VecS Float ('Succ a)
-testdata/Builtins.lc 71:10-89:36  VecS _b _a | forall (a :: Nat) -> VecS _a a | forall a (b :: Nat) -> VecS a b
-testdata/Builtins.lc 71:13-71:16  Float
-testdata/Builtins.lc 71:17-71:20  Float
-testdata/Builtins.lc 72:9-72:11  forall a . a -> a -> VecS a 2
-testdata/Builtins.lc 72:9-72:15  Float -> VecS Float 2
-testdata/Builtins.lc 72:9-72:19  VecS Float 2
-testdata/Builtins.lc 72:9-78:27  forall (a :: Nat) -> VecS Float ('Succ ('Succ a)) | forall (a :: Nat) -> VecS Float ('Succ a)
-testdata/Builtins.lc 72:9-90:31  VecS _b _a | forall (a :: Nat) -> VecS _a a | forall a (b :: Nat) -> VecS a b
-testdata/Builtins.lc 72:12-72:15  Float
-testdata/Builtins.lc 72:16-72:19  Float
-testdata/Builtins.lc 74:10-74:12  forall a . a -> a -> a -> VecS a 3
-testdata/Builtins.lc 74:10-74:16  Float -> Float -> VecS Float 3
-testdata/Builtins.lc 74:10-74:20  Float -> VecS Float 3
-testdata/Builtins.lc 74:10-74:24  VecS Float 3
-testdata/Builtins.lc 74:10-77:28  forall (a :: Nat) -> VecS Float ('Succ ('Succ ('Succ a)))
-testdata/Builtins.lc 74:13-74:16  Float
-testdata/Builtins.lc 74:17-74:20  Float
-testdata/Builtins.lc 74:21-74:24  Float
-testdata/Builtins.lc 75:9-75:11  forall a . a -> a -> a -> VecS a 3
-testdata/Builtins.lc 75:9-75:15  Float -> Float -> VecS Float 3
-testdata/Builtins.lc 75:9-75:19  Float -> VecS Float 3
-testdata/Builtins.lc 75:9-75:23  VecS Float 3
-testdata/Builtins.lc 75:9-78:27  forall (a :: Nat) -> VecS Float ('Succ ('Succ ('Succ a)))
-testdata/Builtins.lc 75:12-75:15  Float
-testdata/Builtins.lc 75:16-75:19  Float
-testdata/Builtins.lc 75:20-75:23  Float
-testdata/Builtins.lc 77:10-77:12  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Builtins.lc 77:10-77:16  Float -> Float -> Float -> VecS Float 4
-testdata/Builtins.lc 77:10-77:20  Float -> Float -> VecS Float 4
-testdata/Builtins.lc 77:10-77:24  Float -> VecS Float 4
-testdata/Builtins.lc 77:10-77:28  VecS Float 4 | forall (a :: Nat) -> VecS Float ('Succ ('Succ ('Succ ('Succ a))))
-testdata/Builtins.lc 77:13-77:16  Float
-testdata/Builtins.lc 77:17-77:20  Float
-testdata/Builtins.lc 77:21-77:24  Float
-testdata/Builtins.lc 77:25-77:28  Float
-testdata/Builtins.lc 78:9-78:11  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Builtins.lc 78:9-78:15  Float -> Float -> Float -> VecS Float 4
-testdata/Builtins.lc 78:9-78:19  Float -> Float -> VecS Float 4
-testdata/Builtins.lc 78:9-78:23  Float -> VecS Float 4
-testdata/Builtins.lc 78:9-78:27  VecS Float 4 | forall (a :: Nat) -> VecS Float ('Succ ('Succ ('Succ ('Succ a))))
-testdata/Builtins.lc 78:12-78:15  Float
-testdata/Builtins.lc 78:16-78:19  Float
-testdata/Builtins.lc 78:20-78:23  Float
-testdata/Builtins.lc 78:24-78:27  Float
-testdata/Builtins.lc 80:10-80:15  Bool
-testdata/Builtins.lc 81:9-81:13  Bool
-testdata/Builtins.lc 83:10-83:12  forall a . a -> a -> VecS a 2
-testdata/Builtins.lc 83:10-83:18  Bool -> VecS Bool 2
-testdata/Builtins.lc 83:10-83:24  VecS Bool 2
-testdata/Builtins.lc 83:10-89:36  forall (a :: Nat) -> VecS Bool ('Succ ('Succ a)) | forall (a :: Nat) -> VecS Bool ('Succ a)
-testdata/Builtins.lc 83:13-83:18  Bool
-testdata/Builtins.lc 83:19-83:24  Bool
-testdata/Builtins.lc 84:9-84:11  forall a . a -> a -> VecS a 2
-testdata/Builtins.lc 84:9-84:16  Bool -> VecS Bool 2
-testdata/Builtins.lc 84:9-84:21  VecS Bool 2
-testdata/Builtins.lc 84:9-90:31  forall (a :: Nat) -> VecS Bool ('Succ ('Succ a)) | forall (a :: Nat) -> VecS Bool ('Succ a)
-testdata/Builtins.lc 84:12-84:16  Bool
-testdata/Builtins.lc 84:17-84:21  Bool
-testdata/Builtins.lc 86:10-86:12  forall a . a -> a -> a -> VecS a 3
-testdata/Builtins.lc 86:10-86:18  Bool -> Bool -> VecS Bool 3
-testdata/Builtins.lc 86:10-86:24  Bool -> VecS Bool 3
-testdata/Builtins.lc 86:10-86:30  VecS Bool 3
-testdata/Builtins.lc 86:10-89:36  forall (a :: Nat) -> VecS Bool ('Succ ('Succ ('Succ a)))
-testdata/Builtins.lc 86:13-86:18  Bool
-testdata/Builtins.lc 86:19-86:24  Bool
-testdata/Builtins.lc 86:25-86:30  Bool
-testdata/Builtins.lc 87:9-87:11  forall a . a -> a -> a -> VecS a 3
-testdata/Builtins.lc 87:9-87:16  Bool -> Bool -> VecS Bool 3
-testdata/Builtins.lc 87:9-87:21  Bool -> VecS Bool 3
-testdata/Builtins.lc 87:9-87:26  VecS Bool 3
-testdata/Builtins.lc 87:9-90:31  forall (a :: Nat) -> VecS Bool ('Succ ('Succ ('Succ a)))
-testdata/Builtins.lc 87:12-87:16  Bool
-testdata/Builtins.lc 87:17-87:21  Bool
-testdata/Builtins.lc 87:22-87:26  Bool
-testdata/Builtins.lc 89:10-89:12  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Builtins.lc 89:10-89:18  Bool -> Bool -> Bool -> VecS Bool 4
-testdata/Builtins.lc 89:10-89:24  Bool -> Bool -> VecS Bool 4
-testdata/Builtins.lc 89:10-89:30  Bool -> VecS Bool 4
-testdata/Builtins.lc 89:10-89:36  VecS Bool 4 | forall (a :: Nat) -> VecS Bool ('Succ ('Succ ('Succ ('Succ a))))
-testdata/Builtins.lc 89:13-89:18  Bool
-testdata/Builtins.lc 89:19-89:24  Bool
-testdata/Builtins.lc 89:25-89:30  Bool
-testdata/Builtins.lc 89:31-89:36  Bool
-testdata/Builtins.lc 90:9-90:11  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Builtins.lc 90:9-90:16  Bool -> Bool -> Bool -> VecS Bool 4
-testdata/Builtins.lc 90:9-90:21  Bool -> Bool -> VecS Bool 4
-testdata/Builtins.lc 90:9-90:26  Bool -> VecS Bool 4
-testdata/Builtins.lc 90:9-90:31  VecS Bool 4 | forall (a :: Nat) -> VecS Bool ('Succ ('Succ ('Succ ('Succ a))))
-testdata/Builtins.lc 90:12-90:16  Bool
-testdata/Builtins.lc 90:17-90:21  Bool
-testdata/Builtins.lc 90:22-90:26  Bool
-testdata/Builtins.lc 90:27-90:31  Bool
-testdata/Builtins.lc 92:7-92:15  Type -> Type
-testdata/Builtins.lc 97:7-97:15  Type -> Type
-testdata/Builtins.lc 118:1-118:8  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Builtins.lc 118:10-118:17  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Builtins.lc 118:19-118:26  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Builtins.lc 118:34-118:37  Type -> Type
-testdata/Builtins.lc 118:34-118:58  Type
-testdata/Builtins.lc 118:34-118:73  Type
-testdata/Builtins.lc 118:39-118:55  Type -> Type
-testdata/Builtins.lc 118:39-118:57  Type
-testdata/Builtins.lc 118:56-118:57  _b
-testdata/Builtins.lc 118:62-118:63  Type
-testdata/Builtins.lc 118:62-118:73  Type
-testdata/Builtins.lc 118:67-118:68  Type
-testdata/Builtins.lc 118:67-118:73  Type
-testdata/Builtins.lc 118:72-118:73  Type
-testdata/Builtins.lc 119:1-119:9  forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
-testdata/Builtins.lc 119:11-119:19  forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
-testdata/Builtins.lc 119:21-119:29  forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
-testdata/Builtins.lc 119:34-119:80  Type
-testdata/Builtins.lc 119:35-119:36  _e
-testdata/Builtins.lc 119:35-119:38  _d -> Type
-testdata/Builtins.lc 119:35-119:57  Type
-testdata/Builtins.lc 119:37-119:38  forall a . a -> a -> Type
-testdata/Builtins.lc 119:39-119:55  Type -> Type
-testdata/Builtins.lc 119:39-119:57  Type
-testdata/Builtins.lc 119:56-119:57  _b
-testdata/Builtins.lc 119:59-119:62  Type -> Type
-testdata/Builtins.lc 119:59-119:64  Type
-testdata/Builtins.lc 119:59-119:80  Type
-testdata/Builtins.lc 119:63-119:64  Type
-testdata/Builtins.lc 119:69-119:70  Type
-testdata/Builtins.lc 119:69-119:80  Type
-testdata/Builtins.lc 119:74-119:75  Type
-testdata/Builtins.lc 119:74-119:80  Type
-testdata/Builtins.lc 119:79-119:80  Type
-testdata/Builtins.lc 120:1-120:8  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Builtins.lc 120:10-120:17  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Builtins.lc 120:34-120:75  Type
-testdata/Builtins.lc 120:35-120:38  Type -> Type
-testdata/Builtins.lc 120:35-120:40  Type
-testdata/Builtins.lc 120:39-120:40  _f
-testdata/Builtins.lc 120:42-120:43  _f
-testdata/Builtins.lc 120:42-120:45  _e -> Type
-testdata/Builtins.lc 120:42-120:59  Type
-testdata/Builtins.lc 120:42-120:75  Type
-testdata/Builtins.lc 120:44-120:45  forall a . a -> a -> Type
-testdata/Builtins.lc 120:46-120:55  Nat -> Type -> Type
-testdata/Builtins.lc 120:46-120:57  Type -> Type
-testdata/Builtins.lc 120:46-120:59  Type
-testdata/Builtins.lc 120:56-120:57  _c
-testdata/Builtins.lc 120:58-120:59  Type
-testdata/Builtins.lc 120:64-120:65  Type
-testdata/Builtins.lc 120:64-120:75  Type
-testdata/Builtins.lc 120:69-120:70  Type
-testdata/Builtins.lc 120:69-120:75  Type
-testdata/Builtins.lc 120:74-120:75  Type
-testdata/Builtins.lc 121:1-121:9  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-testdata/Builtins.lc 121:11-121:19  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-testdata/Builtins.lc 121:34-121:75  Type
-testdata/Builtins.lc 121:35-121:38  Type -> Type
-testdata/Builtins.lc 121:35-121:40  Type
-testdata/Builtins.lc 121:39-121:40  _f
-testdata/Builtins.lc 121:42-121:43  _f
-testdata/Builtins.lc 121:42-121:45  _e -> Type
-testdata/Builtins.lc 121:42-121:59  Type
-testdata/Builtins.lc 121:42-121:75  Type
-testdata/Builtins.lc 121:44-121:45  forall a . a -> a -> Type
-testdata/Builtins.lc 121:46-121:55  Nat -> Type -> Type
-testdata/Builtins.lc 121:46-121:57  Type -> Type
-testdata/Builtins.lc 121:46-121:59  Type
-testdata/Builtins.lc 121:56-121:57  _c
-testdata/Builtins.lc 121:58-121:59  Type
-testdata/Builtins.lc 121:64-121:65  Type
-testdata/Builtins.lc 121:64-121:75  Type
-testdata/Builtins.lc 121:69-121:70  Type
-testdata/Builtins.lc 121:69-121:75  Type
-testdata/Builtins.lc 121:74-121:75  Type
-testdata/Builtins.lc 122:1-122:8  forall a . Signed (MatVecScalarElem a) => a -> a
-testdata/Builtins.lc 122:34-122:40  Type -> Type
-testdata/Builtins.lc 122:34-122:61  Type
-testdata/Builtins.lc 122:34-122:71  Type
-testdata/Builtins.lc 122:42-122:58  Type -> Type
-testdata/Builtins.lc 122:42-122:60  Type
-testdata/Builtins.lc 122:59-122:60  _b
-testdata/Builtins.lc 122:65-122:66  Type
-testdata/Builtins.lc 122:65-122:71  Type
-testdata/Builtins.lc 122:70-122:71  Type
-testdata/Builtins.lc 124:1-124:9  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-testdata/Builtins.lc 124:11-124:18  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-testdata/Builtins.lc 124:20-124:28  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-testdata/Builtins.lc 124:34-124:80  Type
-testdata/Builtins.lc 124:35-124:43  Type -> Type
-testdata/Builtins.lc 124:35-124:45  Type
-testdata/Builtins.lc 124:44-124:45  _f
-testdata/Builtins.lc 124:47-124:48  _f
-testdata/Builtins.lc 124:47-124:50  _e -> Type
-testdata/Builtins.lc 124:47-124:64  Type
-testdata/Builtins.lc 124:47-124:80  Type
-testdata/Builtins.lc 124:49-124:50  forall a . a -> a -> Type
-testdata/Builtins.lc 124:51-124:60  Nat -> Type -> Type
-testdata/Builtins.lc 124:51-124:62  Type -> Type
-testdata/Builtins.lc 124:51-124:64  Type
-testdata/Builtins.lc 124:61-124:62  _c
-testdata/Builtins.lc 124:63-124:64  Type
-testdata/Builtins.lc 124:69-124:70  Type
-testdata/Builtins.lc 124:69-124:80  Type
-testdata/Builtins.lc 124:74-124:75  Type
-testdata/Builtins.lc 124:74-124:80  Type
-testdata/Builtins.lc 124:79-124:80  Type
-testdata/Builtins.lc 125:1-125:10  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-testdata/Builtins.lc 125:12-125:20  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-testdata/Builtins.lc 125:22-125:31  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-testdata/Builtins.lc 125:34-125:80  Type
-testdata/Builtins.lc 125:35-125:43  Type -> Type
-testdata/Builtins.lc 125:35-125:45  Type
-testdata/Builtins.lc 125:44-125:45  _f
-testdata/Builtins.lc 125:47-125:48  _f
-testdata/Builtins.lc 125:47-125:50  _e -> Type
-testdata/Builtins.lc 125:47-125:64  Type
-testdata/Builtins.lc 125:47-125:80  Type
-testdata/Builtins.lc 125:49-125:50  forall a . a -> a -> Type
-testdata/Builtins.lc 125:51-125:60  Nat -> Type -> Type
-testdata/Builtins.lc 125:51-125:62  Type -> Type
-testdata/Builtins.lc 125:51-125:64  Type
-testdata/Builtins.lc 125:61-125:62  _c
-testdata/Builtins.lc 125:63-125:64  Type
-testdata/Builtins.lc 125:69-125:70  Type
-testdata/Builtins.lc 125:69-125:80  Type
-testdata/Builtins.lc 125:74-125:75  Type
-testdata/Builtins.lc 125:74-125:80  Type
-testdata/Builtins.lc 125:79-125:80  Type
-testdata/Builtins.lc 126:1-126:9  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
-testdata/Builtins.lc 126:34-126:75  Type
-testdata/Builtins.lc 126:35-126:43  Type -> Type
-testdata/Builtins.lc 126:35-126:45  Type
-testdata/Builtins.lc 126:44-126:45  _f
-testdata/Builtins.lc 126:47-126:48  _f
-testdata/Builtins.lc 126:47-126:50  _e -> Type
-testdata/Builtins.lc 126:47-126:64  Type
-testdata/Builtins.lc 126:47-126:75  Type
-testdata/Builtins.lc 126:49-126:50  forall a . a -> a -> Type
-testdata/Builtins.lc 126:51-126:60  Nat -> Type -> Type
-testdata/Builtins.lc 126:51-126:62  Type -> Type
-testdata/Builtins.lc 126:51-126:64  Type
-testdata/Builtins.lc 126:61-126:62  _c
-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:34-127:102  Type
-testdata/Builtins.lc 127:35-127:43  Type -> Type
-testdata/Builtins.lc 127:35-127:45  Type
-testdata/Builtins.lc 127:44-127:45  _h
-testdata/Builtins.lc 127:47-127:48  _h
-testdata/Builtins.lc 127:47-127:50  _g -> Type
-testdata/Builtins.lc 127:47-127:64  Type
-testdata/Builtins.lc 127:47-127:102  Type
-testdata/Builtins.lc 127:49-127:50  forall a . a -> a -> Type
-testdata/Builtins.lc 127:51-127:60  Nat -> Type -> Type
-testdata/Builtins.lc 127:51-127:62  Type -> Type
-testdata/Builtins.lc 127:51-127:64  Type
-testdata/Builtins.lc 127:61-127:62  _e
-testdata/Builtins.lc 127:63-127:64  Type
-testdata/Builtins.lc 127:66-127:67  _e
-testdata/Builtins.lc 127:66-127:69  _d -> Type
-testdata/Builtins.lc 127:66-127:86  Type
-testdata/Builtins.lc 127:66-127:102  Type
-testdata/Builtins.lc 127:68-127:69  forall a . a -> a -> Type
-testdata/Builtins.lc 127:70-127:79  Nat -> Type -> Type
-testdata/Builtins.lc 127:70-127:81  Type -> Type
-testdata/Builtins.lc 127:70-127:86  Type
-testdata/Builtins.lc 127:80-127:81  Nat
-testdata/Builtins.lc 127:82-127:86  Type
-testdata/Builtins.lc 127:91-127:92  Type
-testdata/Builtins.lc 127:91-127:102  Type
-testdata/Builtins.lc 127:96-127:97  Type
-testdata/Builtins.lc 127:96-127:102  Type
-testdata/Builtins.lc 127:101-127:102  Type
-testdata/Builtins.lc 128:1-128:13  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
-testdata/Builtins.lc 128:15-128:27  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
-testdata/Builtins.lc 128:34-128:83  Type
-testdata/Builtins.lc 128:35-128:43  Type -> Type
-testdata/Builtins.lc 128:35-128:45  Type
-testdata/Builtins.lc 128:44-128:45  _f
-testdata/Builtins.lc 128:47-128:48  _f
-testdata/Builtins.lc 128:47-128:50  _e -> Type
-testdata/Builtins.lc 128:47-128:64  Type
-testdata/Builtins.lc 128:47-128:83  Type
-testdata/Builtins.lc 128:49-128:50  forall a . a -> a -> Type
-testdata/Builtins.lc 128:51-128:60  Nat -> Type -> Type
-testdata/Builtins.lc 128:51-128:62  Type -> Type
-testdata/Builtins.lc 128:51-128:64  Type
-testdata/Builtins.lc 128:61-128:62  _c
-testdata/Builtins.lc 128:63-128:64  Type
-testdata/Builtins.lc 128:69-128:70  Type
-testdata/Builtins.lc 128:69-128:83  Type
-testdata/Builtins.lc 128:74-128:78  Type
-testdata/Builtins.lc 128:74-128:83  Type
-testdata/Builtins.lc 128:82-128:83  Type
-testdata/Builtins.lc 130:1-130:8  Bool -> Bool -> Bool
-testdata/Builtins.lc 130:10-130:16  Bool -> Bool -> Bool
-testdata/Builtins.lc 130:18-130:25  Bool -> Bool -> Bool
-testdata/Builtins.lc 130:34-130:38  Type
-testdata/Builtins.lc 130:42-130:46  Type
-testdata/Builtins.lc 130:42-130:54  Type
-testdata/Builtins.lc 130:50-130:54  Type
-testdata/Builtins.lc 131:1-131:8  forall a (b :: Nat) . (a ~ VecScalar b Bool) => a -> a
-testdata/Builtins.lc 131:47-131:79  Type
-testdata/Builtins.lc 131:48-131:49  _e
-testdata/Builtins.lc 131:48-131:51  _d -> Type
-testdata/Builtins.lc 131:48-131:68  Type
-testdata/Builtins.lc 131:50-131:51  forall a . a -> a -> Type
-testdata/Builtins.lc 131:52-131:61  Nat -> Type -> Type
-testdata/Builtins.lc 131:52-131:63  Type -> Type
-testdata/Builtins.lc 131:52-131:68  Type
-testdata/Builtins.lc 131:62-131:63  _b
-testdata/Builtins.lc 131:64-131:68  Type
-testdata/Builtins.lc 131:73-131:74  Type
-testdata/Builtins.lc 131:73-131:79  Type
-testdata/Builtins.lc 131:78-131:79  Type
-testdata/Builtins.lc 132:1-132:8  forall (a :: Nat) . VecScalar a Bool -> Bool
-testdata/Builtins.lc 132:10-132:17  forall (a :: Nat) . VecScalar a Bool -> Bool
-testdata/Builtins.lc 132:34-132:43  Nat -> Type -> Type
-testdata/Builtins.lc 132:34-132:45  Type -> Type
-testdata/Builtins.lc 132:34-132:50  Type
-testdata/Builtins.lc 132:34-132:58  Type
-testdata/Builtins.lc 132:44-132:45  _b
-testdata/Builtins.lc 132:46-132:50  Type
-testdata/Builtins.lc 132:54-132:58  Type
-testdata/Builtins.lc 135:1-135:9  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:11-135:20  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:22-135:30  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:32-135:41  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:43-135:51  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:53-135:62  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:64-135:71  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:73-135:81  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:83-135:94  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:96-135:107  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:109-135:116  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:118-135:126  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:128-135:135  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:137-135:145  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:147-135:154  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:156-135:163  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:165-135:173  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:175-135:183  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:185-135:193  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 135:195-135:206  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 136:34-136:67  Type
-testdata/Builtins.lc 136:35-136:36  _e
-testdata/Builtins.lc 136:35-136:38  _d -> Type
-testdata/Builtins.lc 136:35-136:56  Type
-testdata/Builtins.lc 136:37-136:38  forall a . a -> a -> Type
-testdata/Builtins.lc 136:39-136:48  Nat -> Type -> Type
-testdata/Builtins.lc 136:39-136:50  Type -> Type
-testdata/Builtins.lc 136:39-136:56  Type
-testdata/Builtins.lc 136:49-136:50  _b
-testdata/Builtins.lc 136:51-136:56  Type
-testdata/Builtins.lc 136:61-136:62  Type
-testdata/Builtins.lc 136:61-136:67  Type
-testdata/Builtins.lc 136:66-136:67  Type
-testdata/Builtins.lc 137:1-137:8  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-testdata/Builtins.lc 137:10-137:19  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-testdata/Builtins.lc 137:34-137:72  Type
-testdata/Builtins.lc 137:35-137:36  _e
-testdata/Builtins.lc 137:35-137:38  _d -> Type
-testdata/Builtins.lc 137:35-137:56  Type
-testdata/Builtins.lc 137:37-137:38  forall a . a -> a -> Type
-testdata/Builtins.lc 137:39-137:48  Nat -> Type -> Type
-testdata/Builtins.lc 137:39-137:50  Type -> Type
-testdata/Builtins.lc 137:39-137:56  Type
-testdata/Builtins.lc 137:49-137:50  _b
-testdata/Builtins.lc 137:51-137:56  Type
-testdata/Builtins.lc 137:61-137:62  Type
-testdata/Builtins.lc 137:61-137:72  Type
-testdata/Builtins.lc 137:66-137:67  Type
-testdata/Builtins.lc 137:66-137:72  Type
-testdata/Builtins.lc 137:71-137:72  Type
-testdata/Builtins.lc 139:1-139:10  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 139:12-139:21  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 139:23-139:32  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 139:34-139:47  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 139:49-139:57  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 139:59-139:68  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 140:34-140:67  Type
-testdata/Builtins.lc 140:35-140:36  _e
-testdata/Builtins.lc 140:35-140:38  _d -> Type
-testdata/Builtins.lc 140:35-140:56  Type
-testdata/Builtins.lc 140:37-140:38  forall a . a -> a -> Type
-testdata/Builtins.lc 140:39-140:48  Nat -> Type -> Type
-testdata/Builtins.lc 140:39-140:50  Type -> Type
-testdata/Builtins.lc 140:39-140:56  Type
-testdata/Builtins.lc 140:49-140:50  _b
-testdata/Builtins.lc 140:51-140:56  Type
-testdata/Builtins.lc 140:61-140:62  Type
-testdata/Builtins.lc 140:61-140:67  Type
-testdata/Builtins.lc 140:66-140:67  Type
-testdata/Builtins.lc 141:1-141:8  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Builtins.lc 141:10-141:17  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Builtins.lc 141:34-141:75  Type
-testdata/Builtins.lc 141:35-141:38  Type -> Type
-testdata/Builtins.lc 141:35-141:40  Type
-testdata/Builtins.lc 141:39-141:40  _f
-testdata/Builtins.lc 141:42-141:43  _f
-testdata/Builtins.lc 141:42-141:45  _e -> Type
-testdata/Builtins.lc 141:42-141:59  Type
-testdata/Builtins.lc 141:42-141:75  Type
-testdata/Builtins.lc 141:44-141:45  forall a . a -> a -> Type
-testdata/Builtins.lc 141:46-141:55  Nat -> Type -> Type
-testdata/Builtins.lc 141:46-141:57  Type -> Type
-testdata/Builtins.lc 141:46-141:59  Type
-testdata/Builtins.lc 141:56-141:57  _c
-testdata/Builtins.lc 141:58-141:59  Type
-testdata/Builtins.lc 141:64-141:65  Type
-testdata/Builtins.lc 141:64-141:75  Type
-testdata/Builtins.lc 141:69-141:70  Type
-testdata/Builtins.lc 141:69-141:75  Type
-testdata/Builtins.lc 141:74-141:75  Type
-testdata/Builtins.lc 142:1-142:9  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-testdata/Builtins.lc 142:11-142:19  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-testdata/Builtins.lc 142:34-142:75  Type
-testdata/Builtins.lc 142:35-142:38  Type -> Type
-testdata/Builtins.lc 142:35-142:40  Type
-testdata/Builtins.lc 142:39-142:40  _f
-testdata/Builtins.lc 142:42-142:43  _f
-testdata/Builtins.lc 142:42-142:45  _e -> Type
-testdata/Builtins.lc 142:42-142:59  Type
-testdata/Builtins.lc 142:42-142:75  Type
-testdata/Builtins.lc 142:44-142:45  forall a . a -> a -> Type
-testdata/Builtins.lc 142:46-142:55  Nat -> Type -> Type
-testdata/Builtins.lc 142:46-142:57  Type -> Type
-testdata/Builtins.lc 142:46-142:59  Type
-testdata/Builtins.lc 142:56-142:57  _c
-testdata/Builtins.lc 142:58-142:59  Type
-testdata/Builtins.lc 142:64-142:65  Type
-testdata/Builtins.lc 142:64-142:75  Type
-testdata/Builtins.lc 142:69-142:70  Type
-testdata/Builtins.lc 142:69-142:75  Type
-testdata/Builtins.lc 142:74-142:75  Type
-testdata/Builtins.lc 143:1-143:10  forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-testdata/Builtins.lc 143:12-143:21  forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-testdata/Builtins.lc 143:34-143:89  Type
-testdata/Builtins.lc 143:35-143:36  _g
-testdata/Builtins.lc 143:35-143:38  _f -> Type
-testdata/Builtins.lc 143:35-143:56  Type
-testdata/Builtins.lc 143:37-143:38  forall a . a -> a -> Type
-testdata/Builtins.lc 143:39-143:48  Nat -> Type -> Type
-testdata/Builtins.lc 143:39-143:50  Type -> Type
-testdata/Builtins.lc 143:39-143:56  Type
-testdata/Builtins.lc 143:49-143:50  _d
-testdata/Builtins.lc 143:51-143:56  Type
-testdata/Builtins.lc 143:58-143:59  _d
-testdata/Builtins.lc 143:58-143:61  _c -> Type
-testdata/Builtins.lc 143:58-143:78  Type
-testdata/Builtins.lc 143:58-143:89  Type
-testdata/Builtins.lc 143:60-143:61  forall a . a -> a -> Type
-testdata/Builtins.lc 143:62-143:71  Nat -> Type -> Type
-testdata/Builtins.lc 143:62-143:73  Type -> Type
-testdata/Builtins.lc 143:62-143:78  Type
-testdata/Builtins.lc 143:72-143:73  Nat
-testdata/Builtins.lc 143:74-143:78  Type
-testdata/Builtins.lc 143:83-143:84  Type
-testdata/Builtins.lc 143:83-143:89  Type
-testdata/Builtins.lc 143:88-143:89  Type
-testdata/Builtins.lc 144:1-144:8  forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-testdata/Builtins.lc 144:10-144:18  forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-testdata/Builtins.lc 144:34-144:73  Type
-testdata/Builtins.lc 144:35-144:41  Type -> Type
-testdata/Builtins.lc 144:35-144:43  Type
-testdata/Builtins.lc 144:42-144:43  _f
-testdata/Builtins.lc 144:45-144:46  _f
-testdata/Builtins.lc 144:45-144:48  _e -> Type
-testdata/Builtins.lc 144:45-144:62  Type
-testdata/Builtins.lc 144:45-144:73  Type
-testdata/Builtins.lc 144:47-144:48  forall a . a -> a -> Type
-testdata/Builtins.lc 144:49-144:58  Nat -> Type -> Type
-testdata/Builtins.lc 144:49-144:60  Type -> Type
-testdata/Builtins.lc 144:49-144:62  Type
-testdata/Builtins.lc 144:59-144:60  _c
-testdata/Builtins.lc 144:61-144:62  Type
-testdata/Builtins.lc 144:67-144:68  Type
-testdata/Builtins.lc 144:67-144:73  Type
-testdata/Builtins.lc 144:72-144:73  Type
-testdata/Builtins.lc 145:1-145:9  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
-testdata/Builtins.lc 145:34-145:72  Type
-testdata/Builtins.lc 145:35-145:36  _e
-testdata/Builtins.lc 145:35-145:38  _d -> Type
-testdata/Builtins.lc 145:35-145:56  Type
-testdata/Builtins.lc 145:37-145:38  forall a . a -> a -> Type
-testdata/Builtins.lc 145:39-145:48  Nat -> Type -> Type
-testdata/Builtins.lc 145:39-145:50  Type -> Type
-testdata/Builtins.lc 145:39-145:56  Type
-testdata/Builtins.lc 145:49-145:50  _b
-testdata/Builtins.lc 145:51-145:56  Type
-testdata/Builtins.lc 145:61-145:62  Type
-testdata/Builtins.lc 145:61-145:72  Type
-testdata/Builtins.lc 145:66-145:72  Type
-testdata/Builtins.lc 145:67-145:68  Type
-testdata/Builtins.lc 145:67-145:71  List Type
-testdata/Builtins.lc 145:70-145:71  List Type | Type
-testdata/Builtins.lc 146:1-146:10  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
-testdata/Builtins.lc 146:34-146:80  Type
-testdata/Builtins.lc 146:35-146:38  Type -> Type
-testdata/Builtins.lc 146:35-146:40  Type
-testdata/Builtins.lc 146:39-146:40  _f
-testdata/Builtins.lc 146:42-146:43  _f
-testdata/Builtins.lc 146:42-146:45  _e -> Type
-testdata/Builtins.lc 146:42-146:59  Type
-testdata/Builtins.lc 146:42-146:80  Type
-testdata/Builtins.lc 146:44-146:45  forall a . a -> a -> Type
-testdata/Builtins.lc 146:46-146:55  Nat -> Type -> Type
-testdata/Builtins.lc 146:46-146:57  Type -> Type
-testdata/Builtins.lc 146:46-146:59  Type
-testdata/Builtins.lc 146:56-146:57  _c
-testdata/Builtins.lc 146:58-146:59  Type
-testdata/Builtins.lc 146:64-146:65  Type
-testdata/Builtins.lc 146:64-146:80  Type
-testdata/Builtins.lc 146:69-146:70  Type
-testdata/Builtins.lc 146:69-146:80  Type
-testdata/Builtins.lc 146:74-146:75  Type
-testdata/Builtins.lc 146:74-146:80  Type
-testdata/Builtins.lc 146:79-146:80  Type
-testdata/Builtins.lc 147:1-147:11  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
-testdata/Builtins.lc 147:34-147:80  Type
-testdata/Builtins.lc 147:35-147:38  Type -> Type
-testdata/Builtins.lc 147:35-147:40  Type
-testdata/Builtins.lc 147:39-147:40  _f
-testdata/Builtins.lc 147:42-147:43  _f
-testdata/Builtins.lc 147:42-147:45  _e -> Type
-testdata/Builtins.lc 147:42-147:59  Type
-testdata/Builtins.lc 147:42-147:80  Type
-testdata/Builtins.lc 147:44-147:45  forall a . a -> a -> Type
-testdata/Builtins.lc 147:46-147:55  Nat -> Type -> Type
-testdata/Builtins.lc 147:46-147:57  Type -> Type
-testdata/Builtins.lc 147:46-147:59  Type
-testdata/Builtins.lc 147:56-147:57  _c
-testdata/Builtins.lc 147:58-147:59  Type
-testdata/Builtins.lc 147:64-147:65  Type
-testdata/Builtins.lc 147:64-147:80  Type
-testdata/Builtins.lc 147:69-147:70  Type
-testdata/Builtins.lc 147:69-147:80  Type
-testdata/Builtins.lc 147:74-147:75  Type
-testdata/Builtins.lc 147:74-147:80  Type
-testdata/Builtins.lc 147:79-147:80  Type
-testdata/Builtins.lc 148:1-148:8  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-testdata/Builtins.lc 148:34-148:77  Type
-testdata/Builtins.lc 148:35-148:36  _e
-testdata/Builtins.lc 148:35-148:38  _d -> Type
-testdata/Builtins.lc 148:35-148:56  Type
-testdata/Builtins.lc 148:37-148:38  forall a . a -> a -> Type
-testdata/Builtins.lc 148:39-148:48  Nat -> Type -> Type
-testdata/Builtins.lc 148:39-148:50  Type -> Type
-testdata/Builtins.lc 148:39-148:56  Type
-testdata/Builtins.lc 148:49-148:50  _b
-testdata/Builtins.lc 148:51-148:56  Type
-testdata/Builtins.lc 148:61-148:62  Type
-testdata/Builtins.lc 148:61-148:77  Type
-testdata/Builtins.lc 148:66-148:67  Type
-testdata/Builtins.lc 148:66-148:77  Type
-testdata/Builtins.lc 148:71-148:72  Type
-testdata/Builtins.lc 148:71-148:77  Type
-testdata/Builtins.lc 148:76-148:77  Type
-testdata/Builtins.lc 149:1-149:9  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
-testdata/Builtins.lc 149:34-149:81  Type
-testdata/Builtins.lc 149:35-149:36  _e
-testdata/Builtins.lc 149:35-149:38  _d -> Type
-testdata/Builtins.lc 149:35-149:56  Type
-testdata/Builtins.lc 149:37-149:38  forall a . a -> a -> Type
-testdata/Builtins.lc 149:39-149:48  Nat -> Type -> Type
-testdata/Builtins.lc 149:39-149:50  Type -> Type
-testdata/Builtins.lc 149:39-149:56  Type
-testdata/Builtins.lc 149:49-149:50  _b
-testdata/Builtins.lc 149:51-149:56  Type
-testdata/Builtins.lc 149:61-149:62  Type
-testdata/Builtins.lc 149:61-149:81  Type
-testdata/Builtins.lc 149:66-149:67  Type
-testdata/Builtins.lc 149:66-149:81  Type
-testdata/Builtins.lc 149:71-149:76  Type
-testdata/Builtins.lc 149:71-149:81  Type
-testdata/Builtins.lc 149:80-149:81  Type
-testdata/Builtins.lc 150:1-150:9  forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
-testdata/Builtins.lc 150:34-150:99  Type
-testdata/Builtins.lc 150:35-150:36  _g
-testdata/Builtins.lc 150:35-150:38  _f -> Type
-testdata/Builtins.lc 150:35-150:56  Type
-testdata/Builtins.lc 150:37-150:38  forall a . a -> a -> Type
-testdata/Builtins.lc 150:39-150:48  Nat -> Type -> Type
-testdata/Builtins.lc 150:39-150:50  Type -> Type
-testdata/Builtins.lc 150:39-150:56  Type
-testdata/Builtins.lc 150:49-150:50  _d
-testdata/Builtins.lc 150:51-150:56  Type
-testdata/Builtins.lc 150:58-150:59  _d
-testdata/Builtins.lc 150:58-150:61  _c -> Type
-testdata/Builtins.lc 150:58-150:78  Type
-testdata/Builtins.lc 150:58-150:99  Type
-testdata/Builtins.lc 150:60-150:61  forall a . a -> a -> Type
-testdata/Builtins.lc 150:62-150:71  Nat -> Type -> Type
-testdata/Builtins.lc 150:62-150:73  Type -> Type
-testdata/Builtins.lc 150:62-150:78  Type
-testdata/Builtins.lc 150:72-150:73  Nat
-testdata/Builtins.lc 150:74-150:78  Type
-testdata/Builtins.lc 150:83-150:84  Type
-testdata/Builtins.lc 150:83-150:99  Type
-testdata/Builtins.lc 150:88-150:89  Type
-testdata/Builtins.lc 150:88-150:99  Type
-testdata/Builtins.lc 150:93-150:94  Type
-testdata/Builtins.lc 150:93-150:99  Type
-testdata/Builtins.lc 150:98-150:99  Type
-testdata/Builtins.lc 151:1-151:9  forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
-testdata/Builtins.lc 151:34-151:66  Type
-testdata/Builtins.lc 151:35-151:36  _e
-testdata/Builtins.lc 151:35-151:38  _d -> Type
-testdata/Builtins.lc 151:35-151:50  Type
-testdata/Builtins.lc 151:37-151:38  forall a . a -> a -> Type
-testdata/Builtins.lc 151:39-151:42  Nat -> Type -> Type
-testdata/Builtins.lc 151:39-151:44  Type -> Type
-testdata/Builtins.lc 151:39-151:50  Type
-testdata/Builtins.lc 151:43-151:44  _b
-testdata/Builtins.lc 151:45-151:50  Type
-testdata/Builtins.lc 151:55-151:56  Type
-testdata/Builtins.lc 151:55-151:66  Type
-testdata/Builtins.lc 151:60-151:61  Type
-testdata/Builtins.lc 151:60-151:66  Type
-testdata/Builtins.lc 151:65-151:66  Type
-testdata/Builtins.lc 152:1-152:10  forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
-testdata/Builtins.lc 152:34-152:76  Type
-testdata/Builtins.lc 152:35-152:36  _e
-testdata/Builtins.lc 152:35-152:38  _d -> Type
-testdata/Builtins.lc 152:35-152:56  Type
-testdata/Builtins.lc 152:37-152:38  forall a . a -> a -> Type
-testdata/Builtins.lc 152:39-152:48  Nat -> Type -> Type
-testdata/Builtins.lc 152:39-152:50  Type -> Type
-testdata/Builtins.lc 152:39-152:56  Type
-testdata/Builtins.lc 152:49-152:50  _b
-testdata/Builtins.lc 152:51-152:56  Type
-testdata/Builtins.lc 152:61-152:66  Type
-testdata/Builtins.lc 152:61-152:76  Type
-testdata/Builtins.lc 152:70-152:71  Type
-testdata/Builtins.lc 152:70-152:76  Type
-testdata/Builtins.lc 152:75-152:76  Type
-testdata/Builtins.lc 153:1-153:15  forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
-testdata/Builtins.lc 153:34-153:71  Type
-testdata/Builtins.lc 153:35-153:36  _e
-testdata/Builtins.lc 153:35-153:38  _d -> Type
-testdata/Builtins.lc 153:35-153:50  Type
-testdata/Builtins.lc 153:37-153:38  forall a . a -> a -> Type
-testdata/Builtins.lc 153:39-153:42  Nat -> Type -> Type
-testdata/Builtins.lc 153:39-153:44  Type -> Type
-testdata/Builtins.lc 153:39-153:50  Type
-testdata/Builtins.lc 153:43-153:44  _b
-testdata/Builtins.lc 153:45-153:50  Type
-testdata/Builtins.lc 153:55-153:56  Type
-testdata/Builtins.lc 153:55-153:71  Type
-testdata/Builtins.lc 153:60-153:61  Type
-testdata/Builtins.lc 153:60-153:71  Type
-testdata/Builtins.lc 153:65-153:66  Type
-testdata/Builtins.lc 153:65-153:71  Type
-testdata/Builtins.lc 153:70-153:71  Type
-testdata/Builtins.lc 154:1-154:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
-testdata/Builtins.lc 154:34-154:85  Type
-testdata/Builtins.lc 154:35-154:36  _e
-testdata/Builtins.lc 154:35-154:38  _d -> Type
-testdata/Builtins.lc 154:35-154:56  Type
-testdata/Builtins.lc 154:37-154:38  forall a . a -> a -> Type
-testdata/Builtins.lc 154:39-154:48  Nat -> Type -> Type
-testdata/Builtins.lc 154:39-154:50  Type -> Type
-testdata/Builtins.lc 154:39-154:56  Type
-testdata/Builtins.lc 154:49-154:50  _b
-testdata/Builtins.lc 154:51-154:56  Type
-testdata/Builtins.lc 154:61-154:66  Type
-testdata/Builtins.lc 154:61-154:85  Type
-testdata/Builtins.lc 154:70-154:75  Type
-testdata/Builtins.lc 154:70-154:85  Type
-testdata/Builtins.lc 154:79-154:80  Type
-testdata/Builtins.lc 154:79-154:85  Type
-testdata/Builtins.lc 154:84-154:85  Type
-testdata/Builtins.lc 157:1-157:19  forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
-testdata/Builtins.lc 157:34-157:43  Nat -> Type -> Type
-testdata/Builtins.lc 157:34-157:45  Type -> Type
-testdata/Builtins.lc 157:34-157:51  Type
-testdata/Builtins.lc 157:34-157:70  Type
-testdata/Builtins.lc 157:44-157:45  _b
-testdata/Builtins.lc 157:46-157:51  Type
-testdata/Builtins.lc 157:55-157:64  Nat -> Type -> Type
-testdata/Builtins.lc 157:55-157:66  Type -> Type
-testdata/Builtins.lc 157:55-157:70  Type
-testdata/Builtins.lc 157:65-157:66  Nat
-testdata/Builtins.lc 157:67-157:70  Type
-testdata/Builtins.lc 158:1-158:20  forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
-testdata/Builtins.lc 158:34-158:43  Nat -> Type -> Type
-testdata/Builtins.lc 158:34-158:45  Type -> Type
-testdata/Builtins.lc 158:34-158:51  Type
-testdata/Builtins.lc 158:34-158:71  Type
-testdata/Builtins.lc 158:44-158:45  _b
-testdata/Builtins.lc 158:46-158:51  Type
-testdata/Builtins.lc 158:55-158:64  Nat -> Type -> Type
-testdata/Builtins.lc 158:55-158:66  Type -> Type
-testdata/Builtins.lc 158:55-158:71  Type
-testdata/Builtins.lc 158:65-158:66  Nat
-testdata/Builtins.lc 158:67-158:71  Type
-testdata/Builtins.lc 159:1-159:19  forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
-testdata/Builtins.lc 159:34-159:43  Nat -> Type -> Type
-testdata/Builtins.lc 159:34-159:45  Type -> Type
-testdata/Builtins.lc 159:34-159:49  Type
-testdata/Builtins.lc 159:34-159:72  Type
-testdata/Builtins.lc 159:44-159:45  _b
-testdata/Builtins.lc 159:46-159:49  Type
-testdata/Builtins.lc 159:55-159:64  Nat -> Type -> Type
-testdata/Builtins.lc 159:55-159:66  Type -> Type
-testdata/Builtins.lc 159:55-159:72  Type
-testdata/Builtins.lc 159:65-159:66  Nat
-testdata/Builtins.lc 159:67-159:72  Type
-testdata/Builtins.lc 160:1-160:20  forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
-testdata/Builtins.lc 160:34-160:43  Nat -> Type -> Type
-testdata/Builtins.lc 160:34-160:45  Type -> Type
-testdata/Builtins.lc 160:34-160:50  Type
-testdata/Builtins.lc 160:34-160:72  Type
-testdata/Builtins.lc 160:44-160:45  _b
-testdata/Builtins.lc 160:46-160:50  Type
-testdata/Builtins.lc 160:55-160:64  Nat -> Type -> Type
-testdata/Builtins.lc 160:55-160:66  Type -> Type
-testdata/Builtins.lc 160:55-160:72  Type
-testdata/Builtins.lc 160:65-160:66  Nat
-testdata/Builtins.lc 160:67-160:72  Type
-testdata/Builtins.lc 162:1-162:11  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
-testdata/Builtins.lc 162:34-162:71  Type
-testdata/Builtins.lc 162:35-162:36  _e
-testdata/Builtins.lc 162:35-162:38  _d -> Type
-testdata/Builtins.lc 162:35-162:56  Type
-testdata/Builtins.lc 162:37-162:38  forall a . a -> a -> Type
-testdata/Builtins.lc 162:39-162:48  Nat -> Type -> Type
-testdata/Builtins.lc 162:39-162:50  Type -> Type
-testdata/Builtins.lc 162:39-162:56  Type
-testdata/Builtins.lc 162:49-162:50  _b
-testdata/Builtins.lc 162:51-162:56  Type
-testdata/Builtins.lc 162:61-162:62  Type
-testdata/Builtins.lc 162:61-162:71  Type
-testdata/Builtins.lc 162:66-162:71  Type
-testdata/Builtins.lc 163:1-163:13  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-testdata/Builtins.lc 163:15-163:22  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-testdata/Builtins.lc 163:34-163:76  Type
-testdata/Builtins.lc 163:35-163:36  _e
-testdata/Builtins.lc 163:35-163:38  _d -> Type
-testdata/Builtins.lc 163:35-163:56  Type
-testdata/Builtins.lc 163:37-163:38  forall a . a -> a -> Type
-testdata/Builtins.lc 163:39-163:48  Nat -> Type -> Type
-testdata/Builtins.lc 163:39-163:50  Type -> Type
-testdata/Builtins.lc 163:39-163:56  Type
-testdata/Builtins.lc 163:49-163:50  _b
-testdata/Builtins.lc 163:51-163:56  Type
-testdata/Builtins.lc 163:61-163:62  Type
-testdata/Builtins.lc 163:61-163:76  Type
-testdata/Builtins.lc 163:66-163:67  Type
-testdata/Builtins.lc 163:66-163:76  Type
-testdata/Builtins.lc 163:71-163:76  Type
-testdata/Builtins.lc 164:1-164:10  forall a . (a ~ VecS Float 3) => a -> a -> a
-testdata/Builtins.lc 164:34-164:72  Type
-testdata/Builtins.lc 164:35-164:36  _c
-testdata/Builtins.lc 164:35-164:38  _b -> Type
-testdata/Builtins.lc 164:35-164:56  Type
-testdata/Builtins.lc 164:37-164:38  forall a . a -> a -> Type
-testdata/Builtins.lc 164:39-164:48  Nat -> Type -> Type
-testdata/Builtins.lc 164:39-164:50  Type -> Type
-testdata/Builtins.lc 164:39-164:56  Type
-testdata/Builtins.lc 164:49-164:50  _b
-testdata/Builtins.lc 164:51-164:56  Type
-testdata/Builtins.lc 164:61-164:62  Type
-testdata/Builtins.lc 164:61-164:72  Type
-testdata/Builtins.lc 164:66-164:67  Type
-testdata/Builtins.lc 164:66-164:72  Type
-testdata/Builtins.lc 164:71-164:72  Type
-testdata/Builtins.lc 165:1-165:14  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 165:34-165:67  Type
-testdata/Builtins.lc 165:35-165:36  _e
-testdata/Builtins.lc 165:35-165:38  _d -> Type
-testdata/Builtins.lc 165:35-165:56  Type
-testdata/Builtins.lc 165:37-165:38  forall a . a -> a -> Type
-testdata/Builtins.lc 165:39-165:48  Nat -> Type -> Type
-testdata/Builtins.lc 165:39-165:50  Type -> Type
-testdata/Builtins.lc 165:39-165:56  Type
-testdata/Builtins.lc 165:49-165:50  _b
-testdata/Builtins.lc 165:51-165:56  Type
-testdata/Builtins.lc 165:61-165:62  Type
-testdata/Builtins.lc 165:61-165:67  Type
-testdata/Builtins.lc 165:66-165:67  Type
-testdata/Builtins.lc 166:1-166:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-testdata/Builtins.lc 166:18-166:29  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-testdata/Builtins.lc 166:34-166:77  Type
-testdata/Builtins.lc 166:35-166:36  _e
-testdata/Builtins.lc 166:35-166:38  _d -> Type
-testdata/Builtins.lc 166:35-166:56  Type
-testdata/Builtins.lc 166:37-166:38  forall a . a -> a -> Type
-testdata/Builtins.lc 166:39-166:48  Nat -> Type -> Type
-testdata/Builtins.lc 166:39-166:50  Type -> Type
-testdata/Builtins.lc 166:39-166:56  Type
-testdata/Builtins.lc 166:49-166:50  _b
-testdata/Builtins.lc 166:51-166:56  Type
-testdata/Builtins.lc 166:61-166:62  Type
-testdata/Builtins.lc 166:61-166:77  Type
-testdata/Builtins.lc 166:66-166:67  Type
-testdata/Builtins.lc 166:66-166:77  Type
-testdata/Builtins.lc 166:71-166:72  Type
-testdata/Builtins.lc 166:71-166:77  Type
-testdata/Builtins.lc 166:76-166:77  Type
-testdata/Builtins.lc 167:1-167:12  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-testdata/Builtins.lc 167:34-167:72  Type
-testdata/Builtins.lc 167:35-167:36  _e
-testdata/Builtins.lc 167:35-167:38  _d -> Type
-testdata/Builtins.lc 167:35-167:56  Type
-testdata/Builtins.lc 167:37-167:38  forall a . a -> a -> Type
-testdata/Builtins.lc 167:39-167:48  Nat -> Type -> Type
-testdata/Builtins.lc 167:39-167:50  Type -> Type
-testdata/Builtins.lc 167:39-167:56  Type
-testdata/Builtins.lc 167:49-167:50  _b
-testdata/Builtins.lc 167:51-167:56  Type
-testdata/Builtins.lc 167:61-167:62  Type
-testdata/Builtins.lc 167:61-167:72  Type
-testdata/Builtins.lc 167:66-167:67  Type
-testdata/Builtins.lc 167:66-167:72  Type
-testdata/Builtins.lc 167:71-167:72  Type
-testdata/Builtins.lc 169:1-169:14  forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
-testdata/Builtins.lc 169:34-169:37  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 169:34-169:39  Nat -> Type -> Type
-testdata/Builtins.lc 169:34-169:41  Type -> Type
-testdata/Builtins.lc 169:34-169:43  Type
-testdata/Builtins.lc 169:34-169:56  Type
-testdata/Builtins.lc 169:38-169:39  _f
-testdata/Builtins.lc 169:40-169:41  _d
-testdata/Builtins.lc 169:42-169:43  _b
-testdata/Builtins.lc 169:47-169:50  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 169:47-169:52  Nat -> Type -> Type
-testdata/Builtins.lc 169:47-169:54  Type -> Type
-testdata/Builtins.lc 169:47-169:56  Type
-testdata/Builtins.lc 169:51-169:52  Nat
-testdata/Builtins.lc 169:53-169:54  Nat
-testdata/Builtins.lc 169:55-169:56  Type
-testdata/Builtins.lc 170:1-170:16  forall (a :: Nat) b . Mat a a b -> Float
-testdata/Builtins.lc 170:34-170:37  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 170:34-170:39  Nat -> Type -> Type
-testdata/Builtins.lc 170:34-170:41  Type -> Type
-testdata/Builtins.lc 170:34-170:43  Type
-testdata/Builtins.lc 170:34-170:52  Type
-testdata/Builtins.lc 170:38-170:39  _d
-testdata/Builtins.lc 170:40-170:41  Nat
-testdata/Builtins.lc 170:42-170:43  _b
-testdata/Builtins.lc 170:47-170:52  Type
-testdata/Builtins.lc 171:1-171:12  forall (a :: Nat) b . Mat a a b -> Mat a a b
-testdata/Builtins.lc 171:34-171:37  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 171:34-171:39  Nat -> Type -> Type
-testdata/Builtins.lc 171:34-171:41  Type -> Type
-testdata/Builtins.lc 171:34-171:43  Type
-testdata/Builtins.lc 171:34-171:56  Type
-testdata/Builtins.lc 171:38-171:39  _d
-testdata/Builtins.lc 171:40-171:41  Nat
-testdata/Builtins.lc 171:42-171:43  _b
-testdata/Builtins.lc 171:47-171:50  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 171:47-171:52  Nat -> Type -> Type
-testdata/Builtins.lc 171:47-171:54  Type -> Type
-testdata/Builtins.lc 171:47-171:56  Type
-testdata/Builtins.lc 171:51-171:52  Nat
-testdata/Builtins.lc 171:53-171:54  Nat
-testdata/Builtins.lc 171:55-171:56  Type
-testdata/Builtins.lc 172:1-172:17  forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
-testdata/Builtins.lc 172:34-172:37  Nat -> Type -> Type
-testdata/Builtins.lc 172:34-172:39  Type -> Type
-testdata/Builtins.lc 172:34-172:41  Type
-testdata/Builtins.lc 172:34-172:69  Type
-testdata/Builtins.lc 172:38-172:39  _f
-testdata/Builtins.lc 172:40-172:41  _d
-testdata/Builtins.lc 172:47-172:50  Nat -> Type -> Type
-testdata/Builtins.lc 172:47-172:52  Type -> Type
-testdata/Builtins.lc 172:47-172:54  Type
-testdata/Builtins.lc 172:47-172:69  Type
-testdata/Builtins.lc 172:51-172:52  _c
-testdata/Builtins.lc 172:53-172:54  Type
-testdata/Builtins.lc 172:60-172:63  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 172:60-172:65  Nat -> Type -> Type
-testdata/Builtins.lc 172:60-172:67  Type -> Type
-testdata/Builtins.lc 172:60-172:69  Type
-testdata/Builtins.lc 172:64-172:65  Nat
-testdata/Builtins.lc 172:66-172:67  Nat
-testdata/Builtins.lc 172:68-172:69  Type
-testdata/Builtins.lc 173:1-173:14  forall (a :: Nat) (b :: Nat) c . Mat a b c -> Vec b c -> Vec a c
-testdata/Builtins.lc 173:34-173:37  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 173:34-173:39  Nat -> Type -> Type
-testdata/Builtins.lc 173:34-173:41  Type -> Type
-testdata/Builtins.lc 173:34-173:43  Type
-testdata/Builtins.lc 173:34-173:67  Type
-testdata/Builtins.lc 173:38-173:39  _f
-testdata/Builtins.lc 173:40-173:41  _d
-testdata/Builtins.lc 173:42-173:43  _b
-testdata/Builtins.lc 173:47-173:50  Nat -> Type -> Type
-testdata/Builtins.lc 173:47-173:52  Type -> Type
-testdata/Builtins.lc 173:47-173:54  Type
-testdata/Builtins.lc 173:47-173:67  Type
-testdata/Builtins.lc 173:51-173:52  Nat
-testdata/Builtins.lc 173:53-173:54  Type
-testdata/Builtins.lc 173:60-173:63  Nat -> Type -> Type
-testdata/Builtins.lc 173:60-173:65  Type -> Type
-testdata/Builtins.lc 173:60-173:67  Type
-testdata/Builtins.lc 173:64-173:65  Nat
-testdata/Builtins.lc 173:66-173:67  Type
-testdata/Builtins.lc 174:1-174:14  forall (a :: Nat) b (c :: Nat) . Vec a b -> Mat a c b -> Vec c b
-testdata/Builtins.lc 174:34-174:37  Nat -> Type -> Type
-testdata/Builtins.lc 174:34-174:39  Type -> Type
-testdata/Builtins.lc 174:34-174:41  Type
-testdata/Builtins.lc 174:34-174:67  Type
-testdata/Builtins.lc 174:38-174:39  _f
-testdata/Builtins.lc 174:40-174:41  _d
-testdata/Builtins.lc 174:47-174:50  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 174:47-174:52  Nat -> Type -> Type
-testdata/Builtins.lc 174:47-174:54  Type -> Type
-testdata/Builtins.lc 174:47-174:56  Type
-testdata/Builtins.lc 174:47-174:67  Type
-testdata/Builtins.lc 174:51-174:52  Nat
-testdata/Builtins.lc 174:53-174:54  _c
-testdata/Builtins.lc 174:55-174:56  Type
-testdata/Builtins.lc 174:60-174:63  Nat -> Type -> Type
-testdata/Builtins.lc 174:60-174:65  Type -> Type
-testdata/Builtins.lc 174:60-174:67  Type
-testdata/Builtins.lc 174:64-174:65  Nat
-testdata/Builtins.lc 174:66-174:67  Type
-testdata/Builtins.lc 175:1-175:14  forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
-testdata/Builtins.lc 175:34-175:37  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 175:34-175:39  Nat -> Type -> Type
-testdata/Builtins.lc 175:34-175:41  Type -> Type
-testdata/Builtins.lc 175:34-175:43  Type
-testdata/Builtins.lc 175:34-175:69  Type
-testdata/Builtins.lc 175:38-175:39  _h
-testdata/Builtins.lc 175:40-175:41  _f
-testdata/Builtins.lc 175:42-175:43  _d
-testdata/Builtins.lc 175:47-175:50  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 175:47-175:52  Nat -> Type -> Type
-testdata/Builtins.lc 175:47-175:54  Type -> Type
-testdata/Builtins.lc 175:47-175:56  Type
-testdata/Builtins.lc 175:47-175:69  Type
-testdata/Builtins.lc 175:51-175:52  Nat
-testdata/Builtins.lc 175:53-175:54  _c
-testdata/Builtins.lc 175:55-175:56  Type
-testdata/Builtins.lc 175:60-175:63  Nat -> Nat -> Type -> Type
-testdata/Builtins.lc 175:60-175:65  Nat -> Type -> Type
-testdata/Builtins.lc 175:60-175:67  Type -> Type
-testdata/Builtins.lc 175:60-175:69  Type
-testdata/Builtins.lc 175:64-175:65  Nat
-testdata/Builtins.lc 175:66-175:67  Nat
-testdata/Builtins.lc 175:68-175:69  Type
-testdata/Builtins.lc 177:1-177:13  forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-testdata/Builtins.lc 177:15-177:32  forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-testdata/Builtins.lc 177:34-177:49  forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-testdata/Builtins.lc 177:51-177:71  forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-testdata/Builtins.lc 177:73-177:83  forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-testdata/Builtins.lc 177:85-177:98  forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-testdata/Builtins.lc 178:51-178:114  Type
-testdata/Builtins.lc 178:52-178:55  Type -> Type
-testdata/Builtins.lc 178:52-178:57  Type
-testdata/Builtins.lc 178:56-178:57  _d
-testdata/Builtins.lc 178:59-178:60  _i
-testdata/Builtins.lc 178:59-178:62  _h -> Type
-testdata/Builtins.lc 178:59-178:76  Type
-testdata/Builtins.lc 178:59-178:114  Type
-testdata/Builtins.lc 178:61-178:62  forall a . a -> a -> Type
-testdata/Builtins.lc 178:63-178:72  Nat -> Type -> Type
-testdata/Builtins.lc 178:63-178:74  Type -> Type
-testdata/Builtins.lc 178:63-178:76  Type
-testdata/Builtins.lc 178:73-178:74  _f
-testdata/Builtins.lc 178:75-178:76  Type
-testdata/Builtins.lc 178:78-178:79  _e
-testdata/Builtins.lc 178:78-178:81  _d -> Type
-testdata/Builtins.lc 178:78-178:98  Type
-testdata/Builtins.lc 178:78-178:114  Type
-testdata/Builtins.lc 178:80-178:81  forall a . a -> a -> Type
-testdata/Builtins.lc 178:82-178:91  Nat -> Type -> Type
-testdata/Builtins.lc 178:82-178:93  Type -> Type
-testdata/Builtins.lc 178:82-178:98  Type
-testdata/Builtins.lc 178:92-178:93  Nat
-testdata/Builtins.lc 178:94-178:98  Type
-testdata/Builtins.lc 178:103-178:104  Type
-testdata/Builtins.lc 178:103-178:114  Type
-testdata/Builtins.lc 178:108-178:109  Type
-testdata/Builtins.lc 178:108-178:114  Type
-testdata/Builtins.lc 178:113-178:114  Type
-testdata/Builtins.lc 179:1-179:10  forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
-testdata/Builtins.lc 179:12-179:24  forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
-testdata/Builtins.lc 179:47-179:89  Type
-testdata/Builtins.lc 179:48-179:49  _c
-testdata/Builtins.lc 179:48-179:51  _b -> Type
-testdata/Builtins.lc 179:48-179:70  Type
-testdata/Builtins.lc 179:50-179:51  forall a . a -> a -> Type
-testdata/Builtins.lc 179:52-179:68  Type -> Type
-testdata/Builtins.lc 179:52-179:70  Type
-testdata/Builtins.lc 179:69-179:70  _c
-testdata/Builtins.lc 179:75-179:76  Type
-testdata/Builtins.lc 179:75-179:89  Type
-testdata/Builtins.lc 179:80-179:81  Type
-testdata/Builtins.lc 179:80-179:89  Type
-testdata/Builtins.lc 179:85-179:89  Type
-testdata/Builtins.lc 181:1-181:9  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 181:11-181:19  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 181:21-181:31  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Builtins.lc 182:34-182:67  Type
-testdata/Builtins.lc 182:35-182:36  _e
-testdata/Builtins.lc 182:35-182:38  _d -> Type
-testdata/Builtins.lc 182:35-182:56  Type
-testdata/Builtins.lc 182:37-182:38  forall a . a -> a -> Type
-testdata/Builtins.lc 182:39-182:48  Nat -> Type -> Type
-testdata/Builtins.lc 182:39-182:50  Type -> Type
-testdata/Builtins.lc 182:39-182:56  Type
-testdata/Builtins.lc 182:49-182:50  _b
-testdata/Builtins.lc 182:51-182:56  Type
-testdata/Builtins.lc 182:61-182:62  Type
-testdata/Builtins.lc 182:61-182:67  Type
-testdata/Builtins.lc 182:66-182:67  Type
-testdata/Builtins.lc 184:1-184:11  forall (a :: Nat) . VecScalar a Float -> Float
-testdata/Builtins.lc 184:34-184:43  Nat -> Type -> Type
-testdata/Builtins.lc 184:34-184:45  Type -> Type
-testdata/Builtins.lc 184:34-184:51  Type
-testdata/Builtins.lc 184:34-184:60  Type
-testdata/Builtins.lc 184:44-184:45  _b
-testdata/Builtins.lc 184:46-184:51  Type
-testdata/Builtins.lc 184:55-184:60  Type
-testdata/Builtins.lc 185:1-185:11  forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
-testdata/Builtins.lc 185:34-185:43  Nat -> Type -> Type
-testdata/Builtins.lc 185:34-185:45  Type -> Type
-testdata/Builtins.lc 185:34-185:51  Type
-testdata/Builtins.lc 185:34-185:66  Type
-testdata/Builtins.lc 185:44-185:45  _b
-testdata/Builtins.lc 185:46-185:51  Type
-testdata/Builtins.lc 185:55-185:58  Nat -> Type -> Type
-testdata/Builtins.lc 185:55-185:60  Type -> Type
-testdata/Builtins.lc 185:55-185:66  Type
-testdata/Builtins.lc 185:59-185:60  _b
-testdata/Builtins.lc 185:61-185:66  Type
-testdata/Builtins.lc 186:1-186:11  forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
-testdata/Builtins.lc 186:34-186:43  Nat -> Type -> Type
-testdata/Builtins.lc 186:34-186:45  Type -> Type
-testdata/Builtins.lc 186:34-186:51  Type
-testdata/Builtins.lc 186:34-186:66  Type
-testdata/Builtins.lc 186:44-186:45  _b
-testdata/Builtins.lc 186:46-186:51  Type
-testdata/Builtins.lc 186:55-186:58  Nat -> Type -> Type
-testdata/Builtins.lc 186:55-186:60  Type -> Type
-testdata/Builtins.lc 186:55-186:66  Type
-testdata/Builtins.lc 186:59-186:60  _b
-testdata/Builtins.lc 186:61-186:66  Type
-testdata/Builtins.lc 187:1-187:11  forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
-testdata/Builtins.lc 187:34-187:43  Nat -> Type -> Type
-testdata/Builtins.lc 187:34-187:45  Type -> Type
-testdata/Builtins.lc 187:34-187:51  Type
-testdata/Builtins.lc 187:34-187:66  Type
-testdata/Builtins.lc 187:44-187:45  _b
-testdata/Builtins.lc 187:46-187:51  Type
-testdata/Builtins.lc 187:55-187:58  Nat -> Type -> Type
-testdata/Builtins.lc 187:55-187:60  Type -> Type
-testdata/Builtins.lc 187:55-187:66  Type
-testdata/Builtins.lc 187:59-187:60  _b
-testdata/Builtins.lc 187:61-187:66  Type
-testdata/Builtins.lc 201:1-201:5  forall a . List a -> a
-testdata/Builtins.lc 201:15-201:16  List _c -> _b | _b -> List _b -> _a | _d
-testdata/Builtins.lc 203:6-203:8  forall a . List a -> List a -> List a
-testdata/Builtins.lc 203:14-203:16  _d
-testdata/Builtins.lc 203:14-204:26  List _a -> List _a | _a -> _a
-testdata/Builtins.lc 204:14-204:15  _d
-testdata/Builtins.lc 204:14-204:17  List _c -> List _c
-testdata/Builtins.lc 204:14-204:26  List _b -> _d | List _c | _a -> List _a -> _c
-testdata/Builtins.lc 204:16-204:17  forall a . a -> List a -> List a
-testdata/Builtins.lc 204:18-204:20  List _f
-testdata/Builtins.lc 204:21-204:23  _h
-testdata/Builtins.lc 204:24-204:26  List _g
-testdata/Builtins.lc 206:1-206:6  forall a b . (b -> a -> a) -> a -> List b -> a
-testdata/Builtins.lc 206:16-206:17  _f
-testdata/Builtins.lc 206:16-207:39  List _b -> _f | _a -> _a
-testdata/Builtins.lc 207:21-207:22  _i
-testdata/Builtins.lc 207:21-207:39  List _b -> _f | _a -> List _a -> _e
-testdata/Builtins.lc 207:23-207:24  _f
-testdata/Builtins.lc 207:26-207:31  _n
-testdata/Builtins.lc 207:32-207:33  _j -> _g
-testdata/Builtins.lc 207:34-207:35  _o
-testdata/Builtins.lc 207:36-207:38  List _k
-testdata/Builtins.lc 209:1-209:7  forall a . List (List a) -> List a
-testdata/Builtins.lc 209:10-209:15  forall a b . (b -> a -> a) -> a -> List b -> a
-testdata/Builtins.lc 209:10-209:20  List _a -> List (List _a) -> List _a
-testdata/Builtins.lc 209:10-209:23  List (List _a) -> List _a
-testdata/Builtins.lc 209:16-209:20  forall a . List a -> List a -> List a
-testdata/Builtins.lc 209:21-209:23  forall a . List a
-testdata/Builtins.lc 211:1-211:4  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 211:16-211:18  forall a . List a
-testdata/Builtins.lc 211:16-212:30  List _b -> List _a | _a -> _a
-testdata/Builtins.lc 212:16-212:17  _i
-testdata/Builtins.lc 212:16-212:21  List _a -> List _a
-testdata/Builtins.lc 212:16-212:30  List _c | List _c -> List _b | _b -> List _b -> List _a
-testdata/Builtins.lc 212:18-212:19  _h
-testdata/Builtins.lc 212:20-212:21  forall a . a -> List a -> List a
-testdata/Builtins.lc 212:22-212:25  _i
-testdata/Builtins.lc 212:26-212:27  _g -> _f
-testdata/Builtins.lc 212:28-212:30  List _h
-testdata/Builtins.lc 214:14-214:38  Type
-testdata/Builtins.lc 214:15-214:16  _d
-testdata/Builtins.lc 214:20-214:23  Type
-testdata/Builtins.lc 214:21-214:22  _c
-testdata/Builtins.lc 214:28-214:31  Type
-testdata/Builtins.lc 214:28-214:38  Type
-testdata/Builtins.lc 214:29-214:30  Type
-testdata/Builtins.lc 214:35-214:38  Type
-testdata/Builtins.lc 214:36-214:37  Type
-testdata/Builtins.lc 215:1-215:10  forall a b . (a -> List b) -> List a -> List b
-testdata/Builtins.lc 215:17-215:23  forall a . List (List a) -> List a
-testdata/Builtins.lc 215:17-215:33  (_b -> List _a) -> List _b -> List _a | List _c | List _c -> List _b
-testdata/Builtins.lc 215:25-215:28  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 215:25-215:30  List _e -> List (List _d)
-testdata/Builtins.lc 215:25-215:32  List (List _c)
-testdata/Builtins.lc 215:29-215:30  _g -> List _f
-testdata/Builtins.lc 215:31-215:32  List _d
-testdata/Builtins.lc 217:1-217:4  forall a . List a -> Int
-testdata/Builtins.lc 217:10-217:11  _b
-testdata/Builtins.lc 217:10-218:35  List _b -> Int | _a -> _a
-testdata/Builtins.lc 218:14-218:15  _b
-testdata/Builtins.lc 218:14-218:28  Int -> Int
-testdata/Builtins.lc 218:14-218:35  Int | List _d -> _c | _c -> List _c -> _b
-testdata/Builtins.lc 218:16-218:28  Int -> Int -> Int
-testdata/Builtins.lc 218:29-218:32  _h
-testdata/Builtins.lc 218:33-218:35  List _g
-testdata/Builtins.lc 222:6-222:11  Type | Type -> Type
-testdata/Builtins.lc 222:6-222:13  Type
-testdata/Builtins.lc 222:6-224:11  Type
-testdata/Builtins.lc 222:6-224:13  Type
-testdata/Builtins.lc 222:12-222:13  Type
-testdata/Builtins.lc 223:7-223:14  Maybe _b | forall a . Maybe a
-testdata/Builtins.lc 224:7-224:11  Maybe _d | Type | forall a . a -> Maybe a
-testdata/Builtins.lc 224:12-224:13  Type
-testdata/Builtins.lc 227:6-227:12  Nat -> Type -> Type | Type
-testdata/Builtins.lc 227:19-227:22  Type
-testdata/Builtins.lc 231:6-231:19  Type
-testdata/Builtins.lc 231:6-236:20  Type
-testdata/Builtins.lc 232:7-232:15  PrimitiveType
-testdata/Builtins.lc 233:7-233:11  PrimitiveType
-testdata/Builtins.lc 234:7-234:12  PrimitiveType
-testdata/Builtins.lc 235:7-235:24  PrimitiveType
-testdata/Builtins.lc 236:7-236:20  PrimitiveType
-testdata/Builtins.lc 238:6-238:15  Type | Type -> PrimitiveType -> Type
-testdata/Builtins.lc 238:6-241:56  Type
-testdata/Builtins.lc 238:21-238:34  Type
-testdata/Builtins.lc 238:21-238:42  Type
-testdata/Builtins.lc 238:38-238:42  Type
-testdata/Builtins.lc 239:5-239:14  Primitive _c 'Point | forall a . a -> Primitive a 'Point
-testdata/Builtins.lc 239:5-239:53  Type
-testdata/Builtins.lc 239:21-239:22  Type
-testdata/Builtins.lc 239:21-239:53  Type
-testdata/Builtins.lc 239:36-239:45  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 239:36-239:47  PrimitiveType -> Type
-testdata/Builtins.lc 239:36-239:53  Type
-testdata/Builtins.lc 239:46-239:47  Type
-testdata/Builtins.lc 239:48-239:53  PrimitiveType
-testdata/Builtins.lc 240:5-240:13  Primitive _e 'Line | forall a . a -> a -> Primitive a 'Line
-testdata/Builtins.lc 240:5-240:52  Type
-testdata/Builtins.lc 240:21-240:22  Type
-testdata/Builtins.lc 240:21-240:52  Type
-testdata/Builtins.lc 240:26-240:27  Type
-testdata/Builtins.lc 240:26-240:52  Type
-testdata/Builtins.lc 240:36-240:45  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 240:36-240:47  PrimitiveType -> Type
-testdata/Builtins.lc 240:36-240:52  Type
-testdata/Builtins.lc 240:46-240:47  Type
-testdata/Builtins.lc 240:48-240:52  PrimitiveType
-testdata/Builtins.lc 241:5-241:17  Primitive _g 'Triangle | forall a . a -> a -> a -> Primitive a 'Triangle
-testdata/Builtins.lc 241:5-241:56  Type
-testdata/Builtins.lc 241:21-241:22  Type
-testdata/Builtins.lc 241:21-241:56  Type
-testdata/Builtins.lc 241:26-241:27  Type
-testdata/Builtins.lc 241:26-241:56  Type
-testdata/Builtins.lc 241:31-241:32  Type
-testdata/Builtins.lc 241:31-241:56  Type
-testdata/Builtins.lc 241:36-241:45  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 241:36-241:47  PrimitiveType -> Type
-testdata/Builtins.lc 241:36-241:56  Type
-testdata/Builtins.lc 241:46-241:47  Type
-testdata/Builtins.lc 241:48-241:56  PrimitiveType
-testdata/Builtins.lc 243:1-243:13  forall a b (c :: PrimitiveType) . (a -> b) -> Primitive a c -> Primitive b c
-testdata/Builtins.lc 243:17-243:59  Type
-testdata/Builtins.lc 243:18-243:19  _f
-testdata/Builtins.lc 243:23-243:24  Type | _e
-testdata/Builtins.lc 243:29-243:38  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 243:29-243:40  PrimitiveType -> Type
-testdata/Builtins.lc 243:29-243:42  Type
-testdata/Builtins.lc 243:29-243:59  Type
-testdata/Builtins.lc 243:39-243:40  Type
-testdata/Builtins.lc 243:41-243:42  _c
-testdata/Builtins.lc 243:46-243:55  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 243:46-243:57  PrimitiveType -> Type
-testdata/Builtins.lc 243:46-243:59  Type
-testdata/Builtins.lc 243:56-243:57  Type
-testdata/Builtins.lc 243:58-243:59  PrimitiveType
-testdata/Builtins.lc 250:6-250:21  PrimitiveType -> Type -> Type
-testdata/Builtins.lc 250:28-250:43  Type
-testdata/Builtins.lc 250:29-250:38  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 250:29-250:40  PrimitiveType -> Type
-testdata/Builtins.lc 250:29-250:42  Type
-testdata/Builtins.lc 250:39-250:40  _b
-testdata/Builtins.lc 250:41-250:42  _c
-testdata/Builtins.lc 252:18-252:72  Type
-testdata/Builtins.lc 252:19-252:20  _f
-testdata/Builtins.lc 252:24-252:25  Type | _e
-testdata/Builtins.lc 252:30-252:45  PrimitiveType -> Type -> Type
-testdata/Builtins.lc 252:30-252:47  Type -> Type
-testdata/Builtins.lc 252:30-252:49  Type
-testdata/Builtins.lc 252:30-252:72  Type
-testdata/Builtins.lc 252:46-252:47  _c
-testdata/Builtins.lc 252:48-252:49  Type
-testdata/Builtins.lc 252:53-252:68  PrimitiveType -> Type -> Type
-testdata/Builtins.lc 252:53-252:70  Type -> Type
-testdata/Builtins.lc 252:53-252:72  Type
-testdata/Builtins.lc 252:69-252:70  PrimitiveType
-testdata/Builtins.lc 252:71-252:72  Type
-testdata/Builtins.lc 253:1-253:14  forall a b (c :: PrimitiveType) . (a -> b) -> List (Primitive a c) -> List (Primitive b c)
-testdata/Builtins.lc 253:19-253:22  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 253:19-253:39  (_c -> _b) -> PrimitiveStream _a _c -> PrimitiveStream _a _b | List (Primitive _e _a) -> List (Primitive _d _a)
-testdata/Builtins.lc 253:24-253:36  forall a b (c :: PrimitiveType) . (a -> b) -> Primitive a c -> Primitive b c
-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:32-260:119  Type
-testdata/Builtins.lc 260:56-260:57  _e
-testdata/Builtins.lc 260:56-260:59  _d -> Type
-testdata/Builtins.lc 260:56-260:75  Type
-testdata/Builtins.lc 260:58-260:59  forall a . a -> a -> Type
-testdata/Builtins.lc 260:60-260:63  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 260:60-260:72  List Type -> List Type
-testdata/Builtins.lc 260:60-260:75  List Type
-testdata/Builtins.lc 260:64-260:72  Type -> Type
-testdata/Builtins.lc 260:73-260:75  _b
-testdata/Builtins.lc 260:80-260:85  List Type -> Type
-testdata/Builtins.lc 260:80-260:88  Type
-testdata/Builtins.lc 260:80-260:119  Type
-testdata/Builtins.lc 260:86-260:88  List Type
-testdata/Builtins.lc 260:92-260:107  PrimitiveType -> Type -> Type
-testdata/Builtins.lc 260:92-260:109  Type -> Type
-testdata/Builtins.lc 260:92-260:119  Type
-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:56-262:62  Type
-testdata/Builtins.lc 262:56-262:104  Type
-testdata/Builtins.lc 262:66-262:71  List Type -> Type
-testdata/Builtins.lc 262:66-262:73  Type
-testdata/Builtins.lc 262:66-262:104  Type
-testdata/Builtins.lc 262:72-262:73  _c
-testdata/Builtins.lc 262:77-262:92  PrimitiveType -> Type -> Type
-testdata/Builtins.lc 262:77-262:94  Type -> Type
-testdata/Builtins.lc 262:77-262:104  Type
-testdata/Builtins.lc 262:93-262:94  _e
-testdata/Builtins.lc 262:96-262:101  List Type -> Type
-testdata/Builtins.lc 262:96-262:103  Type
-testdata/Builtins.lc 262:102-262:103  List Type
-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:31-266:37  Type
-testdata/Builtins.lc 266:31-266:123  Type
-testdata/Builtins.lc 266:32-266:36  Type
-testdata/Builtins.lc 266:41-266:47  Type
-testdata/Builtins.lc 266:41-266:123  Type
-testdata/Builtins.lc 266:51-266:123  Type
-testdata/Builtins.lc 266:65-266:73  Type
-testdata/Builtins.lc 266:66-266:72  Type
-testdata/Builtins.lc 266:78-266:81  forall a . List a -> Int
-testdata/Builtins.lc 266:78-266:84  Int
-testdata/Builtins.lc 266:78-266:86  Int -> Type
-testdata/Builtins.lc 266:78-266:92  Type
-testdata/Builtins.lc 266:78-266:123  Type
-testdata/Builtins.lc 266:82-266:84  List String
-testdata/Builtins.lc 266:85-266:86  forall a . a -> a -> Type
-testdata/Builtins.lc 266:87-266:90  forall a . List a -> Int
-testdata/Builtins.lc 266:87-266:92  Int
-testdata/Builtins.lc 266:91-266:92  List Type
-testdata/Builtins.lc 266:96-266:111  PrimitiveType -> Type -> Type
-testdata/Builtins.lc 266:96-266:113  Type -> Type
-testdata/Builtins.lc 266:96-266:123  Type
-testdata/Builtins.lc 266:112-266:113  _f
-testdata/Builtins.lc 266:115-266:120  List Type -> Type
-testdata/Builtins.lc 266:115-266:122  Type
-testdata/Builtins.lc 266:121-266:122  List Type
-testdata/Builtins.lc 270:6-270:14  Nat -> Type -> Type
-testdata/Builtins.lc 270:21-270:27  Nat -> Type -> Type
-testdata/Builtins.lc 270:21-270:29  Type -> Type
-testdata/Builtins.lc 270:21-270:56  Type
-testdata/Builtins.lc 270:28-270:29  _d
-testdata/Builtins.lc 270:31-270:36  Type -> Type
-testdata/Builtins.lc 270:31-270:55  Type
-testdata/Builtins.lc 270:38-270:52  Type -> Type
-testdata/Builtins.lc 270:38-270:54  Type
-testdata/Builtins.lc 270:53-270:54  _b
-testdata/Builtins.lc 272:6-272:20  Type | Type -> Type
-testdata/Builtins.lc 272:6-272:22  Type
-testdata/Builtins.lc 272:6-272:39  Type
-testdata/Builtins.lc 272:6-274:29  Type
-testdata/Builtins.lc 272:21-272:22  Type
-testdata/Builtins.lc 272:25-272:39  SimpleFragment _d | Type | forall a . Vec 3 Float -> a -> SimpleFragment a
-testdata/Builtins.lc 273:7-273:22  forall a . SimpleFragment a -> VecS Float 3
-testdata/Builtins.lc 273:28-273:31  Nat -> Type -> Type
-testdata/Builtins.lc 273:28-273:33  Type -> Type
-testdata/Builtins.lc 273:28-273:39  Type
-testdata/Builtins.lc 273:32-273:33  _b
-testdata/Builtins.lc 273:34-273:39  Type
-testdata/Builtins.lc 274:7-274:21  forall a . SimpleFragment a -> a
-testdata/Builtins.lc 274:28-274:29  Type
-testdata/Builtins.lc 277:6-277:20  Nat -> Type -> Type
-testdata/Builtins.lc 277:27-277:41  Type
-testdata/Builtins.lc 277:28-277:36  Nat -> Type -> Type
-testdata/Builtins.lc 277:28-277:38  Type -> Type
-testdata/Builtins.lc 277:28-277:40  Type
-testdata/Builtins.lc 277:37-277:38  _d
-testdata/Builtins.lc 277:39-277:40  _b
-testdata/Builtins.lc 279:1-279:15  forall a (b :: Nat) . (a -> Float) -> Fragment b a -> Fragment b a
-testdata/Builtins.lc 279:19-279:63  Type
-testdata/Builtins.lc 279:20-279:21  _d
-testdata/Builtins.lc 279:25-279:30  Type
-testdata/Builtins.lc 279:35-279:43  Nat -> Type -> Type
-testdata/Builtins.lc 279:35-279:45  Type -> Type
-testdata/Builtins.lc 279:35-279:47  Type
-testdata/Builtins.lc 279:35-279:63  Type
-testdata/Builtins.lc 279:44-279:45  _c
-testdata/Builtins.lc 279:46-279:47  Type
-testdata/Builtins.lc 279:51-279:59  Nat -> Type -> Type
-testdata/Builtins.lc 279:51-279:61  Type -> Type
-testdata/Builtins.lc 279:51-279:63  Type
-testdata/Builtins.lc 279:60-279:61  Nat
-testdata/Builtins.lc 279:62-279:63  Type
-testdata/Builtins.lc 281:20-281:76  Type
-testdata/Builtins.lc 281:21-281:22  _d
-testdata/Builtins.lc 281:26-281:31  Type
-testdata/Builtins.lc 281:36-281:50  Nat -> Type -> Type
-testdata/Builtins.lc 281:36-281:52  Type -> Type
-testdata/Builtins.lc 281:36-281:54  Type
-testdata/Builtins.lc 281:36-281:76  Type
-testdata/Builtins.lc 281:51-281:52  _c
-testdata/Builtins.lc 281:53-281:54  Type
-testdata/Builtins.lc 281:58-281:72  Nat -> Type -> Type
-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: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: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
-testdata/Builtins.lc 284:1-284:15  forall a (b :: Nat) . (a -> Bool) -> Fragment b a -> Fragment b a
-testdata/Builtins.lc 284:19-284:62  Type
-testdata/Builtins.lc 284:20-284:21  _d
-testdata/Builtins.lc 284:25-284:29  Type
-testdata/Builtins.lc 284:34-284:42  Nat -> Type -> Type
-testdata/Builtins.lc 284:34-284:44  Type -> Type
-testdata/Builtins.lc 284:34-284:46  Type
-testdata/Builtins.lc 284:34-284:62  Type
-testdata/Builtins.lc 284:43-284:44  _c
-testdata/Builtins.lc 284:45-284:46  Type
-testdata/Builtins.lc 284:50-284:58  Nat -> Type -> Type
-testdata/Builtins.lc 284:50-284:60  Type -> Type
-testdata/Builtins.lc 284:50-284:62  Type
-testdata/Builtins.lc 284:59-284:60  Nat
-testdata/Builtins.lc 284:61-284:62  Type
-testdata/Builtins.lc 286:20-286:75  Type
-testdata/Builtins.lc 286:21-286:22  _d
-testdata/Builtins.lc 286:26-286:30  Type
-testdata/Builtins.lc 286:35-286:49  Nat -> Type -> Type
-testdata/Builtins.lc 286:35-286:51  Type -> Type
-testdata/Builtins.lc 286:35-286:53  Type
-testdata/Builtins.lc 286:35-286:75  Type
-testdata/Builtins.lc 286:50-286:51  _c
-testdata/Builtins.lc 286:52-286:53  Type
-testdata/Builtins.lc 286:57-286:71  Nat -> Type -> Type
-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: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: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
-testdata/Builtins.lc 289:1-289:12  forall a b (c :: Nat) . (a -> b) -> Fragment c a -> Fragment c b
-testdata/Builtins.lc 289:16-289:56  Type
-testdata/Builtins.lc 289:17-289:18  _f
-testdata/Builtins.lc 289:22-289:23  Type | _e
-testdata/Builtins.lc 289:28-289:36  Nat -> Type -> Type
-testdata/Builtins.lc 289:28-289:38  Type -> Type
-testdata/Builtins.lc 289:28-289:40  Type
-testdata/Builtins.lc 289:28-289:56  Type
-testdata/Builtins.lc 289:37-289:38  _c
-testdata/Builtins.lc 289:39-289:40  Type
-testdata/Builtins.lc 289:44-289:52  Nat -> Type -> Type
-testdata/Builtins.lc 289:44-289:54  Type -> Type
-testdata/Builtins.lc 289:44-289:56  Type
-testdata/Builtins.lc 289:53-289:54  Nat
-testdata/Builtins.lc 289:55-289:56  Type
-testdata/Builtins.lc 291:17-291:69  Type
-testdata/Builtins.lc 291:18-291:19  _f
-testdata/Builtins.lc 291:23-291:24  Type | _e
-testdata/Builtins.lc 291:29-291:43  Nat -> Type -> Type
-testdata/Builtins.lc 291:29-291:45  Type -> Type
-testdata/Builtins.lc 291:29-291:47  Type
-testdata/Builtins.lc 291:29-291:69  Type
-testdata/Builtins.lc 291:44-291:45  _c
-testdata/Builtins.lc 291:46-291:47  Type
-testdata/Builtins.lc 291:51-291:65  Nat -> Type -> Type
-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: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: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
-testdata/Builtins.lc 296:6-296:15  Type
-testdata/Builtins.lc 296:6-299:14  Type
-testdata/Builtins.lc 297:7-297:12  ImageKind | Type | Type -> ImageKind
-testdata/Builtins.lc 297:13-297:17  Type
-testdata/Builtins.lc 298:7-298:12  ImageKind
-testdata/Builtins.lc 299:7-299:14  ImageKind
-testdata/Builtins.lc 301:14-301:23  Type
-testdata/Builtins.lc 301:27-301:31  Type
-testdata/Builtins.lc 302:1-302:10  ImageKind -> Type
-testdata/Builtins.lc 302:23-302:24  Type | Type -> _a
-testdata/Builtins.lc 302:23-303:25  Type -> ImageKind -> Type
-testdata/Builtins.lc 302:23-304:25  ImageKind -> Type | Type
-testdata/Builtins.lc 303:19-303:25  Type
-testdata/Builtins.lc 304:21-304:25  Type
-testdata/Builtins.lc 306:6-306:11  Nat -> ImageKind -> Type | Type
-testdata/Builtins.lc 306:6-306:38  Type
-testdata/Builtins.lc 306:18-306:21  Type
-testdata/Builtins.lc 306:29-306:38  Type
-testdata/Builtins.lc 308:1-308:11  forall (a :: Nat) (b :: Nat) c d . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
-testdata/Builtins.lc 308:45-309:55  Type
-testdata/Builtins.lc 308:46-308:49  Type -> Type
-testdata/Builtins.lc 308:46-308:51  Type
-testdata/Builtins.lc 308:50-308:51  _d
-testdata/Builtins.lc 308:53-308:58  _d
-testdata/Builtins.lc 308:53-308:60  _c -> Type
-testdata/Builtins.lc 308:53-308:74  Type
-testdata/Builtins.lc 308:53-309:55  Type
-testdata/Builtins.lc 308:59-308:60  forall a . a -> a -> Type
-testdata/Builtins.lc 308:61-308:70  Nat -> Type -> Type
-testdata/Builtins.lc 308:61-308:72  Type -> Type
-testdata/Builtins.lc 308:61-308:74  Type
-testdata/Builtins.lc 308:71-308:72  _f
-testdata/Builtins.lc 308:73-308:74  Type
-testdata/Builtins.lc 309:24-309:29  Type
-testdata/Builtins.lc 309:24-309:55  Type
-testdata/Builtins.lc 309:34-309:39  Nat -> ImageKind -> Type
-testdata/Builtins.lc 309:34-309:41  ImageKind -> Type
-testdata/Builtins.lc 309:34-309:55  Type
-testdata/Builtins.lc 309:40-309:41  _h
-testdata/Builtins.lc 309:43-309:48  Type -> ImageKind
-testdata/Builtins.lc 309:43-309:54  ImageKind
-testdata/Builtins.lc 309:49-309:54  Type
-testdata/Builtins.lc 310:1-310:11  forall (a :: Nat) . Float -> Image a 'Depth
-testdata/Builtins.lc 310:35-310:40  Type
-testdata/Builtins.lc 310:35-310:58  Type
-testdata/Builtins.lc 310:45-310:50  Nat -> ImageKind -> Type
-testdata/Builtins.lc 310:45-310:52  ImageKind -> Type
-testdata/Builtins.lc 310:45-310:58  Type
-testdata/Builtins.lc 310:51-310:52  _c
-testdata/Builtins.lc 310:53-310:58  ImageKind
-testdata/Builtins.lc 311:1-311:13  forall (a :: Nat) . Int -> Image a 'Stencil
-testdata/Builtins.lc 311:35-311:38  Type
-testdata/Builtins.lc 311:35-311:60  Type
-testdata/Builtins.lc 311:45-311:50  Nat -> ImageKind -> Type
-testdata/Builtins.lc 311:45-311:52  ImageKind -> Type
-testdata/Builtins.lc 311:45-311:60  Type
-testdata/Builtins.lc 311:51-311:52  _c
-testdata/Builtins.lc 311:53-311:60  ImageKind
-testdata/Builtins.lc 313:1-313:16  Float -> Image 1 'Depth
-testdata/Builtins.lc 313:19-313:29  forall (a :: Nat) . Float -> Image a 'Depth
-testdata/Builtins.lc 313:19-313:32  Float -> Image 1 'Depth
-testdata/Builtins.lc 313:31-313:32  _b
-testdata/Builtins.lc 314:1-314:16  forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
-testdata/Builtins.lc 314:19-314:29  forall (a :: Nat) (b :: Nat) c d . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
-testdata/Builtins.lc 314:19-314:32  forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
-testdata/Builtins.lc 314:31-314:32  _b
-testdata/Builtins.lc 321:6-321:11  Type
-testdata/Builtins.lc 321:6-321:31  Type
-testdata/Builtins.lc 321:14-321:16  Swizz
-testdata/Builtins.lc 321:19-321:21  Swizz
-testdata/Builtins.lc 321:24-321:26  Swizz
-testdata/Builtins.lc 321:29-321:31  Swizz
-testdata/Builtins.lc 339:16-339:48  Type
-testdata/Builtins.lc 339:27-339:30  Nat -> Type -> Type
-testdata/Builtins.lc 339:27-339:32  Type -> Type
-testdata/Builtins.lc 339:27-339:34  Type
-testdata/Builtins.lc 339:27-339:48  Type
-testdata/Builtins.lc 339:31-339:32  _b
-testdata/Builtins.lc 339:33-339:34  _c
-testdata/Builtins.lc 339:38-339:43  Type
-testdata/Builtins.lc 339:38-339:48  Type
-testdata/Builtins.lc 339:47-339:48  Type
-testdata/Builtins.lc 340:1-340:12  forall a (b :: Nat) . Vec b a -> Swizz -> a
-testdata/Builtins.lc 340:27-340:28  _e
-testdata/Builtins.lc 340:27-341:28  _b -> _b -> _a | _c | _c -> _b | _d -> _d -> Swizz -> _d
-testdata/Builtins.lc 340:27-344:30  (_a -> _a -> _a -> _a -> _a) -> forall (a :: Nat) . VecS _a a -> _a
-testdata/Builtins.lc 340:27-348:32  Swizz -> _c | Vec _a _b -> Swizz -> _b | _d | forall (a :: Nat) . VecS _a a -> _a
-testdata/Builtins.lc 341:27-341:28  _d
-testdata/Builtins.lc 342:29-342:30  _e
-testdata/Builtins.lc 342:29-343:30  _d -> _d -> Swizz -> _d
-testdata/Builtins.lc 342:29-344:30  _a -> _a -> _a -> _a | _b -> _b -> _b | _c -> _c | _d | _d -> Swizz -> _d
-testdata/Builtins.lc 343:29-343:30  _d
-testdata/Builtins.lc 344:29-344:30  _d
-testdata/Builtins.lc 345:31-345:32  _f
-testdata/Builtins.lc 345:31-346:32  _e -> _e -> Swizz -> _e
-testdata/Builtins.lc 345:31-347:32  _e -> Swizz -> _e
-testdata/Builtins.lc 345:31-348:32  Swizz -> _e | _a -> _a -> _a -> _a -> _a | _b -> _b -> _b -> _b | _c -> _c -> _c | _d -> _d | _e
-testdata/Builtins.lc 346:31-346:32  _e
-testdata/Builtins.lc 347:31-347:32  _e
-testdata/Builtins.lc 348:31-348:32  _e
-testdata/Builtins.lc 351:28-351:31  Nat -> Type -> Type
-testdata/Builtins.lc 351:28-351:33  Type -> Type
-testdata/Builtins.lc 351:28-351:35  Type
-testdata/Builtins.lc 351:28-351:43  Type
-testdata/Builtins.lc 351:32-351:33  _b
-testdata/Builtins.lc 351:34-351:35  _c
-testdata/Builtins.lc 351:39-351:43  Type
-testdata/Builtins.lc 352:1-352:11  forall a (b :: Nat) . Vec b a -> Bool
-testdata/Builtins.lc 352:23-352:27  Bool | _b -> _b -> _a | _c -> _b
-testdata/Builtins.lc 352:23-353:29  (_a -> _a -> _a -> _a -> Bool) -> forall (a :: Nat) . VecS _a a -> Bool
-testdata/Builtins.lc 352:23-354:31  Bool | Vec _a _b -> Bool | forall (a :: Nat) . VecS _a a -> Bool
-testdata/Builtins.lc 353:25-353:29  Bool | _a -> _a -> _a -> Bool | _b -> _b -> Bool | _c -> Bool
-testdata/Builtins.lc 354:27-354:31  Bool | _a -> _a -> _a -> _a -> Bool | _b -> _b -> _b -> Bool | _c -> _c -> Bool | _d -> Bool
-testdata/Builtins.lc 356:16-356:71  Type
-testdata/Builtins.lc 356:27-356:71  Type
-testdata/Builtins.lc 356:38-356:41  Nat -> Type -> Type
-testdata/Builtins.lc 356:38-356:43  Type -> Type
-testdata/Builtins.lc 356:38-356:45  Type
-testdata/Builtins.lc 356:38-356:71  Type
-testdata/Builtins.lc 356:42-356:43  _d
-testdata/Builtins.lc 356:44-356:45  _e
-testdata/Builtins.lc 356:49-356:52  Nat -> Type -> Type
-testdata/Builtins.lc 356:49-356:54  Type -> Type
-testdata/Builtins.lc 356:49-356:60  Type
-testdata/Builtins.lc 356:49-356:71  Type
-testdata/Builtins.lc 356:53-356:54  _c
-testdata/Builtins.lc 356:55-356:60  Type
-testdata/Builtins.lc 356:64-356:67  Nat -> Type -> Type
-testdata/Builtins.lc 356:64-356:69  Type -> Type
-testdata/Builtins.lc 356:64-356:71  Type
-testdata/Builtins.lc 356:68-356:69  Nat
-testdata/Builtins.lc 356:70-356:71  Type
-testdata/Builtins.lc 357:1-357:12  forall a (b :: Nat) (c :: Nat) . Vec b a -> Vec c Swizz -> VecS a c
-testdata/Builtins.lc 357:19-357:29  forall a (b :: Nat) . Vec b a -> Bool
-testdata/Builtins.lc 357:19-357:31  Bool
-testdata/Builtins.lc 357:19-357:58  Vec _b Swizz -> Vec _b _d | Vec _b _c -> Vec _a Swizz -> Vec _a _c | VecS _e _c
-testdata/Builtins.lc 357:30-357:31  Vec _f _g
-testdata/Builtins.lc 357:34-357:40  forall a b (c :: Nat) . (a -> b) -> VecS a c -> VecS b c
-testdata/Builtins.lc 357:34-357:56  VecS Swizz _a -> VecS _g _a
-testdata/Builtins.lc 357:34-357:58  VecS _e _c
-testdata/Builtins.lc 357:42-357:53  forall a (b :: Nat) . Vec b a -> Swizz -> a
-testdata/Builtins.lc 357:42-357:55  Swizz -> _i
-testdata/Builtins.lc 357:54-357:55  Vec _j _k
-testdata/Builtins.lc 357:57-357:58  Vec _d Swizz
-testdata/Builtins.lc 361:6-361:20  Type
-testdata/Builtins.lc 361:6-376:23  Type
-testdata/Builtins.lc 362:7-362:13  BlendingFactor
-testdata/Builtins.lc 363:7-363:12  BlendingFactor
-testdata/Builtins.lc 364:7-364:15  BlendingFactor
-testdata/Builtins.lc 365:7-365:23  BlendingFactor
-testdata/Builtins.lc 366:7-366:15  BlendingFactor
-testdata/Builtins.lc 367:7-367:23  BlendingFactor
-testdata/Builtins.lc 368:7-368:15  BlendingFactor
-testdata/Builtins.lc 369:7-369:23  BlendingFactor
-testdata/Builtins.lc 370:7-370:15  BlendingFactor
-testdata/Builtins.lc 371:7-371:23  BlendingFactor
-testdata/Builtins.lc 372:7-372:20  BlendingFactor
-testdata/Builtins.lc 373:7-373:28  BlendingFactor
-testdata/Builtins.lc 374:7-374:20  BlendingFactor
-testdata/Builtins.lc 375:7-375:28  BlendingFactor
-testdata/Builtins.lc 376:7-376:23  BlendingFactor
-testdata/Builtins.lc 378:6-378:19  Type
-testdata/Builtins.lc 378:6-383:10  Type
-testdata/Builtins.lc 379:7-379:14  BlendEquation
-testdata/Builtins.lc 380:7-380:19  BlendEquation
-testdata/Builtins.lc 381:7-381:26  BlendEquation
-testdata/Builtins.lc 382:7-382:10  BlendEquation
-testdata/Builtins.lc 383:7-383:10  BlendEquation
-testdata/Builtins.lc 385:6-385:20  Type
-testdata/Builtins.lc 385:6-401:10  Type
-testdata/Builtins.lc 386:7-386:12  LogicOperation
-testdata/Builtins.lc 387:7-387:10  LogicOperation
-testdata/Builtins.lc 388:7-388:17  LogicOperation
-testdata/Builtins.lc 389:7-389:11  LogicOperation
-testdata/Builtins.lc 390:7-390:18  LogicOperation
-testdata/Builtins.lc 391:7-391:11  LogicOperation
-testdata/Builtins.lc 392:7-392:10  LogicOperation
-testdata/Builtins.lc 393:7-393:9  LogicOperation
-testdata/Builtins.lc 394:7-394:10  LogicOperation
-testdata/Builtins.lc 395:7-395:12  LogicOperation
-testdata/Builtins.lc 396:7-396:13  LogicOperation
-testdata/Builtins.lc 397:7-397:16  LogicOperation
-testdata/Builtins.lc 398:7-398:19  LogicOperation
-testdata/Builtins.lc 399:7-399:17  LogicOperation
-testdata/Builtins.lc 400:7-400:11  LogicOperation
-testdata/Builtins.lc 401:7-401:10  LogicOperation
-testdata/Builtins.lc 403:6-403:22  Type
-testdata/Builtins.lc 403:6-411:15  Type
-testdata/Builtins.lc 404:7-404:13  StencilOperation
-testdata/Builtins.lc 405:7-405:13  StencilOperation
-testdata/Builtins.lc 406:7-406:16  StencilOperation
-testdata/Builtins.lc 407:7-407:13  StencilOperation
-testdata/Builtins.lc 408:7-408:17  StencilOperation
-testdata/Builtins.lc 409:7-409:13  StencilOperation
-testdata/Builtins.lc 410:7-410:17  StencilOperation
-testdata/Builtins.lc 411:7-411:15  StencilOperation
-testdata/Builtins.lc 413:6-413:24  Type
-testdata/Builtins.lc 413:6-421:13  Type
-testdata/Builtins.lc 414:7-414:12  ComparisonFunction
-testdata/Builtins.lc 415:7-415:11  ComparisonFunction
-testdata/Builtins.lc 416:7-416:12  ComparisonFunction
-testdata/Builtins.lc 417:7-417:13  ComparisonFunction
-testdata/Builtins.lc 418:7-418:14  ComparisonFunction
-testdata/Builtins.lc 419:7-419:15  ComparisonFunction
-testdata/Builtins.lc 420:7-420:13  ComparisonFunction
-testdata/Builtins.lc 421:7-421:13  ComparisonFunction
-testdata/Builtins.lc 423:6-423:21  Type
-testdata/Builtins.lc 423:6-425:18  Type
-testdata/Builtins.lc 424:7-424:17  ProvokingVertex
-testdata/Builtins.lc 425:7-425:18  ProvokingVertex
-testdata/Builtins.lc 427:6-427:14  Type
-testdata/Builtins.lc 427:6-430:15  Type
-testdata/Builtins.lc 428:7-428:16  CullMode
-testdata/Builtins.lc 429:7-429:15  CullMode
-testdata/Builtins.lc 430:7-430:15  CullMode
-testdata/Builtins.lc 432:6-432:15  Type | Type -> Type
-testdata/Builtins.lc 432:6-432:17  Type
-testdata/Builtins.lc 432:6-433:22  Type
-testdata/Builtins.lc 432:6-434:23  Type
-testdata/Builtins.lc 432:6-434:36  Type
-testdata/Builtins.lc 432:16-432:17  Type
-testdata/Builtins.lc 433:7-433:16  PointSize _c | Type | forall a . Float -> PointSize a
-testdata/Builtins.lc 433:17-433:22  Type
-testdata/Builtins.lc 434:7-434:23  PointSize _d | Type | forall a . (a -> Float) -> PointSize a
-testdata/Builtins.lc 434:25-434:26  Type
-testdata/Builtins.lc 434:30-434:35  Type
-testdata/Builtins.lc 436:6-436:17  Type | Type -> Type
-testdata/Builtins.lc 436:6-436:19  Type
-testdata/Builtins.lc 436:6-438:33  Type
-testdata/Builtins.lc 436:6-439:18  Type
-testdata/Builtins.lc 436:6-439:24  Type
-testdata/Builtins.lc 436:18-436:19  Type
-testdata/Builtins.lc 437:7-437:18  PolygonMode _b | forall a . PolygonMode a
-testdata/Builtins.lc 438:7-438:19  PolygonMode _d | Type | forall a . PointSize a -> PolygonMode a
-testdata/Builtins.lc 438:21-438:30  Type -> Type
-testdata/Builtins.lc 438:21-438:32  Type
-testdata/Builtins.lc 438:31-438:32  Type
-testdata/Builtins.lc 439:7-439:18  PolygonMode _e | Type | forall a . Float -> PolygonMode a
-testdata/Builtins.lc 439:19-439:24  Type
-testdata/Builtins.lc 441:6-441:19  Type
-testdata/Builtins.lc 441:6-443:13  Type
-testdata/Builtins.lc 441:6-443:25  Type
-testdata/Builtins.lc 442:7-442:15  PolygonOffset
-testdata/Builtins.lc 443:7-443:13  Float -> Float -> PolygonOffset | PolygonOffset | Type
-testdata/Builtins.lc 443:14-443:19  Type
-testdata/Builtins.lc 443:20-443:25  Type
-testdata/Builtins.lc 445:6-445:28  Type
-testdata/Builtins.lc 445:6-447:16  Type
-testdata/Builtins.lc 446:7-446:16  PointSpriteCoordOrigin
-testdata/Builtins.lc 447:7-447:16  PointSpriteCoordOrigin
-testdata/Builtins.lc 450:1-450:12  () -> Vec 2 Float -> Vec 4 Float
-testdata/Builtins.lc 450:16-450:18  Type
-testdata/Builtins.lc 450:22-450:25  Nat -> Type -> Type
-testdata/Builtins.lc 450:22-450:27  Type -> Type
-testdata/Builtins.lc 450:22-450:33  Type
-testdata/Builtins.lc 450:22-450:48  Type
-testdata/Builtins.lc 450:26-450:27  _b
-testdata/Builtins.lc 450:28-450:33  Type
-testdata/Builtins.lc 450:37-450:40  Nat -> Type -> Type
-testdata/Builtins.lc 450:37-450:42  Type -> Type
-testdata/Builtins.lc 450:37-450:48  Type
-testdata/Builtins.lc 450:41-450:42  _b
-testdata/Builtins.lc 450:43-450:48  Type
-testdata/Builtins.lc 453:1-453:8  forall a . String -> a
-testdata/Builtins.lc 453:14-453:20  Type
-testdata/Builtins.lc 453:14-453:25  Type
-testdata/Builtins.lc 453:24-453:25  Type | _c
-testdata/Builtins.lc 455:6-455:19  Type | Type -> PrimitiveType -> Type
-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:115  Type
-testdata/Builtins.lc 456:26-456:34  Type
-testdata/Builtins.lc 456:26-456:115  Type
-testdata/Builtins.lc 456:38-456:49  Type -> Type
-testdata/Builtins.lc 456:38-456:51  Type
-testdata/Builtins.lc 456:38-456:115  Type
-testdata/Builtins.lc 456:50-456:51  Type
-testdata/Builtins.lc 456:55-456:68  Type
-testdata/Builtins.lc 456:55-456:115  Type
-testdata/Builtins.lc 456:72-456:87  Type
-testdata/Builtins.lc 456:72-456:115  Type
-testdata/Builtins.lc 456:91-456:104  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 456:91-456:106  PrimitiveType -> Type
-testdata/Builtins.lc 456:91-456:115  Type
-testdata/Builtins.lc 456:105-456:106  Type
-testdata/Builtins.lc 456:107-456:115  PrimitiveType
-testdata/Builtins.lc 457:3-457:11  RasterContext _f 'Point | forall a . PointSize a -> Float -> PointSpriteCoordOrigin -> RasterContext a 'Point
-testdata/Builtins.lc 457:3-457:112  Type
-testdata/Builtins.lc 457:26-457:35  Type -> Type
-testdata/Builtins.lc 457:26-457:37  Type
-testdata/Builtins.lc 457:26-457:112  Type
-testdata/Builtins.lc 457:36-457:37  Type
-testdata/Builtins.lc 457:41-457:46  Type
-testdata/Builtins.lc 457:41-457:112  Type
-testdata/Builtins.lc 457:50-457:72  Type
-testdata/Builtins.lc 457:50-457:112  Type
-testdata/Builtins.lc 457:91-457:104  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 457:91-457:106  PrimitiveType -> Type
-testdata/Builtins.lc 457:91-457:112  Type
-testdata/Builtins.lc 457:105-457:106  Type
-testdata/Builtins.lc 457:107-457:112  PrimitiveType
-testdata/Builtins.lc 458:3-458:10  RasterContext _f 'Line | forall a . Float -> ProvokingVertex -> RasterContext a 'Line
-testdata/Builtins.lc 458:3-458:111  Type
-testdata/Builtins.lc 458:26-458:31  Type
-testdata/Builtins.lc 458:26-458:111  Type
-testdata/Builtins.lc 458:35-458:50  Type
-testdata/Builtins.lc 458:35-458:111  Type
-testdata/Builtins.lc 458:91-458:104  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 458:91-458:106  PrimitiveType -> Type
-testdata/Builtins.lc 458:91-458:111  Type
-testdata/Builtins.lc 458:105-458:106  Type
-testdata/Builtins.lc 458:107-458:111  PrimitiveType
-testdata/Builtins.lc 460:6-460:14  Type | Type -> Type
-testdata/Builtins.lc 460:6-465:74  Type
-testdata/Builtins.lc 460:18-460:22  Type
-testdata/Builtins.lc 460:26-460:30  Type
-testdata/Builtins.lc 461:3-461:13  Blending _a | forall a . Blending a
-testdata/Builtins.lc 461:3-461:70  Type
-testdata/Builtins.lc 461:60-461:68  Type -> Type
-testdata/Builtins.lc 461:60-461:70  Type
-testdata/Builtins.lc 461:69-461:70  Type | _b
-testdata/Builtins.lc 462:3-462:15  Blending _c | forall a . Integral a => LogicOperation -> Blending a
-testdata/Builtins.lc 462:3-462:70  Type
-testdata/Builtins.lc 462:26-462:70  Type
-testdata/Builtins.lc 462:27-462:35  Type -> Type
-testdata/Builtins.lc 462:27-462:37  Type
-testdata/Builtins.lc 462:36-462:37  _b
-testdata/Builtins.lc 462:42-462:56  Type
-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-465:74  Type
-testdata/Builtins.lc 463:26-463:56  Type
-testdata/Builtins.lc 463:27-463:40  Type
-testdata/Builtins.lc 463:27-463:55  List Type
-testdata/Builtins.lc 463:42-463:55  List Type | Type
-testdata/Builtins.lc 464:29-464:97  Type
-testdata/Builtins.lc 464:29-465:74  Type
-testdata/Builtins.lc 464:30-464:62  Type
-testdata/Builtins.lc 464:30-464:96  List Type
-testdata/Builtins.lc 464:31-464:45  Type
-testdata/Builtins.lc 464:31-464:61  List Type
-testdata/Builtins.lc 464:47-464:61  List Type | Type
-testdata/Builtins.lc 464:64-464:96  List Type | Type
-testdata/Builtins.lc 464:65-464:79  Type
-testdata/Builtins.lc 464:65-464:95  List Type
-testdata/Builtins.lc 464:81-464:95  List Type | Type
-testdata/Builtins.lc 465:29-465:32  Nat -> Type -> Type
-testdata/Builtins.lc 465:29-465:34  Type -> Type
-testdata/Builtins.lc 465:29-465:40  Type
-testdata/Builtins.lc 465:29-465:74  Type
-testdata/Builtins.lc 465:33-465:34  _b
-testdata/Builtins.lc 465:35-465:40  Type
-testdata/Builtins.lc 465:60-465:68  Type -> Type
-testdata/Builtins.lc 465:60-465:74  Type
-testdata/Builtins.lc 465:69-465:74  Type
-testdata/Builtins.lc 467:6-467:18  Type
-testdata/Builtins.lc 468:6-468:16  Type
-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:112  Type
-testdata/Builtins.lc 471:26-471:29  Type -> Type
-testdata/Builtins.lc 471:26-471:31  Type
-testdata/Builtins.lc 471:26-471:112  Type
-testdata/Builtins.lc 471:30-471:31  _d
-testdata/Builtins.lc 471:35-471:43  Type -> Type
-testdata/Builtins.lc 471:35-471:45  Type
-testdata/Builtins.lc 471:35-471:112  Type
-testdata/Builtins.lc 471:44-471:45  Type
-testdata/Builtins.lc 471:49-471:58  Nat -> Type -> Type
-testdata/Builtins.lc 471:49-471:60  Type -> Type
-testdata/Builtins.lc 471:49-471:65  Type
-testdata/Builtins.lc 471:49-471:112  Type
-testdata/Builtins.lc 471:59-471:60  _d
-testdata/Builtins.lc 471:61-471:65  Type
-testdata/Builtins.lc 471:71-471:88  ImageKind -> Type
-testdata/Builtins.lc 471:71-471:112  Type
-testdata/Builtins.lc 471:90-471:95  Type -> ImageKind
-testdata/Builtins.lc 471:90-471:111  ImageKind
-testdata/Builtins.lc 471:97-471:106  Nat -> Type -> Type
-testdata/Builtins.lc 471:97-471:108  Type -> Type
-testdata/Builtins.lc 471:97-471:110  Type
-testdata/Builtins.lc 471:107-471:108  Nat
-testdata/Builtins.lc 471:109-471:110  Type
-testdata/Builtins.lc 472:3-472:10  ComparisonFunction -> Bool -> FragmentOperation 'Depth | FragmentOperation 'Depth
-testdata/Builtins.lc 472:3-472:94  Type
-testdata/Builtins.lc 472:26-472:44  Type
-testdata/Builtins.lc 472:48-472:52  Type
-testdata/Builtins.lc 472:48-472:94  Type
-testdata/Builtins.lc 472:71-472:88  ImageKind -> Type
-testdata/Builtins.lc 472:71-472:94  Type
-testdata/Builtins.lc 472:89-472:94  ImageKind
-testdata/Builtins.lc 473:3-473:12  FragmentOperation 'Stencil | StencilTests -> StencilOps -> StencilOps -> FragmentOperation 'Stencil
-testdata/Builtins.lc 473:3-473:96  Type
-testdata/Builtins.lc 473:26-473:38  Type
-testdata/Builtins.lc 473:42-473:52  Type
-testdata/Builtins.lc 473:42-473:96  Type
-testdata/Builtins.lc 473:56-473:66  Type
-testdata/Builtins.lc 473:56-473:96  Type
-testdata/Builtins.lc 473:71-473:88  ImageKind -> Type
-testdata/Builtins.lc 473:71-473:96  Type
-testdata/Builtins.lc 473:89-473:96  ImageKind
-testdata/Builtins.lc 475:6-475:18  Type | Type -> Type
-testdata/Builtins.lc 475:6-478:7  Type
-testdata/Builtins.lc 476:3-476:9  Interpolated _c | Type | forall a . Floating a => Interpolated a
-testdata/Builtins.lc 476:11-476:24  Interpolated _d | Type | forall a . Floating a => Interpolated a
-testdata/Builtins.lc 477:26-477:56  Type
-testdata/Builtins.lc 477:27-477:35  Type -> Type
-testdata/Builtins.lc 477:27-477:37  Type
-testdata/Builtins.lc 477:36-477:37  Type
-testdata/Builtins.lc 477:42-477:54  Type -> Type
-testdata/Builtins.lc 477:42-477:56  Type
-testdata/Builtins.lc 477:55-477:56  Type
-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 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
-testdata/Builtins.lc 481:10-481:28  List Type
-testdata/Builtins.lc 481:10-481:30  List Type -> Type
-testdata/Builtins.lc 481:10-481:44  Type
-testdata/Builtins.lc 481:14-481:26  Type -> Type
-testdata/Builtins.lc 481:27-481:28  _h
-testdata/Builtins.lc 481:29-481:30  forall a . a -> a -> Type
-testdata/Builtins.lc 481:31-481:44  _f
-testdata/Builtins.lc 482:10-482:11  _f
-testdata/Builtins.lc 482:10-482:13  _e -> Type
-testdata/Builtins.lc 482:10-482:35  Type
-testdata/Builtins.lc 482:10-486:34  Type
-testdata/Builtins.lc 482:12-482:13  forall a . a -> a -> Type
-testdata/Builtins.lc 482:14-482:19  forall a . a -> List a -> List a
-testdata/Builtins.lc 482:14-482:33  List Type -> List Type
-testdata/Builtins.lc 482:14-482:35  List Type
-testdata/Builtins.lc 482:21-482:24  Nat -> Type -> Type
-testdata/Builtins.lc 482:21-482:26  Type -> Type
-testdata/Builtins.lc 482:21-482:32  Type
-testdata/Builtins.lc 482:25-482:26  _b
-testdata/Builtins.lc 482:27-482:32  Type
-testdata/Builtins.lc 482:34-482:35  List Type
-testdata/Builtins.lc 483:8-483:13  List Type -> Type
-testdata/Builtins.lc 483:8-483:27  Type
-testdata/Builtins.lc 483:8-486:34  Type
-testdata/Builtins.lc 483:14-483:27  List Type
-testdata/Builtins.lc 484:8-484:21  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 484:8-484:31  PrimitiveType -> Type
-testdata/Builtins.lc 484:8-484:33  Type
-testdata/Builtins.lc 484:8-486:34  Type
-testdata/Builtins.lc 484:23-484:28  List Type -> Type
-testdata/Builtins.lc 484:23-484:30  Type
-testdata/Builtins.lc 484:29-484:30  List Type
-testdata/Builtins.lc 484:32-484:33  _e
-testdata/Builtins.lc 485:8-485:17  Type -> PrimitiveType -> Type
-testdata/Builtins.lc 485:8-485:27  PrimitiveType -> Type
-testdata/Builtins.lc 485:8-485:29  Type
-testdata/Builtins.lc 485:8-486:34  Type
-testdata/Builtins.lc 485:19-485:24  List Type -> Type
-testdata/Builtins.lc 485:19-485:26  Type
-testdata/Builtins.lc 485:25-485:26  List Type
-testdata/Builtins.lc 485:28-485:29  PrimitiveType
-testdata/Builtins.lc 486:8-486:22  Nat -> Type -> Type
-testdata/Builtins.lc 486:8-486:24  Type -> Type
-testdata/Builtins.lc 486:8-486:34  Type
-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: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: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: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
-testdata/Builtins.lc 488:72-488:73  _d
-testdata/Builtins.lc 490:26-490:29  Type
-testdata/Builtins.lc 490:36-490:43  Type -> Nat
-testdata/Builtins.lc 490:58-490:59  ImageKind -> Nat | Nat | Nat -> ImageKind -> Nat | Type -> Nat
-testdata/Builtins.lc 492:12-492:15  Type
-testdata/Builtins.lc 492:12-492:23  Type
-testdata/Builtins.lc 492:12-495:50  _a -> _a | forall a . List a -> Type
-testdata/Builtins.lc 492:13-492:14  _b
-testdata/Builtins.lc 492:19-492:23  Type
-testdata/Builtins.lc 493:1-493:8  forall a . List a -> Type
-testdata/Builtins.lc 493:14-493:19  Type
-testdata/Builtins.lc 493:14-495:50  List _a -> Type | Type
-testdata/Builtins.lc 494:15-494:20  Type
-testdata/Builtins.lc 494:15-495:50  List _b -> Type | List _c -> Type | Type | _a -> List _a -> Type
-testdata/Builtins.lc 495:22-495:25  Type -> Type -> Type
-testdata/Builtins.lc 495:22-495:33  Type -> Type
-testdata/Builtins.lc 495:22-495:50  List _b -> Type | Type | _a -> List _a -> Type
-testdata/Builtins.lc 495:27-495:28  _g
-testdata/Builtins.lc 495:27-495:30  _f -> Type
-testdata/Builtins.lc 495:27-495:32  Type
-testdata/Builtins.lc 495:29-495:30  forall a . a -> a -> Type
-testdata/Builtins.lc 495:31-495:32  _c
-testdata/Builtins.lc 495:35-495:42  forall a . List a -> Type
-testdata/Builtins.lc 495:35-495:49  Type
-testdata/Builtins.lc 495:44-495:45  _g
-testdata/Builtins.lc 495:44-495:46  List _f -> List _f
-testdata/Builtins.lc 495:44-495:48  List _e
-testdata/Builtins.lc 495:45-495:46  forall a . a -> List a -> List a
-testdata/Builtins.lc 495:46-495:48  List _e
-testdata/Builtins.lc 497:1-497:16  List Type -> Type
-testdata/Builtins.lc 497:21-497:28  forall a . List a -> Type
-testdata/Builtins.lc 497:21-497:45  Type
-testdata/Builtins.lc 497:30-497:33  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 497:30-497:42  List Type -> List Nat
-testdata/Builtins.lc 497:30-497:44  List Nat
-testdata/Builtins.lc 497:34-497:42  Type -> Nat
-testdata/Builtins.lc 497:43-497:44  _b
-testdata/Builtins.lc 509:6-509:17  Nat -> List ImageKind -> Type | Type
-testdata/Builtins.lc 509:6-509:46  Type
-testdata/Builtins.lc 509:24-509:27  Type
-testdata/Builtins.lc 509:35-509:46  Type
-testdata/Builtins.lc 509:36-509:45  Type
-testdata/Builtins.lc 511:15-511:26  Type
-testdata/Builtins.lc 511:16-511:25  Type
-testdata/Builtins.lc 511:30-511:36  Type
-testdata/Builtins.lc 511:31-511:35  Type
-testdata/Builtins.lc 512:1-512:11  List ImageKind -> List Type
-testdata/Builtins.lc 512:25-512:28  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 512:25-512:38  List ImageKind -> List Type
-testdata/Builtins.lc 512:25-512:40  List Type
-testdata/Builtins.lc 512:25-513:31  List ImageKind -> List Type | List Type | List Type -> ImageKind -> List Type | List _b -> List Type | _a -> List _a -> List Type
-testdata/Builtins.lc 512:29-512:38  ImageKind -> Type
-testdata/Builtins.lc 512:39-512:40  List _c
-testdata/Builtins.lc 513:16-513:19  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 513:16-513:29  List ImageKind -> List Type
-testdata/Builtins.lc 513:16-513:31  List Type | Type -> _a
-testdata/Builtins.lc 513:20-513:29  ImageKind -> Type
-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:15-517:174  Type
-testdata/Builtins.lc 517:28-517:31  Type
-testdata/Builtins.lc 517:39-517:45  Type
-testdata/Builtins.lc 517:39-517:174  Type
-testdata/Builtins.lc 517:40-517:44  Type
-testdata/Builtins.lc 517:49-517:174  Type
-testdata/Builtins.lc 517:50-517:51  _e
-testdata/Builtins.lc 517:50-517:53  _d -> Type
-testdata/Builtins.lc 517:50-517:81  Type
-testdata/Builtins.lc 517:52-517:53  forall a . a -> a -> Type
-testdata/Builtins.lc 517:54-517:57  forall a b . (a -> b) -> List a -> List b
-testdata/Builtins.lc 517:54-517:79  List Type -> List ImageKind
-testdata/Builtins.lc 517:54-517:81  List ImageKind
-testdata/Builtins.lc 517:58-517:79  Type -> ImageKind
-testdata/Builtins.lc 517:80-517:81  List Type
-testdata/Builtins.lc 517:86-517:91  List Type -> Type
-testdata/Builtins.lc 517:86-517:93  Type
-testdata/Builtins.lc 517:86-517:174  Type
-testdata/Builtins.lc 517:92-517:93  List Type
-testdata/Builtins.lc 517:97-517:111  Nat -> Type -> Type
-testdata/Builtins.lc 517:97-517:113  Type -> Type
-testdata/Builtins.lc 517:97-517:136  Type
-testdata/Builtins.lc 517:97-517:174  Type
-testdata/Builtins.lc 517:112-517:113  Nat
-testdata/Builtins.lc 517:115-517:120  List Type -> Type
-testdata/Builtins.lc 517:115-517:135  Type
-testdata/Builtins.lc 517:122-517:132  List ImageKind -> List Type
-testdata/Builtins.lc 517:122-517:134  List Type
-testdata/Builtins.lc 517:133-517:134  List ImageKind
-testdata/Builtins.lc 517:140-517:151  Nat -> List ImageKind -> Type
-testdata/Builtins.lc 517:140-517:153  List ImageKind -> Type
-testdata/Builtins.lc 517:140-517:155  Type
-testdata/Builtins.lc 517:140-517:174  Type
-testdata/Builtins.lc 517:152-517:153  Nat
-testdata/Builtins.lc 517:154-517:155  List ImageKind
-testdata/Builtins.lc 517:159-517:170  Nat -> List ImageKind -> Type
-testdata/Builtins.lc 517:159-517:172  List ImageKind -> Type
-testdata/Builtins.lc 517:159-517:174  Type
-testdata/Builtins.lc 517:171-517:172  Nat
-testdata/Builtins.lc 517:173-517:174  List ImageKind
-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: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
-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:30-530:36  Type
-testdata/Builtins.lc 530:31-530:35  Type
-testdata/Builtins.lc 530:40-530:125  Type
-testdata/Builtins.lc 530:41-530:56  List Type -> Type
-testdata/Builtins.lc 530:41-530:58  Type
-testdata/Builtins.lc 530:57-530:58  List Type
-testdata/Builtins.lc 530:63-530:68  List Type -> Type
-testdata/Builtins.lc 530:63-530:70  Type
-testdata/Builtins.lc 530:63-530:125  Type
-testdata/Builtins.lc 530:69-530:70  List Type
-testdata/Builtins.lc 530:74-530:85  Nat -> List ImageKind -> Type
-testdata/Builtins.lc 530:74-530:104  List ImageKind -> Type
-testdata/Builtins.lc 530:74-530:125  Type
-testdata/Builtins.lc 530:87-530:94  Type -> Nat
-testdata/Builtins.lc 530:87-530:103  Nat
-testdata/Builtins.lc 530:96-530:100  forall a . List a -> a
-testdata/Builtins.lc 530:96-530:102  Type
-testdata/Builtins.lc 530:101-530:102  List Type
-testdata/Builtins.lc 530:106-530:109  forall a b . (a -> b) -> List a -> List b
-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)
+testdata/Builtins.lc 10:1-10:3
+    forall a . a -> a
+testdata/Builtins.lc 10:8-10:9
+    _b
+testdata/Builtins.lc 14:6-14:10
+    Type -> Nat -> Type | Type -> Nat -> Type | Type | Type
+      -> Nat -> Type | Type | Type
+testdata/Builtins.lc 14:6-17:37
+    Type | Type | Type | Type
+testdata/Builtins.lc 14:17-14:21
+    Type | Type | Type | Type | Type
+testdata/Builtins.lc 14:26-14:29
+    Type
+testdata/Builtins.lc 14:26-14:37
+    Type
+testdata/Builtins.lc 14:33-14:37
+    Type | Type
+testdata/Builtins.lc 15:3-15:5
+    forall a . a -> a -> VecS a 2 | VecS _d 2
+testdata/Builtins.lc 15:3-15:27
+    Type | Type | Type
+testdata/Builtins.lc 15:9-15:10
+    Type
+testdata/Builtins.lc 15:9-15:27
+    Type
+testdata/Builtins.lc 15:14-15:15
+    Type
+testdata/Builtins.lc 15:14-15:27
+    Type
+testdata/Builtins.lc 15:19-15:23
+    Type -> Nat -> Type
+testdata/Builtins.lc 15:19-15:25
+    Nat -> Type
+testdata/Builtins.lc 15:19-15:27
+    Type | Type
+testdata/Builtins.lc 15:24-15:25
+    Type
+testdata/Builtins.lc 15:26-15:27
+    _b | _b
+testdata/Builtins.lc 16:3-16:5
+    forall a . a -> a -> a -> VecS a 3 | VecS _f 3
+testdata/Builtins.lc 16:3-16:32
+    Type | Type | Type | Type
+testdata/Builtins.lc 16:9-16:10
+    Type
+testdata/Builtins.lc 16:9-16:32
+    Type
+testdata/Builtins.lc 16:14-16:15
+    Type
+testdata/Builtins.lc 16:14-16:32
+    Type
+testdata/Builtins.lc 16:19-16:20
+    Type
+testdata/Builtins.lc 16:19-16:32
+    Type
+testdata/Builtins.lc 16:24-16:28
+    Type -> Nat -> Type
+testdata/Builtins.lc 16:24-16:30
+    Nat -> Type
+testdata/Builtins.lc 16:24-16:32
+    Type | Type
+testdata/Builtins.lc 16:29-16:30
+    Type
+testdata/Builtins.lc 16:31-16:32
+    _b | _b
+testdata/Builtins.lc 17:3-17:5
+    forall a . a -> a -> a -> a -> VecS a 4 | VecS _h 4
+testdata/Builtins.lc 17:3-17:37
+    Type | Type | Type | Type | Type
+testdata/Builtins.lc 17:9-17:10
+    Type
+testdata/Builtins.lc 17:9-17:37
+    Type
+testdata/Builtins.lc 17:14-17:15
+    Type
+testdata/Builtins.lc 17:14-17:37
+    Type
+testdata/Builtins.lc 17:19-17:20
+    Type
+testdata/Builtins.lc 17:19-17:37
+    Type
+testdata/Builtins.lc 17:24-17:25
+    Type
+testdata/Builtins.lc 17:24-17:37
+    Type
+testdata/Builtins.lc 17:29-17:33
+    Type -> Nat -> Type
+testdata/Builtins.lc 17:29-17:35
+    Nat -> Type
+testdata/Builtins.lc 17:29-17:37
+    Type | Type
+testdata/Builtins.lc 17:34-17:35
+    Type
+testdata/Builtins.lc 17:36-17:37
+    _b | _b
+testdata/Builtins.lc 19:11-19:43
+    Type | Type | Type
+testdata/Builtins.lc 19:12-19:13
+    _f
+testdata/Builtins.lc 19:17-19:18
+    _e | Type
+testdata/Builtins.lc 19:23-19:27
+    Type -> Nat -> Type
+testdata/Builtins.lc 19:23-19:29
+    Nat -> Type
+testdata/Builtins.lc 19:23-19:31
+    Type
+testdata/Builtins.lc 19:23-19:43
+    Type
+testdata/Builtins.lc 19:28-19:29
+    Type
+testdata/Builtins.lc 19:30-19:31
+    _c
+testdata/Builtins.lc 19:35-19:39
+    Type -> Nat -> Type
+testdata/Builtins.lc 19:35-19:41
+    Nat -> Type
+testdata/Builtins.lc 19:35-19:43
+    Type | Type
+testdata/Builtins.lc 19:40-19:41
+    Type
+testdata/Builtins.lc 19:42-19:43
+    Nat
+testdata/Builtins.lc 20:1-20:7
+    forall a b (c :: Nat) . (a -> b) -> VecS a c -> VecS b c
+testdata/Builtins.lc 20:21-20:23
+    forall a . a -> a -> VecS a 2
+testdata/Builtins.lc 20:21-20:29
+    _f -> VecS _f 2
+testdata/Builtins.lc 20:21-20:35
+    VecS _f 2
+testdata/Builtins.lc 20:21-21:43
+    (_e -> _e -> _e -> _e -> VecS _d 4)
+      -> forall (a :: Nat) . VecS _e a -> VecS _d a
+testdata/Builtins.lc 20:21-22:51
+    forall (a :: Nat) . VecS _e a -> VecS _d a
+testdata/Builtins.lc 20:25-20:26
+    _i -> _h
+testdata/Builtins.lc 20:25-20:28
+    _f
+testdata/Builtins.lc 20:27-20:28
+    _c
+testdata/Builtins.lc 20:31-20:32
+    _g -> _f
+testdata/Builtins.lc 20:31-20:34
+    _f
+testdata/Builtins.lc 20:33-20:34
+    _g
+testdata/Builtins.lc 21:23-21:25
+    forall a . a -> a -> a -> VecS a 3
+testdata/Builtins.lc 21:23-21:31
+    _g -> _g -> VecS _g 3
+testdata/Builtins.lc 21:23-21:37
+    _g -> VecS _g 3
+testdata/Builtins.lc 21:23-21:43
+    VecS _g 3
+testdata/Builtins.lc 21:27-21:28
+    _i -> _h
+testdata/Builtins.lc 21:27-21:30
+    _g
+testdata/Builtins.lc 21:29-21:30
+    _h
+testdata/Builtins.lc 21:33-21:34
+    _h -> _g
+testdata/Builtins.lc 21:33-21:36
+    _g
+testdata/Builtins.lc 21:35-21:36
+    _h
+testdata/Builtins.lc 21:39-21:40
+    _h -> _g
+testdata/Builtins.lc 21:39-21:42
+    _g
+testdata/Builtins.lc 21:41-21:42
+    _h
+testdata/Builtins.lc 22:25-22:27
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Builtins.lc 22:25-22:33
+    _h -> _h -> _h -> VecS _h 4
+testdata/Builtins.lc 22:25-22:39
+    _h -> _h -> VecS _h 4
+testdata/Builtins.lc 22:25-22:45
+    _h -> VecS _h 4
+testdata/Builtins.lc 22:25-22:51
+    VecS _h 4
+testdata/Builtins.lc 22:29-22:30
+    _j -> _i
+testdata/Builtins.lc 22:29-22:32
+    _h
+testdata/Builtins.lc 22:31-22:32
+    _i
+testdata/Builtins.lc 22:35-22:36
+    _i -> _h
+testdata/Builtins.lc 22:35-22:38
+    _h
+testdata/Builtins.lc 22:37-22:38
+    _i
+testdata/Builtins.lc 22:41-22:42
+    _i -> _h
+testdata/Builtins.lc 22:41-22:44
+    _h
+testdata/Builtins.lc 22:43-22:44
+    _i
+testdata/Builtins.lc 22:47-22:48
+    _i -> _h
+testdata/Builtins.lc 22:47-22:50
+    _h
+testdata/Builtins.lc 22:49-22:50
+    _i
+testdata/Builtins.lc 24:23-24:26
+    Type
+testdata/Builtins.lc 24:37-24:40
+    Nat -> Type -> Type
+testdata/Builtins.lc 24:47-24:51
+    Type -> Nat -> Type
+testdata/Builtins.lc 24:47-24:53
+    Nat -> Type
+testdata/Builtins.lc 24:47-24:55
+    Type
+testdata/Builtins.lc 24:52-24:53
+    Type
+testdata/Builtins.lc 24:54-24:55
+    Nat
+testdata/Builtins.lc 27:29-27:32
+    Type
+testdata/Builtins.lc 28:5-28:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 28:21-28:22
+    Type
+testdata/Builtins.lc 28:21-29:60
+    Nat -> Type
+testdata/Builtins.lc 29:37-29:40
+    Nat -> Type -> Type
+testdata/Builtins.lc 29:37-29:58
+    Type -> Type
+testdata/Builtins.lc 29:37-29:60
+    Type
+testdata/Builtins.lc 29:42-29:47
+    Nat -> Nat
+testdata/Builtins.lc 29:42-29:57
+    Nat
+testdata/Builtins.lc 29:49-29:54
+    Nat -> Nat
+testdata/Builtins.lc 29:49-29:56
+    Nat
+testdata/Builtins.lc 29:55-29:56
+    Nat
+testdata/Builtins.lc 29:59-29:60
+    Type
+testdata/Builtins.lc 32:6-32:9
+    Nat -> Nat -> Type -> Type | Nat
+      -> Nat -> Type -> Type | Type | Type | Type | Nat
+      -> Nat -> Type -> Type | Type | Type | Type | Type
+testdata/Builtins.lc 32:6-41:84
+    Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 32:13-32:16
+    Type
+testdata/Builtins.lc 32:20-32:23
+    Type
+testdata/Builtins.lc 32:20-32:39
+    Type
+testdata/Builtins.lc 32:27-32:31
+    Type
+testdata/Builtins.lc 32:27-32:39
+    Type
+testdata/Builtins.lc 32:35-32:39
+    Type | Type
+testdata/Builtins.lc 33:3-33:7
+    Vec 2 Float -> Vec 2 Float -> Mat 2 2 Float | Mat 2 2 Float
+testdata/Builtins.lc 33:3-33:54
+    Type | Type | Type
+testdata/Builtins.lc 33:11-33:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 33:11-33:16
+    Type -> Type
+testdata/Builtins.lc 33:11-33:22
+    Type
+testdata/Builtins.lc 33:15-33:16
+    _b
+testdata/Builtins.lc 33:17-33:22
+    Type
+testdata/Builtins.lc 33:26-33:29
+    Nat -> Type -> Type
+testdata/Builtins.lc 33:26-33:31
+    Type -> Type
+testdata/Builtins.lc 33:26-33:37
+    Type
+testdata/Builtins.lc 33:26-33:54
+    Type
+testdata/Builtins.lc 33:30-33:31
+    _b
+testdata/Builtins.lc 33:32-33:37
+    Type
+testdata/Builtins.lc 33:41-33:44
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 33:41-33:46
+    Nat -> Type -> Type
+testdata/Builtins.lc 33:41-33:48
+    Type -> Type
+testdata/Builtins.lc 33:41-33:54
+    Type | Type
+testdata/Builtins.lc 33:45-33:46
+    _b | _b
+testdata/Builtins.lc 33:45-33:48
+    forall a -> Mat 2 2 a -> Type
+testdata/Builtins.lc 33:45-33:54
+    Mat 2 2 Float -> Type
+testdata/Builtins.lc 33:47-33:48
+    _b | _b
+testdata/Builtins.lc 33:49-33:54
+    Type | Type
+testdata/Builtins.lc 34:3-34:7
+    Vec 3 Float -> Vec 3 Float -> Mat 3 2 Float | Mat 3 2 Float
+testdata/Builtins.lc 34:3-34:54
+    Type | Type | Type
+testdata/Builtins.lc 34:11-34:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 34:11-34:16
+    Type -> Type
+testdata/Builtins.lc 34:11-34:22
+    Type
+testdata/Builtins.lc 34:15-34:16
+    _b
+testdata/Builtins.lc 34:17-34:22
+    Type
+testdata/Builtins.lc 34:26-34:29
+    Nat -> Type -> Type
+testdata/Builtins.lc 34:26-34:31
+    Type -> Type
+testdata/Builtins.lc 34:26-34:37
+    Type
+testdata/Builtins.lc 34:26-34:54
+    Type
+testdata/Builtins.lc 34:30-34:31
+    _b
+testdata/Builtins.lc 34:32-34:37
+    Type
+testdata/Builtins.lc 34:41-34:44
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 34:41-34:46
+    Nat -> Type -> Type
+testdata/Builtins.lc 34:41-34:48
+    Type -> Type
+testdata/Builtins.lc 34:41-34:54
+    Type | Type
+testdata/Builtins.lc 34:45-34:46
+    _b | _b
+testdata/Builtins.lc 34:45-34:48
+    forall a -> Mat 3 2 a -> Type
+testdata/Builtins.lc 34:45-34:54
+    Mat 3 2 Float -> Type
+testdata/Builtins.lc 34:47-34:48
+    _b | _b
+testdata/Builtins.lc 34:49-34:54
+    Type | Type
+testdata/Builtins.lc 35:3-35:7
+    Vec 4 Float -> Vec 4 Float -> Mat 4 2 Float | Mat 4 2 Float
+testdata/Builtins.lc 35:3-35:54
+    Type | Type | Type
+testdata/Builtins.lc 35:11-35:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 35:11-35:16
+    Type -> Type
+testdata/Builtins.lc 35:11-35:22
+    Type
+testdata/Builtins.lc 35:15-35:16
+    _b
+testdata/Builtins.lc 35:17-35:22
+    Type
+testdata/Builtins.lc 35:26-35:29
+    Nat -> Type -> Type
+testdata/Builtins.lc 35:26-35:31
+    Type -> Type
+testdata/Builtins.lc 35:26-35:37
+    Type
+testdata/Builtins.lc 35:26-35:54
+    Type
+testdata/Builtins.lc 35:30-35:31
+    _b
+testdata/Builtins.lc 35:32-35:37
+    Type
+testdata/Builtins.lc 35:41-35:44
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 35:41-35:46
+    Nat -> Type -> Type
+testdata/Builtins.lc 35:41-35:48
+    Type -> Type
+testdata/Builtins.lc 35:41-35:54
+    Type | Type
+testdata/Builtins.lc 35:45-35:46
+    _b | _b
+testdata/Builtins.lc 35:45-35:48
+    forall a -> Mat 4 2 a -> Type
+testdata/Builtins.lc 35:45-35:54
+    Mat 4 2 Float -> Type
+testdata/Builtins.lc 35:47-35:48
+    _b | _b
+testdata/Builtins.lc 35:49-35:54
+    Type | Type
+testdata/Builtins.lc 36:3-36:7
+    Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Mat 2 3 Float | Mat 2 3 Float
+testdata/Builtins.lc 36:3-36:69
+    Type | Type | Type | Type
+testdata/Builtins.lc 36:11-36:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 36:11-36:16
+    Type -> Type
+testdata/Builtins.lc 36:11-36:22
+    Type
+testdata/Builtins.lc 36:15-36:16
+    _b
+testdata/Builtins.lc 36:17-36:22
+    Type
+testdata/Builtins.lc 36:26-36:29
+    Nat -> Type -> Type
+testdata/Builtins.lc 36:26-36:31
+    Type -> Type
+testdata/Builtins.lc 36:26-36:37
+    Type
+testdata/Builtins.lc 36:26-36:69
+    Type
+testdata/Builtins.lc 36:30-36:31
+    _b
+testdata/Builtins.lc 36:32-36:37
+    Type
+testdata/Builtins.lc 36:41-36:44
+    Nat -> Type -> Type
+testdata/Builtins.lc 36:41-36:46
+    Type -> Type
+testdata/Builtins.lc 36:41-36:52
+    Type
+testdata/Builtins.lc 36:41-36:69
+    Type
+testdata/Builtins.lc 36:45-36:46
+    _b
+testdata/Builtins.lc 36:47-36:52
+    Type
+testdata/Builtins.lc 36:56-36:59
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 36:56-36:61
+    Nat -> Type -> Type
+testdata/Builtins.lc 36:56-36:63
+    Type -> Type
+testdata/Builtins.lc 36:56-36:69
+    Type | Type
+testdata/Builtins.lc 36:60-36:61
+    _b | _b
+testdata/Builtins.lc 36:60-36:63
+    forall a -> Mat 2 3 a -> Type
+testdata/Builtins.lc 36:60-36:69
+    Mat 2 3 Float -> Type
+testdata/Builtins.lc 36:62-36:63
+    _b | _b
+testdata/Builtins.lc 36:64-36:69
+    Type | Type
+testdata/Builtins.lc 37:3-37:7
+    Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 3 3 Float | Mat 3 3 Float
+testdata/Builtins.lc 37:3-37:69
+    Type | Type | Type | Type
+testdata/Builtins.lc 37:11-37:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 37:11-37:16
+    Type -> Type
+testdata/Builtins.lc 37:11-37:22
+    Type
+testdata/Builtins.lc 37:15-37:16
+    _b
+testdata/Builtins.lc 37:17-37:22
+    Type
+testdata/Builtins.lc 37:26-37:29
+    Nat -> Type -> Type
+testdata/Builtins.lc 37:26-37:31
+    Type -> Type
+testdata/Builtins.lc 37:26-37:37
+    Type
+testdata/Builtins.lc 37:26-37:69
+    Type
+testdata/Builtins.lc 37:30-37:31
+    _b
+testdata/Builtins.lc 37:32-37:37
+    Type
+testdata/Builtins.lc 37:41-37:44
+    Nat -> Type -> Type
+testdata/Builtins.lc 37:41-37:46
+    Type -> Type
+testdata/Builtins.lc 37:41-37:52
+    Type
+testdata/Builtins.lc 37:41-37:69
+    Type
+testdata/Builtins.lc 37:45-37:46
+    _b
+testdata/Builtins.lc 37:47-37:52
+    Type
+testdata/Builtins.lc 37:56-37:59
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 37:56-37:61
+    Nat -> Type -> Type
+testdata/Builtins.lc 37:56-37:63
+    Type -> Type
+testdata/Builtins.lc 37:56-37:69
+    Type | Type
+testdata/Builtins.lc 37:60-37:61
+    _b | _b
+testdata/Builtins.lc 37:60-37:63
+    forall a -> Mat 3 3 a -> Type
+testdata/Builtins.lc 37:60-37:69
+    Mat 3 3 Float -> Type
+testdata/Builtins.lc 37:62-37:63
+    _b | _b
+testdata/Builtins.lc 37:64-37:69
+    Type | Type
+testdata/Builtins.lc 38:3-38:7
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 3 Float | Mat 4 3 Float
+testdata/Builtins.lc 38:3-38:69
+    Type | Type | Type | Type
+testdata/Builtins.lc 38:11-38:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 38:11-38:16
+    Type -> Type
+testdata/Builtins.lc 38:11-38:22
+    Type
+testdata/Builtins.lc 38:15-38:16
+    _b
+testdata/Builtins.lc 38:17-38:22
+    Type
+testdata/Builtins.lc 38:26-38:29
+    Nat -> Type -> Type
+testdata/Builtins.lc 38:26-38:31
+    Type -> Type
+testdata/Builtins.lc 38:26-38:37
+    Type
+testdata/Builtins.lc 38:26-38:69
+    Type
+testdata/Builtins.lc 38:30-38:31
+    _b
+testdata/Builtins.lc 38:32-38:37
+    Type
+testdata/Builtins.lc 38:41-38:44
+    Nat -> Type -> Type
+testdata/Builtins.lc 38:41-38:46
+    Type -> Type
+testdata/Builtins.lc 38:41-38:52
+    Type
+testdata/Builtins.lc 38:41-38:69
+    Type
+testdata/Builtins.lc 38:45-38:46
+    _b
+testdata/Builtins.lc 38:47-38:52
+    Type
+testdata/Builtins.lc 38:56-38:59
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 38:56-38:61
+    Nat -> Type -> Type
+testdata/Builtins.lc 38:56-38:63
+    Type -> Type
+testdata/Builtins.lc 38:56-38:69
+    Type | Type
+testdata/Builtins.lc 38:60-38:61
+    _b | _b
+testdata/Builtins.lc 38:60-38:63
+    forall a -> Mat 4 3 a -> Type
+testdata/Builtins.lc 38:60-38:69
+    Mat 4 3 Float -> Type
+testdata/Builtins.lc 38:62-38:63
+    _b | _b
+testdata/Builtins.lc 38:64-38:69
+    Type | Type
+testdata/Builtins.lc 39:3-39:7
+    Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Vec 2 Float -> Mat 2 4 Float | Mat
+      2
+      4
+      Float
+testdata/Builtins.lc 39:3-39:84
+    Type | Type | Type | Type | Type
+testdata/Builtins.lc 39:11-39:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 39:11-39:16
+    Type -> Type
+testdata/Builtins.lc 39:11-39:22
+    Type
+testdata/Builtins.lc 39:15-39:16
+    _b
+testdata/Builtins.lc 39:17-39:22
+    Type
+testdata/Builtins.lc 39:26-39:29
+    Nat -> Type -> Type
+testdata/Builtins.lc 39:26-39:31
+    Type -> Type
+testdata/Builtins.lc 39:26-39:37
+    Type
+testdata/Builtins.lc 39:26-39:84
+    Type
+testdata/Builtins.lc 39:30-39:31
+    _b
+testdata/Builtins.lc 39:32-39:37
+    Type
+testdata/Builtins.lc 39:41-39:44
+    Nat -> Type -> Type
+testdata/Builtins.lc 39:41-39:46
+    Type -> Type
+testdata/Builtins.lc 39:41-39:52
+    Type
+testdata/Builtins.lc 39:41-39:84
+    Type
+testdata/Builtins.lc 39:45-39:46
+    _b
+testdata/Builtins.lc 39:47-39:52
+    Type
+testdata/Builtins.lc 39:56-39:59
+    Nat -> Type -> Type
+testdata/Builtins.lc 39:56-39:61
+    Type -> Type
+testdata/Builtins.lc 39:56-39:67
+    Type
+testdata/Builtins.lc 39:56-39:84
+    Type
+testdata/Builtins.lc 39:60-39:61
+    _b
+testdata/Builtins.lc 39:62-39:67
+    Type
+testdata/Builtins.lc 39:71-39:74
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 39:71-39:76
+    Nat -> Type -> Type
+testdata/Builtins.lc 39:71-39:78
+    Type -> Type
+testdata/Builtins.lc 39:71-39:84
+    Type | Type
+testdata/Builtins.lc 39:75-39:76
+    _b | _b
+testdata/Builtins.lc 39:75-39:78
+    forall a -> Mat 2 4 a -> Type
+testdata/Builtins.lc 39:75-39:84
+    Mat 2 4 Float -> Type
+testdata/Builtins.lc 39:77-39:78
+    _b | _b
+testdata/Builtins.lc 39:79-39:84
+    Type | Type
+testdata/Builtins.lc 40:3-40:7
+    Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 3 4 Float | Mat
+      3
+      4
+      Float
+testdata/Builtins.lc 40:3-40:84
+    Type | Type | Type | Type | Type
+testdata/Builtins.lc 40:11-40:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 40:11-40:16
+    Type -> Type
+testdata/Builtins.lc 40:11-40:22
+    Type
+testdata/Builtins.lc 40:15-40:16
+    _b
+testdata/Builtins.lc 40:17-40:22
+    Type
+testdata/Builtins.lc 40:26-40:29
+    Nat -> Type -> Type
+testdata/Builtins.lc 40:26-40:31
+    Type -> Type
+testdata/Builtins.lc 40:26-40:37
+    Type
+testdata/Builtins.lc 40:26-40:84
+    Type
+testdata/Builtins.lc 40:30-40:31
+    _b
+testdata/Builtins.lc 40:32-40:37
+    Type
+testdata/Builtins.lc 40:41-40:44
+    Nat -> Type -> Type
+testdata/Builtins.lc 40:41-40:46
+    Type -> Type
+testdata/Builtins.lc 40:41-40:52
+    Type
+testdata/Builtins.lc 40:41-40:84
+    Type
+testdata/Builtins.lc 40:45-40:46
+    _b
+testdata/Builtins.lc 40:47-40:52
+    Type
+testdata/Builtins.lc 40:56-40:59
+    Nat -> Type -> Type
+testdata/Builtins.lc 40:56-40:61
+    Type -> Type
+testdata/Builtins.lc 40:56-40:67
+    Type
+testdata/Builtins.lc 40:56-40:84
+    Type
+testdata/Builtins.lc 40:60-40:61
+    _b
+testdata/Builtins.lc 40:62-40:67
+    Type
+testdata/Builtins.lc 40:71-40:74
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 40:71-40:76
+    Nat -> Type -> Type
+testdata/Builtins.lc 40:71-40:78
+    Type -> Type
+testdata/Builtins.lc 40:71-40:84
+    Type | Type
+testdata/Builtins.lc 40:75-40:76
+    _b | _b
+testdata/Builtins.lc 40:75-40:78
+    forall a -> Mat 3 4 a -> Type
+testdata/Builtins.lc 40:75-40:84
+    Mat 3 4 Float -> Type
+testdata/Builtins.lc 40:77-40:78
+    _b | _b
+testdata/Builtins.lc 40:79-40:84
+    Type | Type
+testdata/Builtins.lc 41:3-41:7
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float | Mat
+      4
+      4
+      Float
+testdata/Builtins.lc 41:3-41:84
+    Type | Type | Type | Type | Type
+testdata/Builtins.lc 41:11-41:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 41:11-41:16
+    Type -> Type
+testdata/Builtins.lc 41:11-41:22
+    Type
+testdata/Builtins.lc 41:15-41:16
+    _b
+testdata/Builtins.lc 41:17-41:22
+    Type
+testdata/Builtins.lc 41:26-41:29
+    Nat -> Type -> Type
+testdata/Builtins.lc 41:26-41:31
+    Type -> Type
+testdata/Builtins.lc 41:26-41:37
+    Type
+testdata/Builtins.lc 41:26-41:84
+    Type
+testdata/Builtins.lc 41:30-41:31
+    _b
+testdata/Builtins.lc 41:32-41:37
+    Type
+testdata/Builtins.lc 41:41-41:44
+    Nat -> Type -> Type
+testdata/Builtins.lc 41:41-41:46
+    Type -> Type
+testdata/Builtins.lc 41:41-41:52
+    Type
+testdata/Builtins.lc 41:41-41:84
+    Type
+testdata/Builtins.lc 41:45-41:46
+    _b
+testdata/Builtins.lc 41:47-41:52
+    Type
+testdata/Builtins.lc 41:56-41:59
+    Nat -> Type -> Type
+testdata/Builtins.lc 41:56-41:61
+    Type -> Type
+testdata/Builtins.lc 41:56-41:67
+    Type
+testdata/Builtins.lc 41:56-41:84
+    Type
+testdata/Builtins.lc 41:60-41:61
+    _b
+testdata/Builtins.lc 41:62-41:67
+    Type
+testdata/Builtins.lc 41:71-41:74
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 41:71-41:76
+    Nat -> Type -> Type
+testdata/Builtins.lc 41:71-41:78
+    Type -> Type
+testdata/Builtins.lc 41:71-41:84
+    Type | Type
+testdata/Builtins.lc 41:75-41:76
+    _b | _b
+testdata/Builtins.lc 41:75-41:78
+    forall a -> Mat 4 4 a -> Type
+testdata/Builtins.lc 41:75-41:84
+    Mat 4 4 Float -> Type
+testdata/Builtins.lc 41:77-41:78
+    _b | _b
+testdata/Builtins.lc 41:79-41:84
+    Type | Type
+testdata/Builtins.lc 44:5-44:21
+    Type -> Type
+testdata/Builtins.lc 44:30-44:35
+    Type
+testdata/Builtins.lc 44:30-48:37
+    Type
+testdata/Builtins.lc 45:29-45:33
+    Type
+testdata/Builtins.lc 45:29-48:37
+    Type
+testdata/Builtins.lc 46:28-46:31
+    Type
+testdata/Builtins.lc 46:28-48:37
+    Type
+testdata/Builtins.lc 47:35-47:36
+    Type
+testdata/Builtins.lc 47:35-48:37
+    Type
+testdata/Builtins.lc 48:36-48:37
+    Type
+testdata/Builtins.lc 52:7-52:13
+    Type -> Type
+testdata/Builtins.lc 57:7-57:16
+    Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 57:7-58:12
+    Type
+testdata/Builtins.lc 57:7-59:11
+    Type
+testdata/Builtins.lc 58:3-58:7
+    forall a . Component a => a
+testdata/Builtins.lc 58:11-58:12
+    Type | Type
+testdata/Builtins.lc 59:3-59:6
+    forall a . Component a => a
+testdata/Builtins.lc 59:10-59:11
+    Type | Type
+testdata/Builtins.lc 62:10-62:11
+    _b
+testdata/Builtins.lc 62:10-89:36
+    _b
+testdata/Builtins.lc 62:15-62:18
+    Type
+testdata/Builtins.lc 63:9-63:10
+    _b
+testdata/Builtins.lc 63:9-90:31
+    _b
+testdata/Builtins.lc 63:14-63:17
+    Type
+testdata/Builtins.lc 65:10-65:11
+    _b
+testdata/Builtins.lc 65:10-89:36
+    _b
+testdata/Builtins.lc 65:15-65:19
+    Type
+testdata/Builtins.lc 66:9-66:10
+    _b
+testdata/Builtins.lc 66:9-90:31
+    _b
+testdata/Builtins.lc 66:14-66:18
+    Type
+testdata/Builtins.lc 68:10-68:13
+    Float
+testdata/Builtins.lc 68:10-89:36
+    _b
+testdata/Builtins.lc 69:9-69:12
+    Float
+testdata/Builtins.lc 69:9-90:31
+    _b
+testdata/Builtins.lc 71:10-71:12
+    forall a . a -> a -> VecS a 2
+testdata/Builtins.lc 71:10-71:16
+    Float -> VecS Float 2
+testdata/Builtins.lc 71:10-71:20
+    VecS Float 2
+testdata/Builtins.lc 71:10-77:28
+    forall (a :: Nat) -> VecS Float ('Succ ('Succ a))
+testdata/Builtins.lc 71:10-89:36
+    VecS _b _a
+testdata/Builtins.lc 71:13-71:16
+    Float
+testdata/Builtins.lc 71:17-71:20
+    Float
+testdata/Builtins.lc 72:9-72:11
+    forall a . a -> a -> VecS a 2
+testdata/Builtins.lc 72:9-72:15
+    Float -> VecS Float 2
+testdata/Builtins.lc 72:9-72:19
+    VecS Float 2
+testdata/Builtins.lc 72:9-78:27
+    forall (a :: Nat) -> VecS Float ('Succ ('Succ a))
+testdata/Builtins.lc 72:9-90:31
+    VecS _b _a
+testdata/Builtins.lc 72:12-72:15
+    Float
+testdata/Builtins.lc 72:16-72:19
+    Float
+testdata/Builtins.lc 74:10-74:12
+    forall a . a -> a -> a -> VecS a 3
+testdata/Builtins.lc 74:10-74:16
+    Float -> Float -> VecS Float 3
+testdata/Builtins.lc 74:10-74:20
+    Float -> VecS Float 3
+testdata/Builtins.lc 74:10-74:24
+    VecS Float 3
+testdata/Builtins.lc 74:10-77:28
+    forall (a :: Nat) -> VecS Float ('Succ ('Succ ('Succ a)))
+testdata/Builtins.lc 74:13-74:16
+    Float
+testdata/Builtins.lc 74:17-74:20
+    Float
+testdata/Builtins.lc 74:21-74:24
+    Float
+testdata/Builtins.lc 75:9-75:11
+    forall a . a -> a -> a -> VecS a 3
+testdata/Builtins.lc 75:9-75:15
+    Float -> Float -> VecS Float 3
+testdata/Builtins.lc 75:9-75:19
+    Float -> VecS Float 3
+testdata/Builtins.lc 75:9-75:23
+    VecS Float 3
+testdata/Builtins.lc 75:9-78:27
+    forall (a :: Nat) -> VecS Float ('Succ ('Succ ('Succ a)))
+testdata/Builtins.lc 75:12-75:15
+    Float
+testdata/Builtins.lc 75:16-75:19
+    Float
+testdata/Builtins.lc 75:20-75:23
+    Float
+testdata/Builtins.lc 77:10-77:12
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Builtins.lc 77:10-77:16
+    Float -> Float -> Float -> VecS Float 4
+testdata/Builtins.lc 77:10-77:20
+    Float -> Float -> VecS Float 4
+testdata/Builtins.lc 77:10-77:24
+    Float -> VecS Float 4
+testdata/Builtins.lc 77:10-77:28
+    VecS Float 4
+testdata/Builtins.lc 77:13-77:16
+    Float
+testdata/Builtins.lc 77:17-77:20
+    Float
+testdata/Builtins.lc 77:21-77:24
+    Float
+testdata/Builtins.lc 77:25-77:28
+    Float
+testdata/Builtins.lc 78:9-78:11
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Builtins.lc 78:9-78:15
+    Float -> Float -> Float -> VecS Float 4
+testdata/Builtins.lc 78:9-78:19
+    Float -> Float -> VecS Float 4
+testdata/Builtins.lc 78:9-78:23
+    Float -> VecS Float 4
+testdata/Builtins.lc 78:9-78:27
+    VecS Float 4
+testdata/Builtins.lc 78:12-78:15
+    Float
+testdata/Builtins.lc 78:16-78:19
+    Float
+testdata/Builtins.lc 78:20-78:23
+    Float
+testdata/Builtins.lc 78:24-78:27
+    Float
+testdata/Builtins.lc 80:10-80:15
+    Bool
+testdata/Builtins.lc 81:9-81:13
+    Bool
+testdata/Builtins.lc 83:10-83:12
+    forall a . a -> a -> VecS a 2
+testdata/Builtins.lc 83:10-83:18
+    Bool -> VecS Bool 2
+testdata/Builtins.lc 83:10-83:24
+    VecS Bool 2
+testdata/Builtins.lc 83:10-89:36
+    forall (a :: Nat) -> VecS Bool ('Succ ('Succ a))
+testdata/Builtins.lc 83:13-83:18
+    Bool
+testdata/Builtins.lc 83:19-83:24
+    Bool
+testdata/Builtins.lc 84:9-84:11
+    forall a . a -> a -> VecS a 2
+testdata/Builtins.lc 84:9-84:16
+    Bool -> VecS Bool 2
+testdata/Builtins.lc 84:9-84:21
+    VecS Bool 2
+testdata/Builtins.lc 84:9-90:31
+    forall (a :: Nat) -> VecS Bool ('Succ ('Succ a))
+testdata/Builtins.lc 84:12-84:16
+    Bool
+testdata/Builtins.lc 84:17-84:21
+    Bool
+testdata/Builtins.lc 86:10-86:12
+    forall a . a -> a -> a -> VecS a 3
+testdata/Builtins.lc 86:10-86:18
+    Bool -> Bool -> VecS Bool 3
+testdata/Builtins.lc 86:10-86:24
+    Bool -> VecS Bool 3
+testdata/Builtins.lc 86:10-86:30
+    VecS Bool 3
+testdata/Builtins.lc 86:10-89:36
+    forall (a :: Nat) -> VecS Bool ('Succ ('Succ ('Succ a)))
+testdata/Builtins.lc 86:13-86:18
+    Bool
+testdata/Builtins.lc 86:19-86:24
+    Bool
+testdata/Builtins.lc 86:25-86:30
+    Bool
+testdata/Builtins.lc 87:9-87:11
+    forall a . a -> a -> a -> VecS a 3
+testdata/Builtins.lc 87:9-87:16
+    Bool -> Bool -> VecS Bool 3
+testdata/Builtins.lc 87:9-87:21
+    Bool -> VecS Bool 3
+testdata/Builtins.lc 87:9-87:26
+    VecS Bool 3
+testdata/Builtins.lc 87:9-90:31
+    forall (a :: Nat) -> VecS Bool ('Succ ('Succ ('Succ a)))
+testdata/Builtins.lc 87:12-87:16
+    Bool
+testdata/Builtins.lc 87:17-87:21
+    Bool
+testdata/Builtins.lc 87:22-87:26
+    Bool
+testdata/Builtins.lc 89:10-89:12
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Builtins.lc 89:10-89:18
+    Bool -> Bool -> Bool -> VecS Bool 4
+testdata/Builtins.lc 89:10-89:24
+    Bool -> Bool -> VecS Bool 4
+testdata/Builtins.lc 89:10-89:30
+    Bool -> VecS Bool 4
+testdata/Builtins.lc 89:10-89:36
+    VecS Bool 4
+testdata/Builtins.lc 89:13-89:18
+    Bool
+testdata/Builtins.lc 89:19-89:24
+    Bool
+testdata/Builtins.lc 89:25-89:30
+    Bool
+testdata/Builtins.lc 89:31-89:36
+    Bool
+testdata/Builtins.lc 90:9-90:11
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Builtins.lc 90:9-90:16
+    Bool -> Bool -> Bool -> VecS Bool 4
+testdata/Builtins.lc 90:9-90:21
+    Bool -> Bool -> VecS Bool 4
+testdata/Builtins.lc 90:9-90:26
+    Bool -> VecS Bool 4
+testdata/Builtins.lc 90:9-90:31
+    VecS Bool 4
+testdata/Builtins.lc 90:12-90:16
+    Bool
+testdata/Builtins.lc 90:17-90:21
+    Bool
+testdata/Builtins.lc 90:22-90:26
+    Bool
+testdata/Builtins.lc 90:27-90:31
+    Bool
+testdata/Builtins.lc 92:7-92:15
+    Type -> Type
+testdata/Builtins.lc 97:7-97:15
+    Type -> Type
+testdata/Builtins.lc 118:1-118:8
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Builtins.lc 118:10-118:17
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Builtins.lc 118:19-118:26
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Builtins.lc 118:34-118:37
+    Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 118:34-118:58
+    Type | Type | Type
+testdata/Builtins.lc 118:34-118:73
+    Type | Type | Type
+testdata/Builtins.lc 118:39-118:55
+    Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 118:39-118:57
+    Type | Type | Type
+testdata/Builtins.lc 118:56-118:57
+    _b | _b | _b
+testdata/Builtins.lc 118:62-118:63
+    Type | Type | Type
+testdata/Builtins.lc 118:62-118:73
+    Type | Type | Type
+testdata/Builtins.lc 118:67-118:68
+    Type | Type | Type
+testdata/Builtins.lc 118:67-118:73
+    Type | Type | Type
+testdata/Builtins.lc 118:72-118:73
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 119:1-119:9
+    forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
+testdata/Builtins.lc 119:11-119:19
+    forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
+testdata/Builtins.lc 119:21-119:29
+    forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
+testdata/Builtins.lc 119:34-119:80
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 119:35-119:36
+    _e | _e | _e
+testdata/Builtins.lc 119:35-119:38
+    _d -> Type | _d -> Type | _d -> Type
+testdata/Builtins.lc 119:35-119:57
+    Type | Type | Type
+testdata/Builtins.lc 119:37-119:38
+    forall a . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type
+testdata/Builtins.lc 119:39-119:55
+    Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 119:39-119:57
+    Type | Type | Type
+testdata/Builtins.lc 119:56-119:57
+    _b | _b | _b
+testdata/Builtins.lc 119:59-119:62
+    Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 119:59-119:64
+    Type | Type | Type
+testdata/Builtins.lc 119:59-119:80
+    Type | Type | Type
+testdata/Builtins.lc 119:63-119:64
+    Type | Type | Type
+testdata/Builtins.lc 119:69-119:70
+    Type | Type | Type
+testdata/Builtins.lc 119:69-119:80
+    Type | Type | Type
+testdata/Builtins.lc 119:74-119:75
+    Type | Type | Type
+testdata/Builtins.lc 119:74-119:80
+    Type | Type | Type
+testdata/Builtins.lc 119:79-119:80
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 120:1-120:8
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Builtins.lc 120:10-120:17
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Builtins.lc 120:34-120:75
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 120:35-120:38
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 120:35-120:40
+    Type | Type
+testdata/Builtins.lc 120:39-120:40
+    _f | _f
+testdata/Builtins.lc 120:42-120:43
+    _f | _f
+testdata/Builtins.lc 120:42-120:45
+    _e -> Type | _e -> Type
+testdata/Builtins.lc 120:42-120:59
+    Type | Type
+testdata/Builtins.lc 120:42-120:75
+    Type | Type
+testdata/Builtins.lc 120:44-120:45
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 120:46-120:55
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 120:46-120:57
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 120:46-120:59
+    Type | Type
+testdata/Builtins.lc 120:56-120:57
+    _c | _c
+testdata/Builtins.lc 120:58-120:59
+    Type | Type
+testdata/Builtins.lc 120:64-120:65
+    Type | Type
+testdata/Builtins.lc 120:64-120:75
+    Type | Type
+testdata/Builtins.lc 120:69-120:70
+    Type | Type
+testdata/Builtins.lc 120:69-120:75
+    Type | Type
+testdata/Builtins.lc 120:74-120:75
+    Type | Type | Type | Type
+testdata/Builtins.lc 121:1-121:9
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+testdata/Builtins.lc 121:11-121:19
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+testdata/Builtins.lc 121:34-121:75
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 121:35-121:38
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 121:35-121:40
+    Type | Type
+testdata/Builtins.lc 121:39-121:40
+    _f | _f
+testdata/Builtins.lc 121:42-121:43
+    _f | _f
+testdata/Builtins.lc 121:42-121:45
+    _e -> Type | _e -> Type
+testdata/Builtins.lc 121:42-121:59
+    Type | Type
+testdata/Builtins.lc 121:42-121:75
+    Type | Type
+testdata/Builtins.lc 121:44-121:45
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 121:46-121:55
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 121:46-121:57
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 121:46-121:59
+    Type | Type
+testdata/Builtins.lc 121:56-121:57
+    _c | _c
+testdata/Builtins.lc 121:58-121:59
+    Type | Type
+testdata/Builtins.lc 121:64-121:65
+    Type | Type
+testdata/Builtins.lc 121:64-121:75
+    Type | Type
+testdata/Builtins.lc 121:69-121:70
+    Type | Type
+testdata/Builtins.lc 121:69-121:75
+    Type | Type
+testdata/Builtins.lc 121:74-121:75
+    Type | Type | Type | Type
+testdata/Builtins.lc 122:1-122:8
+    forall a . Signed (MatVecScalarElem a) => a -> a
+testdata/Builtins.lc 122:34-122:40
+    Type -> Type
+testdata/Builtins.lc 122:34-122:61
+    Type
+testdata/Builtins.lc 122:34-122:71
+    Type
+testdata/Builtins.lc 122:42-122:58
+    Type -> Type
+testdata/Builtins.lc 122:42-122:60
+    Type
+testdata/Builtins.lc 122:59-122:60
+    _b
+testdata/Builtins.lc 122:65-122:66
+    Type
+testdata/Builtins.lc 122:65-122:71
+    Type
+testdata/Builtins.lc 122:70-122:71
+    Type | Type
+testdata/Builtins.lc 124:1-124:9
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+testdata/Builtins.lc 124:11-124:18
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+testdata/Builtins.lc 124:20-124:28
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+testdata/Builtins.lc 124:34-124:80
+    Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 124:35-124:43
+    Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 124:35-124:45
+    Type | Type | Type
+testdata/Builtins.lc 124:44-124:45
+    _f | _f | _f
+testdata/Builtins.lc 124:47-124:48
+    _f | _f | _f
+testdata/Builtins.lc 124:47-124:50
+    _e -> Type | _e -> Type | _e -> Type
+testdata/Builtins.lc 124:47-124:64
+    Type | Type | Type
+testdata/Builtins.lc 124:47-124:80
+    Type | Type | Type
+testdata/Builtins.lc 124:49-124:50
+    forall a . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type
+testdata/Builtins.lc 124:51-124:60
+    Nat -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 124:51-124:62
+    Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 124:51-124:64
+    Type | Type | Type
+testdata/Builtins.lc 124:61-124:62
+    _c | _c | _c
+testdata/Builtins.lc 124:63-124:64
+    Type | Type | Type
+testdata/Builtins.lc 124:69-124:70
+    Type | Type | Type
+testdata/Builtins.lc 124:69-124:80
+    Type | Type | Type
+testdata/Builtins.lc 124:74-124:75
+    Type | Type | Type
+testdata/Builtins.lc 124:74-124:80
+    Type | Type | Type
+testdata/Builtins.lc 124:79-124:80
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 125:1-125:10
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+testdata/Builtins.lc 125:12-125:20
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+testdata/Builtins.lc 125:22-125:31
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+testdata/Builtins.lc 125:34-125:80
+    Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 125:35-125:43
+    Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 125:35-125:45
+    Type | Type | Type
+testdata/Builtins.lc 125:44-125:45
+    _f | _f | _f
+testdata/Builtins.lc 125:47-125:48
+    _f | _f | _f
+testdata/Builtins.lc 125:47-125:50
+    _e -> Type | _e -> Type | _e -> Type
+testdata/Builtins.lc 125:47-125:64
+    Type | Type | Type
+testdata/Builtins.lc 125:47-125:80
+    Type | Type | Type
+testdata/Builtins.lc 125:49-125:50
+    forall a . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type
+testdata/Builtins.lc 125:51-125:60
+    Nat -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 125:51-125:62
+    Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 125:51-125:64
+    Type | Type | Type
+testdata/Builtins.lc 125:61-125:62
+    _c | _c | _c
+testdata/Builtins.lc 125:63-125:64
+    Type | Type | Type
+testdata/Builtins.lc 125:69-125:70
+    Type | Type | Type
+testdata/Builtins.lc 125:69-125:80
+    Type | Type | Type
+testdata/Builtins.lc 125:74-125:75
+    Type | Type | Type
+testdata/Builtins.lc 125:74-125:80
+    Type | Type | Type
+testdata/Builtins.lc 125:79-125:80
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 126:1-126:9
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
+testdata/Builtins.lc 126:34-126:75
+    Type | Type | Type
+testdata/Builtins.lc 126:35-126:43
+    Type -> Type
+testdata/Builtins.lc 126:35-126:45
+    Type
+testdata/Builtins.lc 126:44-126:45
+    _f
+testdata/Builtins.lc 126:47-126:48
+    _f
+testdata/Builtins.lc 126:47-126:50
+    _e -> Type
+testdata/Builtins.lc 126:47-126:64
+    Type
+testdata/Builtins.lc 126:47-126:75
+    Type
+testdata/Builtins.lc 126:49-126:50
+    forall a . a -> a -> Type
+testdata/Builtins.lc 126:51-126:60
+    Nat -> Type -> Type
+testdata/Builtins.lc 126:51-126:62
+    Type -> Type
+testdata/Builtins.lc 126:51-126:64
+    Type
+testdata/Builtins.lc 126:61-126:62
+    _c
+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 | 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:34-127:102
+    Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 127:35-127:43
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 127:35-127:45
+    Type | Type
+testdata/Builtins.lc 127:44-127:45
+    _h | _h
+testdata/Builtins.lc 127:47-127:48
+    _h | _h
+testdata/Builtins.lc 127:47-127:50
+    _g -> Type | _g -> Type
+testdata/Builtins.lc 127:47-127:64
+    Type | Type
+testdata/Builtins.lc 127:47-127:102
+    Type | Type
+testdata/Builtins.lc 127:49-127:50
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 127:51-127:60
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 127:51-127:62
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 127:51-127:64
+    Type | Type
+testdata/Builtins.lc 127:61-127:62
+    _e | _e
+testdata/Builtins.lc 127:63-127:64
+    Type | Type
+testdata/Builtins.lc 127:66-127:67
+    _e | _e
+testdata/Builtins.lc 127:66-127:69
+    _d -> Type | _d -> Type
+testdata/Builtins.lc 127:66-127:86
+    Type | Type
+testdata/Builtins.lc 127:66-127:102
+    Type | Type
+testdata/Builtins.lc 127:68-127:69
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 127:70-127:79
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 127:70-127:81
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 127:70-127:86
+    Type | Type
+testdata/Builtins.lc 127:80-127:81
+    Nat | Nat
+testdata/Builtins.lc 127:82-127:86
+    Type | Type
+testdata/Builtins.lc 127:91-127:92
+    Type | Type
+testdata/Builtins.lc 127:91-127:102
+    Type | Type
+testdata/Builtins.lc 127:96-127:97
+    Type | Type
+testdata/Builtins.lc 127:96-127:102
+    Type | Type
+testdata/Builtins.lc 127:101-127:102
+    Type | Type | Type | Type
+testdata/Builtins.lc 128:1-128:13
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+testdata/Builtins.lc 128:15-128:27
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+testdata/Builtins.lc 128:34-128:83
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 128:35-128:43
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 128:35-128:45
+    Type | Type
+testdata/Builtins.lc 128:44-128:45
+    _f | _f
+testdata/Builtins.lc 128:47-128:48
+    _f | _f
+testdata/Builtins.lc 128:47-128:50
+    _e -> Type | _e -> Type
+testdata/Builtins.lc 128:47-128:64
+    Type | Type
+testdata/Builtins.lc 128:47-128:83
+    Type | Type
+testdata/Builtins.lc 128:49-128:50
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 128:51-128:60
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 128:51-128:62
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 128:51-128:64
+    Type | Type
+testdata/Builtins.lc 128:61-128:62
+    _c | _c
+testdata/Builtins.lc 128:63-128:64
+    Type | Type
+testdata/Builtins.lc 128:69-128:70
+    Type | Type
+testdata/Builtins.lc 128:69-128:83
+    Type | Type
+testdata/Builtins.lc 128:74-128:78
+    Type | Type
+testdata/Builtins.lc 128:74-128:83
+    Type | Type
+testdata/Builtins.lc 128:82-128:83
+    Type | Type | Type | Type
+testdata/Builtins.lc 130:1-130:8
+    Bool -> Bool -> Bool
+testdata/Builtins.lc 130:10-130:16
+    Bool -> Bool -> Bool
+testdata/Builtins.lc 130:18-130:25
+    Bool -> Bool -> Bool
+testdata/Builtins.lc 130:34-130:38
+    Type | Type | Type
+testdata/Builtins.lc 130:42-130:46
+    Type | Type | Type
+testdata/Builtins.lc 130:42-130:54
+    Type | Type | Type
+testdata/Builtins.lc 130:50-130:54
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 131:1-131:8
+    forall a (b :: Nat) . (a ~ VecScalar b Bool) => a -> a
+testdata/Builtins.lc 131:47-131:79
+    Type | Type
+testdata/Builtins.lc 131:48-131:49
+    _e
+testdata/Builtins.lc 131:48-131:51
+    _d -> Type
+testdata/Builtins.lc 131:48-131:68
+    Type
+testdata/Builtins.lc 131:50-131:51
+    forall a . a -> a -> Type
+testdata/Builtins.lc 131:52-131:61
+    Nat -> Type -> Type
+testdata/Builtins.lc 131:52-131:63
+    Type -> Type
+testdata/Builtins.lc 131:52-131:68
+    Type
+testdata/Builtins.lc 131:62-131:63
+    _b
+testdata/Builtins.lc 131:64-131:68
+    Type
+testdata/Builtins.lc 131:73-131:74
+    Type
+testdata/Builtins.lc 131:73-131:79
+    Type
+testdata/Builtins.lc 131:78-131:79
+    Type | Type
+testdata/Builtins.lc 132:1-132:8
+    forall (a :: Nat) . VecScalar a Bool -> Bool
+testdata/Builtins.lc 132:10-132:17
+    forall (a :: Nat) . VecScalar a Bool -> Bool
+testdata/Builtins.lc 132:34-132:43
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 132:34-132:45
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 132:34-132:50
+    Type | Type
+testdata/Builtins.lc 132:34-132:58
+    Type | Type
+testdata/Builtins.lc 132:44-132:45
+    _b | _b
+testdata/Builtins.lc 132:46-132:50
+    Type | Type
+testdata/Builtins.lc 132:54-132:58
+    Type | Type | Type | Type
+testdata/Builtins.lc 135:1-135:9
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:11-135:20
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:22-135:30
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:32-135:41
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:43-135:51
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:53-135:62
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:64-135:71
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:73-135:81
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:83-135:94
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:96-135:107
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:109-135:116
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:118-135:126
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:128-135:135
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:137-135:145
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:147-135:154
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:156-135:163
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:165-135:173
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:175-135:183
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:185-135:193
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 135:195-135:206
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 136:34-136:67
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 136:35-136:36
+    _e | _e | _e | _e | _e | _e | _e | _e | _e | _e | _e | _e | _e | _e | _e | _e | _e | _e | _e | _e
+testdata/Builtins.lc 136:35-136:38
+    _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d
+      -> Type | _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d
+      -> Type | _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d
+      -> Type | _d -> Type
+testdata/Builtins.lc 136:35-136:56
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 136:37-136:38
+    forall a . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 136:39-136:48
+    Nat -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type | Nat
+      -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type | Nat
+      -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type | Nat
+      -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type | Nat
+      -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type | Nat
+      -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type | Nat
+      -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 136:39-136:50
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+      -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+      -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+      -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 136:39-136:56
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 136:49-136:50
+    _b | _b | _b | _b | _b | _b | _b | _b | _b | _b | _b | _b | _b | _b | _b | _b | _b | _b | _b | _b
+testdata/Builtins.lc 136:51-136:56
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 136:61-136:62
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 136:61-136:67
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 136:66-136:67
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 137:1-137:8
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+testdata/Builtins.lc 137:10-137:19
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+testdata/Builtins.lc 137:34-137:72
+    Type | Type | Type | Type
+testdata/Builtins.lc 137:35-137:36
+    _e | _e
+testdata/Builtins.lc 137:35-137:38
+    _d -> Type | _d -> Type
+testdata/Builtins.lc 137:35-137:56
+    Type | Type
+testdata/Builtins.lc 137:37-137:38
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 137:39-137:48
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 137:39-137:50
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 137:39-137:56
+    Type | Type
+testdata/Builtins.lc 137:49-137:50
+    _b | _b
+testdata/Builtins.lc 137:51-137:56
+    Type | Type
+testdata/Builtins.lc 137:61-137:62
+    Type | Type
+testdata/Builtins.lc 137:61-137:72
+    Type | Type
+testdata/Builtins.lc 137:66-137:67
+    Type | Type
+testdata/Builtins.lc 137:66-137:72
+    Type | Type
+testdata/Builtins.lc 137:71-137:72
+    Type | Type | Type | Type
+testdata/Builtins.lc 139:1-139:10
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 139:12-139:21
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 139:23-139:32
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 139:34-139:47
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 139:49-139:57
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 139:59-139:68
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 140:34-140:67
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 140:35-140:36
+    _e | _e | _e | _e | _e | _e
+testdata/Builtins.lc 140:35-140:38
+    _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d -> Type
+testdata/Builtins.lc 140:35-140:56
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 140:37-140:38
+    forall a . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 140:39-140:48
+    Nat -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type | Nat
+      -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 140:39-140:50
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+      -> Type
+testdata/Builtins.lc 140:39-140:56
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 140:49-140:50
+    _b | _b | _b | _b | _b | _b
+testdata/Builtins.lc 140:51-140:56
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 140:61-140:62
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 140:61-140:67
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 140:66-140:67
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 141:1-141:8
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Builtins.lc 141:10-141:17
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Builtins.lc 141:34-141:75
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 141:35-141:38
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 141:35-141:40
+    Type | Type
+testdata/Builtins.lc 141:39-141:40
+    _f | _f
+testdata/Builtins.lc 141:42-141:43
+    _f | _f
+testdata/Builtins.lc 141:42-141:45
+    _e -> Type | _e -> Type
+testdata/Builtins.lc 141:42-141:59
+    Type | Type
+testdata/Builtins.lc 141:42-141:75
+    Type | Type
+testdata/Builtins.lc 141:44-141:45
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 141:46-141:55
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 141:46-141:57
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 141:46-141:59
+    Type | Type
+testdata/Builtins.lc 141:56-141:57
+    _c | _c
+testdata/Builtins.lc 141:58-141:59
+    Type | Type
+testdata/Builtins.lc 141:64-141:65
+    Type | Type
+testdata/Builtins.lc 141:64-141:75
+    Type | Type
+testdata/Builtins.lc 141:69-141:70
+    Type | Type
+testdata/Builtins.lc 141:69-141:75
+    Type | Type
+testdata/Builtins.lc 141:74-141:75
+    Type | Type | Type | Type
+testdata/Builtins.lc 142:1-142:9
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+testdata/Builtins.lc 142:11-142:19
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+testdata/Builtins.lc 142:34-142:75
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 142:35-142:38
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 142:35-142:40
+    Type | Type
+testdata/Builtins.lc 142:39-142:40
+    _f | _f
+testdata/Builtins.lc 142:42-142:43
+    _f | _f
+testdata/Builtins.lc 142:42-142:45
+    _e -> Type | _e -> Type
+testdata/Builtins.lc 142:42-142:59
+    Type | Type
+testdata/Builtins.lc 142:42-142:75
+    Type | Type
+testdata/Builtins.lc 142:44-142:45
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 142:46-142:55
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 142:46-142:57
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 142:46-142:59
+    Type | Type
+testdata/Builtins.lc 142:56-142:57
+    _c | _c
+testdata/Builtins.lc 142:58-142:59
+    Type | Type
+testdata/Builtins.lc 142:64-142:65
+    Type | Type
+testdata/Builtins.lc 142:64-142:75
+    Type | Type
+testdata/Builtins.lc 142:69-142:70
+    Type | Type
+testdata/Builtins.lc 142:69-142:75
+    Type | Type
+testdata/Builtins.lc 142:74-142:75
+    Type | Type | Type | Type
+testdata/Builtins.lc 143:1-143:10
+    forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+testdata/Builtins.lc 143:12-143:21
+    forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+testdata/Builtins.lc 143:34-143:89
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 143:35-143:36
+    _g | _g
+testdata/Builtins.lc 143:35-143:38
+    _f -> Type | _f -> Type
+testdata/Builtins.lc 143:35-143:56
+    Type | Type
+testdata/Builtins.lc 143:37-143:38
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 143:39-143:48
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 143:39-143:50
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 143:39-143:56
+    Type | Type
+testdata/Builtins.lc 143:49-143:50
+    _d | _d
+testdata/Builtins.lc 143:51-143:56
+    Type | Type
+testdata/Builtins.lc 143:58-143:59
+    _d | _d
+testdata/Builtins.lc 143:58-143:61
+    _c -> Type | _c -> Type
+testdata/Builtins.lc 143:58-143:78
+    Type | Type
+testdata/Builtins.lc 143:58-143:89
+    Type | Type
+testdata/Builtins.lc 143:60-143:61
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 143:62-143:71
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 143:62-143:73
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 143:62-143:78
+    Type | Type
+testdata/Builtins.lc 143:72-143:73
+    Nat | Nat
+testdata/Builtins.lc 143:74-143:78
+    Type | Type
+testdata/Builtins.lc 143:83-143:84
+    Type | Type
+testdata/Builtins.lc 143:83-143:89
+    Type | Type
+testdata/Builtins.lc 143:88-143:89
+    Type | Type | Type | Type
+testdata/Builtins.lc 144:1-144:8
+    forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+testdata/Builtins.lc 144:10-144:18
+    forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+testdata/Builtins.lc 144:34-144:73
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 144:35-144:41
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 144:35-144:43
+    Type | Type
+testdata/Builtins.lc 144:42-144:43
+    _f | _f
+testdata/Builtins.lc 144:45-144:46
+    _f | _f
+testdata/Builtins.lc 144:45-144:48
+    _e -> Type | _e -> Type
+testdata/Builtins.lc 144:45-144:62
+    Type | Type
+testdata/Builtins.lc 144:45-144:73
+    Type | Type
+testdata/Builtins.lc 144:47-144:48
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 144:49-144:58
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 144:49-144:60
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 144:49-144:62
+    Type | Type
+testdata/Builtins.lc 144:59-144:60
+    _c | _c
+testdata/Builtins.lc 144:61-144:62
+    Type | Type
+testdata/Builtins.lc 144:67-144:68
+    Type | Type
+testdata/Builtins.lc 144:67-144:73
+    Type | Type
+testdata/Builtins.lc 144:72-144:73
+    Type | Type | Type | Type
+testdata/Builtins.lc 145:1-145:9
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
+testdata/Builtins.lc 145:34-145:72
+    Type | Type
+testdata/Builtins.lc 145:35-145:36
+    _e
+testdata/Builtins.lc 145:35-145:38
+    _d -> Type
+testdata/Builtins.lc 145:35-145:56
+    Type
+testdata/Builtins.lc 145:37-145:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 145:39-145:48
+    Nat -> Type -> Type
+testdata/Builtins.lc 145:39-145:50
+    Type -> Type
+testdata/Builtins.lc 145:39-145:56
+    Type
+testdata/Builtins.lc 145:49-145:50
+    _b
+testdata/Builtins.lc 145:51-145:56
+    Type
+testdata/Builtins.lc 145:61-145:62
+    Type
+testdata/Builtins.lc 145:61-145:72
+    Type
+testdata/Builtins.lc 145:66-145:72
+    Type | Type
+testdata/Builtins.lc 145:67-145:68
+    Type
+testdata/Builtins.lc 145:67-145:71
+    List Type
+testdata/Builtins.lc 145:70-145:71
+    Type | List Type
+testdata/Builtins.lc 146:1-146:10
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
+testdata/Builtins.lc 146:34-146:80
+    Type | Type | Type
+testdata/Builtins.lc 146:35-146:38
+    Type -> Type
+testdata/Builtins.lc 146:35-146:40
+    Type
+testdata/Builtins.lc 146:39-146:40
+    _f
+testdata/Builtins.lc 146:42-146:43
+    _f
+testdata/Builtins.lc 146:42-146:45
+    _e -> Type
+testdata/Builtins.lc 146:42-146:59
+    Type
+testdata/Builtins.lc 146:42-146:80
+    Type
+testdata/Builtins.lc 146:44-146:45
+    forall a . a -> a -> Type
+testdata/Builtins.lc 146:46-146:55
+    Nat -> Type -> Type
+testdata/Builtins.lc 146:46-146:57
+    Type -> Type
+testdata/Builtins.lc 146:46-146:59
+    Type
+testdata/Builtins.lc 146:56-146:57
+    _c
+testdata/Builtins.lc 146:58-146:59
+    Type
+testdata/Builtins.lc 146:64-146:65
+    Type
+testdata/Builtins.lc 146:64-146:80
+    Type
+testdata/Builtins.lc 146:69-146:70
+    Type
+testdata/Builtins.lc 146:69-146:80
+    Type
+testdata/Builtins.lc 146:74-146:75
+    Type
+testdata/Builtins.lc 146:74-146:80
+    Type
+testdata/Builtins.lc 146:79-146:80
+    Type | Type
+testdata/Builtins.lc 147:1-147:11
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
+testdata/Builtins.lc 147:34-147:80
+    Type | Type | Type
+testdata/Builtins.lc 147:35-147:38
+    Type -> Type
+testdata/Builtins.lc 147:35-147:40
+    Type
+testdata/Builtins.lc 147:39-147:40
+    _f
+testdata/Builtins.lc 147:42-147:43
+    _f
+testdata/Builtins.lc 147:42-147:45
+    _e -> Type
+testdata/Builtins.lc 147:42-147:59
+    Type
+testdata/Builtins.lc 147:42-147:80
+    Type
+testdata/Builtins.lc 147:44-147:45
+    forall a . a -> a -> Type
+testdata/Builtins.lc 147:46-147:55
+    Nat -> Type -> Type
+testdata/Builtins.lc 147:46-147:57
+    Type -> Type
+testdata/Builtins.lc 147:46-147:59
+    Type
+testdata/Builtins.lc 147:56-147:57
+    _c
+testdata/Builtins.lc 147:58-147:59
+    Type
+testdata/Builtins.lc 147:64-147:65
+    Type
+testdata/Builtins.lc 147:64-147:80
+    Type
+testdata/Builtins.lc 147:69-147:70
+    Type
+testdata/Builtins.lc 147:69-147:80
+    Type
+testdata/Builtins.lc 147:74-147:75
+    Type
+testdata/Builtins.lc 147:74-147:80
+    Type
+testdata/Builtins.lc 147:79-147:80
+    Type | Type
+testdata/Builtins.lc 148:1-148:8
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+testdata/Builtins.lc 148:34-148:77
+    Type | Type
+testdata/Builtins.lc 148:35-148:36
+    _e
+testdata/Builtins.lc 148:35-148:38
+    _d -> Type
+testdata/Builtins.lc 148:35-148:56
+    Type
+testdata/Builtins.lc 148:37-148:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 148:39-148:48
+    Nat -> Type -> Type
+testdata/Builtins.lc 148:39-148:50
+    Type -> Type
+testdata/Builtins.lc 148:39-148:56
+    Type
+testdata/Builtins.lc 148:49-148:50
+    _b
+testdata/Builtins.lc 148:51-148:56
+    Type
+testdata/Builtins.lc 148:61-148:62
+    Type
+testdata/Builtins.lc 148:61-148:77
+    Type
+testdata/Builtins.lc 148:66-148:67
+    Type
+testdata/Builtins.lc 148:66-148:77
+    Type
+testdata/Builtins.lc 148:71-148:72
+    Type
+testdata/Builtins.lc 148:71-148:77
+    Type
+testdata/Builtins.lc 148:76-148:77
+    Type | Type
+testdata/Builtins.lc 149:1-149:9
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
+testdata/Builtins.lc 149:34-149:81
+    Type | Type
+testdata/Builtins.lc 149:35-149:36
+    _e
+testdata/Builtins.lc 149:35-149:38
+    _d -> Type
+testdata/Builtins.lc 149:35-149:56
+    Type
+testdata/Builtins.lc 149:37-149:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 149:39-149:48
+    Nat -> Type -> Type
+testdata/Builtins.lc 149:39-149:50
+    Type -> Type
+testdata/Builtins.lc 149:39-149:56
+    Type
+testdata/Builtins.lc 149:49-149:50
+    _b
+testdata/Builtins.lc 149:51-149:56
+    Type
+testdata/Builtins.lc 149:61-149:62
+    Type
+testdata/Builtins.lc 149:61-149:81
+    Type
+testdata/Builtins.lc 149:66-149:67
+    Type
+testdata/Builtins.lc 149:66-149:81
+    Type
+testdata/Builtins.lc 149:71-149:76
+    Type
+testdata/Builtins.lc 149:71-149:81
+    Type
+testdata/Builtins.lc 149:80-149:81
+    Type | Type
+testdata/Builtins.lc 150:1-150:9
+    forall a (b :: Nat) c
+      . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
+testdata/Builtins.lc 150:34-150:99
+    Type | Type | Type
+testdata/Builtins.lc 150:35-150:36
+    _g
+testdata/Builtins.lc 150:35-150:38
+    _f -> Type
+testdata/Builtins.lc 150:35-150:56
+    Type
+testdata/Builtins.lc 150:37-150:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 150:39-150:48
+    Nat -> Type -> Type
+testdata/Builtins.lc 150:39-150:50
+    Type -> Type
+testdata/Builtins.lc 150:39-150:56
+    Type
+testdata/Builtins.lc 150:49-150:50
+    _d
+testdata/Builtins.lc 150:51-150:56
+    Type
+testdata/Builtins.lc 150:58-150:59
+    _d
+testdata/Builtins.lc 150:58-150:61
+    _c -> Type
+testdata/Builtins.lc 150:58-150:78
+    Type
+testdata/Builtins.lc 150:58-150:99
+    Type
+testdata/Builtins.lc 150:60-150:61
+    forall a . a -> a -> Type
+testdata/Builtins.lc 150:62-150:71
+    Nat -> Type -> Type
+testdata/Builtins.lc 150:62-150:73
+    Type -> Type
+testdata/Builtins.lc 150:62-150:78
+    Type
+testdata/Builtins.lc 150:72-150:73
+    Nat
+testdata/Builtins.lc 150:74-150:78
+    Type
+testdata/Builtins.lc 150:83-150:84
+    Type
+testdata/Builtins.lc 150:83-150:99
+    Type
+testdata/Builtins.lc 150:88-150:89
+    Type
+testdata/Builtins.lc 150:88-150:99
+    Type
+testdata/Builtins.lc 150:93-150:94
+    Type
+testdata/Builtins.lc 150:93-150:99
+    Type
+testdata/Builtins.lc 150:98-150:99
+    Type | Type
+testdata/Builtins.lc 151:1-151:9
+    forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
+testdata/Builtins.lc 151:34-151:66
+    Type | Type
+testdata/Builtins.lc 151:35-151:36
+    _e
+testdata/Builtins.lc 151:35-151:38
+    _d -> Type
+testdata/Builtins.lc 151:35-151:50
+    Type
+testdata/Builtins.lc 151:37-151:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 151:39-151:42
+    Nat -> Type -> Type
+testdata/Builtins.lc 151:39-151:44
+    Type -> Type
+testdata/Builtins.lc 151:39-151:50
+    Type
+testdata/Builtins.lc 151:43-151:44
+    _b
+testdata/Builtins.lc 151:45-151:50
+    Type
+testdata/Builtins.lc 151:55-151:56
+    Type
+testdata/Builtins.lc 151:55-151:66
+    Type
+testdata/Builtins.lc 151:60-151:61
+    Type
+testdata/Builtins.lc 151:60-151:66
+    Type
+testdata/Builtins.lc 151:65-151:66
+    Type | Type
+testdata/Builtins.lc 152:1-152:10
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
+testdata/Builtins.lc 152:34-152:76
+    Type | Type
+testdata/Builtins.lc 152:35-152:36
+    _e
+testdata/Builtins.lc 152:35-152:38
+    _d -> Type
+testdata/Builtins.lc 152:35-152:56
+    Type
+testdata/Builtins.lc 152:37-152:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 152:39-152:48
+    Nat -> Type -> Type
+testdata/Builtins.lc 152:39-152:50
+    Type -> Type
+testdata/Builtins.lc 152:39-152:56
+    Type
+testdata/Builtins.lc 152:49-152:50
+    _b
+testdata/Builtins.lc 152:51-152:56
+    Type
+testdata/Builtins.lc 152:61-152:66
+    Type
+testdata/Builtins.lc 152:61-152:76
+    Type
+testdata/Builtins.lc 152:70-152:71
+    Type
+testdata/Builtins.lc 152:70-152:76
+    Type
+testdata/Builtins.lc 152:75-152:76
+    Type | Type
+testdata/Builtins.lc 153:1-153:15
+    forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
+testdata/Builtins.lc 153:34-153:71
+    Type | Type
+testdata/Builtins.lc 153:35-153:36
+    _e
+testdata/Builtins.lc 153:35-153:38
+    _d -> Type
+testdata/Builtins.lc 153:35-153:50
+    Type
+testdata/Builtins.lc 153:37-153:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 153:39-153:42
+    Nat -> Type -> Type
+testdata/Builtins.lc 153:39-153:44
+    Type -> Type
+testdata/Builtins.lc 153:39-153:50
+    Type
+testdata/Builtins.lc 153:43-153:44
+    _b
+testdata/Builtins.lc 153:45-153:50
+    Type
+testdata/Builtins.lc 153:55-153:56
+    Type
+testdata/Builtins.lc 153:55-153:71
+    Type
+testdata/Builtins.lc 153:60-153:61
+    Type
+testdata/Builtins.lc 153:60-153:71
+    Type
+testdata/Builtins.lc 153:65-153:66
+    Type
+testdata/Builtins.lc 153:65-153:71
+    Type
+testdata/Builtins.lc 153:70-153:71
+    Type | Type
+testdata/Builtins.lc 154:1-154:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
+testdata/Builtins.lc 154:34-154:85
+    Type | Type
+testdata/Builtins.lc 154:35-154:36
+    _e
+testdata/Builtins.lc 154:35-154:38
+    _d -> Type
+testdata/Builtins.lc 154:35-154:56
+    Type
+testdata/Builtins.lc 154:37-154:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 154:39-154:48
+    Nat -> Type -> Type
+testdata/Builtins.lc 154:39-154:50
+    Type -> Type
+testdata/Builtins.lc 154:39-154:56
+    Type
+testdata/Builtins.lc 154:49-154:50
+    _b
+testdata/Builtins.lc 154:51-154:56
+    Type
+testdata/Builtins.lc 154:61-154:66
+    Type
+testdata/Builtins.lc 154:61-154:85
+    Type
+testdata/Builtins.lc 154:70-154:75
+    Type
+testdata/Builtins.lc 154:70-154:85
+    Type
+testdata/Builtins.lc 154:79-154:80
+    Type
+testdata/Builtins.lc 154:79-154:85
+    Type
+testdata/Builtins.lc 154:84-154:85
+    Type | Type
+testdata/Builtins.lc 157:1-157:19
+    forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
+testdata/Builtins.lc 157:34-157:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 157:34-157:45
+    Type -> Type
+testdata/Builtins.lc 157:34-157:51
+    Type
+testdata/Builtins.lc 157:34-157:70
+    Type
+testdata/Builtins.lc 157:44-157:45
+    _b
+testdata/Builtins.lc 157:46-157:51
+    Type
+testdata/Builtins.lc 157:55-157:64
+    Nat -> Type -> Type
+testdata/Builtins.lc 157:55-157:66
+    Type -> Type
+testdata/Builtins.lc 157:55-157:70
+    Type | Type
+testdata/Builtins.lc 157:65-157:66
+    Nat
+testdata/Builtins.lc 157:67-157:70
+    Type
+testdata/Builtins.lc 158:1-158:20
+    forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
+testdata/Builtins.lc 158:34-158:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 158:34-158:45
+    Type -> Type
+testdata/Builtins.lc 158:34-158:51
+    Type
+testdata/Builtins.lc 158:34-158:71
+    Type
+testdata/Builtins.lc 158:44-158:45
+    _b
+testdata/Builtins.lc 158:46-158:51
+    Type
+testdata/Builtins.lc 158:55-158:64
+    Nat -> Type -> Type
+testdata/Builtins.lc 158:55-158:66
+    Type -> Type
+testdata/Builtins.lc 158:55-158:71
+    Type | Type
+testdata/Builtins.lc 158:65-158:66
+    Nat
+testdata/Builtins.lc 158:67-158:71
+    Type
+testdata/Builtins.lc 159:1-159:19
+    forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
+testdata/Builtins.lc 159:34-159:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 159:34-159:45
+    Type -> Type
+testdata/Builtins.lc 159:34-159:49
+    Type
+testdata/Builtins.lc 159:34-159:72
+    Type
+testdata/Builtins.lc 159:44-159:45
+    _b
+testdata/Builtins.lc 159:46-159:49
+    Type
+testdata/Builtins.lc 159:55-159:64
+    Nat -> Type -> Type
+testdata/Builtins.lc 159:55-159:66
+    Type -> Type
+testdata/Builtins.lc 159:55-159:72
+    Type | Type
+testdata/Builtins.lc 159:65-159:66
+    Nat
+testdata/Builtins.lc 159:67-159:72
+    Type
+testdata/Builtins.lc 160:1-160:20
+    forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
+testdata/Builtins.lc 160:34-160:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 160:34-160:45
+    Type -> Type
+testdata/Builtins.lc 160:34-160:50
+    Type
+testdata/Builtins.lc 160:34-160:72
+    Type
+testdata/Builtins.lc 160:44-160:45
+    _b
+testdata/Builtins.lc 160:46-160:50
+    Type
+testdata/Builtins.lc 160:55-160:64
+    Nat -> Type -> Type
+testdata/Builtins.lc 160:55-160:66
+    Type -> Type
+testdata/Builtins.lc 160:55-160:72
+    Type | Type
+testdata/Builtins.lc 160:65-160:66
+    Nat
+testdata/Builtins.lc 160:67-160:72
+    Type
+testdata/Builtins.lc 162:1-162:11
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
+testdata/Builtins.lc 162:34-162:71
+    Type | Type
+testdata/Builtins.lc 162:35-162:36
+    _e
+testdata/Builtins.lc 162:35-162:38
+    _d -> Type
+testdata/Builtins.lc 162:35-162:56
+    Type
+testdata/Builtins.lc 162:37-162:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 162:39-162:48
+    Nat -> Type -> Type
+testdata/Builtins.lc 162:39-162:50
+    Type -> Type
+testdata/Builtins.lc 162:39-162:56
+    Type
+testdata/Builtins.lc 162:49-162:50
+    _b
+testdata/Builtins.lc 162:51-162:56
+    Type
+testdata/Builtins.lc 162:61-162:62
+    Type
+testdata/Builtins.lc 162:61-162:71
+    Type
+testdata/Builtins.lc 162:66-162:71
+    Type | Type
+testdata/Builtins.lc 163:1-163:13
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+testdata/Builtins.lc 163:15-163:22
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+testdata/Builtins.lc 163:34-163:76
+    Type | Type | Type | Type
+testdata/Builtins.lc 163:35-163:36
+    _e | _e
+testdata/Builtins.lc 163:35-163:38
+    _d -> Type | _d -> Type
+testdata/Builtins.lc 163:35-163:56
+    Type | Type
+testdata/Builtins.lc 163:37-163:38
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 163:39-163:48
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 163:39-163:50
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 163:39-163:56
+    Type | Type
+testdata/Builtins.lc 163:49-163:50
+    _b | _b
+testdata/Builtins.lc 163:51-163:56
+    Type | Type
+testdata/Builtins.lc 163:61-163:62
+    Type | Type
+testdata/Builtins.lc 163:61-163:76
+    Type | Type
+testdata/Builtins.lc 163:66-163:67
+    Type | Type
+testdata/Builtins.lc 163:66-163:76
+    Type | Type
+testdata/Builtins.lc 163:71-163:76
+    Type | Type | Type | Type
+testdata/Builtins.lc 164:1-164:10
+    forall a . (a ~ VecS Float 3) => a -> a -> a
+testdata/Builtins.lc 164:34-164:72
+    Type
+testdata/Builtins.lc 164:35-164:36
+    _c
+testdata/Builtins.lc 164:35-164:38
+    _b -> Type
+testdata/Builtins.lc 164:35-164:56
+    Type
+testdata/Builtins.lc 164:37-164:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 164:39-164:48
+    Nat -> Type -> Type
+testdata/Builtins.lc 164:39-164:50
+    Type -> Type
+testdata/Builtins.lc 164:39-164:56
+    Type
+testdata/Builtins.lc 164:49-164:50
+    _b
+testdata/Builtins.lc 164:51-164:56
+    Type
+testdata/Builtins.lc 164:61-164:62
+    Type
+testdata/Builtins.lc 164:61-164:72
+    Type
+testdata/Builtins.lc 164:66-164:67
+    Type
+testdata/Builtins.lc 164:66-164:72
+    Type
+testdata/Builtins.lc 164:71-164:72
+    Type | Type
+testdata/Builtins.lc 165:1-165:14
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 165:34-165:67
+    Type | Type
+testdata/Builtins.lc 165:35-165:36
+    _e
+testdata/Builtins.lc 165:35-165:38
+    _d -> Type
+testdata/Builtins.lc 165:35-165:56
+    Type
+testdata/Builtins.lc 165:37-165:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 165:39-165:48
+    Nat -> Type -> Type
+testdata/Builtins.lc 165:39-165:50
+    Type -> Type
+testdata/Builtins.lc 165:39-165:56
+    Type
+testdata/Builtins.lc 165:49-165:50
+    _b
+testdata/Builtins.lc 165:51-165:56
+    Type
+testdata/Builtins.lc 165:61-165:62
+    Type
+testdata/Builtins.lc 165:61-165:67
+    Type
+testdata/Builtins.lc 165:66-165:67
+    Type | Type
+testdata/Builtins.lc 166:1-166:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+testdata/Builtins.lc 166:18-166:29
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+testdata/Builtins.lc 166:34-166:77
+    Type | Type | Type | Type
+testdata/Builtins.lc 166:35-166:36
+    _e | _e
+testdata/Builtins.lc 166:35-166:38
+    _d -> Type | _d -> Type
+testdata/Builtins.lc 166:35-166:56
+    Type | Type
+testdata/Builtins.lc 166:37-166:38
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 166:39-166:48
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 166:39-166:50
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 166:39-166:56
+    Type | Type
+testdata/Builtins.lc 166:49-166:50
+    _b | _b
+testdata/Builtins.lc 166:51-166:56
+    Type | Type
+testdata/Builtins.lc 166:61-166:62
+    Type | Type
+testdata/Builtins.lc 166:61-166:77
+    Type | Type
+testdata/Builtins.lc 166:66-166:67
+    Type | Type
+testdata/Builtins.lc 166:66-166:77
+    Type | Type
+testdata/Builtins.lc 166:71-166:72
+    Type | Type
+testdata/Builtins.lc 166:71-166:77
+    Type | Type
+testdata/Builtins.lc 166:76-166:77
+    Type | Type | Type | Type
+testdata/Builtins.lc 167:1-167:12
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+testdata/Builtins.lc 167:34-167:72
+    Type | Type
+testdata/Builtins.lc 167:35-167:36
+    _e
+testdata/Builtins.lc 167:35-167:38
+    _d -> Type
+testdata/Builtins.lc 167:35-167:56
+    Type
+testdata/Builtins.lc 167:37-167:38
+    forall a . a -> a -> Type
+testdata/Builtins.lc 167:39-167:48
+    Nat -> Type -> Type
+testdata/Builtins.lc 167:39-167:50
+    Type -> Type
+testdata/Builtins.lc 167:39-167:56
+    Type
+testdata/Builtins.lc 167:49-167:50
+    _b
+testdata/Builtins.lc 167:51-167:56
+    Type
+testdata/Builtins.lc 167:61-167:62
+    Type
+testdata/Builtins.lc 167:61-167:72
+    Type
+testdata/Builtins.lc 167:66-167:67
+    Type
+testdata/Builtins.lc 167:66-167:72
+    Type
+testdata/Builtins.lc 167:71-167:72
+    Type | Type
+testdata/Builtins.lc 169:1-169:14
+    forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
+testdata/Builtins.lc 169:34-169:37
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 169:34-169:39
+    Nat -> Type -> Type
+testdata/Builtins.lc 169:34-169:41
+    Type -> Type
+testdata/Builtins.lc 169:34-169:43
+    Type
+testdata/Builtins.lc 169:34-169:56
+    Type | Type | Type
+testdata/Builtins.lc 169:38-169:39
+    _f
+testdata/Builtins.lc 169:40-169:41
+    _d
+testdata/Builtins.lc 169:42-169:43
+    _b
+testdata/Builtins.lc 169:47-169:50
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 169:47-169:52
+    Nat -> Type -> Type
+testdata/Builtins.lc 169:47-169:54
+    Type -> Type
+testdata/Builtins.lc 169:47-169:56
+    Type | Type
+testdata/Builtins.lc 169:51-169:52
+    Nat
+testdata/Builtins.lc 169:53-169:54
+    Nat
+testdata/Builtins.lc 169:55-169:56
+    Type
+testdata/Builtins.lc 170:1-170:16
+    forall (a :: Nat) b . Mat a a b -> Float
+testdata/Builtins.lc 170:34-170:37
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 170:34-170:39
+    Nat -> Type -> Type
+testdata/Builtins.lc 170:34-170:41
+    Type -> Type
+testdata/Builtins.lc 170:34-170:43
+    Type
+testdata/Builtins.lc 170:34-170:52
+    Type | Type
+testdata/Builtins.lc 170:38-170:39
+    _d
+testdata/Builtins.lc 170:40-170:41
+    Nat
+testdata/Builtins.lc 170:42-170:43
+    _b
+testdata/Builtins.lc 170:47-170:52
+    Type | Type
+testdata/Builtins.lc 171:1-171:12
+    forall (a :: Nat) b . Mat a a b -> Mat a a b
+testdata/Builtins.lc 171:34-171:37
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 171:34-171:39
+    Nat -> Type -> Type
+testdata/Builtins.lc 171:34-171:41
+    Type -> Type
+testdata/Builtins.lc 171:34-171:43
+    Type
+testdata/Builtins.lc 171:34-171:56
+    Type | Type
+testdata/Builtins.lc 171:38-171:39
+    _d
+testdata/Builtins.lc 171:40-171:41
+    Nat
+testdata/Builtins.lc 171:42-171:43
+    _b
+testdata/Builtins.lc 171:47-171:50
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 171:47-171:52
+    Nat -> Type -> Type
+testdata/Builtins.lc 171:47-171:54
+    Type -> Type
+testdata/Builtins.lc 171:47-171:56
+    Type | Type
+testdata/Builtins.lc 171:51-171:52
+    Nat
+testdata/Builtins.lc 171:53-171:54
+    Nat
+testdata/Builtins.lc 171:55-171:56
+    Type
+testdata/Builtins.lc 172:1-172:17
+    forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
+testdata/Builtins.lc 172:34-172:37
+    Nat -> Type -> Type
+testdata/Builtins.lc 172:34-172:39
+    Type -> Type
+testdata/Builtins.lc 172:34-172:41
+    Type
+testdata/Builtins.lc 172:34-172:69
+    Type | Type | Type
+testdata/Builtins.lc 172:38-172:39
+    _f
+testdata/Builtins.lc 172:40-172:41
+    _d
+testdata/Builtins.lc 172:47-172:50
+    Nat -> Type -> Type
+testdata/Builtins.lc 172:47-172:52
+    Type -> Type
+testdata/Builtins.lc 172:47-172:54
+    Type
+testdata/Builtins.lc 172:47-172:69
+    Type
+testdata/Builtins.lc 172:51-172:52
+    _c
+testdata/Builtins.lc 172:53-172:54
+    Type
+testdata/Builtins.lc 172:60-172:63
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 172:60-172:65
+    Nat -> Type -> Type
+testdata/Builtins.lc 172:60-172:67
+    Type -> Type
+testdata/Builtins.lc 172:60-172:69
+    Type | Type
+testdata/Builtins.lc 172:64-172:65
+    Nat
+testdata/Builtins.lc 172:66-172:67
+    Nat
+testdata/Builtins.lc 172:68-172:69
+    Type
+testdata/Builtins.lc 173:1-173:14
+    forall (a :: Nat) (b :: Nat) c . Mat a b c -> Vec b c -> Vec a c
+testdata/Builtins.lc 173:34-173:37
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 173:34-173:39
+    Nat -> Type -> Type
+testdata/Builtins.lc 173:34-173:41
+    Type -> Type
+testdata/Builtins.lc 173:34-173:43
+    Type
+testdata/Builtins.lc 173:34-173:67
+    Type | Type | Type
+testdata/Builtins.lc 173:38-173:39
+    _f
+testdata/Builtins.lc 173:40-173:41
+    _d
+testdata/Builtins.lc 173:42-173:43
+    _b
+testdata/Builtins.lc 173:47-173:50
+    Nat -> Type -> Type
+testdata/Builtins.lc 173:47-173:52
+    Type -> Type
+testdata/Builtins.lc 173:47-173:54
+    Type
+testdata/Builtins.lc 173:47-173:67
+    Type
+testdata/Builtins.lc 173:51-173:52
+    Nat
+testdata/Builtins.lc 173:53-173:54
+    Type
+testdata/Builtins.lc 173:60-173:63
+    Nat -> Type -> Type
+testdata/Builtins.lc 173:60-173:65
+    Type -> Type
+testdata/Builtins.lc 173:60-173:67
+    Type | Type
+testdata/Builtins.lc 173:64-173:65
+    Nat
+testdata/Builtins.lc 173:66-173:67
+    Type
+testdata/Builtins.lc 174:1-174:14
+    forall (a :: Nat) b (c :: Nat) . Vec a b -> Mat a c b -> Vec c b
+testdata/Builtins.lc 174:34-174:37
+    Nat -> Type -> Type
+testdata/Builtins.lc 174:34-174:39
+    Type -> Type
+testdata/Builtins.lc 174:34-174:41
+    Type
+testdata/Builtins.lc 174:34-174:67
+    Type | Type | Type
+testdata/Builtins.lc 174:38-174:39
+    _f
+testdata/Builtins.lc 174:40-174:41
+    _d
+testdata/Builtins.lc 174:47-174:50
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 174:47-174:52
+    Nat -> Type -> Type
+testdata/Builtins.lc 174:47-174:54
+    Type -> Type
+testdata/Builtins.lc 174:47-174:56
+    Type
+testdata/Builtins.lc 174:47-174:67
+    Type
+testdata/Builtins.lc 174:51-174:52
+    Nat
+testdata/Builtins.lc 174:53-174:54
+    _c
+testdata/Builtins.lc 174:55-174:56
+    Type
+testdata/Builtins.lc 174:60-174:63
+    Nat -> Type -> Type
+testdata/Builtins.lc 174:60-174:65
+    Type -> Type
+testdata/Builtins.lc 174:60-174:67
+    Type | Type
+testdata/Builtins.lc 174:64-174:65
+    Nat
+testdata/Builtins.lc 174:66-174:67
+    Type
+testdata/Builtins.lc 175:1-175:14
+    forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
+testdata/Builtins.lc 175:34-175:37
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 175:34-175:39
+    Nat -> Type -> Type
+testdata/Builtins.lc 175:34-175:41
+    Type -> Type
+testdata/Builtins.lc 175:34-175:43
+    Type
+testdata/Builtins.lc 175:34-175:69
+    Type | Type | Type | Type
+testdata/Builtins.lc 175:38-175:39
+    _h
+testdata/Builtins.lc 175:40-175:41
+    _f
+testdata/Builtins.lc 175:42-175:43
+    _d
+testdata/Builtins.lc 175:47-175:50
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 175:47-175:52
+    Nat -> Type -> Type
+testdata/Builtins.lc 175:47-175:54
+    Type -> Type
+testdata/Builtins.lc 175:47-175:56
+    Type
+testdata/Builtins.lc 175:47-175:69
+    Type
+testdata/Builtins.lc 175:51-175:52
+    Nat
+testdata/Builtins.lc 175:53-175:54
+    _c
+testdata/Builtins.lc 175:55-175:56
+    Type
+testdata/Builtins.lc 175:60-175:63
+    Nat -> Nat -> Type -> Type
+testdata/Builtins.lc 175:60-175:65
+    Nat -> Type -> Type
+testdata/Builtins.lc 175:60-175:67
+    Type -> Type
+testdata/Builtins.lc 175:60-175:69
+    Type | Type
+testdata/Builtins.lc 175:64-175:65
+    Nat
+testdata/Builtins.lc 175:66-175:67
+    Nat
+testdata/Builtins.lc 175:68-175:69
+    Type
+testdata/Builtins.lc 177:1-177:13
+    forall a (b :: Nat) c d
+      . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+testdata/Builtins.lc 177:15-177:32
+    forall a (b :: Nat) c d
+      . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+testdata/Builtins.lc 177:34-177:49
+    forall a (b :: Nat) c d
+      . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+testdata/Builtins.lc 177:51-177:71
+    forall a (b :: Nat) c d
+      . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+testdata/Builtins.lc 177:73-177:83
+    forall a (b :: Nat) c d
+      . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+testdata/Builtins.lc 177:85-177:98
+    forall a (b :: Nat) c d
+      . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+testdata/Builtins.lc 178:51-178:114
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:52-178:55
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+      -> Type
+testdata/Builtins.lc 178:52-178:57
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:56-178:57
+    _d | _d | _d | _d | _d | _d
+testdata/Builtins.lc 178:59-178:60
+    _i | _i | _i | _i | _i | _i
+testdata/Builtins.lc 178:59-178:62
+    _h -> Type | _h -> Type | _h -> Type | _h -> Type | _h -> Type | _h -> Type
+testdata/Builtins.lc 178:59-178:76
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:59-178:114
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:61-178:62
+    forall a . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 178:63-178:72
+    Nat -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type | Nat
+      -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 178:63-178:74
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+      -> Type
+testdata/Builtins.lc 178:63-178:76
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:73-178:74
+    _f | _f | _f | _f | _f | _f
+testdata/Builtins.lc 178:75-178:76
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:78-178:79
+    _e | _e | _e | _e | _e | _e
+testdata/Builtins.lc 178:78-178:81
+    _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d -> Type | _d -> Type
+testdata/Builtins.lc 178:78-178:98
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:78-178:114
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:80-178:81
+    forall a . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 178:82-178:91
+    Nat -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type | Nat
+      -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 178:82-178:93
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+      -> Type
+testdata/Builtins.lc 178:82-178:98
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:92-178:93
+    Nat | Nat | Nat | Nat | Nat | Nat
+testdata/Builtins.lc 178:94-178:98
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:103-178:104
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:103-178:114
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:108-178:109
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:108-178:114
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 178:113-178:114
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 179:1-179:10
+    forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
+testdata/Builtins.lc 179:12-179:24
+    forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
+testdata/Builtins.lc 179:47-179:89
+    Type | Type | Type | Type
+testdata/Builtins.lc 179:48-179:49
+    _c | _c
+testdata/Builtins.lc 179:48-179:51
+    _b -> Type | _b -> Type
+testdata/Builtins.lc 179:48-179:70
+    Type | Type
+testdata/Builtins.lc 179:50-179:51
+    forall a . a -> a -> Type | forall a . a -> a -> Type
+testdata/Builtins.lc 179:52-179:68
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 179:52-179:70
+    Type | Type
+testdata/Builtins.lc 179:69-179:70
+    _c | _c
+testdata/Builtins.lc 179:75-179:76
+    Type | Type
+testdata/Builtins.lc 179:75-179:89
+    Type | Type
+testdata/Builtins.lc 179:80-179:81
+    Type | Type
+testdata/Builtins.lc 179:80-179:89
+    Type | Type
+testdata/Builtins.lc 179:85-179:89
+    Type | Type | Type | Type
+testdata/Builtins.lc 181:1-181:9
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 181:11-181:19
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 181:21-181:31
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Builtins.lc 182:34-182:67
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 182:35-182:36
+    _e | _e | _e
+testdata/Builtins.lc 182:35-182:38
+    _d -> Type | _d -> Type | _d -> Type
+testdata/Builtins.lc 182:35-182:56
+    Type | Type | Type
+testdata/Builtins.lc 182:37-182:38
+    forall a . a -> a -> Type | forall a . a -> a -> Type | forall a
+      . a -> a -> Type
+testdata/Builtins.lc 182:39-182:48
+    Nat -> Type -> Type | Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 182:39-182:50
+    Type -> Type | Type -> Type | Type -> Type
+testdata/Builtins.lc 182:39-182:56
+    Type | Type | Type
+testdata/Builtins.lc 182:49-182:50
+    _b | _b | _b
+testdata/Builtins.lc 182:51-182:56
+    Type | Type | Type
+testdata/Builtins.lc 182:61-182:62
+    Type | Type | Type
+testdata/Builtins.lc 182:61-182:67
+    Type | Type | Type
+testdata/Builtins.lc 182:66-182:67
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 184:1-184:11
+    forall (a :: Nat) . VecScalar a Float -> Float
+testdata/Builtins.lc 184:34-184:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 184:34-184:45
+    Type -> Type
+testdata/Builtins.lc 184:34-184:51
+    Type
+testdata/Builtins.lc 184:34-184:60
+    Type
+testdata/Builtins.lc 184:44-184:45
+    _b
+testdata/Builtins.lc 184:46-184:51
+    Type
+testdata/Builtins.lc 184:55-184:60
+    Type | Type
+testdata/Builtins.lc 185:1-185:11
+    forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
+testdata/Builtins.lc 185:34-185:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 185:34-185:45
+    Type -> Type
+testdata/Builtins.lc 185:34-185:51
+    Type
+testdata/Builtins.lc 185:34-185:66
+    Type
+testdata/Builtins.lc 185:44-185:45
+    _b
+testdata/Builtins.lc 185:46-185:51
+    Type
+testdata/Builtins.lc 185:55-185:58
+    Nat -> Type -> Type
+testdata/Builtins.lc 185:55-185:60
+    Type -> Type
+testdata/Builtins.lc 185:55-185:66
+    Type | Type
+testdata/Builtins.lc 185:59-185:60
+    _b
+testdata/Builtins.lc 185:61-185:66
+    Type
+testdata/Builtins.lc 186:1-186:11
+    forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
+testdata/Builtins.lc 186:34-186:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 186:34-186:45
+    Type -> Type
+testdata/Builtins.lc 186:34-186:51
+    Type
+testdata/Builtins.lc 186:34-186:66
+    Type
+testdata/Builtins.lc 186:44-186:45
+    _b
+testdata/Builtins.lc 186:46-186:51
+    Type
+testdata/Builtins.lc 186:55-186:58
+    Nat -> Type -> Type
+testdata/Builtins.lc 186:55-186:60
+    Type -> Type
+testdata/Builtins.lc 186:55-186:66
+    Type | Type
+testdata/Builtins.lc 186:59-186:60
+    _b
+testdata/Builtins.lc 186:61-186:66
+    Type
+testdata/Builtins.lc 187:1-187:11
+    forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
+testdata/Builtins.lc 187:34-187:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 187:34-187:45
+    Type -> Type
+testdata/Builtins.lc 187:34-187:51
+    Type
+testdata/Builtins.lc 187:34-187:66
+    Type
+testdata/Builtins.lc 187:44-187:45
+    _b
+testdata/Builtins.lc 187:46-187:51
+    Type
+testdata/Builtins.lc 187:55-187:58
+    Nat -> Type -> Type
+testdata/Builtins.lc 187:55-187:60
+    Type -> Type
+testdata/Builtins.lc 187:55-187:66
+    Type | Type
+testdata/Builtins.lc 187:59-187:60
+    _b
+testdata/Builtins.lc 187:61-187:66
+    Type
+testdata/Builtins.lc 201:1-201:5
+    forall a . List a -> a
+testdata/Builtins.lc 201:15-201:16
+    _d
+testdata/Builtins.lc 203:6-203:8
+    forall a . List a -> List a -> List a
+testdata/Builtins.lc 203:14-203:16
+    _d
+testdata/Builtins.lc 203:14-204:26
+    List _a -> List _a
+testdata/Builtins.lc 204:14-204:15
+    _d
+testdata/Builtins.lc 204:14-204:17
+    List _c -> List _c
+testdata/Builtins.lc 204:14-204:26
+    List _c
+testdata/Builtins.lc 204:16-204:17
+    forall a . a -> List a -> List a
+testdata/Builtins.lc 204:18-204:20
+    List _f
+testdata/Builtins.lc 204:21-204:23
+    _h
+testdata/Builtins.lc 204:24-204:26
+    List _g
+testdata/Builtins.lc 206:1-206:6
+    forall a b . (b -> a -> a) -> a -> List b -> a
+testdata/Builtins.lc 206:16-206:17
+    _f
+testdata/Builtins.lc 206:16-207:39
+    List _b -> _f
+testdata/Builtins.lc 207:21-207:22
+    _i
+testdata/Builtins.lc 207:23-207:24
+    _f
+testdata/Builtins.lc 207:26-207:31
+    _n
+testdata/Builtins.lc 207:32-207:33
+    _j -> _g
+testdata/Builtins.lc 207:34-207:35
+    _o
+testdata/Builtins.lc 207:36-207:38
+    List _k
+testdata/Builtins.lc 209:1-209:7
+    forall a . List (List a) -> List a
+testdata/Builtins.lc 209:10-209:15
+    forall a b . (b -> a -> a) -> a -> List b -> a
+testdata/Builtins.lc 209:10-209:20
+    List _a -> List (List _a) -> List _a
+testdata/Builtins.lc 209:10-209:23
+    List (List _a) -> List _a
+testdata/Builtins.lc 209:16-209:20
+    forall a . List a -> List a -> List a
+testdata/Builtins.lc 209:21-209:23
+    forall a . List a
+testdata/Builtins.lc 211:1-211:4
+    forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 211:16-211:18
+    forall a . List a
+testdata/Builtins.lc 211:16-212:30
+    List _b -> List _a
+testdata/Builtins.lc 212:16-212:17
+    _i
+testdata/Builtins.lc 212:16-212:21
+    List _a -> List _a
+testdata/Builtins.lc 212:16-212:30
+    List _c
+testdata/Builtins.lc 212:18-212:19
+    _h
+testdata/Builtins.lc 212:20-212:21
+    forall a . a -> List a -> List a
+testdata/Builtins.lc 212:22-212:25
+    _i
+testdata/Builtins.lc 212:26-212:27
+    _g -> _f
+testdata/Builtins.lc 212:28-212:30
+    List _h
+testdata/Builtins.lc 214:14-214:38
+    Type | Type
+testdata/Builtins.lc 214:15-214:16
+    _d
+testdata/Builtins.lc 214:20-214:23
+    Type | Type
+testdata/Builtins.lc 214:21-214:22
+    _c
+testdata/Builtins.lc 214:28-214:31
+    Type
+testdata/Builtins.lc 214:28-214:38
+    Type
+testdata/Builtins.lc 214:29-214:30
+    Type
+testdata/Builtins.lc 214:35-214:38
+    Type | Type
+testdata/Builtins.lc 214:36-214:37
+    Type
+testdata/Builtins.lc 215:1-215:10
+    forall a b . (a -> List b) -> List a -> List b
+testdata/Builtins.lc 215:17-215:23
+    forall a . List (List a) -> List a
+testdata/Builtins.lc 215:17-215:33
+    List _c
+testdata/Builtins.lc 215:25-215:28
+    forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 215:25-215:30
+    List _e -> List (List _d)
+testdata/Builtins.lc 215:25-215:32
+    List (List _c)
+testdata/Builtins.lc 215:29-215:30
+    _g -> List _f
+testdata/Builtins.lc 215:31-215:32
+    List _d
+testdata/Builtins.lc 217:1-217:4
+    forall a . List a -> Int
+testdata/Builtins.lc 217:10-217:11
+    _b
+testdata/Builtins.lc 217:10-218:35
+    List _b -> Int
+testdata/Builtins.lc 218:14-218:15
+    _b
+testdata/Builtins.lc 218:14-218:28
+    Int -> Int
+testdata/Builtins.lc 218:14-218:35
+    Int
+testdata/Builtins.lc 218:16-218:28
+    Int -> Int -> Int
+testdata/Builtins.lc 218:29-218:32
+    _h
+testdata/Builtins.lc 218:33-218:35
+    List _g
+testdata/Builtins.lc 222:6-222:11
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+testdata/Builtins.lc 222:6-222:13
+    Type | Type | Type | Type
+testdata/Builtins.lc 222:6-224:11
+    Type | Type | Type
+testdata/Builtins.lc 222:6-224:13
+    Type
+testdata/Builtins.lc 222:12-222:13
+    Type | Type
+testdata/Builtins.lc 223:7-223:14
+    forall a . Maybe a | Maybe _b
+testdata/Builtins.lc 224:7-224:11
+    forall a . a -> Maybe a | Maybe _d | Type | Type
+testdata/Builtins.lc 224:12-224:13
+    Type
+testdata/Builtins.lc 227:6-227:12
+    Nat -> Type -> Type | Nat -> Type -> Type | Nat
+      -> Type -> Type | Type | Type | Type
+testdata/Builtins.lc 227:19-227:22
+    Type | Type
+testdata/Builtins.lc 231:6-231:19
+    Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 231:6-236:20
+    Type | Type | Type | Type | Type
+testdata/Builtins.lc 232:7-232:15
+    PrimitiveType
+testdata/Builtins.lc 233:7-233:11
+    PrimitiveType
+testdata/Builtins.lc 234:7-234:12
+    PrimitiveType
+testdata/Builtins.lc 235:7-235:24
+    PrimitiveType
+testdata/Builtins.lc 236:7-236:20
+    PrimitiveType
+testdata/Builtins.lc 238:6-238:15
+    Type -> PrimitiveType -> Type | Type -> PrimitiveType -> Type | Type | Type
+      -> PrimitiveType -> Type | Type | Type
+testdata/Builtins.lc 238:6-241:56
+    Type | Type | Type | Type
+testdata/Builtins.lc 238:21-238:34
+    Type
+testdata/Builtins.lc 238:21-238:42
+    Type
+testdata/Builtins.lc 238:38-238:42
+    Type | Type
+testdata/Builtins.lc 239:5-239:14
+    forall a . a -> Primitive a 'Point | Primitive _c 'Point
+testdata/Builtins.lc 239:5-239:53
+    Type | Type
+testdata/Builtins.lc 239:21-239:22
+    Type
+testdata/Builtins.lc 239:21-239:53
+    Type
+testdata/Builtins.lc 239:36-239:45
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 239:36-239:47
+    PrimitiveType -> Type
+testdata/Builtins.lc 239:36-239:53
+    Type | Type
+testdata/Builtins.lc 239:46-239:47
+    Type
+testdata/Builtins.lc 239:48-239:53
+    PrimitiveType | PrimitiveType
+testdata/Builtins.lc 240:5-240:13
+    forall a . a -> a -> Primitive a 'Line | Primitive _e 'Line
+testdata/Builtins.lc 240:5-240:52
+    Type | Type | Type
+testdata/Builtins.lc 240:21-240:22
+    Type
+testdata/Builtins.lc 240:21-240:52
+    Type
+testdata/Builtins.lc 240:26-240:27
+    Type
+testdata/Builtins.lc 240:26-240:52
+    Type
+testdata/Builtins.lc 240:36-240:45
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 240:36-240:47
+    PrimitiveType -> Type
+testdata/Builtins.lc 240:36-240:52
+    Type | Type
+testdata/Builtins.lc 240:46-240:47
+    Type
+testdata/Builtins.lc 240:48-240:52
+    PrimitiveType | PrimitiveType
+testdata/Builtins.lc 241:5-241:17
+    forall a . a -> a -> a -> Primitive a 'Triangle | Primitive _g 'Triangle
+testdata/Builtins.lc 241:5-241:56
+    Type | Type | Type | Type
+testdata/Builtins.lc 241:21-241:22
+    Type
+testdata/Builtins.lc 241:21-241:56
+    Type
+testdata/Builtins.lc 241:26-241:27
+    Type
+testdata/Builtins.lc 241:26-241:56
+    Type
+testdata/Builtins.lc 241:31-241:32
+    Type
+testdata/Builtins.lc 241:31-241:56
+    Type
+testdata/Builtins.lc 241:36-241:45
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 241:36-241:47
+    PrimitiveType -> Type
+testdata/Builtins.lc 241:36-241:56
+    Type | Type
+testdata/Builtins.lc 241:46-241:47
+    Type
+testdata/Builtins.lc 241:48-241:56
+    PrimitiveType | PrimitiveType
+testdata/Builtins.lc 243:1-243:13
+    forall a b (c :: PrimitiveType) . (a -> b) -> Primitive a c -> Primitive b c
+testdata/Builtins.lc 243:17-243:59
+    Type | Type | Type
+testdata/Builtins.lc 243:18-243:19
+    _f
+testdata/Builtins.lc 243:23-243:24
+    _e | Type
+testdata/Builtins.lc 243:29-243:38
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 243:29-243:40
+    PrimitiveType -> Type
+testdata/Builtins.lc 243:29-243:42
+    Type
+testdata/Builtins.lc 243:29-243:59
+    Type
+testdata/Builtins.lc 243:39-243:40
+    Type
+testdata/Builtins.lc 243:41-243:42
+    _c
+testdata/Builtins.lc 243:46-243:55
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 243:46-243:57
+    PrimitiveType -> Type
+testdata/Builtins.lc 243:46-243:59
+    Type | Type
+testdata/Builtins.lc 243:56-243:57
+    Type
+testdata/Builtins.lc 243:58-243:59
+    PrimitiveType
+testdata/Builtins.lc 250:6-250:21
+    PrimitiveType -> Type -> Type
+testdata/Builtins.lc 250:28-250:43
+    Type
+testdata/Builtins.lc 250:29-250:38
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 250:29-250:40
+    PrimitiveType -> Type
+testdata/Builtins.lc 250:29-250:42
+    Type
+testdata/Builtins.lc 250:39-250:40
+    _b
+testdata/Builtins.lc 250:41-250:42
+    _c
+testdata/Builtins.lc 252:18-252:72
+    Type | Type | Type
+testdata/Builtins.lc 252:19-252:20
+    _f
+testdata/Builtins.lc 252:24-252:25
+    _e | Type
+testdata/Builtins.lc 252:30-252:45
+    PrimitiveType -> Type -> Type
+testdata/Builtins.lc 252:30-252:47
+    Type -> Type
+testdata/Builtins.lc 252:30-252:49
+    Type
+testdata/Builtins.lc 252:30-252:72
+    Type
+testdata/Builtins.lc 252:46-252:47
+    _c
+testdata/Builtins.lc 252:48-252:49
+    Type
+testdata/Builtins.lc 252:53-252:68
+    PrimitiveType -> Type -> Type
+testdata/Builtins.lc 252:53-252:70
+    Type -> Type
+testdata/Builtins.lc 252:53-252:72
+    Type | Type
+testdata/Builtins.lc 252:69-252:70
+    PrimitiveType
+testdata/Builtins.lc 252:71-252:72
+    Type
+testdata/Builtins.lc 253:1-253:14
+    forall a b (c :: PrimitiveType)
+      . (a -> b) -> List (Primitive a c) -> List (Primitive b c)
+testdata/Builtins.lc 253:19-253:22
+    forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 253:19-253:39
+    List (Primitive _e _a) -> List (Primitive _d _a)
+testdata/Builtins.lc 253:24-253:36
+    forall a b (c :: PrimitiveType) . (a -> b) -> Primitive a c -> Primitive b c
+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
+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 | Type | Type
+testdata/Builtins.lc 260:56-260:57
+    _e
+testdata/Builtins.lc 260:56-260:59
+    _d -> Type
+testdata/Builtins.lc 260:56-260:75
+    Type
+testdata/Builtins.lc 260:58-260:59
+    forall a . a -> a -> Type
+testdata/Builtins.lc 260:60-260:63
+    forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 260:60-260:72
+    List Type -> List Type
+testdata/Builtins.lc 260:60-260:75
+    List Type
+testdata/Builtins.lc 260:64-260:72
+    Type -> Type
+testdata/Builtins.lc 260:73-260:75
+    _b
+testdata/Builtins.lc 260:80-260:85
+    List Type -> Type
+testdata/Builtins.lc 260:80-260:88
+    Type
+testdata/Builtins.lc 260:80-260:119
+    Type
+testdata/Builtins.lc 260:86-260:88
+    List Type
+testdata/Builtins.lc 260:92-260:107
+    PrimitiveType -> Type -> Type
+testdata/Builtins.lc 260:92-260:109
+    Type -> Type
+testdata/Builtins.lc 260:92-260:119
+    Type | Type
+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:56-262:62
+    Type
+testdata/Builtins.lc 262:56-262:104
+    Type | Type
+testdata/Builtins.lc 262:66-262:71
+    List Type -> Type
+testdata/Builtins.lc 262:66-262:73
+    Type
+testdata/Builtins.lc 262:66-262:104
+    Type
+testdata/Builtins.lc 262:72-262:73
+    _c
+testdata/Builtins.lc 262:77-262:92
+    PrimitiveType -> Type -> Type
+testdata/Builtins.lc 262:77-262:94
+    Type -> Type
+testdata/Builtins.lc 262:77-262:104
+    Type | Type
+testdata/Builtins.lc 262:93-262:94
+    _e
+testdata/Builtins.lc 262:96-262:101
+    List Type -> Type
+testdata/Builtins.lc 262:96-262:103
+    Type
+testdata/Builtins.lc 262:102-262:103
+    List Type
+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
+    _c | Type
+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
+testdata/Builtins.lc 266:41-266:47
+    Type
+testdata/Builtins.lc 266:41-266:123
+    Type
+testdata/Builtins.lc 266:51-266:123
+    Type
+testdata/Builtins.lc 266:65-266:73
+    Type
+testdata/Builtins.lc 266:66-266:72
+    Type
+testdata/Builtins.lc 266:78-266:81
+    forall a . List a -> Int
+testdata/Builtins.lc 266:78-266:84
+    Int
+testdata/Builtins.lc 266:78-266:86
+    Int -> Type
+testdata/Builtins.lc 266:78-266:92
+    Type
+testdata/Builtins.lc 266:78-266:123
+    Type
+testdata/Builtins.lc 266:82-266:84
+    List String
+testdata/Builtins.lc 266:85-266:86
+    forall a . a -> a -> Type
+testdata/Builtins.lc 266:87-266:90
+    forall a . List a -> Int
+testdata/Builtins.lc 266:87-266:92
+    Int
+testdata/Builtins.lc 266:91-266:92
+    List Type
+testdata/Builtins.lc 266:96-266:111
+    PrimitiveType -> Type -> Type
+testdata/Builtins.lc 266:96-266:113
+    Type -> Type
+testdata/Builtins.lc 266:96-266:123
+    Type | Type
+testdata/Builtins.lc 266:112-266:113
+    _f
+testdata/Builtins.lc 266:115-266:120
+    List Type -> Type
+testdata/Builtins.lc 266:115-266:122
+    Type
+testdata/Builtins.lc 266:121-266:122
+    List Type
+testdata/Builtins.lc 270:6-270:14
+    Nat -> Type -> Type
+testdata/Builtins.lc 270:21-270:27
+    Nat -> Type -> Type
+testdata/Builtins.lc 270:21-270:29
+    Type -> Type
+testdata/Builtins.lc 270:21-270:56
+    Type
+testdata/Builtins.lc 270:28-270:29
+    _d
+testdata/Builtins.lc 270:31-270:36
+    Type -> Type
+testdata/Builtins.lc 270:31-270:55
+    Type
+testdata/Builtins.lc 270:38-270:52
+    Type -> Type
+testdata/Builtins.lc 270:38-270:54
+    Type
+testdata/Builtins.lc 270:53-270:54
+    _b
+testdata/Builtins.lc 272:6-272:20
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+testdata/Builtins.lc 272:6-272:22
+    Type | Type
+testdata/Builtins.lc 272:6-272:39
+    Type | Type
+testdata/Builtins.lc 272:6-274:29
+    Type | Type
+testdata/Builtins.lc 272:21-272:22
+    Type
+testdata/Builtins.lc 272:25-272:39
+    forall a . Vec 3 Float -> a -> SimpleFragment a | SimpleFragment
+      _d | Type | Type | Type
+testdata/Builtins.lc 273:7-273:22
+    forall a . SimpleFragment a -> VecS Float 3
+testdata/Builtins.lc 273:28-273:31
+    Nat -> Type -> Type
+testdata/Builtins.lc 273:28-273:33
+    Type -> Type
+testdata/Builtins.lc 273:28-273:39
+    Type
+testdata/Builtins.lc 273:32-273:33
+    _b
+testdata/Builtins.lc 273:34-273:39
+    Type
+testdata/Builtins.lc 274:7-274:21
+    forall a . SimpleFragment a -> a
+testdata/Builtins.lc 274:28-274:29
+    Type
+testdata/Builtins.lc 277:6-277:20
+    Nat -> Type -> Type
+testdata/Builtins.lc 277:27-277:41
+    Type
+testdata/Builtins.lc 277:28-277:36
+    Nat -> Type -> Type
+testdata/Builtins.lc 277:28-277:38
+    Type -> Type
+testdata/Builtins.lc 277:28-277:40
+    Type
+testdata/Builtins.lc 277:37-277:38
+    _d
+testdata/Builtins.lc 277:39-277:40
+    _b
+testdata/Builtins.lc 279:1-279:15
+    forall a (b :: Nat) . (a -> Float) -> Fragment b a -> Fragment b a
+testdata/Builtins.lc 279:19-279:63
+    Type | Type
+testdata/Builtins.lc 279:20-279:21
+    _d
+testdata/Builtins.lc 279:25-279:30
+    Type | Type
+testdata/Builtins.lc 279:35-279:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 279:35-279:45
+    Type -> Type
+testdata/Builtins.lc 279:35-279:47
+    Type
+testdata/Builtins.lc 279:35-279:63
+    Type
+testdata/Builtins.lc 279:44-279:45
+    _c
+testdata/Builtins.lc 279:46-279:47
+    Type
+testdata/Builtins.lc 279:51-279:59
+    Nat -> Type -> Type
+testdata/Builtins.lc 279:51-279:61
+    Type -> Type
+testdata/Builtins.lc 279:51-279:63
+    Type | Type
+testdata/Builtins.lc 279:60-279:61
+    Nat
+testdata/Builtins.lc 279:62-279:63
+    Type
+testdata/Builtins.lc 281:20-281:76
+    Type | Type
+testdata/Builtins.lc 281:21-281:22
+    _d
+testdata/Builtins.lc 281:26-281:31
+    Type | Type
+testdata/Builtins.lc 281:36-281:50
+    Nat -> Type -> Type
+testdata/Builtins.lc 281:36-281:52
+    Type -> Type
+testdata/Builtins.lc 281:36-281:54
+    Type
+testdata/Builtins.lc 281:36-281:76
+    Type
+testdata/Builtins.lc 281:51-281:52
+    _c
+testdata/Builtins.lc 281:53-281:54
+    Type
+testdata/Builtins.lc 281:58-281:72
+    Nat -> Type -> Type
+testdata/Builtins.lc 281:58-281:74
+    Type -> Type
+testdata/Builtins.lc 281:58-281:76
+    Type | 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:21-282:24
+    forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 282:21-282:43
+    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
+testdata/Builtins.lc 284:1-284:15
+    forall a (b :: Nat) . (a -> Bool) -> Fragment b a -> Fragment b a
+testdata/Builtins.lc 284:19-284:62
+    Type | Type
+testdata/Builtins.lc 284:20-284:21
+    _d
+testdata/Builtins.lc 284:25-284:29
+    Type | Type
+testdata/Builtins.lc 284:34-284:42
+    Nat -> Type -> Type
+testdata/Builtins.lc 284:34-284:44
+    Type -> Type
+testdata/Builtins.lc 284:34-284:46
+    Type
+testdata/Builtins.lc 284:34-284:62
+    Type
+testdata/Builtins.lc 284:43-284:44
+    _c
+testdata/Builtins.lc 284:45-284:46
+    Type
+testdata/Builtins.lc 284:50-284:58
+    Nat -> Type -> Type
+testdata/Builtins.lc 284:50-284:60
+    Type -> Type
+testdata/Builtins.lc 284:50-284:62
+    Type | Type
+testdata/Builtins.lc 284:59-284:60
+    Nat
+testdata/Builtins.lc 284:61-284:62
+    Type
+testdata/Builtins.lc 286:20-286:75
+    Type | Type
+testdata/Builtins.lc 286:21-286:22
+    _d
+testdata/Builtins.lc 286:26-286:30
+    Type | Type
+testdata/Builtins.lc 286:35-286:49
+    Nat -> Type -> Type
+testdata/Builtins.lc 286:35-286:51
+    Type -> Type
+testdata/Builtins.lc 286:35-286:53
+    Type
+testdata/Builtins.lc 286:35-286:75
+    Type
+testdata/Builtins.lc 286:50-286:51
+    _c
+testdata/Builtins.lc 286:52-286:53
+    Type
+testdata/Builtins.lc 286:57-286:71
+    Nat -> Type -> Type
+testdata/Builtins.lc 286:57-286:73
+    Type -> Type
+testdata/Builtins.lc 286:57-286:75
+    Type | 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:21-287:24
+    forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 287:21-287:43
+    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
+testdata/Builtins.lc 289:1-289:12
+    forall a b (c :: Nat) . (a -> b) -> Fragment c a -> Fragment c b
+testdata/Builtins.lc 289:16-289:56
+    Type | Type | Type
+testdata/Builtins.lc 289:17-289:18
+    _f
+testdata/Builtins.lc 289:22-289:23
+    _e | Type
+testdata/Builtins.lc 289:28-289:36
+    Nat -> Type -> Type
+testdata/Builtins.lc 289:28-289:38
+    Type -> Type
+testdata/Builtins.lc 289:28-289:40
+    Type
+testdata/Builtins.lc 289:28-289:56
+    Type
+testdata/Builtins.lc 289:37-289:38
+    _c
+testdata/Builtins.lc 289:39-289:40
+    Type
+testdata/Builtins.lc 289:44-289:52
+    Nat -> Type -> Type
+testdata/Builtins.lc 289:44-289:54
+    Type -> Type
+testdata/Builtins.lc 289:44-289:56
+    Type | Type
+testdata/Builtins.lc 289:53-289:54
+    Nat
+testdata/Builtins.lc 289:55-289:56
+    Type
+testdata/Builtins.lc 291:17-291:69
+    Type | Type | Type
+testdata/Builtins.lc 291:18-291:19
+    _f
+testdata/Builtins.lc 291:23-291:24
+    _e | Type
+testdata/Builtins.lc 291:29-291:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 291:29-291:45
+    Type -> Type
+testdata/Builtins.lc 291:29-291:47
+    Type
+testdata/Builtins.lc 291:29-291:69
+    Type
+testdata/Builtins.lc 291:44-291:45
+    _c
+testdata/Builtins.lc 291:46-291:47
+    Type
+testdata/Builtins.lc 291:51-291:65
+    Nat -> Type -> Type
+testdata/Builtins.lc 291:51-291:67
+    Type -> Type
+testdata/Builtins.lc 291:51-291:69
+    Type | 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:18-292:21
+    forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 292:18-292:37
+    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
+testdata/Builtins.lc 296:6-296:15
+    Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 296:6-299:14
+    Type | Type | Type
+testdata/Builtins.lc 297:7-297:12
+    Type -> ImageKind | ImageKind | Type | Type
+testdata/Builtins.lc 297:13-297:17
+    Type
+testdata/Builtins.lc 298:7-298:12
+    ImageKind
+testdata/Builtins.lc 299:7-299:14
+    ImageKind
+testdata/Builtins.lc 301:14-301:23
+    Type
+testdata/Builtins.lc 301:27-301:31
+    Type | Type
+testdata/Builtins.lc 302:1-302:10
+    ImageKind -> Type
+testdata/Builtins.lc 302:23-302:24
+    Type
+testdata/Builtins.lc 302:23-303:25
+    Type -> ImageKind -> Type
+testdata/Builtins.lc 302:23-304:25
+    ImageKind -> Type | Type
+testdata/Builtins.lc 303:19-303:25
+    Type
+testdata/Builtins.lc 304:21-304:25
+    Type
+testdata/Builtins.lc 306:6-306:11
+    Nat -> ImageKind -> Type | Nat -> ImageKind -> Type | Nat
+      -> ImageKind -> Type | Type | Type
+testdata/Builtins.lc 306:6-306:38
+    Type
+testdata/Builtins.lc 306:18-306:21
+    Type | Type
+testdata/Builtins.lc 306:29-306:38
+    Type | Type | Type
+testdata/Builtins.lc 308:1-308:11
+    forall (a :: Nat) (b :: Nat) c d
+      . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
+testdata/Builtins.lc 308:45-309:55
+    Type | Type | Type | Type
+testdata/Builtins.lc 308:46-308:49
+    Type -> Type
+testdata/Builtins.lc 308:46-308:51
+    Type
+testdata/Builtins.lc 308:50-308:51
+    _d
+testdata/Builtins.lc 308:53-308:58
+    _d
+testdata/Builtins.lc 308:53-308:60
+    _c -> Type
+testdata/Builtins.lc 308:53-308:74
+    Type
+testdata/Builtins.lc 308:53-309:55
+    Type
+testdata/Builtins.lc 308:59-308:60
+    forall a . a -> a -> Type
+testdata/Builtins.lc 308:61-308:70
+    Nat -> Type -> Type
+testdata/Builtins.lc 308:61-308:72
+    Type -> Type
+testdata/Builtins.lc 308:61-308:74
+    Type
+testdata/Builtins.lc 308:71-308:72
+    _f
+testdata/Builtins.lc 308:73-308:74
+    Type
+testdata/Builtins.lc 309:24-309:29
+    Type
+testdata/Builtins.lc 309:24-309:55
+    Type
+testdata/Builtins.lc 309:34-309:39
+    Nat -> ImageKind -> Type
+testdata/Builtins.lc 309:34-309:41
+    ImageKind -> Type
+testdata/Builtins.lc 309:34-309:55
+    Type | Type
+testdata/Builtins.lc 309:40-309:41
+    _h
+testdata/Builtins.lc 309:43-309:48
+    Type -> ImageKind
+testdata/Builtins.lc 309:43-309:54
+    ImageKind
+testdata/Builtins.lc 309:49-309:54
+    Type
+testdata/Builtins.lc 310:1-310:11
+    forall (a :: Nat) . Float -> Image a 'Depth
+testdata/Builtins.lc 310:35-310:40
+    Type
+testdata/Builtins.lc 310:35-310:58
+    Type
+testdata/Builtins.lc 310:45-310:50
+    Nat -> ImageKind -> Type
+testdata/Builtins.lc 310:45-310:52
+    ImageKind -> Type
+testdata/Builtins.lc 310:45-310:58
+    Type | Type
+testdata/Builtins.lc 310:51-310:52
+    _c
+testdata/Builtins.lc 310:53-310:58
+    ImageKind
+testdata/Builtins.lc 311:1-311:13
+    forall (a :: Nat) . Int -> Image a 'Stencil
+testdata/Builtins.lc 311:35-311:38
+    Type
+testdata/Builtins.lc 311:35-311:60
+    Type
+testdata/Builtins.lc 311:45-311:50
+    Nat -> ImageKind -> Type
+testdata/Builtins.lc 311:45-311:52
+    ImageKind -> Type
+testdata/Builtins.lc 311:45-311:60
+    Type | Type
+testdata/Builtins.lc 311:51-311:52
+    _c
+testdata/Builtins.lc 311:53-311:60
+    ImageKind
+testdata/Builtins.lc 313:1-313:16
+    Float -> Image 1 'Depth
+testdata/Builtins.lc 313:19-313:29
+    forall (a :: Nat) . Float -> Image a 'Depth
+testdata/Builtins.lc 313:19-313:32
+    Float -> Image 1 'Depth
+testdata/Builtins.lc 313:31-313:32
+    _b
+testdata/Builtins.lc 314:1-314:16
+    forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
+testdata/Builtins.lc 314:19-314:29
+    forall (a :: Nat) (b :: Nat) c d
+      . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
+testdata/Builtins.lc 314:19-314:32
+    forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
+testdata/Builtins.lc 314:31-314:32
+    _b
+testdata/Builtins.lc 321:6-321:11
+    Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 321:6-321:31
+    Type | Type | Type | Type
+testdata/Builtins.lc 321:14-321:16
+    Swizz
+testdata/Builtins.lc 321:19-321:21
+    Swizz
+testdata/Builtins.lc 321:24-321:26
+    Swizz
+testdata/Builtins.lc 321:29-321:31
+    Swizz
+testdata/Builtins.lc 339:16-339:48
+    Type
+testdata/Builtins.lc 339:27-339:30
+    Nat -> Type -> Type
+testdata/Builtins.lc 339:27-339:32
+    Type -> Type
+testdata/Builtins.lc 339:27-339:34
+    Type
+testdata/Builtins.lc 339:27-339:48
+    Type
+testdata/Builtins.lc 339:31-339:32
+    _b
+testdata/Builtins.lc 339:33-339:34
+    _c
+testdata/Builtins.lc 339:38-339:43
+    Type
+testdata/Builtins.lc 339:38-339:48
+    Type
+testdata/Builtins.lc 339:47-339:48
+    Type | Type
+testdata/Builtins.lc 340:1-340:12
+    forall a (b :: Nat) . Vec b a -> Swizz -> a
+testdata/Builtins.lc 340:27-340:28
+    _e
+testdata/Builtins.lc 340:27-341:28
+    _d -> _d -> Swizz -> _d | _c
+testdata/Builtins.lc 340:27-344:30
+    (_a -> _a -> _a -> _a -> _a) -> forall (a :: Nat) . VecS _a a -> _a
+testdata/Builtins.lc 340:27-348:32
+    forall (a :: Nat) . VecS _a a -> _a | _d
+testdata/Builtins.lc 341:27-341:28
+    _d
+testdata/Builtins.lc 342:29-342:30
+    _e
+testdata/Builtins.lc 342:29-343:30
+    _d -> _d -> Swizz -> _d
+testdata/Builtins.lc 342:29-344:30
+    _d -> Swizz -> _d | _d
+testdata/Builtins.lc 343:29-343:30
+    _d
+testdata/Builtins.lc 344:29-344:30
+    _d
+testdata/Builtins.lc 345:31-345:32
+    _f
+testdata/Builtins.lc 345:31-346:32
+    _e -> _e -> Swizz -> _e
+testdata/Builtins.lc 345:31-347:32
+    _e -> Swizz -> _e
+testdata/Builtins.lc 345:31-348:32
+    Swizz -> _e | _e
+testdata/Builtins.lc 346:31-346:32
+    _e
+testdata/Builtins.lc 347:31-347:32
+    _e
+testdata/Builtins.lc 348:31-348:32
+    _e
+testdata/Builtins.lc 351:28-351:31
+    Nat -> Type -> Type
+testdata/Builtins.lc 351:28-351:33
+    Type -> Type
+testdata/Builtins.lc 351:28-351:35
+    Type
+testdata/Builtins.lc 351:28-351:43
+    Type | Type
+testdata/Builtins.lc 351:32-351:33
+    _b
+testdata/Builtins.lc 351:34-351:35
+    _c
+testdata/Builtins.lc 351:39-351:43
+    Type | Type
+testdata/Builtins.lc 352:1-352:11
+    forall a (b :: Nat) . Vec b a -> Bool
+testdata/Builtins.lc 352:23-352:27
+    Bool
+testdata/Builtins.lc 352:23-353:29
+    (_a -> _a -> _a -> _a -> Bool) -> forall (a :: Nat) . VecS _a a -> Bool
+testdata/Builtins.lc 352:23-354:31
+    forall (a :: Nat) . VecS _a a -> Bool | Bool
+testdata/Builtins.lc 353:25-353:29
+    Bool
+testdata/Builtins.lc 354:27-354:31
+    Bool
+testdata/Builtins.lc 356:16-356:71
+    Type
+testdata/Builtins.lc 356:27-356:71
+    Type
+testdata/Builtins.lc 356:38-356:41
+    Nat -> Type -> Type
+testdata/Builtins.lc 356:38-356:43
+    Type -> Type
+testdata/Builtins.lc 356:38-356:45
+    Type
+testdata/Builtins.lc 356:38-356:71
+    Type
+testdata/Builtins.lc 356:42-356:43
+    _d
+testdata/Builtins.lc 356:44-356:45
+    _e
+testdata/Builtins.lc 356:49-356:52
+    Nat -> Type -> Type
+testdata/Builtins.lc 356:49-356:54
+    Type -> Type
+testdata/Builtins.lc 356:49-356:60
+    Type
+testdata/Builtins.lc 356:49-356:71
+    Type
+testdata/Builtins.lc 356:53-356:54
+    _c
+testdata/Builtins.lc 356:55-356:60
+    Type
+testdata/Builtins.lc 356:64-356:67
+    Nat -> Type -> Type
+testdata/Builtins.lc 356:64-356:69
+    Type -> Type
+testdata/Builtins.lc 356:64-356:71
+    Type | Type
+testdata/Builtins.lc 356:68-356:69
+    Nat
+testdata/Builtins.lc 356:70-356:71
+    Type
+testdata/Builtins.lc 357:1-357:12
+    forall a (b :: Nat) (c :: Nat) . Vec b a -> Vec c Swizz -> VecS a c
+testdata/Builtins.lc 357:19-357:29
+    forall a (b :: Nat) . Vec b a -> Bool
+testdata/Builtins.lc 357:19-357:31
+    Bool
+testdata/Builtins.lc 357:19-357:58
+    VecS _e _c
+testdata/Builtins.lc 357:30-357:31
+    Vec _f _g
+testdata/Builtins.lc 357:34-357:40
+    forall a b (c :: Nat) . (a -> b) -> VecS a c -> VecS b c
+testdata/Builtins.lc 357:34-357:56
+    VecS Swizz _a -> VecS _g _a
+testdata/Builtins.lc 357:34-357:58
+    VecS _e _c
+testdata/Builtins.lc 357:42-357:53
+    forall a (b :: Nat) . Vec b a -> Swizz -> a
+testdata/Builtins.lc 357:42-357:55
+    Swizz -> _i
+testdata/Builtins.lc 357:54-357:55
+    Vec _j _k
+testdata/Builtins.lc 357:57-357:58
+    Vec _d Swizz
+testdata/Builtins.lc 361:6-361:20
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 361:6-376:23
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 362:7-362:13
+    BlendingFactor
+testdata/Builtins.lc 363:7-363:12
+    BlendingFactor
+testdata/Builtins.lc 364:7-364:15
+    BlendingFactor
+testdata/Builtins.lc 365:7-365:23
+    BlendingFactor
+testdata/Builtins.lc 366:7-366:15
+    BlendingFactor
+testdata/Builtins.lc 367:7-367:23
+    BlendingFactor
+testdata/Builtins.lc 368:7-368:15
+    BlendingFactor
+testdata/Builtins.lc 369:7-369:23
+    BlendingFactor
+testdata/Builtins.lc 370:7-370:15
+    BlendingFactor
+testdata/Builtins.lc 371:7-371:23
+    BlendingFactor
+testdata/Builtins.lc 372:7-372:20
+    BlendingFactor
+testdata/Builtins.lc 373:7-373:28
+    BlendingFactor
+testdata/Builtins.lc 374:7-374:20
+    BlendingFactor
+testdata/Builtins.lc 375:7-375:28
+    BlendingFactor
+testdata/Builtins.lc 376:7-376:23
+    BlendingFactor
+testdata/Builtins.lc 378:6-378:19
+    Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 378:6-383:10
+    Type | Type | Type | Type | Type
+testdata/Builtins.lc 379:7-379:14
+    BlendEquation
+testdata/Builtins.lc 380:7-380:19
+    BlendEquation
+testdata/Builtins.lc 381:7-381:26
+    BlendEquation
+testdata/Builtins.lc 382:7-382:10
+    BlendEquation
+testdata/Builtins.lc 383:7-383:10
+    BlendEquation
+testdata/Builtins.lc 385:6-385:20
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 385:6-401:10
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 386:7-386:12
+    LogicOperation
+testdata/Builtins.lc 387:7-387:10
+    LogicOperation
+testdata/Builtins.lc 388:7-388:17
+    LogicOperation
+testdata/Builtins.lc 389:7-389:11
+    LogicOperation
+testdata/Builtins.lc 390:7-390:18
+    LogicOperation
+testdata/Builtins.lc 391:7-391:11
+    LogicOperation
+testdata/Builtins.lc 392:7-392:10
+    LogicOperation
+testdata/Builtins.lc 393:7-393:9
+    LogicOperation
+testdata/Builtins.lc 394:7-394:10
+    LogicOperation
+testdata/Builtins.lc 395:7-395:12
+    LogicOperation
+testdata/Builtins.lc 396:7-396:13
+    LogicOperation
+testdata/Builtins.lc 397:7-397:16
+    LogicOperation
+testdata/Builtins.lc 398:7-398:19
+    LogicOperation
+testdata/Builtins.lc 399:7-399:17
+    LogicOperation
+testdata/Builtins.lc 400:7-400:11
+    LogicOperation
+testdata/Builtins.lc 401:7-401:10
+    LogicOperation
+testdata/Builtins.lc 403:6-403:22
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 403:6-411:15
+    Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 404:7-404:13
+    StencilOperation
+testdata/Builtins.lc 405:7-405:13
+    StencilOperation
+testdata/Builtins.lc 406:7-406:16
+    StencilOperation
+testdata/Builtins.lc 407:7-407:13
+    StencilOperation
+testdata/Builtins.lc 408:7-408:17
+    StencilOperation
+testdata/Builtins.lc 409:7-409:13
+    StencilOperation
+testdata/Builtins.lc 410:7-410:17
+    StencilOperation
+testdata/Builtins.lc 411:7-411:15
+    StencilOperation
+testdata/Builtins.lc 413:6-413:24
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 413:6-421:13
+    Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 414:7-414:12
+    ComparisonFunction
+testdata/Builtins.lc 415:7-415:11
+    ComparisonFunction
+testdata/Builtins.lc 416:7-416:12
+    ComparisonFunction
+testdata/Builtins.lc 417:7-417:13
+    ComparisonFunction
+testdata/Builtins.lc 418:7-418:14
+    ComparisonFunction
+testdata/Builtins.lc 419:7-419:15
+    ComparisonFunction
+testdata/Builtins.lc 420:7-420:13
+    ComparisonFunction
+testdata/Builtins.lc 421:7-421:13
+    ComparisonFunction
+testdata/Builtins.lc 423:6-423:21
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 423:6-425:18
+    Type | Type
+testdata/Builtins.lc 424:7-424:17
+    ProvokingVertex
+testdata/Builtins.lc 425:7-425:18
+    ProvokingVertex
+testdata/Builtins.lc 427:6-427:14
+    Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 427:6-430:15
+    Type | Type | Type
+testdata/Builtins.lc 428:7-428:16
+    CullMode
+testdata/Builtins.lc 429:7-429:15
+    CullMode
+testdata/Builtins.lc 430:7-430:15
+    CullMode
+testdata/Builtins.lc 432:6-432:15
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+testdata/Builtins.lc 432:6-432:17
+    Type | Type | Type | Type
+testdata/Builtins.lc 432:6-433:22
+    Type
+testdata/Builtins.lc 432:6-434:23
+    Type | Type | Type
+testdata/Builtins.lc 432:6-434:36
+    Type
+testdata/Builtins.lc 432:16-432:17
+    Type | Type
+testdata/Builtins.lc 433:7-433:16
+    forall a . Float -> PointSize a | PointSize _c | Type | Type
+testdata/Builtins.lc 433:17-433:22
+    Type
+testdata/Builtins.lc 434:7-434:23
+    forall a . (a -> Float) -> PointSize a | PointSize _d | Type | Type
+testdata/Builtins.lc 434:25-434:26
+    Type
+testdata/Builtins.lc 434:30-434:35
+    Type | Type
+testdata/Builtins.lc 436:6-436:17
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+      -> Type | Type
+testdata/Builtins.lc 436:6-436:19
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 436:6-438:33
+    Type
+testdata/Builtins.lc 436:6-439:18
+    Type | Type | Type | Type
+testdata/Builtins.lc 436:6-439:24
+    Type
+testdata/Builtins.lc 436:18-436:19
+    Type | Type | Type
+testdata/Builtins.lc 437:7-437:18
+    forall a . PolygonMode a | PolygonMode _b
+testdata/Builtins.lc 438:7-438:19
+    forall a . PointSize a -> PolygonMode a | PolygonMode _d | Type | Type
+testdata/Builtins.lc 438:21-438:30
+    Type -> Type
+testdata/Builtins.lc 438:21-438:32
+    Type
+testdata/Builtins.lc 438:31-438:32
+    Type
+testdata/Builtins.lc 439:7-439:18
+    forall a . Float -> PolygonMode a | PolygonMode _e | Type | Type
+testdata/Builtins.lc 439:19-439:24
+    Type
+testdata/Builtins.lc 441:6-441:19
+    Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 441:6-443:13
+    Type | Type
+testdata/Builtins.lc 441:6-443:25
+    Type
+testdata/Builtins.lc 442:7-442:15
+    PolygonOffset
+testdata/Builtins.lc 443:7-443:13
+    Float -> Float -> PolygonOffset | PolygonOffset | Type | Type | Type
+testdata/Builtins.lc 443:14-443:19
+    Type
+testdata/Builtins.lc 443:20-443:25
+    Type
+testdata/Builtins.lc 445:6-445:28
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 445:6-447:16
+    Type | Type
+testdata/Builtins.lc 446:7-446:16
+    PointSpriteCoordOrigin
+testdata/Builtins.lc 447:7-447:16
+    PointSpriteCoordOrigin
+testdata/Builtins.lc 450:1-450:12
+    () -> Vec 2 Float -> Vec 4 Float
+testdata/Builtins.lc 450:16-450:18
+    Type
+testdata/Builtins.lc 450:22-450:25
+    Nat -> Type -> Type
+testdata/Builtins.lc 450:22-450:27
+    Type -> Type
+testdata/Builtins.lc 450:22-450:33
+    Type
+testdata/Builtins.lc 450:22-450:48
+    Type
+testdata/Builtins.lc 450:26-450:27
+    _b
+testdata/Builtins.lc 450:28-450:33
+    Type
+testdata/Builtins.lc 450:37-450:40
+    Nat -> Type -> Type
+testdata/Builtins.lc 450:37-450:42
+    Type -> Type
+testdata/Builtins.lc 450:37-450:48
+    Type | Type
+testdata/Builtins.lc 450:41-450:42
+    _b
+testdata/Builtins.lc 450:43-450:48
+    Type
+testdata/Builtins.lc 453:1-453:8
+    forall a . String -> a
+testdata/Builtins.lc 453:14-453:20
+    Type
+testdata/Builtins.lc 453:14-453:25
+    Type
+testdata/Builtins.lc 453:24-453:25
+    _c | Type
+testdata/Builtins.lc 455:6-455:19
+    Type -> PrimitiveType -> Type | Type -> PrimitiveType -> Type | Type | Type
+      -> PrimitiveType -> Type | Type | Type
+testdata/Builtins.lc 455:6-458:111
+    Type | Type | Type | 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 | Type
+testdata/Builtins.lc 456:3-456:14
+    forall a
+      . CullMode
+        -> PolygonMode a
+          -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle | RasterContext
+      _f
+      'Triangle
+testdata/Builtins.lc 456:3-456:115
+    Type | Type | Type | Type | Type
+testdata/Builtins.lc 456:26-456:34
+    Type
+testdata/Builtins.lc 456:26-456:115
+    Type
+testdata/Builtins.lc 456:38-456:49
+    Type -> Type
+testdata/Builtins.lc 456:38-456:51
+    Type
+testdata/Builtins.lc 456:38-456:115
+    Type
+testdata/Builtins.lc 456:50-456:51
+    Type
+testdata/Builtins.lc 456:55-456:68
+    Type
+testdata/Builtins.lc 456:55-456:115
+    Type
+testdata/Builtins.lc 456:72-456:87
+    Type
+testdata/Builtins.lc 456:72-456:115
+    Type
+testdata/Builtins.lc 456:91-456:104
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 456:91-456:106
+    PrimitiveType -> Type
+testdata/Builtins.lc 456:91-456:115
+    Type | Type
+testdata/Builtins.lc 456:105-456:106
+    Type
+testdata/Builtins.lc 456:107-456:115
+    PrimitiveType | PrimitiveType
+testdata/Builtins.lc 457:3-457:11
+    forall a
+      . PointSize a
+        -> Float -> PointSpriteCoordOrigin -> RasterContext a 'Point | RasterContext
+      _f
+      'Point
+testdata/Builtins.lc 457:3-457:112
+    Type | Type | Type | Type
+testdata/Builtins.lc 457:26-457:35
+    Type -> Type
+testdata/Builtins.lc 457:26-457:37
+    Type
+testdata/Builtins.lc 457:26-457:112
+    Type
+testdata/Builtins.lc 457:36-457:37
+    Type
+testdata/Builtins.lc 457:41-457:46
+    Type
+testdata/Builtins.lc 457:41-457:112
+    Type
+testdata/Builtins.lc 457:50-457:72
+    Type
+testdata/Builtins.lc 457:50-457:112
+    Type
+testdata/Builtins.lc 457:91-457:104
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 457:91-457:106
+    PrimitiveType -> Type
+testdata/Builtins.lc 457:91-457:112
+    Type | Type
+testdata/Builtins.lc 457:105-457:106
+    Type
+testdata/Builtins.lc 457:107-457:112
+    PrimitiveType | PrimitiveType
+testdata/Builtins.lc 458:3-458:10
+    forall a . Float -> ProvokingVertex -> RasterContext a 'Line | RasterContext
+      _f
+      'Line
+testdata/Builtins.lc 458:3-458:111
+    Type | Type | Type
+testdata/Builtins.lc 458:26-458:31
+    Type
+testdata/Builtins.lc 458:26-458:111
+    Type
+testdata/Builtins.lc 458:35-458:50
+    Type
+testdata/Builtins.lc 458:35-458:111
+    Type
+testdata/Builtins.lc 458:91-458:104
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 458:91-458:106
+    PrimitiveType -> Type
+testdata/Builtins.lc 458:91-458:111
+    Type | Type
+testdata/Builtins.lc 458:105-458:106
+    Type
+testdata/Builtins.lc 458:107-458:111
+    PrimitiveType | PrimitiveType
+testdata/Builtins.lc 460:6-460:14
+    Type -> Type | Type -> Type | Type | Type -> Type | Type | Type
+testdata/Builtins.lc 460:6-465:74
+    Type | Type | Type
+testdata/Builtins.lc 460:18-460:22
+    Type
+testdata/Builtins.lc 460:26-460:30
+    Type | Type
+testdata/Builtins.lc 461:3-461:13
+    forall a . Blending a | Blending _a
+testdata/Builtins.lc 461:3-461:70
+    Type | Type
+testdata/Builtins.lc 461:60-461:68
+    Type -> Type
+testdata/Builtins.lc 461:60-461:70
+    Type | Type
+testdata/Builtins.lc 461:69-461:70
+    _b | Type
+testdata/Builtins.lc 462:3-462:15
+    forall a . Integral a => LogicOperation -> Blending a | Blending _c
+testdata/Builtins.lc 462:3-462:70
+    Type | Type | Type | Type
+testdata/Builtins.lc 462:26-462:70
+    Type
+testdata/Builtins.lc 462:27-462:35
+    Type -> Type
+testdata/Builtins.lc 462:27-462:37
+    Type
+testdata/Builtins.lc 462:36-462:37
+    _b
+testdata/Builtins.lc 462:42-462:56
+    Type
+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 | Type
+testdata/Builtins.lc 462:69-462:70
+    Type | 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-465:74
+    Type | Type | Type | Type
+testdata/Builtins.lc 463:26-463:56
+    Type
+testdata/Builtins.lc 463:27-463:40
+    Type
+testdata/Builtins.lc 463:27-463:55
+    List Type
+testdata/Builtins.lc 463:42-463:55
+    Type | List Type
+testdata/Builtins.lc 464:29-464:97
+    Type
+testdata/Builtins.lc 464:29-465:74
+    Type
+testdata/Builtins.lc 464:30-464:62
+    Type
+testdata/Builtins.lc 464:30-464:96
+    List Type
+testdata/Builtins.lc 464:31-464:45
+    Type
+testdata/Builtins.lc 464:31-464:61
+    List Type
+testdata/Builtins.lc 464:47-464:61
+    Type | List Type
+testdata/Builtins.lc 464:64-464:96
+    Type | List Type
+testdata/Builtins.lc 464:65-464:79
+    Type
+testdata/Builtins.lc 464:65-464:95
+    List Type
+testdata/Builtins.lc 464:81-464:95
+    Type | List Type
+testdata/Builtins.lc 465:29-465:32
+    Nat -> Type -> Type
+testdata/Builtins.lc 465:29-465:34
+    Type -> Type
+testdata/Builtins.lc 465:29-465:40
+    Type
+testdata/Builtins.lc 465:29-465:74
+    Type
+testdata/Builtins.lc 465:33-465:34
+    _b
+testdata/Builtins.lc 465:35-465:40
+    Type
+testdata/Builtins.lc 465:60-465:68
+    Type -> Type
+testdata/Builtins.lc 465:60-465:74
+    Type | Type
+testdata/Builtins.lc 465:69-465:74
+    Type | Type
+testdata/Builtins.lc 467:6-467:18
+    Type | Type | Type | Type
+testdata/Builtins.lc 468:6-468:16
+    Type | Type | Type | Type
+testdata/Builtins.lc 470:6-470:23
+    ImageKind -> Type | ImageKind -> Type | Type | ImageKind -> Type | Type | Type
+testdata/Builtins.lc 470:6-473:96
+    Type | Type | Type
+testdata/Builtins.lc 470:27-470:36
+    Type
+testdata/Builtins.lc 470:40-470:44
+    Type | Type
+testdata/Builtins.lc 471:3-471:10
+    forall a (b :: Nat)
+      . Num a
+        => Blending a
+          -> VecScalar b Bool
+            -> FragmentOperation ('Color (VecScalar b a)) | FragmentOperation
+      ('Color (VecScalar _d _e))
+testdata/Builtins.lc 471:3-471:112
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 471:26-471:29
+    Type -> Type
+testdata/Builtins.lc 471:26-471:31
+    Type
+testdata/Builtins.lc 471:26-471:112
+    Type | Type
+testdata/Builtins.lc 471:30-471:31
+    _d
+testdata/Builtins.lc 471:35-471:43
+    Type -> Type
+testdata/Builtins.lc 471:35-471:45
+    Type
+testdata/Builtins.lc 471:35-471:112
+    Type
+testdata/Builtins.lc 471:44-471:45
+    Type
+testdata/Builtins.lc 471:49-471:58
+    Nat -> Type -> Type
+testdata/Builtins.lc 471:49-471:60
+    Type -> Type
+testdata/Builtins.lc 471:49-471:65
+    Type
+testdata/Builtins.lc 471:49-471:112
+    Type
+testdata/Builtins.lc 471:59-471:60
+    _d
+testdata/Builtins.lc 471:61-471:65
+    Type
+testdata/Builtins.lc 471:71-471:88
+    ImageKind -> Type
+testdata/Builtins.lc 471:71-471:112
+    Type | Type
+testdata/Builtins.lc 471:90-471:95
+    Type -> ImageKind | Type -> ImageKind
+testdata/Builtins.lc 471:90-471:111
+    ImageKind | ImageKind
+testdata/Builtins.lc 471:97-471:106
+    Nat -> Type -> Type | Nat -> Type -> Type
+testdata/Builtins.lc 471:97-471:108
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 471:97-471:110
+    Type | Type
+testdata/Builtins.lc 471:107-471:108
+    Nat | Nat
+testdata/Builtins.lc 471:109-471:110
+    Type | Type
+testdata/Builtins.lc 472:3-472:10
+    ComparisonFunction -> Bool -> FragmentOperation 'Depth | FragmentOperation
+      'Depth
+testdata/Builtins.lc 472:3-472:94
+    Type | Type | Type
+testdata/Builtins.lc 472:26-472:44
+    Type
+testdata/Builtins.lc 472:48-472:52
+    Type
+testdata/Builtins.lc 472:48-472:94
+    Type
+testdata/Builtins.lc 472:71-472:88
+    ImageKind -> Type
+testdata/Builtins.lc 472:71-472:94
+    Type | Type
+testdata/Builtins.lc 472:89-472:94
+    ImageKind | ImageKind
+testdata/Builtins.lc 473:3-473:12
+    StencilTests
+      -> StencilOps -> StencilOps -> FragmentOperation 'Stencil | FragmentOperation
+      'Stencil
+testdata/Builtins.lc 473:3-473:96
+    Type | Type | Type | Type
+testdata/Builtins.lc 473:26-473:38
+    Type
+testdata/Builtins.lc 473:42-473:52
+    Type
+testdata/Builtins.lc 473:42-473:96
+    Type
+testdata/Builtins.lc 473:56-473:66
+    Type
+testdata/Builtins.lc 473:56-473:96
+    Type
+testdata/Builtins.lc 473:71-473:88
+    ImageKind -> Type
+testdata/Builtins.lc 473:71-473:96
+    Type | Type
+testdata/Builtins.lc 473:89-473:96
+    ImageKind | ImageKind
+testdata/Builtins.lc 475:6-475:18
+    Type -> Type | Type -> Type | Type -> Type | Type
+testdata/Builtins.lc 475:6-478:7
+    Type | Type | Type | Type
+testdata/Builtins.lc 476:3-476:9
+    forall a . Floating a => Interpolated a | Interpolated _c | Type | Type
+testdata/Builtins.lc 476:11-476:24
+    forall a . Floating a => Interpolated a | Interpolated _d | Type | Type
+testdata/Builtins.lc 477:26-477:56
+    Type | Type
+testdata/Builtins.lc 477:27-477:35
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 477:27-477:37
+    Type | Type
+testdata/Builtins.lc 477:36-477:37
+    Type | Type
+testdata/Builtins.lc 477:42-477:54
+    Type -> Type | Type -> Type
+testdata/Builtins.lc 477:42-477:56
+    Type | Type | Type | Type
+testdata/Builtins.lc 477:55-477:56
+    Type | Type
+testdata/Builtins.lc 478:3-478:7
+    forall a . Interpolated a | Interpolated _d
+testdata/Builtins.lc 478:42-478:54
+    Type -> Type
+testdata/Builtins.lc 478:42-478:56
+    Type | 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 481:8-486:34
+    Type | Type | Type | 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
+testdata/Builtins.lc 481:10-481:28
+    List Type
+testdata/Builtins.lc 481:10-481:30
+    List Type -> Type
+testdata/Builtins.lc 481:10-481:44
+    Type
+testdata/Builtins.lc 481:14-481:26
+    Type -> Type
+testdata/Builtins.lc 481:27-481:28
+    _h
+testdata/Builtins.lc 481:29-481:30
+    forall a . a -> a -> Type
+testdata/Builtins.lc 481:31-481:44
+    _f
+testdata/Builtins.lc 482:10-482:11
+    _f
+testdata/Builtins.lc 482:10-482:13
+    _e -> Type
+testdata/Builtins.lc 482:10-482:35
+    Type
+testdata/Builtins.lc 482:10-486:34
+    Type
+testdata/Builtins.lc 482:12-482:13
+    forall a . a -> a -> Type
+testdata/Builtins.lc 482:14-482:19
+    forall a . a -> List a -> List a
+testdata/Builtins.lc 482:14-482:33
+    List Type -> List Type
+testdata/Builtins.lc 482:14-482:35
+    List Type
+testdata/Builtins.lc 482:21-482:24
+    Nat -> Type -> Type
+testdata/Builtins.lc 482:21-482:26
+    Type -> Type
+testdata/Builtins.lc 482:21-482:32
+    Type
+testdata/Builtins.lc 482:25-482:26
+    _b
+testdata/Builtins.lc 482:27-482:32
+    Type
+testdata/Builtins.lc 482:34-482:35
+    List Type
+testdata/Builtins.lc 483:8-483:13
+    List Type -> Type
+testdata/Builtins.lc 483:8-483:27
+    Type
+testdata/Builtins.lc 483:8-486:34
+    Type
+testdata/Builtins.lc 483:14-483:27
+    List Type
+testdata/Builtins.lc 484:8-484:21
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 484:8-484:31
+    PrimitiveType -> Type
+testdata/Builtins.lc 484:8-484:33
+    Type
+testdata/Builtins.lc 484:8-486:34
+    Type
+testdata/Builtins.lc 484:23-484:28
+    List Type -> Type
+testdata/Builtins.lc 484:23-484:30
+    Type
+testdata/Builtins.lc 484:29-484:30
+    List Type
+testdata/Builtins.lc 484:32-484:33
+    _e
+testdata/Builtins.lc 485:8-485:17
+    Type -> PrimitiveType -> Type
+testdata/Builtins.lc 485:8-485:27
+    PrimitiveType -> Type
+testdata/Builtins.lc 485:8-485:29
+    Type
+testdata/Builtins.lc 485:8-486:34
+    Type
+testdata/Builtins.lc 485:19-485:24
+    List Type -> Type
+testdata/Builtins.lc 485:19-485:26
+    Type
+testdata/Builtins.lc 485:25-485:26
+    List Type
+testdata/Builtins.lc 485:28-485:29
+    PrimitiveType
+testdata/Builtins.lc 486:8-486:22
+    Nat -> Type -> Type
+testdata/Builtins.lc 486:8-486:24
+    Type -> Type
+testdata/Builtins.lc 486:8-486:34
+    Type | Type
+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: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: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: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
+testdata/Builtins.lc 488:72-488:73
+    _d
+testdata/Builtins.lc 490:26-490:29
+    Type | Type
+testdata/Builtins.lc 490:36-490:43
+    Type -> Nat
+testdata/Builtins.lc 490:58-490:59
+    Nat
+testdata/Builtins.lc 492:12-492:15
+    Type
+testdata/Builtins.lc 492:12-492:23
+    Type
+testdata/Builtins.lc 492:12-495:50
+    forall a . List a -> Type
+testdata/Builtins.lc 492:13-492:14
+    _b
+testdata/Builtins.lc 492:19-492:23
+    Type | Type
+testdata/Builtins.lc 493:1-493:8
+    forall a . List a -> Type
+testdata/Builtins.lc 493:14-493:19
+    Type
+testdata/Builtins.lc 493:14-495:50
+    List _a -> Type | Type
+testdata/Builtins.lc 494:15-494:20
+    Type
+testdata/Builtins.lc 494:15-495:50
+    List _c -> Type | Type
+testdata/Builtins.lc 495:22-495:25
+    Type -> Type -> Type
+testdata/Builtins.lc 495:22-495:33
+    Type -> Type
+testdata/Builtins.lc 495:22-495:50
+    Type
+testdata/Builtins.lc 495:27-495:28
+    _g
+testdata/Builtins.lc 495:27-495:30
+    _f -> Type
+testdata/Builtins.lc 495:27-495:32
+    Type
+testdata/Builtins.lc 495:29-495:30
+    forall a . a -> a -> Type
+testdata/Builtins.lc 495:31-495:32
+    _c
+testdata/Builtins.lc 495:35-495:42
+    forall a . List a -> Type
+testdata/Builtins.lc 495:35-495:49
+    Type
+testdata/Builtins.lc 495:44-495:45
+    _g
+testdata/Builtins.lc 495:44-495:46
+    List _f -> List _f
+testdata/Builtins.lc 495:44-495:48
+    List _e
+testdata/Builtins.lc 495:45-495:46
+    forall a . a -> List a -> List a
+testdata/Builtins.lc 495:46-495:48
+    List _e
+testdata/Builtins.lc 497:1-497:16
+    List Type -> Type
+testdata/Builtins.lc 497:21-497:28
+    forall a . List a -> Type
+testdata/Builtins.lc 497:21-497:45
+    Type
+testdata/Builtins.lc 497:30-497:33
+    forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 497:30-497:42
+    List Type -> List Nat
+testdata/Builtins.lc 497:30-497:44
+    List Nat
+testdata/Builtins.lc 497:34-497:42
+    Type -> Nat
+testdata/Builtins.lc 497:43-497:44
+    _b
+testdata/Builtins.lc 509:6-509:17
+    Nat -> List ImageKind -> Type | Nat -> List ImageKind -> Type | Nat
+      -> List ImageKind -> Type | Type | Type
+testdata/Builtins.lc 509:6-509:46
+    Type
+testdata/Builtins.lc 509:24-509:27
+    Type | Type
+testdata/Builtins.lc 509:35-509:46
+    Type | Type | Type
+testdata/Builtins.lc 509:36-509:45
+    Type | Type
+testdata/Builtins.lc 511:15-511:26
+    Type
+testdata/Builtins.lc 511:16-511:25
+    Type
+testdata/Builtins.lc 511:30-511:36
+    Type | Type
+testdata/Builtins.lc 511:31-511:35
+    Type
+testdata/Builtins.lc 512:1-512:11
+    List ImageKind -> List Type
+testdata/Builtins.lc 512:25-512:28
+    forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 512:25-512:38
+    List ImageKind -> List Type
+testdata/Builtins.lc 512:25-512:40
+    List Type
+testdata/Builtins.lc 512:25-513:31
+    List Type -> ImageKind -> List Type | List Type | List Type
+testdata/Builtins.lc 512:29-512:38
+    ImageKind -> Type
+testdata/Builtins.lc 512:39-512:40
+    List _c
+testdata/Builtins.lc 513:16-513:19
+    forall a b . (a -> b) -> List a -> List b | forall a b
+      . (a -> b) -> List a -> List b | forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 513:16-513:29
+    List ImageKind -> List Type | List ImageKind -> List Type | List ImageKind
+      -> List Type
+testdata/Builtins.lc 513:16-513:31
+    List Type | List Type | List Type
+testdata/Builtins.lc 513:20-513:29
+    ImageKind -> Type | ImageKind -> Type | ImageKind -> Type
+testdata/Builtins.lc 513:30-513:31
+    List ImageKind | List ImageKind | List ImageKind
+testdata/Builtins.lc 515:40-515:49
+    Type | Type
+testdata/Builtins.lc 515:56-515:77
+    Type -> ImageKind
+testdata/Builtins.lc 515:102-515:103
+    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:15-517:174
+    Type
+testdata/Builtins.lc 517:28-517:31
+    Type
+testdata/Builtins.lc 517:39-517:45
+    Type
+testdata/Builtins.lc 517:39-517:174
+    Type
+testdata/Builtins.lc 517:40-517:44
+    Type
+testdata/Builtins.lc 517:49-517:174
+    Type
+testdata/Builtins.lc 517:50-517:51
+    _e
+testdata/Builtins.lc 517:50-517:53
+    _d -> Type
+testdata/Builtins.lc 517:50-517:81
+    Type
+testdata/Builtins.lc 517:52-517:53
+    forall a . a -> a -> Type
+testdata/Builtins.lc 517:54-517:57
+    forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 517:54-517:79
+    List Type -> List ImageKind
+testdata/Builtins.lc 517:54-517:81
+    List ImageKind
+testdata/Builtins.lc 517:58-517:79
+    Type -> ImageKind
+testdata/Builtins.lc 517:80-517:81
+    List Type
+testdata/Builtins.lc 517:86-517:91
+    List Type -> Type
+testdata/Builtins.lc 517:86-517:93
+    Type
+testdata/Builtins.lc 517:86-517:174
+    Type
+testdata/Builtins.lc 517:92-517:93
+    List Type
+testdata/Builtins.lc 517:97-517:111
+    Nat -> Type -> Type
+testdata/Builtins.lc 517:97-517:113
+    Type -> Type
+testdata/Builtins.lc 517:97-517:136
+    Type
+testdata/Builtins.lc 517:97-517:174
+    Type
+testdata/Builtins.lc 517:112-517:113
+    Nat
+testdata/Builtins.lc 517:115-517:120
+    List Type -> Type
+testdata/Builtins.lc 517:115-517:135
+    Type
+testdata/Builtins.lc 517:122-517:132
+    List ImageKind -> List Type
+testdata/Builtins.lc 517:122-517:134
+    List Type
+testdata/Builtins.lc 517:133-517:134
+    List ImageKind
+testdata/Builtins.lc 517:140-517:151
+    Nat -> List ImageKind -> Type
+testdata/Builtins.lc 517:140-517:153
+    List ImageKind -> Type
+testdata/Builtins.lc 517:140-517:155
+    Type
+testdata/Builtins.lc 517:140-517:174
+    Type
+testdata/Builtins.lc 517:152-517:153
+    Nat
+testdata/Builtins.lc 517:154-517:155
+    List ImageKind
+testdata/Builtins.lc 517:159-517:170
+    Nat -> List ImageKind -> Type
+testdata/Builtins.lc 517:159-517:172
+    List ImageKind -> Type
+testdata/Builtins.lc 517:159-517:174
+    Type | Type
+testdata/Builtins.lc 517:171-517:172
+    Nat
+testdata/Builtins.lc 517:173-517:174
+    List ImageKind
+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
+    _e | ((_b))
+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 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
+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) | FrameBuffer
+      _b
+      (map Type ImageKind FragmentOperationKind _a) | FrameBuffer
+      _b
+      (map Type ImageKind FragmentOperationKind _a)
+testdata/Builtins.lc 520:36-520:39
+    _m
+testdata/Builtins.lc 520:40-520:43
+    _h
+testdata/Builtins.lc 520:44-520:46
+    _n
+testdata/Builtins.lc 524:31-524:40
+    Type | Type
+testdata/Builtins.lc 524:47-524:59
+    Type -> ImageKind
+testdata/Builtins.lc 524:74-524:75
+    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:30-530:36
+    Type
+testdata/Builtins.lc 530:31-530:35
+    Type
+testdata/Builtins.lc 530:40-530:125
+    Type
+testdata/Builtins.lc 530:41-530:56
+    List Type -> Type
+testdata/Builtins.lc 530:41-530:58
+    Type
+testdata/Builtins.lc 530:57-530:58
+    List Type
+testdata/Builtins.lc 530:63-530:68
+    List Type -> Type
+testdata/Builtins.lc 530:63-530:70
+    Type
+testdata/Builtins.lc 530:63-530:125
+    Type
+testdata/Builtins.lc 530:69-530:70
+    List Type
+testdata/Builtins.lc 530:74-530:85
+    Nat -> List ImageKind -> Type
+testdata/Builtins.lc 530:74-530:104
+    List ImageKind -> Type
+testdata/Builtins.lc 530:74-530:125
+    Type | Type
+testdata/Builtins.lc 530:87-530:94
+    Type -> Nat
+testdata/Builtins.lc 530:87-530:103
+    Nat
+testdata/Builtins.lc 530:96-530:100
+    forall a . List a -> a
+testdata/Builtins.lc 530:96-530:102
+    Type
+testdata/Builtins.lc 530:101-530:102
+    List Type
+testdata/Builtins.lc 530:106-530:109
+    forall a b . (a -> b) -> List a -> List b
+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 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:63-534:70
+    _k
+testdata/Builtins.lc 534:71-534:75
+    _g
+testdata/Builtins.lc 534:77-534:79
+    _e
+testdata/Builtins.lc 537:1-537:9
+    forall (a :: ImageKind) . FrameBuffer 1 ('Cons a 'Nil) -> Image 1 a
+testdata/Builtins.lc 537:24-537:35
+    Nat -> List ImageKind -> Type
+testdata/Builtins.lc 537:24-537:37
+    List ImageKind -> Type
+testdata/Builtins.lc 537:24-537:42
+    Type
+testdata/Builtins.lc 537:24-537:55
+    Type
+testdata/Builtins.lc 537:36-537:37
+    _b
+testdata/Builtins.lc 537:38-537:42
+    List ImageKind
+testdata/Builtins.lc 537:40-537:41
     _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
-testdata/Builtins.lc 537:1-537:9  forall (a :: ImageKind) . FrameBuffer 1 ('Cons a 'Nil) -> Image 1 a
-testdata/Builtins.lc 537:24-537:35  Nat -> List ImageKind -> Type
-testdata/Builtins.lc 537:24-537:37  List ImageKind -> Type
-testdata/Builtins.lc 537:24-537:42  Type
-testdata/Builtins.lc 537:24-537:55  Type
-testdata/Builtins.lc 537:36-537:37  _b
-testdata/Builtins.lc 537:38-537:42  List ImageKind
-testdata/Builtins.lc 537:40-537:41  _c
-testdata/Builtins.lc 537:46-537:51  Nat -> ImageKind -> Type
-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: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
-testdata/Builtins.lc 538:36-538:37  _b
-testdata/Builtins.lc 538:38-538:70  List ImageKind
-testdata/Builtins.lc 538:41-538:47  ImageKind
-testdata/Builtins.lc 538:49-538:55  Type -> ImageKind
-testdata/Builtins.lc 538:49-538:69  ImageKind | List ImageKind
-testdata/Builtins.lc 538:57-538:60  Nat -> Type -> Type
-testdata/Builtins.lc 538:57-538:62  Type -> Type
-testdata/Builtins.lc 538:57-538:68  Type
-testdata/Builtins.lc 538:61-538:62  _b
-testdata/Builtins.lc 538:63-538:68  Type
-testdata/Builtins.lc 538:74-538:79  Nat -> ImageKind -> Type
-testdata/Builtins.lc 538:74-538:81  ImageKind -> Type
-testdata/Builtins.lc 538:74-538:103  Type
-testdata/Builtins.lc 538:80-538:81  _b
-testdata/Builtins.lc 538:83-538:88  Type -> ImageKind
-testdata/Builtins.lc 538:83-538:102  ImageKind
-testdata/Builtins.lc 538:90-538:93  Nat -> Type -> Type
-testdata/Builtins.lc 538:90-538:95  Type -> Type
-testdata/Builtins.lc 538:90-538:101  Type
-testdata/Builtins.lc 538:94-538:95  _b
-testdata/Builtins.lc 538:96-538:101  Type
-testdata/Builtins.lc 540:6-540:12  Type
-testdata/Builtins.lc 540:6-541:12  Type
-testdata/Builtins.lc 541:3-541:12  Output | Type | forall (a :: Nat) (b :: List ImageKind) . FrameBuffer a b -> Output
-testdata/Builtins.lc 541:26-541:37  Nat -> List ImageKind -> Type
-testdata/Builtins.lc 541:26-541:39  List ImageKind -> Type
-testdata/Builtins.lc 541:26-541:41  Type
-testdata/Builtins.lc 541:26-541:51  Type
-testdata/Builtins.lc 541:38-541:39  _d
-testdata/Builtins.lc 541:40-541:41  _b
-testdata/Builtins.lc 541:45-541:51  Type
-testdata/Builtins.lc 543:1-543:12  forall (a :: Nat) (b :: List ImageKind) . FrameBuffer a b -> Output
-testdata/Builtins.lc 543:15-543:24  forall (a :: Nat) (b :: List ImageKind) . FrameBuffer a b -> Output
-testdata/Builtins.lc 549:6-549:13  Type
-testdata/Builtins.lc 549:6-553:12  Type
-testdata/Builtins.lc 550:3-550:16  String -> Texture | Texture | Type
-testdata/Builtins.lc 550:20-550:26  Type
-testdata/Builtins.lc 551:20-551:27  Type
-testdata/Builtins.lc 553:3-553:12  Texture | Type | Vec 2 Int -> Image 1 ('Color (Vec 4 Float)) -> Texture
-testdata/Builtins.lc 553:20-553:23  Nat -> Type -> Type
-testdata/Builtins.lc 553:20-553:25  Type -> Type
-testdata/Builtins.lc 553:20-553:29  Type
-testdata/Builtins.lc 553:24-553:25  _b
-testdata/Builtins.lc 553:26-553:29  Type
-testdata/Builtins.lc 554:20-554:25  Nat -> ImageKind -> Type
-testdata/Builtins.lc 554:20-554:27  ImageKind -> Type
-testdata/Builtins.lc 554:20-554:49  Type
-testdata/Builtins.lc 554:20-555:27  Type
-testdata/Builtins.lc 554:26-554:27  _b
-testdata/Builtins.lc 554:29-554:34  Type -> ImageKind
-testdata/Builtins.lc 554:29-554:48  ImageKind
-testdata/Builtins.lc 554:36-554:39  Nat -> Type -> Type
-testdata/Builtins.lc 554:36-554:41  Type -> Type
-testdata/Builtins.lc 554:36-554:47  Type
-testdata/Builtins.lc 554:40-554:41  _b
-testdata/Builtins.lc 554:42-554:47  Type
-testdata/Builtins.lc 555:20-555:27  Type
-testdata/Builtins.lc 557:6-557:12  Type
-testdata/Builtins.lc 557:6-559:17  Type
-testdata/Builtins.lc 558:5-558:16  Filter
-testdata/Builtins.lc 559:5-559:17  Filter
-testdata/Builtins.lc 561:6-561:14  Type
-testdata/Builtins.lc 561:6-564:16  Type
-testdata/Builtins.lc 562:5-562:11  EdgeMode
-testdata/Builtins.lc 563:5-563:19  EdgeMode
-testdata/Builtins.lc 564:5-564:16  EdgeMode
-testdata/Builtins.lc 566:6-566:13  Type
-testdata/Builtins.lc 566:6-566:23  Type
-testdata/Builtins.lc 566:6-566:47  Type
-testdata/Builtins.lc 566:16-566:23  Filter -> EdgeMode -> Texture -> Sampler | Sampler | Type
-testdata/Builtins.lc 566:24-566:30  Type
-testdata/Builtins.lc 566:31-566:39  Type
-testdata/Builtins.lc 566:40-566:47  Type
-testdata/Builtins.lc 569:1-569:10  Sampler -> Vec 2 Float -> Vec 4 Float
-testdata/Builtins.lc 569:14-569:21  Type
-testdata/Builtins.lc 569:25-569:28  Nat -> Type -> Type
-testdata/Builtins.lc 569:25-569:30  Type -> Type
-testdata/Builtins.lc 569:25-569:36  Type
-testdata/Builtins.lc 569:25-569:51  Type
-testdata/Builtins.lc 569:29-569:30  _b
-testdata/Builtins.lc 569:31-569:36  Type
-testdata/Builtins.lc 569:40-569:43  Nat -> Type -> Type
-testdata/Builtins.lc 569:40-569:45  Type -> Type
-testdata/Builtins.lc 569:40-569:51  Type
-testdata/Builtins.lc 569:44-569:45  _b
-testdata/Builtins.lc 569:46-569:51  Type
-testdata/Builtins.lc 573:1-573:20  forall a . a -> a
-testdata/Builtins.lc 573:25-573:26  _b
+testdata/Builtins.lc 537:46-537:51
+    Nat -> ImageKind -> Type
+testdata/Builtins.lc 537:46-537:53
+    ImageKind -> Type
+testdata/Builtins.lc 537:46-537:55
+    Type | 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: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
+testdata/Builtins.lc 538:36-538:37
+    _b
+testdata/Builtins.lc 538:38-538:70
+    List ImageKind
+testdata/Builtins.lc 538:41-538:47
+    ImageKind
+testdata/Builtins.lc 538:49-538:55
+    Type -> ImageKind
+testdata/Builtins.lc 538:49-538:69
+    ImageKind | List ImageKind
+testdata/Builtins.lc 538:57-538:60
+    Nat -> Type -> Type
+testdata/Builtins.lc 538:57-538:62
+    Type -> Type
+testdata/Builtins.lc 538:57-538:68
+    Type
+testdata/Builtins.lc 538:61-538:62
+    _b
+testdata/Builtins.lc 538:63-538:68
+    Type
+testdata/Builtins.lc 538:74-538:79
+    Nat -> ImageKind -> Type
+testdata/Builtins.lc 538:74-538:81
+    ImageKind -> Type
+testdata/Builtins.lc 538:74-538:103
+    Type | Type
+testdata/Builtins.lc 538:80-538:81
+    _b
+testdata/Builtins.lc 538:83-538:88
+    Type -> ImageKind
+testdata/Builtins.lc 538:83-538:102
+    ImageKind
+testdata/Builtins.lc 538:90-538:93
+    Nat -> Type -> Type
+testdata/Builtins.lc 538:90-538:95
+    Type -> Type
+testdata/Builtins.lc 538:90-538:101
+    Type
+testdata/Builtins.lc 538:94-538:95
+    _b
+testdata/Builtins.lc 538:96-538:101
+    Type
+testdata/Builtins.lc 540:6-540:12
+    Type | Type | Type | Type
+testdata/Builtins.lc 540:6-541:12
+    Type
+testdata/Builtins.lc 541:3-541:12
+    forall (a :: Nat) (b :: List ImageKind)
+      . FrameBuffer a b -> Output | Output | Type | Type | Type | Type
+testdata/Builtins.lc 541:26-541:37
+    Nat -> List ImageKind -> Type
+testdata/Builtins.lc 541:26-541:39
+    List ImageKind -> Type
+testdata/Builtins.lc 541:26-541:41
+    Type
+testdata/Builtins.lc 541:26-541:51
+    Type | Type
+testdata/Builtins.lc 541:38-541:39
+    _d
+testdata/Builtins.lc 541:40-541:41
+    _b
+testdata/Builtins.lc 541:45-541:51
+    Type | Type
+testdata/Builtins.lc 543:1-543:12
+    forall (a :: Nat) (b :: List ImageKind) . FrameBuffer a b -> Output
+testdata/Builtins.lc 543:15-543:24
+    forall (a :: Nat) (b :: List ImageKind) . FrameBuffer a b -> Output
+testdata/Builtins.lc 549:6-549:13
+    Type | Type | Type | Type
+testdata/Builtins.lc 549:6-553:12
+    Type | Type
+testdata/Builtins.lc 550:3-550:16
+    String -> Texture | Texture | Type | Type
+testdata/Builtins.lc 550:20-550:26
+    Type
+testdata/Builtins.lc 551:20-551:27
+    Type | Type
+testdata/Builtins.lc 553:3-553:12
+    Vec 2 Int
+      -> Image 1 ('Color (Vec 4 Float)) -> Texture | Texture | Type | Type | Type
+testdata/Builtins.lc 553:20-553:23
+    Nat -> Type -> Type
+testdata/Builtins.lc 553:20-553:25
+    Type -> Type
+testdata/Builtins.lc 553:20-553:29
+    Type
+testdata/Builtins.lc 553:24-553:25
+    _b
+testdata/Builtins.lc 553:26-553:29
+    Type
+testdata/Builtins.lc 554:20-554:25
+    Nat -> ImageKind -> Type
+testdata/Builtins.lc 554:20-554:27
+    ImageKind -> Type
+testdata/Builtins.lc 554:20-554:49
+    Type
+testdata/Builtins.lc 554:20-555:27
+    Type
+testdata/Builtins.lc 554:26-554:27
+    _b
+testdata/Builtins.lc 554:29-554:34
+    Type -> ImageKind
+testdata/Builtins.lc 554:29-554:48
+    ImageKind
+testdata/Builtins.lc 554:36-554:39
+    Nat -> Type -> Type
+testdata/Builtins.lc 554:36-554:41
+    Type -> Type
+testdata/Builtins.lc 554:36-554:47
+    Type
+testdata/Builtins.lc 554:40-554:41
+    _b
+testdata/Builtins.lc 554:42-554:47
+    Type
+testdata/Builtins.lc 555:20-555:27
+    Type | Type
+testdata/Builtins.lc 557:6-557:12
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 557:6-559:17
+    Type | Type
+testdata/Builtins.lc 558:5-558:16
+    Filter
+testdata/Builtins.lc 559:5-559:17
+    Filter
+testdata/Builtins.lc 561:6-561:14
+    Type | Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 561:6-564:16
+    Type | Type | Type
+testdata/Builtins.lc 562:5-562:11
+    EdgeMode
+testdata/Builtins.lc 563:5-563:19
+    EdgeMode
+testdata/Builtins.lc 564:5-564:16
+    EdgeMode
+testdata/Builtins.lc 566:6-566:13
+    Type | Type | Type | Type | Type | Type
+testdata/Builtins.lc 566:6-566:23
+    Type
+testdata/Builtins.lc 566:6-566:47
+    Type | Type
+testdata/Builtins.lc 566:16-566:23
+    Filter -> EdgeMode -> Texture -> Sampler | Sampler | Type | Type | Type | Type
+testdata/Builtins.lc 566:24-566:30
+    Type
+testdata/Builtins.lc 566:31-566:39
+    Type
+testdata/Builtins.lc 566:40-566:47
+    Type
+testdata/Builtins.lc 569:1-569:10
+    Sampler -> Vec 2 Float -> Vec 4 Float
+testdata/Builtins.lc 569:14-569:21
+    Type
+testdata/Builtins.lc 569:25-569:28
+    Nat -> Type -> Type
+testdata/Builtins.lc 569:25-569:30
+    Type -> Type
+testdata/Builtins.lc 569:25-569:36
+    Type
+testdata/Builtins.lc 569:25-569:51
+    Type
+testdata/Builtins.lc 569:29-569:30
+    _b
+testdata/Builtins.lc 569:31-569:36
+    Type
+testdata/Builtins.lc 569:40-569:43
+    Nat -> Type -> Type
+testdata/Builtins.lc 569:40-569:45
+    Type -> Type
+testdata/Builtins.lc 569:40-569:51
+    Type | Type
+testdata/Builtins.lc 569:44-569:45
+    _b
+testdata/Builtins.lc 569:46-569:51
+    Type
+testdata/Builtins.lc 573:1-573:20
+    forall a . a -> a
+testdata/Builtins.lc 573:25-573:26
+    _b
 ------------ warnings
 Uncovered pattern(s) at testdata/Builtins.lc:201:1:
 head (x: _) = x
@@ -4443,4 +7131,4 @@ Uncovered pattern(s) at testdata/Builtins.lc:357:1:
 swizzvector v w | definedVec v = mapVec (swizzscalar v) w
 ^^^^^^^^^^^
 Missing case(s):
-  _ _ | False <- definedVec _b
+  _ _ | False <- definedVec _b
\ No newline at end of file
diff --git a/testdata/Internals.out b/testdata/Internals.out
index 520e7204..cec9ea8d 100644
--- a/testdata/Internals.out
+++ b/testdata/Internals.out
@@ -204,433 +204,753 @@ hlistConsCase
     . forall (c :: _) -> (a -> HList b -> c) -> HList (Cons a b) -> c
 main is not found
 ------------ trace
-typeAnn :: forall a . a -> a
-parens :: forall a . a -> a
-undefined :: forall a . a
-primFix :: forall a . (a -> a) -> a
-'Unit :: Type
-TT :: Unit
-'UnitCase :: forall (a :: Unit -> Type) -> a 'TT -> forall (b :: Unit) -> a b
-match'Unit :: forall (a :: Type -> Type) -> a Unit -> forall b -> a b -> a b
-'String :: Type
-'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
+typeAnn :: forall a . a -> a
+parens :: forall a . a -> a
+undefined :: forall a . a
+primFix :: forall a . (a -> a) -> a
+'Unit :: Type
+TT :: Unit
+'UnitCase :: forall (a :: Unit -> Type) -> a 'TT -> forall (b :: Unit) -> a b
+match'Unit :: forall (a :: Type -> Type) -> a Unit -> forall b -> a b -> a b
+'String :: Type
+'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
+  :: 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
-'T2 :: Type -> Type -> Type
-match'Type :: forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b
-'EqCTt :: forall a . a -> a -> Type
-t2C :: Unit -> Unit -> Unit
-'Int :: Type
-'IntCase :: forall (a :: Int -> Type) (b :: Int) -> a b
-match'Int :: forall (a :: Type -> Type) -> a Int -> forall b -> a b -> a b
-'Word :: Type
-'WordCase :: forall (a :: Word -> Type) (b :: Word) -> a b
-match'Word :: forall (a :: Type -> Type) -> a Word -> forall b -> a b -> a b
-'Float :: Type
-'FloatCase :: forall (a :: Float -> Type) (b :: Float) -> a b
-match'Float :: forall (a :: Type -> Type) -> a Float -> forall b -> a b -> a b
-'Char :: Type
-'CharCase :: forall (a :: Char -> Type) (b :: Char) -> a b
-match'Char :: forall (a :: Type -> Type) -> a Char -> forall b -> a b -> a b
-'Bool :: Type
-False :: Bool
-True :: Bool
+  :: 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
+'T2 :: Type -> Type -> Type
+match'Type :: forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b
+'EqCTt :: forall a . a -> a -> Type
+t2C :: Unit -> Unit -> Unit
+'Int :: Type
+'IntCase :: forall (a :: Int -> Type) (b :: Int) -> a b
+match'Int :: forall (a :: Type -> Type) -> a Int -> forall b -> a b -> a b
+'Word :: Type
+'WordCase :: forall (a :: Word -> Type) (b :: Word) -> a b
+match'Word :: forall (a :: Type -> Type) -> a Word -> forall b -> a b -> a b
+'Float :: Type
+'FloatCase :: forall (a :: Float -> Type) (b :: Float) -> a b
+match'Float :: forall (a :: Type -> Type) -> a Float -> forall b -> a b -> a b
+'Char :: Type
+'CharCase :: forall (a :: Char -> Type) (b :: Char) -> a b
+match'Char :: forall (a :: Type -> Type) -> a Char -> forall b -> a b -> a b
+'Bool :: Type
+False :: Bool
+True :: Bool
 '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
+  :: 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
+  :: 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
+  :: 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
-match'Nat :: forall (a :: Type -> Type) -> a Nat -> forall b -> a b -> a b
-primIntToWord :: Int -> Word
-primIntToFloat :: Int -> Float
-primIntToNat :: Int -> Nat
-primCompareInt :: Int -> Int -> Ordering
-primCompareWord :: Word -> Word -> Ordering
-primCompareFloat :: Float -> Float -> Ordering
-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 :: forall a . Bool -> a -> a -> a
-isEQ :: Ordering -> Bool
-'Num :: Type -> Type
-fromInt :: forall a . Num a => Int -> a
-compare :: forall a . Num a => a -> a -> Ordering
-negate :: forall a . Num a => a -> a
-'Eq :: Type -> Type
-== :: forall a . Eq a => a -> a -> Bool
-'List :: Type -> Type
-Nil :: forall a . List a
-Cons :: forall a . a -> List a -> List a
+  :: forall (a :: Nat -> Type)
+    -> a 0 -> (forall (b :: Nat) -> a ('Succ b)) -> forall (c :: Nat) -> a c
+match'Nat :: forall (a :: Type -> Type) -> a Nat -> forall b -> a b -> a b
+primIntToWord :: Int -> Word
+primIntToFloat :: Int -> Float
+primIntToNat :: Int -> Nat
+primCompareInt :: Int -> Int -> Ordering
+primCompareWord :: Word -> Word -> Ordering
+primCompareFloat :: Float -> Float -> Ordering
+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 :: forall a . Bool -> a -> a -> a
+isEQ :: Ordering -> Bool
+'Num :: Type -> Type
+fromInt :: forall a . Num a => Int -> a
+compare :: forall a . Num a => a -> a -> Ordering
+negate :: forall a . Num a => a -> a
+'Eq :: Type -> Type
+== :: forall a . Eq a => a -> a -> Bool
+'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
+  :: 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)
+  :: 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 (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
+          . 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
+  :: 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
+  :: 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
-testdata/Internals.lc 9:1-9:7  forall a . a -> a
-testdata/Internals.lc 9:12-9:13  _b
-testdata/Internals.lc 11:1-11:10  forall a . a
-testdata/Internals.lc 11:27-11:31  Type
-testdata/Internals.lc 11:35-11:36  Type
-testdata/Internals.lc 13:1-13:8  forall a . (a -> a) -> a
-testdata/Internals.lc 13:25-13:29  Type
-testdata/Internals.lc 13:33-13:46  Type
-testdata/Internals.lc 13:34-13:35  Type
-testdata/Internals.lc 13:39-13:40  Type
-testdata/Internals.lc 13:45-13:46  Type
-testdata/Internals.lc 15:6-15:10  Type
-testdata/Internals.lc 15:6-15:15  Type
-testdata/Internals.lc 15:13-15:15  Unit
-testdata/Internals.lc 16:6-16:12  Type
-testdata/Internals.lc 17:6-17:11  String -> Type | Type
-testdata/Internals.lc 17:18-17:24  Type
-testdata/Internals.lc 19:1-19:13  forall a b . a -> b
-testdata/Internals.lc 19:30-19:31  _d
-testdata/Internals.lc 19:30-19:36  Type
-testdata/Internals.lc 19:35-19:36  Type | _c
-testdata/Internals.lc 22:13-22:17  forall a -> a -> a -> Type
-testdata/Internals.lc 22:24-22:28  Type
-testdata/Internals.lc 22:36-22:37  Type
-testdata/Internals.lc 22:36-22:46  Type
-testdata/Internals.lc 22:45-22:46  Type
-testdata/Internals.lc 31:1-31:8  forall a -> a -> a -> a
-testdata/Internals.lc 31:24-31:25  _b
-testdata/Internals.lc 31:24-31:35  Type
-testdata/Internals.lc 31:29-31:30  Type
-testdata/Internals.lc 31:29-31:35  Type
-testdata/Internals.lc 31:34-31:35  Type
-testdata/Internals.lc 34:13-34:15  Type -> Type -> Type
-testdata/Internals.lc 36:1-36:11  forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b
-testdata/Internals.lc 36:28-36:32  Type
-testdata/Internals.lc 36:36-36:40  Type
-testdata/Internals.lc 36:45-36:46  Type -> Type
-testdata/Internals.lc 36:45-36:51  Type
-testdata/Internals.lc 36:45-36:87  Type
-testdata/Internals.lc 36:47-36:51  Type
-testdata/Internals.lc 36:55-36:87  Type
-testdata/Internals.lc 36:68-36:72  Type
-testdata/Internals.lc 36:77-36:78  Type -> Type
-testdata/Internals.lc 36:77-36:80  Type
-testdata/Internals.lc 36:77-36:87  Type
-testdata/Internals.lc 36:79-36:80  Type
-testdata/Internals.lc 36:84-36:85  Type -> Type
-testdata/Internals.lc 36:84-36:87  Type
-testdata/Internals.lc 36:86-36:87  Type
-testdata/Internals.lc 38:6-38:11  forall a . a -> a -> Type
-testdata/Internals.lc 38:14-38:18  forall a -> a -> a -> Type
-testdata/Internals.lc 38:14-38:20  _a -> _a -> Type
-testdata/Internals.lc 41:1-41:4  Unit -> Unit -> Unit
-testdata/Internals.lc 41:8-41:12  Type
-testdata/Internals.lc 41:16-41:20  Type
-testdata/Internals.lc 41:16-41:28  Type
-testdata/Internals.lc 41:24-41:28  Type
-testdata/Internals.lc 44:6-44:9  Type
-testdata/Internals.lc 45:6-45:10  Type
-testdata/Internals.lc 46:6-46:11  Type
-testdata/Internals.lc 47:6-47:10  Type
-testdata/Internals.lc 49:6-49:10  Type
-testdata/Internals.lc 49:6-49:25  Type
-testdata/Internals.lc 49:13-49:18  Bool
-testdata/Internals.lc 49:21-49:25  Bool
-testdata/Internals.lc 51:6-51:14  Type
-testdata/Internals.lc 51:6-51:29  Type
-testdata/Internals.lc 51:17-51:19  Ordering
-testdata/Internals.lc 51:22-51:24  Ordering
-testdata/Internals.lc 51:27-51:29  Ordering
-testdata/Internals.lc 53:6-53:9  Type
-testdata/Internals.lc 53:6-53:23  Type
-testdata/Internals.lc 53:12-53:16  Nat
-testdata/Internals.lc 53:19-53:23  Nat | Nat -> Nat | Type
-testdata/Internals.lc 53:24-53:27  Type
-testdata/Internals.lc 56:1-56:14  Int -> Word
-testdata/Internals.lc 56:24-56:27  Type
-testdata/Internals.lc 56:33-56:37  Type
-testdata/Internals.lc 57:1-57:15  Int -> Float
-testdata/Internals.lc 57:24-57:27  Type
-testdata/Internals.lc 57:33-57:38  Type
-testdata/Internals.lc 58:1-58:13  Int -> Nat
-testdata/Internals.lc 58:24-58:27  Type
-testdata/Internals.lc 58:33-58:36  Type
-testdata/Internals.lc 59:1-59:15  Int -> Int -> Ordering
-testdata/Internals.lc 59:24-59:27  Type
-testdata/Internals.lc 59:33-59:36  Type
-testdata/Internals.lc 59:33-59:50  Type
-testdata/Internals.lc 59:42-59:50  Type
-testdata/Internals.lc 60:1-60:16  Word -> Word -> Ordering
-testdata/Internals.lc 60:24-60:28  Type
-testdata/Internals.lc 60:33-60:37  Type
-testdata/Internals.lc 60:33-60:50  Type
-testdata/Internals.lc 60:42-60:50  Type
-testdata/Internals.lc 61:1-61:17  Float -> Float -> Ordering
-testdata/Internals.lc 61:24-61:29  Type
-testdata/Internals.lc 61:33-61:38  Type
-testdata/Internals.lc 61:33-61:50  Type
-testdata/Internals.lc 61:42-61:50  Type
-testdata/Internals.lc 62:1-62:16  Char -> Char -> Ordering
-testdata/Internals.lc 62:24-62:28  Type
-testdata/Internals.lc 62:33-62:37  Type
-testdata/Internals.lc 62:33-62:50  Type
-testdata/Internals.lc 62:42-62:50  Type
-testdata/Internals.lc 63:1-63:18  String -> String -> Ordering
-testdata/Internals.lc 63:24-63:30  Type
-testdata/Internals.lc 63:34-63:40  Type
-testdata/Internals.lc 63:34-63:52  Type
-testdata/Internals.lc 63:44-63:52  Type
-testdata/Internals.lc 64:1-64:14  Int -> Int
-testdata/Internals.lc 64:24-64:27  Type
-testdata/Internals.lc 64:33-64:36  Type
-testdata/Internals.lc 65:1-65:15  Word -> Word
-testdata/Internals.lc 65:24-65:28  Type
-testdata/Internals.lc 65:33-65:37  Type
-testdata/Internals.lc 66:1-66:16  Float -> Float
-testdata/Internals.lc 66:24-66:29  Type
-testdata/Internals.lc 66:33-66:38  Type
-testdata/Internals.lc 67:1-67:11  Int -> Int -> Int
-testdata/Internals.lc 67:24-67:27  Type
-testdata/Internals.lc 67:33-67:36  Type
-testdata/Internals.lc 67:33-67:45  Type
-testdata/Internals.lc 67:42-67:45  Type
-testdata/Internals.lc 68:1-68:11  Int -> Int -> Int
-testdata/Internals.lc 68:24-68:27  Type
-testdata/Internals.lc 68:33-68:36  Type
-testdata/Internals.lc 68:33-68:45  Type
-testdata/Internals.lc 68:42-68:45  Type
-testdata/Internals.lc 69:1-69:11  Int -> Int -> Int
-testdata/Internals.lc 69:24-69:27  Type
-testdata/Internals.lc 69:33-69:36  Type
-testdata/Internals.lc 69:33-69:45  Type
-testdata/Internals.lc 69:42-69:45  Type
-testdata/Internals.lc 70:1-70:14  Float -> Float
-testdata/Internals.lc 70:24-70:29  Type
-testdata/Internals.lc 70:33-70:38  Type
-testdata/Internals.lc 71:1-71:10  Float -> Int
-testdata/Internals.lc 71:24-71:29  Type
-testdata/Internals.lc 71:33-71:36  Type
-testdata/Internals.lc 74:19-74:23  Type
-testdata/Internals.lc 74:19-74:38  Type
-testdata/Internals.lc 74:27-74:28  _c
-testdata/Internals.lc 74:27-74:38  Type
-testdata/Internals.lc 74:32-74:33  Type
-testdata/Internals.lc 74:32-74:38  Type
-testdata/Internals.lc 74:37-74:38  Type
-testdata/Internals.lc 75:1-75:15  forall a . Bool -> a -> a -> a
-testdata/Internals.lc 75:28-75:29  _d
-testdata/Internals.lc 75:28-76:29  Bool -> _a -> _a -> _a | Bool -> _d | _b -> _b -> _b | _c -> _c | _d
-testdata/Internals.lc 76:28-76:29  _e
-testdata/Internals.lc 78:1-78:5  Ordering -> Bool
-testdata/Internals.lc 78:11-78:15  Bool
-testdata/Internals.lc 78:11-79:15  Bool -> Ordering -> Bool
-testdata/Internals.lc 79:10-79:15  Bool
-testdata/Internals.lc 82:7-82:10  Type -> Type
-testdata/Internals.lc 82:7-83:22  Type
-testdata/Internals.lc 82:7-84:32  Type
-testdata/Internals.lc 82:7-85:19  Type
-testdata/Internals.lc 83:3-83:10  forall a . Num a => Int -> a
-testdata/Internals.lc 83:14-83:17  Type
-testdata/Internals.lc 83:14-83:22  Type
-testdata/Internals.lc 83:21-83:22  Type
-testdata/Internals.lc 84:3-84:10  forall a . Num a => a -> a -> Ordering
-testdata/Internals.lc 84:14-84:15  Type
-testdata/Internals.lc 84:14-84:32  Type
-testdata/Internals.lc 84:19-84:20  Type
-testdata/Internals.lc 84:19-84:32  Type
-testdata/Internals.lc 84:24-84:32  Type
-testdata/Internals.lc 85:3-85:9  forall a . Num a => a -> a
-testdata/Internals.lc 85:13-85:14  Type
-testdata/Internals.lc 85:13-85:19  Type
-testdata/Internals.lc 85:18-85:19  Type
-testdata/Internals.lc 88:13-100:25  Int -> _b | Num _a => Int -> _a | forall a . Num a => Int -> a
-testdata/Internals.lc 88:19-88:20  _b
-testdata/Internals.lc 89:13-89:27  Int -> Int -> Ordering
-testdata/Internals.lc 89:13-101:22  Num _a => _a -> _a -> Ordering | _b -> _b -> Ordering | forall a . Num a => a -> a -> Ordering
-testdata/Internals.lc 90:13-90:26  Int -> Int
-testdata/Internals.lc 90:13-102:22  Num _a => _a -> _a | _b -> _b | forall a . Num a => a -> a
-testdata/Internals.lc 92:13-92:26  Int -> Word
-testdata/Internals.lc 92:13-100:25  Int -> _b
-testdata/Internals.lc 93:13-93:28  Word -> Word -> Ordering
-testdata/Internals.lc 93:13-101:22  _b -> _b -> Ordering
-testdata/Internals.lc 94:13-94:27  Word -> Word
-testdata/Internals.lc 94:13-102:22  _b -> _b
-testdata/Internals.lc 96:13-96:27  Int -> Float
-testdata/Internals.lc 96:13-100:25  Int -> _b
-testdata/Internals.lc 97:13-97:29  Float -> Float -> Ordering
-testdata/Internals.lc 97:13-101:22  _b -> _b -> Ordering
-testdata/Internals.lc 98:13-98:28  Float -> Float
-testdata/Internals.lc 98:13-102:22  _b -> _b
-testdata/Internals.lc 100:13-100:25  Int -> Nat
-testdata/Internals.lc 101:13-101:22  forall a . a
-testdata/Internals.lc 102:13-102:22  forall a . a
-testdata/Internals.lc 104:7-104:9  Type -> Type
-testdata/Internals.lc 104:7-105:27  Type
-testdata/Internals.lc 104:7-120:29  _a -> _a | forall a . Eq a => a -> a -> Bool
-testdata/Internals.lc 105:6-105:8  forall a . Eq a => a -> a -> Bool
-testdata/Internals.lc 105:13-105:14  Type
-testdata/Internals.lc 105:13-105:27  Type
-testdata/Internals.lc 105:18-105:19  Type
-testdata/Internals.lc 105:18-105:27  Type
-testdata/Internals.lc 105:23-105:27  Type
-testdata/Internals.lc 109:35-109:39  Ordering -> Bool
-testdata/Internals.lc 109:35-109:63  Bool
-testdata/Internals.lc 109:35-120:29  Eq _a => _a -> _a -> Bool | _b -> _b -> Bool | forall a . Eq a => a -> a -> Bool
-testdata/Internals.lc 109:41-109:58  String -> String -> Ordering
-testdata/Internals.lc 109:41-109:60  String -> Ordering
-testdata/Internals.lc 109:41-109:62  Ordering
-testdata/Internals.lc 109:59-109:60  _d
-testdata/Internals.lc 109:61-109:62  _b
-testdata/Internals.lc 110:33-110:37  Ordering -> Bool
-testdata/Internals.lc 110:33-110:59  Bool
-testdata/Internals.lc 110:33-120:29  _b -> _b -> Bool
-testdata/Internals.lc 110:39-110:54  Char -> Char -> Ordering
-testdata/Internals.lc 110:39-110:56  Char -> Ordering
-testdata/Internals.lc 110:39-110:58  Ordering
-testdata/Internals.lc 110:55-110:56  _d
-testdata/Internals.lc 110:57-110:58  _b
-testdata/Internals.lc 111:32-111:36  Ordering -> Bool
-testdata/Internals.lc 111:32-111:57  Bool
-testdata/Internals.lc 111:32-120:29  _b -> _b -> Bool
-testdata/Internals.lc 111:38-111:52  Int -> Int -> Ordering
-testdata/Internals.lc 111:38-111:54  Int -> Ordering
-testdata/Internals.lc 111:38-111:56  Ordering
-testdata/Internals.lc 111:53-111:54  _d
-testdata/Internals.lc 111:55-111:56  _b
-testdata/Internals.lc 112:34-112:38  Ordering -> Bool
-testdata/Internals.lc 112:34-112:61  Bool
-testdata/Internals.lc 112:34-120:29  _b -> _b -> Bool
-testdata/Internals.lc 112:40-112:56  Float -> Float -> Ordering
-testdata/Internals.lc 112:40-112:58  Float -> Ordering
-testdata/Internals.lc 112:40-112:60  Ordering
-testdata/Internals.lc 112:57-112:58  _d
-testdata/Internals.lc 112:59-112:60  _b
-testdata/Internals.lc 114:20-114:24  Bool
-testdata/Internals.lc 114:20-116:19  Bool | Bool -> Bool
-testdata/Internals.lc 114:20-120:29  _b -> _b -> Bool
-testdata/Internals.lc 115:22-115:26  Bool
-testdata/Internals.lc 115:22-116:19  Bool | Bool -> Bool
-testdata/Internals.lc 116:14-116:19  Bool
-testdata/Internals.lc 118:24-118:28  Bool
-testdata/Internals.lc 118:24-120:29  Nat -> Bool
-testdata/Internals.lc 119:24-119:25  Nat
-testdata/Internals.lc 119:24-119:28  Nat -> Bool
-testdata/Internals.lc 119:24-119:30  Bool | Nat -> Bool
-testdata/Internals.lc 119:24-120:29  Nat -> Bool
-testdata/Internals.lc 119:26-119:28  forall a . Eq a => a -> a -> Bool
-testdata/Internals.lc 119:29-119:30  Nat
-testdata/Internals.lc 120:24-120:29  Bool | Nat -> Bool
-testdata/Internals.lc 122:6-122:10  Type | Type -> Type
-testdata/Internals.lc 122:6-122:12  Type
-testdata/Internals.lc 122:6-122:25  Type
-testdata/Internals.lc 122:6-122:36  Type
-testdata/Internals.lc 122:11-122:12  Type
-testdata/Internals.lc 122:15-122:18  List _b | forall a . List a
-testdata/Internals.lc 122:21-122:25  List _e | Type | forall a . a -> List a -> List a
-testdata/Internals.lc 122:26-122:27  Type
-testdata/Internals.lc 122:29-122:33  Type -> Type
-testdata/Internals.lc 122:29-122:35  Type
-testdata/Internals.lc 122:34-122:35  Type
-testdata/Internals.lc 126:6-126:11  List Type -> Type | Type
-testdata/Internals.lc 126:6-128:45  Type
-testdata/Internals.lc 126:15-126:21  Type
-testdata/Internals.lc 126:16-126:20  Type
-testdata/Internals.lc 126:25-126:29  Type
-testdata/Internals.lc 127:5-127:9  ()
-testdata/Internals.lc 127:5-127:22  Type
-testdata/Internals.lc 127:13-127:18  List Type -> Type
-testdata/Internals.lc 127:13-127:22  Type
-testdata/Internals.lc 127:19-127:22  forall a . List a
-testdata/Internals.lc 128:5-128:10  HList ('Cons _d _c) | forall a (b :: List Type) . a -> HList b -> HList ('Cons a b)
-testdata/Internals.lc 128:5-128:45  Type
-testdata/Internals.lc 128:14-128:15  _d
-testdata/Internals.lc 128:14-128:45  Type
-testdata/Internals.lc 128:19-128:24  List Type -> Type
-testdata/Internals.lc 128:19-128:27  Type
-testdata/Internals.lc 128:19-128:45  Type
-testdata/Internals.lc 128:25-128:27  _c
-testdata/Internals.lc 128:31-128:36  List Type -> Type
-testdata/Internals.lc 128:31-128:45  Type
-testdata/Internals.lc 128:39-128:40  Type
-testdata/Internals.lc 128:39-128:41  List Type -> List Type
-testdata/Internals.lc 128:39-128:44  List Type
-testdata/Internals.lc 128:40-128:41  forall a . a -> List a -> List a
-testdata/Internals.lc 128:42-128:44  List Type
-testdata/Internals.lc 130:1-130:13  forall a -> a -> () -> a
-testdata/Internals.lc 130:29-130:30  _b
-testdata/Internals.lc 130:29-130:48  Type
-testdata/Internals.lc 130:34-130:39  List Type -> Type
-testdata/Internals.lc 130:34-130:43  Type
-testdata/Internals.lc 130:34-130:48  Type
-testdata/Internals.lc 130:40-130:43  forall a . List a
-testdata/Internals.lc 130:47-130:48  Type
-testdata/Internals.lc 131:1-131:14  forall a (b :: List Type) . forall c -> (a -> HList b -> c) -> HList ('Cons a b) -> c
-testdata/Internals.lc 132:21-132:25  Type
-testdata/Internals.lc 132:33-132:37  Type -> Type
-testdata/Internals.lc 132:33-132:42  Type
-testdata/Internals.lc 132:33-136:9  Type
-testdata/Internals.lc 132:38-132:42  Type
-testdata/Internals.lc 133:8-136:9  Type
-testdata/Internals.lc 134:8-136:9  Type
-testdata/Internals.lc 134:9-134:10  Type
-testdata/Internals.lc 134:14-134:19  List Type -> Type
-testdata/Internals.lc 134:14-134:21  Type
-testdata/Internals.lc 134:14-134:26  Type
-testdata/Internals.lc 134:20-134:21  List Type
-testdata/Internals.lc 134:25-134:26  Type | _d
-testdata/Internals.lc 135:8-135:13  List Type -> Type
-testdata/Internals.lc 135:8-135:24  Type
-testdata/Internals.lc 135:8-136:9  Type
-testdata/Internals.lc 135:15-135:19  forall a . a -> List a -> List a
-testdata/Internals.lc 135:15-135:21  List Type -> List Type
-testdata/Internals.lc 135:15-135:23  List Type
-testdata/Internals.lc 135:20-135:21  Type
-testdata/Internals.lc 135:22-135:23  List Type
-testdata/Internals.lc 136:8-136:9  Type
+testdata/Internals.lc 6:1-6:8
+    forall a . a -> a
+testdata/Internals.lc 6:13-6:14
+    _b
+testdata/Internals.lc 9:1-9:7
+    forall a . a -> a
+testdata/Internals.lc 9:12-9:13
+    _b
+testdata/Internals.lc 11:1-11:10
+    forall a . a
+testdata/Internals.lc 11:27-11:31
+    Type
+testdata/Internals.lc 11:35-11:36
+    Type | Type
+testdata/Internals.lc 13:1-13:8
+    forall a . (a -> a) -> a
+testdata/Internals.lc 13:25-13:29
+    Type
+testdata/Internals.lc 13:33-13:46
+    Type
+testdata/Internals.lc 13:34-13:35
+    Type
+testdata/Internals.lc 13:39-13:40
+    Type | Type
+testdata/Internals.lc 13:45-13:46
+    Type | Type
+testdata/Internals.lc 15:6-15:10
+    Type | Type | Type | Type | Type
+testdata/Internals.lc 15:6-15:15
+    Type
+testdata/Internals.lc 15:13-15:15
+    Unit
+testdata/Internals.lc 16:6-16:12
+    Type | Type | Type | Type
+testdata/Internals.lc 17:6-17:11
+    String -> Type | String -> Type | String -> Type | Type | Type
+testdata/Internals.lc 17:18-17:24
+    Type | Type
+testdata/Internals.lc 19:1-19:13
+    forall a b . a -> b
+testdata/Internals.lc 19:30-19:31
+    _d
+testdata/Internals.lc 19:30-19:36
+    Type | Type
+testdata/Internals.lc 19:35-19:36
+    _c | Type
+testdata/Internals.lc 22:13-22:17
+    forall a -> a -> a -> Type
+testdata/Internals.lc 22:24-22:28
+    Type
+testdata/Internals.lc 22:36-22:37
+    Type
+testdata/Internals.lc 22:36-22:46
+    Type
+testdata/Internals.lc 22:45-22:46
+    Type | Type
+testdata/Internals.lc 31:1-31:8
+    forall a -> a -> a -> a
+testdata/Internals.lc 31:24-31:25
+    _b
+testdata/Internals.lc 31:24-31:35
+    Type
+testdata/Internals.lc 31:29-31:30
+    Type
+testdata/Internals.lc 31:29-31:35
+    Type
+testdata/Internals.lc 31:34-31:35
+    Type | Type
+testdata/Internals.lc 34:13-34:15
+    Type -> Type -> Type
+testdata/Internals.lc 36:1-36:11
+    forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b
+testdata/Internals.lc 36:28-36:32
+    Type
+testdata/Internals.lc 36:36-36:40
+    Type | Type
+testdata/Internals.lc 36:45-36:46
+    Type -> Type
+testdata/Internals.lc 36:45-36:51
+    Type
+testdata/Internals.lc 36:45-36:87
+    Type
+testdata/Internals.lc 36:47-36:51
+    Type
+testdata/Internals.lc 36:55-36:87
+    Type
+testdata/Internals.lc 36:68-36:72
+    Type
+testdata/Internals.lc 36:77-36:78
+    Type -> Type
+testdata/Internals.lc 36:77-36:80
+    Type
+testdata/Internals.lc 36:77-36:87
+    Type
+testdata/Internals.lc 36:79-36:80
+    Type
+testdata/Internals.lc 36:84-36:85
+    Type -> Type
+testdata/Internals.lc 36:84-36:87
+    Type | Type
+testdata/Internals.lc 36:86-36:87
+    Type
+testdata/Internals.lc 38:6-38:11
+    forall a . a -> a -> Type
+testdata/Internals.lc 38:14-38:18
+    forall a -> a -> a -> Type
+testdata/Internals.lc 38:14-38:20
+    _a -> _a -> Type
+testdata/Internals.lc 41:1-41:4
+    Unit -> Unit -> Unit
+testdata/Internals.lc 41:8-41:12
+    Type
+testdata/Internals.lc 41:16-41:20
+    Type
+testdata/Internals.lc 41:16-41:28
+    Type
+testdata/Internals.lc 41:24-41:28
+    Type | Type
+testdata/Internals.lc 44:6-44:9
+    Type | Type | Type | Type
+testdata/Internals.lc 45:6-45:10
+    Type | Type | Type | Type
+testdata/Internals.lc 46:6-46:11
+    Type | Type | Type | Type
+testdata/Internals.lc 47:6-47:10
+    Type | Type | Type | Type
+testdata/Internals.lc 49:6-49:10
+    Type | Type | Type | Type | Type | Type
+testdata/Internals.lc 49:6-49:25
+    Type | Type
+testdata/Internals.lc 49:13-49:18
+    Bool
+testdata/Internals.lc 49:21-49:25
+    Bool
+testdata/Internals.lc 51:6-51:14
+    Type | Type | Type | Type | Type | Type | Type
+testdata/Internals.lc 51:6-51:29
+    Type | Type | Type
+testdata/Internals.lc 51:17-51:19
+    Ordering
+testdata/Internals.lc 51:22-51:24
+    Ordering
+testdata/Internals.lc 51:27-51:29
+    Ordering
+testdata/Internals.lc 53:6-53:9
+    Type | Type | Type | Type | Type | Type | Type
+testdata/Internals.lc 53:6-53:23
+    Type | Type
+testdata/Internals.lc 53:12-53:16
+    Nat
+testdata/Internals.lc 53:19-53:23
+    Nat -> Nat | Nat | Type | Type
+testdata/Internals.lc 53:24-53:27
+    Type
+testdata/Internals.lc 56:1-56:14
+    Int -> Word
+testdata/Internals.lc 56:24-56:27
+    Type
+testdata/Internals.lc 56:33-56:37
+    Type | Type
+testdata/Internals.lc 57:1-57:15
+    Int -> Float
+testdata/Internals.lc 57:24-57:27
+    Type
+testdata/Internals.lc 57:33-57:38
+    Type | Type
+testdata/Internals.lc 58:1-58:13
+    Int -> Nat
+testdata/Internals.lc 58:24-58:27
+    Type
+testdata/Internals.lc 58:33-58:36
+    Type | Type
+testdata/Internals.lc 59:1-59:15
+    Int -> Int -> Ordering
+testdata/Internals.lc 59:24-59:27
+    Type
+testdata/Internals.lc 59:33-59:36
+    Type
+testdata/Internals.lc 59:33-59:50
+    Type
+testdata/Internals.lc 59:42-59:50
+    Type | Type
+testdata/Internals.lc 60:1-60:16
+    Word -> Word -> Ordering
+testdata/Internals.lc 60:24-60:28
+    Type
+testdata/Internals.lc 60:33-60:37
+    Type
+testdata/Internals.lc 60:33-60:50
+    Type
+testdata/Internals.lc 60:42-60:50
+    Type | Type
+testdata/Internals.lc 61:1-61:17
+    Float -> Float -> Ordering
+testdata/Internals.lc 61:24-61:29
+    Type
+testdata/Internals.lc 61:33-61:38
+    Type
+testdata/Internals.lc 61:33-61:50
+    Type
+testdata/Internals.lc 61:42-61:50
+    Type | Type
+testdata/Internals.lc 62:1-62:16
+    Char -> Char -> Ordering
+testdata/Internals.lc 62:24-62:28
+    Type
+testdata/Internals.lc 62:33-62:37
+    Type
+testdata/Internals.lc 62:33-62:50
+    Type
+testdata/Internals.lc 62:42-62:50
+    Type | Type
+testdata/Internals.lc 63:1-63:18
+    String -> String -> Ordering
+testdata/Internals.lc 63:24-63:30
+    Type
+testdata/Internals.lc 63:34-63:40
+    Type
+testdata/Internals.lc 63:34-63:52
+    Type
+testdata/Internals.lc 63:44-63:52
+    Type | Type
+testdata/Internals.lc 64:1-64:14
+    Int -> Int
+testdata/Internals.lc 64:24-64:27
+    Type
+testdata/Internals.lc 64:33-64:36
+    Type | Type
+testdata/Internals.lc 65:1-65:15
+    Word -> Word
+testdata/Internals.lc 65:24-65:28
+    Type
+testdata/Internals.lc 65:33-65:37
+    Type | Type
+testdata/Internals.lc 66:1-66:16
+    Float -> Float
+testdata/Internals.lc 66:24-66:29
+    Type
+testdata/Internals.lc 66:33-66:38
+    Type | Type
+testdata/Internals.lc 67:1-67:11
+    Int -> Int -> Int
+testdata/Internals.lc 67:24-67:27
+    Type
+testdata/Internals.lc 67:33-67:36
+    Type
+testdata/Internals.lc 67:33-67:45
+    Type
+testdata/Internals.lc 67:42-67:45
+    Type | Type
+testdata/Internals.lc 68:1-68:11
+    Int -> Int -> Int
+testdata/Internals.lc 68:24-68:27
+    Type
+testdata/Internals.lc 68:33-68:36
+    Type
+testdata/Internals.lc 68:33-68:45
+    Type
+testdata/Internals.lc 68:42-68:45
+    Type | Type
+testdata/Internals.lc 69:1-69:11
+    Int -> Int -> Int
+testdata/Internals.lc 69:24-69:27
+    Type
+testdata/Internals.lc 69:33-69:36
+    Type
+testdata/Internals.lc 69:33-69:45
+    Type
+testdata/Internals.lc 69:42-69:45
+    Type | Type
+testdata/Internals.lc 70:1-70:14
+    Float -> Float
+testdata/Internals.lc 70:24-70:29
+    Type
+testdata/Internals.lc 70:33-70:38
+    Type | Type
+testdata/Internals.lc 71:1-71:10
+    Float -> Int
+testdata/Internals.lc 71:24-71:29
+    Type
+testdata/Internals.lc 71:33-71:36
+    Type | Type
+testdata/Internals.lc 74:19-74:23
+    Type
+testdata/Internals.lc 74:19-74:38
+    Type
+testdata/Internals.lc 74:27-74:28
+    _c
+testdata/Internals.lc 74:27-74:38
+    Type
+testdata/Internals.lc 74:32-74:33
+    Type
+testdata/Internals.lc 74:32-74:38
+    Type
+testdata/Internals.lc 74:37-74:38
+    Type | Type
+testdata/Internals.lc 75:1-75:15
+    forall a . Bool -> a -> a -> a
+testdata/Internals.lc 75:28-75:29
+    _d
+testdata/Internals.lc 75:28-76:29
+    Bool -> _d | _d
+testdata/Internals.lc 76:28-76:29
+    _e
+testdata/Internals.lc 78:1-78:5
+    Ordering -> Bool
+testdata/Internals.lc 78:11-78:15
+    Bool
+testdata/Internals.lc 78:11-79:15
+    Bool -> Ordering -> Bool
+testdata/Internals.lc 79:10-79:15
+    Bool | Bool
+testdata/Internals.lc 82:7-82:10
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type
+testdata/Internals.lc 82:7-83:22
+    Type
+testdata/Internals.lc 82:7-84:32
+    Type
+testdata/Internals.lc 82:7-85:19
+    Type
+testdata/Internals.lc 83:3-83:10
+    forall a . Num a => Int -> a
+testdata/Internals.lc 83:14-83:17
+    Type
+testdata/Internals.lc 83:14-83:22
+    Type
+testdata/Internals.lc 83:21-83:22
+    Type | Type
+testdata/Internals.lc 84:3-84:10
+    forall a . Num a => a -> a -> Ordering
+testdata/Internals.lc 84:14-84:15
+    Type
+testdata/Internals.lc 84:14-84:32
+    Type
+testdata/Internals.lc 84:19-84:20
+    Type
+testdata/Internals.lc 84:19-84:32
+    Type
+testdata/Internals.lc 84:24-84:32
+    Type | Type
+testdata/Internals.lc 85:3-85:9
+    forall a . Num a => a -> a
+testdata/Internals.lc 85:13-85:14
+    Type
+testdata/Internals.lc 85:13-85:19
+    Type
+testdata/Internals.lc 85:18-85:19
+    Type | Type
+testdata/Internals.lc 88:13-100:25
+    Int -> _b
+testdata/Internals.lc 88:19-88:20
+    _b
+testdata/Internals.lc 89:13-89:27
+    Int -> Int -> Ordering
+testdata/Internals.lc 89:13-101:22
+    _b -> _b -> Ordering
+testdata/Internals.lc 90:13-90:26
+    Int -> Int
+testdata/Internals.lc 90:13-102:22
+    _b -> _b
+testdata/Internals.lc 92:13-92:26
+    Int -> Word
+testdata/Internals.lc 92:13-100:25
+    Int -> _b
+testdata/Internals.lc 93:13-93:28
+    Word -> Word -> Ordering
+testdata/Internals.lc 93:13-101:22
+    _b -> _b -> Ordering
+testdata/Internals.lc 94:13-94:27
+    Word -> Word
+testdata/Internals.lc 94:13-102:22
+    _b -> _b
+testdata/Internals.lc 96:13-96:27
+    Int -> Float
+testdata/Internals.lc 96:13-100:25
+    Int -> _b
+testdata/Internals.lc 97:13-97:29
+    Float -> Float -> Ordering
+testdata/Internals.lc 97:13-101:22
+    _b -> _b -> Ordering
+testdata/Internals.lc 98:13-98:28
+    Float -> Float
+testdata/Internals.lc 98:13-102:22
+    _b -> _b
+testdata/Internals.lc 100:13-100:25
+    Int -> Nat
+testdata/Internals.lc 101:13-101:22
+    forall a . a
+testdata/Internals.lc 102:13-102:22
+    forall a . a
+testdata/Internals.lc 104:7-104:9
+    Type -> Type | Type -> Type
+testdata/Internals.lc 104:7-105:27
+    Type
+testdata/Internals.lc 104:7-120:29
+    forall a . Eq a => a -> a -> Bool
+testdata/Internals.lc 105:6-105:8
+    forall a . Eq a => a -> a -> Bool
+testdata/Internals.lc 105:13-105:14
+    Type
+testdata/Internals.lc 105:13-105:27
+    Type
+testdata/Internals.lc 105:18-105:19
+    Type
+testdata/Internals.lc 105:18-105:27
+    Type
+testdata/Internals.lc 105:23-105:27
+    Type | Type
+testdata/Internals.lc 109:35-109:39
+    Ordering -> Bool
+testdata/Internals.lc 109:35-109:63
+    Bool
+testdata/Internals.lc 109:35-120:29
+    _b -> _b -> Bool
+testdata/Internals.lc 109:41-109:58
+    String -> String -> Ordering
+testdata/Internals.lc 109:41-109:60
+    String -> Ordering
+testdata/Internals.lc 109:41-109:62
+    Ordering
+testdata/Internals.lc 109:59-109:60
+    _d
+testdata/Internals.lc 109:61-109:62
+    _b
+testdata/Internals.lc 110:33-110:37
+    Ordering -> Bool
+testdata/Internals.lc 110:33-110:59
+    Bool
+testdata/Internals.lc 110:33-120:29
+    _b -> _b -> Bool
+testdata/Internals.lc 110:39-110:54
+    Char -> Char -> Ordering
+testdata/Internals.lc 110:39-110:56
+    Char -> Ordering
+testdata/Internals.lc 110:39-110:58
+    Ordering
+testdata/Internals.lc 110:55-110:56
+    _d
+testdata/Internals.lc 110:57-110:58
+    _b
+testdata/Internals.lc 111:32-111:36
+    Ordering -> Bool
+testdata/Internals.lc 111:32-111:57
+    Bool
+testdata/Internals.lc 111:32-120:29
+    _b -> _b -> Bool
+testdata/Internals.lc 111:38-111:52
+    Int -> Int -> Ordering
+testdata/Internals.lc 111:38-111:54
+    Int -> Ordering
+testdata/Internals.lc 111:38-111:56
+    Ordering
+testdata/Internals.lc 111:53-111:54
+    _d
+testdata/Internals.lc 111:55-111:56
+    _b
+testdata/Internals.lc 112:34-112:38
+    Ordering -> Bool
+testdata/Internals.lc 112:34-112:61
+    Bool
+testdata/Internals.lc 112:34-120:29
+    _b -> _b -> Bool
+testdata/Internals.lc 112:40-112:56
+    Float -> Float -> Ordering
+testdata/Internals.lc 112:40-112:58
+    Float -> Ordering
+testdata/Internals.lc 112:40-112:60
+    Ordering
+testdata/Internals.lc 112:57-112:58
+    _d
+testdata/Internals.lc 112:59-112:60
+    _b
+testdata/Internals.lc 114:20-114:24
+    Bool
+testdata/Internals.lc 114:20-116:19
+    Bool -> Bool | Bool
+testdata/Internals.lc 114:20-120:29
+    _b -> _b -> Bool
+testdata/Internals.lc 115:22-115:26
+    Bool
+testdata/Internals.lc 115:22-116:19
+    Bool -> Bool | Bool
+testdata/Internals.lc 116:14-116:19
+    Bool | Bool
+testdata/Internals.lc 118:24-118:28
+    Bool
+testdata/Internals.lc 118:24-120:29
+    Nat -> Bool
+testdata/Internals.lc 119:24-119:25
+    Nat
+testdata/Internals.lc 119:24-119:28
+    Nat -> Bool
+testdata/Internals.lc 119:24-119:30
+    Bool
+testdata/Internals.lc 119:24-120:29
+    Nat -> Bool
+testdata/Internals.lc 119:26-119:28
+    forall a . Eq a => a -> a -> Bool
+testdata/Internals.lc 119:29-119:30
+    Nat
+testdata/Internals.lc 120:24-120:29
+    Bool | Bool
+testdata/Internals.lc 122:6-122:10
+    Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type -> Type | Type
+testdata/Internals.lc 122:6-122:12
+    Type | Type | Type | Type
+testdata/Internals.lc 122:6-122:25
+    Type | Type | Type
+testdata/Internals.lc 122:6-122:36
+    Type | Type
+testdata/Internals.lc 122:11-122:12
+    Type | Type
+testdata/Internals.lc 122:15-122:18
+    forall a . List a | List _b
+testdata/Internals.lc 122:21-122:25
+    forall a . a -> List a -> List a | List _e | Type | Type | Type
+testdata/Internals.lc 122:26-122:27
+    Type
+testdata/Internals.lc 122:29-122:33
+    Type -> Type
+testdata/Internals.lc 122:29-122:35
+    Type
+testdata/Internals.lc 122:34-122:35
+    Type
+testdata/Internals.lc 126:6-126:11
+    List Type -> Type | List Type -> Type | Type | List Type -> Type | Type | Type
+testdata/Internals.lc 126:6-128:45
+    Type | Type
+testdata/Internals.lc 126:15-126:21
+    Type
+testdata/Internals.lc 126:16-126:20
+    Type
+testdata/Internals.lc 126:25-126:29
+    Type | Type
+testdata/Internals.lc 127:5-127:9
+    ()
+testdata/Internals.lc 127:5-127:22
+    Type
+testdata/Internals.lc 127:13-127:18
+    List Type -> Type
+testdata/Internals.lc 127:13-127:22
+    Type
+testdata/Internals.lc 127:19-127:22
+    forall a . List a | forall a . List a
+testdata/Internals.lc 128:5-128:10
+    forall a (b :: List Type) . a -> HList b -> HList ('Cons a b) | HList
+      ('Cons _d _c)
+testdata/Internals.lc 128:5-128:45
+    Type | Type | Type | Type | Type
+testdata/Internals.lc 128:14-128:15
+    _d
+testdata/Internals.lc 128:14-128:45
+    Type | Type
+testdata/Internals.lc 128:19-128:24
+    List Type -> Type
+testdata/Internals.lc 128:19-128:27
+    Type
+testdata/Internals.lc 128:19-128:45
+    Type
+testdata/Internals.lc 128:25-128:27
+    _c
+testdata/Internals.lc 128:31-128:36
+    List Type -> Type
+testdata/Internals.lc 128:31-128:45
+    Type | Type
+testdata/Internals.lc 128:39-128:40
+    Type | Type
+testdata/Internals.lc 128:39-128:41
+    List Type -> List Type | List Type -> List Type
+testdata/Internals.lc 128:39-128:44
+    List Type | List Type
+testdata/Internals.lc 128:40-128:41
+    forall a . a -> List a -> List a | forall a . a -> List a -> List a
+testdata/Internals.lc 128:42-128:44
+    List Type | List Type
+testdata/Internals.lc 130:1-130:13
+    forall a -> a -> () -> a
+testdata/Internals.lc 130:29-130:30
+    _b
+testdata/Internals.lc 130:29-130:48
+    Type
+testdata/Internals.lc 130:34-130:39
+    List Type -> Type
+testdata/Internals.lc 130:34-130:43
+    Type
+testdata/Internals.lc 130:34-130:48
+    Type
+testdata/Internals.lc 130:40-130:43
+    forall a . List a
+testdata/Internals.lc 130:47-130:48
+    Type | Type
+testdata/Internals.lc 131:1-131:14
+    forall a (b :: List Type)
+      . forall c -> (a -> HList b -> c) -> HList ('Cons a b) -> c
+testdata/Internals.lc 132:21-132:25
+    Type
+testdata/Internals.lc 132:33-132:37
+    Type -> Type
+testdata/Internals.lc 132:33-132:42
+    Type
+testdata/Internals.lc 132:33-136:9
+    Type
+testdata/Internals.lc 132:38-132:42
+    Type
+testdata/Internals.lc 133:8-136:9
+    Type
+testdata/Internals.lc 134:8-136:9
+    Type
+testdata/Internals.lc 134:9-134:10
+    Type
+testdata/Internals.lc 134:14-134:19
+    List Type -> Type
+testdata/Internals.lc 134:14-134:21
+    Type
+testdata/Internals.lc 134:14-134:26
+    Type
+testdata/Internals.lc 134:20-134:21
+    List Type
+testdata/Internals.lc 134:25-134:26
+    _d | Type
+testdata/Internals.lc 135:8-135:13
+    List Type -> Type
+testdata/Internals.lc 135:8-135:24
+    Type
+testdata/Internals.lc 135:8-136:9
+    Type
+testdata/Internals.lc 135:15-135:19
+    forall a . a -> List a -> List a
+testdata/Internals.lc 135:15-135:21
+    List Type -> List Type
+testdata/Internals.lc 135:15-135:23
+    List Type
+testdata/Internals.lc 135:20-135:21
+    Type
+testdata/Internals.lc 135:22-135:23
+    List Type
+testdata/Internals.lc 136:8-136:9
+    Type | Type
\ No newline at end of file
diff --git a/testdata/Material.out b/testdata/Material.out
index 7e277702..c4d3447c 100644
--- a/testdata/Material.out
+++ b/testdata/Material.out
@@ -283,240 +283,240 @@ defaultCommonAttrs
     :: CommonAttrs
 main is not found
 ------------ trace
-identityLight :: Float
-'Entity :: Type
-Entity :: Vec 4 Float -> Vec 4 Float -> Vec 3 Float -> Vec 4 Float -> Entity
+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
-match'Entity :: forall (a :: Type -> Type) -> a Entity -> forall b -> a b -> a b
-eAmbientLight :: Entity -> VecS Float 4
-eDirectedLight :: Entity -> VecS Float 4
-eLightDir :: Entity -> VecS Float 3
-eShaderRGBA :: Entity -> VecS Float 4
-'WaveType :: Type
-WT_Sin :: WaveType
-WT_Triangle :: WaveType
-WT_Square :: WaveType
-WT_Sawtooth :: WaveType
-WT_InverseSawtooth :: WaveType
-WT_Noise :: WaveType
+  :: forall (a :: Entity -> Type)
+    -> (forall (b :: Vec 4 Float)
+          (c :: Vec 4 Float) (d :: Vec 3 Float) (e :: Vec 4 Float)
+        -> a ('Entity b c d e))
+      -> forall (f :: Entity) -> a f
+match'Entity :: forall (a :: Type -> Type) -> a Entity -> forall b -> a b -> a b
+eAmbientLight :: Entity -> VecS Float 4
+eDirectedLight :: Entity -> VecS Float 4
+eLightDir :: Entity -> VecS Float 3
+eShaderRGBA :: Entity -> VecS Float 4
+'WaveType :: Type
+WT_Sin :: WaveType
+WT_Triangle :: WaveType
+WT_Square :: WaveType
+WT_Sawtooth :: WaveType
+WT_InverseSawtooth :: WaveType
+WT_Noise :: WaveType
 '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
+  :: 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
+  :: 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 (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
-D_AutoSprite2 :: Deform
-D_Bulge :: Float -> Float -> Float -> Deform
-D_Move :: Vec 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
+        -> 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
+D_AutoSprite2 :: Deform
+D_Bulge :: Float -> Float -> Float -> Deform
+D_Move :: Vec 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
 '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
+  :: 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
+  :: forall (a :: CullType -> Type)
+    -> a 'CT_FrontSided
+      -> a 'CT_BackSided -> a 'CT_TwoSided -> forall (b :: CullType) -> a b
 match'CullType
-  :: forall (a :: Type -> Type) -> a CullType -> forall b -> a b -> a b
-'Blending' :: Type
-B_DstAlpha :: Blending'
-B_DstColor :: Blending'
-B_One :: Blending'
-B_OneMinusDstAlpha :: Blending'
-B_OneMinusDstColor :: Blending'
-B_OneMinusSrcAlpha :: Blending'
-B_OneMinusSrcColor :: Blending'
-B_SrcAlpha :: Blending'
-B_SrcAlphaSaturate :: Blending'
-B_SrcColor :: Blending'
-B_Zero :: Blending'
+  :: forall (a :: Type -> Type) -> a CullType -> forall b -> a b -> a b
+'Blending' :: Type
+B_DstAlpha :: Blending'
+B_DstColor :: Blending'
+B_One :: Blending'
+B_OneMinusDstAlpha :: Blending'
+B_OneMinusDstColor :: Blending'
+B_OneMinusSrcAlpha :: Blending'
+B_OneMinusSrcColor :: Blending'
+B_SrcAlpha :: Blending'
+B_SrcAlphaSaturate :: Blending'
+B_SrcColor :: Blending'
+B_Zero :: Blending'
 '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
+  :: forall (a :: Blending' -> Type)
+    -> a 'B_DstAlpha
+      -> a 'B_DstColor
+        -> a 'B_One
+          -> a 'B_OneMinusDstAlpha
+            -> a 'B_OneMinusDstColor
+              -> a 'B_OneMinusSrcAlpha
+                -> a 'B_OneMinusSrcColor
+                  -> a 'B_SrcAlpha
+                    -> a 'B_SrcAlphaSaturate
+                      -> a 'B_SrcColor -> a 'B_Zero -> forall (b :: Blending') -> a b
 match'Blending'
-  :: forall (a :: Type -> Type) -> a Blending' -> forall b -> a b -> a b
-'RGBGen :: Type
-RGB_Wave :: Wave -> RGBGen
-RGB_Const :: Float -> Float -> Float -> RGBGen
-RGB_Identity :: RGBGen
-RGB_IdentityLighting :: RGBGen
-RGB_Entity :: RGBGen
-RGB_OneMinusEntity :: RGBGen
-RGB_ExactVertex :: RGBGen
-RGB_Vertex :: RGBGen
-RGB_LightingDiffuse :: RGBGen
-RGB_OneMinusVertex :: RGBGen
-RGB_Undefined :: RGBGen
+  :: forall (a :: Type -> Type) -> a Blending' -> forall b -> a b -> a b
+'RGBGen :: Type
+RGB_Wave :: Wave -> RGBGen
+RGB_Const :: Float -> Float -> Float -> RGBGen
+RGB_Identity :: RGBGen
+RGB_IdentityLighting :: RGBGen
+RGB_Entity :: RGBGen
+RGB_OneMinusEntity :: RGBGen
+RGB_ExactVertex :: RGBGen
+RGB_Vertex :: RGBGen
+RGB_LightingDiffuse :: RGBGen
+RGB_OneMinusVertex :: RGBGen
+RGB_Undefined :: RGBGen
 '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
-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
+  :: 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
+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
 '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
+  :: 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
+  :: 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
-match'TCGen :: forall (a :: Type -> Type) -> a TCGen -> forall b -> a b -> a b
-'TCMod :: Type
-TM_EntityTranslate :: TCMod
-TM_Rotate :: Float -> TCMod
-TM_Scroll :: Float -> Float -> TCMod
-TM_Scale :: Float -> Float -> TCMod
-TM_Stretch :: Wave -> TCMod
-TM_Transform :: Float -> Float -> Float -> Float -> Float -> Float -> TCMod
-TM_Turb :: Float -> Float -> Float -> Float -> TCMod
+  :: 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
+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
 '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 (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))
+                  -> 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
-ST_ClampMap :: String -> StageTexture
-ST_AnimMap :: Float -> List String -> StageTexture
-ST_Lightmap :: StageTexture
-ST_WhiteImage :: StageTexture
+                    -> a ('TM_Turb n o p q))
+                  -> forall (r :: TCMod) -> a r
+match'TCMod :: forall (a :: Type -> Type) -> a TCMod -> forall b -> a b -> a b
+'StageTexture :: Type
+ST_Map :: String -> StageTexture
+ST_ClampMap :: String -> StageTexture
+ST_AnimMap :: Float -> 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: forall (a :: Type -> Type) -> a DepthFunction -> forall b -> a b -> a b
+'StageAttrs :: Type
 StageAttrs
-  :: Maybe (Blending', Blending')
+  :: Maybe (Blending', Blending')
     -> RGBGen
       -> AlphaGen
         -> TCGen
           -> List TCMod
             -> StageTexture
-              -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+              -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 'StageAttrsCase
-  :: forall (a :: StageAttrs -> Type)
+  :: forall (a :: StageAttrs -> Type)
     -> (forall (b :: Maybe (Blending', Blending'))
           (c :: RGBGen)
             (d :: AlphaGen)
@@ -525,34 +525,34 @@ StageAttrs
                   (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
+        -> 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
-saTCGen :: StageAttrs -> TCGen
-saTCMod :: StageAttrs -> List TCMod
-saTexture :: StageAttrs -> StageTexture
-saDepthWrite :: StageAttrs -> Bool
-saDepthFunc :: StageAttrs -> DepthFunction
-saAlphaFunc :: StageAttrs -> Maybe AlphaFunction
-saDepthMaskExplicit :: StageAttrs -> Bool
-saTextureUniform :: StageAttrs -> String
-defaultStageAttrs :: StageAttrs
-'CommonAttrs :: Type
+  :: forall (a :: Type -> Type) -> a StageAttrs -> forall b -> a b -> a b
+saBlend :: StageAttrs -> Maybe (Blending', Blending')
+saRGBGen :: StageAttrs -> RGBGen
+saAlphaGen :: StageAttrs -> AlphaGen
+saTCGen :: StageAttrs -> TCGen
+saTCMod :: StageAttrs -> List TCMod
+saTexture :: StageAttrs -> StageTexture
+saDepthWrite :: StageAttrs -> Bool
+saDepthFunc :: StageAttrs -> DepthFunction
+saAlphaFunc :: StageAttrs -> Maybe AlphaFunction
+saDepthMaskExplicit :: StageAttrs -> Bool
+saTextureUniform :: StageAttrs -> String
+defaultStageAttrs :: StageAttrs
+'CommonAttrs :: Type
 CommonAttrs
-  :: ()
+  :: ()
     -> ()
       -> Bool
         -> Float
           -> Bool
             -> Bool
               -> CullType
-                -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+                -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 'CommonAttrsCase
-  :: forall (a :: CommonAttrs -> Type)
+  :: forall (a :: CommonAttrs -> Type)
     -> (forall (b :: ())
           (c :: ())
             (d :: Bool)
@@ -561,390 +561,737 @@ CommonAttrs
                   (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
+        -> a ('CommonAttrs b c d e f g h i j k l m))
+      -> forall (n :: CommonAttrs) -> a n
 match'CommonAttrs
-  :: forall (a :: Type -> Type) -> a CommonAttrs -> forall b -> a b -> a b
-caSkyParms :: CommonAttrs -> ()
-caFogParms :: CommonAttrs -> ()
-caPortal :: CommonAttrs -> Bool
-caSort :: CommonAttrs -> Float
-caEntityMergable :: CommonAttrs -> Bool
-caFogOnly :: CommonAttrs -> Bool
-caCull :: CommonAttrs -> CullType
-caDeformVertexes :: CommonAttrs -> List Deform
-caNoMipMaps :: CommonAttrs -> Bool
-caPolygonOffset :: CommonAttrs -> Bool
-caStages :: CommonAttrs -> List StageAttrs
-caIsSky :: CommonAttrs -> Bool
-defaultCommonAttrs :: CommonAttrs
+  :: forall (a :: Type -> Type) -> a CommonAttrs -> forall b -> a b -> a b
+caSkyParms :: CommonAttrs -> ()
+caFogParms :: CommonAttrs -> ()
+caPortal :: CommonAttrs -> Bool
+caSort :: CommonAttrs -> Float
+caEntityMergable :: CommonAttrs -> Bool
+caFogOnly :: CommonAttrs -> Bool
+caCull :: CommonAttrs -> CullType
+caDeformVertexes :: CommonAttrs -> List Deform
+caNoMipMaps :: CommonAttrs -> Bool
+caPolygonOffset :: CommonAttrs -> Bool
+caStages :: CommonAttrs -> List StageAttrs
+caIsSky :: CommonAttrs -> Bool
+defaultCommonAttrs :: CommonAttrs
 ------------ tooltips
-testdata/Material.lc 7:18-7:23  Type
-testdata/Material.lc 8:1-8:14  Float
-testdata/Material.lc 8:17-8:18  _b
-testdata/Material.lc 10:6-10:12  Type
-testdata/Material.lc 10:6-11:13  Type
-testdata/Material.lc 10:6-15:39  Type
-testdata/Material.lc 11:7-11:13  Entity | Type | Vec 4 Float -> Vec 4 Float -> Vec 3 Float -> Vec 4 Float -> Entity
-testdata/Material.lc 12:7-12:20  Entity -> VecS Float 4
-testdata/Material.lc 12:28-12:31  Nat -> Type -> Type
-testdata/Material.lc 12:28-12:33  Type -> Type
-testdata/Material.lc 12:28-12:39  Type
-testdata/Material.lc 12:32-12:33  _b
-testdata/Material.lc 12:34-12:39  Type
-testdata/Material.lc 13:7-13:21  Entity -> VecS Float 4
-testdata/Material.lc 13:28-13:31  Nat -> Type -> Type
-testdata/Material.lc 13:28-13:33  Type -> Type
-testdata/Material.lc 13:28-13:39  Type
-testdata/Material.lc 13:32-13:33  _b
-testdata/Material.lc 13:34-13:39  Type
-testdata/Material.lc 14:7-14:16  Entity -> VecS Float 3
-testdata/Material.lc 14:28-14:31  Nat -> Type -> Type
-testdata/Material.lc 14:28-14:33  Type -> Type
-testdata/Material.lc 14:28-14:39  Type
-testdata/Material.lc 14:32-14:33  _b
-testdata/Material.lc 14:34-14:39  Type
-testdata/Material.lc 15:7-15:18  Entity -> VecS Float 4
-testdata/Material.lc 15:28-15:31  Nat -> Type -> Type
-testdata/Material.lc 15:28-15:33  Type -> Type
-testdata/Material.lc 15:28-15:39  Type
-testdata/Material.lc 15:32-15:33  _b
-testdata/Material.lc 15:34-15:39  Type
-testdata/Material.lc 18:6-18:14  Type
-testdata/Material.lc 18:6-24:15  Type
-testdata/Material.lc 19:7-19:13  WaveType
-testdata/Material.lc 20:7-20:18  WaveType
-testdata/Material.lc 21:7-21:16  WaveType
-testdata/Material.lc 22:7-22:18  WaveType
-testdata/Material.lc 23:7-23:25  WaveType
-testdata/Material.lc 24:7-24:15  WaveType
-testdata/Material.lc 27:6-27:10  Type
-testdata/Material.lc 27:6-27:17  Type
-testdata/Material.lc 27:6-27:50  Type
-testdata/Material.lc 27:13-27:17  Type | Wave | WaveType -> Float -> Float -> Float -> Float -> Wave
-testdata/Material.lc 27:18-27:26  Type
-testdata/Material.lc 27:27-27:32  Type
-testdata/Material.lc 27:33-27:38  Type
-testdata/Material.lc 27:39-27:44  Type
-testdata/Material.lc 27:45-27:50  Type
-testdata/Material.lc 29:6-29:12  Type
-testdata/Material.lc 29:6-32:32  Type
-testdata/Material.lc 29:6-33:32  Type
-testdata/Material.lc 29:6-34:27  Type
-testdata/Material.lc 29:6-44:13  Type
-testdata/Material.lc 29:6-44:24  Type
-testdata/Material.lc 30:7-30:19  Deform
-testdata/Material.lc 31:7-31:20  Deform
-testdata/Material.lc 32:7-32:14  Deform | Float -> Float -> Float -> Deform | Type
-testdata/Material.lc 32:15-32:20  Type
-testdata/Material.lc 32:21-32:26  Type
-testdata/Material.lc 32:27-32:32  Type
-testdata/Material.lc 33:7-33:13  Deform | Type | Vec 3 Float -> Wave -> Deform
-testdata/Material.lc 33:15-33:18  Nat -> Type -> Type
-testdata/Material.lc 33:15-33:20  Type -> Type
-testdata/Material.lc 33:15-33:26  Type
-testdata/Material.lc 33:19-33:20  _b
-testdata/Material.lc 33:21-33:26  Type
-testdata/Material.lc 33:28-33:32  Type
-testdata/Material.lc 34:7-34:15  Deform | Float -> Float -> Deform | Type
-testdata/Material.lc 34:16-34:21  Type
-testdata/Material.lc 34:22-34:27  Type
-testdata/Material.lc 35:7-35:25  Deform
-testdata/Material.lc 36:7-36:14  Deform
-testdata/Material.lc 37:7-37:14  Deform
-testdata/Material.lc 38:7-38:14  Deform
-testdata/Material.lc 39:7-39:14  Deform
-testdata/Material.lc 40:7-40:14  Deform
-testdata/Material.lc 41:7-41:14  Deform
-testdata/Material.lc 42:7-42:14  Deform
-testdata/Material.lc 43:7-43:14  Deform
-testdata/Material.lc 44:7-44:13  Deform | Float -> Wave -> Deform | Type
-testdata/Material.lc 44:14-44:19  Type
-testdata/Material.lc 44:20-44:24  Type
-testdata/Material.lc 47:6-47:14  Type
-testdata/Material.lc 47:6-50:18  Type
-testdata/Material.lc 48:7-48:20  CullType
-testdata/Material.lc 49:7-49:19  CullType
-testdata/Material.lc 50:7-50:18  CullType
-testdata/Material.lc 53:6-53:15  Type
-testdata/Material.lc 53:6-64:13  Type
-testdata/Material.lc 54:7-54:17  Blending'
-testdata/Material.lc 55:7-55:17  Blending'
-testdata/Material.lc 56:7-56:12  Blending'
-testdata/Material.lc 57:7-57:25  Blending'
-testdata/Material.lc 58:7-58:25  Blending'
-testdata/Material.lc 59:7-59:25  Blending'
-testdata/Material.lc 60:7-60:25  Blending'
-testdata/Material.lc 61:7-61:17  Blending'
-testdata/Material.lc 62:7-62:25  Blending'
-testdata/Material.lc 63:7-63:17  Blending'
-testdata/Material.lc 64:7-64:13  Blending'
-testdata/Material.lc 67:6-67:12  Type
-testdata/Material.lc 67:6-69:34  Type
-testdata/Material.lc 67:6-78:20  Type
-testdata/Material.lc 68:7-68:15  RGBGen | Type | Wave -> RGBGen
-testdata/Material.lc 68:16-68:20  Type
-testdata/Material.lc 69:7-69:16  Float -> Float -> Float -> RGBGen | RGBGen | Type
-testdata/Material.lc 69:17-69:22  Type
-testdata/Material.lc 69:23-69:28  Type
-testdata/Material.lc 69:29-69:34  Type
-testdata/Material.lc 70:7-70:19  RGBGen
-testdata/Material.lc 71:7-71:27  RGBGen
-testdata/Material.lc 72:7-72:17  RGBGen
-testdata/Material.lc 73:7-73:25  RGBGen
-testdata/Material.lc 74:7-74:22  RGBGen
-testdata/Material.lc 75:7-75:17  RGBGen
-testdata/Material.lc 76:7-76:26  RGBGen
-testdata/Material.lc 77:7-77:25  RGBGen
-testdata/Material.lc 78:7-78:20  RGBGen
-testdata/Material.lc 81:6-81:14  Type
-testdata/Material.lc 81:6-90:23  Type
-testdata/Material.lc 82:7-82:13  AlphaGen | Type | Wave -> AlphaGen
-testdata/Material.lc 82:14-82:18  Type
-testdata/Material.lc 83:7-83:14  AlphaGen | Float -> AlphaGen | Type
-testdata/Material.lc 83:15-83:20  Type
-testdata/Material.lc 84:7-84:15  AlphaGen
-testdata/Material.lc 85:7-85:17  AlphaGen
-testdata/Material.lc 86:7-86:15  AlphaGen
-testdata/Material.lc 87:7-87:23  AlphaGen
-testdata/Material.lc 88:7-88:15  AlphaGen
-testdata/Material.lc 89:7-89:25  AlphaGen
-testdata/Material.lc 90:7-90:23  AlphaGen
-testdata/Material.lc 93:6-93:11  Type
-testdata/Material.lc 93:6-97:44  Type
-testdata/Material.lc 93:6-98:19  Type
-testdata/Material.lc 94:7-94:14  TCGen
-testdata/Material.lc 95:7-95:18  TCGen
-testdata/Material.lc 96:7-96:21  TCGen
-testdata/Material.lc 97:7-97:16  TCGen | Type | Vec 3 Float -> Vec 3 Float -> TCGen
-testdata/Material.lc 97:18-97:21  Nat -> Type -> Type
-testdata/Material.lc 97:18-97:23  Type -> Type
-testdata/Material.lc 97:18-97:29  Type
-testdata/Material.lc 97:22-97:23  _b
-testdata/Material.lc 97:24-97:29  Type
-testdata/Material.lc 97:32-97:35  Nat -> Type -> Type
-testdata/Material.lc 97:32-97:37  Type -> Type
-testdata/Material.lc 97:32-97:43  Type
-testdata/Material.lc 97:36-97:37  _b
-testdata/Material.lc 97:38-97:43  Type
-testdata/Material.lc 98:7-98:19  TCGen
-testdata/Material.lc 101:6-101:11  Type
-testdata/Material.lc 101:6-104:28  Type
-testdata/Material.lc 101:6-105:27  Type
-testdata/Material.lc 101:6-107:55  Type
-testdata/Material.lc 101:6-108:14  Type
-testdata/Material.lc 101:6-108:38  Type
-testdata/Material.lc 102:7-102:25  TCMod
-testdata/Material.lc 103:7-103:16  Float -> TCMod | TCMod | Type
-testdata/Material.lc 103:17-103:22  Type
-testdata/Material.lc 104:7-104:16  Float -> Float -> TCMod | TCMod | Type
-testdata/Material.lc 104:17-104:22  Type
-testdata/Material.lc 104:23-104:28  Type
-testdata/Material.lc 105:7-105:15  Float -> Float -> TCMod | TCMod | Type
-testdata/Material.lc 105:16-105:21  Type
-testdata/Material.lc 105:22-105:27  Type
-testdata/Material.lc 106:7-106:17  TCMod | Type | Wave -> TCMod
-testdata/Material.lc 106:18-106:22  Type
-testdata/Material.lc 107:7-107:19  Float -> Float -> Float -> Float -> Float -> Float -> TCMod | TCMod | Type
-testdata/Material.lc 107:20-107:25  Type
-testdata/Material.lc 107:26-107:31  Type
-testdata/Material.lc 107:32-107:37  Type
-testdata/Material.lc 107:38-107:43  Type
-testdata/Material.lc 107:44-107:49  Type
-testdata/Material.lc 107:50-107:55  Type
-testdata/Material.lc 108:7-108:14  Float -> Float -> Float -> Float -> TCMod | TCMod | Type
-testdata/Material.lc 108:15-108:20  Type
-testdata/Material.lc 108:21-108:26  Type
-testdata/Material.lc 108:27-108:32  Type
-testdata/Material.lc 108:33-108:38  Type
-testdata/Material.lc 111:6-111:18  Type
-testdata/Material.lc 111:6-114:35  Type
-testdata/Material.lc 111:6-116:20  Type
-testdata/Material.lc 112:7-112:13  StageTexture | String -> StageTexture | Type
-testdata/Material.lc 112:21-112:27  Type
-testdata/Material.lc 113:7-113:18  StageTexture | String -> StageTexture | Type
-testdata/Material.lc 113:21-113:27  Type
-testdata/Material.lc 114:7-114:17  Float -> List String -> StageTexture | StageTexture | Type
-testdata/Material.lc 114:21-114:26  Type
-testdata/Material.lc 114:27-114:35  Type
-testdata/Material.lc 114:28-114:34  Type
-testdata/Material.lc 115:7-115:18  StageTexture
-testdata/Material.lc 116:7-116:20  StageTexture
-testdata/Material.lc 119:6-119:19  Type
-testdata/Material.lc 119:6-122:14  Type
-testdata/Material.lc 120:7-120:12  AlphaFunction
-testdata/Material.lc 121:7-121:14  AlphaFunction
-testdata/Material.lc 122:7-122:14  AlphaFunction
-testdata/Material.lc 125:6-125:19  Type
-testdata/Material.lc 125:6-127:15  Type
-testdata/Material.lc 126:7-126:14  DepthFunction
-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 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
-testdata/Material.lc 132:31-132:53  Type
-testdata/Material.lc 132:32-132:41  Type
-testdata/Material.lc 132:32-132:52  List Type
-testdata/Material.lc 132:43-132:52  List Type | Type
-testdata/Material.lc 133:7-133:15  StageAttrs -> RGBGen
-testdata/Material.lc 133:24-133:30  Type
-testdata/Material.lc 134:7-134:17  StageAttrs -> AlphaGen
-testdata/Material.lc 134:24-134:32  Type
-testdata/Material.lc 135:7-135:14  StageAttrs -> TCGen
-testdata/Material.lc 135:24-135:29  Type
-testdata/Material.lc 136:7-136:14  StageAttrs -> List TCMod
-testdata/Material.lc 136:24-136:31  Type
-testdata/Material.lc 136:25-136:30  Type
-testdata/Material.lc 137:7-137:16  StageAttrs -> StageTexture
-testdata/Material.lc 137:24-137:36  Type
-testdata/Material.lc 138:7-138:19  StageAttrs -> Bool
-testdata/Material.lc 138:24-138:28  Type
-testdata/Material.lc 139:7-139:18  StageAttrs -> DepthFunction
-testdata/Material.lc 139:24-139:37  Type
-testdata/Material.lc 140:7-140:18  StageAttrs -> Maybe AlphaFunction
-testdata/Material.lc 140:25-140:30  Type -> Type
-testdata/Material.lc 140:25-140:44  Type
-testdata/Material.lc 140:31-140:44  Type
-testdata/Material.lc 143:7-143:26  StageAttrs -> Bool
-testdata/Material.lc 143:32-143:36  Type
-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
+testdata/Material.lc 7:18-7:23
+    Type
+testdata/Material.lc 8:1-8:14
+    Float
+testdata/Material.lc 8:17-8:18
+    _b
+testdata/Material.lc 10:6-10:12
+    Type | Type | Type | Type | Type | Type
+testdata/Material.lc 10:6-11:13
+    Type
+testdata/Material.lc 10:6-15:39
+    Type | Type | Type
+testdata/Material.lc 11:7-11:13
+    Vec 4 Float
+      -> Vec 4 Float
+        -> Vec 3 Float
+          -> Vec 4 Float -> Entity | Entity | Type | Type | Type | Type | Type
+testdata/Material.lc 12:7-12:20
+    Entity -> VecS Float 4
+testdata/Material.lc 12:28-12:31
+    Nat -> Type -> Type
+testdata/Material.lc 12:28-12:33
+    Type -> Type
+testdata/Material.lc 12:28-12:39
+    Type
+testdata/Material.lc 12:32-12:33
+    _b
+testdata/Material.lc 12:34-12:39
+    Type
+testdata/Material.lc 13:7-13:21
+    Entity -> VecS Float 4
+testdata/Material.lc 13:28-13:31
+    Nat -> Type -> Type
+testdata/Material.lc 13:28-13:33
+    Type -> Type
+testdata/Material.lc 13:28-13:39
+    Type
+testdata/Material.lc 13:32-13:33
+    _b
+testdata/Material.lc 13:34-13:39
+    Type
+testdata/Material.lc 14:7-14:16
+    Entity -> VecS Float 3
+testdata/Material.lc 14:28-14:31
+    Nat -> Type -> Type
+testdata/Material.lc 14:28-14:33
+    Type -> Type
+testdata/Material.lc 14:28-14:39
+    Type
+testdata/Material.lc 14:32-14:33
+    _b
+testdata/Material.lc 14:34-14:39
+    Type
+testdata/Material.lc 15:7-15:18
+    Entity -> VecS Float 4
+testdata/Material.lc 15:28-15:31
+    Nat -> Type -> Type
+testdata/Material.lc 15:28-15:33
+    Type -> Type
+testdata/Material.lc 15:28-15:39
+    Type
+testdata/Material.lc 15:32-15:33
+    _b
+testdata/Material.lc 15:34-15:39
+    Type
+testdata/Material.lc 18:6-18:14
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 18:6-24:15
+    Type | Type | Type | Type | Type | Type
+testdata/Material.lc 19:7-19:13
+    WaveType
+testdata/Material.lc 20:7-20:18
+    WaveType
+testdata/Material.lc 21:7-21:16
+    WaveType
+testdata/Material.lc 22:7-22:18
+    WaveType
+testdata/Material.lc 23:7-23:25
+    WaveType
+testdata/Material.lc 24:7-24:15
+    WaveType
+testdata/Material.lc 27:6-27:10
+    Type | Type | Type | Type | Type | Type
+testdata/Material.lc 27:6-27:17
+    Type
+testdata/Material.lc 27:6-27:50
+    Type | Type | Type | Type
+testdata/Material.lc 27:13-27:17
+    WaveType
+      -> Float
+        -> Float
+          -> Float -> Float -> Wave | Wave | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 27:18-27:26
+    Type
+testdata/Material.lc 27:27-27:32
+    Type
+testdata/Material.lc 27:33-27:38
+    Type
+testdata/Material.lc 27:39-27:44
+    Type
+testdata/Material.lc 27:45-27:50
+    Type
+testdata/Material.lc 29:6-29:12
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 29:6-32:32
+    Type | Type
+testdata/Material.lc 29:6-33:32
+    Type
+testdata/Material.lc 29:6-34:27
+    Type
+testdata/Material.lc 29:6-44:13
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 29:6-44:24
+    Type
+testdata/Material.lc 30:7-30:19
+    Deform
+testdata/Material.lc 31:7-31:20
+    Deform
+testdata/Material.lc 32:7-32:14
+    Float -> Float -> Float -> Deform | Deform | Type | Type | Type | Type
+testdata/Material.lc 32:15-32:20
+    Type
+testdata/Material.lc 32:21-32:26
+    Type
+testdata/Material.lc 32:27-32:32
+    Type
+testdata/Material.lc 33:7-33:13
+    Vec 3 Float -> Wave -> Deform | Deform | Type | Type | Type
+testdata/Material.lc 33:15-33:18
+    Nat -> Type -> Type
+testdata/Material.lc 33:15-33:20
+    Type -> Type
+testdata/Material.lc 33:15-33:26
+    Type
+testdata/Material.lc 33:19-33:20
+    _b
+testdata/Material.lc 33:21-33:26
+    Type
+testdata/Material.lc 33:28-33:32
+    Type
+testdata/Material.lc 34:7-34:15
+    Float -> Float -> Deform | Deform | Type | Type | Type
+testdata/Material.lc 34:16-34:21
+    Type
+testdata/Material.lc 34:22-34:27
+    Type
+testdata/Material.lc 35:7-35:25
+    Deform
+testdata/Material.lc 36:7-36:14
+    Deform
+testdata/Material.lc 37:7-37:14
+    Deform
+testdata/Material.lc 38:7-38:14
+    Deform
+testdata/Material.lc 39:7-39:14
+    Deform
+testdata/Material.lc 40:7-40:14
+    Deform
+testdata/Material.lc 41:7-41:14
+    Deform
+testdata/Material.lc 42:7-42:14
+    Deform
+testdata/Material.lc 43:7-43:14
+    Deform
+testdata/Material.lc 44:7-44:13
+    Float -> Wave -> Deform | Deform | Type | Type | Type
+testdata/Material.lc 44:14-44:19
+    Type
+testdata/Material.lc 44:20-44:24
+    Type
+testdata/Material.lc 47:6-47:14
+    Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 47:6-50:18
+    Type | Type | Type
+testdata/Material.lc 48:7-48:20
+    CullType
+testdata/Material.lc 49:7-49:19
+    CullType
+testdata/Material.lc 50:7-50:18
+    CullType
+testdata/Material.lc 53:6-53:15
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 53:6-64:13
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 54:7-54:17
+    Blending'
+testdata/Material.lc 55:7-55:17
+    Blending'
+testdata/Material.lc 56:7-56:12
+    Blending'
+testdata/Material.lc 57:7-57:25
+    Blending'
+testdata/Material.lc 58:7-58:25
+    Blending'
+testdata/Material.lc 59:7-59:25
+    Blending'
+testdata/Material.lc 60:7-60:25
+    Blending'
+testdata/Material.lc 61:7-61:17
+    Blending'
+testdata/Material.lc 62:7-62:25
+    Blending'
+testdata/Material.lc 63:7-63:17
+    Blending'
+testdata/Material.lc 64:7-64:13
+    Blending'
+testdata/Material.lc 67:6-67:12
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 67:6-69:34
+    Type | Type
+testdata/Material.lc 67:6-78:20
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 68:7-68:15
+    Wave -> RGBGen | RGBGen | Type | Type
+testdata/Material.lc 68:16-68:20
+    Type
+testdata/Material.lc 69:7-69:16
+    Float -> Float -> Float -> RGBGen | RGBGen | Type | Type | Type | Type
+testdata/Material.lc 69:17-69:22
+    Type
+testdata/Material.lc 69:23-69:28
+    Type
+testdata/Material.lc 69:29-69:34
+    Type
+testdata/Material.lc 70:7-70:19
+    RGBGen
+testdata/Material.lc 71:7-71:27
+    RGBGen
+testdata/Material.lc 72:7-72:17
+    RGBGen
+testdata/Material.lc 73:7-73:25
+    RGBGen
+testdata/Material.lc 74:7-74:22
+    RGBGen
+testdata/Material.lc 75:7-75:17
+    RGBGen
+testdata/Material.lc 76:7-76:26
+    RGBGen
+testdata/Material.lc 77:7-77:25
+    RGBGen
+testdata/Material.lc 78:7-78:20
+    RGBGen
+testdata/Material.lc 81:6-81:14
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 81:6-90:23
+    Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 82:7-82:13
+    Wave -> AlphaGen | AlphaGen | Type | Type
+testdata/Material.lc 82:14-82:18
+    Type
+testdata/Material.lc 83:7-83:14
+    Float -> AlphaGen | AlphaGen | Type | Type
+testdata/Material.lc 83:15-83:20
+    Type
+testdata/Material.lc 84:7-84:15
+    AlphaGen
+testdata/Material.lc 85:7-85:17
+    AlphaGen
+testdata/Material.lc 86:7-86:15
+    AlphaGen
+testdata/Material.lc 87:7-87:23
+    AlphaGen
+testdata/Material.lc 88:7-88:15
+    AlphaGen
+testdata/Material.lc 89:7-89:25
+    AlphaGen
+testdata/Material.lc 90:7-90:23
+    AlphaGen
+testdata/Material.lc 93:6-93:11
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 93:6-97:44
+    Type
+testdata/Material.lc 93:6-98:19
+    Type | Type | Type | Type | Type
+testdata/Material.lc 94:7-94:14
+    TCGen
+testdata/Material.lc 95:7-95:18
+    TCGen
+testdata/Material.lc 96:7-96:21
+    TCGen
+testdata/Material.lc 97:7-97:16
+    Vec 3 Float -> Vec 3 Float -> TCGen | TCGen | Type | Type | Type
+testdata/Material.lc 97:18-97:21
+    Nat -> Type -> Type
+testdata/Material.lc 97:18-97:23
+    Type -> Type
+testdata/Material.lc 97:18-97:29
+    Type
+testdata/Material.lc 97:22-97:23
+    _b
+testdata/Material.lc 97:24-97:29
+    Type
+testdata/Material.lc 97:32-97:35
+    Nat -> Type -> Type
+testdata/Material.lc 97:32-97:37
+    Type -> Type
+testdata/Material.lc 97:32-97:43
+    Type
+testdata/Material.lc 97:36-97:37
+    _b
+testdata/Material.lc 97:38-97:43
+    Type
+testdata/Material.lc 98:7-98:19
+    TCGen
+testdata/Material.lc 101:6-101:11
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 101:6-104:28
+    Type
+testdata/Material.lc 101:6-105:27
+    Type
+testdata/Material.lc 101:6-107:55
+    Type | Type | Type | Type | Type
+testdata/Material.lc 101:6-108:14
+    Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 101:6-108:38
+    Type | Type | Type
+testdata/Material.lc 102:7-102:25
+    TCMod
+testdata/Material.lc 103:7-103:16
+    Float -> TCMod | TCMod | Type | Type
+testdata/Material.lc 103:17-103:22
+    Type
+testdata/Material.lc 104:7-104:16
+    Float -> Float -> TCMod | TCMod | Type | Type | Type
+testdata/Material.lc 104:17-104:22
+    Type
+testdata/Material.lc 104:23-104:28
+    Type
+testdata/Material.lc 105:7-105:15
+    Float -> Float -> TCMod | TCMod | Type | Type | Type
+testdata/Material.lc 105:16-105:21
+    Type
+testdata/Material.lc 105:22-105:27
+    Type
+testdata/Material.lc 106:7-106:17
+    Wave -> TCMod | TCMod | Type | Type
+testdata/Material.lc 106:18-106:22
+    Type
+testdata/Material.lc 107:7-107:19
+    Float
+      -> Float
+        -> Float
+          -> Float
+            -> Float
+              -> Float -> TCMod | TCMod | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 107:20-107:25
+    Type
+testdata/Material.lc 107:26-107:31
+    Type
+testdata/Material.lc 107:32-107:37
+    Type
+testdata/Material.lc 107:38-107:43
+    Type
+testdata/Material.lc 107:44-107:49
+    Type
+testdata/Material.lc 107:50-107:55
+    Type
+testdata/Material.lc 108:7-108:14
+    Float
+      -> Float -> Float -> Float -> TCMod | TCMod | Type | Type | Type | Type | Type
+testdata/Material.lc 108:15-108:20
+    Type
+testdata/Material.lc 108:21-108:26
+    Type
+testdata/Material.lc 108:27-108:32
+    Type
+testdata/Material.lc 108:33-108:38
+    Type
+testdata/Material.lc 111:6-111:18
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 111:6-114:35
+    Type
+testdata/Material.lc 111:6-116:20
+    Type | Type | Type | Type | Type
+testdata/Material.lc 112:7-112:13
+    String -> StageTexture | StageTexture | Type | Type
+testdata/Material.lc 112:21-112:27
+    Type
+testdata/Material.lc 113:7-113:18
+    String -> StageTexture | StageTexture | Type | Type
+testdata/Material.lc 113:21-113:27
+    Type
+testdata/Material.lc 114:7-114:17
+    Float -> List String -> StageTexture | StageTexture | Type | Type | Type
+testdata/Material.lc 114:21-114:26
+    Type
+testdata/Material.lc 114:27-114:35
+    Type
+testdata/Material.lc 114:28-114:34
+    Type
+testdata/Material.lc 115:7-115:18
+    StageTexture
+testdata/Material.lc 116:7-116:20
+    StageTexture
+testdata/Material.lc 119:6-119:19
+    Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 119:6-122:14
+    Type | Type | Type
+testdata/Material.lc 120:7-120:12
+    AlphaFunction
+testdata/Material.lc 121:7-121:14
+    AlphaFunction
+testdata/Material.lc 122:7-122:14
+    AlphaFunction
+testdata/Material.lc 125:6-125:19
+    Type | Type | Type | Type | Type | Type
+testdata/Material.lc 125:6-127:15
+    Type | Type
+testdata/Material.lc 126:7-126:14
+    DepthFunction
+testdata/Material.lc 127:7-127:15
+    DepthFunction
+testdata/Material.lc 130:6-130:16
+    Type | Type | Type | Type | Type | Type
+testdata/Material.lc 130:6-131:17
+    Type
+testdata/Material.lc 130:6-144:34
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | 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 | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | 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
+testdata/Material.lc 132:31-132:53
+    Type
+testdata/Material.lc 132:32-132:41
+    Type
+testdata/Material.lc 132:32-132:52
+    List Type
+testdata/Material.lc 132:43-132:52
+    Type | List Type
+testdata/Material.lc 133:7-133:15
+    StageAttrs -> RGBGen
+testdata/Material.lc 133:24-133:30
+    Type
+testdata/Material.lc 134:7-134:17
+    StageAttrs -> AlphaGen
+testdata/Material.lc 134:24-134:32
+    Type
+testdata/Material.lc 135:7-135:14
+    StageAttrs -> TCGen
+testdata/Material.lc 135:24-135:29
+    Type
+testdata/Material.lc 136:7-136:14
+    StageAttrs -> List TCMod
+testdata/Material.lc 136:24-136:31
+    Type
+testdata/Material.lc 136:25-136:30
+    Type
+testdata/Material.lc 137:7-137:16
+    StageAttrs -> StageTexture
+testdata/Material.lc 137:24-137:36
+    Type
+testdata/Material.lc 138:7-138:19
+    StageAttrs -> Bool
+testdata/Material.lc 138:24-138:28
+    Type
+testdata/Material.lc 139:7-139:18
+    StageAttrs -> DepthFunction
+testdata/Material.lc 139:24-139:37
+    Type
+testdata/Material.lc 140:7-140:18
+    StageAttrs -> Maybe AlphaFunction
+testdata/Material.lc 140:25-140:30
+    Type -> Type
+testdata/Material.lc 140:25-140:44
+    Type
+testdata/Material.lc 140:31-140:44
+    Type
+testdata/Material.lc 143:7-143:26
+    StageAttrs -> Bool
+testdata/Material.lc 143:32-143:36
+    Type
+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-150:30  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/Material.lc 149:21-152:33
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/Material.lc 149:21-151:36  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/Material.lc 149:21-153:35
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/Material.lc 149:21-152:33  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/Material.lc 149:21-154:25
+    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
-testdata/Material.lc 149:21-158:30  Bool -> String -> StageAttrs
-testdata/Material.lc 149:21-159:36  String -> StageAttrs
-testdata/Material.lc 149:21-161:6  StageAttrs
-testdata/Material.lc 150:23-150:30  forall a . Maybe a
-testdata/Material.lc 151:23-151:36  RGBGen
-testdata/Material.lc 152:23-152:33  AlphaGen
-testdata/Material.lc 153:23-153:35  TCGen
-testdata/Material.lc 154:23-154:25  forall a . List a
-testdata/Material.lc 155:23-155:36  StageTexture
-testdata/Material.lc 156:23-156:27  Bool
-testdata/Material.lc 157:23-157:31  DepthFunction
-testdata/Material.lc 158:23-158:30  forall a . Maybe a
-testdata/Material.lc 159:31-159:36  Bool
-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
+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
+testdata/Material.lc 149:21-158:30
+    Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-159:36
+    String -> StageAttrs
+testdata/Material.lc 149:21-161:6
+    StageAttrs
+testdata/Material.lc 150:23-150:30
+    forall a . Maybe a
+testdata/Material.lc 151:23-151:36
+    RGBGen
+testdata/Material.lc 152:23-152:33
+    AlphaGen
+testdata/Material.lc 153:23-153:35
+    TCGen
+testdata/Material.lc 154:23-154:25
+    forall a . List a
+testdata/Material.lc 155:23-155:36
+    StageTexture
+testdata/Material.lc 156:23-156:27
+    Bool
+testdata/Material.lc 157:23-157:31
+    DepthFunction
+testdata/Material.lc 158:23-158:30
+    forall a . Maybe a
+testdata/Material.lc 159:31-159:36
+    Bool
+testdata/Material.lc 160:27-160:29
+    String
+testdata/Material.lc 163:6-163:17
+    Type | Type | Type | Type | Type | Type
+testdata/Material.lc 163:6-164:18
+    Type
+testdata/Material.lc 163:6-178:32
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/Material.lc 164:7-164:18
+    ()
+      -> ()
         -> Bool
+          -> Float
+            -> Bool
+              -> Bool
+                -> CullType
+                  -> List Deform
+                    -> Bool
+                      -> Bool
+                        -> List StageAttrs
+                          -> Bool
+                            -> CommonAttrs | CommonAttrs | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | 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 -> ()
+testdata/Material.lc 166:28-166:30
+    Type
+testdata/Material.lc 167:7-167:15
+    CommonAttrs -> Bool
+testdata/Material.lc 167:28-167:32
+    Type
+testdata/Material.lc 168:7-168:13
+    CommonAttrs -> Float
+testdata/Material.lc 168:28-168:33
+    Type
+testdata/Material.lc 169:7-169:23
+    CommonAttrs -> Bool
+testdata/Material.lc 169:28-169:32
+    Type
+testdata/Material.lc 170:7-170:16
+    CommonAttrs -> Bool
+testdata/Material.lc 170:28-170:32
+    Type
+testdata/Material.lc 171:7-171:13
+    CommonAttrs -> CullType
+testdata/Material.lc 171:28-171:36
+    Type
+testdata/Material.lc 172:7-172:23
+    CommonAttrs -> List Deform
+testdata/Material.lc 172:28-172:36
+    Type
+testdata/Material.lc 172:29-172:35
+    Type
+testdata/Material.lc 173:7-173:18
+    CommonAttrs -> Bool
+testdata/Material.lc 173:28-173:32
+    Type
+testdata/Material.lc 174:7-174:22
+    CommonAttrs -> Bool
+testdata/Material.lc 174:28-174:32
+    Type
+testdata/Material.lc 175:7-175:15
+    CommonAttrs -> List StageAttrs
+testdata/Material.lc 175:28-175:40
+    Type
+testdata/Material.lc 175:29-175:39
+    Type
+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
-            -> 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 -> ()
-testdata/Material.lc 166:28-166:30  Type
-testdata/Material.lc 167:7-167:15  CommonAttrs -> Bool
-testdata/Material.lc 167:28-167:32  Type
-testdata/Material.lc 168:7-168:13  CommonAttrs -> Float
-testdata/Material.lc 168:28-168:33  Type
-testdata/Material.lc 169:7-169:23  CommonAttrs -> Bool
-testdata/Material.lc 169:28-169:32  Type
-testdata/Material.lc 170:7-170:16  CommonAttrs -> Bool
-testdata/Material.lc 170:28-170:32  Type
-testdata/Material.lc 171:7-171:13  CommonAttrs -> CullType
-testdata/Material.lc 171:28-171:36  Type
-testdata/Material.lc 172:7-172:23  CommonAttrs -> List Deform
-testdata/Material.lc 172:28-172:36  Type
-testdata/Material.lc 172:29-172:35  Type
-testdata/Material.lc 173:7-173:18  CommonAttrs -> Bool
-testdata/Material.lc 173:28-173:32  Type
-testdata/Material.lc 174:7-174:22  CommonAttrs -> Bool
-testdata/Material.lc 174:28-174:32  Type
-testdata/Material.lc 175:7-175:15  CommonAttrs -> List StageAttrs
-testdata/Material.lc 175:28-175:40  Type
-testdata/Material.lc 175:29-175:39  Type
-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
+            -> 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-184:29  ()
-  -> Bool
-    -> Float
+            -> 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-185:29  Bool
-  -> Float
-    -> 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-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
-testdata/Material.lc 183:22-191:29  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/Material.lc 183:22-192:32  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/Material.lc 183:22-193:32  List StageAttrs -> Bool -> CommonAttrs
-testdata/Material.lc 183:22-194:29  Bool -> CommonAttrs
-testdata/Material.lc 183:22-196:6  CommonAttrs
-testdata/Material.lc 184:27-184:29  ()
-testdata/Material.lc 185:27-185:29  ()
-testdata/Material.lc 186:27-186:32  Bool
-testdata/Material.lc 187:27-187:28  _b
-testdata/Material.lc 188:27-188:32  Bool
-testdata/Material.lc 189:27-189:32  Bool
-testdata/Material.lc 190:27-190:40  CullType
-testdata/Material.lc 191:27-191:29  forall a . List a
-testdata/Material.lc 192:27-192:32  Bool
-testdata/Material.lc 193:27-193:32  Bool
-testdata/Material.lc 194:27-194:29  forall a . List a
-testdata/Material.lc 195:27-195:32  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
+testdata/Material.lc 183:22-191:29
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-192:32
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-193:32
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-194:29
+    Bool -> CommonAttrs
+testdata/Material.lc 183:22-196:6
+    CommonAttrs
+testdata/Material.lc 184:27-184:29
+    ()
+testdata/Material.lc 185:27-185:29
+    ()
+testdata/Material.lc 186:27-186:32
+    Bool
+testdata/Material.lc 187:27-187:28
+    _b
+testdata/Material.lc 188:27-188:32
+    Bool
+testdata/Material.lc 189:27-189:32
+    Bool
+testdata/Material.lc 190:27-190:40
+    CullType
+testdata/Material.lc 191:27-191:29
+    forall a . List a
+testdata/Material.lc 192:27-192:32
+    Bool
+testdata/Material.lc 193:27-193:32
+    Bool
+testdata/Material.lc 194:27-194:29
+    forall a . List a
+testdata/Material.lc 195:27-195:32
+    Bool
\ No newline at end of file
diff --git a/testdata/Prelude.out b/testdata/Prelude.out
index bf8a02e4..c0edc251 100644
--- a/testdata/Prelude.out
+++ b/testdata/Prelude.out
@@ -470,1643 +470,3068 @@ fromTo
     :: forall (e :: _) . List e -> Int -> e
 main is not found
 ------------ trace
-const :: forall a b . a -> b -> a
-otherwise :: Bool
-& :: forall a b . a -> (a -> b) -> b
-$ :: forall a b . (a -> b) -> a -> b
-. :: forall a b c . (b -> c) -> (a -> b) -> a -> c
-uncurry :: forall a b c . (a -> c -> b) -> (a, c) -> b
-*** :: forall a b c d . (a -> c) -> (b -> d) -> (a, b) -> (c, d)
-pi :: Float
-zip :: forall a b . List a -> List b -> List (a, b)
-unzip :: forall a b . List (a, b) -> (List a, List b)
-filter :: forall a . (a -> Bool) -> List a -> List a
-tail :: forall a . List a -> List a
-pairs :: forall a . List a -> List (a, a)
-foldl' :: forall a b . (a -> b -> a) -> a -> List b -> a
-foldr1 :: forall a . (a -> a -> a) -> List a -> a
-split :: forall a . List a -> (List a, List a)
-mergeBy :: forall a . (a -> a -> Ordering) -> List a -> List a -> List a
-sortBy :: forall a . (a -> a -> Ordering) -> List a -> List a
-iterate :: forall a . (a -> a) -> a -> List a
-fst :: forall a b . (a, b) -> a
-snd :: forall a b . (a, b) -> b
-||| :: Bool -> Bool -> Bool
-&&& :: Bool -> Bool -> Bool
-'RecItem :: Type
-RecItem :: String -> Type -> RecItem
+const :: forall a b . a -> b -> a
+otherwise :: Bool
+& :: forall a b . a -> (a -> b) -> b
+$ :: forall a b . (a -> b) -> a -> b
+. :: forall a b c . (b -> c) -> (a -> b) -> a -> c
+uncurry :: forall a b c . (a -> c -> b) -> (a, c) -> b
+*** :: forall a b c d . (a -> c) -> (b -> d) -> (a, b) -> (c, d)
+pi :: Float
+zip :: forall a b . List a -> List b -> List (a, b)
+unzip :: forall a b . List (a, b) -> (List a, List b)
+filter :: forall a . (a -> Bool) -> List a -> List a
+tail :: forall a . List a -> List a
+pairs :: forall a . List a -> List (a, a)
+foldl' :: forall a b . (a -> b -> a) -> a -> List b -> a
+foldr1 :: forall a . (a -> a -> a) -> List a -> a
+split :: forall a . List a -> (List a, List a)
+mergeBy :: forall a . (a -> a -> Ordering) -> List a -> List a -> List a
+sortBy :: forall a . (a -> a -> Ordering) -> List a -> List a
+iterate :: forall a . (a -> a) -> a -> List a
+fst :: forall a b . (a, b) -> a
+snd :: forall a b . (a, b) -> b
+||| :: Bool -> Bool -> Bool
+&&& :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
-rgb :: Float -> Float -> Float -> VecS Float 4
-black :: VecS Float 4
-gray :: VecS Float 4
-silver :: VecS Float 4
-white :: VecS Float 4
-maroon :: VecS Float 4
-red :: VecS Float 4
-olive :: VecS Float 4
-yellow :: VecS Float 4
-green :: VecS Float 4
-lime :: VecS Float 4
-teal :: VecS Float 4
-aqua :: VecS Float 4
-navy :: VecS Float 4
-blue :: VecS Float 4
-purple :: VecS Float 4
-fuchsia :: VecS Float 4
+  :: 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
+silver :: VecS Float 4
+white :: VecS Float 4
+maroon :: VecS Float 4
+red :: VecS Float 4
+olive :: VecS Float 4
+yellow :: VecS Float 4
+green :: VecS Float 4
+lime :: VecS Float 4
+teal :: VecS Float 4
+aqua :: VecS Float 4
+navy :: VecS Float 4
+blue :: VecS Float 4
+purple :: VecS Float 4
+fuchsia :: VecS Float 4
 colorImage1
-  :: forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
+  :: 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
-degrees :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-sin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-cos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-tan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-sinh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-cosh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-tanh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-asin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-asinh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-acos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-acosh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-atan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-atanh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-atan2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-pow :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-exp :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-log :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-exp2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-log2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-sqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-inversesqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-abs :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-sign :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-floor :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-trunc :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-round :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-roundEven :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-ceil :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-fract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-mod :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-min :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-max :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-modF :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
-clamp :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
-clampS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
-mix :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-mixS :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
+  :: forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 2 ('Color c)
+depthImage1 :: Float -> Image 1 'Depth
+v3FToV4F :: Vec 3 Float -> VecS Float 4
+radians :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+degrees :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+sin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+cos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+tan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+sinh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+cosh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+tanh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+asin :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+asinh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+acos :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+acosh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+atan :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+atanh :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+atan2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+pow :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+exp :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+log :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+exp2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+log2 :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+sqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+inversesqrt :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+abs :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+sign :: forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+floor :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+trunc :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+round :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+roundEven :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+ceil :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+fract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+mod :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+min :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+max :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+modF :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
+clamp :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
+clampS :: forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
+mix :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+mixS :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
 mixB
-  :: 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
+  :: 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
+  :: 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
+  :: 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
-noise1 :: forall (a :: Nat) . VecScalar a Float -> Float
-noise2 :: forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
-noise3 :: forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
-noise4 :: forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
-length :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
-distance :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-dot :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-cross :: forall a . (a ~ VecS Float 3) => a -> a -> a
-normalize :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-faceforward :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-reflect :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-refract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-transpose :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
-det :: forall (a :: Nat) b . Mat a a b -> Float
-inv :: forall (a :: Nat) b . Mat a a b -> Mat a a b
-outer :: forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
-bAnd :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-bOr :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-bXor :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-bNot :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
-bAndS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-bOrS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-bXorS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+  :: 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
+noise1 :: forall (a :: Nat) . VecScalar a Float -> Float
+noise2 :: forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
+noise3 :: forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
+noise4 :: forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
+length :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
+distance :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+dot :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+cross :: forall a . (a ~ VecS Float 3) => a -> a -> a
+normalize :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+faceforward :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+reflect :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+refract :: forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+transpose :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
+det :: forall (a :: Nat) b . Mat a a b -> Float
+inv :: forall (a :: Nat) b . Mat a a b -> Mat a a b
+outer :: forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
+bAnd :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+bOr :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+bXor :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+bNot :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
+bAndS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+bOrS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+bXorS :: forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
 shiftL
-  :: forall a b (c :: Nat) d
-    . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+  :: 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
+  :: 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
+  :: 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
-wordBitsToFloat :: forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
-+ :: forall a . Num (MatVecScalarElem a) => a -> a -> a
-- :: forall a . Num (MatVecScalarElem a) => a -> a -> a
-* :: forall a . Num (MatVecScalarElem a) => a -> a -> a
+  :: forall a b (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
+wordBitsToFloat :: forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
++ :: forall a . Num (MatVecScalarElem a) => a -> a -> a
+- :: forall a . Num (MatVecScalarElem a) => a -> a -> a
+* :: forall a . Num (MatVecScalarElem a) => a -> a -> a
 /
-  :: forall a (b :: Nat)
-    . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+  :: forall a (b :: Nat)
+    . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
 %
-  :: 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 (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
-&& :: 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
+    . 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 . Mat a b c -> VecS c b -> Vec a c
-.* :: forall (a :: Nat) b (c :: Nat) . VecS b a -> Mat a c b -> Vec c b
-+! :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
--! :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
-*! :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
-/! :: forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
-%! :: forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
-perspective :: Float -> Float -> Float -> Float -> Mat 4 4 Float
-rotMatrixZ :: VecScalar 1 Float -> Mat 4 4 Float
-rotMatrixY :: VecScalar 1 Float -> Mat 4 4 Float
-rotMatrixX :: VecScalar 1 Float -> Mat 4 4 Float
-rotationEuler :: Float -> Float -> Float -> Mat 4 4 Float
-translateBefore4 :: Vec 3 Float -> Mat 4 4 Float
-lookat :: Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 4 4 Float
-scale :: Float -> VecS Float 4 -> VecS Float 4
-fromTo :: Float -> Float -> List Float
-!! :: forall a . List a -> Int -> a
+  :: forall (a :: Nat) (b :: Nat) c (d :: Nat)
+    . Mat a b c -> Mat b d c -> Mat a d c
+*. :: forall (a :: Nat) (b :: Nat) c . Mat a b c -> VecS c b -> Vec a c
+.* :: forall (a :: Nat) b (c :: Nat) . VecS b a -> Mat a c b -> Vec c b
++! :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
+-! :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
+*! :: forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
+/! :: forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
+%! :: forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
+perspective :: Float -> Float -> Float -> Float -> Mat 4 4 Float
+rotMatrixZ :: VecScalar 1 Float -> Mat 4 4 Float
+rotMatrixY :: VecScalar 1 Float -> Mat 4 4 Float
+rotMatrixX :: VecScalar 1 Float -> Mat 4 4 Float
+rotationEuler :: Float -> Float -> Float -> Mat 4 4 Float
+translateBefore4 :: Vec 3 Float -> Mat 4 4 Float
+lookat :: Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 4 4 Float
+scale :: Float -> VecS Float 4 -> VecS Float 4
+fromTo :: Float -> Float -> List Float
+!! :: forall a . List a -> Int -> a
 ------------ tooltips
-testdata/Prelude.lc 16:1-16:6  forall a b . a -> b -> a
-testdata/Prelude.lc 16:13-16:14  _d
-testdata/Prelude.lc 18:1-18:10  Bool
-testdata/Prelude.lc 18:13-18:17  Bool
-testdata/Prelude.lc 20:3-20:4  forall a b . a -> (a -> b) -> b
-testdata/Prelude.lc 20:9-20:10  _b
-testdata/Prelude.lc 20:11-20:12  _g
-testdata/Prelude.lc 22:2-22:3  forall a b . (a -> b) -> a -> b
-testdata/Prelude.lc 22:15-22:16  _d
-testdata/Prelude.lc 22:17-22:18  _e
-testdata/Prelude.lc 23:2-23:3  forall a b c . (b -> c) -> (a -> b) -> a -> c
-testdata/Prelude.lc 23:17-23:18  _f
-testdata/Prelude.lc 23:20-23:21  _g
-testdata/Prelude.lc 23:22-23:23  _h
-testdata/Prelude.lc 25:1-25:8  forall a b c . (a -> c -> b) -> (a, c) -> b
-testdata/Prelude.lc 25:20-25:21  _o
-testdata/Prelude.lc 25:20-25:25  HList _c -> _b | _c | _c -> HList _b -> _a | _d
-testdata/Prelude.lc 25:22-25:23  _n
-testdata/Prelude.lc 25:24-25:25  _j
-testdata/Prelude.lc 27:2-27:5  forall a b c d . (a -> c) -> (b -> d) -> (a, b) -> (c, d)
-testdata/Prelude.lc 27:20-27:30  (_b, _a) | HList _c -> _b | _c -> HList _b -> _a
-testdata/Prelude.lc 27:21-27:22  _s
-testdata/Prelude.lc 27:23-27:24  _p
-testdata/Prelude.lc 27:26-27:27  _r
-testdata/Prelude.lc 27:26-27:29  ((_a))
-testdata/Prelude.lc 27:28-27:29  _l
-testdata/Prelude.lc 29:1-29:3  Float
-testdata/Prelude.lc 29:6-29:23  Float
-testdata/Prelude.lc 31:8-31:11  Type
-testdata/Prelude.lc 31:8-31:29  Type
-testdata/Prelude.lc 31:8-34:39  _a -> _a | forall a b . List a -> List b -> List (a, b)
-testdata/Prelude.lc 31:9-31:10  _d
-testdata/Prelude.lc 31:15-31:18  Type
-testdata/Prelude.lc 31:15-31:29  Type
-testdata/Prelude.lc 31:16-31:17  _c
-testdata/Prelude.lc 31:22-31:29  Type
-testdata/Prelude.lc 31:23-31:28  Type
-testdata/Prelude.lc 31:24-31:25  Type
-testdata/Prelude.lc 31:24-31:27  List Type
-testdata/Prelude.lc 31:26-31:27  List Type | Type
-testdata/Prelude.lc 32:1-32:4  forall a b . List a -> List b -> List (a, b)
-testdata/Prelude.lc 32:22-32:24  forall a . List a
-testdata/Prelude.lc 32:22-34:39  List (_d, _c) | List _a -> List (_a, _d) | List _b -> List (_c, _b) | List _b -> List _a -> List (_b, _a)
-testdata/Prelude.lc 33:22-33:24  forall a . List a
-testdata/Prelude.lc 33:22-34:39  List (_c, _f) | List _a -> List (_e, _a) | List _c -> List _b | _b -> List _b -> List _a
-testdata/Prelude.lc 34:23-34:28  (_h, _d)
-testdata/Prelude.lc 34:23-34:29  List (_h, _d) -> List (_h, _d)
-testdata/Prelude.lc 34:23-34:39  List (_g, _c) | List _c -> List _b | _b -> List _b -> List _a
-testdata/Prelude.lc 34:24-34:25  _k
-testdata/Prelude.lc 34:26-34:27  ((_d)) | _g
-testdata/Prelude.lc 34:28-34:29  forall a . a -> List a -> List a
-testdata/Prelude.lc 34:30-34:33  forall a b . List a -> List b -> List (a, b)
-testdata/Prelude.lc 34:30-34:36  List _a -> List (_h, _a)
-testdata/Prelude.lc 34:30-34:39  List (_g, _c)
-testdata/Prelude.lc 34:34-34:36  List _i
-testdata/Prelude.lc 34:37-34:39  List _c
-testdata/Prelude.lc 36:10-36:17  Type
-testdata/Prelude.lc 36:10-36:30  Type
-testdata/Prelude.lc 36:10-39:27  _a -> _a | forall a b . List (a, b) -> (List a, List b)
-testdata/Prelude.lc 36:11-36:16  Type
-testdata/Prelude.lc 36:12-36:13  _e
-testdata/Prelude.lc 36:12-36:15  List Type
-testdata/Prelude.lc 36:14-36:15  List Type | _c
-testdata/Prelude.lc 36:21-36:30  Type
-testdata/Prelude.lc 36:22-36:25  Type
-testdata/Prelude.lc 36:22-36:29  List Type
-testdata/Prelude.lc 36:23-36:24  Type
-testdata/Prelude.lc 36:26-36:29  List Type | Type
-testdata/Prelude.lc 36:27-36:28  Type
-testdata/Prelude.lc 37:1-37:6  forall a b . List (a, b) -> (List a, List b)
-testdata/Prelude.lc 37:12-37:19  (List _b, List _a)
-testdata/Prelude.lc 37:12-39:27  (List _c, List _b) | List (_b, _a) -> (List _b, List _a)
-testdata/Prelude.lc 37:13-37:15  forall a . List a
-testdata/Prelude.lc 37:16-37:18  ((List _a)) | forall a . List a
-testdata/Prelude.lc 38:20-38:31  (List _n, List _i)
-testdata/Prelude.lc 38:20-39:27  (List _d, List _a) | (List _d, List _c) | (List _h, List _c) | HList _c -> _b | List _d -> (List _c, List _b) | _c -> HList _b -> _a | _c -> List _c -> (List _b, List _a)
-testdata/Prelude.lc 38:21-38:22  _s
-testdata/Prelude.lc 38:21-38:23  List _r -> List _r
-testdata/Prelude.lc 38:21-38:25  List _p
-testdata/Prelude.lc 38:22-38:23  forall a . a -> List a -> List a
-testdata/Prelude.lc 38:23-38:25  List _f
-testdata/Prelude.lc 38:26-38:27  _n
-testdata/Prelude.lc 38:26-38:28  List _m -> List _m
-testdata/Prelude.lc 38:26-38:30  ((List _i)) | List _k
-testdata/Prelude.lc 38:27-38:28  forall a . a -> List a -> List a
-testdata/Prelude.lc 38:28-38:30  List _f
-testdata/Prelude.lc 39:10-39:12  HList _c -> _b | _c -> HList _b -> _a | _d | _h | _k
-testdata/Prelude.lc 39:10-39:15  (List _e, List _d) | (List _f, List _e)
-testdata/Prelude.lc 39:13-39:15  HList _c -> _b | _c | _c -> HList _b -> _a | _f
-testdata/Prelude.lc 39:19-39:24  forall a b . List (a, b) -> (List a, List b)
-testdata/Prelude.lc 39:19-39:27  (List _b, List _a)
-testdata/Prelude.lc 39:25-39:27  List _r
-testdata/Prelude.lc 41:1-41:7  forall a . (a -> Bool) -> List a -> List a
-testdata/Prelude.lc 41:21-41:23  forall a . List a
-testdata/Prelude.lc 41:21-44:49  List _a -> List _a | _a -> _a
-testdata/Prelude.lc 42:22-44:49  List _c | List _c -> List _b | _b -> List _b -> List _a
-testdata/Prelude.lc 42:27-42:31  _g
-testdata/Prelude.lc 42:32-42:33  _f
-testdata/Prelude.lc 43:32-44:49  Bool -> List _f
-testdata/Prelude.lc 43:33-43:34  _h
-testdata/Prelude.lc 43:33-43:36  List _g -> List _g
-testdata/Prelude.lc 43:33-43:51  List _f
-testdata/Prelude.lc 43:35-43:36  forall a . a -> List a -> List a
-testdata/Prelude.lc 43:37-43:43  _j -> List _f -> List _f
-testdata/Prelude.lc 43:37-43:48  List _f -> List _f
-testdata/Prelude.lc 43:37-43:51  List _f
-testdata/Prelude.lc 43:44-43:48  _j
-testdata/Prelude.lc 43:49-43:51  List _f
-testdata/Prelude.lc 44:34-44:40  _m
-testdata/Prelude.lc 44:41-44:45  _n
-testdata/Prelude.lc 44:46-44:48  List _k
-testdata/Prelude.lc 49:9-49:12  Type
-testdata/Prelude.lc 49:9-49:19  Type
-testdata/Prelude.lc 49:10-49:11  _b
-testdata/Prelude.lc 49:16-49:19  Type
-testdata/Prelude.lc 49:17-49:18  Type
-testdata/Prelude.lc 50:1-50:5  forall a . List a -> List a
-testdata/Prelude.lc 50:16-50:18  List _a -> List _a | List _b | List _c -> _b | List _d | _b -> List _b -> _a
-testdata/Prelude.lc 52:10-52:13  Type
-testdata/Prelude.lc 52:10-52:25  Type
-testdata/Prelude.lc 52:11-52:12  _b
-testdata/Prelude.lc 52:17-52:25  Type
-testdata/Prelude.lc 52:18-52:24  Type
-testdata/Prelude.lc 52:19-52:20  Type
-testdata/Prelude.lc 52:19-52:23  List Type
-testdata/Prelude.lc 52:22-52:23  List Type | Type
-testdata/Prelude.lc 53:1-53:6  forall a . List a -> List (a, a)
-testdata/Prelude.lc 53:11-53:14  forall a b . List a -> List b -> List (a, b)
-testdata/Prelude.lc 53:11-53:16  List _a -> List (_c, _a)
-testdata/Prelude.lc 53:11-53:25  List (_b, _b) | List _a -> List (_a, _a)
-testdata/Prelude.lc 53:15-53:16  List _d
-testdata/Prelude.lc 53:18-53:22  forall a . List a -> List a
-testdata/Prelude.lc 53:18-53:24  List _b
-testdata/Prelude.lc 53:23-53:24  List _c
-testdata/Prelude.lc 55:1-55:7  forall a b . (a -> b -> a) -> a -> List b -> a
-testdata/Prelude.lc 55:17-55:18  _f
-testdata/Prelude.lc 55:17-56:41  List _b -> _f | _a -> _a
-testdata/Prelude.lc 56:22-56:28  _k
-testdata/Prelude.lc 56:22-56:41  List _b -> _f | _a -> List _a -> _e
-testdata/Prelude.lc 56:29-56:30  _l
-testdata/Prelude.lc 56:32-56:33  _m
-testdata/Prelude.lc 56:34-56:35  _n
-testdata/Prelude.lc 56:36-56:37  _k
-testdata/Prelude.lc 56:39-56:41  List _h
-testdata/Prelude.lc 58:1-58:7  forall a . (a -> a -> a) -> List a -> a
-testdata/Prelude.lc 58:20-58:25  forall a b . (b -> a -> a) -> a -> List b -> a
-testdata/Prelude.lc 58:20-58:27  _b -> List _a -> _b
-testdata/Prelude.lc 58:20-58:29  List _a -> _e
-testdata/Prelude.lc 58:20-58:32  List _c -> _b | _b -> List _b -> _a | _c
-testdata/Prelude.lc 58:26-58:27  _j
-testdata/Prelude.lc 58:28-58:29  _f
-testdata/Prelude.lc 58:30-58:32  List _d
-testdata/Prelude.lc 60:1-60:6  forall a . List a -> (List a, List a)
-testdata/Prelude.lc 60:12-60:20  (List _b, List _a)
-testdata/Prelude.lc 60:12-61:55  List _b -> (List _b, List _a) | _a -> _a
-testdata/Prelude.lc 60:13-60:15  forall a . List a
-testdata/Prelude.lc 60:17-60:19  ((List _a)) | forall a . List a
-testdata/Prelude.lc 61:17-61:28  (List _i, _c)
-testdata/Prelude.lc 61:17-61:55  List _d -> (List _c, List _b) | _c -> List _c -> (List _b, List _a)
-testdata/Prelude.lc 61:18-61:19  _m
-testdata/Prelude.lc 61:18-61:20  List _l -> List _l
-testdata/Prelude.lc 61:18-61:23  List _j
-testdata/Prelude.lc 61:19-61:20  forall a . a -> List a -> List a
-testdata/Prelude.lc 61:21-61:23  _d
-testdata/Prelude.lc 61:25-61:27  ((_c)) | _f
-testdata/Prelude.lc 61:37-61:39  HList _c -> _b | _c -> HList _b -> _a | _d | _h | _k
-testdata/Prelude.lc 61:37-61:43  (_e, _d) | _d
-testdata/Prelude.lc 61:41-61:43  HList _c -> _b | _c | _c -> HList _b -> _a | _f
-testdata/Prelude.lc 61:47-61:52  _i
-testdata/Prelude.lc 61:53-61:55  List _h
-testdata/Prelude.lc 63:1-63:8  forall a . (a -> a -> Ordering) -> List a -> List a -> List a
-testdata/Prelude.lc 63:27-65:32  List _b -> _i | List _e | _a -> List _a -> _h
-testdata/Prelude.lc 63:27-67:21  List _b -> _d | List _c | List _c -> List _c | _a -> List _a -> _c | _a -> _a
-testdata/Prelude.lc 63:32-63:33  _j
-testdata/Prelude.lc 63:34-63:35  _h
-testdata/Prelude.lc 63:36-63:37  _i
-testdata/Prelude.lc 64:11-64:12  _j
-testdata/Prelude.lc 64:11-64:13  List _i -> List _i
-testdata/Prelude.lc 64:11-64:33  List _h
-testdata/Prelude.lc 64:11-65:32  List _g -> Ordering -> List _g
-testdata/Prelude.lc 64:12-64:13  forall a . a -> List a -> List a
-testdata/Prelude.lc 64:14-64:21  _p
-testdata/Prelude.lc 64:22-64:23  _q
-testdata/Prelude.lc 64:24-64:26  List _l
-testdata/Prelude.lc 64:28-64:29  _j
-testdata/Prelude.lc 64:28-64:30  List _i -> List _i
-testdata/Prelude.lc 64:28-64:32  List _i
-testdata/Prelude.lc 64:29-64:30  forall a . a -> List a -> List a
-testdata/Prelude.lc 64:30-64:32  List _i
-testdata/Prelude.lc 65:10-65:11  _f | _h
-testdata/Prelude.lc 65:10-65:12  List _e -> List _e | List _g -> List _g
-testdata/Prelude.lc 65:10-65:32  List _g
-testdata/Prelude.lc 65:11-65:12  forall a . a -> List a -> List a
-testdata/Prelude.lc 65:13-65:20  _m -> List _g -> List _g -> List _g
-testdata/Prelude.lc 65:13-65:22  List _g -> List _g -> List _g
-testdata/Prelude.lc 65:13-65:29  List _g -> List _g
-testdata/Prelude.lc 65:13-65:32  List _g
-testdata/Prelude.lc 65:21-65:22  _m
-testdata/Prelude.lc 65:24-65:25  _h
-testdata/Prelude.lc 65:24-65:26  List _g -> List _g
-testdata/Prelude.lc 65:24-65:28  List _g
-testdata/Prelude.lc 65:25-65:26  forall a . a -> List a -> List a
-testdata/Prelude.lc 65:26-65:28  List _g
-testdata/Prelude.lc 65:30-65:32  List _g
-testdata/Prelude.lc 66:19-66:21  _d
-testdata/Prelude.lc 67:19-67:21  _i
-testdata/Prelude.lc 69:1-69:7  forall a . (a -> a -> Ordering) -> List a -> List a
-testdata/Prelude.lc 69:15-69:17  forall a . List a
-testdata/Prelude.lc 69:15-71:71  List _b -> List _b | _a -> _a
-testdata/Prelude.lc 70:16-70:19  List _e
-testdata/Prelude.lc 70:16-71:71  List _b -> List _f | List _c -> List _b | List _d | _b -> List _b -> List _a
-testdata/Prelude.lc 70:17-70:18  _g
-testdata/Prelude.lc 71:15-71:22  forall a b c . (a -> c -> b) -> (a, c) -> b
-testdata/Prelude.lc 71:15-71:34  (List _a, List _a) -> List _a
-testdata/Prelude.lc 71:15-71:71  List _b -> List _f | List _h | _a -> List _a -> List _e
-testdata/Prelude.lc 71:24-71:31  forall a . (a -> a -> Ordering) -> List a -> List a -> List a
-testdata/Prelude.lc 71:24-71:33  List _a -> List _a -> List _a
-testdata/Prelude.lc 71:32-71:33  _o
-testdata/Prelude.lc 71:36-71:70  (List _h, List _h)
-testdata/Prelude.lc 71:37-71:43  _p
-testdata/Prelude.lc 71:37-71:49  (_c -> _a) -> (_d, _c) -> (_b, _a)
-testdata/Prelude.lc 71:37-71:58  (_b, _b) -> (_a, _a)
-testdata/Prelude.lc 71:44-71:45  _n -> _n -> Ordering
-testdata/Prelude.lc 71:46-71:49  forall a b c d . (a -> c) -> (b -> d) -> (a, b) -> (c, d)
-testdata/Prelude.lc 71:50-71:56  (_k -> _k -> Ordering) -> _d -> _b
-testdata/Prelude.lc 71:50-71:58  _b -> _a
-testdata/Prelude.lc 71:57-71:58  _i -> _i -> Ordering
-testdata/Prelude.lc 71:61-71:66  forall a . List a -> (List a, List a)
-testdata/Prelude.lc 71:61-71:69  (List _a, List _a)
-testdata/Prelude.lc 71:67-71:69  _k
-testdata/Prelude.lc 73:12-73:32  Type
-testdata/Prelude.lc 73:12-74:35  _a -> _a | forall a . (a -> a) -> a -> List a
-testdata/Prelude.lc 73:13-73:14  _b
-testdata/Prelude.lc 73:18-73:19  Type
-testdata/Prelude.lc 73:24-73:25  Type
-testdata/Prelude.lc 73:24-73:32  Type
-testdata/Prelude.lc 73:29-73:32  Type
-testdata/Prelude.lc 73:30-73:31  Type
-testdata/Prelude.lc 74:1-74:8  forall a . (a -> a) -> a -> List a
-testdata/Prelude.lc 74:16-74:17  _d
-testdata/Prelude.lc 74:16-74:19  List _c -> List _c
-testdata/Prelude.lc 74:16-74:35  (_a -> _a) -> _a -> List _a | List _c | _b -> List _b
-testdata/Prelude.lc 74:18-74:19  forall a . a -> List a -> List a
-testdata/Prelude.lc 74:20-74:27  forall a . (a -> a) -> a -> List a
-testdata/Prelude.lc 74:20-74:29  _c -> List _c
-testdata/Prelude.lc 74:20-74:35  List _c
-testdata/Prelude.lc 74:28-74:29  _d -> _d
-testdata/Prelude.lc 74:31-74:32  _c -> _c
-testdata/Prelude.lc 74:31-74:34  _c
-testdata/Prelude.lc 74:33-74:34  _c
-testdata/Prelude.lc 76:1-76:4  forall a b . (a, b) -> a
-testdata/Prelude.lc 76:14-76:15  HList _c -> _b | _c -> HList _b -> _a | _d | _h | _k
-testdata/Prelude.lc 77:1-77:4  forall a b . (a, b) -> b
-testdata/Prelude.lc 77:14-77:15  HList _c -> _b | _c | _c -> HList _b -> _a | _f
-testdata/Prelude.lc 79:7-79:10  Bool -> Bool -> Bool
-testdata/Prelude.lc 79:15-79:16  _c
-testdata/Prelude.lc 79:15-80:18  Bool -> Bool
-testdata/Prelude.lc 80:14-80:18  Bool
-testdata/Prelude.lc 84:6-84:9  Bool -> Bool -> Bool
-testdata/Prelude.lc 84:14-84:15  _b
-testdata/Prelude.lc 84:14-85:20  Bool -> Bool
-testdata/Prelude.lc 85:15-85:20  Bool
-testdata/Prelude.lc 122:6-122:13  Type
-testdata/Prelude.lc 122:6-122:23  Type
-testdata/Prelude.lc 122:6-122:35  Type
-testdata/Prelude.lc 122:16-122:23  RecItem | String -> Type -> RecItem | Type
-testdata/Prelude.lc 122:24-122:30  Type
-testdata/Prelude.lc 122:31-122:35  Type
-testdata/Prelude.lc 124:1-124:12  RecItem -> Type
-testdata/Prelude.lc 124:29-124:30  String -> Type -> _a | Type | Type -> _b
-testdata/Prelude.lc 126:6-126:13  List RecItem -> Type | Type
-testdata/Prelude.lc 126:6-126:17  Type
-testdata/Prelude.lc 126:6-127:17  Type
-testdata/Prelude.lc 126:6-127:46  Type
-testdata/Prelude.lc 126:15-126:17  List RecItem
-testdata/Prelude.lc 126:21-126:30  Type
-testdata/Prelude.lc 126:22-126:29  Type
-testdata/Prelude.lc 127:7-127:17  RecordC _c | Type | forall (a :: List RecItem) . HList (map RecItem Type recItemType a) -> RecordC a
-testdata/Prelude.lc 127:19-127:24  List Type -> Type
-testdata/Prelude.lc 127:19-127:45  Type
-testdata/Prelude.lc 127:26-127:29  forall a b . (a -> b) -> List a -> List b
-testdata/Prelude.lc 127:26-127:41  List RecItem -> List Type
-testdata/Prelude.lc 127:26-127:44  List Type
-testdata/Prelude.lc 127:30-127:41  RecItem -> Type
-testdata/Prelude.lc 127:42-127:44  List RecItem
-testdata/Prelude.lc 129:1-129:7  String -> Type -> List RecItem -> Type
-testdata/Prelude.lc 129:17-129:23  String -> Type
-testdata/Prelude.lc 129:17-129:26  Type
-testdata/Prelude.lc 129:17-130:75  List RecItem -> Type | _a -> _a
-testdata/Prelude.lc 129:24-129:26  String
-testdata/Prelude.lc 130:34-130:75  List _b -> Type | String -> Type -> _a | Type | Type -> _b | _a -> List _a -> Type
-testdata/Prelude.lc 130:37-130:38  _o
-testdata/Prelude.lc 130:37-130:41  _n -> Bool
-testdata/Prelude.lc 130:37-130:44  Bool
-testdata/Prelude.lc 130:37-130:56  Type -> Type
-testdata/Prelude.lc 130:39-130:41  forall a . Eq a => a -> a -> Bool
-testdata/Prelude.lc 130:42-130:44  String
-testdata/Prelude.lc 130:50-130:51  _l
-testdata/Prelude.lc 130:50-130:53  _k -> Type
-testdata/Prelude.lc 130:50-130:56  Type
-testdata/Prelude.lc 130:52-130:53  forall a . a -> a -> Type
-testdata/Prelude.lc 130:54-130:56  Type
-testdata/Prelude.lc 130:62-130:68  _k
-testdata/Prelude.lc 130:69-130:70  String
-testdata/Prelude.lc 130:71-130:72  Type
-testdata/Prelude.lc 130:73-130:75  List _i
-testdata/Prelude.lc 132:1-132:7  forall a (b :: List Type) . HList ('Cons a b) -> a
-testdata/Prelude.lc 132:10-132:23  forall a (b :: List Type) . forall c -> (a -> HList b -> c) -> HList ('Cons a b) -> c
-testdata/Prelude.lc 132:10-132:25  (_c -> HList _b -> _a) -> HList ('Cons _c _b) -> _a
-testdata/Prelude.lc 132:10-132:37  HList ('Cons _b _a) -> _b
-testdata/Prelude.lc 132:27-132:36  _c -> HList _b -> _a
-testdata/Prelude.lc 132:35-132:36  HList _c -> _b | _e
-testdata/Prelude.lc 133:1-133:7  forall a (b :: List Type) . HList ('Cons a b) -> HList b
-testdata/Prelude.lc 133:10-133:23  forall a (b :: List Type) . forall c -> (a -> HList b -> c) -> HList ('Cons a b) -> c
-testdata/Prelude.lc 133:10-133:25  (_c -> HList _b -> _a) -> HList ('Cons _c _b) -> _a
-testdata/Prelude.lc 133:10-133:37  HList ('Cons _b _a) -> HList _a
-testdata/Prelude.lc 133:27-133:36  _c -> HList _b -> _a
-testdata/Prelude.lc 133:35-133:36  HList _c -> _b | HList _d
-testdata/Prelude.lc 136:12-138:181  _a -> _a | forall a (b :: List RecItem) . forall (c :: String) -> isKeyC c a b => RecordC b -> a
-testdata/Prelude.lc 136:28-136:37  Type
-testdata/Prelude.lc 136:28-136:97  Type
-testdata/Prelude.lc 136:29-136:36  Type
-testdata/Prelude.lc 136:41-136:97  Type
-testdata/Prelude.lc 136:54-136:60  Type
-testdata/Prelude.lc 136:65-136:71  String -> Type -> List RecItem -> Type
-testdata/Prelude.lc 136:65-136:73  Type -> List RecItem -> Type
-testdata/Prelude.lc 136:65-136:75  List RecItem -> Type
-testdata/Prelude.lc 136:65-136:78  Type
-testdata/Prelude.lc 136:65-136:97  Type
-testdata/Prelude.lc 136:72-136:73  String
-testdata/Prelude.lc 136:74-136:75  _d
-testdata/Prelude.lc 136:76-136:78  List RecItem
-testdata/Prelude.lc 136:82-136:89  List RecItem -> Type
-testdata/Prelude.lc 136:82-136:92  Type
-testdata/Prelude.lc 136:82-136:97  Type
-testdata/Prelude.lc 136:90-136:92  List RecItem
-testdata/Prelude.lc 136:96-136:97  Type
-testdata/Prelude.lc 137:1-137:8  forall a (b :: List RecItem) . forall (c :: String) -> isKeyC c a b => RecordC b -> a
-testdata/Prelude.lc 137:57-137:58  String
-testdata/Prelude.lc 137:57-137:61  String -> Bool
-testdata/Prelude.lc 137:57-137:64  Bool
-testdata/Prelude.lc 137:57-138:181  HList (map RecItem Type recItemType _b) -> _a | List _c -> _b | RecordC _c -> _d | String -> Type -> _a | Type -> _b | _b -> List _b -> _a | _e | _g | _j | _m | forall (a :: List RecItem) . forall (b :: String) -> isKeyC b _a a => RecordC a -> _a | forall (a :: String) -> isKeyC a _b _a => RecordC _a -> _b | forall a (b :: List RecItem) . forall (c :: String) -> isKeyC c a b => RecordC b -> a | isKeyC _a _c _b => RecordC _b -> _c
-testdata/Prelude.lc 137:59-137:61  forall a . Eq a => a -> a -> Bool
-testdata/Prelude.lc 137:62-137:64  String
-testdata/Prelude.lc 137:67-137:73  forall a (b :: List Type) . HList ('Cons a b) -> a
-testdata/Prelude.lc 137:67-137:129  _n
-testdata/Prelude.lc 137:67-138:181  Bool -> _n
-testdata/Prelude.lc 137:75-137:87  forall a b . a -> b
-testdata/Prelude.lc 137:75-137:90  forall a . _a -> a
-testdata/Prelude.lc 137:75-137:125  _a -> HList ('Cons _q (map RecItem Type recItemType _j))
-testdata/Prelude.lc 137:75-137:128  HList ('Cons _n (map RecItem Type recItemType _g))
-testdata/Prelude.lc 137:93-137:98  List Type -> Type
-testdata/Prelude.lc 137:93-137:124  Type
-testdata/Prelude.lc 137:101-137:102  Type
-testdata/Prelude.lc 137:101-137:104  List Type -> List Type
-testdata/Prelude.lc 137:101-137:123  List Type
-testdata/Prelude.lc 137:103-137:104  forall a . a -> List a -> List a
-testdata/Prelude.lc 137:105-137:108  forall a b . (a -> b) -> List a -> List b
-testdata/Prelude.lc 137:105-137:120  List RecItem -> List Type
-testdata/Prelude.lc 137:105-137:123  List Type
-testdata/Prelude.lc 137:109-137:120  RecItem -> Type
-testdata/Prelude.lc 137:121-137:123  List RecItem
-testdata/Prelude.lc 137:126-137:128  HList (map RecItem Type recItemType _d)
-testdata/Prelude.lc 138:57-138:64  forall a (b :: List RecItem) . forall (c :: String) -> isKeyC c a b => RecordC b -> a
-testdata/Prelude.lc 138:57-138:67  forall (a :: List RecItem) . forall (b :: String) -> isKeyC b _p a => RecordC a -> _p
-testdata/Prelude.lc 138:57-138:71  forall (a :: String) -> isKeyC a _o _h => RecordC _h -> _o
-testdata/Prelude.lc 138:57-138:73  isKeyC _m _o _h => RecordC _h -> _o
-testdata/Prelude.lc 138:57-138:103  RecordC _h -> _o
-testdata/Prelude.lc 138:57-138:181  _n
-testdata/Prelude.lc 138:66-138:67  Type
-testdata/Prelude.lc 138:69-138:71  List _k
-testdata/Prelude.lc 138:72-138:73  String
-testdata/Prelude.lc 138:76-138:85  forall a . a
-testdata/Prelude.lc 138:76-138:102  isKeyC _m _o _h
-testdata/Prelude.lc 138:88-138:94  String -> Type -> List RecItem -> Type
-testdata/Prelude.lc 138:88-138:96  Type -> List RecItem -> Type
-testdata/Prelude.lc 138:88-138:98  List RecItem -> Type
-testdata/Prelude.lc 138:88-138:101  Type
-testdata/Prelude.lc 138:95-138:96  String
-testdata/Prelude.lc 138:97-138:98  Type
-testdata/Prelude.lc 138:99-138:101  List RecItem
-testdata/Prelude.lc 138:105-138:115  forall (a :: List RecItem) . HList (map RecItem Type recItemType a) -> RecordC a
-testdata/Prelude.lc 138:105-138:180  RecordC _b
-testdata/Prelude.lc 138:117-138:123  forall a (b :: List Type) . HList ('Cons a b) -> HList b
-testdata/Prelude.lc 138:117-138:179  HList (map RecItem Type recItemType _h)
-testdata/Prelude.lc 138:125-138:137  forall a b . a -> b
-testdata/Prelude.lc 138:125-138:140  forall a . _a -> a
-testdata/Prelude.lc 138:125-138:175  _a -> HList ('Cons _r (map RecItem Type recItemType _k))
-testdata/Prelude.lc 138:125-138:178  HList ('Cons _o (map RecItem Type recItemType _h))
-testdata/Prelude.lc 138:143-138:148  List Type -> Type
-testdata/Prelude.lc 138:143-138:174  Type
-testdata/Prelude.lc 138:151-138:152  Type
-testdata/Prelude.lc 138:151-138:154  List Type -> List Type
-testdata/Prelude.lc 138:151-138:173  List Type
-testdata/Prelude.lc 138:153-138:154  forall a . a -> List a -> List a
-testdata/Prelude.lc 138:155-138:158  forall a b . (a -> b) -> List a -> List b
-testdata/Prelude.lc 138:155-138:170  List RecItem -> List Type
-testdata/Prelude.lc 138:155-138:173  List Type
-testdata/Prelude.lc 138:159-138:170  RecItem -> Type
-testdata/Prelude.lc 138:171-138:173  List RecItem
-testdata/Prelude.lc 138:176-138:178  HList (map RecItem Type recItemType _e)
-testdata/Prelude.lc 142:1-142:4  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 142:13-142:15  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 142:13-142:17  _f -> _f -> _f -> VecS _f 4
-testdata/Prelude.lc 142:13-142:19  _e -> _e -> VecS _e 4
-testdata/Prelude.lc 142:13-142:21  _d -> VecS _d 4
-testdata/Prelude.lc 142:13-142:25  VecS Float 4
-testdata/Prelude.lc 142:16-142:17  _g
-testdata/Prelude.lc 142:18-142:19  _d
-testdata/Prelude.lc 142:20-142:21  _b
-testdata/Prelude.lc 142:22-142:25  Float
-testdata/Prelude.lc 144:1-144:6  VecS Float 4
-testdata/Prelude.lc 144:11-144:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 144:11-144:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 144:11-144:22  Float -> VecS Float 4
-testdata/Prelude.lc 144:11-144:26  VecS Float 4
-testdata/Prelude.lc 144:15-144:18  Float
-testdata/Prelude.lc 144:19-144:22  Float
-testdata/Prelude.lc 144:23-144:26  Float
-testdata/Prelude.lc 145:1-145:5  VecS Float 4
-testdata/Prelude.lc 145:11-145:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 145:11-145:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 145:11-145:22  Float -> VecS Float 4
-testdata/Prelude.lc 145:11-145:26  VecS Float 4
-testdata/Prelude.lc 145:15-145:18  Float
-testdata/Prelude.lc 145:19-145:22  Float
-testdata/Prelude.lc 145:23-145:26  Float
-testdata/Prelude.lc 146:1-146:7  VecS Float 4
-testdata/Prelude.lc 146:11-146:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 146:11-146:19  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 146:11-146:24  Float -> VecS Float 4
-testdata/Prelude.lc 146:11-146:29  VecS Float 4
-testdata/Prelude.lc 146:15-146:19  Float
-testdata/Prelude.lc 146:20-146:24  Float
-testdata/Prelude.lc 146:25-146:29  Float
-testdata/Prelude.lc 147:1-147:6  VecS Float 4
-testdata/Prelude.lc 147:11-147:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 147:11-147:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 147:11-147:22  Float -> VecS Float 4
-testdata/Prelude.lc 147:11-147:26  VecS Float 4
-testdata/Prelude.lc 147:15-147:18  Float
-testdata/Prelude.lc 147:19-147:22  Float
-testdata/Prelude.lc 147:23-147:26  Float
-testdata/Prelude.lc 148:1-148:7  VecS Float 4
-testdata/Prelude.lc 148:11-148:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 148:11-148:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 148:11-148:22  Float -> VecS Float 4
-testdata/Prelude.lc 148:11-148:26  VecS Float 4
-testdata/Prelude.lc 148:15-148:18  Float
-testdata/Prelude.lc 148:19-148:22  Float
-testdata/Prelude.lc 148:23-148:26  Float
-testdata/Prelude.lc 149:1-149:4  VecS Float 4
-testdata/Prelude.lc 149:11-149:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 149:11-149:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 149:11-149:22  Float -> VecS Float 4
-testdata/Prelude.lc 149:11-149:26  VecS Float 4
-testdata/Prelude.lc 149:15-149:18  Float
-testdata/Prelude.lc 149:19-149:22  Float
-testdata/Prelude.lc 149:23-149:26  Float
-testdata/Prelude.lc 150:1-150:6  VecS Float 4
-testdata/Prelude.lc 150:11-150:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 150:11-150:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 150:11-150:22  Float -> VecS Float 4
-testdata/Prelude.lc 150:11-150:26  VecS Float 4
-testdata/Prelude.lc 150:15-150:18  Float
-testdata/Prelude.lc 150:19-150:22  Float
-testdata/Prelude.lc 150:23-150:26  Float
-testdata/Prelude.lc 151:1-151:7  VecS Float 4
-testdata/Prelude.lc 151:11-151:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 151:11-151:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 151:11-151:22  Float -> VecS Float 4
-testdata/Prelude.lc 151:11-151:26  VecS Float 4
-testdata/Prelude.lc 151:15-151:18  Float
-testdata/Prelude.lc 151:19-151:22  Float
-testdata/Prelude.lc 151:23-151:26  Float
-testdata/Prelude.lc 152:1-152:6  VecS Float 4
-testdata/Prelude.lc 152:11-152:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 152:11-152:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 152:11-152:22  Float -> VecS Float 4
-testdata/Prelude.lc 152:11-152:26  VecS Float 4
-testdata/Prelude.lc 152:15-152:18  Float
-testdata/Prelude.lc 152:19-152:22  Float
-testdata/Prelude.lc 152:23-152:26  Float
-testdata/Prelude.lc 153:1-153:5  VecS Float 4
-testdata/Prelude.lc 153:11-153:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 153:11-153:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 153:11-153:22  Float -> VecS Float 4
-testdata/Prelude.lc 153:11-153:26  VecS Float 4
-testdata/Prelude.lc 153:15-153:18  Float
-testdata/Prelude.lc 153:19-153:22  Float
-testdata/Prelude.lc 153:23-153:26  Float
-testdata/Prelude.lc 154:1-154:5  VecS Float 4
-testdata/Prelude.lc 154:11-154:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 154:11-154:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 154:11-154:22  Float -> VecS Float 4
-testdata/Prelude.lc 154:11-154:26  VecS Float 4
-testdata/Prelude.lc 154:15-154:18  Float
-testdata/Prelude.lc 154:19-154:22  Float
-testdata/Prelude.lc 154:23-154:26  Float
-testdata/Prelude.lc 155:1-155:5  VecS Float 4
-testdata/Prelude.lc 155:11-155:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 155:11-155:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 155:11-155:22  Float -> VecS Float 4
-testdata/Prelude.lc 155:11-155:26  VecS Float 4
-testdata/Prelude.lc 155:15-155:18  Float
-testdata/Prelude.lc 155:19-155:22  Float
-testdata/Prelude.lc 155:23-155:26  Float
-testdata/Prelude.lc 156:1-156:5  VecS Float 4
-testdata/Prelude.lc 156:11-156:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 156:11-156:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 156:11-156:22  Float -> VecS Float 4
-testdata/Prelude.lc 156:11-156:26  VecS Float 4
-testdata/Prelude.lc 156:15-156:18  Float
-testdata/Prelude.lc 156:19-156:22  Float
-testdata/Prelude.lc 156:23-156:26  Float
-testdata/Prelude.lc 157:1-157:5  VecS Float 4
-testdata/Prelude.lc 157:11-157:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 157:11-157:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 157:11-157:22  Float -> VecS Float 4
-testdata/Prelude.lc 157:11-157:26  VecS Float 4
-testdata/Prelude.lc 157:15-157:18  Float
-testdata/Prelude.lc 157:19-157:22  Float
-testdata/Prelude.lc 157:23-157:26  Float
-testdata/Prelude.lc 158:1-158:7  VecS Float 4
-testdata/Prelude.lc 158:11-158:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 158:11-158:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 158:11-158:22  Float -> VecS Float 4
-testdata/Prelude.lc 158:11-158:26  VecS Float 4
-testdata/Prelude.lc 158:15-158:18  Float
-testdata/Prelude.lc 158:19-158:22  Float
-testdata/Prelude.lc 158:23-158:26  Float
-testdata/Prelude.lc 159:1-159:8  VecS Float 4
-testdata/Prelude.lc 159:11-159:14  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 159:11-159:18  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 159:11-159:22  Float -> VecS Float 4
-testdata/Prelude.lc 159:11-159:26  VecS Float 4
-testdata/Prelude.lc 159:15-159:18  Float
-testdata/Prelude.lc 159:19-159:22  Float
-testdata/Prelude.lc 159:23-159:26  Float
-testdata/Prelude.lc 161:1-161:12  forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
-testdata/Prelude.lc 161:15-161:25  forall (a :: Nat) (b :: Nat) c d . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
-testdata/Prelude.lc 161:15-161:28  forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
-testdata/Prelude.lc 161:27-161:28  _b
-testdata/Prelude.lc 162:1-162:12  forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 2 ('Color c)
-testdata/Prelude.lc 162:15-162:25  forall (a :: Nat) (b :: Nat) c d . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
-testdata/Prelude.lc 162:15-162:28  forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 2 ('Color c)
-testdata/Prelude.lc 162:27-162:28  _b
-testdata/Prelude.lc 164:1-164:12  Float -> Image 1 'Depth
-testdata/Prelude.lc 164:15-164:25  forall (a :: Nat) . Float -> Image a 'Depth
-testdata/Prelude.lc 164:15-164:28  Float -> Image 1 'Depth
-testdata/Prelude.lc 164:27-164:28  _b
-testdata/Prelude.lc 166:13-166:16  Nat -> Type -> Type
-testdata/Prelude.lc 166:13-166:18  Type -> Type
-testdata/Prelude.lc 166:13-166:24  Type
-testdata/Prelude.lc 166:17-166:18  _b
-testdata/Prelude.lc 166:19-166:24  Type
-testdata/Prelude.lc 166:28-166:31  Nat -> Type -> Type
-testdata/Prelude.lc 166:28-166:33  Type -> Type
-testdata/Prelude.lc 166:28-166:39  Type
-testdata/Prelude.lc 166:32-166:33  _b
-testdata/Prelude.lc 166:34-166:39  Type
-testdata/Prelude.lc 167:1-167:9  Vec 3 Float -> VecS Float 4
-testdata/Prelude.lc 167:14-167:16  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 167:14-167:20  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 167:14-167:24  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 167:14-167:28  Float -> VecS Float 4
-testdata/Prelude.lc 167:14-167:30  Vec 3 Float -> Vec 4 Float | VecS Float 4
-testdata/Prelude.lc 167:17-167:18  Vec 3 Float
-testdata/Prelude.lc 167:17-167:20  Float
-testdata/Prelude.lc 167:21-167:22  Vec 3 Float
-testdata/Prelude.lc 167:21-167:24  Float
-testdata/Prelude.lc 167:25-167:26  Vec 3 Float
-testdata/Prelude.lc 167:25-167:28  Float
-testdata/Prelude.lc 167:29-167:30  _b
-testdata/Prelude.lc 174:1-174:8  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 174:11-174:22  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 175:1-175:8  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 175:11-175:22  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 176:1-176:4  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 176:7-176:14  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 177:1-177:4  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 177:7-177:14  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 178:1-178:4  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 178:7-178:14  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 179:1-179:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 179:8-179:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 180:1-180:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 180:8-180:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 181:1-181:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 181:8-181:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 182:1-182:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 182:8-182:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 183:1-183:6  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 183:9-183:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 184:1-184:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 184:8-184:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 185:1-185:6  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 185:9-185:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 186:1-186:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 186:8-186:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 187:1-187:6  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 187:9-187:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 188:1-188:6  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-testdata/Prelude.lc 188:9-188:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-testdata/Prelude.lc 191:1-191:4  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-testdata/Prelude.lc 191:7-191:14  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-testdata/Prelude.lc 192:1-192:4  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 192:7-192:14  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 193:1-193:4  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 193:7-193:14  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 194:1-194:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 194:8-194:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 195:1-195:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 195:8-195:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 196:1-196:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 196:8-196:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 197:1-197:12  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 197:15-197:26  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 200:1-200:4  forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-testdata/Prelude.lc 200:7-200:14  forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-testdata/Prelude.lc 201:1-201:5  forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-testdata/Prelude.lc 201:8-201:16  forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
-testdata/Prelude.lc 202:1-202:6  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 202:9-202:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 203:1-203:6  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 203:9-203:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 204:1-204:6  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 204:9-204:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 205:1-205:10  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 205:13-205:26  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 206:1-206:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 206:8-206:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 207:1-207:6  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 207:9-207:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 208:1-208:4  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 208:7-208:14  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 209:1-209:4  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 209:7-209:14  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 210:1-210:4  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 210:7-210:14  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 211:1-211:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
-testdata/Prelude.lc 211:8-211:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
-testdata/Prelude.lc 212:1-212:6  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
-testdata/Prelude.lc 212:9-212:18  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
-testdata/Prelude.lc 213:1-213:7  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
-testdata/Prelude.lc 213:10-213:20  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
-testdata/Prelude.lc 214:1-214:4  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-testdata/Prelude.lc 214:7-214:14  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-testdata/Prelude.lc 215:1-215:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
-testdata/Prelude.lc 215:8-215:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
-testdata/Prelude.lc 216:1-216:5  forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
-testdata/Prelude.lc 216:8-216:16  forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
-testdata/Prelude.lc 217:1-217:5  forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
-testdata/Prelude.lc 217:8-217:16  forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
-testdata/Prelude.lc 218:1-218:6  forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
-testdata/Prelude.lc 218:9-218:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
-testdata/Prelude.lc 219:1-219:11  forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
-testdata/Prelude.lc 219:14-219:28  forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
-testdata/Prelude.lc 220:1-220:12  forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
-testdata/Prelude.lc 220:15-220:30  forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
-testdata/Prelude.lc 221:1-221:6  forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-testdata/Prelude.lc 221:9-221:18  forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-testdata/Prelude.lc 222:1-222:6  forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-testdata/Prelude.lc 222:9-222:18  forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
-testdata/Prelude.lc 224:1-224:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 224:8-224:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 225:1-225:5  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 225:8-225:16  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 226:1-226:7  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 226:10-226:20  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 228:1-228:7  forall (a :: Nat) . VecScalar a Float -> Float
-testdata/Prelude.lc 228:10-228:20  forall (a :: Nat) . VecScalar a Float -> Float
-testdata/Prelude.lc 229:1-229:7  forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
-testdata/Prelude.lc 229:10-229:20  forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
-testdata/Prelude.lc 230:1-230:7  forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
-testdata/Prelude.lc 230:10-230:20  forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
-testdata/Prelude.lc 231:1-231:7  forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
-testdata/Prelude.lc 231:10-231:20  forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
-testdata/Prelude.lc 234:1-234:7  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
-testdata/Prelude.lc 234:10-234:20  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
-testdata/Prelude.lc 235:1-235:9  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-testdata/Prelude.lc 235:12-235:24  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-testdata/Prelude.lc 236:1-236:4  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-testdata/Prelude.lc 236:7-236:14  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
-testdata/Prelude.lc 237:1-237:6  forall a . (a ~ VecS Float 3) => a -> a -> a
-testdata/Prelude.lc 237:9-237:18  forall a . (a ~ VecS Float 3) => a -> a -> a
-testdata/Prelude.lc 238:1-238:10  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 238:13-238:26  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 239:1-239:12  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-testdata/Prelude.lc 239:15-239:30  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-testdata/Prelude.lc 240:1-240:8  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-testdata/Prelude.lc 240:11-240:22  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
-testdata/Prelude.lc 241:1-241:8  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-testdata/Prelude.lc 241:11-241:22  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
-testdata/Prelude.lc 243:1-243:10  forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
-testdata/Prelude.lc 243:13-243:26  forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
-testdata/Prelude.lc 244:1-244:4  forall (a :: Nat) b . Mat a a b -> Float
-testdata/Prelude.lc 244:7-244:22  forall (a :: Nat) b . Mat a a b -> Float
-testdata/Prelude.lc 245:1-245:4  forall (a :: Nat) b . Mat a a b -> Mat a a b
-testdata/Prelude.lc 245:7-245:18  forall (a :: Nat) b . Mat a a b -> Mat a a b
-testdata/Prelude.lc 246:1-246:6  forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
-testdata/Prelude.lc 246:9-246:25  forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
-testdata/Prelude.lc 248:1-248:5  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 248:11-248:19  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 249:1-249:4  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 249:11-249:18  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 250:1-250:5  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 250:11-250:19  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 251:1-251:5  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
-testdata/Prelude.lc 251:11-251:19  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
-testdata/Prelude.lc 252:1-252:6  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-testdata/Prelude.lc 252:11-252:20  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-testdata/Prelude.lc 253:1-253:5  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
-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 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
-testdata/Prelude.lc 258:11-258:23  forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
-testdata/Prelude.lc 260:1-260:15  forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
-testdata/Prelude.lc 260:19-260:37  forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
-testdata/Prelude.lc 261:1-261:16  forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
-testdata/Prelude.lc 261:19-261:38  forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
-testdata/Prelude.lc 262:1-262:15  forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
-testdata/Prelude.lc 262:19-262:37  forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
-testdata/Prelude.lc 263:1-263:16  forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
-testdata/Prelude.lc 263:19-263:38  forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
-testdata/Prelude.lc 281:3-281:4  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 281:9-281:16  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 281:9-281:18  _e -> _e
-testdata/Prelude.lc 281:9-281:20  _d
-testdata/Prelude.lc 281:17-281:18  _f
-testdata/Prelude.lc 281:19-281:20  _c
-testdata/Prelude.lc 282:3-282:4  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 282:9-282:16  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 282:9-282:18  _e -> _e
-testdata/Prelude.lc 282:9-282:20  _d
-testdata/Prelude.lc 282:17-282:18  _f
-testdata/Prelude.lc 282:19-282:20  _c
-testdata/Prelude.lc 283:3-283:4  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 283:9-283:16  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 283:9-283:18  _e -> _e
-testdata/Prelude.lc 283:9-283:20  _d
-testdata/Prelude.lc 283:17-283:18  _f
-testdata/Prelude.lc 283:19-283:20  _c
-testdata/Prelude.lc 284:3-284:4  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 284:9-284:16  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 284:9-284:18  VecScalar _b _c -> VecScalar _b _c
-testdata/Prelude.lc 284:9-284:20  VecScalar _b _c
-testdata/Prelude.lc 284:17-284:18  _g
-testdata/Prelude.lc 284:19-284:20  _e
-testdata/Prelude.lc 285:3-285:4  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 285:9-285:16  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
-testdata/Prelude.lc 285:9-285:18  VecScalar _b _c -> VecScalar _b _c
-testdata/Prelude.lc 285:9-285:20  VecScalar _b _c
-testdata/Prelude.lc 285:17-285:18  _g
-testdata/Prelude.lc 285:19-285:20  _e
-testdata/Prelude.lc 287:1-287:4  forall a . Signed (MatVecScalarElem a) => a -> a
-testdata/Prelude.lc 287:9-287:16  forall a . Signed (MatVecScalarElem a) => a -> a
-testdata/Prelude.lc 287:9-287:18  _c
-testdata/Prelude.lc 287:17-287:18  _d
-testdata/Prelude.lc 291:3-291:5  forall a . a -> a -> Bool
-testdata/Prelude.lc 291:10-291:22  forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
-testdata/Prelude.lc 291:10-291:24  _d -> Bool
-testdata/Prelude.lc 291:10-291:26  Bool
-testdata/Prelude.lc 291:23-291:24  _e
-testdata/Prelude.lc 291:25-291:26  _b
-testdata/Prelude.lc 292:3-292:4  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/Prelude.lc 292:9-292:21  forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-testdata/Prelude.lc 292:9-292:23  VecScalar _c _b -> VecScalar _c Bool
-testdata/Prelude.lc 292:9-292:25  VecScalar _c Bool
-testdata/Prelude.lc 292:22-292:23  _g
-testdata/Prelude.lc 292:24-292:25  _e
-testdata/Prelude.lc 293:3-293:5  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/Prelude.lc 293:10-293:27  forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-testdata/Prelude.lc 293:10-293:29  VecScalar _c _b -> VecScalar _c Bool
-testdata/Prelude.lc 293:10-293:31  VecScalar _c Bool
-testdata/Prelude.lc 293:28-293:29  _g
-testdata/Prelude.lc 293:30-293:31  _e
-testdata/Prelude.lc 294:3-294:5  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/Prelude.lc 294:10-294:30  forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-testdata/Prelude.lc 294:10-294:32  VecScalar _c _b -> VecScalar _c Bool
-testdata/Prelude.lc 294:10-294:34  VecScalar _c Bool
-testdata/Prelude.lc 294:31-294:32  _g
-testdata/Prelude.lc 294:33-294:34  _e
-testdata/Prelude.lc 295:3-295:4  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/Prelude.lc 295:9-295:24  forall a (b :: Nat) c d . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
-testdata/Prelude.lc 295:9-295:26  VecScalar _c _b -> VecScalar _c Bool
-testdata/Prelude.lc 295:9-295:28  VecScalar _c Bool
-testdata/Prelude.lc 295:25-295:26  _g
-testdata/Prelude.lc 295:27-295:28  _e
-testdata/Prelude.lc 298:3-298:5  Bool -> Bool -> Bool
-testdata/Prelude.lc 298:10-298:17  Bool -> Bool -> Bool
-testdata/Prelude.lc 298:10-298:19  Bool -> Bool
-testdata/Prelude.lc 298:10-298:21  Bool
-testdata/Prelude.lc 298:18-298:19  _d
-testdata/Prelude.lc 298:20-298:21  _b
-testdata/Prelude.lc 299:3-299:5  Bool -> Bool -> Bool
-testdata/Prelude.lc 299:10-299:16  Bool -> Bool -> Bool
-testdata/Prelude.lc 299:10-299:18  Bool -> Bool
-testdata/Prelude.lc 299:10-299:20  Bool
-testdata/Prelude.lc 299:17-299:18  _d
-testdata/Prelude.lc 299:19-299:20  _b
-testdata/Prelude.lc 300:1-300:4  Bool -> Bool -> Bool
-testdata/Prelude.lc 300:7-300:14  Bool -> Bool -> Bool
-testdata/Prelude.lc 301:1-301:4  forall (a :: Nat) . VecScalar a Bool -> VecScalar a Bool
-testdata/Prelude.lc 301:9-301:16  forall a (b :: Nat) . (a ~ VecScalar b Bool) => a -> a
-testdata/Prelude.lc 301:9-301:18  VecScalar _a Bool
-testdata/Prelude.lc 301:17-301:18  _c
-testdata/Prelude.lc 302:1-302:4  forall (a :: Nat) . VecScalar a Bool -> Bool
-testdata/Prelude.lc 302:9-302:16  forall (a :: Nat) . VecScalar a Bool -> Bool
-testdata/Prelude.lc 302:9-302:18  Bool
-testdata/Prelude.lc 302:17-302:18  _c
-testdata/Prelude.lc 303:1-303:4  forall (a :: Nat) . VecScalar a Bool -> Bool
-testdata/Prelude.lc 303:9-303:16  forall (a :: Nat) . VecScalar a Bool -> Bool
-testdata/Prelude.lc 303:9-303:18  Bool
-testdata/Prelude.lc 303:17-303:18  _c
-testdata/Prelude.lc 306:3-306:6  forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
-testdata/Prelude.lc 306:11-306:24  forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
-testdata/Prelude.lc 306:11-306:26  Mat _c _a _b -> Mat _d _a _b
-testdata/Prelude.lc 306:11-306:28  Mat _d _a _b
-testdata/Prelude.lc 306:25-306:26  _h
-testdata/Prelude.lc 306:27-306:28  _f
-testdata/Prelude.lc 307:3-307:5  forall (a :: Nat) (b :: Nat) c . Mat a b c -> VecS c b -> Vec a c
-testdata/Prelude.lc 307:10-307:23  forall (a :: Nat) (b :: Nat) c . Mat a b c -> Vec b c -> Vec a c
-testdata/Prelude.lc 307:10-307:25  Vec _b _a -> Vec _c _a
-testdata/Prelude.lc 307:10-307:27  Vec _c _a
-testdata/Prelude.lc 307:24-307:25  _g
-testdata/Prelude.lc 307:26-307:27  _e
-testdata/Prelude.lc 308:3-308:5  forall (a :: Nat) b (c :: Nat) . VecS b a -> Mat a c b -> Vec c b
-testdata/Prelude.lc 308:10-308:23  forall (a :: Nat) b (c :: Nat) . Vec a b -> Mat a c b -> Vec c b
-testdata/Prelude.lc 308:10-308:25  Mat _c _a _b -> Vec _a _b
-testdata/Prelude.lc 308:10-308:27  Vec _a _b
-testdata/Prelude.lc 308:24-308:25  _g
-testdata/Prelude.lc 308:26-308:27  _e
-testdata/Prelude.lc 315:3-315:5  forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
-testdata/Prelude.lc 315:10-315:18  forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
-testdata/Prelude.lc 315:10-315:20  MatVecScalarElem _e -> _e
-testdata/Prelude.lc 315:10-315:22  _d
-testdata/Prelude.lc 315:19-315:20  _f
-testdata/Prelude.lc 315:21-315:22  _c
-testdata/Prelude.lc 316:3-316:5  forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
-testdata/Prelude.lc 316:10-316:18  forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
-testdata/Prelude.lc 316:10-316:20  MatVecScalarElem _e -> _e
-testdata/Prelude.lc 316:10-316:22  _d
-testdata/Prelude.lc 316:19-316:20  _f
-testdata/Prelude.lc 316:21-316:22  _c
-testdata/Prelude.lc 317:3-317:5  forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
-testdata/Prelude.lc 317:10-317:18  forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
-testdata/Prelude.lc 317:10-317:20  MatVecScalarElem _e -> _e
-testdata/Prelude.lc 317:10-317:22  _d
-testdata/Prelude.lc 317:19-317:20  _f
-testdata/Prelude.lc 317:21-317:22  _c
-testdata/Prelude.lc 318:3-318:5  forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
-testdata/Prelude.lc 318:10-318:18  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-testdata/Prelude.lc 318:10-318:20  _c -> VecScalar _b _c
-testdata/Prelude.lc 318:10-318:22  VecScalar _b _d
-testdata/Prelude.lc 318:19-318:20  _g
-testdata/Prelude.lc 318:21-318:22  _e
-testdata/Prelude.lc 319:3-319:5  forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
-testdata/Prelude.lc 319:10-319:18  forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
-testdata/Prelude.lc 319:10-319:20  _c -> VecScalar _b _c
-testdata/Prelude.lc 319:10-319:22  VecScalar _b _d
-testdata/Prelude.lc 319:19-319:20  _g
-testdata/Prelude.lc 319:21-319:22  _e
-testdata/Prelude.lc 326:16-326:21  Type
-testdata/Prelude.lc 327:16-327:21  Type
-testdata/Prelude.lc 327:16-330:29  Type
-testdata/Prelude.lc 328:16-328:21  Type
-testdata/Prelude.lc 328:16-330:29  Type
-testdata/Prelude.lc 329:16-329:21  Type
-testdata/Prelude.lc 329:16-330:29  Type
-testdata/Prelude.lc 330:16-330:19  Nat -> Nat -> Type -> Type
-testdata/Prelude.lc 330:16-330:21  Nat -> Type -> Type
-testdata/Prelude.lc 330:16-330:23  Type -> Type
-testdata/Prelude.lc 330:16-330:29  Type
-testdata/Prelude.lc 330:20-330:21  _b
-testdata/Prelude.lc 330:22-330:23  _b
-testdata/Prelude.lc 330:24-330:29  Type
-testdata/Prelude.lc 331:1-331:12  Float -> Float -> Float -> Float -> Mat 4 4 Float
-testdata/Prelude.lc 332:5-332:9  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 332:5-332:59  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 332:5-333:59  Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 332:5-334:62  Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 332:5-335:59  Mat 4 4 Float
-testdata/Prelude.lc 332:5-340:11  Float -> Float -> Float -> Float -> Mat 4 4 Float | Float -> Float -> Float -> Mat 4 4 Float | Float -> Float -> Mat 4 4 Float | Float -> Mat 4 4 Float
-testdata/Prelude.lc 332:11-332:13  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 332:11-332:25  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 332:11-332:29  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 332:11-332:43  Float -> VecS Float 4
-testdata/Prelude.lc 332:11-332:58  VecS Float 4
-testdata/Prelude.lc 332:15-332:16  _b
-testdata/Prelude.lc 332:15-332:17  _c -> _c
-testdata/Prelude.lc 332:15-332:18  VecScalar 1 Float
-testdata/Prelude.lc 332:15-332:19  VecScalar 1 Float -> VecScalar 1 Float
-testdata/Prelude.lc 332:15-332:24  VecScalar 1 Float
-testdata/Prelude.lc 332:16-332:17  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 332:17-332:18  Float
-testdata/Prelude.lc 332:18-332:19  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 332:20-332:21  Float
-testdata/Prelude.lc 332:20-332:22  Float -> Float
-testdata/Prelude.lc 332:20-332:23  Float
-testdata/Prelude.lc 332:21-332:22  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 332:22-332:23  Float
-testdata/Prelude.lc 332:28-332:29  _b
-testdata/Prelude.lc 332:42-332:43  _b
-testdata/Prelude.lc 332:57-332:58  _b
-testdata/Prelude.lc 333:11-333:13  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 333:11-333:15  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 333:11-333:39  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 333:11-333:43  Float -> VecS Float 4
-testdata/Prelude.lc 333:11-333:58  VecS Float 4
-testdata/Prelude.lc 333:14-333:15  _b
-testdata/Prelude.lc 333:29-333:30  _b
-testdata/Prelude.lc 333:29-333:31  _c -> _c
-testdata/Prelude.lc 333:29-333:32  VecScalar 1 Float
-testdata/Prelude.lc 333:29-333:33  VecScalar 1 Float -> VecScalar 1 Float
-testdata/Prelude.lc 333:29-333:38  VecScalar 1 Float
-testdata/Prelude.lc 333:30-333:31  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 333:31-333:32  Float
-testdata/Prelude.lc 333:32-333:33  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 333:34-333:35  Float
-testdata/Prelude.lc 333:34-333:36  Float -> Float
-testdata/Prelude.lc 333:34-333:37  Float
-testdata/Prelude.lc 333:35-333:36  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 333:36-333:37  Float
-testdata/Prelude.lc 333:42-333:43  _b
-testdata/Prelude.lc 333:57-333:58  _b
-testdata/Prelude.lc 334:11-334:13  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 334:11-334:27  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 334:11-334:41  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 334:11-334:56  Float -> VecS Float 4
-testdata/Prelude.lc 334:11-334:61  VecS Float 4
-testdata/Prelude.lc 334:15-334:21  VecScalar 1 Float -> VecScalar 1 Float
-testdata/Prelude.lc 334:15-334:26  VecScalar 1 Float
-testdata/Prelude.lc 334:16-334:17  Float
-testdata/Prelude.lc 334:16-334:18  Float -> Float
-testdata/Prelude.lc 334:16-334:19  Float
-testdata/Prelude.lc 334:17-334:18  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 334:18-334:19  Float
-testdata/Prelude.lc 334:20-334:21  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 334:22-334:23  Float
-testdata/Prelude.lc 334:22-334:24  Float -> Float
-testdata/Prelude.lc 334:22-334:25  Float
-testdata/Prelude.lc 334:23-334:24  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 334:24-334:25  Float
-testdata/Prelude.lc 334:29-334:35  VecScalar 1 Float -> VecScalar 1 Float
-testdata/Prelude.lc 334:29-334:40  VecScalar 1 Float
-testdata/Prelude.lc 334:30-334:31  Float
-testdata/Prelude.lc 334:30-334:32  Float -> Float
-testdata/Prelude.lc 334:30-334:33  Float
-testdata/Prelude.lc 334:31-334:32  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 334:32-334:33  Float
-testdata/Prelude.lc 334:34-334:35  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 334:36-334:37  Float
-testdata/Prelude.lc 334:36-334:38  Float -> Float
-testdata/Prelude.lc 334:36-334:39  Float
-testdata/Prelude.lc 334:37-334:38  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 334:38-334:39  Float
-testdata/Prelude.lc 334:43-334:44  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 334:43-334:55  Float
-testdata/Prelude.lc 334:44-334:50  VecScalar 1 Float -> VecScalar 1 Float
-testdata/Prelude.lc 334:44-334:55  VecScalar 1 Float
-testdata/Prelude.lc 334:45-334:46  Float
-testdata/Prelude.lc 334:45-334:47  Float -> Float
-testdata/Prelude.lc 334:45-334:48  Float
-testdata/Prelude.lc 334:46-334:47  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 334:47-334:48  Float
-testdata/Prelude.lc 334:49-334:50  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 334:51-334:52  Float
-testdata/Prelude.lc 334:51-334:53  Float -> Float
-testdata/Prelude.lc 334:51-334:54  Float
-testdata/Prelude.lc 334:52-334:53  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 334:53-334:54  Float
-testdata/Prelude.lc 334:58-334:59  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 334:58-334:60  Float
-testdata/Prelude.lc 334:59-334:60  _b
-testdata/Prelude.lc 335:11-335:13  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 335:11-335:15  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 335:11-335:29  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 335:11-335:56  Float -> VecS Float 4
-testdata/Prelude.lc 335:11-335:58  VecS Float 4
-testdata/Prelude.lc 335:14-335:15  _b
-testdata/Prelude.lc 335:28-335:29  _b
-testdata/Prelude.lc 335:43-335:44  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 335:43-335:55  Float
-testdata/Prelude.lc 335:44-335:45  _b
-testdata/Prelude.lc 335:44-335:46  _c -> _c
-testdata/Prelude.lc 335:44-335:47  Float
-testdata/Prelude.lc 335:44-335:48  Float -> Float
-testdata/Prelude.lc 335:44-335:49  Float
-testdata/Prelude.lc 335:44-335:50  VecScalar 1 Float -> VecScalar 1 Float
-testdata/Prelude.lc 335:44-335:55  VecScalar 1 Float
-testdata/Prelude.lc 335:45-335:46  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 335:46-335:47  Float
-testdata/Prelude.lc 335:47-335:48  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 335:48-335:49  Float
-testdata/Prelude.lc 335:49-335:50  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 335:51-335:52  Float
-testdata/Prelude.lc 335:51-335:53  Float -> Float
-testdata/Prelude.lc 335:51-335:54  Float
-testdata/Prelude.lc 335:52-335:53  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 335:53-335:54  Float
-testdata/Prelude.lc 335:57-335:58  _b
-testdata/Prelude.lc 337:9-337:10  Float
-testdata/Prelude.lc 337:9-337:11  Float -> Float
-testdata/Prelude.lc 337:9-337:22  Float
-testdata/Prelude.lc 337:10-337:11  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 337:11-337:14  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 337:11-337:22  VecScalar 1 Float
-testdata/Prelude.lc 337:15-337:19  Float
-testdata/Prelude.lc 337:15-337:20  VecScalar 1 Float -> VecScalar 1 Float
-testdata/Prelude.lc 337:15-337:21  VecScalar 1 Float
-testdata/Prelude.lc 337:19-337:20  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 337:20-337:21  _b
-testdata/Prelude.lc 338:9-338:10  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 338:9-338:11  Float
-testdata/Prelude.lc 338:10-338:11  Float
-testdata/Prelude.lc 339:9-339:15  Float
-testdata/Prelude.lc 339:9-339:16  Float -> Float
-testdata/Prelude.lc 339:9-339:17  Float
-testdata/Prelude.lc 339:15-339:16  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 339:16-339:17  Float
-testdata/Prelude.lc 340:9-340:10  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 340:9-340:11  Float
-testdata/Prelude.lc 340:10-340:11  Float
-testdata/Prelude.lc 342:1-342:11  VecScalar 1 Float -> Mat 4 4 Float
-testdata/Prelude.lc 342:16-342:20  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 342:16-342:33  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-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: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
-testdata/Prelude.lc 342:25-342:26  VecScalar _d Float
-testdata/Prelude.lc 342:27-342:28  VecScalar _c Float
-testdata/Prelude.lc 342:29-342:30  _b
-testdata/Prelude.lc 342:31-342:32  _b
-testdata/Prelude.lc 342:35-342:37  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 342:35-342:42  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 342:35-342:44  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 342:35-342:46  Float -> VecS Float 4
-testdata/Prelude.lc 342:35-342:48  VecS Float 4
-testdata/Prelude.lc 342:39-342:40  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 342:39-342:41  Float
-testdata/Prelude.lc 342:40-342:41  VecScalar 1 Float
-testdata/Prelude.lc 342:43-342:44  VecScalar 1 Float
-testdata/Prelude.lc 342:45-342:46  _b
-testdata/Prelude.lc 342:47-342:48  _b
-testdata/Prelude.lc 342:51-342:53  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 342:51-342:55  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 342:51-342:57  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 342:51-342:59  _c -> VecS _c 4
-testdata/Prelude.lc 342:51-342:61  VecS Float 4
-testdata/Prelude.lc 342:54-342:55  _b
-testdata/Prelude.lc 342:56-342:57  _b
-testdata/Prelude.lc 342:58-342:59  _b
-testdata/Prelude.lc 342:60-342:61  _b
-testdata/Prelude.lc 342:64-342:66  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 342:64-342:68  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 342:64-342:70  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 342:64-342:72  _c -> VecS _c 4
-testdata/Prelude.lc 342:64-342:74  VecS Float 4
-testdata/Prelude.lc 342:67-342:68  _b
-testdata/Prelude.lc 342:69-342:70  _b
-testdata/Prelude.lc 342:71-342:72  _b
-testdata/Prelude.lc 342:73-342:74  _b
-testdata/Prelude.lc 344:9-344:12  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 344:9-344:14  VecScalar _a Float
-testdata/Prelude.lc 344:13-344:14  _c
-testdata/Prelude.lc 345:9-345:12  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 345:9-345:14  VecScalar _b Float
-testdata/Prelude.lc 345:13-345:14  VecScalar _c Float
-testdata/Prelude.lc 347:1-347:11  VecScalar 1 Float -> Mat 4 4 Float
-testdata/Prelude.lc 347:16-347:20  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 347:16-347:36  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-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: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
-testdata/Prelude.lc 347:25-347:26  VecScalar _d Float
-testdata/Prelude.lc 347:27-347:28  _b
-testdata/Prelude.lc 347:30-347:31  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 347:30-347:32  VecScalar _f Float
-testdata/Prelude.lc 347:31-347:32  VecScalar _f Float
-testdata/Prelude.lc 347:34-347:35  _b
-testdata/Prelude.lc 347:38-347:40  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 347:38-347:42  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 347:38-347:44  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 347:38-347:46  _c -> VecS _c 4
-testdata/Prelude.lc 347:38-347:48  VecS Float 4
-testdata/Prelude.lc 347:41-347:42  _b
-testdata/Prelude.lc 347:43-347:44  _b
-testdata/Prelude.lc 347:45-347:46  _b
-testdata/Prelude.lc 347:47-347:48  _b
-testdata/Prelude.lc 347:51-347:53  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 347:51-347:55  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 347:51-347:57  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 347:51-347:59  Float -> VecS Float 4
-testdata/Prelude.lc 347:51-347:61  VecS Float 4
-testdata/Prelude.lc 347:54-347:55  VecScalar 1 Float
-testdata/Prelude.lc 347:56-347:57  _b
-testdata/Prelude.lc 347:58-347:59  VecScalar 1 Float
-testdata/Prelude.lc 347:60-347:61  _b
-testdata/Prelude.lc 347:64-347:66  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 347:64-347:68  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 347:64-347:70  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 347:64-347:72  _c -> VecS _c 4
-testdata/Prelude.lc 347:64-347:74  VecS Float 4
-testdata/Prelude.lc 347:67-347:68  _b
-testdata/Prelude.lc 347:69-347:70  _b
-testdata/Prelude.lc 347:71-347:72  _b
-testdata/Prelude.lc 347:73-347:74  _b
-testdata/Prelude.lc 349:9-349:12  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 349:9-349:14  VecScalar _a Float
-testdata/Prelude.lc 349:13-349:14  _c
-testdata/Prelude.lc 350:9-350:12  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 350:9-350:14  VecScalar _b Float
-testdata/Prelude.lc 350:13-350:14  VecScalar _c Float
-testdata/Prelude.lc 352:1-352:11  VecScalar 1 Float -> Mat 4 4 Float
-testdata/Prelude.lc 352:16-352:20  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 352:16-352:33  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 352:16-352:46  Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 352:16-352:62  Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 352:16-352:75  Mat 4 4 Float
-testdata/Prelude.lc 352:22-352:24  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 352:22-352:26  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 352:22-352:28  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 352:22-352:30  _c -> VecS _c 4
-testdata/Prelude.lc 352:22-352:32  VecS Float 4
-testdata/Prelude.lc 352:25-352:26  _b
-testdata/Prelude.lc 352:27-352:28  _b
-testdata/Prelude.lc 352:29-352:30  _b
-testdata/Prelude.lc 352:31-352:32  _b
-testdata/Prelude.lc 352:35-352:37  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 352:35-352:39  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 352:35-352:41  VecScalar _d Float -> VecScalar _d Float -> VecS (VecScalar _d Float) 4
-testdata/Prelude.lc 352:35-352:43  VecScalar _d Float -> VecS (VecScalar _d Float) 4
-testdata/Prelude.lc 352:35-352:45  VecS (VecScalar 1 Float) 4
-testdata/Prelude.lc 352:38-352:39  _b
-testdata/Prelude.lc 352:40-352:41  VecScalar _e Float
-testdata/Prelude.lc 352:42-352:43  VecScalar _d Float
-testdata/Prelude.lc 352:44-352:45  _b
-testdata/Prelude.lc 352:48-352:50  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 352:48-352:52  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 352:48-352:57  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 352:48-352:59  Float -> VecS Float 4
-testdata/Prelude.lc 352:48-352:61  VecS Float 4
-testdata/Prelude.lc 352:51-352:52  _b
-testdata/Prelude.lc 352:54-352:55  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 352:54-352:56  Float
-testdata/Prelude.lc 352:55-352:56  VecScalar 1 Float
-testdata/Prelude.lc 352:58-352:59  VecScalar 1 Float
-testdata/Prelude.lc 352:60-352:61  _b
-testdata/Prelude.lc 352:64-352:66  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 352:64-352:68  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 352:64-352:70  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 352:64-352:72  _c -> VecS _c 4
-testdata/Prelude.lc 352:64-352:74  VecS Float 4
-testdata/Prelude.lc 352:67-352:68  _b
-testdata/Prelude.lc 352:69-352:70  _b
-testdata/Prelude.lc 352:71-352:72  _b
-testdata/Prelude.lc 352:73-352:74  _b
-testdata/Prelude.lc 354:9-354:12  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 354:9-354:14  VecScalar _a Float
-testdata/Prelude.lc 354:13-354:14  _c
-testdata/Prelude.lc 355:9-355:12  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 355:9-355:14  VecScalar _b Float
-testdata/Prelude.lc 355:13-355:14  VecScalar _c Float
-testdata/Prelude.lc 357:1-357:14  Float -> Float -> Float -> Mat 4 4 Float
-testdata/Prelude.lc 357:23-357:33  VecScalar 1 Float -> Mat 4 4 Float
-testdata/Prelude.lc 357:23-357:35  Mat 4 4 Float
-testdata/Prelude.lc 357:23-357:39  Mat 4 _a Float -> Mat 4 _a Float
-testdata/Prelude.lc 357:23-357:52  Mat 4 4 Float
-testdata/Prelude.lc 357:23-357:56  Mat 4 _a Float -> Mat 4 _a Float
-testdata/Prelude.lc 357:23-357:69  Mat 4 4 Float
-testdata/Prelude.lc 357:34-357:35  _k
-testdata/Prelude.lc 357:36-357:39  forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
-testdata/Prelude.lc 357:40-357:50  VecScalar 1 Float -> Mat 4 4 Float
-testdata/Prelude.lc 357:40-357:52  Mat 4 4 Float
-testdata/Prelude.lc 357:51-357:52  _e
-testdata/Prelude.lc 357:53-357:56  forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
-testdata/Prelude.lc 357:57-357:67  VecScalar 1 Float -> Mat 4 4 Float
-testdata/Prelude.lc 357:57-357:69  Mat 4 4 Float
-testdata/Prelude.lc 357:68-357:69  _b
-testdata/Prelude.lc 359:21-359:24  Nat -> Type -> Type
-testdata/Prelude.lc 359:21-359:26  Type -> Type
-testdata/Prelude.lc 359:21-359:32  Type
-testdata/Prelude.lc 359:25-359:26  _b
-testdata/Prelude.lc 359:27-359:32  Type
-testdata/Prelude.lc 359:36-359:39  Nat -> Nat -> Type -> Type
-testdata/Prelude.lc 359:36-359:41  Nat -> Type -> Type
-testdata/Prelude.lc 359:36-359:43  Type -> Type
-testdata/Prelude.lc 359:36-359:49  Type
-testdata/Prelude.lc 359:40-359:41  _b
-testdata/Prelude.lc 359:42-359:43  _b
-testdata/Prelude.lc 359:44-359:49  Type
-testdata/Prelude.lc 360:1-360:17  Vec 3 Float -> Mat 4 4 Float
-testdata/Prelude.lc 360:22-360:26  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 360:22-360:29  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 360:22-360:32  Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 360:22-360:35  Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 360:22-360:38  Mat 4 4 Float
-testdata/Prelude.lc 360:22-365:25  Vec 3 Float -> Mat 4 4 Float
-testdata/Prelude.lc 360:27-360:29  forall a . Num a => VecS a 4
-testdata/Prelude.lc 360:30-360:32  forall a . Num a => VecS a 4
-testdata/Prelude.lc 360:33-360:35  forall a . Num a => VecS a 4
-testdata/Prelude.lc 360:36-360:38  VecS Float 4
-testdata/Prelude.lc 362:9-362:11  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 362:9-362:13  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 362:9-362:15  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 362:9-362:17  _c -> VecS _c 4
-testdata/Prelude.lc 362:9-362:19  VecS _c 4
-testdata/Prelude.lc 362:12-362:13  _b
-testdata/Prelude.lc 362:14-362:15  _b
-testdata/Prelude.lc 362:16-362:17  _b
-testdata/Prelude.lc 362:18-362:19  _b
-testdata/Prelude.lc 363:9-363:11  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 363:9-363:13  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 363:9-363:15  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 363:9-363:17  _c -> VecS _c 4
-testdata/Prelude.lc 363:9-363:19  VecS _c 4
-testdata/Prelude.lc 363:12-363:13  _b
-testdata/Prelude.lc 363:14-363:15  _b
-testdata/Prelude.lc 363:16-363:17  _b
-testdata/Prelude.lc 363:18-363:19  _b
-testdata/Prelude.lc 364:9-364:11  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 364:9-364:13  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 364:9-364:15  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 364:9-364:17  _c -> VecS _c 4
-testdata/Prelude.lc 364:9-364:19  VecS _c 4
-testdata/Prelude.lc 364:12-364:13  _b
-testdata/Prelude.lc 364:14-364:15  _b
-testdata/Prelude.lc 364:16-364:17  _b
-testdata/Prelude.lc 364:18-364:19  _b
-testdata/Prelude.lc 365:9-365:11  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 365:9-365:15  Float -> Float -> Float -> VecS Float 4
-testdata/Prelude.lc 365:9-365:19  Float -> Float -> VecS Float 4
-testdata/Prelude.lc 365:9-365:23  Float -> VecS Float 4
-testdata/Prelude.lc 365:9-365:25  VecS Float 4
-testdata/Prelude.lc 365:12-365:13  Vec 3 Float
-testdata/Prelude.lc 365:12-365:15  Float
-testdata/Prelude.lc 365:16-365:17  Vec 3 Float
-testdata/Prelude.lc 365:16-365:19  Float
-testdata/Prelude.lc 365:20-365:21  Vec 3 Float
-testdata/Prelude.lc 365:20-365:23  Float
-testdata/Prelude.lc 365:24-365:25  _b
-testdata/Prelude.lc 368:11-368:14  Nat -> Type -> Type
-testdata/Prelude.lc 368:11-368:16  Type -> Type
-testdata/Prelude.lc 368:11-368:22  Type
-testdata/Prelude.lc 368:15-368:16  _b
-testdata/Prelude.lc 368:17-368:22  Type
-testdata/Prelude.lc 369:11-369:14  Nat -> Type -> Type
-testdata/Prelude.lc 369:11-369:16  Type -> Type
-testdata/Prelude.lc 369:11-369:22  Type
-testdata/Prelude.lc 369:11-371:24  Type
-testdata/Prelude.lc 369:15-369:16  _b
-testdata/Prelude.lc 369:17-369:22  Type
-testdata/Prelude.lc 370:11-370:14  Nat -> Type -> Type
-testdata/Prelude.lc 370:11-370:16  Type -> Type
-testdata/Prelude.lc 370:11-370:22  Type
-testdata/Prelude.lc 370:11-371:24  Type
-testdata/Prelude.lc 370:15-370:16  _b
-testdata/Prelude.lc 370:17-370:22  Type
-testdata/Prelude.lc 371:11-371:14  Nat -> Nat -> Type -> Type
-testdata/Prelude.lc 371:11-371:16  Nat -> Type -> Type
-testdata/Prelude.lc 371:11-371:18  Type -> Type
-testdata/Prelude.lc 371:11-371:24  Type
-testdata/Prelude.lc 371:15-371:16  _b
-testdata/Prelude.lc 371:17-371:18  _b
-testdata/Prelude.lc 371:19-371:24  Type
-testdata/Prelude.lc 372:1-372:7  Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 4 4 Float
-testdata/Prelude.lc 372:24-372:25  Mat 4 4 Float
-testdata/Prelude.lc 372:24-372:29  Mat 4 _a Float -> Mat 4 _a Float
-testdata/Prelude.lc 372:24-372:56  Mat 4 4 Float
-testdata/Prelude.lc 372:24-378:65  Vec 3 Float -> Mat 4 4 Float | Vec 3 Float -> Vec 3 Float -> Mat 4 4 Float | Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 4 4 Float
-testdata/Prelude.lc 372:26-372:29  forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
-testdata/Prelude.lc 372:30-372:46  Vec 3 Float -> Mat 4 4 Float
-testdata/Prelude.lc 372:30-372:56  Mat 4 4 Float
-testdata/Prelude.lc 372:48-372:51  forall a . Signed (MatVecScalarElem a) => a -> a
-testdata/Prelude.lc 372:48-372:55  VecS Float 3
-testdata/Prelude.lc 372:52-372:55  Vec 3 Float
-testdata/Prelude.lc 374:14-374:16  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 374:14-374:20  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 374:14-374:24  _b -> _b -> VecS _b 4
-testdata/Prelude.lc 374:14-374:28  _b -> VecS _b 4
-testdata/Prelude.lc 374:14-374:30  VecS _c 4
-testdata/Prelude.lc 374:17-374:18  _e
-testdata/Prelude.lc 374:17-374:20  _b
-testdata/Prelude.lc 374:21-374:22  VecS _d _c
-testdata/Prelude.lc 374:21-374:24  _b
-testdata/Prelude.lc 374:25-374:26  VecS _d _c
-testdata/Prelude.lc 374:25-374:28  _b
-testdata/Prelude.lc 374:29-374:30  _b
-testdata/Prelude.lc 375:9-375:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 375:9-375:20  VecScalar _a Float -> VecScalar _a Float
-testdata/Prelude.lc 375:9-375:33  VecScalar 3 Float
-testdata/Prelude.lc 375:19-375:20  forall a b . (a -> b) -> a -> b
-testdata/Prelude.lc 375:21-375:24  Vec 3 Float
-testdata/Prelude.lc 375:21-375:26  VecS Float 3 -> VecS Float 3
-testdata/Prelude.lc 375:21-375:33  VecS Float 3
-testdata/Prelude.lc 375:25-375:26  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 375:27-375:33  Vec 3 Float
-testdata/Prelude.lc 376:9-376:18  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/Prelude.lc 376:9-376:20  VecScalar _a Float -> VecScalar _a Float
-testdata/Prelude.lc 376:9-376:33  VecScalar 3 Float
-testdata/Prelude.lc 376:19-376:20  forall a b . (a -> b) -> a -> b
-testdata/Prelude.lc 376:21-376:23  Vec 3 Float
-testdata/Prelude.lc 376:21-376:31  VecS Float 3 -> VecS Float 3
-testdata/Prelude.lc 376:21-376:33  VecS Float 3
-testdata/Prelude.lc 376:24-376:31  forall a . (a ~ VecS Float 3) => a -> a -> a
-testdata/Prelude.lc 376:32-376:33  VecScalar 3 Float
-testdata/Prelude.lc 377:9-377:10  VecScalar 3 Float
-testdata/Prelude.lc 377:9-377:18  VecS Float 3 -> VecS Float 3
-testdata/Prelude.lc 377:9-377:20  VecS Float 3
-testdata/Prelude.lc 377:11-377:18  forall a . (a ~ VecS Float 3) => a -> a -> a
-testdata/Prelude.lc 377:19-377:20  VecScalar 3 Float
-testdata/Prelude.lc 378:9-378:18  forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
-testdata/Prelude.lc 378:9-378:20  Mat _c _b _a -> Mat _b _c _a
-testdata/Prelude.lc 378:9-378:65  Mat 4 4 Float
-testdata/Prelude.lc 378:19-378:20  forall a b . (a -> b) -> a -> b
-testdata/Prelude.lc 378:21-378:25  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 378:21-378:34  Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 378:21-378:43  Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 378:21-378:52  Vec 4 Float -> Mat 4 4 Float
-testdata/Prelude.lc 378:21-378:65  Mat 4 4 Float
-testdata/Prelude.lc 378:27-378:31  forall a (b :: Nat) . Num a => VecS a b -> VecS a 4
-testdata/Prelude.lc 378:27-378:33  VecS Float 4
-testdata/Prelude.lc 378:32-378:33  VecScalar 3 Float
-testdata/Prelude.lc 378:36-378:40  forall a (b :: Nat) . Num a => VecS a b -> VecS a 4
-testdata/Prelude.lc 378:36-378:42  VecS Float 4
-testdata/Prelude.lc 378:41-378:42  VecS Float 3
-testdata/Prelude.lc 378:45-378:49  forall a (b :: Nat) . Num a => VecS a b -> VecS a 4
-testdata/Prelude.lc 378:45-378:51  VecS Float 4
-testdata/Prelude.lc 378:50-378:51  VecScalar 3 Float
-testdata/Prelude.lc 378:54-378:56  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 378:54-378:58  _b -> _b -> _b -> VecS _b 4
-testdata/Prelude.lc 378:54-378:60  _c -> _c -> VecS _c 4
-testdata/Prelude.lc 378:54-378:62  _c -> VecS _c 4
-testdata/Prelude.lc 378:54-378:64  VecS Float 4
-testdata/Prelude.lc 378:57-378:58  _b
-testdata/Prelude.lc 378:59-378:60  _b
-testdata/Prelude.lc 378:61-378:62  _b
-testdata/Prelude.lc 378:63-378:64  _b
-testdata/Prelude.lc 380:1-380:6  Float -> VecS Float 4 -> VecS Float 4
-testdata/Prelude.lc 380:13-380:14  _d
-testdata/Prelude.lc 380:13-380:16  _c -> _c
-testdata/Prelude.lc 380:13-380:29  VecS Float 4
-testdata/Prelude.lc 380:15-380:16  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 380:17-380:19  forall a . a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 380:17-380:21  _e -> _e -> _e -> VecS _e 4
-testdata/Prelude.lc 380:17-380:23  _e -> _e -> VecS _e 4
-testdata/Prelude.lc 380:17-380:25  _e -> VecS _e 4
-testdata/Prelude.lc 380:17-380:29  VecS Float 4
-testdata/Prelude.lc 380:20-380:21  _f
-testdata/Prelude.lc 380:22-380:23  _e
-testdata/Prelude.lc 380:24-380:25  _e
-testdata/Prelude.lc 380:26-380:29  Float
-testdata/Prelude.lc 382:11-382:16  Type
-testdata/Prelude.lc 382:11-385:38  Float -> Float -> List Float | _a -> _a
-testdata/Prelude.lc 382:20-382:25  Type
-testdata/Prelude.lc 382:20-382:36  Type
-testdata/Prelude.lc 382:29-382:36  Type
-testdata/Prelude.lc 382:30-382:35  Type
-testdata/Prelude.lc 383:1-383:7  Float -> Float -> List Float
-testdata/Prelude.lc 384:7-384:8  Float
-testdata/Prelude.lc 384:7-384:10  VecScalar 1 Float -> VecScalar 1 Bool
-testdata/Prelude.lc 384:7-384:12  VecScalar 1 Bool
-testdata/Prelude.lc 384:7-385:38  Float -> Float -> List Float | Float -> List Float | List Float
-testdata/Prelude.lc 384:9-384:10  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/Prelude.lc 384:11-384:12  Float
-testdata/Prelude.lc 384:15-384:17  forall a . List a
-testdata/Prelude.lc 384:15-385:38  Bool -> List Float
-testdata/Prelude.lc 385:19-385:20  Float
-testdata/Prelude.lc 385:19-385:21  List Float -> List Float
-testdata/Prelude.lc 385:19-385:38  List Float
-testdata/Prelude.lc 385:20-385:21  forall a . a -> List a -> List a
-testdata/Prelude.lc 385:22-385:28  Float -> Float -> List Float
-testdata/Prelude.lc 385:22-385:36  Float -> List Float
-testdata/Prelude.lc 385:22-385:38  List Float
-testdata/Prelude.lc 385:30-385:31  Float
-testdata/Prelude.lc 385:30-385:33  Float -> Float
-testdata/Prelude.lc 385:30-385:35  Float
-testdata/Prelude.lc 385:32-385:33  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 385:34-385:35  _b
-testdata/Prelude.lc 385:37-385:38  Float
-testdata/Prelude.lc 387:9-387:12  Type
-testdata/Prelude.lc 387:9-387:24  Type
-testdata/Prelude.lc 387:9-389:30  _a -> _a | forall a . List a -> Int -> a
-testdata/Prelude.lc 387:10-387:11  _b
-testdata/Prelude.lc 387:16-387:19  Type
-testdata/Prelude.lc 387:16-387:24  Type
-testdata/Prelude.lc 387:23-387:24  Type
-testdata/Prelude.lc 388:10-388:12  forall a . List a -> Int -> a
-testdata/Prelude.lc 388:19-388:20  _d
-testdata/Prelude.lc 388:19-389:30  Bool -> _d | Int -> _b | List _a -> Int -> _a | List _c -> _b | _b -> List _b -> _a | _c
-testdata/Prelude.lc 389:19-389:21  List _f
-testdata/Prelude.lc 389:19-389:24  Int -> _e
-testdata/Prelude.lc 389:19-389:30  _d
-testdata/Prelude.lc 389:22-389:24  forall a . List a -> Int -> a
-testdata/Prelude.lc 389:26-389:27  Int
-testdata/Prelude.lc 389:26-389:28  Int -> Int
-testdata/Prelude.lc 389:26-389:29  Int
-testdata/Prelude.lc 389:27-389:28  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/Prelude.lc 389:28-389:29  _b
+testdata/Prelude.lc 16:1-16:6
+    forall a b . a -> b -> a
+testdata/Prelude.lc 16:13-16:14
+    _d
+testdata/Prelude.lc 18:1-18:10
+    Bool
+testdata/Prelude.lc 18:13-18:17
+    Bool
+testdata/Prelude.lc 20:3-20:4
+    forall a b . a -> (a -> b) -> b
+testdata/Prelude.lc 20:9-20:10
+    _b
+testdata/Prelude.lc 20:11-20:12
+    _g
+testdata/Prelude.lc 22:2-22:3
+    forall a b . (a -> b) -> a -> b
+testdata/Prelude.lc 22:15-22:16
+    _d
+testdata/Prelude.lc 22:17-22:18
+    _e
+testdata/Prelude.lc 23:2-23:3
+    forall a b c . (b -> c) -> (a -> b) -> a -> c
+testdata/Prelude.lc 23:17-23:18
+    _f
+testdata/Prelude.lc 23:20-23:21
+    _g
+testdata/Prelude.lc 23:22-23:23
+    _h
+testdata/Prelude.lc 25:1-25:8
+    forall a b c . (a -> c -> b) -> (a, c) -> b
+testdata/Prelude.lc 25:20-25:21
+    _o
+testdata/Prelude.lc 25:20-25:25
+    _c | _d
+testdata/Prelude.lc 25:22-25:23
+    _n
+testdata/Prelude.lc 25:24-25:25
+    _j
+testdata/Prelude.lc 27:2-27:5
+    forall a b c d . (a -> c) -> (b -> d) -> (a, b) -> (c, d)
+testdata/Prelude.lc 27:20-27:30
+    (_b, _a) | (_b, _a) | (_b, _a)
+testdata/Prelude.lc 27:21-27:22
+    _s
+testdata/Prelude.lc 27:23-27:24
+    _p
+testdata/Prelude.lc 27:26-27:27
+    _r
+testdata/Prelude.lc 27:26-27:29
+    ((_a))
+testdata/Prelude.lc 27:28-27:29
+    _l
+testdata/Prelude.lc 29:1-29:3
+    Float
+testdata/Prelude.lc 29:6-29:23
+    Float
+testdata/Prelude.lc 31:8-31:11
+    Type
+testdata/Prelude.lc 31:8-31:29
+    Type | Type
+testdata/Prelude.lc 31:8-34:39
+    forall a b . List a -> List b -> List (a, b)
+testdata/Prelude.lc 31:9-31:10
+    _d
+testdata/Prelude.lc 31:15-31:18
+    Type
+testdata/Prelude.lc 31:15-31:29
+    Type
+testdata/Prelude.lc 31:16-31:17
+    _c
+testdata/Prelude.lc 31:22-31:29
+    Type | Type
+testdata/Prelude.lc 31:23-31:28
+    Type
+testdata/Prelude.lc 31:24-31:25
+    Type
+testdata/Prelude.lc 31:24-31:27
+    List Type
+testdata/Prelude.lc 31:26-31:27
+    Type | List Type
+testdata/Prelude.lc 32:1-32:4
+    forall a b . List a -> List b -> List (a, b)
+testdata/Prelude.lc 32:22-32:24
+    forall a . List a
+testdata/Prelude.lc 32:22-34:39
+    List _a -> List (_a, _d) | List (_d, _c)
+testdata/Prelude.lc 33:22-33:24
+    forall a . List a
+testdata/Prelude.lc 33:22-34:39
+    List _a -> List (_e, _a) | List (_c, _f)
+testdata/Prelude.lc 34:23-34:28
+    (_h, _d)
+testdata/Prelude.lc 34:23-34:29
+    List (_h, _d) -> List (_h, _d)
+testdata/Prelude.lc 34:23-34:39
+    List (_g, _c)
+testdata/Prelude.lc 34:24-34:25
+    _k
+testdata/Prelude.lc 34:26-34:27
+    _g | ((_d))
+testdata/Prelude.lc 34:28-34:29
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 34:30-34:33
+    forall a b . List a -> List b -> List (a, b)
+testdata/Prelude.lc 34:30-34:36
+    List _a -> List (_h, _a)
+testdata/Prelude.lc 34:30-34:39
+    List (_g, _c)
+testdata/Prelude.lc 34:34-34:36
+    List _i
+testdata/Prelude.lc 34:37-34:39
+    List _c
+testdata/Prelude.lc 36:10-36:17
+    Type
+testdata/Prelude.lc 36:10-36:30
+    Type | Type
+testdata/Prelude.lc 36:10-39:27
+    forall a b . List (a, b) -> (List a, List b)
+testdata/Prelude.lc 36:11-36:16
+    Type
+testdata/Prelude.lc 36:12-36:13
+    _e
+testdata/Prelude.lc 36:12-36:15
+    List Type
+testdata/Prelude.lc 36:14-36:15
+    _c | List Type
+testdata/Prelude.lc 36:21-36:30
+    Type | Type
+testdata/Prelude.lc 36:22-36:25
+    Type
+testdata/Prelude.lc 36:22-36:29
+    List Type
+testdata/Prelude.lc 36:23-36:24
+    Type
+testdata/Prelude.lc 36:26-36:29
+    Type | List Type
+testdata/Prelude.lc 36:27-36:28
+    Type
+testdata/Prelude.lc 37:1-37:6
+    forall a b . List (a, b) -> (List a, List b)
+testdata/Prelude.lc 37:12-37:19
+    (List _b, List _a)
+testdata/Prelude.lc 37:12-39:27
+    List (_b, _a) -> (List _b, List _a) | (List _c, List _b)
+testdata/Prelude.lc 37:13-37:15
+    forall a . List a
+testdata/Prelude.lc 37:16-37:18
+    forall a . List a | ((List _a))
+testdata/Prelude.lc 38:20-38:31
+    (List _n, List _i)
+testdata/Prelude.lc 38:20-39:27
+    (List _h, List _c) | (List _d, List _a) | (List _d, List _c)
+testdata/Prelude.lc 38:21-38:22
+    _s
+testdata/Prelude.lc 38:21-38:23
+    List _r -> List _r
+testdata/Prelude.lc 38:21-38:25
+    List _p
+testdata/Prelude.lc 38:22-38:23
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 38:23-38:25
+    List _f
+testdata/Prelude.lc 38:26-38:27
+    _n
+testdata/Prelude.lc 38:26-38:28
+    List _m -> List _m
+testdata/Prelude.lc 38:26-38:30
+    List _k | ((List _i))
+testdata/Prelude.lc 38:27-38:28
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 38:28-38:30
+    List _f
+testdata/Prelude.lc 39:10-39:12
+    _k | _h | _d
+testdata/Prelude.lc 39:10-39:15
+    (List _e, List _d) | (List _f, List _e)
+testdata/Prelude.lc 39:13-39:15
+    _f | _c | _c
+testdata/Prelude.lc 39:19-39:24
+    forall a b . List (a, b) -> (List a, List b)
+testdata/Prelude.lc 39:19-39:27
+    (List _b, List _a)
+testdata/Prelude.lc 39:25-39:27
+    List _r
+testdata/Prelude.lc 41:1-41:7
+    forall a . (a -> Bool) -> List a -> List a
+testdata/Prelude.lc 41:21-41:23
+    forall a . List a
+testdata/Prelude.lc 41:21-44:49
+    List _a -> List _a
+testdata/Prelude.lc 42:22-44:49
+    List _c
+testdata/Prelude.lc 42:27-42:31
+    _g
+testdata/Prelude.lc 42:32-42:33
+    _f
+testdata/Prelude.lc 43:32-44:49
+    Bool -> List _f
+testdata/Prelude.lc 43:33-43:34
+    _h
+testdata/Prelude.lc 43:33-43:36
+    List _g -> List _g
+testdata/Prelude.lc 43:33-43:51
+    List _f
+testdata/Prelude.lc 43:35-43:36
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 43:37-43:43
+    _j -> List _f -> List _f
+testdata/Prelude.lc 43:37-43:48
+    List _f -> List _f
+testdata/Prelude.lc 43:37-43:51
+    List _f
+testdata/Prelude.lc 43:44-43:48
+    _j
+testdata/Prelude.lc 43:49-43:51
+    List _f
+testdata/Prelude.lc 44:34-44:40
+    _m
+testdata/Prelude.lc 44:41-44:45
+    _n
+testdata/Prelude.lc 44:46-44:48
+    List _k
+testdata/Prelude.lc 49:9-49:12
+    Type
+testdata/Prelude.lc 49:9-49:19
+    Type
+testdata/Prelude.lc 49:10-49:11
+    _b
+testdata/Prelude.lc 49:16-49:19
+    Type | Type
+testdata/Prelude.lc 49:17-49:18
+    Type
+testdata/Prelude.lc 50:1-50:5
+    forall a . List a -> List a
+testdata/Prelude.lc 50:16-50:18
+    List _d | List _b
+testdata/Prelude.lc 52:10-52:13
+    Type
+testdata/Prelude.lc 52:10-52:25
+    Type
+testdata/Prelude.lc 52:11-52:12
+    _b
+testdata/Prelude.lc 52:17-52:25
+    Type | Type
+testdata/Prelude.lc 52:18-52:24
+    Type
+testdata/Prelude.lc 52:19-52:20
+    Type
+testdata/Prelude.lc 52:19-52:23
+    List Type
+testdata/Prelude.lc 52:22-52:23
+    Type | List Type
+testdata/Prelude.lc 53:1-53:6
+    forall a . List a -> List (a, a)
+testdata/Prelude.lc 53:11-53:14
+    forall a b . List a -> List b -> List (a, b)
+testdata/Prelude.lc 53:11-53:16
+    List _a -> List (_c, _a)
+testdata/Prelude.lc 53:11-53:25
+    List (_b, _b)
+testdata/Prelude.lc 53:15-53:16
+    List _d
+testdata/Prelude.lc 53:18-53:22
+    forall a . List a -> List a
+testdata/Prelude.lc 53:18-53:24
+    List _b
+testdata/Prelude.lc 53:23-53:24
+    List _c
+testdata/Prelude.lc 55:1-55:7
+    forall a b . (a -> b -> a) -> a -> List b -> a
+testdata/Prelude.lc 55:17-55:18
+    _f
+testdata/Prelude.lc 55:17-56:41
+    List _b -> _f
+testdata/Prelude.lc 56:22-56:28
+    _k
+testdata/Prelude.lc 56:29-56:30
+    _l
+testdata/Prelude.lc 56:32-56:33
+    _m
+testdata/Prelude.lc 56:34-56:35
+    _n
+testdata/Prelude.lc 56:36-56:37
+    _k
+testdata/Prelude.lc 56:39-56:41
+    List _h
+testdata/Prelude.lc 58:1-58:7
+    forall a . (a -> a -> a) -> List a -> a
+testdata/Prelude.lc 58:20-58:25
+    forall a b . (b -> a -> a) -> a -> List b -> a
+testdata/Prelude.lc 58:20-58:27
+    _b -> List _a -> _b
+testdata/Prelude.lc 58:20-58:29
+    List _a -> _e
+testdata/Prelude.lc 58:20-58:32
+    _c
+testdata/Prelude.lc 58:26-58:27
+    _j
+testdata/Prelude.lc 58:28-58:29
+    _f
+testdata/Prelude.lc 58:30-58:32
+    List _d
+testdata/Prelude.lc 60:1-60:6
+    forall a . List a -> (List a, List a)
+testdata/Prelude.lc 60:12-60:20
+    (List _b, List _a)
+testdata/Prelude.lc 60:12-61:55
+    List _b -> (List _b, List _a)
+testdata/Prelude.lc 60:13-60:15
+    forall a . List a
+testdata/Prelude.lc 60:17-60:19
+    forall a . List a | ((List _a))
+testdata/Prelude.lc 61:17-61:28
+    (List _i, _c)
+testdata/Prelude.lc 61:18-61:19
+    _m
+testdata/Prelude.lc 61:18-61:20
+    List _l -> List _l
+testdata/Prelude.lc 61:18-61:23
+    List _j
+testdata/Prelude.lc 61:19-61:20
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 61:21-61:23
+    _d
+testdata/Prelude.lc 61:25-61:27
+    _f | ((_c))
+testdata/Prelude.lc 61:37-61:39
+    _k | _h | _d
+testdata/Prelude.lc 61:37-61:43
+    _d | (_e, _d)
+testdata/Prelude.lc 61:41-61:43
+    _f | _c | _c
+testdata/Prelude.lc 61:47-61:52
+    _i
+testdata/Prelude.lc 61:53-61:55
+    List _h
+testdata/Prelude.lc 63:1-63:8
+    forall a . (a -> a -> Ordering) -> List a -> List a -> List a
+testdata/Prelude.lc 63:27-65:32
+    List _e
+testdata/Prelude.lc 63:27-67:21
+    List _c -> List _c | List _c
+testdata/Prelude.lc 63:32-63:33
+    _j
+testdata/Prelude.lc 63:34-63:35
+    _h
+testdata/Prelude.lc 63:36-63:37
+    _i
+testdata/Prelude.lc 64:11-64:12
+    _j
+testdata/Prelude.lc 64:11-64:13
+    List _i -> List _i
+testdata/Prelude.lc 64:11-64:33
+    List _h
+testdata/Prelude.lc 64:11-65:32
+    List _g -> Ordering -> List _g
+testdata/Prelude.lc 64:12-64:13
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 64:14-64:21
+    _p
+testdata/Prelude.lc 64:22-64:23
+    _q
+testdata/Prelude.lc 64:24-64:26
+    List _l
+testdata/Prelude.lc 64:28-64:29
+    _j
+testdata/Prelude.lc 64:28-64:30
+    List _i -> List _i
+testdata/Prelude.lc 64:28-64:32
+    List _i
+testdata/Prelude.lc 64:29-64:30
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 64:30-64:32
+    List _i
+testdata/Prelude.lc 65:10-65:11
+    _f | _h
+testdata/Prelude.lc 65:10-65:12
+    List _e -> List _e | List _g -> List _g
+testdata/Prelude.lc 65:10-65:32
+    List _g | List _g
+testdata/Prelude.lc 65:11-65:12
+    forall a . a -> List a -> List a | forall a . a -> List a -> List a
+testdata/Prelude.lc 65:13-65:20
+    _m -> List _g -> List _g -> List _g | _m -> List _g -> List _g -> List _g
+testdata/Prelude.lc 65:13-65:22
+    List _g -> List _g -> List _g | List _g -> List _g -> List _g
+testdata/Prelude.lc 65:13-65:29
+    List _g -> List _g | List _g -> List _g
+testdata/Prelude.lc 65:13-65:32
+    List _g | List _g
+testdata/Prelude.lc 65:21-65:22
+    _m | _m
+testdata/Prelude.lc 65:24-65:25
+    _h | _h
+testdata/Prelude.lc 65:24-65:26
+    List _g -> List _g | List _g -> List _g
+testdata/Prelude.lc 65:24-65:28
+    List _g | List _g
+testdata/Prelude.lc 65:25-65:26
+    forall a . a -> List a -> List a | forall a . a -> List a -> List a
+testdata/Prelude.lc 65:26-65:28
+    List _g | List _g
+testdata/Prelude.lc 65:30-65:32
+    List _g | List _g
+testdata/Prelude.lc 66:19-66:21
+    _d
+testdata/Prelude.lc 67:19-67:21
+    _i
+testdata/Prelude.lc 69:1-69:7
+    forall a . (a -> a -> Ordering) -> List a -> List a
+testdata/Prelude.lc 69:15-69:17
+    forall a . List a
+testdata/Prelude.lc 69:15-71:71
+    List _b -> List _b
+testdata/Prelude.lc 70:16-70:19
+    List _e
+testdata/Prelude.lc 70:16-71:71
+    List _b -> List _f | List _d
+testdata/Prelude.lc 70:17-70:18
+    _g
+testdata/Prelude.lc 71:15-71:22
+    forall a b c . (a -> c -> b) -> (a, c) -> b
+testdata/Prelude.lc 71:15-71:34
+    (List _a, List _a) -> List _a
+testdata/Prelude.lc 71:15-71:71
+    List _h
+testdata/Prelude.lc 71:24-71:31
+    forall a . (a -> a -> Ordering) -> List a -> List a -> List a
+testdata/Prelude.lc 71:24-71:33
+    List _a -> List _a -> List _a
+testdata/Prelude.lc 71:32-71:33
+    _o
+testdata/Prelude.lc 71:36-71:70
+    (List _h, List _h)
+testdata/Prelude.lc 71:37-71:43
+    _p
+testdata/Prelude.lc 71:37-71:49
+    (_c -> _a) -> (_d, _c) -> (_b, _a)
+testdata/Prelude.lc 71:37-71:58
+    (_b, _b) -> (_a, _a)
+testdata/Prelude.lc 71:44-71:45
+    _n -> _n -> Ordering
+testdata/Prelude.lc 71:46-71:49
+    forall a b c d . (a -> c) -> (b -> d) -> (a, b) -> (c, d)
+testdata/Prelude.lc 71:50-71:56
+    (_k -> _k -> Ordering) -> _d -> _b
+testdata/Prelude.lc 71:50-71:58
+    _b -> _a
+testdata/Prelude.lc 71:57-71:58
+    _i -> _i -> Ordering
+testdata/Prelude.lc 71:61-71:66
+    forall a . List a -> (List a, List a)
+testdata/Prelude.lc 71:61-71:69
+    (List _a, List _a)
+testdata/Prelude.lc 71:67-71:69
+    _k
+testdata/Prelude.lc 73:12-73:32
+    Type
+testdata/Prelude.lc 73:12-74:35
+    forall a . (a -> a) -> a -> List a
+testdata/Prelude.lc 73:13-73:14
+    _b
+testdata/Prelude.lc 73:18-73:19
+    Type | Type
+testdata/Prelude.lc 73:24-73:25
+    Type
+testdata/Prelude.lc 73:24-73:32
+    Type
+testdata/Prelude.lc 73:29-73:32
+    Type | Type
+testdata/Prelude.lc 73:30-73:31
+    Type
+testdata/Prelude.lc 74:1-74:8
+    forall a . (a -> a) -> a -> List a
+testdata/Prelude.lc 74:16-74:17
+    _d
+testdata/Prelude.lc 74:16-74:19
+    List _c -> List _c
+testdata/Prelude.lc 74:16-74:35
+    List _c
+testdata/Prelude.lc 74:18-74:19
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 74:20-74:27
+    forall a . (a -> a) -> a -> List a
+testdata/Prelude.lc 74:20-74:29
+    _c -> List _c
+testdata/Prelude.lc 74:20-74:35
+    List _c
+testdata/Prelude.lc 74:28-74:29
+    _d -> _d
+testdata/Prelude.lc 74:31-74:32
+    _c -> _c
+testdata/Prelude.lc 74:31-74:34
+    _c
+testdata/Prelude.lc 74:33-74:34
+    _c
+testdata/Prelude.lc 76:1-76:4
+    forall a b . (a, b) -> a
+testdata/Prelude.lc 76:14-76:15
+    _k | _h | _d
+testdata/Prelude.lc 77:1-77:4
+    forall a b . (a, b) -> b
+testdata/Prelude.lc 77:14-77:15
+    _f | _c | _c
+testdata/Prelude.lc 79:7-79:10
+    Bool -> Bool -> Bool
+testdata/Prelude.lc 79:15-79:16
+    _c
+testdata/Prelude.lc 79:15-80:18
+    Bool -> Bool
+testdata/Prelude.lc 80:14-80:18
+    Bool
+testdata/Prelude.lc 84:6-84:9
+    Bool -> Bool -> Bool
+testdata/Prelude.lc 84:14-84:15
+    _b
+testdata/Prelude.lc 84:14-85:20
+    Bool -> Bool
+testdata/Prelude.lc 85:15-85:20
+    Bool
+testdata/Prelude.lc 122:6-122:13
+    Type | Type | Type | Type | Type | Type
+testdata/Prelude.lc 122:6-122:23
+    Type
+testdata/Prelude.lc 122:6-122:35
+    Type
+testdata/Prelude.lc 122:16-122:23
+    String -> Type -> RecItem | RecItem | Type | Type | Type
+testdata/Prelude.lc 122:24-122:30
+    Type
+testdata/Prelude.lc 122:31-122:35
+    Type
+testdata/Prelude.lc 124:1-124:12
+    RecItem -> Type
+testdata/Prelude.lc 124:29-124:30
+    Type
+testdata/Prelude.lc 126:6-126:13
+    List RecItem -> Type | List RecItem -> Type | List RecItem -> Type | List
+        RecItem
+      -> Type | Type
+testdata/Prelude.lc 126:6-126:17
+    Type | Type
+testdata/Prelude.lc 126:6-127:17
+    Type | Type
+testdata/Prelude.lc 126:6-127:46
+    Type
+testdata/Prelude.lc 126:15-126:17
+    List RecItem
+testdata/Prelude.lc 126:21-126:30
+    Type | Type | Type
+testdata/Prelude.lc 126:22-126:29
+    Type | Type | Type
+testdata/Prelude.lc 127:7-127:17
+    forall (a :: List RecItem)
+      . HList (map RecItem Type recItemType a) -> RecordC a | RecordC _c | Type | Type
+testdata/Prelude.lc 127:19-127:24
+    List Type -> Type
+testdata/Prelude.lc 127:19-127:45
+    Type
+testdata/Prelude.lc 127:26-127:29
+    forall a b . (a -> b) -> List a -> List b
+testdata/Prelude.lc 127:26-127:41
+    List RecItem -> List Type
+testdata/Prelude.lc 127:26-127:44
+    List Type
+testdata/Prelude.lc 127:30-127:41
+    RecItem -> Type
+testdata/Prelude.lc 127:42-127:44
+    List RecItem
+testdata/Prelude.lc 129:1-129:7
+    String -> Type -> List RecItem -> Type
+testdata/Prelude.lc 129:17-129:23
+    String -> Type
+testdata/Prelude.lc 129:17-129:26
+    Type
+testdata/Prelude.lc 129:17-130:75
+    List RecItem -> Type
+testdata/Prelude.lc 129:24-129:26
+    String
+testdata/Prelude.lc 130:34-130:75
+    Type | Type
+testdata/Prelude.lc 130:37-130:38
+    _o
+testdata/Prelude.lc 130:37-130:41
+    _n -> Bool
+testdata/Prelude.lc 130:37-130:44
+    Bool
+testdata/Prelude.lc 130:37-130:56
+    Type -> Type
+testdata/Prelude.lc 130:39-130:41
+    forall a . Eq a => a -> a -> Bool
+testdata/Prelude.lc 130:42-130:44
+    String
+testdata/Prelude.lc 130:50-130:51
+    _l
+testdata/Prelude.lc 130:50-130:53
+    _k -> Type
+testdata/Prelude.lc 130:50-130:56
+    Type
+testdata/Prelude.lc 130:52-130:53
+    forall a . a -> a -> Type
+testdata/Prelude.lc 130:54-130:56
+    Type
+testdata/Prelude.lc 130:62-130:68
+    _k
+testdata/Prelude.lc 130:69-130:70
+    String
+testdata/Prelude.lc 130:71-130:72
+    Type
+testdata/Prelude.lc 130:73-130:75
+    List _i
+testdata/Prelude.lc 132:1-132:7
+    forall a (b :: List Type) . HList ('Cons a b) -> a
+testdata/Prelude.lc 132:10-132:23
+    forall a (b :: List Type)
+      . forall c -> (a -> HList b -> c) -> HList ('Cons a b) -> c
+testdata/Prelude.lc 132:10-132:25
+    (_c -> HList _b -> _a) -> HList ('Cons _c _b) -> _a
+testdata/Prelude.lc 132:10-132:37
+    HList ('Cons _b _a) -> _b
+testdata/Prelude.lc 132:35-132:36
+    _e
+testdata/Prelude.lc 133:1-133:7
+    forall a (b :: List Type) . HList ('Cons a b) -> HList b
+testdata/Prelude.lc 133:10-133:23
+    forall a (b :: List Type)
+      . forall c -> (a -> HList b -> c) -> HList ('Cons a b) -> c
+testdata/Prelude.lc 133:10-133:25
+    (_c -> HList _b -> _a) -> HList ('Cons _c _b) -> _a
+testdata/Prelude.lc 133:10-133:37
+    HList ('Cons _b _a) -> HList _a
+testdata/Prelude.lc 133:35-133:36
+    HList _d
+testdata/Prelude.lc 136:12-138:181
+    forall a (b :: List RecItem)
+      . forall (c :: String) -> isKeyC c a b => RecordC b -> a
+testdata/Prelude.lc 136:28-136:37
+    Type
+testdata/Prelude.lc 136:28-136:97
+    Type
+testdata/Prelude.lc 136:29-136:36
+    Type
+testdata/Prelude.lc 136:41-136:97
+    Type
+testdata/Prelude.lc 136:54-136:60
+    Type
+testdata/Prelude.lc 136:65-136:71
+    String -> Type -> List RecItem -> Type
+testdata/Prelude.lc 136:65-136:73
+    Type -> List RecItem -> Type
+testdata/Prelude.lc 136:65-136:75
+    List RecItem -> Type
+testdata/Prelude.lc 136:65-136:78
+    Type
+testdata/Prelude.lc 136:65-136:97
+    Type
+testdata/Prelude.lc 136:72-136:73
+    String
+testdata/Prelude.lc 136:74-136:75
+    _d
+testdata/Prelude.lc 136:76-136:78
+    List RecItem
+testdata/Prelude.lc 136:82-136:89
+    List RecItem -> Type
+testdata/Prelude.lc 136:82-136:92
+    Type
+testdata/Prelude.lc 136:82-136:97
+    Type
+testdata/Prelude.lc 136:90-136:92
+    List RecItem
+testdata/Prelude.lc 136:96-136:97
+    Type | Type
+testdata/Prelude.lc 137:1-137:8
+    forall a (b :: List RecItem)
+      . forall (c :: String) -> isKeyC c a b => RecordC b -> a
+testdata/Prelude.lc 137:57-137:58
+    String
+testdata/Prelude.lc 137:57-137:61
+    String -> Bool
+testdata/Prelude.lc 137:57-137:64
+    Bool
+testdata/Prelude.lc 137:57-138:181
+    _m | _j | _g | _e
+testdata/Prelude.lc 137:59-137:61
+    forall a . Eq a => a -> a -> Bool
+testdata/Prelude.lc 137:62-137:64
+    String
+testdata/Prelude.lc 137:67-137:73
+    forall a (b :: List Type) . HList ('Cons a b) -> a
+testdata/Prelude.lc 137:67-137:129
+    _n
+testdata/Prelude.lc 137:67-138:181
+    Bool -> _n
+testdata/Prelude.lc 137:75-137:87
+    forall a b . a -> b
+testdata/Prelude.lc 137:75-137:90
+    forall a . _a -> a
+testdata/Prelude.lc 137:75-137:125
+    _a -> HList ('Cons _q (map RecItem Type recItemType _j))
+testdata/Prelude.lc 137:75-137:128
+    HList ('Cons _n (map RecItem Type recItemType _g))
+testdata/Prelude.lc 137:93-137:98
+    List Type -> Type
+testdata/Prelude.lc 137:93-137:124
+    Type
+testdata/Prelude.lc 137:101-137:102
+    Type
+testdata/Prelude.lc 137:101-137:104
+    List Type -> List Type
+testdata/Prelude.lc 137:101-137:123
+    List Type
+testdata/Prelude.lc 137:103-137:104
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 137:105-137:108
+    forall a b . (a -> b) -> List a -> List b
+testdata/Prelude.lc 137:105-137:120
+    List RecItem -> List Type
+testdata/Prelude.lc 137:105-137:123
+    List Type
+testdata/Prelude.lc 137:109-137:120
+    RecItem -> Type
+testdata/Prelude.lc 137:121-137:123
+    List RecItem
+testdata/Prelude.lc 137:126-137:128
+    HList (map RecItem Type recItemType _d)
+testdata/Prelude.lc 138:57-138:64
+    forall a (b :: List RecItem)
+      . forall (c :: String) -> isKeyC c a b => RecordC b -> a
+testdata/Prelude.lc 138:57-138:67
+    forall (a :: List RecItem)
+      . forall (b :: String) -> isKeyC b _p a => RecordC a -> _p
+testdata/Prelude.lc 138:57-138:71
+    forall (a :: String) -> isKeyC a _o _h => RecordC _h -> _o
+testdata/Prelude.lc 138:57-138:73
+    isKeyC _m _o _h => RecordC _h -> _o
+testdata/Prelude.lc 138:57-138:103
+    RecordC _h -> _o
+testdata/Prelude.lc 138:57-138:181
+    _n
+testdata/Prelude.lc 138:66-138:67
+    Type
+testdata/Prelude.lc 138:69-138:71
+    List _k
+testdata/Prelude.lc 138:72-138:73
+    String
+testdata/Prelude.lc 138:76-138:85
+    forall a . a
+testdata/Prelude.lc 138:76-138:102
+    isKeyC _m _o _h
+testdata/Prelude.lc 138:88-138:94
+    String -> Type -> List RecItem -> Type
+testdata/Prelude.lc 138:88-138:96
+    Type -> List RecItem -> Type
+testdata/Prelude.lc 138:88-138:98
+    List RecItem -> Type
+testdata/Prelude.lc 138:88-138:101
+    Type
+testdata/Prelude.lc 138:95-138:96
+    String
+testdata/Prelude.lc 138:97-138:98
+    Type
+testdata/Prelude.lc 138:99-138:101
+    List RecItem
+testdata/Prelude.lc 138:105-138:115
+    forall (a :: List RecItem) . HList (map RecItem Type recItemType a) -> RecordC a
+testdata/Prelude.lc 138:105-138:180
+    RecordC _b
+testdata/Prelude.lc 138:117-138:123
+    forall a (b :: List Type) . HList ('Cons a b) -> HList b
+testdata/Prelude.lc 138:117-138:179
+    HList (map RecItem Type recItemType _h)
+testdata/Prelude.lc 138:125-138:137
+    forall a b . a -> b
+testdata/Prelude.lc 138:125-138:140
+    forall a . _a -> a
+testdata/Prelude.lc 138:125-138:175
+    _a -> HList ('Cons _r (map RecItem Type recItemType _k))
+testdata/Prelude.lc 138:125-138:178
+    HList ('Cons _o (map RecItem Type recItemType _h))
+testdata/Prelude.lc 138:143-138:148
+    List Type -> Type
+testdata/Prelude.lc 138:143-138:174
+    Type
+testdata/Prelude.lc 138:151-138:152
+    Type
+testdata/Prelude.lc 138:151-138:154
+    List Type -> List Type
+testdata/Prelude.lc 138:151-138:173
+    List Type
+testdata/Prelude.lc 138:153-138:154
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 138:155-138:158
+    forall a b . (a -> b) -> List a -> List b
+testdata/Prelude.lc 138:155-138:170
+    List RecItem -> List Type
+testdata/Prelude.lc 138:155-138:173
+    List Type
+testdata/Prelude.lc 138:159-138:170
+    RecItem -> Type
+testdata/Prelude.lc 138:171-138:173
+    List RecItem
+testdata/Prelude.lc 138:176-138:178
+    HList (map RecItem Type recItemType _e)
+testdata/Prelude.lc 142:1-142:4
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 142:13-142:15
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 142:13-142:17
+    _f -> _f -> _f -> VecS _f 4
+testdata/Prelude.lc 142:13-142:19
+    _e -> _e -> VecS _e 4
+testdata/Prelude.lc 142:13-142:21
+    _d -> VecS _d 4
+testdata/Prelude.lc 142:13-142:25
+    VecS Float 4
+testdata/Prelude.lc 142:16-142:17
+    _g
+testdata/Prelude.lc 142:18-142:19
+    _d
+testdata/Prelude.lc 142:20-142:21
+    _b
+testdata/Prelude.lc 142:22-142:25
+    Float
+testdata/Prelude.lc 144:1-144:6
+    VecS Float 4
+testdata/Prelude.lc 144:11-144:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 144:11-144:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 144:11-144:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 144:11-144:26
+    VecS Float 4
+testdata/Prelude.lc 144:15-144:18
+    Float
+testdata/Prelude.lc 144:19-144:22
+    Float
+testdata/Prelude.lc 144:23-144:26
+    Float
+testdata/Prelude.lc 145:1-145:5
+    VecS Float 4
+testdata/Prelude.lc 145:11-145:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 145:11-145:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 145:11-145:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 145:11-145:26
+    VecS Float 4
+testdata/Prelude.lc 145:15-145:18
+    Float
+testdata/Prelude.lc 145:19-145:22
+    Float
+testdata/Prelude.lc 145:23-145:26
+    Float
+testdata/Prelude.lc 146:1-146:7
+    VecS Float 4
+testdata/Prelude.lc 146:11-146:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 146:11-146:19
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 146:11-146:24
+    Float -> VecS Float 4
+testdata/Prelude.lc 146:11-146:29
+    VecS Float 4
+testdata/Prelude.lc 146:15-146:19
+    Float
+testdata/Prelude.lc 146:20-146:24
+    Float
+testdata/Prelude.lc 146:25-146:29
+    Float
+testdata/Prelude.lc 147:1-147:6
+    VecS Float 4
+testdata/Prelude.lc 147:11-147:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 147:11-147:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 147:11-147:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 147:11-147:26
+    VecS Float 4
+testdata/Prelude.lc 147:15-147:18
+    Float
+testdata/Prelude.lc 147:19-147:22
+    Float
+testdata/Prelude.lc 147:23-147:26
+    Float
+testdata/Prelude.lc 148:1-148:7
+    VecS Float 4
+testdata/Prelude.lc 148:11-148:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 148:11-148:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 148:11-148:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 148:11-148:26
+    VecS Float 4
+testdata/Prelude.lc 148:15-148:18
+    Float
+testdata/Prelude.lc 148:19-148:22
+    Float
+testdata/Prelude.lc 148:23-148:26
+    Float
+testdata/Prelude.lc 149:1-149:4
+    VecS Float 4
+testdata/Prelude.lc 149:11-149:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 149:11-149:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 149:11-149:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 149:11-149:26
+    VecS Float 4
+testdata/Prelude.lc 149:15-149:18
+    Float
+testdata/Prelude.lc 149:19-149:22
+    Float
+testdata/Prelude.lc 149:23-149:26
+    Float
+testdata/Prelude.lc 150:1-150:6
+    VecS Float 4
+testdata/Prelude.lc 150:11-150:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 150:11-150:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 150:11-150:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 150:11-150:26
+    VecS Float 4
+testdata/Prelude.lc 150:15-150:18
+    Float
+testdata/Prelude.lc 150:19-150:22
+    Float
+testdata/Prelude.lc 150:23-150:26
+    Float
+testdata/Prelude.lc 151:1-151:7
+    VecS Float 4
+testdata/Prelude.lc 151:11-151:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 151:11-151:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 151:11-151:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 151:11-151:26
+    VecS Float 4
+testdata/Prelude.lc 151:15-151:18
+    Float
+testdata/Prelude.lc 151:19-151:22
+    Float
+testdata/Prelude.lc 151:23-151:26
+    Float
+testdata/Prelude.lc 152:1-152:6
+    VecS Float 4
+testdata/Prelude.lc 152:11-152:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 152:11-152:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 152:11-152:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 152:11-152:26
+    VecS Float 4
+testdata/Prelude.lc 152:15-152:18
+    Float
+testdata/Prelude.lc 152:19-152:22
+    Float
+testdata/Prelude.lc 152:23-152:26
+    Float
+testdata/Prelude.lc 153:1-153:5
+    VecS Float 4
+testdata/Prelude.lc 153:11-153:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 153:11-153:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 153:11-153:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 153:11-153:26
+    VecS Float 4
+testdata/Prelude.lc 153:15-153:18
+    Float
+testdata/Prelude.lc 153:19-153:22
+    Float
+testdata/Prelude.lc 153:23-153:26
+    Float
+testdata/Prelude.lc 154:1-154:5
+    VecS Float 4
+testdata/Prelude.lc 154:11-154:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 154:11-154:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 154:11-154:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 154:11-154:26
+    VecS Float 4
+testdata/Prelude.lc 154:15-154:18
+    Float
+testdata/Prelude.lc 154:19-154:22
+    Float
+testdata/Prelude.lc 154:23-154:26
+    Float
+testdata/Prelude.lc 155:1-155:5
+    VecS Float 4
+testdata/Prelude.lc 155:11-155:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 155:11-155:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 155:11-155:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 155:11-155:26
+    VecS Float 4
+testdata/Prelude.lc 155:15-155:18
+    Float
+testdata/Prelude.lc 155:19-155:22
+    Float
+testdata/Prelude.lc 155:23-155:26
+    Float
+testdata/Prelude.lc 156:1-156:5
+    VecS Float 4
+testdata/Prelude.lc 156:11-156:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 156:11-156:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 156:11-156:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 156:11-156:26
+    VecS Float 4
+testdata/Prelude.lc 156:15-156:18
+    Float
+testdata/Prelude.lc 156:19-156:22
+    Float
+testdata/Prelude.lc 156:23-156:26
+    Float
+testdata/Prelude.lc 157:1-157:5
+    VecS Float 4
+testdata/Prelude.lc 157:11-157:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 157:11-157:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 157:11-157:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 157:11-157:26
+    VecS Float 4
+testdata/Prelude.lc 157:15-157:18
+    Float
+testdata/Prelude.lc 157:19-157:22
+    Float
+testdata/Prelude.lc 157:23-157:26
+    Float
+testdata/Prelude.lc 158:1-158:7
+    VecS Float 4
+testdata/Prelude.lc 158:11-158:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 158:11-158:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 158:11-158:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 158:11-158:26
+    VecS Float 4
+testdata/Prelude.lc 158:15-158:18
+    Float
+testdata/Prelude.lc 158:19-158:22
+    Float
+testdata/Prelude.lc 158:23-158:26
+    Float
+testdata/Prelude.lc 159:1-159:8
+    VecS Float 4
+testdata/Prelude.lc 159:11-159:14
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 159:11-159:18
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 159:11-159:22
+    Float -> VecS Float 4
+testdata/Prelude.lc 159:11-159:26
+    VecS Float 4
+testdata/Prelude.lc 159:15-159:18
+    Float
+testdata/Prelude.lc 159:19-159:22
+    Float
+testdata/Prelude.lc 159:23-159:26
+    Float
+testdata/Prelude.lc 161:1-161:12
+    forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
+testdata/Prelude.lc 161:15-161:25
+    forall (a :: Nat) (b :: Nat) c d
+      . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
+testdata/Prelude.lc 161:15-161:28
+    forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
+testdata/Prelude.lc 161:27-161:28
+    _b
+testdata/Prelude.lc 162:1-162:12
+    forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 2 ('Color c)
+testdata/Prelude.lc 162:15-162:25
+    forall (a :: Nat) (b :: Nat) c d
+      . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
+testdata/Prelude.lc 162:15-162:28
+    forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 2 ('Color c)
+testdata/Prelude.lc 162:27-162:28
+    _b
+testdata/Prelude.lc 164:1-164:12
+    Float -> Image 1 'Depth
+testdata/Prelude.lc 164:15-164:25
+    forall (a :: Nat) . Float -> Image a 'Depth
+testdata/Prelude.lc 164:15-164:28
+    Float -> Image 1 'Depth
+testdata/Prelude.lc 164:27-164:28
+    _b
+testdata/Prelude.lc 166:13-166:16
+    Nat -> Type -> Type
+testdata/Prelude.lc 166:13-166:18
+    Type -> Type
+testdata/Prelude.lc 166:13-166:24
+    Type
+testdata/Prelude.lc 166:17-166:18
+    _b
+testdata/Prelude.lc 166:19-166:24
+    Type
+testdata/Prelude.lc 166:28-166:31
+    Nat -> Type -> Type
+testdata/Prelude.lc 166:28-166:33
+    Type -> Type
+testdata/Prelude.lc 166:28-166:39
+    Type | Type
+testdata/Prelude.lc 166:32-166:33
+    _b
+testdata/Prelude.lc 166:34-166:39
+    Type
+testdata/Prelude.lc 167:1-167:9
+    Vec 3 Float -> VecS Float 4
+testdata/Prelude.lc 167:14-167:16
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 167:14-167:20
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 167:14-167:24
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 167:14-167:28
+    Float -> VecS Float 4
+testdata/Prelude.lc 167:14-167:30
+    VecS Float 4
+testdata/Prelude.lc 167:17-167:18
+    Vec 3 Float
+testdata/Prelude.lc 167:17-167:20
+    Float
+testdata/Prelude.lc 167:21-167:22
+    Vec 3 Float
+testdata/Prelude.lc 167:21-167:24
+    Float
+testdata/Prelude.lc 167:25-167:26
+    Vec 3 Float
+testdata/Prelude.lc 167:25-167:28
+    Float
+testdata/Prelude.lc 167:29-167:30
+    _b
+testdata/Prelude.lc 174:1-174:8
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 174:11-174:22
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 175:1-175:8
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 175:11-175:22
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 176:1-176:4
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 176:7-176:14
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 177:1-177:4
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 177:7-177:14
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 178:1-178:4
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 178:7-178:14
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 179:1-179:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 179:8-179:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 180:1-180:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 180:8-180:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 181:1-181:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 181:8-181:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 182:1-182:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 182:8-182:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 183:1-183:6
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 183:9-183:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 184:1-184:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 184:8-184:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 185:1-185:6
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 185:9-185:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 186:1-186:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 186:8-186:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 187:1-187:6
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 187:9-187:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 188:1-188:6
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+testdata/Prelude.lc 188:9-188:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+testdata/Prelude.lc 191:1-191:4
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+testdata/Prelude.lc 191:7-191:14
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+testdata/Prelude.lc 192:1-192:4
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 192:7-192:14
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 193:1-193:4
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 193:7-193:14
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 194:1-194:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 194:8-194:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 195:1-195:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 195:8-195:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 196:1-196:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 196:8-196:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 197:1-197:12
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 197:15-197:26
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 200:1-200:4
+    forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+testdata/Prelude.lc 200:7-200:14
+    forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+testdata/Prelude.lc 201:1-201:5
+    forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+testdata/Prelude.lc 201:8-201:16
+    forall a b (c :: Nat) . (Signed a, b ~ VecScalar c a) => b -> b
+testdata/Prelude.lc 202:1-202:6
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 202:9-202:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 203:1-203:6
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 203:9-203:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 204:1-204:6
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 204:9-204:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 205:1-205:10
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 205:13-205:26
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 206:1-206:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 206:8-206:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 207:1-207:6
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 207:9-207:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 208:1-208:4
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 208:7-208:14
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 209:1-209:4
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 209:7-209:14
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 210:1-210:4
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 210:7-210:14
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 211:1-211:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
+testdata/Prelude.lc 211:8-211:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> (a, a)
+testdata/Prelude.lc 212:1-212:6
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
+testdata/Prelude.lc 212:9-212:18
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
+testdata/Prelude.lc 213:1-213:7
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
+testdata/Prelude.lc 213:10-213:20
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
+testdata/Prelude.lc 214:1-214:4
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+testdata/Prelude.lc 214:7-214:14
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+testdata/Prelude.lc 215:1-215:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
+testdata/Prelude.lc 215:8-215:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float -> a
+testdata/Prelude.lc 216:1-216:5
+    forall a (b :: Nat) c
+      . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
+testdata/Prelude.lc 216:8-216:16
+    forall a (b :: Nat) c
+      . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
+testdata/Prelude.lc 217:1-217:5
+    forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
+testdata/Prelude.lc 217:8-217:16
+    forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a
+testdata/Prelude.lc 218:1-218:6
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
+testdata/Prelude.lc 218:9-218:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> a -> a
+testdata/Prelude.lc 219:1-219:11
+    forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
+testdata/Prelude.lc 219:14-219:28
+    forall a (b :: Nat) . (a ~ VecS Float b) => a -> a -> a -> a
+testdata/Prelude.lc 220:1-220:12
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
+testdata/Prelude.lc 220:15-220:30
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => Float -> Float -> a -> a
+testdata/Prelude.lc 221:1-221:6
+    forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+testdata/Prelude.lc 221:9-221:18
+    forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+testdata/Prelude.lc 222:1-222:6
+    forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+testdata/Prelude.lc 222:9-222:18
+    forall a (b :: Nat) c . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
+testdata/Prelude.lc 224:1-224:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 224:8-224:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 225:1-225:5
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 225:8-225:16
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 226:1-226:7
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 226:10-226:20
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 228:1-228:7
+    forall (a :: Nat) . VecScalar a Float -> Float
+testdata/Prelude.lc 228:10-228:20
+    forall (a :: Nat) . VecScalar a Float -> Float
+testdata/Prelude.lc 229:1-229:7
+    forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
+testdata/Prelude.lc 229:10-229:20
+    forall (a :: Nat) . VecScalar a Float -> Vec 2 Float
+testdata/Prelude.lc 230:1-230:7
+    forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
+testdata/Prelude.lc 230:10-230:20
+    forall (a :: Nat) . VecScalar a Float -> Vec 3 Float
+testdata/Prelude.lc 231:1-231:7
+    forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
+testdata/Prelude.lc 231:10-231:20
+    forall (a :: Nat) . VecScalar a Float -> Vec 4 Float
+testdata/Prelude.lc 234:1-234:7
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
+testdata/Prelude.lc 234:10-234:20
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> Float
+testdata/Prelude.lc 235:1-235:9
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+testdata/Prelude.lc 235:12-235:24
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+testdata/Prelude.lc 236:1-236:4
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+testdata/Prelude.lc 236:7-236:14
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> Float
+testdata/Prelude.lc 237:1-237:6
+    forall a . (a ~ VecS Float 3) => a -> a -> a
+testdata/Prelude.lc 237:9-237:18
+    forall a . (a ~ VecS Float 3) => a -> a -> a
+testdata/Prelude.lc 238:1-238:10
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 238:13-238:26
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 239:1-239:12
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+testdata/Prelude.lc 239:15-239:30
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+testdata/Prelude.lc 240:1-240:8
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+testdata/Prelude.lc 240:11-240:22
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a
+testdata/Prelude.lc 241:1-241:8
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+testdata/Prelude.lc 241:11-241:22
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a -> a -> a
+testdata/Prelude.lc 243:1-243:10
+    forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
+testdata/Prelude.lc 243:13-243:26
+    forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
+testdata/Prelude.lc 244:1-244:4
+    forall (a :: Nat) b . Mat a a b -> Float
+testdata/Prelude.lc 244:7-244:22
+    forall (a :: Nat) b . Mat a a b -> Float
+testdata/Prelude.lc 245:1-245:4
+    forall (a :: Nat) b . Mat a a b -> Mat a a b
+testdata/Prelude.lc 245:7-245:18
+    forall (a :: Nat) b . Mat a a b -> Mat a a b
+testdata/Prelude.lc 246:1-246:6
+    forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
+testdata/Prelude.lc 246:9-246:25
+    forall (a :: Nat) b (c :: Nat) . Vec a b -> Vec c b -> Mat c a b
+testdata/Prelude.lc 248:1-248:5
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 248:11-248:19
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 249:1-249:4
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 249:11-249:18
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 250:1-250:5
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 250:11-250:19
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 251:1-251:5
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
+testdata/Prelude.lc 251:11-251:19
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> b
+testdata/Prelude.lc 252:1-252:6
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+testdata/Prelude.lc 252:11-252:20
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+testdata/Prelude.lc 253:1-253:5
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> a -> b
+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 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
+testdata/Prelude.lc 258:11-258:23
+    forall a b (c :: Nat) . (Integral a, b ~ VecScalar c a) => b -> Word -> b
+testdata/Prelude.lc 260:1-260:15
+    forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
+testdata/Prelude.lc 260:19-260:37
+    forall (a :: Nat) . VecScalar a Float -> VecScalar a Int
+testdata/Prelude.lc 261:1-261:16
+    forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
+testdata/Prelude.lc 261:19-261:38
+    forall (a :: Nat) . VecScalar a Float -> VecScalar a Word
+testdata/Prelude.lc 262:1-262:15
+    forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
+testdata/Prelude.lc 262:19-262:37
+    forall (a :: Nat) . VecScalar a Int -> VecScalar a Float
+testdata/Prelude.lc 263:1-263:16
+    forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
+testdata/Prelude.lc 263:19-263:38
+    forall (a :: Nat) . VecScalar a Word -> VecScalar a Float
+testdata/Prelude.lc 281:3-281:4
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 281:9-281:16
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 281:9-281:18
+    _e -> _e
+testdata/Prelude.lc 281:9-281:20
+    _d
+testdata/Prelude.lc 281:17-281:18
+    _f
+testdata/Prelude.lc 281:19-281:20
+    _c
+testdata/Prelude.lc 282:3-282:4
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 282:9-282:16
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 282:9-282:18
+    _e -> _e
+testdata/Prelude.lc 282:9-282:20
+    _d
+testdata/Prelude.lc 282:17-282:18
+    _f
+testdata/Prelude.lc 282:19-282:20
+    _c
+testdata/Prelude.lc 283:3-283:4
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 283:9-283:16
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 283:9-283:18
+    _e -> _e
+testdata/Prelude.lc 283:9-283:20
+    _d
+testdata/Prelude.lc 283:17-283:18
+    _f
+testdata/Prelude.lc 283:19-283:20
+    _c
+testdata/Prelude.lc 284:3-284:4
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/Prelude.lc 284:9-284:16
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 284:9-284:18
+    VecScalar _b _c -> VecScalar _b _c
+testdata/Prelude.lc 284:9-284:20
+    VecScalar _b _c
+testdata/Prelude.lc 284:17-284:18
+    _g
+testdata/Prelude.lc 284:19-284:20
+    _e
+testdata/Prelude.lc 285:3-285:4
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/Prelude.lc 285:9-285:16
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> b -> b
+testdata/Prelude.lc 285:9-285:18
+    VecScalar _b _c -> VecScalar _b _c
+testdata/Prelude.lc 285:9-285:20
+    VecScalar _b _c
+testdata/Prelude.lc 285:17-285:18
+    _g
+testdata/Prelude.lc 285:19-285:20
+    _e
+testdata/Prelude.lc 287:1-287:4
+    forall a . Signed (MatVecScalarElem a) => a -> a
+testdata/Prelude.lc 287:9-287:16
+    forall a . Signed (MatVecScalarElem a) => a -> a
+testdata/Prelude.lc 287:9-287:18
+    _c
+testdata/Prelude.lc 287:17-287:18
+    _d
+testdata/Prelude.lc 291:3-291:5
+    forall a . a -> a -> Bool
+testdata/Prelude.lc 291:10-291:22
+    forall a b . (b ~ MatVecScalarElem a) => a -> a -> Bool
+testdata/Prelude.lc 291:10-291:24
+    _d -> Bool
+testdata/Prelude.lc 291:10-291:26
+    Bool
+testdata/Prelude.lc 291:23-291:24
+    _e
+testdata/Prelude.lc 291:25-291:26
+    _b
+testdata/Prelude.lc 292:3-292:4
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/Prelude.lc 292:9-292:21
+    forall a (b :: Nat) c d
+      . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+testdata/Prelude.lc 292:9-292:23
+    VecScalar _c _b -> VecScalar _c Bool
+testdata/Prelude.lc 292:9-292:25
+    VecScalar _c Bool
+testdata/Prelude.lc 292:22-292:23
+    _g
+testdata/Prelude.lc 292:24-292:25
+    _e
+testdata/Prelude.lc 293:3-293:5
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/Prelude.lc 293:10-293:27
+    forall a (b :: Nat) c d
+      . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+testdata/Prelude.lc 293:10-293:29
+    VecScalar _c _b -> VecScalar _c Bool
+testdata/Prelude.lc 293:10-293:31
+    VecScalar _c Bool
+testdata/Prelude.lc 293:28-293:29
+    _g
+testdata/Prelude.lc 293:30-293:31
+    _e
+testdata/Prelude.lc 294:3-294:5
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/Prelude.lc 294:10-294:30
+    forall a (b :: Nat) c d
+      . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+testdata/Prelude.lc 294:10-294:32
+    VecScalar _c _b -> VecScalar _c Bool
+testdata/Prelude.lc 294:10-294:34
+    VecScalar _c Bool
+testdata/Prelude.lc 294:31-294:32
+    _g
+testdata/Prelude.lc 294:33-294:34
+    _e
+testdata/Prelude.lc 295:3-295:4
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/Prelude.lc 295:9-295:24
+    forall a (b :: Nat) c d
+      . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
+testdata/Prelude.lc 295:9-295:26
+    VecScalar _c _b -> VecScalar _c Bool
+testdata/Prelude.lc 295:9-295:28
+    VecScalar _c Bool
+testdata/Prelude.lc 295:25-295:26
+    _g
+testdata/Prelude.lc 295:27-295:28
+    _e
+testdata/Prelude.lc 298:3-298:5
+    Bool -> Bool -> Bool
+testdata/Prelude.lc 298:10-298:17
+    Bool -> Bool -> Bool
+testdata/Prelude.lc 298:10-298:19
+    Bool -> Bool
+testdata/Prelude.lc 298:10-298:21
+    Bool
+testdata/Prelude.lc 298:18-298:19
+    _d
+testdata/Prelude.lc 298:20-298:21
+    _b
+testdata/Prelude.lc 299:3-299:5
+    Bool -> Bool -> Bool
+testdata/Prelude.lc 299:10-299:16
+    Bool -> Bool -> Bool
+testdata/Prelude.lc 299:10-299:18
+    Bool -> Bool
+testdata/Prelude.lc 299:10-299:20
+    Bool
+testdata/Prelude.lc 299:17-299:18
+    _d
+testdata/Prelude.lc 299:19-299:20
+    _b
+testdata/Prelude.lc 300:1-300:4
+    Bool -> Bool -> Bool
+testdata/Prelude.lc 300:7-300:14
+    Bool -> Bool -> Bool
+testdata/Prelude.lc 301:1-301:4
+    forall (a :: Nat) . VecScalar a Bool -> VecScalar a Bool
+testdata/Prelude.lc 301:9-301:16
+    forall a (b :: Nat) . (a ~ VecScalar b Bool) => a -> a
+testdata/Prelude.lc 301:9-301:18
+    VecScalar _a Bool
+testdata/Prelude.lc 301:17-301:18
+    _c
+testdata/Prelude.lc 302:1-302:4
+    forall (a :: Nat) . VecScalar a Bool -> Bool
+testdata/Prelude.lc 302:9-302:16
+    forall (a :: Nat) . VecScalar a Bool -> Bool
+testdata/Prelude.lc 302:9-302:18
+    Bool
+testdata/Prelude.lc 302:17-302:18
+    _c
+testdata/Prelude.lc 303:1-303:4
+    forall (a :: Nat) . VecScalar a Bool -> Bool
+testdata/Prelude.lc 303:9-303:16
+    forall (a :: Nat) . VecScalar a Bool -> Bool
+testdata/Prelude.lc 303:9-303:18
+    Bool
+testdata/Prelude.lc 303:17-303:18
+    _c
+testdata/Prelude.lc 306:3-306:6
+    forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
+testdata/Prelude.lc 306:11-306:24
+    forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
+testdata/Prelude.lc 306:11-306:26
+    Mat _c _a _b -> Mat _d _a _b
+testdata/Prelude.lc 306:11-306:28
+    Mat _d _a _b
+testdata/Prelude.lc 306:25-306:26
+    _h
+testdata/Prelude.lc 306:27-306:28
+    _f
+testdata/Prelude.lc 307:3-307:5
+    forall (a :: Nat) (b :: Nat) c . Mat a b c -> VecS c b -> Vec a c
+testdata/Prelude.lc 307:10-307:23
+    forall (a :: Nat) (b :: Nat) c . Mat a b c -> Vec b c -> Vec a c
+testdata/Prelude.lc 307:10-307:25
+    Vec _b _a -> Vec _c _a
+testdata/Prelude.lc 307:10-307:27
+    Vec _c _a
+testdata/Prelude.lc 307:24-307:25
+    _g
+testdata/Prelude.lc 307:26-307:27
+    _e
+testdata/Prelude.lc 308:3-308:5
+    forall (a :: Nat) b (c :: Nat) . VecS b a -> Mat a c b -> Vec c b
+testdata/Prelude.lc 308:10-308:23
+    forall (a :: Nat) b (c :: Nat) . Vec a b -> Mat a c b -> Vec c b
+testdata/Prelude.lc 308:10-308:25
+    Mat _c _a _b -> Vec _a _b
+testdata/Prelude.lc 308:10-308:27
+    Vec _a _b
+testdata/Prelude.lc 308:24-308:25
+    _g
+testdata/Prelude.lc 308:26-308:27
+    _e
+testdata/Prelude.lc 315:3-315:5
+    forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
+testdata/Prelude.lc 315:10-315:18
+    forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
+testdata/Prelude.lc 315:10-315:20
+    MatVecScalarElem _e -> _e
+testdata/Prelude.lc 315:10-315:22
+    _d
+testdata/Prelude.lc 315:19-315:20
+    _f
+testdata/Prelude.lc 315:21-315:22
+    _c
+testdata/Prelude.lc 316:3-316:5
+    forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
+testdata/Prelude.lc 316:10-316:18
+    forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
+testdata/Prelude.lc 316:10-316:20
+    MatVecScalarElem _e -> _e
+testdata/Prelude.lc 316:10-316:22
+    _d
+testdata/Prelude.lc 316:19-316:20
+    _f
+testdata/Prelude.lc 316:21-316:22
+    _c
+testdata/Prelude.lc 317:3-317:5
+    forall a . Num (MatVecScalarElem a) => a -> MatVecScalarElem a -> a
+testdata/Prelude.lc 317:10-317:18
+    forall a b . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
+testdata/Prelude.lc 317:10-317:20
+    MatVecScalarElem _e -> _e
+testdata/Prelude.lc 317:10-317:22
+    _d
+testdata/Prelude.lc 317:19-317:20
+    _f
+testdata/Prelude.lc 317:21-317:22
+    _c
+testdata/Prelude.lc 318:3-318:5
+    forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
+testdata/Prelude.lc 318:10-318:18
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+testdata/Prelude.lc 318:10-318:20
+    _c -> VecScalar _b _c
+testdata/Prelude.lc 318:10-318:22
+    VecScalar _b _d
+testdata/Prelude.lc 318:19-318:20
+    _g
+testdata/Prelude.lc 318:21-318:22
+    _e
+testdata/Prelude.lc 319:3-319:5
+    forall a (b :: Nat) . Num a => VecScalar b a -> a -> VecScalar b a
+testdata/Prelude.lc 319:10-319:18
+    forall a b (c :: Nat) . (Num a, b ~ VecScalar c a) => b -> a -> b
+testdata/Prelude.lc 319:10-319:20
+    _c -> VecScalar _b _c
+testdata/Prelude.lc 319:10-319:22
+    VecScalar _b _d
+testdata/Prelude.lc 319:19-319:20
+    _g
+testdata/Prelude.lc 319:21-319:22
+    _e
+testdata/Prelude.lc 326:16-326:21
+    Type
+testdata/Prelude.lc 327:16-327:21
+    Type
+testdata/Prelude.lc 327:16-330:29
+    Type
+testdata/Prelude.lc 328:16-328:21
+    Type
+testdata/Prelude.lc 328:16-330:29
+    Type
+testdata/Prelude.lc 329:16-329:21
+    Type
+testdata/Prelude.lc 329:16-330:29
+    Type
+testdata/Prelude.lc 330:16-330:19
+    Nat -> Nat -> Type -> Type
+testdata/Prelude.lc 330:16-330:21
+    Nat -> Type -> Type
+testdata/Prelude.lc 330:16-330:23
+    Type -> Type
+testdata/Prelude.lc 330:16-330:29
+    Type | Type
+testdata/Prelude.lc 330:20-330:21
+    _b
+testdata/Prelude.lc 330:22-330:23
+    _b
+testdata/Prelude.lc 330:24-330:29
+    Type
+testdata/Prelude.lc 331:1-331:12
+    Float -> Float -> Float -> Float -> Mat 4 4 Float
+testdata/Prelude.lc 332:5-332:9
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 332:5-332:59
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 332:5-333:59
+    Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 332:5-334:62
+    Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 332:5-335:59
+    Mat 4 4 Float
+testdata/Prelude.lc 332:11-332:13
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 332:11-332:25
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 332:11-332:29
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 332:11-332:43
+    Float -> VecS Float 4
+testdata/Prelude.lc 332:11-332:58
+    VecS Float 4
+testdata/Prelude.lc 332:15-332:16
+    _b
+testdata/Prelude.lc 332:15-332:17
+    _c -> _c
+testdata/Prelude.lc 332:15-332:18
+    VecScalar 1 Float
+testdata/Prelude.lc 332:15-332:19
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/Prelude.lc 332:15-332:24
+    VecScalar 1 Float
+testdata/Prelude.lc 332:16-332:17
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 332:17-332:18
+    Float
+testdata/Prelude.lc 332:18-332:19
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/Prelude.lc 332:20-332:21
+    Float
+testdata/Prelude.lc 332:20-332:22
+    Float -> Float
+testdata/Prelude.lc 332:20-332:23
+    Float
+testdata/Prelude.lc 332:21-332:22
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 332:22-332:23
+    Float
+testdata/Prelude.lc 332:28-332:29
+    _b
+testdata/Prelude.lc 332:42-332:43
+    _b
+testdata/Prelude.lc 332:57-332:58
+    _b
+testdata/Prelude.lc 333:11-333:13
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 333:11-333:15
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 333:11-333:39
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 333:11-333:43
+    Float -> VecS Float 4
+testdata/Prelude.lc 333:11-333:58
+    VecS Float 4
+testdata/Prelude.lc 333:14-333:15
+    _b
+testdata/Prelude.lc 333:29-333:30
+    _b
+testdata/Prelude.lc 333:29-333:31
+    _c -> _c
+testdata/Prelude.lc 333:29-333:32
+    VecScalar 1 Float
+testdata/Prelude.lc 333:29-333:33
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/Prelude.lc 333:29-333:38
+    VecScalar 1 Float
+testdata/Prelude.lc 333:30-333:31
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 333:31-333:32
+    Float
+testdata/Prelude.lc 333:32-333:33
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/Prelude.lc 333:34-333:35
+    Float
+testdata/Prelude.lc 333:34-333:36
+    Float -> Float
+testdata/Prelude.lc 333:34-333:37
+    Float
+testdata/Prelude.lc 333:35-333:36
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 333:36-333:37
+    Float
+testdata/Prelude.lc 333:42-333:43
+    _b
+testdata/Prelude.lc 333:57-333:58
+    _b
+testdata/Prelude.lc 334:11-334:13
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 334:11-334:27
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 334:11-334:41
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 334:11-334:56
+    Float -> VecS Float 4
+testdata/Prelude.lc 334:11-334:61
+    VecS Float 4
+testdata/Prelude.lc 334:15-334:21
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/Prelude.lc 334:15-334:26
+    VecScalar 1 Float
+testdata/Prelude.lc 334:16-334:17
+    Float
+testdata/Prelude.lc 334:16-334:18
+    Float -> Float
+testdata/Prelude.lc 334:16-334:19
+    Float
+testdata/Prelude.lc 334:17-334:18
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 334:18-334:19
+    Float
+testdata/Prelude.lc 334:20-334:21
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/Prelude.lc 334:22-334:23
+    Float
+testdata/Prelude.lc 334:22-334:24
+    Float -> Float
+testdata/Prelude.lc 334:22-334:25
+    Float
+testdata/Prelude.lc 334:23-334:24
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 334:24-334:25
+    Float
+testdata/Prelude.lc 334:29-334:35
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/Prelude.lc 334:29-334:40
+    VecScalar 1 Float
+testdata/Prelude.lc 334:30-334:31
+    Float
+testdata/Prelude.lc 334:30-334:32
+    Float -> Float
+testdata/Prelude.lc 334:30-334:33
+    Float
+testdata/Prelude.lc 334:31-334:32
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 334:32-334:33
+    Float
+testdata/Prelude.lc 334:34-334:35
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/Prelude.lc 334:36-334:37
+    Float
+testdata/Prelude.lc 334:36-334:38
+    Float -> Float
+testdata/Prelude.lc 334:36-334:39
+    Float
+testdata/Prelude.lc 334:37-334:38
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 334:38-334:39
+    Float
+testdata/Prelude.lc 334:43-334:44
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 334:43-334:55
+    Float
+testdata/Prelude.lc 334:44-334:50
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/Prelude.lc 334:44-334:55
+    VecScalar 1 Float
+testdata/Prelude.lc 334:45-334:46
+    Float
+testdata/Prelude.lc 334:45-334:47
+    Float -> Float
+testdata/Prelude.lc 334:45-334:48
+    Float
+testdata/Prelude.lc 334:46-334:47
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 334:47-334:48
+    Float
+testdata/Prelude.lc 334:49-334:50
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/Prelude.lc 334:51-334:52
+    Float
+testdata/Prelude.lc 334:51-334:53
+    Float -> Float
+testdata/Prelude.lc 334:51-334:54
+    Float
+testdata/Prelude.lc 334:52-334:53
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 334:53-334:54
+    Float
+testdata/Prelude.lc 334:58-334:59
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 334:58-334:60
+    Float
+testdata/Prelude.lc 334:59-334:60
+    _b
+testdata/Prelude.lc 335:11-335:13
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 335:11-335:15
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 335:11-335:29
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 335:11-335:56
+    Float -> VecS Float 4
+testdata/Prelude.lc 335:11-335:58
+    VecS Float 4
+testdata/Prelude.lc 335:14-335:15
+    _b
+testdata/Prelude.lc 335:28-335:29
+    _b
+testdata/Prelude.lc 335:43-335:44
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 335:43-335:55
+    Float
+testdata/Prelude.lc 335:44-335:45
+    _b
+testdata/Prelude.lc 335:44-335:46
+    _c -> _c
+testdata/Prelude.lc 335:44-335:47
+    Float
+testdata/Prelude.lc 335:44-335:48
+    Float -> Float
+testdata/Prelude.lc 335:44-335:49
+    Float
+testdata/Prelude.lc 335:44-335:50
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/Prelude.lc 335:44-335:55
+    VecScalar 1 Float
+testdata/Prelude.lc 335:45-335:46
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 335:46-335:47
+    Float
+testdata/Prelude.lc 335:47-335:48
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 335:48-335:49
+    Float
+testdata/Prelude.lc 335:49-335:50
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/Prelude.lc 335:51-335:52
+    Float
+testdata/Prelude.lc 335:51-335:53
+    Float -> Float
+testdata/Prelude.lc 335:51-335:54
+    Float
+testdata/Prelude.lc 335:52-335:53
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 335:53-335:54
+    Float
+testdata/Prelude.lc 335:57-335:58
+    _b
+testdata/Prelude.lc 337:9-337:10
+    Float
+testdata/Prelude.lc 337:9-337:11
+    Float -> Float
+testdata/Prelude.lc 337:9-337:22
+    Float
+testdata/Prelude.lc 337:10-337:11
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 337:11-337:14
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 337:11-337:22
+    VecScalar 1 Float
+testdata/Prelude.lc 337:15-337:19
+    Float
+testdata/Prelude.lc 337:15-337:20
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/Prelude.lc 337:15-337:21
+    VecScalar 1 Float
+testdata/Prelude.lc 337:19-337:20
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/Prelude.lc 337:20-337:21
+    _b
+testdata/Prelude.lc 338:9-338:10
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 338:9-338:11
+    Float
+testdata/Prelude.lc 338:10-338:11
+    Float
+testdata/Prelude.lc 339:9-339:15
+    Float
+testdata/Prelude.lc 339:9-339:16
+    Float -> Float
+testdata/Prelude.lc 339:9-339:17
+    Float
+testdata/Prelude.lc 339:15-339:16
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 339:16-339:17
+    Float
+testdata/Prelude.lc 340:9-340:10
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 340:9-340:11
+    Float
+testdata/Prelude.lc 340:10-340:11
+    Float
+testdata/Prelude.lc 342:1-342:11
+    VecScalar 1 Float -> Mat 4 4 Float
+testdata/Prelude.lc 342:16-342:20
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 342:16-342:33
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+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: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
+testdata/Prelude.lc 342:25-342:26
+    VecScalar _d Float
+testdata/Prelude.lc 342:27-342:28
+    VecScalar _c Float
+testdata/Prelude.lc 342:29-342:30
+    _b
+testdata/Prelude.lc 342:31-342:32
+    _b
+testdata/Prelude.lc 342:35-342:37
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 342:35-342:42
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 342:35-342:44
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 342:35-342:46
+    Float -> VecS Float 4
+testdata/Prelude.lc 342:35-342:48
+    VecS Float 4
+testdata/Prelude.lc 342:39-342:40
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 342:39-342:41
+    Float
+testdata/Prelude.lc 342:40-342:41
+    VecScalar 1 Float
+testdata/Prelude.lc 342:43-342:44
+    VecScalar 1 Float
+testdata/Prelude.lc 342:45-342:46
+    _b
+testdata/Prelude.lc 342:47-342:48
+    _b
+testdata/Prelude.lc 342:51-342:53
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 342:51-342:55
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 342:51-342:57
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 342:51-342:59
+    _c -> VecS _c 4
+testdata/Prelude.lc 342:51-342:61
+    VecS Float 4
+testdata/Prelude.lc 342:54-342:55
+    _b
+testdata/Prelude.lc 342:56-342:57
+    _b
+testdata/Prelude.lc 342:58-342:59
+    _b
+testdata/Prelude.lc 342:60-342:61
+    _b
+testdata/Prelude.lc 342:64-342:66
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 342:64-342:68
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 342:64-342:70
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 342:64-342:72
+    _c -> VecS _c 4
+testdata/Prelude.lc 342:64-342:74
+    VecS Float 4
+testdata/Prelude.lc 342:67-342:68
+    _b
+testdata/Prelude.lc 342:69-342:70
+    _b
+testdata/Prelude.lc 342:71-342:72
+    _b
+testdata/Prelude.lc 342:73-342:74
+    _b
+testdata/Prelude.lc 344:9-344:12
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 344:9-344:14
+    VecScalar _a Float
+testdata/Prelude.lc 344:13-344:14
+    _c
+testdata/Prelude.lc 345:9-345:12
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 345:9-345:14
+    VecScalar _b Float
+testdata/Prelude.lc 345:13-345:14
+    VecScalar _c Float
+testdata/Prelude.lc 347:1-347:11
+    VecScalar 1 Float -> Mat 4 4 Float
+testdata/Prelude.lc 347:16-347:20
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 347:16-347:36
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+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: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
+testdata/Prelude.lc 347:25-347:26
+    VecScalar _d Float
+testdata/Prelude.lc 347:27-347:28
+    _b
+testdata/Prelude.lc 347:30-347:31
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 347:30-347:32
+    VecScalar _f Float
+testdata/Prelude.lc 347:31-347:32
+    VecScalar _f Float
+testdata/Prelude.lc 347:34-347:35
+    _b
+testdata/Prelude.lc 347:38-347:40
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 347:38-347:42
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 347:38-347:44
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 347:38-347:46
+    _c -> VecS _c 4
+testdata/Prelude.lc 347:38-347:48
+    VecS Float 4
+testdata/Prelude.lc 347:41-347:42
+    _b
+testdata/Prelude.lc 347:43-347:44
+    _b
+testdata/Prelude.lc 347:45-347:46
+    _b
+testdata/Prelude.lc 347:47-347:48
+    _b
+testdata/Prelude.lc 347:51-347:53
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 347:51-347:55
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 347:51-347:57
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 347:51-347:59
+    Float -> VecS Float 4
+testdata/Prelude.lc 347:51-347:61
+    VecS Float 4
+testdata/Prelude.lc 347:54-347:55
+    VecScalar 1 Float
+testdata/Prelude.lc 347:56-347:57
+    _b
+testdata/Prelude.lc 347:58-347:59
+    VecScalar 1 Float
+testdata/Prelude.lc 347:60-347:61
+    _b
+testdata/Prelude.lc 347:64-347:66
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 347:64-347:68
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 347:64-347:70
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 347:64-347:72
+    _c -> VecS _c 4
+testdata/Prelude.lc 347:64-347:74
+    VecS Float 4
+testdata/Prelude.lc 347:67-347:68
+    _b
+testdata/Prelude.lc 347:69-347:70
+    _b
+testdata/Prelude.lc 347:71-347:72
+    _b
+testdata/Prelude.lc 347:73-347:74
+    _b
+testdata/Prelude.lc 349:9-349:12
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 349:9-349:14
+    VecScalar _a Float
+testdata/Prelude.lc 349:13-349:14
+    _c
+testdata/Prelude.lc 350:9-350:12
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 350:9-350:14
+    VecScalar _b Float
+testdata/Prelude.lc 350:13-350:14
+    VecScalar _c Float
+testdata/Prelude.lc 352:1-352:11
+    VecScalar 1 Float -> Mat 4 4 Float
+testdata/Prelude.lc 352:16-352:20
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 352:16-352:33
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 352:16-352:46
+    Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 352:16-352:62
+    Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 352:16-352:75
+    Mat 4 4 Float
+testdata/Prelude.lc 352:22-352:24
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 352:22-352:26
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 352:22-352:28
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 352:22-352:30
+    _c -> VecS _c 4
+testdata/Prelude.lc 352:22-352:32
+    VecS Float 4
+testdata/Prelude.lc 352:25-352:26
+    _b
+testdata/Prelude.lc 352:27-352:28
+    _b
+testdata/Prelude.lc 352:29-352:30
+    _b
+testdata/Prelude.lc 352:31-352:32
+    _b
+testdata/Prelude.lc 352:35-352:37
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 352:35-352:39
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 352:35-352:41
+    VecScalar _d Float -> VecScalar _d Float -> VecS (VecScalar _d Float) 4
+testdata/Prelude.lc 352:35-352:43
+    VecScalar _d Float -> VecS (VecScalar _d Float) 4
+testdata/Prelude.lc 352:35-352:45
+    VecS (VecScalar 1 Float) 4
+testdata/Prelude.lc 352:38-352:39
+    _b
+testdata/Prelude.lc 352:40-352:41
+    VecScalar _e Float
+testdata/Prelude.lc 352:42-352:43
+    VecScalar _d Float
+testdata/Prelude.lc 352:44-352:45
+    _b
+testdata/Prelude.lc 352:48-352:50
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 352:48-352:52
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 352:48-352:57
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 352:48-352:59
+    Float -> VecS Float 4
+testdata/Prelude.lc 352:48-352:61
+    VecS Float 4
+testdata/Prelude.lc 352:51-352:52
+    _b
+testdata/Prelude.lc 352:54-352:55
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 352:54-352:56
+    Float
+testdata/Prelude.lc 352:55-352:56
+    VecScalar 1 Float
+testdata/Prelude.lc 352:58-352:59
+    VecScalar 1 Float
+testdata/Prelude.lc 352:60-352:61
+    _b
+testdata/Prelude.lc 352:64-352:66
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 352:64-352:68
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 352:64-352:70
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 352:64-352:72
+    _c -> VecS _c 4
+testdata/Prelude.lc 352:64-352:74
+    VecS Float 4
+testdata/Prelude.lc 352:67-352:68
+    _b
+testdata/Prelude.lc 352:69-352:70
+    _b
+testdata/Prelude.lc 352:71-352:72
+    _b
+testdata/Prelude.lc 352:73-352:74
+    _b
+testdata/Prelude.lc 354:9-354:12
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 354:9-354:14
+    VecScalar _a Float
+testdata/Prelude.lc 354:13-354:14
+    _c
+testdata/Prelude.lc 355:9-355:12
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 355:9-355:14
+    VecScalar _b Float
+testdata/Prelude.lc 355:13-355:14
+    VecScalar _c Float
+testdata/Prelude.lc 357:1-357:14
+    Float -> Float -> Float -> Mat 4 4 Float
+testdata/Prelude.lc 357:23-357:33
+    VecScalar 1 Float -> Mat 4 4 Float
+testdata/Prelude.lc 357:23-357:35
+    Mat 4 4 Float
+testdata/Prelude.lc 357:23-357:39
+    Mat 4 _a Float -> Mat 4 _a Float
+testdata/Prelude.lc 357:23-357:52
+    Mat 4 4 Float
+testdata/Prelude.lc 357:23-357:56
+    Mat 4 _a Float -> Mat 4 _a Float
+testdata/Prelude.lc 357:23-357:69
+    Mat 4 4 Float
+testdata/Prelude.lc 357:34-357:35
+    _k
+testdata/Prelude.lc 357:36-357:39
+    forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
+testdata/Prelude.lc 357:40-357:50
+    VecScalar 1 Float -> Mat 4 4 Float
+testdata/Prelude.lc 357:40-357:52
+    Mat 4 4 Float
+testdata/Prelude.lc 357:51-357:52
+    _e
+testdata/Prelude.lc 357:53-357:56
+    forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
+testdata/Prelude.lc 357:57-357:67
+    VecScalar 1 Float -> Mat 4 4 Float
+testdata/Prelude.lc 357:57-357:69
+    Mat 4 4 Float
+testdata/Prelude.lc 357:68-357:69
+    _b
+testdata/Prelude.lc 359:21-359:24
+    Nat -> Type -> Type
+testdata/Prelude.lc 359:21-359:26
+    Type -> Type
+testdata/Prelude.lc 359:21-359:32
+    Type
+testdata/Prelude.lc 359:25-359:26
+    _b
+testdata/Prelude.lc 359:27-359:32
+    Type
+testdata/Prelude.lc 359:36-359:39
+    Nat -> Nat -> Type -> Type
+testdata/Prelude.lc 359:36-359:41
+    Nat -> Type -> Type
+testdata/Prelude.lc 359:36-359:43
+    Type -> Type
+testdata/Prelude.lc 359:36-359:49
+    Type | Type
+testdata/Prelude.lc 359:40-359:41
+    _b
+testdata/Prelude.lc 359:42-359:43
+    _b
+testdata/Prelude.lc 359:44-359:49
+    Type
+testdata/Prelude.lc 360:1-360:17
+    Vec 3 Float -> Mat 4 4 Float
+testdata/Prelude.lc 360:22-360:26
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 360:22-360:29
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 360:22-360:32
+    Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 360:22-360:35
+    Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 360:22-360:38
+    Mat 4 4 Float
+testdata/Prelude.lc 360:27-360:29
+    forall a . Num a => VecS a 4
+testdata/Prelude.lc 360:30-360:32
+    forall a . Num a => VecS a 4
+testdata/Prelude.lc 360:33-360:35
+    forall a . Num a => VecS a 4
+testdata/Prelude.lc 360:36-360:38
+    VecS Float 4
+testdata/Prelude.lc 362:9-362:11
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 362:9-362:13
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 362:9-362:15
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 362:9-362:17
+    _c -> VecS _c 4
+testdata/Prelude.lc 362:9-362:19
+    VecS _c 4
+testdata/Prelude.lc 362:12-362:13
+    _b
+testdata/Prelude.lc 362:14-362:15
+    _b
+testdata/Prelude.lc 362:16-362:17
+    _b
+testdata/Prelude.lc 362:18-362:19
+    _b
+testdata/Prelude.lc 363:9-363:11
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 363:9-363:13
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 363:9-363:15
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 363:9-363:17
+    _c -> VecS _c 4
+testdata/Prelude.lc 363:9-363:19
+    VecS _c 4
+testdata/Prelude.lc 363:12-363:13
+    _b
+testdata/Prelude.lc 363:14-363:15
+    _b
+testdata/Prelude.lc 363:16-363:17
+    _b
+testdata/Prelude.lc 363:18-363:19
+    _b
+testdata/Prelude.lc 364:9-364:11
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 364:9-364:13
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 364:9-364:15
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 364:9-364:17
+    _c -> VecS _c 4
+testdata/Prelude.lc 364:9-364:19
+    VecS _c 4
+testdata/Prelude.lc 364:12-364:13
+    _b
+testdata/Prelude.lc 364:14-364:15
+    _b
+testdata/Prelude.lc 364:16-364:17
+    _b
+testdata/Prelude.lc 364:18-364:19
+    _b
+testdata/Prelude.lc 365:9-365:11
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 365:9-365:15
+    Float -> Float -> Float -> VecS Float 4
+testdata/Prelude.lc 365:9-365:19
+    Float -> Float -> VecS Float 4
+testdata/Prelude.lc 365:9-365:23
+    Float -> VecS Float 4
+testdata/Prelude.lc 365:9-365:25
+    VecS Float 4
+testdata/Prelude.lc 365:12-365:13
+    Vec 3 Float
+testdata/Prelude.lc 365:12-365:15
+    Float
+testdata/Prelude.lc 365:16-365:17
+    Vec 3 Float
+testdata/Prelude.lc 365:16-365:19
+    Float
+testdata/Prelude.lc 365:20-365:21
+    Vec 3 Float
+testdata/Prelude.lc 365:20-365:23
+    Float
+testdata/Prelude.lc 365:24-365:25
+    _b
+testdata/Prelude.lc 368:11-368:14
+    Nat -> Type -> Type
+testdata/Prelude.lc 368:11-368:16
+    Type -> Type
+testdata/Prelude.lc 368:11-368:22
+    Type
+testdata/Prelude.lc 368:15-368:16
+    _b
+testdata/Prelude.lc 368:17-368:22
+    Type
+testdata/Prelude.lc 369:11-369:14
+    Nat -> Type -> Type
+testdata/Prelude.lc 369:11-369:16
+    Type -> Type
+testdata/Prelude.lc 369:11-369:22
+    Type
+testdata/Prelude.lc 369:11-371:24
+    Type
+testdata/Prelude.lc 369:15-369:16
+    _b
+testdata/Prelude.lc 369:17-369:22
+    Type
+testdata/Prelude.lc 370:11-370:14
+    Nat -> Type -> Type
+testdata/Prelude.lc 370:11-370:16
+    Type -> Type
+testdata/Prelude.lc 370:11-370:22
+    Type
+testdata/Prelude.lc 370:11-371:24
+    Type
+testdata/Prelude.lc 370:15-370:16
+    _b
+testdata/Prelude.lc 370:17-370:22
+    Type
+testdata/Prelude.lc 371:11-371:14
+    Nat -> Nat -> Type -> Type
+testdata/Prelude.lc 371:11-371:16
+    Nat -> Type -> Type
+testdata/Prelude.lc 371:11-371:18
+    Type -> Type
+testdata/Prelude.lc 371:11-371:24
+    Type | Type
+testdata/Prelude.lc 371:15-371:16
+    _b
+testdata/Prelude.lc 371:17-371:18
+    _b
+testdata/Prelude.lc 371:19-371:24
+    Type
+testdata/Prelude.lc 372:1-372:7
+    Vec 3 Float -> Vec 3 Float -> Vec 3 Float -> Mat 4 4 Float
+testdata/Prelude.lc 372:24-372:25
+    Mat 4 4 Float
+testdata/Prelude.lc 372:24-372:29
+    Mat 4 _a Float -> Mat 4 _a Float
+testdata/Prelude.lc 372:24-372:56
+    Mat 4 4 Float
+testdata/Prelude.lc 372:26-372:29
+    forall (a :: Nat) (b :: Nat) c (d :: Nat) . Mat a b c -> Mat b d c -> Mat a d c
+testdata/Prelude.lc 372:30-372:46
+    Vec 3 Float -> Mat 4 4 Float
+testdata/Prelude.lc 372:30-372:56
+    Mat 4 4 Float
+testdata/Prelude.lc 372:48-372:51
+    forall a . Signed (MatVecScalarElem a) => a -> a
+testdata/Prelude.lc 372:48-372:55
+    VecS Float 3
+testdata/Prelude.lc 372:52-372:55
+    Vec 3 Float
+testdata/Prelude.lc 374:14-374:16
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 374:14-374:20
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 374:14-374:24
+    _b -> _b -> VecS _b 4
+testdata/Prelude.lc 374:14-374:28
+    _b -> VecS _b 4
+testdata/Prelude.lc 374:14-374:30
+    VecS _c 4
+testdata/Prelude.lc 374:17-374:18
+    _e
+testdata/Prelude.lc 374:17-374:20
+    _b
+testdata/Prelude.lc 374:21-374:22
+    VecS _d _c
+testdata/Prelude.lc 374:21-374:24
+    _b
+testdata/Prelude.lc 374:25-374:26
+    VecS _d _c
+testdata/Prelude.lc 374:25-374:28
+    _b
+testdata/Prelude.lc 374:29-374:30
+    _b
+testdata/Prelude.lc 375:9-375:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 375:9-375:20
+    VecScalar _a Float -> VecScalar _a Float
+testdata/Prelude.lc 375:9-375:33
+    VecScalar 3 Float
+testdata/Prelude.lc 375:19-375:20
+    forall a b . (a -> b) -> a -> b
+testdata/Prelude.lc 375:21-375:24
+    Vec 3 Float
+testdata/Prelude.lc 375:21-375:26
+    VecS Float 3 -> VecS Float 3
+testdata/Prelude.lc 375:21-375:33
+    VecS Float 3
+testdata/Prelude.lc 375:25-375:26
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 375:27-375:33
+    Vec 3 Float
+testdata/Prelude.lc 376:9-376:18
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/Prelude.lc 376:9-376:20
+    VecScalar _a Float -> VecScalar _a Float
+testdata/Prelude.lc 376:9-376:33
+    VecScalar 3 Float
+testdata/Prelude.lc 376:19-376:20
+    forall a b . (a -> b) -> a -> b
+testdata/Prelude.lc 376:21-376:23
+    Vec 3 Float
+testdata/Prelude.lc 376:21-376:31
+    VecS Float 3 -> VecS Float 3
+testdata/Prelude.lc 376:21-376:33
+    VecS Float 3
+testdata/Prelude.lc 376:24-376:31
+    forall a . (a ~ VecS Float 3) => a -> a -> a
+testdata/Prelude.lc 376:32-376:33
+    VecScalar 3 Float
+testdata/Prelude.lc 377:9-377:10
+    VecScalar 3 Float
+testdata/Prelude.lc 377:9-377:18
+    VecS Float 3 -> VecS Float 3
+testdata/Prelude.lc 377:9-377:20
+    VecS Float 3
+testdata/Prelude.lc 377:11-377:18
+    forall a . (a ~ VecS Float 3) => a -> a -> a
+testdata/Prelude.lc 377:19-377:20
+    VecScalar 3 Float
+testdata/Prelude.lc 378:9-378:18
+    forall (a :: Nat) (b :: Nat) c . Mat a b c -> Mat b a c
+testdata/Prelude.lc 378:9-378:20
+    Mat _c _b _a -> Mat _b _c _a
+testdata/Prelude.lc 378:9-378:65
+    Mat 4 4 Float
+testdata/Prelude.lc 378:19-378:20
+    forall a b . (a -> b) -> a -> b
+testdata/Prelude.lc 378:21-378:25
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 378:21-378:34
+    Vec 4 Float -> Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 378:21-378:43
+    Vec 4 Float -> Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 378:21-378:52
+    Vec 4 Float -> Mat 4 4 Float
+testdata/Prelude.lc 378:21-378:65
+    Mat 4 4 Float
+testdata/Prelude.lc 378:27-378:31
+    forall a (b :: Nat) . Num a => VecS a b -> VecS a 4
+testdata/Prelude.lc 378:27-378:33
+    VecS Float 4
+testdata/Prelude.lc 378:32-378:33
+    VecScalar 3 Float
+testdata/Prelude.lc 378:36-378:40
+    forall a (b :: Nat) . Num a => VecS a b -> VecS a 4
+testdata/Prelude.lc 378:36-378:42
+    VecS Float 4
+testdata/Prelude.lc 378:41-378:42
+    VecS Float 3
+testdata/Prelude.lc 378:45-378:49
+    forall a (b :: Nat) . Num a => VecS a b -> VecS a 4
+testdata/Prelude.lc 378:45-378:51
+    VecS Float 4
+testdata/Prelude.lc 378:50-378:51
+    VecScalar 3 Float
+testdata/Prelude.lc 378:54-378:56
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 378:54-378:58
+    _b -> _b -> _b -> VecS _b 4
+testdata/Prelude.lc 378:54-378:60
+    _c -> _c -> VecS _c 4
+testdata/Prelude.lc 378:54-378:62
+    _c -> VecS _c 4
+testdata/Prelude.lc 378:54-378:64
+    VecS Float 4
+testdata/Prelude.lc 378:57-378:58
+    _b
+testdata/Prelude.lc 378:59-378:60
+    _b
+testdata/Prelude.lc 378:61-378:62
+    _b
+testdata/Prelude.lc 378:63-378:64
+    _b
+testdata/Prelude.lc 380:1-380:6
+    Float -> VecS Float 4 -> VecS Float 4
+testdata/Prelude.lc 380:13-380:14
+    _d
+testdata/Prelude.lc 380:13-380:16
+    _c -> _c
+testdata/Prelude.lc 380:13-380:29
+    VecS Float 4
+testdata/Prelude.lc 380:15-380:16
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 380:17-380:19
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/Prelude.lc 380:17-380:21
+    _e -> _e -> _e -> VecS _e 4
+testdata/Prelude.lc 380:17-380:23
+    _e -> _e -> VecS _e 4
+testdata/Prelude.lc 380:17-380:25
+    _e -> VecS _e 4
+testdata/Prelude.lc 380:17-380:29
+    VecS Float 4
+testdata/Prelude.lc 380:20-380:21
+    _f
+testdata/Prelude.lc 380:22-380:23
+    _e
+testdata/Prelude.lc 380:24-380:25
+    _e
+testdata/Prelude.lc 380:26-380:29
+    Float
+testdata/Prelude.lc 382:11-382:16
+    Type
+testdata/Prelude.lc 382:11-385:38
+    Float -> Float -> List Float
+testdata/Prelude.lc 382:20-382:25
+    Type
+testdata/Prelude.lc 382:20-382:36
+    Type
+testdata/Prelude.lc 382:29-382:36
+    Type | Type
+testdata/Prelude.lc 382:30-382:35
+    Type
+testdata/Prelude.lc 383:1-383:7
+    Float -> Float -> List Float
+testdata/Prelude.lc 384:7-384:8
+    Float
+testdata/Prelude.lc 384:7-384:10
+    VecScalar 1 Float -> VecScalar 1 Bool
+testdata/Prelude.lc 384:7-384:12
+    VecScalar 1 Bool
+testdata/Prelude.lc 384:7-385:38
+    List Float
+testdata/Prelude.lc 384:9-384:10
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/Prelude.lc 384:11-384:12
+    Float
+testdata/Prelude.lc 384:15-384:17
+    forall a . List a
+testdata/Prelude.lc 384:15-385:38
+    Bool -> List Float
+testdata/Prelude.lc 385:19-385:20
+    Float
+testdata/Prelude.lc 385:19-385:21
+    List Float -> List Float
+testdata/Prelude.lc 385:19-385:38
+    List Float
+testdata/Prelude.lc 385:20-385:21
+    forall a . a -> List a -> List a
+testdata/Prelude.lc 385:22-385:28
+    Float -> Float -> List Float
+testdata/Prelude.lc 385:22-385:36
+    Float -> List Float
+testdata/Prelude.lc 385:22-385:38
+    List Float
+testdata/Prelude.lc 385:30-385:31
+    Float
+testdata/Prelude.lc 385:30-385:33
+    Float -> Float
+testdata/Prelude.lc 385:30-385:35
+    Float
+testdata/Prelude.lc 385:32-385:33
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 385:34-385:35
+    _b
+testdata/Prelude.lc 385:37-385:38
+    Float
+testdata/Prelude.lc 387:9-387:12
+    Type
+testdata/Prelude.lc 387:9-387:24
+    Type
+testdata/Prelude.lc 387:9-389:30
+    forall a . List a -> Int -> a
+testdata/Prelude.lc 387:10-387:11
+    _b
+testdata/Prelude.lc 387:16-387:19
+    Type
+testdata/Prelude.lc 387:16-387:24
+    Type
+testdata/Prelude.lc 387:23-387:24
+    Type | Type
+testdata/Prelude.lc 388:10-388:12
+    forall a . List a -> Int -> a
+testdata/Prelude.lc 388:19-388:20
+    _d
+testdata/Prelude.lc 388:19-389:30
+    Bool -> _d | _c | _c
+testdata/Prelude.lc 389:19-389:21
+    List _f
+testdata/Prelude.lc 389:19-389:24
+    Int -> _e
+testdata/Prelude.lc 389:19-389:30
+    _d
+testdata/Prelude.lc 389:22-389:24
+    forall a . List a -> Int -> a
+testdata/Prelude.lc 389:26-389:27
+    Int
+testdata/Prelude.lc 389:26-389:28
+    Int -> Int
+testdata/Prelude.lc 389:26-389:29
+    Int
+testdata/Prelude.lc 389:27-389:28
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/Prelude.lc 389:28-389:29
+    _b
 ------------ warnings
 Uncovered pattern(s) at testdata/Prelude.lc:50:1:
 tail (_: xs) = xs
@@ -2127,4 +3552,4 @@ Uncovered pattern(s) at testdata/Prelude.lc:388:10:
 (x : _)  !! 0  =  x
 (_ : xs) !! n  =  xs !! (n-1)
 Missing case(s):
-  Nil _ 
+  Nil _ 
\ No newline at end of file
diff --git a/testdata/SampleMaterial.out b/testdata/SampleMaterial.out
index cd8a5f3b..a1225581 100644
--- a/testdata/SampleMaterial.out
+++ b/testdata/SampleMaterial.out
@@ -2234,7247 +2234,11747 @@ sampleMaterial
                                                                                                         Nil))))))))))))))))))))))))))))))))))))))))))))))))))
 main is not found
 ------------ trace
-sampleMaterial :: List (String, CommonAttrs)
+sampleMaterial :: List (String, CommonAttrs)
 ------------ tooltips
-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
+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-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
-testdata/SampleMaterial.lc 5:7-13:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 5:7-14:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 5:7-15:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 5:7-43:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 5:7-45:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 6:24-6:26  ()
-testdata/SampleMaterial.lc 7:24-7:26  ()
-testdata/SampleMaterial.lc 8:22-8:27  Bool
-testdata/SampleMaterial.lc 9:20-9:21  _b
-testdata/SampleMaterial.lc 10:30-10:35  Bool
-testdata/SampleMaterial.lc 11:23-11:28  Bool
-testdata/SampleMaterial.lc 12:20-12:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 5:7-13:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-14:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-15:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-43:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-45:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 6:24-6:26
+    ()
+testdata/SampleMaterial.lc 7:24-7:26
+    ()
+testdata/SampleMaterial.lc 8:22-8:27
+    Bool
+testdata/SampleMaterial.lc 9:20-9:21
+    _b
+testdata/SampleMaterial.lc 10:30-10:35
+    Bool
+testdata/SampleMaterial.lc 11:23-11:28
+    Bool
+testdata/SampleMaterial.lc 12:20-12:33
+    CullType
+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-18:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 17:15-20:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 17:15-19:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 17:15-21:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 17:15-20:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 17:15-22:31
+    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
-testdata/SampleMaterial.lc 17:15-26:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 17:15-27:46  String -> StageAttrs
-testdata/SampleMaterial.lc 17:15-29:18  StageAttrs
-testdata/SampleMaterial.lc 18:29-18:36  forall a . Maybe a
-testdata/SampleMaterial.lc 19:30-19:50  RGBGen
-testdata/SampleMaterial.lc 20:32-20:42  AlphaGen
-testdata/SampleMaterial.lc 21:29-21:36  TCGen
-testdata/SampleMaterial.lc 22:29-22:31  forall a . List a
-testdata/SampleMaterial.lc 23:31-23:37  String -> StageTexture
-testdata/SampleMaterial.lc 23:31-23:71  StageTexture
-testdata/SampleMaterial.lc 23:38-23:71  String
-testdata/SampleMaterial.lc 24:34-24:38  Bool
-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
+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
+testdata/SampleMaterial.lc 17:15-26:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-27:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-29:18
+    StageAttrs
+testdata/SampleMaterial.lc 18:29-18:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 19:30-19:50
+    RGBGen
+testdata/SampleMaterial.lc 20:32-20:42
+    AlphaGen
+testdata/SampleMaterial.lc 21:29-21:36
+    TCGen
+testdata/SampleMaterial.lc 22:29-22:31
+    forall a . List a
+testdata/SampleMaterial.lc 23:31-23:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 23:31-23:71
+    StageTexture
+testdata/SampleMaterial.lc 23:38-23:71
+    String
+testdata/SampleMaterial.lc 24:34-24:38
+    Bool
+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-31:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 30:15-33:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 30:15-32:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 30:15-34:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 30:15-33:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 30:15-35:31
+    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
-testdata/SampleMaterial.lc 30:15-39:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 30:15-40:46  String -> StageAttrs
-testdata/SampleMaterial.lc 30:15-42:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 31:29-31:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 31:29-31:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 31:34-31:57  (Blending', Blending')
-testdata/SampleMaterial.lc 31:36-31:46  Blending'
-testdata/SampleMaterial.lc 31:49-31:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 32:30-32:50  RGBGen
-testdata/SampleMaterial.lc 33:32-33:42  AlphaGen
-testdata/SampleMaterial.lc 34:29-34:40  TCGen
-testdata/SampleMaterial.lc 35:29-35:31  forall a . List a
-testdata/SampleMaterial.lc 36:31-36:42  StageTexture
-testdata/SampleMaterial.lc 37:34-37:38  Bool
-testdata/SampleMaterial.lc 38:33-38:41  DepthFunction
-testdata/SampleMaterial.lc 39:33-39:40  forall a . Maybe a
-testdata/SampleMaterial.lc 40:41-40:46  Bool
-testdata/SampleMaterial.lc 41:38-41:54  String
-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
+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
+testdata/SampleMaterial.lc 30:15-39:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-40:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-42:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 31:29-31:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 31:29-31:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 31:34-31:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 31:36-31:46
+    Blending'
+testdata/SampleMaterial.lc 31:49-31:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 32:30-32:50
+    RGBGen
+testdata/SampleMaterial.lc 33:32-33:42
+    AlphaGen
+testdata/SampleMaterial.lc 34:29-34:40
+    TCGen
+testdata/SampleMaterial.lc 35:29-35:31
+    forall a . List a
+testdata/SampleMaterial.lc 36:31-36:42
+    StageTexture
+testdata/SampleMaterial.lc 37:34-37:38
+    Bool
+testdata/SampleMaterial.lc 38:33-38:41
+    DepthFunction
+testdata/SampleMaterial.lc 39:33-39:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 40:41-40:46
+    Bool
+testdata/SampleMaterial.lc 41:38-41:54
+    String
+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-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
-testdata/SampleMaterial.lc 48:7-56:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 48:7-57:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 48:7-58:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 48:7-86:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 48:7-88:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 49:24-49:26  ()
-testdata/SampleMaterial.lc 50:24-50:26  ()
-testdata/SampleMaterial.lc 51:22-51:27  Bool
-testdata/SampleMaterial.lc 52:20-52:21  _b
-testdata/SampleMaterial.lc 53:30-53:35  Bool
-testdata/SampleMaterial.lc 54:23-54:28  Bool
-testdata/SampleMaterial.lc 55:20-55:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 48:7-56:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-57:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-58:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-86:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-88:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 49:24-49:26
+    ()
+testdata/SampleMaterial.lc 50:24-50:26
+    ()
+testdata/SampleMaterial.lc 51:22-51:27
+    Bool
+testdata/SampleMaterial.lc 52:20-52:21
+    _b
+testdata/SampleMaterial.lc 53:30-53:35
+    Bool
+testdata/SampleMaterial.lc 54:23-54:28
+    Bool
+testdata/SampleMaterial.lc 55:20-55:33
+    CullType
+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-61:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 60:15-63:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 60:15-62:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 60:15-64:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 60:15-63:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 60:15-65:31
+    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
-testdata/SampleMaterial.lc 60:15-69:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 60:15-70:46  String -> StageAttrs
-testdata/SampleMaterial.lc 60:15-72:18  StageAttrs
-testdata/SampleMaterial.lc 61:29-61:36  forall a . Maybe a
-testdata/SampleMaterial.lc 62:30-62:50  RGBGen
-testdata/SampleMaterial.lc 63:32-63:42  AlphaGen
-testdata/SampleMaterial.lc 64:29-64:36  TCGen
-testdata/SampleMaterial.lc 65:29-65:31  forall a . List a
-testdata/SampleMaterial.lc 66:31-66:37  String -> StageTexture
-testdata/SampleMaterial.lc 66:31-66:70  StageTexture
-testdata/SampleMaterial.lc 66:38-66:70  String
-testdata/SampleMaterial.lc 67:34-67:38  Bool
-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
+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
+testdata/SampleMaterial.lc 60:15-69:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-70:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-72:18
+    StageAttrs
+testdata/SampleMaterial.lc 61:29-61:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 62:30-62:50
+    RGBGen
+testdata/SampleMaterial.lc 63:32-63:42
+    AlphaGen
+testdata/SampleMaterial.lc 64:29-64:36
+    TCGen
+testdata/SampleMaterial.lc 65:29-65:31
+    forall a . List a
+testdata/SampleMaterial.lc 66:31-66:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 66:31-66:70
+    StageTexture
+testdata/SampleMaterial.lc 66:38-66:70
+    String
+testdata/SampleMaterial.lc 67:34-67:38
+    Bool
+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-74:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 73:15-76:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 73:15-75:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 73:15-77:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 73:15-76:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 73:15-78:31
+    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
-testdata/SampleMaterial.lc 73:15-82:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 73:15-83:46  String -> StageAttrs
-testdata/SampleMaterial.lc 73:15-85:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 74:29-74:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 74:29-74:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 74:34-74:57  (Blending', Blending')
-testdata/SampleMaterial.lc 74:36-74:46  Blending'
-testdata/SampleMaterial.lc 74:49-74:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 75:30-75:50  RGBGen
-testdata/SampleMaterial.lc 76:32-76:42  AlphaGen
-testdata/SampleMaterial.lc 77:29-77:40  TCGen
-testdata/SampleMaterial.lc 78:29-78:31  forall a . List a
-testdata/SampleMaterial.lc 79:31-79:42  StageTexture
-testdata/SampleMaterial.lc 80:34-80:38  Bool
-testdata/SampleMaterial.lc 81:33-81:41  DepthFunction
-testdata/SampleMaterial.lc 82:33-82:40  forall a . Maybe a
-testdata/SampleMaterial.lc 83:41-83:46  Bool
-testdata/SampleMaterial.lc 84:38-84:54  String
-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
+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
+testdata/SampleMaterial.lc 73:15-82:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-83:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-85:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 74:29-74:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 74:29-74:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 74:34-74:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 74:36-74:46
+    Blending'
+testdata/SampleMaterial.lc 74:49-74:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 75:30-75:50
+    RGBGen
+testdata/SampleMaterial.lc 76:32-76:42
+    AlphaGen
+testdata/SampleMaterial.lc 77:29-77:40
+    TCGen
+testdata/SampleMaterial.lc 78:29-78:31
+    forall a . List a
+testdata/SampleMaterial.lc 79:31-79:42
+    StageTexture
+testdata/SampleMaterial.lc 80:34-80:38
+    Bool
+testdata/SampleMaterial.lc 81:33-81:41
+    DepthFunction
+testdata/SampleMaterial.lc 82:33-82:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 83:41-83:46
+    Bool
+testdata/SampleMaterial.lc 84:38-84:54
+    String
+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-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
-testdata/SampleMaterial.lc 91:7-99:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 91:7-100:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 91:7-101:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 91:7-129:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 91:7-131:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 92:24-92:26  ()
-testdata/SampleMaterial.lc 93:24-93:26  ()
-testdata/SampleMaterial.lc 94:22-94:27  Bool
-testdata/SampleMaterial.lc 95:20-95:21  _b
-testdata/SampleMaterial.lc 96:30-96:35  Bool
-testdata/SampleMaterial.lc 97:23-97:28  Bool
-testdata/SampleMaterial.lc 98:20-98:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 91:7-99:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-100:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-101:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-129:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-131:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 92:24-92:26
+    ()
+testdata/SampleMaterial.lc 93:24-93:26
+    ()
+testdata/SampleMaterial.lc 94:22-94:27
+    Bool
+testdata/SampleMaterial.lc 95:20-95:21
+    _b
+testdata/SampleMaterial.lc 96:30-96:35
+    Bool
+testdata/SampleMaterial.lc 97:23-97:28
+    Bool
+testdata/SampleMaterial.lc 98:20-98:33
+    CullType
+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-104:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 103:15-106:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 103:15-105:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 103:15-107:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 103:15-106:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 103:15-108:31
+    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
-testdata/SampleMaterial.lc 103:15-112:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 103:15-113:46  String -> StageAttrs
-testdata/SampleMaterial.lc 103:15-115:18  StageAttrs
-testdata/SampleMaterial.lc 104:29-104:36  forall a . Maybe a
-testdata/SampleMaterial.lc 105:30-105:50  RGBGen
-testdata/SampleMaterial.lc 106:32-106:42  AlphaGen
-testdata/SampleMaterial.lc 107:29-107:36  TCGen
-testdata/SampleMaterial.lc 108:29-108:31  forall a . List a
-testdata/SampleMaterial.lc 109:31-109:37  String -> StageTexture
-testdata/SampleMaterial.lc 109:31-109:71  StageTexture
-testdata/SampleMaterial.lc 109:38-109:71  String
-testdata/SampleMaterial.lc 110:34-110:38  Bool
-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
+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
+testdata/SampleMaterial.lc 103:15-112:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-113:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-115:18
+    StageAttrs
+testdata/SampleMaterial.lc 104:29-104:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 105:30-105:50
+    RGBGen
+testdata/SampleMaterial.lc 106:32-106:42
+    AlphaGen
+testdata/SampleMaterial.lc 107:29-107:36
+    TCGen
+testdata/SampleMaterial.lc 108:29-108:31
+    forall a . List a
+testdata/SampleMaterial.lc 109:31-109:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 109:31-109:71
+    StageTexture
+testdata/SampleMaterial.lc 109:38-109:71
+    String
+testdata/SampleMaterial.lc 110:34-110:38
+    Bool
+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-117:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 116:15-119:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 116:15-118:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 116:15-120:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 116:15-119:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 116:15-121:31
+    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
-testdata/SampleMaterial.lc 116:15-125:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 116:15-126:46  String -> StageAttrs
-testdata/SampleMaterial.lc 116:15-128:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 117:29-117:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 117:29-117:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 117:34-117:57  (Blending', Blending')
-testdata/SampleMaterial.lc 117:36-117:46  Blending'
-testdata/SampleMaterial.lc 117:49-117:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 118:30-118:50  RGBGen
-testdata/SampleMaterial.lc 119:32-119:42  AlphaGen
-testdata/SampleMaterial.lc 120:29-120:40  TCGen
-testdata/SampleMaterial.lc 121:29-121:31  forall a . List a
-testdata/SampleMaterial.lc 122:31-122:42  StageTexture
-testdata/SampleMaterial.lc 123:34-123:38  Bool
-testdata/SampleMaterial.lc 124:33-124:41  DepthFunction
-testdata/SampleMaterial.lc 125:33-125:40  forall a . Maybe a
-testdata/SampleMaterial.lc 126:41-126:46  Bool
-testdata/SampleMaterial.lc 127:38-127:54  String
-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
+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
+testdata/SampleMaterial.lc 116:15-125:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-126:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-128:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 117:29-117:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 117:29-117:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 117:34-117:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 117:36-117:46
+    Blending'
+testdata/SampleMaterial.lc 117:49-117:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 118:30-118:50
+    RGBGen
+testdata/SampleMaterial.lc 119:32-119:42
+    AlphaGen
+testdata/SampleMaterial.lc 120:29-120:40
+    TCGen
+testdata/SampleMaterial.lc 121:29-121:31
+    forall a . List a
+testdata/SampleMaterial.lc 122:31-122:42
+    StageTexture
+testdata/SampleMaterial.lc 123:34-123:38
+    Bool
+testdata/SampleMaterial.lc 124:33-124:41
+    DepthFunction
+testdata/SampleMaterial.lc 125:33-125:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 126:41-126:46
+    Bool
+testdata/SampleMaterial.lc 127:38-127:54
+    String
+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-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
-testdata/SampleMaterial.lc 134:7-142:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 134:7-143:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 134:7-144:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 134:7-172:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 134:7-174:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 135:24-135:26  ()
-testdata/SampleMaterial.lc 136:24-136:26  ()
-testdata/SampleMaterial.lc 137:22-137:27  Bool
-testdata/SampleMaterial.lc 138:20-138:21  _b
-testdata/SampleMaterial.lc 139:30-139:35  Bool
-testdata/SampleMaterial.lc 140:23-140:28  Bool
-testdata/SampleMaterial.lc 141:20-141:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 134:7-142:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-143:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-144:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-172:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-174:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 135:24-135:26
+    ()
+testdata/SampleMaterial.lc 136:24-136:26
+    ()
+testdata/SampleMaterial.lc 137:22-137:27
+    Bool
+testdata/SampleMaterial.lc 138:20-138:21
+    _b
+testdata/SampleMaterial.lc 139:30-139:35
+    Bool
+testdata/SampleMaterial.lc 140:23-140:28
+    Bool
+testdata/SampleMaterial.lc 141:20-141:33
+    CullType
+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-147:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 146:15-149:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 146:15-148:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 146:15-150:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 146:15-149:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 146:15-151:31
+    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
-testdata/SampleMaterial.lc 146:15-155:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 146:15-156:46  String -> StageAttrs
-testdata/SampleMaterial.lc 146:15-158:18  StageAttrs
-testdata/SampleMaterial.lc 147:29-147:36  forall a . Maybe a
-testdata/SampleMaterial.lc 148:30-148:50  RGBGen
-testdata/SampleMaterial.lc 149:32-149:42  AlphaGen
-testdata/SampleMaterial.lc 150:29-150:36  TCGen
-testdata/SampleMaterial.lc 151:29-151:31  forall a . List a
-testdata/SampleMaterial.lc 152:31-152:37  String -> StageTexture
-testdata/SampleMaterial.lc 152:31-152:73  StageTexture
-testdata/SampleMaterial.lc 152:38-152:73  String
-testdata/SampleMaterial.lc 153:34-153:38  Bool
-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
+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
+testdata/SampleMaterial.lc 146:15-155:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-156:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-158:18
+    StageAttrs
+testdata/SampleMaterial.lc 147:29-147:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 148:30-148:50
+    RGBGen
+testdata/SampleMaterial.lc 149:32-149:42
+    AlphaGen
+testdata/SampleMaterial.lc 150:29-150:36
+    TCGen
+testdata/SampleMaterial.lc 151:29-151:31
+    forall a . List a
+testdata/SampleMaterial.lc 152:31-152:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 152:31-152:73
+    StageTexture
+testdata/SampleMaterial.lc 152:38-152:73
+    String
+testdata/SampleMaterial.lc 153:34-153:38
+    Bool
+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-160:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 159:15-162:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 159:15-161:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 159:15-163:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 159:15-162:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 159:15-164:31
+    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
-testdata/SampleMaterial.lc 159:15-168:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 159:15-169:46  String -> StageAttrs
-testdata/SampleMaterial.lc 159:15-171:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 160:29-160:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 160:29-160:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 160:34-160:57  (Blending', Blending')
-testdata/SampleMaterial.lc 160:36-160:46  Blending'
-testdata/SampleMaterial.lc 160:49-160:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 161:30-161:50  RGBGen
-testdata/SampleMaterial.lc 162:32-162:42  AlphaGen
-testdata/SampleMaterial.lc 163:29-163:40  TCGen
-testdata/SampleMaterial.lc 164:29-164:31  forall a . List a
-testdata/SampleMaterial.lc 165:31-165:42  StageTexture
-testdata/SampleMaterial.lc 166:34-166:38  Bool
-testdata/SampleMaterial.lc 167:33-167:41  DepthFunction
-testdata/SampleMaterial.lc 168:33-168:40  forall a . Maybe a
-testdata/SampleMaterial.lc 169:41-169:46  Bool
-testdata/SampleMaterial.lc 170:38-170:54  String
-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
+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
+testdata/SampleMaterial.lc 159:15-168:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-169:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-171:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 160:29-160:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 160:29-160:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 160:34-160:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 160:36-160:46
+    Blending'
+testdata/SampleMaterial.lc 160:49-160:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 161:30-161:50
+    RGBGen
+testdata/SampleMaterial.lc 162:32-162:42
+    AlphaGen
+testdata/SampleMaterial.lc 163:29-163:40
+    TCGen
+testdata/SampleMaterial.lc 164:29-164:31
+    forall a . List a
+testdata/SampleMaterial.lc 165:31-165:42
+    StageTexture
+testdata/SampleMaterial.lc 166:34-166:38
+    Bool
+testdata/SampleMaterial.lc 167:33-167:41
+    DepthFunction
+testdata/SampleMaterial.lc 168:33-168:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 169:41-169:46
+    Bool
+testdata/SampleMaterial.lc 170:38-170:54
+    String
+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-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
-testdata/SampleMaterial.lc 177:7-185:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 177:7-186:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 177:7-187:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 177:7-229:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 177:7-231:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 178:24-178:26  ()
-testdata/SampleMaterial.lc 179:24-179:26  ()
-testdata/SampleMaterial.lc 180:22-180:27  Bool
-testdata/SampleMaterial.lc 181:20-181:21  _b
-testdata/SampleMaterial.lc 182:30-182:35  Bool
-testdata/SampleMaterial.lc 183:23-183:28  Bool
-testdata/SampleMaterial.lc 184:20-184:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 177:7-185:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-186:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-187:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-229:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-231:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 178:24-178:26
+    ()
+testdata/SampleMaterial.lc 179:24-179:26
+    ()
+testdata/SampleMaterial.lc 180:22-180:27
+    Bool
+testdata/SampleMaterial.lc 181:20-181:21
+    _b
+testdata/SampleMaterial.lc 182:30-182:35
+    Bool
+testdata/SampleMaterial.lc 183:23-183:28
+    Bool
+testdata/SampleMaterial.lc 184:20-184:33
+    CullType
+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-190:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 189:15-192:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 189:15-191:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 189:15-193:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 189:15-192:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 189:15-195:88
+    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
-testdata/SampleMaterial.lc 189:15-199:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 189:15-200:46  String -> StageAttrs
-testdata/SampleMaterial.lc 189:15-202:18  StageAttrs
-testdata/SampleMaterial.lc 190:29-190:36  forall a . Maybe a
-testdata/SampleMaterial.lc 191:30-191:42  RGBGen
-testdata/SampleMaterial.lc 192:32-192:42  AlphaGen
-testdata/SampleMaterial.lc 193:29-193:36  TCGen
-testdata/SampleMaterial.lc 195:21-195:88  List TCMod
-testdata/SampleMaterial.lc 195:23-195:32  Float -> Float -> TCMod
-testdata/SampleMaterial.lc 195:23-195:36  Float -> TCMod
-testdata/SampleMaterial.lc 195:23-195:40  TCMod
-testdata/SampleMaterial.lc 195:33-195:36  Float
-testdata/SampleMaterial.lc 195:37-195:40  Float
-testdata/SampleMaterial.lc 195:43-195:50  Float -> Float -> Float -> Float -> TCMod
-testdata/SampleMaterial.lc 195:43-195:54  Float -> Float -> Float -> TCMod
-testdata/SampleMaterial.lc 195:43-195:59  Float -> Float -> TCMod
-testdata/SampleMaterial.lc 195:43-195:63  Float -> TCMod
-testdata/SampleMaterial.lc 195:43-195:67  TCMod
-testdata/SampleMaterial.lc 195:43-195:86  List TCMod
-testdata/SampleMaterial.lc 195:51-195:54  Float
-testdata/SampleMaterial.lc 195:55-195:59  Float
-testdata/SampleMaterial.lc 195:60-195:63  Float
-testdata/SampleMaterial.lc 195:64-195:67  Float
-testdata/SampleMaterial.lc 195:70-195:78  Float -> Float -> TCMod
-testdata/SampleMaterial.lc 195:70-195:82  Float -> TCMod
-testdata/SampleMaterial.lc 195:70-195:86  List TCMod | TCMod
-testdata/SampleMaterial.lc 195:79-195:82  Float
-testdata/SampleMaterial.lc 195:83-195:86  Float
-testdata/SampleMaterial.lc 196:31-196:37  String -> StageTexture
-testdata/SampleMaterial.lc 196:31-196:66  StageTexture
-testdata/SampleMaterial.lc 196:38-196:66  String
-testdata/SampleMaterial.lc 197:34-197:38  Bool
-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
+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
+testdata/SampleMaterial.lc 189:15-199:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-200:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-202:18
+    StageAttrs
+testdata/SampleMaterial.lc 190:29-190:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 191:30-191:42
+    RGBGen
+testdata/SampleMaterial.lc 192:32-192:42
+    AlphaGen
+testdata/SampleMaterial.lc 193:29-193:36
+    TCGen
+testdata/SampleMaterial.lc 195:21-195:88
+    List TCMod
+testdata/SampleMaterial.lc 195:23-195:32
+    Float -> Float -> TCMod
+testdata/SampleMaterial.lc 195:23-195:36
+    Float -> TCMod
+testdata/SampleMaterial.lc 195:23-195:40
+    TCMod
+testdata/SampleMaterial.lc 195:33-195:36
+    Float
+testdata/SampleMaterial.lc 195:37-195:40
+    Float
+testdata/SampleMaterial.lc 195:43-195:50
+    Float -> Float -> Float -> Float -> TCMod
+testdata/SampleMaterial.lc 195:43-195:54
+    Float -> Float -> Float -> TCMod
+testdata/SampleMaterial.lc 195:43-195:59
+    Float -> Float -> TCMod
+testdata/SampleMaterial.lc 195:43-195:63
+    Float -> TCMod
+testdata/SampleMaterial.lc 195:43-195:67
+    TCMod
+testdata/SampleMaterial.lc 195:43-195:86
+    List TCMod
+testdata/SampleMaterial.lc 195:51-195:54
+    Float
+testdata/SampleMaterial.lc 195:55-195:59
+    Float
+testdata/SampleMaterial.lc 195:60-195:63
+    Float
+testdata/SampleMaterial.lc 195:64-195:67
+    Float
+testdata/SampleMaterial.lc 195:70-195:78
+    Float -> Float -> TCMod
+testdata/SampleMaterial.lc 195:70-195:82
+    Float -> TCMod
+testdata/SampleMaterial.lc 195:70-195:86
+    TCMod | List TCMod
+testdata/SampleMaterial.lc 195:79-195:82
+    Float
+testdata/SampleMaterial.lc 195:83-195:86
+    Float
+testdata/SampleMaterial.lc 196:31-196:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 196:31-196:66
+    StageTexture
+testdata/SampleMaterial.lc 196:38-196:66
+    String
+testdata/SampleMaterial.lc 197:34-197:38
+    Bool
+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-204:69  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 203:15-206:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 203:15-205:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 203:15-207:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 203:15-206:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 203:15-208:31
+    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
-testdata/SampleMaterial.lc 203:15-212:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 203:15-213:46  String -> StageAttrs
-testdata/SampleMaterial.lc 203:15-215:18  StageAttrs
-testdata/SampleMaterial.lc 203:15-228:18  List StageAttrs
-testdata/SampleMaterial.lc 204:29-204:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 204:29-204:69  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 204:34-204:69  (Blending', Blending')
-testdata/SampleMaterial.lc 204:36-204:46  Blending'
-testdata/SampleMaterial.lc 204:49-204:67  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 205:30-205:42  RGBGen
-testdata/SampleMaterial.lc 206:32-206:42  AlphaGen
-testdata/SampleMaterial.lc 207:29-207:36  TCGen
-testdata/SampleMaterial.lc 208:29-208:31  forall a . List a
-testdata/SampleMaterial.lc 209:31-209:37  String -> StageTexture
-testdata/SampleMaterial.lc 209:31-209:81  StageTexture
-testdata/SampleMaterial.lc 209:38-209:81  String
-testdata/SampleMaterial.lc 210:34-210:39  Bool
-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
+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
+testdata/SampleMaterial.lc 203:15-212:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-213:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-215:18
+    StageAttrs
+testdata/SampleMaterial.lc 203:15-228:18
+    List StageAttrs
+testdata/SampleMaterial.lc 204:29-204:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 204:29-204:69
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 204:34-204:69
+    (Blending', Blending')
+testdata/SampleMaterial.lc 204:36-204:46
+    Blending'
+testdata/SampleMaterial.lc 204:49-204:67
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 205:30-205:42
+    RGBGen
+testdata/SampleMaterial.lc 206:32-206:42
+    AlphaGen
+testdata/SampleMaterial.lc 207:29-207:36
+    TCGen
+testdata/SampleMaterial.lc 208:29-208:31
+    forall a . List a
+testdata/SampleMaterial.lc 209:31-209:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 209:31-209:81
+    StageTexture
+testdata/SampleMaterial.lc 209:38-209:81
+    String
+testdata/SampleMaterial.lc 210:34-210:39
+    Bool
+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-217:69  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 216:15-219:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 216:15-218:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 216:15-220:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 216:15-219:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 216:15-221:31
+    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
-testdata/SampleMaterial.lc 216:15-225:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 216:15-226:46  String -> StageAttrs
-testdata/SampleMaterial.lc 216:15-228:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 217:29-217:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 217:29-217:69  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 217:34-217:69  (Blending', Blending')
-testdata/SampleMaterial.lc 217:36-217:46  Blending'
-testdata/SampleMaterial.lc 217:49-217:67  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 218:30-218:42  RGBGen
-testdata/SampleMaterial.lc 219:32-219:42  AlphaGen
-testdata/SampleMaterial.lc 220:29-220:40  TCGen
-testdata/SampleMaterial.lc 221:29-221:31  forall a . List a
-testdata/SampleMaterial.lc 222:31-222:42  StageTexture
-testdata/SampleMaterial.lc 223:34-223:39  Bool
-testdata/SampleMaterial.lc 224:33-224:41  DepthFunction
-testdata/SampleMaterial.lc 225:33-225:40  forall a . Maybe a
-testdata/SampleMaterial.lc 226:41-226:46  Bool
-testdata/SampleMaterial.lc 227:38-227:54  String
-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
+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
+testdata/SampleMaterial.lc 216:15-225:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-226:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-228:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 217:29-217:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 217:29-217:69
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 217:34-217:69
+    (Blending', Blending')
+testdata/SampleMaterial.lc 217:36-217:46
+    Blending'
+testdata/SampleMaterial.lc 217:49-217:67
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 218:30-218:42
+    RGBGen
+testdata/SampleMaterial.lc 219:32-219:42
+    AlphaGen
+testdata/SampleMaterial.lc 220:29-220:40
+    TCGen
+testdata/SampleMaterial.lc 221:29-221:31
+    forall a . List a
+testdata/SampleMaterial.lc 222:31-222:42
+    StageTexture
+testdata/SampleMaterial.lc 223:34-223:39
+    Bool
+testdata/SampleMaterial.lc 224:33-224:41
+    DepthFunction
+testdata/SampleMaterial.lc 225:33-225:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 226:41-226:46
+    Bool
+testdata/SampleMaterial.lc 227:38-227:54
+    String
+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-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
-testdata/SampleMaterial.lc 234:7-242:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 234:7-243:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 234:7-244:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 234:7-272:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 234:7-274:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 235:24-235:26  ()
-testdata/SampleMaterial.lc 236:24-236:26  ()
-testdata/SampleMaterial.lc 237:22-237:27  Bool
-testdata/SampleMaterial.lc 238:20-238:21  _b
-testdata/SampleMaterial.lc 239:30-239:35  Bool
-testdata/SampleMaterial.lc 240:23-240:28  Bool
-testdata/SampleMaterial.lc 241:20-241:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 234:7-242:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-243:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-244:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-272:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-274:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 235:24-235:26
+    ()
+testdata/SampleMaterial.lc 236:24-236:26
+    ()
+testdata/SampleMaterial.lc 237:22-237:27
+    Bool
+testdata/SampleMaterial.lc 238:20-238:21
+    _b
+testdata/SampleMaterial.lc 239:30-239:35
+    Bool
+testdata/SampleMaterial.lc 240:23-240:28
+    Bool
+testdata/SampleMaterial.lc 241:20-241:33
+    CullType
+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-247:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 246:15-249:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 246:15-248:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 246:15-250:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 246:15-249:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 246:15-251:31
+    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
-testdata/SampleMaterial.lc 246:15-255:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 246:15-256:46  String -> StageAttrs
-testdata/SampleMaterial.lc 246:15-258:18  StageAttrs
-testdata/SampleMaterial.lc 247:29-247:36  forall a . Maybe a
-testdata/SampleMaterial.lc 248:30-248:50  RGBGen
-testdata/SampleMaterial.lc 249:32-249:42  AlphaGen
-testdata/SampleMaterial.lc 250:29-250:36  TCGen
-testdata/SampleMaterial.lc 251:29-251:31  forall a . List a
-testdata/SampleMaterial.lc 252:31-252:37  String -> StageTexture
-testdata/SampleMaterial.lc 252:31-252:71  StageTexture
-testdata/SampleMaterial.lc 252:38-252:71  String
-testdata/SampleMaterial.lc 253:34-253:38  Bool
-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
+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
+testdata/SampleMaterial.lc 246:15-255:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-256:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-258:18
+    StageAttrs
+testdata/SampleMaterial.lc 247:29-247:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 248:30-248:50
+    RGBGen
+testdata/SampleMaterial.lc 249:32-249:42
+    AlphaGen
+testdata/SampleMaterial.lc 250:29-250:36
+    TCGen
+testdata/SampleMaterial.lc 251:29-251:31
+    forall a . List a
+testdata/SampleMaterial.lc 252:31-252:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 252:31-252:71
+    StageTexture
+testdata/SampleMaterial.lc 252:38-252:71
+    String
+testdata/SampleMaterial.lc 253:34-253:38
+    Bool
+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-260:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 259:15-262:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 259:15-261:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 259:15-263:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 259:15-262:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 259:15-264:31
+    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
-testdata/SampleMaterial.lc 259:15-268:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 259:15-269:46  String -> StageAttrs
-testdata/SampleMaterial.lc 259:15-271:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 260:29-260:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 260:29-260:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 260:34-260:57  (Blending', Blending')
-testdata/SampleMaterial.lc 260:36-260:46  Blending'
-testdata/SampleMaterial.lc 260:49-260:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 261:30-261:50  RGBGen
-testdata/SampleMaterial.lc 262:32-262:42  AlphaGen
-testdata/SampleMaterial.lc 263:29-263:40  TCGen
-testdata/SampleMaterial.lc 264:29-264:31  forall a . List a
-testdata/SampleMaterial.lc 265:31-265:42  StageTexture
-testdata/SampleMaterial.lc 266:34-266:38  Bool
-testdata/SampleMaterial.lc 267:33-267:41  DepthFunction
-testdata/SampleMaterial.lc 268:33-268:40  forall a . Maybe a
-testdata/SampleMaterial.lc 269:41-269:46  Bool
-testdata/SampleMaterial.lc 270:38-270:54  String
-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
+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
+testdata/SampleMaterial.lc 259:15-268:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-269:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-271:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 260:29-260:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 260:29-260:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 260:34-260:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 260:36-260:46
+    Blending'
+testdata/SampleMaterial.lc 260:49-260:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 261:30-261:50
+    RGBGen
+testdata/SampleMaterial.lc 262:32-262:42
+    AlphaGen
+testdata/SampleMaterial.lc 263:29-263:40
+    TCGen
+testdata/SampleMaterial.lc 264:29-264:31
+    forall a . List a
+testdata/SampleMaterial.lc 265:31-265:42
+    StageTexture
+testdata/SampleMaterial.lc 266:34-266:38
+    Bool
+testdata/SampleMaterial.lc 267:33-267:41
+    DepthFunction
+testdata/SampleMaterial.lc 268:33-268:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 269:41-269:46
+    Bool
+testdata/SampleMaterial.lc 270:38-270:54
+    String
+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-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
-testdata/SampleMaterial.lc 277:7-285:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 277:7-286:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 277:7-287:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 277:7-315:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 277:7-317:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 278:24-278:26  ()
-testdata/SampleMaterial.lc 279:24-279:26  ()
-testdata/SampleMaterial.lc 280:22-280:27  Bool
-testdata/SampleMaterial.lc 281:20-281:21  _b
-testdata/SampleMaterial.lc 282:30-282:35  Bool
-testdata/SampleMaterial.lc 283:23-283:28  Bool
-testdata/SampleMaterial.lc 284:20-284:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 277:7-285:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-286:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-287:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-315:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-317:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 278:24-278:26
+    ()
+testdata/SampleMaterial.lc 279:24-279:26
+    ()
+testdata/SampleMaterial.lc 280:22-280:27
+    Bool
+testdata/SampleMaterial.lc 281:20-281:21
+    _b
+testdata/SampleMaterial.lc 282:30-282:35
+    Bool
+testdata/SampleMaterial.lc 283:23-283:28
+    Bool
+testdata/SampleMaterial.lc 284:20-284:33
+    CullType
+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-290:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 289:15-292:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 289:15-291:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 289:15-293:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 289:15-292:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 289:15-294:31
+    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
-testdata/SampleMaterial.lc 289:15-298:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 289:15-299:46  String -> StageAttrs
-testdata/SampleMaterial.lc 289:15-301:18  StageAttrs
-testdata/SampleMaterial.lc 290:29-290:36  forall a . Maybe a
-testdata/SampleMaterial.lc 291:30-291:50  RGBGen
-testdata/SampleMaterial.lc 292:32-292:42  AlphaGen
-testdata/SampleMaterial.lc 293:29-293:36  TCGen
-testdata/SampleMaterial.lc 294:29-294:31  forall a . List a
-testdata/SampleMaterial.lc 295:31-295:37  String -> StageTexture
-testdata/SampleMaterial.lc 295:31-295:73  StageTexture
-testdata/SampleMaterial.lc 295:38-295:73  String
-testdata/SampleMaterial.lc 296:34-296:38  Bool
-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
+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
+testdata/SampleMaterial.lc 289:15-298:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-299:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-301:18
+    StageAttrs
+testdata/SampleMaterial.lc 290:29-290:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 291:30-291:50
+    RGBGen
+testdata/SampleMaterial.lc 292:32-292:42
+    AlphaGen
+testdata/SampleMaterial.lc 293:29-293:36
+    TCGen
+testdata/SampleMaterial.lc 294:29-294:31
+    forall a . List a
+testdata/SampleMaterial.lc 295:31-295:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 295:31-295:73
+    StageTexture
+testdata/SampleMaterial.lc 295:38-295:73
+    String
+testdata/SampleMaterial.lc 296:34-296:38
+    Bool
+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-303:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 302:15-305:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 302:15-304:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 302:15-306:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 302:15-305:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 302:15-307:31
+    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
-testdata/SampleMaterial.lc 302:15-311:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 302:15-312:46  String -> StageAttrs
-testdata/SampleMaterial.lc 302:15-314:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 303:29-303:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 303:29-303:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 303:34-303:57  (Blending', Blending')
-testdata/SampleMaterial.lc 303:36-303:46  Blending'
-testdata/SampleMaterial.lc 303:49-303:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 304:30-304:50  RGBGen
-testdata/SampleMaterial.lc 305:32-305:42  AlphaGen
-testdata/SampleMaterial.lc 306:29-306:40  TCGen
-testdata/SampleMaterial.lc 307:29-307:31  forall a . List a
-testdata/SampleMaterial.lc 308:31-308:42  StageTexture
-testdata/SampleMaterial.lc 309:34-309:38  Bool
-testdata/SampleMaterial.lc 310:33-310:41  DepthFunction
-testdata/SampleMaterial.lc 311:33-311:40  forall a . Maybe a
-testdata/SampleMaterial.lc 312:41-312:46  Bool
-testdata/SampleMaterial.lc 313:38-313:54  String
-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
+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
+testdata/SampleMaterial.lc 302:15-311:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-312:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-314:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 303:29-303:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 303:29-303:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 303:34-303:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 303:36-303:46
+    Blending'
+testdata/SampleMaterial.lc 303:49-303:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 304:30-304:50
+    RGBGen
+testdata/SampleMaterial.lc 305:32-305:42
+    AlphaGen
+testdata/SampleMaterial.lc 306:29-306:40
+    TCGen
+testdata/SampleMaterial.lc 307:29-307:31
+    forall a . List a
+testdata/SampleMaterial.lc 308:31-308:42
+    StageTexture
+testdata/SampleMaterial.lc 309:34-309:38
+    Bool
+testdata/SampleMaterial.lc 310:33-310:41
+    DepthFunction
+testdata/SampleMaterial.lc 311:33-311:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 312:41-312:46
+    Bool
+testdata/SampleMaterial.lc 313:38-313:54
+    String
+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-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
-testdata/SampleMaterial.lc 320:7-328:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 320:7-329:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 320:7-330:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 320:7-358:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 320:7-360:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 321:24-321:26  ()
-testdata/SampleMaterial.lc 322:24-322:26  ()
-testdata/SampleMaterial.lc 323:22-323:27  Bool
-testdata/SampleMaterial.lc 324:20-324:21  _b
-testdata/SampleMaterial.lc 325:30-325:35  Bool
-testdata/SampleMaterial.lc 326:23-326:28  Bool
-testdata/SampleMaterial.lc 327:20-327:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 320:7-328:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-329:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-330:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-358:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-360:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 321:24-321:26
+    ()
+testdata/SampleMaterial.lc 322:24-322:26
+    ()
+testdata/SampleMaterial.lc 323:22-323:27
+    Bool
+testdata/SampleMaterial.lc 324:20-324:21
+    _b
+testdata/SampleMaterial.lc 325:30-325:35
+    Bool
+testdata/SampleMaterial.lc 326:23-326:28
+    Bool
+testdata/SampleMaterial.lc 327:20-327:33
+    CullType
+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-333:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 332:15-335:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 332:15-334:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 332:15-336:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 332:15-335:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 332:15-337:31
+    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
-testdata/SampleMaterial.lc 332:15-341:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 332:15-342:46  String -> StageAttrs
-testdata/SampleMaterial.lc 332:15-344:18  StageAttrs
-testdata/SampleMaterial.lc 333:29-333:36  forall a . Maybe a
-testdata/SampleMaterial.lc 334:30-334:50  RGBGen
-testdata/SampleMaterial.lc 335:32-335:42  AlphaGen
-testdata/SampleMaterial.lc 336:29-336:36  TCGen
-testdata/SampleMaterial.lc 337:29-337:31  forall a . List a
-testdata/SampleMaterial.lc 338:31-338:37  String -> StageTexture
-testdata/SampleMaterial.lc 338:31-338:74  StageTexture
-testdata/SampleMaterial.lc 338:38-338:74  String
-testdata/SampleMaterial.lc 339:34-339:38  Bool
-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
+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
+testdata/SampleMaterial.lc 332:15-341:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-342:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-344:18
+    StageAttrs
+testdata/SampleMaterial.lc 333:29-333:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 334:30-334:50
+    RGBGen
+testdata/SampleMaterial.lc 335:32-335:42
+    AlphaGen
+testdata/SampleMaterial.lc 336:29-336:36
+    TCGen
+testdata/SampleMaterial.lc 337:29-337:31
+    forall a . List a
+testdata/SampleMaterial.lc 338:31-338:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 338:31-338:74
+    StageTexture
+testdata/SampleMaterial.lc 338:38-338:74
+    String
+testdata/SampleMaterial.lc 339:34-339:38
+    Bool
+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-346:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 345:15-348:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 345:15-347:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 345:15-349:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 345:15-348:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 345:15-350:31
+    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
-testdata/SampleMaterial.lc 345:15-354:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 345:15-355:46  String -> StageAttrs
-testdata/SampleMaterial.lc 345:15-357:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 346:29-346:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 346:29-346:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 346:34-346:57  (Blending', Blending')
-testdata/SampleMaterial.lc 346:36-346:46  Blending'
-testdata/SampleMaterial.lc 346:49-346:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 347:30-347:50  RGBGen
-testdata/SampleMaterial.lc 348:32-348:42  AlphaGen
-testdata/SampleMaterial.lc 349:29-349:40  TCGen
-testdata/SampleMaterial.lc 350:29-350:31  forall a . List a
-testdata/SampleMaterial.lc 351:31-351:42  StageTexture
-testdata/SampleMaterial.lc 352:34-352:38  Bool
-testdata/SampleMaterial.lc 353:33-353:41  DepthFunction
-testdata/SampleMaterial.lc 354:33-354:40  forall a . Maybe a
-testdata/SampleMaterial.lc 355:41-355:46  Bool
-testdata/SampleMaterial.lc 356:38-356:54  String
-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
+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
+testdata/SampleMaterial.lc 345:15-354:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-355:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-357:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 346:29-346:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 346:29-346:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 346:34-346:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 346:36-346:46
+    Blending'
+testdata/SampleMaterial.lc 346:49-346:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 347:30-347:50
+    RGBGen
+testdata/SampleMaterial.lc 348:32-348:42
+    AlphaGen
+testdata/SampleMaterial.lc 349:29-349:40
+    TCGen
+testdata/SampleMaterial.lc 350:29-350:31
+    forall a . List a
+testdata/SampleMaterial.lc 351:31-351:42
+    StageTexture
+testdata/SampleMaterial.lc 352:34-352:38
+    Bool
+testdata/SampleMaterial.lc 353:33-353:41
+    DepthFunction
+testdata/SampleMaterial.lc 354:33-354:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 355:41-355:46
+    Bool
+testdata/SampleMaterial.lc 356:38-356:54
+    String
+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-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
-testdata/SampleMaterial.lc 363:7-371:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 363:7-372:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 363:7-373:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 363:7-401:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 363:7-403:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 364:24-364:26  ()
-testdata/SampleMaterial.lc 365:24-365:26  ()
-testdata/SampleMaterial.lc 366:22-366:27  Bool
-testdata/SampleMaterial.lc 367:20-367:21  _b
-testdata/SampleMaterial.lc 368:30-368:35  Bool
-testdata/SampleMaterial.lc 369:23-369:28  Bool
-testdata/SampleMaterial.lc 370:20-370:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 363:7-371:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-372:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-373:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-401:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-403:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 364:24-364:26
+    ()
+testdata/SampleMaterial.lc 365:24-365:26
+    ()
+testdata/SampleMaterial.lc 366:22-366:27
+    Bool
+testdata/SampleMaterial.lc 367:20-367:21
+    _b
+testdata/SampleMaterial.lc 368:30-368:35
+    Bool
+testdata/SampleMaterial.lc 369:23-369:28
+    Bool
+testdata/SampleMaterial.lc 370:20-370:33
+    CullType
+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-376:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 375:15-378:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 375:15-377:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 375:15-379:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 375:15-378:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 375:15-380:31
+    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
-testdata/SampleMaterial.lc 375:15-384:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 375:15-385:46  String -> StageAttrs
-testdata/SampleMaterial.lc 375:15-387:18  StageAttrs
-testdata/SampleMaterial.lc 376:29-376:36  forall a . Maybe a
-testdata/SampleMaterial.lc 377:30-377:50  RGBGen
-testdata/SampleMaterial.lc 378:32-378:42  AlphaGen
-testdata/SampleMaterial.lc 379:29-379:36  TCGen
-testdata/SampleMaterial.lc 380:29-380:31  forall a . List a
-testdata/SampleMaterial.lc 381:31-381:37  String -> StageTexture
-testdata/SampleMaterial.lc 381:31-381:84  StageTexture
-testdata/SampleMaterial.lc 381:38-381:84  String
-testdata/SampleMaterial.lc 382:34-382:38  Bool
-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
+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
+testdata/SampleMaterial.lc 375:15-384:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-385:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-387:18
+    StageAttrs
+testdata/SampleMaterial.lc 376:29-376:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 377:30-377:50
+    RGBGen
+testdata/SampleMaterial.lc 378:32-378:42
+    AlphaGen
+testdata/SampleMaterial.lc 379:29-379:36
+    TCGen
+testdata/SampleMaterial.lc 380:29-380:31
+    forall a . List a
+testdata/SampleMaterial.lc 381:31-381:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 381:31-381:84
+    StageTexture
+testdata/SampleMaterial.lc 381:38-381:84
+    String
+testdata/SampleMaterial.lc 382:34-382:38
+    Bool
+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-389:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 388:15-391:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 388:15-390:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 388:15-392:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 388:15-391:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 388:15-393:31
+    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
-testdata/SampleMaterial.lc 388:15-397:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 388:15-398:46  String -> StageAttrs
-testdata/SampleMaterial.lc 388:15-400:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 389:29-389:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 389:29-389:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 389:34-389:57  (Blending', Blending')
-testdata/SampleMaterial.lc 389:36-389:46  Blending'
-testdata/SampleMaterial.lc 389:49-389:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 390:30-390:50  RGBGen
-testdata/SampleMaterial.lc 391:32-391:42  AlphaGen
-testdata/SampleMaterial.lc 392:29-392:40  TCGen
-testdata/SampleMaterial.lc 393:29-393:31  forall a . List a
-testdata/SampleMaterial.lc 394:31-394:42  StageTexture
-testdata/SampleMaterial.lc 395:34-395:38  Bool
-testdata/SampleMaterial.lc 396:33-396:41  DepthFunction
-testdata/SampleMaterial.lc 397:33-397:40  forall a . Maybe a
-testdata/SampleMaterial.lc 398:41-398:46  Bool
-testdata/SampleMaterial.lc 399:38-399:54  String
-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
+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
+testdata/SampleMaterial.lc 388:15-397:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-398:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-400:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 389:29-389:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 389:29-389:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 389:34-389:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 389:36-389:46
+    Blending'
+testdata/SampleMaterial.lc 389:49-389:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 390:30-390:50
+    RGBGen
+testdata/SampleMaterial.lc 391:32-391:42
+    AlphaGen
+testdata/SampleMaterial.lc 392:29-392:40
+    TCGen
+testdata/SampleMaterial.lc 393:29-393:31
+    forall a . List a
+testdata/SampleMaterial.lc 394:31-394:42
+    StageTexture
+testdata/SampleMaterial.lc 395:34-395:38
+    Bool
+testdata/SampleMaterial.lc 396:33-396:41
+    DepthFunction
+testdata/SampleMaterial.lc 397:33-397:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 398:41-398:46
+    Bool
+testdata/SampleMaterial.lc 399:38-399:54
+    String
+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-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
-testdata/SampleMaterial.lc 406:7-414:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 406:7-415:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 406:7-416:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 406:7-444:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 406:7-446:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 407:24-407:26  ()
-testdata/SampleMaterial.lc 408:24-408:26  ()
-testdata/SampleMaterial.lc 409:22-409:27  Bool
-testdata/SampleMaterial.lc 410:20-410:21  _b
-testdata/SampleMaterial.lc 411:30-411:35  Bool
-testdata/SampleMaterial.lc 412:23-412:28  Bool
-testdata/SampleMaterial.lc 413:20-413:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 406:7-414:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-415:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-416:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-444:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-446:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 407:24-407:26
+    ()
+testdata/SampleMaterial.lc 408:24-408:26
+    ()
+testdata/SampleMaterial.lc 409:22-409:27
+    Bool
+testdata/SampleMaterial.lc 410:20-410:21
+    _b
+testdata/SampleMaterial.lc 411:30-411:35
+    Bool
+testdata/SampleMaterial.lc 412:23-412:28
+    Bool
+testdata/SampleMaterial.lc 413:20-413:33
+    CullType
+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-419:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 418:15-421:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 418:15-420:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 418:15-422:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 418:15-421:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 418:15-423:31
+    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
-testdata/SampleMaterial.lc 418:15-427:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 418:15-428:46  String -> StageAttrs
-testdata/SampleMaterial.lc 418:15-430:18  StageAttrs
-testdata/SampleMaterial.lc 419:29-419:36  forall a . Maybe a
-testdata/SampleMaterial.lc 420:30-420:50  RGBGen
-testdata/SampleMaterial.lc 421:32-421:42  AlphaGen
-testdata/SampleMaterial.lc 422:29-422:36  TCGen
-testdata/SampleMaterial.lc 423:29-423:31  forall a . List a
-testdata/SampleMaterial.lc 424:31-424:37  String -> StageTexture
-testdata/SampleMaterial.lc 424:31-424:84  StageTexture
-testdata/SampleMaterial.lc 424:38-424:84  String
-testdata/SampleMaterial.lc 425:34-425:38  Bool
-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
+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
+testdata/SampleMaterial.lc 418:15-427:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-428:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-430:18
+    StageAttrs
+testdata/SampleMaterial.lc 419:29-419:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 420:30-420:50
+    RGBGen
+testdata/SampleMaterial.lc 421:32-421:42
+    AlphaGen
+testdata/SampleMaterial.lc 422:29-422:36
+    TCGen
+testdata/SampleMaterial.lc 423:29-423:31
+    forall a . List a
+testdata/SampleMaterial.lc 424:31-424:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 424:31-424:84
+    StageTexture
+testdata/SampleMaterial.lc 424:38-424:84
+    String
+testdata/SampleMaterial.lc 425:34-425:38
+    Bool
+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-432:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 431:15-434:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 431:15-433:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 431:15-435:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 431:15-434:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 431:15-436:31
+    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
-testdata/SampleMaterial.lc 431:15-440:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 431:15-441:46  String -> StageAttrs
-testdata/SampleMaterial.lc 431:15-443:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 432:29-432:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 432:29-432:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 432:34-432:57  (Blending', Blending')
-testdata/SampleMaterial.lc 432:36-432:46  Blending'
-testdata/SampleMaterial.lc 432:49-432:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 433:30-433:50  RGBGen
-testdata/SampleMaterial.lc 434:32-434:42  AlphaGen
-testdata/SampleMaterial.lc 435:29-435:40  TCGen
-testdata/SampleMaterial.lc 436:29-436:31  forall a . List a
-testdata/SampleMaterial.lc 437:31-437:42  StageTexture
-testdata/SampleMaterial.lc 438:34-438:38  Bool
-testdata/SampleMaterial.lc 439:33-439:41  DepthFunction
-testdata/SampleMaterial.lc 440:33-440:40  forall a . Maybe a
-testdata/SampleMaterial.lc 441:41-441:46  Bool
-testdata/SampleMaterial.lc 442:38-442:54  String
-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
+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
+testdata/SampleMaterial.lc 431:15-440:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-441:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-443:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 432:29-432:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 432:29-432:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 432:34-432:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 432:36-432:46
+    Blending'
+testdata/SampleMaterial.lc 432:49-432:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 433:30-433:50
+    RGBGen
+testdata/SampleMaterial.lc 434:32-434:42
+    AlphaGen
+testdata/SampleMaterial.lc 435:29-435:40
+    TCGen
+testdata/SampleMaterial.lc 436:29-436:31
+    forall a . List a
+testdata/SampleMaterial.lc 437:31-437:42
+    StageTexture
+testdata/SampleMaterial.lc 438:34-438:38
+    Bool
+testdata/SampleMaterial.lc 439:33-439:41
+    DepthFunction
+testdata/SampleMaterial.lc 440:33-440:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 441:41-441:46
+    Bool
+testdata/SampleMaterial.lc 442:38-442:54
+    String
+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-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
-testdata/SampleMaterial.lc 449:7-457:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 449:7-458:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 449:7-459:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 449:7-487:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 449:7-489:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 450:24-450:26  ()
-testdata/SampleMaterial.lc 451:24-451:26  ()
-testdata/SampleMaterial.lc 452:22-452:27  Bool
-testdata/SampleMaterial.lc 453:20-453:21  _b
-testdata/SampleMaterial.lc 454:30-454:35  Bool
-testdata/SampleMaterial.lc 455:23-455:28  Bool
-testdata/SampleMaterial.lc 456:20-456:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 449:7-457:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-458:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-459:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-487:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-489:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 450:24-450:26
+    ()
+testdata/SampleMaterial.lc 451:24-451:26
+    ()
+testdata/SampleMaterial.lc 452:22-452:27
+    Bool
+testdata/SampleMaterial.lc 453:20-453:21
+    _b
+testdata/SampleMaterial.lc 454:30-454:35
+    Bool
+testdata/SampleMaterial.lc 455:23-455:28
+    Bool
+testdata/SampleMaterial.lc 456:20-456:33
+    CullType
+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-462:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 461:15-464:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 461:15-463:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 461:15-465:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 461:15-464:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 461:15-466:31
+    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
-testdata/SampleMaterial.lc 461:15-470:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 461:15-471:46  String -> StageAttrs
-testdata/SampleMaterial.lc 461:15-473:18  StageAttrs
-testdata/SampleMaterial.lc 462:29-462:36  forall a . Maybe a
-testdata/SampleMaterial.lc 463:30-463:50  RGBGen
-testdata/SampleMaterial.lc 464:32-464:42  AlphaGen
-testdata/SampleMaterial.lc 465:29-465:36  TCGen
-testdata/SampleMaterial.lc 466:29-466:31  forall a . List a
-testdata/SampleMaterial.lc 467:31-467:37  String -> StageTexture
-testdata/SampleMaterial.lc 467:31-467:84  StageTexture
-testdata/SampleMaterial.lc 467:38-467:84  String
-testdata/SampleMaterial.lc 468:34-468:38  Bool
-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
+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
+testdata/SampleMaterial.lc 461:15-470:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-471:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-473:18
+    StageAttrs
+testdata/SampleMaterial.lc 462:29-462:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 463:30-463:50
+    RGBGen
+testdata/SampleMaterial.lc 464:32-464:42
+    AlphaGen
+testdata/SampleMaterial.lc 465:29-465:36
+    TCGen
+testdata/SampleMaterial.lc 466:29-466:31
+    forall a . List a
+testdata/SampleMaterial.lc 467:31-467:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 467:31-467:84
+    StageTexture
+testdata/SampleMaterial.lc 467:38-467:84
+    String
+testdata/SampleMaterial.lc 468:34-468:38
+    Bool
+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-475:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 474:15-477:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 474:15-476:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 474:15-478:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 474:15-477:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 474:15-479:31
+    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
-testdata/SampleMaterial.lc 474:15-483:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 474:15-484:46  String -> StageAttrs
-testdata/SampleMaterial.lc 474:15-486:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 475:29-475:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 475:29-475:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 475:34-475:57  (Blending', Blending')
-testdata/SampleMaterial.lc 475:36-475:46  Blending'
-testdata/SampleMaterial.lc 475:49-475:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 476:30-476:50  RGBGen
-testdata/SampleMaterial.lc 477:32-477:42  AlphaGen
-testdata/SampleMaterial.lc 478:29-478:40  TCGen
-testdata/SampleMaterial.lc 479:29-479:31  forall a . List a
-testdata/SampleMaterial.lc 480:31-480:42  StageTexture
-testdata/SampleMaterial.lc 481:34-481:38  Bool
-testdata/SampleMaterial.lc 482:33-482:41  DepthFunction
-testdata/SampleMaterial.lc 483:33-483:40  forall a . Maybe a
-testdata/SampleMaterial.lc 484:41-484:46  Bool
-testdata/SampleMaterial.lc 485:38-485:54  String
-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
+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
+testdata/SampleMaterial.lc 474:15-483:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-484:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-486:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 475:29-475:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 475:29-475:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 475:34-475:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 475:36-475:46
+    Blending'
+testdata/SampleMaterial.lc 475:49-475:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 476:30-476:50
+    RGBGen
+testdata/SampleMaterial.lc 477:32-477:42
+    AlphaGen
+testdata/SampleMaterial.lc 478:29-478:40
+    TCGen
+testdata/SampleMaterial.lc 479:29-479:31
+    forall a . List a
+testdata/SampleMaterial.lc 480:31-480:42
+    StageTexture
+testdata/SampleMaterial.lc 481:34-481:38
+    Bool
+testdata/SampleMaterial.lc 482:33-482:41
+    DepthFunction
+testdata/SampleMaterial.lc 483:33-483:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 484:41-484:46
+    Bool
+testdata/SampleMaterial.lc 485:38-485:54
+    String
+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-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
-testdata/SampleMaterial.lc 492:7-500:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 492:7-501:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 492:7-502:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 492:7-530:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 492:7-532:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 493:24-493:26  ()
-testdata/SampleMaterial.lc 494:24-494:26  ()
-testdata/SampleMaterial.lc 495:22-495:27  Bool
-testdata/SampleMaterial.lc 496:20-496:21  _b
-testdata/SampleMaterial.lc 497:30-497:35  Bool
-testdata/SampleMaterial.lc 498:23-498:28  Bool
-testdata/SampleMaterial.lc 499:20-499:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 492:7-500:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-501:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-502:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-530:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-532:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 493:24-493:26
+    ()
+testdata/SampleMaterial.lc 494:24-494:26
+    ()
+testdata/SampleMaterial.lc 495:22-495:27
+    Bool
+testdata/SampleMaterial.lc 496:20-496:21
+    _b
+testdata/SampleMaterial.lc 497:30-497:35
+    Bool
+testdata/SampleMaterial.lc 498:23-498:28
+    Bool
+testdata/SampleMaterial.lc 499:20-499:33
+    CullType
+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-505:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 504:15-507:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 504:15-506:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 504:15-508:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 504:15-507:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 504:15-509:31
+    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
-testdata/SampleMaterial.lc 504:15-513:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 504:15-514:46  String -> StageAttrs
-testdata/SampleMaterial.lc 504:15-516:18  StageAttrs
-testdata/SampleMaterial.lc 505:29-505:36  forall a . Maybe a
-testdata/SampleMaterial.lc 506:30-506:50  RGBGen
-testdata/SampleMaterial.lc 507:32-507:42  AlphaGen
-testdata/SampleMaterial.lc 508:29-508:36  TCGen
-testdata/SampleMaterial.lc 509:29-509:31  forall a . List a
-testdata/SampleMaterial.lc 510:31-510:37  String -> StageTexture
-testdata/SampleMaterial.lc 510:31-510:84  StageTexture
-testdata/SampleMaterial.lc 510:38-510:84  String
-testdata/SampleMaterial.lc 511:34-511:38  Bool
-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
+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
+testdata/SampleMaterial.lc 504:15-513:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-514:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-516:18
+    StageAttrs
+testdata/SampleMaterial.lc 505:29-505:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 506:30-506:50
+    RGBGen
+testdata/SampleMaterial.lc 507:32-507:42
+    AlphaGen
+testdata/SampleMaterial.lc 508:29-508:36
+    TCGen
+testdata/SampleMaterial.lc 509:29-509:31
+    forall a . List a
+testdata/SampleMaterial.lc 510:31-510:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 510:31-510:84
+    StageTexture
+testdata/SampleMaterial.lc 510:38-510:84
+    String
+testdata/SampleMaterial.lc 511:34-511:38
+    Bool
+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-518:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 517:15-520:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 517:15-519:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 517:15-521:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 517:15-520:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 517:15-522:31
+    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
-testdata/SampleMaterial.lc 517:15-526:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 517:15-527:46  String -> StageAttrs
-testdata/SampleMaterial.lc 517:15-529:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 518:29-518:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 518:29-518:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 518:34-518:57  (Blending', Blending')
-testdata/SampleMaterial.lc 518:36-518:46  Blending'
-testdata/SampleMaterial.lc 518:49-518:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 519:30-519:50  RGBGen
-testdata/SampleMaterial.lc 520:32-520:42  AlphaGen
-testdata/SampleMaterial.lc 521:29-521:40  TCGen
-testdata/SampleMaterial.lc 522:29-522:31  forall a . List a
-testdata/SampleMaterial.lc 523:31-523:42  StageTexture
-testdata/SampleMaterial.lc 524:34-524:38  Bool
-testdata/SampleMaterial.lc 525:33-525:41  DepthFunction
-testdata/SampleMaterial.lc 526:33-526:40  forall a . Maybe a
-testdata/SampleMaterial.lc 527:41-527:46  Bool
-testdata/SampleMaterial.lc 528:38-528:54  String
-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
+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
+testdata/SampleMaterial.lc 517:15-526:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-527:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-529:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 518:29-518:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 518:29-518:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 518:34-518:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 518:36-518:46
+    Blending'
+testdata/SampleMaterial.lc 518:49-518:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 519:30-519:50
+    RGBGen
+testdata/SampleMaterial.lc 520:32-520:42
+    AlphaGen
+testdata/SampleMaterial.lc 521:29-521:40
+    TCGen
+testdata/SampleMaterial.lc 522:29-522:31
+    forall a . List a
+testdata/SampleMaterial.lc 523:31-523:42
+    StageTexture
+testdata/SampleMaterial.lc 524:34-524:38
+    Bool
+testdata/SampleMaterial.lc 525:33-525:41
+    DepthFunction
+testdata/SampleMaterial.lc 526:33-526:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 527:41-527:46
+    Bool
+testdata/SampleMaterial.lc 528:38-528:54
+    String
+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-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
-testdata/SampleMaterial.lc 535:7-543:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 535:7-544:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 535:7-545:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 535:7-573:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 535:7-575:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 536:24-536:26  ()
-testdata/SampleMaterial.lc 537:24-537:26  ()
-testdata/SampleMaterial.lc 538:22-538:27  Bool
-testdata/SampleMaterial.lc 539:20-539:21  _b
-testdata/SampleMaterial.lc 540:30-540:35  Bool
-testdata/SampleMaterial.lc 541:23-541:28  Bool
-testdata/SampleMaterial.lc 542:20-542:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 535:7-543:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-544:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-545:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-573:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-575:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 536:24-536:26
+    ()
+testdata/SampleMaterial.lc 537:24-537:26
+    ()
+testdata/SampleMaterial.lc 538:22-538:27
+    Bool
+testdata/SampleMaterial.lc 539:20-539:21
+    _b
+testdata/SampleMaterial.lc 540:30-540:35
+    Bool
+testdata/SampleMaterial.lc 541:23-541:28
+    Bool
+testdata/SampleMaterial.lc 542:20-542:33
+    CullType
+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-548:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 547:15-550:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 547:15-549:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 547:15-551:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 547:15-550:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 547:15-552:31
+    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
-testdata/SampleMaterial.lc 547:15-556:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 547:15-557:46  String -> StageAttrs
-testdata/SampleMaterial.lc 547:15-559:18  StageAttrs
-testdata/SampleMaterial.lc 548:29-548:36  forall a . Maybe a
-testdata/SampleMaterial.lc 549:30-549:50  RGBGen
-testdata/SampleMaterial.lc 550:32-550:42  AlphaGen
-testdata/SampleMaterial.lc 551:29-551:36  TCGen
-testdata/SampleMaterial.lc 552:29-552:31  forall a . List a
-testdata/SampleMaterial.lc 553:31-553:37  String -> StageTexture
-testdata/SampleMaterial.lc 553:31-553:73  StageTexture
-testdata/SampleMaterial.lc 553:38-553:73  String
-testdata/SampleMaterial.lc 554:34-554:38  Bool
-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
+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
+testdata/SampleMaterial.lc 547:15-556:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-557:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-559:18
+    StageAttrs
+testdata/SampleMaterial.lc 548:29-548:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 549:30-549:50
+    RGBGen
+testdata/SampleMaterial.lc 550:32-550:42
+    AlphaGen
+testdata/SampleMaterial.lc 551:29-551:36
+    TCGen
+testdata/SampleMaterial.lc 552:29-552:31
+    forall a . List a
+testdata/SampleMaterial.lc 553:31-553:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 553:31-553:73
+    StageTexture
+testdata/SampleMaterial.lc 553:38-553:73
+    String
+testdata/SampleMaterial.lc 554:34-554:38
+    Bool
+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-561:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 560:15-563:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 560:15-562:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 560:15-564:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 560:15-563:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 560:15-565:31
+    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
-testdata/SampleMaterial.lc 560:15-569:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 560:15-570:46  String -> StageAttrs
-testdata/SampleMaterial.lc 560:15-572:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 561:29-561:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 561:29-561:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 561:34-561:57  (Blending', Blending')
-testdata/SampleMaterial.lc 561:36-561:46  Blending'
-testdata/SampleMaterial.lc 561:49-561:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 562:30-562:50  RGBGen
-testdata/SampleMaterial.lc 563:32-563:42  AlphaGen
-testdata/SampleMaterial.lc 564:29-564:40  TCGen
-testdata/SampleMaterial.lc 565:29-565:31  forall a . List a
-testdata/SampleMaterial.lc 566:31-566:42  StageTexture
-testdata/SampleMaterial.lc 567:34-567:38  Bool
-testdata/SampleMaterial.lc 568:33-568:41  DepthFunction
-testdata/SampleMaterial.lc 569:33-569:40  forall a . Maybe a
-testdata/SampleMaterial.lc 570:41-570:46  Bool
-testdata/SampleMaterial.lc 571:38-571:54  String
-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
+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
+testdata/SampleMaterial.lc 560:15-569:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-570:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-572:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 561:29-561:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 561:29-561:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 561:34-561:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 561:36-561:46
+    Blending'
+testdata/SampleMaterial.lc 561:49-561:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 562:30-562:50
+    RGBGen
+testdata/SampleMaterial.lc 563:32-563:42
+    AlphaGen
+testdata/SampleMaterial.lc 564:29-564:40
+    TCGen
+testdata/SampleMaterial.lc 565:29-565:31
+    forall a . List a
+testdata/SampleMaterial.lc 566:31-566:42
+    StageTexture
+testdata/SampleMaterial.lc 567:34-567:38
+    Bool
+testdata/SampleMaterial.lc 568:33-568:41
+    DepthFunction
+testdata/SampleMaterial.lc 569:33-569:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 570:41-570:46
+    Bool
+testdata/SampleMaterial.lc 571:38-571:54
+    String
+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-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
-testdata/SampleMaterial.lc 578:7-586:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 578:7-587:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 578:7-588:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 578:7-616:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 578:7-618:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 579:24-579:26  ()
-testdata/SampleMaterial.lc 580:24-580:26  ()
-testdata/SampleMaterial.lc 581:22-581:27  Bool
-testdata/SampleMaterial.lc 582:20-582:21  _b
-testdata/SampleMaterial.lc 583:30-583:35  Bool
-testdata/SampleMaterial.lc 584:23-584:28  Bool
-testdata/SampleMaterial.lc 585:20-585:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 578:7-586:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-587:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-588:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-616:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-618:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 579:24-579:26
+    ()
+testdata/SampleMaterial.lc 580:24-580:26
+    ()
+testdata/SampleMaterial.lc 581:22-581:27
+    Bool
+testdata/SampleMaterial.lc 582:20-582:21
+    _b
+testdata/SampleMaterial.lc 583:30-583:35
+    Bool
+testdata/SampleMaterial.lc 584:23-584:28
+    Bool
+testdata/SampleMaterial.lc 585:20-585:33
+    CullType
+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-591:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 590:15-593:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 590:15-592:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 590:15-594:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 590:15-593:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 590:15-595:31
+    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
-testdata/SampleMaterial.lc 590:15-599:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 590:15-600:46  String -> StageAttrs
-testdata/SampleMaterial.lc 590:15-602:18  StageAttrs
-testdata/SampleMaterial.lc 591:29-591:36  forall a . Maybe a
-testdata/SampleMaterial.lc 592:30-592:50  RGBGen
-testdata/SampleMaterial.lc 593:32-593:42  AlphaGen
-testdata/SampleMaterial.lc 594:29-594:36  TCGen
-testdata/SampleMaterial.lc 595:29-595:31  forall a . List a
-testdata/SampleMaterial.lc 596:31-596:37  String -> StageTexture
-testdata/SampleMaterial.lc 596:31-596:73  StageTexture
-testdata/SampleMaterial.lc 596:38-596:73  String
-testdata/SampleMaterial.lc 597:34-597:38  Bool
-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
+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
+testdata/SampleMaterial.lc 590:15-599:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-600:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-602:18
+    StageAttrs
+testdata/SampleMaterial.lc 591:29-591:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 592:30-592:50
+    RGBGen
+testdata/SampleMaterial.lc 593:32-593:42
+    AlphaGen
+testdata/SampleMaterial.lc 594:29-594:36
+    TCGen
+testdata/SampleMaterial.lc 595:29-595:31
+    forall a . List a
+testdata/SampleMaterial.lc 596:31-596:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 596:31-596:73
+    StageTexture
+testdata/SampleMaterial.lc 596:38-596:73
+    String
+testdata/SampleMaterial.lc 597:34-597:38
+    Bool
+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-604:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 603:15-606:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 603:15-605:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 603:15-607:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 603:15-606:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 603:15-608:31
+    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
-testdata/SampleMaterial.lc 603:15-612:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 603:15-613:46  String -> StageAttrs
-testdata/SampleMaterial.lc 603:15-615:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 604:29-604:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 604:29-604:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 604:34-604:57  (Blending', Blending')
-testdata/SampleMaterial.lc 604:36-604:46  Blending'
-testdata/SampleMaterial.lc 604:49-604:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 605:30-605:50  RGBGen
-testdata/SampleMaterial.lc 606:32-606:42  AlphaGen
-testdata/SampleMaterial.lc 607:29-607:40  TCGen
-testdata/SampleMaterial.lc 608:29-608:31  forall a . List a
-testdata/SampleMaterial.lc 609:31-609:42  StageTexture
-testdata/SampleMaterial.lc 610:34-610:38  Bool
-testdata/SampleMaterial.lc 611:33-611:41  DepthFunction
-testdata/SampleMaterial.lc 612:33-612:40  forall a . Maybe a
-testdata/SampleMaterial.lc 613:41-613:46  Bool
-testdata/SampleMaterial.lc 614:38-614:54  String
-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
+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
+testdata/SampleMaterial.lc 603:15-612:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-613:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-615:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 604:29-604:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 604:29-604:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 604:34-604:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 604:36-604:46
+    Blending'
+testdata/SampleMaterial.lc 604:49-604:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 605:30-605:50
+    RGBGen
+testdata/SampleMaterial.lc 606:32-606:42
+    AlphaGen
+testdata/SampleMaterial.lc 607:29-607:40
+    TCGen
+testdata/SampleMaterial.lc 608:29-608:31
+    forall a . List a
+testdata/SampleMaterial.lc 609:31-609:42
+    StageTexture
+testdata/SampleMaterial.lc 610:34-610:38
+    Bool
+testdata/SampleMaterial.lc 611:33-611:41
+    DepthFunction
+testdata/SampleMaterial.lc 612:33-612:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 613:41-613:46
+    Bool
+testdata/SampleMaterial.lc 614:38-614:54
+    String
+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-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
-testdata/SampleMaterial.lc 621:7-629:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 621:7-630:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 621:7-631:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 621:7-659:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 621:7-661:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 622:24-622:26  ()
-testdata/SampleMaterial.lc 623:24-623:26  ()
-testdata/SampleMaterial.lc 624:22-624:27  Bool
-testdata/SampleMaterial.lc 625:20-625:21  _b
-testdata/SampleMaterial.lc 626:30-626:35  Bool
-testdata/SampleMaterial.lc 627:23-627:28  Bool
-testdata/SampleMaterial.lc 628:20-628:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 621:7-629:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-630:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-631:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-659:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-661:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 622:24-622:26
+    ()
+testdata/SampleMaterial.lc 623:24-623:26
+    ()
+testdata/SampleMaterial.lc 624:22-624:27
+    Bool
+testdata/SampleMaterial.lc 625:20-625:21
+    _b
+testdata/SampleMaterial.lc 626:30-626:35
+    Bool
+testdata/SampleMaterial.lc 627:23-627:28
+    Bool
+testdata/SampleMaterial.lc 628:20-628:33
+    CullType
+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-634:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 633:15-636:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 633:15-635:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 633:15-637:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 633:15-636:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 633:15-638:31
+    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
-testdata/SampleMaterial.lc 633:15-642:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 633:15-643:46  String -> StageAttrs
-testdata/SampleMaterial.lc 633:15-645:18  StageAttrs
-testdata/SampleMaterial.lc 634:29-634:36  forall a . Maybe a
-testdata/SampleMaterial.lc 635:30-635:50  RGBGen
-testdata/SampleMaterial.lc 636:32-636:42  AlphaGen
-testdata/SampleMaterial.lc 637:29-637:36  TCGen
-testdata/SampleMaterial.lc 638:29-638:31  forall a . List a
-testdata/SampleMaterial.lc 639:31-639:37  String -> StageTexture
-testdata/SampleMaterial.lc 639:31-639:73  StageTexture
-testdata/SampleMaterial.lc 639:38-639:73  String
-testdata/SampleMaterial.lc 640:34-640:38  Bool
-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
+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
+testdata/SampleMaterial.lc 633:15-642:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-643:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-645:18
+    StageAttrs
+testdata/SampleMaterial.lc 634:29-634:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 635:30-635:50
+    RGBGen
+testdata/SampleMaterial.lc 636:32-636:42
+    AlphaGen
+testdata/SampleMaterial.lc 637:29-637:36
+    TCGen
+testdata/SampleMaterial.lc 638:29-638:31
+    forall a . List a
+testdata/SampleMaterial.lc 639:31-639:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 639:31-639:73
+    StageTexture
+testdata/SampleMaterial.lc 639:38-639:73
+    String
+testdata/SampleMaterial.lc 640:34-640:38
+    Bool
+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-647:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 646:15-649:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 646:15-648:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 646:15-650:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 646:15-649:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 646:15-651:31
+    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
-testdata/SampleMaterial.lc 646:15-655:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 646:15-656:46  String -> StageAttrs
-testdata/SampleMaterial.lc 646:15-658:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 647:29-647:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 647:29-647:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 647:34-647:57  (Blending', Blending')
-testdata/SampleMaterial.lc 647:36-647:46  Blending'
-testdata/SampleMaterial.lc 647:49-647:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 648:30-648:50  RGBGen
-testdata/SampleMaterial.lc 649:32-649:42  AlphaGen
-testdata/SampleMaterial.lc 650:29-650:40  TCGen
-testdata/SampleMaterial.lc 651:29-651:31  forall a . List a
-testdata/SampleMaterial.lc 652:31-652:42  StageTexture
-testdata/SampleMaterial.lc 653:34-653:38  Bool
-testdata/SampleMaterial.lc 654:33-654:41  DepthFunction
-testdata/SampleMaterial.lc 655:33-655:40  forall a . Maybe a
-testdata/SampleMaterial.lc 656:41-656:46  Bool
-testdata/SampleMaterial.lc 657:38-657:54  String
-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
+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
+testdata/SampleMaterial.lc 646:15-655:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-656:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-658:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 647:29-647:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 647:29-647:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 647:34-647:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 647:36-647:46
+    Blending'
+testdata/SampleMaterial.lc 647:49-647:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 648:30-648:50
+    RGBGen
+testdata/SampleMaterial.lc 649:32-649:42
+    AlphaGen
+testdata/SampleMaterial.lc 650:29-650:40
+    TCGen
+testdata/SampleMaterial.lc 651:29-651:31
+    forall a . List a
+testdata/SampleMaterial.lc 652:31-652:42
+    StageTexture
+testdata/SampleMaterial.lc 653:34-653:38
+    Bool
+testdata/SampleMaterial.lc 654:33-654:41
+    DepthFunction
+testdata/SampleMaterial.lc 655:33-655:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 656:41-656:46
+    Bool
+testdata/SampleMaterial.lc 657:38-657:54
+    String
+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-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
-testdata/SampleMaterial.lc 664:7-672:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 664:7-673:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 664:7-674:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 664:7-702:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 664:7-704:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 665:24-665:26  ()
-testdata/SampleMaterial.lc 666:24-666:26  ()
-testdata/SampleMaterial.lc 667:22-667:27  Bool
-testdata/SampleMaterial.lc 668:20-668:21  _b
-testdata/SampleMaterial.lc 669:30-669:35  Bool
-testdata/SampleMaterial.lc 670:23-670:28  Bool
-testdata/SampleMaterial.lc 671:20-671:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 664:7-672:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-673:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-674:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-702:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-704:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 665:24-665:26
+    ()
+testdata/SampleMaterial.lc 666:24-666:26
+    ()
+testdata/SampleMaterial.lc 667:22-667:27
+    Bool
+testdata/SampleMaterial.lc 668:20-668:21
+    _b
+testdata/SampleMaterial.lc 669:30-669:35
+    Bool
+testdata/SampleMaterial.lc 670:23-670:28
+    Bool
+testdata/SampleMaterial.lc 671:20-671:33
+    CullType
+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-677:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 676:15-679:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 676:15-678:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 676:15-680:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 676:15-679:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 676:15-681:31
+    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
-testdata/SampleMaterial.lc 676:15-685:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 676:15-686:46  String -> StageAttrs
-testdata/SampleMaterial.lc 676:15-688:18  StageAttrs
-testdata/SampleMaterial.lc 677:29-677:36  forall a . Maybe a
-testdata/SampleMaterial.lc 678:30-678:50  RGBGen
-testdata/SampleMaterial.lc 679:32-679:42  AlphaGen
-testdata/SampleMaterial.lc 680:29-680:36  TCGen
-testdata/SampleMaterial.lc 681:29-681:31  forall a . List a
-testdata/SampleMaterial.lc 682:31-682:37  String -> StageTexture
-testdata/SampleMaterial.lc 682:31-682:73  StageTexture
-testdata/SampleMaterial.lc 682:38-682:73  String
-testdata/SampleMaterial.lc 683:34-683:38  Bool
-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
+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
+testdata/SampleMaterial.lc 676:15-685:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-686:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-688:18
+    StageAttrs
+testdata/SampleMaterial.lc 677:29-677:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 678:30-678:50
+    RGBGen
+testdata/SampleMaterial.lc 679:32-679:42
+    AlphaGen
+testdata/SampleMaterial.lc 680:29-680:36
+    TCGen
+testdata/SampleMaterial.lc 681:29-681:31
+    forall a . List a
+testdata/SampleMaterial.lc 682:31-682:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 682:31-682:73
+    StageTexture
+testdata/SampleMaterial.lc 682:38-682:73
+    String
+testdata/SampleMaterial.lc 683:34-683:38
+    Bool
+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-690:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 689:15-692:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 689:15-691:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 689:15-693:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 689:15-692:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 689:15-694:31
+    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
-testdata/SampleMaterial.lc 689:15-698:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 689:15-699:46  String -> StageAttrs
-testdata/SampleMaterial.lc 689:15-701:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 690:29-690:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 690:29-690:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 690:34-690:57  (Blending', Blending')
-testdata/SampleMaterial.lc 690:36-690:46  Blending'
-testdata/SampleMaterial.lc 690:49-690:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 691:30-691:50  RGBGen
-testdata/SampleMaterial.lc 692:32-692:42  AlphaGen
-testdata/SampleMaterial.lc 693:29-693:40  TCGen
-testdata/SampleMaterial.lc 694:29-694:31  forall a . List a
-testdata/SampleMaterial.lc 695:31-695:42  StageTexture
-testdata/SampleMaterial.lc 696:34-696:38  Bool
-testdata/SampleMaterial.lc 697:33-697:41  DepthFunction
-testdata/SampleMaterial.lc 698:33-698:40  forall a . Maybe a
-testdata/SampleMaterial.lc 699:41-699:46  Bool
-testdata/SampleMaterial.lc 700:38-700:54  String
-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
+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
+testdata/SampleMaterial.lc 689:15-698:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-699:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-701:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 690:29-690:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 690:29-690:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 690:34-690:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 690:36-690:46
+    Blending'
+testdata/SampleMaterial.lc 690:49-690:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 691:30-691:50
+    RGBGen
+testdata/SampleMaterial.lc 692:32-692:42
+    AlphaGen
+testdata/SampleMaterial.lc 693:29-693:40
+    TCGen
+testdata/SampleMaterial.lc 694:29-694:31
+    forall a . List a
+testdata/SampleMaterial.lc 695:31-695:42
+    StageTexture
+testdata/SampleMaterial.lc 696:34-696:38
+    Bool
+testdata/SampleMaterial.lc 697:33-697:41
+    DepthFunction
+testdata/SampleMaterial.lc 698:33-698:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 699:41-699:46
+    Bool
+testdata/SampleMaterial.lc 700:38-700:54
+    String
+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-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
-testdata/SampleMaterial.lc 707:7-715:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 707:7-716:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 707:7-717:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 707:7-745:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 707:7-747:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 708:24-708:26  ()
-testdata/SampleMaterial.lc 709:24-709:26  ()
-testdata/SampleMaterial.lc 710:22-710:27  Bool
-testdata/SampleMaterial.lc 711:20-711:21  _b
-testdata/SampleMaterial.lc 712:30-712:35  Bool
-testdata/SampleMaterial.lc 713:23-713:28  Bool
-testdata/SampleMaterial.lc 714:20-714:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 707:7-715:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-716:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-717:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-745:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-747:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 708:24-708:26
+    ()
+testdata/SampleMaterial.lc 709:24-709:26
+    ()
+testdata/SampleMaterial.lc 710:22-710:27
+    Bool
+testdata/SampleMaterial.lc 711:20-711:21
+    _b
+testdata/SampleMaterial.lc 712:30-712:35
+    Bool
+testdata/SampleMaterial.lc 713:23-713:28
+    Bool
+testdata/SampleMaterial.lc 714:20-714:33
+    CullType
+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-720:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 719:15-722:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 719:15-721:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 719:15-723:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 719:15-722:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 719:15-724:31
+    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
-testdata/SampleMaterial.lc 719:15-728:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 719:15-729:46  String -> StageAttrs
-testdata/SampleMaterial.lc 719:15-731:18  StageAttrs
-testdata/SampleMaterial.lc 720:29-720:36  forall a . Maybe a
-testdata/SampleMaterial.lc 721:30-721:50  RGBGen
-testdata/SampleMaterial.lc 722:32-722:42  AlphaGen
-testdata/SampleMaterial.lc 723:29-723:36  TCGen
-testdata/SampleMaterial.lc 724:29-724:31  forall a . List a
-testdata/SampleMaterial.lc 725:31-725:37  String -> StageTexture
-testdata/SampleMaterial.lc 725:31-725:73  StageTexture
-testdata/SampleMaterial.lc 725:38-725:73  String
-testdata/SampleMaterial.lc 726:34-726:38  Bool
-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
+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
+testdata/SampleMaterial.lc 719:15-728:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-729:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-731:18
+    StageAttrs
+testdata/SampleMaterial.lc 720:29-720:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 721:30-721:50
+    RGBGen
+testdata/SampleMaterial.lc 722:32-722:42
+    AlphaGen
+testdata/SampleMaterial.lc 723:29-723:36
+    TCGen
+testdata/SampleMaterial.lc 724:29-724:31
+    forall a . List a
+testdata/SampleMaterial.lc 725:31-725:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 725:31-725:73
+    StageTexture
+testdata/SampleMaterial.lc 725:38-725:73
+    String
+testdata/SampleMaterial.lc 726:34-726:38
+    Bool
+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-733:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 732:15-735:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 732:15-734:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 732:15-736:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 732:15-735:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 732:15-737:31
+    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
-testdata/SampleMaterial.lc 732:15-741:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 732:15-742:46  String -> StageAttrs
-testdata/SampleMaterial.lc 732:15-744:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 733:29-733:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 733:29-733:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 733:34-733:57  (Blending', Blending')
-testdata/SampleMaterial.lc 733:36-733:46  Blending'
-testdata/SampleMaterial.lc 733:49-733:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 734:30-734:50  RGBGen
-testdata/SampleMaterial.lc 735:32-735:42  AlphaGen
-testdata/SampleMaterial.lc 736:29-736:40  TCGen
-testdata/SampleMaterial.lc 737:29-737:31  forall a . List a
-testdata/SampleMaterial.lc 738:31-738:42  StageTexture
-testdata/SampleMaterial.lc 739:34-739:38  Bool
-testdata/SampleMaterial.lc 740:33-740:41  DepthFunction
-testdata/SampleMaterial.lc 741:33-741:40  forall a . Maybe a
-testdata/SampleMaterial.lc 742:41-742:46  Bool
-testdata/SampleMaterial.lc 743:38-743:54  String
-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
+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
+testdata/SampleMaterial.lc 732:15-741:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-742:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-744:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 733:29-733:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 733:29-733:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 733:34-733:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 733:36-733:46
+    Blending'
+testdata/SampleMaterial.lc 733:49-733:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 734:30-734:50
+    RGBGen
+testdata/SampleMaterial.lc 735:32-735:42
+    AlphaGen
+testdata/SampleMaterial.lc 736:29-736:40
+    TCGen
+testdata/SampleMaterial.lc 737:29-737:31
+    forall a . List a
+testdata/SampleMaterial.lc 738:31-738:42
+    StageTexture
+testdata/SampleMaterial.lc 739:34-739:38
+    Bool
+testdata/SampleMaterial.lc 740:33-740:41
+    DepthFunction
+testdata/SampleMaterial.lc 741:33-741:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 742:41-742:46
+    Bool
+testdata/SampleMaterial.lc 743:38-743:54
+    String
+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-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
-testdata/SampleMaterial.lc 750:7-758:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 750:7-759:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 750:7-760:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 750:7-788:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 750:7-790:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 751:24-751:26  ()
-testdata/SampleMaterial.lc 752:24-752:26  ()
-testdata/SampleMaterial.lc 753:22-753:27  Bool
-testdata/SampleMaterial.lc 754:20-754:21  _b
-testdata/SampleMaterial.lc 755:30-755:35  Bool
-testdata/SampleMaterial.lc 756:23-756:28  Bool
-testdata/SampleMaterial.lc 757:20-757:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 750:7-758:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-759:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-760:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-788:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-790:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 751:24-751:26
+    ()
+testdata/SampleMaterial.lc 752:24-752:26
+    ()
+testdata/SampleMaterial.lc 753:22-753:27
+    Bool
+testdata/SampleMaterial.lc 754:20-754:21
+    _b
+testdata/SampleMaterial.lc 755:30-755:35
+    Bool
+testdata/SampleMaterial.lc 756:23-756:28
+    Bool
+testdata/SampleMaterial.lc 757:20-757:33
+    CullType
+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-763:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 762:15-765:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 762:15-764:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 762:15-766:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 762:15-765:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 762:15-767:31
+    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
-testdata/SampleMaterial.lc 762:15-771:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 762:15-772:46  String -> StageAttrs
-testdata/SampleMaterial.lc 762:15-774:18  StageAttrs
-testdata/SampleMaterial.lc 763:29-763:36  forall a . Maybe a
-testdata/SampleMaterial.lc 764:30-764:50  RGBGen
-testdata/SampleMaterial.lc 765:32-765:42  AlphaGen
-testdata/SampleMaterial.lc 766:29-766:36  TCGen
-testdata/SampleMaterial.lc 767:29-767:31  forall a . List a
-testdata/SampleMaterial.lc 768:31-768:37  String -> StageTexture
-testdata/SampleMaterial.lc 768:31-768:73  StageTexture
-testdata/SampleMaterial.lc 768:38-768:73  String
-testdata/SampleMaterial.lc 769:34-769:38  Bool
-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
+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
+testdata/SampleMaterial.lc 762:15-771:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-772:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-774:18
+    StageAttrs
+testdata/SampleMaterial.lc 763:29-763:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 764:30-764:50
+    RGBGen
+testdata/SampleMaterial.lc 765:32-765:42
+    AlphaGen
+testdata/SampleMaterial.lc 766:29-766:36
+    TCGen
+testdata/SampleMaterial.lc 767:29-767:31
+    forall a . List a
+testdata/SampleMaterial.lc 768:31-768:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 768:31-768:73
+    StageTexture
+testdata/SampleMaterial.lc 768:38-768:73
+    String
+testdata/SampleMaterial.lc 769:34-769:38
+    Bool
+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-776:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 775:15-778:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 775:15-777:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 775:15-779:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 775:15-778:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 775:15-780:31
+    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
-testdata/SampleMaterial.lc 775:15-784:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 775:15-785:46  String -> StageAttrs
-testdata/SampleMaterial.lc 775:15-787:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 776:29-776:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 776:29-776:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 776:34-776:57  (Blending', Blending')
-testdata/SampleMaterial.lc 776:36-776:46  Blending'
-testdata/SampleMaterial.lc 776:49-776:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 777:30-777:50  RGBGen
-testdata/SampleMaterial.lc 778:32-778:42  AlphaGen
-testdata/SampleMaterial.lc 779:29-779:40  TCGen
-testdata/SampleMaterial.lc 780:29-780:31  forall a . List a
-testdata/SampleMaterial.lc 781:31-781:42  StageTexture
-testdata/SampleMaterial.lc 782:34-782:38  Bool
-testdata/SampleMaterial.lc 783:33-783:41  DepthFunction
-testdata/SampleMaterial.lc 784:33-784:40  forall a . Maybe a
-testdata/SampleMaterial.lc 785:41-785:46  Bool
-testdata/SampleMaterial.lc 786:38-786:54  String
-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
+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
+testdata/SampleMaterial.lc 775:15-784:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-785:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-787:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 776:29-776:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 776:29-776:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 776:34-776:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 776:36-776:46
+    Blending'
+testdata/SampleMaterial.lc 776:49-776:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 777:30-777:50
+    RGBGen
+testdata/SampleMaterial.lc 778:32-778:42
+    AlphaGen
+testdata/SampleMaterial.lc 779:29-779:40
+    TCGen
+testdata/SampleMaterial.lc 780:29-780:31
+    forall a . List a
+testdata/SampleMaterial.lc 781:31-781:42
+    StageTexture
+testdata/SampleMaterial.lc 782:34-782:38
+    Bool
+testdata/SampleMaterial.lc 783:33-783:41
+    DepthFunction
+testdata/SampleMaterial.lc 784:33-784:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 785:41-785:46
+    Bool
+testdata/SampleMaterial.lc 786:38-786:54
+    String
+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-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
-testdata/SampleMaterial.lc 793:7-801:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 793:7-802:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 793:7-803:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 793:7-831:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 793:7-833:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 794:24-794:26  ()
-testdata/SampleMaterial.lc 795:24-795:26  ()
-testdata/SampleMaterial.lc 796:22-796:27  Bool
-testdata/SampleMaterial.lc 797:20-797:21  _b
-testdata/SampleMaterial.lc 798:30-798:35  Bool
-testdata/SampleMaterial.lc 799:23-799:28  Bool
-testdata/SampleMaterial.lc 800:20-800:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 793:7-801:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-802:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-803:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-831:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-833:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 794:24-794:26
+    ()
+testdata/SampleMaterial.lc 795:24-795:26
+    ()
+testdata/SampleMaterial.lc 796:22-796:27
+    Bool
+testdata/SampleMaterial.lc 797:20-797:21
+    _b
+testdata/SampleMaterial.lc 798:30-798:35
+    Bool
+testdata/SampleMaterial.lc 799:23-799:28
+    Bool
+testdata/SampleMaterial.lc 800:20-800:33
+    CullType
+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-806:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 805:15-808:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 805:15-807:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 805:15-809:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 805:15-808:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 805:15-810:31
+    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
-testdata/SampleMaterial.lc 805:15-814:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 805:15-815:46  String -> StageAttrs
-testdata/SampleMaterial.lc 805:15-817:18  StageAttrs
-testdata/SampleMaterial.lc 806:29-806:36  forall a . Maybe a
-testdata/SampleMaterial.lc 807:30-807:50  RGBGen
-testdata/SampleMaterial.lc 808:32-808:42  AlphaGen
-testdata/SampleMaterial.lc 809:29-809:36  TCGen
-testdata/SampleMaterial.lc 810:29-810:31  forall a . List a
-testdata/SampleMaterial.lc 811:31-811:37  String -> StageTexture
-testdata/SampleMaterial.lc 811:31-811:72  StageTexture
-testdata/SampleMaterial.lc 811:38-811:72  String
-testdata/SampleMaterial.lc 812:34-812:38  Bool
-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
+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
+testdata/SampleMaterial.lc 805:15-814:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-815:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-817:18
+    StageAttrs
+testdata/SampleMaterial.lc 806:29-806:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 807:30-807:50
+    RGBGen
+testdata/SampleMaterial.lc 808:32-808:42
+    AlphaGen
+testdata/SampleMaterial.lc 809:29-809:36
+    TCGen
+testdata/SampleMaterial.lc 810:29-810:31
+    forall a . List a
+testdata/SampleMaterial.lc 811:31-811:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 811:31-811:72
+    StageTexture
+testdata/SampleMaterial.lc 811:38-811:72
+    String
+testdata/SampleMaterial.lc 812:34-812:38
+    Bool
+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-819:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 818:15-821:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 818:15-820:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 818:15-822:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 818:15-821:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 818:15-823:31
+    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
-testdata/SampleMaterial.lc 818:15-827:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 818:15-828:46  String -> StageAttrs
-testdata/SampleMaterial.lc 818:15-830:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 819:29-819:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 819:29-819:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 819:34-819:57  (Blending', Blending')
-testdata/SampleMaterial.lc 819:36-819:46  Blending'
-testdata/SampleMaterial.lc 819:49-819:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 820:30-820:50  RGBGen
-testdata/SampleMaterial.lc 821:32-821:42  AlphaGen
-testdata/SampleMaterial.lc 822:29-822:40  TCGen
-testdata/SampleMaterial.lc 823:29-823:31  forall a . List a
-testdata/SampleMaterial.lc 824:31-824:42  StageTexture
-testdata/SampleMaterial.lc 825:34-825:38  Bool
-testdata/SampleMaterial.lc 826:33-826:41  DepthFunction
-testdata/SampleMaterial.lc 827:33-827:40  forall a . Maybe a
-testdata/SampleMaterial.lc 828:41-828:46  Bool
-testdata/SampleMaterial.lc 829:38-829:54  String
-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
+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
+testdata/SampleMaterial.lc 818:15-827:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-828:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-830:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 819:29-819:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 819:29-819:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 819:34-819:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 819:36-819:46
+    Blending'
+testdata/SampleMaterial.lc 819:49-819:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 820:30-820:50
+    RGBGen
+testdata/SampleMaterial.lc 821:32-821:42
+    AlphaGen
+testdata/SampleMaterial.lc 822:29-822:40
+    TCGen
+testdata/SampleMaterial.lc 823:29-823:31
+    forall a . List a
+testdata/SampleMaterial.lc 824:31-824:42
+    StageTexture
+testdata/SampleMaterial.lc 825:34-825:38
+    Bool
+testdata/SampleMaterial.lc 826:33-826:41
+    DepthFunction
+testdata/SampleMaterial.lc 827:33-827:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 828:41-828:46
+    Bool
+testdata/SampleMaterial.lc 829:38-829:54
+    String
+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-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
-testdata/SampleMaterial.lc 836:7-844:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 836:7-845:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 836:7-846:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 836:7-888:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 836:7-890:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 837:24-837:26  ()
-testdata/SampleMaterial.lc 838:24-838:26  ()
-testdata/SampleMaterial.lc 839:22-839:27  Bool
-testdata/SampleMaterial.lc 840:20-840:21  _b
-testdata/SampleMaterial.lc 841:30-841:35  Bool
-testdata/SampleMaterial.lc 842:23-842:28  Bool
-testdata/SampleMaterial.lc 843:20-843:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 836:7-844:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-845:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-846:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-888:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-890:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 837:24-837:26
+    ()
+testdata/SampleMaterial.lc 838:24-838:26
+    ()
+testdata/SampleMaterial.lc 839:22-839:27
+    Bool
+testdata/SampleMaterial.lc 840:20-840:21
+    _b
+testdata/SampleMaterial.lc 841:30-841:35
+    Bool
+testdata/SampleMaterial.lc 842:23-842:28
+    Bool
+testdata/SampleMaterial.lc 843:20-843:33
+    CullType
+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-849:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 848:15-851:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 848:15-850:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 848:15-852:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 848:15-851:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 848:15-854:88
+    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
-testdata/SampleMaterial.lc 848:15-858:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 848:15-859:46  String -> StageAttrs
-testdata/SampleMaterial.lc 848:15-861:18  StageAttrs
-testdata/SampleMaterial.lc 849:29-849:36  forall a . Maybe a
-testdata/SampleMaterial.lc 850:30-850:42  RGBGen
-testdata/SampleMaterial.lc 851:32-851:42  AlphaGen
-testdata/SampleMaterial.lc 852:29-852:36  TCGen
-testdata/SampleMaterial.lc 854:21-854:88  List TCMod
-testdata/SampleMaterial.lc 854:23-854:32  Float -> Float -> TCMod
-testdata/SampleMaterial.lc 854:23-854:36  Float -> TCMod
-testdata/SampleMaterial.lc 854:23-854:40  TCMod
-testdata/SampleMaterial.lc 854:33-854:36  Float
-testdata/SampleMaterial.lc 854:37-854:40  Float
-testdata/SampleMaterial.lc 854:43-854:50  Float -> Float -> Float -> Float -> TCMod
-testdata/SampleMaterial.lc 854:43-854:54  Float -> Float -> Float -> TCMod
-testdata/SampleMaterial.lc 854:43-854:59  Float -> Float -> TCMod
-testdata/SampleMaterial.lc 854:43-854:63  Float -> TCMod
-testdata/SampleMaterial.lc 854:43-854:67  TCMod
-testdata/SampleMaterial.lc 854:43-854:86  List TCMod
-testdata/SampleMaterial.lc 854:51-854:54  Float
-testdata/SampleMaterial.lc 854:55-854:59  Float
-testdata/SampleMaterial.lc 854:60-854:63  Float
-testdata/SampleMaterial.lc 854:64-854:67  Float
-testdata/SampleMaterial.lc 854:70-854:78  Float -> Float -> TCMod
-testdata/SampleMaterial.lc 854:70-854:82  Float -> TCMod
-testdata/SampleMaterial.lc 854:70-854:86  List TCMod | TCMod
-testdata/SampleMaterial.lc 854:79-854:82  Float
-testdata/SampleMaterial.lc 854:83-854:86  Float
-testdata/SampleMaterial.lc 855:31-855:37  String -> StageTexture
-testdata/SampleMaterial.lc 855:31-855:66  StageTexture
-testdata/SampleMaterial.lc 855:38-855:66  String
-testdata/SampleMaterial.lc 856:34-856:38  Bool
-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
+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
+testdata/SampleMaterial.lc 848:15-858:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-859:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-861:18
+    StageAttrs
+testdata/SampleMaterial.lc 849:29-849:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 850:30-850:42
+    RGBGen
+testdata/SampleMaterial.lc 851:32-851:42
+    AlphaGen
+testdata/SampleMaterial.lc 852:29-852:36
+    TCGen
+testdata/SampleMaterial.lc 854:21-854:88
+    List TCMod
+testdata/SampleMaterial.lc 854:23-854:32
+    Float -> Float -> TCMod
+testdata/SampleMaterial.lc 854:23-854:36
+    Float -> TCMod
+testdata/SampleMaterial.lc 854:23-854:40
+    TCMod
+testdata/SampleMaterial.lc 854:33-854:36
+    Float
+testdata/SampleMaterial.lc 854:37-854:40
+    Float
+testdata/SampleMaterial.lc 854:43-854:50
+    Float -> Float -> Float -> Float -> TCMod
+testdata/SampleMaterial.lc 854:43-854:54
+    Float -> Float -> Float -> TCMod
+testdata/SampleMaterial.lc 854:43-854:59
+    Float -> Float -> TCMod
+testdata/SampleMaterial.lc 854:43-854:63
+    Float -> TCMod
+testdata/SampleMaterial.lc 854:43-854:67
+    TCMod
+testdata/SampleMaterial.lc 854:43-854:86
+    List TCMod
+testdata/SampleMaterial.lc 854:51-854:54
+    Float
+testdata/SampleMaterial.lc 854:55-854:59
+    Float
+testdata/SampleMaterial.lc 854:60-854:63
+    Float
+testdata/SampleMaterial.lc 854:64-854:67
+    Float
+testdata/SampleMaterial.lc 854:70-854:78
+    Float -> Float -> TCMod
+testdata/SampleMaterial.lc 854:70-854:82
+    Float -> TCMod
+testdata/SampleMaterial.lc 854:70-854:86
+    TCMod | List TCMod
+testdata/SampleMaterial.lc 854:79-854:82
+    Float
+testdata/SampleMaterial.lc 854:83-854:86
+    Float
+testdata/SampleMaterial.lc 855:31-855:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 855:31-855:66
+    StageTexture
+testdata/SampleMaterial.lc 855:38-855:66
+    String
+testdata/SampleMaterial.lc 856:34-856:38
+    Bool
+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-863:69  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 862:15-865:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 862:15-864:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 862:15-866:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 862:15-865:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 862:15-867:31
+    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
-testdata/SampleMaterial.lc 862:15-871:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 862:15-872:46  String -> StageAttrs
-testdata/SampleMaterial.lc 862:15-874:18  StageAttrs
-testdata/SampleMaterial.lc 862:15-887:18  List StageAttrs
-testdata/SampleMaterial.lc 863:29-863:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 863:29-863:69  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 863:34-863:69  (Blending', Blending')
-testdata/SampleMaterial.lc 863:36-863:46  Blending'
-testdata/SampleMaterial.lc 863:49-863:67  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 864:30-864:42  RGBGen
-testdata/SampleMaterial.lc 865:32-865:42  AlphaGen
-testdata/SampleMaterial.lc 866:29-866:36  TCGen
-testdata/SampleMaterial.lc 867:29-867:31  forall a . List a
-testdata/SampleMaterial.lc 868:31-868:37  String -> StageTexture
-testdata/SampleMaterial.lc 868:31-868:76  StageTexture
-testdata/SampleMaterial.lc 868:38-868:76  String
-testdata/SampleMaterial.lc 869:34-869:39  Bool
-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
+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
+testdata/SampleMaterial.lc 862:15-871:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-872:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-874:18
+    StageAttrs
+testdata/SampleMaterial.lc 862:15-887:18
+    List StageAttrs
+testdata/SampleMaterial.lc 863:29-863:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 863:29-863:69
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 863:34-863:69
+    (Blending', Blending')
+testdata/SampleMaterial.lc 863:36-863:46
+    Blending'
+testdata/SampleMaterial.lc 863:49-863:67
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 864:30-864:42
+    RGBGen
+testdata/SampleMaterial.lc 865:32-865:42
+    AlphaGen
+testdata/SampleMaterial.lc 866:29-866:36
+    TCGen
+testdata/SampleMaterial.lc 867:29-867:31
+    forall a . List a
+testdata/SampleMaterial.lc 868:31-868:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 868:31-868:76
+    StageTexture
+testdata/SampleMaterial.lc 868:38-868:76
+    String
+testdata/SampleMaterial.lc 869:34-869:39
+    Bool
+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-876:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 875:15-878:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 875:15-877:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 875:15-879:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 875:15-878:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 875:15-880:31
+    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
-testdata/SampleMaterial.lc 875:15-884:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 875:15-885:46  String -> StageAttrs
-testdata/SampleMaterial.lc 875:15-887:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 876:29-876:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 876:29-876:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 876:34-876:57  (Blending', Blending')
-testdata/SampleMaterial.lc 876:36-876:46  Blending'
-testdata/SampleMaterial.lc 876:49-876:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 877:30-877:42  RGBGen
-testdata/SampleMaterial.lc 878:32-878:42  AlphaGen
-testdata/SampleMaterial.lc 879:29-879:40  TCGen
-testdata/SampleMaterial.lc 880:29-880:31  forall a . List a
-testdata/SampleMaterial.lc 881:31-881:42  StageTexture
-testdata/SampleMaterial.lc 882:34-882:39  Bool
-testdata/SampleMaterial.lc 883:33-883:41  DepthFunction
-testdata/SampleMaterial.lc 884:33-884:40  forall a . Maybe a
-testdata/SampleMaterial.lc 885:41-885:46  Bool
-testdata/SampleMaterial.lc 886:38-886:54  String
-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
+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
+testdata/SampleMaterial.lc 875:15-884:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-885:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-887:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 876:29-876:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 876:29-876:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 876:34-876:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 876:36-876:46
+    Blending'
+testdata/SampleMaterial.lc 876:49-876:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 877:30-877:42
+    RGBGen
+testdata/SampleMaterial.lc 878:32-878:42
+    AlphaGen
+testdata/SampleMaterial.lc 879:29-879:40
+    TCGen
+testdata/SampleMaterial.lc 880:29-880:31
+    forall a . List a
+testdata/SampleMaterial.lc 881:31-881:42
+    StageTexture
+testdata/SampleMaterial.lc 882:34-882:39
+    Bool
+testdata/SampleMaterial.lc 883:33-883:41
+    DepthFunction
+testdata/SampleMaterial.lc 884:33-884:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 885:41-885:46
+    Bool
+testdata/SampleMaterial.lc 886:38-886:54
+    String
+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-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
-testdata/SampleMaterial.lc 893:7-901:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 893:7-902:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 893:7-903:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 893:7-931:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 893:7-933:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 894:24-894:26  ()
-testdata/SampleMaterial.lc 895:24-895:26  ()
-testdata/SampleMaterial.lc 896:22-896:27  Bool
-testdata/SampleMaterial.lc 897:20-897:21  _b
-testdata/SampleMaterial.lc 898:30-898:35  Bool
-testdata/SampleMaterial.lc 899:23-899:28  Bool
-testdata/SampleMaterial.lc 900:20-900:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 893:7-901:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-902:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-903:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-931:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-933:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 894:24-894:26
+    ()
+testdata/SampleMaterial.lc 895:24-895:26
+    ()
+testdata/SampleMaterial.lc 896:22-896:27
+    Bool
+testdata/SampleMaterial.lc 897:20-897:21
+    _b
+testdata/SampleMaterial.lc 898:30-898:35
+    Bool
+testdata/SampleMaterial.lc 899:23-899:28
+    Bool
+testdata/SampleMaterial.lc 900:20-900:33
+    CullType
+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-906:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 905:15-908:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 905:15-907:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 905:15-909:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 905:15-908:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 905:15-910:31
+    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
-testdata/SampleMaterial.lc 905:15-914:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 905:15-915:46  String -> StageAttrs
-testdata/SampleMaterial.lc 905:15-917:18  StageAttrs
-testdata/SampleMaterial.lc 906:29-906:36  forall a . Maybe a
-testdata/SampleMaterial.lc 907:30-907:50  RGBGen
-testdata/SampleMaterial.lc 908:32-908:42  AlphaGen
-testdata/SampleMaterial.lc 909:29-909:36  TCGen
-testdata/SampleMaterial.lc 910:29-910:31  forall a . List a
-testdata/SampleMaterial.lc 911:31-911:37  String -> StageTexture
-testdata/SampleMaterial.lc 911:31-911:72  StageTexture
-testdata/SampleMaterial.lc 911:38-911:72  String
-testdata/SampleMaterial.lc 912:34-912:38  Bool
-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
+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
+testdata/SampleMaterial.lc 905:15-914:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-915:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-917:18
+    StageAttrs
+testdata/SampleMaterial.lc 906:29-906:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 907:30-907:50
+    RGBGen
+testdata/SampleMaterial.lc 908:32-908:42
+    AlphaGen
+testdata/SampleMaterial.lc 909:29-909:36
+    TCGen
+testdata/SampleMaterial.lc 910:29-910:31
+    forall a . List a
+testdata/SampleMaterial.lc 911:31-911:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 911:31-911:72
+    StageTexture
+testdata/SampleMaterial.lc 911:38-911:72
+    String
+testdata/SampleMaterial.lc 912:34-912:38
+    Bool
+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-919:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 918:15-921:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 918:15-920:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 918:15-922:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 918:15-921:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 918:15-923:31
+    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
-testdata/SampleMaterial.lc 918:15-927:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 918:15-928:46  String -> StageAttrs
-testdata/SampleMaterial.lc 918:15-930:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 919:29-919:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 919:29-919:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 919:34-919:57  (Blending', Blending')
-testdata/SampleMaterial.lc 919:36-919:46  Blending'
-testdata/SampleMaterial.lc 919:49-919:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 920:30-920:50  RGBGen
-testdata/SampleMaterial.lc 921:32-921:42  AlphaGen
-testdata/SampleMaterial.lc 922:29-922:40  TCGen
-testdata/SampleMaterial.lc 923:29-923:31  forall a . List a
-testdata/SampleMaterial.lc 924:31-924:42  StageTexture
-testdata/SampleMaterial.lc 925:34-925:38  Bool
-testdata/SampleMaterial.lc 926:33-926:41  DepthFunction
-testdata/SampleMaterial.lc 927:33-927:40  forall a . Maybe a
-testdata/SampleMaterial.lc 928:41-928:46  Bool
-testdata/SampleMaterial.lc 929:38-929:54  String
-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
+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
+testdata/SampleMaterial.lc 918:15-927:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-928:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-930:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 919:29-919:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 919:29-919:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 919:34-919:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 919:36-919:46
+    Blending'
+testdata/SampleMaterial.lc 919:49-919:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 920:30-920:50
+    RGBGen
+testdata/SampleMaterial.lc 921:32-921:42
+    AlphaGen
+testdata/SampleMaterial.lc 922:29-922:40
+    TCGen
+testdata/SampleMaterial.lc 923:29-923:31
+    forall a . List a
+testdata/SampleMaterial.lc 924:31-924:42
+    StageTexture
+testdata/SampleMaterial.lc 925:34-925:38
+    Bool
+testdata/SampleMaterial.lc 926:33-926:41
+    DepthFunction
+testdata/SampleMaterial.lc 927:33-927:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 928:41-928:46
+    Bool
+testdata/SampleMaterial.lc 929:38-929:54
+    String
+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-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
-testdata/SampleMaterial.lc 936:7-944:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 936:7-945:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 936:7-946:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 936:7-975:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 936:7-977:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 937:24-937:26  ()
-testdata/SampleMaterial.lc 938:24-938:26  ()
-testdata/SampleMaterial.lc 939:22-939:27  Bool
-testdata/SampleMaterial.lc 940:20-940:21  _b
-testdata/SampleMaterial.lc 941:30-941:35  Bool
-testdata/SampleMaterial.lc 942:23-942:28  Bool
-testdata/SampleMaterial.lc 943:20-943:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 936:7-944:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-945:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-946:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-975:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-977:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 937:24-937:26
+    ()
+testdata/SampleMaterial.lc 938:24-938:26
+    ()
+testdata/SampleMaterial.lc 939:22-939:27
+    Bool
+testdata/SampleMaterial.lc 940:20-940:21
+    _b
+testdata/SampleMaterial.lc 941:30-941:35
+    Bool
+testdata/SampleMaterial.lc 942:23-942:28
+    Bool
+testdata/SampleMaterial.lc 943:20-943:33
+    CullType
+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-949:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 948:15-951:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 948:15-950:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 948:15-952:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 948:15-951:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 948:15-953:31
+    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
-testdata/SampleMaterial.lc 948:15-958:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 948:15-959:46  String -> StageAttrs
-testdata/SampleMaterial.lc 948:15-961:18  StageAttrs
-testdata/SampleMaterial.lc 949:29-949:36  forall a . Maybe a
-testdata/SampleMaterial.lc 950:30-950:50  RGBGen
-testdata/SampleMaterial.lc 951:32-951:42  AlphaGen
-testdata/SampleMaterial.lc 952:29-952:36  TCGen
-testdata/SampleMaterial.lc 953:29-953:31  forall a . List a
-testdata/SampleMaterial.lc 955:21-955:27  String -> StageTexture
-testdata/SampleMaterial.lc 955:21-955:75  StageTexture
-testdata/SampleMaterial.lc 955:28-955:75  String
-testdata/SampleMaterial.lc 956:34-956:38  Bool
-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
+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
+testdata/SampleMaterial.lc 948:15-958:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-959:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-961:18
+    StageAttrs
+testdata/SampleMaterial.lc 949:29-949:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 950:30-950:50
+    RGBGen
+testdata/SampleMaterial.lc 951:32-951:42
+    AlphaGen
+testdata/SampleMaterial.lc 952:29-952:36
+    TCGen
+testdata/SampleMaterial.lc 953:29-953:31
+    forall a . List a
+testdata/SampleMaterial.lc 955:21-955:27
+    String -> StageTexture
+testdata/SampleMaterial.lc 955:21-955:75
+    StageTexture
+testdata/SampleMaterial.lc 955:28-955:75
+    String
+testdata/SampleMaterial.lc 956:34-956:38
+    Bool
+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-963:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 962:15-965:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 962:15-964:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 962:15-966:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 962:15-965:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 962:15-967:31
+    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
-testdata/SampleMaterial.lc 962:15-971:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 962:15-972:46  String -> StageAttrs
-testdata/SampleMaterial.lc 962:15-974:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 963:29-963:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 963:29-963:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 963:34-963:57  (Blending', Blending')
-testdata/SampleMaterial.lc 963:36-963:46  Blending'
-testdata/SampleMaterial.lc 963:49-963:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 964:30-964:50  RGBGen
-testdata/SampleMaterial.lc 965:32-965:42  AlphaGen
-testdata/SampleMaterial.lc 966:29-966:40  TCGen
-testdata/SampleMaterial.lc 967:29-967:31  forall a . List a
-testdata/SampleMaterial.lc 968:31-968:42  StageTexture
-testdata/SampleMaterial.lc 969:34-969:38  Bool
-testdata/SampleMaterial.lc 970:33-970:41  DepthFunction
-testdata/SampleMaterial.lc 971:33-971:40  forall a . Maybe a
-testdata/SampleMaterial.lc 972:41-972:46  Bool
-testdata/SampleMaterial.lc 973:38-973:54  String
-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
+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
+testdata/SampleMaterial.lc 962:15-971:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-972:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-974:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 963:29-963:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 963:29-963:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 963:34-963:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 963:36-963:46
+    Blending'
+testdata/SampleMaterial.lc 963:49-963:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 964:30-964:50
+    RGBGen
+testdata/SampleMaterial.lc 965:32-965:42
+    AlphaGen
+testdata/SampleMaterial.lc 966:29-966:40
+    TCGen
+testdata/SampleMaterial.lc 967:29-967:31
+    forall a . List a
+testdata/SampleMaterial.lc 968:31-968:42
+    StageTexture
+testdata/SampleMaterial.lc 969:34-969:38
+    Bool
+testdata/SampleMaterial.lc 970:33-970:41
+    DepthFunction
+testdata/SampleMaterial.lc 971:33-971:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 972:41-972:46
+    Bool
+testdata/SampleMaterial.lc 973:38-973:54
+    String
+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-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
-testdata/SampleMaterial.lc 980:7-988:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 980:7-989:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 980:7-990:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 980:7-1018:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 980:7-1020:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 981:24-981:26  ()
-testdata/SampleMaterial.lc 982:24-982:26  ()
-testdata/SampleMaterial.lc 983:22-983:27  Bool
-testdata/SampleMaterial.lc 984:20-984:21  _b
-testdata/SampleMaterial.lc 985:30-985:35  Bool
-testdata/SampleMaterial.lc 986:23-986:28  Bool
-testdata/SampleMaterial.lc 987:20-987:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 980:7-988:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-989:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-990:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-1018:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-1020:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 981:24-981:26
+    ()
+testdata/SampleMaterial.lc 982:24-982:26
+    ()
+testdata/SampleMaterial.lc 983:22-983:27
+    Bool
+testdata/SampleMaterial.lc 984:20-984:21
+    _b
+testdata/SampleMaterial.lc 985:30-985:35
+    Bool
+testdata/SampleMaterial.lc 986:23-986:28
+    Bool
+testdata/SampleMaterial.lc 987:20-987:33
+    CullType
+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-993:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 992:15-995:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 992:15-994:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 992:15-996:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 992:15-995:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 992:15-997:31
+    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
-testdata/SampleMaterial.lc 992:15-1001:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 992:15-1002:46  String -> StageAttrs
-testdata/SampleMaterial.lc 992:15-1004:18  StageAttrs
-testdata/SampleMaterial.lc 993:29-993:36  forall a . Maybe a
-testdata/SampleMaterial.lc 994:30-994:50  RGBGen
-testdata/SampleMaterial.lc 995:32-995:42  AlphaGen
-testdata/SampleMaterial.lc 996:29-996:36  TCGen
-testdata/SampleMaterial.lc 997:29-997:31  forall a . List a
-testdata/SampleMaterial.lc 998:31-998:37  String -> StageTexture
-testdata/SampleMaterial.lc 998:31-998:76  StageTexture
-testdata/SampleMaterial.lc 998:38-998:76  String
-testdata/SampleMaterial.lc 999:34-999:38  Bool
-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
+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
+testdata/SampleMaterial.lc 992:15-1001:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-1002:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-1004:18
+    StageAttrs
+testdata/SampleMaterial.lc 993:29-993:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 994:30-994:50
+    RGBGen
+testdata/SampleMaterial.lc 995:32-995:42
+    AlphaGen
+testdata/SampleMaterial.lc 996:29-996:36
+    TCGen
+testdata/SampleMaterial.lc 997:29-997:31
+    forall a . List a
+testdata/SampleMaterial.lc 998:31-998:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 998:31-998:76
+    StageTexture
+testdata/SampleMaterial.lc 998:38-998:76
+    String
+testdata/SampleMaterial.lc 999:34-999:38
+    Bool
+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-1006:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1005:15-1008:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1005:15-1007:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1005:15-1009:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1005:15-1008:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1005:15-1010:31
+    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
-testdata/SampleMaterial.lc 1005:15-1014:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1005:15-1015:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1005:15-1017:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1006:29-1006:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1006:29-1006:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1006:34-1006:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1006:36-1006:46  Blending'
-testdata/SampleMaterial.lc 1006:49-1006:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1007:30-1007:50  RGBGen
-testdata/SampleMaterial.lc 1008:32-1008:42  AlphaGen
-testdata/SampleMaterial.lc 1009:29-1009:40  TCGen
-testdata/SampleMaterial.lc 1010:29-1010:31  forall a . List a
-testdata/SampleMaterial.lc 1011:31-1011:42  StageTexture
-testdata/SampleMaterial.lc 1012:34-1012:38  Bool
-testdata/SampleMaterial.lc 1013:33-1013:41  DepthFunction
-testdata/SampleMaterial.lc 1014:33-1014:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1015:41-1015:46  Bool
-testdata/SampleMaterial.lc 1016:38-1016:54  String
-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
+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
+testdata/SampleMaterial.lc 1005:15-1014:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1015:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1017:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1006:29-1006:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1006:29-1006:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1006:34-1006:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1006:36-1006:46
+    Blending'
+testdata/SampleMaterial.lc 1006:49-1006:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1007:30-1007:50
+    RGBGen
+testdata/SampleMaterial.lc 1008:32-1008:42
+    AlphaGen
+testdata/SampleMaterial.lc 1009:29-1009:40
+    TCGen
+testdata/SampleMaterial.lc 1010:29-1010:31
+    forall a . List a
+testdata/SampleMaterial.lc 1011:31-1011:42
+    StageTexture
+testdata/SampleMaterial.lc 1012:34-1012:38
+    Bool
+testdata/SampleMaterial.lc 1013:33-1013:41
+    DepthFunction
+testdata/SampleMaterial.lc 1014:33-1014:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1015:41-1015:46
+    Bool
+testdata/SampleMaterial.lc 1016:38-1016:54
+    String
+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-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
-testdata/SampleMaterial.lc 1023:7-1031:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1023:7-1032:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1023:7-1033:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1023:7-1061:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1023:7-1063:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1024:24-1024:26  ()
-testdata/SampleMaterial.lc 1025:24-1025:26  ()
-testdata/SampleMaterial.lc 1026:22-1026:27  Bool
-testdata/SampleMaterial.lc 1027:20-1027:21  _b
-testdata/SampleMaterial.lc 1028:30-1028:35  Bool
-testdata/SampleMaterial.lc 1029:23-1029:28  Bool
-testdata/SampleMaterial.lc 1030:20-1030:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1023:7-1031:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1032:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1033:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1061:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1063:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1024:24-1024:26
+    ()
+testdata/SampleMaterial.lc 1025:24-1025:26
+    ()
+testdata/SampleMaterial.lc 1026:22-1026:27
+    Bool
+testdata/SampleMaterial.lc 1027:20-1027:21
+    _b
+testdata/SampleMaterial.lc 1028:30-1028:35
+    Bool
+testdata/SampleMaterial.lc 1029:23-1029:28
+    Bool
+testdata/SampleMaterial.lc 1030:20-1030:33
+    CullType
+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-1036:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1035:15-1038:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1035:15-1037:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1035:15-1039:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1035:15-1038:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1035:15-1040:31
+    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
-testdata/SampleMaterial.lc 1035:15-1044:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1035:15-1045:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1035:15-1047:18  StageAttrs
-testdata/SampleMaterial.lc 1036:29-1036:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1037:30-1037:50  RGBGen
-testdata/SampleMaterial.lc 1038:32-1038:42  AlphaGen
-testdata/SampleMaterial.lc 1039:29-1039:36  TCGen
-testdata/SampleMaterial.lc 1040:29-1040:31  forall a . List a
-testdata/SampleMaterial.lc 1041:31-1041:37  String -> StageTexture
-testdata/SampleMaterial.lc 1041:31-1041:75  StageTexture
-testdata/SampleMaterial.lc 1041:38-1041:75  String
-testdata/SampleMaterial.lc 1042:34-1042:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1035:15-1044:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1045:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1047:18
+    StageAttrs
+testdata/SampleMaterial.lc 1036:29-1036:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1037:30-1037:50
+    RGBGen
+testdata/SampleMaterial.lc 1038:32-1038:42
+    AlphaGen
+testdata/SampleMaterial.lc 1039:29-1039:36
+    TCGen
+testdata/SampleMaterial.lc 1040:29-1040:31
+    forall a . List a
+testdata/SampleMaterial.lc 1041:31-1041:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1041:31-1041:75
+    StageTexture
+testdata/SampleMaterial.lc 1041:38-1041:75
+    String
+testdata/SampleMaterial.lc 1042:34-1042:38
+    Bool
+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-1049:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1048:15-1051:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1048:15-1050:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1048:15-1052:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1048:15-1051:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1048:15-1053:31
+    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
-testdata/SampleMaterial.lc 1048:15-1057:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1048:15-1058:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1048:15-1060:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1049:29-1049:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1049:29-1049:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1049:34-1049:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1049:36-1049:46  Blending'
-testdata/SampleMaterial.lc 1049:49-1049:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1050:30-1050:50  RGBGen
-testdata/SampleMaterial.lc 1051:32-1051:42  AlphaGen
-testdata/SampleMaterial.lc 1052:29-1052:40  TCGen
-testdata/SampleMaterial.lc 1053:29-1053:31  forall a . List a
-testdata/SampleMaterial.lc 1054:31-1054:42  StageTexture
-testdata/SampleMaterial.lc 1055:34-1055:38  Bool
-testdata/SampleMaterial.lc 1056:33-1056:41  DepthFunction
-testdata/SampleMaterial.lc 1057:33-1057:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1058:41-1058:46  Bool
-testdata/SampleMaterial.lc 1059:38-1059:54  String
-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
+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
+testdata/SampleMaterial.lc 1048:15-1057:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1058:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1060:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1049:29-1049:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1049:29-1049:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1049:34-1049:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1049:36-1049:46
+    Blending'
+testdata/SampleMaterial.lc 1049:49-1049:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1050:30-1050:50
+    RGBGen
+testdata/SampleMaterial.lc 1051:32-1051:42
+    AlphaGen
+testdata/SampleMaterial.lc 1052:29-1052:40
+    TCGen
+testdata/SampleMaterial.lc 1053:29-1053:31
+    forall a . List a
+testdata/SampleMaterial.lc 1054:31-1054:42
+    StageTexture
+testdata/SampleMaterial.lc 1055:34-1055:38
+    Bool
+testdata/SampleMaterial.lc 1056:33-1056:41
+    DepthFunction
+testdata/SampleMaterial.lc 1057:33-1057:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1058:41-1058:46
+    Bool
+testdata/SampleMaterial.lc 1059:38-1059:54
+    String
+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-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
-testdata/SampleMaterial.lc 1066:7-1074:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1066:7-1075:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1066:7-1076:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1066:7-1104:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1066:7-1106:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1067:24-1067:26  ()
-testdata/SampleMaterial.lc 1068:24-1068:26  ()
-testdata/SampleMaterial.lc 1069:22-1069:27  Bool
-testdata/SampleMaterial.lc 1070:20-1070:21  _b
-testdata/SampleMaterial.lc 1071:30-1071:35  Bool
-testdata/SampleMaterial.lc 1072:23-1072:28  Bool
-testdata/SampleMaterial.lc 1073:20-1073:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1066:7-1074:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1075:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1076:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1104:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1106:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1067:24-1067:26
+    ()
+testdata/SampleMaterial.lc 1068:24-1068:26
+    ()
+testdata/SampleMaterial.lc 1069:22-1069:27
+    Bool
+testdata/SampleMaterial.lc 1070:20-1070:21
+    _b
+testdata/SampleMaterial.lc 1071:30-1071:35
+    Bool
+testdata/SampleMaterial.lc 1072:23-1072:28
+    Bool
+testdata/SampleMaterial.lc 1073:20-1073:33
+    CullType
+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-1079:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1078:15-1081:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1078:15-1080:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1078:15-1082:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1078:15-1081:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1078:15-1083:31
+    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
-testdata/SampleMaterial.lc 1078:15-1087:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1078:15-1088:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1078:15-1090:18  StageAttrs
-testdata/SampleMaterial.lc 1079:29-1079:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1080:30-1080:50  RGBGen
-testdata/SampleMaterial.lc 1081:32-1081:42  AlphaGen
-testdata/SampleMaterial.lc 1082:29-1082:36  TCGen
-testdata/SampleMaterial.lc 1083:29-1083:31  forall a . List a
-testdata/SampleMaterial.lc 1084:31-1084:37  String -> StageTexture
-testdata/SampleMaterial.lc 1084:31-1084:75  StageTexture
-testdata/SampleMaterial.lc 1084:38-1084:75  String
-testdata/SampleMaterial.lc 1085:34-1085:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1078:15-1087:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1088:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1090:18
+    StageAttrs
+testdata/SampleMaterial.lc 1079:29-1079:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1080:30-1080:50
+    RGBGen
+testdata/SampleMaterial.lc 1081:32-1081:42
+    AlphaGen
+testdata/SampleMaterial.lc 1082:29-1082:36
+    TCGen
+testdata/SampleMaterial.lc 1083:29-1083:31
+    forall a . List a
+testdata/SampleMaterial.lc 1084:31-1084:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1084:31-1084:75
+    StageTexture
+testdata/SampleMaterial.lc 1084:38-1084:75
+    String
+testdata/SampleMaterial.lc 1085:34-1085:38
+    Bool
+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-1092:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1091:15-1094:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1091:15-1093:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1091:15-1095:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1091:15-1094:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1091:15-1096:31
+    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
-testdata/SampleMaterial.lc 1091:15-1100:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1091:15-1101:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1091:15-1103:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1092:29-1092:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1092:29-1092:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1092:34-1092:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1092:36-1092:46  Blending'
-testdata/SampleMaterial.lc 1092:49-1092:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1093:30-1093:50  RGBGen
-testdata/SampleMaterial.lc 1094:32-1094:42  AlphaGen
-testdata/SampleMaterial.lc 1095:29-1095:40  TCGen
-testdata/SampleMaterial.lc 1096:29-1096:31  forall a . List a
-testdata/SampleMaterial.lc 1097:31-1097:42  StageTexture
-testdata/SampleMaterial.lc 1098:34-1098:38  Bool
-testdata/SampleMaterial.lc 1099:33-1099:41  DepthFunction
-testdata/SampleMaterial.lc 1100:33-1100:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1101:41-1101:46  Bool
-testdata/SampleMaterial.lc 1102:38-1102:54  String
-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
+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
+testdata/SampleMaterial.lc 1091:15-1100:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1101:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1103:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1092:29-1092:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1092:29-1092:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1092:34-1092:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1092:36-1092:46
+    Blending'
+testdata/SampleMaterial.lc 1092:49-1092:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1093:30-1093:50
+    RGBGen
+testdata/SampleMaterial.lc 1094:32-1094:42
+    AlphaGen
+testdata/SampleMaterial.lc 1095:29-1095:40
+    TCGen
+testdata/SampleMaterial.lc 1096:29-1096:31
+    forall a . List a
+testdata/SampleMaterial.lc 1097:31-1097:42
+    StageTexture
+testdata/SampleMaterial.lc 1098:34-1098:38
+    Bool
+testdata/SampleMaterial.lc 1099:33-1099:41
+    DepthFunction
+testdata/SampleMaterial.lc 1100:33-1100:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1101:41-1101:46
+    Bool
+testdata/SampleMaterial.lc 1102:38-1102:54
+    String
+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-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
-testdata/SampleMaterial.lc 1109:7-1117:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1109:7-1118:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1109:7-1119:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1109:7-1147:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1109:7-1149:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1110:24-1110:26  ()
-testdata/SampleMaterial.lc 1111:24-1111:26  ()
-testdata/SampleMaterial.lc 1112:22-1112:27  Bool
-testdata/SampleMaterial.lc 1113:20-1113:21  _b
-testdata/SampleMaterial.lc 1114:30-1114:35  Bool
-testdata/SampleMaterial.lc 1115:23-1115:28  Bool
-testdata/SampleMaterial.lc 1116:20-1116:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1109:7-1117:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1118:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1119:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1147:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1149:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1110:24-1110:26
+    ()
+testdata/SampleMaterial.lc 1111:24-1111:26
+    ()
+testdata/SampleMaterial.lc 1112:22-1112:27
+    Bool
+testdata/SampleMaterial.lc 1113:20-1113:21
+    _b
+testdata/SampleMaterial.lc 1114:30-1114:35
+    Bool
+testdata/SampleMaterial.lc 1115:23-1115:28
+    Bool
+testdata/SampleMaterial.lc 1116:20-1116:33
+    CullType
+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-1122:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1121:15-1124:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1121:15-1123:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1121:15-1125:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1121:15-1124:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1121:15-1126:31
+    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
-testdata/SampleMaterial.lc 1121:15-1130:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1121:15-1131:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1121:15-1133:18  StageAttrs
-testdata/SampleMaterial.lc 1122:29-1122:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1123:30-1123:50  RGBGen
-testdata/SampleMaterial.lc 1124:32-1124:42  AlphaGen
-testdata/SampleMaterial.lc 1125:29-1125:36  TCGen
-testdata/SampleMaterial.lc 1126:29-1126:31  forall a . List a
-testdata/SampleMaterial.lc 1127:31-1127:37  String -> StageTexture
-testdata/SampleMaterial.lc 1127:31-1127:80  StageTexture
-testdata/SampleMaterial.lc 1127:38-1127:80  String
-testdata/SampleMaterial.lc 1128:34-1128:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1121:15-1130:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1131:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1133:18
+    StageAttrs
+testdata/SampleMaterial.lc 1122:29-1122:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1123:30-1123:50
+    RGBGen
+testdata/SampleMaterial.lc 1124:32-1124:42
+    AlphaGen
+testdata/SampleMaterial.lc 1125:29-1125:36
+    TCGen
+testdata/SampleMaterial.lc 1126:29-1126:31
+    forall a . List a
+testdata/SampleMaterial.lc 1127:31-1127:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1127:31-1127:80
+    StageTexture
+testdata/SampleMaterial.lc 1127:38-1127:80
+    String
+testdata/SampleMaterial.lc 1128:34-1128:38
+    Bool
+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-1135:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1134:15-1137:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1134:15-1136:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1134:15-1138:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1134:15-1137:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1134:15-1139:31
+    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
-testdata/SampleMaterial.lc 1134:15-1143:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1134:15-1144:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1134:15-1146:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1135:29-1135:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1135:29-1135:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1135:34-1135:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1135:36-1135:46  Blending'
-testdata/SampleMaterial.lc 1135:49-1135:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1136:30-1136:50  RGBGen
-testdata/SampleMaterial.lc 1137:32-1137:42  AlphaGen
-testdata/SampleMaterial.lc 1138:29-1138:40  TCGen
-testdata/SampleMaterial.lc 1139:29-1139:31  forall a . List a
-testdata/SampleMaterial.lc 1140:31-1140:42  StageTexture
-testdata/SampleMaterial.lc 1141:34-1141:38  Bool
-testdata/SampleMaterial.lc 1142:33-1142:41  DepthFunction
-testdata/SampleMaterial.lc 1143:33-1143:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1144:41-1144:46  Bool
-testdata/SampleMaterial.lc 1145:38-1145:54  String
-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
+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
+testdata/SampleMaterial.lc 1134:15-1143:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1144:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1146:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1135:29-1135:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1135:29-1135:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1135:34-1135:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1135:36-1135:46
+    Blending'
+testdata/SampleMaterial.lc 1135:49-1135:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1136:30-1136:50
+    RGBGen
+testdata/SampleMaterial.lc 1137:32-1137:42
+    AlphaGen
+testdata/SampleMaterial.lc 1138:29-1138:40
+    TCGen
+testdata/SampleMaterial.lc 1139:29-1139:31
+    forall a . List a
+testdata/SampleMaterial.lc 1140:31-1140:42
+    StageTexture
+testdata/SampleMaterial.lc 1141:34-1141:38
+    Bool
+testdata/SampleMaterial.lc 1142:33-1142:41
+    DepthFunction
+testdata/SampleMaterial.lc 1143:33-1143:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1144:41-1144:46
+    Bool
+testdata/SampleMaterial.lc 1145:38-1145:54
+    String
+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-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
-testdata/SampleMaterial.lc 1152:7-1160:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1152:7-1161:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1152:7-1162:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1152:7-1190:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1152:7-1192:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1153:24-1153:26  ()
-testdata/SampleMaterial.lc 1154:24-1154:26  ()
-testdata/SampleMaterial.lc 1155:22-1155:27  Bool
-testdata/SampleMaterial.lc 1156:20-1156:21  _b
-testdata/SampleMaterial.lc 1157:30-1157:35  Bool
-testdata/SampleMaterial.lc 1158:23-1158:28  Bool
-testdata/SampleMaterial.lc 1159:20-1159:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1152:7-1160:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1161:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1162:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1190:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1192:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1153:24-1153:26
+    ()
+testdata/SampleMaterial.lc 1154:24-1154:26
+    ()
+testdata/SampleMaterial.lc 1155:22-1155:27
+    Bool
+testdata/SampleMaterial.lc 1156:20-1156:21
+    _b
+testdata/SampleMaterial.lc 1157:30-1157:35
+    Bool
+testdata/SampleMaterial.lc 1158:23-1158:28
+    Bool
+testdata/SampleMaterial.lc 1159:20-1159:33
+    CullType
+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-1165:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1164:15-1167:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1164:15-1166:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1164:15-1168:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1164:15-1167:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1164:15-1169:31
+    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
-testdata/SampleMaterial.lc 1164:15-1173:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1164:15-1174:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1164:15-1176:18  StageAttrs
-testdata/SampleMaterial.lc 1165:29-1165:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1166:30-1166:50  RGBGen
-testdata/SampleMaterial.lc 1167:32-1167:42  AlphaGen
-testdata/SampleMaterial.lc 1168:29-1168:36  TCGen
-testdata/SampleMaterial.lc 1169:29-1169:31  forall a . List a
-testdata/SampleMaterial.lc 1170:31-1170:37  String -> StageTexture
-testdata/SampleMaterial.lc 1170:31-1170:72  StageTexture
-testdata/SampleMaterial.lc 1170:38-1170:72  String
-testdata/SampleMaterial.lc 1171:34-1171:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1164:15-1173:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1174:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1176:18
+    StageAttrs
+testdata/SampleMaterial.lc 1165:29-1165:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1166:30-1166:50
+    RGBGen
+testdata/SampleMaterial.lc 1167:32-1167:42
+    AlphaGen
+testdata/SampleMaterial.lc 1168:29-1168:36
+    TCGen
+testdata/SampleMaterial.lc 1169:29-1169:31
+    forall a . List a
+testdata/SampleMaterial.lc 1170:31-1170:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1170:31-1170:72
+    StageTexture
+testdata/SampleMaterial.lc 1170:38-1170:72
+    String
+testdata/SampleMaterial.lc 1171:34-1171:38
+    Bool
+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-1178:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1177:15-1180:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1177:15-1179:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1177:15-1181:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1177:15-1180:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1177:15-1182:31
+    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
-testdata/SampleMaterial.lc 1177:15-1186:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1177:15-1187:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1177:15-1189:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1178:29-1178:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1178:29-1178:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1178:34-1178:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1178:36-1178:46  Blending'
-testdata/SampleMaterial.lc 1178:49-1178:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1179:30-1179:50  RGBGen
-testdata/SampleMaterial.lc 1180:32-1180:42  AlphaGen
-testdata/SampleMaterial.lc 1181:29-1181:40  TCGen
-testdata/SampleMaterial.lc 1182:29-1182:31  forall a . List a
-testdata/SampleMaterial.lc 1183:31-1183:42  StageTexture
-testdata/SampleMaterial.lc 1184:34-1184:38  Bool
-testdata/SampleMaterial.lc 1185:33-1185:41  DepthFunction
-testdata/SampleMaterial.lc 1186:33-1186:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1187:41-1187:46  Bool
-testdata/SampleMaterial.lc 1188:38-1188:54  String
-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
+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
+testdata/SampleMaterial.lc 1177:15-1186:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1187:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1189:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1178:29-1178:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1178:29-1178:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1178:34-1178:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1178:36-1178:46
+    Blending'
+testdata/SampleMaterial.lc 1178:49-1178:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1179:30-1179:50
+    RGBGen
+testdata/SampleMaterial.lc 1180:32-1180:42
+    AlphaGen
+testdata/SampleMaterial.lc 1181:29-1181:40
+    TCGen
+testdata/SampleMaterial.lc 1182:29-1182:31
+    forall a . List a
+testdata/SampleMaterial.lc 1183:31-1183:42
+    StageTexture
+testdata/SampleMaterial.lc 1184:34-1184:38
+    Bool
+testdata/SampleMaterial.lc 1185:33-1185:41
+    DepthFunction
+testdata/SampleMaterial.lc 1186:33-1186:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1187:41-1187:46
+    Bool
+testdata/SampleMaterial.lc 1188:38-1188:54
+    String
+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-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
-testdata/SampleMaterial.lc 1195:7-1203:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1195:7-1204:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1195:7-1205:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1195:7-1233:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1195:7-1235:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1196:24-1196:26  ()
-testdata/SampleMaterial.lc 1197:24-1197:26  ()
-testdata/SampleMaterial.lc 1198:22-1198:27  Bool
-testdata/SampleMaterial.lc 1199:20-1199:21  _b
-testdata/SampleMaterial.lc 1200:30-1200:35  Bool
-testdata/SampleMaterial.lc 1201:23-1201:28  Bool
-testdata/SampleMaterial.lc 1202:20-1202:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1195:7-1203:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1204:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1205:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1233:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1235:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1196:24-1196:26
+    ()
+testdata/SampleMaterial.lc 1197:24-1197:26
+    ()
+testdata/SampleMaterial.lc 1198:22-1198:27
+    Bool
+testdata/SampleMaterial.lc 1199:20-1199:21
+    _b
+testdata/SampleMaterial.lc 1200:30-1200:35
+    Bool
+testdata/SampleMaterial.lc 1201:23-1201:28
+    Bool
+testdata/SampleMaterial.lc 1202:20-1202:33
+    CullType
+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-1208:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1207:15-1210:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1207:15-1209:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1207:15-1211:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1207:15-1210:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1207:15-1212:31
+    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
-testdata/SampleMaterial.lc 1207:15-1216:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1207:15-1217:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1207:15-1219:18  StageAttrs
-testdata/SampleMaterial.lc 1208:29-1208:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1209:30-1209:50  RGBGen
-testdata/SampleMaterial.lc 1210:32-1210:42  AlphaGen
-testdata/SampleMaterial.lc 1211:29-1211:36  TCGen
-testdata/SampleMaterial.lc 1212:29-1212:31  forall a . List a
-testdata/SampleMaterial.lc 1213:31-1213:37  String -> StageTexture
-testdata/SampleMaterial.lc 1213:31-1213:74  StageTexture
-testdata/SampleMaterial.lc 1213:38-1213:74  String
-testdata/SampleMaterial.lc 1214:34-1214:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1207:15-1216:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1217:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1219:18
+    StageAttrs
+testdata/SampleMaterial.lc 1208:29-1208:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1209:30-1209:50
+    RGBGen
+testdata/SampleMaterial.lc 1210:32-1210:42
+    AlphaGen
+testdata/SampleMaterial.lc 1211:29-1211:36
+    TCGen
+testdata/SampleMaterial.lc 1212:29-1212:31
+    forall a . List a
+testdata/SampleMaterial.lc 1213:31-1213:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1213:31-1213:74
+    StageTexture
+testdata/SampleMaterial.lc 1213:38-1213:74
+    String
+testdata/SampleMaterial.lc 1214:34-1214:38
+    Bool
+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-1221:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1220:15-1223:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1220:15-1222:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1220:15-1224:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1220:15-1223:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1220:15-1225:31
+    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
-testdata/SampleMaterial.lc 1220:15-1229:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1220:15-1230:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1220:15-1232:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1221:29-1221:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1221:29-1221:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1221:34-1221:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1221:36-1221:46  Blending'
-testdata/SampleMaterial.lc 1221:49-1221:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1222:30-1222:50  RGBGen
-testdata/SampleMaterial.lc 1223:32-1223:42  AlphaGen
-testdata/SampleMaterial.lc 1224:29-1224:40  TCGen
-testdata/SampleMaterial.lc 1225:29-1225:31  forall a . List a
-testdata/SampleMaterial.lc 1226:31-1226:42  StageTexture
-testdata/SampleMaterial.lc 1227:34-1227:38  Bool
-testdata/SampleMaterial.lc 1228:33-1228:41  DepthFunction
-testdata/SampleMaterial.lc 1229:33-1229:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1230:41-1230:46  Bool
-testdata/SampleMaterial.lc 1231:38-1231:54  String
-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
+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
+testdata/SampleMaterial.lc 1220:15-1229:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1230:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1232:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1221:29-1221:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1221:29-1221:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1221:34-1221:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1221:36-1221:46
+    Blending'
+testdata/SampleMaterial.lc 1221:49-1221:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1222:30-1222:50
+    RGBGen
+testdata/SampleMaterial.lc 1223:32-1223:42
+    AlphaGen
+testdata/SampleMaterial.lc 1224:29-1224:40
+    TCGen
+testdata/SampleMaterial.lc 1225:29-1225:31
+    forall a . List a
+testdata/SampleMaterial.lc 1226:31-1226:42
+    StageTexture
+testdata/SampleMaterial.lc 1227:34-1227:38
+    Bool
+testdata/SampleMaterial.lc 1228:33-1228:41
+    DepthFunction
+testdata/SampleMaterial.lc 1229:33-1229:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1230:41-1230:46
+    Bool
+testdata/SampleMaterial.lc 1231:38-1231:54
+    String
+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-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
-testdata/SampleMaterial.lc 1238:7-1246:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1238:7-1247:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1238:7-1248:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1238:7-1276:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1238:7-1278:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1239:24-1239:26  ()
-testdata/SampleMaterial.lc 1240:24-1240:26  ()
-testdata/SampleMaterial.lc 1241:22-1241:27  Bool
-testdata/SampleMaterial.lc 1242:20-1242:21  _b
-testdata/SampleMaterial.lc 1243:30-1243:35  Bool
-testdata/SampleMaterial.lc 1244:23-1244:28  Bool
-testdata/SampleMaterial.lc 1245:20-1245:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1238:7-1246:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1247:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1248:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1276:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1278:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1239:24-1239:26
+    ()
+testdata/SampleMaterial.lc 1240:24-1240:26
+    ()
+testdata/SampleMaterial.lc 1241:22-1241:27
+    Bool
+testdata/SampleMaterial.lc 1242:20-1242:21
+    _b
+testdata/SampleMaterial.lc 1243:30-1243:35
+    Bool
+testdata/SampleMaterial.lc 1244:23-1244:28
+    Bool
+testdata/SampleMaterial.lc 1245:20-1245:33
+    CullType
+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-1251:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1250:15-1253:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1250:15-1252:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1250:15-1254:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1250:15-1253:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1250:15-1255:31
+    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
-testdata/SampleMaterial.lc 1250:15-1259:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1250:15-1260:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1250:15-1262:18  StageAttrs
-testdata/SampleMaterial.lc 1251:29-1251:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1252:30-1252:50  RGBGen
-testdata/SampleMaterial.lc 1253:32-1253:42  AlphaGen
-testdata/SampleMaterial.lc 1254:29-1254:36  TCGen
-testdata/SampleMaterial.lc 1255:29-1255:31  forall a . List a
-testdata/SampleMaterial.lc 1256:31-1256:37  String -> StageTexture
-testdata/SampleMaterial.lc 1256:31-1256:72  StageTexture
-testdata/SampleMaterial.lc 1256:38-1256:72  String
-testdata/SampleMaterial.lc 1257:34-1257:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1250:15-1259:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1260:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1262:18
+    StageAttrs
+testdata/SampleMaterial.lc 1251:29-1251:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1252:30-1252:50
+    RGBGen
+testdata/SampleMaterial.lc 1253:32-1253:42
+    AlphaGen
+testdata/SampleMaterial.lc 1254:29-1254:36
+    TCGen
+testdata/SampleMaterial.lc 1255:29-1255:31
+    forall a . List a
+testdata/SampleMaterial.lc 1256:31-1256:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1256:31-1256:72
+    StageTexture
+testdata/SampleMaterial.lc 1256:38-1256:72
+    String
+testdata/SampleMaterial.lc 1257:34-1257:38
+    Bool
+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-1264:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1263:15-1266:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1263:15-1265:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1263:15-1267:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1263:15-1266:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1263:15-1268:31
+    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
-testdata/SampleMaterial.lc 1263:15-1272:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1263:15-1273:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1263:15-1275:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1264:29-1264:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1264:29-1264:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1264:34-1264:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1264:36-1264:46  Blending'
-testdata/SampleMaterial.lc 1264:49-1264:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1265:30-1265:50  RGBGen
-testdata/SampleMaterial.lc 1266:32-1266:42  AlphaGen
-testdata/SampleMaterial.lc 1267:29-1267:40  TCGen
-testdata/SampleMaterial.lc 1268:29-1268:31  forall a . List a
-testdata/SampleMaterial.lc 1269:31-1269:42  StageTexture
-testdata/SampleMaterial.lc 1270:34-1270:38  Bool
-testdata/SampleMaterial.lc 1271:33-1271:41  DepthFunction
-testdata/SampleMaterial.lc 1272:33-1272:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1273:41-1273:46  Bool
-testdata/SampleMaterial.lc 1274:38-1274:54  String
-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
+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
+testdata/SampleMaterial.lc 1263:15-1272:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1273:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1275:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1264:29-1264:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1264:29-1264:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1264:34-1264:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1264:36-1264:46
+    Blending'
+testdata/SampleMaterial.lc 1264:49-1264:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1265:30-1265:50
+    RGBGen
+testdata/SampleMaterial.lc 1266:32-1266:42
+    AlphaGen
+testdata/SampleMaterial.lc 1267:29-1267:40
+    TCGen
+testdata/SampleMaterial.lc 1268:29-1268:31
+    forall a . List a
+testdata/SampleMaterial.lc 1269:31-1269:42
+    StageTexture
+testdata/SampleMaterial.lc 1270:34-1270:38
+    Bool
+testdata/SampleMaterial.lc 1271:33-1271:41
+    DepthFunction
+testdata/SampleMaterial.lc 1272:33-1272:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1273:41-1273:46
+    Bool
+testdata/SampleMaterial.lc 1274:38-1274:54
+    String
+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-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
-testdata/SampleMaterial.lc 1281:7-1289:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1281:7-1290:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1281:7-1291:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1281:7-1319:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1281:7-1321:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1282:24-1282:26  ()
-testdata/SampleMaterial.lc 1283:24-1283:26  ()
-testdata/SampleMaterial.lc 1284:22-1284:27  Bool
-testdata/SampleMaterial.lc 1285:20-1285:21  _b
-testdata/SampleMaterial.lc 1286:30-1286:35  Bool
-testdata/SampleMaterial.lc 1287:23-1287:28  Bool
-testdata/SampleMaterial.lc 1288:20-1288:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1281:7-1289:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1290:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1291:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1319:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1321:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1282:24-1282:26
+    ()
+testdata/SampleMaterial.lc 1283:24-1283:26
+    ()
+testdata/SampleMaterial.lc 1284:22-1284:27
+    Bool
+testdata/SampleMaterial.lc 1285:20-1285:21
+    _b
+testdata/SampleMaterial.lc 1286:30-1286:35
+    Bool
+testdata/SampleMaterial.lc 1287:23-1287:28
+    Bool
+testdata/SampleMaterial.lc 1288:20-1288:33
+    CullType
+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-1294:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1293:15-1296:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1293:15-1295:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1293:15-1297:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1293:15-1296:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1293:15-1298:31
+    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
-testdata/SampleMaterial.lc 1293:15-1302:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1293:15-1303:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1293:15-1305:18  StageAttrs
-testdata/SampleMaterial.lc 1294:29-1294:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1295:30-1295:50  RGBGen
-testdata/SampleMaterial.lc 1296:32-1296:42  AlphaGen
-testdata/SampleMaterial.lc 1297:29-1297:36  TCGen
-testdata/SampleMaterial.lc 1298:29-1298:31  forall a . List a
-testdata/SampleMaterial.lc 1299:31-1299:37  String -> StageTexture
-testdata/SampleMaterial.lc 1299:31-1299:75  StageTexture
-testdata/SampleMaterial.lc 1299:38-1299:75  String
-testdata/SampleMaterial.lc 1300:34-1300:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1293:15-1302:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1303:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1305:18
+    StageAttrs
+testdata/SampleMaterial.lc 1294:29-1294:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1295:30-1295:50
+    RGBGen
+testdata/SampleMaterial.lc 1296:32-1296:42
+    AlphaGen
+testdata/SampleMaterial.lc 1297:29-1297:36
+    TCGen
+testdata/SampleMaterial.lc 1298:29-1298:31
+    forall a . List a
+testdata/SampleMaterial.lc 1299:31-1299:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1299:31-1299:75
+    StageTexture
+testdata/SampleMaterial.lc 1299:38-1299:75
+    String
+testdata/SampleMaterial.lc 1300:34-1300:38
+    Bool
+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-1307:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1306:15-1309:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1306:15-1308:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1306:15-1310:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1306:15-1309:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1306:15-1311:31
+    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
-testdata/SampleMaterial.lc 1306:15-1315:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1306:15-1316:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1306:15-1318:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1307:29-1307:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1307:29-1307:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1307:34-1307:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1307:36-1307:46  Blending'
-testdata/SampleMaterial.lc 1307:49-1307:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1308:30-1308:50  RGBGen
-testdata/SampleMaterial.lc 1309:32-1309:42  AlphaGen
-testdata/SampleMaterial.lc 1310:29-1310:40  TCGen
-testdata/SampleMaterial.lc 1311:29-1311:31  forall a . List a
-testdata/SampleMaterial.lc 1312:31-1312:42  StageTexture
-testdata/SampleMaterial.lc 1313:34-1313:38  Bool
-testdata/SampleMaterial.lc 1314:33-1314:41  DepthFunction
-testdata/SampleMaterial.lc 1315:33-1315:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1316:41-1316:46  Bool
-testdata/SampleMaterial.lc 1317:38-1317:54  String
-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
+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
+testdata/SampleMaterial.lc 1306:15-1315:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1316:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1318:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1307:29-1307:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1307:29-1307:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1307:34-1307:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1307:36-1307:46
+    Blending'
+testdata/SampleMaterial.lc 1307:49-1307:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1308:30-1308:50
+    RGBGen
+testdata/SampleMaterial.lc 1309:32-1309:42
+    AlphaGen
+testdata/SampleMaterial.lc 1310:29-1310:40
+    TCGen
+testdata/SampleMaterial.lc 1311:29-1311:31
+    forall a . List a
+testdata/SampleMaterial.lc 1312:31-1312:42
+    StageTexture
+testdata/SampleMaterial.lc 1313:34-1313:38
+    Bool
+testdata/SampleMaterial.lc 1314:33-1314:41
+    DepthFunction
+testdata/SampleMaterial.lc 1315:33-1315:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1316:41-1316:46
+    Bool
+testdata/SampleMaterial.lc 1317:38-1317:54
+    String
+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-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
-testdata/SampleMaterial.lc 1324:7-1332:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1324:7-1333:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1324:7-1334:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1324:7-1362:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1324:7-1364:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1325:24-1325:26  ()
-testdata/SampleMaterial.lc 1326:24-1326:26  ()
-testdata/SampleMaterial.lc 1327:22-1327:27  Bool
-testdata/SampleMaterial.lc 1328:20-1328:21  _b
-testdata/SampleMaterial.lc 1329:30-1329:35  Bool
-testdata/SampleMaterial.lc 1330:23-1330:28  Bool
-testdata/SampleMaterial.lc 1331:20-1331:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1324:7-1332:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1333:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1334:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1362:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1364:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1325:24-1325:26
+    ()
+testdata/SampleMaterial.lc 1326:24-1326:26
+    ()
+testdata/SampleMaterial.lc 1327:22-1327:27
+    Bool
+testdata/SampleMaterial.lc 1328:20-1328:21
+    _b
+testdata/SampleMaterial.lc 1329:30-1329:35
+    Bool
+testdata/SampleMaterial.lc 1330:23-1330:28
+    Bool
+testdata/SampleMaterial.lc 1331:20-1331:33
+    CullType
+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-1337:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1336:15-1339:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1336:15-1338:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1336:15-1340:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1336:15-1339:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1336:15-1341:31
+    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
-testdata/SampleMaterial.lc 1336:15-1345:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1336:15-1346:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1336:15-1348:18  StageAttrs
-testdata/SampleMaterial.lc 1337:29-1337:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1338:30-1338:50  RGBGen
-testdata/SampleMaterial.lc 1339:32-1339:42  AlphaGen
-testdata/SampleMaterial.lc 1340:29-1340:36  TCGen
-testdata/SampleMaterial.lc 1341:29-1341:31  forall a . List a
-testdata/SampleMaterial.lc 1342:31-1342:37  String -> StageTexture
-testdata/SampleMaterial.lc 1342:31-1342:74  StageTexture
-testdata/SampleMaterial.lc 1342:38-1342:74  String
-testdata/SampleMaterial.lc 1343:34-1343:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1336:15-1345:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1346:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1348:18
+    StageAttrs
+testdata/SampleMaterial.lc 1337:29-1337:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1338:30-1338:50
+    RGBGen
+testdata/SampleMaterial.lc 1339:32-1339:42
+    AlphaGen
+testdata/SampleMaterial.lc 1340:29-1340:36
+    TCGen
+testdata/SampleMaterial.lc 1341:29-1341:31
+    forall a . List a
+testdata/SampleMaterial.lc 1342:31-1342:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1342:31-1342:74
+    StageTexture
+testdata/SampleMaterial.lc 1342:38-1342:74
+    String
+testdata/SampleMaterial.lc 1343:34-1343:38
+    Bool
+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-1350:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1349:15-1352:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1349:15-1351:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1349:15-1353:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1349:15-1352:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1349:15-1354:31
+    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
-testdata/SampleMaterial.lc 1349:15-1358:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1349:15-1359:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1349:15-1361:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1350:29-1350:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1350:29-1350:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1350:34-1350:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1350:36-1350:46  Blending'
-testdata/SampleMaterial.lc 1350:49-1350:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1351:30-1351:50  RGBGen
-testdata/SampleMaterial.lc 1352:32-1352:42  AlphaGen
-testdata/SampleMaterial.lc 1353:29-1353:40  TCGen
-testdata/SampleMaterial.lc 1354:29-1354:31  forall a . List a
-testdata/SampleMaterial.lc 1355:31-1355:42  StageTexture
-testdata/SampleMaterial.lc 1356:34-1356:38  Bool
-testdata/SampleMaterial.lc 1357:33-1357:41  DepthFunction
-testdata/SampleMaterial.lc 1358:33-1358:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1359:41-1359:46  Bool
-testdata/SampleMaterial.lc 1360:38-1360:54  String
-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
+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
+testdata/SampleMaterial.lc 1349:15-1358:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1359:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1361:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1350:29-1350:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1350:29-1350:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1350:34-1350:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1350:36-1350:46
+    Blending'
+testdata/SampleMaterial.lc 1350:49-1350:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1351:30-1351:50
+    RGBGen
+testdata/SampleMaterial.lc 1352:32-1352:42
+    AlphaGen
+testdata/SampleMaterial.lc 1353:29-1353:40
+    TCGen
+testdata/SampleMaterial.lc 1354:29-1354:31
+    forall a . List a
+testdata/SampleMaterial.lc 1355:31-1355:42
+    StageTexture
+testdata/SampleMaterial.lc 1356:34-1356:38
+    Bool
+testdata/SampleMaterial.lc 1357:33-1357:41
+    DepthFunction
+testdata/SampleMaterial.lc 1358:33-1358:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1359:41-1359:46
+    Bool
+testdata/SampleMaterial.lc 1360:38-1360:54
+    String
+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-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
-testdata/SampleMaterial.lc 1367:7-1375:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1367:7-1376:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1367:7-1377:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1367:7-1405:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1367:7-1407:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1368:24-1368:26  ()
-testdata/SampleMaterial.lc 1369:24-1369:26  ()
-testdata/SampleMaterial.lc 1370:22-1370:27  Bool
-testdata/SampleMaterial.lc 1371:20-1371:21  _b
-testdata/SampleMaterial.lc 1372:30-1372:35  Bool
-testdata/SampleMaterial.lc 1373:23-1373:28  Bool
-testdata/SampleMaterial.lc 1374:20-1374:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1367:7-1375:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1376:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1377:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1405:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1407:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1368:24-1368:26
+    ()
+testdata/SampleMaterial.lc 1369:24-1369:26
+    ()
+testdata/SampleMaterial.lc 1370:22-1370:27
+    Bool
+testdata/SampleMaterial.lc 1371:20-1371:21
+    _b
+testdata/SampleMaterial.lc 1372:30-1372:35
+    Bool
+testdata/SampleMaterial.lc 1373:23-1373:28
+    Bool
+testdata/SampleMaterial.lc 1374:20-1374:33
+    CullType
+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-1380:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1379:15-1382:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1379:15-1381:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1379:15-1383:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1379:15-1382:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1379:15-1384:31
+    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
-testdata/SampleMaterial.lc 1379:15-1388:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1379:15-1389:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1379:15-1391:18  StageAttrs
-testdata/SampleMaterial.lc 1380:29-1380:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1381:30-1381:50  RGBGen
-testdata/SampleMaterial.lc 1382:32-1382:42  AlphaGen
-testdata/SampleMaterial.lc 1383:29-1383:36  TCGen
-testdata/SampleMaterial.lc 1384:29-1384:31  forall a . List a
-testdata/SampleMaterial.lc 1385:31-1385:37  String -> StageTexture
-testdata/SampleMaterial.lc 1385:31-1385:75  StageTexture
-testdata/SampleMaterial.lc 1385:38-1385:75  String
-testdata/SampleMaterial.lc 1386:34-1386:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1379:15-1388:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1389:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1391:18
+    StageAttrs
+testdata/SampleMaterial.lc 1380:29-1380:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1381:30-1381:50
+    RGBGen
+testdata/SampleMaterial.lc 1382:32-1382:42
+    AlphaGen
+testdata/SampleMaterial.lc 1383:29-1383:36
+    TCGen
+testdata/SampleMaterial.lc 1384:29-1384:31
+    forall a . List a
+testdata/SampleMaterial.lc 1385:31-1385:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1385:31-1385:75
+    StageTexture
+testdata/SampleMaterial.lc 1385:38-1385:75
+    String
+testdata/SampleMaterial.lc 1386:34-1386:38
+    Bool
+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-1393:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1392:15-1395:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1392:15-1394:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1392:15-1396:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1392:15-1395:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1392:15-1397:31
+    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
-testdata/SampleMaterial.lc 1392:15-1401:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1392:15-1402:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1392:15-1404:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1393:29-1393:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1393:29-1393:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1393:34-1393:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1393:36-1393:46  Blending'
-testdata/SampleMaterial.lc 1393:49-1393:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1394:30-1394:50  RGBGen
-testdata/SampleMaterial.lc 1395:32-1395:42  AlphaGen
-testdata/SampleMaterial.lc 1396:29-1396:40  TCGen
-testdata/SampleMaterial.lc 1397:29-1397:31  forall a . List a
-testdata/SampleMaterial.lc 1398:31-1398:42  StageTexture
-testdata/SampleMaterial.lc 1399:34-1399:38  Bool
-testdata/SampleMaterial.lc 1400:33-1400:41  DepthFunction
-testdata/SampleMaterial.lc 1401:33-1401:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1402:41-1402:46  Bool
-testdata/SampleMaterial.lc 1403:38-1403:54  String
-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
+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
+testdata/SampleMaterial.lc 1392:15-1401:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1402:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1404:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1393:29-1393:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1393:29-1393:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1393:34-1393:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1393:36-1393:46
+    Blending'
+testdata/SampleMaterial.lc 1393:49-1393:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1394:30-1394:50
+    RGBGen
+testdata/SampleMaterial.lc 1395:32-1395:42
+    AlphaGen
+testdata/SampleMaterial.lc 1396:29-1396:40
+    TCGen
+testdata/SampleMaterial.lc 1397:29-1397:31
+    forall a . List a
+testdata/SampleMaterial.lc 1398:31-1398:42
+    StageTexture
+testdata/SampleMaterial.lc 1399:34-1399:38
+    Bool
+testdata/SampleMaterial.lc 1400:33-1400:41
+    DepthFunction
+testdata/SampleMaterial.lc 1401:33-1401:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1402:41-1402:46
+    Bool
+testdata/SampleMaterial.lc 1403:38-1403:54
+    String
+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-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
-testdata/SampleMaterial.lc 1410:7-1418:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1410:7-1419:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1410:7-1420:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1410:7-1448:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1410:7-1450:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1411:24-1411:26  ()
-testdata/SampleMaterial.lc 1412:24-1412:26  ()
-testdata/SampleMaterial.lc 1413:22-1413:27  Bool
-testdata/SampleMaterial.lc 1414:20-1414:21  _b
-testdata/SampleMaterial.lc 1415:30-1415:35  Bool
-testdata/SampleMaterial.lc 1416:23-1416:28  Bool
-testdata/SampleMaterial.lc 1417:20-1417:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1410:7-1418:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1419:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1420:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1448:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1450:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1411:24-1411:26
+    ()
+testdata/SampleMaterial.lc 1412:24-1412:26
+    ()
+testdata/SampleMaterial.lc 1413:22-1413:27
+    Bool
+testdata/SampleMaterial.lc 1414:20-1414:21
+    _b
+testdata/SampleMaterial.lc 1415:30-1415:35
+    Bool
+testdata/SampleMaterial.lc 1416:23-1416:28
+    Bool
+testdata/SampleMaterial.lc 1417:20-1417:33
+    CullType
+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-1423:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1422:15-1425:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1422:15-1424:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1422:15-1426:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1422:15-1425:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1422:15-1427:31
+    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
-testdata/SampleMaterial.lc 1422:15-1431:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1422:15-1432:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1422:15-1434:18  StageAttrs
-testdata/SampleMaterial.lc 1423:29-1423:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1424:30-1424:50  RGBGen
-testdata/SampleMaterial.lc 1425:32-1425:42  AlphaGen
-testdata/SampleMaterial.lc 1426:29-1426:36  TCGen
-testdata/SampleMaterial.lc 1427:29-1427:31  forall a . List a
-testdata/SampleMaterial.lc 1428:31-1428:37  String -> StageTexture
-testdata/SampleMaterial.lc 1428:31-1428:75  StageTexture
-testdata/SampleMaterial.lc 1428:38-1428:75  String
-testdata/SampleMaterial.lc 1429:34-1429:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1422:15-1431:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1432:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1434:18
+    StageAttrs
+testdata/SampleMaterial.lc 1423:29-1423:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1424:30-1424:50
+    RGBGen
+testdata/SampleMaterial.lc 1425:32-1425:42
+    AlphaGen
+testdata/SampleMaterial.lc 1426:29-1426:36
+    TCGen
+testdata/SampleMaterial.lc 1427:29-1427:31
+    forall a . List a
+testdata/SampleMaterial.lc 1428:31-1428:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1428:31-1428:75
+    StageTexture
+testdata/SampleMaterial.lc 1428:38-1428:75
+    String
+testdata/SampleMaterial.lc 1429:34-1429:38
+    Bool
+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-1436:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1435:15-1438:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1435:15-1437:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1435:15-1439:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1435:15-1438:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1435:15-1440:31
+    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
-testdata/SampleMaterial.lc 1435:15-1444:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1435:15-1445:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1435:15-1447:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1436:29-1436:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1436:29-1436:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1436:34-1436:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1436:36-1436:46  Blending'
-testdata/SampleMaterial.lc 1436:49-1436:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1437:30-1437:50  RGBGen
-testdata/SampleMaterial.lc 1438:32-1438:42  AlphaGen
-testdata/SampleMaterial.lc 1439:29-1439:40  TCGen
-testdata/SampleMaterial.lc 1440:29-1440:31  forall a . List a
-testdata/SampleMaterial.lc 1441:31-1441:42  StageTexture
-testdata/SampleMaterial.lc 1442:34-1442:38  Bool
-testdata/SampleMaterial.lc 1443:33-1443:41  DepthFunction
-testdata/SampleMaterial.lc 1444:33-1444:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1445:41-1445:46  Bool
-testdata/SampleMaterial.lc 1446:38-1446:54  String
-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
+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
+testdata/SampleMaterial.lc 1435:15-1444:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1445:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1447:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1436:29-1436:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1436:29-1436:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1436:34-1436:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1436:36-1436:46
+    Blending'
+testdata/SampleMaterial.lc 1436:49-1436:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1437:30-1437:50
+    RGBGen
+testdata/SampleMaterial.lc 1438:32-1438:42
+    AlphaGen
+testdata/SampleMaterial.lc 1439:29-1439:40
+    TCGen
+testdata/SampleMaterial.lc 1440:29-1440:31
+    forall a . List a
+testdata/SampleMaterial.lc 1441:31-1441:42
+    StageTexture
+testdata/SampleMaterial.lc 1442:34-1442:38
+    Bool
+testdata/SampleMaterial.lc 1443:33-1443:41
+    DepthFunction
+testdata/SampleMaterial.lc 1444:33-1444:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1445:41-1445:46
+    Bool
+testdata/SampleMaterial.lc 1446:38-1446:54
+    String
+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-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
-testdata/SampleMaterial.lc 1453:7-1461:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1453:7-1462:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1453:7-1463:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1453:7-1491:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1453:7-1493:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1454:24-1454:26  ()
-testdata/SampleMaterial.lc 1455:24-1455:26  ()
-testdata/SampleMaterial.lc 1456:22-1456:27  Bool
-testdata/SampleMaterial.lc 1457:20-1457:21  _b
-testdata/SampleMaterial.lc 1458:30-1458:35  Bool
-testdata/SampleMaterial.lc 1459:23-1459:28  Bool
-testdata/SampleMaterial.lc 1460:20-1460:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1453:7-1461:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1462:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1463:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1491:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1493:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1454:24-1454:26
+    ()
+testdata/SampleMaterial.lc 1455:24-1455:26
+    ()
+testdata/SampleMaterial.lc 1456:22-1456:27
+    Bool
+testdata/SampleMaterial.lc 1457:20-1457:21
+    _b
+testdata/SampleMaterial.lc 1458:30-1458:35
+    Bool
+testdata/SampleMaterial.lc 1459:23-1459:28
+    Bool
+testdata/SampleMaterial.lc 1460:20-1460:33
+    CullType
+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-1466:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1465:15-1468:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1465:15-1467:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1465:15-1469:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1465:15-1468:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1465:15-1470:31
+    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
-testdata/SampleMaterial.lc 1465:15-1474:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1465:15-1475:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1465:15-1477:18  StageAttrs
-testdata/SampleMaterial.lc 1466:29-1466:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1467:30-1467:50  RGBGen
-testdata/SampleMaterial.lc 1468:32-1468:42  AlphaGen
-testdata/SampleMaterial.lc 1469:29-1469:36  TCGen
-testdata/SampleMaterial.lc 1470:29-1470:31  forall a . List a
-testdata/SampleMaterial.lc 1471:31-1471:37  String -> StageTexture
-testdata/SampleMaterial.lc 1471:31-1471:75  StageTexture
-testdata/SampleMaterial.lc 1471:38-1471:75  String
-testdata/SampleMaterial.lc 1472:34-1472:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1465:15-1474:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1475:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1477:18
+    StageAttrs
+testdata/SampleMaterial.lc 1466:29-1466:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1467:30-1467:50
+    RGBGen
+testdata/SampleMaterial.lc 1468:32-1468:42
+    AlphaGen
+testdata/SampleMaterial.lc 1469:29-1469:36
+    TCGen
+testdata/SampleMaterial.lc 1470:29-1470:31
+    forall a . List a
+testdata/SampleMaterial.lc 1471:31-1471:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1471:31-1471:75
+    StageTexture
+testdata/SampleMaterial.lc 1471:38-1471:75
+    String
+testdata/SampleMaterial.lc 1472:34-1472:38
+    Bool
+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-1479:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1478:15-1481:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1478:15-1480:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1478:15-1482:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1478:15-1481:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1478:15-1483:31
+    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
-testdata/SampleMaterial.lc 1478:15-1487:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1478:15-1488:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1478:15-1490:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1479:29-1479:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1479:29-1479:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1479:34-1479:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1479:36-1479:46  Blending'
-testdata/SampleMaterial.lc 1479:49-1479:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1480:30-1480:50  RGBGen
-testdata/SampleMaterial.lc 1481:32-1481:42  AlphaGen
-testdata/SampleMaterial.lc 1482:29-1482:40  TCGen
-testdata/SampleMaterial.lc 1483:29-1483:31  forall a . List a
-testdata/SampleMaterial.lc 1484:31-1484:42  StageTexture
-testdata/SampleMaterial.lc 1485:34-1485:38  Bool
-testdata/SampleMaterial.lc 1486:33-1486:41  DepthFunction
-testdata/SampleMaterial.lc 1487:33-1487:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1488:41-1488:46  Bool
-testdata/SampleMaterial.lc 1489:38-1489:54  String
-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
+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
+testdata/SampleMaterial.lc 1478:15-1487:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1488:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1490:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1479:29-1479:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1479:29-1479:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1479:34-1479:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1479:36-1479:46
+    Blending'
+testdata/SampleMaterial.lc 1479:49-1479:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1480:30-1480:50
+    RGBGen
+testdata/SampleMaterial.lc 1481:32-1481:42
+    AlphaGen
+testdata/SampleMaterial.lc 1482:29-1482:40
+    TCGen
+testdata/SampleMaterial.lc 1483:29-1483:31
+    forall a . List a
+testdata/SampleMaterial.lc 1484:31-1484:42
+    StageTexture
+testdata/SampleMaterial.lc 1485:34-1485:38
+    Bool
+testdata/SampleMaterial.lc 1486:33-1486:41
+    DepthFunction
+testdata/SampleMaterial.lc 1487:33-1487:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1488:41-1488:46
+    Bool
+testdata/SampleMaterial.lc 1489:38-1489:54
+    String
+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-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
-testdata/SampleMaterial.lc 1496:7-1504:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1496:7-1505:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1496:7-1506:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1496:7-1534:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1496:7-1536:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1497:24-1497:26  ()
-testdata/SampleMaterial.lc 1498:24-1498:26  ()
-testdata/SampleMaterial.lc 1499:22-1499:27  Bool
-testdata/SampleMaterial.lc 1500:20-1500:21  _b
-testdata/SampleMaterial.lc 1501:30-1501:35  Bool
-testdata/SampleMaterial.lc 1502:23-1502:28  Bool
-testdata/SampleMaterial.lc 1503:20-1503:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1496:7-1504:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1505:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1506:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1534:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1536:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1497:24-1497:26
+    ()
+testdata/SampleMaterial.lc 1498:24-1498:26
+    ()
+testdata/SampleMaterial.lc 1499:22-1499:27
+    Bool
+testdata/SampleMaterial.lc 1500:20-1500:21
+    _b
+testdata/SampleMaterial.lc 1501:30-1501:35
+    Bool
+testdata/SampleMaterial.lc 1502:23-1502:28
+    Bool
+testdata/SampleMaterial.lc 1503:20-1503:33
+    CullType
+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-1509:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1508:15-1511:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1508:15-1510:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1508:15-1512:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1508:15-1511:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1508:15-1513:31
+    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
-testdata/SampleMaterial.lc 1508:15-1517:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1508:15-1518:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1508:15-1520:18  StageAttrs
-testdata/SampleMaterial.lc 1509:29-1509:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1510:30-1510:50  RGBGen
-testdata/SampleMaterial.lc 1511:32-1511:42  AlphaGen
-testdata/SampleMaterial.lc 1512:29-1512:36  TCGen
-testdata/SampleMaterial.lc 1513:29-1513:31  forall a . List a
-testdata/SampleMaterial.lc 1514:31-1514:37  String -> StageTexture
-testdata/SampleMaterial.lc 1514:31-1514:76  StageTexture
-testdata/SampleMaterial.lc 1514:38-1514:76  String
-testdata/SampleMaterial.lc 1515:34-1515:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1508:15-1517:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1518:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1520:18
+    StageAttrs
+testdata/SampleMaterial.lc 1509:29-1509:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1510:30-1510:50
+    RGBGen
+testdata/SampleMaterial.lc 1511:32-1511:42
+    AlphaGen
+testdata/SampleMaterial.lc 1512:29-1512:36
+    TCGen
+testdata/SampleMaterial.lc 1513:29-1513:31
+    forall a . List a
+testdata/SampleMaterial.lc 1514:31-1514:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1514:31-1514:76
+    StageTexture
+testdata/SampleMaterial.lc 1514:38-1514:76
+    String
+testdata/SampleMaterial.lc 1515:34-1515:38
+    Bool
+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-1522:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1521:15-1524:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1521:15-1523:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1521:15-1525:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1521:15-1524:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1521:15-1526:31
+    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
-testdata/SampleMaterial.lc 1521:15-1530:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1521:15-1531:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1521:15-1533:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1522:29-1522:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1522:29-1522:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1522:34-1522:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1522:36-1522:46  Blending'
-testdata/SampleMaterial.lc 1522:49-1522:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1523:30-1523:50  RGBGen
-testdata/SampleMaterial.lc 1524:32-1524:42  AlphaGen
-testdata/SampleMaterial.lc 1525:29-1525:40  TCGen
-testdata/SampleMaterial.lc 1526:29-1526:31  forall a . List a
-testdata/SampleMaterial.lc 1527:31-1527:42  StageTexture
-testdata/SampleMaterial.lc 1528:34-1528:38  Bool
-testdata/SampleMaterial.lc 1529:33-1529:41  DepthFunction
-testdata/SampleMaterial.lc 1530:33-1530:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1531:41-1531:46  Bool
-testdata/SampleMaterial.lc 1532:38-1532:54  String
-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
+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
+testdata/SampleMaterial.lc 1521:15-1530:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1531:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1533:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1522:29-1522:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1522:29-1522:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1522:34-1522:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1522:36-1522:46
+    Blending'
+testdata/SampleMaterial.lc 1522:49-1522:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1523:30-1523:50
+    RGBGen
+testdata/SampleMaterial.lc 1524:32-1524:42
+    AlphaGen
+testdata/SampleMaterial.lc 1525:29-1525:40
+    TCGen
+testdata/SampleMaterial.lc 1526:29-1526:31
+    forall a . List a
+testdata/SampleMaterial.lc 1527:31-1527:42
+    StageTexture
+testdata/SampleMaterial.lc 1528:34-1528:38
+    Bool
+testdata/SampleMaterial.lc 1529:33-1529:41
+    DepthFunction
+testdata/SampleMaterial.lc 1530:33-1530:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1531:41-1531:46
+    Bool
+testdata/SampleMaterial.lc 1532:38-1532:54
+    String
+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-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
-testdata/SampleMaterial.lc 1539:7-1547:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1539:7-1548:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1539:7-1549:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1539:7-1577:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1539:7-1579:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1540:24-1540:26  ()
-testdata/SampleMaterial.lc 1541:24-1541:26  ()
-testdata/SampleMaterial.lc 1542:22-1542:27  Bool
-testdata/SampleMaterial.lc 1543:20-1543:21  _b
-testdata/SampleMaterial.lc 1544:30-1544:35  Bool
-testdata/SampleMaterial.lc 1545:23-1545:28  Bool
-testdata/SampleMaterial.lc 1546:20-1546:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1539:7-1547:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1548:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1549:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1577:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1579:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1540:24-1540:26
+    ()
+testdata/SampleMaterial.lc 1541:24-1541:26
+    ()
+testdata/SampleMaterial.lc 1542:22-1542:27
+    Bool
+testdata/SampleMaterial.lc 1543:20-1543:21
+    _b
+testdata/SampleMaterial.lc 1544:30-1544:35
+    Bool
+testdata/SampleMaterial.lc 1545:23-1545:28
+    Bool
+testdata/SampleMaterial.lc 1546:20-1546:33
+    CullType
+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-1552:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1551:15-1554:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1551:15-1553:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1551:15-1555:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1551:15-1554:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1551:15-1556:31
+    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
-testdata/SampleMaterial.lc 1551:15-1560:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1551:15-1561:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1551:15-1563:18  StageAttrs
-testdata/SampleMaterial.lc 1552:29-1552:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1553:30-1553:50  RGBGen
-testdata/SampleMaterial.lc 1554:32-1554:42  AlphaGen
-testdata/SampleMaterial.lc 1555:29-1555:36  TCGen
-testdata/SampleMaterial.lc 1556:29-1556:31  forall a . List a
-testdata/SampleMaterial.lc 1557:31-1557:37  String -> StageTexture
-testdata/SampleMaterial.lc 1557:31-1557:78  StageTexture
-testdata/SampleMaterial.lc 1557:38-1557:78  String
-testdata/SampleMaterial.lc 1558:34-1558:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1551:15-1560:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1561:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1563:18
+    StageAttrs
+testdata/SampleMaterial.lc 1552:29-1552:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1553:30-1553:50
+    RGBGen
+testdata/SampleMaterial.lc 1554:32-1554:42
+    AlphaGen
+testdata/SampleMaterial.lc 1555:29-1555:36
+    TCGen
+testdata/SampleMaterial.lc 1556:29-1556:31
+    forall a . List a
+testdata/SampleMaterial.lc 1557:31-1557:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1557:31-1557:78
+    StageTexture
+testdata/SampleMaterial.lc 1557:38-1557:78
+    String
+testdata/SampleMaterial.lc 1558:34-1558:38
+    Bool
+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-1565:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1564:15-1567:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1564:15-1566:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1564:15-1568:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1564:15-1567:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1564:15-1569:31
+    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
-testdata/SampleMaterial.lc 1564:15-1573:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1564:15-1574:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1564:15-1576:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1565:29-1565:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1565:29-1565:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1565:34-1565:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1565:36-1565:46  Blending'
-testdata/SampleMaterial.lc 1565:49-1565:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1566:30-1566:50  RGBGen
-testdata/SampleMaterial.lc 1567:32-1567:42  AlphaGen
-testdata/SampleMaterial.lc 1568:29-1568:40  TCGen
-testdata/SampleMaterial.lc 1569:29-1569:31  forall a . List a
-testdata/SampleMaterial.lc 1570:31-1570:42  StageTexture
-testdata/SampleMaterial.lc 1571:34-1571:38  Bool
-testdata/SampleMaterial.lc 1572:33-1572:41  DepthFunction
-testdata/SampleMaterial.lc 1573:33-1573:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1574:41-1574:46  Bool
-testdata/SampleMaterial.lc 1575:38-1575:54  String
-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
+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
+testdata/SampleMaterial.lc 1564:15-1573:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1574:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1576:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1565:29-1565:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1565:29-1565:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1565:34-1565:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1565:36-1565:46
+    Blending'
+testdata/SampleMaterial.lc 1565:49-1565:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1566:30-1566:50
+    RGBGen
+testdata/SampleMaterial.lc 1567:32-1567:42
+    AlphaGen
+testdata/SampleMaterial.lc 1568:29-1568:40
+    TCGen
+testdata/SampleMaterial.lc 1569:29-1569:31
+    forall a . List a
+testdata/SampleMaterial.lc 1570:31-1570:42
+    StageTexture
+testdata/SampleMaterial.lc 1571:34-1571:38
+    Bool
+testdata/SampleMaterial.lc 1572:33-1572:41
+    DepthFunction
+testdata/SampleMaterial.lc 1573:33-1573:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1574:41-1574:46
+    Bool
+testdata/SampleMaterial.lc 1575:38-1575:54
+    String
+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-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
-testdata/SampleMaterial.lc 1582:7-1590:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1582:7-1591:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1582:7-1592:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1582:7-1620:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1582:7-1622:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1583:24-1583:26  ()
-testdata/SampleMaterial.lc 1584:24-1584:26  ()
-testdata/SampleMaterial.lc 1585:22-1585:27  Bool
-testdata/SampleMaterial.lc 1586:20-1586:21  _b
-testdata/SampleMaterial.lc 1587:30-1587:35  Bool
-testdata/SampleMaterial.lc 1588:23-1588:28  Bool
-testdata/SampleMaterial.lc 1589:20-1589:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1582:7-1590:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1591:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1592:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1620:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1622:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1583:24-1583:26
+    ()
+testdata/SampleMaterial.lc 1584:24-1584:26
+    ()
+testdata/SampleMaterial.lc 1585:22-1585:27
+    Bool
+testdata/SampleMaterial.lc 1586:20-1586:21
+    _b
+testdata/SampleMaterial.lc 1587:30-1587:35
+    Bool
+testdata/SampleMaterial.lc 1588:23-1588:28
+    Bool
+testdata/SampleMaterial.lc 1589:20-1589:33
+    CullType
+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-1595:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1594:15-1597:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1594:15-1596:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1594:15-1598:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1594:15-1597:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1594:15-1599:31
+    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
-testdata/SampleMaterial.lc 1594:15-1603:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1594:15-1604:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1594:15-1606:18  StageAttrs
-testdata/SampleMaterial.lc 1595:29-1595:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1596:30-1596:50  RGBGen
-testdata/SampleMaterial.lc 1597:32-1597:42  AlphaGen
-testdata/SampleMaterial.lc 1598:29-1598:36  TCGen
-testdata/SampleMaterial.lc 1599:29-1599:31  forall a . List a
-testdata/SampleMaterial.lc 1600:31-1600:37  String -> StageTexture
-testdata/SampleMaterial.lc 1600:31-1600:80  StageTexture
-testdata/SampleMaterial.lc 1600:38-1600:80  String
-testdata/SampleMaterial.lc 1601:34-1601:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1594:15-1603:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1604:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1606:18
+    StageAttrs
+testdata/SampleMaterial.lc 1595:29-1595:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1596:30-1596:50
+    RGBGen
+testdata/SampleMaterial.lc 1597:32-1597:42
+    AlphaGen
+testdata/SampleMaterial.lc 1598:29-1598:36
+    TCGen
+testdata/SampleMaterial.lc 1599:29-1599:31
+    forall a . List a
+testdata/SampleMaterial.lc 1600:31-1600:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1600:31-1600:80
+    StageTexture
+testdata/SampleMaterial.lc 1600:38-1600:80
+    String
+testdata/SampleMaterial.lc 1601:34-1601:38
+    Bool
+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-1608:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1607:15-1610:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1607:15-1609:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1607:15-1611:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1607:15-1610:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1607:15-1612:31
+    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
-testdata/SampleMaterial.lc 1607:15-1616:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1607:15-1617:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1607:15-1619:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1608:29-1608:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1608:29-1608:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1608:34-1608:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1608:36-1608:46  Blending'
-testdata/SampleMaterial.lc 1608:49-1608:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1609:30-1609:50  RGBGen
-testdata/SampleMaterial.lc 1610:32-1610:42  AlphaGen
-testdata/SampleMaterial.lc 1611:29-1611:40  TCGen
-testdata/SampleMaterial.lc 1612:29-1612:31  forall a . List a
-testdata/SampleMaterial.lc 1613:31-1613:42  StageTexture
-testdata/SampleMaterial.lc 1614:34-1614:38  Bool
-testdata/SampleMaterial.lc 1615:33-1615:41  DepthFunction
-testdata/SampleMaterial.lc 1616:33-1616:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1617:41-1617:46  Bool
-testdata/SampleMaterial.lc 1618:38-1618:54  String
-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
+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
+testdata/SampleMaterial.lc 1607:15-1616:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1617:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1619:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1608:29-1608:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1608:29-1608:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1608:34-1608:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1608:36-1608:46
+    Blending'
+testdata/SampleMaterial.lc 1608:49-1608:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1609:30-1609:50
+    RGBGen
+testdata/SampleMaterial.lc 1610:32-1610:42
+    AlphaGen
+testdata/SampleMaterial.lc 1611:29-1611:40
+    TCGen
+testdata/SampleMaterial.lc 1612:29-1612:31
+    forall a . List a
+testdata/SampleMaterial.lc 1613:31-1613:42
+    StageTexture
+testdata/SampleMaterial.lc 1614:34-1614:38
+    Bool
+testdata/SampleMaterial.lc 1615:33-1615:41
+    DepthFunction
+testdata/SampleMaterial.lc 1616:33-1616:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1617:41-1617:46
+    Bool
+testdata/SampleMaterial.lc 1618:38-1618:54
+    String
+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-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
-testdata/SampleMaterial.lc 1625:7-1633:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1625:7-1634:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1625:7-1635:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1625:7-1663:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1625:7-1665:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1626:24-1626:26  ()
-testdata/SampleMaterial.lc 1627:24-1627:26  ()
-testdata/SampleMaterial.lc 1628:22-1628:27  Bool
-testdata/SampleMaterial.lc 1629:20-1629:21  _b
-testdata/SampleMaterial.lc 1630:30-1630:35  Bool
-testdata/SampleMaterial.lc 1631:23-1631:28  Bool
-testdata/SampleMaterial.lc 1632:20-1632:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1625:7-1633:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1634:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1635:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1663:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1665:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1626:24-1626:26
+    ()
+testdata/SampleMaterial.lc 1627:24-1627:26
+    ()
+testdata/SampleMaterial.lc 1628:22-1628:27
+    Bool
+testdata/SampleMaterial.lc 1629:20-1629:21
+    _b
+testdata/SampleMaterial.lc 1630:30-1630:35
+    Bool
+testdata/SampleMaterial.lc 1631:23-1631:28
+    Bool
+testdata/SampleMaterial.lc 1632:20-1632:33
+    CullType
+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-1638:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1637:15-1640:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1637:15-1639:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1637:15-1641:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1637:15-1640:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1637:15-1642:31
+    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
-testdata/SampleMaterial.lc 1637:15-1646:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1637:15-1647:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1637:15-1649:18  StageAttrs
-testdata/SampleMaterial.lc 1638:29-1638:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1639:30-1639:50  RGBGen
-testdata/SampleMaterial.lc 1640:32-1640:42  AlphaGen
-testdata/SampleMaterial.lc 1641:29-1641:36  TCGen
-testdata/SampleMaterial.lc 1642:29-1642:31  forall a . List a
-testdata/SampleMaterial.lc 1643:31-1643:37  String -> StageTexture
-testdata/SampleMaterial.lc 1643:31-1643:75  StageTexture
-testdata/SampleMaterial.lc 1643:38-1643:75  String
-testdata/SampleMaterial.lc 1644:34-1644:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1637:15-1646:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1647:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1649:18
+    StageAttrs
+testdata/SampleMaterial.lc 1638:29-1638:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1639:30-1639:50
+    RGBGen
+testdata/SampleMaterial.lc 1640:32-1640:42
+    AlphaGen
+testdata/SampleMaterial.lc 1641:29-1641:36
+    TCGen
+testdata/SampleMaterial.lc 1642:29-1642:31
+    forall a . List a
+testdata/SampleMaterial.lc 1643:31-1643:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1643:31-1643:75
+    StageTexture
+testdata/SampleMaterial.lc 1643:38-1643:75
+    String
+testdata/SampleMaterial.lc 1644:34-1644:38
+    Bool
+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-1651:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1650:15-1653:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1650:15-1652:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1650:15-1654:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1650:15-1653:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1650:15-1655:31
+    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
-testdata/SampleMaterial.lc 1650:15-1659:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1650:15-1660:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1650:15-1662:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1651:29-1651:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1651:29-1651:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1651:34-1651:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1651:36-1651:46  Blending'
-testdata/SampleMaterial.lc 1651:49-1651:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1652:30-1652:50  RGBGen
-testdata/SampleMaterial.lc 1653:32-1653:42  AlphaGen
-testdata/SampleMaterial.lc 1654:29-1654:40  TCGen
-testdata/SampleMaterial.lc 1655:29-1655:31  forall a . List a
-testdata/SampleMaterial.lc 1656:31-1656:42  StageTexture
-testdata/SampleMaterial.lc 1657:34-1657:38  Bool
-testdata/SampleMaterial.lc 1658:33-1658:41  DepthFunction
-testdata/SampleMaterial.lc 1659:33-1659:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1660:41-1660:46  Bool
-testdata/SampleMaterial.lc 1661:38-1661:54  String
-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
+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
+testdata/SampleMaterial.lc 1650:15-1659:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1660:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1662:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1651:29-1651:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1651:29-1651:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1651:34-1651:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1651:36-1651:46
+    Blending'
+testdata/SampleMaterial.lc 1651:49-1651:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1652:30-1652:50
+    RGBGen
+testdata/SampleMaterial.lc 1653:32-1653:42
+    AlphaGen
+testdata/SampleMaterial.lc 1654:29-1654:40
+    TCGen
+testdata/SampleMaterial.lc 1655:29-1655:31
+    forall a . List a
+testdata/SampleMaterial.lc 1656:31-1656:42
+    StageTexture
+testdata/SampleMaterial.lc 1657:34-1657:38
+    Bool
+testdata/SampleMaterial.lc 1658:33-1658:41
+    DepthFunction
+testdata/SampleMaterial.lc 1659:33-1659:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1660:41-1660:46
+    Bool
+testdata/SampleMaterial.lc 1661:38-1661:54
+    String
+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-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
-testdata/SampleMaterial.lc 1668:7-1676:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1668:7-1677:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1668:7-1678:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1668:7-1706:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1668:7-1708:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1669:24-1669:26  ()
-testdata/SampleMaterial.lc 1670:24-1670:26  ()
-testdata/SampleMaterial.lc 1671:22-1671:27  Bool
-testdata/SampleMaterial.lc 1672:20-1672:21  _b
-testdata/SampleMaterial.lc 1673:30-1673:35  Bool
-testdata/SampleMaterial.lc 1674:23-1674:28  Bool
-testdata/SampleMaterial.lc 1675:20-1675:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1668:7-1676:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1677:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1678:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1706:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1708:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1669:24-1669:26
+    ()
+testdata/SampleMaterial.lc 1670:24-1670:26
+    ()
+testdata/SampleMaterial.lc 1671:22-1671:27
+    Bool
+testdata/SampleMaterial.lc 1672:20-1672:21
+    _b
+testdata/SampleMaterial.lc 1673:30-1673:35
+    Bool
+testdata/SampleMaterial.lc 1674:23-1674:28
+    Bool
+testdata/SampleMaterial.lc 1675:20-1675:33
+    CullType
+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-1681:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1680:15-1683:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1680:15-1682:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1680:15-1684:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1680:15-1683:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1680:15-1685:31
+    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
-testdata/SampleMaterial.lc 1680:15-1689:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1680:15-1690:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1680:15-1692:18  StageAttrs
-testdata/SampleMaterial.lc 1681:29-1681:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1682:30-1682:50  RGBGen
-testdata/SampleMaterial.lc 1683:32-1683:42  AlphaGen
-testdata/SampleMaterial.lc 1684:29-1684:36  TCGen
-testdata/SampleMaterial.lc 1685:29-1685:31  forall a . List a
-testdata/SampleMaterial.lc 1686:31-1686:37  String -> StageTexture
-testdata/SampleMaterial.lc 1686:31-1686:74  StageTexture
-testdata/SampleMaterial.lc 1686:38-1686:74  String
-testdata/SampleMaterial.lc 1687:34-1687:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1680:15-1689:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1690:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1692:18
+    StageAttrs
+testdata/SampleMaterial.lc 1681:29-1681:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1682:30-1682:50
+    RGBGen
+testdata/SampleMaterial.lc 1683:32-1683:42
+    AlphaGen
+testdata/SampleMaterial.lc 1684:29-1684:36
+    TCGen
+testdata/SampleMaterial.lc 1685:29-1685:31
+    forall a . List a
+testdata/SampleMaterial.lc 1686:31-1686:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1686:31-1686:74
+    StageTexture
+testdata/SampleMaterial.lc 1686:38-1686:74
+    String
+testdata/SampleMaterial.lc 1687:34-1687:38
+    Bool
+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-1694:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1693:15-1696:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1693:15-1695:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1693:15-1697:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1693:15-1696:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1693:15-1698:31
+    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
-testdata/SampleMaterial.lc 1693:15-1702:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1693:15-1703:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1693:15-1705:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1694:29-1694:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1694:29-1694:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1694:34-1694:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1694:36-1694:46  Blending'
-testdata/SampleMaterial.lc 1694:49-1694:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1695:30-1695:50  RGBGen
-testdata/SampleMaterial.lc 1696:32-1696:42  AlphaGen
-testdata/SampleMaterial.lc 1697:29-1697:40  TCGen
-testdata/SampleMaterial.lc 1698:29-1698:31  forall a . List a
-testdata/SampleMaterial.lc 1699:31-1699:42  StageTexture
-testdata/SampleMaterial.lc 1700:34-1700:38  Bool
-testdata/SampleMaterial.lc 1701:33-1701:41  DepthFunction
-testdata/SampleMaterial.lc 1702:33-1702:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1703:41-1703:46  Bool
-testdata/SampleMaterial.lc 1704:38-1704:54  String
-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
+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
+testdata/SampleMaterial.lc 1693:15-1702:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1703:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1705:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1694:29-1694:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1694:29-1694:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1694:34-1694:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1694:36-1694:46
+    Blending'
+testdata/SampleMaterial.lc 1694:49-1694:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1695:30-1695:50
+    RGBGen
+testdata/SampleMaterial.lc 1696:32-1696:42
+    AlphaGen
+testdata/SampleMaterial.lc 1697:29-1697:40
+    TCGen
+testdata/SampleMaterial.lc 1698:29-1698:31
+    forall a . List a
+testdata/SampleMaterial.lc 1699:31-1699:42
+    StageTexture
+testdata/SampleMaterial.lc 1700:34-1700:38
+    Bool
+testdata/SampleMaterial.lc 1701:33-1701:41
+    DepthFunction
+testdata/SampleMaterial.lc 1702:33-1702:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1703:41-1703:46
+    Bool
+testdata/SampleMaterial.lc 1704:38-1704:54
+    String
+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-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
-testdata/SampleMaterial.lc 1711:7-1719:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1711:7-1720:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1711:7-1721:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1711:7-1749:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1711:7-1751:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1712:24-1712:26  ()
-testdata/SampleMaterial.lc 1713:24-1713:26  ()
-testdata/SampleMaterial.lc 1714:22-1714:27  Bool
-testdata/SampleMaterial.lc 1715:20-1715:21  _b
-testdata/SampleMaterial.lc 1716:30-1716:35  Bool
-testdata/SampleMaterial.lc 1717:23-1717:28  Bool
-testdata/SampleMaterial.lc 1718:20-1718:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1711:7-1719:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1720:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1721:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1749:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1751:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1712:24-1712:26
+    ()
+testdata/SampleMaterial.lc 1713:24-1713:26
+    ()
+testdata/SampleMaterial.lc 1714:22-1714:27
+    Bool
+testdata/SampleMaterial.lc 1715:20-1715:21
+    _b
+testdata/SampleMaterial.lc 1716:30-1716:35
+    Bool
+testdata/SampleMaterial.lc 1717:23-1717:28
+    Bool
+testdata/SampleMaterial.lc 1718:20-1718:33
+    CullType
+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-1724:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1723:15-1726:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1723:15-1725:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1723:15-1727:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1723:15-1726:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1723:15-1728:31
+    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
-testdata/SampleMaterial.lc 1723:15-1732:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1723:15-1733:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1723:15-1735:18  StageAttrs
-testdata/SampleMaterial.lc 1724:29-1724:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1725:30-1725:50  RGBGen
-testdata/SampleMaterial.lc 1726:32-1726:42  AlphaGen
-testdata/SampleMaterial.lc 1727:29-1727:36  TCGen
-testdata/SampleMaterial.lc 1728:29-1728:31  forall a . List a
-testdata/SampleMaterial.lc 1729:31-1729:37  String -> StageTexture
-testdata/SampleMaterial.lc 1729:31-1729:72  StageTexture
-testdata/SampleMaterial.lc 1729:38-1729:72  String
-testdata/SampleMaterial.lc 1730:34-1730:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1723:15-1732:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1733:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1735:18
+    StageAttrs
+testdata/SampleMaterial.lc 1724:29-1724:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1725:30-1725:50
+    RGBGen
+testdata/SampleMaterial.lc 1726:32-1726:42
+    AlphaGen
+testdata/SampleMaterial.lc 1727:29-1727:36
+    TCGen
+testdata/SampleMaterial.lc 1728:29-1728:31
+    forall a . List a
+testdata/SampleMaterial.lc 1729:31-1729:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1729:31-1729:72
+    StageTexture
+testdata/SampleMaterial.lc 1729:38-1729:72
+    String
+testdata/SampleMaterial.lc 1730:34-1730:38
+    Bool
+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-1737:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1736:15-1739:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1736:15-1738:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1736:15-1740:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1736:15-1739:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1736:15-1741:31
+    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
-testdata/SampleMaterial.lc 1736:15-1745:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1736:15-1746:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1736:15-1748:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1737:29-1737:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1737:29-1737:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1737:34-1737:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1737:36-1737:46  Blending'
-testdata/SampleMaterial.lc 1737:49-1737:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1738:30-1738:50  RGBGen
-testdata/SampleMaterial.lc 1739:32-1739:42  AlphaGen
-testdata/SampleMaterial.lc 1740:29-1740:40  TCGen
-testdata/SampleMaterial.lc 1741:29-1741:31  forall a . List a
-testdata/SampleMaterial.lc 1742:31-1742:42  StageTexture
-testdata/SampleMaterial.lc 1743:34-1743:38  Bool
-testdata/SampleMaterial.lc 1744:33-1744:41  DepthFunction
-testdata/SampleMaterial.lc 1745:33-1745:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1746:41-1746:46  Bool
-testdata/SampleMaterial.lc 1747:38-1747:54  String
-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
+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
+testdata/SampleMaterial.lc 1736:15-1745:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1746:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1748:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1737:29-1737:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1737:29-1737:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1737:34-1737:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1737:36-1737:46
+    Blending'
+testdata/SampleMaterial.lc 1737:49-1737:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1738:30-1738:50
+    RGBGen
+testdata/SampleMaterial.lc 1739:32-1739:42
+    AlphaGen
+testdata/SampleMaterial.lc 1740:29-1740:40
+    TCGen
+testdata/SampleMaterial.lc 1741:29-1741:31
+    forall a . List a
+testdata/SampleMaterial.lc 1742:31-1742:42
+    StageTexture
+testdata/SampleMaterial.lc 1743:34-1743:38
+    Bool
+testdata/SampleMaterial.lc 1744:33-1744:41
+    DepthFunction
+testdata/SampleMaterial.lc 1745:33-1745:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1746:41-1746:46
+    Bool
+testdata/SampleMaterial.lc 1747:38-1747:54
+    String
+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-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
-testdata/SampleMaterial.lc 1754:7-1762:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1754:7-1763:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1754:7-1764:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1754:7-1792:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1754:7-1794:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1755:24-1755:26  ()
-testdata/SampleMaterial.lc 1756:24-1756:26  ()
-testdata/SampleMaterial.lc 1757:22-1757:27  Bool
-testdata/SampleMaterial.lc 1758:20-1758:21  _b
-testdata/SampleMaterial.lc 1759:30-1759:35  Bool
-testdata/SampleMaterial.lc 1760:23-1760:28  Bool
-testdata/SampleMaterial.lc 1761:20-1761:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1754:7-1762:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1763:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1764:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1792:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1794:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1755:24-1755:26
+    ()
+testdata/SampleMaterial.lc 1756:24-1756:26
+    ()
+testdata/SampleMaterial.lc 1757:22-1757:27
+    Bool
+testdata/SampleMaterial.lc 1758:20-1758:21
+    _b
+testdata/SampleMaterial.lc 1759:30-1759:35
+    Bool
+testdata/SampleMaterial.lc 1760:23-1760:28
+    Bool
+testdata/SampleMaterial.lc 1761:20-1761:33
+    CullType
+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-1767:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1766:15-1769:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1766:15-1768:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1766:15-1770:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1766:15-1769:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1766:15-1771:31
+    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
-testdata/SampleMaterial.lc 1766:15-1775:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1766:15-1776:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1766:15-1778:18  StageAttrs
-testdata/SampleMaterial.lc 1767:29-1767:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1768:30-1768:50  RGBGen
-testdata/SampleMaterial.lc 1769:32-1769:42  AlphaGen
-testdata/SampleMaterial.lc 1770:29-1770:36  TCGen
-testdata/SampleMaterial.lc 1771:29-1771:31  forall a . List a
-testdata/SampleMaterial.lc 1772:31-1772:37  String -> StageTexture
-testdata/SampleMaterial.lc 1772:31-1772:73  StageTexture
-testdata/SampleMaterial.lc 1772:38-1772:73  String
-testdata/SampleMaterial.lc 1773:34-1773:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1766:15-1775:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1776:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1778:18
+    StageAttrs
+testdata/SampleMaterial.lc 1767:29-1767:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1768:30-1768:50
+    RGBGen
+testdata/SampleMaterial.lc 1769:32-1769:42
+    AlphaGen
+testdata/SampleMaterial.lc 1770:29-1770:36
+    TCGen
+testdata/SampleMaterial.lc 1771:29-1771:31
+    forall a . List a
+testdata/SampleMaterial.lc 1772:31-1772:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1772:31-1772:73
+    StageTexture
+testdata/SampleMaterial.lc 1772:38-1772:73
+    String
+testdata/SampleMaterial.lc 1773:34-1773:38
+    Bool
+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-1780:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1779:15-1782:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1779:15-1781:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1779:15-1783:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1779:15-1782:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1779:15-1784:31
+    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
-testdata/SampleMaterial.lc 1779:15-1788:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1779:15-1789:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1779:15-1791:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1780:29-1780:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1780:29-1780:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1780:34-1780:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1780:36-1780:46  Blending'
-testdata/SampleMaterial.lc 1780:49-1780:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1781:30-1781:50  RGBGen
-testdata/SampleMaterial.lc 1782:32-1782:42  AlphaGen
-testdata/SampleMaterial.lc 1783:29-1783:40  TCGen
-testdata/SampleMaterial.lc 1784:29-1784:31  forall a . List a
-testdata/SampleMaterial.lc 1785:31-1785:42  StageTexture
-testdata/SampleMaterial.lc 1786:34-1786:38  Bool
-testdata/SampleMaterial.lc 1787:33-1787:41  DepthFunction
-testdata/SampleMaterial.lc 1788:33-1788:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1789:41-1789:46  Bool
-testdata/SampleMaterial.lc 1790:38-1790:54  String
-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
+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
+testdata/SampleMaterial.lc 1779:15-1788:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1789:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1791:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1780:29-1780:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1780:29-1780:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1780:34-1780:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1780:36-1780:46
+    Blending'
+testdata/SampleMaterial.lc 1780:49-1780:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1781:30-1781:50
+    RGBGen
+testdata/SampleMaterial.lc 1782:32-1782:42
+    AlphaGen
+testdata/SampleMaterial.lc 1783:29-1783:40
+    TCGen
+testdata/SampleMaterial.lc 1784:29-1784:31
+    forall a . List a
+testdata/SampleMaterial.lc 1785:31-1785:42
+    StageTexture
+testdata/SampleMaterial.lc 1786:34-1786:38
+    Bool
+testdata/SampleMaterial.lc 1787:33-1787:41
+    DepthFunction
+testdata/SampleMaterial.lc 1788:33-1788:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1789:41-1789:46
+    Bool
+testdata/SampleMaterial.lc 1790:38-1790:54
+    String
+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-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
-testdata/SampleMaterial.lc 1797:7-1805:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1797:7-1806:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1797:7-1807:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1797:7-1835:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1797:7-1837:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1798:24-1798:26  ()
-testdata/SampleMaterial.lc 1799:24-1799:26  ()
-testdata/SampleMaterial.lc 1800:22-1800:27  Bool
-testdata/SampleMaterial.lc 1801:20-1801:21  _b
-testdata/SampleMaterial.lc 1802:30-1802:35  Bool
-testdata/SampleMaterial.lc 1803:23-1803:28  Bool
-testdata/SampleMaterial.lc 1804:20-1804:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1797:7-1805:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1806:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1807:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1835:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1837:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1798:24-1798:26
+    ()
+testdata/SampleMaterial.lc 1799:24-1799:26
+    ()
+testdata/SampleMaterial.lc 1800:22-1800:27
+    Bool
+testdata/SampleMaterial.lc 1801:20-1801:21
+    _b
+testdata/SampleMaterial.lc 1802:30-1802:35
+    Bool
+testdata/SampleMaterial.lc 1803:23-1803:28
+    Bool
+testdata/SampleMaterial.lc 1804:20-1804:33
+    CullType
+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-1810:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1809:15-1812:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1809:15-1811:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1809:15-1813:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1809:15-1812:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1809:15-1814:31
+    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
-testdata/SampleMaterial.lc 1809:15-1818:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1809:15-1819:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1809:15-1821:18  StageAttrs
-testdata/SampleMaterial.lc 1810:29-1810:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1811:30-1811:42  RGBGen
-testdata/SampleMaterial.lc 1812:32-1812:42  AlphaGen
-testdata/SampleMaterial.lc 1813:29-1813:40  TCGen
-testdata/SampleMaterial.lc 1814:29-1814:31  forall a . List a
-testdata/SampleMaterial.lc 1815:31-1815:42  StageTexture
-testdata/SampleMaterial.lc 1816:34-1816:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1809:15-1818:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1819:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1821:18
+    StageAttrs
+testdata/SampleMaterial.lc 1810:29-1810:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1811:30-1811:42
+    RGBGen
+testdata/SampleMaterial.lc 1812:32-1812:42
+    AlphaGen
+testdata/SampleMaterial.lc 1813:29-1813:40
+    TCGen
+testdata/SampleMaterial.lc 1814:29-1814:31
+    forall a . List a
+testdata/SampleMaterial.lc 1815:31-1815:42
+    StageTexture
+testdata/SampleMaterial.lc 1816:34-1816:38
+    Bool
+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-1823:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1822:15-1825:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1822:15-1824:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1822:15-1826:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1822:15-1825:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1822:15-1827:31
+    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
-testdata/SampleMaterial.lc 1822:15-1831:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1822:15-1832:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1822:15-1834:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1823:29-1823:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1823:29-1823:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1823:34-1823:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1823:36-1823:46  Blending'
-testdata/SampleMaterial.lc 1823:49-1823:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1824:30-1824:42  RGBGen
-testdata/SampleMaterial.lc 1825:32-1825:42  AlphaGen
-testdata/SampleMaterial.lc 1826:29-1826:36  TCGen
-testdata/SampleMaterial.lc 1827:29-1827:31  forall a . List a
-testdata/SampleMaterial.lc 1828:31-1828:37  String -> StageTexture
-testdata/SampleMaterial.lc 1828:31-1828:77  StageTexture
-testdata/SampleMaterial.lc 1828:38-1828:77  String
-testdata/SampleMaterial.lc 1829:34-1829:39  Bool
-testdata/SampleMaterial.lc 1830:33-1830:41  DepthFunction
-testdata/SampleMaterial.lc 1831:33-1831:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1832:41-1832:46  Bool
-testdata/SampleMaterial.lc 1833:38-1833:54  String
-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
+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
+testdata/SampleMaterial.lc 1822:15-1831:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1832:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1834:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1823:29-1823:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1823:29-1823:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1823:34-1823:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1823:36-1823:46
+    Blending'
+testdata/SampleMaterial.lc 1823:49-1823:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1824:30-1824:42
+    RGBGen
+testdata/SampleMaterial.lc 1825:32-1825:42
+    AlphaGen
+testdata/SampleMaterial.lc 1826:29-1826:36
+    TCGen
+testdata/SampleMaterial.lc 1827:29-1827:31
+    forall a . List a
+testdata/SampleMaterial.lc 1828:31-1828:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1828:31-1828:77
+    StageTexture
+testdata/SampleMaterial.lc 1828:38-1828:77
+    String
+testdata/SampleMaterial.lc 1829:34-1829:39
+    Bool
+testdata/SampleMaterial.lc 1830:33-1830:41
+    DepthFunction
+testdata/SampleMaterial.lc 1831:33-1831:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1832:41-1832:46
+    Bool
+testdata/SampleMaterial.lc 1833:38-1833:54
+    String
+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-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
-testdata/SampleMaterial.lc 1840:7-1848:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1840:7-1849:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1840:7-1850:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1840:7-1878:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1840:7-1880:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1841:24-1841:26  ()
-testdata/SampleMaterial.lc 1842:24-1842:26  ()
-testdata/SampleMaterial.lc 1843:22-1843:27  Bool
-testdata/SampleMaterial.lc 1844:20-1844:21  _b
-testdata/SampleMaterial.lc 1845:30-1845:35  Bool
-testdata/SampleMaterial.lc 1846:23-1846:28  Bool
-testdata/SampleMaterial.lc 1847:20-1847:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1840:7-1848:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1849:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1850:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1878:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1880:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1841:24-1841:26
+    ()
+testdata/SampleMaterial.lc 1842:24-1842:26
+    ()
+testdata/SampleMaterial.lc 1843:22-1843:27
+    Bool
+testdata/SampleMaterial.lc 1844:20-1844:21
+    _b
+testdata/SampleMaterial.lc 1845:30-1845:35
+    Bool
+testdata/SampleMaterial.lc 1846:23-1846:28
+    Bool
+testdata/SampleMaterial.lc 1847:20-1847:33
+    CullType
+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-1853:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1852:15-1855:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1852:15-1854:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1852:15-1856:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1852:15-1855:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1852:15-1857:31
+    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
-testdata/SampleMaterial.lc 1852:15-1861:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1852:15-1862:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1852:15-1864:18  StageAttrs
-testdata/SampleMaterial.lc 1853:29-1853:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1854:30-1854:50  RGBGen
-testdata/SampleMaterial.lc 1855:32-1855:42  AlphaGen
-testdata/SampleMaterial.lc 1856:29-1856:36  TCGen
-testdata/SampleMaterial.lc 1857:29-1857:31  forall a . List a
-testdata/SampleMaterial.lc 1858:31-1858:37  String -> StageTexture
-testdata/SampleMaterial.lc 1858:31-1858:73  StageTexture
-testdata/SampleMaterial.lc 1858:38-1858:73  String
-testdata/SampleMaterial.lc 1859:34-1859:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1852:15-1861:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1862:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1864:18
+    StageAttrs
+testdata/SampleMaterial.lc 1853:29-1853:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1854:30-1854:50
+    RGBGen
+testdata/SampleMaterial.lc 1855:32-1855:42
+    AlphaGen
+testdata/SampleMaterial.lc 1856:29-1856:36
+    TCGen
+testdata/SampleMaterial.lc 1857:29-1857:31
+    forall a . List a
+testdata/SampleMaterial.lc 1858:31-1858:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1858:31-1858:73
+    StageTexture
+testdata/SampleMaterial.lc 1858:38-1858:73
+    String
+testdata/SampleMaterial.lc 1859:34-1859:38
+    Bool
+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-1866:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1865:15-1868:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1865:15-1867:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1865:15-1869:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1865:15-1868:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1865:15-1870:31
+    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
-testdata/SampleMaterial.lc 1865:15-1874:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1865:15-1875:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1865:15-1877:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1866:29-1866:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1866:29-1866:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1866:34-1866:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1866:36-1866:46  Blending'
-testdata/SampleMaterial.lc 1866:49-1866:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1867:30-1867:50  RGBGen
-testdata/SampleMaterial.lc 1868:32-1868:42  AlphaGen
-testdata/SampleMaterial.lc 1869:29-1869:40  TCGen
-testdata/SampleMaterial.lc 1870:29-1870:31  forall a . List a
-testdata/SampleMaterial.lc 1871:31-1871:42  StageTexture
-testdata/SampleMaterial.lc 1872:34-1872:38  Bool
-testdata/SampleMaterial.lc 1873:33-1873:41  DepthFunction
-testdata/SampleMaterial.lc 1874:33-1874:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1875:41-1875:46  Bool
-testdata/SampleMaterial.lc 1876:38-1876:54  String
-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
+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
+testdata/SampleMaterial.lc 1865:15-1874:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1875:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1877:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1866:29-1866:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1866:29-1866:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1866:34-1866:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1866:36-1866:46
+    Blending'
+testdata/SampleMaterial.lc 1866:49-1866:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1867:30-1867:50
+    RGBGen
+testdata/SampleMaterial.lc 1868:32-1868:42
+    AlphaGen
+testdata/SampleMaterial.lc 1869:29-1869:40
+    TCGen
+testdata/SampleMaterial.lc 1870:29-1870:31
+    forall a . List a
+testdata/SampleMaterial.lc 1871:31-1871:42
+    StageTexture
+testdata/SampleMaterial.lc 1872:34-1872:38
+    Bool
+testdata/SampleMaterial.lc 1873:33-1873:41
+    DepthFunction
+testdata/SampleMaterial.lc 1874:33-1874:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1875:41-1875:46
+    Bool
+testdata/SampleMaterial.lc 1876:38-1876:54
+    String
+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-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
-testdata/SampleMaterial.lc 1883:7-1891:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1883:7-1892:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1883:7-1893:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1883:7-1921:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1883:7-1923:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1884:24-1884:26  ()
-testdata/SampleMaterial.lc 1885:24-1885:26  ()
-testdata/SampleMaterial.lc 1886:22-1886:27  Bool
-testdata/SampleMaterial.lc 1887:20-1887:21  _b
-testdata/SampleMaterial.lc 1888:30-1888:35  Bool
-testdata/SampleMaterial.lc 1889:23-1889:28  Bool
-testdata/SampleMaterial.lc 1890:20-1890:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1883:7-1891:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1892:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1893:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1921:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1923:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1884:24-1884:26
+    ()
+testdata/SampleMaterial.lc 1885:24-1885:26
+    ()
+testdata/SampleMaterial.lc 1886:22-1886:27
+    Bool
+testdata/SampleMaterial.lc 1887:20-1887:21
+    _b
+testdata/SampleMaterial.lc 1888:30-1888:35
+    Bool
+testdata/SampleMaterial.lc 1889:23-1889:28
+    Bool
+testdata/SampleMaterial.lc 1890:20-1890:33
+    CullType
+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-1896:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1895:15-1898:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1895:15-1897:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1895:15-1899:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1895:15-1898:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1895:15-1900:31
+    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
-testdata/SampleMaterial.lc 1895:15-1904:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1895:15-1905:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1895:15-1907:18  StageAttrs
-testdata/SampleMaterial.lc 1896:29-1896:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1897:30-1897:50  RGBGen
-testdata/SampleMaterial.lc 1898:32-1898:42  AlphaGen
-testdata/SampleMaterial.lc 1899:29-1899:36  TCGen
-testdata/SampleMaterial.lc 1900:29-1900:31  forall a . List a
-testdata/SampleMaterial.lc 1901:31-1901:37  String -> StageTexture
-testdata/SampleMaterial.lc 1901:31-1901:78  StageTexture
-testdata/SampleMaterial.lc 1901:38-1901:78  String
-testdata/SampleMaterial.lc 1902:34-1902:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1895:15-1904:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1905:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1907:18
+    StageAttrs
+testdata/SampleMaterial.lc 1896:29-1896:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1897:30-1897:50
+    RGBGen
+testdata/SampleMaterial.lc 1898:32-1898:42
+    AlphaGen
+testdata/SampleMaterial.lc 1899:29-1899:36
+    TCGen
+testdata/SampleMaterial.lc 1900:29-1900:31
+    forall a . List a
+testdata/SampleMaterial.lc 1901:31-1901:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1901:31-1901:78
+    StageTexture
+testdata/SampleMaterial.lc 1901:38-1901:78
+    String
+testdata/SampleMaterial.lc 1902:34-1902:38
+    Bool
+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-1909:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1908:15-1911:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1908:15-1910:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1908:15-1912:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1908:15-1911:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1908:15-1913:31
+    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
-testdata/SampleMaterial.lc 1908:15-1917:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1908:15-1918:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1908:15-1920:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1909:29-1909:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1909:29-1909:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1909:34-1909:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1909:36-1909:46  Blending'
-testdata/SampleMaterial.lc 1909:49-1909:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1910:30-1910:50  RGBGen
-testdata/SampleMaterial.lc 1911:32-1911:42  AlphaGen
-testdata/SampleMaterial.lc 1912:29-1912:40  TCGen
-testdata/SampleMaterial.lc 1913:29-1913:31  forall a . List a
-testdata/SampleMaterial.lc 1914:31-1914:42  StageTexture
-testdata/SampleMaterial.lc 1915:34-1915:38  Bool
-testdata/SampleMaterial.lc 1916:33-1916:41  DepthFunction
-testdata/SampleMaterial.lc 1917:33-1917:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1918:41-1918:46  Bool
-testdata/SampleMaterial.lc 1919:38-1919:54  String
-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
+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
+testdata/SampleMaterial.lc 1908:15-1917:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1918:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1920:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1909:29-1909:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1909:29-1909:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1909:34-1909:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1909:36-1909:46
+    Blending'
+testdata/SampleMaterial.lc 1909:49-1909:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1910:30-1910:50
+    RGBGen
+testdata/SampleMaterial.lc 1911:32-1911:42
+    AlphaGen
+testdata/SampleMaterial.lc 1912:29-1912:40
+    TCGen
+testdata/SampleMaterial.lc 1913:29-1913:31
+    forall a . List a
+testdata/SampleMaterial.lc 1914:31-1914:42
+    StageTexture
+testdata/SampleMaterial.lc 1915:34-1915:38
+    Bool
+testdata/SampleMaterial.lc 1916:33-1916:41
+    DepthFunction
+testdata/SampleMaterial.lc 1917:33-1917:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1918:41-1918:46
+    Bool
+testdata/SampleMaterial.lc 1919:38-1919:54
+    String
+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-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
-testdata/SampleMaterial.lc 1926:7-1934:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1926:7-1935:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1926:7-1936:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1926:7-1964:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1926:7-1966:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1927:24-1927:26  ()
-testdata/SampleMaterial.lc 1928:24-1928:26  ()
-testdata/SampleMaterial.lc 1929:22-1929:27  Bool
-testdata/SampleMaterial.lc 1930:20-1930:21  _b
-testdata/SampleMaterial.lc 1931:30-1931:35  Bool
-testdata/SampleMaterial.lc 1932:23-1932:28  Bool
-testdata/SampleMaterial.lc 1933:20-1933:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1926:7-1934:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1935:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1936:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1964:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1966:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1927:24-1927:26
+    ()
+testdata/SampleMaterial.lc 1928:24-1928:26
+    ()
+testdata/SampleMaterial.lc 1929:22-1929:27
+    Bool
+testdata/SampleMaterial.lc 1930:20-1930:21
+    _b
+testdata/SampleMaterial.lc 1931:30-1931:35
+    Bool
+testdata/SampleMaterial.lc 1932:23-1932:28
+    Bool
+testdata/SampleMaterial.lc 1933:20-1933:33
+    CullType
+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-1939:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1938:15-1941:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1938:15-1940:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1938:15-1942:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1938:15-1941:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1938:15-1943:31
+    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
-testdata/SampleMaterial.lc 1938:15-1947:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1938:15-1948:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1938:15-1950:18  StageAttrs
-testdata/SampleMaterial.lc 1939:29-1939:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1940:30-1940:50  RGBGen
-testdata/SampleMaterial.lc 1941:32-1941:42  AlphaGen
-testdata/SampleMaterial.lc 1942:29-1942:36  TCGen
-testdata/SampleMaterial.lc 1943:29-1943:31  forall a . List a
-testdata/SampleMaterial.lc 1944:31-1944:37  String -> StageTexture
-testdata/SampleMaterial.lc 1944:31-1944:69  StageTexture
-testdata/SampleMaterial.lc 1944:38-1944:69  String
-testdata/SampleMaterial.lc 1945:34-1945:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1938:15-1947:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1948:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1950:18
+    StageAttrs
+testdata/SampleMaterial.lc 1939:29-1939:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1940:30-1940:50
+    RGBGen
+testdata/SampleMaterial.lc 1941:32-1941:42
+    AlphaGen
+testdata/SampleMaterial.lc 1942:29-1942:36
+    TCGen
+testdata/SampleMaterial.lc 1943:29-1943:31
+    forall a . List a
+testdata/SampleMaterial.lc 1944:31-1944:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1944:31-1944:69
+    StageTexture
+testdata/SampleMaterial.lc 1944:38-1944:69
+    String
+testdata/SampleMaterial.lc 1945:34-1945:38
+    Bool
+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-1952:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1951:15-1954:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1951:15-1953:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1951:15-1955:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1951:15-1954:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1951:15-1956:31
+    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
-testdata/SampleMaterial.lc 1951:15-1960:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1951:15-1961:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1951:15-1963:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1952:29-1952:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1952:29-1952:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1952:34-1952:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1952:36-1952:46  Blending'
-testdata/SampleMaterial.lc 1952:49-1952:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1953:30-1953:50  RGBGen
-testdata/SampleMaterial.lc 1954:32-1954:42  AlphaGen
-testdata/SampleMaterial.lc 1955:29-1955:40  TCGen
-testdata/SampleMaterial.lc 1956:29-1956:31  forall a . List a
-testdata/SampleMaterial.lc 1957:31-1957:42  StageTexture
-testdata/SampleMaterial.lc 1958:34-1958:38  Bool
-testdata/SampleMaterial.lc 1959:33-1959:41  DepthFunction
-testdata/SampleMaterial.lc 1960:33-1960:40  forall a . Maybe a
-testdata/SampleMaterial.lc 1961:41-1961:46  Bool
-testdata/SampleMaterial.lc 1962:38-1962:54  String
-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
+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
+testdata/SampleMaterial.lc 1951:15-1960:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1961:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1963:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1952:29-1952:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1952:29-1952:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1952:34-1952:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1952:36-1952:46
+    Blending'
+testdata/SampleMaterial.lc 1952:49-1952:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1953:30-1953:50
+    RGBGen
+testdata/SampleMaterial.lc 1954:32-1954:42
+    AlphaGen
+testdata/SampleMaterial.lc 1955:29-1955:40
+    TCGen
+testdata/SampleMaterial.lc 1956:29-1956:31
+    forall a . List a
+testdata/SampleMaterial.lc 1957:31-1957:42
+    StageTexture
+testdata/SampleMaterial.lc 1958:34-1958:38
+    Bool
+testdata/SampleMaterial.lc 1959:33-1959:41
+    DepthFunction
+testdata/SampleMaterial.lc 1960:33-1960:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1961:41-1961:46
+    Bool
+testdata/SampleMaterial.lc 1962:38-1962:54
+    String
+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-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
-testdata/SampleMaterial.lc 1969:7-1977:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1969:7-1978:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1969:7-1979:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1969:7-2007:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 1969:7-2009:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 1970:24-1970:26  ()
-testdata/SampleMaterial.lc 1971:24-1971:26  ()
-testdata/SampleMaterial.lc 1972:22-1972:27  Bool
-testdata/SampleMaterial.lc 1973:20-1973:21  _b
-testdata/SampleMaterial.lc 1974:30-1974:35  Bool
-testdata/SampleMaterial.lc 1975:23-1975:28  Bool
-testdata/SampleMaterial.lc 1976:20-1976:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 1969:7-1977:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1978:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1979:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-2007:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-2009:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 1970:24-1970:26
+    ()
+testdata/SampleMaterial.lc 1971:24-1971:26
+    ()
+testdata/SampleMaterial.lc 1972:22-1972:27
+    Bool
+testdata/SampleMaterial.lc 1973:20-1973:21
+    _b
+testdata/SampleMaterial.lc 1974:30-1974:35
+    Bool
+testdata/SampleMaterial.lc 1975:23-1975:28
+    Bool
+testdata/SampleMaterial.lc 1976:20-1976:33
+    CullType
+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-1982:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1981:15-1984:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1981:15-1983:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1981:15-1985:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1981:15-1984:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1981:15-1986:31
+    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
-testdata/SampleMaterial.lc 1981:15-1990:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1981:15-1991:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1981:15-1993:18  StageAttrs
-testdata/SampleMaterial.lc 1982:29-1982:36  forall a . Maybe a
-testdata/SampleMaterial.lc 1983:30-1983:50  RGBGen
-testdata/SampleMaterial.lc 1984:32-1984:42  AlphaGen
-testdata/SampleMaterial.lc 1985:29-1985:36  TCGen
-testdata/SampleMaterial.lc 1986:29-1986:31  forall a . List a
-testdata/SampleMaterial.lc 1987:31-1987:37  String -> StageTexture
-testdata/SampleMaterial.lc 1987:31-1987:74  StageTexture
-testdata/SampleMaterial.lc 1987:38-1987:74  String
-testdata/SampleMaterial.lc 1988:34-1988:38  Bool
-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
+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
+testdata/SampleMaterial.lc 1981:15-1990:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1991:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1993:18
+    StageAttrs
+testdata/SampleMaterial.lc 1982:29-1982:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 1983:30-1983:50
+    RGBGen
+testdata/SampleMaterial.lc 1984:32-1984:42
+    AlphaGen
+testdata/SampleMaterial.lc 1985:29-1985:36
+    TCGen
+testdata/SampleMaterial.lc 1986:29-1986:31
+    forall a . List a
+testdata/SampleMaterial.lc 1987:31-1987:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 1987:31-1987:74
+    StageTexture
+testdata/SampleMaterial.lc 1987:38-1987:74
+    String
+testdata/SampleMaterial.lc 1988:34-1988:38
+    Bool
+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-1995:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 1994:15-1997:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1994:15-1996:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 1994:15-1998:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1994:15-1997:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 1994:15-1999:31
+    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
-testdata/SampleMaterial.lc 1994:15-2003:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 1994:15-2004:46  String -> StageAttrs
-testdata/SampleMaterial.lc 1994:15-2006:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 1995:29-1995:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 1995:29-1995:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 1995:34-1995:57  (Blending', Blending')
-testdata/SampleMaterial.lc 1995:36-1995:46  Blending'
-testdata/SampleMaterial.lc 1995:49-1995:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 1996:30-1996:50  RGBGen
-testdata/SampleMaterial.lc 1997:32-1997:42  AlphaGen
-testdata/SampleMaterial.lc 1998:29-1998:40  TCGen
-testdata/SampleMaterial.lc 1999:29-1999:31  forall a . List a
-testdata/SampleMaterial.lc 2000:31-2000:42  StageTexture
-testdata/SampleMaterial.lc 2001:34-2001:38  Bool
-testdata/SampleMaterial.lc 2002:33-2002:41  DepthFunction
-testdata/SampleMaterial.lc 2003:33-2003:40  forall a . Maybe a
-testdata/SampleMaterial.lc 2004:41-2004:46  Bool
-testdata/SampleMaterial.lc 2005:38-2005:54  String
-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
+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
+testdata/SampleMaterial.lc 1994:15-2003:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-2004:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-2006:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 1995:29-1995:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 1995:29-1995:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 1995:34-1995:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 1995:36-1995:46
+    Blending'
+testdata/SampleMaterial.lc 1995:49-1995:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 1996:30-1996:50
+    RGBGen
+testdata/SampleMaterial.lc 1997:32-1997:42
+    AlphaGen
+testdata/SampleMaterial.lc 1998:29-1998:40
+    TCGen
+testdata/SampleMaterial.lc 1999:29-1999:31
+    forall a . List a
+testdata/SampleMaterial.lc 2000:31-2000:42
+    StageTexture
+testdata/SampleMaterial.lc 2001:34-2001:38
+    Bool
+testdata/SampleMaterial.lc 2002:33-2002:41
+    DepthFunction
+testdata/SampleMaterial.lc 2003:33-2003:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 2004:41-2004:46
+    Bool
+testdata/SampleMaterial.lc 2005:38-2005:54
+    String
+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-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
-testdata/SampleMaterial.lc 2012:7-2020:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2012:7-2021:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2012:7-2022:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2012:7-2050:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2012:7-2052:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 2013:24-2013:26  ()
-testdata/SampleMaterial.lc 2014:24-2014:26  ()
-testdata/SampleMaterial.lc 2015:22-2015:27  Bool
-testdata/SampleMaterial.lc 2016:20-2016:21  _b
-testdata/SampleMaterial.lc 2017:30-2017:35  Bool
-testdata/SampleMaterial.lc 2018:23-2018:28  Bool
-testdata/SampleMaterial.lc 2019:20-2019:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 2012:7-2020:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2021:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2022:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2050:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2052:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 2013:24-2013:26
+    ()
+testdata/SampleMaterial.lc 2014:24-2014:26
+    ()
+testdata/SampleMaterial.lc 2015:22-2015:27
+    Bool
+testdata/SampleMaterial.lc 2016:20-2016:21
+    _b
+testdata/SampleMaterial.lc 2017:30-2017:35
+    Bool
+testdata/SampleMaterial.lc 2018:23-2018:28
+    Bool
+testdata/SampleMaterial.lc 2019:20-2019:33
+    CullType
+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-2025:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 2024:15-2027:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2024:15-2026:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 2024:15-2028:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2024:15-2027:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 2024:15-2029:31
+    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
-testdata/SampleMaterial.lc 2024:15-2033:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2024:15-2034:46  String -> StageAttrs
-testdata/SampleMaterial.lc 2024:15-2036:18  StageAttrs
-testdata/SampleMaterial.lc 2025:29-2025:36  forall a . Maybe a
-testdata/SampleMaterial.lc 2026:30-2026:50  RGBGen
-testdata/SampleMaterial.lc 2027:32-2027:42  AlphaGen
-testdata/SampleMaterial.lc 2028:29-2028:36  TCGen
-testdata/SampleMaterial.lc 2029:29-2029:31  forall a . List a
-testdata/SampleMaterial.lc 2030:31-2030:37  String -> StageTexture
-testdata/SampleMaterial.lc 2030:31-2030:67  StageTexture
-testdata/SampleMaterial.lc 2030:38-2030:67  String
-testdata/SampleMaterial.lc 2031:34-2031:38  Bool
-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
+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
+testdata/SampleMaterial.lc 2024:15-2033:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2034:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2036:18
+    StageAttrs
+testdata/SampleMaterial.lc 2025:29-2025:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 2026:30-2026:50
+    RGBGen
+testdata/SampleMaterial.lc 2027:32-2027:42
+    AlphaGen
+testdata/SampleMaterial.lc 2028:29-2028:36
+    TCGen
+testdata/SampleMaterial.lc 2029:29-2029:31
+    forall a . List a
+testdata/SampleMaterial.lc 2030:31-2030:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 2030:31-2030:67
+    StageTexture
+testdata/SampleMaterial.lc 2030:38-2030:67
+    String
+testdata/SampleMaterial.lc 2031:34-2031:38
+    Bool
+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-2038:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 2037:15-2040:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2037:15-2039:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 2037:15-2041:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2037:15-2040:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 2037:15-2042:31
+    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
-testdata/SampleMaterial.lc 2037:15-2046:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2037:15-2047:46  String -> StageAttrs
-testdata/SampleMaterial.lc 2037:15-2049:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 2038:29-2038:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 2038:29-2038:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 2038:34-2038:57  (Blending', Blending')
-testdata/SampleMaterial.lc 2038:36-2038:46  Blending'
-testdata/SampleMaterial.lc 2038:49-2038:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 2039:30-2039:50  RGBGen
-testdata/SampleMaterial.lc 2040:32-2040:42  AlphaGen
-testdata/SampleMaterial.lc 2041:29-2041:40  TCGen
-testdata/SampleMaterial.lc 2042:29-2042:31  forall a . List a
-testdata/SampleMaterial.lc 2043:31-2043:42  StageTexture
-testdata/SampleMaterial.lc 2044:34-2044:38  Bool
-testdata/SampleMaterial.lc 2045:33-2045:41  DepthFunction
-testdata/SampleMaterial.lc 2046:33-2046:40  forall a . Maybe a
-testdata/SampleMaterial.lc 2047:41-2047:46  Bool
-testdata/SampleMaterial.lc 2048:38-2048:54  String
-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
+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
+testdata/SampleMaterial.lc 2037:15-2046:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2047:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2049:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 2038:29-2038:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 2038:29-2038:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 2038:34-2038:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 2038:36-2038:46
+    Blending'
+testdata/SampleMaterial.lc 2038:49-2038:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 2039:30-2039:50
+    RGBGen
+testdata/SampleMaterial.lc 2040:32-2040:42
+    AlphaGen
+testdata/SampleMaterial.lc 2041:29-2041:40
+    TCGen
+testdata/SampleMaterial.lc 2042:29-2042:31
+    forall a . List a
+testdata/SampleMaterial.lc 2043:31-2043:42
+    StageTexture
+testdata/SampleMaterial.lc 2044:34-2044:38
+    Bool
+testdata/SampleMaterial.lc 2045:33-2045:41
+    DepthFunction
+testdata/SampleMaterial.lc 2046:33-2046:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 2047:41-2047:46
+    Bool
+testdata/SampleMaterial.lc 2048:38-2048:54
+    String
+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-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
-testdata/SampleMaterial.lc 2055:7-2063:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2055:7-2064:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2055:7-2065:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2055:7-2093:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2055:7-2095:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 2056:24-2056:26  ()
-testdata/SampleMaterial.lc 2057:24-2057:26  ()
-testdata/SampleMaterial.lc 2058:22-2058:27  Bool
-testdata/SampleMaterial.lc 2059:20-2059:21  _b
-testdata/SampleMaterial.lc 2060:30-2060:35  Bool
-testdata/SampleMaterial.lc 2061:23-2061:28  Bool
-testdata/SampleMaterial.lc 2062:20-2062:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 2055:7-2063:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2064:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2065:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2093:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2095:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 2056:24-2056:26
+    ()
+testdata/SampleMaterial.lc 2057:24-2057:26
+    ()
+testdata/SampleMaterial.lc 2058:22-2058:27
+    Bool
+testdata/SampleMaterial.lc 2059:20-2059:21
+    _b
+testdata/SampleMaterial.lc 2060:30-2060:35
+    Bool
+testdata/SampleMaterial.lc 2061:23-2061:28
+    Bool
+testdata/SampleMaterial.lc 2062:20-2062:33
+    CullType
+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-2068:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 2067:15-2070:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2067:15-2069:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 2067:15-2071:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2067:15-2070:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 2067:15-2072:31
+    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
-testdata/SampleMaterial.lc 2067:15-2076:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2067:15-2077:46  String -> StageAttrs
-testdata/SampleMaterial.lc 2067:15-2079:18  StageAttrs
-testdata/SampleMaterial.lc 2068:29-2068:36  forall a . Maybe a
-testdata/SampleMaterial.lc 2069:30-2069:50  RGBGen
-testdata/SampleMaterial.lc 2070:32-2070:42  AlphaGen
-testdata/SampleMaterial.lc 2071:29-2071:36  TCGen
-testdata/SampleMaterial.lc 2072:29-2072:31  forall a . List a
-testdata/SampleMaterial.lc 2073:31-2073:37  String -> StageTexture
-testdata/SampleMaterial.lc 2073:31-2073:71  StageTexture
-testdata/SampleMaterial.lc 2073:38-2073:71  String
-testdata/SampleMaterial.lc 2074:34-2074:38  Bool
-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
+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
+testdata/SampleMaterial.lc 2067:15-2076:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2077:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2079:18
+    StageAttrs
+testdata/SampleMaterial.lc 2068:29-2068:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 2069:30-2069:50
+    RGBGen
+testdata/SampleMaterial.lc 2070:32-2070:42
+    AlphaGen
+testdata/SampleMaterial.lc 2071:29-2071:36
+    TCGen
+testdata/SampleMaterial.lc 2072:29-2072:31
+    forall a . List a
+testdata/SampleMaterial.lc 2073:31-2073:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 2073:31-2073:71
+    StageTexture
+testdata/SampleMaterial.lc 2073:38-2073:71
+    String
+testdata/SampleMaterial.lc 2074:34-2074:38
+    Bool
+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-2081:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 2080:15-2083:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2080:15-2082:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 2080:15-2084:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2080:15-2083:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 2080:15-2085:31
+    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
-testdata/SampleMaterial.lc 2080:15-2089:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2080:15-2090:46  String -> StageAttrs
-testdata/SampleMaterial.lc 2080:15-2092:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 2081:29-2081:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 2081:29-2081:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 2081:34-2081:57  (Blending', Blending')
-testdata/SampleMaterial.lc 2081:36-2081:46  Blending'
-testdata/SampleMaterial.lc 2081:49-2081:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 2082:30-2082:50  RGBGen
-testdata/SampleMaterial.lc 2083:32-2083:42  AlphaGen
-testdata/SampleMaterial.lc 2084:29-2084:40  TCGen
-testdata/SampleMaterial.lc 2085:29-2085:31  forall a . List a
-testdata/SampleMaterial.lc 2086:31-2086:42  StageTexture
-testdata/SampleMaterial.lc 2087:34-2087:38  Bool
-testdata/SampleMaterial.lc 2088:33-2088:41  DepthFunction
-testdata/SampleMaterial.lc 2089:33-2089:40  forall a . Maybe a
-testdata/SampleMaterial.lc 2090:41-2090:46  Bool
-testdata/SampleMaterial.lc 2091:38-2091:54  String
-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
+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
+testdata/SampleMaterial.lc 2080:15-2089:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2090:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2092:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 2081:29-2081:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 2081:29-2081:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 2081:34-2081:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 2081:36-2081:46
+    Blending'
+testdata/SampleMaterial.lc 2081:49-2081:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 2082:30-2082:50
+    RGBGen
+testdata/SampleMaterial.lc 2083:32-2083:42
+    AlphaGen
+testdata/SampleMaterial.lc 2084:29-2084:40
+    TCGen
+testdata/SampleMaterial.lc 2085:29-2085:31
+    forall a . List a
+testdata/SampleMaterial.lc 2086:31-2086:42
+    StageTexture
+testdata/SampleMaterial.lc 2087:34-2087:38
+    Bool
+testdata/SampleMaterial.lc 2088:33-2088:41
+    DepthFunction
+testdata/SampleMaterial.lc 2089:33-2089:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 2090:41-2090:46
+    Bool
+testdata/SampleMaterial.lc 2091:38-2091:54
+    String
+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-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
-testdata/SampleMaterial.lc 2098:7-2106:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2098:7-2107:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2098:7-2108:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2098:7-2136:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2098:7-2138:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 2099:24-2099:26  ()
-testdata/SampleMaterial.lc 2100:24-2100:26  ()
-testdata/SampleMaterial.lc 2101:22-2101:27  Bool
-testdata/SampleMaterial.lc 2102:20-2102:21  _b
-testdata/SampleMaterial.lc 2103:30-2103:35  Bool
-testdata/SampleMaterial.lc 2104:23-2104:28  Bool
-testdata/SampleMaterial.lc 2105:20-2105:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 2098:7-2106:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2107:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2108:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2136:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2138:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 2099:24-2099:26
+    ()
+testdata/SampleMaterial.lc 2100:24-2100:26
+    ()
+testdata/SampleMaterial.lc 2101:22-2101:27
+    Bool
+testdata/SampleMaterial.lc 2102:20-2102:21
+    _b
+testdata/SampleMaterial.lc 2103:30-2103:35
+    Bool
+testdata/SampleMaterial.lc 2104:23-2104:28
+    Bool
+testdata/SampleMaterial.lc 2105:20-2105:33
+    CullType
+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-2111:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 2110:15-2113:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2110:15-2112:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 2110:15-2114:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2110:15-2113:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 2110:15-2115:31
+    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
-testdata/SampleMaterial.lc 2110:15-2119:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2110:15-2120:46  String -> StageAttrs
-testdata/SampleMaterial.lc 2110:15-2122:18  StageAttrs
-testdata/SampleMaterial.lc 2111:29-2111:36  forall a . Maybe a
-testdata/SampleMaterial.lc 2112:30-2112:50  RGBGen
-testdata/SampleMaterial.lc 2113:32-2113:42  AlphaGen
-testdata/SampleMaterial.lc 2114:29-2114:36  TCGen
-testdata/SampleMaterial.lc 2115:29-2115:31  forall a . List a
-testdata/SampleMaterial.lc 2116:31-2116:37  String -> StageTexture
-testdata/SampleMaterial.lc 2116:31-2116:81  StageTexture
-testdata/SampleMaterial.lc 2116:38-2116:81  String
-testdata/SampleMaterial.lc 2117:34-2117:38  Bool
-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
+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
+testdata/SampleMaterial.lc 2110:15-2119:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2120:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2122:18
+    StageAttrs
+testdata/SampleMaterial.lc 2111:29-2111:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 2112:30-2112:50
+    RGBGen
+testdata/SampleMaterial.lc 2113:32-2113:42
+    AlphaGen
+testdata/SampleMaterial.lc 2114:29-2114:36
+    TCGen
+testdata/SampleMaterial.lc 2115:29-2115:31
+    forall a . List a
+testdata/SampleMaterial.lc 2116:31-2116:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 2116:31-2116:81
+    StageTexture
+testdata/SampleMaterial.lc 2116:38-2116:81
+    String
+testdata/SampleMaterial.lc 2117:34-2117:38
+    Bool
+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-2124:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 2123:15-2126:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2123:15-2125:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 2123:15-2127:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2123:15-2126:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 2123:15-2128:31
+    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
-testdata/SampleMaterial.lc 2123:15-2132:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2123:15-2133:46  String -> StageAttrs
-testdata/SampleMaterial.lc 2123:15-2135:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 2124:29-2124:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 2124:29-2124:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 2124:34-2124:57  (Blending', Blending')
-testdata/SampleMaterial.lc 2124:36-2124:46  Blending'
-testdata/SampleMaterial.lc 2124:49-2124:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 2125:30-2125:50  RGBGen
-testdata/SampleMaterial.lc 2126:32-2126:42  AlphaGen
-testdata/SampleMaterial.lc 2127:29-2127:40  TCGen
-testdata/SampleMaterial.lc 2128:29-2128:31  forall a . List a
-testdata/SampleMaterial.lc 2129:31-2129:42  StageTexture
-testdata/SampleMaterial.lc 2130:34-2130:38  Bool
-testdata/SampleMaterial.lc 2131:33-2131:41  DepthFunction
-testdata/SampleMaterial.lc 2132:33-2132:40  forall a . Maybe a
-testdata/SampleMaterial.lc 2133:41-2133:46  Bool
-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
+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
+testdata/SampleMaterial.lc 2123:15-2132:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2133:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2135:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 2124:29-2124:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 2124:29-2124:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 2124:34-2124:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 2124:36-2124:46
+    Blending'
+testdata/SampleMaterial.lc 2124:49-2124:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 2125:30-2125:50
+    RGBGen
+testdata/SampleMaterial.lc 2126:32-2126:42
+    AlphaGen
+testdata/SampleMaterial.lc 2127:29-2127:40
+    TCGen
+testdata/SampleMaterial.lc 2128:29-2128:31
+    forall a . List a
+testdata/SampleMaterial.lc 2129:31-2129:42
+    StageTexture
+testdata/SampleMaterial.lc 2130:34-2130:38
+    Bool
+testdata/SampleMaterial.lc 2131:33-2131:41
+    DepthFunction
+testdata/SampleMaterial.lc 2132:33-2132:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 2133:41-2133:46
+    Bool
+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-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
-testdata/SampleMaterial.lc 2141:7-2149:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2141:7-2150:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2141:7-2151:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2141:7-2179:14  Bool -> CommonAttrs
-testdata/SampleMaterial.lc 2141:7-2181:10  ((CommonAttrs)) | CommonAttrs
-testdata/SampleMaterial.lc 2142:24-2142:26  ()
-testdata/SampleMaterial.lc 2143:24-2143:26  ()
-testdata/SampleMaterial.lc 2144:22-2144:27  Bool
-testdata/SampleMaterial.lc 2145:20-2145:21  _b
-testdata/SampleMaterial.lc 2146:30-2146:35  Bool
-testdata/SampleMaterial.lc 2147:23-2147:28  Bool
-testdata/SampleMaterial.lc 2148:20-2148:33  CullType
-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
+            -> 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
+testdata/SampleMaterial.lc 2141:7-2149:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2150:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2151:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2179:14
+    Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2181:10
+    CommonAttrs | ((CommonAttrs))
+testdata/SampleMaterial.lc 2142:24-2142:26
+    ()
+testdata/SampleMaterial.lc 2143:24-2143:26
+    ()
+testdata/SampleMaterial.lc 2144:22-2144:27
+    Bool
+testdata/SampleMaterial.lc 2145:20-2145:21
+    _b
+testdata/SampleMaterial.lc 2146:30-2146:35
+    Bool
+testdata/SampleMaterial.lc 2147:23-2147:28
+    Bool
+testdata/SampleMaterial.lc 2148:20-2148:33
+    CullType
+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-2154:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 2153:15-2156:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2153:15-2155:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 2153:15-2157:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2153:15-2156:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 2153:15-2158:31
+    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
-testdata/SampleMaterial.lc 2153:15-2162:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2153:15-2163:46  String -> StageAttrs
-testdata/SampleMaterial.lc 2153:15-2165:18  StageAttrs
-testdata/SampleMaterial.lc 2154:29-2154:36  forall a . Maybe a
-testdata/SampleMaterial.lc 2155:30-2155:50  RGBGen
-testdata/SampleMaterial.lc 2156:32-2156:42  AlphaGen
-testdata/SampleMaterial.lc 2157:29-2157:36  TCGen
-testdata/SampleMaterial.lc 2158:29-2158:31  forall a . List a
-testdata/SampleMaterial.lc 2159:31-2159:37  String -> StageTexture
-testdata/SampleMaterial.lc 2159:31-2159:81  StageTexture
-testdata/SampleMaterial.lc 2159:38-2159:81  String
-testdata/SampleMaterial.lc 2160:34-2160:38  Bool
-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
+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
+testdata/SampleMaterial.lc 2153:15-2162:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2163:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2165:18
+    StageAttrs
+testdata/SampleMaterial.lc 2154:29-2154:36
+    forall a . Maybe a
+testdata/SampleMaterial.lc 2155:30-2155:50
+    RGBGen
+testdata/SampleMaterial.lc 2156:32-2156:42
+    AlphaGen
+testdata/SampleMaterial.lc 2157:29-2157:36
+    TCGen
+testdata/SampleMaterial.lc 2158:29-2158:31
+    forall a . List a
+testdata/SampleMaterial.lc 2159:31-2159:37
+    String -> StageTexture
+testdata/SampleMaterial.lc 2159:31-2159:81
+    StageTexture
+testdata/SampleMaterial.lc 2159:38-2159:81
+    String
+testdata/SampleMaterial.lc 2160:34-2160:38
+    Bool
+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-2167:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+testdata/SampleMaterial.lc 2166:15-2169:42
+    TCGen
       -> List TCMod
         -> StageTexture
           -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2166:15-2168:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/SampleMaterial.lc 2166:15-2170:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2166:15-2169:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/SampleMaterial.lc 2166:15-2171:31
+    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
-testdata/SampleMaterial.lc 2166:15-2175:40  Bool -> String -> StageAttrs
-testdata/SampleMaterial.lc 2166:15-2176:46  String -> StageAttrs
-testdata/SampleMaterial.lc 2166:15-2178:18  List StageAttrs | StageAttrs
-testdata/SampleMaterial.lc 2167:29-2167:33  forall a . a -> Maybe a
-testdata/SampleMaterial.lc 2167:29-2167:57  Maybe (Blending', Blending')
-testdata/SampleMaterial.lc 2167:34-2167:57  (Blending', Blending')
-testdata/SampleMaterial.lc 2167:36-2167:46  Blending'
-testdata/SampleMaterial.lc 2167:49-2167:55  ((Blending')) | Blending'
-testdata/SampleMaterial.lc 2168:30-2168:50  RGBGen
-testdata/SampleMaterial.lc 2169:32-2169:42  AlphaGen
-testdata/SampleMaterial.lc 2170:29-2170:40  TCGen
-testdata/SampleMaterial.lc 2171:29-2171:31  forall a . List a
-testdata/SampleMaterial.lc 2172:31-2172:42  StageTexture
-testdata/SampleMaterial.lc 2173:34-2173:38  Bool
-testdata/SampleMaterial.lc 2174:33-2174:41  DepthFunction
-testdata/SampleMaterial.lc 2175:33-2175:40  forall a . Maybe a
-testdata/SampleMaterial.lc 2176:41-2176:46  Bool
-testdata/SampleMaterial.lc 2177:38-2177:54  String
-testdata/SampleMaterial.lc 2180:21-2180:26  Bool
+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
+testdata/SampleMaterial.lc 2166:15-2175:40
+    Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2176:46
+    String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2178:18
+    StageAttrs | List StageAttrs
+testdata/SampleMaterial.lc 2167:29-2167:33
+    forall a . a -> Maybe a
+testdata/SampleMaterial.lc 2167:29-2167:57
+    Maybe (Blending', Blending')
+testdata/SampleMaterial.lc 2167:34-2167:57
+    (Blending', Blending')
+testdata/SampleMaterial.lc 2167:36-2167:46
+    Blending'
+testdata/SampleMaterial.lc 2167:49-2167:55
+    Blending' | ((Blending'))
+testdata/SampleMaterial.lc 2168:30-2168:50
+    RGBGen
+testdata/SampleMaterial.lc 2169:32-2169:42
+    AlphaGen
+testdata/SampleMaterial.lc 2170:29-2170:40
+    TCGen
+testdata/SampleMaterial.lc 2171:29-2171:31
+    forall a . List a
+testdata/SampleMaterial.lc 2172:31-2172:42
+    StageTexture
+testdata/SampleMaterial.lc 2173:34-2173:38
+    Bool
+testdata/SampleMaterial.lc 2174:33-2174:41
+    DepthFunction
+testdata/SampleMaterial.lc 2175:33-2175:40
+    forall a . Maybe a
+testdata/SampleMaterial.lc 2176:41-2176:46
+    Bool
+testdata/SampleMaterial.lc 2177:38-2177:54
+    String
+testdata/SampleMaterial.lc 2180:21-2180:26
+    Bool
\ No newline at end of file
diff --git a/testdata/adhoc.reject.out b/testdata/adhoc.reject.out
index 8e226745..8bfe623e 100644
--- a/testdata/adhoc.reject.out
+++ b/testdata/adhoc.reject.out
@@ -3,21 +3,30 @@ in testdata/adhoc.reject.lc:4:5:
 x = one :: Vec 4 A
     ^^^
 ------------ trace
-'A :: Type
-A :: A
-'ACase :: forall (a :: A -> Type) -> a 'A -> forall (b :: A) -> a b
-match'A :: forall (a :: Type -> Type) -> a A -> forall b -> a b -> a b
+'A :: Type
+A :: A
+'ACase :: forall (a :: A -> Type) -> a 'A -> forall (b :: A) -> a b
+match'A :: forall (a :: Type -> Type) -> a A -> forall b -> a b -> a b
 !type error: no instance of 'Component on ???
 in testdata/adhoc.reject.lc:4:5:
 x = one :: Vec 4 A
     ^^^
 ------------ tooltips
-testdata/adhoc.reject.lc 2:6-2:7  Type
-testdata/adhoc.reject.lc 2:6-2:11  Type
-testdata/adhoc.reject.lc 2:10-2:11  A
-testdata/adhoc.reject.lc 4:5-4:8  forall a . Component a => a
-testdata/adhoc.reject.lc 4:12-4:15  Nat -> Type -> Type
-testdata/adhoc.reject.lc 4:12-4:17  Type -> Type
-testdata/adhoc.reject.lc 4:12-4:19  Type
-testdata/adhoc.reject.lc 4:16-4:17  _b
-testdata/adhoc.reject.lc 4:18-4:19  Type
+testdata/adhoc.reject.lc 2:6-2:7
+    Type | Type | Type | Type | Type
+testdata/adhoc.reject.lc 2:6-2:11
+    Type
+testdata/adhoc.reject.lc 2:10-2:11
+    A
+testdata/adhoc.reject.lc 4:5-4:8
+    forall a . Component a => a
+testdata/adhoc.reject.lc 4:12-4:15
+    Nat -> Type -> Type
+testdata/adhoc.reject.lc 4:12-4:17
+    Type -> Type
+testdata/adhoc.reject.lc 4:12-4:19
+    Type
+testdata/adhoc.reject.lc 4:16-4:17
+    _b
+testdata/adhoc.reject.lc 4:18-4:19
+    Type
\ No newline at end of file
diff --git a/testdata/ambig.out b/testdata/ambig.out
index ca10ff27..371868e6 100644
--- a/testdata/ambig.out
+++ b/testdata/ambig.out
@@ -13,13 +13,21 @@ h
           b)) -> c
 main is not found
 ------------ trace
-h :: forall a b c d . (b -> d -> c) -> (b, d) -> a -> c
+h :: forall a b c d . (b -> d -> c) -> (b, d) -> a -> c
 ------------ tooltips
-testdata/ambig.lc 4:1-4:2  forall a b c d . (b -> d -> c) -> (b, d) -> a -> c
-testdata/ambig.lc 4:11-4:12  _c
-testdata/ambig.lc 7:9-7:29  _b
-testdata/ambig.lc 7:21-7:22  _s
-testdata/ambig.lc 7:21-7:26  HList _c -> _b | _c | _c -> HList _b -> _a | _d
-testdata/ambig.lc 7:23-7:24  _n
-testdata/ambig.lc 7:25-7:26  _j
-testdata/ambig.lc 7:28-7:29  _g
+testdata/ambig.lc 4:1-4:2
+    forall a b c d . (b -> d -> c) -> (b, d) -> a -> c
+testdata/ambig.lc 4:11-4:12
+    _c
+testdata/ambig.lc 7:9-7:29
+    _b
+testdata/ambig.lc 7:21-7:22
+    _s
+testdata/ambig.lc 7:21-7:26
+    _c | _d
+testdata/ambig.lc 7:23-7:24
+    _n
+testdata/ambig.lc 7:25-7:26
+    _j
+testdata/ambig.lc 7:28-7:29
+    _g
\ No newline at end of file
diff --git a/testdata/complex.out b/testdata/complex.out
index 4c7e0d46..dc454acf 100644
--- a/testdata/complex.out
+++ b/testdata/complex.out
@@ -91,392 +91,755 @@ iter = _rhs s4
 mandel = \(a :: _) -> _rhs (cabs (iter a) < 2.0)
 main is not found
 ------------ trace
-'Repr :: Type
-Normal :: Repr
-Polar :: Repr
+'Repr :: Type
+Normal :: Repr
+Polar :: Repr
 '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
+  :: 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 (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
+        . 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
-cabs :: forall (a :: Repr) . Complex a -> Float
-toPolar :: Complex 'Normal -> Complex 'Polar
-toNormal :: Complex 'Polar -> Complex 'Normal
-it_should_fail :: forall (a :: Repr) . Complex a -> Float
-add :: forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
-mul :: forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
-s :: forall (a :: Repr) . Complex a -> Complex a
-s4 :: forall (a :: Repr) . Complex a -> Complex a
-iter :: forall (a :: Repr) . Complex a -> Complex a
-mandel :: forall (a :: Repr) . Complex a -> VecScalar 1 Bool
+  :: 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
+cabs :: forall (a :: Repr) . Complex a -> Float
+toPolar :: Complex 'Normal -> Complex 'Polar
+toNormal :: Complex 'Polar -> Complex 'Normal
+it_should_fail :: forall (a :: Repr) . Complex a -> Float
+add :: forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
+mul :: forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
+s :: forall (a :: Repr) . Complex a -> Complex a
+s4 :: forall (a :: Repr) . Complex a -> Complex a
+iter :: forall (a :: Repr) . Complex a -> Complex a
+mandel :: forall (a :: Repr) . Complex a -> VecScalar 1 Bool
 ------------ tooltips
-testdata/complex.lc 3:6-3:10  Type
-testdata/complex.lc 3:6-3:27  Type
-testdata/complex.lc 3:13-3:19  Repr
-testdata/complex.lc 3:22-3:27  Repr
-testdata/complex.lc 5:6-5:13  Repr -> Type | Type
-testdata/complex.lc 5:6-6:52  Type
-testdata/complex.lc 5:17-5:21  Type
-testdata/complex.lc 5:25-5:29  Type
-testdata/complex.lc 6:3-6:10  Complex _c | forall (a :: Repr) . Float -> Float -> Complex a
-testdata/complex.lc 6:3-6:52  Type
-testdata/complex.lc 6:25-6:30  Type
-testdata/complex.lc 6:25-6:52  Type
-testdata/complex.lc 6:34-6:39  Type
-testdata/complex.lc 6:34-6:52  Type
-testdata/complex.lc 6:43-6:50  Repr -> Type
-testdata/complex.lc 6:43-6:52  Type
-testdata/complex.lc 6:51-6:52  Repr | _d
-testdata/complex.lc 8:20-8:27  Repr -> Type
-testdata/complex.lc 8:20-8:29  Type
-testdata/complex.lc 8:20-8:37  Type
-testdata/complex.lc 8:28-8:29  _b
-testdata/complex.lc 8:33-8:37  Type
-testdata/complex.lc 9:1-9:5  forall (a :: Repr) . Complex a -> Repr
-testdata/complex.lc 9:13-9:14  Complex _a -> Repr | Repr | forall (a :: Repr) . Complex a -> Repr
-testdata/complex.lc 11:11-11:16  Type
-testdata/complex.lc 11:20-11:25  Type
-testdata/complex.lc 11:20-11:43  Type
-testdata/complex.lc 11:29-11:36  Repr -> Type
-testdata/complex.lc 11:29-11:43  Type
-testdata/complex.lc 11:37-11:43  Repr
-testdata/complex.lc 12:1-12:7  Float -> Float -> Complex 'Normal
-testdata/complex.lc 12:14-12:21  forall (a :: Repr) . Float -> Float -> Complex a
-testdata/complex.lc 12:14-12:23  Float -> Complex _a
-testdata/complex.lc 12:14-12:25  Complex 'Normal | Float -> Complex 'Normal | Float -> Float -> Complex 'Normal
-testdata/complex.lc 12:22-12:23  Float
-testdata/complex.lc 12:24-12:25  Float
-testdata/complex.lc 14:10-14:15  Type
-testdata/complex.lc 14:19-14:24  Type
-testdata/complex.lc 14:19-14:41  Type
-testdata/complex.lc 14:28-14:35  Repr -> Type
-testdata/complex.lc 14:28-14:41  Type
-testdata/complex.lc 14:36-14:41  Repr
-testdata/complex.lc 15:1-15:6  Float -> Float -> Complex 'Polar
-testdata/complex.lc 15:13-15:20  forall (a :: Repr) . Float -> Float -> Complex a
-testdata/complex.lc 15:13-15:22  Float -> Complex _a
-testdata/complex.lc 15:13-15:24  Complex 'Polar | Float -> Complex 'Polar | Float -> Float -> Complex 'Polar
-testdata/complex.lc 15:21-15:22  Float
-testdata/complex.lc 15:23-15:24  Float
-testdata/complex.lc 18:20-18:27  Repr -> Type
-testdata/complex.lc 18:20-18:29  Type
-testdata/complex.lc 18:20-18:38  Type
-testdata/complex.lc 18:28-18:29  _b
-testdata/complex.lc 18:33-18:38  Type
-testdata/complex.lc 19:1-19:5  forall (a :: Repr) . Complex a -> Float
-testdata/complex.lc 19:34-19:38  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/complex.lc 19:34-19:50  Float | Float -> Float -> _b | Float -> _c | VecScalar 1 Float
-testdata/complex.lc 19:34-20:35  Complex _a -> Float | Float | Repr -> Float | forall (a :: Repr) . Complex a -> Float
-testdata/complex.lc 19:40-19:41  Float
-testdata/complex.lc 19:40-19:42  Float -> Float
-testdata/complex.lc 19:40-19:43  Float
-testdata/complex.lc 19:40-19:45  Float -> Float
-testdata/complex.lc 19:40-19:49  Float
-testdata/complex.lc 19:41-19:42  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 19:42-19:43  Float
-testdata/complex.lc 19:44-19:45  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 19:46-19:47  Float
-testdata/complex.lc 19:46-19:48  Float -> Float
-testdata/complex.lc 19:46-19:49  Float
-testdata/complex.lc 19:47-19:48  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 19:48-19:49  Float
-testdata/complex.lc 20:34-20:35  Float | Float -> Float -> _b | Float -> _c
-testdata/complex.lc 22:12-22:19  Repr -> Type
-testdata/complex.lc 22:12-22:26  Type
-testdata/complex.lc 22:20-22:26  Repr
-testdata/complex.lc 22:30-22:37  Repr -> Type
-testdata/complex.lc 22:30-22:43  Type
-testdata/complex.lc 22:38-22:43  Repr
-testdata/complex.lc 23:1-23:8  Complex 'Normal -> Complex 'Polar
-testdata/complex.lc 24:8-29:17  Complex 'Polar
-testdata/complex.lc 24:8-31:25  Complex 'Normal -> Complex 'Polar | Complex 'Polar | Float -> Float -> _b | Float -> _c
-testdata/complex.lc 24:11-24:12  Float
-testdata/complex.lc 24:11-24:14  VecScalar 1 Float -> VecScalar 1 Bool
-testdata/complex.lc 24:11-24:19  VecScalar 1 Bool
-testdata/complex.lc 24:11-24:59  Complex 'Polar -> Complex 'Polar
-testdata/complex.lc 24:13-24:14  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/complex.lc 24:16-24:19  Float
-testdata/complex.lc 24:37-24:42  Float -> Float -> Complex 'Polar
-testdata/complex.lc 24:37-24:44  Float -> Complex 'Polar
-testdata/complex.lc 24:37-24:59  Complex 'Polar
-testdata/complex.lc 24:43-24:44  VecScalar 1 Float
-testdata/complex.lc 24:46-24:50  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/complex.lc 24:46-24:58  VecScalar 1 Float
-testdata/complex.lc 24:52-24:53  Float
-testdata/complex.lc 24:52-24:55  VecScalar 1 Float -> VecScalar 1 Float
-testdata/complex.lc 24:52-24:57  VecScalar 1 Float
-testdata/complex.lc 24:54-24:55  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/complex.lc 24:56-24:57  Float
-testdata/complex.lc 25:8-29:17  Complex 'Polar
-testdata/complex.lc 25:11-25:12  Float
-testdata/complex.lc 25:11-25:14  VecScalar 1 Float -> VecScalar 1 Bool
-testdata/complex.lc 25:11-25:19  VecScalar 1 Bool
-testdata/complex.lc 25:11-25:22  Bool -> Bool
-testdata/complex.lc 25:11-25:31  Bool
-testdata/complex.lc 25:11-25:64  Complex 'Polar -> Complex 'Polar
-testdata/complex.lc 25:13-25:14  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/complex.lc 25:16-25:19  Float
-testdata/complex.lc 25:20-25:22  Bool -> Bool -> Bool
-testdata/complex.lc 25:23-25:24  Float
-testdata/complex.lc 25:23-25:27  VecScalar 1 Float -> VecScalar 1 Bool
-testdata/complex.lc 25:23-25:31  VecScalar 1 Bool
-testdata/complex.lc 25:25-25:27  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/complex.lc 25:28-25:31  Float
-testdata/complex.lc 25:37-25:42  Float -> Float -> Complex 'Polar
-testdata/complex.lc 25:37-25:44  Float -> Complex 'Polar
-testdata/complex.lc 25:37-25:64  Complex 'Polar
-testdata/complex.lc 25:43-25:44  VecScalar 1 Float
-testdata/complex.lc 25:46-25:50  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/complex.lc 25:46-25:58  VecScalar 1 Float
-testdata/complex.lc 25:46-25:60  Float -> Float
-testdata/complex.lc 25:46-25:63  Float
-testdata/complex.lc 25:52-25:53  Float
-testdata/complex.lc 25:52-25:55  VecScalar 1 Float -> VecScalar 1 Float
-testdata/complex.lc 25:52-25:57  VecScalar 1 Float
-testdata/complex.lc 25:54-25:55  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/complex.lc 25:56-25:57  Float
-testdata/complex.lc 25:59-25:60  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 25:61-25:63  Float
-testdata/complex.lc 26:8-29:17  Complex 'Polar
-testdata/complex.lc 26:11-26:12  Float
-testdata/complex.lc 26:11-26:14  VecScalar 1 Float -> VecScalar 1 Bool
-testdata/complex.lc 26:11-26:19  VecScalar 1 Bool
-testdata/complex.lc 26:11-26:22  Bool -> Bool
-testdata/complex.lc 26:11-26:31  Bool
-testdata/complex.lc 26:11-26:64  Complex 'Polar -> Complex 'Polar
-testdata/complex.lc 26:13-26:14  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/complex.lc 26:16-26:19  Float
-testdata/complex.lc 26:20-26:22  Bool -> Bool -> Bool
-testdata/complex.lc 26:23-26:24  Float
-testdata/complex.lc 26:23-26:26  VecScalar 1 Float -> VecScalar 1 Bool
-testdata/complex.lc 26:23-26:31  VecScalar 1 Bool
-testdata/complex.lc 26:25-26:26  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/complex.lc 26:28-26:31  Float
-testdata/complex.lc 26:37-26:42  Float -> Float -> Complex 'Polar
-testdata/complex.lc 26:37-26:44  Float -> Complex 'Polar
-testdata/complex.lc 26:37-26:64  Complex 'Polar
-testdata/complex.lc 26:43-26:44  VecScalar 1 Float
-testdata/complex.lc 26:46-26:50  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/complex.lc 26:46-26:58  VecScalar 1 Float
-testdata/complex.lc 26:46-26:60  Float -> Float
-testdata/complex.lc 26:46-26:63  Float
-testdata/complex.lc 26:52-26:53  Float
-testdata/complex.lc 26:52-26:55  VecScalar 1 Float -> VecScalar 1 Float
-testdata/complex.lc 26:52-26:57  VecScalar 1 Float
-testdata/complex.lc 26:54-26:55  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/complex.lc 26:56-26:57  Float
-testdata/complex.lc 26:59-26:60  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 26:61-26:63  Float
-testdata/complex.lc 27:8-29:17  Complex 'Polar
-testdata/complex.lc 27:11-27:12  Float
-testdata/complex.lc 27:11-27:15  Float -> Bool
-testdata/complex.lc 27:11-27:19  Bool
-testdata/complex.lc 27:11-27:22  Bool -> Bool
-testdata/complex.lc 27:11-27:31  Bool
-testdata/complex.lc 27:11-27:56  Complex 'Polar -> Complex 'Polar
-testdata/complex.lc 27:13-27:15  forall a . Eq a => a -> a -> Bool
-testdata/complex.lc 27:16-27:19  Float
-testdata/complex.lc 27:20-27:22  Bool -> Bool -> Bool
-testdata/complex.lc 27:23-27:24  Float
-testdata/complex.lc 27:23-27:27  VecScalar 1 Float -> VecScalar 1 Bool
-testdata/complex.lc 27:23-27:31  VecScalar 1 Bool
-testdata/complex.lc 27:25-27:27  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/complex.lc 27:28-27:31  Float
-testdata/complex.lc 27:37-27:42  Float -> Float -> Complex 'Polar
-testdata/complex.lc 27:37-27:44  Float -> Complex 'Polar
-testdata/complex.lc 27:37-27:56  Complex 'Polar
-testdata/complex.lc 27:43-27:44  VecScalar 1 Float
-testdata/complex.lc 27:47-27:49  Float
-testdata/complex.lc 27:47-27:51  VecScalar 1 Float -> VecScalar 1 Float
-testdata/complex.lc 27:47-27:55  VecScalar 1 Float
-testdata/complex.lc 27:50-27:51  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/complex.lc 27:52-27:55  Float
-testdata/complex.lc 28:8-29:17  Complex 'Polar
-testdata/complex.lc 28:11-28:12  Float
-testdata/complex.lc 28:11-28:15  Float -> Bool
-testdata/complex.lc 28:11-28:19  Bool
-testdata/complex.lc 28:11-28:22  Bool -> Bool
-testdata/complex.lc 28:11-28:31  Bool
-testdata/complex.lc 28:11-28:56  Complex 'Polar -> Complex 'Polar
-testdata/complex.lc 28:13-28:15  forall a . Eq a => a -> a -> Bool
-testdata/complex.lc 28:16-28:19  Float
-testdata/complex.lc 28:20-28:22  Bool -> Bool -> Bool
-testdata/complex.lc 28:23-28:24  Float
-testdata/complex.lc 28:23-28:26  VecScalar 1 Float -> VecScalar 1 Bool
-testdata/complex.lc 28:23-28:31  VecScalar 1 Bool
-testdata/complex.lc 28:25-28:26  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/complex.lc 28:28-28:31  Float
-testdata/complex.lc 28:37-28:42  Float -> Float -> Complex 'Polar
-testdata/complex.lc 28:37-28:44  Float -> Complex 'Polar
-testdata/complex.lc 28:37-28:56  Complex 'Polar
-testdata/complex.lc 28:43-28:44  VecScalar 1 Float
-testdata/complex.lc 28:46-28:47  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 28:46-28:55  Float
-testdata/complex.lc 28:47-28:49  Float
-testdata/complex.lc 28:47-28:51  VecScalar 1 Float -> VecScalar 1 Float
-testdata/complex.lc 28:47-28:55  VecScalar 1 Float
-testdata/complex.lc 28:50-28:51  forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/complex.lc 28:52-28:55  Float
-testdata/complex.lc 29:8-29:17  forall a . a
-testdata/complex.lc 31:9-31:13  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/complex.lc 31:9-31:25  VecScalar 1 Float
-testdata/complex.lc 31:15-31:16  Float
-testdata/complex.lc 31:15-31:17  Float -> Float
-testdata/complex.lc 31:15-31:18  Float
-testdata/complex.lc 31:15-31:20  Float -> Float
-testdata/complex.lc 31:15-31:24  Float
-testdata/complex.lc 31:16-31:17  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 31:17-31:18  Float
-testdata/complex.lc 31:19-31:20  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 31:21-31:22  Float
-testdata/complex.lc 31:21-31:23  Float -> Float
-testdata/complex.lc 31:21-31:24  Float
-testdata/complex.lc 31:22-31:23  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 31:23-31:24  Float
-testdata/complex.lc 64:13-64:20  Repr -> Type
-testdata/complex.lc 64:13-64:26  Type
-testdata/complex.lc 64:21-64:26  Repr
-testdata/complex.lc 64:30-64:37  Repr -> Type
-testdata/complex.lc 64:30-64:44  Type
-testdata/complex.lc 64:38-64:44  Repr
-testdata/complex.lc 65:1-65:9  Complex 'Polar -> Complex 'Normal
-testdata/complex.lc 65:28-65:35  forall (a :: Repr) . Float -> Float -> Complex a
-testdata/complex.lc 65:28-65:49  Float -> Complex _a
-testdata/complex.lc 65:28-65:63  Complex 'Polar -> Complex 'Normal | Complex _a | Float -> Float -> _b | Float -> _c
-testdata/complex.lc 65:37-65:38  Float
-testdata/complex.lc 65:37-65:40  Float -> Float
-testdata/complex.lc 65:37-65:48  Float
-testdata/complex.lc 65:39-65:40  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 65:41-65:44  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/complex.lc 65:41-65:48  VecScalar 1 Float
-testdata/complex.lc 65:45-65:48  Float
-testdata/complex.lc 65:51-65:52  Float
-testdata/complex.lc 65:51-65:54  Float -> Float
-testdata/complex.lc 65:51-65:62  Float
-testdata/complex.lc 65:53-65:54  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 65:55-65:58  forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
-testdata/complex.lc 65:55-65:62  VecScalar 1 Float
-testdata/complex.lc 65:59-65:62  Float
-testdata/complex.lc 111:1-111:15  forall (a :: Repr) . Complex a -> Float
-testdata/complex.lc 111:38-111:39  Float | Float -> Float -> _b | Float -> _c
-testdata/complex.lc 113:20-113:70  Type
-testdata/complex.lc 113:32-113:39  Repr -> Type
-testdata/complex.lc 113:32-113:42  Type
-testdata/complex.lc 113:32-113:70  Type
-testdata/complex.lc 113:40-113:42  _d
-testdata/complex.lc 113:46-113:53  Repr -> Type
-testdata/complex.lc 113:46-113:56  Type
-testdata/complex.lc 113:46-113:70  Type
-testdata/complex.lc 113:54-113:56  _c
-testdata/complex.lc 113:60-113:67  Repr -> Type
-testdata/complex.lc 113:60-113:70  Type
-testdata/complex.lc 113:68-113:70  Repr
-testdata/complex.lc 114:1-114:4  forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
-testdata/complex.lc 114:53-114:60  forall (a :: Repr) . Float -> Float -> Complex a
-testdata/complex.lc 114:53-114:68  Float -> Complex _a
-testdata/complex.lc 114:53-114:76  Complex _a | Complex _b -> Complex _a -> Complex _b | Complex _b -> Complex _c | Complex _d | Float -> Float -> _b | Float -> _c | forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a | forall (a :: Repr) . Complex _a -> Complex a -> Complex _a
-testdata/complex.lc 114:62-114:63  Float
-testdata/complex.lc 114:62-114:65  Float -> Float
-testdata/complex.lc 114:62-114:67  Float
-testdata/complex.lc 114:64-114:65  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 114:66-114:67  Float
-testdata/complex.lc 114:70-114:71  Float
-testdata/complex.lc 114:70-114:73  Float -> Float
-testdata/complex.lc 114:70-114:75  Float
-testdata/complex.lc 114:72-114:73  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 114:74-114:75  Float
-testdata/complex.lc 128:23-128:30  Repr -> Type
-testdata/complex.lc 128:23-128:33  Type
-testdata/complex.lc 128:23-128:61  Type
-testdata/complex.lc 128:31-128:33  _d
-testdata/complex.lc 128:37-128:44  Repr -> Type
-testdata/complex.lc 128:37-128:47  Type
-testdata/complex.lc 128:37-128:61  Type
-testdata/complex.lc 128:45-128:47  _c
-testdata/complex.lc 128:51-128:58  Repr -> Type
-testdata/complex.lc 128:51-128:61  Type
-testdata/complex.lc 128:59-128:61  Repr
-testdata/complex.lc 129:1-129:4  forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
-testdata/complex.lc 129:53-129:60  forall (a :: Repr) . Float -> Float -> Complex a
-testdata/complex.lc 129:53-129:72  Float -> Complex _a
-testdata/complex.lc 129:53-129:84  Complex _a | Complex _b -> Complex _a -> Complex _b | Complex _b -> Complex _c | Complex _d | Float -> Float -> _b | Float -> _c | forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a | forall (a :: Repr) . Complex _a -> Complex a -> Complex _a
-testdata/complex.lc 129:62-129:63  Float
-testdata/complex.lc 129:62-129:64  Float -> Float
-testdata/complex.lc 129:62-129:65  Float
-testdata/complex.lc 129:62-129:67  Float -> Float
-testdata/complex.lc 129:62-129:71  Float
-testdata/complex.lc 129:63-129:64  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 129:64-129:65  Float
-testdata/complex.lc 129:66-129:67  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 129:68-129:69  Float
-testdata/complex.lc 129:68-129:70  Float -> Float
-testdata/complex.lc 129:68-129:71  Float
-testdata/complex.lc 129:69-129:70  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 129:70-129:71  Float
-testdata/complex.lc 129:74-129:75  Float
-testdata/complex.lc 129:74-129:76  Float -> Float
-testdata/complex.lc 129:74-129:77  Float
-testdata/complex.lc 129:74-129:79  Float -> Float
-testdata/complex.lc 129:74-129:83  Float
-testdata/complex.lc 129:75-129:76  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 129:76-129:77  Float
-testdata/complex.lc 129:78-129:79  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 129:80-129:81  Float
-testdata/complex.lc 129:80-129:82  Float -> Float
-testdata/complex.lc 129:80-129:83  Float
-testdata/complex.lc 129:81-129:82  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/complex.lc 129:82-129:83  Float
-testdata/complex.lc 137:6-137:13  Repr -> Type
-testdata/complex.lc 137:6-137:15  Type
-testdata/complex.lc 137:6-137:28  Type
-testdata/complex.lc 137:14-137:15  _b
-testdata/complex.lc 137:19-137:26  Repr -> Type
-testdata/complex.lc 137:19-137:28  Type
-testdata/complex.lc 137:27-137:28  Repr
-testdata/complex.lc 138:1-138:2  forall (a :: Repr) . Complex a -> Complex a
-testdata/complex.lc 138:7-138:22  Complex _a -> Complex _c
-testdata/complex.lc 138:7-138:24  Complex _a -> Complex _a | Complex _b
-testdata/complex.lc 138:8-138:11  forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
-testdata/complex.lc 138:8-138:13  Complex _a -> Complex _e
-testdata/complex.lc 138:8-138:15  Complex _c
-testdata/complex.lc 138:12-138:13  Complex _f
-testdata/complex.lc 138:14-138:15  Complex _d
-testdata/complex.lc 138:17-138:22  forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
-testdata/complex.lc 138:23-138:24  Complex _c
-testdata/complex.lc 141:1-141:3  forall (a :: Repr) . Complex a -> Complex a
-testdata/complex.lc 141:8-141:9  forall (a :: Repr) . Complex a -> Complex a
-testdata/complex.lc 141:8-141:23  Complex _a
-testdata/complex.lc 141:11-141:12  forall (a :: Repr) . Complex a -> Complex a
-testdata/complex.lc 141:11-141:22  Complex _a
-testdata/complex.lc 141:14-141:15  forall (a :: Repr) . Complex a -> Complex a
-testdata/complex.lc 141:14-141:21  Complex _a
-testdata/complex.lc 141:17-141:18  forall (a :: Repr) . Complex a -> Complex a
-testdata/complex.lc 141:17-141:20  Complex _a
-testdata/complex.lc 141:19-141:20  _f
-testdata/complex.lc 143:1-143:5  forall (a :: Repr) . Complex a -> Complex a
-testdata/complex.lc 143:8-143:10  forall (a :: Repr) . Complex a -> Complex a
-testdata/complex.lc 145:1-145:7  forall (a :: Repr) . Complex a -> VecScalar 1 Bool
-testdata/complex.lc 145:12-145:16  forall (a :: Repr) . Complex a -> Float
-testdata/complex.lc 145:12-145:25  Float
-testdata/complex.lc 145:12-145:27  VecScalar 1 Float -> VecScalar 1 Bool
-testdata/complex.lc 145:12-145:31  VecScalar 1 Bool
-testdata/complex.lc 145:18-145:22  forall (a :: Repr) . Complex a -> Complex a
-testdata/complex.lc 145:18-145:24  Complex _a
-testdata/complex.lc 145:23-145:24  _g
-testdata/complex.lc 145:26-145:27  forall (a :: Nat) b . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/complex.lc 145:28-145:31  Float
+testdata/complex.lc 3:6-3:10
+    Type | Type | Type | Type | Type | Type
+testdata/complex.lc 3:6-3:27
+    Type | Type
+testdata/complex.lc 3:13-3:19
+    Repr
+testdata/complex.lc 3:22-3:27
+    Repr
+testdata/complex.lc 5:6-5:13
+    Repr -> Type | Repr -> Type | Type | Repr -> Type | Type | Type
+testdata/complex.lc 5:6-6:52
+    Type
+testdata/complex.lc 5:17-5:21
+    Type
+testdata/complex.lc 5:25-5:29
+    Type | Type
+testdata/complex.lc 6:3-6:10
+    forall (a :: Repr) . Float -> Float -> Complex a | Complex _c
+testdata/complex.lc 6:3-6:52
+    Type | Type | Type | Type
+testdata/complex.lc 6:25-6:30
+    Type
+testdata/complex.lc 6:25-6:52
+    Type
+testdata/complex.lc 6:34-6:39
+    Type
+testdata/complex.lc 6:34-6:52
+    Type
+testdata/complex.lc 6:43-6:50
+    Repr -> Type
+testdata/complex.lc 6:43-6:52
+    Type | Type
+testdata/complex.lc 6:51-6:52
+    _d | Repr
+testdata/complex.lc 8:20-8:27
+    Repr -> Type
+testdata/complex.lc 8:20-8:29
+    Type
+testdata/complex.lc 8:20-8:37
+    Type
+testdata/complex.lc 8:28-8:29
+    _b
+testdata/complex.lc 8:33-8:37
+    Type | Type
+testdata/complex.lc 9:1-9:5
+    forall (a :: Repr) . Complex a -> Repr
+testdata/complex.lc 9:13-9:14
+    Repr
+testdata/complex.lc 11:11-11:16
+    Type
+testdata/complex.lc 11:20-11:25
+    Type
+testdata/complex.lc 11:20-11:43
+    Type
+testdata/complex.lc 11:29-11:36
+    Repr -> Type
+testdata/complex.lc 11:29-11:43
+    Type | Type
+testdata/complex.lc 11:37-11:43
+    Repr
+testdata/complex.lc 12:1-12:7
+    Float -> Float -> Complex 'Normal
+testdata/complex.lc 12:14-12:21
+    forall (a :: Repr) . Float -> Float -> Complex a
+testdata/complex.lc 12:14-12:23
+    Float -> Complex _a
+testdata/complex.lc 12:14-12:25
+    Complex 'Normal
+testdata/complex.lc 12:22-12:23
+    Float
+testdata/complex.lc 12:24-12:25
+    Float
+testdata/complex.lc 14:10-14:15
+    Type
+testdata/complex.lc 14:19-14:24
+    Type
+testdata/complex.lc 14:19-14:41
+    Type
+testdata/complex.lc 14:28-14:35
+    Repr -> Type
+testdata/complex.lc 14:28-14:41
+    Type | Type
+testdata/complex.lc 14:36-14:41
+    Repr
+testdata/complex.lc 15:1-15:6
+    Float -> Float -> Complex 'Polar
+testdata/complex.lc 15:13-15:20
+    forall (a :: Repr) . Float -> Float -> Complex a
+testdata/complex.lc 15:13-15:22
+    Float -> Complex _a
+testdata/complex.lc 15:13-15:24
+    Complex 'Polar
+testdata/complex.lc 15:21-15:22
+    Float
+testdata/complex.lc 15:23-15:24
+    Float
+testdata/complex.lc 18:20-18:27
+    Repr -> Type
+testdata/complex.lc 18:20-18:29
+    Type
+testdata/complex.lc 18:20-18:38
+    Type
+testdata/complex.lc 18:28-18:29
+    _b
+testdata/complex.lc 18:33-18:38
+    Type | Type
+testdata/complex.lc 19:1-19:5
+    forall (a :: Repr) . Complex a -> Float
+testdata/complex.lc 19:34-19:38
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/complex.lc 19:34-19:50
+    VecScalar 1 Float | Float
+testdata/complex.lc 19:34-20:35
+    Repr -> Float | Float
+testdata/complex.lc 19:40-19:41
+    Float
+testdata/complex.lc 19:40-19:42
+    Float -> Float
+testdata/complex.lc 19:40-19:43
+    Float
+testdata/complex.lc 19:40-19:45
+    Float -> Float
+testdata/complex.lc 19:40-19:49
+    Float
+testdata/complex.lc 19:41-19:42
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 19:42-19:43
+    Float
+testdata/complex.lc 19:44-19:45
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 19:46-19:47
+    Float
+testdata/complex.lc 19:46-19:48
+    Float -> Float
+testdata/complex.lc 19:46-19:49
+    Float
+testdata/complex.lc 19:47-19:48
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 19:48-19:49
+    Float
+testdata/complex.lc 20:34-20:35
+    Float | Float
+testdata/complex.lc 22:12-22:19
+    Repr -> Type
+testdata/complex.lc 22:12-22:26
+    Type
+testdata/complex.lc 22:20-22:26
+    Repr
+testdata/complex.lc 22:30-22:37
+    Repr -> Type
+testdata/complex.lc 22:30-22:43
+    Type | Type
+testdata/complex.lc 22:38-22:43
+    Repr
+testdata/complex.lc 23:1-23:8
+    Complex 'Normal -> Complex 'Polar
+testdata/complex.lc 24:8-29:17
+    Complex 'Polar
+testdata/complex.lc 24:8-31:25
+    Complex 'Polar
+testdata/complex.lc 24:11-24:12
+    Float
+testdata/complex.lc 24:11-24:14
+    VecScalar 1 Float -> VecScalar 1 Bool
+testdata/complex.lc 24:11-24:19
+    VecScalar 1 Bool
+testdata/complex.lc 24:11-24:59
+    Complex 'Polar -> Complex 'Polar
+testdata/complex.lc 24:13-24:14
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/complex.lc 24:16-24:19
+    Float
+testdata/complex.lc 24:37-24:42
+    Float -> Float -> Complex 'Polar
+testdata/complex.lc 24:37-24:44
+    Float -> Complex 'Polar
+testdata/complex.lc 24:37-24:59
+    Complex 'Polar
+testdata/complex.lc 24:43-24:44
+    VecScalar 1 Float
+testdata/complex.lc 24:46-24:50
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/complex.lc 24:46-24:58
+    VecScalar 1 Float
+testdata/complex.lc 24:52-24:53
+    Float
+testdata/complex.lc 24:52-24:55
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/complex.lc 24:52-24:57
+    VecScalar 1 Float
+testdata/complex.lc 24:54-24:55
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/complex.lc 24:56-24:57
+    Float
+testdata/complex.lc 25:8-29:17
+    Complex 'Polar
+testdata/complex.lc 25:11-25:12
+    Float
+testdata/complex.lc 25:11-25:14
+    VecScalar 1 Float -> VecScalar 1 Bool
+testdata/complex.lc 25:11-25:19
+    VecScalar 1 Bool
+testdata/complex.lc 25:11-25:22
+    Bool -> Bool
+testdata/complex.lc 25:11-25:31
+    Bool
+testdata/complex.lc 25:11-25:64
+    Complex 'Polar -> Complex 'Polar
+testdata/complex.lc 25:13-25:14
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/complex.lc 25:16-25:19
+    Float
+testdata/complex.lc 25:20-25:22
+    Bool -> Bool -> Bool
+testdata/complex.lc 25:23-25:24
+    Float
+testdata/complex.lc 25:23-25:27
+    VecScalar 1 Float -> VecScalar 1 Bool
+testdata/complex.lc 25:23-25:31
+    VecScalar 1 Bool
+testdata/complex.lc 25:25-25:27
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/complex.lc 25:28-25:31
+    Float
+testdata/complex.lc 25:37-25:42
+    Float -> Float -> Complex 'Polar
+testdata/complex.lc 25:37-25:44
+    Float -> Complex 'Polar
+testdata/complex.lc 25:37-25:64
+    Complex 'Polar
+testdata/complex.lc 25:43-25:44
+    VecScalar 1 Float
+testdata/complex.lc 25:46-25:50
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/complex.lc 25:46-25:58
+    VecScalar 1 Float
+testdata/complex.lc 25:46-25:60
+    Float -> Float
+testdata/complex.lc 25:46-25:63
+    Float
+testdata/complex.lc 25:52-25:53
+    Float
+testdata/complex.lc 25:52-25:55
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/complex.lc 25:52-25:57
+    VecScalar 1 Float
+testdata/complex.lc 25:54-25:55
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/complex.lc 25:56-25:57
+    Float
+testdata/complex.lc 25:59-25:60
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 25:61-25:63
+    Float
+testdata/complex.lc 26:8-29:17
+    Complex 'Polar
+testdata/complex.lc 26:11-26:12
+    Float
+testdata/complex.lc 26:11-26:14
+    VecScalar 1 Float -> VecScalar 1 Bool
+testdata/complex.lc 26:11-26:19
+    VecScalar 1 Bool
+testdata/complex.lc 26:11-26:22
+    Bool -> Bool
+testdata/complex.lc 26:11-26:31
+    Bool
+testdata/complex.lc 26:11-26:64
+    Complex 'Polar -> Complex 'Polar
+testdata/complex.lc 26:13-26:14
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/complex.lc 26:16-26:19
+    Float
+testdata/complex.lc 26:20-26:22
+    Bool -> Bool -> Bool
+testdata/complex.lc 26:23-26:24
+    Float
+testdata/complex.lc 26:23-26:26
+    VecScalar 1 Float -> VecScalar 1 Bool
+testdata/complex.lc 26:23-26:31
+    VecScalar 1 Bool
+testdata/complex.lc 26:25-26:26
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/complex.lc 26:28-26:31
+    Float
+testdata/complex.lc 26:37-26:42
+    Float -> Float -> Complex 'Polar
+testdata/complex.lc 26:37-26:44
+    Float -> Complex 'Polar
+testdata/complex.lc 26:37-26:64
+    Complex 'Polar
+testdata/complex.lc 26:43-26:44
+    VecScalar 1 Float
+testdata/complex.lc 26:46-26:50
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/complex.lc 26:46-26:58
+    VecScalar 1 Float
+testdata/complex.lc 26:46-26:60
+    Float -> Float
+testdata/complex.lc 26:46-26:63
+    Float
+testdata/complex.lc 26:52-26:53
+    Float
+testdata/complex.lc 26:52-26:55
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/complex.lc 26:52-26:57
+    VecScalar 1 Float
+testdata/complex.lc 26:54-26:55
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/complex.lc 26:56-26:57
+    Float
+testdata/complex.lc 26:59-26:60
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 26:61-26:63
+    Float
+testdata/complex.lc 27:8-29:17
+    Complex 'Polar
+testdata/complex.lc 27:11-27:12
+    Float
+testdata/complex.lc 27:11-27:15
+    Float -> Bool
+testdata/complex.lc 27:11-27:19
+    Bool
+testdata/complex.lc 27:11-27:22
+    Bool -> Bool
+testdata/complex.lc 27:11-27:31
+    Bool
+testdata/complex.lc 27:11-27:56
+    Complex 'Polar -> Complex 'Polar
+testdata/complex.lc 27:13-27:15
+    forall a . Eq a => a -> a -> Bool
+testdata/complex.lc 27:16-27:19
+    Float
+testdata/complex.lc 27:20-27:22
+    Bool -> Bool -> Bool
+testdata/complex.lc 27:23-27:24
+    Float
+testdata/complex.lc 27:23-27:27
+    VecScalar 1 Float -> VecScalar 1 Bool
+testdata/complex.lc 27:23-27:31
+    VecScalar 1 Bool
+testdata/complex.lc 27:25-27:27
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/complex.lc 27:28-27:31
+    Float
+testdata/complex.lc 27:37-27:42
+    Float -> Float -> Complex 'Polar
+testdata/complex.lc 27:37-27:44
+    Float -> Complex 'Polar
+testdata/complex.lc 27:37-27:56
+    Complex 'Polar
+testdata/complex.lc 27:43-27:44
+    VecScalar 1 Float
+testdata/complex.lc 27:47-27:49
+    Float
+testdata/complex.lc 27:47-27:51
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/complex.lc 27:47-27:55
+    VecScalar 1 Float
+testdata/complex.lc 27:50-27:51
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/complex.lc 27:52-27:55
+    Float
+testdata/complex.lc 28:8-29:17
+    Complex 'Polar
+testdata/complex.lc 28:11-28:12
+    Float
+testdata/complex.lc 28:11-28:15
+    Float -> Bool
+testdata/complex.lc 28:11-28:19
+    Bool
+testdata/complex.lc 28:11-28:22
+    Bool -> Bool
+testdata/complex.lc 28:11-28:31
+    Bool
+testdata/complex.lc 28:11-28:56
+    Complex 'Polar -> Complex 'Polar
+testdata/complex.lc 28:13-28:15
+    forall a . Eq a => a -> a -> Bool
+testdata/complex.lc 28:16-28:19
+    Float
+testdata/complex.lc 28:20-28:22
+    Bool -> Bool -> Bool
+testdata/complex.lc 28:23-28:24
+    Float
+testdata/complex.lc 28:23-28:26
+    VecScalar 1 Float -> VecScalar 1 Bool
+testdata/complex.lc 28:23-28:31
+    VecScalar 1 Bool
+testdata/complex.lc 28:25-28:26
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/complex.lc 28:28-28:31
+    Float
+testdata/complex.lc 28:37-28:42
+    Float -> Float -> Complex 'Polar
+testdata/complex.lc 28:37-28:44
+    Float -> Complex 'Polar
+testdata/complex.lc 28:37-28:56
+    Complex 'Polar
+testdata/complex.lc 28:43-28:44
+    VecScalar 1 Float
+testdata/complex.lc 28:46-28:47
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 28:46-28:55
+    Float
+testdata/complex.lc 28:47-28:49
+    Float
+testdata/complex.lc 28:47-28:51
+    VecScalar 1 Float -> VecScalar 1 Float
+testdata/complex.lc 28:47-28:55
+    VecScalar 1 Float
+testdata/complex.lc 28:50-28:51
+    forall a (b :: Nat) . Num a => VecScalar b a -> VecScalar b a -> VecScalar b a
+testdata/complex.lc 28:52-28:55
+    Float
+testdata/complex.lc 29:8-29:17
+    forall a . a
+testdata/complex.lc 31:9-31:13
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/complex.lc 31:9-31:25
+    VecScalar 1 Float
+testdata/complex.lc 31:15-31:16
+    Float
+testdata/complex.lc 31:15-31:17
+    Float -> Float
+testdata/complex.lc 31:15-31:18
+    Float
+testdata/complex.lc 31:15-31:20
+    Float -> Float
+testdata/complex.lc 31:15-31:24
+    Float
+testdata/complex.lc 31:16-31:17
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 31:17-31:18
+    Float
+testdata/complex.lc 31:19-31:20
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 31:21-31:22
+    Float
+testdata/complex.lc 31:21-31:23
+    Float -> Float
+testdata/complex.lc 31:21-31:24
+    Float
+testdata/complex.lc 31:22-31:23
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 31:23-31:24
+    Float
+testdata/complex.lc 64:13-64:20
+    Repr -> Type
+testdata/complex.lc 64:13-64:26
+    Type
+testdata/complex.lc 64:21-64:26
+    Repr
+testdata/complex.lc 64:30-64:37
+    Repr -> Type
+testdata/complex.lc 64:30-64:44
+    Type | Type
+testdata/complex.lc 64:38-64:44
+    Repr
+testdata/complex.lc 65:1-65:9
+    Complex 'Polar -> Complex 'Normal
+testdata/complex.lc 65:28-65:35
+    forall (a :: Repr) . Float -> Float -> Complex a
+testdata/complex.lc 65:28-65:49
+    Float -> Complex _a
+testdata/complex.lc 65:28-65:63
+    Complex _a | Complex _a
+testdata/complex.lc 65:37-65:38
+    Float
+testdata/complex.lc 65:37-65:40
+    Float -> Float
+testdata/complex.lc 65:37-65:48
+    Float
+testdata/complex.lc 65:39-65:40
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 65:41-65:44
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/complex.lc 65:41-65:48
+    VecScalar 1 Float
+testdata/complex.lc 65:45-65:48
+    Float
+testdata/complex.lc 65:51-65:52
+    Float
+testdata/complex.lc 65:51-65:54
+    Float -> Float
+testdata/complex.lc 65:51-65:62
+    Float
+testdata/complex.lc 65:53-65:54
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 65:55-65:58
+    forall a (b :: Nat) . (a ~ VecScalar b Float) => a -> a
+testdata/complex.lc 65:55-65:62
+    VecScalar 1 Float
+testdata/complex.lc 65:59-65:62
+    Float
+testdata/complex.lc 111:1-111:15
+    forall (a :: Repr) . Complex a -> Float
+testdata/complex.lc 111:38-111:39
+    Float
+testdata/complex.lc 113:20-113:70
+    Type
+testdata/complex.lc 113:32-113:39
+    Repr -> Type
+testdata/complex.lc 113:32-113:42
+    Type
+testdata/complex.lc 113:32-113:70
+    Type
+testdata/complex.lc 113:40-113:42
+    _d
+testdata/complex.lc 113:46-113:53
+    Repr -> Type
+testdata/complex.lc 113:46-113:56
+    Type
+testdata/complex.lc 113:46-113:70
+    Type
+testdata/complex.lc 113:54-113:56
+    _c
+testdata/complex.lc 113:60-113:67
+    Repr -> Type
+testdata/complex.lc 113:60-113:70
+    Type | Type
+testdata/complex.lc 113:68-113:70
+    Repr
+testdata/complex.lc 114:1-114:4
+    forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
+testdata/complex.lc 114:53-114:60
+    forall (a :: Repr) . Float -> Float -> Complex a
+testdata/complex.lc 114:53-114:68
+    Float -> Complex _a
+testdata/complex.lc 114:53-114:76
+    Complex _a | Complex _a | Complex _a | Complex _a | Complex _d
+testdata/complex.lc 114:62-114:63
+    Float
+testdata/complex.lc 114:62-114:65
+    Float -> Float
+testdata/complex.lc 114:62-114:67
+    Float
+testdata/complex.lc 114:64-114:65
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 114:66-114:67
+    Float
+testdata/complex.lc 114:70-114:71
+    Float
+testdata/complex.lc 114:70-114:73
+    Float -> Float
+testdata/complex.lc 114:70-114:75
+    Float
+testdata/complex.lc 114:72-114:73
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 114:74-114:75
+    Float
+testdata/complex.lc 128:23-128:30
+    Repr -> Type
+testdata/complex.lc 128:23-128:33
+    Type
+testdata/complex.lc 128:23-128:61
+    Type | Type
+testdata/complex.lc 128:31-128:33
+    _d
+testdata/complex.lc 128:37-128:44
+    Repr -> Type
+testdata/complex.lc 128:37-128:47
+    Type
+testdata/complex.lc 128:37-128:61
+    Type
+testdata/complex.lc 128:45-128:47
+    _c
+testdata/complex.lc 128:51-128:58
+    Repr -> Type
+testdata/complex.lc 128:51-128:61
+    Type | Type
+testdata/complex.lc 128:59-128:61
+    Repr
+testdata/complex.lc 129:1-129:4
+    forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
+testdata/complex.lc 129:53-129:60
+    forall (a :: Repr) . Float -> Float -> Complex a
+testdata/complex.lc 129:53-129:72
+    Float -> Complex _a
+testdata/complex.lc 129:53-129:84
+    Complex _a | Complex _a | Complex _a | Complex _a | Complex _d
+testdata/complex.lc 129:62-129:63
+    Float
+testdata/complex.lc 129:62-129:64
+    Float -> Float
+testdata/complex.lc 129:62-129:65
+    Float
+testdata/complex.lc 129:62-129:67
+    Float -> Float
+testdata/complex.lc 129:62-129:71
+    Float
+testdata/complex.lc 129:63-129:64
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 129:64-129:65
+    Float
+testdata/complex.lc 129:66-129:67
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 129:68-129:69
+    Float
+testdata/complex.lc 129:68-129:70
+    Float -> Float
+testdata/complex.lc 129:68-129:71
+    Float
+testdata/complex.lc 129:69-129:70
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 129:70-129:71
+    Float
+testdata/complex.lc 129:74-129:75
+    Float
+testdata/complex.lc 129:74-129:76
+    Float -> Float
+testdata/complex.lc 129:74-129:77
+    Float
+testdata/complex.lc 129:74-129:79
+    Float -> Float
+testdata/complex.lc 129:74-129:83
+    Float
+testdata/complex.lc 129:75-129:76
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 129:76-129:77
+    Float
+testdata/complex.lc 129:78-129:79
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 129:80-129:81
+    Float
+testdata/complex.lc 129:80-129:82
+    Float -> Float
+testdata/complex.lc 129:80-129:83
+    Float
+testdata/complex.lc 129:81-129:82
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/complex.lc 129:82-129:83
+    Float
+testdata/complex.lc 137:6-137:13
+    Repr -> Type
+testdata/complex.lc 137:6-137:15
+    Type
+testdata/complex.lc 137:6-137:28
+    Type
+testdata/complex.lc 137:14-137:15
+    _b
+testdata/complex.lc 137:19-137:26
+    Repr -> Type
+testdata/complex.lc 137:19-137:28
+    Type | Type
+testdata/complex.lc 137:27-137:28
+    Repr
+testdata/complex.lc 138:1-138:2
+    forall (a :: Repr) . Complex a -> Complex a
+testdata/complex.lc 138:7-138:22
+    Complex _a -> Complex _c
+testdata/complex.lc 138:7-138:24
+    Complex _b
+testdata/complex.lc 138:8-138:11
+    forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
+testdata/complex.lc 138:8-138:13
+    Complex _a -> Complex _e
+testdata/complex.lc 138:8-138:15
+    Complex _c
+testdata/complex.lc 138:12-138:13
+    Complex _f
+testdata/complex.lc 138:14-138:15
+    Complex _d
+testdata/complex.lc 138:17-138:22
+    forall (a :: Repr) (b :: Repr) . Complex a -> Complex b -> Complex a
+testdata/complex.lc 138:23-138:24
+    Complex _c
+testdata/complex.lc 141:1-141:3
+    forall (a :: Repr) . Complex a -> Complex a
+testdata/complex.lc 141:8-141:9
+    forall (a :: Repr) . Complex a -> Complex a
+testdata/complex.lc 141:8-141:23
+    Complex _a
+testdata/complex.lc 141:11-141:12
+    forall (a :: Repr) . Complex a -> Complex a
+testdata/complex.lc 141:11-141:22
+    Complex _a
+testdata/complex.lc 141:14-141:15
+    forall (a :: Repr) . Complex a -> Complex a
+testdata/complex.lc 141:14-141:21
+    Complex _a
+testdata/complex.lc 141:17-141:18
+    forall (a :: Repr) . Complex a -> Complex a
+testdata/complex.lc 141:17-141:20
+    Complex _a
+testdata/complex.lc 141:19-141:20
+    _f
+testdata/complex.lc 143:1-143:5
+    forall (a :: Repr) . Complex a -> Complex a
+testdata/complex.lc 143:8-143:10
+    forall (a :: Repr) . Complex a -> Complex a
+testdata/complex.lc 145:1-145:7
+    forall (a :: Repr) . Complex a -> VecScalar 1 Bool
+testdata/complex.lc 145:12-145:16
+    forall (a :: Repr) . Complex a -> Float
+testdata/complex.lc 145:12-145:25
+    Float
+testdata/complex.lc 145:12-145:27
+    VecScalar 1 Float -> VecScalar 1 Bool
+testdata/complex.lc 145:12-145:31
+    VecScalar 1 Bool
+testdata/complex.lc 145:18-145:22
+    forall (a :: Repr) . Complex a -> Complex a
+testdata/complex.lc 145:18-145:24
+    Complex _a
+testdata/complex.lc 145:23-145:24
+    _g
+testdata/complex.lc 145:26-145:27
+    forall (a :: Nat) b
+      . Num b => VecScalar a b -> VecScalar a b -> VecScalar a Bool
+testdata/complex.lc 145:28-145:31
+    Float
 ------------ warnings
 Uncovered pattern(s) at testdata/complex.lc:114:1:
 add @'Normal @'Normal (Complex a b) (Complex c d) = Complex (a + c) (b + d)
@@ -489,4 +852,4 @@ mul @'Normal @'Normal (Complex a b) (Complex c d) = Complex (a*c - b*d) (b*c + a
 ^^^
 Missing case(s):
   Normal Polar _ _ 
-  Polar _ _ _ 
+  Polar _ _ _ 
\ No newline at end of file
diff --git a/testdata/data.out b/testdata/data.out
index 498f6f32..0632ae01 100644
--- a/testdata/data.out
+++ b/testdata/data.out
@@ -51,109 +51,176 @@ c5
     a
 main is not found
 ------------ trace
-'Data0 :: Type
-Data0 :: Data0
+'Data0 :: Type
+Data0 :: Data0
 '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
+  :: 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
+  :: 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
+  :: 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
-match'Data2 :: forall (a :: Type -> Type) -> a Data2 -> forall b -> a b -> a b
-x :: Data2 -> Int
-y :: Data2 -> Int
-'Data5 :: Type -> Type -> Type -> Type
-Data51 :: forall a b c . a -> Data5 a b c
-Data52 :: forall a b c . a -> b -> c -> Data5 a b c
-Data53 :: forall a b c . Int -> a -> Float -> b -> c -> Data5 a b c
+  :: forall (a :: Data2 -> Type)
+    -> (forall (b :: Int) -> a ('Data21 b))
+      -> (forall (c :: Int) (d :: Int) -> a ('Data22 c d))
+        -> (forall (e :: Int) -> a ('Data23 e))
+          -> a 'Data24 -> forall (f :: Data2) -> a f
+match'Data2 :: forall (a :: Type -> Type) -> a Data2 -> forall b -> a b -> a b
+x :: Data2 -> Int
+y :: Data2 -> Int
+'Data5 :: Type -> Type -> Type -> Type
+Data51 :: forall a b c . a -> Data5 a b c
+Data52 :: forall a b c . a -> b -> c -> Data5 a b c
+Data53 :: forall a b c . Int -> a -> Float -> b -> c -> Data5 a b c
 '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
+  :: 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
+  :: 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
 ------------ tooltips
-testdata/data.lc 1:6-1:11  Type
-testdata/data.lc 1:6-1:19  Type
-testdata/data.lc 1:14-1:19  Data0
-testdata/data.lc 3:6-3:11  Type | Type -> Type -> Type -> Type
-testdata/data.lc 3:6-3:13  Type -> Type -> Type
-testdata/data.lc 3:6-3:15  Type -> Type
-testdata/data.lc 3:6-3:17  Type
-testdata/data.lc 3:6-3:25  Type
-testdata/data.lc 3:6-3:31  Type
-testdata/data.lc 3:12-3:13  Type
-testdata/data.lc 3:14-3:15  Type
-testdata/data.lc 3:16-3:17  Type
-testdata/data.lc 3:20-3:25  Data1 _g _f _e | Type | forall a b c . a -> b -> c -> Data1 a b c
-testdata/data.lc 3:26-3:27  Type
-testdata/data.lc 3:28-3:29  Type
-testdata/data.lc 3:30-3:31  Type
-testdata/data.lc 5:6-5:11  Type
-testdata/data.lc 5:6-6:39  Type
-testdata/data.lc 5:6-8:20  Type
-testdata/data.lc 5:14-5:20  Data2 | Int -> Data2 | Type
-testdata/data.lc 5:21-5:24  Type
-testdata/data.lc 6:14-6:20  Data2 | Int -> Int -> Data2 | Type
-testdata/data.lc 6:23-6:24  Data2 -> Int
-testdata/data.lc 6:28-6:31  Type
-testdata/data.lc 6:33-6:34  Data2 -> Int
-testdata/data.lc 6:36-6:39  Type
-testdata/data.lc 7:14-7:20  Data2 | Int -> Data2 | Type
-testdata/data.lc 7:28-7:31  Type
-testdata/data.lc 8:14-8:20  Data2
-testdata/data.lc 10:6-10:11  Type | Type -> Type -> Type -> Type
-testdata/data.lc 10:6-10:14  Type -> Type -> Type
-testdata/data.lc 10:6-10:17  Type -> Type
-testdata/data.lc 10:6-10:20  Type
-testdata/data.lc 10:6-10:38  Type
-testdata/data.lc 10:6-11:54  Type
-testdata/data.lc 10:6-12:29  Type
-testdata/data.lc 10:6-12:48  Type
-testdata/data.lc 10:12-10:14  Type
-testdata/data.lc 10:15-10:17  Type
-testdata/data.lc 10:18-10:20  Type
-testdata/data.lc 10:23-10:29  Data5 _e _d _c | Type | forall a b c . a -> Data5 a b c
-testdata/data.lc 10:32-10:34  forall a b c . Data5 a b c -> a
-testdata/data.lc 10:36-10:38  Type
-testdata/data.lc 11:23-11:29  Data5 _h _g _f | Type | forall a b c . a -> b -> c -> Data5 a b c
-testdata/data.lc 11:36-11:38  Type
-testdata/data.lc 11:40-11:42  forall a b c . Data5 a b c -> b
-testdata/data.lc 11:44-11:46  Type
-testdata/data.lc 11:48-11:50  forall a b c . Data5 a b c -> c
-testdata/data.lc 11:52-11:54  Type
-testdata/data.lc 12:23-12:29  Data5 _k _j _i | Type | forall a b c . Int -> a -> Float -> b -> c -> Data5 a b c
-testdata/data.lc 12:30-12:33  Type
-testdata/data.lc 12:34-12:36  Type
-testdata/data.lc 12:37-12:42  Type
-testdata/data.lc 12:43-12:45  Type
-testdata/data.lc 12:46-12:48  Type
+testdata/data.lc 1:6-1:11
+    Type | Type | Type | Type | Type
+testdata/data.lc 1:6-1:19
+    Type
+testdata/data.lc 1:14-1:19
+    Data0
+testdata/data.lc 3:6-3:11
+    Type -> Type -> Type -> Type | Type -> Type -> Type -> Type | Type
+      -> Type -> Type -> Type | Type -> Type -> Type -> Type | Type
+testdata/data.lc 3:6-3:13
+    Type -> Type -> Type
+testdata/data.lc 3:6-3:15
+    Type -> Type
+testdata/data.lc 3:6-3:17
+    Type | Type
+testdata/data.lc 3:6-3:25
+    Type | Type | Type | Type
+testdata/data.lc 3:6-3:31
+    Type | Type | Type | Type | Type
+testdata/data.lc 3:12-3:13
+    Type
+testdata/data.lc 3:14-3:15
+    Type
+testdata/data.lc 3:16-3:17
+    Type
+testdata/data.lc 3:20-3:25
+    forall a b c . a -> b -> c -> Data1 a b c | Data1
+      _g
+      _f
+      _e | Type | Type | Type | Type
+testdata/data.lc 3:26-3:27
+    Type
+testdata/data.lc 3:28-3:29
+    Type
+testdata/data.lc 3:30-3:31
+    Type
+testdata/data.lc 5:6-5:11
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/data.lc 5:6-6:39
+    Type
+testdata/data.lc 5:6-8:20
+    Type | Type | Type | Type
+testdata/data.lc 5:14-5:20
+    Int -> Data2 | Data2 | Type | Type
+testdata/data.lc 5:21-5:24
+    Type
+testdata/data.lc 6:14-6:20
+    Int -> Int -> Data2 | Data2 | Type | Type | Type
+testdata/data.lc 6:23-6:24
+    Data2 -> Int
+testdata/data.lc 6:28-6:31
+    Type
+testdata/data.lc 6:33-6:34
+    Data2 -> Int
+testdata/data.lc 6:36-6:39
+    Type
+testdata/data.lc 7:14-7:20
+    Int -> Data2 | Data2 | Type | Type
+testdata/data.lc 7:28-7:31
+    Type
+testdata/data.lc 8:14-8:20
+    Data2
+testdata/data.lc 10:6-10:11
+    Type -> Type -> Type -> Type | Type -> Type -> Type -> Type | Type
+      -> Type -> Type -> Type | Type -> Type -> Type -> Type | Type
+      -> Type -> Type -> Type | Type -> Type -> Type -> Type | Type
+testdata/data.lc 10:6-10:14
+    Type -> Type -> Type | Type -> Type -> Type | Type -> Type -> Type
+testdata/data.lc 10:6-10:17
+    Type -> Type | Type -> Type | Type -> Type
+testdata/data.lc 10:6-10:20
+    Type | Type | Type | Type | Type | Type
+testdata/data.lc 10:6-10:38
+    Type | Type | Type
+testdata/data.lc 10:6-11:54
+    Type | Type | Type | Type | Type
+testdata/data.lc 10:6-12:29
+    Type | Type | Type | Type | Type | Type
+testdata/data.lc 10:6-12:48
+    Type | Type | Type | Type | Type | Type | Type
+testdata/data.lc 10:12-10:14
+    Type | Type | Type
+testdata/data.lc 10:15-10:17
+    Type | Type | Type
+testdata/data.lc 10:18-10:20
+    Type | Type | Type
+testdata/data.lc 10:23-10:29
+    forall a b c . a -> Data5 a b c | Data5 _e _d _c | Type | Type
+testdata/data.lc 10:32-10:34
+    forall a b c . Data5 a b c -> a
+testdata/data.lc 10:36-10:38
+    Type
+testdata/data.lc 11:23-11:29
+    forall a b c . a -> b -> c -> Data5 a b c | Data5
+      _h
+      _g
+      _f | Type | Type | Type | Type
+testdata/data.lc 11:36-11:38
+    Type
+testdata/data.lc 11:40-11:42
+    forall a b c . Data5 a b c -> b
+testdata/data.lc 11:44-11:46
+    Type
+testdata/data.lc 11:48-11:50
+    forall a b c . Data5 a b c -> c
+testdata/data.lc 11:52-11:54
+    Type
+testdata/data.lc 12:23-12:29
+    forall a b c . Int -> a -> Float -> b -> c -> Data5 a b c | Data5
+      _k
+      _j
+      _i | Type | Type | Type | Type | Type | Type
+testdata/data.lc 12:30-12:33
+    Type
+testdata/data.lc 12:34-12:36
+    Type
+testdata/data.lc 12:37-12:42
+    Type
+testdata/data.lc 12:43-12:45
+    Type
+testdata/data.lc 12:46-12:48
+    Type
 ------------ warnings
 Uncovered pattern(s) at testdata/data.lc:6:23:
            | Data22 { x :: Int, y::Int }
@@ -184,4 +251,4 @@ Uncovered pattern(s) at testdata/data.lc:11:48:
                                                ^^
 Missing case(s):
   Data51 
-  Data53 
+  Data53 
\ No newline at end of file
diff --git a/testdata/data.reject.out b/testdata/data.reject.out
index 81b44641..f91cae5b 100644
--- a/testdata/data.reject.out
+++ b/testdata/data.reject.out
@@ -2,9 +2,10 @@ can't find: a in testdata/data.reject.lc:1:20:
 data Data1 = Data1 a b c
                    ^
 ------------ trace
-'Data1 :: Type
+'Data1 :: Type
 !can't find: a in testdata/data.reject.lc:1:20:
 data Data1 = Data1 a b c
                    ^
 ------------ tooltips
-testdata/data.reject.lc 1:6-1:11  Type
+testdata/data.reject.lc 1:6-1:11
+    Type
\ No newline at end of file
diff --git a/testdata/empty.out b/testdata/empty.out
index 771dc4de..03f47f97 100644
--- a/testdata/empty.out
+++ b/testdata/empty.out
@@ -3,8 +3,9 @@ data Empty :: Type where
     
 main is not found
 ------------ trace
-'Empty :: Type
-'EmptyCase :: forall (a :: Empty -> Type) (b :: Empty) -> a b
-match'Empty :: forall (a :: Type -> Type) -> a Empty -> forall b -> a b -> a b
+'Empty :: Type
+'EmptyCase :: forall (a :: Empty -> Type) (b :: Empty) -> a b
+match'Empty :: forall (a :: Type -> Type) -> a Empty -> forall b -> a b -> a b
 ------------ tooltips
-testdata/empty.lc 3:6-3:11  Type
+testdata/empty.lc 3:6-3:11
+    Type | Type | Type | Type
\ No newline at end of file
diff --git a/testdata/framebuffer02.reject.out b/testdata/framebuffer02.reject.out
index ddaae5c2..458214b0 100644
--- a/testdata/framebuffer02.reject.out
+++ b/testdata/framebuffer02.reject.out
@@ -20,48 +20,81 @@ 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
+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
-      ('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
-testdata/framebuffer02.reject.lc 2:43-2:49  Float -> Float -> Float -> VecS Float 4
-testdata/framebuffer02.reject.lc 2:43-2:53  Float -> Float -> VecS Float 4
-testdata/framebuffer02.reject.lc 2:43-2:57  Float -> VecS Float 4
-testdata/framebuffer02.reject.lc 2:43-2:61  VecS Float 4
-testdata/framebuffer02.reject.lc 2:46-2:49  Float
-testdata/framebuffer02.reject.lc 2:50-2:53  Float
-testdata/framebuffer02.reject.lc 2:54-2:57  Float
-testdata/framebuffer02.reject.lc 2:58-2:61  Float
-testdata/framebuffer02.reject.lc 3:30-3:40  forall (a :: Nat) (b :: Nat) c d . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
-testdata/framebuffer02.reject.lc 3:30-3:43  forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 2 ('Color c)
-testdata/framebuffer02.reject.lc 3:30-3:64  Image 2 ('Color (VecScalar 4 Float))
-testdata/framebuffer02.reject.lc 3:30-4:45  (Image 2 ('Color (VecScalar 4 Float)), Image 1 ('Color (VecScalar 1 Float)))
-testdata/framebuffer02.reject.lc 3:42-3:43  _b
-testdata/framebuffer02.reject.lc 3:45-3:47  forall a . a -> a -> a -> a -> VecS a 4
-testdata/framebuffer02.reject.lc 3:45-3:51  Float -> Float -> Float -> VecS Float 4
-testdata/framebuffer02.reject.lc 3:45-3:55  Float -> Float -> VecS Float 4
-testdata/framebuffer02.reject.lc 3:45-3:59  Float -> VecS Float 4
-testdata/framebuffer02.reject.lc 3:45-3:63  VecS Float 4
-testdata/framebuffer02.reject.lc 3:48-3:51  Float
-testdata/framebuffer02.reject.lc 3:52-3:55  Float
-testdata/framebuffer02.reject.lc 3:56-3:59  Float
-testdata/framebuffer02.reject.lc 3:60-3:63  Float
-testdata/framebuffer02.reject.lc 4:30-4:41  forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
-testdata/framebuffer02.reject.lc 4:30-4:45  ((Image 1 ('Color (VecScalar 1 Float)))) | Image 1 ('Color (VecScalar 1 Float))
-testdata/framebuffer02.reject.lc 4:42-4:45  Float
+      (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
+testdata/framebuffer02.reject.lc 2:43-2:49
+    Float -> Float -> Float -> VecS Float 4
+testdata/framebuffer02.reject.lc 2:43-2:53
+    Float -> Float -> VecS Float 4
+testdata/framebuffer02.reject.lc 2:43-2:57
+    Float -> VecS Float 4
+testdata/framebuffer02.reject.lc 2:43-2:61
+    VecS Float 4
+testdata/framebuffer02.reject.lc 2:46-2:49
+    Float
+testdata/framebuffer02.reject.lc 2:50-2:53
+    Float
+testdata/framebuffer02.reject.lc 2:54-2:57
+    Float
+testdata/framebuffer02.reject.lc 2:58-2:61
+    Float
+testdata/framebuffer02.reject.lc 3:30-3:40
+    forall (a :: Nat) (b :: Nat) c d
+      . (Num c, d ~ VecScalar b c) => d -> Image a ('Color d)
+testdata/framebuffer02.reject.lc 3:30-3:43
+    forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 2 ('Color c)
+testdata/framebuffer02.reject.lc 3:30-3:64
+    Image 2 ('Color (VecScalar 4 Float))
+testdata/framebuffer02.reject.lc 3:30-4:45
+    (Image 2 ('Color (VecScalar 4 Float)), Image 1 ('Color (VecScalar 1 Float)))
+testdata/framebuffer02.reject.lc 3:42-3:43
+    _b
+testdata/framebuffer02.reject.lc 3:45-3:47
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/framebuffer02.reject.lc 3:45-3:51
+    Float -> Float -> Float -> VecS Float 4
+testdata/framebuffer02.reject.lc 3:45-3:55
+    Float -> Float -> VecS Float 4
+testdata/framebuffer02.reject.lc 3:45-3:59
+    Float -> VecS Float 4
+testdata/framebuffer02.reject.lc 3:45-3:63
+    VecS Float 4
+testdata/framebuffer02.reject.lc 3:48-3:51
+    Float
+testdata/framebuffer02.reject.lc 3:52-3:55
+    Float
+testdata/framebuffer02.reject.lc 3:56-3:59
+    Float
+testdata/framebuffer02.reject.lc 3:60-3:63
+    Float
+testdata/framebuffer02.reject.lc 4:30-4:41
+    forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
+testdata/framebuffer02.reject.lc 4:30-4:45
+    Image 1 ('Color (VecScalar 1 Float)) | ((Image 1 ('Color (VecScalar 1 Float))))
+testdata/framebuffer02.reject.lc 4:42-4:45
+    Float
\ No newline at end of file
diff --git a/testdata/id.out b/testdata/id.out
index 0b2b73ad..3273b516 100644
--- a/testdata/id.out
+++ b/testdata/id.out
@@ -2,14 +2,23 @@
 main' = _rhs \(a := _rhs \(b :: _) -> b) -> HCons (a 4.0) (HCons (a True) HNil)
 main is not found
 ------------ trace
-main' :: (Float, Bool)
+main' :: (Float, Bool)
 ------------ tooltips
-testdata/id.lc 1:1-1:6  (Float, Bool)
-testdata/id.lc 3:19-3:20  _b
-testdata/id.lc 4:8-4:27  (Float, Bool)
-testdata/id.lc 4:9-4:12  forall a . a -> a
-testdata/id.lc 4:9-4:16  Float
-testdata/id.lc 4:13-4:16  Float
-testdata/id.lc 4:18-4:21  forall a . a -> a
-testdata/id.lc 4:18-4:26  ((Bool)) | Bool
-testdata/id.lc 4:22-4:26  Bool
+testdata/id.lc 1:1-1:6
+    (Float, Bool)
+testdata/id.lc 3:19-3:20
+    _b
+testdata/id.lc 4:8-4:27
+    (Float, Bool)
+testdata/id.lc 4:9-4:12
+    forall a . a -> a
+testdata/id.lc 4:9-4:16
+    Float
+testdata/id.lc 4:13-4:16
+    Float
+testdata/id.lc 4:18-4:21
+    forall a . a -> a
+testdata/id.lc 4:18-4:26
+    Bool | ((Bool))
+testdata/id.lc 4:22-4:26
+    Bool
\ No newline at end of file
diff --git a/testdata/instantiate.out b/testdata/instantiate.out
index 012eda70..e6746d48 100644
--- a/testdata/instantiate.out
+++ b/testdata/instantiate.out
@@ -2,20 +2,35 @@
 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
+main' :: VecS Float 2
 ------------ tooltips
-testdata/instantiate.lc 1:1-1:6  VecS Float 2
-testdata/instantiate.lc 2:13-2:20  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/instantiate.lc 2:24-2:25  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/instantiate.lc 2:24-2:38  VecS Float 2 -> VecS Float 2
-testdata/instantiate.lc 2:24-2:51  VecS Float 2
-testdata/instantiate.lc 2:27-2:29  forall a . a -> a -> VecS a 2
-testdata/instantiate.lc 2:27-2:33  Float -> VecS Float 2
-testdata/instantiate.lc 2:27-2:37  VecS Float 2
-testdata/instantiate.lc 2:30-2:33  Float
-testdata/instantiate.lc 2:34-2:37  Float
-testdata/instantiate.lc 2:40-2:42  forall a . a -> a -> VecS a 2
-testdata/instantiate.lc 2:40-2:46  Float -> VecS Float 2
-testdata/instantiate.lc 2:40-2:50  VecS Float 2
-testdata/instantiate.lc 2:43-2:46  Float
-testdata/instantiate.lc 2:47-2:50  Float
+testdata/instantiate.lc 1:1-1:6
+    VecS Float 2
+testdata/instantiate.lc 2:13-2:20
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/instantiate.lc 2:24-2:25
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/instantiate.lc 2:24-2:38
+    VecS Float 2 -> VecS Float 2
+testdata/instantiate.lc 2:24-2:51
+    VecS Float 2
+testdata/instantiate.lc 2:27-2:29
+    forall a . a -> a -> VecS a 2
+testdata/instantiate.lc 2:27-2:33
+    Float -> VecS Float 2
+testdata/instantiate.lc 2:27-2:37
+    VecS Float 2
+testdata/instantiate.lc 2:30-2:33
+    Float
+testdata/instantiate.lc 2:34-2:37
+    Float
+testdata/instantiate.lc 2:40-2:42
+    forall a . a -> a -> VecS a 2
+testdata/instantiate.lc 2:40-2:46
+    Float -> VecS Float 2
+testdata/instantiate.lc 2:40-2:50
+    VecS Float 2
+testdata/instantiate.lc 2:43-2:46
+    Float
+testdata/instantiate.lc 2:47-2:50
+    Float
\ No newline at end of file
diff --git a/testdata/language-features/adt/adt02.reject.out b/testdata/language-features/adt/adt02.reject.out
index ee25f4ed..0b4b0ba4 100644
--- a/testdata/language-features/adt/adt02.reject.out
+++ b/testdata/language-features/adt/adt02.reject.out
@@ -5,15 +5,15 @@ with
 
 in proj
 ------------ trace
-'Data3 :: Type
-Data3 :: Bool -> Char -> Bool -> Data3
-Data31 :: Int -> String -> Int -> Data3
+'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
-match'Data3 :: forall (a :: Type -> Type) -> a Data3 -> forall b -> a b -> a b
+  :: 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
 with
@@ -21,15 +21,27 @@ with
 
 in proj
 ------------ tooltips
-testdata/language-features/adt/adt02.reject.lc 2:6-2:11  Type
-testdata/language-features/adt/adt02.reject.lc 2:6-5:25  Type
-testdata/language-features/adt/adt02.reject.lc 2:6-7:11  Type
-testdata/language-features/adt/adt02.reject.lc 2:6-10:20  Type
-testdata/language-features/adt/adt02.reject.lc 3:5-3:10  Bool -> Char -> Bool -> Data3 | Data3 | Type
-testdata/language-features/adt/adt02.reject.lc 3:21-3:25  Type
-testdata/language-features/adt/adt02.reject.lc 4:21-4:25  Type
-testdata/language-features/adt/adt02.reject.lc 5:21-5:25  Type
-testdata/language-features/adt/adt02.reject.lc 7:5-7:11  Data3 | Int -> String -> Int -> Data3 | Type
-testdata/language-features/adt/adt02.reject.lc 8:17-8:20  Type
-testdata/language-features/adt/adt02.reject.lc 9:17-9:23  Type
-testdata/language-features/adt/adt02.reject.lc 10:17-10:20  Type
+testdata/language-features/adt/adt02.reject.lc 2:6-2:11
+    Type | Type | Type | Type | Type | Type | Type | Type
+testdata/language-features/adt/adt02.reject.lc 2:6-5:25
+    Type | Type
+testdata/language-features/adt/adt02.reject.lc 2:6-7:11
+    Type | Type
+testdata/language-features/adt/adt02.reject.lc 2:6-10:20
+    Type | Type
+testdata/language-features/adt/adt02.reject.lc 3:5-3:10
+    Bool -> Char -> Bool -> Data3 | Data3 | Type | Type | Type | Type
+testdata/language-features/adt/adt02.reject.lc 3:21-3:25
+    Type
+testdata/language-features/adt/adt02.reject.lc 4:21-4:25
+    Type
+testdata/language-features/adt/adt02.reject.lc 5:21-5:25
+    Type
+testdata/language-features/adt/adt02.reject.lc 7:5-7:11
+    Int -> String -> Int -> Data3 | Data3 | Type | Type | Type | Type
+testdata/language-features/adt/adt02.reject.lc 8:17-8:20
+    Type
+testdata/language-features/adt/adt02.reject.lc 9:17-9:23
+    Type
+testdata/language-features/adt/adt02.reject.lc 10:17-10:20
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/adt/adt03.reject.out b/testdata/language-features/adt/adt03.reject.out
index 70c0c4e7..d579a3d5 100644
--- a/testdata/language-features/adt/adt03.reject.out
+++ b/testdata/language-features/adt/adt03.reject.out
@@ -2,9 +2,10 @@ can't find: a in testdata/language-features/adt/adt03.reject.lc:2:20:
 data Data3 = Data3 a b c
                    ^
 ------------ trace
-'Data3 :: Type
+'Data3 :: Type
 !can't find: a in testdata/language-features/adt/adt03.reject.lc:2:20:
 data Data3 = Data3 a b c
                    ^
 ------------ tooltips
-testdata/language-features/adt/adt03.reject.lc 2:6-2:11  Type
+testdata/language-features/adt/adt03.reject.lc 2:6-2:11
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/adt/adt04.reject.out b/testdata/language-features/adt/adt04.reject.out
index 85b91c2c..0dd18b2f 100644
--- a/testdata/language-features/adt/adt04.reject.out
+++ b/testdata/language-features/adt/adt04.reject.out
@@ -2,9 +2,10 @@ can't find: a in testdata/language-features/adt/adt04.reject.lc:2:27:
 data Data3 = Data3 { x :: a , y :: b , z :: c }
                           ^
 ------------ trace
-'Data3 :: Type
+'Data3 :: Type
 !can't find: a in testdata/language-features/adt/adt04.reject.lc:2:27:
 data Data3 = Data3 { x :: a , y :: b , z :: c }
                           ^
 ------------ tooltips
-testdata/language-features/adt/adt04.reject.lc 2:6-2:11  Type
+testdata/language-features/adt/adt04.reject.lc 2:6-2:11
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/adt/gadt01.reject.out b/testdata/language-features/adt/gadt01.reject.out
index 48732b7d..ce6834db 100644
--- a/testdata/language-features/adt/gadt01.reject.out
+++ b/testdata/language-features/adt/gadt01.reject.out
@@ -1,8 +1,11 @@
 illegal data definition (parameters are not uniform)
 ------------ trace
-'M3 :: Type -> String -> Type
+'M3 :: Type -> String -> Type
 !illegal data definition (parameters are not uniform)
 ------------ tooltips
-testdata/language-features/adt/gadt01.reject.lc 5:6-5:8  Type -> String -> Type
-testdata/language-features/adt/gadt01.reject.lc 5:15-5:19  Type
-testdata/language-features/adt/gadt01.reject.lc 5:27-5:33  Type
+testdata/language-features/adt/gadt01.reject.lc 5:6-5:8
+    Type -> String -> Type
+testdata/language-features/adt/gadt01.reject.lc 5:15-5:19
+    Type
+testdata/language-features/adt/gadt01.reject.lc 5:27-5:33
+    Type | Type
\ No newline at end of file
diff --git a/testdata/language-features/adt/gadt03.reject.out b/testdata/language-features/adt/gadt03.reject.out
index 36261981..38a50a8a 100644
--- a/testdata/language-features/adt/gadt03.reject.out
+++ b/testdata/language-features/adt/gadt03.reject.out
@@ -1,36 +1,58 @@
 illegal data definition (parameters are not uniform)
 ------------ trace
-'M2 :: Type -> String -> Type
-Value2 :: forall a . a -> forall (b :: String) . M2 a b
+'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
+  :: 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
+  :: 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
-testdata/language-features/adt/gadt03.reject.lc 2:6-2:8  Type | Type -> String -> Type
-testdata/language-features/adt/gadt03.reject.lc 2:6-3:35  Type
-testdata/language-features/adt/gadt03.reject.lc 2:15-2:19  Type
-testdata/language-features/adt/gadt03.reject.lc 2:24-2:30  Type
-testdata/language-features/adt/gadt03.reject.lc 2:24-2:38  Type
-testdata/language-features/adt/gadt03.reject.lc 2:34-2:38  Type
-testdata/language-features/adt/gadt03.reject.lc 3:3-3:9  M2 _d _a | forall a . a -> forall (b :: String) . M2 a b
-testdata/language-features/adt/gadt03.reject.lc 3:3-3:35  Type
-testdata/language-features/adt/gadt03.reject.lc 3:13-3:14  Type
-testdata/language-features/adt/gadt03.reject.lc 3:13-3:35  Type
-testdata/language-features/adt/gadt03.reject.lc 3:18-3:35  Type
-testdata/language-features/adt/gadt03.reject.lc 3:29-3:31  Type -> String -> Type
-testdata/language-features/adt/gadt03.reject.lc 3:29-3:33  String -> Type
-testdata/language-features/adt/gadt03.reject.lc 3:29-3:35  Type
-testdata/language-features/adt/gadt03.reject.lc 3:32-3:33  Type
-testdata/language-features/adt/gadt03.reject.lc 3:34-3:35  String | _b
-testdata/language-features/adt/gadt03.reject.lc 5:6-5:8  Type -> String -> Type
-testdata/language-features/adt/gadt03.reject.lc 5:15-5:19  Type
-testdata/language-features/adt/gadt03.reject.lc 5:24-5:30  Type
-testdata/language-features/adt/gadt03.reject.lc 5:24-5:38  Type
-testdata/language-features/adt/gadt03.reject.lc 5:34-5:38  Type
+testdata/language-features/adt/gadt03.reject.lc 2:6-2:8
+    Type -> String -> Type | Type -> String -> Type | Type | Type
+      -> String -> Type | Type | Type
+testdata/language-features/adt/gadt03.reject.lc 2:6-3:35
+    Type | Type
+testdata/language-features/adt/gadt03.reject.lc 2:15-2:19
+    Type | Type | Type
+testdata/language-features/adt/gadt03.reject.lc 2:24-2:30
+    Type
+testdata/language-features/adt/gadt03.reject.lc 2:24-2:38
+    Type
+testdata/language-features/adt/gadt03.reject.lc 2:34-2:38
+    Type | Type
+testdata/language-features/adt/gadt03.reject.lc 3:3-3:9
+    forall a . a -> forall (b :: String) . M2 a b | M2 _d _a
+testdata/language-features/adt/gadt03.reject.lc 3:3-3:35
+    Type | Type | Type
+testdata/language-features/adt/gadt03.reject.lc 3:13-3:14
+    Type
+testdata/language-features/adt/gadt03.reject.lc 3:13-3:35
+    Type
+testdata/language-features/adt/gadt03.reject.lc 3:18-3:35
+    Type
+testdata/language-features/adt/gadt03.reject.lc 3:29-3:31
+    Type -> String -> Type
+testdata/language-features/adt/gadt03.reject.lc 3:29-3:33
+    String -> Type
+testdata/language-features/adt/gadt03.reject.lc 3:29-3:35
+    Type | Type
+testdata/language-features/adt/gadt03.reject.lc 3:32-3:33
+    Type
+testdata/language-features/adt/gadt03.reject.lc 3:34-3:35
+    _b | String
+testdata/language-features/adt/gadt03.reject.lc 5:6-5:8
+    Type -> String -> Type
+testdata/language-features/adt/gadt03.reject.lc 5:15-5:19
+    Type
+testdata/language-features/adt/gadt03.reject.lc 5:24-5:30
+    Type
+testdata/language-features/adt/gadt03.reject.lc 5:24-5:38
+    Type
+testdata/language-features/adt/gadt03.reject.lc 5:34-5:38
+    Type | Type
\ No newline at end of file
diff --git a/testdata/language-features/adt/gadt04.reject.out b/testdata/language-features/adt/gadt04.reject.out
index 22338d9b..0d911620 100644
--- a/testdata/language-features/adt/gadt04.reject.out
+++ b/testdata/language-features/adt/gadt04.reject.out
@@ -5,17 +5,17 @@ and at testdata/language-features/adt/gadt04.reject.lc:3:3:
   Value :: a -> forall m . M a m
   ^^^^^
 ------------ trace
-'M :: Type -> String -> Type
-Value :: forall a . a -> forall (b :: String) . M a b
+'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
+  :: 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
+  :: 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:
   Value :: a -> forall m . M2 a m
   ^^^^^
@@ -23,34 +23,64 @@ and at testdata/language-features/adt/gadt04.reject.lc:3:3:
   Value :: a -> forall m . M a m
   ^^^^^
 ------------ tooltips
-testdata/language-features/adt/gadt04.reject.lc 2:6-2:7  Type | Type -> String -> Type
-testdata/language-features/adt/gadt04.reject.lc 2:6-3:33  Type
-testdata/language-features/adt/gadt04.reject.lc 2:11-2:15  Type
-testdata/language-features/adt/gadt04.reject.lc 2:19-2:25  Type
-testdata/language-features/adt/gadt04.reject.lc 2:19-2:33  Type
-testdata/language-features/adt/gadt04.reject.lc 2:29-2:33  Type
-testdata/language-features/adt/gadt04.reject.lc 3:3-3:8  M _c _a | forall a . a -> forall (b :: String) . M a b
-testdata/language-features/adt/gadt04.reject.lc 3:3-3:33  Type
-testdata/language-features/adt/gadt04.reject.lc 3:12-3:13  _b
-testdata/language-features/adt/gadt04.reject.lc 3:12-3:33  Type
-testdata/language-features/adt/gadt04.reject.lc 3:17-3:33  Type
-testdata/language-features/adt/gadt04.reject.lc 3:28-3:29  Type -> String -> Type
-testdata/language-features/adt/gadt04.reject.lc 3:28-3:31  String -> Type
-testdata/language-features/adt/gadt04.reject.lc 3:28-3:33  Type
-testdata/language-features/adt/gadt04.reject.lc 3:30-3:31  Type
-testdata/language-features/adt/gadt04.reject.lc 3:30-3:33  M _c _a -> Type
-testdata/language-features/adt/gadt04.reject.lc 3:32-3:33  String | _b
-testdata/language-features/adt/gadt04.reject.lc 5:6-5:8  Type -> String -> Type
-testdata/language-features/adt/gadt04.reject.lc 5:12-5:16  Type
-testdata/language-features/adt/gadt04.reject.lc 5:20-5:26  Type
-testdata/language-features/adt/gadt04.reject.lc 5:20-5:34  Type
-testdata/language-features/adt/gadt04.reject.lc 5:30-5:34  Type
-testdata/language-features/adt/gadt04.reject.lc 6:3-6:8  forall a . a -> forall (b :: String) . M2 a b
-testdata/language-features/adt/gadt04.reject.lc 6:12-6:13  _b
-testdata/language-features/adt/gadt04.reject.lc 6:12-6:34  Type
-testdata/language-features/adt/gadt04.reject.lc 6:17-6:34  Type
-testdata/language-features/adt/gadt04.reject.lc 6:28-6:30  Type -> String -> Type
-testdata/language-features/adt/gadt04.reject.lc 6:28-6:32  String -> Type
-testdata/language-features/adt/gadt04.reject.lc 6:28-6:34  Type
-testdata/language-features/adt/gadt04.reject.lc 6:31-6:32  Type
-testdata/language-features/adt/gadt04.reject.lc 6:33-6:34  _b
+testdata/language-features/adt/gadt04.reject.lc 2:6-2:7
+    Type -> String -> Type | Type -> String -> Type | Type | Type | Type
+      -> String -> Type | Type | Type | Type
+testdata/language-features/adt/gadt04.reject.lc 2:6-3:33
+    Type
+testdata/language-features/adt/gadt04.reject.lc 2:11-2:15
+    Type
+testdata/language-features/adt/gadt04.reject.lc 2:19-2:25
+    Type
+testdata/language-features/adt/gadt04.reject.lc 2:19-2:33
+    Type
+testdata/language-features/adt/gadt04.reject.lc 2:29-2:33
+    Type | Type
+testdata/language-features/adt/gadt04.reject.lc 3:3-3:8
+    forall a . a -> forall (b :: String) . M a b | M _c _a
+testdata/language-features/adt/gadt04.reject.lc 3:3-3:33
+    Type | Type | Type | Type
+testdata/language-features/adt/gadt04.reject.lc 3:12-3:13
+    _b
+testdata/language-features/adt/gadt04.reject.lc 3:12-3:33
+    Type
+testdata/language-features/adt/gadt04.reject.lc 3:17-3:33
+    Type
+testdata/language-features/adt/gadt04.reject.lc 3:28-3:29
+    Type -> String -> Type
+testdata/language-features/adt/gadt04.reject.lc 3:28-3:31
+    String -> Type
+testdata/language-features/adt/gadt04.reject.lc 3:28-3:33
+    Type | Type
+testdata/language-features/adt/gadt04.reject.lc 3:30-3:31
+    Type | Type
+testdata/language-features/adt/gadt04.reject.lc 3:30-3:33
+    M _c _a -> Type
+testdata/language-features/adt/gadt04.reject.lc 3:32-3:33
+    _b | String
+testdata/language-features/adt/gadt04.reject.lc 5:6-5:8
+    Type -> String -> Type
+testdata/language-features/adt/gadt04.reject.lc 5:12-5:16
+    Type
+testdata/language-features/adt/gadt04.reject.lc 5:20-5:26
+    Type
+testdata/language-features/adt/gadt04.reject.lc 5:20-5:34
+    Type
+testdata/language-features/adt/gadt04.reject.lc 5:30-5:34
+    Type | Type
+testdata/language-features/adt/gadt04.reject.lc 6:12-6:13
+    _b
+testdata/language-features/adt/gadt04.reject.lc 6:12-6:34
+    Type
+testdata/language-features/adt/gadt04.reject.lc 6:17-6:34
+    Type
+testdata/language-features/adt/gadt04.reject.lc 6:28-6:30
+    Type -> String -> Type
+testdata/language-features/adt/gadt04.reject.lc 6:28-6:32
+    String -> Type
+testdata/language-features/adt/gadt04.reject.lc 6:28-6:34
+    Type | Type
+testdata/language-features/adt/gadt04.reject.lc 6:31-6:32
+    Type
+testdata/language-features/adt/gadt04.reject.lc 6:33-6:34
+    _b
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list01.out b/testdata/language-features/basic-list/list01.out
index 500b3ba9..621aa15a 100644
--- a/testdata/language-features/basic-list/list01.out
+++ b/testdata/language-features/basic-list/list01.out
@@ -6,27 +6,47 @@ value2
 value3 = _rhs (Cons 'h' (Cons 'e' (Cons 'l' (Cons 'l' (Cons 'o' Nil)))))
 main is not found
 ------------ trace
-value1 :: forall a . List a
-value2 :: forall a . Num a => List a
-value3 :: List Char
+value1 :: forall a . List a
+value2 :: forall a . Num a => List a
+value3 :: List Char
 ------------ tooltips
-testdata/language-features/basic-list/list01.lc 1:1-1:7  forall a . List a
-testdata/language-features/basic-list/list01.lc 1:10-1:12  forall a . List a
-testdata/language-features/basic-list/list01.lc 2:1-2:7  forall a . Num a => List a
-testdata/language-features/basic-list/list01.lc 2:10-2:19  List _c
-testdata/language-features/basic-list/list01.lc 2:11-2:12  _b
-testdata/language-features/basic-list/list01.lc 2:13-2:14  _b
-testdata/language-features/basic-list/list01.lc 2:13-2:18  List _d
-testdata/language-features/basic-list/list01.lc 2:15-2:16  _b
-testdata/language-features/basic-list/list01.lc 2:15-2:18  List _e
-testdata/language-features/basic-list/list01.lc 2:17-2:18  List _e | _b
-testdata/language-features/basic-list/list01.lc 3:1-3:7  List Char
-testdata/language-features/basic-list/list01.lc 3:10-3:31  List Char
-testdata/language-features/basic-list/list01.lc 3:11-3:14  Char
-testdata/language-features/basic-list/list01.lc 3:15-3:18  Char
-testdata/language-features/basic-list/list01.lc 3:15-3:30  List Char
-testdata/language-features/basic-list/list01.lc 3:19-3:22  Char
-testdata/language-features/basic-list/list01.lc 3:19-3:30  List Char
-testdata/language-features/basic-list/list01.lc 3:23-3:26  Char
-testdata/language-features/basic-list/list01.lc 3:23-3:30  List Char
-testdata/language-features/basic-list/list01.lc 3:27-3:30  Char | List Char
+testdata/language-features/basic-list/list01.lc 1:1-1:7
+    forall a . List a
+testdata/language-features/basic-list/list01.lc 1:10-1:12
+    forall a . List a
+testdata/language-features/basic-list/list01.lc 2:1-2:7
+    forall a . Num a => List a
+testdata/language-features/basic-list/list01.lc 2:10-2:19
+    List _c
+testdata/language-features/basic-list/list01.lc 2:11-2:12
+    _b
+testdata/language-features/basic-list/list01.lc 2:13-2:14
+    _b
+testdata/language-features/basic-list/list01.lc 2:13-2:18
+    List _d
+testdata/language-features/basic-list/list01.lc 2:15-2:16
+    _b
+testdata/language-features/basic-list/list01.lc 2:15-2:18
+    List _e
+testdata/language-features/basic-list/list01.lc 2:17-2:18
+    _b | List _e
+testdata/language-features/basic-list/list01.lc 3:1-3:7
+    List Char
+testdata/language-features/basic-list/list01.lc 3:10-3:31
+    List Char
+testdata/language-features/basic-list/list01.lc 3:11-3:14
+    Char
+testdata/language-features/basic-list/list01.lc 3:15-3:18
+    Char
+testdata/language-features/basic-list/list01.lc 3:15-3:30
+    List Char
+testdata/language-features/basic-list/list01.lc 3:19-3:22
+    Char
+testdata/language-features/basic-list/list01.lc 3:19-3:30
+    List Char
+testdata/language-features/basic-list/list01.lc 3:23-3:26
+    Char
+testdata/language-features/basic-list/list01.lc 3:23-3:30
+    List Char
+testdata/language-features/basic-list/list01.lc 3:27-3:30
+    Char | List Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list02.out b/testdata/language-features/basic-list/list02.out
index f10ae96c..665e8b7d 100644
--- a/testdata/language-features/basic-list/list02.out
+++ b/testdata/language-features/basic-list/list02.out
@@ -6,27 +6,47 @@ value2
 value3 = _rhs (Cons 'h' (Cons 'e' (Cons 'l' (Cons 'l' (Cons 'o' Nil)))))
 main is not found
 ------------ trace
-value1 :: forall a . List a
-value2 :: forall a . Num a => List a
-value3 :: List Char
+value1 :: forall a . List a
+value2 :: forall a . Num a => List a
+value3 :: List Char
 ------------ tooltips
-testdata/language-features/basic-list/list02.lc 1:1-1:7  forall a . List a
-testdata/language-features/basic-list/list02.lc 1:10-2:4  forall a . List a
-testdata/language-features/basic-list/list02.lc 4:1-4:7  forall a . Num a => List a
-testdata/language-features/basic-list/list02.lc 4:10-5:7  List _c
-testdata/language-features/basic-list/list02.lc 4:11-4:12  _b
-testdata/language-features/basic-list/list02.lc 4:13-4:14  _b
-testdata/language-features/basic-list/list02.lc 4:13-5:6  List _d
-testdata/language-features/basic-list/list02.lc 5:3-5:4  _b
-testdata/language-features/basic-list/list02.lc 5:3-5:6  List _e
-testdata/language-features/basic-list/list02.lc 5:5-5:6  List _e | _b
-testdata/language-features/basic-list/list02.lc 7:1-7:7  List Char
-testdata/language-features/basic-list/list02.lc 8:3-13:4  List Char
-testdata/language-features/basic-list/list02.lc 8:5-8:8  Char
-testdata/language-features/basic-list/list02.lc 9:5-9:8  Char
-testdata/language-features/basic-list/list02.lc 9:5-12:8  List Char
-testdata/language-features/basic-list/list02.lc 10:5-10:8  Char
-testdata/language-features/basic-list/list02.lc 10:5-12:8  List Char
-testdata/language-features/basic-list/list02.lc 11:5-11:8  Char
-testdata/language-features/basic-list/list02.lc 11:5-12:8  List Char
-testdata/language-features/basic-list/list02.lc 12:5-12:8  Char | List Char
+testdata/language-features/basic-list/list02.lc 1:1-1:7
+    forall a . List a
+testdata/language-features/basic-list/list02.lc 1:10-2:4
+    forall a . List a
+testdata/language-features/basic-list/list02.lc 4:1-4:7
+    forall a . Num a => List a
+testdata/language-features/basic-list/list02.lc 4:10-5:7
+    List _c
+testdata/language-features/basic-list/list02.lc 4:11-4:12
+    _b
+testdata/language-features/basic-list/list02.lc 4:13-4:14
+    _b
+testdata/language-features/basic-list/list02.lc 4:13-5:6
+    List _d
+testdata/language-features/basic-list/list02.lc 5:3-5:4
+    _b
+testdata/language-features/basic-list/list02.lc 5:3-5:6
+    List _e
+testdata/language-features/basic-list/list02.lc 5:5-5:6
+    _b | List _e
+testdata/language-features/basic-list/list02.lc 7:1-7:7
+    List Char
+testdata/language-features/basic-list/list02.lc 8:3-13:4
+    List Char
+testdata/language-features/basic-list/list02.lc 8:5-8:8
+    Char
+testdata/language-features/basic-list/list02.lc 9:5-9:8
+    Char
+testdata/language-features/basic-list/list02.lc 9:5-12:8
+    List Char
+testdata/language-features/basic-list/list02.lc 10:5-10:8
+    Char
+testdata/language-features/basic-list/list02.lc 10:5-12:8
+    List Char
+testdata/language-features/basic-list/list02.lc 11:5-11:8
+    Char
+testdata/language-features/basic-list/list02.lc 11:5-12:8
+    List Char
+testdata/language-features/basic-list/list02.lc 12:5-12:8
+    Char | List Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list07.reject.out b/testdata/language-features/basic-list/list07.reject.out
index 27c8a2e3..a40c8c73 100644
--- a/testdata/language-features/basic-list/list07.reject.out
+++ b/testdata/language-features/basic-list/list07.reject.out
@@ -12,6 +12,9 @@ with
 
 in builtin Nil
 ------------ tooltips
-testdata/language-features/basic-list/list07.reject.lc 1:10-1:11  _b
-testdata/language-features/basic-list/list07.reject.lc 1:12-1:15  Float
-testdata/language-features/basic-list/list07.reject.lc 1:16-1:19  Char
+testdata/language-features/basic-list/list07.reject.lc 1:10-1:11
+    _b
+testdata/language-features/basic-list/list07.reject.lc 1:12-1:15
+    Float
+testdata/language-features/basic-list/list07.reject.lc 1:16-1:19
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list08.out b/testdata/language-features/basic-list/list08.out
index 88bd2006..66a0526e 100644
--- a/testdata/language-features/basic-list/list08.out
+++ b/testdata/language-features/basic-list/list08.out
@@ -2,9 +2,13 @@
 value = _rhs (Cons (fromInt 1) (Cons 1.2 Nil))
 main is not found
 ------------ trace
-value :: List Float
+value :: List Float
 ------------ tooltips
-testdata/language-features/basic-list/list08.lc 1:1-1:6  List Float
-testdata/language-features/basic-list/list08.lc 1:9-1:16  List Float
-testdata/language-features/basic-list/list08.lc 1:10-1:11  _b
-testdata/language-features/basic-list/list08.lc 1:12-1:15  Float | List Float
+testdata/language-features/basic-list/list08.lc 1:1-1:6
+    List Float
+testdata/language-features/basic-list/list08.lc 1:9-1:16
+    List Float
+testdata/language-features/basic-list/list08.lc 1:10-1:11
+    _b
+testdata/language-features/basic-list/list08.lc 1:12-1:15
+    Float | List Float
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list09.out b/testdata/language-features/basic-list/list09.out
index 24341f59..7b7e8d99 100644
--- a/testdata/language-features/basic-list/list09.out
+++ b/testdata/language-features/basic-list/list09.out
@@ -2,11 +2,17 @@
 value = _rhs (Cons (fromInt 1) (Cons 1.2 Nil) :: List Float)
 main is not found
 ------------ trace
-value :: List Float
+value :: List Float
 ------------ tooltips
-testdata/language-features/basic-list/list09.lc 1:1-1:6  List Float
-testdata/language-features/basic-list/list09.lc 1:9-1:16  List Float
-testdata/language-features/basic-list/list09.lc 1:10-1:11  _b
-testdata/language-features/basic-list/list09.lc 1:12-1:15  Float | List Float
-testdata/language-features/basic-list/list09.lc 1:20-1:27  Type
-testdata/language-features/basic-list/list09.lc 1:21-1:26  Type
+testdata/language-features/basic-list/list09.lc 1:1-1:6
+    List Float
+testdata/language-features/basic-list/list09.lc 1:9-1:16
+    List Float
+testdata/language-features/basic-list/list09.lc 1:10-1:11
+    _b
+testdata/language-features/basic-list/list09.lc 1:12-1:15
+    Float | List Float
+testdata/language-features/basic-list/list09.lc 1:20-1:27
+    Type
+testdata/language-features/basic-list/list09.lc 1:21-1:26
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list10.reject.out b/testdata/language-features/basic-list/list10.reject.out
index 186dc9c6..0ce8bd30 100644
--- a/testdata/language-features/basic-list/list10.reject.out
+++ b/testdata/language-features/basic-list/list10.reject.out
@@ -12,7 +12,11 @@ with
 
 in builtin Nil
 ------------ tooltips
-testdata/language-features/basic-list/list10.reject.lc 1:10-1:11  _b
-testdata/language-features/basic-list/list10.reject.lc 1:12-1:15  Float
-testdata/language-features/basic-list/list10.reject.lc 1:20-1:25  Type
-testdata/language-features/basic-list/list10.reject.lc 1:21-1:24  Type
+testdata/language-features/basic-list/list10.reject.lc 1:10-1:11
+    _b
+testdata/language-features/basic-list/list10.reject.lc 1:12-1:15
+    Float
+testdata/language-features/basic-list/list10.reject.lc 1:20-1:25
+    Type
+testdata/language-features/basic-list/list10.reject.lc 1:21-1:24
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list11.out b/testdata/language-features/basic-list/list11.out
index 01414c97..b02e1b06 100644
--- a/testdata/language-features/basic-list/list11.out
+++ b/testdata/language-features/basic-list/list11.out
@@ -2,11 +2,17 @@
 value = _rhs (fromInt 1 : Nil)
 main is not found
 ------------ trace
-value :: forall a . Num a => List a
+value :: forall a . Num a => List a
 ------------ tooltips
-testdata/language-features/basic-list/list11.lc 1:1-1:6  forall a . Num a => List a
-testdata/language-features/basic-list/list11.lc 1:9-1:10  _b
-testdata/language-features/basic-list/list11.lc 1:9-1:11  List _b -> List _b
-testdata/language-features/basic-list/list11.lc 1:9-1:13  List _b
-testdata/language-features/basic-list/list11.lc 1:10-1:11  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list11.lc 1:11-1:13  forall a . List a
+testdata/language-features/basic-list/list11.lc 1:1-1:6
+    forall a . Num a => List a
+testdata/language-features/basic-list/list11.lc 1:9-1:10
+    _b
+testdata/language-features/basic-list/list11.lc 1:9-1:11
+    List _b -> List _b
+testdata/language-features/basic-list/list11.lc 1:9-1:13
+    List _b
+testdata/language-features/basic-list/list11.lc 1:10-1:11
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list11.lc 1:11-1:13
+    forall a . List a
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list12.out b/testdata/language-features/basic-list/list12.out
index 9d57e36d..b33e242d 100644
--- a/testdata/language-features/basic-list/list12.out
+++ b/testdata/language-features/basic-list/list12.out
@@ -2,27 +2,49 @@
 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
+value :: forall a . Num a => List a
 ------------ tooltips
-testdata/language-features/basic-list/list12.lc 1:1-1:6  forall a . Num a => List a
-testdata/language-features/basic-list/list12.lc 1:9-1:10  _b
-testdata/language-features/basic-list/list12.lc 1:9-1:11  List _b -> List _b
-testdata/language-features/basic-list/list12.lc 1:9-1:21  List _c
-testdata/language-features/basic-list/list12.lc 1:10-1:11  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list12.lc 1:11-1:12  _b
-testdata/language-features/basic-list/list12.lc 1:11-1:13  List _b -> List _b
-testdata/language-features/basic-list/list12.lc 1:11-1:21  List _d
-testdata/language-features/basic-list/list12.lc 1:12-1:13  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list12.lc 1:13-1:14  _b
-testdata/language-features/basic-list/list12.lc 1:13-1:15  List _b -> List _b
-testdata/language-features/basic-list/list12.lc 1:13-1:21  List _e
-testdata/language-features/basic-list/list12.lc 1:14-1:15  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list12.lc 1:15-1:16  _b
-testdata/language-features/basic-list/list12.lc 1:15-1:17  List _b -> List _b
-testdata/language-features/basic-list/list12.lc 1:15-1:21  List _f
-testdata/language-features/basic-list/list12.lc 1:16-1:17  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list12.lc 1:17-1:18  _b
-testdata/language-features/basic-list/list12.lc 1:17-1:19  List _b -> List _b
-testdata/language-features/basic-list/list12.lc 1:17-1:21  List _f
-testdata/language-features/basic-list/list12.lc 1:18-1:19  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list12.lc 1:19-1:21  forall a . List a
+testdata/language-features/basic-list/list12.lc 1:1-1:6
+    forall a . Num a => List a
+testdata/language-features/basic-list/list12.lc 1:9-1:10
+    _b
+testdata/language-features/basic-list/list12.lc 1:9-1:11
+    List _b -> List _b
+testdata/language-features/basic-list/list12.lc 1:9-1:21
+    List _c
+testdata/language-features/basic-list/list12.lc 1:10-1:11
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list12.lc 1:11-1:12
+    _b
+testdata/language-features/basic-list/list12.lc 1:11-1:13
+    List _b -> List _b
+testdata/language-features/basic-list/list12.lc 1:11-1:21
+    List _d
+testdata/language-features/basic-list/list12.lc 1:12-1:13
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list12.lc 1:13-1:14
+    _b
+testdata/language-features/basic-list/list12.lc 1:13-1:15
+    List _b -> List _b
+testdata/language-features/basic-list/list12.lc 1:13-1:21
+    List _e
+testdata/language-features/basic-list/list12.lc 1:14-1:15
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list12.lc 1:15-1:16
+    _b
+testdata/language-features/basic-list/list12.lc 1:15-1:17
+    List _b -> List _b
+testdata/language-features/basic-list/list12.lc 1:15-1:21
+    List _f
+testdata/language-features/basic-list/list12.lc 1:16-1:17
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list12.lc 1:17-1:18
+    _b
+testdata/language-features/basic-list/list12.lc 1:17-1:19
+    List _b -> List _b
+testdata/language-features/basic-list/list12.lc 1:17-1:21
+    List _f
+testdata/language-features/basic-list/list12.lc 1:18-1:19
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list12.lc 1:19-1:21
+    forall a . List a
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list13.out b/testdata/language-features/basic-list/list13.out
index 477564f1..f0a9adde 100644
--- a/testdata/language-features/basic-list/list13.out
+++ b/testdata/language-features/basic-list/list13.out
@@ -2,27 +2,49 @@
 value = _rhs ('h' : 'e' : 'l' : 'l' : 'o' : Nil)
 main is not found
 ------------ trace
-value :: List Char
+value :: List Char
 ------------ tooltips
-testdata/language-features/basic-list/list13.lc 1:1-1:6  List Char
-testdata/language-features/basic-list/list13.lc 1:9-1:12  Char
-testdata/language-features/basic-list/list13.lc 1:9-1:13  List Char -> List Char
-testdata/language-features/basic-list/list13.lc 1:9-1:31  List Char
-testdata/language-features/basic-list/list13.lc 1:12-1:13  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list13.lc 1:13-1:16  Char
-testdata/language-features/basic-list/list13.lc 1:13-1:17  List Char -> List Char
-testdata/language-features/basic-list/list13.lc 1:13-1:31  List Char
-testdata/language-features/basic-list/list13.lc 1:16-1:17  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list13.lc 1:17-1:20  Char
-testdata/language-features/basic-list/list13.lc 1:17-1:21  List Char -> List Char
-testdata/language-features/basic-list/list13.lc 1:17-1:31  List Char
-testdata/language-features/basic-list/list13.lc 1:20-1:21  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list13.lc 1:21-1:24  Char
-testdata/language-features/basic-list/list13.lc 1:21-1:25  List Char -> List Char
-testdata/language-features/basic-list/list13.lc 1:21-1:31  List Char
-testdata/language-features/basic-list/list13.lc 1:24-1:25  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list13.lc 1:25-1:28  Char
-testdata/language-features/basic-list/list13.lc 1:25-1:29  List Char -> List Char
-testdata/language-features/basic-list/list13.lc 1:25-1:31  List Char
-testdata/language-features/basic-list/list13.lc 1:28-1:29  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list13.lc 1:29-1:31  forall a . List a
+testdata/language-features/basic-list/list13.lc 1:1-1:6
+    List Char
+testdata/language-features/basic-list/list13.lc 1:9-1:12
+    Char
+testdata/language-features/basic-list/list13.lc 1:9-1:13
+    List Char -> List Char
+testdata/language-features/basic-list/list13.lc 1:9-1:31
+    List Char
+testdata/language-features/basic-list/list13.lc 1:12-1:13
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list13.lc 1:13-1:16
+    Char
+testdata/language-features/basic-list/list13.lc 1:13-1:17
+    List Char -> List Char
+testdata/language-features/basic-list/list13.lc 1:13-1:31
+    List Char
+testdata/language-features/basic-list/list13.lc 1:16-1:17
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list13.lc 1:17-1:20
+    Char
+testdata/language-features/basic-list/list13.lc 1:17-1:21
+    List Char -> List Char
+testdata/language-features/basic-list/list13.lc 1:17-1:31
+    List Char
+testdata/language-features/basic-list/list13.lc 1:20-1:21
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list13.lc 1:21-1:24
+    Char
+testdata/language-features/basic-list/list13.lc 1:21-1:25
+    List Char -> List Char
+testdata/language-features/basic-list/list13.lc 1:21-1:31
+    List Char
+testdata/language-features/basic-list/list13.lc 1:24-1:25
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list13.lc 1:25-1:28
+    Char
+testdata/language-features/basic-list/list13.lc 1:25-1:29
+    List Char -> List Char
+testdata/language-features/basic-list/list13.lc 1:25-1:31
+    List Char
+testdata/language-features/basic-list/list13.lc 1:28-1:29
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list13.lc 1:29-1:31
+    forall a . List a
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list14.reject.out b/testdata/language-features/basic-list/list14.reject.out
index c8abf9be..8d1a59e9 100644
--- a/testdata/language-features/basic-list/list14.reject.out
+++ b/testdata/language-features/basic-list/list14.reject.out
@@ -16,10 +16,17 @@ in testdata/language-features/basic-list/list14.reject.lc:1:17:
 value = 'h':'i':()
                 ^^
 ------------ tooltips
-testdata/language-features/basic-list/list14.reject.lc 1:9-1:12  Char
-testdata/language-features/basic-list/list14.reject.lc 1:9-1:13  List Char -> List Char
-testdata/language-features/basic-list/list14.reject.lc 1:12-1:13  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list14.reject.lc 1:13-1:16  Char
-testdata/language-features/basic-list/list14.reject.lc 1:13-1:17  List Char -> List Char
-testdata/language-features/basic-list/list14.reject.lc 1:16-1:17  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list14.reject.lc 1:17-1:19  ()
+testdata/language-features/basic-list/list14.reject.lc 1:9-1:12
+    Char
+testdata/language-features/basic-list/list14.reject.lc 1:9-1:13
+    List Char -> List Char
+testdata/language-features/basic-list/list14.reject.lc 1:12-1:13
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list14.reject.lc 1:13-1:16
+    Char
+testdata/language-features/basic-list/list14.reject.lc 1:13-1:17
+    List Char -> List Char
+testdata/language-features/basic-list/list14.reject.lc 1:16-1:17
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list14.reject.lc 1:17-1:19
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list15.reject.out b/testdata/language-features/basic-list/list15.reject.out
index 96a8907d..9caab32f 100644
--- a/testdata/language-features/basic-list/list15.reject.out
+++ b/testdata/language-features/basic-list/list15.reject.out
@@ -16,12 +16,21 @@ in testdata/language-features/basic-list/list15.reject.lc:1:20:
 value = 'h':'i':():[]
                    ^^
 ------------ tooltips
-testdata/language-features/basic-list/list15.reject.lc 1:9-1:12  Char
-testdata/language-features/basic-list/list15.reject.lc 1:9-1:13  List Char -> List Char
-testdata/language-features/basic-list/list15.reject.lc 1:12-1:13  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list15.reject.lc 1:13-1:16  Char
-testdata/language-features/basic-list/list15.reject.lc 1:13-1:17  List Char -> List Char
-testdata/language-features/basic-list/list15.reject.lc 1:16-1:17  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list15.reject.lc 1:17-1:19  ()
-testdata/language-features/basic-list/list15.reject.lc 1:17-1:20  List () -> List ()
-testdata/language-features/basic-list/list15.reject.lc 1:19-1:20  forall a . a -> List a -> List a
+testdata/language-features/basic-list/list15.reject.lc 1:9-1:12
+    Char
+testdata/language-features/basic-list/list15.reject.lc 1:9-1:13
+    List Char -> List Char
+testdata/language-features/basic-list/list15.reject.lc 1:12-1:13
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list15.reject.lc 1:13-1:16
+    Char
+testdata/language-features/basic-list/list15.reject.lc 1:13-1:17
+    List Char -> List Char
+testdata/language-features/basic-list/list15.reject.lc 1:16-1:17
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list15.reject.lc 1:17-1:19
+    ()
+testdata/language-features/basic-list/list15.reject.lc 1:17-1:20
+    List () -> List ()
+testdata/language-features/basic-list/list15.reject.lc 1:19-1:20
+    forall a . a -> List a -> List a
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/list16.reject.out b/testdata/language-features/basic-list/list16.reject.out
index e109192d..4ffd3ea0 100644
--- a/testdata/language-features/basic-list/list16.reject.out
+++ b/testdata/language-features/basic-list/list16.reject.out
@@ -16,7 +16,11 @@ in testdata/language-features/basic-list/list16.reject.lc:1:13:
 value = 'h':'i'
             ^^^
 ------------ tooltips
-testdata/language-features/basic-list/list16.reject.lc 1:9-1:12  Char
-testdata/language-features/basic-list/list16.reject.lc 1:9-1:13  List Char -> List Char
-testdata/language-features/basic-list/list16.reject.lc 1:12-1:13  forall a . a -> List a -> List a
-testdata/language-features/basic-list/list16.reject.lc 1:13-1:16  Char
+testdata/language-features/basic-list/list16.reject.lc 1:9-1:12
+    Char
+testdata/language-features/basic-list/list16.reject.lc 1:9-1:13
+    List Char -> List Char
+testdata/language-features/basic-list/list16.reject.lc 1:12-1:13
+    forall a . a -> List a -> List a
+testdata/language-features/basic-list/list16.reject.lc 1:13-1:16
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/listcomp01.out b/testdata/language-features/basic-list/listcomp01.out
index 74cf6abb..56aeb025 100644
--- a/testdata/language-features/basic-list/listcomp01.out
+++ b/testdata/language-features/basic-list/listcomp01.out
@@ -6,15 +6,25 @@ value
       (Cons HNil (Cons HNil (Cons HNil (Cons HNil Nil)))))
 main is not found
 ------------ trace
-value :: List ()
+value :: List ()
 ------------ tooltips
-testdata/language-features/basic-list/listcomp01.lc 1:1-1:6  List ()
-testdata/language-features/basic-list/listcomp01.lc 1:9-1:34  List ()
-testdata/language-features/basic-list/listcomp01.lc 1:10-1:12  () | List () | _b -> List _a
-testdata/language-features/basic-list/listcomp01.lc 1:20-1:33  List ()
-testdata/language-features/basic-list/listcomp01.lc 1:21-1:23  ()
-testdata/language-features/basic-list/listcomp01.lc 1:24-1:26  ()
-testdata/language-features/basic-list/listcomp01.lc 1:24-1:32  List ()
-testdata/language-features/basic-list/listcomp01.lc 1:27-1:29  ()
-testdata/language-features/basic-list/listcomp01.lc 1:27-1:32  List ()
-testdata/language-features/basic-list/listcomp01.lc 1:30-1:32  () | List ()
+testdata/language-features/basic-list/listcomp01.lc 1:1-1:6
+    List ()
+testdata/language-features/basic-list/listcomp01.lc 1:9-1:34
+    List ()
+testdata/language-features/basic-list/listcomp01.lc 1:10-1:12
+    () | List ()
+testdata/language-features/basic-list/listcomp01.lc 1:20-1:33
+    List ()
+testdata/language-features/basic-list/listcomp01.lc 1:21-1:23
+    ()
+testdata/language-features/basic-list/listcomp01.lc 1:24-1:26
+    ()
+testdata/language-features/basic-list/listcomp01.lc 1:24-1:32
+    List ()
+testdata/language-features/basic-list/listcomp01.lc 1:27-1:29
+    ()
+testdata/language-features/basic-list/listcomp01.lc 1:27-1:32
+    List ()
+testdata/language-features/basic-list/listcomp01.lc 1:30-1:32
+    () | List ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/listcomp02.out b/testdata/language-features/basic-list/listcomp02.out
index 7e689b09..dfd424a4 100644
--- a/testdata/language-features/basic-list/listcomp02.out
+++ b/testdata/language-features/basic-list/listcomp02.out
@@ -3,18 +3,30 @@ 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 ()
-value :: List ()
+l :: List ()
+value :: List ()
 ------------ tooltips
-testdata/language-features/basic-list/listcomp02.lc 1:1-1:2  List ()
-testdata/language-features/basic-list/listcomp02.lc 1:5-1:18  List ()
-testdata/language-features/basic-list/listcomp02.lc 1:6-1:8  ()
-testdata/language-features/basic-list/listcomp02.lc 1:9-1:11  ()
-testdata/language-features/basic-list/listcomp02.lc 1:9-1:17  List ()
-testdata/language-features/basic-list/listcomp02.lc 1:12-1:14  ()
-testdata/language-features/basic-list/listcomp02.lc 1:12-1:17  List ()
-testdata/language-features/basic-list/listcomp02.lc 1:15-1:17  () | List ()
-testdata/language-features/basic-list/listcomp02.lc 2:1-2:6  List ()
-testdata/language-features/basic-list/listcomp02.lc 2:9-2:21  List ()
-testdata/language-features/basic-list/listcomp02.lc 2:10-2:11  List _b | _b -> List _a | _d
-testdata/language-features/basic-list/listcomp02.lc 2:19-2:20  List ()
+testdata/language-features/basic-list/listcomp02.lc 1:1-1:2
+    List ()
+testdata/language-features/basic-list/listcomp02.lc 1:5-1:18
+    List ()
+testdata/language-features/basic-list/listcomp02.lc 1:6-1:8
+    ()
+testdata/language-features/basic-list/listcomp02.lc 1:9-1:11
+    ()
+testdata/language-features/basic-list/listcomp02.lc 1:9-1:17
+    List ()
+testdata/language-features/basic-list/listcomp02.lc 1:12-1:14
+    ()
+testdata/language-features/basic-list/listcomp02.lc 1:12-1:17
+    List ()
+testdata/language-features/basic-list/listcomp02.lc 1:15-1:17
+    () | List ()
+testdata/language-features/basic-list/listcomp02.lc 2:1-2:6
+    List ()
+testdata/language-features/basic-list/listcomp02.lc 2:9-2:21
+    List ()
+testdata/language-features/basic-list/listcomp02.lc 2:10-2:11
+    _d | List _b
+testdata/language-features/basic-list/listcomp02.lc 2:19-2:20
+    List ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/listcomp03.out b/testdata/language-features/basic-list/listcomp03.out
index 6bb450ce..4fce997f 100644
--- a/testdata/language-features/basic-list/listcomp03.out
+++ b/testdata/language-features/basic-list/listcomp03.out
@@ -6,17 +6,29 @@ value
       (Cons HNil (Cons HNil (Cons HNil (Cons HNil Nil)))))
 main is not found
 ------------ trace
-value :: List ()
+value :: List ()
 ------------ tooltips
-testdata/language-features/basic-list/listcomp03.lc 1:1-1:6  List ()
-testdata/language-features/basic-list/listcomp03.lc 1:9-1:41  List ()
-testdata/language-features/basic-list/listcomp03.lc 1:10-1:12  () | List ()
-testdata/language-features/basic-list/listcomp03.lc 1:10-1:40  List () | List () -> List () | _b -> List _a
-testdata/language-features/basic-list/listcomp03.lc 1:20-1:33  List ()
-testdata/language-features/basic-list/listcomp03.lc 1:21-1:23  ()
-testdata/language-features/basic-list/listcomp03.lc 1:24-1:26  ()
-testdata/language-features/basic-list/listcomp03.lc 1:24-1:32  List ()
-testdata/language-features/basic-list/listcomp03.lc 1:27-1:29  ()
-testdata/language-features/basic-list/listcomp03.lc 1:27-1:32  List ()
-testdata/language-features/basic-list/listcomp03.lc 1:30-1:32  () | List ()
-testdata/language-features/basic-list/listcomp03.lc 1:35-1:40  Bool
+testdata/language-features/basic-list/listcomp03.lc 1:1-1:6
+    List ()
+testdata/language-features/basic-list/listcomp03.lc 1:9-1:41
+    List ()
+testdata/language-features/basic-list/listcomp03.lc 1:10-1:12
+    () | List ()
+testdata/language-features/basic-list/listcomp03.lc 1:10-1:40
+    List () -> List () | List ()
+testdata/language-features/basic-list/listcomp03.lc 1:20-1:33
+    List ()
+testdata/language-features/basic-list/listcomp03.lc 1:21-1:23
+    ()
+testdata/language-features/basic-list/listcomp03.lc 1:24-1:26
+    ()
+testdata/language-features/basic-list/listcomp03.lc 1:24-1:32
+    List ()
+testdata/language-features/basic-list/listcomp03.lc 1:27-1:29
+    ()
+testdata/language-features/basic-list/listcomp03.lc 1:27-1:32
+    List ()
+testdata/language-features/basic-list/listcomp03.lc 1:30-1:32
+    () | List ()
+testdata/language-features/basic-list/listcomp03.lc 1:35-1:40
+    Bool
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/listcomp04.out b/testdata/language-features/basic-list/listcomp04.out
index 48f2b74f..05e9c859 100644
--- a/testdata/language-features/basic-list/listcomp04.out
+++ b/testdata/language-features/basic-list/listcomp04.out
@@ -3,20 +3,34 @@ 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 ()
-value :: List ()
+l :: List ()
+value :: List ()
 ------------ tooltips
-testdata/language-features/basic-list/listcomp04.lc 1:1-1:2  List ()
-testdata/language-features/basic-list/listcomp04.lc 1:5-1:18  List ()
-testdata/language-features/basic-list/listcomp04.lc 1:6-1:8  ()
-testdata/language-features/basic-list/listcomp04.lc 1:9-1:11  ()
-testdata/language-features/basic-list/listcomp04.lc 1:9-1:17  List ()
-testdata/language-features/basic-list/listcomp04.lc 1:12-1:14  ()
-testdata/language-features/basic-list/listcomp04.lc 1:12-1:17  List ()
-testdata/language-features/basic-list/listcomp04.lc 1:15-1:17  () | List ()
-testdata/language-features/basic-list/listcomp04.lc 2:1-2:6  List ()
-testdata/language-features/basic-list/listcomp04.lc 2:9-2:30  List ()
-testdata/language-features/basic-list/listcomp04.lc 2:10-2:12  () | List () | _b -> List _a
-testdata/language-features/basic-list/listcomp04.lc 2:10-2:29  List () | _b -> List _a
-testdata/language-features/basic-list/listcomp04.lc 2:20-2:21  List ()
-testdata/language-features/basic-list/listcomp04.lc 2:28-2:29  List ()
+testdata/language-features/basic-list/listcomp04.lc 1:1-1:2
+    List ()
+testdata/language-features/basic-list/listcomp04.lc 1:5-1:18
+    List ()
+testdata/language-features/basic-list/listcomp04.lc 1:6-1:8
+    ()
+testdata/language-features/basic-list/listcomp04.lc 1:9-1:11
+    ()
+testdata/language-features/basic-list/listcomp04.lc 1:9-1:17
+    List ()
+testdata/language-features/basic-list/listcomp04.lc 1:12-1:14
+    ()
+testdata/language-features/basic-list/listcomp04.lc 1:12-1:17
+    List ()
+testdata/language-features/basic-list/listcomp04.lc 1:15-1:17
+    () | List ()
+testdata/language-features/basic-list/listcomp04.lc 2:1-2:6
+    List ()
+testdata/language-features/basic-list/listcomp04.lc 2:9-2:30
+    List ()
+testdata/language-features/basic-list/listcomp04.lc 2:10-2:12
+    () | List ()
+testdata/language-features/basic-list/listcomp04.lc 2:10-2:29
+    List ()
+testdata/language-features/basic-list/listcomp04.lc 2:20-2:21
+    List ()
+testdata/language-features/basic-list/listcomp04.lc 2:28-2:29
+    List ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/listcomp05.out b/testdata/language-features/basic-list/listcomp05.out
index ff151c96..c345731c 100644
--- a/testdata/language-features/basic-list/listcomp05.out
+++ b/testdata/language-features/basic-list/listcomp05.out
@@ -6,14 +6,21 @@ value
       (Cons HNil (Cons HNil Nil)))
 main is not found
 ------------ trace
-value :: List ()
+value :: List ()
 ------------ tooltips
-testdata/language-features/basic-list/listcomp05.lc 1:1-1:6  List ()
-testdata/language-features/basic-list/listcomp05.lc 1:9-1:39  List ()
-testdata/language-features/basic-list/listcomp05.lc 1:10-1:11  ()
-testdata/language-features/basic-list/listcomp05.lc 1:10-1:38  _b -> List _a
-testdata/language-features/basic-list/listcomp05.lc 1:19-1:26  List ()
-testdata/language-features/basic-list/listcomp05.lc 1:20-1:22  ()
-testdata/language-features/basic-list/listcomp05.lc 1:23-1:25  () | List ()
-testdata/language-features/basic-list/listcomp05.lc 1:32-1:33  () | _b
-testdata/language-features/basic-list/listcomp05.lc 1:36-1:38  ()
+testdata/language-features/basic-list/listcomp05.lc 1:1-1:6
+    List ()
+testdata/language-features/basic-list/listcomp05.lc 1:9-1:39
+    List ()
+testdata/language-features/basic-list/listcomp05.lc 1:10-1:11
+    ()
+testdata/language-features/basic-list/listcomp05.lc 1:19-1:26
+    List ()
+testdata/language-features/basic-list/listcomp05.lc 1:20-1:22
+    ()
+testdata/language-features/basic-list/listcomp05.lc 1:23-1:25
+    () | List ()
+testdata/language-features/basic-list/listcomp05.lc 1:32-1:33
+    _b | ()
+testdata/language-features/basic-list/listcomp05.lc 1:36-1:38
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/listcomp06.out b/testdata/language-features/basic-list/listcomp06.out
index 4219a6d0..c06f6155 100644
--- a/testdata/language-features/basic-list/listcomp06.out
+++ b/testdata/language-features/basic-list/listcomp06.out
@@ -17,26 +17,46 @@ value2
       (Cons HNil (Cons HNil Nil)))
 main is not found
 ------------ trace
-value1 :: List ()
-value2 :: List ()
+value1 :: List ()
+value2 :: List ()
 ------------ tooltips
-testdata/language-features/basic-list/listcomp06.lc 1:1-1:7  List ()
-testdata/language-features/basic-list/listcomp06.lc 1:10-1:46  List ()
-testdata/language-features/basic-list/listcomp06.lc 1:11-1:12  () | List ()
-testdata/language-features/basic-list/listcomp06.lc 1:11-1:45  List () -> List () | _b -> List _a
-testdata/language-features/basic-list/listcomp06.lc 1:20-1:27  List ()
-testdata/language-features/basic-list/listcomp06.lc 1:21-1:23  ()
-testdata/language-features/basic-list/listcomp06.lc 1:24-1:26  () | List ()
-testdata/language-features/basic-list/listcomp06.lc 1:33-1:34  () | _b
-testdata/language-features/basic-list/listcomp06.lc 1:37-1:39  ()
-testdata/language-features/basic-list/listcomp06.lc 1:41-1:45  Bool
-testdata/language-features/basic-list/listcomp06.lc 3:1-3:7  List ()
-testdata/language-features/basic-list/listcomp06.lc 3:10-3:46  List ()
-testdata/language-features/basic-list/listcomp06.lc 3:11-3:12  ()
-testdata/language-features/basic-list/listcomp06.lc 3:11-3:45  List () | _b -> List _a
-testdata/language-features/basic-list/listcomp06.lc 3:20-3:27  List ()
-testdata/language-features/basic-list/listcomp06.lc 3:21-3:23  ()
-testdata/language-features/basic-list/listcomp06.lc 3:24-3:26  () | List ()
-testdata/language-features/basic-list/listcomp06.lc 3:29-3:33  Bool
-testdata/language-features/basic-list/listcomp06.lc 3:39-3:40  () | _b
-testdata/language-features/basic-list/listcomp06.lc 3:43-3:45  ()
+testdata/language-features/basic-list/listcomp06.lc 1:1-1:7
+    List ()
+testdata/language-features/basic-list/listcomp06.lc 1:10-1:46
+    List ()
+testdata/language-features/basic-list/listcomp06.lc 1:11-1:12
+    () | List ()
+testdata/language-features/basic-list/listcomp06.lc 1:11-1:45
+    List () -> List ()
+testdata/language-features/basic-list/listcomp06.lc 1:20-1:27
+    List ()
+testdata/language-features/basic-list/listcomp06.lc 1:21-1:23
+    ()
+testdata/language-features/basic-list/listcomp06.lc 1:24-1:26
+    () | List ()
+testdata/language-features/basic-list/listcomp06.lc 1:33-1:34
+    _b | ()
+testdata/language-features/basic-list/listcomp06.lc 1:37-1:39
+    ()
+testdata/language-features/basic-list/listcomp06.lc 1:41-1:45
+    Bool
+testdata/language-features/basic-list/listcomp06.lc 3:1-3:7
+    List ()
+testdata/language-features/basic-list/listcomp06.lc 3:10-3:46
+    List ()
+testdata/language-features/basic-list/listcomp06.lc 3:11-3:12
+    ()
+testdata/language-features/basic-list/listcomp06.lc 3:11-3:45
+    List ()
+testdata/language-features/basic-list/listcomp06.lc 3:20-3:27
+    List ()
+testdata/language-features/basic-list/listcomp06.lc 3:21-3:23
+    ()
+testdata/language-features/basic-list/listcomp06.lc 3:24-3:26
+    () | List ()
+testdata/language-features/basic-list/listcomp06.lc 3:29-3:33
+    Bool
+testdata/language-features/basic-list/listcomp06.lc 3:39-3:40
+    _b | ()
+testdata/language-features/basic-list/listcomp06.lc 3:43-3:45
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/listcomp07.out b/testdata/language-features/basic-list/listcomp07.out
index 62a30caf..617c9b61 100644
--- a/testdata/language-features/basic-list/listcomp07.out
+++ b/testdata/language-features/basic-list/listcomp07.out
@@ -25,43 +25,73 @@ value3
       (Cons HNil (Cons HNil Nil)))
 main is not found
 ------------ trace
-value1 :: List ()
-value2 :: List ()
-value3 :: List ()
+value1 :: List ()
+value2 :: List ()
+value3 :: List ()
 ------------ tooltips
-testdata/language-features/basic-list/listcomp07.lc 1:1-1:7  List ()
-testdata/language-features/basic-list/listcomp07.lc 1:10-6:11  List ()
-testdata/language-features/basic-list/listcomp07.lc 1:12-1:13  ()
-testdata/language-features/basic-list/listcomp07.lc 1:12-5:21  _b -> List _a
-testdata/language-features/basic-list/listcomp07.lc 2:17-2:24  List ()
-testdata/language-features/basic-list/listcomp07.lc 2:18-2:20  ()
-testdata/language-features/basic-list/listcomp07.lc 2:21-2:23  () | List ()
-testdata/language-features/basic-list/listcomp07.lc 3:16-3:17  () | _b
-testdata/language-features/basic-list/listcomp07.lc 3:20-3:22  ()
-testdata/language-features/basic-list/listcomp07.lc 4:12-4:16  Bool
-testdata/language-features/basic-list/listcomp07.lc 5:16-5:17  () | _b
-testdata/language-features/basic-list/listcomp07.lc 5:20-5:21  ()
-testdata/language-features/basic-list/listcomp07.lc 8:1-8:7  List ()
-testdata/language-features/basic-list/listcomp07.lc 8:10-12:11  List ()
-testdata/language-features/basic-list/listcomp07.lc 8:12-8:13  ()
-testdata/language-features/basic-list/listcomp07.lc 8:12-11:21  _b -> List _a
-testdata/language-features/basic-list/listcomp07.lc 8:21-8:28  List ()
-testdata/language-features/basic-list/listcomp07.lc 8:22-8:24  ()
-testdata/language-features/basic-list/listcomp07.lc 8:25-8:27  () | List ()
-testdata/language-features/basic-list/listcomp07.lc 9:16-9:17  () | _b
-testdata/language-features/basic-list/listcomp07.lc 9:20-9:22  ()
-testdata/language-features/basic-list/listcomp07.lc 10:12-10:16  Bool
-testdata/language-features/basic-list/listcomp07.lc 11:16-11:17  () | _b
-testdata/language-features/basic-list/listcomp07.lc 11:20-11:21  ()
-testdata/language-features/basic-list/listcomp07.lc 14:1-14:7  List ()
-testdata/language-features/basic-list/listcomp07.lc 14:10-20:3  List ()
-testdata/language-features/basic-list/listcomp07.lc 14:12-14:13  ()
-testdata/language-features/basic-list/listcomp07.lc 14:12-19:15  _b -> List _a
-testdata/language-features/basic-list/listcomp07.lc 15:15-15:22  List ()
-testdata/language-features/basic-list/listcomp07.lc 15:16-15:18  ()
-testdata/language-features/basic-list/listcomp07.lc 15:19-15:21  () | List ()
-testdata/language-features/basic-list/listcomp07.lc 17:2-17:3  () | _b
-testdata/language-features/basic-list/listcomp07.lc 17:6-17:8  ()
-testdata/language-features/basic-list/listcomp07.lc 18:7-18:11  Bool
-testdata/language-features/basic-list/listcomp07.lc 19:10-19:11  () | _b
-testdata/language-features/basic-list/listcomp07.lc 19:14-19:15  ()
+testdata/language-features/basic-list/listcomp07.lc 1:1-1:7
+    List ()
+testdata/language-features/basic-list/listcomp07.lc 1:10-6:11
+    List ()
+testdata/language-features/basic-list/listcomp07.lc 1:12-1:13
+    ()
+testdata/language-features/basic-list/listcomp07.lc 2:17-2:24
+    List ()
+testdata/language-features/basic-list/listcomp07.lc 2:18-2:20
+    ()
+testdata/language-features/basic-list/listcomp07.lc 2:21-2:23
+    () | List ()
+testdata/language-features/basic-list/listcomp07.lc 3:16-3:17
+    _b | ()
+testdata/language-features/basic-list/listcomp07.lc 3:20-3:22
+    ()
+testdata/language-features/basic-list/listcomp07.lc 4:12-4:16
+    Bool
+testdata/language-features/basic-list/listcomp07.lc 5:16-5:17
+    _b | ()
+testdata/language-features/basic-list/listcomp07.lc 5:20-5:21
+    ()
+testdata/language-features/basic-list/listcomp07.lc 8:1-8:7
+    List ()
+testdata/language-features/basic-list/listcomp07.lc 8:10-12:11
+    List ()
+testdata/language-features/basic-list/listcomp07.lc 8:12-8:13
+    ()
+testdata/language-features/basic-list/listcomp07.lc 8:21-8:28
+    List ()
+testdata/language-features/basic-list/listcomp07.lc 8:22-8:24
+    ()
+testdata/language-features/basic-list/listcomp07.lc 8:25-8:27
+    () | List ()
+testdata/language-features/basic-list/listcomp07.lc 9:16-9:17
+    _b | ()
+testdata/language-features/basic-list/listcomp07.lc 9:20-9:22
+    ()
+testdata/language-features/basic-list/listcomp07.lc 10:12-10:16
+    Bool
+testdata/language-features/basic-list/listcomp07.lc 11:16-11:17
+    _b | ()
+testdata/language-features/basic-list/listcomp07.lc 11:20-11:21
+    ()
+testdata/language-features/basic-list/listcomp07.lc 14:1-14:7
+    List ()
+testdata/language-features/basic-list/listcomp07.lc 14:10-20:3
+    List ()
+testdata/language-features/basic-list/listcomp07.lc 14:12-14:13
+    ()
+testdata/language-features/basic-list/listcomp07.lc 15:15-15:22
+    List ()
+testdata/language-features/basic-list/listcomp07.lc 15:16-15:18
+    ()
+testdata/language-features/basic-list/listcomp07.lc 15:19-15:21
+    () | List ()
+testdata/language-features/basic-list/listcomp07.lc 17:2-17:3
+    _b | ()
+testdata/language-features/basic-list/listcomp07.lc 17:6-17:8
+    ()
+testdata/language-features/basic-list/listcomp07.lc 18:7-18:11
+    Bool
+testdata/language-features/basic-list/listcomp07.lc 19:10-19:11
+    _b | ()
+testdata/language-features/basic-list/listcomp07.lc 19:14-19:15
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/listcomp08.reject.out b/testdata/language-features/basic-list/listcomp08.reject.out
index 3a989de0..6ecdfd71 100644
--- a/testdata/language-features/basic-list/listcomp08.reject.out
+++ b/testdata/language-features/basic-list/listcomp08.reject.out
@@ -16,5 +16,5 @@ in testdata/language-features/basic-list/listcomp08.reject.lc:1:23:
 value = [x | x <- [], "not Bool"]
                       ^^^^^^^^^^
 ------------ tooltips
-testdata/language-features/basic-list/listcomp08.reject.lc 1:10-1:33  _b -> List _a
-testdata/language-features/basic-list/listcomp08.reject.lc 1:23-1:33  String
+testdata/language-features/basic-list/listcomp08.reject.lc 1:23-1:33
+    String
\ No newline at end of file
diff --git a/testdata/language-features/basic-list/listcomp09.out b/testdata/language-features/basic-list/listcomp09.out
index 34f86f7f..60e73fcc 100644
--- a/testdata/language-features/basic-list/listcomp09.out
+++ b/testdata/language-features/basic-list/listcomp09.out
@@ -4,10 +4,15 @@ value1
     (concatMap \_ -> Cons \(a :: _) -> hlistNilCase (_ :: _) "Hello" a Nil Nil)
 main is not found
 ------------ trace
-value1 :: Type => List (() -> String)
+value1 :: Type => List (() -> String)
 ------------ tooltips
-testdata/language-features/basic-list/listcomp09.lc 1:1-1:7  Type => List (() -> String)
-testdata/language-features/basic-list/listcomp09.lc 1:10-1:36  List (() -> String)
-testdata/language-features/basic-list/listcomp09.lc 1:11-1:25  List (() -> String) | _b -> List _a
-testdata/language-features/basic-list/listcomp09.lc 1:18-1:25  String
-testdata/language-features/basic-list/listcomp09.lc 1:33-1:35  forall a . List a
+testdata/language-features/basic-list/listcomp09.lc 1:1-1:7
+    Type => List (() -> String)
+testdata/language-features/basic-list/listcomp09.lc 1:10-1:36
+    List (() -> String)
+testdata/language-features/basic-list/listcomp09.lc 1:11-1:25
+    List (() -> String)
+testdata/language-features/basic-list/listcomp09.lc 1:18-1:25
+    String
+testdata/language-features/basic-list/listcomp09.lc 1:33-1:35
+    forall a . List a
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/bool01.out b/testdata/language-features/basic-values/bool01.out
index 125ed17a..80315cf0 100644
--- a/testdata/language-features/basic-values/bool01.out
+++ b/testdata/language-features/basic-values/bool01.out
@@ -3,10 +3,14 @@ value1 = _rhs True
 value2 = _rhs False
 main is not found
 ------------ trace
-value1 :: Bool
-value2 :: Bool
+value1 :: Bool
+value2 :: Bool
 ------------ tooltips
-testdata/language-features/basic-values/bool01.lc 1:1-1:7  Bool
-testdata/language-features/basic-values/bool01.lc 1:10-1:14  Bool
-testdata/language-features/basic-values/bool01.lc 2:1-2:7  Bool
-testdata/language-features/basic-values/bool01.lc 2:10-2:15  Bool
+testdata/language-features/basic-values/bool01.lc 1:1-1:7
+    Bool
+testdata/language-features/basic-values/bool01.lc 1:10-1:14
+    Bool
+testdata/language-features/basic-values/bool01.lc 2:1-2:7
+    Bool
+testdata/language-features/basic-values/bool01.lc 2:10-2:15
+    Bool
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/case01.out b/testdata/language-features/basic-values/case01.out
index 1fc0f7f0..75dc7af3 100644
--- a/testdata/language-features/basic-values/case01.out
+++ b/testdata/language-features/basic-values/case01.out
@@ -7,34 +7,58 @@ value5 = _rhs ((\(a :: _) -> hlistNilCase (_ :: _) HNil a) HNil)
 value6 = _rhs ((\_ -> HNil) HNil)
 main is not found
 ------------ trace
-value1 :: ()
-value2 :: ()
-value3 :: ()
-value4 :: ()
-value5 :: ()
-value6 :: ()
+value1 :: ()
+value2 :: ()
+value3 :: ()
+value4 :: ()
+value5 :: ()
+value6 :: ()
 ------------ tooltips
-testdata/language-features/basic-values/case01.lc 1:1-1:7  ()
-testdata/language-features/basic-values/case01.lc 1:10-1:29  ()
-testdata/language-features/basic-values/case01.lc 1:15-1:17  ()
-testdata/language-features/basic-values/case01.lc 1:27-1:29  ()
-testdata/language-features/basic-values/case01.lc 3:1-3:7  ()
-testdata/language-features/basic-values/case01.lc 3:10-4:11  ()
-testdata/language-features/basic-values/case01.lc 3:15-3:17  ()
-testdata/language-features/basic-values/case01.lc 4:9-4:11  ()
-testdata/language-features/basic-values/case01.lc 6:1-6:7  ()
-testdata/language-features/basic-values/case01.lc 7:3-8:13  ()
-testdata/language-features/basic-values/case01.lc 7:8-7:10  ()
-testdata/language-features/basic-values/case01.lc 8:11-8:13  ()
-testdata/language-features/basic-values/case01.lc 10:1-10:7  ()
-testdata/language-features/basic-values/case01.lc 11:3-13:9  ()
-testdata/language-features/basic-values/case01.lc 11:8-11:10  ()
-testdata/language-features/basic-values/case01.lc 13:7-13:9  ()
-testdata/language-features/basic-values/case01.lc 15:1-15:7  ()
-testdata/language-features/basic-values/case01.lc 16:3-19:11  ()
-testdata/language-features/basic-values/case01.lc 16:8-16:10  ()
-testdata/language-features/basic-values/case01.lc 19:9-19:11  ()
-testdata/language-features/basic-values/case01.lc 21:1-21:7  ()
-testdata/language-features/basic-values/case01.lc 22:3-23:12  ()
-testdata/language-features/basic-values/case01.lc 22:8-22:10  ()
-testdata/language-features/basic-values/case01.lc 23:10-23:12  ()
+testdata/language-features/basic-values/case01.lc 1:1-1:7
+    ()
+testdata/language-features/basic-values/case01.lc 1:10-1:29
+    ()
+testdata/language-features/basic-values/case01.lc 1:15-1:17
+    ()
+testdata/language-features/basic-values/case01.lc 1:27-1:29
+    ()
+testdata/language-features/basic-values/case01.lc 3:1-3:7
+    ()
+testdata/language-features/basic-values/case01.lc 3:10-4:11
+    ()
+testdata/language-features/basic-values/case01.lc 3:15-3:17
+    ()
+testdata/language-features/basic-values/case01.lc 4:9-4:11
+    ()
+testdata/language-features/basic-values/case01.lc 6:1-6:7
+    ()
+testdata/language-features/basic-values/case01.lc 7:3-8:13
+    ()
+testdata/language-features/basic-values/case01.lc 7:8-7:10
+    ()
+testdata/language-features/basic-values/case01.lc 8:11-8:13
+    ()
+testdata/language-features/basic-values/case01.lc 10:1-10:7
+    ()
+testdata/language-features/basic-values/case01.lc 11:3-13:9
+    ()
+testdata/language-features/basic-values/case01.lc 11:8-11:10
+    ()
+testdata/language-features/basic-values/case01.lc 13:7-13:9
+    ()
+testdata/language-features/basic-values/case01.lc 15:1-15:7
+    ()
+testdata/language-features/basic-values/case01.lc 16:3-19:11
+    ()
+testdata/language-features/basic-values/case01.lc 16:8-16:10
+    ()
+testdata/language-features/basic-values/case01.lc 19:9-19:11
+    ()
+testdata/language-features/basic-values/case01.lc 21:1-21:7
+    ()
+testdata/language-features/basic-values/case01.lc 22:3-23:12
+    ()
+testdata/language-features/basic-values/case01.lc 22:8-22:10
+    ()
+testdata/language-features/basic-values/case01.lc 23:10-23:12
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/case02.out b/testdata/language-features/basic-values/case02.out
index 146ad059..0a13ee00 100644
--- a/testdata/language-features/basic-values/case02.out
+++ b/testdata/language-features/basic-values/case02.out
@@ -12,20 +12,34 @@ value2
       (fromInt 2))
 main is not found
 ------------ trace
-value1 :: forall a . (Eq a, Num a) => ()
-value2 :: forall a . (Eq a, Num a, Eq a, Num a) => String
+value1 :: forall a . (Eq a, Num a) => ()
+value2 :: forall a . (Eq a, Num a, Eq a, Num a) => String
 ------------ tooltips
-testdata/language-features/basic-values/case02.lc 1:1-1:7  forall a . (Eq a, Num a) => ()
-testdata/language-features/basic-values/case02.lc 1:10-3:10  ()
-testdata/language-features/basic-values/case02.lc 1:15-1:16  _b
-testdata/language-features/basic-values/case02.lc 2:8-2:10  ()
-testdata/language-features/basic-values/case02.lc 2:8-3:10  Bool -> ()
-testdata/language-features/basic-values/case02.lc 3:8-3:10  ()
-testdata/language-features/basic-values/case02.lc 5:1-5:7  forall a . (Eq a, Num a, Eq a, Num a) => String
-testdata/language-features/basic-values/case02.lc 5:10-8:11  String
-testdata/language-features/basic-values/case02.lc 5:15-5:16  _b
-testdata/language-features/basic-values/case02.lc 6:8-6:11  String
-testdata/language-features/basic-values/case02.lc 6:8-8:11  Bool -> String
-testdata/language-features/basic-values/case02.lc 7:8-7:11  String
-testdata/language-features/basic-values/case02.lc 7:8-8:11  Bool -> String | String
-testdata/language-features/basic-values/case02.lc 8:8-8:11  String
+testdata/language-features/basic-values/case02.lc 1:1-1:7
+    forall a . (Eq a, Num a) => ()
+testdata/language-features/basic-values/case02.lc 1:10-3:10
+    ()
+testdata/language-features/basic-values/case02.lc 1:15-1:16
+    _b
+testdata/language-features/basic-values/case02.lc 2:8-2:10
+    ()
+testdata/language-features/basic-values/case02.lc 2:8-3:10
+    Bool -> ()
+testdata/language-features/basic-values/case02.lc 3:8-3:10
+    ()
+testdata/language-features/basic-values/case02.lc 5:1-5:7
+    forall a . (Eq a, Num a, Eq a, Num a) => String
+testdata/language-features/basic-values/case02.lc 5:10-8:11
+    String
+testdata/language-features/basic-values/case02.lc 5:15-5:16
+    _b
+testdata/language-features/basic-values/case02.lc 6:8-6:11
+    String
+testdata/language-features/basic-values/case02.lc 6:8-8:11
+    Bool -> String
+testdata/language-features/basic-values/case02.lc 7:8-7:11
+    String
+testdata/language-features/basic-values/case02.lc 7:8-8:11
+    Bool -> String | String
+testdata/language-features/basic-values/case02.lc 8:8-8:11
+    String
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/case03.reject.out b/testdata/language-features/basic-values/case03.reject.out
index a964eb15..6b272e26 100644
--- a/testdata/language-features/basic-values/case03.reject.out
+++ b/testdata/language-features/basic-values/case03.reject.out
@@ -10,8 +10,13 @@ value1 = case () of
   1 -> ()
   _ -> ()
 ------------ tooltips
-testdata/language-features/basic-values/case03.reject.lc 1:10-3:10  ()
-testdata/language-features/basic-values/case03.reject.lc 1:15-1:17  ()
-testdata/language-features/basic-values/case03.reject.lc 2:8-2:10  ()
-testdata/language-features/basic-values/case03.reject.lc 2:8-3:10  Bool -> ()
-testdata/language-features/basic-values/case03.reject.lc 3:8-3:10  ()
+testdata/language-features/basic-values/case03.reject.lc 1:10-3:10
+    ()
+testdata/language-features/basic-values/case03.reject.lc 1:15-1:17
+    ()
+testdata/language-features/basic-values/case03.reject.lc 2:8-2:10
+    ()
+testdata/language-features/basic-values/case03.reject.lc 2:8-3:10
+    Bool -> ()
+testdata/language-features/basic-values/case03.reject.lc 3:8-3:10
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/case04.reject.out b/testdata/language-features/basic-values/case04.reject.out
index ff2abacc..00cb4f39 100644
--- a/testdata/language-features/basic-values/case04.reject.out
+++ b/testdata/language-features/basic-values/case04.reject.out
@@ -16,5 +16,7 @@ in testdata/language-features/basic-values/case04.reject.lc:2:8:
   1 -> '1'
        ^^^
 ------------ tooltips
-testdata/language-features/basic-values/case04.reject.lc 2:8-2:11  Char
-testdata/language-features/basic-values/case04.reject.lc 3:8-3:10  ()
+testdata/language-features/basic-values/case04.reject.lc 2:8-2:11
+    Char
+testdata/language-features/basic-values/case04.reject.lc 3:8-3:10
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/case05.out b/testdata/language-features/basic-values/case05.out
index 7b58c84f..91b16728 100644
--- a/testdata/language-features/basic-values/case05.out
+++ b/testdata/language-features/basic-values/case05.out
@@ -4,15 +4,19 @@ value
     ((\(b :: _) -> 'BoolCase \_ -> _ :: _ undefined '1' (fromInt 1 == b)) a)
 main is not found
 ------------ trace
-value :: forall a . (Eq a, Num a) => a -> Char
+value :: forall a . (Eq a, Num a) => a -> Char
 ------------ tooltips
-testdata/language-features/basic-values/case05.lc 1:1-1:6  forall a . (Eq a, Num a) => a -> Char
-testdata/language-features/basic-values/case05.lc 1:11-2:11  Char
-testdata/language-features/basic-values/case05.lc 1:16-1:17  _e
-testdata/language-features/basic-values/case05.lc 2:8-2:11  Char
+testdata/language-features/basic-values/case05.lc 1:1-1:6
+    forall a . (Eq a, Num a) => a -> Char
+testdata/language-features/basic-values/case05.lc 1:11-2:11
+    Char
+testdata/language-features/basic-values/case05.lc 1:16-1:17
+    _e
+testdata/language-features/basic-values/case05.lc 2:8-2:11
+    Char
 ------------ warnings
 Uncovered pattern(s) at testdata/language-features/basic-values/case05.lc:1:16:
 value x = case x of
                ^
 Missing case(s):
-  _ | False <- fromInt 1 == _a
+  _ | False <- fromInt 1 == _a
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/case06.out b/testdata/language-features/basic-values/case06.out
index 92b5e196..0ebb8113 100644
--- a/testdata/language-features/basic-values/case06.out
+++ b/testdata/language-features/basic-values/case06.out
@@ -4,11 +4,17 @@ value
     ((\(b :: _) -> 'BoolCase \_ -> _ :: _ '_' '1' (fromInt 1 == b)) a)
 main is not found
 ------------ trace
-value :: forall a . (Eq a, Num a) => a -> Char
+value :: forall a . (Eq a, Num a) => a -> Char
 ------------ tooltips
-testdata/language-features/basic-values/case06.lc 1:1-1:6  forall a . (Eq a, Num a) => a -> Char
-testdata/language-features/basic-values/case06.lc 1:11-3:11  Char
-testdata/language-features/basic-values/case06.lc 1:16-1:17  _e
-testdata/language-features/basic-values/case06.lc 2:8-2:11  Char
-testdata/language-features/basic-values/case06.lc 2:8-3:11  Bool -> Char
-testdata/language-features/basic-values/case06.lc 3:8-3:11  Char
+testdata/language-features/basic-values/case06.lc 1:1-1:6
+    forall a . (Eq a, Num a) => a -> Char
+testdata/language-features/basic-values/case06.lc 1:11-3:11
+    Char
+testdata/language-features/basic-values/case06.lc 1:16-1:17
+    _e
+testdata/language-features/basic-values/case06.lc 2:8-2:11
+    Char
+testdata/language-features/basic-values/case06.lc 2:8-3:11
+    Bool -> Char
+testdata/language-features/basic-values/case06.lc 3:8-3:11
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/data01.out b/testdata/language-features/basic-values/data01.out
index aa1f0c31..7c8cf3d7 100644
--- a/testdata/language-features/basic-values/data01.out
+++ b/testdata/language-features/basic-values/data01.out
@@ -13,44 +13,61 @@ data D1 :: Type where
     C3 :: D1
 main is not found
 ------------ trace
-'A :: Type
-B :: A
-C :: A
-D :: A
+'A :: Type
+B :: A
+C :: A
+D :: A
 '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
+  :: 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
-match'E :: forall (a :: Type -> Type) -> a E -> forall b -> a b -> a b
-'D1 :: Type
-C1 :: D1
-C2 :: () -> D1
-C3 :: D1
+  :: 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
-match'D1 :: forall (a :: Type -> Type) -> a D1 -> forall b -> a b -> a b
+  :: 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
-testdata/language-features/basic-values/data01.lc 1:6-1:13  Type
-testdata/language-features/basic-values/data01.lc 1:8-1:9  A
-testdata/language-features/basic-values/data01.lc 1:10-1:11  A
-testdata/language-features/basic-values/data01.lc 1:12-1:13  A
-testdata/language-features/basic-values/data01.lc 3:6-3:7  Type
-testdata/language-features/basic-values/data01.lc 3:6-3:22  Type
-testdata/language-features/basic-values/data01.lc 3:10-3:11  E
-testdata/language-features/basic-values/data01.lc 3:14-3:15  () -> E | E | Type
-testdata/language-features/basic-values/data01.lc 3:16-3:18  Type
-testdata/language-features/basic-values/data01.lc 3:21-3:22  E
-testdata/language-features/basic-values/data01.lc 5:6-5:8  Type
-testdata/language-features/basic-values/data01.lc 5:6-6:13  Type
-testdata/language-features/basic-values/data01.lc 5:9-5:11  D1
-testdata/language-features/basic-values/data01.lc 6:5-6:7  () -> D1 | D1 | Type
-testdata/language-features/basic-values/data01.lc 6:7-6:9  Type
-testdata/language-features/basic-values/data01.lc 6:11-6:13  D1
+testdata/language-features/basic-values/data01.lc 1:6-1:7
+    Type | Type | Type | Type | Type | Type | Type
+testdata/language-features/basic-values/data01.lc 1:6-1:13
+    Type | Type | Type
+testdata/language-features/basic-values/data01.lc 1:8-1:9
+    A
+testdata/language-features/basic-values/data01.lc 1:10-1:11
+    A
+testdata/language-features/basic-values/data01.lc 1:12-1:13
+    A
+testdata/language-features/basic-values/data01.lc 3:6-3:7
+    Type | Type | Type | Type | Type | Type | Type | Type
+testdata/language-features/basic-values/data01.lc 3:6-3:22
+    Type | Type | Type
+testdata/language-features/basic-values/data01.lc 3:10-3:11
+    E
+testdata/language-features/basic-values/data01.lc 3:14-3:15
+    () -> E | E | Type | Type
+testdata/language-features/basic-values/data01.lc 3:16-3:18
+    Type
+testdata/language-features/basic-values/data01.lc 3:21-3:22
+    E
+testdata/language-features/basic-values/data01.lc 5:6-5:8
+    Type | Type | Type | Type | Type | Type | Type | Type
+testdata/language-features/basic-values/data01.lc 5:6-6:13
+    Type | Type | Type
+testdata/language-features/basic-values/data01.lc 5:9-5:11
+    D1
+testdata/language-features/basic-values/data01.lc 6:5-6:7
+    () -> D1 | D1 | Type | Type
+testdata/language-features/basic-values/data01.lc 6:7-6:9
+    Type
+testdata/language-features/basic-values/data01.lc 6:11-6:13
+    D1
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/def01.out b/testdata/language-features/basic-values/def01.out
index 7519f75e..bdc4950d 100644
--- a/testdata/language-features/basic-values/def01.out
+++ b/testdata/language-features/basic-values/def01.out
@@ -4,13 +4,19 @@ fun1 = \_ -> _rhs (fromInt 1)
 fun2 = \_ -> \_ -> \_ -> \_ -> \_ -> _rhs 'c'
 main is not found
 ------------ trace
-unit :: ()
-fun1 :: forall a b . Num b => a -> b
-fun2 :: forall a b c d e . a -> b -> c -> d -> e -> Char
+unit :: ()
+fun1 :: forall a b . Num b => a -> b
+fun2 :: forall a b c d e . a -> b -> c -> d -> e -> Char
 ------------ tooltips
-testdata/language-features/basic-values/def01.lc 1:1-1:5  ()
-testdata/language-features/basic-values/def01.lc 1:8-1:10  ()
-testdata/language-features/basic-values/def01.lc 3:1-3:5  forall a b . Num b => a -> b
-testdata/language-features/basic-values/def01.lc 3:10-3:11  _b
-testdata/language-features/basic-values/def01.lc 5:1-5:5  forall a b c d e . a -> b -> c -> d -> e -> Char
-testdata/language-features/basic-values/def01.lc 5:18-5:21  Char
+testdata/language-features/basic-values/def01.lc 1:1-1:5
+    ()
+testdata/language-features/basic-values/def01.lc 1:8-1:10
+    ()
+testdata/language-features/basic-values/def01.lc 3:1-3:5
+    forall a b . Num b => a -> b
+testdata/language-features/basic-values/def01.lc 3:10-3:11
+    _b
+testdata/language-features/basic-values/def01.lc 5:1-5:5
+    forall a b c d e . a -> b -> c -> d -> e -> Char
+testdata/language-features/basic-values/def01.lc 5:18-5:21
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/def03.out b/testdata/language-features/basic-values/def03.out
index 1dca3720..986e6522 100644
--- a/testdata/language-features/basic-values/def03.out
+++ b/testdata/language-features/basic-values/def03.out
@@ -7,15 +7,19 @@ fun
     (fromInt 1 == a)
 main is not found
 ------------ trace
-fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
+fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
 ------------ tooltips
-testdata/language-features/basic-values/def03.lc 1:1-1:4  forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
-testdata/language-features/basic-values/def03.lc 1:9-1:12  Char
-testdata/language-features/basic-values/def03.lc 1:9-2:12  Bool -> Char
-testdata/language-features/basic-values/def03.lc 2:9-2:12  Char
+testdata/language-features/basic-values/def03.lc 1:1-1:4
+    forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
+testdata/language-features/basic-values/def03.lc 1:9-1:12
+    Char
+testdata/language-features/basic-values/def03.lc 1:9-2:12
+    Bool -> Char
+testdata/language-features/basic-values/def03.lc 2:9-2:12
+    Char | Char
 ------------ warnings
 Uncovered pattern(s) at testdata/language-features/basic-values/def03.lc:1:1:
 fun 1 = '1'
 fun 2 = '2'
 Missing case(s):
-  _ | False <- fromInt 1 == _a , False <- fromInt 2 == _a
+  _ | False <- fromInt 1 == _a , False <- fromInt 2 == _a
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/def04.out b/testdata/language-features/basic-values/def04.out
index 8c4b3f46..a7f42118 100644
--- a/testdata/language-features/basic-values/def04.out
+++ b/testdata/language-features/basic-values/def04.out
@@ -13,18 +13,30 @@ fun2
     (fromInt 1 == a)
 main is not found
 ------------ trace
-fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
-fun2 :: forall a b . (Eq a, Num a, Eq a, Num a) => a -> b -> Char
+fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
+fun2 :: forall a b . (Eq a, Num a, Eq a, Num a) => a -> b -> Char
 ------------ tooltips
-testdata/language-features/basic-values/def04.lc 1:1-1:4  forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
-testdata/language-features/basic-values/def04.lc 1:9-1:12  Char
-testdata/language-features/basic-values/def04.lc 1:9-3:12  Bool -> Char
-testdata/language-features/basic-values/def04.lc 2:9-2:12  Char
-testdata/language-features/basic-values/def04.lc 2:9-3:12  Bool -> Char | Char
-testdata/language-features/basic-values/def04.lc 3:9-3:12  Char
-testdata/language-features/basic-values/def04.lc 5:1-5:5  forall a b . (Eq a, Num a, Eq a, Num a) => a -> b -> Char
-testdata/language-features/basic-values/def04.lc 5:12-5:15  Char
-testdata/language-features/basic-values/def04.lc 5:12-7:15  Bool -> Char
-testdata/language-features/basic-values/def04.lc 6:12-6:15  Char
-testdata/language-features/basic-values/def04.lc 6:12-7:15  Bool -> Char | Char
-testdata/language-features/basic-values/def04.lc 7:12-7:15  Char
+testdata/language-features/basic-values/def04.lc 1:1-1:4
+    forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
+testdata/language-features/basic-values/def04.lc 1:9-1:12
+    Char
+testdata/language-features/basic-values/def04.lc 1:9-3:12
+    Bool -> Char
+testdata/language-features/basic-values/def04.lc 2:9-2:12
+    Char
+testdata/language-features/basic-values/def04.lc 2:9-3:12
+    Bool -> Char | Char
+testdata/language-features/basic-values/def04.lc 3:9-3:12
+    Char
+testdata/language-features/basic-values/def04.lc 5:1-5:5
+    forall a b . (Eq a, Num a, Eq a, Num a) => a -> b -> Char
+testdata/language-features/basic-values/def04.lc 5:12-5:15
+    Char
+testdata/language-features/basic-values/def04.lc 5:12-7:15
+    Bool -> Char
+testdata/language-features/basic-values/def04.lc 6:12-6:15
+    Char
+testdata/language-features/basic-values/def04.lc 6:12-7:15
+    Bool -> Char | Char
+testdata/language-features/basic-values/def04.lc 7:12-7:15
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/def07.reject.out b/testdata/language-features/basic-values/def07.reject.out
index 8cb5a1a4..e5afb538 100644
--- a/testdata/language-features/basic-values/def07.reject.out
+++ b/testdata/language-features/basic-values/def07.reject.out
@@ -5,9 +5,9 @@ and at testdata/language-features/basic-values/def07.reject.lc:1:1:
 fun 1 = '1'
 ^^^
 ------------ trace
-fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
-fun2 :: forall a b . (Eq a, Num a) => a -> b -> Char
-fun :: forall a . a -> Char
+fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
+fun2 :: forall a b . (Eq a, Num a) => a -> b -> Char
+fun :: forall a . a -> Char
 !already defined fun at testdata/language-features/basic-values/def07.reject.lc:4:1:
 fun _ = '_'
 ^^^
@@ -15,14 +15,22 @@ and at testdata/language-features/basic-values/def07.reject.lc:1:1:
 fun 1 = '1'
 ^^^
 ------------ tooltips
-testdata/language-features/basic-values/def07.reject.lc 1:1-1:4  forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
-testdata/language-features/basic-values/def07.reject.lc 1:9-1:12  Char
-testdata/language-features/basic-values/def07.reject.lc 1:9-2:12  Bool -> Char
-testdata/language-features/basic-values/def07.reject.lc 2:9-2:12  Char
-testdata/language-features/basic-values/def07.reject.lc 3:1-3:5  forall a b . (Eq a, Num a) => a -> b -> Char
-testdata/language-features/basic-values/def07.reject.lc 3:12-3:15  Char
-testdata/language-features/basic-values/def07.reject.lc 4:1-4:4  forall a . a -> Char
-testdata/language-features/basic-values/def07.reject.lc 4:9-4:12  Char
+testdata/language-features/basic-values/def07.reject.lc 1:1-1:4
+    forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
+testdata/language-features/basic-values/def07.reject.lc 1:9-1:12
+    Char
+testdata/language-features/basic-values/def07.reject.lc 1:9-2:12
+    Bool -> Char
+testdata/language-features/basic-values/def07.reject.lc 2:9-2:12
+    Char | Char
+testdata/language-features/basic-values/def07.reject.lc 3:1-3:5
+    forall a b . (Eq a, Num a) => a -> b -> Char
+testdata/language-features/basic-values/def07.reject.lc 3:12-3:15
+    Char
+testdata/language-features/basic-values/def07.reject.lc 4:1-4:4
+    forall a . a -> Char
+testdata/language-features/basic-values/def07.reject.lc 4:9-4:12
+    Char
 ------------ warnings
 Uncovered pattern(s) at testdata/language-features/basic-values/def07.reject.lc:1:1:
 fun 1 = '1'
@@ -33,4 +41,4 @@ Uncovered pattern(s) at testdata/language-features/basic-values/def07.reject.lc:
 fun2 1 _ = '1'
 ^^^^
 Missing case(s):
-  _ _ | False <- fromInt 1 == _b
+  _ _ | False <- fromInt 1 == _b
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/deforder01.out b/testdata/language-features/basic-values/deforder01.out
index be9385d0..2d6ace49 100644
--- a/testdata/language-features/basic-values/deforder01.out
+++ b/testdata/language-features/basic-values/deforder01.out
@@ -3,10 +3,14 @@ x = _rhs '1'
 y = _rhs x
 main is not found
 ------------ trace
-x :: Char
-y :: Char
+x :: Char
+y :: Char
 ------------ tooltips
-testdata/language-features/basic-values/deforder01.lc 1:1-1:2  Char
-testdata/language-features/basic-values/deforder01.lc 1:5-1:8  Char
-testdata/language-features/basic-values/deforder01.lc 2:1-2:2  Char
-testdata/language-features/basic-values/deforder01.lc 2:5-2:6  Char
+testdata/language-features/basic-values/deforder01.lc 1:1-1:2
+    Char
+testdata/language-features/basic-values/deforder01.lc 1:5-1:8
+    Char
+testdata/language-features/basic-values/deforder01.lc 2:1-2:2
+    Char
+testdata/language-features/basic-values/deforder01.lc 2:5-2:6
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/deforder02.out b/testdata/language-features/basic-values/deforder02.out
index b8990ab3..7a36e690 100644
--- a/testdata/language-features/basic-values/deforder02.out
+++ b/testdata/language-features/basic-values/deforder02.out
@@ -3,10 +3,14 @@ x = _rhs '1'
 y = _rhs x
 main is not found
 ------------ trace
-x :: Char
-y :: Char
+x :: Char
+y :: Char
 ------------ tooltips
-testdata/language-features/basic-values/deforder02.lc 1:1-1:2  Char
-testdata/language-features/basic-values/deforder02.lc 1:5-1:6  Char
-testdata/language-features/basic-values/deforder02.lc 2:1-2:2  Char
-testdata/language-features/basic-values/deforder02.lc 2:5-2:8  Char
+testdata/language-features/basic-values/deforder02.lc 1:1-1:2
+    Char
+testdata/language-features/basic-values/deforder02.lc 1:5-1:6
+    Char
+testdata/language-features/basic-values/deforder02.lc 2:1-2:2
+    Char
+testdata/language-features/basic-values/deforder02.lc 2:5-2:8
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/deforder03.out b/testdata/language-features/basic-values/deforder03.out
index e6f8794d..efc49155 100644
--- a/testdata/language-features/basic-values/deforder03.out
+++ b/testdata/language-features/basic-values/deforder03.out
@@ -2,9 +2,13 @@
 value = _rhs \(a := _rhs HNil) (b := _rhs a) -> '1'
 main is not found
 ------------ trace
-value :: Char
+value :: Char
 ------------ tooltips
-testdata/language-features/basic-values/deforder03.lc 1:1-1:6  Char
-testdata/language-features/basic-values/deforder03.lc 1:17-1:19  ()
-testdata/language-features/basic-values/deforder03.lc 2:17-2:18  ()
-testdata/language-features/basic-values/deforder03.lc 3:12-3:15  Char
+testdata/language-features/basic-values/deforder03.lc 1:1-1:6
+    Char
+testdata/language-features/basic-values/deforder03.lc 1:17-1:19
+    ()
+testdata/language-features/basic-values/deforder03.lc 2:17-2:18
+    ()
+testdata/language-features/basic-values/deforder03.lc 3:12-3:15
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/deforder04.out b/testdata/language-features/basic-values/deforder04.out
index ec663000..05e51d11 100644
--- a/testdata/language-features/basic-values/deforder04.out
+++ b/testdata/language-features/basic-values/deforder04.out
@@ -2,9 +2,13 @@
 value = _rhs \(a := _rhs HNil) (b := _rhs a) -> '1'
 main is not found
 ------------ trace
-value :: Char
+value :: Char
 ------------ tooltips
-testdata/language-features/basic-values/deforder04.lc 1:1-1:6  Char
-testdata/language-features/basic-values/deforder04.lc 1:17-1:18  ()
-testdata/language-features/basic-values/deforder04.lc 2:17-2:19  ()
-testdata/language-features/basic-values/deforder04.lc 3:12-3:15  Char
+testdata/language-features/basic-values/deforder04.lc 1:1-1:6
+    Char
+testdata/language-features/basic-values/deforder04.lc 1:17-1:18
+    ()
+testdata/language-features/basic-values/deforder04.lc 2:17-2:19
+    ()
+testdata/language-features/basic-values/deforder04.lc 3:12-3:15
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/deforder05.out b/testdata/language-features/basic-values/deforder05.out
index 58a3f0fc..b5da0fdd 100644
--- a/testdata/language-features/basic-values/deforder05.out
+++ b/testdata/language-features/basic-values/deforder05.out
@@ -2,9 +2,13 @@
 value = _rhs \(a := _rhs HNil) (b := _rhs a) -> '1'
 main is not found
 ------------ trace
-value :: Char
+value :: Char
 ------------ tooltips
-testdata/language-features/basic-values/deforder05.lc 1:1-1:6  Char
-testdata/language-features/basic-values/deforder05.lc 1:9-1:12  Char
-testdata/language-features/basic-values/deforder05.lc 1:23-1:24  ()
-testdata/language-features/basic-values/deforder05.lc 2:23-2:25  ()
+testdata/language-features/basic-values/deforder05.lc 1:1-1:6
+    Char
+testdata/language-features/basic-values/deforder05.lc 1:9-1:12
+    Char
+testdata/language-features/basic-values/deforder05.lc 1:23-1:24
+    ()
+testdata/language-features/basic-values/deforder05.lc 2:23-2:25
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/deforder06.out b/testdata/language-features/basic-values/deforder06.out
index 48f45d42..7c4a2b4a 100644
--- a/testdata/language-features/basic-values/deforder06.out
+++ b/testdata/language-features/basic-values/deforder06.out
@@ -2,9 +2,13 @@
 value = _rhs \(a := _rhs HNil) (b := _rhs a) -> '1'
 main is not found
 ------------ trace
-value :: Char
+value :: Char
 ------------ tooltips
-testdata/language-features/basic-values/deforder06.lc 1:1-1:6  Char
-testdata/language-features/basic-values/deforder06.lc 1:9-1:12  Char
-testdata/language-features/basic-values/deforder06.lc 1:23-1:25  ()
-testdata/language-features/basic-values/deforder06.lc 2:23-2:24  ()
+testdata/language-features/basic-values/deforder06.lc 1:1-1:6
+    Char
+testdata/language-features/basic-values/deforder06.lc 1:9-1:12
+    Char
+testdata/language-features/basic-values/deforder06.lc 1:23-1:25
+    ()
+testdata/language-features/basic-values/deforder06.lc 2:23-2:24
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/fixity01.out b/testdata/language-features/basic-values/fixity01.out
index 2274b6a6..ba0fb828 100644
--- a/testdata/language-features/basic-values/fixity01.out
+++ b/testdata/language-features/basic-values/fixity01.out
@@ -9,16 +9,24 @@ infixr 6 >>>>
 infixr 6 funR
 main is not found
 ------------ trace
-funL :: forall a b . a -> b -> a
-funR :: forall a b . a -> b -> a
-<<<< :: forall a b . a -> b -> a
->>>> :: forall a b . a -> b -> b
+funL :: forall a b . a -> b -> a
+funR :: forall a b . a -> b -> a
+<<<< :: forall a b . a -> b -> a
+>>>> :: forall a b . a -> b -> b
 ------------ tooltips
-testdata/language-features/basic-values/fixity01.lc 1:1-1:5  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity01.lc 1:12-1:13  _d
-testdata/language-features/basic-values/fixity01.lc 2:1-2:5  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity01.lc 2:12-2:13  _d
-testdata/language-features/basic-values/fixity01.lc 4:3-4:7  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity01.lc 4:12-4:13  _d
-testdata/language-features/basic-values/fixity01.lc 5:3-5:7  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity01.lc 5:12-5:13  _b
+testdata/language-features/basic-values/fixity01.lc 1:1-1:5
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity01.lc 1:12-1:13
+    _d
+testdata/language-features/basic-values/fixity01.lc 2:1-2:5
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity01.lc 2:12-2:13
+    _d
+testdata/language-features/basic-values/fixity01.lc 4:3-4:7
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity01.lc 4:12-4:13
+    _d
+testdata/language-features/basic-values/fixity01.lc 5:3-5:7
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity01.lc 5:12-5:13
+    _b
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/fixity02.out b/testdata/language-features/basic-values/fixity02.out
index 38f4bea0..d38a6d55 100644
--- a/testdata/language-features/basic-values/fixity02.out
+++ b/testdata/language-features/basic-values/fixity02.out
@@ -25,272 +25,520 @@ 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
-funR :: forall a b . a -> b -> b
-<@ :: forall a b . a -> b -> a
-@> :: forall a b . a -> b -> b
-value1 :: Float
-value2 :: Float
-value3 :: Float
-value4 :: Float
-value5 :: String
-value6 :: Char
-value7 :: String
-value8 :: ()
-funValue1 :: Float
-funValue2 :: Float
-funValue3 :: Float
-funValue4 :: Float
-funValue5 :: String
-funValue6 :: Char
-funValue7 :: String
-funValue8 :: ()
+funL :: forall a b . a -> b -> a
+funR :: forall a b . a -> b -> b
+<@ :: forall a b . a -> b -> a
+@> :: forall a b . a -> b -> b
+value1 :: Float
+value2 :: Float
+value3 :: Float
+value4 :: Float
+value5 :: String
+value6 :: Char
+value7 :: String
+value8 :: ()
+funValue1 :: Float
+funValue2 :: Float
+funValue3 :: Float
+funValue4 :: Float
+funValue5 :: String
+funValue6 :: Char
+funValue7 :: String
+funValue8 :: ()
 ------------ tooltips
-testdata/language-features/basic-values/fixity02.lc 1:1-1:5  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 1:12-1:13  _d
-testdata/language-features/basic-values/fixity02.lc 2:1-2:5  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 2:12-2:13  _b
-testdata/language-features/basic-values/fixity02.lc 4:3-4:5  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 4:10-4:11  _d
-testdata/language-features/basic-values/fixity02.lc 5:3-5:5  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 5:10-5:11  _b
-testdata/language-features/basic-values/fixity02.lc 11:1-11:7  Float
-testdata/language-features/basic-values/fixity02.lc 11:10-11:12  ()
-testdata/language-features/basic-values/fixity02.lc 11:10-11:15  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 11:10-11:34  Float
-testdata/language-features/basic-values/fixity02.lc 11:13-11:15  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 11:16-11:19  Char
-testdata/language-features/basic-values/fixity02.lc 11:16-11:22  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 11:16-11:34  Float
-testdata/language-features/basic-values/fixity02.lc 11:20-11:22  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 11:23-11:27  String
-testdata/language-features/basic-values/fixity02.lc 11:23-11:30  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 11:23-11:34  Float
-testdata/language-features/basic-values/fixity02.lc 11:28-11:30  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 11:31-11:34  Float
-testdata/language-features/basic-values/fixity02.lc 11:38-11:43  Type
-testdata/language-features/basic-values/fixity02.lc 12:1-12:7  Float
-testdata/language-features/basic-values/fixity02.lc 12:10-12:12  ()
-testdata/language-features/basic-values/fixity02.lc 12:10-12:15  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 12:10-12:34  Float
-testdata/language-features/basic-values/fixity02.lc 12:13-12:15  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 12:16-12:19  Char
-testdata/language-features/basic-values/fixity02.lc 12:16-12:22  _a -> Char
-testdata/language-features/basic-values/fixity02.lc 12:16-12:27  Char
-testdata/language-features/basic-values/fixity02.lc 12:16-12:30  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 12:16-12:34  Float
-testdata/language-features/basic-values/fixity02.lc 12:20-12:22  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 12:23-12:27  String
-testdata/language-features/basic-values/fixity02.lc 12:28-12:30  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 12:31-12:34  Float
-testdata/language-features/basic-values/fixity02.lc 12:38-12:43  Type
-testdata/language-features/basic-values/fixity02.lc 13:1-13:7  Float
-testdata/language-features/basic-values/fixity02.lc 13:10-13:12  ()
-testdata/language-features/basic-values/fixity02.lc 13:10-13:15  _a -> ()
-testdata/language-features/basic-values/fixity02.lc 13:10-13:19  ()
-testdata/language-features/basic-values/fixity02.lc 13:10-13:22  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 13:10-13:34  Float
-testdata/language-features/basic-values/fixity02.lc 13:13-13:15  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 13:16-13:19  Char
-testdata/language-features/basic-values/fixity02.lc 13:20-13:22  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 13:23-13:27  String
-testdata/language-features/basic-values/fixity02.lc 13:23-13:30  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 13:23-13:34  Float
-testdata/language-features/basic-values/fixity02.lc 13:28-13:30  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 13:31-13:34  Float
-testdata/language-features/basic-values/fixity02.lc 13:38-13:43  Type
-testdata/language-features/basic-values/fixity02.lc 14:1-14:7  Float
-testdata/language-features/basic-values/fixity02.lc 14:10-14:12  ()
-testdata/language-features/basic-values/fixity02.lc 14:10-14:15  _a -> ()
-testdata/language-features/basic-values/fixity02.lc 14:10-14:27  ()
-testdata/language-features/basic-values/fixity02.lc 14:10-14:30  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 14:10-14:34  Float
-testdata/language-features/basic-values/fixity02.lc 14:13-14:15  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 14:16-14:19  Char
-testdata/language-features/basic-values/fixity02.lc 14:16-14:22  _a -> Char
-testdata/language-features/basic-values/fixity02.lc 14:16-14:27  Char
-testdata/language-features/basic-values/fixity02.lc 14:20-14:22  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 14:23-14:27  String
-testdata/language-features/basic-values/fixity02.lc 14:28-14:30  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 14:31-14:34  Float
-testdata/language-features/basic-values/fixity02.lc 14:38-14:43  Type
-testdata/language-features/basic-values/fixity02.lc 15:1-15:7  String
-testdata/language-features/basic-values/fixity02.lc 15:10-15:12  ()
-testdata/language-features/basic-values/fixity02.lc 15:10-15:15  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 15:10-15:34  String
-testdata/language-features/basic-values/fixity02.lc 15:13-15:15  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 15:16-15:19  Char
-testdata/language-features/basic-values/fixity02.lc 15:16-15:22  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 15:16-15:34  String
-testdata/language-features/basic-values/fixity02.lc 15:20-15:22  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 15:23-15:27  String
-testdata/language-features/basic-values/fixity02.lc 15:23-15:30  _a -> String
-testdata/language-features/basic-values/fixity02.lc 15:23-15:34  String
-testdata/language-features/basic-values/fixity02.lc 15:28-15:30  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 15:31-15:34  Float
-testdata/language-features/basic-values/fixity02.lc 15:38-15:44  Type
-testdata/language-features/basic-values/fixity02.lc 16:1-16:7  Char
-testdata/language-features/basic-values/fixity02.lc 16:10-16:12  ()
-testdata/language-features/basic-values/fixity02.lc 16:10-16:15  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 16:10-16:34  Char
-testdata/language-features/basic-values/fixity02.lc 16:13-16:15  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 16:16-16:19  Char
-testdata/language-features/basic-values/fixity02.lc 16:16-16:22  _a -> Char
-testdata/language-features/basic-values/fixity02.lc 16:16-16:34  Char
-testdata/language-features/basic-values/fixity02.lc 16:20-16:22  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 16:23-16:27  String
-testdata/language-features/basic-values/fixity02.lc 16:23-16:30  _a -> String
-testdata/language-features/basic-values/fixity02.lc 16:23-16:34  String
-testdata/language-features/basic-values/fixity02.lc 16:28-16:30  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 16:31-16:34  Float
-testdata/language-features/basic-values/fixity02.lc 16:38-16:42  Type
-testdata/language-features/basic-values/fixity02.lc 17:1-17:7  String
-testdata/language-features/basic-values/fixity02.lc 17:10-17:12  ()
-testdata/language-features/basic-values/fixity02.lc 17:10-17:15  _a -> ()
-testdata/language-features/basic-values/fixity02.lc 17:10-17:19  ()
-testdata/language-features/basic-values/fixity02.lc 17:10-17:22  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 17:10-17:34  String
-testdata/language-features/basic-values/fixity02.lc 17:13-17:15  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 17:16-17:19  Char
-testdata/language-features/basic-values/fixity02.lc 17:20-17:22  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 17:23-17:27  String
-testdata/language-features/basic-values/fixity02.lc 17:23-17:30  _a -> String
-testdata/language-features/basic-values/fixity02.lc 17:23-17:34  String
-testdata/language-features/basic-values/fixity02.lc 17:28-17:30  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 17:31-17:34  Float
-testdata/language-features/basic-values/fixity02.lc 17:38-17:44  Type
-testdata/language-features/basic-values/fixity02.lc 18:1-18:7  ()
-testdata/language-features/basic-values/fixity02.lc 18:10-18:12  ()
-testdata/language-features/basic-values/fixity02.lc 18:10-18:15  _a -> ()
-testdata/language-features/basic-values/fixity02.lc 18:10-18:34  ()
-testdata/language-features/basic-values/fixity02.lc 18:13-18:15  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 18:16-18:19  Char
-testdata/language-features/basic-values/fixity02.lc 18:16-18:22  _a -> Char
-testdata/language-features/basic-values/fixity02.lc 18:16-18:34  Char
-testdata/language-features/basic-values/fixity02.lc 18:20-18:22  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 18:23-18:27  String
-testdata/language-features/basic-values/fixity02.lc 18:23-18:30  _a -> String
-testdata/language-features/basic-values/fixity02.lc 18:23-18:34  String
-testdata/language-features/basic-values/fixity02.lc 18:28-18:30  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 18:31-18:34  Float
-testdata/language-features/basic-values/fixity02.lc 18:38-18:40  Type
-testdata/language-features/basic-values/fixity02.lc 20:1-20:10  Float
-testdata/language-features/basic-values/fixity02.lc 20:13-20:15  ()
-testdata/language-features/basic-values/fixity02.lc 20:13-20:22  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 20:13-20:49  Float
-testdata/language-features/basic-values/fixity02.lc 20:16-20:22  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 20:23-20:26  Char
-testdata/language-features/basic-values/fixity02.lc 20:23-20:33  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 20:23-20:49  Float
-testdata/language-features/basic-values/fixity02.lc 20:27-20:33  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 20:34-20:38  String
-testdata/language-features/basic-values/fixity02.lc 20:34-20:45  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 20:34-20:49  Float
-testdata/language-features/basic-values/fixity02.lc 20:39-20:45  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 20:46-20:49  Float
-testdata/language-features/basic-values/fixity02.lc 20:53-20:58  Type
-testdata/language-features/basic-values/fixity02.lc 21:1-21:10  Float
-testdata/language-features/basic-values/fixity02.lc 21:13-21:15  ()
-testdata/language-features/basic-values/fixity02.lc 21:13-21:22  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 21:13-21:49  Float
-testdata/language-features/basic-values/fixity02.lc 21:16-21:22  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 21:23-21:26  Char
-testdata/language-features/basic-values/fixity02.lc 21:23-21:33  _a -> Char
-testdata/language-features/basic-values/fixity02.lc 21:23-21:38  Char
-testdata/language-features/basic-values/fixity02.lc 21:23-21:45  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 21:23-21:49  Float
-testdata/language-features/basic-values/fixity02.lc 21:27-21:33  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 21:34-21:38  String
-testdata/language-features/basic-values/fixity02.lc 21:39-21:45  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 21:46-21:49  Float
-testdata/language-features/basic-values/fixity02.lc 21:53-21:58  Type
-testdata/language-features/basic-values/fixity02.lc 22:1-22:10  Float
-testdata/language-features/basic-values/fixity02.lc 22:13-22:15  ()
-testdata/language-features/basic-values/fixity02.lc 22:13-22:22  _a -> ()
-testdata/language-features/basic-values/fixity02.lc 22:13-22:26  ()
-testdata/language-features/basic-values/fixity02.lc 22:13-22:33  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 22:13-22:49  Float
-testdata/language-features/basic-values/fixity02.lc 22:16-22:22  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 22:23-22:26  Char
-testdata/language-features/basic-values/fixity02.lc 22:27-22:33  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 22:34-22:38  String
-testdata/language-features/basic-values/fixity02.lc 22:34-22:45  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 22:34-22:49  Float
-testdata/language-features/basic-values/fixity02.lc 22:39-22:45  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 22:46-22:49  Float
-testdata/language-features/basic-values/fixity02.lc 22:53-22:58  Type
-testdata/language-features/basic-values/fixity02.lc 23:1-23:10  Float
-testdata/language-features/basic-values/fixity02.lc 23:13-23:15  ()
-testdata/language-features/basic-values/fixity02.lc 23:13-23:22  _a -> ()
-testdata/language-features/basic-values/fixity02.lc 23:13-23:38  ()
-testdata/language-features/basic-values/fixity02.lc 23:13-23:45  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 23:13-23:49  Float
-testdata/language-features/basic-values/fixity02.lc 23:16-23:22  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 23:23-23:26  Char
-testdata/language-features/basic-values/fixity02.lc 23:23-23:33  _a -> Char
-testdata/language-features/basic-values/fixity02.lc 23:23-23:38  Char
-testdata/language-features/basic-values/fixity02.lc 23:27-23:33  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 23:34-23:38  String
-testdata/language-features/basic-values/fixity02.lc 23:39-23:45  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 23:46-23:49  Float
-testdata/language-features/basic-values/fixity02.lc 23:53-23:58  Type
-testdata/language-features/basic-values/fixity02.lc 24:1-24:10  String
-testdata/language-features/basic-values/fixity02.lc 24:13-24:15  ()
-testdata/language-features/basic-values/fixity02.lc 24:13-24:22  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 24:13-24:49  String
-testdata/language-features/basic-values/fixity02.lc 24:16-24:22  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 24:23-24:26  Char
-testdata/language-features/basic-values/fixity02.lc 24:23-24:33  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 24:23-24:49  String
-testdata/language-features/basic-values/fixity02.lc 24:27-24:33  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 24:34-24:38  String
-testdata/language-features/basic-values/fixity02.lc 24:34-24:45  _a -> String
-testdata/language-features/basic-values/fixity02.lc 24:34-24:49  String
-testdata/language-features/basic-values/fixity02.lc 24:39-24:45  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 24:46-24:49  Float
-testdata/language-features/basic-values/fixity02.lc 24:53-24:59  Type
-testdata/language-features/basic-values/fixity02.lc 25:1-25:10  Char
-testdata/language-features/basic-values/fixity02.lc 25:13-25:15  ()
-testdata/language-features/basic-values/fixity02.lc 25:13-25:22  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 25:13-25:49  Char
-testdata/language-features/basic-values/fixity02.lc 25:16-25:22  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 25:23-25:26  Char
-testdata/language-features/basic-values/fixity02.lc 25:23-25:33  _a -> Char
-testdata/language-features/basic-values/fixity02.lc 25:23-25:49  Char
-testdata/language-features/basic-values/fixity02.lc 25:27-25:33  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 25:34-25:38  String
-testdata/language-features/basic-values/fixity02.lc 25:34-25:45  _a -> String
-testdata/language-features/basic-values/fixity02.lc 25:34-25:49  String
-testdata/language-features/basic-values/fixity02.lc 25:39-25:45  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 25:46-25:49  Float
-testdata/language-features/basic-values/fixity02.lc 25:53-25:57  Type
-testdata/language-features/basic-values/fixity02.lc 26:1-26:10  String
-testdata/language-features/basic-values/fixity02.lc 26:13-26:15  ()
-testdata/language-features/basic-values/fixity02.lc 26:13-26:22  _a -> ()
-testdata/language-features/basic-values/fixity02.lc 26:13-26:26  ()
-testdata/language-features/basic-values/fixity02.lc 26:13-26:33  _a -> _a
-testdata/language-features/basic-values/fixity02.lc 26:13-26:49  String
-testdata/language-features/basic-values/fixity02.lc 26:16-26:22  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 26:23-26:26  Char
-testdata/language-features/basic-values/fixity02.lc 26:27-26:33  forall a b . a -> b -> b
-testdata/language-features/basic-values/fixity02.lc 26:34-26:38  String
-testdata/language-features/basic-values/fixity02.lc 26:34-26:45  _a -> String
-testdata/language-features/basic-values/fixity02.lc 26:34-26:49  String
-testdata/language-features/basic-values/fixity02.lc 26:39-26:45  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 26:46-26:49  Float
-testdata/language-features/basic-values/fixity02.lc 26:53-26:59  Type
-testdata/language-features/basic-values/fixity02.lc 27:1-27:10  ()
-testdata/language-features/basic-values/fixity02.lc 27:13-27:15  ()
-testdata/language-features/basic-values/fixity02.lc 27:13-27:22  _a -> ()
-testdata/language-features/basic-values/fixity02.lc 27:13-27:49  ()
-testdata/language-features/basic-values/fixity02.lc 27:16-27:22  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 27:23-27:26  Char
-testdata/language-features/basic-values/fixity02.lc 27:23-27:33  _a -> Char
-testdata/language-features/basic-values/fixity02.lc 27:23-27:49  Char
-testdata/language-features/basic-values/fixity02.lc 27:27-27:33  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 27:34-27:38  String
-testdata/language-features/basic-values/fixity02.lc 27:34-27:45  _a -> String
-testdata/language-features/basic-values/fixity02.lc 27:34-27:49  String
-testdata/language-features/basic-values/fixity02.lc 27:39-27:45  forall a b . a -> b -> a
-testdata/language-features/basic-values/fixity02.lc 27:46-27:49  Float
-testdata/language-features/basic-values/fixity02.lc 27:53-27:55  Type
+testdata/language-features/basic-values/fixity02.lc 1:1-1:5
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 1:12-1:13
+    _d
+testdata/language-features/basic-values/fixity02.lc 2:1-2:5
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 2:12-2:13
+    _b
+testdata/language-features/basic-values/fixity02.lc 4:3-4:5
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 4:10-4:11
+    _d
+testdata/language-features/basic-values/fixity02.lc 5:3-5:5
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 5:10-5:11
+    _b
+testdata/language-features/basic-values/fixity02.lc 11:1-11:7
+    Float
+testdata/language-features/basic-values/fixity02.lc 11:10-11:12
+    ()
+testdata/language-features/basic-values/fixity02.lc 11:10-11:15
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 11:10-11:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 11:13-11:15
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 11:16-11:19
+    Char
+testdata/language-features/basic-values/fixity02.lc 11:16-11:22
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 11:16-11:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 11:20-11:22
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 11:23-11:27
+    String
+testdata/language-features/basic-values/fixity02.lc 11:23-11:30
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 11:23-11:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 11:28-11:30
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 11:31-11:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 11:38-11:43
+    Type
+testdata/language-features/basic-values/fixity02.lc 12:1-12:7
+    Float
+testdata/language-features/basic-values/fixity02.lc 12:10-12:12
+    ()
+testdata/language-features/basic-values/fixity02.lc 12:10-12:15
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 12:10-12:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 12:13-12:15
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 12:16-12:19
+    Char
+testdata/language-features/basic-values/fixity02.lc 12:16-12:22
+    _a -> Char
+testdata/language-features/basic-values/fixity02.lc 12:16-12:27
+    Char
+testdata/language-features/basic-values/fixity02.lc 12:16-12:30
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 12:16-12:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 12:20-12:22
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 12:23-12:27
+    String
+testdata/language-features/basic-values/fixity02.lc 12:28-12:30
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 12:31-12:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 12:38-12:43
+    Type
+testdata/language-features/basic-values/fixity02.lc 13:1-13:7
+    Float
+testdata/language-features/basic-values/fixity02.lc 13:10-13:12
+    ()
+testdata/language-features/basic-values/fixity02.lc 13:10-13:15
+    _a -> ()
+testdata/language-features/basic-values/fixity02.lc 13:10-13:19
+    ()
+testdata/language-features/basic-values/fixity02.lc 13:10-13:22
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 13:10-13:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 13:13-13:15
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 13:16-13:19
+    Char
+testdata/language-features/basic-values/fixity02.lc 13:20-13:22
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 13:23-13:27
+    String
+testdata/language-features/basic-values/fixity02.lc 13:23-13:30
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 13:23-13:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 13:28-13:30
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 13:31-13:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 13:38-13:43
+    Type
+testdata/language-features/basic-values/fixity02.lc 14:1-14:7
+    Float
+testdata/language-features/basic-values/fixity02.lc 14:10-14:12
+    ()
+testdata/language-features/basic-values/fixity02.lc 14:10-14:15
+    _a -> ()
+testdata/language-features/basic-values/fixity02.lc 14:10-14:27
+    ()
+testdata/language-features/basic-values/fixity02.lc 14:10-14:30
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 14:10-14:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 14:13-14:15
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 14:16-14:19
+    Char
+testdata/language-features/basic-values/fixity02.lc 14:16-14:22
+    _a -> Char
+testdata/language-features/basic-values/fixity02.lc 14:16-14:27
+    Char
+testdata/language-features/basic-values/fixity02.lc 14:20-14:22
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 14:23-14:27
+    String
+testdata/language-features/basic-values/fixity02.lc 14:28-14:30
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 14:31-14:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 14:38-14:43
+    Type
+testdata/language-features/basic-values/fixity02.lc 15:1-15:7
+    String
+testdata/language-features/basic-values/fixity02.lc 15:10-15:12
+    ()
+testdata/language-features/basic-values/fixity02.lc 15:10-15:15
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 15:10-15:34
+    String
+testdata/language-features/basic-values/fixity02.lc 15:13-15:15
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 15:16-15:19
+    Char
+testdata/language-features/basic-values/fixity02.lc 15:16-15:22
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 15:16-15:34
+    String
+testdata/language-features/basic-values/fixity02.lc 15:20-15:22
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 15:23-15:27
+    String
+testdata/language-features/basic-values/fixity02.lc 15:23-15:30
+    _a -> String
+testdata/language-features/basic-values/fixity02.lc 15:23-15:34
+    String
+testdata/language-features/basic-values/fixity02.lc 15:28-15:30
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 15:31-15:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 15:38-15:44
+    Type
+testdata/language-features/basic-values/fixity02.lc 16:1-16:7
+    Char
+testdata/language-features/basic-values/fixity02.lc 16:10-16:12
+    ()
+testdata/language-features/basic-values/fixity02.lc 16:10-16:15
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 16:10-16:34
+    Char
+testdata/language-features/basic-values/fixity02.lc 16:13-16:15
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 16:16-16:19
+    Char
+testdata/language-features/basic-values/fixity02.lc 16:16-16:22
+    _a -> Char
+testdata/language-features/basic-values/fixity02.lc 16:16-16:34
+    Char
+testdata/language-features/basic-values/fixity02.lc 16:20-16:22
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 16:23-16:27
+    String
+testdata/language-features/basic-values/fixity02.lc 16:23-16:30
+    _a -> String
+testdata/language-features/basic-values/fixity02.lc 16:23-16:34
+    String
+testdata/language-features/basic-values/fixity02.lc 16:28-16:30
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 16:31-16:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 16:38-16:42
+    Type
+testdata/language-features/basic-values/fixity02.lc 17:1-17:7
+    String
+testdata/language-features/basic-values/fixity02.lc 17:10-17:12
+    ()
+testdata/language-features/basic-values/fixity02.lc 17:10-17:15
+    _a -> ()
+testdata/language-features/basic-values/fixity02.lc 17:10-17:19
+    ()
+testdata/language-features/basic-values/fixity02.lc 17:10-17:22
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 17:10-17:34
+    String
+testdata/language-features/basic-values/fixity02.lc 17:13-17:15
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 17:16-17:19
+    Char
+testdata/language-features/basic-values/fixity02.lc 17:20-17:22
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 17:23-17:27
+    String
+testdata/language-features/basic-values/fixity02.lc 17:23-17:30
+    _a -> String
+testdata/language-features/basic-values/fixity02.lc 17:23-17:34
+    String
+testdata/language-features/basic-values/fixity02.lc 17:28-17:30
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 17:31-17:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 17:38-17:44
+    Type
+testdata/language-features/basic-values/fixity02.lc 18:1-18:7
+    ()
+testdata/language-features/basic-values/fixity02.lc 18:10-18:12
+    ()
+testdata/language-features/basic-values/fixity02.lc 18:10-18:15
+    _a -> ()
+testdata/language-features/basic-values/fixity02.lc 18:10-18:34
+    ()
+testdata/language-features/basic-values/fixity02.lc 18:13-18:15
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 18:16-18:19
+    Char
+testdata/language-features/basic-values/fixity02.lc 18:16-18:22
+    _a -> Char
+testdata/language-features/basic-values/fixity02.lc 18:16-18:34
+    Char
+testdata/language-features/basic-values/fixity02.lc 18:20-18:22
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 18:23-18:27
+    String
+testdata/language-features/basic-values/fixity02.lc 18:23-18:30
+    _a -> String
+testdata/language-features/basic-values/fixity02.lc 18:23-18:34
+    String
+testdata/language-features/basic-values/fixity02.lc 18:28-18:30
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 18:31-18:34
+    Float
+testdata/language-features/basic-values/fixity02.lc 18:38-18:40
+    Type
+testdata/language-features/basic-values/fixity02.lc 20:1-20:10
+    Float
+testdata/language-features/basic-values/fixity02.lc 20:13-20:15
+    ()
+testdata/language-features/basic-values/fixity02.lc 20:13-20:22
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 20:13-20:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 20:16-20:22
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 20:23-20:26
+    Char
+testdata/language-features/basic-values/fixity02.lc 20:23-20:33
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 20:23-20:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 20:27-20:33
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 20:34-20:38
+    String
+testdata/language-features/basic-values/fixity02.lc 20:34-20:45
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 20:34-20:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 20:39-20:45
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 20:46-20:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 20:53-20:58
+    Type
+testdata/language-features/basic-values/fixity02.lc 21:1-21:10
+    Float
+testdata/language-features/basic-values/fixity02.lc 21:13-21:15
+    ()
+testdata/language-features/basic-values/fixity02.lc 21:13-21:22
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 21:13-21:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 21:16-21:22
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 21:23-21:26
+    Char
+testdata/language-features/basic-values/fixity02.lc 21:23-21:33
+    _a -> Char
+testdata/language-features/basic-values/fixity02.lc 21:23-21:38
+    Char
+testdata/language-features/basic-values/fixity02.lc 21:23-21:45
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 21:23-21:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 21:27-21:33
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 21:34-21:38
+    String
+testdata/language-features/basic-values/fixity02.lc 21:39-21:45
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 21:46-21:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 21:53-21:58
+    Type
+testdata/language-features/basic-values/fixity02.lc 22:1-22:10
+    Float
+testdata/language-features/basic-values/fixity02.lc 22:13-22:15
+    ()
+testdata/language-features/basic-values/fixity02.lc 22:13-22:22
+    _a -> ()
+testdata/language-features/basic-values/fixity02.lc 22:13-22:26
+    ()
+testdata/language-features/basic-values/fixity02.lc 22:13-22:33
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 22:13-22:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 22:16-22:22
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 22:23-22:26
+    Char
+testdata/language-features/basic-values/fixity02.lc 22:27-22:33
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 22:34-22:38
+    String
+testdata/language-features/basic-values/fixity02.lc 22:34-22:45
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 22:34-22:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 22:39-22:45
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 22:46-22:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 22:53-22:58
+    Type
+testdata/language-features/basic-values/fixity02.lc 23:1-23:10
+    Float
+testdata/language-features/basic-values/fixity02.lc 23:13-23:15
+    ()
+testdata/language-features/basic-values/fixity02.lc 23:13-23:22
+    _a -> ()
+testdata/language-features/basic-values/fixity02.lc 23:13-23:38
+    ()
+testdata/language-features/basic-values/fixity02.lc 23:13-23:45
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 23:13-23:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 23:16-23:22
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 23:23-23:26
+    Char
+testdata/language-features/basic-values/fixity02.lc 23:23-23:33
+    _a -> Char
+testdata/language-features/basic-values/fixity02.lc 23:23-23:38
+    Char
+testdata/language-features/basic-values/fixity02.lc 23:27-23:33
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 23:34-23:38
+    String
+testdata/language-features/basic-values/fixity02.lc 23:39-23:45
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 23:46-23:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 23:53-23:58
+    Type
+testdata/language-features/basic-values/fixity02.lc 24:1-24:10
+    String
+testdata/language-features/basic-values/fixity02.lc 24:13-24:15
+    ()
+testdata/language-features/basic-values/fixity02.lc 24:13-24:22
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 24:13-24:49
+    String
+testdata/language-features/basic-values/fixity02.lc 24:16-24:22
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 24:23-24:26
+    Char
+testdata/language-features/basic-values/fixity02.lc 24:23-24:33
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 24:23-24:49
+    String
+testdata/language-features/basic-values/fixity02.lc 24:27-24:33
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 24:34-24:38
+    String
+testdata/language-features/basic-values/fixity02.lc 24:34-24:45
+    _a -> String
+testdata/language-features/basic-values/fixity02.lc 24:34-24:49
+    String
+testdata/language-features/basic-values/fixity02.lc 24:39-24:45
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 24:46-24:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 24:53-24:59
+    Type
+testdata/language-features/basic-values/fixity02.lc 25:1-25:10
+    Char
+testdata/language-features/basic-values/fixity02.lc 25:13-25:15
+    ()
+testdata/language-features/basic-values/fixity02.lc 25:13-25:22
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 25:13-25:49
+    Char
+testdata/language-features/basic-values/fixity02.lc 25:16-25:22
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 25:23-25:26
+    Char
+testdata/language-features/basic-values/fixity02.lc 25:23-25:33
+    _a -> Char
+testdata/language-features/basic-values/fixity02.lc 25:23-25:49
+    Char
+testdata/language-features/basic-values/fixity02.lc 25:27-25:33
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 25:34-25:38
+    String
+testdata/language-features/basic-values/fixity02.lc 25:34-25:45
+    _a -> String
+testdata/language-features/basic-values/fixity02.lc 25:34-25:49
+    String
+testdata/language-features/basic-values/fixity02.lc 25:39-25:45
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 25:46-25:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 25:53-25:57
+    Type
+testdata/language-features/basic-values/fixity02.lc 26:1-26:10
+    String
+testdata/language-features/basic-values/fixity02.lc 26:13-26:15
+    ()
+testdata/language-features/basic-values/fixity02.lc 26:13-26:22
+    _a -> ()
+testdata/language-features/basic-values/fixity02.lc 26:13-26:26
+    ()
+testdata/language-features/basic-values/fixity02.lc 26:13-26:33
+    _a -> _a
+testdata/language-features/basic-values/fixity02.lc 26:13-26:49
+    String
+testdata/language-features/basic-values/fixity02.lc 26:16-26:22
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 26:23-26:26
+    Char
+testdata/language-features/basic-values/fixity02.lc 26:27-26:33
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/fixity02.lc 26:34-26:38
+    String
+testdata/language-features/basic-values/fixity02.lc 26:34-26:45
+    _a -> String
+testdata/language-features/basic-values/fixity02.lc 26:34-26:49
+    String
+testdata/language-features/basic-values/fixity02.lc 26:39-26:45
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 26:46-26:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 26:53-26:59
+    Type
+testdata/language-features/basic-values/fixity02.lc 27:1-27:10
+    ()
+testdata/language-features/basic-values/fixity02.lc 27:13-27:15
+    ()
+testdata/language-features/basic-values/fixity02.lc 27:13-27:22
+    _a -> ()
+testdata/language-features/basic-values/fixity02.lc 27:13-27:49
+    ()
+testdata/language-features/basic-values/fixity02.lc 27:16-27:22
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 27:23-27:26
+    Char
+testdata/language-features/basic-values/fixity02.lc 27:23-27:33
+    _a -> Char
+testdata/language-features/basic-values/fixity02.lc 27:23-27:49
+    Char
+testdata/language-features/basic-values/fixity02.lc 27:27-27:33
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 27:34-27:38
+    String
+testdata/language-features/basic-values/fixity02.lc 27:34-27:45
+    _a -> String
+testdata/language-features/basic-values/fixity02.lc 27:34-27:49
+    String
+testdata/language-features/basic-values/fixity02.lc 27:39-27:45
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/fixity02.lc 27:46-27:49
+    Float
+testdata/language-features/basic-values/fixity02.lc 27:53-27:55
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/if01.out b/testdata/language-features/basic-values/if01.out
index 1e472faf..b16d8586 100644
--- a/testdata/language-features/basic-values/if01.out
+++ b/testdata/language-features/basic-values/if01.out
@@ -3,18 +3,30 @@ value1 = _rhs (primIfThenElse True HNil HNil)
 value2 = _rhs (primIfThenElse False 1.0 2.0)
 main is not found
 ------------ trace
-value1 :: ()
-value2 :: Float
+value1 :: ()
+value2 :: Float
 ------------ tooltips
-testdata/language-features/basic-values/if01.lc 1:1-1:7  ()
-testdata/language-features/basic-values/if01.lc 1:10-1:33  ()
-testdata/language-features/basic-values/if01.lc 1:13-1:17  Bool
-testdata/language-features/basic-values/if01.lc 1:13-1:25  () -> ()
-testdata/language-features/basic-values/if01.lc 1:23-1:25  ()
-testdata/language-features/basic-values/if01.lc 1:31-1:33  ()
-testdata/language-features/basic-values/if01.lc 2:1-2:7  Float
-testdata/language-features/basic-values/if01.lc 2:10-2:36  Float
-testdata/language-features/basic-values/if01.lc 2:13-2:18  Bool
-testdata/language-features/basic-values/if01.lc 2:13-2:27  Float -> Float
-testdata/language-features/basic-values/if01.lc 2:24-2:27  Float
-testdata/language-features/basic-values/if01.lc 2:33-2:36  Float
+testdata/language-features/basic-values/if01.lc 1:1-1:7
+    ()
+testdata/language-features/basic-values/if01.lc 1:10-1:33
+    ()
+testdata/language-features/basic-values/if01.lc 1:13-1:17
+    Bool
+testdata/language-features/basic-values/if01.lc 1:13-1:25
+    () -> ()
+testdata/language-features/basic-values/if01.lc 1:23-1:25
+    ()
+testdata/language-features/basic-values/if01.lc 1:31-1:33
+    ()
+testdata/language-features/basic-values/if01.lc 2:1-2:7
+    Float
+testdata/language-features/basic-values/if01.lc 2:10-2:36
+    Float
+testdata/language-features/basic-values/if01.lc 2:13-2:18
+    Bool
+testdata/language-features/basic-values/if01.lc 2:13-2:27
+    Float -> Float
+testdata/language-features/basic-values/if01.lc 2:24-2:27
+    Float
+testdata/language-features/basic-values/if01.lc 2:33-2:36
+    Float
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/if03.reject.out b/testdata/language-features/basic-values/if03.reject.out
index 125dd5b5..9ba86d9c 100644
--- a/testdata/language-features/basic-values/if03.reject.out
+++ b/testdata/language-features/basic-values/if03.reject.out
@@ -16,4 +16,5 @@ in testdata/language-features/basic-values/if03.reject.lc:1:13:
 value1 = if () then () else ()
             ^^
 ------------ tooltips
-testdata/language-features/basic-values/if03.reject.lc 1:13-1:15  ()
+testdata/language-features/basic-values/if03.reject.lc 1:13-1:15
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/if04.reject.out b/testdata/language-features/basic-values/if04.reject.out
index 6313eddc..c0df8c35 100644
--- a/testdata/language-features/basic-values/if04.reject.out
+++ b/testdata/language-features/basic-values/if04.reject.out
@@ -16,7 +16,11 @@ in testdata/language-features/basic-values/if04.reject.lc:1:31:
 value1 = if True then () else '_'
                               ^^^
 ------------ tooltips
-testdata/language-features/basic-values/if04.reject.lc 1:13-1:17  Bool
-testdata/language-features/basic-values/if04.reject.lc 1:13-1:25  () -> ()
-testdata/language-features/basic-values/if04.reject.lc 1:23-1:25  ()
-testdata/language-features/basic-values/if04.reject.lc 1:31-1:34  Char
+testdata/language-features/basic-values/if04.reject.lc 1:13-1:17
+    Bool
+testdata/language-features/basic-values/if04.reject.lc 1:13-1:25
+    () -> ()
+testdata/language-features/basic-values/if04.reject.lc 1:23-1:25
+    ()
+testdata/language-features/basic-values/if04.reject.lc 1:31-1:34
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/indentation01.out b/testdata/language-features/basic-values/indentation01.out
index 0540da3c..a607690b 100644
--- a/testdata/language-features/basic-values/indentation01.out
+++ b/testdata/language-features/basic-values/indentation01.out
@@ -3,10 +3,14 @@ tuple1 = _rhs HNil
 tuple2 = _rhs HNil
 main is not found
 ------------ trace
-tuple1 :: ()
-tuple2 :: ()
+tuple1 :: ()
+tuple2 :: ()
 ------------ tooltips
-testdata/language-features/basic-values/indentation01.lc 1:1-1:7  ()
-testdata/language-features/basic-values/indentation01.lc 1:10-1:12  ()
-testdata/language-features/basic-values/indentation01.lc 2:1-2:7  ()
-testdata/language-features/basic-values/indentation01.lc 2:10-2:12  ()
+testdata/language-features/basic-values/indentation01.lc 1:1-1:7
+    ()
+testdata/language-features/basic-values/indentation01.lc 1:10-1:12
+    ()
+testdata/language-features/basic-values/indentation01.lc 2:1-2:7
+    ()
+testdata/language-features/basic-values/indentation01.lc 2:10-2:12
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/indentation02.out b/testdata/language-features/basic-values/indentation02.out
index 8fa11e6c..97b138e0 100644
--- a/testdata/language-features/basic-values/indentation02.out
+++ b/testdata/language-features/basic-values/indentation02.out
@@ -3,10 +3,14 @@ tuple1 = _rhs HNil
 tuple2 = _rhs HNil
 main is not found
 ------------ trace
-tuple1 :: ()
-tuple2 :: ()
+tuple1 :: ()
+tuple2 :: ()
 ------------ tooltips
-testdata/language-features/basic-values/indentation02.lc 1:3-1:9  ()
-testdata/language-features/basic-values/indentation02.lc 1:12-1:14  ()
-testdata/language-features/basic-values/indentation02.lc 2:3-2:9  ()
-testdata/language-features/basic-values/indentation02.lc 2:12-2:14  ()
+testdata/language-features/basic-values/indentation02.lc 1:3-1:9
+    ()
+testdata/language-features/basic-values/indentation02.lc 1:12-1:14
+    ()
+testdata/language-features/basic-values/indentation02.lc 2:3-2:9
+    ()
+testdata/language-features/basic-values/indentation02.lc 2:12-2:14
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/infix01.out b/testdata/language-features/basic-values/infix01.out
index ec2b9ce7..dbfe5d56 100644
--- a/testdata/language-features/basic-values/infix01.out
+++ b/testdata/language-features/basic-values/infix01.out
@@ -3,14 +3,22 @@ fun = \_ -> \_ -> _rhs HNil
 value = \(a :: _) (b :: _) -> _rhs (a `fun` b)
 main is not found
 ------------ trace
-fun :: forall a b . a -> b -> ()
-value :: forall a b . a -> b -> ()
+fun :: forall a b . a -> b -> ()
+value :: forall a b . a -> b -> ()
 ------------ tooltips
-testdata/language-features/basic-values/infix01.lc 1:1-1:4  forall a b . a -> b -> ()
-testdata/language-features/basic-values/infix01.lc 1:11-1:13  ()
-testdata/language-features/basic-values/infix01.lc 3:1-3:6  forall a b . a -> b -> ()
-testdata/language-features/basic-values/infix01.lc 3:13-3:14  _f
-testdata/language-features/basic-values/infix01.lc 3:13-3:20  _a -> ()
-testdata/language-features/basic-values/infix01.lc 3:13-3:22  ()
-testdata/language-features/basic-values/infix01.lc 3:15-3:20  forall a b . a -> b -> ()
-testdata/language-features/basic-values/infix01.lc 3:21-3:22  _c
+testdata/language-features/basic-values/infix01.lc 1:1-1:4
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/infix01.lc 1:11-1:13
+    ()
+testdata/language-features/basic-values/infix01.lc 3:1-3:6
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/infix01.lc 3:13-3:14
+    _f
+testdata/language-features/basic-values/infix01.lc 3:13-3:20
+    _a -> ()
+testdata/language-features/basic-values/infix01.lc 3:13-3:22
+    ()
+testdata/language-features/basic-values/infix01.lc 3:15-3:20
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/infix01.lc 3:21-3:22
+    _c
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/infix02.out b/testdata/language-features/basic-values/infix02.out
index 2db04d26..c86a773f 100644
--- a/testdata/language-features/basic-values/infix02.out
+++ b/testdata/language-features/basic-values/infix02.out
@@ -3,14 +3,22 @@ fun = \_ -> \_ -> \_ -> _rhs HNil
 value = \(a :: _) (b :: _) -> _rhs (a `fun` b)
 main is not found
 ------------ trace
-fun :: forall a b c . a -> b -> c -> ()
-value :: forall a b c . a -> b -> c -> ()
+fun :: forall a b c . a -> b -> c -> ()
+value :: forall a b c . a -> b -> c -> ()
 ------------ tooltips
-testdata/language-features/basic-values/infix02.lc 1:1-1:4  forall a b c . a -> b -> c -> ()
-testdata/language-features/basic-values/infix02.lc 1:13-1:15  ()
-testdata/language-features/basic-values/infix02.lc 3:1-3:6  forall a b c . a -> b -> c -> ()
-testdata/language-features/basic-values/infix02.lc 3:13-3:14  _g
-testdata/language-features/basic-values/infix02.lc 3:13-3:20  _b -> _a -> ()
-testdata/language-features/basic-values/infix02.lc 3:13-3:22  _a -> ()
-testdata/language-features/basic-values/infix02.lc 3:15-3:20  forall a b c . a -> b -> c -> ()
-testdata/language-features/basic-values/infix02.lc 3:21-3:22  _d
+testdata/language-features/basic-values/infix02.lc 1:1-1:4
+    forall a b c . a -> b -> c -> ()
+testdata/language-features/basic-values/infix02.lc 1:13-1:15
+    ()
+testdata/language-features/basic-values/infix02.lc 3:1-3:6
+    forall a b c . a -> b -> c -> ()
+testdata/language-features/basic-values/infix02.lc 3:13-3:14
+    _g
+testdata/language-features/basic-values/infix02.lc 3:13-3:20
+    _b -> _a -> ()
+testdata/language-features/basic-values/infix02.lc 3:13-3:22
+    _a -> ()
+testdata/language-features/basic-values/infix02.lc 3:15-3:20
+    forall a b c . a -> b -> c -> ()
+testdata/language-features/basic-values/infix02.lc 3:21-3:22
+    _d
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/infix03.out b/testdata/language-features/basic-values/infix03.out
index d089f79d..6011a719 100644
--- a/testdata/language-features/basic-values/infix03.out
+++ b/testdata/language-features/basic-values/infix03.out
@@ -6,38 +6,61 @@ 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
+'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
-match'D :: forall (a :: Type -> Type) -> a D -> forall b -> a b -> a b
-d2 :: () -> () -> D
-d3 :: () -> () -> () -> D
+  :: forall (a :: D -> Type)
+    -> (forall (b :: ()) (c :: ()) -> a ('D2 b c))
+      -> (forall (d :: ()) (e :: ()) (f :: ()) -> a ('D3 d e f))
+        -> forall (g :: D) -> a g
+match'D :: forall (a :: Type -> Type) -> a D -> forall b -> a b -> a b
+d2 :: () -> () -> D
+d3 :: () -> () -> () -> D
 ------------ tooltips
-testdata/language-features/basic-values/infix03.lc 1:6-1:7  Type
-testdata/language-features/basic-values/infix03.lc 1:6-1:18  Type
-testdata/language-features/basic-values/infix03.lc 1:6-2:12  Type
-testdata/language-features/basic-values/infix03.lc 1:6-2:21  Type
-testdata/language-features/basic-values/infix03.lc 1:10-1:12  () -> () -> D | D | Type
-testdata/language-features/basic-values/infix03.lc 1:13-1:15  Type
-testdata/language-features/basic-values/infix03.lc 1:16-1:18  Type
-testdata/language-features/basic-values/infix03.lc 2:10-2:12  () -> () -> () -> D | D | Type
-testdata/language-features/basic-values/infix03.lc 2:13-2:15  Type
-testdata/language-features/basic-values/infix03.lc 2:16-2:18  Type
-testdata/language-features/basic-values/infix03.lc 2:19-2:21  Type
-testdata/language-features/basic-values/infix03.lc 4:1-4:3  () -> () -> D
-testdata/language-features/basic-values/infix03.lc 4:10-4:11  _d
-testdata/language-features/basic-values/infix03.lc 4:10-4:16  () -> D
-testdata/language-features/basic-values/infix03.lc 4:10-4:18  D
-testdata/language-features/basic-values/infix03.lc 4:12-4:16  () -> () -> D
-testdata/language-features/basic-values/infix03.lc 4:17-4:18  _b
-testdata/language-features/basic-values/infix03.lc 6:1-6:3  () -> () -> () -> D
-testdata/language-features/basic-values/infix03.lc 6:10-6:11  _d
-testdata/language-features/basic-values/infix03.lc 6:10-6:16  () -> () -> D
-testdata/language-features/basic-values/infix03.lc 6:10-6:18  () -> D
-testdata/language-features/basic-values/infix03.lc 6:12-6:16  () -> () -> () -> D
-testdata/language-features/basic-values/infix03.lc 6:17-6:18  _b
+testdata/language-features/basic-values/infix03.lc 1:6-1:7
+    Type | Type | Type | Type | Type | Type | Type | Type
+testdata/language-features/basic-values/infix03.lc 1:6-1:18
+    Type
+testdata/language-features/basic-values/infix03.lc 1:6-2:12
+    Type | Type
+testdata/language-features/basic-values/infix03.lc 1:6-2:21
+    Type | Type
+testdata/language-features/basic-values/infix03.lc 1:10-1:12
+    () -> () -> D | D | Type | Type | Type
+testdata/language-features/basic-values/infix03.lc 1:13-1:15
+    Type
+testdata/language-features/basic-values/infix03.lc 1:16-1:18
+    Type
+testdata/language-features/basic-values/infix03.lc 2:10-2:12
+    () -> () -> () -> D | D | Type | Type | Type | Type
+testdata/language-features/basic-values/infix03.lc 2:13-2:15
+    Type
+testdata/language-features/basic-values/infix03.lc 2:16-2:18
+    Type
+testdata/language-features/basic-values/infix03.lc 2:19-2:21
+    Type
+testdata/language-features/basic-values/infix03.lc 4:1-4:3
+    () -> () -> D
+testdata/language-features/basic-values/infix03.lc 4:10-4:11
+    _d
+testdata/language-features/basic-values/infix03.lc 4:10-4:16
+    () -> D
+testdata/language-features/basic-values/infix03.lc 4:10-4:18
+    D
+testdata/language-features/basic-values/infix03.lc 4:12-4:16
+    () -> () -> D
+testdata/language-features/basic-values/infix03.lc 4:17-4:18
+    _b
+testdata/language-features/basic-values/infix03.lc 6:1-6:3
+    () -> () -> () -> D
+testdata/language-features/basic-values/infix03.lc 6:10-6:11
+    _d
+testdata/language-features/basic-values/infix03.lc 6:10-6:16
+    () -> () -> D
+testdata/language-features/basic-values/infix03.lc 6:10-6:18
+    () -> D
+testdata/language-features/basic-values/infix03.lc 6:12-6:16
+    () -> () -> () -> D
+testdata/language-features/basic-values/infix03.lc 6:17-6:18
+    _b
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/lambda01.out b/testdata/language-features/basic-values/lambda01.out
index 5d57cdfd..4598e8d8 100644
--- a/testdata/language-features/basic-values/lambda01.out
+++ b/testdata/language-features/basic-values/lambda01.out
@@ -5,17 +5,25 @@ fun3 = _rhs \_ -> HNil
 fun4 = _rhs \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> \_ -> HNil
 main is not found
 ------------ trace
-fun1 :: forall a . a -> ()
-fun2 :: forall a . a -> ()
-fun3 :: forall a . a -> ()
+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 -> ()
+  :: 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  ()
-testdata/language-features/basic-values/lambda01.lc 2:1-2:5  forall a . a -> ()
-testdata/language-features/basic-values/lambda01.lc 2:15-2:17  ()
-testdata/language-features/basic-values/lambda01.lc 3:1-3:5  forall a . a -> ()
-testdata/language-features/basic-values/lambda01.lc 3:13-3:15  ()
-testdata/language-features/basic-values/lambda01.lc 4:1-4:5  forall a b c d e f g h i . a -> b -> c -> d -> e -> f -> g -> h -> i -> ()
-testdata/language-features/basic-values/lambda01.lc 5:28-5:30  ()
+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
+    ()
+testdata/language-features/basic-values/lambda01.lc 2:1-2:5
+    forall a . a -> ()
+testdata/language-features/basic-values/lambda01.lc 2:15-2:17
+    ()
+testdata/language-features/basic-values/lambda01.lc 3:1-3:5
+    forall a . a -> ()
+testdata/language-features/basic-values/lambda01.lc 3:13-3:15
+    ()
+testdata/language-features/basic-values/lambda01.lc 4:1-4:5
+    forall a b c d e f g h i . a -> b -> c -> d -> e -> f -> g -> h -> i -> ()
+testdata/language-features/basic-values/lambda01.lc 5:28-5:30
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/lambda03.out b/testdata/language-features/basic-values/lambda03.out
index 33988c84..990af1ad 100644
--- a/testdata/language-features/basic-values/lambda03.out
+++ b/testdata/language-features/basic-values/lambda03.out
@@ -3,10 +3,14 @@ fun1 = _rhs \_ (a :: _) -> \_ -> a
 fun2 = \(a :: _) -> _rhs \_ -> \_ -> \_ -> a
 main is not found
 ------------ trace
-fun1 :: forall a b c . a -> b -> c -> b
-fun2 :: forall a b c d . a -> b -> c -> d -> a
+fun1 :: forall a b c . a -> b -> c -> b
+fun2 :: forall a b c d . a -> b -> c -> d -> a
 ------------ tooltips
-testdata/language-features/basic-values/lambda03.lc 1:1-1:5  forall a b c . a -> b -> c -> b
-testdata/language-features/basic-values/lambda03.lc 1:22-1:23  _d
-testdata/language-features/basic-values/lambda03.lc 2:1-2:5  forall a b c d . a -> b -> c -> d -> a
-testdata/language-features/basic-values/lambda03.lc 2:25-2:26  _h
+testdata/language-features/basic-values/lambda03.lc 1:1-1:5
+    forall a b c . a -> b -> c -> b
+testdata/language-features/basic-values/lambda03.lc 1:22-1:23
+    _d
+testdata/language-features/basic-values/lambda03.lc 2:1-2:5
+    forall a b c d . a -> b -> c -> d -> a
+testdata/language-features/basic-values/lambda03.lc 2:25-2:26
+    _h
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/let01.out b/testdata/language-features/basic-values/let01.out
index 24948a10..33524e88 100644
--- a/testdata/language-features/basic-values/let01.out
+++ b/testdata/language-features/basic-values/let01.out
@@ -6,26 +6,43 @@ 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
-value2 :: forall a . Num a => a
-value3 :: forall a . Num a => a
-value4 :: forall a . Num a => a
-value5 :: forall a . Num a => a
+value1 :: forall a . Num a => a
+value2 :: forall a . Num a => a
+value3 :: forall a . Num a => a
+value4 :: forall a . Num a => a
+value5 :: forall a . Num a => a
 ------------ tooltips
-testdata/language-features/basic-values/let01.lc 1:1-1:7  forall a . Num a => a
-testdata/language-features/basic-values/let01.lc 1:18-1:19  _b
-testdata/language-features/basic-values/let01.lc 1:23-1:24  _b
-testdata/language-features/basic-values/let01.lc 3:1-3:7  forall a . Num a => a
-testdata/language-features/basic-values/let01.lc 4:11-4:12  _b
-testdata/language-features/basic-values/let01.lc 5:6-5:7  _b
-testdata/language-features/basic-values/let01.lc 7:1-7:7  forall a . Num a => a
-testdata/language-features/basic-values/let01.lc 8:11-8:12  _b
-testdata/language-features/basic-values/let01.lc 9:11-9:14  Char
-testdata/language-features/basic-values/let01.lc 10:6-10:7  _b
-testdata/language-features/basic-values/let01.lc 12:1-12:7  forall a . Num a => a
-testdata/language-features/basic-values/let01.lc 12:18-12:19  _b
-testdata/language-features/basic-values/let01.lc 13:13-13:14  _b
-testdata/language-features/basic-values/let01.lc 15:1-15:7  forall a . Num a => a
-testdata/language-features/basic-values/let01.lc 15:18-15:19  _b
-testdata/language-features/basic-values/let01.lc 16:18-16:19  _b
-testdata/language-features/basic-values/let01.lc 17:13-17:14  _b
+testdata/language-features/basic-values/let01.lc 1:1-1:7
+    forall a . Num a => a
+testdata/language-features/basic-values/let01.lc 1:18-1:19
+    _b
+testdata/language-features/basic-values/let01.lc 1:23-1:24
+    _b
+testdata/language-features/basic-values/let01.lc 3:1-3:7
+    forall a . Num a => a
+testdata/language-features/basic-values/let01.lc 4:11-4:12
+    _b
+testdata/language-features/basic-values/let01.lc 5:6-5:7
+    _b
+testdata/language-features/basic-values/let01.lc 7:1-7:7
+    forall a . Num a => a
+testdata/language-features/basic-values/let01.lc 8:11-8:12
+    _b
+testdata/language-features/basic-values/let01.lc 9:11-9:14
+    Char
+testdata/language-features/basic-values/let01.lc 10:6-10:7
+    _b
+testdata/language-features/basic-values/let01.lc 12:1-12:7
+    forall a . Num a => a
+testdata/language-features/basic-values/let01.lc 12:18-12:19
+    _b
+testdata/language-features/basic-values/let01.lc 13:13-13:14
+    _b
+testdata/language-features/basic-values/let01.lc 15:1-15:7
+    forall a . Num a => a
+testdata/language-features/basic-values/let01.lc 15:18-15:19
+    _b
+testdata/language-features/basic-values/let01.lc 16:18-16:19
+    _b
+testdata/language-features/basic-values/let01.lc 17:13-17:14
+    _b
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/let02.out b/testdata/language-features/basic-values/let02.out
index 92afbe41..44be34a1 100644
--- a/testdata/language-features/basic-values/let02.out
+++ b/testdata/language-features/basic-values/let02.out
@@ -8,14 +8,23 @@ value
             \(e := _rhs HNil) (f := _rhs (fromInt 1)) (g := _rhs "hello") -> 'B') -> HNil
 main is not found
 ------------ trace
-value :: ()
+value :: ()
 ------------ tooltips
-testdata/language-features/basic-values/let02.lc 1:1-1:6  ()
-testdata/language-features/basic-values/let02.lc 2:11-2:13  ()
-testdata/language-features/basic-values/let02.lc 3:19-3:22  Char
-testdata/language-features/basic-values/let02.lc 3:26-3:28  ()
-testdata/language-features/basic-values/let02.lc 5:17-5:19  ()
-testdata/language-features/basic-values/let02.lc 6:17-6:18  _b
-testdata/language-features/basic-values/let02.lc 7:17-7:24  String
-testdata/language-features/basic-values/let02.lc 8:12-8:15  Char
-testdata/language-features/basic-values/let02.lc 9:6-9:8  ()
+testdata/language-features/basic-values/let02.lc 1:1-1:6
+    ()
+testdata/language-features/basic-values/let02.lc 2:11-2:13
+    ()
+testdata/language-features/basic-values/let02.lc 3:19-3:22
+    Char
+testdata/language-features/basic-values/let02.lc 3:26-3:28
+    ()
+testdata/language-features/basic-values/let02.lc 5:17-5:19
+    ()
+testdata/language-features/basic-values/let02.lc 6:17-6:18
+    _b
+testdata/language-features/basic-values/let02.lc 7:17-7:24
+    String
+testdata/language-features/basic-values/let02.lc 8:12-8:15
+    Char
+testdata/language-features/basic-values/let02.lc 9:6-9:8
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/literal01.out b/testdata/language-features/basic-values/literal01.out
index a8328841..b45e2a20 100644
--- a/testdata/language-features/basic-values/literal01.out
+++ b/testdata/language-features/basic-values/literal01.out
@@ -9,28 +9,44 @@ stringValue1 = _rhs "Hello World"
 stringValue2 = _rhs "\nHello World\tagain!\r\n"
 main is not found
 ------------ trace
-intValue1 :: forall a . Num a => a
-intValue2 :: forall a . Num a => a
-intValue3 :: forall a . Num a => a
-floatValue1 :: Float
-floatValue2 :: Float
-charValue :: Char
-stringValue1 :: String
-stringValue2 :: String
+intValue1 :: forall a . Num a => a
+intValue2 :: forall a . Num a => a
+intValue3 :: forall a . Num a => a
+floatValue1 :: Float
+floatValue2 :: Float
+charValue :: Char
+stringValue1 :: String
+stringValue2 :: String
 ------------ tooltips
-testdata/language-features/basic-values/literal01.lc 1:1-1:10  forall a . Num a => a
-testdata/language-features/basic-values/literal01.lc 1:13-1:14  _b
-testdata/language-features/basic-values/literal01.lc 2:1-2:10  forall a . Num a => a
-testdata/language-features/basic-values/literal01.lc 2:13-2:14  _b
-testdata/language-features/basic-values/literal01.lc 3:1-3:10  forall a . Num a => a
-testdata/language-features/basic-values/literal01.lc 3:13-3:18  _b
-testdata/language-features/basic-values/literal01.lc 5:1-5:12  Float
-testdata/language-features/basic-values/literal01.lc 5:15-5:18  Float
-testdata/language-features/basic-values/literal01.lc 6:1-6:12  Float
-testdata/language-features/basic-values/literal01.lc 6:15-6:22  Float
-testdata/language-features/basic-values/literal01.lc 8:1-8:10  Char
-testdata/language-features/basic-values/literal01.lc 8:13-8:16  Char
-testdata/language-features/basic-values/literal01.lc 10:1-10:13  String
-testdata/language-features/basic-values/literal01.lc 10:16-10:29  String
-testdata/language-features/basic-values/literal01.lc 11:1-11:13  String
-testdata/language-features/basic-values/literal01.lc 11:16-11:45  String
+testdata/language-features/basic-values/literal01.lc 1:1-1:10
+    forall a . Num a => a
+testdata/language-features/basic-values/literal01.lc 1:13-1:14
+    _b
+testdata/language-features/basic-values/literal01.lc 2:1-2:10
+    forall a . Num a => a
+testdata/language-features/basic-values/literal01.lc 2:13-2:14
+    _b
+testdata/language-features/basic-values/literal01.lc 3:1-3:10
+    forall a . Num a => a
+testdata/language-features/basic-values/literal01.lc 3:13-3:18
+    _b
+testdata/language-features/basic-values/literal01.lc 5:1-5:12
+    Float
+testdata/language-features/basic-values/literal01.lc 5:15-5:18
+    Float
+testdata/language-features/basic-values/literal01.lc 6:1-6:12
+    Float
+testdata/language-features/basic-values/literal01.lc 6:15-6:22
+    Float
+testdata/language-features/basic-values/literal01.lc 8:1-8:10
+    Char
+testdata/language-features/basic-values/literal01.lc 8:13-8:16
+    Char
+testdata/language-features/basic-values/literal01.lc 10:1-10:13
+    String
+testdata/language-features/basic-values/literal01.lc 10:16-10:29
+    String
+testdata/language-features/basic-values/literal01.lc 11:1-11:13
+    String
+testdata/language-features/basic-values/literal01.lc 11:16-11:45
+    String
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/operator01.out b/testdata/language-features/basic-values/operator01.out
index deae312b..0b8f12c3 100644
--- a/testdata/language-features/basic-values/operator01.out
+++ b/testdata/language-features/basic-values/operator01.out
@@ -5,16 +5,24 @@ $$$# = \_ -> \_ -> _rhs HNil
 $$$ = \_ -> \_ -> _rhs HNil
 main is not found
 ------------ trace
-#$# :: forall a b . a -> b -> ()
-$$# :: forall a b . a -> b -> ()
-$$$# :: forall a b . a -> b -> ()
-$$$ :: forall a b . a -> b -> ()
+#$# :: forall a b . a -> b -> ()
+$$# :: forall a b . a -> b -> ()
+$$$# :: forall a b . a -> b -> ()
+$$$ :: forall a b . a -> b -> ()
 ------------ tooltips
-testdata/language-features/basic-values/operator01.lc 1:3-1:6  forall a b . a -> b -> ()
-testdata/language-features/basic-values/operator01.lc 1:11-1:13  ()
-testdata/language-features/basic-values/operator01.lc 3:3-3:6  forall a b . a -> b -> ()
-testdata/language-features/basic-values/operator01.lc 3:8-3:10  ()
-testdata/language-features/basic-values/operator01.lc 5:3-5:7  forall a b . a -> b -> ()
-testdata/language-features/basic-values/operator01.lc 6:3-6:5  ()
-testdata/language-features/basic-values/operator01.lc 8:3-8:6  forall a b . a -> b -> ()
-testdata/language-features/basic-values/operator01.lc 8:11-8:13  ()
+testdata/language-features/basic-values/operator01.lc 1:3-1:6
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/operator01.lc 1:11-1:13
+    ()
+testdata/language-features/basic-values/operator01.lc 3:3-3:6
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/operator01.lc 3:8-3:10
+    ()
+testdata/language-features/basic-values/operator01.lc 5:3-5:7
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/operator01.lc 6:3-6:5
+    ()
+testdata/language-features/basic-values/operator01.lc 8:3-8:6
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/operator01.lc 8:11-8:13
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/operator02.reject.out b/testdata/language-features/basic-values/operator02.reject.out
index cbf2cb0f..5d30716a 100644
--- a/testdata/language-features/basic-values/operator02.reject.out
+++ b/testdata/language-features/basic-values/operator02.reject.out
@@ -5,9 +5,9 @@ and at testdata/language-features/basic-values/operator02.reject.lc:1:3:
 a #$# b = ()
   ^^^
 ------------ trace
-#$# :: forall a b . a -> b -> ()
-fun :: forall a . a -> ()
-#$# :: forall a b . a -> b -> ()
+#$# :: forall a b . a -> b -> ()
+fun :: forall a . a -> ()
+#$# :: forall a b . a -> b -> ()
 !already defined #$# at testdata/language-features/basic-values/operator02.reject.lc:3:3:
 a #$# b = ()
   ^^^
@@ -15,9 +15,15 @@ and at testdata/language-features/basic-values/operator02.reject.lc:1:3:
 a #$# b = ()
   ^^^
 ------------ tooltips
-testdata/language-features/basic-values/operator02.reject.lc 1:3-1:6  forall a b . a -> b -> ()
-testdata/language-features/basic-values/operator02.reject.lc 1:11-1:13  ()
-testdata/language-features/basic-values/operator02.reject.lc 2:1-2:4  forall a . a -> ()
-testdata/language-features/basic-values/operator02.reject.lc 2:9-2:11  ()
-testdata/language-features/basic-values/operator02.reject.lc 3:3-3:6  forall a b . a -> b -> ()
-testdata/language-features/basic-values/operator02.reject.lc 3:11-3:13  ()
+testdata/language-features/basic-values/operator02.reject.lc 1:3-1:6
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/operator02.reject.lc 1:11-1:13
+    ()
+testdata/language-features/basic-values/operator02.reject.lc 2:1-2:4
+    forall a . a -> ()
+testdata/language-features/basic-values/operator02.reject.lc 2:9-2:11
+    ()
+testdata/language-features/basic-values/operator02.reject.lc 3:3-3:6
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/operator02.reject.lc 3:11-3:13
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/operator05.out b/testdata/language-features/basic-values/operator05.out
index d6ef392d..b6f270bb 100644
--- a/testdata/language-features/basic-values/operator05.out
+++ b/testdata/language-features/basic-values/operator05.out
@@ -2,12 +2,19 @@
 value1 = _rhs \(a := \_ -> \_ -> _rhs HNil) -> a HNil HNil
 main is not found
 ------------ trace
-value1 :: ()
+value1 :: ()
 ------------ tooltips
-testdata/language-features/basic-values/operator05.lc 1:1-1:7  ()
-testdata/language-features/basic-values/operator05.lc 1:24-1:26  ()
-testdata/language-features/basic-values/operator05.lc 2:13-2:15  ()
-testdata/language-features/basic-values/operator05.lc 2:13-2:19  _a -> ()
-testdata/language-features/basic-values/operator05.lc 2:13-2:22  ()
-testdata/language-features/basic-values/operator05.lc 2:16-2:19  forall a b . a -> b -> ()
-testdata/language-features/basic-values/operator05.lc 2:20-2:22  ()
+testdata/language-features/basic-values/operator05.lc 1:1-1:7
+    ()
+testdata/language-features/basic-values/operator05.lc 1:24-1:26
+    ()
+testdata/language-features/basic-values/operator05.lc 2:13-2:15
+    ()
+testdata/language-features/basic-values/operator05.lc 2:13-2:19
+    _a -> ()
+testdata/language-features/basic-values/operator05.lc 2:13-2:22
+    ()
+testdata/language-features/basic-values/operator05.lc 2:16-2:19
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/operator05.lc 2:20-2:22
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/operator06.out b/testdata/language-features/basic-values/operator06.out
index 0252f155..d91194d9 100644
--- a/testdata/language-features/basic-values/operator06.out
+++ b/testdata/language-features/basic-values/operator06.out
@@ -2,12 +2,19 @@
 value1 = _rhs \(a := \_ -> \_ -> _rhs HNil) -> a HNil HNil
 main is not found
 ------------ trace
-value1 :: ()
+value1 :: ()
 ------------ tooltips
-testdata/language-features/basic-values/operator06.lc 1:1-1:7  ()
-testdata/language-features/basic-values/operator06.lc 1:10-1:12  ()
-testdata/language-features/basic-values/operator06.lc 1:10-1:16  _a -> ()
-testdata/language-features/basic-values/operator06.lc 1:10-1:19  ()
-testdata/language-features/basic-values/operator06.lc 1:13-1:16  forall a b . a -> b -> ()
-testdata/language-features/basic-values/operator06.lc 1:17-1:19  ()
-testdata/language-features/basic-values/operator06.lc 2:19-2:21  ()
+testdata/language-features/basic-values/operator06.lc 1:1-1:7
+    ()
+testdata/language-features/basic-values/operator06.lc 1:10-1:12
+    ()
+testdata/language-features/basic-values/operator06.lc 1:10-1:16
+    _a -> ()
+testdata/language-features/basic-values/operator06.lc 1:10-1:19
+    ()
+testdata/language-features/basic-values/operator06.lc 1:13-1:16
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/operator06.lc 1:17-1:19
+    ()
+testdata/language-features/basic-values/operator06.lc 2:19-2:21
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/redefine01.reject.out b/testdata/language-features/basic-values/redefine01.reject.out
index 5bd93d2a..e0204f0e 100644
--- a/testdata/language-features/basic-values/redefine01.reject.out
+++ b/testdata/language-features/basic-values/redefine01.reject.out
@@ -5,9 +5,9 @@ and at testdata/language-features/basic-values/redefine01.reject.lc:1:1:
 unit = ()
 ^^^^
 ------------ trace
-unit :: ()
-tuple :: ()
-unit :: ()
+unit :: ()
+tuple :: ()
+unit :: ()
 !already defined unit at testdata/language-features/basic-values/redefine01.reject.lc:3:1:
 unit = ()
 ^^^^
@@ -15,9 +15,15 @@ and at testdata/language-features/basic-values/redefine01.reject.lc:1:1:
 unit = ()
 ^^^^
 ------------ tooltips
-testdata/language-features/basic-values/redefine01.reject.lc 1:1-1:5  ()
-testdata/language-features/basic-values/redefine01.reject.lc 1:8-1:10  ()
-testdata/language-features/basic-values/redefine01.reject.lc 2:1-2:6  ()
-testdata/language-features/basic-values/redefine01.reject.lc 2:9-2:11  ()
-testdata/language-features/basic-values/redefine01.reject.lc 3:1-3:5  ()
-testdata/language-features/basic-values/redefine01.reject.lc 3:8-3:10  ()
+testdata/language-features/basic-values/redefine01.reject.lc 1:1-1:5
+    ()
+testdata/language-features/basic-values/redefine01.reject.lc 1:8-1:10
+    ()
+testdata/language-features/basic-values/redefine01.reject.lc 2:1-2:6
+    ()
+testdata/language-features/basic-values/redefine01.reject.lc 2:9-2:11
+    ()
+testdata/language-features/basic-values/redefine01.reject.lc 3:1-3:5
+    ()
+testdata/language-features/basic-values/redefine01.reject.lc 3:8-3:10
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/shadowing01.out b/testdata/language-features/basic-values/shadowing01.out
index 6bddb912..39fdca99 100644
--- a/testdata/language-features/basic-values/shadowing01.out
+++ b/testdata/language-features/basic-values/shadowing01.out
@@ -12,16 +12,27 @@ value
                     \(g := _rhs HNil) (h := _rhs 'C') (i := _rhs 3.12) -> "world") -> HNil) -> '7'
 main is not found
 ------------ trace
-value :: Char
+value :: Char
 ------------ tooltips
-testdata/language-features/basic-values/shadowing01.lc 1:1-1:6  Char
-testdata/language-features/basic-values/shadowing01.lc 2:11-2:14  Char
-testdata/language-features/basic-values/shadowing01.lc 3:11-3:18  String
-testdata/language-features/basic-values/shadowing01.lc 5:17-5:18  _b
-testdata/language-features/basic-values/shadowing01.lc 6:17-6:21  Float
-testdata/language-features/basic-values/shadowing01.lc 7:25-7:27  ()
-testdata/language-features/basic-values/shadowing01.lc 8:25-8:28  Char
-testdata/language-features/basic-values/shadowing01.lc 9:25-9:29  Float
-testdata/language-features/basic-values/shadowing01.lc 10:20-10:27  String
-testdata/language-features/basic-values/shadowing01.lc 11:14-11:16  ()
-testdata/language-features/basic-values/shadowing01.lc 12:6-12:9  Char
+testdata/language-features/basic-values/shadowing01.lc 1:1-1:6
+    Char
+testdata/language-features/basic-values/shadowing01.lc 2:11-2:14
+    Char
+testdata/language-features/basic-values/shadowing01.lc 3:11-3:18
+    String
+testdata/language-features/basic-values/shadowing01.lc 5:17-5:18
+    _b
+testdata/language-features/basic-values/shadowing01.lc 6:17-6:21
+    Float
+testdata/language-features/basic-values/shadowing01.lc 7:25-7:27
+    ()
+testdata/language-features/basic-values/shadowing01.lc 8:25-8:28
+    Char
+testdata/language-features/basic-values/shadowing01.lc 9:25-9:29
+    Float
+testdata/language-features/basic-values/shadowing01.lc 10:20-10:27
+    String
+testdata/language-features/basic-values/shadowing01.lc 11:14-11:16
+    ()
+testdata/language-features/basic-values/shadowing01.lc 12:6-12:9
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/shadowing02.out b/testdata/language-features/basic-values/shadowing02.out
index e5eaf957..4da8cccd 100644
--- a/testdata/language-features/basic-values/shadowing02.out
+++ b/testdata/language-features/basic-values/shadowing02.out
@@ -16,24 +16,41 @@ value2
                         (i := _rhs 'C') (j := _rhs 3.12) (k := _rhs c) -> world) -> HNil) -> '7'
 main is not found
 ------------ trace
-c :: forall a . Num a => a
-world :: String
-value2 :: Char
+c :: forall a . Num a => a
+world :: String
+value2 :: Char
 ------------ tooltips
-testdata/language-features/basic-values/shadowing02.lc 1:1-1:2  forall a . Num a => a
-testdata/language-features/basic-values/shadowing02.lc 1:5-1:6  _b
-testdata/language-features/basic-values/shadowing02.lc 2:1-2:6  String
-testdata/language-features/basic-values/shadowing02.lc 2:9-2:16  String
-testdata/language-features/basic-values/shadowing02.lc 3:1-3:7  Char
-testdata/language-features/basic-values/shadowing02.lc 4:11-4:14  Char
-testdata/language-features/basic-values/shadowing02.lc 5:11-5:18  String
-testdata/language-features/basic-values/shadowing02.lc 6:11-6:14  _b
-testdata/language-features/basic-values/shadowing02.lc 8:17-8:18  _b
-testdata/language-features/basic-values/shadowing02.lc 9:17-9:21  Float
-testdata/language-features/basic-values/shadowing02.lc 10:25-10:27  ()
-testdata/language-features/basic-values/shadowing02.lc 11:25-11:28  Char
-testdata/language-features/basic-values/shadowing02.lc 12:25-12:29  Float
-testdata/language-features/basic-values/shadowing02.lc 13:25-13:26  forall a . Num a => a
-testdata/language-features/basic-values/shadowing02.lc 14:20-14:25  String
-testdata/language-features/basic-values/shadowing02.lc 15:14-15:16  ()
-testdata/language-features/basic-values/shadowing02.lc 16:6-16:9  Char
+testdata/language-features/basic-values/shadowing02.lc 1:1-1:2
+    forall a . Num a => a
+testdata/language-features/basic-values/shadowing02.lc 1:5-1:6
+    _b
+testdata/language-features/basic-values/shadowing02.lc 2:1-2:6
+    String
+testdata/language-features/basic-values/shadowing02.lc 2:9-2:16
+    String
+testdata/language-features/basic-values/shadowing02.lc 3:1-3:7
+    Char
+testdata/language-features/basic-values/shadowing02.lc 4:11-4:14
+    Char
+testdata/language-features/basic-values/shadowing02.lc 5:11-5:18
+    String
+testdata/language-features/basic-values/shadowing02.lc 6:11-6:14
+    _b
+testdata/language-features/basic-values/shadowing02.lc 8:17-8:18
+    _b
+testdata/language-features/basic-values/shadowing02.lc 9:17-9:21
+    Float
+testdata/language-features/basic-values/shadowing02.lc 10:25-10:27
+    ()
+testdata/language-features/basic-values/shadowing02.lc 11:25-11:28
+    Char
+testdata/language-features/basic-values/shadowing02.lc 12:25-12:29
+    Float
+testdata/language-features/basic-values/shadowing02.lc 13:25-13:26
+    forall a . Num a => a
+testdata/language-features/basic-values/shadowing02.lc 14:20-14:25
+    String
+testdata/language-features/basic-values/shadowing02.lc 15:14-15:16
+    ()
+testdata/language-features/basic-values/shadowing02.lc 16:6-16:9
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/shadowing03.out b/testdata/language-features/basic-values/shadowing03.out
index 7c734e30..8bfee196 100644
--- a/testdata/language-features/basic-values/shadowing03.out
+++ b/testdata/language-features/basic-values/shadowing03.out
@@ -2,7 +2,9 @@
 x = \_ -> \_ -> _rhs HNil
 main is not found
 ------------ trace
-x :: forall a b . a -> b -> ()
+x :: forall a b . a -> b -> ()
 ------------ tooltips
-testdata/language-features/basic-values/shadowing03.lc 1:1-1:2  forall a b . a -> b -> ()
-testdata/language-features/basic-values/shadowing03.lc 1:9-1:11  ()
+testdata/language-features/basic-values/shadowing03.lc 1:1-1:2
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/shadowing03.lc 1:9-1:11
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/shadowing04.out b/testdata/language-features/basic-values/shadowing04.out
index 8cd2c778..281cb141 100644
--- a/testdata/language-features/basic-values/shadowing04.out
+++ b/testdata/language-features/basic-values/shadowing04.out
@@ -2,7 +2,9 @@
 __ = \_ -> \_ -> _rhs HNil
 main is not found
 ------------ trace
-__ :: forall a b . a -> b -> ()
+__ :: forall a b . a -> b -> ()
 ------------ tooltips
-testdata/language-features/basic-values/shadowing04.lc 1:1-1:3  forall a b . a -> b -> ()
-testdata/language-features/basic-values/shadowing04.lc 1:11-1:13  ()
+testdata/language-features/basic-values/shadowing04.lc 1:1-1:3
+    forall a b . a -> b -> ()
+testdata/language-features/basic-values/shadowing04.lc 1:11-1:13
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/tuple01.out b/testdata/language-features/basic-values/tuple01.out
index b1208a3a..9ae4b926 100644
--- a/testdata/language-features/basic-values/tuple01.out
+++ b/testdata/language-features/basic-values/tuple01.out
@@ -2,7 +2,9 @@
 unit = _rhs HNil
 main is not found
 ------------ trace
-unit :: ()
+unit :: ()
 ------------ tooltips
-testdata/language-features/basic-values/tuple01.lc 1:1-1:5  ()
-testdata/language-features/basic-values/tuple01.lc 1:8-1:10  ()
+testdata/language-features/basic-values/tuple01.lc 1:1-1:5
+    ()
+testdata/language-features/basic-values/tuple01.lc 1:8-1:10
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/tuple02.out b/testdata/language-features/basic-values/tuple02.out
index 0419494e..8cdbb1b2 100644
--- a/testdata/language-features/basic-values/tuple02.out
+++ b/testdata/language-features/basic-values/tuple02.out
@@ -6,27 +6,47 @@ 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, ())
-tuple2 :: ((), ())
-tuple3 :: ((String, Char), ())
+tuple1 :: forall a . Num a => (a, Float, Char, String, ())
+tuple2 :: ((), ())
+tuple3 :: ((String, Char), ())
 ------------ tooltips
-testdata/language-features/basic-values/tuple02.lc 1:1-1:7  forall a . Num a => (a, Float, Char, String, ())
-testdata/language-features/basic-values/tuple02.lc 1:10-1:33  (_b, Float, Char, String, ())
-testdata/language-features/basic-values/tuple02.lc 1:11-1:12  _b
-testdata/language-features/basic-values/tuple02.lc 1:13-1:16  Float
-testdata/language-features/basic-values/tuple02.lc 1:13-1:32  (Float, Char, String, ())
-testdata/language-features/basic-values/tuple02.lc 1:17-1:20  Char
-testdata/language-features/basic-values/tuple02.lc 1:17-1:32  (Char, String, ())
-testdata/language-features/basic-values/tuple02.lc 1:21-1:29  String
-testdata/language-features/basic-values/tuple02.lc 1:21-1:32  (String, ())
-testdata/language-features/basic-values/tuple02.lc 1:30-1:32  ((())) | ()
-testdata/language-features/basic-values/tuple02.lc 3:1-3:7  ((), ())
-testdata/language-features/basic-values/tuple02.lc 3:10-3:17  ((), ())
-testdata/language-features/basic-values/tuple02.lc 3:11-3:13  ()
-testdata/language-features/basic-values/tuple02.lc 3:14-3:16  ((())) | ()
-testdata/language-features/basic-values/tuple02.lc 5:1-5:7  ((String, Char), ())
-testdata/language-features/basic-values/tuple02.lc 5:10-5:27  ((String, Char), ())
-testdata/language-features/basic-values/tuple02.lc 5:11-5:23  (String, Char)
-testdata/language-features/basic-values/tuple02.lc 5:12-5:18  String
-testdata/language-features/basic-values/tuple02.lc 5:19-5:22  ((Char)) | Char
-testdata/language-features/basic-values/tuple02.lc 5:24-5:26  ((())) | ()
+testdata/language-features/basic-values/tuple02.lc 1:1-1:7
+    forall a . Num a => (a, Float, Char, String, ())
+testdata/language-features/basic-values/tuple02.lc 1:10-1:33
+    (_b, Float, Char, String, ())
+testdata/language-features/basic-values/tuple02.lc 1:11-1:12
+    _b
+testdata/language-features/basic-values/tuple02.lc 1:13-1:16
+    Float
+testdata/language-features/basic-values/tuple02.lc 1:13-1:32
+    (Float, Char, String, ())
+testdata/language-features/basic-values/tuple02.lc 1:17-1:20
+    Char
+testdata/language-features/basic-values/tuple02.lc 1:17-1:32
+    (Char, String, ())
+testdata/language-features/basic-values/tuple02.lc 1:21-1:29
+    String
+testdata/language-features/basic-values/tuple02.lc 1:21-1:32
+    (String, ())
+testdata/language-features/basic-values/tuple02.lc 1:30-1:32
+    () | ((()))
+testdata/language-features/basic-values/tuple02.lc 3:1-3:7
+    ((), ())
+testdata/language-features/basic-values/tuple02.lc 3:10-3:17
+    ((), ())
+testdata/language-features/basic-values/tuple02.lc 3:11-3:13
+    ()
+testdata/language-features/basic-values/tuple02.lc 3:14-3:16
+    () | ((()))
+testdata/language-features/basic-values/tuple02.lc 5:1-5:7
+    ((String, Char), ())
+testdata/language-features/basic-values/tuple02.lc 5:10-5:27
+    ((String, Char), ())
+testdata/language-features/basic-values/tuple02.lc 5:11-5:23
+    (String, Char)
+testdata/language-features/basic-values/tuple02.lc 5:12-5:18
+    String
+testdata/language-features/basic-values/tuple02.lc 5:19-5:22
+    Char | ((Char))
+testdata/language-features/basic-values/tuple02.lc 5:24-5:26
+    () | ((()))
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesig01.out b/testdata/language-features/basic-values/typesig01.out
index 491eb5f1..0daccfb4 100644
--- a/testdata/language-features/basic-values/typesig01.out
+++ b/testdata/language-features/basic-values/typesig01.out
@@ -3,12 +3,18 @@ value1 = _rhs 'a' :: Char
 value2 = _rhs 'a' :: Char
 main is not found
 ------------ trace
-value1 :: Char
-value2 :: Char
+value1 :: Char
+value2 :: Char
 ------------ tooltips
-testdata/language-features/basic-values/typesig01.lc 1:11-1:15  Type
-testdata/language-features/basic-values/typesig01.lc 2:1-2:7  Char
-testdata/language-features/basic-values/typesig01.lc 2:10-2:13  Char
-testdata/language-features/basic-values/typesig01.lc 4:9-4:13  Type
-testdata/language-features/basic-values/typesig01.lc 5:1-5:7  Char
-testdata/language-features/basic-values/typesig01.lc 5:8-5:11  Char
+testdata/language-features/basic-values/typesig01.lc 1:11-1:15
+    Type
+testdata/language-features/basic-values/typesig01.lc 2:1-2:7
+    Char
+testdata/language-features/basic-values/typesig01.lc 2:10-2:13
+    Char
+testdata/language-features/basic-values/typesig01.lc 4:9-4:13
+    Type
+testdata/language-features/basic-values/typesig01.lc 5:1-5:7
+    Char
+testdata/language-features/basic-values/typesig01.lc 5:8-5:11
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesig02.out b/testdata/language-features/basic-values/typesig02.out
index e7b64644..cfd8e29d 100644
--- a/testdata/language-features/basic-values/typesig02.out
+++ b/testdata/language-features/basic-values/typesig02.out
@@ -3,12 +3,18 @@ value1 = _rhs ('a' :: Char)
 value2 = _rhs ('a' :: Char)
 main is not found
 ------------ trace
-value1 :: Char
-value2 :: Char
+value1 :: Char
+value2 :: Char
 ------------ tooltips
-testdata/language-features/basic-values/typesig02.lc 1:1-1:7  Char
-testdata/language-features/basic-values/typesig02.lc 1:10-1:13  Char
-testdata/language-features/basic-values/typesig02.lc 1:17-1:21  Type
-testdata/language-features/basic-values/typesig02.lc 3:1-3:7  Char
-testdata/language-features/basic-values/typesig02.lc 3:8-3:11  Char
-testdata/language-features/basic-values/typesig02.lc 3:13-3:17  Type
+testdata/language-features/basic-values/typesig02.lc 1:1-1:7
+    Char
+testdata/language-features/basic-values/typesig02.lc 1:10-1:13
+    Char
+testdata/language-features/basic-values/typesig02.lc 1:17-1:21
+    Type
+testdata/language-features/basic-values/typesig02.lc 3:1-3:7
+    Char
+testdata/language-features/basic-values/typesig02.lc 3:8-3:11
+    Char
+testdata/language-features/basic-values/typesig02.lc 3:13-3:17
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesig03.out b/testdata/language-features/basic-values/typesig03.out
index 393824b3..acca5245 100644
--- a/testdata/language-features/basic-values/typesig03.out
+++ b/testdata/language-features/basic-values/typesig03.out
@@ -7,24 +7,42 @@ fun2
     :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> HList 'Nil
 main is not found
 ------------ trace
-fun1 :: forall a b c . a -> b -> c -> ()
-fun2 :: forall a b c . a -> b -> c -> ()
+fun1 :: forall a b c . a -> b -> c -> ()
+fun2 :: forall a b c . a -> b -> c -> ()
 ------------ tooltips
-testdata/language-features/basic-values/typesig03.lc 1:9-1:10  _f
-testdata/language-features/basic-values/typesig03.lc 1:9-1:26  Type
-testdata/language-features/basic-values/typesig03.lc 1:14-1:15  _e
-testdata/language-features/basic-values/typesig03.lc 1:14-1:26  Type
-testdata/language-features/basic-values/typesig03.lc 1:19-1:20  _d
-testdata/language-features/basic-values/typesig03.lc 1:19-1:26  Type
-testdata/language-features/basic-values/typesig03.lc 1:24-1:26  Type
-testdata/language-features/basic-values/typesig03.lc 2:1-2:5  forall a b c . a -> b -> c -> ()
-testdata/language-features/basic-values/typesig03.lc 2:14-2:16  () | _c -> () | _c -> _b -> () | _c -> _b -> _a -> ()
-testdata/language-features/basic-values/typesig03.lc 4:7-4:8  _f
-testdata/language-features/basic-values/typesig03.lc 4:7-4:18  Type
-testdata/language-features/basic-values/typesig03.lc 4:10-4:11  _e
-testdata/language-features/basic-values/typesig03.lc 4:10-4:18  Type
-testdata/language-features/basic-values/typesig03.lc 4:13-4:14  _d
-testdata/language-features/basic-values/typesig03.lc 4:13-4:18  Type
-testdata/language-features/basic-values/typesig03.lc 4:16-4:18  Type
-testdata/language-features/basic-values/typesig03.lc 5:1-5:5  forall a b c . a -> b -> c -> ()
-testdata/language-features/basic-values/typesig03.lc 5:14-5:16  () | _c -> () | _c -> _b -> () | _c -> _b -> _a -> ()
+testdata/language-features/basic-values/typesig03.lc 1:9-1:10
+    _f
+testdata/language-features/basic-values/typesig03.lc 1:9-1:26
+    Type | Type | Type
+testdata/language-features/basic-values/typesig03.lc 1:14-1:15
+    _e
+testdata/language-features/basic-values/typesig03.lc 1:14-1:26
+    Type
+testdata/language-features/basic-values/typesig03.lc 1:19-1:20
+    _d
+testdata/language-features/basic-values/typesig03.lc 1:19-1:26
+    Type
+testdata/language-features/basic-values/typesig03.lc 1:24-1:26
+    Type | Type
+testdata/language-features/basic-values/typesig03.lc 2:1-2:5
+    forall a b c . a -> b -> c -> ()
+testdata/language-features/basic-values/typesig03.lc 2:14-2:16
+    ()
+testdata/language-features/basic-values/typesig03.lc 4:7-4:8
+    _f
+testdata/language-features/basic-values/typesig03.lc 4:7-4:18
+    Type | Type | Type
+testdata/language-features/basic-values/typesig03.lc 4:10-4:11
+    _e
+testdata/language-features/basic-values/typesig03.lc 4:10-4:18
+    Type
+testdata/language-features/basic-values/typesig03.lc 4:13-4:14
+    _d
+testdata/language-features/basic-values/typesig03.lc 4:13-4:18
+    Type
+testdata/language-features/basic-values/typesig03.lc 4:16-4:18
+    Type | Type
+testdata/language-features/basic-values/typesig03.lc 5:1-5:5
+    forall a b c . a -> b -> c -> ()
+testdata/language-features/basic-values/typesig03.lc 5:14-5:16
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesig04.out b/testdata/language-features/basic-values/typesig04.out
index e6fbc596..9cae9eb3 100644
--- a/testdata/language-features/basic-values/typesig04.out
+++ b/testdata/language-features/basic-values/typesig04.out
@@ -7,22 +7,38 @@ fun2
     :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> HList 'Nil
 main is not found
 ------------ trace
-fun1 :: forall a b c . a -> (b -> c) -> ()
-fun2 :: forall a b c . a -> (b -> c) -> ()
+fun1 :: forall a b c . a -> (b -> c) -> ()
+fun2 :: forall a b c . a -> (b -> c) -> ()
 ------------ tooltips
-testdata/language-features/basic-values/typesig04.lc 1:9-1:10  _f
-testdata/language-features/basic-values/typesig04.lc 1:9-1:28  Type
-testdata/language-features/basic-values/typesig04.lc 1:14-1:28  Type
-testdata/language-features/basic-values/typesig04.lc 1:15-1:16  _e
-testdata/language-features/basic-values/typesig04.lc 1:20-1:21  Type | _d
-testdata/language-features/basic-values/typesig04.lc 1:26-1:28  Type
-testdata/language-features/basic-values/typesig04.lc 2:1-2:5  forall a b c . a -> (b -> c) -> ()
-testdata/language-features/basic-values/typesig04.lc 2:12-2:14  () | (_c -> _b) -> () | _c -> (_b -> _a) -> ()
-testdata/language-features/basic-values/typesig04.lc 4:7-4:8  _f
-testdata/language-features/basic-values/typesig04.lc 4:7-4:20  Type
-testdata/language-features/basic-values/typesig04.lc 4:10-4:20  Type
-testdata/language-features/basic-values/typesig04.lc 4:11-4:12  _e
-testdata/language-features/basic-values/typesig04.lc 4:14-4:15  Type | _d
-testdata/language-features/basic-values/typesig04.lc 4:18-4:20  Type
-testdata/language-features/basic-values/typesig04.lc 5:1-5:5  forall a b c . a -> (b -> c) -> ()
-testdata/language-features/basic-values/typesig04.lc 5:12-5:14  () | (_c -> _b) -> () | _c -> (_b -> _a) -> ()
+testdata/language-features/basic-values/typesig04.lc 1:9-1:10
+    _f
+testdata/language-features/basic-values/typesig04.lc 1:9-1:28
+    Type | Type | Type
+testdata/language-features/basic-values/typesig04.lc 1:14-1:28
+    Type
+testdata/language-features/basic-values/typesig04.lc 1:15-1:16
+    _e
+testdata/language-features/basic-values/typesig04.lc 1:20-1:21
+    _d | Type
+testdata/language-features/basic-values/typesig04.lc 1:26-1:28
+    Type | Type
+testdata/language-features/basic-values/typesig04.lc 2:1-2:5
+    forall a b c . a -> (b -> c) -> ()
+testdata/language-features/basic-values/typesig04.lc 2:12-2:14
+    ()
+testdata/language-features/basic-values/typesig04.lc 4:7-4:8
+    _f
+testdata/language-features/basic-values/typesig04.lc 4:7-4:20
+    Type | Type | Type
+testdata/language-features/basic-values/typesig04.lc 4:10-4:20
+    Type
+testdata/language-features/basic-values/typesig04.lc 4:11-4:12
+    _e
+testdata/language-features/basic-values/typesig04.lc 4:14-4:15
+    _d | Type
+testdata/language-features/basic-values/typesig04.lc 4:18-4:20
+    Type | Type
+testdata/language-features/basic-values/typesig04.lc 5:1-5:5
+    forall a b c . a -> (b -> c) -> ()
+testdata/language-features/basic-values/typesig04.lc 5:12-5:14
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesig05.out b/testdata/language-features/basic-values/typesig05.out
index 1f40f653..b2676de8 100644
--- a/testdata/language-features/basic-values/typesig05.out
+++ b/testdata/language-features/basic-values/typesig05.out
@@ -7,42 +7,74 @@ value3 = _rhs (funL 'a' "b") :: Char
 value4 = _rhs (funR 'a' "b") :: String
 main is not found
 ------------ trace
-funL :: forall a b . a -> b -> a
-funR :: forall a b . a -> b -> b
-value1 :: Char
-value2 :: String
-value3 :: Char
-value4 :: String
+funL :: forall a b . a -> b -> a
+funR :: forall a b . a -> b -> b
+value1 :: Char
+value2 :: String
+value3 :: Char
+value4 :: String
 ------------ tooltips
-testdata/language-features/basic-values/typesig05.lc 1:1-1:5  forall a b . a -> b -> a
-testdata/language-features/basic-values/typesig05.lc 1:12-1:13  _d
-testdata/language-features/basic-values/typesig05.lc 2:1-2:5  forall a b . a -> b -> b
-testdata/language-features/basic-values/typesig05.lc 2:12-2:13  _b
-testdata/language-features/basic-values/typesig05.lc 4:1-4:7  Char
-testdata/language-features/basic-values/typesig05.lc 4:10-4:14  forall a b . a -> b -> a
-testdata/language-features/basic-values/typesig05.lc 4:10-4:18  _a -> Char
-testdata/language-features/basic-values/typesig05.lc 4:10-4:22  Char
-testdata/language-features/basic-values/typesig05.lc 4:15-4:18  Char
-testdata/language-features/basic-values/typesig05.lc 4:19-4:22  String
-testdata/language-features/basic-values/typesig05.lc 4:26-4:30  Type
-testdata/language-features/basic-values/typesig05.lc 5:1-5:7  String
-testdata/language-features/basic-values/typesig05.lc 5:10-5:14  forall a b . a -> b -> b
-testdata/language-features/basic-values/typesig05.lc 5:10-5:18  _a -> _a
-testdata/language-features/basic-values/typesig05.lc 5:10-5:22  String
-testdata/language-features/basic-values/typesig05.lc 5:15-5:18  Char
-testdata/language-features/basic-values/typesig05.lc 5:19-5:22  String
-testdata/language-features/basic-values/typesig05.lc 5:26-5:32  Type
-testdata/language-features/basic-values/typesig05.lc 7:11-7:15  Type
-testdata/language-features/basic-values/typesig05.lc 8:1-8:7  Char
-testdata/language-features/basic-values/typesig05.lc 8:10-8:14  forall a b . a -> b -> a
-testdata/language-features/basic-values/typesig05.lc 8:10-8:18  _a -> Char
-testdata/language-features/basic-values/typesig05.lc 8:10-8:22  Char
-testdata/language-features/basic-values/typesig05.lc 8:15-8:18  Char
-testdata/language-features/basic-values/typesig05.lc 8:19-8:22  String
-testdata/language-features/basic-values/typesig05.lc 10:11-10:17  Type
-testdata/language-features/basic-values/typesig05.lc 11:1-11:7  String
-testdata/language-features/basic-values/typesig05.lc 11:10-11:14  forall a b . a -> b -> b
-testdata/language-features/basic-values/typesig05.lc 11:10-11:18  _a -> _a
-testdata/language-features/basic-values/typesig05.lc 11:10-11:22  String
-testdata/language-features/basic-values/typesig05.lc 11:15-11:18  Char
-testdata/language-features/basic-values/typesig05.lc 11:19-11:22  String
+testdata/language-features/basic-values/typesig05.lc 1:1-1:5
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/typesig05.lc 1:12-1:13
+    _d
+testdata/language-features/basic-values/typesig05.lc 2:1-2:5
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/typesig05.lc 2:12-2:13
+    _b
+testdata/language-features/basic-values/typesig05.lc 4:1-4:7
+    Char
+testdata/language-features/basic-values/typesig05.lc 4:10-4:14
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/typesig05.lc 4:10-4:18
+    _a -> Char
+testdata/language-features/basic-values/typesig05.lc 4:10-4:22
+    Char
+testdata/language-features/basic-values/typesig05.lc 4:15-4:18
+    Char
+testdata/language-features/basic-values/typesig05.lc 4:19-4:22
+    String
+testdata/language-features/basic-values/typesig05.lc 4:26-4:30
+    Type
+testdata/language-features/basic-values/typesig05.lc 5:1-5:7
+    String
+testdata/language-features/basic-values/typesig05.lc 5:10-5:14
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/typesig05.lc 5:10-5:18
+    _a -> _a
+testdata/language-features/basic-values/typesig05.lc 5:10-5:22
+    String
+testdata/language-features/basic-values/typesig05.lc 5:15-5:18
+    Char
+testdata/language-features/basic-values/typesig05.lc 5:19-5:22
+    String
+testdata/language-features/basic-values/typesig05.lc 5:26-5:32
+    Type
+testdata/language-features/basic-values/typesig05.lc 7:11-7:15
+    Type
+testdata/language-features/basic-values/typesig05.lc 8:1-8:7
+    Char
+testdata/language-features/basic-values/typesig05.lc 8:10-8:14
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/typesig05.lc 8:10-8:18
+    _a -> Char
+testdata/language-features/basic-values/typesig05.lc 8:10-8:22
+    Char
+testdata/language-features/basic-values/typesig05.lc 8:15-8:18
+    Char
+testdata/language-features/basic-values/typesig05.lc 8:19-8:22
+    String
+testdata/language-features/basic-values/typesig05.lc 10:11-10:17
+    Type
+testdata/language-features/basic-values/typesig05.lc 11:1-11:7
+    String
+testdata/language-features/basic-values/typesig05.lc 11:10-11:14
+    forall a b . a -> b -> b
+testdata/language-features/basic-values/typesig05.lc 11:10-11:18
+    _a -> _a
+testdata/language-features/basic-values/typesig05.lc 11:10-11:22
+    String
+testdata/language-features/basic-values/typesig05.lc 11:15-11:18
+    Char
+testdata/language-features/basic-values/typesig05.lc 11:19-11:22
+    String
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesig06.out b/testdata/language-features/basic-values/typesig06.out
index 6c86ce15..5a4bfa41 100644
--- a/testdata/language-features/basic-values/typesig06.out
+++ b/testdata/language-features/basic-values/typesig06.out
@@ -5,26 +5,44 @@ 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
-<@ :: forall a b . a -> b -> a
-value1 :: String
-value2 :: String
+funL :: forall a b . a -> b -> a
+<@ :: forall a b . a -> b -> a
+value1 :: String
+value2 :: String
 ------------ tooltips
-testdata/language-features/basic-values/typesig06.lc 1:1-1:5  forall a b . a -> b -> a
-testdata/language-features/basic-values/typesig06.lc 1:12-1:13  _d
-testdata/language-features/basic-values/typesig06.lc 2:3-2:5  forall a b . a -> b -> a
-testdata/language-features/basic-values/typesig06.lc 2:10-2:11  _d
-testdata/language-features/basic-values/typesig06.lc 4:1-4:7  String
-testdata/language-features/basic-values/typesig06.lc 4:10-4:14  String
-testdata/language-features/basic-values/typesig06.lc 4:10-4:17  _a -> String
-testdata/language-features/basic-values/typesig06.lc 4:10-4:21  String
-testdata/language-features/basic-values/typesig06.lc 4:15-4:17  forall a b . a -> b -> a
-testdata/language-features/basic-values/typesig06.lc 4:18-4:21  Float
-testdata/language-features/basic-values/typesig06.lc 4:25-4:31  Type
-testdata/language-features/basic-values/typesig06.lc 5:1-5:7  String
-testdata/language-features/basic-values/typesig06.lc 5:10-5:14  String
-testdata/language-features/basic-values/typesig06.lc 5:10-5:21  _a -> String
-testdata/language-features/basic-values/typesig06.lc 5:10-5:25  String
-testdata/language-features/basic-values/typesig06.lc 5:15-5:21  forall a b . a -> b -> a
-testdata/language-features/basic-values/typesig06.lc 5:22-5:25  Float
-testdata/language-features/basic-values/typesig06.lc 5:29-5:35  Type
+testdata/language-features/basic-values/typesig06.lc 1:1-1:5
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/typesig06.lc 1:12-1:13
+    _d
+testdata/language-features/basic-values/typesig06.lc 2:3-2:5
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/typesig06.lc 2:10-2:11
+    _d
+testdata/language-features/basic-values/typesig06.lc 4:1-4:7
+    String
+testdata/language-features/basic-values/typesig06.lc 4:10-4:14
+    String
+testdata/language-features/basic-values/typesig06.lc 4:10-4:17
+    _a -> String
+testdata/language-features/basic-values/typesig06.lc 4:10-4:21
+    String
+testdata/language-features/basic-values/typesig06.lc 4:15-4:17
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/typesig06.lc 4:18-4:21
+    Float
+testdata/language-features/basic-values/typesig06.lc 4:25-4:31
+    Type
+testdata/language-features/basic-values/typesig06.lc 5:1-5:7
+    String
+testdata/language-features/basic-values/typesig06.lc 5:10-5:14
+    String
+testdata/language-features/basic-values/typesig06.lc 5:10-5:21
+    _a -> String
+testdata/language-features/basic-values/typesig06.lc 5:10-5:25
+    String
+testdata/language-features/basic-values/typesig06.lc 5:15-5:21
+    forall a b . a -> b -> a
+testdata/language-features/basic-values/typesig06.lc 5:22-5:25
+    Float
+testdata/language-features/basic-values/typesig06.lc 5:29-5:35
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesig07.out b/testdata/language-features/basic-values/typesig07.out
index 08742feb..8d454af6 100644
--- a/testdata/language-features/basic-values/typesig07.out
+++ b/testdata/language-features/basic-values/typesig07.out
@@ -7,27 +7,44 @@ value4 = (\_ -> \_ -> _rhs HNil) :: HList 'Nil -> HList 'Nil -> HList 'Nil
 value6 = (\_ -> \_ -> _rhs HNil) :: HList 'Nil -> HList 'Nil -> HList 'Nil
 main is not found
 ------------ trace
-value1 :: Int
-value2 :: Int
-value3 :: Int
-value4 :: () -> () -> ()
-@@@ :: () -> () -> ()
-value6 :: () -> () -> ()
+value1 :: Int
+value2 :: Int
+value3 :: Int
+value4 :: () -> () -> ()
+@@@ :: () -> () -> ()
+value6 :: () -> () -> ()
 ------------ tooltips
-testdata/language-features/basic-values/typesig07.lc 1:27-1:30  Type
-testdata/language-features/basic-values/typesig07.lc 3:1-3:7  Int
-testdata/language-features/basic-values/typesig07.lc 3:10-3:11  _b
-testdata/language-features/basic-values/typesig07.lc 4:1-4:7  Int
-testdata/language-features/basic-values/typesig07.lc 4:10-4:11  _b
-testdata/language-features/basic-values/typesig07.lc 5:1-5:7  Int
-testdata/language-features/basic-values/typesig07.lc 5:10-5:11  _b
-testdata/language-features/basic-values/typesig07.lc 8:12-8:14  Type
-testdata/language-features/basic-values/typesig07.lc 8:18-8:20  Type
-testdata/language-features/basic-values/typesig07.lc 8:18-8:26  Type
-testdata/language-features/basic-values/typesig07.lc 8:24-8:26  Type
-testdata/language-features/basic-values/typesig07.lc 10:1-10:7  () -> () -> ()
-testdata/language-features/basic-values/typesig07.lc 10:14-10:16  () | () -> () | () -> () -> ()
-testdata/language-features/basic-values/typesig07.lc 11:3-11:6  () -> () -> ()
-testdata/language-features/basic-values/typesig07.lc 11:11-11:13  () | () -> () | () -> () -> ()
-testdata/language-features/basic-values/typesig07.lc 12:1-12:7  () -> () -> ()
-testdata/language-features/basic-values/typesig07.lc 12:14-12:16  () | () -> () | () -> () -> ()
+testdata/language-features/basic-values/typesig07.lc 1:27-1:30
+    Type | Type | Type
+testdata/language-features/basic-values/typesig07.lc 3:1-3:7
+    Int
+testdata/language-features/basic-values/typesig07.lc 3:10-3:11
+    _b
+testdata/language-features/basic-values/typesig07.lc 4:1-4:7
+    Int
+testdata/language-features/basic-values/typesig07.lc 4:10-4:11
+    _b
+testdata/language-features/basic-values/typesig07.lc 5:1-5:7
+    Int
+testdata/language-features/basic-values/typesig07.lc 5:10-5:11
+    _b
+testdata/language-features/basic-values/typesig07.lc 8:12-8:14
+    Type | Type | Type
+testdata/language-features/basic-values/typesig07.lc 8:18-8:20
+    Type | Type | Type
+testdata/language-features/basic-values/typesig07.lc 8:18-8:26
+    Type | Type | Type
+testdata/language-features/basic-values/typesig07.lc 8:24-8:26
+    Type | Type | Type | Type | Type | Type
+testdata/language-features/basic-values/typesig07.lc 10:1-10:7
+    () -> () -> ()
+testdata/language-features/basic-values/typesig07.lc 10:14-10:16
+    ()
+testdata/language-features/basic-values/typesig07.lc 11:3-11:6
+    () -> () -> ()
+testdata/language-features/basic-values/typesig07.lc 11:11-11:13
+    ()
+testdata/language-features/basic-values/typesig07.lc 12:1-12:7
+    () -> () -> ()
+testdata/language-features/basic-values/typesig07.lc 12:14-12:16
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesyn01.out b/testdata/language-features/basic-values/typesyn01.out
index 3d10ddaa..f9a6aa11 100644
--- a/testdata/language-features/basic-values/typesyn01.out
+++ b/testdata/language-features/basic-values/typesyn01.out
@@ -2,7 +2,9 @@
 'MyUnit = _rhs ('HList Nil)
 main is not found
 ------------ trace
-'MyUnit :: Type
+'MyUnit :: Type
 ------------ tooltips
-testdata/language-features/basic-values/typesyn01.lc 1:6-1:12  Type
-testdata/language-features/basic-values/typesyn01.lc 1:15-1:17  Type
+testdata/language-features/basic-values/typesyn01.lc 1:6-1:12
+    Type
+testdata/language-features/basic-values/typesyn01.lc 1:15-1:17
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesyn02.out b/testdata/language-features/basic-values/typesyn02.out
index 615d97eb..86f91ada 100644
--- a/testdata/language-features/basic-values/typesyn02.out
+++ b/testdata/language-features/basic-values/typesyn02.out
@@ -5,15 +5,24 @@ fun
     :: forall (b :: _) . b -> MyUnit -> MyUnit
 main is not found
 ------------ trace
-'MyUnit :: Type
-fun :: forall a . a -> () -> ()
+'MyUnit :: Type
+fun :: forall a . a -> () -> ()
 ------------ tooltips
-testdata/language-features/basic-values/typesyn02.lc 1:6-1:12  Type
-testdata/language-features/basic-values/typesyn02.lc 1:15-1:17  Type
-testdata/language-features/basic-values/typesyn02.lc 3:8-3:9  _b
-testdata/language-features/basic-values/typesyn02.lc 3:8-3:29  Type
-testdata/language-features/basic-values/typesyn02.lc 3:13-3:19  Type
-testdata/language-features/basic-values/typesyn02.lc 3:13-3:29  Type
-testdata/language-features/basic-values/typesyn02.lc 3:23-3:29  Type
-testdata/language-features/basic-values/typesyn02.lc 4:1-4:4  forall a . a -> () -> ()
-testdata/language-features/basic-values/typesyn02.lc 4:12-4:14  () | () -> () | _a -> () -> ()
+testdata/language-features/basic-values/typesyn02.lc 1:6-1:12
+    Type
+testdata/language-features/basic-values/typesyn02.lc 1:15-1:17
+    Type
+testdata/language-features/basic-values/typesyn02.lc 3:8-3:9
+    _b
+testdata/language-features/basic-values/typesyn02.lc 3:8-3:29
+    Type
+testdata/language-features/basic-values/typesyn02.lc 3:13-3:19
+    Type
+testdata/language-features/basic-values/typesyn02.lc 3:13-3:29
+    Type
+testdata/language-features/basic-values/typesyn02.lc 3:23-3:29
+    Type | Type
+testdata/language-features/basic-values/typesyn02.lc 4:1-4:4
+    forall a . a -> () -> ()
+testdata/language-features/basic-values/typesyn02.lc 4:12-4:14
+    () | ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesyn03.reject.out b/testdata/language-features/basic-values/typesyn03.reject.out
index cf08db7a..2b77d0c1 100644
--- a/testdata/language-features/basic-values/typesyn03.reject.out
+++ b/testdata/language-features/basic-values/typesyn03.reject.out
@@ -5,8 +5,8 @@ and at testdata/language-features/basic-values/typesyn03.reject.lc:1:6:
 type MyUnit = ()
      ^^^^^^
 ------------ trace
-'MyUnit :: Type
-'MyUnit :: Type
+'MyUnit :: Type
+'MyUnit :: Type
 !already defined 'MyUnit at testdata/language-features/basic-values/typesyn03.reject.lc:2:6:
 type MyUnit = ()
      ^^^^^^
@@ -14,7 +14,11 @@ and at testdata/language-features/basic-values/typesyn03.reject.lc:1:6:
 type MyUnit = ()
      ^^^^^^
 ------------ tooltips
-testdata/language-features/basic-values/typesyn03.reject.lc 1:6-1:12  Type
-testdata/language-features/basic-values/typesyn03.reject.lc 1:15-1:17  Type
-testdata/language-features/basic-values/typesyn03.reject.lc 2:6-2:12  Type
-testdata/language-features/basic-values/typesyn03.reject.lc 2:15-2:17  Type
+testdata/language-features/basic-values/typesyn03.reject.lc 1:6-1:12
+    Type
+testdata/language-features/basic-values/typesyn03.reject.lc 1:15-1:17
+    Type
+testdata/language-features/basic-values/typesyn03.reject.lc 2:6-2:12
+    Type
+testdata/language-features/basic-values/typesyn03.reject.lc 2:15-2:17
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/typesyn04.reject.out b/testdata/language-features/basic-values/typesyn04.reject.out
index 94fc1e8c..bb35b41e 100644
--- a/testdata/language-features/basic-values/typesyn04.reject.out
+++ b/testdata/language-features/basic-values/typesyn04.reject.out
@@ -5,8 +5,8 @@ and at testdata/language-features/basic-values/typesyn04.reject.lc:1:6:
 type MyUnit = ()
      ^^^^^^
 ------------ trace
-'MyUnit :: Type
-'MyUnit :: Type
+'MyUnit :: Type
+'MyUnit :: Type
 !already defined 'MyUnit at testdata/language-features/basic-values/typesyn04.reject.lc:2:6:
 type MyUnit = ()
      ^^^^^^
@@ -14,7 +14,11 @@ and at testdata/language-features/basic-values/typesyn04.reject.lc:1:6:
 type MyUnit = ()
      ^^^^^^
 ------------ tooltips
-testdata/language-features/basic-values/typesyn04.reject.lc 1:6-1:12  Type
-testdata/language-features/basic-values/typesyn04.reject.lc 1:15-1:17  Type
-testdata/language-features/basic-values/typesyn04.reject.lc 2:6-2:12  Type
-testdata/language-features/basic-values/typesyn04.reject.lc 2:15-2:17  Type
+testdata/language-features/basic-values/typesyn04.reject.lc 1:6-1:12
+    Type
+testdata/language-features/basic-values/typesyn04.reject.lc 1:15-1:17
+    Type
+testdata/language-features/basic-values/typesyn04.reject.lc 2:6-2:12
+    Type
+testdata/language-features/basic-values/typesyn04.reject.lc 2:15-2:17
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/where01.out b/testdata/language-features/basic-values/where01.out
index 0008aa6a..9ff7eb28 100644
--- a/testdata/language-features/basic-values/where01.out
+++ b/testdata/language-features/basic-values/where01.out
@@ -12,51 +12,87 @@ value10 = _rhs \(a := _rhs HNil) (b := _rhs HNil) -> a
 value11 = _rhs \(a := _rhs HNil) (b := _rhs HNil) -> a
 main is not found
 ------------ trace
-value1 :: ()
-value2 :: ()
-value3 :: ()
-value4 :: ()
-value5 :: ()
-value6 :: ()
-value7 :: ()
-value8 :: ()
-value9 :: ()
-value10 :: ()
-value11 :: ()
+value1 :: ()
+value2 :: ()
+value3 :: ()
+value4 :: ()
+value5 :: ()
+value6 :: ()
+value7 :: ()
+value8 :: ()
+value9 :: ()
+value10 :: ()
+value11 :: ()
 ------------ tooltips
-testdata/language-features/basic-values/where01.lc 1:1-1:7  ()
-testdata/language-features/basic-values/where01.lc 1:10-1:12  ()
-testdata/language-features/basic-values/where01.lc 1:23-1:25  ()
-testdata/language-features/basic-values/where01.lc 3:1-3:7  ()
-testdata/language-features/basic-values/where01.lc 3:10-3:11  ()
-testdata/language-features/basic-values/where01.lc 4:12-4:14  ()
-testdata/language-features/basic-values/where01.lc 6:1-6:7  ()
-testdata/language-features/basic-values/where01.lc 6:10-6:11  ()
-testdata/language-features/basic-values/where01.lc 7:12-7:14  ()
-testdata/language-features/basic-values/where01.lc 8:12-8:14  ()
-testdata/language-features/basic-values/where01.lc 10:1-10:7  ()
-testdata/language-features/basic-values/where01.lc 10:10-10:11  ()
-testdata/language-features/basic-values/where01.lc 12:6-12:8  ()
-testdata/language-features/basic-values/where01.lc 13:6-13:8  ()
-testdata/language-features/basic-values/where01.lc 15:1-15:7  ()
-testdata/language-features/basic-values/where01.lc 15:10-15:11  ()
-testdata/language-features/basic-values/where01.lc 17:7-17:9  ()
-testdata/language-features/basic-values/where01.lc 18:7-18:9  ()
-testdata/language-features/basic-values/where01.lc 20:1-20:7  ()
-testdata/language-features/basic-values/where01.lc 20:10-20:12  ()
-testdata/language-features/basic-values/where01.lc 22:1-22:7  ()
-testdata/language-features/basic-values/where01.lc 22:10-22:12  ()
-testdata/language-features/basic-values/where01.lc 25:1-25:7  ()
-testdata/language-features/basic-values/where01.lc 25:10-25:12  ()
-testdata/language-features/basic-values/where01.lc 30:1-30:7  ()
-testdata/language-features/basic-values/where01.lc 30:10-30:11  ()
-testdata/language-features/basic-values/where01.lc 34:7-34:9  ()
-testdata/language-features/basic-values/where01.lc 35:7-35:9  ()
-testdata/language-features/basic-values/where01.lc 37:1-37:8  ()
-testdata/language-features/basic-values/where01.lc 37:11-37:12  ()
-testdata/language-features/basic-values/where01.lc 39:6-39:8  ()
-testdata/language-features/basic-values/where01.lc 40:6-40:8  ()
-testdata/language-features/basic-values/where01.lc 42:1-42:8  ()
-testdata/language-features/basic-values/where01.lc 42:11-42:12  ()
-testdata/language-features/basic-values/where01.lc 43:6-43:8  ()
-testdata/language-features/basic-values/where01.lc 44:6-44:8  ()
+testdata/language-features/basic-values/where01.lc 1:1-1:7
+    ()
+testdata/language-features/basic-values/where01.lc 1:10-1:12
+    ()
+testdata/language-features/basic-values/where01.lc 1:23-1:25
+    ()
+testdata/language-features/basic-values/where01.lc 3:1-3:7
+    ()
+testdata/language-features/basic-values/where01.lc 3:10-3:11
+    ()
+testdata/language-features/basic-values/where01.lc 4:12-4:14
+    ()
+testdata/language-features/basic-values/where01.lc 6:1-6:7
+    ()
+testdata/language-features/basic-values/where01.lc 6:10-6:11
+    ()
+testdata/language-features/basic-values/where01.lc 7:12-7:14
+    ()
+testdata/language-features/basic-values/where01.lc 8:12-8:14
+    ()
+testdata/language-features/basic-values/where01.lc 10:1-10:7
+    ()
+testdata/language-features/basic-values/where01.lc 10:10-10:11
+    ()
+testdata/language-features/basic-values/where01.lc 12:6-12:8
+    ()
+testdata/language-features/basic-values/where01.lc 13:6-13:8
+    ()
+testdata/language-features/basic-values/where01.lc 15:1-15:7
+    ()
+testdata/language-features/basic-values/where01.lc 15:10-15:11
+    ()
+testdata/language-features/basic-values/where01.lc 17:7-17:9
+    ()
+testdata/language-features/basic-values/where01.lc 18:7-18:9
+    ()
+testdata/language-features/basic-values/where01.lc 20:1-20:7
+    ()
+testdata/language-features/basic-values/where01.lc 20:10-20:12
+    ()
+testdata/language-features/basic-values/where01.lc 22:1-22:7
+    ()
+testdata/language-features/basic-values/where01.lc 22:10-22:12
+    ()
+testdata/language-features/basic-values/where01.lc 25:1-25:7
+    ()
+testdata/language-features/basic-values/where01.lc 25:10-25:12
+    ()
+testdata/language-features/basic-values/where01.lc 30:1-30:7
+    ()
+testdata/language-features/basic-values/where01.lc 30:10-30:11
+    ()
+testdata/language-features/basic-values/where01.lc 34:7-34:9
+    ()
+testdata/language-features/basic-values/where01.lc 35:7-35:9
+    ()
+testdata/language-features/basic-values/where01.lc 37:1-37:8
+    ()
+testdata/language-features/basic-values/where01.lc 37:11-37:12
+    ()
+testdata/language-features/basic-values/where01.lc 39:6-39:8
+    ()
+testdata/language-features/basic-values/where01.lc 40:6-40:8
+    ()
+testdata/language-features/basic-values/where01.lc 42:1-42:8
+    ()
+testdata/language-features/basic-values/where01.lc 42:11-42:12
+    ()
+testdata/language-features/basic-values/where01.lc 43:6-43:8
+    ()
+testdata/language-features/basic-values/where01.lc 44:6-44:8
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/where04.out b/testdata/language-features/basic-values/where04.out
index 36bc3969..f5e16747 100644
--- a/testdata/language-features/basic-values/where04.out
+++ b/testdata/language-features/basic-values/where04.out
@@ -4,19 +4,31 @@ value2 = _rhs \(a := _rhs \(b := _rhs HNil) -> b) -> a
 value3 = _rhs \(a := _rhs \(b := _rhs HNil) -> b) -> a
 main is not found
 ------------ trace
-value1 :: ()
-value2 :: ()
-value3 :: ()
+value1 :: ()
+value2 :: ()
+value3 :: ()
 ------------ tooltips
-testdata/language-features/basic-values/where04.lc 1:1-1:7  ()
-testdata/language-features/basic-values/where04.lc 1:18-1:19  ()
-testdata/language-features/basic-values/where04.lc 1:30-1:32  ()
-testdata/language-features/basic-values/where04.lc 1:36-1:37  ()
-testdata/language-features/basic-values/where04.lc 3:1-3:7  ()
-testdata/language-features/basic-values/where04.lc 3:18-3:19  ()
-testdata/language-features/basic-values/where04.lc 4:25-4:27  ()
-testdata/language-features/basic-values/where04.lc 5:13-5:14  ()
-testdata/language-features/basic-values/where04.lc 7:1-7:7  ()
-testdata/language-features/basic-values/where04.lc 7:18-7:19  ()
-testdata/language-features/basic-values/where04.lc 9:19-9:21  ()
-testdata/language-features/basic-values/where04.lc 10:13-10:14  ()
+testdata/language-features/basic-values/where04.lc 1:1-1:7
+    ()
+testdata/language-features/basic-values/where04.lc 1:18-1:19
+    ()
+testdata/language-features/basic-values/where04.lc 1:30-1:32
+    ()
+testdata/language-features/basic-values/where04.lc 1:36-1:37
+    ()
+testdata/language-features/basic-values/where04.lc 3:1-3:7
+    ()
+testdata/language-features/basic-values/where04.lc 3:18-3:19
+    ()
+testdata/language-features/basic-values/where04.lc 4:25-4:27
+    ()
+testdata/language-features/basic-values/where04.lc 5:13-5:14
+    ()
+testdata/language-features/basic-values/where04.lc 7:1-7:7
+    ()
+testdata/language-features/basic-values/where04.lc 7:18-7:19
+    ()
+testdata/language-features/basic-values/where04.lc 9:19-9:21
+    ()
+testdata/language-features/basic-values/where04.lc 10:13-10:14
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/where05.out b/testdata/language-features/basic-values/where05.out
index ee42956d..a16b9c91 100644
--- a/testdata/language-features/basic-values/where05.out
+++ b/testdata/language-features/basic-values/where05.out
@@ -33,36 +33,64 @@ value4
       (fromInt 1)
 main is not found
 ------------ trace
-value1 :: forall a . (Eq a, Num a) => ()
-value2 :: forall a . (Eq a, Num a) => ()
-value3 :: forall a . (Eq a, Num a) => ()
-value4 :: forall a . (Eq a, Num a) => ()
+value1 :: forall a . (Eq a, Num a) => ()
+value2 :: forall a . (Eq a, Num a) => ()
+value3 :: forall a . (Eq a, Num a) => ()
+value4 :: forall a . (Eq a, Num a) => ()
 ------------ tooltips
-testdata/language-features/basic-values/where05.lc 1:1-1:7  forall a . (Eq a, Num a) => ()
-testdata/language-features/basic-values/where05.lc 1:10-3:10  ()
-testdata/language-features/basic-values/where05.lc 1:15-1:16  _b
-testdata/language-features/basic-values/where05.lc 2:8-2:9  ()
-testdata/language-features/basic-values/where05.lc 2:8-3:10  Bool -> ()
-testdata/language-features/basic-values/where05.lc 2:20-2:22  ()
-testdata/language-features/basic-values/where05.lc 3:8-3:10  ()
-testdata/language-features/basic-values/where05.lc 5:1-5:7  forall a . (Eq a, Num a) => ()
-testdata/language-features/basic-values/where05.lc 5:10-8:10  ()
-testdata/language-features/basic-values/where05.lc 5:15-5:16  _b
-testdata/language-features/basic-values/where05.lc 6:8-6:9  ()
-testdata/language-features/basic-values/where05.lc 6:8-8:10  Bool -> ()
-testdata/language-features/basic-values/where05.lc 7:14-7:16  ()
-testdata/language-features/basic-values/where05.lc 8:8-8:10  ()
-testdata/language-features/basic-values/where05.lc 10:1-10:7  forall a . (Eq a, Num a) => ()
-testdata/language-features/basic-values/where05.lc 10:10-14:10  ()
-testdata/language-features/basic-values/where05.lc 10:15-10:16  _b
-testdata/language-features/basic-values/where05.lc 11:8-11:9  ()
-testdata/language-features/basic-values/where05.lc 11:8-14:10  Bool -> ()
-testdata/language-features/basic-values/where05.lc 13:8-13:10  ()
-testdata/language-features/basic-values/where05.lc 14:8-14:10  ()
-testdata/language-features/basic-values/where05.lc 16:1-16:7  forall a . (Eq a, Num a) => ()
-testdata/language-features/basic-values/where05.lc 16:10-18:10  ()
-testdata/language-features/basic-values/where05.lc 16:15-16:16  _b
-testdata/language-features/basic-values/where05.lc 17:8-17:9  ()
-testdata/language-features/basic-values/where05.lc 17:8-18:10  Bool -> ()
-testdata/language-features/basic-values/where05.lc 18:8-18:10  ()
-testdata/language-features/basic-values/where05.lc 21:6-21:8  ()
+testdata/language-features/basic-values/where05.lc 1:1-1:7
+    forall a . (Eq a, Num a) => ()
+testdata/language-features/basic-values/where05.lc 1:10-3:10
+    ()
+testdata/language-features/basic-values/where05.lc 1:15-1:16
+    _b
+testdata/language-features/basic-values/where05.lc 2:8-2:9
+    ()
+testdata/language-features/basic-values/where05.lc 2:8-3:10
+    Bool -> ()
+testdata/language-features/basic-values/where05.lc 2:20-2:22
+    ()
+testdata/language-features/basic-values/where05.lc 3:8-3:10
+    ()
+testdata/language-features/basic-values/where05.lc 5:1-5:7
+    forall a . (Eq a, Num a) => ()
+testdata/language-features/basic-values/where05.lc 5:10-8:10
+    ()
+testdata/language-features/basic-values/where05.lc 5:15-5:16
+    _b
+testdata/language-features/basic-values/where05.lc 6:8-6:9
+    ()
+testdata/language-features/basic-values/where05.lc 6:8-8:10
+    Bool -> ()
+testdata/language-features/basic-values/where05.lc 7:14-7:16
+    ()
+testdata/language-features/basic-values/where05.lc 8:8-8:10
+    ()
+testdata/language-features/basic-values/where05.lc 10:1-10:7
+    forall a . (Eq a, Num a) => ()
+testdata/language-features/basic-values/where05.lc 10:10-14:10
+    ()
+testdata/language-features/basic-values/where05.lc 10:15-10:16
+    _b
+testdata/language-features/basic-values/where05.lc 11:8-11:9
+    ()
+testdata/language-features/basic-values/where05.lc 11:8-14:10
+    Bool -> ()
+testdata/language-features/basic-values/where05.lc 13:8-13:10
+    ()
+testdata/language-features/basic-values/where05.lc 14:8-14:10
+    ()
+testdata/language-features/basic-values/where05.lc 16:1-16:7
+    forall a . (Eq a, Num a) => ()
+testdata/language-features/basic-values/where05.lc 16:10-18:10
+    ()
+testdata/language-features/basic-values/where05.lc 16:15-16:16
+    _b
+testdata/language-features/basic-values/where05.lc 17:8-17:9
+    ()
+testdata/language-features/basic-values/where05.lc 17:8-18:10
+    Bool -> ()
+testdata/language-features/basic-values/where05.lc 18:8-18:10
+    ()
+testdata/language-features/basic-values/where05.lc 21:6-21:8
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/basic-values/wildcard01.out b/testdata/language-features/basic-values/wildcard01.out
index 86b6cae7..61b6a8c4 100644
--- a/testdata/language-features/basic-values/wildcard01.out
+++ b/testdata/language-features/basic-values/wildcard01.out
@@ -2,7 +2,9 @@
 funUnit = \_ -> _rhs HNil
 main is not found
 ------------ trace
-funUnit :: forall a . a -> ()
+funUnit :: forall a . a -> ()
 ------------ tooltips
-testdata/language-features/basic-values/wildcard01.lc 1:1-1:8  forall a . a -> ()
-testdata/language-features/basic-values/wildcard01.lc 1:13-1:15  ()
+testdata/language-features/basic-values/wildcard01.lc 1:1-1:8
+    forall a . a -> ()
+testdata/language-features/basic-values/wildcard01.lc 1:13-1:15
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard01.out b/testdata/language-features/guard/guard01.out
index 6fde06b1..2024e439 100644
--- a/testdata/language-features/guard/guard01.out
+++ b/testdata/language-features/guard/guard01.out
@@ -2,9 +2,13 @@
 value = 'BoolCase \_ -> _ :: _ (_rhs undefined) (_rhs HNil) True
 main is not found
 ------------ trace
-value :: ()
+value :: ()
 ------------ tooltips
-testdata/language-features/guard/guard01.lc 1:1-1:6  ()
-testdata/language-features/guard/guard01.lc 1:9-1:13  Bool
-testdata/language-features/guard/guard01.lc 1:9-1:18  ()
-testdata/language-features/guard/guard01.lc 1:16-1:18  ()
+testdata/language-features/guard/guard01.lc 1:1-1:6
+    ()
+testdata/language-features/guard/guard01.lc 1:9-1:13
+    Bool
+testdata/language-features/guard/guard01.lc 1:9-1:18
+    ()
+testdata/language-features/guard/guard01.lc 1:16-1:18
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard02.reject.out b/testdata/language-features/guard/guard02.reject.out
index cd5b17c1..c46ac690 100644
--- a/testdata/language-features/guard/guard02.reject.out
+++ b/testdata/language-features/guard/guard02.reject.out
@@ -16,7 +16,11 @@ in testdata/language-features/guard/guard02.reject.lc:2:12:
   | True = ()
            ^^
 ------------ tooltips
-testdata/language-features/guard/guard02.reject.lc 2:12-2:14  ()
-testdata/language-features/guard/guard02.reject.lc 3:5-3:10  Bool
-testdata/language-features/guard/guard02.reject.lc 3:5-3:15  String
-testdata/language-features/guard/guard02.reject.lc 3:13-3:15  String
+testdata/language-features/guard/guard02.reject.lc 2:12-2:14
+    ()
+testdata/language-features/guard/guard02.reject.lc 3:5-3:10
+    Bool
+testdata/language-features/guard/guard02.reject.lc 3:5-3:15
+    String
+testdata/language-features/guard/guard02.reject.lc 3:13-3:15
+    String
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard03.out b/testdata/language-features/guard/guard03.out
index 7b176d9b..f6d6fde2 100644
--- a/testdata/language-features/guard/guard03.out
+++ b/testdata/language-features/guard/guard03.out
@@ -7,13 +7,21 @@ value
     True
 main is not found
 ------------ trace
-value :: String
+value :: String
 ------------ tooltips
-testdata/language-features/guard/guard03.lc 1:1-1:6  String
-testdata/language-features/guard/guard03.lc 2:5-2:9  Bool
-testdata/language-features/guard/guard03.lc 2:5-3:20  String
-testdata/language-features/guard/guard03.lc 2:12-2:18  String
-testdata/language-features/guard/guard03.lc 2:12-3:20  Bool -> String
-testdata/language-features/guard/guard03.lc 3:5-3:10  Bool
-testdata/language-features/guard/guard03.lc 3:5-3:20  String
-testdata/language-features/guard/guard03.lc 3:13-3:20  String
+testdata/language-features/guard/guard03.lc 1:1-1:6
+    String
+testdata/language-features/guard/guard03.lc 2:5-2:9
+    Bool
+testdata/language-features/guard/guard03.lc 2:5-3:20
+    String
+testdata/language-features/guard/guard03.lc 2:12-2:18
+    String
+testdata/language-features/guard/guard03.lc 2:12-3:20
+    Bool -> String
+testdata/language-features/guard/guard03.lc 3:5-3:10
+    Bool
+testdata/language-features/guard/guard03.lc 3:5-3:20
+    String
+testdata/language-features/guard/guard03.lc 3:13-3:20
+    String
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard04.out b/testdata/language-features/guard/guard04.out
index 54ca2fb7..71c66618 100644
--- a/testdata/language-features/guard/guard04.out
+++ b/testdata/language-features/guard/guard04.out
@@ -2,11 +2,17 @@
 value = 'BoolCase \_ -> _ :: _ (_rhs "False") (_rhs "True") True
 main is not found
 ------------ trace
-value :: String
+value :: String
 ------------ tooltips
-testdata/language-features/guard/guard04.lc 1:1-1:6  String
-testdata/language-features/guard/guard04.lc 2:5-2:9  Bool
-testdata/language-features/guard/guard04.lc 2:5-3:24  String
-testdata/language-features/guard/guard04.lc 2:12-2:18  String
-testdata/language-features/guard/guard04.lc 2:12-3:24  Bool -> String
-testdata/language-features/guard/guard04.lc 3:17-3:24  String
+testdata/language-features/guard/guard04.lc 1:1-1:6
+    String
+testdata/language-features/guard/guard04.lc 2:5-2:9
+    Bool
+testdata/language-features/guard/guard04.lc 2:5-3:24
+    String
+testdata/language-features/guard/guard04.lc 2:12-2:18
+    String
+testdata/language-features/guard/guard04.lc 2:12-3:24
+    Bool -> String
+testdata/language-features/guard/guard04.lc 3:17-3:24
+    String
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard05.reject.out b/testdata/language-features/guard/guard05.reject.out
index 23bf1739..fa30af80 100644
--- a/testdata/language-features/guard/guard05.reject.out
+++ b/testdata/language-features/guard/guard05.reject.out
@@ -16,5 +16,7 @@ in testdata/language-features/guard/guard05.reject.lc:1:9:
 value | () = "wrong"
         ^^
 ------------ tooltips
-testdata/language-features/guard/guard05.reject.lc 1:9-1:11  ()
-testdata/language-features/guard/guard05.reject.lc 1:14-1:21  String
+testdata/language-features/guard/guard05.reject.lc 1:9-1:11
+    ()
+testdata/language-features/guard/guard05.reject.lc 1:14-1:21
+    String
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard06.out b/testdata/language-features/guard/guard06.out
index 9e4d40a5..a62258cc 100644
--- a/testdata/language-features/guard/guard06.out
+++ b/testdata/language-features/guard/guard06.out
@@ -2,7 +2,9 @@
 value = _rhs HNil
 main is not found
 ------------ trace
-value :: ()
+value :: ()
 ------------ tooltips
-testdata/language-features/guard/guard06.lc 1:1-1:6  ()
-testdata/language-features/guard/guard06.lc 1:21-1:23  ()
+testdata/language-features/guard/guard06.lc 1:1-1:6
+    ()
+testdata/language-features/guard/guard06.lc 1:21-1:23
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard07.out b/testdata/language-features/guard/guard07.out
index 461efa43..f138742f 100644
--- a/testdata/language-features/guard/guard07.out
+++ b/testdata/language-features/guard/guard07.out
@@ -7,13 +7,21 @@ value
     True
 main is not found
 ------------ trace
-value :: String
+value :: String
 ------------ tooltips
-testdata/language-features/guard/guard07.lc 1:1-1:6  String
-testdata/language-features/guard/guard07.lc 1:7-1:11  Bool
-testdata/language-features/guard/guard07.lc 1:7-2:20  String
-testdata/language-features/guard/guard07.lc 1:12-1:18  String
-testdata/language-features/guard/guard07.lc 1:12-2:20  Bool -> String
-testdata/language-features/guard/guard07.lc 2:7-2:12  Bool
-testdata/language-features/guard/guard07.lc 2:7-2:20  String
-testdata/language-features/guard/guard07.lc 2:13-2:20  String
+testdata/language-features/guard/guard07.lc 1:1-1:6
+    String
+testdata/language-features/guard/guard07.lc 1:7-1:11
+    Bool
+testdata/language-features/guard/guard07.lc 1:7-2:20
+    String
+testdata/language-features/guard/guard07.lc 1:12-1:18
+    String
+testdata/language-features/guard/guard07.lc 1:12-2:20
+    Bool -> String
+testdata/language-features/guard/guard07.lc 2:7-2:12
+    Bool
+testdata/language-features/guard/guard07.lc 2:7-2:20
+    String
+testdata/language-features/guard/guard07.lc 2:13-2:20
+    String
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard08.out b/testdata/language-features/guard/guard08.out
index 4f273b1d..c963ddf3 100644
--- a/testdata/language-features/guard/guard08.out
+++ b/testdata/language-features/guard/guard08.out
@@ -7,13 +7,21 @@ value
     True
 main is not found
 ------------ trace
-value :: String
+value :: String
 ------------ tooltips
-testdata/language-features/guard/guard08.lc 1:1-1:6  String
-testdata/language-features/guard/guard08.lc 1:7-1:11  Bool
-testdata/language-features/guard/guard08.lc 1:7-1:32  String
-testdata/language-features/guard/guard08.lc 1:12-1:18  String
-testdata/language-features/guard/guard08.lc 1:12-1:32  Bool -> String
-testdata/language-features/guard/guard08.lc 1:19-1:24  Bool
-testdata/language-features/guard/guard08.lc 1:19-1:32  String
-testdata/language-features/guard/guard08.lc 1:25-1:32  String
+testdata/language-features/guard/guard08.lc 1:1-1:6
+    String
+testdata/language-features/guard/guard08.lc 1:7-1:11
+    Bool
+testdata/language-features/guard/guard08.lc 1:7-1:32
+    String
+testdata/language-features/guard/guard08.lc 1:12-1:18
+    String
+testdata/language-features/guard/guard08.lc 1:12-1:32
+    Bool -> String
+testdata/language-features/guard/guard08.lc 1:19-1:24
+    Bool
+testdata/language-features/guard/guard08.lc 1:19-1:32
+    String
+testdata/language-features/guard/guard08.lc 1:25-1:32
+    String
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard09.out b/testdata/language-features/guard/guard09.out
index f7fe0f27..4519075e 100644
--- a/testdata/language-features/guard/guard09.out
+++ b/testdata/language-features/guard/guard09.out
@@ -7,13 +7,21 @@ value
     True
 main is not found
 ------------ trace
-value :: String
+value :: String
 ------------ tooltips
-testdata/language-features/guard/guard09.lc 1:1-1:6  String
-testdata/language-features/guard/guard09.lc 1:7-1:11  Bool
-testdata/language-features/guard/guard09.lc 1:7-2:16  String
-testdata/language-features/guard/guard09.lc 1:12-1:18  String
-testdata/language-features/guard/guard09.lc 1:12-2:16  Bool -> String
-testdata/language-features/guard/guard09.lc 2:3-2:8  Bool
-testdata/language-features/guard/guard09.lc 2:3-2:16  String
-testdata/language-features/guard/guard09.lc 2:9-2:16  String
+testdata/language-features/guard/guard09.lc 1:1-1:6
+    String
+testdata/language-features/guard/guard09.lc 1:7-1:11
+    Bool
+testdata/language-features/guard/guard09.lc 1:7-2:16
+    String
+testdata/language-features/guard/guard09.lc 1:12-1:18
+    String
+testdata/language-features/guard/guard09.lc 1:12-2:16
+    Bool -> String
+testdata/language-features/guard/guard09.lc 2:3-2:8
+    Bool
+testdata/language-features/guard/guard09.lc 2:3-2:16
+    String
+testdata/language-features/guard/guard09.lc 2:9-2:16
+    String
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard11.out b/testdata/language-features/guard/guard11.out
index ab4e408f..de87d5ea 100644
--- a/testdata/language-features/guard/guard11.out
+++ b/testdata/language-features/guard/guard11.out
@@ -2,11 +2,17 @@
 fun = \(a :: _) -> 'BoolCase \_ -> _ :: _ (_rhs "False") (_rhs "True") a
 main is not found
 ------------ trace
-fun :: Bool -> String
+fun :: Bool -> String
 ------------ tooltips
-testdata/language-features/guard/guard11.lc 1:1-1:4  Bool -> String
-testdata/language-features/guard/guard11.lc 2:5-2:6  _b
-testdata/language-features/guard/guard11.lc 2:5-3:24  String
-testdata/language-features/guard/guard11.lc 2:9-2:15  String
-testdata/language-features/guard/guard11.lc 2:9-3:24  Bool -> String
-testdata/language-features/guard/guard11.lc 3:17-3:24  String
+testdata/language-features/guard/guard11.lc 1:1-1:4
+    Bool -> String
+testdata/language-features/guard/guard11.lc 2:5-2:6
+    _b
+testdata/language-features/guard/guard11.lc 2:5-3:24
+    String
+testdata/language-features/guard/guard11.lc 2:9-2:15
+    String
+testdata/language-features/guard/guard11.lc 2:9-3:24
+    Bool -> String
+testdata/language-features/guard/guard11.lc 3:17-3:24
+    String
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard12.reject.out b/testdata/language-features/guard/guard12.reject.out
index f1f024d7..7ac38fa8 100644
--- a/testdata/language-features/guard/guard12.reject.out
+++ b/testdata/language-features/guard/guard12.reject.out
@@ -16,5 +16,7 @@ in testdata/language-features/guard/guard12.reject.lc:1:13:
 fun x | x = () | otherwise = 'a'
             ^^
 ------------ tooltips
-testdata/language-features/guard/guard12.reject.lc 1:13-1:15  ()
-testdata/language-features/guard/guard12.reject.lc 1:30-1:33  Char
+testdata/language-features/guard/guard12.reject.lc 1:13-1:15
+    ()
+testdata/language-features/guard/guard12.reject.lc 1:30-1:33
+    Char
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard13.out b/testdata/language-features/guard/guard13.out
index a39476bd..47d31f9a 100644
--- a/testdata/language-features/guard/guard13.out
+++ b/testdata/language-features/guard/guard13.out
@@ -2,11 +2,17 @@
 fun = \(a :: _) -> 'BoolCase \_ -> _ :: _ (_rhs HNil) (_rhs HNil) a
 main is not found
 ------------ trace
-fun :: Bool -> ()
+fun :: Bool -> ()
 ------------ tooltips
-testdata/language-features/guard/guard13.lc 1:1-1:4  Bool -> ()
-testdata/language-features/guard/guard13.lc 1:7-1:8  _b
-testdata/language-features/guard/guard13.lc 1:7-1:24  ()
-testdata/language-features/guard/guard13.lc 1:9-1:11  ()
-testdata/language-features/guard/guard13.lc 1:9-1:24  Bool -> ()
-testdata/language-features/guard/guard13.lc 1:22-1:24  ()
+testdata/language-features/guard/guard13.lc 1:1-1:4
+    Bool -> ()
+testdata/language-features/guard/guard13.lc 1:7-1:8
+    _b
+testdata/language-features/guard/guard13.lc 1:7-1:24
+    ()
+testdata/language-features/guard/guard13.lc 1:9-1:11
+    ()
+testdata/language-features/guard/guard13.lc 1:9-1:24
+    Bool -> ()
+testdata/language-features/guard/guard13.lc 1:22-1:24
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard14.out b/testdata/language-features/guard/guard14.out
index 67a9c499..901fe596 100644
--- a/testdata/language-features/guard/guard14.out
+++ b/testdata/language-features/guard/guard14.out
@@ -2,12 +2,19 @@
 value = _rhs \(a := 'BoolCase \_ -> _ :: _ (_rhs HNil) (_rhs HNil) True) -> HNil
 main is not found
 ------------ trace
-value :: ()
+value :: ()
 ------------ tooltips
-testdata/language-features/guard/guard14.lc 1:1-1:6  ()
-testdata/language-features/guard/guard14.lc 1:17-1:21  Bool
-testdata/language-features/guard/guard14.lc 1:17-2:31  ()
-testdata/language-features/guard/guard14.lc 1:24-1:26  ()
-testdata/language-features/guard/guard14.lc 1:24-2:31  Bool -> ()
-testdata/language-features/guard/guard14.lc 2:29-2:31  ()
-testdata/language-features/guard/guard14.lc 3:12-3:14  ()
+testdata/language-features/guard/guard14.lc 1:1-1:6
+    ()
+testdata/language-features/guard/guard14.lc 1:17-1:21
+    Bool
+testdata/language-features/guard/guard14.lc 1:17-2:31
+    ()
+testdata/language-features/guard/guard14.lc 1:24-1:26
+    ()
+testdata/language-features/guard/guard14.lc 1:24-2:31
+    Bool -> ()
+testdata/language-features/guard/guard14.lc 2:29-2:31
+    ()
+testdata/language-features/guard/guard14.lc 3:12-3:14
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard15.out b/testdata/language-features/guard/guard15.out
index 4293221c..5938370b 100644
--- a/testdata/language-features/guard/guard15.out
+++ b/testdata/language-features/guard/guard15.out
@@ -2,12 +2,19 @@
 value = _rhs \(a := 'BoolCase \_ -> _ :: _ (_rhs HNil) (_rhs HNil) True) -> HNil
 main is not found
 ------------ trace
-value :: ()
+value :: ()
 ------------ tooltips
-testdata/language-features/guard/guard15.lc 1:1-1:6  ()
-testdata/language-features/guard/guard15.lc 1:9-1:11  ()
-testdata/language-features/guard/guard15.lc 2:13-2:17  Bool
-testdata/language-features/guard/guard15.lc 2:13-3:27  ()
-testdata/language-features/guard/guard15.lc 2:20-2:22  ()
-testdata/language-features/guard/guard15.lc 2:20-3:27  Bool -> ()
-testdata/language-features/guard/guard15.lc 3:25-3:27  ()
+testdata/language-features/guard/guard15.lc 1:1-1:6
+    ()
+testdata/language-features/guard/guard15.lc 1:9-1:11
+    ()
+testdata/language-features/guard/guard15.lc 2:13-2:17
+    Bool
+testdata/language-features/guard/guard15.lc 2:13-3:27
+    ()
+testdata/language-features/guard/guard15.lc 2:20-2:22
+    ()
+testdata/language-features/guard/guard15.lc 2:20-3:27
+    Bool -> ()
+testdata/language-features/guard/guard15.lc 3:25-3:27
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/guard/guard16.out b/testdata/language-features/guard/guard16.out
index 9886821b..f90d684f 100644
--- a/testdata/language-features/guard/guard16.out
+++ b/testdata/language-features/guard/guard16.out
@@ -9,13 +9,21 @@ value
       (fromInt 1))
 main is not found
 ------------ trace
-value :: forall a . (Eq a, Num a) => ()
+value :: forall a . (Eq a, Num a) => ()
 ------------ tooltips
-testdata/language-features/guard/guard16.lc 1:1-1:6  forall a . (Eq a, Num a) => ()
-testdata/language-features/guard/guard16.lc 1:9-3:10  ()
-testdata/language-features/guard/guard16.lc 1:14-1:15  _b
-testdata/language-features/guard/guard16.lc 2:7-2:11  Bool
-testdata/language-features/guard/guard16.lc 2:7-3:10  ()
-testdata/language-features/guard/guard16.lc 2:15-2:17  ()
-testdata/language-features/guard/guard16.lc 2:15-3:10  Bool -> ()
-testdata/language-features/guard/guard16.lc 3:8-3:10  ()
+testdata/language-features/guard/guard16.lc 1:1-1:6
+    forall a . (Eq a, Num a) => ()
+testdata/language-features/guard/guard16.lc 1:9-3:10
+    ()
+testdata/language-features/guard/guard16.lc 1:14-1:15
+    _b
+testdata/language-features/guard/guard16.lc 2:7-2:11
+    Bool
+testdata/language-features/guard/guard16.lc 2:7-3:10
+    ()
+testdata/language-features/guard/guard16.lc 2:15-2:17
+    ()
+testdata/language-features/guard/guard16.lc 2:15-3:10
+    Bool -> ()
+testdata/language-features/guard/guard16.lc 3:8-3:10
+    () | ()
\ No newline at end of file
diff --git a/testdata/language-features/module/Hello01.out b/testdata/language-features/module/Hello01.out
index d7ab37a3..aee194f1 100644
--- a/testdata/language-features/module/Hello01.out
+++ b/testdata/language-features/module/Hello01.out
@@ -3,10 +3,14 @@ hello = _rhs "hello"
 world = _rhs "world"
 main is not found
 ------------ trace
-hello :: String
-world :: String
+hello :: String
+world :: String
 ------------ tooltips
-testdata/language-features/module/Hello01.lc 3:1-3:6  String
-testdata/language-features/module/Hello01.lc 3:9-3:16  String
-testdata/language-features/module/Hello01.lc 4:1-4:6  String
-testdata/language-features/module/Hello01.lc 4:9-4:16  String
+testdata/language-features/module/Hello01.lc 3:1-3:6
+    String
+testdata/language-features/module/Hello01.lc 3:9-3:16
+    String
+testdata/language-features/module/Hello01.lc 4:1-4:6
+    String
+testdata/language-features/module/Hello01.lc 4:9-4:16
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/Hello02.out b/testdata/language-features/module/Hello02.out
index 40a09950..9d582484 100644
--- a/testdata/language-features/module/Hello02.out
+++ b/testdata/language-features/module/Hello02.out
@@ -3,10 +3,14 @@ hello = _rhs "hello"
 world = _rhs "world"
 main is not found
 ------------ trace
-hello :: String
-world :: String
+hello :: String
+world :: String
 ------------ tooltips
-testdata/language-features/module/Hello02.lc 3:1-3:6  String
-testdata/language-features/module/Hello02.lc 3:9-3:16  String
-testdata/language-features/module/Hello02.lc 4:1-4:6  String
-testdata/language-features/module/Hello02.lc 4:9-4:16  String
+testdata/language-features/module/Hello02.lc 3:1-3:6
+    String
+testdata/language-features/module/Hello02.lc 3:9-3:16
+    String
+testdata/language-features/module/Hello02.lc 4:1-4:6
+    String
+testdata/language-features/module/Hello02.lc 4:9-4:16
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/Hello03.out b/testdata/language-features/module/Hello03.out
index f926b872..98956c8a 100644
--- a/testdata/language-features/module/Hello03.out
+++ b/testdata/language-features/module/Hello03.out
@@ -3,10 +3,14 @@ greeting = _rhs 'G'
 value = _rhs 12.2
 main is not found
 ------------ trace
-greeting :: Char
-value :: Float
+greeting :: Char
+value :: Float
 ------------ tooltips
-testdata/language-features/module/Hello03.lc 7:1-7:9  Char
-testdata/language-features/module/Hello03.lc 7:12-7:15  Char
-testdata/language-features/module/Hello03.lc 9:1-9:6  Float
-testdata/language-features/module/Hello03.lc 9:9-9:13  Float
+testdata/language-features/module/Hello03.lc 7:1-7:9
+    Char
+testdata/language-features/module/Hello03.lc 7:12-7:15
+    Char
+testdata/language-features/module/Hello03.lc 9:1-9:6
+    Float
+testdata/language-features/module/Hello03.lc 9:9-9:13
+    Float
\ No newline at end of file
diff --git a/testdata/language-features/module/ModulePackage/SubModule01.out b/testdata/language-features/module/ModulePackage/SubModule01.out
index 88780f22..44457c17 100644
--- a/testdata/language-features/module/ModulePackage/SubModule01.out
+++ b/testdata/language-features/module/ModulePackage/SubModule01.out
@@ -2,7 +2,9 @@
 hello = _rhs "Hello"
 main is not found
 ------------ trace
-hello :: String
+hello :: String
 ------------ tooltips
-testdata/language-features/module/ModulePackage/SubModule01.lc 3:1-3:6  String
-testdata/language-features/module/ModulePackage/SubModule01.lc 3:9-3:16  String
+testdata/language-features/module/ModulePackage/SubModule01.lc 3:1-3:6
+    String
+testdata/language-features/module/ModulePackage/SubModule01.lc 3:9-3:16
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/Moduledef06.out b/testdata/language-features/module/Moduledef06.out
index 72cb3a01..95f989ee 100644
--- a/testdata/language-features/module/Moduledef06.out
+++ b/testdata/language-features/module/Moduledef06.out
@@ -2,7 +2,9 @@
 hello = _rhs "hello"
 main is not found
 ------------ trace
-hello :: String
+hello :: String
 ------------ tooltips
-testdata/language-features/module/Moduledef06.lc 3:1-3:6  String
-testdata/language-features/module/Moduledef06.lc 3:9-3:16  String
+testdata/language-features/module/Moduledef06.lc 3:1-3:6
+    String
+testdata/language-features/module/Moduledef06.lc 3:9-3:16
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/Moduledef07.out b/testdata/language-features/module/Moduledef07.out
index ddd44c2e..0dafaaa8 100644
--- a/testdata/language-features/module/Moduledef07.out
+++ b/testdata/language-features/module/Moduledef07.out
@@ -2,7 +2,9 @@
 hello = _rhs "hello"
 main is not found
 ------------ trace
-hello :: String
+hello :: String
 ------------ tooltips
-testdata/language-features/module/Moduledef07.lc 5:1-5:6  String
-testdata/language-features/module/Moduledef07.lc 5:9-5:16  String
+testdata/language-features/module/Moduledef07.lc 5:1-5:6
+    String
+testdata/language-features/module/Moduledef07.lc 5:9-5:16
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/Moduledef08.out b/testdata/language-features/module/Moduledef08.out
index 8c446393..d7add14b 100644
--- a/testdata/language-features/module/Moduledef08.out
+++ b/testdata/language-features/module/Moduledef08.out
@@ -2,7 +2,9 @@
 hello = _rhs "hello"
 main is not found
 ------------ trace
-hello :: String
+hello :: String
 ------------ tooltips
-testdata/language-features/module/Moduledef08.lc 5:1-5:6  String
-testdata/language-features/module/Moduledef08.lc 5:9-5:16  String
+testdata/language-features/module/Moduledef08.lc 5:1-5:6
+    String
+testdata/language-features/module/Moduledef08.lc 5:9-5:16
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/Moduledef09.out b/testdata/language-features/module/Moduledef09.out
index 6a8ec166..f90be0b2 100644
--- a/testdata/language-features/module/Moduledef09.out
+++ b/testdata/language-features/module/Moduledef09.out
@@ -3,10 +3,14 @@ hello = _rhs "hello"
 world = _rhs "world"
 main is not found
 ------------ trace
-hello :: String
-world :: String
+hello :: String
+world :: String
 ------------ tooltips
-testdata/language-features/module/Moduledef09.lc 5:1-5:6  String
-testdata/language-features/module/Moduledef09.lc 5:9-5:16  String
-testdata/language-features/module/Moduledef09.lc 6:1-6:6  String
-testdata/language-features/module/Moduledef09.lc 6:9-6:16  String
+testdata/language-features/module/Moduledef09.lc 5:1-5:6
+    String
+testdata/language-features/module/Moduledef09.lc 5:9-5:16
+    String
+testdata/language-features/module/Moduledef09.lc 6:1-6:6
+    String
+testdata/language-features/module/Moduledef09.lc 6:9-6:16
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/Moduledef10.out b/testdata/language-features/module/Moduledef10.out
index 2cec647d..2928a534 100644
--- a/testdata/language-features/module/Moduledef10.out
+++ b/testdata/language-features/module/Moduledef10.out
@@ -4,13 +4,19 @@ world = _rhs "world"
 value = _rhs HNil
 main is not found
 ------------ trace
-hello :: String
-world :: String
-value :: ()
+hello :: String
+world :: String
+value :: ()
 ------------ tooltips
-testdata/language-features/module/Moduledef10.lc 6:1-6:6  String
-testdata/language-features/module/Moduledef10.lc 6:9-6:16  String
-testdata/language-features/module/Moduledef10.lc 7:1-7:6  String
-testdata/language-features/module/Moduledef10.lc 7:9-7:16  String
-testdata/language-features/module/Moduledef10.lc 9:1-9:6  ()
-testdata/language-features/module/Moduledef10.lc 9:9-9:11  ()
+testdata/language-features/module/Moduledef10.lc 6:1-6:6
+    String
+testdata/language-features/module/Moduledef10.lc 6:9-6:16
+    String
+testdata/language-features/module/Moduledef10.lc 7:1-7:6
+    String
+testdata/language-features/module/Moduledef10.lc 7:9-7:16
+    String
+testdata/language-features/module/Moduledef10.lc 9:1-9:6
+    ()
+testdata/language-features/module/Moduledef10.lc 9:9-9:11
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/module/Moduledef13.out b/testdata/language-features/module/Moduledef13.out
index 08922d6a..7b6fb91d 100644
--- a/testdata/language-features/module/Moduledef13.out
+++ b/testdata/language-features/module/Moduledef13.out
@@ -2,7 +2,9 @@
 hello = _rhs "hello"
 main is not found
 ------------ trace
-hello :: String
+hello :: String
 ------------ tooltips
-testdata/language-features/module/Moduledef13.lc 3:1-3:6  String
-testdata/language-features/module/Moduledef13.lc 3:9-3:16  String
+testdata/language-features/module/Moduledef13.lc 3:1-3:6
+    String
+testdata/language-features/module/Moduledef13.lc 3:9-3:16
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/TypeSyn01Mod.out b/testdata/language-features/module/TypeSyn01Mod.out
index 61a3438b..0c1a7083 100644
--- a/testdata/language-features/module/TypeSyn01Mod.out
+++ b/testdata/language-features/module/TypeSyn01Mod.out
@@ -2,7 +2,9 @@
 'MyUnit = _rhs ('HList Nil)
 main is not found
 ------------ trace
-'MyUnit :: Type
+'MyUnit :: Type
 ------------ tooltips
-testdata/language-features/module/TypeSyn01Mod.lc 2:6-2:12  Type
-testdata/language-features/module/TypeSyn01Mod.lc 2:15-2:17  Type
+testdata/language-features/module/TypeSyn01Mod.lc 2:6-2:12
+    Type
+testdata/language-features/module/TypeSyn01Mod.lc 2:15-2:17
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/module/import01.out b/testdata/language-features/module/import01.out
index 92e24184..0c9e505e 100644
--- a/testdata/language-features/module/import01.out
+++ b/testdata/language-features/module/import01.out
@@ -2,7 +2,9 @@
 x = _rhs hello
 main is not found
 ------------ trace
-x :: String
+x :: String
 ------------ tooltips
-testdata/language-features/module/import01.lc 3:1-3:2  String
-testdata/language-features/module/import01.lc 3:5-3:10  String
+testdata/language-features/module/import01.lc 3:1-3:2
+    String
+testdata/language-features/module/import01.lc 3:5-3:10
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/import04.reject.out b/testdata/language-features/module/import04.reject.out
index da33fb8b..a04a3790 100644
--- a/testdata/language-features/module/import04.reject.out
+++ b/testdata/language-features/module/import04.reject.out
@@ -5,7 +5,7 @@ and at testdata/language-features/module/Hello01.lc:3:1:
 hello = "hello"
 ^^^^^
 ------------ trace
-hello :: String
+hello :: String
 !already defined hello at testdata/language-features/module/import04.reject.lc:4:1:
 hello = "hello"
 ^^^^^
@@ -13,5 +13,7 @@ and at testdata/language-features/module/Hello01.lc:3:1:
 hello = "hello"
 ^^^^^
 ------------ tooltips
-testdata/language-features/module/import04.reject.lc 4:1-4:6  String
-testdata/language-features/module/import04.reject.lc 4:9-4:16  String
+testdata/language-features/module/import04.reject.lc 4:1-4:6
+    String
+testdata/language-features/module/import04.reject.lc 4:9-4:16
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/import05.out b/testdata/language-features/module/import05.out
index 1074387f..96f021c2 100644
--- a/testdata/language-features/module/import05.out
+++ b/testdata/language-features/module/import05.out
@@ -2,8 +2,11 @@
 x = _rhs hello :: String
 main is not found
 ------------ trace
-x :: String
+x :: String
 ------------ tooltips
-testdata/language-features/module/import05.lc 3:6-3:12  Type
-testdata/language-features/module/import05.lc 4:1-4:2  String
-testdata/language-features/module/import05.lc 4:5-4:10  String
+testdata/language-features/module/import05.lc 3:6-3:12
+    Type
+testdata/language-features/module/import05.lc 4:1-4:2
+    String
+testdata/language-features/module/import05.lc 4:5-4:10
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/import06.out b/testdata/language-features/module/import06.out
index 7709e076..a8852987 100644
--- a/testdata/language-features/module/import06.out
+++ b/testdata/language-features/module/import06.out
@@ -3,10 +3,14 @@ hello = _rhs HNil
 x = _rhs world
 main is not found
 ------------ trace
-hello :: ()
-x :: String
+hello :: ()
+x :: String
 ------------ tooltips
-testdata/language-features/module/import06.lc 3:1-3:6  ()
-testdata/language-features/module/import06.lc 3:9-3:11  ()
-testdata/language-features/module/import06.lc 4:1-4:2  String
-testdata/language-features/module/import06.lc 4:5-4:10  String
+testdata/language-features/module/import06.lc 3:1-3:6
+    ()
+testdata/language-features/module/import06.lc 3:9-3:11
+    ()
+testdata/language-features/module/import06.lc 4:1-4:2
+    String
+testdata/language-features/module/import06.lc 4:5-4:10
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/import07.out b/testdata/language-features/module/import07.out
index d4246086..c9285662 100644
--- a/testdata/language-features/module/import07.out
+++ b/testdata/language-features/module/import07.out
@@ -3,10 +3,14 @@ hello = _rhs HNil
 x = _rhs world
 main is not found
 ------------ trace
-hello :: ()
-x :: String
+hello :: ()
+x :: String
 ------------ tooltips
-testdata/language-features/module/import07.lc 3:1-3:6  ()
-testdata/language-features/module/import07.lc 3:9-3:11  ()
-testdata/language-features/module/import07.lc 4:1-4:2  String
-testdata/language-features/module/import07.lc 4:5-4:10  String
+testdata/language-features/module/import07.lc 3:1-3:6
+    ()
+testdata/language-features/module/import07.lc 3:9-3:11
+    ()
+testdata/language-features/module/import07.lc 4:1-4:2
+    String
+testdata/language-features/module/import07.lc 4:5-4:10
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/import08.out b/testdata/language-features/module/import08.out
index 75c34115..24006b18 100644
--- a/testdata/language-features/module/import08.out
+++ b/testdata/language-features/module/import08.out
@@ -5,19 +5,30 @@ h = _rhs hello :: String
 w = _rhs world :: String
 main is not found
 ------------ trace
-value :: ()
-g :: Char
-h :: String
-w :: String
+value :: ()
+g :: Char
+h :: String
+w :: String
 ------------ tooltips
-testdata/language-features/module/import08.lc 3:1-3:6  ()
-testdata/language-features/module/import08.lc 3:9-3:11  ()
-testdata/language-features/module/import08.lc 5:6-5:10  Type
-testdata/language-features/module/import08.lc 6:1-6:2  Char
-testdata/language-features/module/import08.lc 6:5-6:13  Char
-testdata/language-features/module/import08.lc 8:6-8:12  Type
-testdata/language-features/module/import08.lc 9:1-9:2  String
-testdata/language-features/module/import08.lc 9:5-9:10  String
-testdata/language-features/module/import08.lc 11:6-11:12  Type
-testdata/language-features/module/import08.lc 12:1-12:2  String
-testdata/language-features/module/import08.lc 12:5-12:10  String
+testdata/language-features/module/import08.lc 3:1-3:6
+    ()
+testdata/language-features/module/import08.lc 3:9-3:11
+    ()
+testdata/language-features/module/import08.lc 5:6-5:10
+    Type
+testdata/language-features/module/import08.lc 6:1-6:2
+    Char
+testdata/language-features/module/import08.lc 6:5-6:13
+    Char
+testdata/language-features/module/import08.lc 8:6-8:12
+    Type
+testdata/language-features/module/import08.lc 9:1-9:2
+    String
+testdata/language-features/module/import08.lc 9:5-9:10
+    String
+testdata/language-features/module/import08.lc 11:6-11:12
+    Type
+testdata/language-features/module/import08.lc 12:1-12:2
+    String
+testdata/language-features/module/import08.lc 12:5-12:10
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/import09.out b/testdata/language-features/module/import09.out
index c8edeca8..790fbf72 100644
--- a/testdata/language-features/module/import09.out
+++ b/testdata/language-features/module/import09.out
@@ -4,12 +4,19 @@ fun
     :: forall (b :: _) . b -> MyUnit -> MyUnit
 main is not found
 ------------ trace
-fun :: forall a . a -> () -> ()
+fun :: forall a . a -> () -> ()
 ------------ tooltips
-testdata/language-features/module/import09.lc 3:8-3:9  _b
-testdata/language-features/module/import09.lc 3:8-3:29  Type
-testdata/language-features/module/import09.lc 3:13-3:19  Type
-testdata/language-features/module/import09.lc 3:13-3:29  Type
-testdata/language-features/module/import09.lc 3:23-3:29  Type
-testdata/language-features/module/import09.lc 4:1-4:4  forall a . a -> () -> ()
-testdata/language-features/module/import09.lc 4:12-4:14  () | () -> () | _a -> () -> ()
+testdata/language-features/module/import09.lc 3:8-3:9
+    _b
+testdata/language-features/module/import09.lc 3:8-3:29
+    Type
+testdata/language-features/module/import09.lc 3:13-3:19
+    Type
+testdata/language-features/module/import09.lc 3:13-3:29
+    Type
+testdata/language-features/module/import09.lc 3:23-3:29
+    Type | Type
+testdata/language-features/module/import09.lc 4:1-4:4
+    forall a . a -> () -> ()
+testdata/language-features/module/import09.lc 4:12-4:14
+    () | ()
\ No newline at end of file
diff --git a/testdata/language-features/module/import10.reject.out b/testdata/language-features/module/import10.reject.out
index 5a61239c..32e5619b 100644
--- a/testdata/language-features/module/import10.reject.out
+++ b/testdata/language-features/module/import10.reject.out
@@ -5,7 +5,7 @@ and at testdata/language-features/module/TypeSyn01Mod.lc:2:6:
 type MyUnit = ()
      ^^^^^^
 ------------ trace
-'MyUnit :: Type
+'MyUnit :: Type
 !already defined 'MyUnit at testdata/language-features/module/import10.reject.lc:3:6:
 type MyUnit = ()
      ^^^^^^
@@ -13,5 +13,7 @@ and at testdata/language-features/module/TypeSyn01Mod.lc:2:6:
 type MyUnit = ()
      ^^^^^^
 ------------ tooltips
-testdata/language-features/module/import10.reject.lc 3:6-3:12  Type
-testdata/language-features/module/import10.reject.lc 3:15-3:17  Type
+testdata/language-features/module/import10.reject.lc 3:6-3:12
+    Type
+testdata/language-features/module/import10.reject.lc 3:15-3:17
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/module/import11.reject.out b/testdata/language-features/module/import11.reject.out
index f686f7e8..93bcee00 100644
--- a/testdata/language-features/module/import11.reject.out
+++ b/testdata/language-features/module/import11.reject.out
@@ -5,7 +5,7 @@ and at testdata/language-features/module/TypeSyn01Mod.lc:2:6:
 type MyUnit = ()
      ^^^^^^
 ------------ trace
-'MyUnit :: Type
+'MyUnit :: Type
 !already defined 'MyUnit at testdata/language-features/module/import11.reject.lc:3:6:
 type MyUnit = ()
      ^^^^^^
@@ -13,5 +13,7 @@ and at testdata/language-features/module/TypeSyn01Mod.lc:2:6:
 type MyUnit = ()
      ^^^^^^
 ------------ tooltips
-testdata/language-features/module/import11.reject.lc 3:6-3:12  Type
-testdata/language-features/module/import11.reject.lc 3:15-3:17  Type
+testdata/language-features/module/import11.reject.lc 3:6-3:12
+    Type
+testdata/language-features/module/import11.reject.lc 3:15-3:17
+    Type
\ No newline at end of file
diff --git a/testdata/language-features/module/import12.out b/testdata/language-features/module/import12.out
index da5cbbc0..32b7bdd8 100644
--- a/testdata/language-features/module/import12.out
+++ b/testdata/language-features/module/import12.out
@@ -2,7 +2,9 @@
 fun = _rhs hello
 main is not found
 ------------ trace
-fun :: String
+fun :: String
 ------------ tooltips
-testdata/language-features/module/import12.lc 4:1-4:4  String
-testdata/language-features/module/import12.lc 4:7-4:12  String
+testdata/language-features/module/import12.lc 4:1-4:4
+    String
+testdata/language-features/module/import12.lc 4:7-4:12
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/import13.out b/testdata/language-features/module/import13.out
index 509460bf..7167ad27 100644
--- a/testdata/language-features/module/import13.out
+++ b/testdata/language-features/module/import13.out
@@ -2,7 +2,9 @@
 fun = _rhs hello
 main is not found
 ------------ trace
-fun :: String
+fun :: String
 ------------ tooltips
-testdata/language-features/module/import13.lc 4:1-4:4  String
-testdata/language-features/module/import13.lc 4:7-4:12  String
+testdata/language-features/module/import13.lc 4:1-4:4
+    String
+testdata/language-features/module/import13.lc 4:7-4:12
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/import14.out b/testdata/language-features/module/import14.out
index 73df8f0a..19d18b88 100644
--- a/testdata/language-features/module/import14.out
+++ b/testdata/language-features/module/import14.out
@@ -2,7 +2,9 @@
 fun = _rhs hello
 main is not found
 ------------ trace
-fun :: String
+fun :: String
 ------------ tooltips
-testdata/language-features/module/import14.lc 4:1-4:4  String
-testdata/language-features/module/import14.lc 4:7-4:12  String
+testdata/language-features/module/import14.lc 4:1-4:4
+    String
+testdata/language-features/module/import14.lc 4:7-4:12
+    String
\ No newline at end of file
diff --git a/testdata/language-features/module/import15.out b/testdata/language-features/module/import15.out
index 92df1171..bb60b565 100644
--- a/testdata/language-features/module/import15.out
+++ b/testdata/language-features/module/import15.out
@@ -2,7 +2,9 @@
 fun = _rhs hello
 main is not found
 ------------ trace
-fun :: String
+fun :: String
 ------------ tooltips
-testdata/language-features/module/import15.lc 3:1-3:4  String
-testdata/language-features/module/import15.lc 3:7-3:12  String
+testdata/language-features/module/import15.lc 3:1-3:4
+    String
+testdata/language-features/module/import15.lc 3:7-3:12
+    String
\ No newline at end of file
diff --git a/testdata/language-features/pattern/pattern01.out b/testdata/language-features/pattern/pattern01.out
index f5b7944c..82bc15bb 100644
--- a/testdata/language-features/pattern/pattern01.out
+++ b/testdata/language-features/pattern/pattern01.out
@@ -6,26 +6,40 @@ 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
-fun2 :: String -> Char
-fun3 :: Char -> Char
-fun4 :: () -> Char
+fun1 :: forall a . (Eq a, Num a) => a -> Char
+fun2 :: String -> Char
+fun3 :: Char -> Char
+fun4 :: () -> Char
 ------------ tooltips
-testdata/language-features/pattern/pattern01.lc 1:1-1:5  forall a . (Eq a, Num a) => a -> Char
-testdata/language-features/pattern/pattern01.lc 1:10-1:13  Char
-testdata/language-features/pattern/pattern01.lc 1:10-2:13  Bool -> Char
-testdata/language-features/pattern/pattern01.lc 2:10-2:13  Char
-testdata/language-features/pattern/pattern01.lc 4:1-4:5  String -> Char
-testdata/language-features/pattern/pattern01.lc 4:12-4:15  Char
-testdata/language-features/pattern/pattern01.lc 4:12-5:13  Bool -> Char
-testdata/language-features/pattern/pattern01.lc 5:10-5:13  Char
-testdata/language-features/pattern/pattern01.lc 7:1-7:5  Char -> Char
-testdata/language-features/pattern/pattern01.lc 7:12-7:15  Char
-testdata/language-features/pattern/pattern01.lc 7:12-8:13  Bool -> Char
-testdata/language-features/pattern/pattern01.lc 8:10-8:13  Char
-testdata/language-features/pattern/pattern01.lc 10:1-10:5  () -> Char
-testdata/language-features/pattern/pattern01.lc 10:11-10:14  Char
+testdata/language-features/pattern/pattern01.lc 1:1-1:5
+    forall a . (Eq a, Num a) => a -> Char
+testdata/language-features/pattern/pattern01.lc 1:10-1:13
+    Char
+testdata/language-features/pattern/pattern01.lc 1:10-2:13
+    Bool -> Char
+testdata/language-features/pattern/pattern01.lc 2:10-2:13
+    Char
+testdata/language-features/pattern/pattern01.lc 4:1-4:5
+    String -> Char
+testdata/language-features/pattern/pattern01.lc 4:12-4:15
+    Char
+testdata/language-features/pattern/pattern01.lc 4:12-5:13
+    Bool -> Char
+testdata/language-features/pattern/pattern01.lc 5:10-5:13
+    Char
+testdata/language-features/pattern/pattern01.lc 7:1-7:5
+    Char -> Char
+testdata/language-features/pattern/pattern01.lc 7:12-7:15
+    Char
+testdata/language-features/pattern/pattern01.lc 7:12-8:13
+    Bool -> Char
+testdata/language-features/pattern/pattern01.lc 8:10-8:13
+    Char
+testdata/language-features/pattern/pattern01.lc 10:1-10:5
+    () -> Char
+testdata/language-features/pattern/pattern01.lc 10:11-10:14
+    Char
 ------------ warnings
 Source code is not reachable: testdata/language-features/pattern/pattern01.lc:11:10:
 fun4 _ = '_'
-         ^^^
+         ^^^
\ No newline at end of file
diff --git a/testdata/language-features/pattern/uncovered.out b/testdata/language-features/pattern/uncovered.out
index 79e060a1..eba2edde 100644
--- a/testdata/language-features/pattern/uncovered.out
+++ b/testdata/language-features/pattern/uncovered.out
@@ -15,15 +15,22 @@ f
     b
 main is not found
 ------------ trace
-f :: forall a . Num a => Bool -> Bool -> Bool -> a
+f :: forall a . Num a => Bool -> Bool -> Bool -> a
 ------------ tooltips
-testdata/language-features/pattern/uncovered.lc 4:1-4:2  forall a . Num a => Bool -> Bool -> Bool -> a
-testdata/language-features/pattern/uncovered.lc 4:18-4:19  _b
-testdata/language-features/pattern/uncovered.lc 4:18-5:19  Bool -> _c | _c
-testdata/language-features/pattern/uncovered.lc 4:18-6:19  Bool -> _c
-testdata/language-features/pattern/uncovered.lc 5:18-5:19  _b | _c
-testdata/language-features/pattern/uncovered.lc 5:18-6:19  Bool -> _c | _b
-testdata/language-features/pattern/uncovered.lc 6:18-6:19  _b
+testdata/language-features/pattern/uncovered.lc 4:1-4:2
+    forall a . Num a => Bool -> Bool -> Bool -> a
+testdata/language-features/pattern/uncovered.lc 4:18-4:19
+    _b
+testdata/language-features/pattern/uncovered.lc 4:18-5:19
+    Bool -> _c | _c
+testdata/language-features/pattern/uncovered.lc 4:18-6:19
+    Bool -> _c
+testdata/language-features/pattern/uncovered.lc 5:18-5:19
+    _b | _b | _b | _c
+testdata/language-features/pattern/uncovered.lc 5:18-6:19
+    Bool -> _c | _b
+testdata/language-features/pattern/uncovered.lc 6:18-6:19
+    _b
 ------------ warnings
 Uncovered pattern(s) at testdata/language-features/pattern/uncovered.lc:4:1:
 f _ True False = 0
@@ -31,4 +38,4 @@ f False _ True = 1
 f True False _ = 2
 Missing case(s):
   False False False 
-  True True True 
+  True True True 
\ No newline at end of file
diff --git a/testdata/language-features/pattern/unreachable.out b/testdata/language-features/pattern/unreachable.out
index f9e362fc..06c9ca43 100644
--- a/testdata/language-features/pattern/unreachable.out
+++ b/testdata/language-features/pattern/unreachable.out
@@ -2,11 +2,13 @@
 f = \_ -> _rhs "hello"
 main is not found
 ------------ trace
-f :: forall a . a -> String
+f :: forall a . a -> String
 ------------ tooltips
-testdata/language-features/pattern/unreachable.lc 4:1-4:2  forall a . a -> String
-testdata/language-features/pattern/unreachable.lc 4:7-4:14  String
+testdata/language-features/pattern/unreachable.lc 4:1-4:2
+    forall a . a -> String
+testdata/language-features/pattern/unreachable.lc 4:7-4:14
+    String
 ------------ warnings
 Source code is not reachable: testdata/language-features/pattern/unreachable.lc:5:7:
 f _ = "world"
-      ^^^^^^^
+      ^^^^^^^
\ No newline at end of file
diff --git a/testdata/language-features/recursion/simplerec01.out b/testdata/language-features/recursion/simplerec01.out
index b6bde121..f46727b7 100644
--- a/testdata/language-features/recursion/simplerec01.out
+++ b/testdata/language-features/recursion/simplerec01.out
@@ -7,10 +7,15 @@ fun
     (fromInt 0 == a)
 main is not found
 ------------ trace
-fun :: forall a . (Num a, Eq a, Num a) => a -> Char
+fun :: forall a . (Num a, Eq a, Num a) => a -> Char
 ------------ tooltips
-testdata/language-features/recursion/simplerec01.lc 1:1-1:4  forall a . (Num a, Eq a, Num a) => a -> Char
-testdata/language-features/recursion/simplerec01.lc 1:9-1:12  Char
-testdata/language-features/recursion/simplerec01.lc 1:9-2:14  Bool -> Char | _a -> _a
-testdata/language-features/recursion/simplerec01.lc 2:9-2:12  _e
-testdata/language-features/recursion/simplerec01.lc 2:13-2:14  _b
+testdata/language-features/recursion/simplerec01.lc 1:1-1:4
+    forall a . (Num a, Eq a, Num a) => a -> Char
+testdata/language-features/recursion/simplerec01.lc 1:9-1:12
+    Char
+testdata/language-features/recursion/simplerec01.lc 1:9-2:14
+    Bool -> Char
+testdata/language-features/recursion/simplerec01.lc 2:9-2:12
+    _e
+testdata/language-features/recursion/simplerec01.lc 2:13-2:14
+    _b
\ No newline at end of file
diff --git a/testdata/language-features/recursion/simplerec02.out b/testdata/language-features/recursion/simplerec02.out
index 74b2298a..becc3390 100644
--- a/testdata/language-features/recursion/simplerec02.out
+++ b/testdata/language-features/recursion/simplerec02.out
@@ -10,11 +10,17 @@ value
           (fromInt 0 == c)) -> HNil
 main is not found
 ------------ trace
-value :: ()
+value :: ()
 ------------ tooltips
-testdata/language-features/recursion/simplerec02.lc 1:1-1:6  ()
-testdata/language-features/recursion/simplerec02.lc 1:21-1:24  Char
-testdata/language-features/recursion/simplerec02.lc 1:21-2:26  Bool -> Char | _a -> _a
-testdata/language-features/recursion/simplerec02.lc 2:21-2:24  _e
-testdata/language-features/recursion/simplerec02.lc 2:25-2:26  _b
-testdata/language-features/recursion/simplerec02.lc 3:12-3:14  ()
+testdata/language-features/recursion/simplerec02.lc 1:1-1:6
+    ()
+testdata/language-features/recursion/simplerec02.lc 1:21-1:24
+    Char
+testdata/language-features/recursion/simplerec02.lc 1:21-2:26
+    Bool -> Char
+testdata/language-features/recursion/simplerec02.lc 2:21-2:24
+    _e
+testdata/language-features/recursion/simplerec02.lc 2:25-2:26
+    _b
+testdata/language-features/recursion/simplerec02.lc 3:12-3:14
+    ()
\ No newline at end of file
diff --git a/testdata/language-features/recursion/simplerec03.out b/testdata/language-features/recursion/simplerec03.out
index 62da7f5a..51fac6c9 100644
--- a/testdata/language-features/recursion/simplerec03.out
+++ b/testdata/language-features/recursion/simplerec03.out
@@ -10,11 +10,17 @@ value
           (fromInt 0 == c)) -> HNil
 main is not found
 ------------ trace
-value :: ()
+value :: ()
 ------------ tooltips
-testdata/language-features/recursion/simplerec03.lc 1:1-1:6  ()
-testdata/language-features/recursion/simplerec03.lc 1:9-1:11  ()
-testdata/language-features/recursion/simplerec03.lc 3:13-3:16  Char
-testdata/language-features/recursion/simplerec03.lc 3:13-4:18  Bool -> Char | _a -> _a
-testdata/language-features/recursion/simplerec03.lc 4:13-4:16  _e
-testdata/language-features/recursion/simplerec03.lc 4:17-4:18  _b
+testdata/language-features/recursion/simplerec03.lc 1:1-1:6
+    ()
+testdata/language-features/recursion/simplerec03.lc 1:9-1:11
+    ()
+testdata/language-features/recursion/simplerec03.lc 3:13-3:16
+    Char
+testdata/language-features/recursion/simplerec03.lc 3:13-4:18
+    Bool -> Char
+testdata/language-features/recursion/simplerec03.lc 4:13-4:16
+    _e
+testdata/language-features/recursion/simplerec03.lc 4:17-4:18
+    _b
\ No newline at end of file
diff --git a/testdata/language-features/section/section01.out b/testdata/language-features/section/section01.out
index 86a78f54..0c51e14e 100644
--- a/testdata/language-features/section/section01.out
+++ b/testdata/language-features/section/section01.out
@@ -4,17 +4,27 @@ value1 = \(a :: _) -> _rhs \(b :: _) -> a !@! b
 value2 = \(a :: _) -> _rhs \(b :: _) -> b !@! a
 main is not found
 ------------ trace
-!@! :: forall a b . a -> b -> ()
-value1 :: forall a b . a -> b -> ()
-value2 :: forall a b . a -> b -> ()
+!@! :: forall a b . a -> b -> ()
+value1 :: forall a b . a -> b -> ()
+value2 :: forall a b . a -> b -> ()
 ------------ tooltips
-testdata/language-features/section/section01.lc 1:3-1:6  forall a b . a -> b -> ()
-testdata/language-features/section/section01.lc 1:11-1:13  ()
-testdata/language-features/section/section01.lc 3:1-3:7  forall a b . a -> b -> ()
-testdata/language-features/section/section01.lc 3:13-3:14  _f
-testdata/language-features/section/section01.lc 3:13-3:18  _a -> ()
-testdata/language-features/section/section01.lc 3:15-3:18  forall a b . a -> b -> ()
-testdata/language-features/section/section01.lc 5:1-5:7  forall a b . a -> b -> ()
-testdata/language-features/section/section01.lc 5:13-5:16  forall a b . a -> b -> ()
-testdata/language-features/section/section01.lc 5:13-5:18  ()
-testdata/language-features/section/section01.lc 5:17-5:18  _e
+testdata/language-features/section/section01.lc 1:3-1:6
+    forall a b . a -> b -> ()
+testdata/language-features/section/section01.lc 1:11-1:13
+    ()
+testdata/language-features/section/section01.lc 3:1-3:7
+    forall a b . a -> b -> ()
+testdata/language-features/section/section01.lc 3:13-3:14
+    _f
+testdata/language-features/section/section01.lc 3:13-3:18
+    _a -> ()
+testdata/language-features/section/section01.lc 3:15-3:18
+    forall a b . a -> b -> ()
+testdata/language-features/section/section01.lc 5:1-5:7
+    forall a b . a -> b -> ()
+testdata/language-features/section/section01.lc 5:13-5:16
+    forall a b . a -> b -> ()
+testdata/language-features/section/section01.lc 5:13-5:18
+    ()
+testdata/language-features/section/section01.lc 5:17-5:18
+    _e
\ No newline at end of file
diff --git a/testdata/let.out b/testdata/let.out
index 9ab1367e..1789d86f 100644
--- a/testdata/let.out
+++ b/testdata/let.out
@@ -2,10 +2,15 @@
 f = \(a :: _) -> _rhs \(b := _rhs (id a)) -> b
 main is not found
 ------------ trace
-f :: forall a . a -> a
+f :: forall a . a -> a
 ------------ tooltips
-testdata/let.lc 2:1-2:2  forall a . a -> a
-testdata/let.lc 2:15-2:17  forall a . a -> a
-testdata/let.lc 2:15-2:19  _b
-testdata/let.lc 2:18-2:19  _c
-testdata/let.lc 2:23-2:24  _c
+testdata/let.lc 2:1-2:2
+    forall a . a -> a
+testdata/let.lc 2:15-2:17
+    forall a . a -> a
+testdata/let.lc 2:15-2:19
+    _b
+testdata/let.lc 2:18-2:19
+    _c
+testdata/let.lc 2:23-2:24
+    _c
\ No newline at end of file
diff --git a/testdata/letIndent.out b/testdata/letIndent.out
index b353ddfa..c6cf7e43 100644
--- a/testdata/letIndent.out
+++ b/testdata/letIndent.out
@@ -2,9 +2,13 @@
 fun = \(a :: _) -> _rhs \(b := _rhs (fromInt 1)) (c := _rhs (fromInt 2)) -> a
 main is not found
 ------------ trace
-fun :: forall a . a -> a
+fun :: forall a . a -> a
 ------------ tooltips
-testdata/letIndent.lc 2:1-2:4  forall a . a -> a
-testdata/letIndent.lc 3:10-3:11  _b
-testdata/letIndent.lc 4:10-4:11  _b
-testdata/letIndent.lc 5:7-5:8  _d
+testdata/letIndent.lc 2:1-2:4
+    forall a . a -> a
+testdata/letIndent.lc 3:10-3:11
+    _b
+testdata/letIndent.lc 4:10-4:11
+    _b
+testdata/letIndent.lc 5:7-5:8
+    _d
\ No newline at end of file
diff --git a/testdata/performance/Graphics.out b/testdata/performance/Graphics.out
index 369baecb..ca223618 100644
--- a/testdata/performance/Graphics.out
+++ b/testdata/performance/Graphics.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 viewProj;
@@ -37,15 +36,10 @@ Pipeline
               in vec4 vi2;
               smooth out vec4 vo1;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi2;
               }
               """
@@ -53,17 +47,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 = vec4 ((1.0) - ((vo1).x)
-                            ,(1.0) - ((vo1).y)
-                            ,(1.0) - ((vo1).z)
-                            ,1.0);
+                  f0 = vec4 ((1.0) - ((vo1).x),(1.0) - ((vo1).y),(1.0) - ((vo1).z),1.0);
               }
               """
           }
@@ -80,8 +70,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;
@@ -90,27 +79,18 @@ Pipeline
               in vec4 vi2;
               smooth out vec4 vo1;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
-                  vo1 = vec4 ((vi2).x
-                             ,(vi2).y
-                             ,(vi2).z
-                             ,0.5);
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
+                  vo1 = vec4 ((vi2).x,(vi2).y,(vi2).z,0.5);
               }
               """
           , 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;
@@ -140,8 +120,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;
@@ -154,15 +133,10 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi4;
                   vo2 = vec4 (1.0,1.0,1.0,1.0);
               }
@@ -171,8 +145,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D LightMap;
@@ -180,8 +153,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (LightMap,vo1));
+                  f0 = (vo2) * (texture2D (LightMap,vo1));
               }
               """
           }
@@ -206,8 +178,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;
@@ -220,15 +191,10 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
                   vo2 = vec4 (1.0,1.0,1.0,1.0);
               }
@@ -237,8 +203,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3562558025;
@@ -246,8 +211,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3562558025,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3562558025,vo1));
               }
               """
           }
@@ -272,8 +236,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;
@@ -287,17 +250,11 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
-                  vo1 = (((vi3) + ((vec2 (0.0
-                                         ,1.0)) * (time))) + ((sin (vec2
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
+                  vo1 = (((vi3) + ((vec2 (0.0,1.0)) * (time))) + ((sin (vec2
                       ((6.283185307179586) * (((((vi1).x) + ((vi1).z)) * (9.765625e-4)) + ((0.0) + ((time) * (1.6))))
                       ,(6.283185307179586) * ((((vi1).y) * (9.765625e-4)) + ((0.0) + ((time) * (1.6))))))) * (0.25))) * (vec2
                       (4.0,4.0));
@@ -308,8 +265,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_47037129;
@@ -317,8 +273,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_47037129,vo1));
+                  f0 = (vo2) * (texture2D (Tex_47037129,vo1));
               }
               """
           }
@@ -343,8 +298,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;
@@ -357,15 +311,10 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
                   vo2 = vec4 (1.0,1.0,1.0,1.0);
               }
@@ -374,8 +323,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_1910997598;
@@ -383,8 +331,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_1910997598,vo1));
+                  f0 = (vo2) * (texture2D (Tex_1910997598,vo1));
               }
               """
           }
@@ -409,8 +356,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;
@@ -423,15 +369,10 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
                   vo2 = vec4 (1.0,1.0,1.0,1.0);
               }
@@ -440,8 +381,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_4077187607;
@@ -449,8 +389,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_4077187607,vo1));
+                  f0 = (vo2) * (texture2D (Tex_4077187607,vo1));
               }
               """
           }
@@ -476,8 +415,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;
@@ -491,17 +429,11 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
-                  vo1 = (((vi3) + ((vec2 (0.0
-                                         ,1.0)) * (time))) + ((sin (vec2
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
+                  vo1 = (((vi3) + ((vec2 (0.0,1.0)) * (time))) + ((sin (vec2
                       ((6.283185307179586) * (((((vi1).x) + ((vi1).z)) * (9.765625e-4)) + ((0.0) + ((time) * (5.6))))
                       ,(6.283185307179586) * ((((vi1).y) * (9.765625e-4)) + ((0.0) + ((time) * (5.6))))))) * (0.25))) * (vec2
                       (1.5,1.5));
@@ -512,8 +444,7 @@ Pipeline
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3416962274;
@@ -521,8 +452,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3416962274,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3416962274,vo1));
               }
               """
           }
@@ -547,8 +477,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -562,28 +491,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi4;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D LightMap;
@@ -591,8 +511,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (LightMap,vo1));
+                  f0 = (vo2) * (texture2D (LightMap,vo1));
               }
               """
           }
@@ -618,8 +537,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -633,28 +551,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_4288602201;
@@ -662,8 +571,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_4288602201,vo1));
+                  f0 = (vo2) * (texture2D (Tex_4288602201,vo1));
               }
               """
           }
@@ -689,8 +597,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -704,28 +611,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3202786139;
@@ -733,8 +631,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3202786139,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3202786139,vo1));
               }
               """
           }
@@ -760,8 +657,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -775,28 +671,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_4255130505;
@@ -804,8 +691,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_4255130505,vo1));
+                  f0 = (vo2) * (texture2D (Tex_4255130505,vo1));
               }
               """
           }
@@ -830,8 +716,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -845,28 +730,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_564811775;
@@ -874,8 +750,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_564811775,vo1));
+                  f0 = (vo2) * (texture2D (Tex_564811775,vo1));
               }
               """
           }
@@ -901,8 +776,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -916,28 +790,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2073154888;
@@ -945,8 +810,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2073154888,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2073154888,vo1));
               }
               """
           }
@@ -972,8 +836,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -987,28 +850,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2099456856;
@@ -1016,8 +870,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2099456856,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2099456856,vo1));
               }
               """
           }
@@ -1043,8 +896,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1058,28 +910,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_1581337759;
@@ -1087,8 +930,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_1581337759,vo1));
+                  f0 = (vo2) * (texture2D (Tex_1581337759,vo1));
               }
               """
           }
@@ -1114,8 +956,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1129,28 +970,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_1062467595;
@@ -1158,8 +990,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_1062467595,vo1));
+                  f0 = (vo2) * (texture2D (Tex_1062467595,vo1));
               }
               """
           }
@@ -1185,8 +1016,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1200,28 +1030,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2024854890;
@@ -1229,8 +1050,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2024854890,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2024854890,vo1));
               }
               """
           }
@@ -1256,8 +1076,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1271,28 +1090,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_1284708166;
@@ -1300,8 +1110,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_1284708166,vo1));
+                  f0 = (vo2) * (texture2D (Tex_1284708166,vo1));
               }
               """
           }
@@ -1327,8 +1136,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1342,28 +1150,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2432583247;
@@ -1371,8 +1170,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2432583247,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2432583247,vo1));
               }
               """
           }
@@ -1398,8 +1196,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1413,28 +1210,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_1002517541;
@@ -1442,8 +1230,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_1002517541,vo1));
+                  f0 = (vo2) * (texture2D (Tex_1002517541,vo1));
               }
               """
           }
@@ -1469,8 +1256,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1484,28 +1270,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2639119078;
@@ -1513,8 +1290,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2639119078,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2639119078,vo1));
               }
               """
           }
@@ -1540,8 +1316,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1555,28 +1330,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3479185666;
@@ -1584,8 +1350,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3479185666,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3479185666,vo1));
               }
               """
           }
@@ -1611,8 +1376,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1626,28 +1390,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3448884269;
@@ -1655,8 +1410,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3448884269,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3448884269,vo1));
               }
               """
           }
@@ -1682,8 +1436,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1697,28 +1450,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_1201212243;
@@ -1726,8 +1470,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_1201212243,vo1));
+                  f0 = (vo2) * (texture2D (Tex_1201212243,vo1));
               }
               """
           }
@@ -1753,8 +1496,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1768,28 +1510,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3389727963;
@@ -1797,8 +1530,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3389727963,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3389727963,vo1));
               }
               """
           }
@@ -1824,8 +1556,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1839,28 +1570,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3836020895;
@@ -1868,8 +1590,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3836020895,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3836020895,vo1));
               }
               """
           }
@@ -1894,8 +1615,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1909,28 +1629,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_209322640;
@@ -1938,8 +1649,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_209322640,vo1));
+                  f0 = (vo2) * (texture2D (Tex_209322640,vo1));
               }
               """
           }
@@ -1965,8 +1675,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -1980,28 +1689,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2893650486;
@@ -2009,8 +1709,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2893650486,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2893650486,vo1));
               }
               """
           }
@@ -2036,8 +1735,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2051,28 +1749,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3814342582;
@@ -2080,8 +1769,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3814342582,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3814342582,vo1));
               }
               """
           }
@@ -2107,8 +1795,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2122,28 +1809,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_4189195777;
@@ -2151,8 +1829,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_4189195777,vo1));
+                  f0 = (vo2) * (texture2D (Tex_4189195777,vo1));
               }
               """
           }
@@ -2178,8 +1855,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2193,28 +1869,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2239853403;
@@ -2222,8 +1889,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2239853403,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2239853403,vo1));
               }
               """
           }
@@ -2249,8 +1915,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2264,28 +1929,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2367525081;
@@ -2293,8 +1949,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2367525081,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2367525081,vo1));
               }
               """
           }
@@ -2320,8 +1975,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2335,28 +1989,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2523116863;
@@ -2364,8 +2009,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2523116863,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2523116863,vo1));
               }
               """
           }
@@ -2391,8 +2035,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2406,28 +2049,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2512757607;
@@ -2435,8 +2069,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2512757607,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2512757607,vo1));
               }
               """
           }
@@ -2462,8 +2095,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2477,28 +2109,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_4289279309;
@@ -2506,8 +2129,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_4289279309,vo1));
+                  f0 = (vo2) * (texture2D (Tex_4289279309,vo1));
               }
               """
           }
@@ -2533,8 +2155,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2548,28 +2169,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2525124732;
@@ -2577,8 +2189,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2525124732,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2525124732,vo1));
               }
               """
           }
@@ -2604,8 +2215,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2619,28 +2229,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3071107621;
@@ -2648,8 +2249,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3071107621,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3071107621,vo1));
               }
               """
           }
@@ -2675,8 +2275,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2690,28 +2289,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3921745736;
@@ -2719,8 +2309,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3921745736,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3921745736,vo1));
               }
               """
           }
@@ -2746,8 +2335,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2761,28 +2349,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3647563961;
@@ -2790,8 +2369,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3647563961,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3647563961,vo1));
               }
               """
           }
@@ -2817,8 +2395,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2832,28 +2409,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3593923076;
@@ -2861,8 +2429,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3593923076,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3593923076,vo1));
               }
               """
           }
@@ -2888,8 +2455,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2903,28 +2469,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_1435187472;
@@ -2932,8 +2489,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_1435187472,vo1));
+                  f0 = (vo2) * (texture2D (Tex_1435187472,vo1));
               }
               """
           }
@@ -2959,8 +2515,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -2974,28 +2529,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_1318715778;
@@ -3003,8 +2549,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_1318715778,vo1));
+                  f0 = (vo2) * (texture2D (Tex_1318715778,vo1));
               }
               """
           }
@@ -3029,8 +2574,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3044,28 +2588,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_442868841;
@@ -3073,8 +2608,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_442868841,vo1));
+                  f0 = (vo2) * (texture2D (Tex_442868841,vo1));
               }
               """
           }
@@ -3100,8 +2634,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3115,28 +2648,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2289735512;
@@ -3144,8 +2668,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2289735512,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2289735512,vo1));
               }
               """
           }
@@ -3171,8 +2694,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3186,28 +2708,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3939430064;
@@ -3215,8 +2728,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3939430064,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3939430064,vo1));
               }
               """
           }
@@ -3242,8 +2754,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3257,28 +2768,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3012001075;
@@ -3286,8 +2788,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3012001075,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3012001075,vo1));
               }
               """
           }
@@ -3313,8 +2814,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3328,28 +2828,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3768122504;
@@ -3357,8 +2848,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3768122504,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3768122504,vo1));
               }
               """
           }
@@ -3384,8 +2874,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3399,28 +2888,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2634868983;
@@ -3428,8 +2908,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2634868983,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2634868983,vo1));
               }
               """
           }
@@ -3455,8 +2934,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3470,28 +2948,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3269743316;
@@ -3499,8 +2968,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3269743316,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3269743316,vo1));
               }
               """
           }
@@ -3526,8 +2994,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3541,28 +3008,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3617993418;
@@ -3570,8 +3028,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3617993418,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3617993418,vo1));
               }
               """
           }
@@ -3597,8 +3054,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3612,28 +3068,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_1243894392;
@@ -3641,8 +3088,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_1243894392,vo1));
+                  f0 = (vo2) * (texture2D (Tex_1243894392,vo1));
               }
               """
           }
@@ -3668,8 +3114,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3683,28 +3128,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2966885788;
@@ -3712,8 +3148,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2966885788,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2966885788,vo1));
               }
               """
           }
@@ -3739,8 +3174,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3754,28 +3188,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_1250438154;
@@ -3783,8 +3208,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_1250438154,vo1));
+                  f0 = (vo2) * (texture2D (Tex_1250438154,vo1));
               }
               """
           }
@@ -3810,8 +3234,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3825,28 +3248,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_2490648334;
@@ -3854,8 +3268,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_2490648334,vo1));
+                  f0 = (vo2) * (texture2D (Tex_2490648334,vo1));
               }
               """
           }
@@ -3881,8 +3294,7 @@ Pipeline
           , vertexShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform float identityLight;
@@ -3896,28 +3308,19 @@ Pipeline
               smooth out vec2 vo1;
               smooth out vec4 vo2;
               vec4 snoc(vec3 z0,float z1) {
-                  return vec4 ((z0).x
-                              ,(z0).y
-                              ,(z0).z
-                              ,z1);
+                  return vec4 ((z0).x,(z0).y,(z0).z,z1);
               }
               void main() {
-                  gl_Position =
-                      (viewProj) * ((worldMat) * (snoc
-                      (vi1,1.0)));
+                  gl_Position = (viewProj) * ((worldMat) * (snoc (vi1,1.0)));
                   vo1 = vi3;
-                  vo2 = vec4 (identityLight
-                             ,identityLight
-                             ,identityLight
-                             ,1.0);
+                  vo2 = vec4 (identityLight,identityLight,identityLight,1.0);
               }
               """
           , geometryShader = Nothing
           , fragmentShader =
               """
               #version 330 core
-              vec4 texture2D(sampler2D s
-                            ,vec2 uv) {
+              vec4 texture2D(sampler2D s,vec2 uv) {
                   return texture(s,uv);
               }
               uniform sampler2D Tex_3694494180;
@@ -3925,8 +3328,7 @@ Pipeline
               smooth in vec4 vo2;
               out vec4 f0;
               void main() {
-                  f0 = (vo2) * (texture2D
-                      (Tex_3694494180,vo1));
+                  f0 = (vo2) * (texture2D (Tex_3694494180,vo1));
               }
               """
           }
diff --git a/testdata/performance/Material.out b/testdata/performance/Material.out
index 527ef2c3..f9a7e3c1 100644
--- a/testdata/performance/Material.out
+++ b/testdata/performance/Material.out
@@ -283,240 +283,240 @@ defaultCommonAttrs
     :: CommonAttrs
 main is not found
 ------------ trace
-identityLight :: Float
-'Entity :: Type
-Entity :: Vec 4 Float -> Vec 4 Float -> Vec 3 Float -> Vec 4 Float -> Entity
+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
-match'Entity :: forall (a :: Type -> Type) -> a Entity -> forall b -> a b -> a b
-eAmbientLight :: Entity -> VecS Float 4
-eDirectedLight :: Entity -> VecS Float 4
-eLightDir :: Entity -> VecS Float 3
-eShaderRGBA :: Entity -> VecS Float 4
-'WaveType :: Type
-WT_Sin :: WaveType
-WT_Triangle :: WaveType
-WT_Square :: WaveType
-WT_Sawtooth :: WaveType
-WT_InverseSawtooth :: WaveType
-WT_Noise :: WaveType
+  :: forall (a :: Entity -> Type)
+    -> (forall (b :: Vec 4 Float)
+          (c :: Vec 4 Float) (d :: Vec 3 Float) (e :: Vec 4 Float)
+        -> a ('Entity b c d e))
+      -> forall (f :: Entity) -> a f
+match'Entity :: forall (a :: Type -> Type) -> a Entity -> forall b -> a b -> a b
+eAmbientLight :: Entity -> VecS Float 4
+eDirectedLight :: Entity -> VecS Float 4
+eLightDir :: Entity -> VecS Float 3
+eShaderRGBA :: Entity -> VecS Float 4
+'WaveType :: Type
+WT_Sin :: WaveType
+WT_Triangle :: WaveType
+WT_Square :: WaveType
+WT_Sawtooth :: WaveType
+WT_InverseSawtooth :: WaveType
+WT_Noise :: WaveType
 '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
+  :: 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
+  :: 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 (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
-D_AutoSprite2 :: Deform
-D_Bulge :: Float -> Float -> Float -> Deform
-D_Move :: Vec 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
+        -> 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
+D_AutoSprite2 :: Deform
+D_Bulge :: Float -> Float -> Float -> Deform
+D_Move :: Vec 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
 '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
+  :: 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
+  :: forall (a :: CullType -> Type)
+    -> a 'CT_FrontSided
+      -> a 'CT_BackSided -> a 'CT_TwoSided -> forall (b :: CullType) -> a b
 match'CullType
-  :: forall (a :: Type -> Type) -> a CullType -> forall b -> a b -> a b
-'Blending' :: Type
-B_DstAlpha :: Blending'
-B_DstColor :: Blending'
-B_One :: Blending'
-B_OneMinusDstAlpha :: Blending'
-B_OneMinusDstColor :: Blending'
-B_OneMinusSrcAlpha :: Blending'
-B_OneMinusSrcColor :: Blending'
-B_SrcAlpha :: Blending'
-B_SrcAlphaSaturate :: Blending'
-B_SrcColor :: Blending'
-B_Zero :: Blending'
+  :: forall (a :: Type -> Type) -> a CullType -> forall b -> a b -> a b
+'Blending' :: Type
+B_DstAlpha :: Blending'
+B_DstColor :: Blending'
+B_One :: Blending'
+B_OneMinusDstAlpha :: Blending'
+B_OneMinusDstColor :: Blending'
+B_OneMinusSrcAlpha :: Blending'
+B_OneMinusSrcColor :: Blending'
+B_SrcAlpha :: Blending'
+B_SrcAlphaSaturate :: Blending'
+B_SrcColor :: Blending'
+B_Zero :: Blending'
 '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
+  :: forall (a :: Blending' -> Type)
+    -> a 'B_DstAlpha
+      -> a 'B_DstColor
+        -> a 'B_One
+          -> a 'B_OneMinusDstAlpha
+            -> a 'B_OneMinusDstColor
+              -> a 'B_OneMinusSrcAlpha
+                -> a 'B_OneMinusSrcColor
+                  -> a 'B_SrcAlpha
+                    -> a 'B_SrcAlphaSaturate
+                      -> a 'B_SrcColor -> a 'B_Zero -> forall (b :: Blending') -> a b
 match'Blending'
-  :: forall (a :: Type -> Type) -> a Blending' -> forall b -> a b -> a b
-'RGBGen :: Type
-RGB_Wave :: Wave -> RGBGen
-RGB_Const :: Float -> Float -> Float -> RGBGen
-RGB_Identity :: RGBGen
-RGB_IdentityLighting :: RGBGen
-RGB_Entity :: RGBGen
-RGB_OneMinusEntity :: RGBGen
-RGB_ExactVertex :: RGBGen
-RGB_Vertex :: RGBGen
-RGB_LightingDiffuse :: RGBGen
-RGB_OneMinusVertex :: RGBGen
-RGB_Undefined :: RGBGen
+  :: forall (a :: Type -> Type) -> a Blending' -> forall b -> a b -> a b
+'RGBGen :: Type
+RGB_Wave :: Wave -> RGBGen
+RGB_Const :: Float -> Float -> Float -> RGBGen
+RGB_Identity :: RGBGen
+RGB_IdentityLighting :: RGBGen
+RGB_Entity :: RGBGen
+RGB_OneMinusEntity :: RGBGen
+RGB_ExactVertex :: RGBGen
+RGB_Vertex :: RGBGen
+RGB_LightingDiffuse :: RGBGen
+RGB_OneMinusVertex :: RGBGen
+RGB_Undefined :: RGBGen
 '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
-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
+  :: 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
+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
 '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
+  :: 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
+  :: 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
-match'TCGen :: forall (a :: Type -> Type) -> a TCGen -> forall b -> a b -> a b
-'TCMod :: Type
-TM_EntityTranslate :: TCMod
-TM_Rotate :: Float -> TCMod
-TM_Scroll :: Float -> Float -> TCMod
-TM_Scale :: Float -> Float -> TCMod
-TM_Stretch :: Wave -> TCMod
-TM_Transform :: Float -> Float -> Float -> Float -> Float -> Float -> TCMod
-TM_Turb :: Float -> Float -> Float -> Float -> TCMod
+  :: 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
+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
 '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 (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))
+                  -> 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
-ST_ClampMap :: String -> StageTexture
-ST_AnimMap :: Float -> List String -> StageTexture
-ST_Lightmap :: StageTexture
-ST_WhiteImage :: StageTexture
+                    -> a ('TM_Turb n o p q))
+                  -> forall (r :: TCMod) -> a r
+match'TCMod :: forall (a :: Type -> Type) -> a TCMod -> forall b -> a b -> a b
+'StageTexture :: Type
+ST_Map :: String -> StageTexture
+ST_ClampMap :: String -> StageTexture
+ST_AnimMap :: Float -> 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: 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
+  :: forall (a :: Type -> Type) -> a DepthFunction -> forall b -> a b -> a b
+'StageAttrs :: Type
 StageAttrs
-  :: Maybe (Blending', Blending')
+  :: Maybe (Blending', Blending')
     -> RGBGen
       -> AlphaGen
         -> TCGen
           -> List TCMod
             -> StageTexture
-              -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+              -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
 'StageAttrsCase
-  :: forall (a :: StageAttrs -> Type)
+  :: forall (a :: StageAttrs -> Type)
     -> (forall (b :: Maybe (Blending', Blending'))
           (c :: RGBGen)
             (d :: AlphaGen)
@@ -525,34 +525,34 @@ StageAttrs
                   (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
+        -> 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
-saTCGen :: StageAttrs -> TCGen
-saTCMod :: StageAttrs -> List TCMod
-saTexture :: StageAttrs -> StageTexture
-saDepthWrite :: StageAttrs -> Bool
-saDepthFunc :: StageAttrs -> DepthFunction
-saAlphaFunc :: StageAttrs -> Maybe AlphaFunction
-saDepthMaskExplicit :: StageAttrs -> Bool
-saTextureUniform :: StageAttrs -> String
-defaultStageAttrs :: StageAttrs
-'CommonAttrs :: Type
+  :: forall (a :: Type -> Type) -> a StageAttrs -> forall b -> a b -> a b
+saBlend :: StageAttrs -> Maybe (Blending', Blending')
+saRGBGen :: StageAttrs -> RGBGen
+saAlphaGen :: StageAttrs -> AlphaGen
+saTCGen :: StageAttrs -> TCGen
+saTCMod :: StageAttrs -> List TCMod
+saTexture :: StageAttrs -> StageTexture
+saDepthWrite :: StageAttrs -> Bool
+saDepthFunc :: StageAttrs -> DepthFunction
+saAlphaFunc :: StageAttrs -> Maybe AlphaFunction
+saDepthMaskExplicit :: StageAttrs -> Bool
+saTextureUniform :: StageAttrs -> String
+defaultStageAttrs :: StageAttrs
+'CommonAttrs :: Type
 CommonAttrs
-  :: ()
+  :: ()
     -> ()
       -> Bool
         -> Float
           -> Bool
             -> Bool
               -> CullType
-                -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+                -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
 'CommonAttrsCase
-  :: forall (a :: CommonAttrs -> Type)
+  :: forall (a :: CommonAttrs -> Type)
     -> (forall (b :: ())
           (c :: ())
             (d :: Bool)
@@ -561,390 +561,737 @@ CommonAttrs
                   (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
+        -> a ('CommonAttrs b c d e f g h i j k l m))
+      -> forall (n :: CommonAttrs) -> a n
 match'CommonAttrs
-  :: forall (a :: Type -> Type) -> a CommonAttrs -> forall b -> a b -> a b
-caSkyParms :: CommonAttrs -> ()
-caFogParms :: CommonAttrs -> ()
-caPortal :: CommonAttrs -> Bool
-caSort :: CommonAttrs -> Float
-caEntityMergable :: CommonAttrs -> Bool
-caFogOnly :: CommonAttrs -> Bool
-caCull :: CommonAttrs -> CullType
-caDeformVertexes :: CommonAttrs -> List Deform
-caNoMipMaps :: CommonAttrs -> Bool
-caPolygonOffset :: CommonAttrs -> Bool
-caStages :: CommonAttrs -> List StageAttrs
-caIsSky :: CommonAttrs -> Bool
-defaultCommonAttrs :: CommonAttrs
+  :: forall (a :: Type -> Type) -> a CommonAttrs -> forall b -> a b -> a b
+caSkyParms :: CommonAttrs -> ()
+caFogParms :: CommonAttrs -> ()
+caPortal :: CommonAttrs -> Bool
+caSort :: CommonAttrs -> Float
+caEntityMergable :: CommonAttrs -> Bool
+caFogOnly :: CommonAttrs -> Bool
+caCull :: CommonAttrs -> CullType
+caDeformVertexes :: CommonAttrs -> List Deform
+caNoMipMaps :: CommonAttrs -> Bool
+caPolygonOffset :: CommonAttrs -> Bool
+caStages :: CommonAttrs -> List StageAttrs
+caIsSky :: CommonAttrs -> Bool
+defaultCommonAttrs :: CommonAttrs
 ------------ tooltips
-testdata/performance/Material.lc 7:18-7:23  Type
-testdata/performance/Material.lc 8:1-8:14  Float
-testdata/performance/Material.lc 8:17-8:18  _b
-testdata/performance/Material.lc 10:6-10:12  Type
-testdata/performance/Material.lc 10:6-11:13  Type
-testdata/performance/Material.lc 10:6-15:39  Type
-testdata/performance/Material.lc 11:7-11:13  Entity | Type | Vec 4 Float -> Vec 4 Float -> Vec 3 Float -> Vec 4 Float -> Entity
-testdata/performance/Material.lc 12:7-12:20  Entity -> VecS Float 4
-testdata/performance/Material.lc 12:28-12:31  Nat -> Type -> Type
-testdata/performance/Material.lc 12:28-12:33  Type -> Type
-testdata/performance/Material.lc 12:28-12:39  Type
-testdata/performance/Material.lc 12:32-12:33  _b
-testdata/performance/Material.lc 12:34-12:39  Type
-testdata/performance/Material.lc 13:7-13:21  Entity -> VecS Float 4
-testdata/performance/Material.lc 13:28-13:31  Nat -> Type -> Type
-testdata/performance/Material.lc 13:28-13:33  Type -> Type
-testdata/performance/Material.lc 13:28-13:39  Type
-testdata/performance/Material.lc 13:32-13:33  _b
-testdata/performance/Material.lc 13:34-13:39  Type
-testdata/performance/Material.lc 14:7-14:16  Entity -> VecS Float 3
-testdata/performance/Material.lc 14:28-14:31  Nat -> Type -> Type
-testdata/performance/Material.lc 14:28-14:33  Type -> Type
-testdata/performance/Material.lc 14:28-14:39  Type
-testdata/performance/Material.lc 14:32-14:33  _b
-testdata/performance/Material.lc 14:34-14:39  Type
-testdata/performance/Material.lc 15:7-15:18  Entity -> VecS Float 4
-testdata/performance/Material.lc 15:28-15:31  Nat -> Type -> Type
-testdata/performance/Material.lc 15:28-15:33  Type -> Type
-testdata/performance/Material.lc 15:28-15:39  Type
-testdata/performance/Material.lc 15:32-15:33  _b
-testdata/performance/Material.lc 15:34-15:39  Type
-testdata/performance/Material.lc 18:6-18:14  Type
-testdata/performance/Material.lc 18:6-24:15  Type
-testdata/performance/Material.lc 19:7-19:13  WaveType
-testdata/performance/Material.lc 20:7-20:18  WaveType
-testdata/performance/Material.lc 21:7-21:16  WaveType
-testdata/performance/Material.lc 22:7-22:18  WaveType
-testdata/performance/Material.lc 23:7-23:25  WaveType
-testdata/performance/Material.lc 24:7-24:15  WaveType
-testdata/performance/Material.lc 27:6-27:10  Type
-testdata/performance/Material.lc 27:6-27:17  Type
-testdata/performance/Material.lc 27:6-27:50  Type
-testdata/performance/Material.lc 27:13-27:17  Type | Wave | WaveType -> Float -> Float -> Float -> Float -> Wave
-testdata/performance/Material.lc 27:18-27:26  Type
-testdata/performance/Material.lc 27:27-27:32  Type
-testdata/performance/Material.lc 27:33-27:38  Type
-testdata/performance/Material.lc 27:39-27:44  Type
-testdata/performance/Material.lc 27:45-27:50  Type
-testdata/performance/Material.lc 29:6-29:12  Type
-testdata/performance/Material.lc 29:6-32:32  Type
-testdata/performance/Material.lc 29:6-33:32  Type
-testdata/performance/Material.lc 29:6-34:27  Type
-testdata/performance/Material.lc 29:6-44:13  Type
-testdata/performance/Material.lc 29:6-44:24  Type
-testdata/performance/Material.lc 30:7-30:19  Deform
-testdata/performance/Material.lc 31:7-31:20  Deform
-testdata/performance/Material.lc 32:7-32:14  Deform | Float -> Float -> Float -> Deform | Type
-testdata/performance/Material.lc 32:15-32:20  Type
-testdata/performance/Material.lc 32:21-32:26  Type
-testdata/performance/Material.lc 32:27-32:32  Type
-testdata/performance/Material.lc 33:7-33:13  Deform | Type | Vec 3 Float -> Wave -> Deform
-testdata/performance/Material.lc 33:15-33:18  Nat -> Type -> Type
-testdata/performance/Material.lc 33:15-33:20  Type -> Type
-testdata/performance/Material.lc 33:15-33:26  Type
-testdata/performance/Material.lc 33:19-33:20  _b
-testdata/performance/Material.lc 33:21-33:26  Type
-testdata/performance/Material.lc 33:28-33:32  Type
-testdata/performance/Material.lc 34:7-34:15  Deform | Float -> Float -> Deform | Type
-testdata/performance/Material.lc 34:16-34:21  Type
-testdata/performance/Material.lc 34:22-34:27  Type
-testdata/performance/Material.lc 35:7-35:25  Deform
-testdata/performance/Material.lc 36:7-36:14  Deform
-testdata/performance/Material.lc 37:7-37:14  Deform
-testdata/performance/Material.lc 38:7-38:14  Deform
-testdata/performance/Material.lc 39:7-39:14  Deform
-testdata/performance/Material.lc 40:7-40:14  Deform
-testdata/performance/Material.lc 41:7-41:14  Deform
-testdata/performance/Material.lc 42:7-42:14  Deform
-testdata/performance/Material.lc 43:7-43:14  Deform
-testdata/performance/Material.lc 44:7-44:13  Deform | Float -> Wave -> Deform | Type
-testdata/performance/Material.lc 44:14-44:19  Type
-testdata/performance/Material.lc 44:20-44:24  Type
-testdata/performance/Material.lc 47:6-47:14  Type
-testdata/performance/Material.lc 47:6-50:18  Type
-testdata/performance/Material.lc 48:7-48:20  CullType
-testdata/performance/Material.lc 49:7-49:19  CullType
-testdata/performance/Material.lc 50:7-50:18  CullType
-testdata/performance/Material.lc 53:6-53:15  Type
-testdata/performance/Material.lc 53:6-64:13  Type
-testdata/performance/Material.lc 54:7-54:17  Blending'
-testdata/performance/Material.lc 55:7-55:17  Blending'
-testdata/performance/Material.lc 56:7-56:12  Blending'
-testdata/performance/Material.lc 57:7-57:25  Blending'
-testdata/performance/Material.lc 58:7-58:25  Blending'
-testdata/performance/Material.lc 59:7-59:25  Blending'
-testdata/performance/Material.lc 60:7-60:25  Blending'
-testdata/performance/Material.lc 61:7-61:17  Blending'
-testdata/performance/Material.lc 62:7-62:25  Blending'
-testdata/performance/Material.lc 63:7-63:17  Blending'
-testdata/performance/Material.lc 64:7-64:13  Blending'
-testdata/performance/Material.lc 67:6-67:12  Type
-testdata/performance/Material.lc 67:6-69:34  Type
-testdata/performance/Material.lc 67:6-78:20  Type
-testdata/performance/Material.lc 68:7-68:15  RGBGen | Type | Wave -> RGBGen
-testdata/performance/Material.lc 68:16-68:20  Type
-testdata/performance/Material.lc 69:7-69:16  Float -> Float -> Float -> RGBGen | RGBGen | Type
-testdata/performance/Material.lc 69:17-69:22  Type
-testdata/performance/Material.lc 69:23-69:28  Type
-testdata/performance/Material.lc 69:29-69:34  Type
-testdata/performance/Material.lc 70:7-70:19  RGBGen
-testdata/performance/Material.lc 71:7-71:27  RGBGen
-testdata/performance/Material.lc 72:7-72:17  RGBGen
-testdata/performance/Material.lc 73:7-73:25  RGBGen
-testdata/performance/Material.lc 74:7-74:22  RGBGen
-testdata/performance/Material.lc 75:7-75:17  RGBGen
-testdata/performance/Material.lc 76:7-76:26  RGBGen
-testdata/performance/Material.lc 77:7-77:25  RGBGen
-testdata/performance/Material.lc 78:7-78:20  RGBGen
-testdata/performance/Material.lc 81:6-81:14  Type
-testdata/performance/Material.lc 81:6-90:23  Type
-testdata/performance/Material.lc 82:7-82:13  AlphaGen | Type | Wave -> AlphaGen
-testdata/performance/Material.lc 82:14-82:18  Type
-testdata/performance/Material.lc 83:7-83:14  AlphaGen | Float -> AlphaGen | Type
-testdata/performance/Material.lc 83:15-83:20  Type
-testdata/performance/Material.lc 84:7-84:15  AlphaGen
-testdata/performance/Material.lc 85:7-85:17  AlphaGen
-testdata/performance/Material.lc 86:7-86:15  AlphaGen
-testdata/performance/Material.lc 87:7-87:23  AlphaGen
-testdata/performance/Material.lc 88:7-88:15  AlphaGen
-testdata/performance/Material.lc 89:7-89:25  AlphaGen
-testdata/performance/Material.lc 90:7-90:23  AlphaGen
-testdata/performance/Material.lc 93:6-93:11  Type
-testdata/performance/Material.lc 93:6-97:44  Type
-testdata/performance/Material.lc 93:6-98:19  Type
-testdata/performance/Material.lc 94:7-94:14  TCGen
-testdata/performance/Material.lc 95:7-95:18  TCGen
-testdata/performance/Material.lc 96:7-96:21  TCGen
-testdata/performance/Material.lc 97:7-97:16  TCGen | Type | Vec 3 Float -> Vec 3 Float -> TCGen
-testdata/performance/Material.lc 97:18-97:21  Nat -> Type -> Type
-testdata/performance/Material.lc 97:18-97:23  Type -> Type
-testdata/performance/Material.lc 97:18-97:29  Type
-testdata/performance/Material.lc 97:22-97:23  _b
-testdata/performance/Material.lc 97:24-97:29  Type
-testdata/performance/Material.lc 97:32-97:35  Nat -> Type -> Type
-testdata/performance/Material.lc 97:32-97:37  Type -> Type
-testdata/performance/Material.lc 97:32-97:43  Type
-testdata/performance/Material.lc 97:36-97:37  _b
-testdata/performance/Material.lc 97:38-97:43  Type
-testdata/performance/Material.lc 98:7-98:19  TCGen
-testdata/performance/Material.lc 101:6-101:11  Type
-testdata/performance/Material.lc 101:6-104:28  Type
-testdata/performance/Material.lc 101:6-105:27  Type
-testdata/performance/Material.lc 101:6-107:55  Type
-testdata/performance/Material.lc 101:6-108:14  Type
-testdata/performance/Material.lc 101:6-108:38  Type
-testdata/performance/Material.lc 102:7-102:25  TCMod
-testdata/performance/Material.lc 103:7-103:16  Float -> TCMod | TCMod | Type
-testdata/performance/Material.lc 103:17-103:22  Type
-testdata/performance/Material.lc 104:7-104:16  Float -> Float -> TCMod | TCMod | Type
-testdata/performance/Material.lc 104:17-104:22  Type
-testdata/performance/Material.lc 104:23-104:28  Type
-testdata/performance/Material.lc 105:7-105:15  Float -> Float -> TCMod | TCMod | Type
-testdata/performance/Material.lc 105:16-105:21  Type
-testdata/performance/Material.lc 105:22-105:27  Type
-testdata/performance/Material.lc 106:7-106:17  TCMod | Type | Wave -> TCMod
-testdata/performance/Material.lc 106:18-106:22  Type
-testdata/performance/Material.lc 107:7-107:19  Float -> Float -> Float -> Float -> Float -> Float -> TCMod | TCMod | Type
-testdata/performance/Material.lc 107:20-107:25  Type
-testdata/performance/Material.lc 107:26-107:31  Type
-testdata/performance/Material.lc 107:32-107:37  Type
-testdata/performance/Material.lc 107:38-107:43  Type
-testdata/performance/Material.lc 107:44-107:49  Type
-testdata/performance/Material.lc 107:50-107:55  Type
-testdata/performance/Material.lc 108:7-108:14  Float -> Float -> Float -> Float -> TCMod | TCMod | Type
-testdata/performance/Material.lc 108:15-108:20  Type
-testdata/performance/Material.lc 108:21-108:26  Type
-testdata/performance/Material.lc 108:27-108:32  Type
-testdata/performance/Material.lc 108:33-108:38  Type
-testdata/performance/Material.lc 111:6-111:18  Type
-testdata/performance/Material.lc 111:6-114:35  Type
-testdata/performance/Material.lc 111:6-116:20  Type
-testdata/performance/Material.lc 112:7-112:13  StageTexture | String -> StageTexture | Type
-testdata/performance/Material.lc 112:21-112:27  Type
-testdata/performance/Material.lc 113:7-113:18  StageTexture | String -> StageTexture | Type
-testdata/performance/Material.lc 113:21-113:27  Type
-testdata/performance/Material.lc 114:7-114:17  Float -> List String -> StageTexture | StageTexture | Type
-testdata/performance/Material.lc 114:21-114:26  Type
-testdata/performance/Material.lc 114:27-114:35  Type
-testdata/performance/Material.lc 114:28-114:34  Type
-testdata/performance/Material.lc 115:7-115:18  StageTexture
-testdata/performance/Material.lc 116:7-116:20  StageTexture
-testdata/performance/Material.lc 119:6-119:19  Type
-testdata/performance/Material.lc 119:6-122:14  Type
-testdata/performance/Material.lc 120:7-120:12  AlphaFunction
-testdata/performance/Material.lc 121:7-121:14  AlphaFunction
-testdata/performance/Material.lc 122:7-122:14  AlphaFunction
-testdata/performance/Material.lc 125:6-125:19  Type
-testdata/performance/Material.lc 125:6-127:15  Type
-testdata/performance/Material.lc 126:7-126:14  DepthFunction
-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 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
-testdata/performance/Material.lc 132:31-132:53  Type
-testdata/performance/Material.lc 132:32-132:41  Type
-testdata/performance/Material.lc 132:32-132:52  List Type
-testdata/performance/Material.lc 132:43-132:52  List Type | Type
-testdata/performance/Material.lc 133:7-133:15  StageAttrs -> RGBGen
-testdata/performance/Material.lc 133:24-133:30  Type
-testdata/performance/Material.lc 134:7-134:17  StageAttrs -> AlphaGen
-testdata/performance/Material.lc 134:24-134:32  Type
-testdata/performance/Material.lc 135:7-135:14  StageAttrs -> TCGen
-testdata/performance/Material.lc 135:24-135:29  Type
-testdata/performance/Material.lc 136:7-136:14  StageAttrs -> List TCMod
-testdata/performance/Material.lc 136:24-136:31  Type
-testdata/performance/Material.lc 136:25-136:30  Type
-testdata/performance/Material.lc 137:7-137:16  StageAttrs -> StageTexture
-testdata/performance/Material.lc 137:24-137:36  Type
-testdata/performance/Material.lc 138:7-138:19  StageAttrs -> Bool
-testdata/performance/Material.lc 138:24-138:28  Type
-testdata/performance/Material.lc 139:7-139:18  StageAttrs -> DepthFunction
-testdata/performance/Material.lc 139:24-139:37  Type
-testdata/performance/Material.lc 140:7-140:18  StageAttrs -> Maybe AlphaFunction
-testdata/performance/Material.lc 140:25-140:30  Type -> Type
-testdata/performance/Material.lc 140:25-140:44  Type
-testdata/performance/Material.lc 140:31-140:44  Type
-testdata/performance/Material.lc 143:7-143:26  StageAttrs -> Bool
-testdata/performance/Material.lc 143:32-143:36  Type
-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
+testdata/performance/Material.lc 7:18-7:23
+    Type
+testdata/performance/Material.lc 8:1-8:14
+    Float
+testdata/performance/Material.lc 8:17-8:18
+    _b
+testdata/performance/Material.lc 10:6-10:12
+    Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 10:6-11:13
+    Type
+testdata/performance/Material.lc 10:6-15:39
+    Type | Type | Type
+testdata/performance/Material.lc 11:7-11:13
+    Vec 4 Float
+      -> Vec 4 Float
+        -> Vec 3 Float
+          -> Vec 4 Float -> Entity | Entity | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 12:7-12:20
+    Entity -> VecS Float 4
+testdata/performance/Material.lc 12:28-12:31
+    Nat -> Type -> Type
+testdata/performance/Material.lc 12:28-12:33
+    Type -> Type
+testdata/performance/Material.lc 12:28-12:39
+    Type
+testdata/performance/Material.lc 12:32-12:33
+    _b
+testdata/performance/Material.lc 12:34-12:39
+    Type
+testdata/performance/Material.lc 13:7-13:21
+    Entity -> VecS Float 4
+testdata/performance/Material.lc 13:28-13:31
+    Nat -> Type -> Type
+testdata/performance/Material.lc 13:28-13:33
+    Type -> Type
+testdata/performance/Material.lc 13:28-13:39
+    Type
+testdata/performance/Material.lc 13:32-13:33
+    _b
+testdata/performance/Material.lc 13:34-13:39
+    Type
+testdata/performance/Material.lc 14:7-14:16
+    Entity -> VecS Float 3
+testdata/performance/Material.lc 14:28-14:31
+    Nat -> Type -> Type
+testdata/performance/Material.lc 14:28-14:33
+    Type -> Type
+testdata/performance/Material.lc 14:28-14:39
+    Type
+testdata/performance/Material.lc 14:32-14:33
+    _b
+testdata/performance/Material.lc 14:34-14:39
+    Type
+testdata/performance/Material.lc 15:7-15:18
+    Entity -> VecS Float 4
+testdata/performance/Material.lc 15:28-15:31
+    Nat -> Type -> Type
+testdata/performance/Material.lc 15:28-15:33
+    Type -> Type
+testdata/performance/Material.lc 15:28-15:39
+    Type
+testdata/performance/Material.lc 15:32-15:33
+    _b
+testdata/performance/Material.lc 15:34-15:39
+    Type
+testdata/performance/Material.lc 18:6-18:14
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 18:6-24:15
+    Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 19:7-19:13
+    WaveType
+testdata/performance/Material.lc 20:7-20:18
+    WaveType
+testdata/performance/Material.lc 21:7-21:16
+    WaveType
+testdata/performance/Material.lc 22:7-22:18
+    WaveType
+testdata/performance/Material.lc 23:7-23:25
+    WaveType
+testdata/performance/Material.lc 24:7-24:15
+    WaveType
+testdata/performance/Material.lc 27:6-27:10
+    Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 27:6-27:17
+    Type
+testdata/performance/Material.lc 27:6-27:50
+    Type | Type | Type | Type
+testdata/performance/Material.lc 27:13-27:17
+    WaveType
+      -> Float
+        -> Float
+          -> Float -> Float -> Wave | Wave | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 27:18-27:26
+    Type
+testdata/performance/Material.lc 27:27-27:32
+    Type
+testdata/performance/Material.lc 27:33-27:38
+    Type
+testdata/performance/Material.lc 27:39-27:44
+    Type
+testdata/performance/Material.lc 27:45-27:50
+    Type
+testdata/performance/Material.lc 29:6-29:12
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 29:6-32:32
+    Type | Type
+testdata/performance/Material.lc 29:6-33:32
+    Type
+testdata/performance/Material.lc 29:6-34:27
+    Type
+testdata/performance/Material.lc 29:6-44:13
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 29:6-44:24
+    Type
+testdata/performance/Material.lc 30:7-30:19
+    Deform
+testdata/performance/Material.lc 31:7-31:20
+    Deform
+testdata/performance/Material.lc 32:7-32:14
+    Float -> Float -> Float -> Deform | Deform | Type | Type | Type | Type
+testdata/performance/Material.lc 32:15-32:20
+    Type
+testdata/performance/Material.lc 32:21-32:26
+    Type
+testdata/performance/Material.lc 32:27-32:32
+    Type
+testdata/performance/Material.lc 33:7-33:13
+    Vec 3 Float -> Wave -> Deform | Deform | Type | Type | Type
+testdata/performance/Material.lc 33:15-33:18
+    Nat -> Type -> Type
+testdata/performance/Material.lc 33:15-33:20
+    Type -> Type
+testdata/performance/Material.lc 33:15-33:26
+    Type
+testdata/performance/Material.lc 33:19-33:20
+    _b
+testdata/performance/Material.lc 33:21-33:26
+    Type
+testdata/performance/Material.lc 33:28-33:32
+    Type
+testdata/performance/Material.lc 34:7-34:15
+    Float -> Float -> Deform | Deform | Type | Type | Type
+testdata/performance/Material.lc 34:16-34:21
+    Type
+testdata/performance/Material.lc 34:22-34:27
+    Type
+testdata/performance/Material.lc 35:7-35:25
+    Deform
+testdata/performance/Material.lc 36:7-36:14
+    Deform
+testdata/performance/Material.lc 37:7-37:14
+    Deform
+testdata/performance/Material.lc 38:7-38:14
+    Deform
+testdata/performance/Material.lc 39:7-39:14
+    Deform
+testdata/performance/Material.lc 40:7-40:14
+    Deform
+testdata/performance/Material.lc 41:7-41:14
+    Deform
+testdata/performance/Material.lc 42:7-42:14
+    Deform
+testdata/performance/Material.lc 43:7-43:14
+    Deform
+testdata/performance/Material.lc 44:7-44:13
+    Float -> Wave -> Deform | Deform | Type | Type | Type
+testdata/performance/Material.lc 44:14-44:19
+    Type
+testdata/performance/Material.lc 44:20-44:24
+    Type
+testdata/performance/Material.lc 47:6-47:14
+    Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 47:6-50:18
+    Type | Type | Type
+testdata/performance/Material.lc 48:7-48:20
+    CullType
+testdata/performance/Material.lc 49:7-49:19
+    CullType
+testdata/performance/Material.lc 50:7-50:18
+    CullType
+testdata/performance/Material.lc 53:6-53:15
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 53:6-64:13
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 54:7-54:17
+    Blending'
+testdata/performance/Material.lc 55:7-55:17
+    Blending'
+testdata/performance/Material.lc 56:7-56:12
+    Blending'
+testdata/performance/Material.lc 57:7-57:25
+    Blending'
+testdata/performance/Material.lc 58:7-58:25
+    Blending'
+testdata/performance/Material.lc 59:7-59:25
+    Blending'
+testdata/performance/Material.lc 60:7-60:25
+    Blending'
+testdata/performance/Material.lc 61:7-61:17
+    Blending'
+testdata/performance/Material.lc 62:7-62:25
+    Blending'
+testdata/performance/Material.lc 63:7-63:17
+    Blending'
+testdata/performance/Material.lc 64:7-64:13
+    Blending'
+testdata/performance/Material.lc 67:6-67:12
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 67:6-69:34
+    Type | Type
+testdata/performance/Material.lc 67:6-78:20
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 68:7-68:15
+    Wave -> RGBGen | RGBGen | Type | Type
+testdata/performance/Material.lc 68:16-68:20
+    Type
+testdata/performance/Material.lc 69:7-69:16
+    Float -> Float -> Float -> RGBGen | RGBGen | Type | Type | Type | Type
+testdata/performance/Material.lc 69:17-69:22
+    Type
+testdata/performance/Material.lc 69:23-69:28
+    Type
+testdata/performance/Material.lc 69:29-69:34
+    Type
+testdata/performance/Material.lc 70:7-70:19
+    RGBGen
+testdata/performance/Material.lc 71:7-71:27
+    RGBGen
+testdata/performance/Material.lc 72:7-72:17
+    RGBGen
+testdata/performance/Material.lc 73:7-73:25
+    RGBGen
+testdata/performance/Material.lc 74:7-74:22
+    RGBGen
+testdata/performance/Material.lc 75:7-75:17
+    RGBGen
+testdata/performance/Material.lc 76:7-76:26
+    RGBGen
+testdata/performance/Material.lc 77:7-77:25
+    RGBGen
+testdata/performance/Material.lc 78:7-78:20
+    RGBGen
+testdata/performance/Material.lc 81:6-81:14
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 81:6-90:23
+    Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 82:7-82:13
+    Wave -> AlphaGen | AlphaGen | Type | Type
+testdata/performance/Material.lc 82:14-82:18
+    Type
+testdata/performance/Material.lc 83:7-83:14
+    Float -> AlphaGen | AlphaGen | Type | Type
+testdata/performance/Material.lc 83:15-83:20
+    Type
+testdata/performance/Material.lc 84:7-84:15
+    AlphaGen
+testdata/performance/Material.lc 85:7-85:17
+    AlphaGen
+testdata/performance/Material.lc 86:7-86:15
+    AlphaGen
+testdata/performance/Material.lc 87:7-87:23
+    AlphaGen
+testdata/performance/Material.lc 88:7-88:15
+    AlphaGen
+testdata/performance/Material.lc 89:7-89:25
+    AlphaGen
+testdata/performance/Material.lc 90:7-90:23
+    AlphaGen
+testdata/performance/Material.lc 93:6-93:11
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 93:6-97:44
+    Type
+testdata/performance/Material.lc 93:6-98:19
+    Type | Type | Type | Type | Type
+testdata/performance/Material.lc 94:7-94:14
+    TCGen
+testdata/performance/Material.lc 95:7-95:18
+    TCGen
+testdata/performance/Material.lc 96:7-96:21
+    TCGen
+testdata/performance/Material.lc 97:7-97:16
+    Vec 3 Float -> Vec 3 Float -> TCGen | TCGen | Type | Type | Type
+testdata/performance/Material.lc 97:18-97:21
+    Nat -> Type -> Type
+testdata/performance/Material.lc 97:18-97:23
+    Type -> Type
+testdata/performance/Material.lc 97:18-97:29
+    Type
+testdata/performance/Material.lc 97:22-97:23
+    _b
+testdata/performance/Material.lc 97:24-97:29
+    Type
+testdata/performance/Material.lc 97:32-97:35
+    Nat -> Type -> Type
+testdata/performance/Material.lc 97:32-97:37
+    Type -> Type
+testdata/performance/Material.lc 97:32-97:43
+    Type
+testdata/performance/Material.lc 97:36-97:37
+    _b
+testdata/performance/Material.lc 97:38-97:43
+    Type
+testdata/performance/Material.lc 98:7-98:19
+    TCGen
+testdata/performance/Material.lc 101:6-101:11
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 101:6-104:28
+    Type
+testdata/performance/Material.lc 101:6-105:27
+    Type
+testdata/performance/Material.lc 101:6-107:55
+    Type | Type | Type | Type | Type
+testdata/performance/Material.lc 101:6-108:14
+    Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 101:6-108:38
+    Type | Type | Type
+testdata/performance/Material.lc 102:7-102:25
+    TCMod
+testdata/performance/Material.lc 103:7-103:16
+    Float -> TCMod | TCMod | Type | Type
+testdata/performance/Material.lc 103:17-103:22
+    Type
+testdata/performance/Material.lc 104:7-104:16
+    Float -> Float -> TCMod | TCMod | Type | Type | Type
+testdata/performance/Material.lc 104:17-104:22
+    Type
+testdata/performance/Material.lc 104:23-104:28
+    Type
+testdata/performance/Material.lc 105:7-105:15
+    Float -> Float -> TCMod | TCMod | Type | Type | Type
+testdata/performance/Material.lc 105:16-105:21
+    Type
+testdata/performance/Material.lc 105:22-105:27
+    Type
+testdata/performance/Material.lc 106:7-106:17
+    Wave -> TCMod | TCMod | Type | Type
+testdata/performance/Material.lc 106:18-106:22
+    Type
+testdata/performance/Material.lc 107:7-107:19
+    Float
+      -> Float
+        -> Float
+          -> Float
+            -> Float
+              -> Float -> TCMod | TCMod | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 107:20-107:25
+    Type
+testdata/performance/Material.lc 107:26-107:31
+    Type
+testdata/performance/Material.lc 107:32-107:37
+    Type
+testdata/performance/Material.lc 107:38-107:43
+    Type
+testdata/performance/Material.lc 107:44-107:49
+    Type
+testdata/performance/Material.lc 107:50-107:55
+    Type
+testdata/performance/Material.lc 108:7-108:14
+    Float
+      -> Float -> Float -> Float -> TCMod | TCMod | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 108:15-108:20
+    Type
+testdata/performance/Material.lc 108:21-108:26
+    Type
+testdata/performance/Material.lc 108:27-108:32
+    Type
+testdata/performance/Material.lc 108:33-108:38
+    Type
+testdata/performance/Material.lc 111:6-111:18
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 111:6-114:35
+    Type
+testdata/performance/Material.lc 111:6-116:20
+    Type | Type | Type | Type | Type
+testdata/performance/Material.lc 112:7-112:13
+    String -> StageTexture | StageTexture | Type | Type
+testdata/performance/Material.lc 112:21-112:27
+    Type
+testdata/performance/Material.lc 113:7-113:18
+    String -> StageTexture | StageTexture | Type | Type
+testdata/performance/Material.lc 113:21-113:27
+    Type
+testdata/performance/Material.lc 114:7-114:17
+    Float -> List String -> StageTexture | StageTexture | Type | Type | Type
+testdata/performance/Material.lc 114:21-114:26
+    Type
+testdata/performance/Material.lc 114:27-114:35
+    Type
+testdata/performance/Material.lc 114:28-114:34
+    Type
+testdata/performance/Material.lc 115:7-115:18
+    StageTexture
+testdata/performance/Material.lc 116:7-116:20
+    StageTexture
+testdata/performance/Material.lc 119:6-119:19
+    Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 119:6-122:14
+    Type | Type | Type
+testdata/performance/Material.lc 120:7-120:12
+    AlphaFunction
+testdata/performance/Material.lc 121:7-121:14
+    AlphaFunction
+testdata/performance/Material.lc 122:7-122:14
+    AlphaFunction
+testdata/performance/Material.lc 125:6-125:19
+    Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 125:6-127:15
+    Type | Type
+testdata/performance/Material.lc 126:7-126:14
+    DepthFunction
+testdata/performance/Material.lc 127:7-127:15
+    DepthFunction
+testdata/performance/Material.lc 130:6-130:16
+    Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 130:6-131:17
+    Type
+testdata/performance/Material.lc 130:6-144:34
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | 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 | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | 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
+testdata/performance/Material.lc 132:31-132:53
+    Type
+testdata/performance/Material.lc 132:32-132:41
+    Type
+testdata/performance/Material.lc 132:32-132:52
+    List Type
+testdata/performance/Material.lc 132:43-132:52
+    Type | List Type
+testdata/performance/Material.lc 133:7-133:15
+    StageAttrs -> RGBGen
+testdata/performance/Material.lc 133:24-133:30
+    Type
+testdata/performance/Material.lc 134:7-134:17
+    StageAttrs -> AlphaGen
+testdata/performance/Material.lc 134:24-134:32
+    Type
+testdata/performance/Material.lc 135:7-135:14
+    StageAttrs -> TCGen
+testdata/performance/Material.lc 135:24-135:29
+    Type
+testdata/performance/Material.lc 136:7-136:14
+    StageAttrs -> List TCMod
+testdata/performance/Material.lc 136:24-136:31
+    Type
+testdata/performance/Material.lc 136:25-136:30
+    Type
+testdata/performance/Material.lc 137:7-137:16
+    StageAttrs -> StageTexture
+testdata/performance/Material.lc 137:24-137:36
+    Type
+testdata/performance/Material.lc 138:7-138:19
+    StageAttrs -> Bool
+testdata/performance/Material.lc 138:24-138:28
+    Type
+testdata/performance/Material.lc 139:7-139:18
+    StageAttrs -> DepthFunction
+testdata/performance/Material.lc 139:24-139:37
+    Type
+testdata/performance/Material.lc 140:7-140:18
+    StageAttrs -> Maybe AlphaFunction
+testdata/performance/Material.lc 140:25-140:30
+    Type -> Type
+testdata/performance/Material.lc 140:25-140:44
+    Type
+testdata/performance/Material.lc 140:31-140:44
+    Type
+testdata/performance/Material.lc 143:7-143:26
+    StageAttrs -> Bool
+testdata/performance/Material.lc 143:32-143:36
+    Type
+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-150:30  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-151:36  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/Material.lc 149:21-153:35
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/Material.lc 149:21-152:33  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/Material.lc 149:21-154:25
+    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
-testdata/performance/Material.lc 149:21-158:30  Bool -> String -> StageAttrs
-testdata/performance/Material.lc 149:21-159:36  String -> StageAttrs
-testdata/performance/Material.lc 149:21-161:6  StageAttrs
-testdata/performance/Material.lc 150:23-150:30  forall a . Maybe a
-testdata/performance/Material.lc 151:23-151:36  RGBGen
-testdata/performance/Material.lc 152:23-152:33  AlphaGen
-testdata/performance/Material.lc 153:23-153:35  TCGen
-testdata/performance/Material.lc 154:23-154:25  forall a . List a
-testdata/performance/Material.lc 155:23-155:36  StageTexture
-testdata/performance/Material.lc 156:23-156:27  Bool
-testdata/performance/Material.lc 157:23-157:31  DepthFunction
-testdata/performance/Material.lc 158:23-158:30  forall a . Maybe a
-testdata/performance/Material.lc 159:31-159:36  Bool
-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
+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
+testdata/performance/Material.lc 149:21-158:30
+    Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-159:36
+    String -> StageAttrs
+testdata/performance/Material.lc 149:21-161:6
+    StageAttrs
+testdata/performance/Material.lc 150:23-150:30
+    forall a . Maybe a
+testdata/performance/Material.lc 151:23-151:36
+    RGBGen
+testdata/performance/Material.lc 152:23-152:33
+    AlphaGen
+testdata/performance/Material.lc 153:23-153:35
+    TCGen
+testdata/performance/Material.lc 154:23-154:25
+    forall a . List a
+testdata/performance/Material.lc 155:23-155:36
+    StageTexture
+testdata/performance/Material.lc 156:23-156:27
+    Bool
+testdata/performance/Material.lc 157:23-157:31
+    DepthFunction
+testdata/performance/Material.lc 158:23-158:30
+    forall a . Maybe a
+testdata/performance/Material.lc 159:31-159:36
+    Bool
+testdata/performance/Material.lc 160:27-160:29
+    String
+testdata/performance/Material.lc 163:6-163:17
+    Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 163:6-164:18
+    Type
+testdata/performance/Material.lc 163:6-178:32
+    Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type
+testdata/performance/Material.lc 164:7-164:18
+    ()
+      -> ()
         -> Bool
+          -> Float
+            -> Bool
+              -> Bool
+                -> CullType
+                  -> List Deform
+                    -> Bool
+                      -> Bool
+                        -> List StageAttrs
+                          -> Bool
+                            -> CommonAttrs | CommonAttrs | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | Type | 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 -> ()
+testdata/performance/Material.lc 166:28-166:30
+    Type
+testdata/performance/Material.lc 167:7-167:15
+    CommonAttrs -> Bool
+testdata/performance/Material.lc 167:28-167:32
+    Type
+testdata/performance/Material.lc 168:7-168:13
+    CommonAttrs -> Float
+testdata/performance/Material.lc 168:28-168:33
+    Type
+testdata/performance/Material.lc 169:7-169:23
+    CommonAttrs -> Bool
+testdata/performance/Material.lc 169:28-169:32
+    Type
+testdata/performance/Material.lc 170:7-170:16
+    CommonAttrs -> Bool
+testdata/performance/Material.lc 170:28-170:32
+    Type
+testdata/performance/Material.lc 171:7-171:13
+    CommonAttrs -> CullType
+testdata/performance/Material.lc 171:28-171:36
+    Type
+testdata/performance/Material.lc 172:7-172:23
+    CommonAttrs -> List Deform
+testdata/performance/Material.lc 172:28-172:36
+    Type
+testdata/performance/Material.lc 172:29-172:35
+    Type
+testdata/performance/Material.lc 173:7-173:18
+    CommonAttrs -> Bool
+testdata/performance/Material.lc 173:28-173:32
+    Type
+testdata/performance/Material.lc 174:7-174:22
+    CommonAttrs -> Bool
+testdata/performance/Material.lc 174:28-174:32
+    Type
+testdata/performance/Material.lc 175:7-175:15
+    CommonAttrs -> List StageAttrs
+testdata/performance/Material.lc 175:28-175:40
+    Type
+testdata/performance/Material.lc 175:29-175:39
+    Type
+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
-            -> 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 -> ()
-testdata/performance/Material.lc 166:28-166:30  Type
-testdata/performance/Material.lc 167:7-167:15  CommonAttrs -> Bool
-testdata/performance/Material.lc 167:28-167:32  Type
-testdata/performance/Material.lc 168:7-168:13  CommonAttrs -> Float
-testdata/performance/Material.lc 168:28-168:33  Type
-testdata/performance/Material.lc 169:7-169:23  CommonAttrs -> Bool
-testdata/performance/Material.lc 169:28-169:32  Type
-testdata/performance/Material.lc 170:7-170:16  CommonAttrs -> Bool
-testdata/performance/Material.lc 170:28-170:32  Type
-testdata/performance/Material.lc 171:7-171:13  CommonAttrs -> CullType
-testdata/performance/Material.lc 171:28-171:36  Type
-testdata/performance/Material.lc 172:7-172:23  CommonAttrs -> List Deform
-testdata/performance/Material.lc 172:28-172:36  Type
-testdata/performance/Material.lc 172:29-172:35  Type
-testdata/performance/Material.lc 173:7-173:18  CommonAttrs -> Bool
-testdata/performance/Material.lc 173:28-173:32  Type
-testdata/performance/Material.lc 174:7-174:22  CommonAttrs -> Bool
-testdata/performance/Material.lc 174:28-174:32  Type
-testdata/performance/Material.lc 175:7-175:15  CommonAttrs -> List StageAttrs
-testdata/performance/Material.lc 175:28-175:40  Type
-testdata/performance/Material.lc 175:29-175:39  Type
-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
+            -> 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-184:29  ()
-  -> Bool
-    -> Float
+            -> 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-185:29  Bool
-  -> Float
-    -> 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-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
-testdata/performance/Material.lc 183:22-191:29  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/Material.lc 183:22-192:32  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/Material.lc 183:22-193:32  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/Material.lc 183:22-194:29  Bool -> CommonAttrs
-testdata/performance/Material.lc 183:22-196:6  CommonAttrs
-testdata/performance/Material.lc 184:27-184:29  ()
-testdata/performance/Material.lc 185:27-185:29  ()
-testdata/performance/Material.lc 186:27-186:32  Bool
-testdata/performance/Material.lc 187:27-187:28  _b
-testdata/performance/Material.lc 188:27-188:32  Bool
-testdata/performance/Material.lc 189:27-189:32  Bool
-testdata/performance/Material.lc 190:27-190:40  CullType
-testdata/performance/Material.lc 191:27-191:29  forall a . List a
-testdata/performance/Material.lc 192:27-192:32  Bool
-testdata/performance/Material.lc 193:27-193:32  Bool
-testdata/performance/Material.lc 194:27-194:29  forall a . List a
-testdata/performance/Material.lc 195:27-195:32  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
+testdata/performance/Material.lc 183:22-191:29
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-192:32
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-193:32
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-194:29
+    Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-196:6
+    CommonAttrs
+testdata/performance/Material.lc 184:27-184:29
+    ()
+testdata/performance/Material.lc 185:27-185:29
+    ()
+testdata/performance/Material.lc 186:27-186:32
+    Bool
+testdata/performance/Material.lc 187:27-187:28
+    _b
+testdata/performance/Material.lc 188:27-188:32
+    Bool
+testdata/performance/Material.lc 189:27-189:32
+    Bool
+testdata/performance/Material.lc 190:27-190:40
+    CullType
+testdata/performance/Material.lc 191:27-191:29
+    forall a . List a
+testdata/performance/Material.lc 192:27-192:32
+    Bool
+testdata/performance/Material.lc 193:27-193:32
+    Bool
+testdata/performance/Material.lc 194:27-194:29
+    forall a . List a
+testdata/performance/Material.lc 195:27-195:32
+    Bool
\ No newline at end of file
diff --git a/testdata/performance/SampleMaterial.out b/testdata/performance/SampleMaterial.out
index 238470c8..17ed027d 100644
--- a/testdata/performance/SampleMaterial.out
+++ b/testdata/performance/SampleMaterial.out
@@ -2234,7247 +2234,11747 @@ sampleMaterial
                                                                                                         Nil))))))))))))))))))))))))))))))))))))))))))))))))))
 main is not found
 ------------ trace
-sampleMaterial :: List (String, CommonAttrs)
+sampleMaterial :: List (String, CommonAttrs)
 ------------ tooltips
-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
+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-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
-testdata/performance/SampleMaterial.lc 5:7-13:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-14:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-15:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-43:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-45:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 6:24-6:26  ()
-testdata/performance/SampleMaterial.lc 7:24-7:26  ()
-testdata/performance/SampleMaterial.lc 8:22-8:27  Bool
-testdata/performance/SampleMaterial.lc 9:20-9:21  _b
-testdata/performance/SampleMaterial.lc 10:30-10:35  Bool
-testdata/performance/SampleMaterial.lc 11:23-11:28  Bool
-testdata/performance/SampleMaterial.lc 12:20-12:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 5:7-13:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-14:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-15:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-43:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-45:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 6:24-6:26
+    ()
+testdata/performance/SampleMaterial.lc 7:24-7:26
+    ()
+testdata/performance/SampleMaterial.lc 8:22-8:27
+    Bool
+testdata/performance/SampleMaterial.lc 9:20-9:21
+    _b
+testdata/performance/SampleMaterial.lc 10:30-10:35
+    Bool
+testdata/performance/SampleMaterial.lc 11:23-11:28
+    Bool
+testdata/performance/SampleMaterial.lc 12:20-12:33
+    CullType
+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-18:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-19:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 17:15-21:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-20:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 17:15-22:31
+    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
-testdata/performance/SampleMaterial.lc 17:15-26:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-27:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-29:18  StageAttrs
-testdata/performance/SampleMaterial.lc 18:29-18:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 19:30-19:50  RGBGen
-testdata/performance/SampleMaterial.lc 20:32-20:42  AlphaGen
-testdata/performance/SampleMaterial.lc 21:29-21:36  TCGen
-testdata/performance/SampleMaterial.lc 22:29-22:31  forall a . List a
-testdata/performance/SampleMaterial.lc 23:31-23:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 23:31-23:71  StageTexture
-testdata/performance/SampleMaterial.lc 23:38-23:71  String
-testdata/performance/SampleMaterial.lc 24:34-24:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 17:15-26:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-27:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-29:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 18:29-18:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 19:30-19:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 20:32-20:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 21:29-21:36
+    TCGen
+testdata/performance/SampleMaterial.lc 22:29-22:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 23:31-23:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 23:31-23:71
+    StageTexture
+testdata/performance/SampleMaterial.lc 23:38-23:71
+    String
+testdata/performance/SampleMaterial.lc 24:34-24:38
+    Bool
+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-31:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-32:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 30:15-34:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-33:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 30:15-35:31
+    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
-testdata/performance/SampleMaterial.lc 30:15-39:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-40:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-42:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 31:29-31:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 31:29-31:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 31:34-31:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 31:36-31:46  Blending'
-testdata/performance/SampleMaterial.lc 31:49-31:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 32:30-32:50  RGBGen
-testdata/performance/SampleMaterial.lc 33:32-33:42  AlphaGen
-testdata/performance/SampleMaterial.lc 34:29-34:40  TCGen
-testdata/performance/SampleMaterial.lc 35:29-35:31  forall a . List a
-testdata/performance/SampleMaterial.lc 36:31-36:42  StageTexture
-testdata/performance/SampleMaterial.lc 37:34-37:38  Bool
-testdata/performance/SampleMaterial.lc 38:33-38:41  DepthFunction
-testdata/performance/SampleMaterial.lc 39:33-39:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 40:41-40:46  Bool
-testdata/performance/SampleMaterial.lc 41:38-41:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 30:15-39:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-40:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-42:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 31:29-31:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 31:29-31:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 31:34-31:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 31:36-31:46
+    Blending'
+testdata/performance/SampleMaterial.lc 31:49-31:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 32:30-32:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 33:32-33:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 34:29-34:40
+    TCGen
+testdata/performance/SampleMaterial.lc 35:29-35:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 36:31-36:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 37:34-37:38
+    Bool
+testdata/performance/SampleMaterial.lc 38:33-38:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 39:33-39:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 40:41-40:46
+    Bool
+testdata/performance/SampleMaterial.lc 41:38-41:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 48:7-56:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 48:7-57:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 48:7-58:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 48:7-86:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 48:7-88:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 49:24-49:26  ()
-testdata/performance/SampleMaterial.lc 50:24-50:26  ()
-testdata/performance/SampleMaterial.lc 51:22-51:27  Bool
-testdata/performance/SampleMaterial.lc 52:20-52:21  _b
-testdata/performance/SampleMaterial.lc 53:30-53:35  Bool
-testdata/performance/SampleMaterial.lc 54:23-54:28  Bool
-testdata/performance/SampleMaterial.lc 55:20-55:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 48:7-56:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-57:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-58:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-86:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-88:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 49:24-49:26
+    ()
+testdata/performance/SampleMaterial.lc 50:24-50:26
+    ()
+testdata/performance/SampleMaterial.lc 51:22-51:27
+    Bool
+testdata/performance/SampleMaterial.lc 52:20-52:21
+    _b
+testdata/performance/SampleMaterial.lc 53:30-53:35
+    Bool
+testdata/performance/SampleMaterial.lc 54:23-54:28
+    Bool
+testdata/performance/SampleMaterial.lc 55:20-55:33
+    CullType
+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-61:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-62:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 60:15-64:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-63:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 60:15-65:31
+    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
-testdata/performance/SampleMaterial.lc 60:15-69:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-70:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-72:18  StageAttrs
-testdata/performance/SampleMaterial.lc 61:29-61:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 62:30-62:50  RGBGen
-testdata/performance/SampleMaterial.lc 63:32-63:42  AlphaGen
-testdata/performance/SampleMaterial.lc 64:29-64:36  TCGen
-testdata/performance/SampleMaterial.lc 65:29-65:31  forall a . List a
-testdata/performance/SampleMaterial.lc 66:31-66:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 66:31-66:70  StageTexture
-testdata/performance/SampleMaterial.lc 66:38-66:70  String
-testdata/performance/SampleMaterial.lc 67:34-67:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 60:15-69:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-70:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-72:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 61:29-61:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 62:30-62:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 63:32-63:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 64:29-64:36
+    TCGen
+testdata/performance/SampleMaterial.lc 65:29-65:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 66:31-66:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 66:31-66:70
+    StageTexture
+testdata/performance/SampleMaterial.lc 66:38-66:70
+    String
+testdata/performance/SampleMaterial.lc 67:34-67:38
+    Bool
+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-74:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-75:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 73:15-77:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-76:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 73:15-78:31
+    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
-testdata/performance/SampleMaterial.lc 73:15-82:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-83:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-85:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 74:29-74:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 74:29-74:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 74:34-74:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 74:36-74:46  Blending'
-testdata/performance/SampleMaterial.lc 74:49-74:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 75:30-75:50  RGBGen
-testdata/performance/SampleMaterial.lc 76:32-76:42  AlphaGen
-testdata/performance/SampleMaterial.lc 77:29-77:40  TCGen
-testdata/performance/SampleMaterial.lc 78:29-78:31  forall a . List a
-testdata/performance/SampleMaterial.lc 79:31-79:42  StageTexture
-testdata/performance/SampleMaterial.lc 80:34-80:38  Bool
-testdata/performance/SampleMaterial.lc 81:33-81:41  DepthFunction
-testdata/performance/SampleMaterial.lc 82:33-82:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 83:41-83:46  Bool
-testdata/performance/SampleMaterial.lc 84:38-84:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 73:15-82:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-83:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-85:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 74:29-74:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 74:29-74:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 74:34-74:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 74:36-74:46
+    Blending'
+testdata/performance/SampleMaterial.lc 74:49-74:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 75:30-75:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 76:32-76:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 77:29-77:40
+    TCGen
+testdata/performance/SampleMaterial.lc 78:29-78:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 79:31-79:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 80:34-80:38
+    Bool
+testdata/performance/SampleMaterial.lc 81:33-81:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 82:33-82:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 83:41-83:46
+    Bool
+testdata/performance/SampleMaterial.lc 84:38-84:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 91:7-99:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 91:7-100:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 91:7-101:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 91:7-129:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 91:7-131:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 92:24-92:26  ()
-testdata/performance/SampleMaterial.lc 93:24-93:26  ()
-testdata/performance/SampleMaterial.lc 94:22-94:27  Bool
-testdata/performance/SampleMaterial.lc 95:20-95:21  _b
-testdata/performance/SampleMaterial.lc 96:30-96:35  Bool
-testdata/performance/SampleMaterial.lc 97:23-97:28  Bool
-testdata/performance/SampleMaterial.lc 98:20-98:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 91:7-99:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-100:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-101:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-129:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-131:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 92:24-92:26
+    ()
+testdata/performance/SampleMaterial.lc 93:24-93:26
+    ()
+testdata/performance/SampleMaterial.lc 94:22-94:27
+    Bool
+testdata/performance/SampleMaterial.lc 95:20-95:21
+    _b
+testdata/performance/SampleMaterial.lc 96:30-96:35
+    Bool
+testdata/performance/SampleMaterial.lc 97:23-97:28
+    Bool
+testdata/performance/SampleMaterial.lc 98:20-98:33
+    CullType
+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-104:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-105:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 103:15-107:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-106:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 103:15-108:31
+    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
-testdata/performance/SampleMaterial.lc 103:15-112:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-113:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-115:18  StageAttrs
-testdata/performance/SampleMaterial.lc 104:29-104:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 105:30-105:50  RGBGen
-testdata/performance/SampleMaterial.lc 106:32-106:42  AlphaGen
-testdata/performance/SampleMaterial.lc 107:29-107:36  TCGen
-testdata/performance/SampleMaterial.lc 108:29-108:31  forall a . List a
-testdata/performance/SampleMaterial.lc 109:31-109:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 109:31-109:71  StageTexture
-testdata/performance/SampleMaterial.lc 109:38-109:71  String
-testdata/performance/SampleMaterial.lc 110:34-110:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 103:15-112:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-113:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-115:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 104:29-104:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 105:30-105:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 106:32-106:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 107:29-107:36
+    TCGen
+testdata/performance/SampleMaterial.lc 108:29-108:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 109:31-109:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 109:31-109:71
+    StageTexture
+testdata/performance/SampleMaterial.lc 109:38-109:71
+    String
+testdata/performance/SampleMaterial.lc 110:34-110:38
+    Bool
+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-117:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-118:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 116:15-120:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-119:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 116:15-121:31
+    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
-testdata/performance/SampleMaterial.lc 116:15-125:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-126:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-128:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 117:29-117:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 117:29-117:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 117:34-117:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 117:36-117:46  Blending'
-testdata/performance/SampleMaterial.lc 117:49-117:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 118:30-118:50  RGBGen
-testdata/performance/SampleMaterial.lc 119:32-119:42  AlphaGen
-testdata/performance/SampleMaterial.lc 120:29-120:40  TCGen
-testdata/performance/SampleMaterial.lc 121:29-121:31  forall a . List a
-testdata/performance/SampleMaterial.lc 122:31-122:42  StageTexture
-testdata/performance/SampleMaterial.lc 123:34-123:38  Bool
-testdata/performance/SampleMaterial.lc 124:33-124:41  DepthFunction
-testdata/performance/SampleMaterial.lc 125:33-125:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 126:41-126:46  Bool
-testdata/performance/SampleMaterial.lc 127:38-127:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 116:15-125:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-126:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-128:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 117:29-117:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 117:29-117:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 117:34-117:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 117:36-117:46
+    Blending'
+testdata/performance/SampleMaterial.lc 117:49-117:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 118:30-118:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 119:32-119:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 120:29-120:40
+    TCGen
+testdata/performance/SampleMaterial.lc 121:29-121:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 122:31-122:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 123:34-123:38
+    Bool
+testdata/performance/SampleMaterial.lc 124:33-124:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 125:33-125:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 126:41-126:46
+    Bool
+testdata/performance/SampleMaterial.lc 127:38-127:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 134:7-142:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 134:7-143:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 134:7-144:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 134:7-172:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 134:7-174:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 135:24-135:26  ()
-testdata/performance/SampleMaterial.lc 136:24-136:26  ()
-testdata/performance/SampleMaterial.lc 137:22-137:27  Bool
-testdata/performance/SampleMaterial.lc 138:20-138:21  _b
-testdata/performance/SampleMaterial.lc 139:30-139:35  Bool
-testdata/performance/SampleMaterial.lc 140:23-140:28  Bool
-testdata/performance/SampleMaterial.lc 141:20-141:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 134:7-142:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-143:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-144:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-172:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-174:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 135:24-135:26
+    ()
+testdata/performance/SampleMaterial.lc 136:24-136:26
+    ()
+testdata/performance/SampleMaterial.lc 137:22-137:27
+    Bool
+testdata/performance/SampleMaterial.lc 138:20-138:21
+    _b
+testdata/performance/SampleMaterial.lc 139:30-139:35
+    Bool
+testdata/performance/SampleMaterial.lc 140:23-140:28
+    Bool
+testdata/performance/SampleMaterial.lc 141:20-141:33
+    CullType
+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-147:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-148:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 146:15-150:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-149:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 146:15-151:31
+    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
-testdata/performance/SampleMaterial.lc 146:15-155:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-156:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-158:18  StageAttrs
-testdata/performance/SampleMaterial.lc 147:29-147:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 148:30-148:50  RGBGen
-testdata/performance/SampleMaterial.lc 149:32-149:42  AlphaGen
-testdata/performance/SampleMaterial.lc 150:29-150:36  TCGen
-testdata/performance/SampleMaterial.lc 151:29-151:31  forall a . List a
-testdata/performance/SampleMaterial.lc 152:31-152:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 152:31-152:73  StageTexture
-testdata/performance/SampleMaterial.lc 152:38-152:73  String
-testdata/performance/SampleMaterial.lc 153:34-153:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 146:15-155:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-156:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-158:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 147:29-147:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 148:30-148:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 149:32-149:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 150:29-150:36
+    TCGen
+testdata/performance/SampleMaterial.lc 151:29-151:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 152:31-152:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 152:31-152:73
+    StageTexture
+testdata/performance/SampleMaterial.lc 152:38-152:73
+    String
+testdata/performance/SampleMaterial.lc 153:34-153:38
+    Bool
+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-160:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-161:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 159:15-163:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-162:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 159:15-164:31
+    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
-testdata/performance/SampleMaterial.lc 159:15-168:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-169:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-171:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 160:29-160:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 160:29-160:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 160:34-160:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 160:36-160:46  Blending'
-testdata/performance/SampleMaterial.lc 160:49-160:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 161:30-161:50  RGBGen
-testdata/performance/SampleMaterial.lc 162:32-162:42  AlphaGen
-testdata/performance/SampleMaterial.lc 163:29-163:40  TCGen
-testdata/performance/SampleMaterial.lc 164:29-164:31  forall a . List a
-testdata/performance/SampleMaterial.lc 165:31-165:42  StageTexture
-testdata/performance/SampleMaterial.lc 166:34-166:38  Bool
-testdata/performance/SampleMaterial.lc 167:33-167:41  DepthFunction
-testdata/performance/SampleMaterial.lc 168:33-168:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 169:41-169:46  Bool
-testdata/performance/SampleMaterial.lc 170:38-170:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 159:15-168:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-169:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-171:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 160:29-160:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 160:29-160:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 160:34-160:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 160:36-160:46
+    Blending'
+testdata/performance/SampleMaterial.lc 160:49-160:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 161:30-161:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 162:32-162:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 163:29-163:40
+    TCGen
+testdata/performance/SampleMaterial.lc 164:29-164:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 165:31-165:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 166:34-166:38
+    Bool
+testdata/performance/SampleMaterial.lc 167:33-167:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 168:33-168:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 169:41-169:46
+    Bool
+testdata/performance/SampleMaterial.lc 170:38-170:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 177:7-185:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 177:7-186:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 177:7-187:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 177:7-229:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 177:7-231:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 178:24-178:26  ()
-testdata/performance/SampleMaterial.lc 179:24-179:26  ()
-testdata/performance/SampleMaterial.lc 180:22-180:27  Bool
-testdata/performance/SampleMaterial.lc 181:20-181:21  _b
-testdata/performance/SampleMaterial.lc 182:30-182:35  Bool
-testdata/performance/SampleMaterial.lc 183:23-183:28  Bool
-testdata/performance/SampleMaterial.lc 184:20-184:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 177:7-185:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-186:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-187:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-229:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-231:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 178:24-178:26
+    ()
+testdata/performance/SampleMaterial.lc 179:24-179:26
+    ()
+testdata/performance/SampleMaterial.lc 180:22-180:27
+    Bool
+testdata/performance/SampleMaterial.lc 181:20-181:21
+    _b
+testdata/performance/SampleMaterial.lc 182:30-182:35
+    Bool
+testdata/performance/SampleMaterial.lc 183:23-183:28
+    Bool
+testdata/performance/SampleMaterial.lc 184:20-184:33
+    CullType
+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-190:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-191:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 189:15-193:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-192:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 189:15-195:88
+    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
-testdata/performance/SampleMaterial.lc 189:15-199:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-200:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-202:18  StageAttrs
-testdata/performance/SampleMaterial.lc 190:29-190:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 191:30-191:42  RGBGen
-testdata/performance/SampleMaterial.lc 192:32-192:42  AlphaGen
-testdata/performance/SampleMaterial.lc 193:29-193:36  TCGen
-testdata/performance/SampleMaterial.lc 195:21-195:88  List TCMod
-testdata/performance/SampleMaterial.lc 195:23-195:32  Float -> Float -> TCMod
-testdata/performance/SampleMaterial.lc 195:23-195:36  Float -> TCMod
-testdata/performance/SampleMaterial.lc 195:23-195:40  TCMod
-testdata/performance/SampleMaterial.lc 195:33-195:36  Float
-testdata/performance/SampleMaterial.lc 195:37-195:40  Float
-testdata/performance/SampleMaterial.lc 195:43-195:50  Float -> Float -> Float -> Float -> TCMod
-testdata/performance/SampleMaterial.lc 195:43-195:54  Float -> Float -> Float -> TCMod
-testdata/performance/SampleMaterial.lc 195:43-195:59  Float -> Float -> TCMod
-testdata/performance/SampleMaterial.lc 195:43-195:63  Float -> TCMod
-testdata/performance/SampleMaterial.lc 195:43-195:67  TCMod
-testdata/performance/SampleMaterial.lc 195:43-195:86  List TCMod
-testdata/performance/SampleMaterial.lc 195:51-195:54  Float
-testdata/performance/SampleMaterial.lc 195:55-195:59  Float
-testdata/performance/SampleMaterial.lc 195:60-195:63  Float
-testdata/performance/SampleMaterial.lc 195:64-195:67  Float
-testdata/performance/SampleMaterial.lc 195:70-195:78  Float -> Float -> TCMod
-testdata/performance/SampleMaterial.lc 195:70-195:82  Float -> TCMod
-testdata/performance/SampleMaterial.lc 195:70-195:86  List TCMod | TCMod
-testdata/performance/SampleMaterial.lc 195:79-195:82  Float
-testdata/performance/SampleMaterial.lc 195:83-195:86  Float
-testdata/performance/SampleMaterial.lc 196:31-196:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 196:31-196:66  StageTexture
-testdata/performance/SampleMaterial.lc 196:38-196:66  String
-testdata/performance/SampleMaterial.lc 197:34-197:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 189:15-199:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-200:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-202:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 190:29-190:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 191:30-191:42
+    RGBGen
+testdata/performance/SampleMaterial.lc 192:32-192:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 193:29-193:36
+    TCGen
+testdata/performance/SampleMaterial.lc 195:21-195:88
+    List TCMod
+testdata/performance/SampleMaterial.lc 195:23-195:32
+    Float -> Float -> TCMod
+testdata/performance/SampleMaterial.lc 195:23-195:36
+    Float -> TCMod
+testdata/performance/SampleMaterial.lc 195:23-195:40
+    TCMod
+testdata/performance/SampleMaterial.lc 195:33-195:36
+    Float
+testdata/performance/SampleMaterial.lc 195:37-195:40
+    Float
+testdata/performance/SampleMaterial.lc 195:43-195:50
+    Float -> Float -> Float -> Float -> TCMod
+testdata/performance/SampleMaterial.lc 195:43-195:54
+    Float -> Float -> Float -> TCMod
+testdata/performance/SampleMaterial.lc 195:43-195:59
+    Float -> Float -> TCMod
+testdata/performance/SampleMaterial.lc 195:43-195:63
+    Float -> TCMod
+testdata/performance/SampleMaterial.lc 195:43-195:67
+    TCMod
+testdata/performance/SampleMaterial.lc 195:43-195:86
+    List TCMod
+testdata/performance/SampleMaterial.lc 195:51-195:54
+    Float
+testdata/performance/SampleMaterial.lc 195:55-195:59
+    Float
+testdata/performance/SampleMaterial.lc 195:60-195:63
+    Float
+testdata/performance/SampleMaterial.lc 195:64-195:67
+    Float
+testdata/performance/SampleMaterial.lc 195:70-195:78
+    Float -> Float -> TCMod
+testdata/performance/SampleMaterial.lc 195:70-195:82
+    Float -> TCMod
+testdata/performance/SampleMaterial.lc 195:70-195:86
+    TCMod | List TCMod
+testdata/performance/SampleMaterial.lc 195:79-195:82
+    Float
+testdata/performance/SampleMaterial.lc 195:83-195:86
+    Float
+testdata/performance/SampleMaterial.lc 196:31-196:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 196:31-196:66
+    StageTexture
+testdata/performance/SampleMaterial.lc 196:38-196:66
+    String
+testdata/performance/SampleMaterial.lc 197:34-197:38
+    Bool
+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-204:69  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-205:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 203:15-207:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-206:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 203:15-208:31
+    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
-testdata/performance/SampleMaterial.lc 203:15-212:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-213:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-215:18  StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-228:18  List StageAttrs
-testdata/performance/SampleMaterial.lc 204:29-204:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 204:29-204:69  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 204:34-204:69  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 204:36-204:46  Blending'
-testdata/performance/SampleMaterial.lc 204:49-204:67  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 205:30-205:42  RGBGen
-testdata/performance/SampleMaterial.lc 206:32-206:42  AlphaGen
-testdata/performance/SampleMaterial.lc 207:29-207:36  TCGen
-testdata/performance/SampleMaterial.lc 208:29-208:31  forall a . List a
-testdata/performance/SampleMaterial.lc 209:31-209:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 209:31-209:81  StageTexture
-testdata/performance/SampleMaterial.lc 209:38-209:81  String
-testdata/performance/SampleMaterial.lc 210:34-210:39  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 203:15-212:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-213:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-215:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-228:18
+    List StageAttrs
+testdata/performance/SampleMaterial.lc 204:29-204:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 204:29-204:69
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 204:34-204:69
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 204:36-204:46
+    Blending'
+testdata/performance/SampleMaterial.lc 204:49-204:67
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 205:30-205:42
+    RGBGen
+testdata/performance/SampleMaterial.lc 206:32-206:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 207:29-207:36
+    TCGen
+testdata/performance/SampleMaterial.lc 208:29-208:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 209:31-209:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 209:31-209:81
+    StageTexture
+testdata/performance/SampleMaterial.lc 209:38-209:81
+    String
+testdata/performance/SampleMaterial.lc 210:34-210:39
+    Bool
+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-217:69  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-218:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 216:15-220:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-219:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 216:15-221:31
+    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
-testdata/performance/SampleMaterial.lc 216:15-225:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-226:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-228:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 217:29-217:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 217:29-217:69  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 217:34-217:69  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 217:36-217:46  Blending'
-testdata/performance/SampleMaterial.lc 217:49-217:67  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 218:30-218:42  RGBGen
-testdata/performance/SampleMaterial.lc 219:32-219:42  AlphaGen
-testdata/performance/SampleMaterial.lc 220:29-220:40  TCGen
-testdata/performance/SampleMaterial.lc 221:29-221:31  forall a . List a
-testdata/performance/SampleMaterial.lc 222:31-222:42  StageTexture
-testdata/performance/SampleMaterial.lc 223:34-223:39  Bool
-testdata/performance/SampleMaterial.lc 224:33-224:41  DepthFunction
-testdata/performance/SampleMaterial.lc 225:33-225:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 226:41-226:46  Bool
-testdata/performance/SampleMaterial.lc 227:38-227:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 216:15-225:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-226:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-228:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 217:29-217:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 217:29-217:69
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 217:34-217:69
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 217:36-217:46
+    Blending'
+testdata/performance/SampleMaterial.lc 217:49-217:67
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 218:30-218:42
+    RGBGen
+testdata/performance/SampleMaterial.lc 219:32-219:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 220:29-220:40
+    TCGen
+testdata/performance/SampleMaterial.lc 221:29-221:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 222:31-222:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 223:34-223:39
+    Bool
+testdata/performance/SampleMaterial.lc 224:33-224:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 225:33-225:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 226:41-226:46
+    Bool
+testdata/performance/SampleMaterial.lc 227:38-227:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 234:7-242:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 234:7-243:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 234:7-244:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 234:7-272:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 234:7-274:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 235:24-235:26  ()
-testdata/performance/SampleMaterial.lc 236:24-236:26  ()
-testdata/performance/SampleMaterial.lc 237:22-237:27  Bool
-testdata/performance/SampleMaterial.lc 238:20-238:21  _b
-testdata/performance/SampleMaterial.lc 239:30-239:35  Bool
-testdata/performance/SampleMaterial.lc 240:23-240:28  Bool
-testdata/performance/SampleMaterial.lc 241:20-241:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 234:7-242:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-243:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-244:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-272:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-274:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 235:24-235:26
+    ()
+testdata/performance/SampleMaterial.lc 236:24-236:26
+    ()
+testdata/performance/SampleMaterial.lc 237:22-237:27
+    Bool
+testdata/performance/SampleMaterial.lc 238:20-238:21
+    _b
+testdata/performance/SampleMaterial.lc 239:30-239:35
+    Bool
+testdata/performance/SampleMaterial.lc 240:23-240:28
+    Bool
+testdata/performance/SampleMaterial.lc 241:20-241:33
+    CullType
+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-247:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-248:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 246:15-250:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-249:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 246:15-251:31
+    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
-testdata/performance/SampleMaterial.lc 246:15-255:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-256:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-258:18  StageAttrs
-testdata/performance/SampleMaterial.lc 247:29-247:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 248:30-248:50  RGBGen
-testdata/performance/SampleMaterial.lc 249:32-249:42  AlphaGen
-testdata/performance/SampleMaterial.lc 250:29-250:36  TCGen
-testdata/performance/SampleMaterial.lc 251:29-251:31  forall a . List a
-testdata/performance/SampleMaterial.lc 252:31-252:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 252:31-252:71  StageTexture
-testdata/performance/SampleMaterial.lc 252:38-252:71  String
-testdata/performance/SampleMaterial.lc 253:34-253:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 246:15-255:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-256:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-258:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 247:29-247:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 248:30-248:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 249:32-249:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 250:29-250:36
+    TCGen
+testdata/performance/SampleMaterial.lc 251:29-251:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 252:31-252:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 252:31-252:71
+    StageTexture
+testdata/performance/SampleMaterial.lc 252:38-252:71
+    String
+testdata/performance/SampleMaterial.lc 253:34-253:38
+    Bool
+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-260:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-261:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 259:15-263:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-262:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 259:15-264:31
+    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
-testdata/performance/SampleMaterial.lc 259:15-268:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-269:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-271:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 260:29-260:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 260:29-260:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 260:34-260:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 260:36-260:46  Blending'
-testdata/performance/SampleMaterial.lc 260:49-260:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 261:30-261:50  RGBGen
-testdata/performance/SampleMaterial.lc 262:32-262:42  AlphaGen
-testdata/performance/SampleMaterial.lc 263:29-263:40  TCGen
-testdata/performance/SampleMaterial.lc 264:29-264:31  forall a . List a
-testdata/performance/SampleMaterial.lc 265:31-265:42  StageTexture
-testdata/performance/SampleMaterial.lc 266:34-266:38  Bool
-testdata/performance/SampleMaterial.lc 267:33-267:41  DepthFunction
-testdata/performance/SampleMaterial.lc 268:33-268:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 269:41-269:46  Bool
-testdata/performance/SampleMaterial.lc 270:38-270:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 259:15-268:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-269:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-271:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 260:29-260:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 260:29-260:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 260:34-260:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 260:36-260:46
+    Blending'
+testdata/performance/SampleMaterial.lc 260:49-260:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 261:30-261:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 262:32-262:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 263:29-263:40
+    TCGen
+testdata/performance/SampleMaterial.lc 264:29-264:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 265:31-265:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 266:34-266:38
+    Bool
+testdata/performance/SampleMaterial.lc 267:33-267:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 268:33-268:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 269:41-269:46
+    Bool
+testdata/performance/SampleMaterial.lc 270:38-270:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 277:7-285:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 277:7-286:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 277:7-287:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 277:7-315:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 277:7-317:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 278:24-278:26  ()
-testdata/performance/SampleMaterial.lc 279:24-279:26  ()
-testdata/performance/SampleMaterial.lc 280:22-280:27  Bool
-testdata/performance/SampleMaterial.lc 281:20-281:21  _b
-testdata/performance/SampleMaterial.lc 282:30-282:35  Bool
-testdata/performance/SampleMaterial.lc 283:23-283:28  Bool
-testdata/performance/SampleMaterial.lc 284:20-284:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 277:7-285:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-286:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-287:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-315:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-317:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 278:24-278:26
+    ()
+testdata/performance/SampleMaterial.lc 279:24-279:26
+    ()
+testdata/performance/SampleMaterial.lc 280:22-280:27
+    Bool
+testdata/performance/SampleMaterial.lc 281:20-281:21
+    _b
+testdata/performance/SampleMaterial.lc 282:30-282:35
+    Bool
+testdata/performance/SampleMaterial.lc 283:23-283:28
+    Bool
+testdata/performance/SampleMaterial.lc 284:20-284:33
+    CullType
+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-290:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-291:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 289:15-293:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-292:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 289:15-294:31
+    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
-testdata/performance/SampleMaterial.lc 289:15-298:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-299:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-301:18  StageAttrs
-testdata/performance/SampleMaterial.lc 290:29-290:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 291:30-291:50  RGBGen
-testdata/performance/SampleMaterial.lc 292:32-292:42  AlphaGen
-testdata/performance/SampleMaterial.lc 293:29-293:36  TCGen
-testdata/performance/SampleMaterial.lc 294:29-294:31  forall a . List a
-testdata/performance/SampleMaterial.lc 295:31-295:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 295:31-295:73  StageTexture
-testdata/performance/SampleMaterial.lc 295:38-295:73  String
-testdata/performance/SampleMaterial.lc 296:34-296:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 289:15-298:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-299:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-301:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 290:29-290:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 291:30-291:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 292:32-292:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 293:29-293:36
+    TCGen
+testdata/performance/SampleMaterial.lc 294:29-294:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 295:31-295:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 295:31-295:73
+    StageTexture
+testdata/performance/SampleMaterial.lc 295:38-295:73
+    String
+testdata/performance/SampleMaterial.lc 296:34-296:38
+    Bool
+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-303:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-304:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 302:15-306:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-305:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 302:15-307:31
+    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
-testdata/performance/SampleMaterial.lc 302:15-311:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-312:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-314:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 303:29-303:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 303:29-303:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 303:34-303:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 303:36-303:46  Blending'
-testdata/performance/SampleMaterial.lc 303:49-303:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 304:30-304:50  RGBGen
-testdata/performance/SampleMaterial.lc 305:32-305:42  AlphaGen
-testdata/performance/SampleMaterial.lc 306:29-306:40  TCGen
-testdata/performance/SampleMaterial.lc 307:29-307:31  forall a . List a
-testdata/performance/SampleMaterial.lc 308:31-308:42  StageTexture
-testdata/performance/SampleMaterial.lc 309:34-309:38  Bool
-testdata/performance/SampleMaterial.lc 310:33-310:41  DepthFunction
-testdata/performance/SampleMaterial.lc 311:33-311:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 312:41-312:46  Bool
-testdata/performance/SampleMaterial.lc 313:38-313:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 302:15-311:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-312:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-314:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 303:29-303:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 303:29-303:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 303:34-303:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 303:36-303:46
+    Blending'
+testdata/performance/SampleMaterial.lc 303:49-303:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 304:30-304:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 305:32-305:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 306:29-306:40
+    TCGen
+testdata/performance/SampleMaterial.lc 307:29-307:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 308:31-308:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 309:34-309:38
+    Bool
+testdata/performance/SampleMaterial.lc 310:33-310:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 311:33-311:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 312:41-312:46
+    Bool
+testdata/performance/SampleMaterial.lc 313:38-313:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 320:7-328:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 320:7-329:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 320:7-330:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 320:7-358:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 320:7-360:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 321:24-321:26  ()
-testdata/performance/SampleMaterial.lc 322:24-322:26  ()
-testdata/performance/SampleMaterial.lc 323:22-323:27  Bool
-testdata/performance/SampleMaterial.lc 324:20-324:21  _b
-testdata/performance/SampleMaterial.lc 325:30-325:35  Bool
-testdata/performance/SampleMaterial.lc 326:23-326:28  Bool
-testdata/performance/SampleMaterial.lc 327:20-327:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 320:7-328:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-329:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-330:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-358:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-360:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 321:24-321:26
+    ()
+testdata/performance/SampleMaterial.lc 322:24-322:26
+    ()
+testdata/performance/SampleMaterial.lc 323:22-323:27
+    Bool
+testdata/performance/SampleMaterial.lc 324:20-324:21
+    _b
+testdata/performance/SampleMaterial.lc 325:30-325:35
+    Bool
+testdata/performance/SampleMaterial.lc 326:23-326:28
+    Bool
+testdata/performance/SampleMaterial.lc 327:20-327:33
+    CullType
+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-333:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-334:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 332:15-336:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-335:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 332:15-337:31
+    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
-testdata/performance/SampleMaterial.lc 332:15-341:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-342:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-344:18  StageAttrs
-testdata/performance/SampleMaterial.lc 333:29-333:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 334:30-334:50  RGBGen
-testdata/performance/SampleMaterial.lc 335:32-335:42  AlphaGen
-testdata/performance/SampleMaterial.lc 336:29-336:36  TCGen
-testdata/performance/SampleMaterial.lc 337:29-337:31  forall a . List a
-testdata/performance/SampleMaterial.lc 338:31-338:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 338:31-338:74  StageTexture
-testdata/performance/SampleMaterial.lc 338:38-338:74  String
-testdata/performance/SampleMaterial.lc 339:34-339:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 332:15-341:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-342:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-344:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 333:29-333:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 334:30-334:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 335:32-335:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 336:29-336:36
+    TCGen
+testdata/performance/SampleMaterial.lc 337:29-337:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 338:31-338:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 338:31-338:74
+    StageTexture
+testdata/performance/SampleMaterial.lc 338:38-338:74
+    String
+testdata/performance/SampleMaterial.lc 339:34-339:38
+    Bool
+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-346:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-347:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 345:15-349:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-348:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 345:15-350:31
+    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
-testdata/performance/SampleMaterial.lc 345:15-354:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-355:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-357:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 346:29-346:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 346:29-346:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 346:34-346:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 346:36-346:46  Blending'
-testdata/performance/SampleMaterial.lc 346:49-346:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 347:30-347:50  RGBGen
-testdata/performance/SampleMaterial.lc 348:32-348:42  AlphaGen
-testdata/performance/SampleMaterial.lc 349:29-349:40  TCGen
-testdata/performance/SampleMaterial.lc 350:29-350:31  forall a . List a
-testdata/performance/SampleMaterial.lc 351:31-351:42  StageTexture
-testdata/performance/SampleMaterial.lc 352:34-352:38  Bool
-testdata/performance/SampleMaterial.lc 353:33-353:41  DepthFunction
-testdata/performance/SampleMaterial.lc 354:33-354:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 355:41-355:46  Bool
-testdata/performance/SampleMaterial.lc 356:38-356:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 345:15-354:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-355:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-357:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 346:29-346:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 346:29-346:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 346:34-346:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 346:36-346:46
+    Blending'
+testdata/performance/SampleMaterial.lc 346:49-346:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 347:30-347:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 348:32-348:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 349:29-349:40
+    TCGen
+testdata/performance/SampleMaterial.lc 350:29-350:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 351:31-351:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 352:34-352:38
+    Bool
+testdata/performance/SampleMaterial.lc 353:33-353:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 354:33-354:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 355:41-355:46
+    Bool
+testdata/performance/SampleMaterial.lc 356:38-356:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 363:7-371:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 363:7-372:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 363:7-373:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 363:7-401:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 363:7-403:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 364:24-364:26  ()
-testdata/performance/SampleMaterial.lc 365:24-365:26  ()
-testdata/performance/SampleMaterial.lc 366:22-366:27  Bool
-testdata/performance/SampleMaterial.lc 367:20-367:21  _b
-testdata/performance/SampleMaterial.lc 368:30-368:35  Bool
-testdata/performance/SampleMaterial.lc 369:23-369:28  Bool
-testdata/performance/SampleMaterial.lc 370:20-370:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 363:7-371:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-372:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-373:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-401:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-403:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 364:24-364:26
+    ()
+testdata/performance/SampleMaterial.lc 365:24-365:26
+    ()
+testdata/performance/SampleMaterial.lc 366:22-366:27
+    Bool
+testdata/performance/SampleMaterial.lc 367:20-367:21
+    _b
+testdata/performance/SampleMaterial.lc 368:30-368:35
+    Bool
+testdata/performance/SampleMaterial.lc 369:23-369:28
+    Bool
+testdata/performance/SampleMaterial.lc 370:20-370:33
+    CullType
+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-376:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-377:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 375:15-379:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-378:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 375:15-380:31
+    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
-testdata/performance/SampleMaterial.lc 375:15-384:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-385:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-387:18  StageAttrs
-testdata/performance/SampleMaterial.lc 376:29-376:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 377:30-377:50  RGBGen
-testdata/performance/SampleMaterial.lc 378:32-378:42  AlphaGen
-testdata/performance/SampleMaterial.lc 379:29-379:36  TCGen
-testdata/performance/SampleMaterial.lc 380:29-380:31  forall a . List a
-testdata/performance/SampleMaterial.lc 381:31-381:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 381:31-381:84  StageTexture
-testdata/performance/SampleMaterial.lc 381:38-381:84  String
-testdata/performance/SampleMaterial.lc 382:34-382:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 375:15-384:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-385:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-387:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 376:29-376:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 377:30-377:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 378:32-378:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 379:29-379:36
+    TCGen
+testdata/performance/SampleMaterial.lc 380:29-380:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 381:31-381:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 381:31-381:84
+    StageTexture
+testdata/performance/SampleMaterial.lc 381:38-381:84
+    String
+testdata/performance/SampleMaterial.lc 382:34-382:38
+    Bool
+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-389:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-390:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 388:15-392:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-391:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 388:15-393:31
+    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
-testdata/performance/SampleMaterial.lc 388:15-397:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-398:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-400:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 389:29-389:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 389:29-389:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 389:34-389:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 389:36-389:46  Blending'
-testdata/performance/SampleMaterial.lc 389:49-389:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 390:30-390:50  RGBGen
-testdata/performance/SampleMaterial.lc 391:32-391:42  AlphaGen
-testdata/performance/SampleMaterial.lc 392:29-392:40  TCGen
-testdata/performance/SampleMaterial.lc 393:29-393:31  forall a . List a
-testdata/performance/SampleMaterial.lc 394:31-394:42  StageTexture
-testdata/performance/SampleMaterial.lc 395:34-395:38  Bool
-testdata/performance/SampleMaterial.lc 396:33-396:41  DepthFunction
-testdata/performance/SampleMaterial.lc 397:33-397:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 398:41-398:46  Bool
-testdata/performance/SampleMaterial.lc 399:38-399:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 388:15-397:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-398:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-400:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 389:29-389:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 389:29-389:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 389:34-389:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 389:36-389:46
+    Blending'
+testdata/performance/SampleMaterial.lc 389:49-389:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 390:30-390:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 391:32-391:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 392:29-392:40
+    TCGen
+testdata/performance/SampleMaterial.lc 393:29-393:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 394:31-394:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 395:34-395:38
+    Bool
+testdata/performance/SampleMaterial.lc 396:33-396:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 397:33-397:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 398:41-398:46
+    Bool
+testdata/performance/SampleMaterial.lc 399:38-399:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 406:7-414:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 406:7-415:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 406:7-416:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 406:7-444:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 406:7-446:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 407:24-407:26  ()
-testdata/performance/SampleMaterial.lc 408:24-408:26  ()
-testdata/performance/SampleMaterial.lc 409:22-409:27  Bool
-testdata/performance/SampleMaterial.lc 410:20-410:21  _b
-testdata/performance/SampleMaterial.lc 411:30-411:35  Bool
-testdata/performance/SampleMaterial.lc 412:23-412:28  Bool
-testdata/performance/SampleMaterial.lc 413:20-413:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 406:7-414:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-415:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-416:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-444:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-446:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 407:24-407:26
+    ()
+testdata/performance/SampleMaterial.lc 408:24-408:26
+    ()
+testdata/performance/SampleMaterial.lc 409:22-409:27
+    Bool
+testdata/performance/SampleMaterial.lc 410:20-410:21
+    _b
+testdata/performance/SampleMaterial.lc 411:30-411:35
+    Bool
+testdata/performance/SampleMaterial.lc 412:23-412:28
+    Bool
+testdata/performance/SampleMaterial.lc 413:20-413:33
+    CullType
+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-419:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-420:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 418:15-422:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-421:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 418:15-423:31
+    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
-testdata/performance/SampleMaterial.lc 418:15-427:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-428:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-430:18  StageAttrs
-testdata/performance/SampleMaterial.lc 419:29-419:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 420:30-420:50  RGBGen
-testdata/performance/SampleMaterial.lc 421:32-421:42  AlphaGen
-testdata/performance/SampleMaterial.lc 422:29-422:36  TCGen
-testdata/performance/SampleMaterial.lc 423:29-423:31  forall a . List a
-testdata/performance/SampleMaterial.lc 424:31-424:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 424:31-424:84  StageTexture
-testdata/performance/SampleMaterial.lc 424:38-424:84  String
-testdata/performance/SampleMaterial.lc 425:34-425:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 418:15-427:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-428:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-430:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 419:29-419:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 420:30-420:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 421:32-421:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 422:29-422:36
+    TCGen
+testdata/performance/SampleMaterial.lc 423:29-423:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 424:31-424:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 424:31-424:84
+    StageTexture
+testdata/performance/SampleMaterial.lc 424:38-424:84
+    String
+testdata/performance/SampleMaterial.lc 425:34-425:38
+    Bool
+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-432:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-433:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 431:15-435:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-434:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 431:15-436:31
+    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
-testdata/performance/SampleMaterial.lc 431:15-440:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-441:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-443:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 432:29-432:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 432:29-432:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 432:34-432:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 432:36-432:46  Blending'
-testdata/performance/SampleMaterial.lc 432:49-432:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 433:30-433:50  RGBGen
-testdata/performance/SampleMaterial.lc 434:32-434:42  AlphaGen
-testdata/performance/SampleMaterial.lc 435:29-435:40  TCGen
-testdata/performance/SampleMaterial.lc 436:29-436:31  forall a . List a
-testdata/performance/SampleMaterial.lc 437:31-437:42  StageTexture
-testdata/performance/SampleMaterial.lc 438:34-438:38  Bool
-testdata/performance/SampleMaterial.lc 439:33-439:41  DepthFunction
-testdata/performance/SampleMaterial.lc 440:33-440:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 441:41-441:46  Bool
-testdata/performance/SampleMaterial.lc 442:38-442:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 431:15-440:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-441:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-443:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 432:29-432:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 432:29-432:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 432:34-432:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 432:36-432:46
+    Blending'
+testdata/performance/SampleMaterial.lc 432:49-432:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 433:30-433:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 434:32-434:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 435:29-435:40
+    TCGen
+testdata/performance/SampleMaterial.lc 436:29-436:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 437:31-437:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 438:34-438:38
+    Bool
+testdata/performance/SampleMaterial.lc 439:33-439:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 440:33-440:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 441:41-441:46
+    Bool
+testdata/performance/SampleMaterial.lc 442:38-442:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 449:7-457:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 449:7-458:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 449:7-459:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 449:7-487:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 449:7-489:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 450:24-450:26  ()
-testdata/performance/SampleMaterial.lc 451:24-451:26  ()
-testdata/performance/SampleMaterial.lc 452:22-452:27  Bool
-testdata/performance/SampleMaterial.lc 453:20-453:21  _b
-testdata/performance/SampleMaterial.lc 454:30-454:35  Bool
-testdata/performance/SampleMaterial.lc 455:23-455:28  Bool
-testdata/performance/SampleMaterial.lc 456:20-456:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 449:7-457:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-458:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-459:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-487:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-489:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 450:24-450:26
+    ()
+testdata/performance/SampleMaterial.lc 451:24-451:26
+    ()
+testdata/performance/SampleMaterial.lc 452:22-452:27
+    Bool
+testdata/performance/SampleMaterial.lc 453:20-453:21
+    _b
+testdata/performance/SampleMaterial.lc 454:30-454:35
+    Bool
+testdata/performance/SampleMaterial.lc 455:23-455:28
+    Bool
+testdata/performance/SampleMaterial.lc 456:20-456:33
+    CullType
+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-462:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-463:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 461:15-465:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-464:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 461:15-466:31
+    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
-testdata/performance/SampleMaterial.lc 461:15-470:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-471:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-473:18  StageAttrs
-testdata/performance/SampleMaterial.lc 462:29-462:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 463:30-463:50  RGBGen
-testdata/performance/SampleMaterial.lc 464:32-464:42  AlphaGen
-testdata/performance/SampleMaterial.lc 465:29-465:36  TCGen
-testdata/performance/SampleMaterial.lc 466:29-466:31  forall a . List a
-testdata/performance/SampleMaterial.lc 467:31-467:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 467:31-467:84  StageTexture
-testdata/performance/SampleMaterial.lc 467:38-467:84  String
-testdata/performance/SampleMaterial.lc 468:34-468:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 461:15-470:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-471:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-473:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 462:29-462:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 463:30-463:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 464:32-464:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 465:29-465:36
+    TCGen
+testdata/performance/SampleMaterial.lc 466:29-466:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 467:31-467:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 467:31-467:84
+    StageTexture
+testdata/performance/SampleMaterial.lc 467:38-467:84
+    String
+testdata/performance/SampleMaterial.lc 468:34-468:38
+    Bool
+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-475:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-476:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 474:15-478:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-477:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 474:15-479:31
+    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
-testdata/performance/SampleMaterial.lc 474:15-483:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-484:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-486:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 475:29-475:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 475:29-475:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 475:34-475:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 475:36-475:46  Blending'
-testdata/performance/SampleMaterial.lc 475:49-475:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 476:30-476:50  RGBGen
-testdata/performance/SampleMaterial.lc 477:32-477:42  AlphaGen
-testdata/performance/SampleMaterial.lc 478:29-478:40  TCGen
-testdata/performance/SampleMaterial.lc 479:29-479:31  forall a . List a
-testdata/performance/SampleMaterial.lc 480:31-480:42  StageTexture
-testdata/performance/SampleMaterial.lc 481:34-481:38  Bool
-testdata/performance/SampleMaterial.lc 482:33-482:41  DepthFunction
-testdata/performance/SampleMaterial.lc 483:33-483:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 484:41-484:46  Bool
-testdata/performance/SampleMaterial.lc 485:38-485:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 474:15-483:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-484:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-486:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 475:29-475:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 475:29-475:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 475:34-475:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 475:36-475:46
+    Blending'
+testdata/performance/SampleMaterial.lc 475:49-475:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 476:30-476:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 477:32-477:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 478:29-478:40
+    TCGen
+testdata/performance/SampleMaterial.lc 479:29-479:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 480:31-480:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 481:34-481:38
+    Bool
+testdata/performance/SampleMaterial.lc 482:33-482:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 483:33-483:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 484:41-484:46
+    Bool
+testdata/performance/SampleMaterial.lc 485:38-485:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 492:7-500:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 492:7-501:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 492:7-502:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 492:7-530:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 492:7-532:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 493:24-493:26  ()
-testdata/performance/SampleMaterial.lc 494:24-494:26  ()
-testdata/performance/SampleMaterial.lc 495:22-495:27  Bool
-testdata/performance/SampleMaterial.lc 496:20-496:21  _b
-testdata/performance/SampleMaterial.lc 497:30-497:35  Bool
-testdata/performance/SampleMaterial.lc 498:23-498:28  Bool
-testdata/performance/SampleMaterial.lc 499:20-499:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 492:7-500:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-501:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-502:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-530:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-532:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 493:24-493:26
+    ()
+testdata/performance/SampleMaterial.lc 494:24-494:26
+    ()
+testdata/performance/SampleMaterial.lc 495:22-495:27
+    Bool
+testdata/performance/SampleMaterial.lc 496:20-496:21
+    _b
+testdata/performance/SampleMaterial.lc 497:30-497:35
+    Bool
+testdata/performance/SampleMaterial.lc 498:23-498:28
+    Bool
+testdata/performance/SampleMaterial.lc 499:20-499:33
+    CullType
+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-505:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-506:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 504:15-508:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-507:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 504:15-509:31
+    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
-testdata/performance/SampleMaterial.lc 504:15-513:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-514:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-516:18  StageAttrs
-testdata/performance/SampleMaterial.lc 505:29-505:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 506:30-506:50  RGBGen
-testdata/performance/SampleMaterial.lc 507:32-507:42  AlphaGen
-testdata/performance/SampleMaterial.lc 508:29-508:36  TCGen
-testdata/performance/SampleMaterial.lc 509:29-509:31  forall a . List a
-testdata/performance/SampleMaterial.lc 510:31-510:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 510:31-510:84  StageTexture
-testdata/performance/SampleMaterial.lc 510:38-510:84  String
-testdata/performance/SampleMaterial.lc 511:34-511:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 504:15-513:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-514:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-516:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 505:29-505:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 506:30-506:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 507:32-507:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 508:29-508:36
+    TCGen
+testdata/performance/SampleMaterial.lc 509:29-509:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 510:31-510:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 510:31-510:84
+    StageTexture
+testdata/performance/SampleMaterial.lc 510:38-510:84
+    String
+testdata/performance/SampleMaterial.lc 511:34-511:38
+    Bool
+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-518:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-519:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 517:15-521:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-520:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 517:15-522:31
+    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
-testdata/performance/SampleMaterial.lc 517:15-526:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-527:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-529:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 518:29-518:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 518:29-518:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 518:34-518:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 518:36-518:46  Blending'
-testdata/performance/SampleMaterial.lc 518:49-518:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 519:30-519:50  RGBGen
-testdata/performance/SampleMaterial.lc 520:32-520:42  AlphaGen
-testdata/performance/SampleMaterial.lc 521:29-521:40  TCGen
-testdata/performance/SampleMaterial.lc 522:29-522:31  forall a . List a
-testdata/performance/SampleMaterial.lc 523:31-523:42  StageTexture
-testdata/performance/SampleMaterial.lc 524:34-524:38  Bool
-testdata/performance/SampleMaterial.lc 525:33-525:41  DepthFunction
-testdata/performance/SampleMaterial.lc 526:33-526:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 527:41-527:46  Bool
-testdata/performance/SampleMaterial.lc 528:38-528:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 517:15-526:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-527:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-529:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 518:29-518:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 518:29-518:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 518:34-518:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 518:36-518:46
+    Blending'
+testdata/performance/SampleMaterial.lc 518:49-518:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 519:30-519:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 520:32-520:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 521:29-521:40
+    TCGen
+testdata/performance/SampleMaterial.lc 522:29-522:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 523:31-523:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 524:34-524:38
+    Bool
+testdata/performance/SampleMaterial.lc 525:33-525:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 526:33-526:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 527:41-527:46
+    Bool
+testdata/performance/SampleMaterial.lc 528:38-528:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 535:7-543:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 535:7-544:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 535:7-545:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 535:7-573:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 535:7-575:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 536:24-536:26  ()
-testdata/performance/SampleMaterial.lc 537:24-537:26  ()
-testdata/performance/SampleMaterial.lc 538:22-538:27  Bool
-testdata/performance/SampleMaterial.lc 539:20-539:21  _b
-testdata/performance/SampleMaterial.lc 540:30-540:35  Bool
-testdata/performance/SampleMaterial.lc 541:23-541:28  Bool
-testdata/performance/SampleMaterial.lc 542:20-542:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 535:7-543:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-544:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-545:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-573:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-575:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 536:24-536:26
+    ()
+testdata/performance/SampleMaterial.lc 537:24-537:26
+    ()
+testdata/performance/SampleMaterial.lc 538:22-538:27
+    Bool
+testdata/performance/SampleMaterial.lc 539:20-539:21
+    _b
+testdata/performance/SampleMaterial.lc 540:30-540:35
+    Bool
+testdata/performance/SampleMaterial.lc 541:23-541:28
+    Bool
+testdata/performance/SampleMaterial.lc 542:20-542:33
+    CullType
+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-548:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-549:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 547:15-551:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-550:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 547:15-552:31
+    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
-testdata/performance/SampleMaterial.lc 547:15-556:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-557:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-559:18  StageAttrs
-testdata/performance/SampleMaterial.lc 548:29-548:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 549:30-549:50  RGBGen
-testdata/performance/SampleMaterial.lc 550:32-550:42  AlphaGen
-testdata/performance/SampleMaterial.lc 551:29-551:36  TCGen
-testdata/performance/SampleMaterial.lc 552:29-552:31  forall a . List a
-testdata/performance/SampleMaterial.lc 553:31-553:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 553:31-553:73  StageTexture
-testdata/performance/SampleMaterial.lc 553:38-553:73  String
-testdata/performance/SampleMaterial.lc 554:34-554:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 547:15-556:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-557:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-559:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 548:29-548:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 549:30-549:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 550:32-550:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 551:29-551:36
+    TCGen
+testdata/performance/SampleMaterial.lc 552:29-552:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 553:31-553:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 553:31-553:73
+    StageTexture
+testdata/performance/SampleMaterial.lc 553:38-553:73
+    String
+testdata/performance/SampleMaterial.lc 554:34-554:38
+    Bool
+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-561:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-562:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 560:15-564:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-563:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 560:15-565:31
+    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
-testdata/performance/SampleMaterial.lc 560:15-569:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-570:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-572:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 561:29-561:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 561:29-561:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 561:34-561:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 561:36-561:46  Blending'
-testdata/performance/SampleMaterial.lc 561:49-561:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 562:30-562:50  RGBGen
-testdata/performance/SampleMaterial.lc 563:32-563:42  AlphaGen
-testdata/performance/SampleMaterial.lc 564:29-564:40  TCGen
-testdata/performance/SampleMaterial.lc 565:29-565:31  forall a . List a
-testdata/performance/SampleMaterial.lc 566:31-566:42  StageTexture
-testdata/performance/SampleMaterial.lc 567:34-567:38  Bool
-testdata/performance/SampleMaterial.lc 568:33-568:41  DepthFunction
-testdata/performance/SampleMaterial.lc 569:33-569:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 570:41-570:46  Bool
-testdata/performance/SampleMaterial.lc 571:38-571:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 560:15-569:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-570:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-572:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 561:29-561:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 561:29-561:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 561:34-561:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 561:36-561:46
+    Blending'
+testdata/performance/SampleMaterial.lc 561:49-561:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 562:30-562:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 563:32-563:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 564:29-564:40
+    TCGen
+testdata/performance/SampleMaterial.lc 565:29-565:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 566:31-566:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 567:34-567:38
+    Bool
+testdata/performance/SampleMaterial.lc 568:33-568:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 569:33-569:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 570:41-570:46
+    Bool
+testdata/performance/SampleMaterial.lc 571:38-571:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 578:7-586:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 578:7-587:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 578:7-588:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 578:7-616:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 578:7-618:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 579:24-579:26  ()
-testdata/performance/SampleMaterial.lc 580:24-580:26  ()
-testdata/performance/SampleMaterial.lc 581:22-581:27  Bool
-testdata/performance/SampleMaterial.lc 582:20-582:21  _b
-testdata/performance/SampleMaterial.lc 583:30-583:35  Bool
-testdata/performance/SampleMaterial.lc 584:23-584:28  Bool
-testdata/performance/SampleMaterial.lc 585:20-585:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 578:7-586:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-587:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-588:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-616:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-618:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 579:24-579:26
+    ()
+testdata/performance/SampleMaterial.lc 580:24-580:26
+    ()
+testdata/performance/SampleMaterial.lc 581:22-581:27
+    Bool
+testdata/performance/SampleMaterial.lc 582:20-582:21
+    _b
+testdata/performance/SampleMaterial.lc 583:30-583:35
+    Bool
+testdata/performance/SampleMaterial.lc 584:23-584:28
+    Bool
+testdata/performance/SampleMaterial.lc 585:20-585:33
+    CullType
+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-591:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-592:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 590:15-594:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-593:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 590:15-595:31
+    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
-testdata/performance/SampleMaterial.lc 590:15-599:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-600:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-602:18  StageAttrs
-testdata/performance/SampleMaterial.lc 591:29-591:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 592:30-592:50  RGBGen
-testdata/performance/SampleMaterial.lc 593:32-593:42  AlphaGen
-testdata/performance/SampleMaterial.lc 594:29-594:36  TCGen
-testdata/performance/SampleMaterial.lc 595:29-595:31  forall a . List a
-testdata/performance/SampleMaterial.lc 596:31-596:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 596:31-596:73  StageTexture
-testdata/performance/SampleMaterial.lc 596:38-596:73  String
-testdata/performance/SampleMaterial.lc 597:34-597:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 590:15-599:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-600:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-602:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 591:29-591:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 592:30-592:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 593:32-593:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 594:29-594:36
+    TCGen
+testdata/performance/SampleMaterial.lc 595:29-595:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 596:31-596:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 596:31-596:73
+    StageTexture
+testdata/performance/SampleMaterial.lc 596:38-596:73
+    String
+testdata/performance/SampleMaterial.lc 597:34-597:38
+    Bool
+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-604:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-605:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 603:15-607:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-606:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 603:15-608:31
+    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
-testdata/performance/SampleMaterial.lc 603:15-612:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-613:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-615:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 604:29-604:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 604:29-604:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 604:34-604:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 604:36-604:46  Blending'
-testdata/performance/SampleMaterial.lc 604:49-604:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 605:30-605:50  RGBGen
-testdata/performance/SampleMaterial.lc 606:32-606:42  AlphaGen
-testdata/performance/SampleMaterial.lc 607:29-607:40  TCGen
-testdata/performance/SampleMaterial.lc 608:29-608:31  forall a . List a
-testdata/performance/SampleMaterial.lc 609:31-609:42  StageTexture
-testdata/performance/SampleMaterial.lc 610:34-610:38  Bool
-testdata/performance/SampleMaterial.lc 611:33-611:41  DepthFunction
-testdata/performance/SampleMaterial.lc 612:33-612:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 613:41-613:46  Bool
-testdata/performance/SampleMaterial.lc 614:38-614:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 603:15-612:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-613:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-615:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 604:29-604:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 604:29-604:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 604:34-604:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 604:36-604:46
+    Blending'
+testdata/performance/SampleMaterial.lc 604:49-604:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 605:30-605:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 606:32-606:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 607:29-607:40
+    TCGen
+testdata/performance/SampleMaterial.lc 608:29-608:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 609:31-609:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 610:34-610:38
+    Bool
+testdata/performance/SampleMaterial.lc 611:33-611:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 612:33-612:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 613:41-613:46
+    Bool
+testdata/performance/SampleMaterial.lc 614:38-614:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 621:7-629:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 621:7-630:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 621:7-631:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 621:7-659:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 621:7-661:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 622:24-622:26  ()
-testdata/performance/SampleMaterial.lc 623:24-623:26  ()
-testdata/performance/SampleMaterial.lc 624:22-624:27  Bool
-testdata/performance/SampleMaterial.lc 625:20-625:21  _b
-testdata/performance/SampleMaterial.lc 626:30-626:35  Bool
-testdata/performance/SampleMaterial.lc 627:23-627:28  Bool
-testdata/performance/SampleMaterial.lc 628:20-628:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 621:7-629:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-630:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-631:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-659:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-661:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 622:24-622:26
+    ()
+testdata/performance/SampleMaterial.lc 623:24-623:26
+    ()
+testdata/performance/SampleMaterial.lc 624:22-624:27
+    Bool
+testdata/performance/SampleMaterial.lc 625:20-625:21
+    _b
+testdata/performance/SampleMaterial.lc 626:30-626:35
+    Bool
+testdata/performance/SampleMaterial.lc 627:23-627:28
+    Bool
+testdata/performance/SampleMaterial.lc 628:20-628:33
+    CullType
+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-634:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-635:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 633:15-637:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-636:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 633:15-638:31
+    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
-testdata/performance/SampleMaterial.lc 633:15-642:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-643:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-645:18  StageAttrs
-testdata/performance/SampleMaterial.lc 634:29-634:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 635:30-635:50  RGBGen
-testdata/performance/SampleMaterial.lc 636:32-636:42  AlphaGen
-testdata/performance/SampleMaterial.lc 637:29-637:36  TCGen
-testdata/performance/SampleMaterial.lc 638:29-638:31  forall a . List a
-testdata/performance/SampleMaterial.lc 639:31-639:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 639:31-639:73  StageTexture
-testdata/performance/SampleMaterial.lc 639:38-639:73  String
-testdata/performance/SampleMaterial.lc 640:34-640:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 633:15-642:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-643:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-645:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 634:29-634:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 635:30-635:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 636:32-636:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 637:29-637:36
+    TCGen
+testdata/performance/SampleMaterial.lc 638:29-638:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 639:31-639:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 639:31-639:73
+    StageTexture
+testdata/performance/SampleMaterial.lc 639:38-639:73
+    String
+testdata/performance/SampleMaterial.lc 640:34-640:38
+    Bool
+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-647:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-648:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 646:15-650:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-649:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 646:15-651:31
+    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
-testdata/performance/SampleMaterial.lc 646:15-655:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-656:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-658:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 647:29-647:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 647:29-647:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 647:34-647:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 647:36-647:46  Blending'
-testdata/performance/SampleMaterial.lc 647:49-647:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 648:30-648:50  RGBGen
-testdata/performance/SampleMaterial.lc 649:32-649:42  AlphaGen
-testdata/performance/SampleMaterial.lc 650:29-650:40  TCGen
-testdata/performance/SampleMaterial.lc 651:29-651:31  forall a . List a
-testdata/performance/SampleMaterial.lc 652:31-652:42  StageTexture
-testdata/performance/SampleMaterial.lc 653:34-653:38  Bool
-testdata/performance/SampleMaterial.lc 654:33-654:41  DepthFunction
-testdata/performance/SampleMaterial.lc 655:33-655:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 656:41-656:46  Bool
-testdata/performance/SampleMaterial.lc 657:38-657:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 646:15-655:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-656:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-658:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 647:29-647:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 647:29-647:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 647:34-647:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 647:36-647:46
+    Blending'
+testdata/performance/SampleMaterial.lc 647:49-647:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 648:30-648:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 649:32-649:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 650:29-650:40
+    TCGen
+testdata/performance/SampleMaterial.lc 651:29-651:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 652:31-652:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 653:34-653:38
+    Bool
+testdata/performance/SampleMaterial.lc 654:33-654:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 655:33-655:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 656:41-656:46
+    Bool
+testdata/performance/SampleMaterial.lc 657:38-657:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 664:7-672:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 664:7-673:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 664:7-674:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 664:7-702:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 664:7-704:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 665:24-665:26  ()
-testdata/performance/SampleMaterial.lc 666:24-666:26  ()
-testdata/performance/SampleMaterial.lc 667:22-667:27  Bool
-testdata/performance/SampleMaterial.lc 668:20-668:21  _b
-testdata/performance/SampleMaterial.lc 669:30-669:35  Bool
-testdata/performance/SampleMaterial.lc 670:23-670:28  Bool
-testdata/performance/SampleMaterial.lc 671:20-671:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 664:7-672:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-673:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-674:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-702:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-704:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 665:24-665:26
+    ()
+testdata/performance/SampleMaterial.lc 666:24-666:26
+    ()
+testdata/performance/SampleMaterial.lc 667:22-667:27
+    Bool
+testdata/performance/SampleMaterial.lc 668:20-668:21
+    _b
+testdata/performance/SampleMaterial.lc 669:30-669:35
+    Bool
+testdata/performance/SampleMaterial.lc 670:23-670:28
+    Bool
+testdata/performance/SampleMaterial.lc 671:20-671:33
+    CullType
+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-677:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-678:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 676:15-680:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-679:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 676:15-681:31
+    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
-testdata/performance/SampleMaterial.lc 676:15-685:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-686:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-688:18  StageAttrs
-testdata/performance/SampleMaterial.lc 677:29-677:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 678:30-678:50  RGBGen
-testdata/performance/SampleMaterial.lc 679:32-679:42  AlphaGen
-testdata/performance/SampleMaterial.lc 680:29-680:36  TCGen
-testdata/performance/SampleMaterial.lc 681:29-681:31  forall a . List a
-testdata/performance/SampleMaterial.lc 682:31-682:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 682:31-682:73  StageTexture
-testdata/performance/SampleMaterial.lc 682:38-682:73  String
-testdata/performance/SampleMaterial.lc 683:34-683:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 676:15-685:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-686:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-688:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 677:29-677:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 678:30-678:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 679:32-679:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 680:29-680:36
+    TCGen
+testdata/performance/SampleMaterial.lc 681:29-681:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 682:31-682:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 682:31-682:73
+    StageTexture
+testdata/performance/SampleMaterial.lc 682:38-682:73
+    String
+testdata/performance/SampleMaterial.lc 683:34-683:38
+    Bool
+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-690:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-691:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 689:15-693:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-692:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 689:15-694:31
+    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
-testdata/performance/SampleMaterial.lc 689:15-698:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-699:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-701:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 690:29-690:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 690:29-690:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 690:34-690:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 690:36-690:46  Blending'
-testdata/performance/SampleMaterial.lc 690:49-690:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 691:30-691:50  RGBGen
-testdata/performance/SampleMaterial.lc 692:32-692:42  AlphaGen
-testdata/performance/SampleMaterial.lc 693:29-693:40  TCGen
-testdata/performance/SampleMaterial.lc 694:29-694:31  forall a . List a
-testdata/performance/SampleMaterial.lc 695:31-695:42  StageTexture
-testdata/performance/SampleMaterial.lc 696:34-696:38  Bool
-testdata/performance/SampleMaterial.lc 697:33-697:41  DepthFunction
-testdata/performance/SampleMaterial.lc 698:33-698:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 699:41-699:46  Bool
-testdata/performance/SampleMaterial.lc 700:38-700:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 689:15-698:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-699:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-701:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 690:29-690:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 690:29-690:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 690:34-690:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 690:36-690:46
+    Blending'
+testdata/performance/SampleMaterial.lc 690:49-690:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 691:30-691:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 692:32-692:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 693:29-693:40
+    TCGen
+testdata/performance/SampleMaterial.lc 694:29-694:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 695:31-695:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 696:34-696:38
+    Bool
+testdata/performance/SampleMaterial.lc 697:33-697:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 698:33-698:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 699:41-699:46
+    Bool
+testdata/performance/SampleMaterial.lc 700:38-700:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 707:7-715:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 707:7-716:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 707:7-717:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 707:7-745:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 707:7-747:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 708:24-708:26  ()
-testdata/performance/SampleMaterial.lc 709:24-709:26  ()
-testdata/performance/SampleMaterial.lc 710:22-710:27  Bool
-testdata/performance/SampleMaterial.lc 711:20-711:21  _b
-testdata/performance/SampleMaterial.lc 712:30-712:35  Bool
-testdata/performance/SampleMaterial.lc 713:23-713:28  Bool
-testdata/performance/SampleMaterial.lc 714:20-714:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 707:7-715:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-716:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-717:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-745:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-747:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 708:24-708:26
+    ()
+testdata/performance/SampleMaterial.lc 709:24-709:26
+    ()
+testdata/performance/SampleMaterial.lc 710:22-710:27
+    Bool
+testdata/performance/SampleMaterial.lc 711:20-711:21
+    _b
+testdata/performance/SampleMaterial.lc 712:30-712:35
+    Bool
+testdata/performance/SampleMaterial.lc 713:23-713:28
+    Bool
+testdata/performance/SampleMaterial.lc 714:20-714:33
+    CullType
+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-720:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-721:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 719:15-723:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-722:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 719:15-724:31
+    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
-testdata/performance/SampleMaterial.lc 719:15-728:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-729:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-731:18  StageAttrs
-testdata/performance/SampleMaterial.lc 720:29-720:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 721:30-721:50  RGBGen
-testdata/performance/SampleMaterial.lc 722:32-722:42  AlphaGen
-testdata/performance/SampleMaterial.lc 723:29-723:36  TCGen
-testdata/performance/SampleMaterial.lc 724:29-724:31  forall a . List a
-testdata/performance/SampleMaterial.lc 725:31-725:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 725:31-725:73  StageTexture
-testdata/performance/SampleMaterial.lc 725:38-725:73  String
-testdata/performance/SampleMaterial.lc 726:34-726:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 719:15-728:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-729:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-731:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 720:29-720:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 721:30-721:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 722:32-722:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 723:29-723:36
+    TCGen
+testdata/performance/SampleMaterial.lc 724:29-724:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 725:31-725:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 725:31-725:73
+    StageTexture
+testdata/performance/SampleMaterial.lc 725:38-725:73
+    String
+testdata/performance/SampleMaterial.lc 726:34-726:38
+    Bool
+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-733:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-734:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 732:15-736:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-735:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 732:15-737:31
+    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
-testdata/performance/SampleMaterial.lc 732:15-741:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-742:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-744:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 733:29-733:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 733:29-733:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 733:34-733:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 733:36-733:46  Blending'
-testdata/performance/SampleMaterial.lc 733:49-733:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 734:30-734:50  RGBGen
-testdata/performance/SampleMaterial.lc 735:32-735:42  AlphaGen
-testdata/performance/SampleMaterial.lc 736:29-736:40  TCGen
-testdata/performance/SampleMaterial.lc 737:29-737:31  forall a . List a
-testdata/performance/SampleMaterial.lc 738:31-738:42  StageTexture
-testdata/performance/SampleMaterial.lc 739:34-739:38  Bool
-testdata/performance/SampleMaterial.lc 740:33-740:41  DepthFunction
-testdata/performance/SampleMaterial.lc 741:33-741:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 742:41-742:46  Bool
-testdata/performance/SampleMaterial.lc 743:38-743:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 732:15-741:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-742:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-744:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 733:29-733:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 733:29-733:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 733:34-733:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 733:36-733:46
+    Blending'
+testdata/performance/SampleMaterial.lc 733:49-733:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 734:30-734:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 735:32-735:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 736:29-736:40
+    TCGen
+testdata/performance/SampleMaterial.lc 737:29-737:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 738:31-738:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 739:34-739:38
+    Bool
+testdata/performance/SampleMaterial.lc 740:33-740:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 741:33-741:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 742:41-742:46
+    Bool
+testdata/performance/SampleMaterial.lc 743:38-743:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 750:7-758:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 750:7-759:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 750:7-760:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 750:7-788:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 750:7-790:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 751:24-751:26  ()
-testdata/performance/SampleMaterial.lc 752:24-752:26  ()
-testdata/performance/SampleMaterial.lc 753:22-753:27  Bool
-testdata/performance/SampleMaterial.lc 754:20-754:21  _b
-testdata/performance/SampleMaterial.lc 755:30-755:35  Bool
-testdata/performance/SampleMaterial.lc 756:23-756:28  Bool
-testdata/performance/SampleMaterial.lc 757:20-757:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 750:7-758:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-759:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-760:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-788:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-790:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 751:24-751:26
+    ()
+testdata/performance/SampleMaterial.lc 752:24-752:26
+    ()
+testdata/performance/SampleMaterial.lc 753:22-753:27
+    Bool
+testdata/performance/SampleMaterial.lc 754:20-754:21
+    _b
+testdata/performance/SampleMaterial.lc 755:30-755:35
+    Bool
+testdata/performance/SampleMaterial.lc 756:23-756:28
+    Bool
+testdata/performance/SampleMaterial.lc 757:20-757:33
+    CullType
+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-763:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-764:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 762:15-766:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-765:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 762:15-767:31
+    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
-testdata/performance/SampleMaterial.lc 762:15-771:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-772:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-774:18  StageAttrs
-testdata/performance/SampleMaterial.lc 763:29-763:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 764:30-764:50  RGBGen
-testdata/performance/SampleMaterial.lc 765:32-765:42  AlphaGen
-testdata/performance/SampleMaterial.lc 766:29-766:36  TCGen
-testdata/performance/SampleMaterial.lc 767:29-767:31  forall a . List a
-testdata/performance/SampleMaterial.lc 768:31-768:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 768:31-768:73  StageTexture
-testdata/performance/SampleMaterial.lc 768:38-768:73  String
-testdata/performance/SampleMaterial.lc 769:34-769:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 762:15-771:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-772:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-774:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 763:29-763:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 764:30-764:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 765:32-765:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 766:29-766:36
+    TCGen
+testdata/performance/SampleMaterial.lc 767:29-767:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 768:31-768:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 768:31-768:73
+    StageTexture
+testdata/performance/SampleMaterial.lc 768:38-768:73
+    String
+testdata/performance/SampleMaterial.lc 769:34-769:38
+    Bool
+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-776:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-777:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 775:15-779:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-778:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 775:15-780:31
+    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
-testdata/performance/SampleMaterial.lc 775:15-784:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-785:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-787:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 776:29-776:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 776:29-776:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 776:34-776:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 776:36-776:46  Blending'
-testdata/performance/SampleMaterial.lc 776:49-776:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 777:30-777:50  RGBGen
-testdata/performance/SampleMaterial.lc 778:32-778:42  AlphaGen
-testdata/performance/SampleMaterial.lc 779:29-779:40  TCGen
-testdata/performance/SampleMaterial.lc 780:29-780:31  forall a . List a
-testdata/performance/SampleMaterial.lc 781:31-781:42  StageTexture
-testdata/performance/SampleMaterial.lc 782:34-782:38  Bool
-testdata/performance/SampleMaterial.lc 783:33-783:41  DepthFunction
-testdata/performance/SampleMaterial.lc 784:33-784:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 785:41-785:46  Bool
-testdata/performance/SampleMaterial.lc 786:38-786:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 775:15-784:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-785:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-787:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 776:29-776:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 776:29-776:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 776:34-776:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 776:36-776:46
+    Blending'
+testdata/performance/SampleMaterial.lc 776:49-776:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 777:30-777:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 778:32-778:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 779:29-779:40
+    TCGen
+testdata/performance/SampleMaterial.lc 780:29-780:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 781:31-781:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 782:34-782:38
+    Bool
+testdata/performance/SampleMaterial.lc 783:33-783:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 784:33-784:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 785:41-785:46
+    Bool
+testdata/performance/SampleMaterial.lc 786:38-786:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 793:7-801:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 793:7-802:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 793:7-803:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 793:7-831:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 793:7-833:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 794:24-794:26  ()
-testdata/performance/SampleMaterial.lc 795:24-795:26  ()
-testdata/performance/SampleMaterial.lc 796:22-796:27  Bool
-testdata/performance/SampleMaterial.lc 797:20-797:21  _b
-testdata/performance/SampleMaterial.lc 798:30-798:35  Bool
-testdata/performance/SampleMaterial.lc 799:23-799:28  Bool
-testdata/performance/SampleMaterial.lc 800:20-800:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 793:7-801:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-802:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-803:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-831:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-833:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 794:24-794:26
+    ()
+testdata/performance/SampleMaterial.lc 795:24-795:26
+    ()
+testdata/performance/SampleMaterial.lc 796:22-796:27
+    Bool
+testdata/performance/SampleMaterial.lc 797:20-797:21
+    _b
+testdata/performance/SampleMaterial.lc 798:30-798:35
+    Bool
+testdata/performance/SampleMaterial.lc 799:23-799:28
+    Bool
+testdata/performance/SampleMaterial.lc 800:20-800:33
+    CullType
+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-806:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-807:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 805:15-809:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-808:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 805:15-810:31
+    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
-testdata/performance/SampleMaterial.lc 805:15-814:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-815:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-817:18  StageAttrs
-testdata/performance/SampleMaterial.lc 806:29-806:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 807:30-807:50  RGBGen
-testdata/performance/SampleMaterial.lc 808:32-808:42  AlphaGen
-testdata/performance/SampleMaterial.lc 809:29-809:36  TCGen
-testdata/performance/SampleMaterial.lc 810:29-810:31  forall a . List a
-testdata/performance/SampleMaterial.lc 811:31-811:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 811:31-811:72  StageTexture
-testdata/performance/SampleMaterial.lc 811:38-811:72  String
-testdata/performance/SampleMaterial.lc 812:34-812:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 805:15-814:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-815:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-817:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 806:29-806:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 807:30-807:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 808:32-808:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 809:29-809:36
+    TCGen
+testdata/performance/SampleMaterial.lc 810:29-810:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 811:31-811:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 811:31-811:72
+    StageTexture
+testdata/performance/SampleMaterial.lc 811:38-811:72
+    String
+testdata/performance/SampleMaterial.lc 812:34-812:38
+    Bool
+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-819:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-820:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 818:15-822:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-821:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 818:15-823:31
+    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
-testdata/performance/SampleMaterial.lc 818:15-827:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-828:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-830:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 819:29-819:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 819:29-819:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 819:34-819:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 819:36-819:46  Blending'
-testdata/performance/SampleMaterial.lc 819:49-819:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 820:30-820:50  RGBGen
-testdata/performance/SampleMaterial.lc 821:32-821:42  AlphaGen
-testdata/performance/SampleMaterial.lc 822:29-822:40  TCGen
-testdata/performance/SampleMaterial.lc 823:29-823:31  forall a . List a
-testdata/performance/SampleMaterial.lc 824:31-824:42  StageTexture
-testdata/performance/SampleMaterial.lc 825:34-825:38  Bool
-testdata/performance/SampleMaterial.lc 826:33-826:41  DepthFunction
-testdata/performance/SampleMaterial.lc 827:33-827:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 828:41-828:46  Bool
-testdata/performance/SampleMaterial.lc 829:38-829:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 818:15-827:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-828:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-830:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 819:29-819:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 819:29-819:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 819:34-819:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 819:36-819:46
+    Blending'
+testdata/performance/SampleMaterial.lc 819:49-819:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 820:30-820:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 821:32-821:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 822:29-822:40
+    TCGen
+testdata/performance/SampleMaterial.lc 823:29-823:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 824:31-824:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 825:34-825:38
+    Bool
+testdata/performance/SampleMaterial.lc 826:33-826:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 827:33-827:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 828:41-828:46
+    Bool
+testdata/performance/SampleMaterial.lc 829:38-829:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 836:7-844:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 836:7-845:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 836:7-846:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 836:7-888:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 836:7-890:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 837:24-837:26  ()
-testdata/performance/SampleMaterial.lc 838:24-838:26  ()
-testdata/performance/SampleMaterial.lc 839:22-839:27  Bool
-testdata/performance/SampleMaterial.lc 840:20-840:21  _b
-testdata/performance/SampleMaterial.lc 841:30-841:35  Bool
-testdata/performance/SampleMaterial.lc 842:23-842:28  Bool
-testdata/performance/SampleMaterial.lc 843:20-843:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 836:7-844:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-845:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-846:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-888:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-890:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 837:24-837:26
+    ()
+testdata/performance/SampleMaterial.lc 838:24-838:26
+    ()
+testdata/performance/SampleMaterial.lc 839:22-839:27
+    Bool
+testdata/performance/SampleMaterial.lc 840:20-840:21
+    _b
+testdata/performance/SampleMaterial.lc 841:30-841:35
+    Bool
+testdata/performance/SampleMaterial.lc 842:23-842:28
+    Bool
+testdata/performance/SampleMaterial.lc 843:20-843:33
+    CullType
+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-849:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-850:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 848:15-852:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-851:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 848:15-854:88
+    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
-testdata/performance/SampleMaterial.lc 848:15-858:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-859:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-861:18  StageAttrs
-testdata/performance/SampleMaterial.lc 849:29-849:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 850:30-850:42  RGBGen
-testdata/performance/SampleMaterial.lc 851:32-851:42  AlphaGen
-testdata/performance/SampleMaterial.lc 852:29-852:36  TCGen
-testdata/performance/SampleMaterial.lc 854:21-854:88  List TCMod
-testdata/performance/SampleMaterial.lc 854:23-854:32  Float -> Float -> TCMod
-testdata/performance/SampleMaterial.lc 854:23-854:36  Float -> TCMod
-testdata/performance/SampleMaterial.lc 854:23-854:40  TCMod
-testdata/performance/SampleMaterial.lc 854:33-854:36  Float
-testdata/performance/SampleMaterial.lc 854:37-854:40  Float
-testdata/performance/SampleMaterial.lc 854:43-854:50  Float -> Float -> Float -> Float -> TCMod
-testdata/performance/SampleMaterial.lc 854:43-854:54  Float -> Float -> Float -> TCMod
-testdata/performance/SampleMaterial.lc 854:43-854:59  Float -> Float -> TCMod
-testdata/performance/SampleMaterial.lc 854:43-854:63  Float -> TCMod
-testdata/performance/SampleMaterial.lc 854:43-854:67  TCMod
-testdata/performance/SampleMaterial.lc 854:43-854:86  List TCMod
-testdata/performance/SampleMaterial.lc 854:51-854:54  Float
-testdata/performance/SampleMaterial.lc 854:55-854:59  Float
-testdata/performance/SampleMaterial.lc 854:60-854:63  Float
-testdata/performance/SampleMaterial.lc 854:64-854:67  Float
-testdata/performance/SampleMaterial.lc 854:70-854:78  Float -> Float -> TCMod
-testdata/performance/SampleMaterial.lc 854:70-854:82  Float -> TCMod
-testdata/performance/SampleMaterial.lc 854:70-854:86  List TCMod | TCMod
-testdata/performance/SampleMaterial.lc 854:79-854:82  Float
-testdata/performance/SampleMaterial.lc 854:83-854:86  Float
-testdata/performance/SampleMaterial.lc 855:31-855:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 855:31-855:66  StageTexture
-testdata/performance/SampleMaterial.lc 855:38-855:66  String
-testdata/performance/SampleMaterial.lc 856:34-856:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 848:15-858:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-859:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-861:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 849:29-849:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 850:30-850:42
+    RGBGen
+testdata/performance/SampleMaterial.lc 851:32-851:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 852:29-852:36
+    TCGen
+testdata/performance/SampleMaterial.lc 854:21-854:88
+    List TCMod
+testdata/performance/SampleMaterial.lc 854:23-854:32
+    Float -> Float -> TCMod
+testdata/performance/SampleMaterial.lc 854:23-854:36
+    Float -> TCMod
+testdata/performance/SampleMaterial.lc 854:23-854:40
+    TCMod
+testdata/performance/SampleMaterial.lc 854:33-854:36
+    Float
+testdata/performance/SampleMaterial.lc 854:37-854:40
+    Float
+testdata/performance/SampleMaterial.lc 854:43-854:50
+    Float -> Float -> Float -> Float -> TCMod
+testdata/performance/SampleMaterial.lc 854:43-854:54
+    Float -> Float -> Float -> TCMod
+testdata/performance/SampleMaterial.lc 854:43-854:59
+    Float -> Float -> TCMod
+testdata/performance/SampleMaterial.lc 854:43-854:63
+    Float -> TCMod
+testdata/performance/SampleMaterial.lc 854:43-854:67
+    TCMod
+testdata/performance/SampleMaterial.lc 854:43-854:86
+    List TCMod
+testdata/performance/SampleMaterial.lc 854:51-854:54
+    Float
+testdata/performance/SampleMaterial.lc 854:55-854:59
+    Float
+testdata/performance/SampleMaterial.lc 854:60-854:63
+    Float
+testdata/performance/SampleMaterial.lc 854:64-854:67
+    Float
+testdata/performance/SampleMaterial.lc 854:70-854:78
+    Float -> Float -> TCMod
+testdata/performance/SampleMaterial.lc 854:70-854:82
+    Float -> TCMod
+testdata/performance/SampleMaterial.lc 854:70-854:86
+    TCMod | List TCMod
+testdata/performance/SampleMaterial.lc 854:79-854:82
+    Float
+testdata/performance/SampleMaterial.lc 854:83-854:86
+    Float
+testdata/performance/SampleMaterial.lc 855:31-855:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 855:31-855:66
+    StageTexture
+testdata/performance/SampleMaterial.lc 855:38-855:66
+    String
+testdata/performance/SampleMaterial.lc 856:34-856:38
+    Bool
+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-863:69  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-864:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 862:15-866:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-865:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 862:15-867:31
+    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
-testdata/performance/SampleMaterial.lc 862:15-871:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-872:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-874:18  StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-887:18  List StageAttrs
-testdata/performance/SampleMaterial.lc 863:29-863:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 863:29-863:69  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 863:34-863:69  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 863:36-863:46  Blending'
-testdata/performance/SampleMaterial.lc 863:49-863:67  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 864:30-864:42  RGBGen
-testdata/performance/SampleMaterial.lc 865:32-865:42  AlphaGen
-testdata/performance/SampleMaterial.lc 866:29-866:36  TCGen
-testdata/performance/SampleMaterial.lc 867:29-867:31  forall a . List a
-testdata/performance/SampleMaterial.lc 868:31-868:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 868:31-868:76  StageTexture
-testdata/performance/SampleMaterial.lc 868:38-868:76  String
-testdata/performance/SampleMaterial.lc 869:34-869:39  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 862:15-871:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-872:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-874:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-887:18
+    List StageAttrs
+testdata/performance/SampleMaterial.lc 863:29-863:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 863:29-863:69
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 863:34-863:69
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 863:36-863:46
+    Blending'
+testdata/performance/SampleMaterial.lc 863:49-863:67
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 864:30-864:42
+    RGBGen
+testdata/performance/SampleMaterial.lc 865:32-865:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 866:29-866:36
+    TCGen
+testdata/performance/SampleMaterial.lc 867:29-867:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 868:31-868:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 868:31-868:76
+    StageTexture
+testdata/performance/SampleMaterial.lc 868:38-868:76
+    String
+testdata/performance/SampleMaterial.lc 869:34-869:39
+    Bool
+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-876:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-877:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 875:15-879:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-878:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 875:15-880:31
+    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
-testdata/performance/SampleMaterial.lc 875:15-884:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-885:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-887:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 876:29-876:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 876:29-876:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 876:34-876:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 876:36-876:46  Blending'
-testdata/performance/SampleMaterial.lc 876:49-876:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 877:30-877:42  RGBGen
-testdata/performance/SampleMaterial.lc 878:32-878:42  AlphaGen
-testdata/performance/SampleMaterial.lc 879:29-879:40  TCGen
-testdata/performance/SampleMaterial.lc 880:29-880:31  forall a . List a
-testdata/performance/SampleMaterial.lc 881:31-881:42  StageTexture
-testdata/performance/SampleMaterial.lc 882:34-882:39  Bool
-testdata/performance/SampleMaterial.lc 883:33-883:41  DepthFunction
-testdata/performance/SampleMaterial.lc 884:33-884:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 885:41-885:46  Bool
-testdata/performance/SampleMaterial.lc 886:38-886:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 875:15-884:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-885:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-887:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 876:29-876:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 876:29-876:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 876:34-876:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 876:36-876:46
+    Blending'
+testdata/performance/SampleMaterial.lc 876:49-876:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 877:30-877:42
+    RGBGen
+testdata/performance/SampleMaterial.lc 878:32-878:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 879:29-879:40
+    TCGen
+testdata/performance/SampleMaterial.lc 880:29-880:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 881:31-881:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 882:34-882:39
+    Bool
+testdata/performance/SampleMaterial.lc 883:33-883:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 884:33-884:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 885:41-885:46
+    Bool
+testdata/performance/SampleMaterial.lc 886:38-886:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 893:7-901:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 893:7-902:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 893:7-903:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 893:7-931:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 893:7-933:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 894:24-894:26  ()
-testdata/performance/SampleMaterial.lc 895:24-895:26  ()
-testdata/performance/SampleMaterial.lc 896:22-896:27  Bool
-testdata/performance/SampleMaterial.lc 897:20-897:21  _b
-testdata/performance/SampleMaterial.lc 898:30-898:35  Bool
-testdata/performance/SampleMaterial.lc 899:23-899:28  Bool
-testdata/performance/SampleMaterial.lc 900:20-900:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 893:7-901:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-902:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-903:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-931:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-933:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 894:24-894:26
+    ()
+testdata/performance/SampleMaterial.lc 895:24-895:26
+    ()
+testdata/performance/SampleMaterial.lc 896:22-896:27
+    Bool
+testdata/performance/SampleMaterial.lc 897:20-897:21
+    _b
+testdata/performance/SampleMaterial.lc 898:30-898:35
+    Bool
+testdata/performance/SampleMaterial.lc 899:23-899:28
+    Bool
+testdata/performance/SampleMaterial.lc 900:20-900:33
+    CullType
+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-906:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-907:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 905:15-909:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-908:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 905:15-910:31
+    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
-testdata/performance/SampleMaterial.lc 905:15-914:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-915:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-917:18  StageAttrs
-testdata/performance/SampleMaterial.lc 906:29-906:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 907:30-907:50  RGBGen
-testdata/performance/SampleMaterial.lc 908:32-908:42  AlphaGen
-testdata/performance/SampleMaterial.lc 909:29-909:36  TCGen
-testdata/performance/SampleMaterial.lc 910:29-910:31  forall a . List a
-testdata/performance/SampleMaterial.lc 911:31-911:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 911:31-911:72  StageTexture
-testdata/performance/SampleMaterial.lc 911:38-911:72  String
-testdata/performance/SampleMaterial.lc 912:34-912:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 905:15-914:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-915:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-917:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 906:29-906:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 907:30-907:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 908:32-908:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 909:29-909:36
+    TCGen
+testdata/performance/SampleMaterial.lc 910:29-910:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 911:31-911:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 911:31-911:72
+    StageTexture
+testdata/performance/SampleMaterial.lc 911:38-911:72
+    String
+testdata/performance/SampleMaterial.lc 912:34-912:38
+    Bool
+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-919:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-920:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 918:15-922:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-921:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 918:15-923:31
+    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
-testdata/performance/SampleMaterial.lc 918:15-927:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-928:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-930:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 919:29-919:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 919:29-919:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 919:34-919:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 919:36-919:46  Blending'
-testdata/performance/SampleMaterial.lc 919:49-919:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 920:30-920:50  RGBGen
-testdata/performance/SampleMaterial.lc 921:32-921:42  AlphaGen
-testdata/performance/SampleMaterial.lc 922:29-922:40  TCGen
-testdata/performance/SampleMaterial.lc 923:29-923:31  forall a . List a
-testdata/performance/SampleMaterial.lc 924:31-924:42  StageTexture
-testdata/performance/SampleMaterial.lc 925:34-925:38  Bool
-testdata/performance/SampleMaterial.lc 926:33-926:41  DepthFunction
-testdata/performance/SampleMaterial.lc 927:33-927:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 928:41-928:46  Bool
-testdata/performance/SampleMaterial.lc 929:38-929:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 918:15-927:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-928:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-930:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 919:29-919:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 919:29-919:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 919:34-919:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 919:36-919:46
+    Blending'
+testdata/performance/SampleMaterial.lc 919:49-919:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 920:30-920:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 921:32-921:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 922:29-922:40
+    TCGen
+testdata/performance/SampleMaterial.lc 923:29-923:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 924:31-924:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 925:34-925:38
+    Bool
+testdata/performance/SampleMaterial.lc 926:33-926:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 927:33-927:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 928:41-928:46
+    Bool
+testdata/performance/SampleMaterial.lc 929:38-929:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 936:7-944:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 936:7-945:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 936:7-946:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 936:7-975:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 936:7-977:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 937:24-937:26  ()
-testdata/performance/SampleMaterial.lc 938:24-938:26  ()
-testdata/performance/SampleMaterial.lc 939:22-939:27  Bool
-testdata/performance/SampleMaterial.lc 940:20-940:21  _b
-testdata/performance/SampleMaterial.lc 941:30-941:35  Bool
-testdata/performance/SampleMaterial.lc 942:23-942:28  Bool
-testdata/performance/SampleMaterial.lc 943:20-943:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 936:7-944:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-945:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-946:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-975:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-977:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 937:24-937:26
+    ()
+testdata/performance/SampleMaterial.lc 938:24-938:26
+    ()
+testdata/performance/SampleMaterial.lc 939:22-939:27
+    Bool
+testdata/performance/SampleMaterial.lc 940:20-940:21
+    _b
+testdata/performance/SampleMaterial.lc 941:30-941:35
+    Bool
+testdata/performance/SampleMaterial.lc 942:23-942:28
+    Bool
+testdata/performance/SampleMaterial.lc 943:20-943:33
+    CullType
+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-949:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-950:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 948:15-952:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-951:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 948:15-953:31
+    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
-testdata/performance/SampleMaterial.lc 948:15-958:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-959:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-961:18  StageAttrs
-testdata/performance/SampleMaterial.lc 949:29-949:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 950:30-950:50  RGBGen
-testdata/performance/SampleMaterial.lc 951:32-951:42  AlphaGen
-testdata/performance/SampleMaterial.lc 952:29-952:36  TCGen
-testdata/performance/SampleMaterial.lc 953:29-953:31  forall a . List a
-testdata/performance/SampleMaterial.lc 955:21-955:27  String -> StageTexture
-testdata/performance/SampleMaterial.lc 955:21-955:75  StageTexture
-testdata/performance/SampleMaterial.lc 955:28-955:75  String
-testdata/performance/SampleMaterial.lc 956:34-956:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 948:15-958:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-959:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-961:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 949:29-949:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 950:30-950:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 951:32-951:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 952:29-952:36
+    TCGen
+testdata/performance/SampleMaterial.lc 953:29-953:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 955:21-955:27
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 955:21-955:75
+    StageTexture
+testdata/performance/SampleMaterial.lc 955:28-955:75
+    String
+testdata/performance/SampleMaterial.lc 956:34-956:38
+    Bool
+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-963:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-964:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 962:15-966:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-965:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 962:15-967:31
+    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
-testdata/performance/SampleMaterial.lc 962:15-971:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-972:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-974:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 963:29-963:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 963:29-963:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 963:34-963:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 963:36-963:46  Blending'
-testdata/performance/SampleMaterial.lc 963:49-963:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 964:30-964:50  RGBGen
-testdata/performance/SampleMaterial.lc 965:32-965:42  AlphaGen
-testdata/performance/SampleMaterial.lc 966:29-966:40  TCGen
-testdata/performance/SampleMaterial.lc 967:29-967:31  forall a . List a
-testdata/performance/SampleMaterial.lc 968:31-968:42  StageTexture
-testdata/performance/SampleMaterial.lc 969:34-969:38  Bool
-testdata/performance/SampleMaterial.lc 970:33-970:41  DepthFunction
-testdata/performance/SampleMaterial.lc 971:33-971:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 972:41-972:46  Bool
-testdata/performance/SampleMaterial.lc 973:38-973:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 962:15-971:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-972:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-974:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 963:29-963:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 963:29-963:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 963:34-963:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 963:36-963:46
+    Blending'
+testdata/performance/SampleMaterial.lc 963:49-963:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 964:30-964:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 965:32-965:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 966:29-966:40
+    TCGen
+testdata/performance/SampleMaterial.lc 967:29-967:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 968:31-968:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 969:34-969:38
+    Bool
+testdata/performance/SampleMaterial.lc 970:33-970:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 971:33-971:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 972:41-972:46
+    Bool
+testdata/performance/SampleMaterial.lc 973:38-973:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 980:7-988:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 980:7-989:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 980:7-990:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 980:7-1018:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 980:7-1020:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 981:24-981:26  ()
-testdata/performance/SampleMaterial.lc 982:24-982:26  ()
-testdata/performance/SampleMaterial.lc 983:22-983:27  Bool
-testdata/performance/SampleMaterial.lc 984:20-984:21  _b
-testdata/performance/SampleMaterial.lc 985:30-985:35  Bool
-testdata/performance/SampleMaterial.lc 986:23-986:28  Bool
-testdata/performance/SampleMaterial.lc 987:20-987:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 980:7-988:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-989:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-990:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-1018:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-1020:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 981:24-981:26
+    ()
+testdata/performance/SampleMaterial.lc 982:24-982:26
+    ()
+testdata/performance/SampleMaterial.lc 983:22-983:27
+    Bool
+testdata/performance/SampleMaterial.lc 984:20-984:21
+    _b
+testdata/performance/SampleMaterial.lc 985:30-985:35
+    Bool
+testdata/performance/SampleMaterial.lc 986:23-986:28
+    Bool
+testdata/performance/SampleMaterial.lc 987:20-987:33
+    CullType
+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-993:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-994:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 992:15-996:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-995:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 992:15-997:31
+    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
-testdata/performance/SampleMaterial.lc 992:15-1001:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-1002:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-1004:18  StageAttrs
-testdata/performance/SampleMaterial.lc 993:29-993:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 994:30-994:50  RGBGen
-testdata/performance/SampleMaterial.lc 995:32-995:42  AlphaGen
-testdata/performance/SampleMaterial.lc 996:29-996:36  TCGen
-testdata/performance/SampleMaterial.lc 997:29-997:31  forall a . List a
-testdata/performance/SampleMaterial.lc 998:31-998:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 998:31-998:76  StageTexture
-testdata/performance/SampleMaterial.lc 998:38-998:76  String
-testdata/performance/SampleMaterial.lc 999:34-999:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 992:15-1001:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-1002:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-1004:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 993:29-993:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 994:30-994:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 995:32-995:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 996:29-996:36
+    TCGen
+testdata/performance/SampleMaterial.lc 997:29-997:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 998:31-998:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 998:31-998:76
+    StageTexture
+testdata/performance/SampleMaterial.lc 998:38-998:76
+    String
+testdata/performance/SampleMaterial.lc 999:34-999:38
+    Bool
+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-1006:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1007:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1005:15-1009:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1008:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1005:15-1010:31
+    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
-testdata/performance/SampleMaterial.lc 1005:15-1014:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1015:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1017:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1006:29-1006:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1006:29-1006:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1006:34-1006:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1006:36-1006:46  Blending'
-testdata/performance/SampleMaterial.lc 1006:49-1006:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1007:30-1007:50  RGBGen
-testdata/performance/SampleMaterial.lc 1008:32-1008:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1009:29-1009:40  TCGen
-testdata/performance/SampleMaterial.lc 1010:29-1010:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1011:31-1011:42  StageTexture
-testdata/performance/SampleMaterial.lc 1012:34-1012:38  Bool
-testdata/performance/SampleMaterial.lc 1013:33-1013:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1014:33-1014:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1015:41-1015:46  Bool
-testdata/performance/SampleMaterial.lc 1016:38-1016:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1005:15-1014:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1015:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1017:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1006:29-1006:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1006:29-1006:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1006:34-1006:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1006:36-1006:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1006:49-1006:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1007:30-1007:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1008:32-1008:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1009:29-1009:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1010:29-1010:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1011:31-1011:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1012:34-1012:38
+    Bool
+testdata/performance/SampleMaterial.lc 1013:33-1013:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1014:33-1014:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1015:41-1015:46
+    Bool
+testdata/performance/SampleMaterial.lc 1016:38-1016:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1023:7-1031:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1023:7-1032:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1023:7-1033:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1023:7-1061:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1023:7-1063:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1024:24-1024:26  ()
-testdata/performance/SampleMaterial.lc 1025:24-1025:26  ()
-testdata/performance/SampleMaterial.lc 1026:22-1026:27  Bool
-testdata/performance/SampleMaterial.lc 1027:20-1027:21  _b
-testdata/performance/SampleMaterial.lc 1028:30-1028:35  Bool
-testdata/performance/SampleMaterial.lc 1029:23-1029:28  Bool
-testdata/performance/SampleMaterial.lc 1030:20-1030:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1023:7-1031:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1032:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1033:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1061:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1063:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1024:24-1024:26
+    ()
+testdata/performance/SampleMaterial.lc 1025:24-1025:26
+    ()
+testdata/performance/SampleMaterial.lc 1026:22-1026:27
+    Bool
+testdata/performance/SampleMaterial.lc 1027:20-1027:21
+    _b
+testdata/performance/SampleMaterial.lc 1028:30-1028:35
+    Bool
+testdata/performance/SampleMaterial.lc 1029:23-1029:28
+    Bool
+testdata/performance/SampleMaterial.lc 1030:20-1030:33
+    CullType
+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-1036:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1037:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1035:15-1039:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1038:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1035:15-1040:31
+    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
-testdata/performance/SampleMaterial.lc 1035:15-1044:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1045:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1047:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1036:29-1036:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1037:30-1037:50  RGBGen
-testdata/performance/SampleMaterial.lc 1038:32-1038:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1039:29-1039:36  TCGen
-testdata/performance/SampleMaterial.lc 1040:29-1040:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1041:31-1041:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1041:31-1041:75  StageTexture
-testdata/performance/SampleMaterial.lc 1041:38-1041:75  String
-testdata/performance/SampleMaterial.lc 1042:34-1042:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1035:15-1044:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1045:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1047:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1036:29-1036:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1037:30-1037:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1038:32-1038:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1039:29-1039:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1040:29-1040:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1041:31-1041:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1041:31-1041:75
+    StageTexture
+testdata/performance/SampleMaterial.lc 1041:38-1041:75
+    String
+testdata/performance/SampleMaterial.lc 1042:34-1042:38
+    Bool
+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-1049:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1050:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1048:15-1052:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1051:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1048:15-1053:31
+    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
-testdata/performance/SampleMaterial.lc 1048:15-1057:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1058:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1060:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1049:29-1049:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1049:29-1049:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1049:34-1049:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1049:36-1049:46  Blending'
-testdata/performance/SampleMaterial.lc 1049:49-1049:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1050:30-1050:50  RGBGen
-testdata/performance/SampleMaterial.lc 1051:32-1051:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1052:29-1052:40  TCGen
-testdata/performance/SampleMaterial.lc 1053:29-1053:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1054:31-1054:42  StageTexture
-testdata/performance/SampleMaterial.lc 1055:34-1055:38  Bool
-testdata/performance/SampleMaterial.lc 1056:33-1056:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1057:33-1057:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1058:41-1058:46  Bool
-testdata/performance/SampleMaterial.lc 1059:38-1059:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1048:15-1057:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1058:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1060:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1049:29-1049:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1049:29-1049:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1049:34-1049:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1049:36-1049:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1049:49-1049:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1050:30-1050:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1051:32-1051:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1052:29-1052:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1053:29-1053:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1054:31-1054:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1055:34-1055:38
+    Bool
+testdata/performance/SampleMaterial.lc 1056:33-1056:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1057:33-1057:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1058:41-1058:46
+    Bool
+testdata/performance/SampleMaterial.lc 1059:38-1059:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1066:7-1074:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1066:7-1075:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1066:7-1076:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1066:7-1104:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1066:7-1106:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1067:24-1067:26  ()
-testdata/performance/SampleMaterial.lc 1068:24-1068:26  ()
-testdata/performance/SampleMaterial.lc 1069:22-1069:27  Bool
-testdata/performance/SampleMaterial.lc 1070:20-1070:21  _b
-testdata/performance/SampleMaterial.lc 1071:30-1071:35  Bool
-testdata/performance/SampleMaterial.lc 1072:23-1072:28  Bool
-testdata/performance/SampleMaterial.lc 1073:20-1073:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1066:7-1074:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1075:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1076:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1104:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1106:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1067:24-1067:26
+    ()
+testdata/performance/SampleMaterial.lc 1068:24-1068:26
+    ()
+testdata/performance/SampleMaterial.lc 1069:22-1069:27
+    Bool
+testdata/performance/SampleMaterial.lc 1070:20-1070:21
+    _b
+testdata/performance/SampleMaterial.lc 1071:30-1071:35
+    Bool
+testdata/performance/SampleMaterial.lc 1072:23-1072:28
+    Bool
+testdata/performance/SampleMaterial.lc 1073:20-1073:33
+    CullType
+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-1079:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1080:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1078:15-1082:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1081:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1078:15-1083:31
+    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
-testdata/performance/SampleMaterial.lc 1078:15-1087:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1088:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1090:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1079:29-1079:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1080:30-1080:50  RGBGen
-testdata/performance/SampleMaterial.lc 1081:32-1081:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1082:29-1082:36  TCGen
-testdata/performance/SampleMaterial.lc 1083:29-1083:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1084:31-1084:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1084:31-1084:75  StageTexture
-testdata/performance/SampleMaterial.lc 1084:38-1084:75  String
-testdata/performance/SampleMaterial.lc 1085:34-1085:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1078:15-1087:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1088:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1090:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1079:29-1079:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1080:30-1080:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1081:32-1081:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1082:29-1082:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1083:29-1083:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1084:31-1084:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1084:31-1084:75
+    StageTexture
+testdata/performance/SampleMaterial.lc 1084:38-1084:75
+    String
+testdata/performance/SampleMaterial.lc 1085:34-1085:38
+    Bool
+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-1092:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1093:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1091:15-1095:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1094:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1091:15-1096:31
+    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
-testdata/performance/SampleMaterial.lc 1091:15-1100:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1101:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1103:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1092:29-1092:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1092:29-1092:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1092:34-1092:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1092:36-1092:46  Blending'
-testdata/performance/SampleMaterial.lc 1092:49-1092:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1093:30-1093:50  RGBGen
-testdata/performance/SampleMaterial.lc 1094:32-1094:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1095:29-1095:40  TCGen
-testdata/performance/SampleMaterial.lc 1096:29-1096:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1097:31-1097:42  StageTexture
-testdata/performance/SampleMaterial.lc 1098:34-1098:38  Bool
-testdata/performance/SampleMaterial.lc 1099:33-1099:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1100:33-1100:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1101:41-1101:46  Bool
-testdata/performance/SampleMaterial.lc 1102:38-1102:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1091:15-1100:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1101:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1103:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1092:29-1092:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1092:29-1092:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1092:34-1092:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1092:36-1092:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1092:49-1092:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1093:30-1093:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1094:32-1094:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1095:29-1095:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1096:29-1096:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1097:31-1097:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1098:34-1098:38
+    Bool
+testdata/performance/SampleMaterial.lc 1099:33-1099:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1100:33-1100:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1101:41-1101:46
+    Bool
+testdata/performance/SampleMaterial.lc 1102:38-1102:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1109:7-1117:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1109:7-1118:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1109:7-1119:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1109:7-1147:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1109:7-1149:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1110:24-1110:26  ()
-testdata/performance/SampleMaterial.lc 1111:24-1111:26  ()
-testdata/performance/SampleMaterial.lc 1112:22-1112:27  Bool
-testdata/performance/SampleMaterial.lc 1113:20-1113:21  _b
-testdata/performance/SampleMaterial.lc 1114:30-1114:35  Bool
-testdata/performance/SampleMaterial.lc 1115:23-1115:28  Bool
-testdata/performance/SampleMaterial.lc 1116:20-1116:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1109:7-1117:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1118:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1119:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1147:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1149:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1110:24-1110:26
+    ()
+testdata/performance/SampleMaterial.lc 1111:24-1111:26
+    ()
+testdata/performance/SampleMaterial.lc 1112:22-1112:27
+    Bool
+testdata/performance/SampleMaterial.lc 1113:20-1113:21
+    _b
+testdata/performance/SampleMaterial.lc 1114:30-1114:35
+    Bool
+testdata/performance/SampleMaterial.lc 1115:23-1115:28
+    Bool
+testdata/performance/SampleMaterial.lc 1116:20-1116:33
+    CullType
+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-1122:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1123:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1121:15-1125:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1124:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1121:15-1126:31
+    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
-testdata/performance/SampleMaterial.lc 1121:15-1130:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1131:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1133:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1122:29-1122:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1123:30-1123:50  RGBGen
-testdata/performance/SampleMaterial.lc 1124:32-1124:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1125:29-1125:36  TCGen
-testdata/performance/SampleMaterial.lc 1126:29-1126:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1127:31-1127:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1127:31-1127:80  StageTexture
-testdata/performance/SampleMaterial.lc 1127:38-1127:80  String
-testdata/performance/SampleMaterial.lc 1128:34-1128:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1121:15-1130:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1131:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1133:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1122:29-1122:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1123:30-1123:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1124:32-1124:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1125:29-1125:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1126:29-1126:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1127:31-1127:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1127:31-1127:80
+    StageTexture
+testdata/performance/SampleMaterial.lc 1127:38-1127:80
+    String
+testdata/performance/SampleMaterial.lc 1128:34-1128:38
+    Bool
+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-1135:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1136:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1134:15-1138:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1137:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1134:15-1139:31
+    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
-testdata/performance/SampleMaterial.lc 1134:15-1143:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1144:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1146:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1135:29-1135:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1135:29-1135:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1135:34-1135:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1135:36-1135:46  Blending'
-testdata/performance/SampleMaterial.lc 1135:49-1135:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1136:30-1136:50  RGBGen
-testdata/performance/SampleMaterial.lc 1137:32-1137:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1138:29-1138:40  TCGen
-testdata/performance/SampleMaterial.lc 1139:29-1139:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1140:31-1140:42  StageTexture
-testdata/performance/SampleMaterial.lc 1141:34-1141:38  Bool
-testdata/performance/SampleMaterial.lc 1142:33-1142:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1143:33-1143:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1144:41-1144:46  Bool
-testdata/performance/SampleMaterial.lc 1145:38-1145:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1134:15-1143:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1144:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1146:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1135:29-1135:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1135:29-1135:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1135:34-1135:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1135:36-1135:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1135:49-1135:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1136:30-1136:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1137:32-1137:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1138:29-1138:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1139:29-1139:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1140:31-1140:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1141:34-1141:38
+    Bool
+testdata/performance/SampleMaterial.lc 1142:33-1142:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1143:33-1143:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1144:41-1144:46
+    Bool
+testdata/performance/SampleMaterial.lc 1145:38-1145:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1152:7-1160:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1152:7-1161:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1152:7-1162:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1152:7-1190:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1152:7-1192:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1153:24-1153:26  ()
-testdata/performance/SampleMaterial.lc 1154:24-1154:26  ()
-testdata/performance/SampleMaterial.lc 1155:22-1155:27  Bool
-testdata/performance/SampleMaterial.lc 1156:20-1156:21  _b
-testdata/performance/SampleMaterial.lc 1157:30-1157:35  Bool
-testdata/performance/SampleMaterial.lc 1158:23-1158:28  Bool
-testdata/performance/SampleMaterial.lc 1159:20-1159:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1152:7-1160:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1161:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1162:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1190:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1192:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1153:24-1153:26
+    ()
+testdata/performance/SampleMaterial.lc 1154:24-1154:26
+    ()
+testdata/performance/SampleMaterial.lc 1155:22-1155:27
+    Bool
+testdata/performance/SampleMaterial.lc 1156:20-1156:21
+    _b
+testdata/performance/SampleMaterial.lc 1157:30-1157:35
+    Bool
+testdata/performance/SampleMaterial.lc 1158:23-1158:28
+    Bool
+testdata/performance/SampleMaterial.lc 1159:20-1159:33
+    CullType
+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-1165:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1166:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1164:15-1168:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1167:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1164:15-1169:31
+    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
-testdata/performance/SampleMaterial.lc 1164:15-1173:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1174:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1176:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1165:29-1165:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1166:30-1166:50  RGBGen
-testdata/performance/SampleMaterial.lc 1167:32-1167:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1168:29-1168:36  TCGen
-testdata/performance/SampleMaterial.lc 1169:29-1169:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1170:31-1170:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1170:31-1170:72  StageTexture
-testdata/performance/SampleMaterial.lc 1170:38-1170:72  String
-testdata/performance/SampleMaterial.lc 1171:34-1171:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1164:15-1173:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1174:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1176:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1165:29-1165:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1166:30-1166:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1167:32-1167:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1168:29-1168:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1169:29-1169:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1170:31-1170:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1170:31-1170:72
+    StageTexture
+testdata/performance/SampleMaterial.lc 1170:38-1170:72
+    String
+testdata/performance/SampleMaterial.lc 1171:34-1171:38
+    Bool
+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-1178:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1179:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1177:15-1181:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1180:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1177:15-1182:31
+    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
-testdata/performance/SampleMaterial.lc 1177:15-1186:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1187:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1189:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1178:29-1178:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1178:29-1178:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1178:34-1178:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1178:36-1178:46  Blending'
-testdata/performance/SampleMaterial.lc 1178:49-1178:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1179:30-1179:50  RGBGen
-testdata/performance/SampleMaterial.lc 1180:32-1180:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1181:29-1181:40  TCGen
-testdata/performance/SampleMaterial.lc 1182:29-1182:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1183:31-1183:42  StageTexture
-testdata/performance/SampleMaterial.lc 1184:34-1184:38  Bool
-testdata/performance/SampleMaterial.lc 1185:33-1185:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1186:33-1186:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1187:41-1187:46  Bool
-testdata/performance/SampleMaterial.lc 1188:38-1188:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1177:15-1186:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1187:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1189:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1178:29-1178:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1178:29-1178:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1178:34-1178:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1178:36-1178:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1178:49-1178:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1179:30-1179:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1180:32-1180:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1181:29-1181:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1182:29-1182:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1183:31-1183:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1184:34-1184:38
+    Bool
+testdata/performance/SampleMaterial.lc 1185:33-1185:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1186:33-1186:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1187:41-1187:46
+    Bool
+testdata/performance/SampleMaterial.lc 1188:38-1188:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1195:7-1203:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1195:7-1204:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1195:7-1205:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1195:7-1233:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1195:7-1235:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1196:24-1196:26  ()
-testdata/performance/SampleMaterial.lc 1197:24-1197:26  ()
-testdata/performance/SampleMaterial.lc 1198:22-1198:27  Bool
-testdata/performance/SampleMaterial.lc 1199:20-1199:21  _b
-testdata/performance/SampleMaterial.lc 1200:30-1200:35  Bool
-testdata/performance/SampleMaterial.lc 1201:23-1201:28  Bool
-testdata/performance/SampleMaterial.lc 1202:20-1202:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1195:7-1203:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1204:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1205:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1233:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1235:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1196:24-1196:26
+    ()
+testdata/performance/SampleMaterial.lc 1197:24-1197:26
+    ()
+testdata/performance/SampleMaterial.lc 1198:22-1198:27
+    Bool
+testdata/performance/SampleMaterial.lc 1199:20-1199:21
+    _b
+testdata/performance/SampleMaterial.lc 1200:30-1200:35
+    Bool
+testdata/performance/SampleMaterial.lc 1201:23-1201:28
+    Bool
+testdata/performance/SampleMaterial.lc 1202:20-1202:33
+    CullType
+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-1208:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1209:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1207:15-1211:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1210:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1207:15-1212:31
+    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
-testdata/performance/SampleMaterial.lc 1207:15-1216:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1217:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1219:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1208:29-1208:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1209:30-1209:50  RGBGen
-testdata/performance/SampleMaterial.lc 1210:32-1210:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1211:29-1211:36  TCGen
-testdata/performance/SampleMaterial.lc 1212:29-1212:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1213:31-1213:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1213:31-1213:74  StageTexture
-testdata/performance/SampleMaterial.lc 1213:38-1213:74  String
-testdata/performance/SampleMaterial.lc 1214:34-1214:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1207:15-1216:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1217:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1219:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1208:29-1208:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1209:30-1209:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1210:32-1210:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1211:29-1211:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1212:29-1212:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1213:31-1213:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1213:31-1213:74
+    StageTexture
+testdata/performance/SampleMaterial.lc 1213:38-1213:74
+    String
+testdata/performance/SampleMaterial.lc 1214:34-1214:38
+    Bool
+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-1221:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1222:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1220:15-1224:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1223:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1220:15-1225:31
+    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
-testdata/performance/SampleMaterial.lc 1220:15-1229:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1230:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1232:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1221:29-1221:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1221:29-1221:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1221:34-1221:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1221:36-1221:46  Blending'
-testdata/performance/SampleMaterial.lc 1221:49-1221:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1222:30-1222:50  RGBGen
-testdata/performance/SampleMaterial.lc 1223:32-1223:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1224:29-1224:40  TCGen
-testdata/performance/SampleMaterial.lc 1225:29-1225:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1226:31-1226:42  StageTexture
-testdata/performance/SampleMaterial.lc 1227:34-1227:38  Bool
-testdata/performance/SampleMaterial.lc 1228:33-1228:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1229:33-1229:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1230:41-1230:46  Bool
-testdata/performance/SampleMaterial.lc 1231:38-1231:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1220:15-1229:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1230:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1232:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1221:29-1221:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1221:29-1221:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1221:34-1221:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1221:36-1221:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1221:49-1221:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1222:30-1222:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1223:32-1223:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1224:29-1224:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1225:29-1225:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1226:31-1226:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1227:34-1227:38
+    Bool
+testdata/performance/SampleMaterial.lc 1228:33-1228:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1229:33-1229:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1230:41-1230:46
+    Bool
+testdata/performance/SampleMaterial.lc 1231:38-1231:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1238:7-1246:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1238:7-1247:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1238:7-1248:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1238:7-1276:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1238:7-1278:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1239:24-1239:26  ()
-testdata/performance/SampleMaterial.lc 1240:24-1240:26  ()
-testdata/performance/SampleMaterial.lc 1241:22-1241:27  Bool
-testdata/performance/SampleMaterial.lc 1242:20-1242:21  _b
-testdata/performance/SampleMaterial.lc 1243:30-1243:35  Bool
-testdata/performance/SampleMaterial.lc 1244:23-1244:28  Bool
-testdata/performance/SampleMaterial.lc 1245:20-1245:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1238:7-1246:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1247:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1248:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1276:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1278:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1239:24-1239:26
+    ()
+testdata/performance/SampleMaterial.lc 1240:24-1240:26
+    ()
+testdata/performance/SampleMaterial.lc 1241:22-1241:27
+    Bool
+testdata/performance/SampleMaterial.lc 1242:20-1242:21
+    _b
+testdata/performance/SampleMaterial.lc 1243:30-1243:35
+    Bool
+testdata/performance/SampleMaterial.lc 1244:23-1244:28
+    Bool
+testdata/performance/SampleMaterial.lc 1245:20-1245:33
+    CullType
+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-1251:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1252:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1250:15-1254:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1253:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1250:15-1255:31
+    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
-testdata/performance/SampleMaterial.lc 1250:15-1259:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1260:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1262:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1251:29-1251:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1252:30-1252:50  RGBGen
-testdata/performance/SampleMaterial.lc 1253:32-1253:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1254:29-1254:36  TCGen
-testdata/performance/SampleMaterial.lc 1255:29-1255:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1256:31-1256:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1256:31-1256:72  StageTexture
-testdata/performance/SampleMaterial.lc 1256:38-1256:72  String
-testdata/performance/SampleMaterial.lc 1257:34-1257:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1250:15-1259:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1260:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1262:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1251:29-1251:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1252:30-1252:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1253:32-1253:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1254:29-1254:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1255:29-1255:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1256:31-1256:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1256:31-1256:72
+    StageTexture
+testdata/performance/SampleMaterial.lc 1256:38-1256:72
+    String
+testdata/performance/SampleMaterial.lc 1257:34-1257:38
+    Bool
+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-1264:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1265:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1263:15-1267:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1266:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1263:15-1268:31
+    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
-testdata/performance/SampleMaterial.lc 1263:15-1272:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1273:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1275:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1264:29-1264:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1264:29-1264:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1264:34-1264:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1264:36-1264:46  Blending'
-testdata/performance/SampleMaterial.lc 1264:49-1264:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1265:30-1265:50  RGBGen
-testdata/performance/SampleMaterial.lc 1266:32-1266:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1267:29-1267:40  TCGen
-testdata/performance/SampleMaterial.lc 1268:29-1268:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1269:31-1269:42  StageTexture
-testdata/performance/SampleMaterial.lc 1270:34-1270:38  Bool
-testdata/performance/SampleMaterial.lc 1271:33-1271:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1272:33-1272:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1273:41-1273:46  Bool
-testdata/performance/SampleMaterial.lc 1274:38-1274:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1263:15-1272:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1273:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1275:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1264:29-1264:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1264:29-1264:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1264:34-1264:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1264:36-1264:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1264:49-1264:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1265:30-1265:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1266:32-1266:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1267:29-1267:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1268:29-1268:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1269:31-1269:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1270:34-1270:38
+    Bool
+testdata/performance/SampleMaterial.lc 1271:33-1271:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1272:33-1272:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1273:41-1273:46
+    Bool
+testdata/performance/SampleMaterial.lc 1274:38-1274:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1281:7-1289:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1281:7-1290:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1281:7-1291:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1281:7-1319:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1281:7-1321:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1282:24-1282:26  ()
-testdata/performance/SampleMaterial.lc 1283:24-1283:26  ()
-testdata/performance/SampleMaterial.lc 1284:22-1284:27  Bool
-testdata/performance/SampleMaterial.lc 1285:20-1285:21  _b
-testdata/performance/SampleMaterial.lc 1286:30-1286:35  Bool
-testdata/performance/SampleMaterial.lc 1287:23-1287:28  Bool
-testdata/performance/SampleMaterial.lc 1288:20-1288:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1281:7-1289:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1290:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1291:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1319:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1321:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1282:24-1282:26
+    ()
+testdata/performance/SampleMaterial.lc 1283:24-1283:26
+    ()
+testdata/performance/SampleMaterial.lc 1284:22-1284:27
+    Bool
+testdata/performance/SampleMaterial.lc 1285:20-1285:21
+    _b
+testdata/performance/SampleMaterial.lc 1286:30-1286:35
+    Bool
+testdata/performance/SampleMaterial.lc 1287:23-1287:28
+    Bool
+testdata/performance/SampleMaterial.lc 1288:20-1288:33
+    CullType
+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-1294:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1295:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1293:15-1297:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1296:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1293:15-1298:31
+    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
-testdata/performance/SampleMaterial.lc 1293:15-1302:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1303:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1305:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1294:29-1294:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1295:30-1295:50  RGBGen
-testdata/performance/SampleMaterial.lc 1296:32-1296:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1297:29-1297:36  TCGen
-testdata/performance/SampleMaterial.lc 1298:29-1298:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1299:31-1299:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1299:31-1299:75  StageTexture
-testdata/performance/SampleMaterial.lc 1299:38-1299:75  String
-testdata/performance/SampleMaterial.lc 1300:34-1300:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1293:15-1302:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1303:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1305:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1294:29-1294:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1295:30-1295:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1296:32-1296:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1297:29-1297:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1298:29-1298:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1299:31-1299:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1299:31-1299:75
+    StageTexture
+testdata/performance/SampleMaterial.lc 1299:38-1299:75
+    String
+testdata/performance/SampleMaterial.lc 1300:34-1300:38
+    Bool
+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-1307:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1308:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1306:15-1310:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1309:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1306:15-1311:31
+    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
-testdata/performance/SampleMaterial.lc 1306:15-1315:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1316:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1318:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1307:29-1307:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1307:29-1307:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1307:34-1307:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1307:36-1307:46  Blending'
-testdata/performance/SampleMaterial.lc 1307:49-1307:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1308:30-1308:50  RGBGen
-testdata/performance/SampleMaterial.lc 1309:32-1309:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1310:29-1310:40  TCGen
-testdata/performance/SampleMaterial.lc 1311:29-1311:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1312:31-1312:42  StageTexture
-testdata/performance/SampleMaterial.lc 1313:34-1313:38  Bool
-testdata/performance/SampleMaterial.lc 1314:33-1314:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1315:33-1315:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1316:41-1316:46  Bool
-testdata/performance/SampleMaterial.lc 1317:38-1317:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1306:15-1315:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1316:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1318:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1307:29-1307:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1307:29-1307:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1307:34-1307:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1307:36-1307:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1307:49-1307:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1308:30-1308:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1309:32-1309:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1310:29-1310:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1311:29-1311:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1312:31-1312:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1313:34-1313:38
+    Bool
+testdata/performance/SampleMaterial.lc 1314:33-1314:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1315:33-1315:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1316:41-1316:46
+    Bool
+testdata/performance/SampleMaterial.lc 1317:38-1317:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1324:7-1332:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1324:7-1333:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1324:7-1334:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1324:7-1362:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1324:7-1364:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1325:24-1325:26  ()
-testdata/performance/SampleMaterial.lc 1326:24-1326:26  ()
-testdata/performance/SampleMaterial.lc 1327:22-1327:27  Bool
-testdata/performance/SampleMaterial.lc 1328:20-1328:21  _b
-testdata/performance/SampleMaterial.lc 1329:30-1329:35  Bool
-testdata/performance/SampleMaterial.lc 1330:23-1330:28  Bool
-testdata/performance/SampleMaterial.lc 1331:20-1331:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1324:7-1332:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1333:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1334:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1362:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1364:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1325:24-1325:26
+    ()
+testdata/performance/SampleMaterial.lc 1326:24-1326:26
+    ()
+testdata/performance/SampleMaterial.lc 1327:22-1327:27
+    Bool
+testdata/performance/SampleMaterial.lc 1328:20-1328:21
+    _b
+testdata/performance/SampleMaterial.lc 1329:30-1329:35
+    Bool
+testdata/performance/SampleMaterial.lc 1330:23-1330:28
+    Bool
+testdata/performance/SampleMaterial.lc 1331:20-1331:33
+    CullType
+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-1337:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1338:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1336:15-1340:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1339:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1336:15-1341:31
+    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
-testdata/performance/SampleMaterial.lc 1336:15-1345:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1346:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1348:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1337:29-1337:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1338:30-1338:50  RGBGen
-testdata/performance/SampleMaterial.lc 1339:32-1339:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1340:29-1340:36  TCGen
-testdata/performance/SampleMaterial.lc 1341:29-1341:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1342:31-1342:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1342:31-1342:74  StageTexture
-testdata/performance/SampleMaterial.lc 1342:38-1342:74  String
-testdata/performance/SampleMaterial.lc 1343:34-1343:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1336:15-1345:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1346:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1348:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1337:29-1337:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1338:30-1338:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1339:32-1339:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1340:29-1340:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1341:29-1341:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1342:31-1342:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1342:31-1342:74
+    StageTexture
+testdata/performance/SampleMaterial.lc 1342:38-1342:74
+    String
+testdata/performance/SampleMaterial.lc 1343:34-1343:38
+    Bool
+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-1350:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1351:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1349:15-1353:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1352:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1349:15-1354:31
+    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
-testdata/performance/SampleMaterial.lc 1349:15-1358:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1359:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1361:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1350:29-1350:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1350:29-1350:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1350:34-1350:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1350:36-1350:46  Blending'
-testdata/performance/SampleMaterial.lc 1350:49-1350:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1351:30-1351:50  RGBGen
-testdata/performance/SampleMaterial.lc 1352:32-1352:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1353:29-1353:40  TCGen
-testdata/performance/SampleMaterial.lc 1354:29-1354:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1355:31-1355:42  StageTexture
-testdata/performance/SampleMaterial.lc 1356:34-1356:38  Bool
-testdata/performance/SampleMaterial.lc 1357:33-1357:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1358:33-1358:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1359:41-1359:46  Bool
-testdata/performance/SampleMaterial.lc 1360:38-1360:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1349:15-1358:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1359:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1361:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1350:29-1350:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1350:29-1350:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1350:34-1350:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1350:36-1350:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1350:49-1350:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1351:30-1351:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1352:32-1352:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1353:29-1353:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1354:29-1354:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1355:31-1355:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1356:34-1356:38
+    Bool
+testdata/performance/SampleMaterial.lc 1357:33-1357:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1358:33-1358:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1359:41-1359:46
+    Bool
+testdata/performance/SampleMaterial.lc 1360:38-1360:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1367:7-1375:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1367:7-1376:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1367:7-1377:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1367:7-1405:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1367:7-1407:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1368:24-1368:26  ()
-testdata/performance/SampleMaterial.lc 1369:24-1369:26  ()
-testdata/performance/SampleMaterial.lc 1370:22-1370:27  Bool
-testdata/performance/SampleMaterial.lc 1371:20-1371:21  _b
-testdata/performance/SampleMaterial.lc 1372:30-1372:35  Bool
-testdata/performance/SampleMaterial.lc 1373:23-1373:28  Bool
-testdata/performance/SampleMaterial.lc 1374:20-1374:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1367:7-1375:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1376:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1377:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1405:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1407:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1368:24-1368:26
+    ()
+testdata/performance/SampleMaterial.lc 1369:24-1369:26
+    ()
+testdata/performance/SampleMaterial.lc 1370:22-1370:27
+    Bool
+testdata/performance/SampleMaterial.lc 1371:20-1371:21
+    _b
+testdata/performance/SampleMaterial.lc 1372:30-1372:35
+    Bool
+testdata/performance/SampleMaterial.lc 1373:23-1373:28
+    Bool
+testdata/performance/SampleMaterial.lc 1374:20-1374:33
+    CullType
+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-1380:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1381:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1379:15-1383:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1382:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1379:15-1384:31
+    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
-testdata/performance/SampleMaterial.lc 1379:15-1388:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1389:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1391:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1380:29-1380:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1381:30-1381:50  RGBGen
-testdata/performance/SampleMaterial.lc 1382:32-1382:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1383:29-1383:36  TCGen
-testdata/performance/SampleMaterial.lc 1384:29-1384:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1385:31-1385:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1385:31-1385:75  StageTexture
-testdata/performance/SampleMaterial.lc 1385:38-1385:75  String
-testdata/performance/SampleMaterial.lc 1386:34-1386:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1379:15-1388:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1389:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1391:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1380:29-1380:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1381:30-1381:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1382:32-1382:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1383:29-1383:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1384:29-1384:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1385:31-1385:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1385:31-1385:75
+    StageTexture
+testdata/performance/SampleMaterial.lc 1385:38-1385:75
+    String
+testdata/performance/SampleMaterial.lc 1386:34-1386:38
+    Bool
+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-1393:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1394:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1392:15-1396:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1395:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1392:15-1397:31
+    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
-testdata/performance/SampleMaterial.lc 1392:15-1401:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1402:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1404:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1393:29-1393:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1393:29-1393:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1393:34-1393:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1393:36-1393:46  Blending'
-testdata/performance/SampleMaterial.lc 1393:49-1393:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1394:30-1394:50  RGBGen
-testdata/performance/SampleMaterial.lc 1395:32-1395:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1396:29-1396:40  TCGen
-testdata/performance/SampleMaterial.lc 1397:29-1397:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1398:31-1398:42  StageTexture
-testdata/performance/SampleMaterial.lc 1399:34-1399:38  Bool
-testdata/performance/SampleMaterial.lc 1400:33-1400:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1401:33-1401:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1402:41-1402:46  Bool
-testdata/performance/SampleMaterial.lc 1403:38-1403:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1392:15-1401:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1402:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1404:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1393:29-1393:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1393:29-1393:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1393:34-1393:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1393:36-1393:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1393:49-1393:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1394:30-1394:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1395:32-1395:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1396:29-1396:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1397:29-1397:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1398:31-1398:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1399:34-1399:38
+    Bool
+testdata/performance/SampleMaterial.lc 1400:33-1400:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1401:33-1401:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1402:41-1402:46
+    Bool
+testdata/performance/SampleMaterial.lc 1403:38-1403:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1410:7-1418:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1410:7-1419:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1410:7-1420:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1410:7-1448:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1410:7-1450:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1411:24-1411:26  ()
-testdata/performance/SampleMaterial.lc 1412:24-1412:26  ()
-testdata/performance/SampleMaterial.lc 1413:22-1413:27  Bool
-testdata/performance/SampleMaterial.lc 1414:20-1414:21  _b
-testdata/performance/SampleMaterial.lc 1415:30-1415:35  Bool
-testdata/performance/SampleMaterial.lc 1416:23-1416:28  Bool
-testdata/performance/SampleMaterial.lc 1417:20-1417:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1410:7-1418:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1419:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1420:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1448:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1450:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1411:24-1411:26
+    ()
+testdata/performance/SampleMaterial.lc 1412:24-1412:26
+    ()
+testdata/performance/SampleMaterial.lc 1413:22-1413:27
+    Bool
+testdata/performance/SampleMaterial.lc 1414:20-1414:21
+    _b
+testdata/performance/SampleMaterial.lc 1415:30-1415:35
+    Bool
+testdata/performance/SampleMaterial.lc 1416:23-1416:28
+    Bool
+testdata/performance/SampleMaterial.lc 1417:20-1417:33
+    CullType
+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-1423:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1424:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1422:15-1426:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1425:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1422:15-1427:31
+    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
-testdata/performance/SampleMaterial.lc 1422:15-1431:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1432:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1434:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1423:29-1423:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1424:30-1424:50  RGBGen
-testdata/performance/SampleMaterial.lc 1425:32-1425:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1426:29-1426:36  TCGen
-testdata/performance/SampleMaterial.lc 1427:29-1427:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1428:31-1428:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1428:31-1428:75  StageTexture
-testdata/performance/SampleMaterial.lc 1428:38-1428:75  String
-testdata/performance/SampleMaterial.lc 1429:34-1429:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1422:15-1431:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1432:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1434:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1423:29-1423:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1424:30-1424:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1425:32-1425:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1426:29-1426:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1427:29-1427:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1428:31-1428:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1428:31-1428:75
+    StageTexture
+testdata/performance/SampleMaterial.lc 1428:38-1428:75
+    String
+testdata/performance/SampleMaterial.lc 1429:34-1429:38
+    Bool
+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-1436:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1437:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1435:15-1439:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1438:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1435:15-1440:31
+    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
-testdata/performance/SampleMaterial.lc 1435:15-1444:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1445:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1447:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1436:29-1436:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1436:29-1436:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1436:34-1436:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1436:36-1436:46  Blending'
-testdata/performance/SampleMaterial.lc 1436:49-1436:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1437:30-1437:50  RGBGen
-testdata/performance/SampleMaterial.lc 1438:32-1438:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1439:29-1439:40  TCGen
-testdata/performance/SampleMaterial.lc 1440:29-1440:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1441:31-1441:42  StageTexture
-testdata/performance/SampleMaterial.lc 1442:34-1442:38  Bool
-testdata/performance/SampleMaterial.lc 1443:33-1443:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1444:33-1444:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1445:41-1445:46  Bool
-testdata/performance/SampleMaterial.lc 1446:38-1446:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1435:15-1444:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1445:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1447:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1436:29-1436:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1436:29-1436:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1436:34-1436:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1436:36-1436:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1436:49-1436:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1437:30-1437:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1438:32-1438:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1439:29-1439:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1440:29-1440:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1441:31-1441:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1442:34-1442:38
+    Bool
+testdata/performance/SampleMaterial.lc 1443:33-1443:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1444:33-1444:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1445:41-1445:46
+    Bool
+testdata/performance/SampleMaterial.lc 1446:38-1446:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1453:7-1461:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1453:7-1462:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1453:7-1463:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1453:7-1491:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1453:7-1493:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1454:24-1454:26  ()
-testdata/performance/SampleMaterial.lc 1455:24-1455:26  ()
-testdata/performance/SampleMaterial.lc 1456:22-1456:27  Bool
-testdata/performance/SampleMaterial.lc 1457:20-1457:21  _b
-testdata/performance/SampleMaterial.lc 1458:30-1458:35  Bool
-testdata/performance/SampleMaterial.lc 1459:23-1459:28  Bool
-testdata/performance/SampleMaterial.lc 1460:20-1460:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1453:7-1461:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1462:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1463:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1491:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1493:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1454:24-1454:26
+    ()
+testdata/performance/SampleMaterial.lc 1455:24-1455:26
+    ()
+testdata/performance/SampleMaterial.lc 1456:22-1456:27
+    Bool
+testdata/performance/SampleMaterial.lc 1457:20-1457:21
+    _b
+testdata/performance/SampleMaterial.lc 1458:30-1458:35
+    Bool
+testdata/performance/SampleMaterial.lc 1459:23-1459:28
+    Bool
+testdata/performance/SampleMaterial.lc 1460:20-1460:33
+    CullType
+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-1466:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1467:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1465:15-1469:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1468:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1465:15-1470:31
+    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
-testdata/performance/SampleMaterial.lc 1465:15-1474:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1475:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1477:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1466:29-1466:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1467:30-1467:50  RGBGen
-testdata/performance/SampleMaterial.lc 1468:32-1468:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1469:29-1469:36  TCGen
-testdata/performance/SampleMaterial.lc 1470:29-1470:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1471:31-1471:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1471:31-1471:75  StageTexture
-testdata/performance/SampleMaterial.lc 1471:38-1471:75  String
-testdata/performance/SampleMaterial.lc 1472:34-1472:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1465:15-1474:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1475:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1477:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1466:29-1466:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1467:30-1467:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1468:32-1468:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1469:29-1469:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1470:29-1470:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1471:31-1471:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1471:31-1471:75
+    StageTexture
+testdata/performance/SampleMaterial.lc 1471:38-1471:75
+    String
+testdata/performance/SampleMaterial.lc 1472:34-1472:38
+    Bool
+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-1479:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1480:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1478:15-1482:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1481:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1478:15-1483:31
+    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
-testdata/performance/SampleMaterial.lc 1478:15-1487:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1488:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1490:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1479:29-1479:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1479:29-1479:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1479:34-1479:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1479:36-1479:46  Blending'
-testdata/performance/SampleMaterial.lc 1479:49-1479:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1480:30-1480:50  RGBGen
-testdata/performance/SampleMaterial.lc 1481:32-1481:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1482:29-1482:40  TCGen
-testdata/performance/SampleMaterial.lc 1483:29-1483:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1484:31-1484:42  StageTexture
-testdata/performance/SampleMaterial.lc 1485:34-1485:38  Bool
-testdata/performance/SampleMaterial.lc 1486:33-1486:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1487:33-1487:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1488:41-1488:46  Bool
-testdata/performance/SampleMaterial.lc 1489:38-1489:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1478:15-1487:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1488:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1490:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1479:29-1479:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1479:29-1479:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1479:34-1479:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1479:36-1479:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1479:49-1479:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1480:30-1480:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1481:32-1481:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1482:29-1482:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1483:29-1483:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1484:31-1484:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1485:34-1485:38
+    Bool
+testdata/performance/SampleMaterial.lc 1486:33-1486:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1487:33-1487:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1488:41-1488:46
+    Bool
+testdata/performance/SampleMaterial.lc 1489:38-1489:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1496:7-1504:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1496:7-1505:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1496:7-1506:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1496:7-1534:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1496:7-1536:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1497:24-1497:26  ()
-testdata/performance/SampleMaterial.lc 1498:24-1498:26  ()
-testdata/performance/SampleMaterial.lc 1499:22-1499:27  Bool
-testdata/performance/SampleMaterial.lc 1500:20-1500:21  _b
-testdata/performance/SampleMaterial.lc 1501:30-1501:35  Bool
-testdata/performance/SampleMaterial.lc 1502:23-1502:28  Bool
-testdata/performance/SampleMaterial.lc 1503:20-1503:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1496:7-1504:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1505:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1506:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1534:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1536:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1497:24-1497:26
+    ()
+testdata/performance/SampleMaterial.lc 1498:24-1498:26
+    ()
+testdata/performance/SampleMaterial.lc 1499:22-1499:27
+    Bool
+testdata/performance/SampleMaterial.lc 1500:20-1500:21
+    _b
+testdata/performance/SampleMaterial.lc 1501:30-1501:35
+    Bool
+testdata/performance/SampleMaterial.lc 1502:23-1502:28
+    Bool
+testdata/performance/SampleMaterial.lc 1503:20-1503:33
+    CullType
+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-1509:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1510:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1508:15-1512:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1511:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1508:15-1513:31
+    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
-testdata/performance/SampleMaterial.lc 1508:15-1517:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1518:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1520:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1509:29-1509:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1510:30-1510:50  RGBGen
-testdata/performance/SampleMaterial.lc 1511:32-1511:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1512:29-1512:36  TCGen
-testdata/performance/SampleMaterial.lc 1513:29-1513:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1514:31-1514:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1514:31-1514:76  StageTexture
-testdata/performance/SampleMaterial.lc 1514:38-1514:76  String
-testdata/performance/SampleMaterial.lc 1515:34-1515:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1508:15-1517:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1518:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1520:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1509:29-1509:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1510:30-1510:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1511:32-1511:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1512:29-1512:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1513:29-1513:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1514:31-1514:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1514:31-1514:76
+    StageTexture
+testdata/performance/SampleMaterial.lc 1514:38-1514:76
+    String
+testdata/performance/SampleMaterial.lc 1515:34-1515:38
+    Bool
+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-1522:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1523:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1521:15-1525:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1524:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1521:15-1526:31
+    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
-testdata/performance/SampleMaterial.lc 1521:15-1530:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1531:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1533:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1522:29-1522:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1522:29-1522:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1522:34-1522:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1522:36-1522:46  Blending'
-testdata/performance/SampleMaterial.lc 1522:49-1522:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1523:30-1523:50  RGBGen
-testdata/performance/SampleMaterial.lc 1524:32-1524:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1525:29-1525:40  TCGen
-testdata/performance/SampleMaterial.lc 1526:29-1526:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1527:31-1527:42  StageTexture
-testdata/performance/SampleMaterial.lc 1528:34-1528:38  Bool
-testdata/performance/SampleMaterial.lc 1529:33-1529:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1530:33-1530:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1531:41-1531:46  Bool
-testdata/performance/SampleMaterial.lc 1532:38-1532:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1521:15-1530:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1531:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1533:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1522:29-1522:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1522:29-1522:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1522:34-1522:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1522:36-1522:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1522:49-1522:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1523:30-1523:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1524:32-1524:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1525:29-1525:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1526:29-1526:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1527:31-1527:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1528:34-1528:38
+    Bool
+testdata/performance/SampleMaterial.lc 1529:33-1529:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1530:33-1530:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1531:41-1531:46
+    Bool
+testdata/performance/SampleMaterial.lc 1532:38-1532:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1539:7-1547:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1539:7-1548:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1539:7-1549:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1539:7-1577:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1539:7-1579:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1540:24-1540:26  ()
-testdata/performance/SampleMaterial.lc 1541:24-1541:26  ()
-testdata/performance/SampleMaterial.lc 1542:22-1542:27  Bool
-testdata/performance/SampleMaterial.lc 1543:20-1543:21  _b
-testdata/performance/SampleMaterial.lc 1544:30-1544:35  Bool
-testdata/performance/SampleMaterial.lc 1545:23-1545:28  Bool
-testdata/performance/SampleMaterial.lc 1546:20-1546:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1539:7-1547:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1548:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1549:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1577:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1579:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1540:24-1540:26
+    ()
+testdata/performance/SampleMaterial.lc 1541:24-1541:26
+    ()
+testdata/performance/SampleMaterial.lc 1542:22-1542:27
+    Bool
+testdata/performance/SampleMaterial.lc 1543:20-1543:21
+    _b
+testdata/performance/SampleMaterial.lc 1544:30-1544:35
+    Bool
+testdata/performance/SampleMaterial.lc 1545:23-1545:28
+    Bool
+testdata/performance/SampleMaterial.lc 1546:20-1546:33
+    CullType
+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-1552:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1553:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1551:15-1555:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1554:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1551:15-1556:31
+    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
-testdata/performance/SampleMaterial.lc 1551:15-1560:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1561:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1563:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1552:29-1552:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1553:30-1553:50  RGBGen
-testdata/performance/SampleMaterial.lc 1554:32-1554:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1555:29-1555:36  TCGen
-testdata/performance/SampleMaterial.lc 1556:29-1556:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1557:31-1557:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1557:31-1557:78  StageTexture
-testdata/performance/SampleMaterial.lc 1557:38-1557:78  String
-testdata/performance/SampleMaterial.lc 1558:34-1558:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1551:15-1560:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1561:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1563:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1552:29-1552:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1553:30-1553:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1554:32-1554:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1555:29-1555:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1556:29-1556:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1557:31-1557:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1557:31-1557:78
+    StageTexture
+testdata/performance/SampleMaterial.lc 1557:38-1557:78
+    String
+testdata/performance/SampleMaterial.lc 1558:34-1558:38
+    Bool
+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-1565:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1566:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1564:15-1568:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1567:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1564:15-1569:31
+    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
-testdata/performance/SampleMaterial.lc 1564:15-1573:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1574:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1576:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1565:29-1565:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1565:29-1565:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1565:34-1565:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1565:36-1565:46  Blending'
-testdata/performance/SampleMaterial.lc 1565:49-1565:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1566:30-1566:50  RGBGen
-testdata/performance/SampleMaterial.lc 1567:32-1567:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1568:29-1568:40  TCGen
-testdata/performance/SampleMaterial.lc 1569:29-1569:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1570:31-1570:42  StageTexture
-testdata/performance/SampleMaterial.lc 1571:34-1571:38  Bool
-testdata/performance/SampleMaterial.lc 1572:33-1572:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1573:33-1573:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1574:41-1574:46  Bool
-testdata/performance/SampleMaterial.lc 1575:38-1575:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1564:15-1573:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1574:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1576:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1565:29-1565:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1565:29-1565:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1565:34-1565:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1565:36-1565:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1565:49-1565:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1566:30-1566:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1567:32-1567:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1568:29-1568:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1569:29-1569:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1570:31-1570:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1571:34-1571:38
+    Bool
+testdata/performance/SampleMaterial.lc 1572:33-1572:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1573:33-1573:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1574:41-1574:46
+    Bool
+testdata/performance/SampleMaterial.lc 1575:38-1575:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1582:7-1590:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1582:7-1591:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1582:7-1592:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1582:7-1620:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1582:7-1622:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1583:24-1583:26  ()
-testdata/performance/SampleMaterial.lc 1584:24-1584:26  ()
-testdata/performance/SampleMaterial.lc 1585:22-1585:27  Bool
-testdata/performance/SampleMaterial.lc 1586:20-1586:21  _b
-testdata/performance/SampleMaterial.lc 1587:30-1587:35  Bool
-testdata/performance/SampleMaterial.lc 1588:23-1588:28  Bool
-testdata/performance/SampleMaterial.lc 1589:20-1589:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1582:7-1590:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1591:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1592:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1620:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1622:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1583:24-1583:26
+    ()
+testdata/performance/SampleMaterial.lc 1584:24-1584:26
+    ()
+testdata/performance/SampleMaterial.lc 1585:22-1585:27
+    Bool
+testdata/performance/SampleMaterial.lc 1586:20-1586:21
+    _b
+testdata/performance/SampleMaterial.lc 1587:30-1587:35
+    Bool
+testdata/performance/SampleMaterial.lc 1588:23-1588:28
+    Bool
+testdata/performance/SampleMaterial.lc 1589:20-1589:33
+    CullType
+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-1595:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1596:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1594:15-1598:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1597:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1594:15-1599:31
+    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
-testdata/performance/SampleMaterial.lc 1594:15-1603:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1604:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1606:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1595:29-1595:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1596:30-1596:50  RGBGen
-testdata/performance/SampleMaterial.lc 1597:32-1597:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1598:29-1598:36  TCGen
-testdata/performance/SampleMaterial.lc 1599:29-1599:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1600:31-1600:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1600:31-1600:80  StageTexture
-testdata/performance/SampleMaterial.lc 1600:38-1600:80  String
-testdata/performance/SampleMaterial.lc 1601:34-1601:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1594:15-1603:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1604:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1606:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1595:29-1595:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1596:30-1596:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1597:32-1597:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1598:29-1598:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1599:29-1599:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1600:31-1600:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1600:31-1600:80
+    StageTexture
+testdata/performance/SampleMaterial.lc 1600:38-1600:80
+    String
+testdata/performance/SampleMaterial.lc 1601:34-1601:38
+    Bool
+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-1608:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1609:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1607:15-1611:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1610:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1607:15-1612:31
+    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
-testdata/performance/SampleMaterial.lc 1607:15-1616:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1617:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1619:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1608:29-1608:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1608:29-1608:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1608:34-1608:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1608:36-1608:46  Blending'
-testdata/performance/SampleMaterial.lc 1608:49-1608:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1609:30-1609:50  RGBGen
-testdata/performance/SampleMaterial.lc 1610:32-1610:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1611:29-1611:40  TCGen
-testdata/performance/SampleMaterial.lc 1612:29-1612:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1613:31-1613:42  StageTexture
-testdata/performance/SampleMaterial.lc 1614:34-1614:38  Bool
-testdata/performance/SampleMaterial.lc 1615:33-1615:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1616:33-1616:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1617:41-1617:46  Bool
-testdata/performance/SampleMaterial.lc 1618:38-1618:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1607:15-1616:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1617:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1619:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1608:29-1608:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1608:29-1608:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1608:34-1608:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1608:36-1608:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1608:49-1608:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1609:30-1609:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1610:32-1610:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1611:29-1611:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1612:29-1612:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1613:31-1613:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1614:34-1614:38
+    Bool
+testdata/performance/SampleMaterial.lc 1615:33-1615:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1616:33-1616:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1617:41-1617:46
+    Bool
+testdata/performance/SampleMaterial.lc 1618:38-1618:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1625:7-1633:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1625:7-1634:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1625:7-1635:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1625:7-1663:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1625:7-1665:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1626:24-1626:26  ()
-testdata/performance/SampleMaterial.lc 1627:24-1627:26  ()
-testdata/performance/SampleMaterial.lc 1628:22-1628:27  Bool
-testdata/performance/SampleMaterial.lc 1629:20-1629:21  _b
-testdata/performance/SampleMaterial.lc 1630:30-1630:35  Bool
-testdata/performance/SampleMaterial.lc 1631:23-1631:28  Bool
-testdata/performance/SampleMaterial.lc 1632:20-1632:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1625:7-1633:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1634:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1635:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1663:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1665:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1626:24-1626:26
+    ()
+testdata/performance/SampleMaterial.lc 1627:24-1627:26
+    ()
+testdata/performance/SampleMaterial.lc 1628:22-1628:27
+    Bool
+testdata/performance/SampleMaterial.lc 1629:20-1629:21
+    _b
+testdata/performance/SampleMaterial.lc 1630:30-1630:35
+    Bool
+testdata/performance/SampleMaterial.lc 1631:23-1631:28
+    Bool
+testdata/performance/SampleMaterial.lc 1632:20-1632:33
+    CullType
+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-1638:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1639:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1637:15-1641:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1640:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1637:15-1642:31
+    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
-testdata/performance/SampleMaterial.lc 1637:15-1646:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1647:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1649:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1638:29-1638:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1639:30-1639:50  RGBGen
-testdata/performance/SampleMaterial.lc 1640:32-1640:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1641:29-1641:36  TCGen
-testdata/performance/SampleMaterial.lc 1642:29-1642:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1643:31-1643:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1643:31-1643:75  StageTexture
-testdata/performance/SampleMaterial.lc 1643:38-1643:75  String
-testdata/performance/SampleMaterial.lc 1644:34-1644:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1637:15-1646:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1647:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1649:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1638:29-1638:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1639:30-1639:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1640:32-1640:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1641:29-1641:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1642:29-1642:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1643:31-1643:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1643:31-1643:75
+    StageTexture
+testdata/performance/SampleMaterial.lc 1643:38-1643:75
+    String
+testdata/performance/SampleMaterial.lc 1644:34-1644:38
+    Bool
+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-1651:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1652:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1650:15-1654:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1653:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1650:15-1655:31
+    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
-testdata/performance/SampleMaterial.lc 1650:15-1659:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1660:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1662:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1651:29-1651:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1651:29-1651:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1651:34-1651:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1651:36-1651:46  Blending'
-testdata/performance/SampleMaterial.lc 1651:49-1651:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1652:30-1652:50  RGBGen
-testdata/performance/SampleMaterial.lc 1653:32-1653:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1654:29-1654:40  TCGen
-testdata/performance/SampleMaterial.lc 1655:29-1655:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1656:31-1656:42  StageTexture
-testdata/performance/SampleMaterial.lc 1657:34-1657:38  Bool
-testdata/performance/SampleMaterial.lc 1658:33-1658:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1659:33-1659:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1660:41-1660:46  Bool
-testdata/performance/SampleMaterial.lc 1661:38-1661:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1650:15-1659:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1660:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1662:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1651:29-1651:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1651:29-1651:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1651:34-1651:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1651:36-1651:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1651:49-1651:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1652:30-1652:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1653:32-1653:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1654:29-1654:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1655:29-1655:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1656:31-1656:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1657:34-1657:38
+    Bool
+testdata/performance/SampleMaterial.lc 1658:33-1658:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1659:33-1659:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1660:41-1660:46
+    Bool
+testdata/performance/SampleMaterial.lc 1661:38-1661:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1668:7-1676:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1668:7-1677:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1668:7-1678:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1668:7-1706:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1668:7-1708:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1669:24-1669:26  ()
-testdata/performance/SampleMaterial.lc 1670:24-1670:26  ()
-testdata/performance/SampleMaterial.lc 1671:22-1671:27  Bool
-testdata/performance/SampleMaterial.lc 1672:20-1672:21  _b
-testdata/performance/SampleMaterial.lc 1673:30-1673:35  Bool
-testdata/performance/SampleMaterial.lc 1674:23-1674:28  Bool
-testdata/performance/SampleMaterial.lc 1675:20-1675:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1668:7-1676:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1677:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1678:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1706:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1708:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1669:24-1669:26
+    ()
+testdata/performance/SampleMaterial.lc 1670:24-1670:26
+    ()
+testdata/performance/SampleMaterial.lc 1671:22-1671:27
+    Bool
+testdata/performance/SampleMaterial.lc 1672:20-1672:21
+    _b
+testdata/performance/SampleMaterial.lc 1673:30-1673:35
+    Bool
+testdata/performance/SampleMaterial.lc 1674:23-1674:28
+    Bool
+testdata/performance/SampleMaterial.lc 1675:20-1675:33
+    CullType
+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-1681:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1682:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1680:15-1684:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1683:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1680:15-1685:31
+    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
-testdata/performance/SampleMaterial.lc 1680:15-1689:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1690:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1692:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1681:29-1681:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1682:30-1682:50  RGBGen
-testdata/performance/SampleMaterial.lc 1683:32-1683:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1684:29-1684:36  TCGen
-testdata/performance/SampleMaterial.lc 1685:29-1685:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1686:31-1686:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1686:31-1686:74  StageTexture
-testdata/performance/SampleMaterial.lc 1686:38-1686:74  String
-testdata/performance/SampleMaterial.lc 1687:34-1687:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1680:15-1689:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1690:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1692:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1681:29-1681:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1682:30-1682:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1683:32-1683:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1684:29-1684:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1685:29-1685:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1686:31-1686:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1686:31-1686:74
+    StageTexture
+testdata/performance/SampleMaterial.lc 1686:38-1686:74
+    String
+testdata/performance/SampleMaterial.lc 1687:34-1687:38
+    Bool
+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-1694:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1695:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1693:15-1697:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1696:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1693:15-1698:31
+    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
-testdata/performance/SampleMaterial.lc 1693:15-1702:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1703:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1705:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1694:29-1694:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1694:29-1694:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1694:34-1694:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1694:36-1694:46  Blending'
-testdata/performance/SampleMaterial.lc 1694:49-1694:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1695:30-1695:50  RGBGen
-testdata/performance/SampleMaterial.lc 1696:32-1696:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1697:29-1697:40  TCGen
-testdata/performance/SampleMaterial.lc 1698:29-1698:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1699:31-1699:42  StageTexture
-testdata/performance/SampleMaterial.lc 1700:34-1700:38  Bool
-testdata/performance/SampleMaterial.lc 1701:33-1701:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1702:33-1702:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1703:41-1703:46  Bool
-testdata/performance/SampleMaterial.lc 1704:38-1704:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1693:15-1702:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1703:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1705:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1694:29-1694:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1694:29-1694:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1694:34-1694:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1694:36-1694:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1694:49-1694:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1695:30-1695:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1696:32-1696:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1697:29-1697:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1698:29-1698:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1699:31-1699:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1700:34-1700:38
+    Bool
+testdata/performance/SampleMaterial.lc 1701:33-1701:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1702:33-1702:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1703:41-1703:46
+    Bool
+testdata/performance/SampleMaterial.lc 1704:38-1704:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1711:7-1719:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1711:7-1720:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1711:7-1721:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1711:7-1749:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1711:7-1751:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1712:24-1712:26  ()
-testdata/performance/SampleMaterial.lc 1713:24-1713:26  ()
-testdata/performance/SampleMaterial.lc 1714:22-1714:27  Bool
-testdata/performance/SampleMaterial.lc 1715:20-1715:21  _b
-testdata/performance/SampleMaterial.lc 1716:30-1716:35  Bool
-testdata/performance/SampleMaterial.lc 1717:23-1717:28  Bool
-testdata/performance/SampleMaterial.lc 1718:20-1718:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1711:7-1719:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1720:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1721:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1749:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1751:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1712:24-1712:26
+    ()
+testdata/performance/SampleMaterial.lc 1713:24-1713:26
+    ()
+testdata/performance/SampleMaterial.lc 1714:22-1714:27
+    Bool
+testdata/performance/SampleMaterial.lc 1715:20-1715:21
+    _b
+testdata/performance/SampleMaterial.lc 1716:30-1716:35
+    Bool
+testdata/performance/SampleMaterial.lc 1717:23-1717:28
+    Bool
+testdata/performance/SampleMaterial.lc 1718:20-1718:33
+    CullType
+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-1724:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1725:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1723:15-1727:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1726:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1723:15-1728:31
+    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
-testdata/performance/SampleMaterial.lc 1723:15-1732:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1733:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1735:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1724:29-1724:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1725:30-1725:50  RGBGen
-testdata/performance/SampleMaterial.lc 1726:32-1726:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1727:29-1727:36  TCGen
-testdata/performance/SampleMaterial.lc 1728:29-1728:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1729:31-1729:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1729:31-1729:72  StageTexture
-testdata/performance/SampleMaterial.lc 1729:38-1729:72  String
-testdata/performance/SampleMaterial.lc 1730:34-1730:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1723:15-1732:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1733:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1735:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1724:29-1724:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1725:30-1725:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1726:32-1726:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1727:29-1727:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1728:29-1728:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1729:31-1729:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1729:31-1729:72
+    StageTexture
+testdata/performance/SampleMaterial.lc 1729:38-1729:72
+    String
+testdata/performance/SampleMaterial.lc 1730:34-1730:38
+    Bool
+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-1737:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1738:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1736:15-1740:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1739:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1736:15-1741:31
+    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
-testdata/performance/SampleMaterial.lc 1736:15-1745:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1746:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1748:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1737:29-1737:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1737:29-1737:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1737:34-1737:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1737:36-1737:46  Blending'
-testdata/performance/SampleMaterial.lc 1737:49-1737:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1738:30-1738:50  RGBGen
-testdata/performance/SampleMaterial.lc 1739:32-1739:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1740:29-1740:40  TCGen
-testdata/performance/SampleMaterial.lc 1741:29-1741:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1742:31-1742:42  StageTexture
-testdata/performance/SampleMaterial.lc 1743:34-1743:38  Bool
-testdata/performance/SampleMaterial.lc 1744:33-1744:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1745:33-1745:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1746:41-1746:46  Bool
-testdata/performance/SampleMaterial.lc 1747:38-1747:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1736:15-1745:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1746:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1748:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1737:29-1737:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1737:29-1737:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1737:34-1737:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1737:36-1737:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1737:49-1737:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1738:30-1738:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1739:32-1739:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1740:29-1740:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1741:29-1741:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1742:31-1742:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1743:34-1743:38
+    Bool
+testdata/performance/SampleMaterial.lc 1744:33-1744:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1745:33-1745:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1746:41-1746:46
+    Bool
+testdata/performance/SampleMaterial.lc 1747:38-1747:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1754:7-1762:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1754:7-1763:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1754:7-1764:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1754:7-1792:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1754:7-1794:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1755:24-1755:26  ()
-testdata/performance/SampleMaterial.lc 1756:24-1756:26  ()
-testdata/performance/SampleMaterial.lc 1757:22-1757:27  Bool
-testdata/performance/SampleMaterial.lc 1758:20-1758:21  _b
-testdata/performance/SampleMaterial.lc 1759:30-1759:35  Bool
-testdata/performance/SampleMaterial.lc 1760:23-1760:28  Bool
-testdata/performance/SampleMaterial.lc 1761:20-1761:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1754:7-1762:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1763:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1764:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1792:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1794:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1755:24-1755:26
+    ()
+testdata/performance/SampleMaterial.lc 1756:24-1756:26
+    ()
+testdata/performance/SampleMaterial.lc 1757:22-1757:27
+    Bool
+testdata/performance/SampleMaterial.lc 1758:20-1758:21
+    _b
+testdata/performance/SampleMaterial.lc 1759:30-1759:35
+    Bool
+testdata/performance/SampleMaterial.lc 1760:23-1760:28
+    Bool
+testdata/performance/SampleMaterial.lc 1761:20-1761:33
+    CullType
+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-1767:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1768:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1766:15-1770:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1769:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1766:15-1771:31
+    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
-testdata/performance/SampleMaterial.lc 1766:15-1775:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1776:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1778:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1767:29-1767:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1768:30-1768:50  RGBGen
-testdata/performance/SampleMaterial.lc 1769:32-1769:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1770:29-1770:36  TCGen
-testdata/performance/SampleMaterial.lc 1771:29-1771:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1772:31-1772:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1772:31-1772:73  StageTexture
-testdata/performance/SampleMaterial.lc 1772:38-1772:73  String
-testdata/performance/SampleMaterial.lc 1773:34-1773:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1766:15-1775:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1776:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1778:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1767:29-1767:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1768:30-1768:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1769:32-1769:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1770:29-1770:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1771:29-1771:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1772:31-1772:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1772:31-1772:73
+    StageTexture
+testdata/performance/SampleMaterial.lc 1772:38-1772:73
+    String
+testdata/performance/SampleMaterial.lc 1773:34-1773:38
+    Bool
+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-1780:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1781:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1779:15-1783:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1782:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1779:15-1784:31
+    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
-testdata/performance/SampleMaterial.lc 1779:15-1788:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1789:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1791:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1780:29-1780:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1780:29-1780:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1780:34-1780:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1780:36-1780:46  Blending'
-testdata/performance/SampleMaterial.lc 1780:49-1780:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1781:30-1781:50  RGBGen
-testdata/performance/SampleMaterial.lc 1782:32-1782:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1783:29-1783:40  TCGen
-testdata/performance/SampleMaterial.lc 1784:29-1784:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1785:31-1785:42  StageTexture
-testdata/performance/SampleMaterial.lc 1786:34-1786:38  Bool
-testdata/performance/SampleMaterial.lc 1787:33-1787:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1788:33-1788:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1789:41-1789:46  Bool
-testdata/performance/SampleMaterial.lc 1790:38-1790:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1779:15-1788:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1789:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1791:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1780:29-1780:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1780:29-1780:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1780:34-1780:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1780:36-1780:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1780:49-1780:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1781:30-1781:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1782:32-1782:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1783:29-1783:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1784:29-1784:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1785:31-1785:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1786:34-1786:38
+    Bool
+testdata/performance/SampleMaterial.lc 1787:33-1787:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1788:33-1788:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1789:41-1789:46
+    Bool
+testdata/performance/SampleMaterial.lc 1790:38-1790:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1797:7-1805:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1797:7-1806:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1797:7-1807:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1797:7-1835:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1797:7-1837:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1798:24-1798:26  ()
-testdata/performance/SampleMaterial.lc 1799:24-1799:26  ()
-testdata/performance/SampleMaterial.lc 1800:22-1800:27  Bool
-testdata/performance/SampleMaterial.lc 1801:20-1801:21  _b
-testdata/performance/SampleMaterial.lc 1802:30-1802:35  Bool
-testdata/performance/SampleMaterial.lc 1803:23-1803:28  Bool
-testdata/performance/SampleMaterial.lc 1804:20-1804:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1797:7-1805:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1806:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1807:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1835:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1837:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1798:24-1798:26
+    ()
+testdata/performance/SampleMaterial.lc 1799:24-1799:26
+    ()
+testdata/performance/SampleMaterial.lc 1800:22-1800:27
+    Bool
+testdata/performance/SampleMaterial.lc 1801:20-1801:21
+    _b
+testdata/performance/SampleMaterial.lc 1802:30-1802:35
+    Bool
+testdata/performance/SampleMaterial.lc 1803:23-1803:28
+    Bool
+testdata/performance/SampleMaterial.lc 1804:20-1804:33
+    CullType
+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-1810:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1811:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1809:15-1813:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1812:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1809:15-1814:31
+    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
-testdata/performance/SampleMaterial.lc 1809:15-1818:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1819:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1821:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1810:29-1810:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1811:30-1811:42  RGBGen
-testdata/performance/SampleMaterial.lc 1812:32-1812:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1813:29-1813:40  TCGen
-testdata/performance/SampleMaterial.lc 1814:29-1814:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1815:31-1815:42  StageTexture
-testdata/performance/SampleMaterial.lc 1816:34-1816:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1809:15-1818:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1819:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1821:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1810:29-1810:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1811:30-1811:42
+    RGBGen
+testdata/performance/SampleMaterial.lc 1812:32-1812:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1813:29-1813:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1814:29-1814:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1815:31-1815:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1816:34-1816:38
+    Bool
+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-1823:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1824:42  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1822:15-1826:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1825:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1822:15-1827:31
+    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
-testdata/performance/SampleMaterial.lc 1822:15-1831:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1832:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1834:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1823:29-1823:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1823:29-1823:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1823:34-1823:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1823:36-1823:46  Blending'
-testdata/performance/SampleMaterial.lc 1823:49-1823:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1824:30-1824:42  RGBGen
-testdata/performance/SampleMaterial.lc 1825:32-1825:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1826:29-1826:36  TCGen
-testdata/performance/SampleMaterial.lc 1827:29-1827:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1828:31-1828:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1828:31-1828:77  StageTexture
-testdata/performance/SampleMaterial.lc 1828:38-1828:77  String
-testdata/performance/SampleMaterial.lc 1829:34-1829:39  Bool
-testdata/performance/SampleMaterial.lc 1830:33-1830:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1831:33-1831:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1832:41-1832:46  Bool
-testdata/performance/SampleMaterial.lc 1833:38-1833:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1822:15-1831:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1832:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1834:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1823:29-1823:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1823:29-1823:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1823:34-1823:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1823:36-1823:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1823:49-1823:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1824:30-1824:42
+    RGBGen
+testdata/performance/SampleMaterial.lc 1825:32-1825:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1826:29-1826:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1827:29-1827:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1828:31-1828:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1828:31-1828:77
+    StageTexture
+testdata/performance/SampleMaterial.lc 1828:38-1828:77
+    String
+testdata/performance/SampleMaterial.lc 1829:34-1829:39
+    Bool
+testdata/performance/SampleMaterial.lc 1830:33-1830:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1831:33-1831:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1832:41-1832:46
+    Bool
+testdata/performance/SampleMaterial.lc 1833:38-1833:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1840:7-1848:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1840:7-1849:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1840:7-1850:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1840:7-1878:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1840:7-1880:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1841:24-1841:26  ()
-testdata/performance/SampleMaterial.lc 1842:24-1842:26  ()
-testdata/performance/SampleMaterial.lc 1843:22-1843:27  Bool
-testdata/performance/SampleMaterial.lc 1844:20-1844:21  _b
-testdata/performance/SampleMaterial.lc 1845:30-1845:35  Bool
-testdata/performance/SampleMaterial.lc 1846:23-1846:28  Bool
-testdata/performance/SampleMaterial.lc 1847:20-1847:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1840:7-1848:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1849:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1850:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1878:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1880:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1841:24-1841:26
+    ()
+testdata/performance/SampleMaterial.lc 1842:24-1842:26
+    ()
+testdata/performance/SampleMaterial.lc 1843:22-1843:27
+    Bool
+testdata/performance/SampleMaterial.lc 1844:20-1844:21
+    _b
+testdata/performance/SampleMaterial.lc 1845:30-1845:35
+    Bool
+testdata/performance/SampleMaterial.lc 1846:23-1846:28
+    Bool
+testdata/performance/SampleMaterial.lc 1847:20-1847:33
+    CullType
+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-1853:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1854:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1852:15-1856:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1855:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1852:15-1857:31
+    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
-testdata/performance/SampleMaterial.lc 1852:15-1861:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1862:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1864:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1853:29-1853:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1854:30-1854:50  RGBGen
-testdata/performance/SampleMaterial.lc 1855:32-1855:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1856:29-1856:36  TCGen
-testdata/performance/SampleMaterial.lc 1857:29-1857:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1858:31-1858:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1858:31-1858:73  StageTexture
-testdata/performance/SampleMaterial.lc 1858:38-1858:73  String
-testdata/performance/SampleMaterial.lc 1859:34-1859:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1852:15-1861:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1862:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1864:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1853:29-1853:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1854:30-1854:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1855:32-1855:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1856:29-1856:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1857:29-1857:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1858:31-1858:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1858:31-1858:73
+    StageTexture
+testdata/performance/SampleMaterial.lc 1858:38-1858:73
+    String
+testdata/performance/SampleMaterial.lc 1859:34-1859:38
+    Bool
+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-1866:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1867:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1865:15-1869:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1868:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1865:15-1870:31
+    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
-testdata/performance/SampleMaterial.lc 1865:15-1874:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1875:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1877:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1866:29-1866:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1866:29-1866:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1866:34-1866:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1866:36-1866:46  Blending'
-testdata/performance/SampleMaterial.lc 1866:49-1866:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1867:30-1867:50  RGBGen
-testdata/performance/SampleMaterial.lc 1868:32-1868:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1869:29-1869:40  TCGen
-testdata/performance/SampleMaterial.lc 1870:29-1870:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1871:31-1871:42  StageTexture
-testdata/performance/SampleMaterial.lc 1872:34-1872:38  Bool
-testdata/performance/SampleMaterial.lc 1873:33-1873:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1874:33-1874:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1875:41-1875:46  Bool
-testdata/performance/SampleMaterial.lc 1876:38-1876:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1865:15-1874:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1875:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1877:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1866:29-1866:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1866:29-1866:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1866:34-1866:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1866:36-1866:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1866:49-1866:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1867:30-1867:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1868:32-1868:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1869:29-1869:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1870:29-1870:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1871:31-1871:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1872:34-1872:38
+    Bool
+testdata/performance/SampleMaterial.lc 1873:33-1873:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1874:33-1874:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1875:41-1875:46
+    Bool
+testdata/performance/SampleMaterial.lc 1876:38-1876:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1883:7-1891:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1883:7-1892:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1883:7-1893:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1883:7-1921:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1883:7-1923:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1884:24-1884:26  ()
-testdata/performance/SampleMaterial.lc 1885:24-1885:26  ()
-testdata/performance/SampleMaterial.lc 1886:22-1886:27  Bool
-testdata/performance/SampleMaterial.lc 1887:20-1887:21  _b
-testdata/performance/SampleMaterial.lc 1888:30-1888:35  Bool
-testdata/performance/SampleMaterial.lc 1889:23-1889:28  Bool
-testdata/performance/SampleMaterial.lc 1890:20-1890:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1883:7-1891:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1892:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1893:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1921:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1923:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1884:24-1884:26
+    ()
+testdata/performance/SampleMaterial.lc 1885:24-1885:26
+    ()
+testdata/performance/SampleMaterial.lc 1886:22-1886:27
+    Bool
+testdata/performance/SampleMaterial.lc 1887:20-1887:21
+    _b
+testdata/performance/SampleMaterial.lc 1888:30-1888:35
+    Bool
+testdata/performance/SampleMaterial.lc 1889:23-1889:28
+    Bool
+testdata/performance/SampleMaterial.lc 1890:20-1890:33
+    CullType
+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-1896:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1897:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1895:15-1899:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1898:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1895:15-1900:31
+    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
-testdata/performance/SampleMaterial.lc 1895:15-1904:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1905:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1907:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1896:29-1896:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1897:30-1897:50  RGBGen
-testdata/performance/SampleMaterial.lc 1898:32-1898:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1899:29-1899:36  TCGen
-testdata/performance/SampleMaterial.lc 1900:29-1900:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1901:31-1901:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1901:31-1901:78  StageTexture
-testdata/performance/SampleMaterial.lc 1901:38-1901:78  String
-testdata/performance/SampleMaterial.lc 1902:34-1902:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1895:15-1904:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1905:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1907:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1896:29-1896:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1897:30-1897:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1898:32-1898:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1899:29-1899:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1900:29-1900:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1901:31-1901:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1901:31-1901:78
+    StageTexture
+testdata/performance/SampleMaterial.lc 1901:38-1901:78
+    String
+testdata/performance/SampleMaterial.lc 1902:34-1902:38
+    Bool
+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-1909:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1910:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1908:15-1912:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1911:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1908:15-1913:31
+    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
-testdata/performance/SampleMaterial.lc 1908:15-1917:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1918:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1920:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1909:29-1909:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1909:29-1909:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1909:34-1909:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1909:36-1909:46  Blending'
-testdata/performance/SampleMaterial.lc 1909:49-1909:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1910:30-1910:50  RGBGen
-testdata/performance/SampleMaterial.lc 1911:32-1911:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1912:29-1912:40  TCGen
-testdata/performance/SampleMaterial.lc 1913:29-1913:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1914:31-1914:42  StageTexture
-testdata/performance/SampleMaterial.lc 1915:34-1915:38  Bool
-testdata/performance/SampleMaterial.lc 1916:33-1916:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1917:33-1917:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1918:41-1918:46  Bool
-testdata/performance/SampleMaterial.lc 1919:38-1919:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1908:15-1917:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1918:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1920:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1909:29-1909:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1909:29-1909:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1909:34-1909:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1909:36-1909:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1909:49-1909:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1910:30-1910:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1911:32-1911:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1912:29-1912:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1913:29-1913:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1914:31-1914:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1915:34-1915:38
+    Bool
+testdata/performance/SampleMaterial.lc 1916:33-1916:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1917:33-1917:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1918:41-1918:46
+    Bool
+testdata/performance/SampleMaterial.lc 1919:38-1919:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1926:7-1934:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1926:7-1935:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1926:7-1936:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1926:7-1964:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1926:7-1966:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1927:24-1927:26  ()
-testdata/performance/SampleMaterial.lc 1928:24-1928:26  ()
-testdata/performance/SampleMaterial.lc 1929:22-1929:27  Bool
-testdata/performance/SampleMaterial.lc 1930:20-1930:21  _b
-testdata/performance/SampleMaterial.lc 1931:30-1931:35  Bool
-testdata/performance/SampleMaterial.lc 1932:23-1932:28  Bool
-testdata/performance/SampleMaterial.lc 1933:20-1933:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1926:7-1934:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1935:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1936:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1964:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1966:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1927:24-1927:26
+    ()
+testdata/performance/SampleMaterial.lc 1928:24-1928:26
+    ()
+testdata/performance/SampleMaterial.lc 1929:22-1929:27
+    Bool
+testdata/performance/SampleMaterial.lc 1930:20-1930:21
+    _b
+testdata/performance/SampleMaterial.lc 1931:30-1931:35
+    Bool
+testdata/performance/SampleMaterial.lc 1932:23-1932:28
+    Bool
+testdata/performance/SampleMaterial.lc 1933:20-1933:33
+    CullType
+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-1939:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1940:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1938:15-1942:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1941:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1938:15-1943:31
+    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
-testdata/performance/SampleMaterial.lc 1938:15-1947:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1948:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1950:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1939:29-1939:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1940:30-1940:50  RGBGen
-testdata/performance/SampleMaterial.lc 1941:32-1941:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1942:29-1942:36  TCGen
-testdata/performance/SampleMaterial.lc 1943:29-1943:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1944:31-1944:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1944:31-1944:69  StageTexture
-testdata/performance/SampleMaterial.lc 1944:38-1944:69  String
-testdata/performance/SampleMaterial.lc 1945:34-1945:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1938:15-1947:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1948:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1950:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1939:29-1939:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1940:30-1940:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1941:32-1941:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1942:29-1942:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1943:29-1943:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1944:31-1944:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1944:31-1944:69
+    StageTexture
+testdata/performance/SampleMaterial.lc 1944:38-1944:69
+    String
+testdata/performance/SampleMaterial.lc 1945:34-1945:38
+    Bool
+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-1952:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1953:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1951:15-1955:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1954:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1951:15-1956:31
+    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
-testdata/performance/SampleMaterial.lc 1951:15-1960:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1961:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1963:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1952:29-1952:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1952:29-1952:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1952:34-1952:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1952:36-1952:46  Blending'
-testdata/performance/SampleMaterial.lc 1952:49-1952:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1953:30-1953:50  RGBGen
-testdata/performance/SampleMaterial.lc 1954:32-1954:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1955:29-1955:40  TCGen
-testdata/performance/SampleMaterial.lc 1956:29-1956:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1957:31-1957:42  StageTexture
-testdata/performance/SampleMaterial.lc 1958:34-1958:38  Bool
-testdata/performance/SampleMaterial.lc 1959:33-1959:41  DepthFunction
-testdata/performance/SampleMaterial.lc 1960:33-1960:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1961:41-1961:46  Bool
-testdata/performance/SampleMaterial.lc 1962:38-1962:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1951:15-1960:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1961:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1963:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1952:29-1952:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1952:29-1952:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1952:34-1952:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1952:36-1952:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1952:49-1952:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1953:30-1953:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1954:32-1954:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1955:29-1955:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1956:29-1956:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1957:31-1957:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 1958:34-1958:38
+    Bool
+testdata/performance/SampleMaterial.lc 1959:33-1959:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 1960:33-1960:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1961:41-1961:46
+    Bool
+testdata/performance/SampleMaterial.lc 1962:38-1962:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 1969:7-1977:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1969:7-1978:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1969:7-1979:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1969:7-2007:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 1969:7-2009:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 1970:24-1970:26  ()
-testdata/performance/SampleMaterial.lc 1971:24-1971:26  ()
-testdata/performance/SampleMaterial.lc 1972:22-1972:27  Bool
-testdata/performance/SampleMaterial.lc 1973:20-1973:21  _b
-testdata/performance/SampleMaterial.lc 1974:30-1974:35  Bool
-testdata/performance/SampleMaterial.lc 1975:23-1975:28  Bool
-testdata/performance/SampleMaterial.lc 1976:20-1976:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 1969:7-1977:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1978:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1979:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-2007:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-2009:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 1970:24-1970:26
+    ()
+testdata/performance/SampleMaterial.lc 1971:24-1971:26
+    ()
+testdata/performance/SampleMaterial.lc 1972:22-1972:27
+    Bool
+testdata/performance/SampleMaterial.lc 1973:20-1973:21
+    _b
+testdata/performance/SampleMaterial.lc 1974:30-1974:35
+    Bool
+testdata/performance/SampleMaterial.lc 1975:23-1975:28
+    Bool
+testdata/performance/SampleMaterial.lc 1976:20-1976:33
+    CullType
+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-1982:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1983:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1981:15-1985:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1984:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1981:15-1986:31
+    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
-testdata/performance/SampleMaterial.lc 1981:15-1990:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1991:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1993:18  StageAttrs
-testdata/performance/SampleMaterial.lc 1982:29-1982:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 1983:30-1983:50  RGBGen
-testdata/performance/SampleMaterial.lc 1984:32-1984:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1985:29-1985:36  TCGen
-testdata/performance/SampleMaterial.lc 1986:29-1986:31  forall a . List a
-testdata/performance/SampleMaterial.lc 1987:31-1987:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 1987:31-1987:74  StageTexture
-testdata/performance/SampleMaterial.lc 1987:38-1987:74  String
-testdata/performance/SampleMaterial.lc 1988:34-1988:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 1981:15-1990:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1991:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1993:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 1982:29-1982:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 1983:30-1983:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1984:32-1984:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1985:29-1985:36
+    TCGen
+testdata/performance/SampleMaterial.lc 1986:29-1986:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 1987:31-1987:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 1987:31-1987:74
+    StageTexture
+testdata/performance/SampleMaterial.lc 1987:38-1987:74
+    String
+testdata/performance/SampleMaterial.lc 1988:34-1988:38
+    Bool
+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-1995:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-1996:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 1994:15-1998:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1997:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 1994:15-1999:31
+    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
-testdata/performance/SampleMaterial.lc 1994:15-2003:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-2004:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-2006:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 1995:29-1995:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 1995:29-1995:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1995:34-1995:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 1995:36-1995:46  Blending'
-testdata/performance/SampleMaterial.lc 1995:49-1995:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 1996:30-1996:50  RGBGen
-testdata/performance/SampleMaterial.lc 1997:32-1997:42  AlphaGen
-testdata/performance/SampleMaterial.lc 1998:29-1998:40  TCGen
-testdata/performance/SampleMaterial.lc 1999:29-1999:31  forall a . List a
-testdata/performance/SampleMaterial.lc 2000:31-2000:42  StageTexture
-testdata/performance/SampleMaterial.lc 2001:34-2001:38  Bool
-testdata/performance/SampleMaterial.lc 2002:33-2002:41  DepthFunction
-testdata/performance/SampleMaterial.lc 2003:33-2003:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 2004:41-2004:46  Bool
-testdata/performance/SampleMaterial.lc 2005:38-2005:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 1994:15-2003:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-2004:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-2006:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 1995:29-1995:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 1995:29-1995:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1995:34-1995:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 1995:36-1995:46
+    Blending'
+testdata/performance/SampleMaterial.lc 1995:49-1995:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 1996:30-1996:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 1997:32-1997:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 1998:29-1998:40
+    TCGen
+testdata/performance/SampleMaterial.lc 1999:29-1999:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 2000:31-2000:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 2001:34-2001:38
+    Bool
+testdata/performance/SampleMaterial.lc 2002:33-2002:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 2003:33-2003:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 2004:41-2004:46
+    Bool
+testdata/performance/SampleMaterial.lc 2005:38-2005:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 2012:7-2020:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2012:7-2021:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2012:7-2022:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2012:7-2050:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2012:7-2052:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 2013:24-2013:26  ()
-testdata/performance/SampleMaterial.lc 2014:24-2014:26  ()
-testdata/performance/SampleMaterial.lc 2015:22-2015:27  Bool
-testdata/performance/SampleMaterial.lc 2016:20-2016:21  _b
-testdata/performance/SampleMaterial.lc 2017:30-2017:35  Bool
-testdata/performance/SampleMaterial.lc 2018:23-2018:28  Bool
-testdata/performance/SampleMaterial.lc 2019:20-2019:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 2012:7-2020:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2021:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2022:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2050:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2052:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 2013:24-2013:26
+    ()
+testdata/performance/SampleMaterial.lc 2014:24-2014:26
+    ()
+testdata/performance/SampleMaterial.lc 2015:22-2015:27
+    Bool
+testdata/performance/SampleMaterial.lc 2016:20-2016:21
+    _b
+testdata/performance/SampleMaterial.lc 2017:30-2017:35
+    Bool
+testdata/performance/SampleMaterial.lc 2018:23-2018:28
+    Bool
+testdata/performance/SampleMaterial.lc 2019:20-2019:33
+    CullType
+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-2025:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-2026:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 2024:15-2028:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2027:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 2024:15-2029:31
+    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
-testdata/performance/SampleMaterial.lc 2024:15-2033:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2034:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2036:18  StageAttrs
-testdata/performance/SampleMaterial.lc 2025:29-2025:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 2026:30-2026:50  RGBGen
-testdata/performance/SampleMaterial.lc 2027:32-2027:42  AlphaGen
-testdata/performance/SampleMaterial.lc 2028:29-2028:36  TCGen
-testdata/performance/SampleMaterial.lc 2029:29-2029:31  forall a . List a
-testdata/performance/SampleMaterial.lc 2030:31-2030:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 2030:31-2030:67  StageTexture
-testdata/performance/SampleMaterial.lc 2030:38-2030:67  String
-testdata/performance/SampleMaterial.lc 2031:34-2031:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 2024:15-2033:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2034:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2036:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 2025:29-2025:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 2026:30-2026:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 2027:32-2027:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 2028:29-2028:36
+    TCGen
+testdata/performance/SampleMaterial.lc 2029:29-2029:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 2030:31-2030:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 2030:31-2030:67
+    StageTexture
+testdata/performance/SampleMaterial.lc 2030:38-2030:67
+    String
+testdata/performance/SampleMaterial.lc 2031:34-2031:38
+    Bool
+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-2038:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-2039:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 2037:15-2041:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2040:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 2037:15-2042:31
+    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
-testdata/performance/SampleMaterial.lc 2037:15-2046:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2047:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2049:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 2038:29-2038:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 2038:29-2038:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 2038:34-2038:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 2038:36-2038:46  Blending'
-testdata/performance/SampleMaterial.lc 2038:49-2038:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 2039:30-2039:50  RGBGen
-testdata/performance/SampleMaterial.lc 2040:32-2040:42  AlphaGen
-testdata/performance/SampleMaterial.lc 2041:29-2041:40  TCGen
-testdata/performance/SampleMaterial.lc 2042:29-2042:31  forall a . List a
-testdata/performance/SampleMaterial.lc 2043:31-2043:42  StageTexture
-testdata/performance/SampleMaterial.lc 2044:34-2044:38  Bool
-testdata/performance/SampleMaterial.lc 2045:33-2045:41  DepthFunction
-testdata/performance/SampleMaterial.lc 2046:33-2046:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 2047:41-2047:46  Bool
-testdata/performance/SampleMaterial.lc 2048:38-2048:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 2037:15-2046:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2047:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2049:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 2038:29-2038:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 2038:29-2038:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 2038:34-2038:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 2038:36-2038:46
+    Blending'
+testdata/performance/SampleMaterial.lc 2038:49-2038:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 2039:30-2039:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 2040:32-2040:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 2041:29-2041:40
+    TCGen
+testdata/performance/SampleMaterial.lc 2042:29-2042:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 2043:31-2043:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 2044:34-2044:38
+    Bool
+testdata/performance/SampleMaterial.lc 2045:33-2045:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 2046:33-2046:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 2047:41-2047:46
+    Bool
+testdata/performance/SampleMaterial.lc 2048:38-2048:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 2055:7-2063:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2055:7-2064:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2055:7-2065:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2055:7-2093:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2055:7-2095:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 2056:24-2056:26  ()
-testdata/performance/SampleMaterial.lc 2057:24-2057:26  ()
-testdata/performance/SampleMaterial.lc 2058:22-2058:27  Bool
-testdata/performance/SampleMaterial.lc 2059:20-2059:21  _b
-testdata/performance/SampleMaterial.lc 2060:30-2060:35  Bool
-testdata/performance/SampleMaterial.lc 2061:23-2061:28  Bool
-testdata/performance/SampleMaterial.lc 2062:20-2062:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 2055:7-2063:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2064:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2065:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2093:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2095:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 2056:24-2056:26
+    ()
+testdata/performance/SampleMaterial.lc 2057:24-2057:26
+    ()
+testdata/performance/SampleMaterial.lc 2058:22-2058:27
+    Bool
+testdata/performance/SampleMaterial.lc 2059:20-2059:21
+    _b
+testdata/performance/SampleMaterial.lc 2060:30-2060:35
+    Bool
+testdata/performance/SampleMaterial.lc 2061:23-2061:28
+    Bool
+testdata/performance/SampleMaterial.lc 2062:20-2062:33
+    CullType
+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-2068:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-2069:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 2067:15-2071:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2070:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 2067:15-2072:31
+    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
-testdata/performance/SampleMaterial.lc 2067:15-2076:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2077:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2079:18  StageAttrs
-testdata/performance/SampleMaterial.lc 2068:29-2068:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 2069:30-2069:50  RGBGen
-testdata/performance/SampleMaterial.lc 2070:32-2070:42  AlphaGen
-testdata/performance/SampleMaterial.lc 2071:29-2071:36  TCGen
-testdata/performance/SampleMaterial.lc 2072:29-2072:31  forall a . List a
-testdata/performance/SampleMaterial.lc 2073:31-2073:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 2073:31-2073:71  StageTexture
-testdata/performance/SampleMaterial.lc 2073:38-2073:71  String
-testdata/performance/SampleMaterial.lc 2074:34-2074:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 2067:15-2076:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2077:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2079:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 2068:29-2068:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 2069:30-2069:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 2070:32-2070:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 2071:29-2071:36
+    TCGen
+testdata/performance/SampleMaterial.lc 2072:29-2072:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 2073:31-2073:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 2073:31-2073:71
+    StageTexture
+testdata/performance/SampleMaterial.lc 2073:38-2073:71
+    String
+testdata/performance/SampleMaterial.lc 2074:34-2074:38
+    Bool
+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-2081:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-2082:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 2080:15-2084:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2083:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 2080:15-2085:31
+    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
-testdata/performance/SampleMaterial.lc 2080:15-2089:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2090:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2092:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 2081:29-2081:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 2081:29-2081:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 2081:34-2081:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 2081:36-2081:46  Blending'
-testdata/performance/SampleMaterial.lc 2081:49-2081:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 2082:30-2082:50  RGBGen
-testdata/performance/SampleMaterial.lc 2083:32-2083:42  AlphaGen
-testdata/performance/SampleMaterial.lc 2084:29-2084:40  TCGen
-testdata/performance/SampleMaterial.lc 2085:29-2085:31  forall a . List a
-testdata/performance/SampleMaterial.lc 2086:31-2086:42  StageTexture
-testdata/performance/SampleMaterial.lc 2087:34-2087:38  Bool
-testdata/performance/SampleMaterial.lc 2088:33-2088:41  DepthFunction
-testdata/performance/SampleMaterial.lc 2089:33-2089:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 2090:41-2090:46  Bool
-testdata/performance/SampleMaterial.lc 2091:38-2091:54  String
-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
+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
+testdata/performance/SampleMaterial.lc 2080:15-2089:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2090:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2092:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 2081:29-2081:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 2081:29-2081:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 2081:34-2081:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 2081:36-2081:46
+    Blending'
+testdata/performance/SampleMaterial.lc 2081:49-2081:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 2082:30-2082:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 2083:32-2083:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 2084:29-2084:40
+    TCGen
+testdata/performance/SampleMaterial.lc 2085:29-2085:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 2086:31-2086:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 2087:34-2087:38
+    Bool
+testdata/performance/SampleMaterial.lc 2088:33-2088:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 2089:33-2089:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 2090:41-2090:46
+    Bool
+testdata/performance/SampleMaterial.lc 2091:38-2091:54
+    String
+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-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
-testdata/performance/SampleMaterial.lc 2098:7-2106:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2098:7-2107:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2098:7-2108:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2098:7-2136:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2098:7-2138:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 2099:24-2099:26  ()
-testdata/performance/SampleMaterial.lc 2100:24-2100:26  ()
-testdata/performance/SampleMaterial.lc 2101:22-2101:27  Bool
-testdata/performance/SampleMaterial.lc 2102:20-2102:21  _b
-testdata/performance/SampleMaterial.lc 2103:30-2103:35  Bool
-testdata/performance/SampleMaterial.lc 2104:23-2104:28  Bool
-testdata/performance/SampleMaterial.lc 2105:20-2105:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 2098:7-2106:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2107:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2108:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2136:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2138:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 2099:24-2099:26
+    ()
+testdata/performance/SampleMaterial.lc 2100:24-2100:26
+    ()
+testdata/performance/SampleMaterial.lc 2101:22-2101:27
+    Bool
+testdata/performance/SampleMaterial.lc 2102:20-2102:21
+    _b
+testdata/performance/SampleMaterial.lc 2103:30-2103:35
+    Bool
+testdata/performance/SampleMaterial.lc 2104:23-2104:28
+    Bool
+testdata/performance/SampleMaterial.lc 2105:20-2105:33
+    CullType
+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-2111:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-2112:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 2110:15-2114:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2113:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 2110:15-2115:31
+    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
-testdata/performance/SampleMaterial.lc 2110:15-2119:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2120:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2122:18  StageAttrs
-testdata/performance/SampleMaterial.lc 2111:29-2111:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 2112:30-2112:50  RGBGen
-testdata/performance/SampleMaterial.lc 2113:32-2113:42  AlphaGen
-testdata/performance/SampleMaterial.lc 2114:29-2114:36  TCGen
-testdata/performance/SampleMaterial.lc 2115:29-2115:31  forall a . List a
-testdata/performance/SampleMaterial.lc 2116:31-2116:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 2116:31-2116:81  StageTexture
-testdata/performance/SampleMaterial.lc 2116:38-2116:81  String
-testdata/performance/SampleMaterial.lc 2117:34-2117:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 2110:15-2119:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2120:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2122:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 2111:29-2111:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 2112:30-2112:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 2113:32-2113:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 2114:29-2114:36
+    TCGen
+testdata/performance/SampleMaterial.lc 2115:29-2115:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 2116:31-2116:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 2116:31-2116:81
+    StageTexture
+testdata/performance/SampleMaterial.lc 2116:38-2116:81
+    String
+testdata/performance/SampleMaterial.lc 2117:34-2117:38
+    Bool
+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-2124:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-2125:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 2123:15-2127:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2126:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 2123:15-2128:31
+    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
-testdata/performance/SampleMaterial.lc 2123:15-2132:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2133:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2135:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 2124:29-2124:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 2124:29-2124:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 2124:34-2124:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 2124:36-2124:46  Blending'
-testdata/performance/SampleMaterial.lc 2124:49-2124:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 2125:30-2125:50  RGBGen
-testdata/performance/SampleMaterial.lc 2126:32-2126:42  AlphaGen
-testdata/performance/SampleMaterial.lc 2127:29-2127:40  TCGen
-testdata/performance/SampleMaterial.lc 2128:29-2128:31  forall a . List a
-testdata/performance/SampleMaterial.lc 2129:31-2129:42  StageTexture
-testdata/performance/SampleMaterial.lc 2130:34-2130:38  Bool
-testdata/performance/SampleMaterial.lc 2131:33-2131:41  DepthFunction
-testdata/performance/SampleMaterial.lc 2132:33-2132:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 2133:41-2133:46  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 2123:15-2132:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2133:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2135:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 2124:29-2124:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 2124:29-2124:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 2124:34-2124:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 2124:36-2124:46
+    Blending'
+testdata/performance/SampleMaterial.lc 2124:49-2124:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 2125:30-2125:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 2126:32-2126:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 2127:29-2127:40
+    TCGen
+testdata/performance/SampleMaterial.lc 2128:29-2128:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 2129:31-2129:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 2130:34-2130:38
+    Bool
+testdata/performance/SampleMaterial.lc 2131:33-2131:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 2132:33-2132:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 2133:41-2133:46
+    Bool
+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-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
-testdata/performance/SampleMaterial.lc 2141:7-2149:32  Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2141:7-2150:30  Bool -> List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2141:7-2151:34  List StageAttrs -> Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2141:7-2179:14  Bool -> CommonAttrs
-testdata/performance/SampleMaterial.lc 2141:7-2181:10  ((CommonAttrs)) | CommonAttrs
-testdata/performance/SampleMaterial.lc 2142:24-2142:26  ()
-testdata/performance/SampleMaterial.lc 2143:24-2143:26  ()
-testdata/performance/SampleMaterial.lc 2144:22-2144:27  Bool
-testdata/performance/SampleMaterial.lc 2145:20-2145:21  _b
-testdata/performance/SampleMaterial.lc 2146:30-2146:35  Bool
-testdata/performance/SampleMaterial.lc 2147:23-2147:28  Bool
-testdata/performance/SampleMaterial.lc 2148:20-2148:33  CullType
-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
+            -> 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
+testdata/performance/SampleMaterial.lc 2141:7-2149:32
+    Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2150:30
+    Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2151:34
+    List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2179:14
+    Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2181:10
+    CommonAttrs | ((CommonAttrs))
+testdata/performance/SampleMaterial.lc 2142:24-2142:26
+    ()
+testdata/performance/SampleMaterial.lc 2143:24-2143:26
+    ()
+testdata/performance/SampleMaterial.lc 2144:22-2144:27
+    Bool
+testdata/performance/SampleMaterial.lc 2145:20-2145:21
+    _b
+testdata/performance/SampleMaterial.lc 2146:30-2146:35
+    Bool
+testdata/performance/SampleMaterial.lc 2147:23-2147:28
+    Bool
+testdata/performance/SampleMaterial.lc 2148:20-2148:33
+    CullType
+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-2154:36  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-2155:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 2153:15-2157:36
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2156:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 2153:15-2158:31
+    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
-testdata/performance/SampleMaterial.lc 2153:15-2162:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2163:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2165:18  StageAttrs
-testdata/performance/SampleMaterial.lc 2154:29-2154:36  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 2155:30-2155:50  RGBGen
-testdata/performance/SampleMaterial.lc 2156:32-2156:42  AlphaGen
-testdata/performance/SampleMaterial.lc 2157:29-2157:36  TCGen
-testdata/performance/SampleMaterial.lc 2158:29-2158:31  forall a . List a
-testdata/performance/SampleMaterial.lc 2159:31-2159:37  String -> StageTexture
-testdata/performance/SampleMaterial.lc 2159:31-2159:81  StageTexture
-testdata/performance/SampleMaterial.lc 2159:38-2159:81  String
-testdata/performance/SampleMaterial.lc 2160:34-2160:38  Bool
-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
+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
+testdata/performance/SampleMaterial.lc 2153:15-2162:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2163:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2165:18
+    StageAttrs
+testdata/performance/SampleMaterial.lc 2154:29-2154:36
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 2155:30-2155:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 2156:32-2156:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 2157:29-2157:36
+    TCGen
+testdata/performance/SampleMaterial.lc 2158:29-2158:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 2159:31-2159:37
+    String -> StageTexture
+testdata/performance/SampleMaterial.lc 2159:31-2159:81
+    StageTexture
+testdata/performance/SampleMaterial.lc 2159:38-2159:81
+    String
+testdata/performance/SampleMaterial.lc 2160:34-2160:38
+    Bool
+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-2167:57  RGBGen
-  -> AlphaGen
-    -> TCGen
+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-2168:50  AlphaGen
-  -> TCGen
-    -> List TCMod
+testdata/performance/SampleMaterial.lc 2166:15-2170:40
+    List TCMod
       -> StageTexture
         -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2169:42  TCGen
-  -> List TCMod
-    -> StageTexture
+testdata/performance/SampleMaterial.lc 2166:15-2171:31
+    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
-testdata/performance/SampleMaterial.lc 2166:15-2175:40  Bool -> String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2176:46  String -> StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2178:18  List StageAttrs | StageAttrs
-testdata/performance/SampleMaterial.lc 2167:29-2167:33  forall a . a -> Maybe a
-testdata/performance/SampleMaterial.lc 2167:29-2167:57  Maybe (Blending', Blending')
-testdata/performance/SampleMaterial.lc 2167:34-2167:57  (Blending', Blending')
-testdata/performance/SampleMaterial.lc 2167:36-2167:46  Blending'
-testdata/performance/SampleMaterial.lc 2167:49-2167:55  ((Blending')) | Blending'
-testdata/performance/SampleMaterial.lc 2168:30-2168:50  RGBGen
-testdata/performance/SampleMaterial.lc 2169:32-2169:42  AlphaGen
-testdata/performance/SampleMaterial.lc 2170:29-2170:40  TCGen
-testdata/performance/SampleMaterial.lc 2171:29-2171:31  forall a . List a
-testdata/performance/SampleMaterial.lc 2172:31-2172:42  StageTexture
-testdata/performance/SampleMaterial.lc 2173:34-2173:38  Bool
-testdata/performance/SampleMaterial.lc 2174:33-2174:41  DepthFunction
-testdata/performance/SampleMaterial.lc 2175:33-2175:40  forall a . Maybe a
-testdata/performance/SampleMaterial.lc 2176:41-2176:46  Bool
-testdata/performance/SampleMaterial.lc 2177:38-2177:54  String
-testdata/performance/SampleMaterial.lc 2180:21-2180:26  Bool
+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
+testdata/performance/SampleMaterial.lc 2166:15-2175:40
+    Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2176:46
+    String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2178:18
+    StageAttrs | List StageAttrs
+testdata/performance/SampleMaterial.lc 2167:29-2167:33
+    forall a . a -> Maybe a
+testdata/performance/SampleMaterial.lc 2167:29-2167:57
+    Maybe (Blending', Blending')
+testdata/performance/SampleMaterial.lc 2167:34-2167:57
+    (Blending', Blending')
+testdata/performance/SampleMaterial.lc 2167:36-2167:46
+    Blending'
+testdata/performance/SampleMaterial.lc 2167:49-2167:55
+    Blending' | ((Blending'))
+testdata/performance/SampleMaterial.lc 2168:30-2168:50
+    RGBGen
+testdata/performance/SampleMaterial.lc 2169:32-2169:42
+    AlphaGen
+testdata/performance/SampleMaterial.lc 2170:29-2170:40
+    TCGen
+testdata/performance/SampleMaterial.lc 2171:29-2171:31
+    forall a . List a
+testdata/performance/SampleMaterial.lc 2172:31-2172:42
+    StageTexture
+testdata/performance/SampleMaterial.lc 2173:34-2173:38
+    Bool
+testdata/performance/SampleMaterial.lc 2174:33-2174:41
+    DepthFunction
+testdata/performance/SampleMaterial.lc 2175:33-2175:40
+    forall a . Maybe a
+testdata/performance/SampleMaterial.lc 2176:41-2176:46
+    Bool
+testdata/performance/SampleMaterial.lc 2177:38-2177:54
+    String
+testdata/performance/SampleMaterial.lc 2180:21-2180:26
+    Bool
\ No newline at end of file
diff --git a/testdata/record01.reject.out b/testdata/record01.reject.out
index 1f25211e..cc4fe342 100644
--- a/testdata/record01.reject.out
+++ b/testdata/record01.reject.out
@@ -16,228 +16,462 @@ 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: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
-testdata/record01.reject.lc 2:24-2:81  ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
-testdata/record01.reject.lc 2:25-2:52  (BlendingFactor, BlendingFactor)
-testdata/record01.reject.lc 2:26-2:34  BlendingFactor
-testdata/record01.reject.lc 2:35-2:51  ((BlendingFactor)) | BlendingFactor
-testdata/record01.reject.lc 2:53-2:80  (((BlendingFactor, BlendingFactor))) | (BlendingFactor, BlendingFactor)
-testdata/record01.reject.lc 2:54-2:62  BlendingFactor
-testdata/record01.reject.lc 2:63-2:79  ((BlendingFactor)) | BlendingFactor
-testdata/record01.reject.lc 2:83-2:85  forall a . a -> a -> a -> a -> VecS a 4
-testdata/record01.reject.lc 2:83-2:89  Float -> Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 2:83-2:93  Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 2:83-2:97  Float -> VecS Float 4
-testdata/record01.reject.lc 2:83-2:101  VecS Float 4
-testdata/record01.reject.lc 2:86-2:89  Float
-testdata/record01.reject.lc 2:90-2:93  Float
-testdata/record01.reject.lc 2:94-2:97  Float
-testdata/record01.reject.lc 2:98-2:101  Float
-testdata/record01.reject.lc 3:13-3:21  (BlendEquation, BlendEquation) -> Blending Float
-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: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)
-testdata/record01.reject.lc 4:18-4:25  BlendEquation
-testdata/record01.reject.lc 4:26-4:33  ((BlendEquation)) | BlendEquation
-testdata/record01.reject.lc 4:35-4:92  ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
-testdata/record01.reject.lc 4:36-4:63  (BlendingFactor, BlendingFactor)
-testdata/record01.reject.lc 4:37-4:45  BlendingFactor
-testdata/record01.reject.lc 4:46-4:62  ((BlendingFactor)) | BlendingFactor
-testdata/record01.reject.lc 4:64-4:91  (((BlendingFactor, BlendingFactor))) | (BlendingFactor, BlendingFactor)
-testdata/record01.reject.lc 4:65-4:73  BlendingFactor
-testdata/record01.reject.lc 4:74-4:90  ((BlendingFactor)) | BlendingFactor
-testdata/record01.reject.lc 4:94-4:96  forall a . a -> a -> a -> a -> VecS a 4
-testdata/record01.reject.lc 4:94-4:100  Float -> Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 4:94-4:104  Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 4:94-4:108  Float -> VecS Float 4
-testdata/record01.reject.lc 4:94-4:112  VecS Float 4
-testdata/record01.reject.lc 4:97-4:100  Float
-testdata/record01.reject.lc 4:101-4:104  Float
-testdata/record01.reject.lc 4:105-4:108  Float
-testdata/record01.reject.lc 4:109-4:112  Float
-testdata/record01.reject.lc 5:12-5:22  forall a . Blending a
-testdata/record01.reject.lc 6:13-6:15  forall a . a -> a -> a -> a -> VecS a 4
-testdata/record01.reject.lc 6:13-6:19  Float -> Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 6:13-6:23  Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 6:13-6:27  Float -> VecS Float 4
-testdata/record01.reject.lc 6:13-6:31  VecS Float 4
-testdata/record01.reject.lc 6:16-6:19  Float
-testdata/record01.reject.lc 6:20-6:23  Float
-testdata/record01.reject.lc 6:24-6:27  Float
-testdata/record01.reject.lc 6:28-6:31  Float
-testdata/record01.reject.lc 7:14-7:16  forall a . a -> a -> a -> a -> VecS a 4
-testdata/record01.reject.lc 7:14-7:20  Float -> Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 7:14-7:24  Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 7:14-7:28  Float -> VecS Float 4
-testdata/record01.reject.lc 7:14-7:32  VecS Float 4
-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
+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
+testdata/record01.reject.lc 2:24-2:81
+    ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
+testdata/record01.reject.lc 2:25-2:52
+    (BlendingFactor, BlendingFactor)
+testdata/record01.reject.lc 2:26-2:34
+    BlendingFactor
+testdata/record01.reject.lc 2:35-2:51
+    BlendingFactor | ((BlendingFactor))
+testdata/record01.reject.lc 2:53-2:80
+    (BlendingFactor, BlendingFactor) | (((BlendingFactor, BlendingFactor)))
+testdata/record01.reject.lc 2:54-2:62
+    BlendingFactor
+testdata/record01.reject.lc 2:63-2:79
+    BlendingFactor | ((BlendingFactor))
+testdata/record01.reject.lc 2:83-2:85
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/record01.reject.lc 2:83-2:89
+    Float -> Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 2:83-2:93
+    Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 2:83-2:97
+    Float -> VecS Float 4
+testdata/record01.reject.lc 2:83-2:101
+    VecS Float 4
+testdata/record01.reject.lc 2:86-2:89
+    Float
+testdata/record01.reject.lc 2:90-2:93
+    Float
+testdata/record01.reject.lc 2:94-2:97
+    Float
+testdata/record01.reject.lc 2:98-2:101
+    Float
+testdata/record01.reject.lc 3:13-3:21
+    (BlendEquation, BlendEquation) -> Blending Float
+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: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)
+testdata/record01.reject.lc 4:18-4:25
+    BlendEquation
+testdata/record01.reject.lc 4:26-4:33
+    BlendEquation | ((BlendEquation))
+testdata/record01.reject.lc 4:35-4:92
+    ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
+testdata/record01.reject.lc 4:36-4:63
+    (BlendingFactor, BlendingFactor)
+testdata/record01.reject.lc 4:37-4:45
+    BlendingFactor
+testdata/record01.reject.lc 4:46-4:62
+    BlendingFactor | ((BlendingFactor))
+testdata/record01.reject.lc 4:64-4:91
+    (BlendingFactor, BlendingFactor) | (((BlendingFactor, BlendingFactor)))
+testdata/record01.reject.lc 4:65-4:73
+    BlendingFactor
+testdata/record01.reject.lc 4:74-4:90
+    BlendingFactor | ((BlendingFactor))
+testdata/record01.reject.lc 4:94-4:96
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/record01.reject.lc 4:94-4:100
+    Float -> Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 4:94-4:104
+    Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 4:94-4:108
+    Float -> VecS Float 4
+testdata/record01.reject.lc 4:94-4:112
+    VecS Float 4
+testdata/record01.reject.lc 4:97-4:100
+    Float
+testdata/record01.reject.lc 4:101-4:104
+    Float
+testdata/record01.reject.lc 4:105-4:108
+    Float
+testdata/record01.reject.lc 4:109-4:112
+    Float
+testdata/record01.reject.lc 5:12-5:22
+    forall a . Blending a
+testdata/record01.reject.lc 6:13-6:15
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/record01.reject.lc 6:13-6:19
+    Float -> Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 6:13-6:23
+    Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 6:13-6:27
+    Float -> VecS Float 4
+testdata/record01.reject.lc 6:13-6:31
+    VecS Float 4
+testdata/record01.reject.lc 6:16-6:19
+    Float
+testdata/record01.reject.lc 6:20-6:23
+    Float
+testdata/record01.reject.lc 6:24-6:27
+    Float
+testdata/record01.reject.lc 6:28-6:31
+    Float
+testdata/record01.reject.lc 7:14-7:16
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/record01.reject.lc 7:14-7:20
+    Float -> Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 7:14-7:24
+    Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 7:14-7:28
+    Float -> VecS Float 4
+testdata/record01.reject.lc 7:14-7:32
+    VecS Float 4
+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: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
+testdata/record01.reject.lc 8:48-8:54
+    Float
+testdata/record01.reject.lc 8:55-8:66
+    forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
+testdata/record01.reject.lc 8:55-8:74
+    Image 1 ('Color (VecScalar 4 Float)) | ((Image 1 ('Color (VecScalar 4 Float))))
+testdata/record01.reject.lc 8:67-8:74
+    VecS Float 4
+testdata/record01.reject.lc 9:23-9:34
+    forall a . Float -> PolygonMode a
+testdata/record01.reject.lc 9:23-9:39
+    PolygonMode _a
+testdata/record01.reject.lc 9:35-9:39
+    Float
+testdata/record01.reject.lc 10:23-10:34
+    forall a . PolygonMode a
+testdata/record01.reject.lc 11:23-11:35
+    forall a . PointSize a -> PolygonMode a
+testdata/record01.reject.lc 11:23-11:52
+    PolygonMode _a
+testdata/record01.reject.lc 11:37-11:46
+    forall a . Float -> PointSize a
+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: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
+testdata/record01.reject.lc 14:23-14:70
+    RasterContext _a 'Triangle
+testdata/record01.reject.lc 14:35-14:39
+    CullMode
+testdata/record01.reject.lc 14:40-14:49
+    forall a . PolygonMode a
+testdata/record01.reject.lc 14:50-14:58
+    PolygonOffset
+testdata/record01.reject.lc 14:59-14:70
+    ProvokingVertex
+testdata/record01.reject.lc 15:23-15:42
+    forall a . a -> a
+testdata/record01.reject.lc 15:23-15:102
+    (FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float)))
+testdata/record01.reject.lc 15:43-15:102
+    (FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float)))
+testdata/record01.reject.lc 15:44-15:51
+    ComparisonFunction -> Bool -> FragmentOperation 'Depth
+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: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
+testdata/record01.reject.lc 15:78-15:80
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/record01.reject.lc 15:78-15:85
+    Bool -> Bool -> Bool -> VecS Bool 4
+testdata/record01.reject.lc 15:78-15:90
+    Bool -> Bool -> VecS Bool 4
+testdata/record01.reject.lc 15:78-15:95
+    Bool -> VecS Bool 4
+testdata/record01.reject.lc 15:78-15:100
+    VecS Bool 4
+testdata/record01.reject.lc 15:81-15:85
+    Bool
+testdata/record01.reject.lc 15:86-15:90
+    Bool
+testdata/record01.reject.lc 15:91-15:95
+    Bool
+testdata/record01.reject.lc 15:96-15:100
+    Bool
+testdata/record01.reject.lc 16:23-16:30
+    forall a . String -> a
+testdata/record01.reject.lc 16:23-16:36
+    _a
+testdata/record01.reject.lc 16:31-16:36
+    String
+testdata/record01.reject.lc 16:40-16:43
+    Nat -> Nat -> Type -> Type
+testdata/record01.reject.lc 16:40-16:45
+    Nat -> Type -> Type
+testdata/record01.reject.lc 16:40-16:47
+    Type -> Type
+testdata/record01.reject.lc 16:40-16:53
+    Type
+testdata/record01.reject.lc 16:44-16:45
+    _b
+testdata/record01.reject.lc 16:46-16:47
+    _b
+testdata/record01.reject.lc 16:48-16:53
     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
-testdata/record01.reject.lc 8:48-8:54  Float
-testdata/record01.reject.lc 8:55-8:66  forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
-testdata/record01.reject.lc 8:55-8:74  ((Image 1 ('Color (VecScalar 4 Float)))) | Image 1 ('Color (VecScalar 4 Float))
-testdata/record01.reject.lc 8:67-8:74  VecS Float 4
-testdata/record01.reject.lc 9:23-9:34  forall a . Float -> PolygonMode a
-testdata/record01.reject.lc 9:23-9:39  PolygonMode _a
-testdata/record01.reject.lc 9:35-9:39  Float
-testdata/record01.reject.lc 10:23-10:34  forall a . PolygonMode a
-testdata/record01.reject.lc 11:23-11:35  forall a . PointSize a -> PolygonMode a
-testdata/record01.reject.lc 11:23-11:52  PolygonMode _a
-testdata/record01.reject.lc 11:37-11:46  forall a . Float -> PointSize a
-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: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
-testdata/record01.reject.lc 14:23-14:70  RasterContext _a 'Triangle
-testdata/record01.reject.lc 14:35-14:39  CullMode
-testdata/record01.reject.lc 14:40-14:49  forall a . PolygonMode a
-testdata/record01.reject.lc 14:50-14:58  PolygonOffset
-testdata/record01.reject.lc 14:59-14:70  ProvokingVertex
-testdata/record01.reject.lc 15:23-15:42  forall a . a -> a
-testdata/record01.reject.lc 15:23-15:102  (FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float)))
-testdata/record01.reject.lc 15:43-15:102  (FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float)))
-testdata/record01.reject.lc 15:44-15:51  ComparisonFunction -> Bool -> FragmentOperation 'Depth
-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: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
-testdata/record01.reject.lc 15:78-15:80  forall a . a -> a -> a -> a -> VecS a 4
-testdata/record01.reject.lc 15:78-15:85  Bool -> Bool -> Bool -> VecS Bool 4
-testdata/record01.reject.lc 15:78-15:90  Bool -> Bool -> VecS Bool 4
-testdata/record01.reject.lc 15:78-15:95  Bool -> VecS Bool 4
-testdata/record01.reject.lc 15:78-15:100  VecS Bool 4
-testdata/record01.reject.lc 15:81-15:85  Bool
-testdata/record01.reject.lc 15:86-15:90  Bool
-testdata/record01.reject.lc 15:91-15:95  Bool
-testdata/record01.reject.lc 15:96-15:100  Bool
-testdata/record01.reject.lc 16:23-16:30  forall a . String -> a
-testdata/record01.reject.lc 16:23-16:36  _a
-testdata/record01.reject.lc 16:31-16:36  String
-testdata/record01.reject.lc 16:40-16:43  Nat -> Nat -> Type -> Type
-testdata/record01.reject.lc 16:40-16:45  Nat -> Type -> Type
-testdata/record01.reject.lc 16:40-16:47  Type -> Type
-testdata/record01.reject.lc 16:40-16:53  Type
-testdata/record01.reject.lc 16:44-16:45  _b
-testdata/record01.reject.lc 16:46-16:47  _b
-testdata/record01.reject.lc 16:48-16:53  Type
-testdata/record01.reject.lc 17:27-17:61  (VecS Float 4, VecS Float 4) | HList _c -> _b | _c -> HList _b -> _a
-testdata/record01.reject.lc 17:28-17:41  forall (a :: Nat) (b :: Nat) c . Mat a b c -> Vec b c -> Vec a c
-testdata/record01.reject.lc 17:28-17:55  Vec 4 Float -> Vec 4 Float
-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: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
-testdata/record01.reject.lc 18:39-18:48  forall a . String -> a
-testdata/record01.reject.lc 18:39-18:59  _a
-testdata/record01.reject.lc 18:39-18:78  ((Vec 4 Float))
-testdata/record01.reject.lc 18:49-18:59  String
-testdata/record01.reject.lc 18:63-18:78  Type
-testdata/record01.reject.lc 18:65-18:68  Nat -> Type -> Type
-testdata/record01.reject.lc 18:65-18:70  Type -> Type
-testdata/record01.reject.lc 18:65-18:76  List Type | Type
-testdata/record01.reject.lc 18:69-18:70  _b
-testdata/record01.reject.lc 18:71-18:76  Type
-testdata/record01.reject.lc 19:23-19:36  forall a b (c :: PrimitiveType) . (a -> b) -> List (Primitive a c) -> List (Primitive b c)
-testdata/record01.reject.lc 19:23-19:49  List (Primitive ((VecS Float 4)) _a) -> List (Primitive (VecS Float 4, 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: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))
-testdata/record01.reject.lc 20:55-20:61  forall a . Floating a => Interpolated a
-testdata/record01.reject.lc 20:64-20:79  forall (a :: PrimitiveType) . List (Primitive (VecS Float 4, VecS Float 4) a)
-testdata/record01.reject.lc 21:33-21:55  ((VecS Float 4)) | HList _c -> _b | _c -> HList _b -> _a
-testdata/record01.reject.lc 21:35-21:37  forall a . a -> a -> a -> a -> VecS a 4
-testdata/record01.reject.lc 21:35-21:41  Float -> Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 21:35-21:45  Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 21:35-21:49  Float -> VecS Float 4
-testdata/record01.reject.lc 21:35-21:53  VecS Float 4
-testdata/record01.reject.lc 21:38-21:41  Float
-testdata/record01.reject.lc 21:42-21:45  Float
-testdata/record01.reject.lc 21:46-21:49  Float
-testdata/record01.reject.lc 21:50-21:53  Float
-testdata/record01.reject.lc 22:33-22:67  ((VecS Float 4)) | HList _c -> _b | _c -> HList _b -> _a
-testdata/record01.reject.lc 22:35-22:42  forall a . Num (MatVecScalarElem a) => a -> a -> a
-testdata/record01.reject.lc 22:35-22:44  _i -> _i
-testdata/record01.reject.lc 22:35-22:65  VecS Float 4
-testdata/record01.reject.lc 22:43-22:44  _j
-testdata/record01.reject.lc 22:46-22:48  forall a . a -> a -> a -> a -> VecS a 4
-testdata/record01.reject.lc 22:46-22:52  Float -> Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 22:46-22:56  Float -> Float -> VecS Float 4
-testdata/record01.reject.lc 22:46-22:60  Float -> VecS Float 4
-testdata/record01.reject.lc 22:46-22:64  VecS Float 4
-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
+testdata/record01.reject.lc 17:27-17:61
+    (VecS Float 4, VecS Float 4) | (VecS Float 4, VecS Float 4)
+testdata/record01.reject.lc 17:28-17:41
+    forall (a :: Nat) (b :: Nat) c . Mat a b c -> Vec b c -> Vec a c
+testdata/record01.reject.lc 17:28-17:55
+    Vec 4 Float -> Vec 4 Float
+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: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
+testdata/record01.reject.lc 18:39-18:48
+    forall a . String -> a
+testdata/record01.reject.lc 18:39-18:59
+    _a
+testdata/record01.reject.lc 18:39-18:78
+    ((Vec 4 Float))
+testdata/record01.reject.lc 18:49-18:59
+    String
+testdata/record01.reject.lc 18:63-18:78
+    Type
+testdata/record01.reject.lc 18:65-18:68
+    Nat -> Type -> Type
+testdata/record01.reject.lc 18:65-18:70
+    Type -> Type
+testdata/record01.reject.lc 18:65-18:76
+    Type | List Type
+testdata/record01.reject.lc 18:69-18:70
+    _b
+testdata/record01.reject.lc 18:71-18:76
+    Type
+testdata/record01.reject.lc 19:23-19:36
+    forall a b (c :: PrimitiveType)
+      . (a -> b) -> List (Primitive a c) -> List (Primitive b c)
+testdata/record01.reject.lc 19:23-19:49
+    List (Primitive ((VecS Float 4)) _a)
+      -> List (Primitive (VecS Float 4, 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: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))
+testdata/record01.reject.lc 20:55-20:61
+    forall a . Floating a => Interpolated a
+testdata/record01.reject.lc 20:64-20:79
+    forall (a :: PrimitiveType) . List (Primitive (VecS Float 4, VecS Float 4) a)
+testdata/record01.reject.lc 21:33-21:55
+    ((VecS Float 4)) | ((VecS Float 4))
+testdata/record01.reject.lc 21:35-21:37
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/record01.reject.lc 21:35-21:41
+    Float -> Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 21:35-21:45
+    Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 21:35-21:49
+    Float -> VecS Float 4
+testdata/record01.reject.lc 21:35-21:53
+    VecS Float 4
+testdata/record01.reject.lc 21:38-21:41
+    Float
+testdata/record01.reject.lc 21:42-21:45
+    Float
+testdata/record01.reject.lc 21:46-21:49
+    Float
+testdata/record01.reject.lc 21:50-21:53
+    Float
+testdata/record01.reject.lc 22:33-22:67
+    ((VecS Float 4)) | ((VecS Float 4))
+testdata/record01.reject.lc 22:35-22:42
+    forall a . Num (MatVecScalarElem a) => a -> a -> a
+testdata/record01.reject.lc 22:35-22:44
+    _i -> _i
+testdata/record01.reject.lc 22:35-22:65
+    VecS Float 4
+testdata/record01.reject.lc 22:43-22:44
+    _j
+testdata/record01.reject.lc 22:46-22:48
+    forall a . a -> a -> a -> a -> VecS a 4
+testdata/record01.reject.lc 22:46-22:52
+    Float -> Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 22:46-22:56
+    Float -> Float -> VecS Float 4
+testdata/record01.reject.lc 22:46-22:60
+    Float -> VecS Float 4
+testdata/record01.reject.lc 22:46-22:64
+    VecS Float 4
+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
@@ -246,7 +480,7 @@ testdata/record01.reject.lc 23:23-23:45  (_a
             (FragmentOperation 'Depth)
             ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
       -> FrameBuffer
-        _b
+        1
         (map
           Type
           ImageKind
@@ -254,9 +488,9 @@ testdata/record01.reject.lc 23:23-23:45  (_a
           ('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
+testdata/record01.reject.lc 23:23-23:83
+    FrameBuffer
+      1
       (map
         Type
         ImageKind
@@ -264,8 +498,66 @@ testdata/record01.reject.lc 23:23-23:60  List (Vector _a (Maybe (SimpleFragment
         ('Cons
           (FragmentOperation 'Depth)
           ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
-    -> FrameBuffer
-      _a
+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 24:13-24:19
+    String | RecItem
+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:26-24:32
+    String | RecItem
+testdata/record01.reject.lc 24:26-24:47
+    List RecItem
+testdata/record01.reject.lc 24:34-24:39
+    FrameBuffer
+      1
       (map
         Type
         ImageKind
@@ -273,132 +565,67 @@ testdata/record01.reject.lc 23:23-23:60  List (Vector _a (Maybe (SimpleFragment
         ('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
+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
+    String | RecItem | List RecItem
+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
-        (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 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: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
+        ('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
-        (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: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:28  _b
-testdata/record01.reject.lc 26:22-26:28  String
+        ('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
\ No newline at end of file
diff --git a/testdata/scope01.reject.out b/testdata/scope01.reject.out
index 5e807a95..ac083bb0 100644
--- a/testdata/scope01.reject.out
+++ b/testdata/scope01.reject.out
@@ -6,4 +6,5 @@ can't find: frame' in testdata/scope01.reject.lc:3:8:
     in frame'
        ^^^^^^
 ------------ tooltips
-testdata/scope01.reject.lc 2:17-2:20  Float
+testdata/scope01.reject.lc 2:17-2:20
+    Float
\ No newline at end of file
diff --git a/testdata/traceTest.out b/testdata/traceTest.out
index 7ec5a68b..4ab055c6 100644
--- a/testdata/traceTest.out
+++ b/testdata/traceTest.out
@@ -5,24 +5,37 @@ 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
+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
-x :: X (Type -> Type -> Type) \(a :: Type) (b :: Type) -> (a, b)
+  :: 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
-testdata/traceTest.lc 6:8-6:9  _b
-testdata/traceTest.lc 8:6-8:7  Type | forall a . a -> Type
-testdata/traceTest.lc 8:6-8:18  Type
-testdata/traceTest.lc 8:17-8:18  Type
-testdata/traceTest.lc 10:6-10:7  forall a . a -> Type
-testdata/traceTest.lc 10:6-10:25  Type
-testdata/traceTest.lc 10:17-10:24  Type
-testdata/traceTest.lc 10:19-10:20  _e
-testdata/traceTest.lc 10:19-10:23  List Type
-testdata/traceTest.lc 10:22-10:23  List Type | _c
-testdata/traceTest.lc 11:1-11:2  X (Type -> Type -> Type) \(a :: Type) (b :: Type) -> (a, b)
-testdata/traceTest.lc 11:5-11:14  forall a . a
+testdata/traceTest.lc 6:1-6:3
+    forall a . a -> a
+testdata/traceTest.lc 6:8-6:9
+    _b
+testdata/traceTest.lc 8:6-8:7
+    forall a . a -> Type | forall a . a -> Type | forall a . a -> Type | Type | Type
+testdata/traceTest.lc 8:6-8:18
+    Type
+testdata/traceTest.lc 8:17-8:18
+    Type | Type | Type
+testdata/traceTest.lc 10:6-10:7
+    forall a . a -> Type
+testdata/traceTest.lc 10:6-10:25
+    Type
+testdata/traceTest.lc 10:17-10:24
+    Type
+testdata/traceTest.lc 10:19-10:20
+    _e
+testdata/traceTest.lc 10:19-10:23
+    List Type
+testdata/traceTest.lc 10:22-10:23
+    _c | List Type
+testdata/traceTest.lc 11:1-11:2
+    X (Type -> Type -> Type) \(a :: Type) (b :: Type) -> (a, b)
+testdata/traceTest.lc 11:5-11:14
+    forall a . a
\ No newline at end of file
diff --git a/testdata/typeclass.out b/testdata/typeclass.out
index 746fa7b9..cb227dbc 100644
--- a/testdata/typeclass.out
+++ b/testdata/typeclass.out
@@ -26,43 +26,76 @@ not = \(a :: _) -> 'BoolCase \_ -> _ :: _ (_rhs True) (_rhs False) a
 /= = \(a :: _) (b :: _) -> _rhs (not (a == b))
 main is not found
 ------------ trace
-not :: Bool -> Bool
-&& :: Bool -> Bool -> Bool
-|| :: Bool -> Bool -> Bool
-'Eq :: Type -> Type
-== :: forall a . Eq a => a -> a -> Bool
-/= :: forall a . Eq a => a -> a -> Bool
+not :: Bool -> Bool
+&& :: Bool -> Bool -> Bool
+|| :: Bool -> Bool -> Bool
+'Eq :: Type -> Type
+== :: forall a . Eq a => a -> a -> Bool
+/= :: forall a . Eq a => a -> a -> Bool
 ------------ tooltips
-testdata/typeclass.lc 8:1-8:4  Bool -> Bool
-testdata/typeclass.lc 8:12-8:17  Bool
-testdata/typeclass.lc 8:12-9:17  Bool -> Bool
-testdata/typeclass.lc 9:13-9:17  Bool
-testdata/typeclass.lc 11:6-11:8  Bool -> Bool -> Bool
-testdata/typeclass.lc 11:13-11:14  _b
-testdata/typeclass.lc 11:13-12:19  Bool -> Bool
-testdata/typeclass.lc 12:14-12:19  Bool
-testdata/typeclass.lc 14:7-14:9  Bool -> Bool -> Bool
-testdata/typeclass.lc 14:14-14:15  _c
-testdata/typeclass.lc 14:14-15:17  Bool -> Bool
-testdata/typeclass.lc 15:13-15:17  Bool
-testdata/typeclass.lc 17:7-17:9  Type -> Type
-testdata/typeclass.lc 17:7-18:27  Type
-testdata/typeclass.lc 18:6-18:8  forall a . Eq a => a -> a -> Bool
-testdata/typeclass.lc 18:13-18:14  Type
-testdata/typeclass.lc 18:13-18:27  Type
-testdata/typeclass.lc 18:18-18:19  Type
-testdata/typeclass.lc 18:18-18:27  Type
-testdata/typeclass.lc 18:23-18:27  Type
-testdata/typeclass.lc 20:3-20:5  forall a . Eq a => a -> a -> Bool
-testdata/typeclass.lc 20:10-20:13  Bool -> Bool
-testdata/typeclass.lc 20:10-20:22  Bool
-testdata/typeclass.lc 20:15-20:16  _f
-testdata/typeclass.lc 20:15-20:19  _e -> Bool
-testdata/typeclass.lc 20:15-20:21  Bool
-testdata/typeclass.lc 20:17-20:19  forall a . Eq a => a -> a -> Bool
-testdata/typeclass.lc 20:20-20:21  _c
-testdata/typeclass.lc 23:17-23:18  Bool
-testdata/typeclass.lc 23:17-24:23  Bool -> Bool | Eq _a => _a -> _a -> Bool | forall a . Eq a => a -> a -> Bool
-testdata/typeclass.lc 24:18-24:21  Bool -> Bool
-testdata/typeclass.lc 24:18-24:23  Bool
-testdata/typeclass.lc 24:22-24:23  _b
+testdata/typeclass.lc 8:1-8:4
+    Bool -> Bool
+testdata/typeclass.lc 8:12-8:17
+    Bool
+testdata/typeclass.lc 8:12-9:17
+    Bool -> Bool
+testdata/typeclass.lc 9:13-9:17
+    Bool
+testdata/typeclass.lc 11:6-11:8
+    Bool -> Bool -> Bool
+testdata/typeclass.lc 11:13-11:14
+    _b
+testdata/typeclass.lc 11:13-12:19
+    Bool -> Bool
+testdata/typeclass.lc 12:14-12:19
+    Bool
+testdata/typeclass.lc 14:7-14:9
+    Bool -> Bool -> Bool
+testdata/typeclass.lc 14:14-14:15
+    _c
+testdata/typeclass.lc 14:14-15:17
+    Bool -> Bool
+testdata/typeclass.lc 15:13-15:17
+    Bool
+testdata/typeclass.lc 17:7-17:9
+    Type -> Type | Type -> Type
+testdata/typeclass.lc 17:7-18:27
+    Type
+testdata/typeclass.lc 18:6-18:8
+    forall a . Eq a => a -> a -> Bool
+testdata/typeclass.lc 18:13-18:14
+    Type
+testdata/typeclass.lc 18:13-18:27
+    Type
+testdata/typeclass.lc 18:18-18:19
+    Type
+testdata/typeclass.lc 18:18-18:27
+    Type
+testdata/typeclass.lc 18:23-18:27
+    Type | Type
+testdata/typeclass.lc 20:3-20:5
+    forall a . Eq a => a -> a -> Bool
+testdata/typeclass.lc 20:10-20:13
+    Bool -> Bool
+testdata/typeclass.lc 20:10-20:22
+    Bool
+testdata/typeclass.lc 20:15-20:16
+    _f
+testdata/typeclass.lc 20:15-20:19
+    _e -> Bool
+testdata/typeclass.lc 20:15-20:21
+    Bool
+testdata/typeclass.lc 20:17-20:19
+    forall a . Eq a => a -> a -> Bool
+testdata/typeclass.lc 20:20-20:21
+    _c
+testdata/typeclass.lc 23:17-23:18
+    Bool
+testdata/typeclass.lc 23:17-24:23
+    Bool -> Bool
+testdata/typeclass.lc 24:18-24:21
+    Bool -> Bool
+testdata/typeclass.lc 24:18-24:23
+    Bool
+testdata/typeclass.lc 24:22-24:23
+    _b
\ No newline at end of file
diff --git a/testdata/typesig.reject.out b/testdata/typesig.reject.out
index aa062c93..90566f2c 100644
--- a/testdata/typesig.reject.out
+++ b/testdata/typesig.reject.out
@@ -1,18 +1,24 @@
-focus checkMetas: \(a :: Type) -> (\(b :: Type) -> primFix a b)
-  \(a := Type) -> \(c :: Type) -> <<HERE>>
-\(d :: Type ~ _a) (e :: _a ~ X) -> typeAnn _a (labend X)
+focus checkMetas: \(a :: Type) -> (\(b :: Type) -> primFix a b)
+  \(a := Type) -> \(c :: Type) -> <<HERE>>
+\(a :: Type ~ _a) (b :: _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>>
-\(d :: Type ~ _a) (e :: _a ~ X) -> typeAnn _a (labend X)
+'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>>
+\(a :: Type ~ _a) (b :: _a ~ X) -> typeAnn _a (labend X)
 ------------ tooltips
-testdata/typesig.reject.lc 4:6-4:7  Type
-testdata/typesig.reject.lc 4:6-4:11  Type
-testdata/typesig.reject.lc 4:10-4:11  X
-testdata/typesig.reject.lc 6:6-6:7  _b
-testdata/typesig.reject.lc 6:6-7:6  _a -> _a | _c
-testdata/typesig.reject.lc 7:5-7:6  X
+testdata/typesig.reject.lc 4:6-4:7
+    Type | Type | Type | Type | Type
+testdata/typesig.reject.lc 4:6-4:11
+    Type
+testdata/typesig.reject.lc 4:10-4:11
+    X
+testdata/typesig.reject.lc 6:6-6:7
+    _b
+testdata/typesig.reject.lc 6:6-7:6
+    _c
+testdata/typesig.reject.lc 7:5-7:6
+    X
\ No newline at end of file
diff --git a/testdata/typesigctx.reject.out b/testdata/typesigctx.reject.out
index c3055e27..ff06cec2 100644
--- a/testdata/typesigctx.reject.out
+++ b/testdata/typesigctx.reject.out
@@ -1,23 +1,34 @@
 type error: no instance of 'Show' on ???
 in Wildcard2 builtin 'Type
 ------------ 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
-'Show' :: Type -> Type
-show' :: forall a . Show' a => a -> X
+'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
+'Show' :: Type -> Type
+show' :: forall a . Show' a => a -> X
 !type error: no instance of 'Show' on ???
 in Wildcard2 builtin 'Type
 ------------ tooltips
-testdata/typesigctx.reject.lc 1:6-1:7  Type
-testdata/typesigctx.reject.lc 1:6-1:11  Type
-testdata/typesigctx.reject.lc 1:10-1:11  X
-testdata/typesigctx.reject.lc 3:7-3:12  Type -> Type
-testdata/typesigctx.reject.lc 3:7-3:36  Type
-testdata/typesigctx.reject.lc 3:21-3:26  forall a . Show' a => a -> X
-testdata/typesigctx.reject.lc 3:30-3:31  Type
-testdata/typesigctx.reject.lc 3:30-3:36  Type
-testdata/typesigctx.reject.lc 3:35-3:36  Type
-testdata/typesigctx.reject.lc 5:11-5:12  Type
-testdata/typesigctx.reject.lc 6:10-6:15  forall a . Show' a => a -> X
+testdata/typesigctx.reject.lc 1:6-1:7
+    Type | Type | Type | Type | Type
+testdata/typesigctx.reject.lc 1:6-1:11
+    Type
+testdata/typesigctx.reject.lc 1:10-1:11
+    X
+testdata/typesigctx.reject.lc 3:7-3:12
+    Type -> Type | Type -> Type
+testdata/typesigctx.reject.lc 3:7-3:36
+    Type
+testdata/typesigctx.reject.lc 3:21-3:26
+    forall a . Show' a => a -> X
+testdata/typesigctx.reject.lc 3:30-3:31
+    Type
+testdata/typesigctx.reject.lc 3:30-3:36
+    Type
+testdata/typesigctx.reject.lc 3:35-3:36
+    Type | Type
+testdata/typesigctx.reject.lc 5:11-5:12
+    Type
+testdata/typesigctx.reject.lc 6:10-6:15
+    forall a . Show' a => a -> X
\ No newline at end of file
diff --git a/testdata/where.out b/testdata/where.out
index 6b633324..89ee58f1 100644
--- a/testdata/where.out
+++ b/testdata/where.out
@@ -2,10 +2,15 @@
 f = _rhs \(a := _rhs \(c := _rhs 1.0) -> c) (b := _rhs 1.0) -> b
 main is not found
 ------------ trace
-f :: Float
+f :: Float
 ------------ tooltips
-testdata/where.lc 3:1-3:2  Float
-testdata/where.lc 3:5-3:6  Float
-testdata/where.lc 5:9-5:10  Float
-testdata/where.lc 7:13-7:16  Float
-testdata/where.lc 8:9-8:12  Float
+testdata/where.lc 3:1-3:2
+    Float
+testdata/where.lc 3:5-3:6
+    Float
+testdata/where.lc 5:9-5:10
+    Float
+testdata/where.lc 7:13-7:16
+    Float
+testdata/where.lc 8:9-8:12
+    Float
\ No newline at end of file
diff --git a/testdata/zip01.out b/testdata/zip01.out
index deb2cf14..21511345 100644
--- a/testdata/zip01.out
+++ b/testdata/zip01.out
@@ -13,33 +13,61 @@ zip2
       . 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)
+zip2 :: forall a b . List a -> List b -> List (a, b)
 ------------ tooltips
-testdata/zip01.lc 1:9-1:12  Type
-testdata/zip01.lc 1:9-1:30  Type
-testdata/zip01.lc 1:9-4:40  _a -> _a | forall a b . List a -> List b -> List (a, b)
-testdata/zip01.lc 1:10-1:11  _d
-testdata/zip01.lc 1:16-1:19  Type
-testdata/zip01.lc 1:16-1:30  Type
-testdata/zip01.lc 1:17-1:18  _c
-testdata/zip01.lc 1:23-1:30  Type
-testdata/zip01.lc 1:24-1:29  Type
-testdata/zip01.lc 1:25-1:26  Type
-testdata/zip01.lc 1:25-1:28  List Type
-testdata/zip01.lc 1:27-1:28  List Type | Type
-testdata/zip01.lc 2:1-2:5  forall a b . List a -> List b -> List (a, b)
-testdata/zip01.lc 2:22-2:24  forall a . List a
-testdata/zip01.lc 2:22-4:40  List (_d, _c) | List _a -> List (_a, _d) | List _b -> List (_c, _b) | List _b -> List _a -> List (_b, _a)
-testdata/zip01.lc 3:22-3:24  forall a . List a
-testdata/zip01.lc 3:22-4:40  List (_c, _f) | List _a -> List (_e, _a) | List _c -> List _b | _b -> List _b -> List _a
-testdata/zip01.lc 4:22-4:27  (_h, _d)
-testdata/zip01.lc 4:22-4:29  List (_h, _d) -> List (_h, _d)
-testdata/zip01.lc 4:22-4:40  List (_g, _c) | List _c -> List _b | _b -> List _b -> List _a
-testdata/zip01.lc 4:23-4:24  _k
-testdata/zip01.lc 4:25-4:26  ((_d)) | _g
-testdata/zip01.lc 4:28-4:29  forall a . a -> List a -> List a
-testdata/zip01.lc 4:30-4:34  forall a b . List a -> List b -> List (a, b)
-testdata/zip01.lc 4:30-4:37  List _a -> List (_h, _a)
-testdata/zip01.lc 4:30-4:40  List (_g, _c)
-testdata/zip01.lc 4:35-4:37  List _i
-testdata/zip01.lc 4:38-4:40  List _c
+testdata/zip01.lc 1:9-1:12
+    Type
+testdata/zip01.lc 1:9-1:30
+    Type | Type
+testdata/zip01.lc 1:9-4:40
+    forall a b . List a -> List b -> List (a, b)
+testdata/zip01.lc 1:10-1:11
+    _d
+testdata/zip01.lc 1:16-1:19
+    Type
+testdata/zip01.lc 1:16-1:30
+    Type
+testdata/zip01.lc 1:17-1:18
+    _c
+testdata/zip01.lc 1:23-1:30
+    Type | Type
+testdata/zip01.lc 1:24-1:29
+    Type
+testdata/zip01.lc 1:25-1:26
+    Type
+testdata/zip01.lc 1:25-1:28
+    List Type
+testdata/zip01.lc 1:27-1:28
+    Type | List Type
+testdata/zip01.lc 2:1-2:5
+    forall a b . List a -> List b -> List (a, b)
+testdata/zip01.lc 2:22-2:24
+    forall a . List a
+testdata/zip01.lc 2:22-4:40
+    List _a -> List (_a, _d) | List (_d, _c)
+testdata/zip01.lc 3:22-3:24
+    forall a . List a
+testdata/zip01.lc 3:22-4:40
+    List _a -> List (_e, _a) | List (_c, _f)
+testdata/zip01.lc 4:22-4:27
+    (_h, _d)
+testdata/zip01.lc 4:22-4:29
+    List (_h, _d) -> List (_h, _d)
+testdata/zip01.lc 4:22-4:40
+    List (_g, _c)
+testdata/zip01.lc 4:23-4:24
+    _k
+testdata/zip01.lc 4:25-4:26
+    _g | ((_d))
+testdata/zip01.lc 4:28-4:29
+    forall a . a -> List a -> List a
+testdata/zip01.lc 4:30-4:34
+    forall a b . List a -> List b -> List (a, b)
+testdata/zip01.lc 4:30-4:37
+    List _a -> List (_h, _a)
+testdata/zip01.lc 4:30-4:40
+    List (_g, _c)
+testdata/zip01.lc 4:35-4:37
+    List _i
+testdata/zip01.lc 4:38-4:40
+    List _c
\ No newline at end of file