switch to Haskell style syntax in pretty print

104 files changed, 8409 insertions, 8409 deletions

diff --git a/testdata/Builtins.out b/testdata/Builtins.out
index 1c0d0cc2..e5e3cf55 100644
--- a/testdata/Builtins.out
+++ b/testdata/Builtins.out
@@ -1,16 +1,16 @@
 main is not found
 ------------ trace
-id :: {a} -> a->a
-'VecS :: Type -> 'Nat->Type
-V2 :: {a} -> a -> a -> 'VecS a 2
-V3 :: {a} -> a -> a -> a -> 'VecS a 3
-V4 :: {a} -> a -> a -> a -> a -> 'VecS a 4
-'VecSCase :: {a} -> (b : (c:'Nat) -> 'VecS a c -> Type) -> ((d:a) -> (e:a) -> b 2 (V2 d e)) -> ((f:a) -> (g:a) -> (h:a) -> b 3 (V3 f g h)) -> ((i:a) -> (j:a) -> (k:a) -> (l:a) -> b 4 (V4 i j k l)) -> {m:'Nat} -> (n : 'VecS a m) -> b m n
-match'VecS :: (a : Type->Type) -> ((b:Type) -> (c:'Nat) -> a ('VecS b c)) -> (d:Type) -> a d -> a d
-mapVec :: {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
+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 . (b :: (c :: 'Nat) -> 'VecS a c -> Type) -> ((d :: a) -> (e :: a) -> b 2 (V2 d e)) -> ((f :: a) -> (g :: a) -> (h :: a) -> b 3 (V3 f g h)) -> ((i :: a) -> (j :: a) -> (k :: a) -> (l :: a) -> b 4 (V4 i j k l)) -> forall (m :: 'Nat) . (n :: 'VecS a m) -> b m n
+match'VecS :: (a :: Type -> Type) -> ((b :: Type) -> (c :: 'Nat) -> a ('VecS b c)) -> (d :: Type) -> 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
@@ -20,199 +20,199 @@ M43F :: 'Vec 4 'Float -> 'Vec [32
 M24F :: 'Vec 2 'Float -> 'Vec 2 'Float -> 'Vec 2 'Float -> 'Vec 2 'Float -> 'Mat 2 4 'Float
 M34F :: 'Vec 3 'Float -> 'Vec 3 'Float -> 'Vec 3 'Float -> 'Vec 3 'Float -> 'Mat 3 4 'Float
 M44F :: 'Vec 4 'Float -> 'Vec 4 'Float -> 'Vec 4 'Float -> 'Vec 4 'Float -> 'Mat 4 4 'Float
-'MatCase :: (a : (b:'Nat) -> (c:'Nat) -> (d:Type) -> 'Mat b c d -> Type) -> ((e : 'Vec 2 'Float) -> (f : 'Vec 2 'Float) -> a 2 2 'Float (M22F e f)) -> ((g : 'Vec 3 'Float) -> (h : 'Vec 3 'Float) -> a 3 2 'Float (M32F g h)) -> ((i : 'Vec 4 'Float) -> (j : 'Vec 4 'Float) -> a 4 2 'Float (M42F i j)) -> ((k : 'Vec 2 'Float) -> (l : 'Vec 2 'Float) -> (m : 'Vec 2 'Float) -> a 2 3 'Float (M23F k l m)) -> ((n : 'Vec 3 'Float) -> (o : 'Vec 3 'Float) -> (p : 'Vec 3 'Float) -> a 3 3 'Float (M33F n o p)) -> ((q : 'Vec 4 'Float) -> (r : 'Vec 4 'Float) -> (s : 'Vec 4 'Float) -> a 4 3 'Float (M43F q r s)) -> ((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)) -> ((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')) -> ((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')) -> {f':'Nat} -> {g':'Nat} -> {h'} -> (i' : 'Mat f' g' h') -> a f' g' h' i'
-match'Mat :: (a : Type->Type) -> ((b:'Nat) -> (c:'Nat) -> (d:Type) -> a ('Mat b c d)) -> (e:Type) -> a e -> a e
-'MatVecScalarElem :: Type->Type
-'Signed :: Type->Type
-'Component :: Type->Type
-zero :: {a} -> {_ : 'Component a}->a
-one :: {a} -> {_ : 'Component a}->a
-'Integral :: Type->Type
-'Floating :: Type->Type
-PrimAdd :: {a} -> {_ : 'Num ('MatVecScalarElem a)} -> a -> a->a
-PrimSub :: {a} -> {_ : 'Num ('MatVecScalarElem a)} -> a -> a->a
-PrimMul :: {a} -> {_ : 'Num ('MatVecScalarElem a)} -> a -> a->a
-PrimAddS :: {a} -> {b} -> {_ : a ~ 'MatVecScalarElem b} -> {_ : 'Num a} -> b -> a->b
-PrimSubS :: {a} -> {b} -> {_ : a ~ 'MatVecScalarElem b} -> {_ : 'Num a} -> b -> a->b
-PrimMulS :: {a} -> {b} -> {_ : a ~ 'MatVecScalarElem b} -> {_ : 'Num a} -> b -> a->b
-PrimDiv :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-PrimMod :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-PrimDivS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> a->b
-PrimModS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> a->b
-PrimNeg :: {a} -> {_ : 'Signed ('MatVecScalarElem a)} -> a->a
-PrimBAnd :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-PrimBOr :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-PrimBXor :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-PrimBAndS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> a->b
-PrimBOrS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> a->b
-PrimBXorS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> a->b
-PrimBNot :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b->b
-PrimBShiftL :: {a} -> {b} -> {c:'Nat} -> {d} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> {_ : d ~ 'VecScalar c 'Word} -> b -> d->b
-PrimBShiftR :: {a} -> {b} -> {c:'Nat} -> {d} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> {_ : d ~ 'VecScalar c 'Word} -> b -> d->b
-PrimBShiftLS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> 'Word->b
-PrimBShiftRS :: {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 :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Bool} -> a->a
-PrimAny :: {a:'Nat} -> 'VecScalar a 'Bool -> 'Bool
-PrimAll :: {a:'Nat} -> 'VecScalar a 'Bool -> 'Bool
-PrimACos :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimACosH :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimASin :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimASinH :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimATan :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimATanH :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimCos :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimCosH :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimDegrees :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimRadians :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimSin :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimSinH :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimTan :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimTanH :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimExp :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimLog :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimExp2 :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimLog2 :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimSqrt :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimInvSqrt :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimPow :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a->a
-PrimATan2 :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a->a
-PrimFloor :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimTrunc :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimRound :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimRoundEven :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimCeil :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimFract :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimMin :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-PrimMax :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-PrimMinS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> a->b
-PrimMaxS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> a->b
-PrimIsNan :: {a} -> {b:'Nat} -> {c} -> {_ : a ~ 'VecScalar b 'Float} -> {_ : c ~ 'VecScalar b 'Bool} -> a->c
-PrimIsInf :: {a} -> {b:'Nat} -> {c} -> {_ : a ~ 'VecScalar b 'Float} -> {_ : c ~ 'VecScalar b 'Bool} -> a->c
-PrimAbs :: {a} -> {b} -> {c:'Nat} -> {_ : 'Signed a} -> {_ : b ~ 'VecScalar c a} -> b->b
-PrimSign :: {a} -> {b} -> {c:'Nat} -> {_ : 'Signed a} -> {_ : b ~ 'VecScalar c a} -> b->b
-PrimModF :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->(a, a)
-PrimClamp :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> b -> b->b
-PrimClampS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> a -> a->b
-PrimMix :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a -> a->a
-PrimMixS :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a -> 'Float->a
-PrimMixB :: {a} -> {b:'Nat} -> {c} -> {_ : a ~ 'VecScalar b 'Float} -> {_ : c ~ 'VecScalar b 'Bool} -> a -> a -> c->a
-PrimStep :: {a} -> {b:'Nat} -> {_ : a ~ 'VecS 'Float b} -> a -> a->a
-PrimStepS :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> 'Float -> a->a
-PrimSmoothStep :: {a} -> {b:'Nat} -> {_ : a ~ 'VecS 'Float b} -> a -> a -> a->a
-PrimSmoothStepS :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> 'Float -> 'Float -> a->a
-PrimFloatBitsToInt :: {a:'Nat} -> 'VecScalar a 'Float -> 'VecScalar a 'Int
-PrimFloatBitsToUInt :: {a:'Nat} -> 'VecScalar a 'Float -> 'VecScalar a 'Word
-PrimIntBitsToFloat :: {a:'Nat} -> 'VecScalar a 'Int -> 'VecScalar a 'Float
-PrimUIntBitsToFloat :: {a:'Nat} -> 'VecScalar a 'Word -> 'VecScalar a 'Float
-PrimLength :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->'Float
-PrimDistance :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a->'Float
-PrimDot :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a->'Float
-PrimCross :: {a} -> {_ : a ~ 'VecS 'Float 3} -> a -> a->a
-PrimNormalize :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimFaceForward :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a -> a->a
-PrimRefract :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a -> a->a
-PrimReflect :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a->a
-PrimTranspose :: {a:'Nat} -> {b:'Nat} -> {c} -> 'Mat a b c -> 'Mat b a c
-PrimDeterminant :: {a:'Nat} -> {b} -> 'Mat a a b -> 'Float
-PrimInverse :: {a:'Nat} -> {b} -> 'Mat a a b -> 'Mat a a b
-PrimOuterProduct :: {a:'Nat} -> {b} -> {c:'Nat} -> 'Vec a b -> 'Vec c b -> 'Mat c a b
-PrimMulMatVec :: {a:'Nat} -> {b:'Nat} -> {c} -> 'Mat a b c -> 'Vec b c -> 'Vec a c
-PrimMulVecMat :: {a:'Nat} -> {b} -> {c:'Nat} -> 'Vec a b -> 'Mat a c b -> 'Vec c b
-PrimMulMatMat :: {a:'Nat} -> {b:'Nat} -> {c} -> {d:'Nat} -> 'Mat a b c -> 'Mat b d c -> 'Mat a d c
-PrimLessThan :: {a} -> {b:'Nat} -> {c} -> {d} -> {_ : 'Num c} -> {_ : a ~ 'VecScalar b c} -> {_ : d ~ 'VecScalar b 'Bool} -> a -> a->d
-PrimLessThanEqual :: {a} -> {b:'Nat} -> {c} -> {d} -> {_ : 'Num c} -> {_ : a ~ 'VecScalar b c} -> {_ : d ~ 'VecScalar b 'Bool} -> a -> a->d
-PrimGreaterThan :: {a} -> {b:'Nat} -> {c} -> {d} -> {_ : 'Num c} -> {_ : a ~ 'VecScalar b c} -> {_ : d ~ 'VecScalar b 'Bool} -> a -> a->d
-PrimGreaterThanEqual :: {a} -> {b:'Nat} -> {c} -> {d} -> {_ : 'Num c} -> {_ : a ~ 'VecScalar b c} -> {_ : d ~ 'VecScalar b 'Bool} -> a -> a->d
-PrimEqualV :: {a} -> {b:'Nat} -> {c} -> {d} -> {_ : 'Num c} -> {_ : a ~ 'VecScalar b c} -> {_ : d ~ 'VecScalar b 'Bool} -> a -> a->d
-PrimNotEqualV :: {a} -> {b:'Nat} -> {c} -> {d} -> {_ : 'Num c} -> {_ : a ~ 'VecScalar b c} -> {_ : d ~ 'VecScalar b 'Bool} -> a -> a->d
-PrimEqual :: {a} -> {b} -> {_ : b ~ 'MatVecScalarElem a} -> a -> a->'Bool
-PrimNotEqual :: {a} -> {b} -> {_ : b ~ 'MatVecScalarElem a} -> a -> a->'Bool
-PrimDFdx :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimDFdy :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimFWidth :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-PrimNoise1 :: {a:'Nat} -> 'VecScalar a 'Float -> 'Float
-PrimNoise2 :: {a:'Nat} -> 'VecScalar a 'Float -> 'Vec 2 'Float
-PrimNoise3 :: {a:'Nat} -> 'VecScalar a 'Float -> 'Vec 3 'Float
-PrimNoise4 :: {a:'Nat} -> 'VecScalar a 'Float -> 'Vec 4 'Float
-head :: {a} -> 'List a -> a
-++ :: {a} -> 'List a -> 'List a -> 'List a
-foldr :: {a} -> {b} -> (b -> a->a) -> a -> 'List b -> a
-concat :: {a} -> 'List ('List a) -> 'List a
-map :: {a} -> {b} -> (a->b) -> 'List a -> 'List b
-concatMap :: {a} -> {b} -> (a -> 'List b) -> 'List a -> 'List b
-len :: {a} -> 'List a -> 'Int
-'Maybe :: Type->Type
-Nothing :: {a} -> 'Maybe a
-Just :: {a} -> a -> 'Maybe a
-'MaybeCase :: {a} -> (b : 'Maybe a -> Type) -> b Nothing -> ((c:a) -> b (Just c)) -> (d : 'Maybe a) -> b d
-match'Maybe :: (a : Type->Type) -> ((b:Type) -> a ('Maybe b)) -> (c:Type) -> a c -> a c
-'Vector :: 'Nat -> Type->Type
-'VectorCase :: {a:'Nat} -> {b} -> (c : 'Vector a b -> Type) -> (d : 'Vector a b) -> c d
-match'Vector :: (a : Type->Type) -> ((b:'Nat) -> (c:Type) -> a ('Vector b c)) -> (d:Type) -> a d -> a d
+'MatCase :: (a :: (b :: 'Nat) -> (c :: 'Nat) -> (d :: Type) -> 'Mat b c d -> Type) -> ((e :: 'Vec 2 'Float) -> (f :: 'Vec 2 'Float) -> a 2 2 'Float (M22F e f)) -> ((g :: 'Vec 3 'Float) -> (h :: 'Vec 3 'Float) -> a 3 2 'Float (M32F g h)) -> ((i :: 'Vec 4 'Float) -> (j :: 'Vec 4 'Float) -> a 4 2 'Float (M42F i j)) -> ((k :: 'Vec 2 'Float) -> (l :: 'Vec 2 'Float) -> (m :: 'Vec 2 'Float) -> a 2 3 'Float (M23F k l m)) -> ((n :: 'Vec 3 'Float) -> (o :: 'Vec 3 'Float) -> (p :: 'Vec 3 'Float) -> a 3 3 'Float (M33F n o p)) -> ((q :: 'Vec 4 'Float) -> (r :: 'Vec 4 'Float) -> (s :: 'Vec 4 'Float) -> a 4 3 'Float (M43F q r s)) -> ((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)) -> ((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')) -> ((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' . (i' :: 'Mat f' g' h') -> a f' g' h' i'
+match'Mat :: (a :: Type -> Type) -> ((b :: 'Nat) -> (c :: 'Nat) -> (d :: Type) -> a ('Mat b c d)) -> (e :: Type) -> 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
+PrimBOr :: forall a b (c :: 'Nat) . ('Integral a, b ~ 'VecScalar c a) => b -> b -> b
+PrimBXor :: forall a b (c :: 'Nat) . ('Integral a, b ~ 'VecScalar c a) => b -> b -> b
+PrimBAndS :: forall a b (c :: 'Nat) . ('Integral a, b ~ 'VecScalar c a) => b -> a -> b
+PrimBOrS :: forall a b (c :: 'Nat) . ('Integral a, b ~ 'VecScalar c a) => b -> a -> b
+PrimBXorS :: forall a b (c :: 'Nat) . ('Integral a, b ~ 'VecScalar c a) => b -> a -> b
+PrimBNot :: forall a b (c :: 'Nat) . ('Integral a, b ~ 'VecScalar c a) => b -> b
+PrimBShiftL :: forall a b (c :: 'Nat) d . ('Integral a, b ~ 'VecScalar c a, d ~ 'VecScalar c 'Word) => b -> d -> b
+PrimBShiftR :: forall a b (c :: 'Nat) d . ('Integral a, b ~ 'VecScalar c a, d ~ 'VecScalar c 'Word) => b -> d -> b
+PrimBShiftLS :: forall a b (c :: 'Nat) . ('Integral a, b ~ 'VecScalar c a) => b -> 'Word -> b
+PrimBShiftRS :: forall a b (c :: 'Nat) . ('Integral a, b ~ 'VecScalar c a) => b -> 'Word -> b
+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
+PrimIsInf :: forall a (b :: 'Nat) c . (a ~ 'VecScalar b 'Float, c ~ 'VecScalar b 'Bool) => a -> c
+PrimAbs :: forall a b (c :: 'Nat) . ('Signed a, b ~ 'VecScalar c a) => b -> b
+PrimSign :: forall a b (c :: 'Nat) . ('Signed a, b ~ 'VecScalar c a) => b -> b
+PrimModF :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => a -> (a, a)
+PrimClamp :: forall a b (c :: 'Nat) . ('Num a, b ~ 'VecScalar c a) => b -> b -> b -> b
+PrimClampS :: forall a b (c :: 'Nat) . ('Num a, b ~ 'VecScalar c a) => b -> a -> a -> b
+PrimMix :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => a -> a -> a -> a
+PrimMixS :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => a -> a -> 'Float -> a
+PrimMixB :: forall a (b :: 'Nat) c . (a ~ 'VecScalar b 'Float, c ~ 'VecScalar b 'Bool) => a -> a -> c -> a
+PrimStep :: forall a (b :: 'Nat) . (a ~ 'VecS 'Float b) => a -> a -> a
+PrimStepS :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => 'Float -> a -> a
+PrimSmoothStep :: forall a (b :: 'Nat) . (a ~ 'VecS 'Float b) => a -> a -> a -> a
+PrimSmoothStepS :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => 'Float -> 'Float -> a -> a
+PrimFloatBitsToInt :: forall (a :: 'Nat) . 'VecScalar a 'Float -> 'VecScalar a 'Int
+PrimFloatBitsToUInt :: forall (a :: 'Nat) . 'VecScalar a 'Float -> 'VecScalar a 'Word
+PrimIntBitsToFloat :: forall (a :: 'Nat) . 'VecScalar a 'Int -> 'VecScalar a 'Float
+PrimUIntBitsToFloat :: forall (a :: 'Nat) . 'VecScalar a 'Word -> 'VecScalar a 'Float
+PrimLength :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => a -> 'Float
+PrimDistance :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => a -> a -> 'Float
+PrimDot :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => a -> a -> 'Float
+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
+PrimOuterProduct :: forall (a :: 'Nat) b (c :: 'Nat) . 'Vec a b -> 'Vec c b -> 'Mat c a b
+PrimMulMatVec :: forall (a :: 'Nat) (b :: 'Nat) c . 'Mat a b c -> 'Vec b c -> 'Vec a c
+PrimMulVecMat :: forall (a :: 'Nat) b (c :: 'Nat) . 'Vec a b -> 'Mat a c b -> 'Vec c b
+PrimMulMatMat :: forall (a :: 'Nat) (b :: 'Nat) c (d :: 'Nat) . 'Mat a b c -> 'Mat b d c -> 'Mat a d c
+PrimLessThan :: forall a (b :: 'Nat) c d . ('Num c, a ~ 'VecScalar b c, d ~ 'VecScalar b 'Bool) => a -> a -> d
+PrimLessThanEqual :: forall a (b :: 'Nat) c d . ('Num c, a ~ 'VecScalar b c, d ~ 'VecScalar b 'Bool) => a -> a -> d
+PrimGreaterThan :: forall a (b :: 'Nat) c d . ('Num c, a ~ 'VecScalar b c, d ~ 'VecScalar b 'Bool) => a -> a -> d
+PrimGreaterThanEqual :: forall a (b :: 'Nat) c d . ('Num c, a ~ 'VecScalar b c, d ~ 'VecScalar b 'Bool) => a -> a -> d
+PrimEqualV :: forall a (b :: 'Nat) c d . ('Num c, a ~ 'VecScalar b c, d ~ 'VecScalar b 'Bool) => a -> a -> d
+PrimNotEqualV :: forall a (b :: 'Nat) c d . ('Num c, a ~ 'VecScalar b c, d ~ 'VecScalar b 'Bool) => a -> a -> d
+PrimEqual :: forall a b . (b ~ 'MatVecScalarElem a) => a -> a -> 'Bool
+PrimNotEqual :: forall a b . (b ~ 'MatVecScalarElem a) => a -> a -> 'Bool
+PrimDFdx :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => a -> a
+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 . (b :: 'Maybe a -> Type) -> b Nothing -> ((c :: a) -> b (Just c)) -> (d :: 'Maybe a) -> b d
+match'Maybe :: (a :: Type -> Type) -> ((b :: Type) -> a ('Maybe b)) -> (c :: Type) -> a c -> a c
+'Vector :: 'Nat -> Type -> Type
+'VectorCase :: forall (a :: 'Nat) b . (c :: 'Vector a b -> Type) -> (d :: 'Vector a b) -> c d
+match'Vector :: (a :: Type -> Type) -> ((b :: 'Nat) -> (c :: Type) -> a ('Vector b c)) -> (d :: Type) -> a d -> a d
 'PrimitiveType :: Type
 Triangle :: 'PrimitiveType
 Line :: 'PrimitiveType
 Point :: 'PrimitiveType
 TriangleAdjacency :: 'PrimitiveType
 LineAdjacency :: 'PrimitiveType
-'PrimitiveTypeCase :: (a : 'PrimitiveType->Type) -> a Triangle -> a Line -> a Point -> a TriangleAdjacency -> a LineAdjacency -> (b:'PrimitiveType) -> a b
-match'PrimitiveType :: (a : Type->Type) -> a 'PrimitiveType -> (b:Type) -> a b -> a b
-'Primitive :: Type -> 'PrimitiveType->Type
-PrimPoint :: {a} -> a -> 'Primitive a Point
-PrimLine :: {a} -> a -> a -> 'Primitive a Line
-PrimTriangle :: {a} -> a -> a -> a -> 'Primitive a Triangle
-'PrimitiveCase :: {a} -> (b : (c:'PrimitiveType) -> 'Primitive a c -> Type) -> ((d:a) -> b Point (PrimPoint d)) -> ((e:a) -> (f:a) -> b Line (PrimLine e f)) -> ((g:a) -> (h:a) -> (i:a) -> b Triangle (PrimTriangle g h i)) -> {j:'PrimitiveType} -> (k : 'Primitive a j) -> b j k
-match'Primitive :: (a : Type->Type) -> ((b:Type) -> (c:'PrimitiveType) -> a ('Primitive b c)) -> (d:Type) -> a d -> a d
-mapPrimitive :: {a} -> {b} -> {c:'PrimitiveType} -> (a->b) -> 'Primitive a c -> 'Primitive b c
-'PrimitiveStream :: 'PrimitiveType -> Type->Type
-mapPrimitives :: {a} -> {b} -> {c:'PrimitiveType} -> (a->b) -> 'List ('Primitive a c) -> 'List ('Primitive b c)
-'ListElem :: Type->Type
-fetchArrays :: {a:'PrimitiveType} -> {b : 'List Type} -> {c : 'List Type} -> {_ : b ~ map Type Type 'ListElem c} -> 'HList c -> 'PrimitiveStream a ('HList b)
-fetch :: {a:'PrimitiveType} -> {b : 'List Type} -> 'String -> 'HList b -> 'PrimitiveStream a ('HList b)
-Attribute :: {a} -> 'String->a
-fetchStream :: {a:'PrimitiveType} -> {b : 'List Type} -> 'String -> (c : 'List 'String) -> {_ : len 'String c ~ len Type b} -> 'PrimitiveStream a ('HList b)
-'SimpleFragment :: Type->Type
-SimpleFragment :: {a} -> 'Vec 3 'Float -> a -> 'SimpleFragment a
-'SimpleFragmentCase :: {a} -> (b : 'SimpleFragment a -> Type) -> ((c : 'Vec 3 'Float) -> (d:a) -> b (SimpleFragment c d)) -> (e : 'SimpleFragment a) -> b e
-match'SimpleFragment :: (a : Type->Type) -> ((b:Type) -> a ('SimpleFragment b)) -> (c:Type) -> a c -> a c
-'Fragment :: 'Nat -> Type->Type
-sFragmentCoords :: {a} -> 'SimpleFragment a -> 'VecS 'Float 3
-sFragmentValue :: {a} -> 'SimpleFragment a -> a
-'FragmentStream :: 'Nat -> Type->Type
-customizeDepth :: {a} -> {b:'Nat} -> (a->'Float) -> 'Fragment b a -> 'Fragment b a
-customizeDepths :: {a} -> {b:'Nat} -> (a->'Float) -> 'List ('Vector b ('Maybe ('SimpleFragment a))) -> 'List ('Vector b ('Maybe ('SimpleFragment a)))
-filterFragment :: {a} -> {b:'Nat} -> (a->'Bool) -> 'Fragment b a -> 'Fragment b a
-filterFragments :: {a} -> {b:'Nat} -> (a->'Bool) -> 'List ('Vector b ('Maybe ('SimpleFragment a))) -> 'List ('Vector b ('Maybe ('SimpleFragment a)))
-mapFragment :: {a} -> {b} -> {c:'Nat} -> (a->b) -> 'Fragment c a -> 'Fragment c b
-mapFragments :: {a} -> {b} -> {c:'Nat} -> (a->b) -> 'List ('Vector c ('Maybe ('SimpleFragment a))) -> 'List ('Vector c ('Maybe ('SimpleFragment b)))
+'PrimitiveTypeCase :: (a :: 'PrimitiveType -> Type) -> a Triangle -> a Line -> a Point -> a TriangleAdjacency -> a LineAdjacency -> (b :: 'PrimitiveType) -> a b
+match'PrimitiveType :: (a :: Type -> Type) -> a 'PrimitiveType -> (b :: Type) -> 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 . (b :: (c :: 'PrimitiveType) -> 'Primitive a c -> Type) -> ((d :: a) -> b Point (PrimPoint d)) -> ((e :: a) -> (f :: a) -> b Line (PrimLine e f)) -> ((g :: a) -> (h :: a) -> (i :: a) -> b Triangle (PrimTriangle g h i)) -> forall (j :: 'PrimitiveType) . (k :: 'Primitive a j) -> b j k
+match'Primitive :: (a :: Type -> Type) -> ((b :: Type) -> (c :: 'PrimitiveType) -> a ('Primitive b c)) -> (d :: Type) -> a d -> a d
+mapPrimitive :: forall a b (c :: 'PrimitiveType) . (a -> b) -> 'Primitive a c -> 'Primitive b c
+'PrimitiveStream :: 'PrimitiveType -> Type -> Type
+mapPrimitives :: forall a b (c :: 'PrimitiveType) . (a -> b) -> 'List ('Primitive a c) -> 'List ('Primitive b c)
+'ListElem :: Type -> Type
+fetchArrays :: forall (a :: 'PrimitiveType) (b :: 'List Type) (c :: 'List Type) . (b ~ map Type Type 'ListElem c) => 'HList c -> 'PrimitiveStream a ('HList b)
+fetch :: forall (a :: 'PrimitiveType) (b :: 'List Type) . 'String -> 'HList b -> 'PrimitiveStream a ('HList b)
+Attribute :: forall a . 'String -> a
+fetchStream :: forall (a :: 'PrimitiveType) (b :: 'List Type) . 'String -> (c :: 'List 'String) -> (len 'String c ~ len Type b) => 'PrimitiveStream a ('HList b)
+'SimpleFragment :: Type -> Type
+SimpleFragment :: forall a . 'Vec 3 'Float -> a -> 'SimpleFragment a
+'SimpleFragmentCase :: forall a . (b :: 'SimpleFragment a -> Type) -> ((c :: 'Vec 3 'Float) -> (d :: a) -> b (SimpleFragment c d)) -> (e :: 'SimpleFragment a) -> b e
+match'SimpleFragment :: (a :: Type -> Type) -> ((b :: Type) -> a ('SimpleFragment b)) -> (c :: Type) -> a c -> a c
+'Fragment :: 'Nat -> Type -> Type
+sFragmentCoords :: forall a . 'SimpleFragment a -> 'VecS 'Float 3
+sFragmentValue :: forall a . 'SimpleFragment a -> a
+'FragmentStream :: 'Nat -> Type -> Type
+customizeDepth :: forall a (b :: 'Nat) . (a -> 'Float) -> 'Fragment b a -> 'Fragment b a
+customizeDepths :: forall a (b :: 'Nat) . (a -> 'Float) -> 'List ('Vector b ('Maybe ('SimpleFragment a))) -> 'List ('Vector b ('Maybe ('SimpleFragment a)))
+filterFragment :: forall a (b :: 'Nat) . (a -> 'Bool) -> 'Fragment b a -> 'Fragment b a
+filterFragments :: forall a (b :: 'Nat) . (a -> 'Bool) -> 'List ('Vector b ('Maybe ('SimpleFragment a))) -> 'List ('Vector b ('Maybe ('SimpleFragment a)))
+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
+Color :: Type -> 'ImageKind
 Depth :: 'ImageKind
 Stencil :: 'ImageKind
-'ImageKindCase :: (a : 'ImageKind->Type) -> ((b:Type) -> a (Color b)) -> a Depth -> a Stencil -> (c:'ImageKind) -> a c
-match'ImageKind :: (a : Type->Type) -> a 'ImageKind -> (b:Type) -> a b -> a b
-imageType :: 'ImageKind->Type
-'Image :: 'Nat -> 'ImageKind->Type
-'ImageCase :: {a:'Nat} -> {b:'ImageKind} -> (c : 'Image a b -> Type) -> (d : 'Image a b) -> c d
-match'Image :: (a : Type->Type) -> ((b:'Nat) -> (c:'ImageKind) -> a ('Image b c)) -> (d:Type) -> a d -> a d
-ColorImage :: {a:'Nat} -> {b:'Nat} -> {c} -> {d} -> {_ : 'Num c} -> {_ : d ~ 'VecScalar b c} -> d -> 'Image a (Color d)
-DepthImage :: {a:'Nat} -> 'Float -> 'Image a Depth
-StencilImage :: {a:'Nat} -> 'Int -> 'Image a Stencil
+'ImageKindCase :: (a :: 'ImageKind -> Type) -> ((b :: Type) -> a (Color b)) -> a Depth -> a Stencil -> (c :: 'ImageKind) -> a c
+match'ImageKind :: (a :: Type -> Type) -> a 'ImageKind -> (b :: Type) -> a b -> a b
+imageType :: 'ImageKind -> Type
+'Image :: 'Nat -> 'ImageKind -> Type
+'ImageCase :: forall (a :: 'Nat) (b :: 'ImageKind) . (c :: 'Image a b -> Type) -> (d :: 'Image a b) -> c d
+match'Image :: (a :: Type -> Type) -> ((b :: 'Nat) -> (c :: 'ImageKind) -> a ('Image b c)) -> (d :: Type) -> a d -> a d
+ColorImage :: forall (a :: 'Nat) (b :: 'Nat) c d . ('Num c, d ~ 'VecScalar b c) => d -> 'Image a (Color d)
+DepthImage :: forall (a :: 'Nat) . 'Float -> 'Image a Depth
+StencilImage :: forall (a :: 'Nat) . 'Int -> 'Image a Stencil
 emptyDepthImage :: 'Float -> 'Image 1 Depth
-emptyColorImage :: {a:'Nat} -> {b} -> {c} -> {_ : 'Num b} -> {_ : c ~ 'VecScalar a b} -> c -> 'Image 1 (Color c)
+emptyColorImage :: forall (a :: 'Nat) b c . ('Num b, c ~ 'VecScalar a b) => c -> 'Image 1 (Color c)
 'Swizz :: Type
 Sx :: 'Swizz
 Sy :: 'Swizz
 Sz :: 'Swizz
 Sw :: 'Swizz
-'SwizzCase :: (a : 'Swizz->Type) -> a Sx -> a Sy -> a Sz -> a Sw -> (b:'Swizz) -> a b
-match'Swizz :: (a : Type->Type) -> a 'Swizz -> (b:Type) -> a b -> a b
-swizzscalar :: {a} -> {b:'Nat} -> 'Vec b a -> 'Swizz->a
-definedVec :: {a} -> {b:'Nat} -> 'Vec b a -> 'Bool
-swizzvector :: {a} -> {b:'Nat} -> {c:'Nat} -> 'Vec b a -> 'Vec c 'Swizz -> 'VecS a c
+'SwizzCase :: (a :: 'Swizz -> Type) -> a Sx -> a Sy -> a Sz -> a Sw -> (b :: 'Swizz) -> a b
+match'Swizz :: (a :: Type -> Type) -> a 'Swizz -> (b :: Type) -> 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
@@ -229,16 +229,16 @@ OneMinusConstantColor :: 'BlendingFactor
 ConstantAlpha :: 'BlendingFactor
 OneMinusConstantAlpha :: 'BlendingFactor
 SrcAlphaSaturate :: 'BlendingFactor
-'BlendingFactorCase :: (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 -> (b:'BlendingFactor) -> a b
-match'BlendingFactor :: (a : Type->Type) -> a 'BlendingFactor -> (b:Type) -> a b -> a b
+'BlendingFactorCase :: (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 -> (b :: 'BlendingFactor) -> a b
+match'BlendingFactor :: (a :: Type -> Type) -> a 'BlendingFactor -> (b :: Type) -> a b -> a b
 'BlendEquation :: Type
 FuncAdd :: 'BlendEquation
 FuncSubtract :: 'BlendEquation
 FuncReverseSubtract :: 'BlendEquation
 Min :: 'BlendEquation
 Max :: 'BlendEquation
-'BlendEquationCase :: (a : 'BlendEquation->Type) -> a FuncAdd -> a FuncSubtract -> a FuncReverseSubtract -> a Min -> a Max -> (b:'BlendEquation) -> a b
-match'BlendEquation :: (a : Type->Type) -> a 'BlendEquation -> (b:Type) -> a b -> a b
+'BlendEquationCase :: (a :: 'BlendEquation -> Type) -> a FuncAdd -> a FuncSubtract -> a FuncReverseSubtract -> a Min -> a Max -> (b :: 'BlendEquation) -> a b
+match'BlendEquation :: (a :: Type -> Type) -> a 'BlendEquation -> (b :: Type) -> a b -> a b
 'LogicOperation :: Type
 Clear :: 'LogicOperation
 And :: 'LogicOperation
@@ -256,8 +256,8 @@ CopyInverted :: 'LogicOperation
 OrInverted :: 'LogicOperation
 Nand :: 'LogicOperation
 Set :: 'LogicOperation
-'LogicOperationCase :: (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 -> (b:'LogicOperation) -> a b
-match'LogicOperation :: (a : Type->Type) -> a 'LogicOperation -> (b:Type) -> a b -> a b
+'LogicOperationCase :: (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 -> (b :: 'LogicOperation) -> a b
+match'LogicOperation :: (a :: Type -> Type) -> a 'LogicOperation -> (b :: Type) -> a b -> a b
 'StencilOperation :: Type
 OpZero :: 'StencilOperation
 OpKeep :: 'StencilOperation
@@ -267,8 +267,8 @@ OpIncrWrap :: 'StencilOperation
 OpDecr :: 'StencilOperation
 OpDecrWrap :: 'StencilOperation
 OpInvert :: 'StencilOperation
-'StencilOperationCase :: (a : 'StencilOperation->Type) -> a OpZero -> a OpKeep -> a OpReplace -> a OpIncr -> a OpIncrWrap -> a OpDecr -> a OpDecrWrap -> a OpInvert -> (b:'StencilOperation) -> a b
-match'StencilOperation :: (a : Type->Type) -> a 'StencilOperation -> (b:Type) -> a b -> a b
+'StencilOperationCase :: (a :: 'StencilOperation -> Type) -> a OpZero -> a OpKeep -> a OpReplace -> a OpIncr -> a OpIncrWrap -> a OpDecr -> a OpDecrWrap -> a OpInvert -> (b :: 'StencilOperation) -> a b
+match'StencilOperation :: (a :: Type -> Type) -> a 'StencilOperation -> (b :: Type) -> a b -> a b
 'ComparisonFunction :: Type
 Never :: 'ComparisonFunction
 Less :: 'ComparisonFunction
@@ -278,139 +278,139 @@ Greater :: 'ComparisonFunction
 Notequal :: 'ComparisonFunction
 Gequal :: 'ComparisonFunction
 Always :: 'ComparisonFunction
-'ComparisonFunctionCase :: (a : 'ComparisonFunction->Type) -> a Never -> a Less -> a Equal -> a Lequal -> a Greater -> a Notequal -> a Gequal -> a Always -> (b:'ComparisonFunction) -> a b
-match'ComparisonFunction :: (a : Type->Type) -> a 'ComparisonFunction -> (b:Type) -> a b -> a b
+'ComparisonFunctionCase :: (a :: 'ComparisonFunction -> Type) -> a Never -> a Less -> a Equal -> a Lequal -> a Greater -> a Notequal -> a Gequal -> a Always -> (b :: 'ComparisonFunction) -> a b
+match'ComparisonFunction :: (a :: Type -> Type) -> a 'ComparisonFunction -> (b :: Type) -> a b -> a b
 'ProvokingVertex :: Type
 LastVertex :: 'ProvokingVertex
 FirstVertex :: 'ProvokingVertex
-'ProvokingVertexCase :: (a : 'ProvokingVertex->Type) -> a LastVertex -> a FirstVertex -> (b:'ProvokingVertex) -> a b
-match'ProvokingVertex :: (a : Type->Type) -> a 'ProvokingVertex -> (b:Type) -> a b -> a b
+'ProvokingVertexCase :: (a :: 'ProvokingVertex -> Type) -> a LastVertex -> a FirstVertex -> (b :: 'ProvokingVertex) -> a b
+match'ProvokingVertex :: (a :: Type -> Type) -> a 'ProvokingVertex -> (b :: Type) -> a b -> a b
 'CullMode :: Type
 CullFront :: 'CullMode
 CullBack :: 'CullMode
 CullNone :: 'CullMode
-'CullModeCase :: (a : 'CullMode->Type) -> a CullFront -> a CullBack -> a CullNone -> (b:'CullMode) -> a b
-match'CullMode :: (a : Type->Type) -> a 'CullMode -> (b:Type) -> a b -> a b
-'PointSize :: Type->Type
-PointSize :: {a} -> 'Float -> 'PointSize a
-ProgramPointSize :: {a} -> (a->'Float) -> 'PointSize a
-'PointSizeCase :: {a} -> (b : 'PointSize a -> Type) -> ((c:'Float) -> b (PointSize c)) -> ((d : a->'Float) -> b (ProgramPointSize d)) -> (e : 'PointSize a) -> b e
-match'PointSize :: (a : Type->Type) -> ((b:Type) -> a ('PointSize b)) -> (c:Type) -> a c -> a c
-'PolygonMode :: Type->Type
-PolygonFill :: {a} -> 'PolygonMode a
-PolygonPoint :: {a} -> 'PointSize a -> 'PolygonMode a
-PolygonLine :: {a} -> 'Float -> 'PolygonMode a
-'PolygonModeCase :: {a} -> (b : 'PolygonMode a -> Type) -> b PolygonFill -> ((c : 'PointSize a) -> b (PolygonPoint c)) -> ((d:'Float) -> b (PolygonLine d)) -> (e : 'PolygonMode a) -> b e
-match'PolygonMode :: (a : Type->Type) -> ((b:Type) -> a ('PolygonMode b)) -> (c:Type) -> a c -> a c
+'CullModeCase :: (a :: 'CullMode -> Type) -> a CullFront -> a CullBack -> a CullNone -> (b :: 'CullMode) -> a b
+match'CullMode :: (a :: Type -> Type) -> a 'CullMode -> (b :: Type) -> a b -> a b
+'PointSize :: Type -> Type
+PointSize :: forall a . 'Float -> 'PointSize a
+ProgramPointSize :: forall a . (a -> 'Float) -> 'PointSize a
+'PointSizeCase :: forall a . (b :: 'PointSize a -> Type) -> ((c :: 'Float) -> b (PointSize c)) -> ((d :: a -> 'Float) -> b (ProgramPointSize d)) -> (e :: 'PointSize a) -> b e
+match'PointSize :: (a :: Type -> Type) -> ((b :: Type) -> a ('PointSize b)) -> (c :: Type) -> 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 . (b :: 'PolygonMode a -> Type) -> b PolygonFill -> ((c :: 'PointSize a) -> b (PolygonPoint c)) -> ((d :: 'Float) -> b (PolygonLine d)) -> (e :: 'PolygonMode a) -> b e
+match'PolygonMode :: (a :: Type -> Type) -> ((b :: Type) -> a ('PolygonMode b)) -> (c :: Type) -> a c -> a c
 'PolygonOffset :: Type
 NoOffset :: 'PolygonOffset
-Offset :: 'Float -> 'Float->'PolygonOffset
-'PolygonOffsetCase :: (a : 'PolygonOffset->Type) -> a NoOffset -> ((b:'Float) -> (c:'Float) -> a (Offset b c)) -> (d:'PolygonOffset) -> a d
-match'PolygonOffset :: (a : Type->Type) -> a 'PolygonOffset -> (b:Type) -> a b -> a b
+Offset :: 'Float -> 'Float -> 'PolygonOffset
+'PolygonOffsetCase :: (a :: 'PolygonOffset -> Type) -> a NoOffset -> ((b :: 'Float) -> (c :: 'Float) -> a (Offset b c)) -> (d :: 'PolygonOffset) -> a d
+match'PolygonOffset :: (a :: Type -> Type) -> a 'PolygonOffset -> (b :: Type) -> a b -> a b
 'PointSpriteCoordOrigin :: Type
 LowerLeft :: 'PointSpriteCoordOrigin
 UpperLeft :: 'PointSpriteCoordOrigin
-'PointSpriteCoordOriginCase :: (a : 'PointSpriteCoordOrigin->Type) -> a LowerLeft -> a UpperLeft -> (b:'PointSpriteCoordOrigin) -> a b
-match'PointSpriteCoordOrigin :: (a : Type->Type) -> a 'PointSpriteCoordOrigin -> (b:Type) -> a b -> a b
+'PointSpriteCoordOriginCase :: (a :: 'PointSpriteCoordOrigin -> Type) -> a LowerLeft -> a UpperLeft -> (b :: 'PointSpriteCoordOrigin) -> a b
+match'PointSpriteCoordOrigin :: (a :: Type -> Type) -> a 'PointSpriteCoordOrigin -> (b :: Type) -> a b -> a b
 primTexture :: () -> 'Vec 2 'Float -> 'Vec 4 'Float
-Uniform :: {a} -> 'String->a
-'RasterContext :: Type -> 'PrimitiveType->Type
-TriangleCtx :: {a} -> 'CullMode -> 'PolygonMode a -> 'PolygonOffset -> 'ProvokingVertex -> 'RasterContext a Triangle
-PointCtx :: {a} -> 'PointSize a -> 'Float -> 'PointSpriteCoordOrigin -> 'RasterContext a Point
-LineCtx :: {a} -> 'Float -> 'ProvokingVertex -> 'RasterContext a Line
-'RasterContextCase :: {a} -> (b : (c:'PrimitiveType) -> 'RasterContext a c -> Type) -> ((d:'CullMode) -> (e : 'PolygonMode a) -> (f:'PolygonOffset) -> (g:'ProvokingVertex) -> b Triangle (TriangleCtx d e f g)) -> ((h : 'PointSize a) -> (i:'Float) -> (j:'PointSpriteCoordOrigin) -> b Point (PointCtx h i j)) -> ((k:'Float) -> (l:'ProvokingVertex) -> b Line (LineCtx k l)) -> {m:'PrimitiveType} -> (n : 'RasterContext a m) -> b m n
-match'RasterContext :: (a : Type->Type) -> ((b:Type) -> (c:'PrimitiveType) -> a ('RasterContext b c)) -> (d:Type) -> a d -> a d
-'Blending :: Type->Type
-NoBlending :: {a} -> 'Blending a
-BlendLogicOp :: {a} -> {_ : 'Integral a} -> 'LogicOperation -> 'Blending a
+Uniform :: forall a . 'String -> a
+'RasterContext :: Type -> 'PrimitiveType -> Type
+TriangleCtx :: forall a . 'CullMode -> 'PolygonMode a -> 'PolygonOffset -> 'ProvokingVertex -> 'RasterContext a Triangle
+PointCtx :: forall a . 'PointSize a -> 'Float -> 'PointSpriteCoordOrigin -> 'RasterContext a Point
+LineCtx :: forall a . 'Float -> 'ProvokingVertex -> 'RasterContext a Line
+'RasterContextCase :: forall a . (b :: (c :: 'PrimitiveType) -> 'RasterContext a c -> Type) -> ((d :: 'CullMode) -> (e :: 'PolygonMode a) -> (f :: 'PolygonOffset) -> (g :: 'ProvokingVertex) -> b Triangle (TriangleCtx d e f g)) -> ((h :: 'PointSize a) -> (i :: 'Float) -> (j :: 'PointSpriteCoordOrigin) -> b Point (PointCtx h i j)) -> ((k :: 'Float) -> (l :: 'ProvokingVertex) -> b Line (LineCtx k l)) -> forall (m :: 'PrimitiveType) . (n :: 'RasterContext a m) -> b m n
+match'RasterContext :: (a :: Type -> Type) -> ((b :: Type) -> (c :: 'PrimitiveType) -> a ('RasterContext b c)) -> (d :: Type) -> a d -> a d
+'Blending :: Type -> Type
+NoBlending :: forall a . 'Blending a
+BlendLogicOp :: forall a . 'Integral a => 'LogicOperation -> 'Blending a
 Blend :: ('BlendEquation, 'BlendEquation) -> (('BlendingFactor, 'BlendingFactor), ('BlendingFactor, 'BlendingFactor)) -> 'Vec 4 'Float -> 'Blending 'Float
-'BlendingCase :: (a : (b:Type) -> 'Blending b -> Type) -> ({c} -> a c (NoBlending c)) -> ({d} -> {e : 'Integral d} -> (f:'LogicOperation) -> a d (BlendLogicOp d e f)) -> ((g:('BlendEquation, 'BlendEquation)) -> (h:(('BlendingFactor, 'BlendingFactor), ('BlendingFactor, 'BlendingFactor))) -> (i : 'Vec 4 'Float) -> a 'Float (Blend g h i)) -> {j} -> (k : 'Blending j) -> a j k
-match'Blending :: (a : Type->Type) -> ((b:Type) -> a ('Blending b)) -> (c:Type) -> a c -> a c
+'BlendingCase :: (a :: (b :: Type) -> 'Blending b -> Type) -> (forall c . a c (NoBlending c)) -> (forall d (e :: 'Integral d) . (f :: 'LogicOperation) -> a d (BlendLogicOp d e f)) -> ((g :: ('BlendEquation, 'BlendEquation)) -> (h :: (('BlendingFactor, 'BlendingFactor), ('BlendingFactor, 'BlendingFactor))) -> (i :: 'Vec 4 'Float) -> a 'Float (Blend g h i)) -> forall j . (k :: 'Blending j) -> a j k
+match'Blending :: (a :: Type -> Type) -> ((b :: Type) -> a ('Blending b)) -> (c :: Type) -> a c -> a c
 'StencilTests :: Type
-'StencilTestsCase :: (a : 'StencilTests->Type) -> (b:'StencilTests) -> a b
-match'StencilTests :: (a : Type->Type) -> a 'StencilTests -> (b:Type) -> a b -> a b
+'StencilTestsCase :: (a :: 'StencilTests -> Type) -> (b :: 'StencilTests) -> a b
+match'StencilTests :: (a :: Type -> Type) -> a 'StencilTests -> (b :: Type) -> a b -> a b
 'StencilOps :: Type
-'StencilOpsCase :: (a : 'StencilOps->Type) -> (b:'StencilOps) -> a b
-match'StencilOps :: (a : Type->Type) -> a 'StencilOps -> (b:Type) -> a b -> a b
-'FragmentOperation :: 'ImageKind->Type
-ColorOp :: {a} -> {b:'Nat} -> {_ : 'Num a} -> 'Blending a -> 'VecScalar b 'Bool -> 'FragmentOperation (Color ('VecScalar b a))
+'StencilOpsCase :: (a :: 'StencilOps -> Type) -> (b :: 'StencilOps) -> a b
+match'StencilOps :: (a :: Type -> Type) -> a 'StencilOps -> (b :: Type) -> 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
 StencilOp :: 'StencilTests -> 'StencilOps -> 'StencilOps -> 'FragmentOperation Stencil
-'FragmentOperationCase :: (a : (b:'ImageKind) -> 'FragmentOperation b -> Type) -> ({c} -> {d:'Nat} -> {e : 'Num c} -> (f : 'Blending c) -> (g : 'VecScalar d 'Bool) -> a (Color ('VecScalar d c)) (ColorOp c d e f g)) -> ((h:'ComparisonFunction) -> (i:'Bool) -> a Depth (DepthOp h i)) -> ((j:'StencilTests) -> (k:'StencilOps) -> (l:'StencilOps) -> a Stencil (StencilOp j k l)) -> {m:'ImageKind} -> (n : 'FragmentOperation m) -> a m n
-match'FragmentOperation :: (a : Type->Type) -> ((b:'ImageKind) -> a ('FragmentOperation b)) -> (c:Type) -> a c -> a c
-'Interpolated :: Type->Type
-Smooth :: {a} -> {_ : 'Floating a} -> 'Interpolated a
-NoPerspective :: {a} -> {_ : 'Floating a} -> 'Interpolated a
-Flat :: {a} -> 'Interpolated a
-'InterpolatedCase :: {a} -> (b : 'Interpolated a -> Type) -> ({c : 'Floating a} -> b (Smooth c)) -> ({d : 'Floating a} -> b (NoPerspective d)) -> b Flat -> (e : 'Interpolated a) -> b e
-match'Interpolated :: (a : Type->Type) -> ((b:Type) -> a ('Interpolated b)) -> (c:Type) -> a c -> a c
-rasterizePrimitive :: {a : 'List Type} -> {b : 'List Type} -> {c : 'List Type} -> {d:'PrimitiveType} -> {_ : map Type Type 'Interpolated a ~ b} -> {_ : c ~ Cons ('Vec 4 'Float) a} -> 'HList b -> 'RasterContext ('HList c) d -> 'Primitive ('HList c) d -> 'FragmentStream 1 ('HList a)
-rasterizePrimitives :: {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 :: {a} -> 'List a -> Type
+'FragmentOperationCase :: (a :: (b :: 'ImageKind) -> 'FragmentOperation b -> Type) -> (forall c (d :: 'Nat) (e :: 'Num c) . (f :: 'Blending c) -> (g :: 'VecScalar d 'Bool) -> a (Color ('VecScalar d c)) (ColorOp c d e f g)) -> ((h :: 'ComparisonFunction) -> (i :: 'Bool) -> a Depth (DepthOp h i)) -> ((j :: 'StencilTests) -> (k :: 'StencilOps) -> (l :: 'StencilOps) -> a Stencil (StencilOp j k l)) -> forall (m :: 'ImageKind) . (n :: 'FragmentOperation m) -> a m n
+match'FragmentOperation :: (a :: Type -> Type) -> ((b :: 'ImageKind) -> a ('FragmentOperation b)) -> (c :: Type) -> 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 . (b :: 'Interpolated a -> Type) -> (forall (c :: 'Floating a) . b (Smooth c)) -> (forall (d :: 'Floating a) . b (NoPerspective d)) -> b Flat -> (e :: 'Interpolated a) -> b e
+match'Interpolated :: (a :: Type -> Type) -> ((b :: Type) -> a ('Interpolated b)) -> (c :: Type) -> a c -> a c
+rasterizePrimitive :: forall (a :: 'List Type) (b :: 'List Type) (c :: 'List Type) (d :: 'PrimitiveType) . (map Type Type 'Interpolated a ~ b, c ~ Cons ('Vec 4 'Float) a) => 'HList b -> 'RasterContext ('HList c) d -> 'Primitive ('HList c) d -> 'FragmentStream 1 ('HList a)
+rasterizePrimitives :: forall (a :: 'List Type) (b :: 'PrimitiveType) . 'RasterContext ('HList (Cons ('Vec 4 'Float) a)) b -> 'HList (map Type Type 'Interpolated a) -> 'List ('Primitive ('HList (Cons ('Vec 4 'Float) a)) b) -> 'List ('Vector 1 ('Maybe ('SimpleFragment ('HList a))))
+'ImageLC :: Type -> 'Nat
+allSame :: forall a . 'List a -> Type
 sameLayerCounts :: 'List Type -> Type
 'FrameBuffer :: 'Nat -> 'List 'ImageKind -> Type
-'FrameBufferCase :: {a:'Nat} -> {b : 'List 'ImageKind} -> (c : 'FrameBuffer a b -> Type) -> (d : 'FrameBuffer a b) -> c d
-match'FrameBuffer :: (a : Type->Type) -> ((b:'Nat) -> (c : 'List 'ImageKind) -> a ('FrameBuffer b c)) -> (d:Type) -> a d -> a d
+'FrameBufferCase :: forall (a :: 'Nat) (b :: 'List 'ImageKind) . (c :: 'FrameBuffer a b -> Type) -> (d :: 'FrameBuffer a b) -> c d
+match'FrameBuffer :: (a :: Type -> Type) -> ((b :: 'Nat) -> (c :: 'List 'ImageKind) -> a ('FrameBuffer b c)) -> (d :: Type) -> a d -> a d
 imageType' :: 'List 'ImageKind -> 'List Type
-'FragmentOperationKind :: Type->'ImageKind
-Accumulate :: {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 :: {a} -> {b} -> a -> b->(a, b)
-overlay :: {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 :: {a : 'List Type} -> {_ : sameLayerCounts a} -> 'HList a -> 'FrameBuffer ('ImageLC (head Type a)) (map Type 'ImageKind 'GetImageKind a)
-imageFrame :: {a : 'List Type} -> {_ : sameLayerCounts a} -> 'HList a -> 'FrameBuffer ('ImageLC (head Type a)) (map Type 'ImageKind 'GetImageKind a)
-accumulate :: {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 :: {a:'ImageKind} -> 'FrameBuffer 1 (Cons a Nil) -> 'Image 1 a
+'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)
+overlay :: forall (a :: 'Nat) (b :: 'List Type) . 'FrameBuffer a (map Type 'ImageKind 'FragmentOperationKind b) -> ('HList b, 'List ('Fragment a ('HList (imageType' (map Type 'ImageKind 'FragmentOperationKind b))))) -> 'FrameBuffer a (map Type 'ImageKind 'FragmentOperationKind b)
+'GetImageKind :: Type -> 'ImageKind
+FrameBuffer :: forall (a :: 'List Type) . sameLayerCounts a => 'HList a -> 'FrameBuffer ('ImageLC (head Type a)) (map Type 'ImageKind 'GetImageKind a)
+imageFrame :: forall (a :: 'List Type) . sameLayerCounts a => 'HList a -> 'FrameBuffer ('ImageLC (head Type a)) (map Type 'ImageKind 'GetImageKind a)
+accumulate :: forall (a :: 'Nat) (b :: 'List Type) c . 'HList b -> (c -> 'HList (imageType' (map Type 'ImageKind 'FragmentOperationKind b))) -> 'List ('Vector a ('Maybe ('SimpleFragment c))) -> 'FrameBuffer a (map Type 'ImageKind 'FragmentOperationKind b) -> 'FrameBuffer a (map Type 'ImageKind 'FragmentOperationKind b)
+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 :: {a:'Nat} -> {b : 'List 'ImageKind} -> 'FrameBuffer a b -> 'Output
-'OutputCase :: (a : 'Output->Type) -> ({b:'Nat} -> {c : 'List 'ImageKind} -> (d : 'FrameBuffer b c) -> a (ScreenOut b c d)) -> (e:'Output) -> a e
-match'Output :: (a : Type->Type) -> a 'Output -> (b:Type) -> a b -> a b
-renderFrame :: {a:'Nat} -> {b : 'List 'ImageKind} -> 'FrameBuffer a b -> 'Output
+ScreenOut :: forall (a :: 'Nat) (b :: 'List 'ImageKind) . 'FrameBuffer a b -> 'Output
+'OutputCase :: (a :: 'Output -> Type) -> (forall (b :: 'Nat) (c :: 'List 'ImageKind) . (d :: 'FrameBuffer b c) -> a (ScreenOut b c d)) -> (e :: 'Output) -> a e
+match'Output :: (a :: Type -> Type) -> a 'Output -> (b :: Type) -> a b -> a b
+renderFrame :: forall (a :: 'Nat) (b :: 'List 'ImageKind) . 'FrameBuffer a b -> 'Output
 'Texture :: Type
-Texture2DSlot :: 'String->'Texture
+Texture2DSlot :: 'String -> 'Texture
 Texture2D :: 'Vec 2 'Int -> 'Image 1 (Color ('Vec 4 'Float)) -> 'Texture
-'TextureCase :: (a : 'Texture->Type) -> ((b:'String) -> a (Texture2DSlot b)) -> ((c : 'Vec 2 'Int) -> (d : 'Image 1 (Color ('Vec 4 'Float))) -> a (Texture2D c d)) -> (e:'Texture) -> a e
-match'Texture :: (a : Type->Type) -> a 'Texture -> (b:Type) -> a b -> a b
+'TextureCase :: (a :: 'Texture -> Type) -> ((b :: 'String) -> a (Texture2DSlot b)) -> ((c :: 'Vec 2 'Int) -> (d :: 'Image 1 (Color ('Vec 4 'Float))) -> a (Texture2D c d)) -> (e :: 'Texture) -> a e
+match'Texture :: (a :: Type -> Type) -> a 'Texture -> (b :: Type) -> a b -> a b
 'Filter :: Type
 PointFilter :: 'Filter
 LinearFilter :: 'Filter
-'FilterCase :: (a : 'Filter->Type) -> a PointFilter -> a LinearFilter -> (b:'Filter) -> a b
-match'Filter :: (a : Type->Type) -> a 'Filter -> (b:Type) -> a b -> a b
+'FilterCase :: (a :: 'Filter -> Type) -> a PointFilter -> a LinearFilter -> (b :: 'Filter) -> a b
+match'Filter :: (a :: Type -> Type) -> a 'Filter -> (b :: Type) -> a b -> a b
 'EdgeMode :: Type
 Repeat :: 'EdgeMode
 MirroredRepeat :: 'EdgeMode
 ClampToEdge :: 'EdgeMode
-'EdgeModeCase :: (a : 'EdgeMode->Type) -> a Repeat -> a MirroredRepeat -> a ClampToEdge -> (b:'EdgeMode) -> a b
-match'EdgeMode :: (a : Type->Type) -> a 'EdgeMode -> (b:Type) -> a b -> a b
+'EdgeModeCase :: (a :: 'EdgeMode -> Type) -> a Repeat -> a MirroredRepeat -> a ClampToEdge -> (b :: 'EdgeMode) -> a b
+match'EdgeMode :: (a :: Type -> Type) -> a 'EdgeMode -> (b :: Type) -> a b -> a b
 'Sampler :: Type
-Sampler :: 'Filter -> 'EdgeMode -> 'Texture->'Sampler
-'SamplerCase :: (a : 'Sampler->Type) -> ((b:'Filter) -> (c:'EdgeMode) -> (d:'Texture) -> a (Sampler b c d)) -> (e:'Sampler) -> a e
-match'Sampler :: (a : Type->Type) -> a 'Sampler -> (b:Type) -> a b -> a b
+Sampler :: 'Filter -> 'EdgeMode -> 'Texture -> 'Sampler
+'SamplerCase :: (a :: 'Sampler -> Type) -> ((b :: 'Filter) -> (c :: 'EdgeMode) -> (d :: 'Texture) -> a (Sampler b c d)) -> (e :: 'Sampler) -> a e
+match'Sampler :: (a :: Type -> Type) -> a 'Sampler -> (b :: Type) -> a b -> a b
 texture2D :: 'Sampler -> 'Vec 2 'Float -> 'Vec 4 'Float
-accumulationContext :: {a} -> a->a
+accumulationContext :: forall a . a -> a
 ------------ tooltips
-testdata/Builtins.lc 10:1-10:3  {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 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 | {a} -> a -> a -> VecS a 2
+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: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 | {a} -> a -> a -> a -> VecS a 3
+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
@@ -418,12 +418,12 @@ 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: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 | {a} -> a -> a -> a -> a -> VecS a 4
+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
@@ -433,88 +433,88 @@ 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: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 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: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: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  {a} -> {b} -> {c:Nat} -> (a->b) -> VecS a c -> VecS b c
-testdata/Builtins.lc 20:21-20:23  {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) -> {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_ | {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  {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  {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 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: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:5-28:14  Nat -> Type -> Type
 testdata/Builtins.lc 28:21-28:22  Type
-testdata/Builtins.lc 28:21-29:60  Nat -> Type->Type | Nat->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 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: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-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
@@ -524,414 +524,414 @@ 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: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: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: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: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: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  (a:Type) -> Mat 2 2 a -> Type
+testdata/Builtins.lc 33:45-33:46  _b
+testdata/Builtins.lc 33:45-33:48  (a :: Type) -> 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: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: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: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: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: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: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  (a:Type) -> Mat 3 2 a -> Type
+testdata/Builtins.lc 34:45-34:46  _b
+testdata/Builtins.lc 34:45-34:48  (a :: Type) -> 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: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: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: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: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: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: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  (a:Type) -> Mat 4 2 a -> Type
+testdata/Builtins.lc 35:45-35:46  _b
+testdata/Builtins.lc 35:45-35:48  (a :: Type) -> 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: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: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: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: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: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: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: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: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  (a:Type) -> Mat 2 3 a -> Type
+testdata/Builtins.lc 36:60-36:61  _b
+testdata/Builtins.lc 36:60-36:63  (a :: Type) -> 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: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: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: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: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: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: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: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: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  (a:Type) -> Mat 3 3 a -> Type
+testdata/Builtins.lc 37:60-37:61  _b
+testdata/Builtins.lc 37:60-37:63  (a :: Type) -> 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: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: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: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: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: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: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: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: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  (a:Type) -> Mat 4 3 a -> Type
+testdata/Builtins.lc 38:60-38:61  _b
+testdata/Builtins.lc 38:60-38:63  (a :: Type) -> 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: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: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: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: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: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: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: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: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: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: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  (a:Type) -> Mat 2 4 a -> Type
+testdata/Builtins.lc 39:75-39:76  _b
+testdata/Builtins.lc 39:75-39:78  (a :: Type) -> 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: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: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: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: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: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: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: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: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: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: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  (a:Type) -> Mat 3 4 a -> Type
+testdata/Builtins.lc 40:75-40:76  _b
+testdata/Builtins.lc 40:75-40:78  (a :: Type) -> 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: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: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: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: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: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: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: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: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: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: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  (a:Type) -> Mat 4 4 a -> Type
+testdata/Builtins.lc 41:75-41:76  _b
+testdata/Builtins.lc 41:75-41:78  (a :: Type) -> 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: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: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 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-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 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  {a} -> {_ : Component a}->a
+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  {a} -> {_ : Component a}->a
+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  b_ | {_ : Component a_}->a_ | {a} -> {_ : Component a}->a
+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  b_ | {_ : Component a_}->a_ | {a} -> {_ : Component a}->a
+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: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: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 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  {a} -> a -> a -> VecS a 2
+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  (a:Nat) -> VecS Float ('Succ ('Succ a)) | (a:Nat) -> VecS Float ('Succ a)
-testdata/Builtins.lc 71:10-89:36  (a:Nat) -> VecS a_ a | (a:Type) -> (b:Nat) -> VecS a b | VecS b_ a_
+testdata/Builtins.lc 71:10-77:28  (a :: Nat) -> VecS Float ('Succ ('Succ a)) | (a :: Nat) -> VecS Float ('Succ a)
+testdata/Builtins.lc 71:10-89:36  (a :: Nat) -> VecS _a a | (a :: Type) -> (b :: Nat) -> VecS a b | 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  {a} -> a -> a -> VecS a 2
+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  (a:Nat) -> VecS Float ('Succ ('Succ a)) | (a:Nat) -> VecS Float ('Succ a)
-testdata/Builtins.lc 72:9-90:31  (a:Nat) -> VecS a_ a | (a:Type) -> (b:Nat) -> VecS a b | VecS b_ a_
+testdata/Builtins.lc 72:9-78:27  (a :: Nat) -> VecS Float ('Succ ('Succ a)) | (a :: Nat) -> VecS Float ('Succ a)
+testdata/Builtins.lc 72:9-90:31  (a :: Nat) -> VecS _a a | (a :: Type) -> (b :: Nat) -> VecS a b | 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  {a} -> a -> a -> a -> VecS a 3
+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  (a:Nat) -> VecS Float ('Succ ('Succ ('Succ a)))
+testdata/Builtins.lc 74:10-77:28  (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  {a} -> a -> a -> a -> VecS a 3
+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  (a:Nat) -> VecS Float ('Succ ('Succ ('Succ a)))
+testdata/Builtins.lc 75:9-78:27  (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  {a} -> a -> a -> a -> a -> VecS a 4
+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  (a:Nat) -> VecS Float ('Succ ('Succ ('Succ ('Succ a)))) | VecS Float 4
+testdata/Builtins.lc 77:10-77:28  (a :: Nat) -> VecS Float ('Succ ('Succ ('Succ ('Succ a)))) | 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  {a} -> a -> a -> a -> a -> VecS a 4
+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  (a:Nat) -> VecS Float ('Succ ('Succ ('Succ ('Succ a)))) | VecS Float 4
+testdata/Builtins.lc 78:9-78:27  (a :: Nat) -> VecS Float ('Succ ('Succ ('Succ ('Succ a)))) | 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  {a} -> a -> a -> VecS a 2
+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  (a:Nat) -> VecS Bool ('Succ ('Succ a)) | (a:Nat) -> VecS Bool ('Succ a)
+testdata/Builtins.lc 83:10-89:36  (a :: Nat) -> VecS Bool ('Succ ('Succ a)) | (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  {a} -> a -> a -> VecS a 2
+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  (a:Nat) -> VecS Bool ('Succ ('Succ a)) | (a:Nat) -> VecS Bool ('Succ a)
+testdata/Builtins.lc 84:9-90:31  (a :: Nat) -> VecS Bool ('Succ ('Succ a)) | (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  {a} -> a -> a -> a -> VecS a 3
+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  (a:Nat) -> VecS Bool ('Succ ('Succ ('Succ a)))
+testdata/Builtins.lc 86:10-89:36  (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  {a} -> a -> a -> a -> VecS a 3
+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  (a:Nat) -> VecS Bool ('Succ ('Succ ('Succ a)))
+testdata/Builtins.lc 87:9-90:31  (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  {a} -> a -> a -> a -> a -> VecS a 4
+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  (a:Nat) -> VecS Bool ('Succ ('Succ ('Succ ('Succ a)))) | VecS Bool 4
+testdata/Builtins.lc 89:10-89:36  (a :: Nat) -> VecS Bool ('Succ ('Succ ('Succ ('Succ a)))) | 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  {a} -> a -> a -> a -> a -> VecS a 4
+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  (a:Nat) -> VecS Bool ('Succ ('Succ ('Succ ('Succ a)))) | VecS Bool 4
+testdata/Builtins.lc 90:9-90:31  (a :: Nat) -> VecS Bool ('Succ ('Succ ('Succ ('Succ a)))) | 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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/Builtins.lc 118:10-118:17  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/Builtins.lc 118:19-118:26  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/Builtins.lc 118:34-118:37  Type->Type
+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:55  Type -> Type
 testdata/Builtins.lc 118:39-118:57  Type
-testdata/Builtins.lc 118:56-118:57  b_
+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  {a} -> {b} -> {_ : a ~ MatVecScalarElem b} -> {_ : Num a} -> b -> a->b
-testdata/Builtins.lc 119:11-119:19  {a} -> {b} -> {_ : a ~ MatVecScalarElem b} -> {_ : Num a} -> b -> a->b
-testdata/Builtins.lc 119:21-119:29  {a} -> {b} -> {_ : a ~ MatVecScalarElem b} -> {_ : Num a} -> b -> a->b
+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: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  {a} -> a -> a->Type
-testdata/Builtins.lc 119:39-119:55  Type->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: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
@@ -940,143 +940,143 @@ 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  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Builtins.lc 120:10-120:17  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b->b
+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: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: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  {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: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: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  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> a->b
-testdata/Builtins.lc 121:11-121:19  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> a->b
+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: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: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  {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: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: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  {a} -> {_ : Signed (MatVecScalarElem a)} -> a->a
-testdata/Builtins.lc 122:34-122:40  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:58  Type -> Type
 testdata/Builtins.lc 122:42-122:60  Type
-testdata/Builtins.lc 122:59-122:60  b_
+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  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Builtins.lc 124:11-124:18  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Builtins.lc 124:20-124:28  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> b->b
+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: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: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  {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: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: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  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> a->b
-testdata/Builtins.lc 125:12-125:20  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> a->b
-testdata/Builtins.lc 125:22-125:31  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> a->b
+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: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: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  {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: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: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  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b->b
+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: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: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  {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: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: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  {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  {a} -> {b} -> {c:Nat} -> {d} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> {_ : d ~ VecScalar c Word} -> b -> d->b
+testdata/Builtins.lc 127:1-127:12  forall a b (c :: Nat) d . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
+testdata/Builtins.lc 127:14-127:25  forall a b (c :: Nat) d . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
 testdata/Builtins.lc 127:34-127:102  Type
-testdata/Builtins.lc 127:35-127:43  Type->Type
+testdata/Builtins.lc 127:35-127: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: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  {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: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: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: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  {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: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
@@ -1085,222 +1085,222 @@ 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  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> Word->b
-testdata/Builtins.lc 128:15-128:27  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> Word->b
+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: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: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  {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: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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Bool} -> a->a
+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: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  {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: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: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  {a:Nat} -> VecScalar a Bool -> Bool
-testdata/Builtins.lc 132:10-132:17  {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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:11-135:20  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:22-135:30  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:32-135:41  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:43-135:51  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:53-135:62  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:64-135:71  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:73-135:81  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:83-135:94  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:96-135:107  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:109-135:116  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:118-135:126  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:128-135:135  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:137-135:145  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:147-135:154  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:156-135:163  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:165-135:173  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:175-135:183  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:185-135:193  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 135:195-135:206  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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: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  {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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->a
-testdata/Builtins.lc 137:10-137:19  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->a
+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: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  {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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 139:12-139:21  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 139:23-139:32  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 139:34-139:47  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 139:49-139:57  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 139:59-139:68  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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: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  {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: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: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  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Builtins.lc 141:10-141:17  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b->b
+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: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: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  {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: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: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  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> a->b
-testdata/Builtins.lc 142:11-142:19  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> a->b
+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: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: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  {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: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: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  {a} -> {b:Nat} -> {c} -> {_ : a ~ VecScalar b Float} -> {_ : c ~ VecScalar b Bool} -> a->c
-testdata/Builtins.lc 143:12-143:21  {a} -> {b:Nat} -> {c} -> {_ : a ~ VecScalar b Float} -> {_ : c ~ VecScalar b Bool} -> a->c
+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: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  {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: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: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: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  {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: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  {a} -> {b} -> {c:Nat} -> {_ : Signed a} -> {_ : b ~ VecScalar c a} -> b->b
-testdata/Builtins.lc 144:10-144:18  {a} -> {b} -> {c:Nat} -> {_ : Signed a} -> {_ : b ~ VecScalar c a} -> b->b
+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: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: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  {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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->(a, a)
+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: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  {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: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: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
@@ -1308,20 +1308,20 @@ 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  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b -> b->b
+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: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: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  {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: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: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
@@ -1330,20 +1330,20 @@ 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  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> a -> a->b
+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: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: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  {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: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: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
@@ -1352,16 +1352,16 @@ 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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> a->a
+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: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  {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: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: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
@@ -1370,16 +1370,16 @@ 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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> Float->a
+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: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  {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: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: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
@@ -1388,24 +1388,24 @@ 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  {a} -> {b:Nat} -> {c} -> {_ : a ~ VecScalar b Float} -> {_ : c ~ VecScalar b Bool} -> a -> a -> c->a
+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: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  {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: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: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: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  {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: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
@@ -1416,48 +1416,48 @@ 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  {a} -> {b:Nat} -> {_ : a ~ VecS Float b} -> a -> a->a
+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: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  {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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> Float -> a->a
+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: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  {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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecS Float b} -> a -> a -> a->a
+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: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  {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: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: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
@@ -1466,16 +1466,16 @@ 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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> Float -> Float -> a->a
+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: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  {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: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: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
@@ -1484,126 +1484,126 @@ 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  {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: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: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: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  {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: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: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: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  {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: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: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: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  {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: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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->Float
+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: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  {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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->Float
-testdata/Builtins.lc 163:15-163:22  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->Float
+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: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  {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: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: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  {a} -> {_ : a ~ VecS Float 3} -> a -> a->a
+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: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  {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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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: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  {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: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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> a->a
-testdata/Builtins.lc 166:18-166:29  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> a->a
+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: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  {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: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: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
@@ -1612,175 +1612,175 @@ 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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->a
+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: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  {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: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: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  {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: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: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  {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: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:38-170:39  _d
 testdata/Builtins.lc 170:40-170:41  Nat
-testdata/Builtins.lc 170:42-170:43  b_
+testdata/Builtins.lc 170:42-170:43  _b
 testdata/Builtins.lc 170:47-170:52  Type
-testdata/Builtins.lc 171:1-171:12  {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: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: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: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  {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: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: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: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: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  {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: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: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: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  {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: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: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: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: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  {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: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: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: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: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  {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  {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  {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  {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  {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  {a} -> {b:Nat} -> {c} -> {d} -> {_ : Num c} -> {_ : a ~ VecScalar b c} -> {_ : d ~ VecScalar b Bool} -> a -> a->d
+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: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: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  {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: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: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: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  {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: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
@@ -1789,155 +1789,155 @@ 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  {a} -> {b} -> {_ : b ~ MatVecScalarElem a} -> a -> a->Bool
-testdata/Builtins.lc 179:12-179:24  {a} -> {b} -> {_ : b ~ MatVecScalarElem a} -> a -> a->Bool
+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: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  {a} -> a -> a->Type
-testdata/Builtins.lc 179:52-179:68  Type->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: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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 181:11-181:19  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Builtins.lc 181:21-181:31  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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: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  {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: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: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  {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: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: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  {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: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: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: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:59-185:60  _b
 testdata/Builtins.lc 185:61-185:66  Type
-testdata/Builtins.lc 186:1-186:11  {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: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: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: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:59-186:60  _b
 testdata/Builtins.lc 186:61-186:66  Type
-testdata/Builtins.lc 187:1-187:11  {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: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: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: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:59-187:60  _b
 testdata/Builtins.lc 187:61-187:66  Type
-testdata/Builtins.lc 201:1-201:5  {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  {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  {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  {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  {a} -> List (List a) -> List a
-testdata/Builtins.lc 209:10-209:15  {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  {a} -> List a -> List a -> List a
-testdata/Builtins.lc 209:21-209:23  {a} -> List a
-testdata/Builtins.lc 211:1-211:4  {a} -> {b} -> (a->b) -> List a -> List b
-testdata/Builtins.lc 211:16-211:18  {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  {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 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:15-214:16  _d
 testdata/Builtins.lc 214:20-214:23  Type
-testdata/Builtins.lc 214:21-214:22  c_
+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  {a} -> {b} -> (a -> List b) -> List a -> List b
-testdata/Builtins.lc 215:17-215:23  {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  {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  {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 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_ | {a} -> Maybe a
-testdata/Builtins.lc 224:7-224:11  Maybe d_ | Type | {a} -> a -> Maybe a
+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: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
@@ -1946,32 +1946,32 @@ 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-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 | {a} -> a -> Primitive a 'Point
+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: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 | {a} -> a -> a -> Primitive a 'Line
+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: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 | {a} -> a -> a -> a -> Primitive a 'Triangle
+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
@@ -1979,96 +1979,96 @@ 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: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  {a} -> {b} -> {c:PrimitiveType} -> (a->b) -> Primitive a c -> Primitive b c
+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: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: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: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: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 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: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: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: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  {a} -> {b} -> {c:PrimitiveType} -> (a->b) -> List (Primitive a c) -> List (Primitive b c)
-testdata/Builtins.lc 253:19-253:22  {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  {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  {a:PrimitiveType} -> {b : List Type} -> {c : List Type} -> {_ : b ~ 'map Type Type ListElem c} -> HList c -> PrimitiveStream a (HList b)
+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: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  {a} -> a -> a->Type
-testdata/Builtins.lc 260:60-260:63  {a} -> {b} -> (a->b) -> List a -> List b
+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: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: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: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  {a:PrimitiveType} -> {b : List Type} -> String -> HList b -> PrimitiveStream a (HList b)
+testdata/Builtins.lc 262:1-262:6  forall (a :: PrimitiveType) (b :: List Type) . String -> HList b -> PrimitiveStream a (HList b)
 testdata/Builtins.lc 262:56-262:62  Type
 testdata/Builtins.lc 262:56-262:104  Type
 testdata/Builtins.lc 262:66-262:71  List Type -> Type
 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: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: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  {a} -> String->a
+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  {a:PrimitiveType} -> {b : List Type} -> String -> (c : List String) -> {_ : 'len String c ~ 'len Type b} -> PrimitiveStream a (HList b)
+testdata/Builtins.lc 264:24-264:25  Type | _c
+testdata/Builtins.lc 266:1-266:12  forall (a :: PrimitiveType) (b :: List Type) . String -> (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
@@ -2077,225 +2077,225 @@ 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  {a} -> List a -> Int
+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: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  {a} -> a -> a->Type
-testdata/Builtins.lc 266:87-266:90  {a} -> List a -> Int
+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: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: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: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: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: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 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 | {a} -> Vec 3 Float -> a -> SimpleFragment a
-testdata/Builtins.lc 273:7-273:22  {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 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:32-273:33  _b
 testdata/Builtins.lc 273:34-273:39  Type
-testdata/Builtins.lc 274:7-274:21  {a} -> SimpleFragment a -> a
+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: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: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  {a} -> {b:Nat} -> (a->Float) -> Fragment b a -> Fragment b a
+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: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: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: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: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: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: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: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: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  {a} -> {b:Nat} -> (a->Float) -> List (Vector b (Maybe (SimpleFragment a))) -> List (Vector b (Maybe (SimpleFragment a)))
-testdata/Builtins.lc 282:21-282:24  {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  {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  {a} -> {b:Nat} -> (a->Bool) -> Fragment b a -> Fragment b a
+testdata/Builtins.lc 282:1-282:16  forall a (b :: Nat) . (a -> Float) -> List (Vector b (Maybe (SimpleFragment a))) -> List (Vector b (Maybe (SimpleFragment a)))
+testdata/Builtins.lc 282:21-282:24  forall a b . (a -> b) -> List a -> List b
+testdata/Builtins.lc 282:21-282:43  (_b -> Float) -> FragmentStream _a _b -> FragmentStream _a _b | List (Vector _a (Maybe (SimpleFragment _d))) -> List (Vector _a (Maybe (SimpleFragment _d)))
+testdata/Builtins.lc 282: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: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: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: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: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: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: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: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: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  {a} -> {b:Nat} -> (a->Bool) -> List (Vector b (Maybe (SimpleFragment a))) -> List (Vector b (Maybe (SimpleFragment a)))
-testdata/Builtins.lc 287:21-287:24  {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  {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  {a} -> {b} -> {c:Nat} -> (a->b) -> Fragment c a -> Fragment c b
+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: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: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: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: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: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: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  {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  {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  {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 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: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 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: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  {a:Nat} -> {b:Nat} -> {c} -> {d} -> {_ : Num c} -> {_ : d ~ VecScalar b c} -> d -> Image a ('Color d)
+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: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: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  {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: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: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: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: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  {a:Nat} -> Float -> Image a 'Depth
+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: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:51-310:52  _c
 testdata/Builtins.lc 310:53-310:58  ImageKind
-testdata/Builtins.lc 311:1-311:13  {a:Nat} -> Int -> Image a 'Stencil
+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: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: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  {a:Nat} -> Float -> Image a '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  {a:Nat} -> {b} -> {c} -> {_ : Num b} -> {_ : c ~ VecScalar a b} -> c -> Image 1 ('Color c)
-testdata/Builtins.lc 314:19-314:29  {a:Nat} -> {b:Nat} -> {c} -> {d} -> {_ : Num c} -> {_ : d ~ VecScalar b c} -> d -> Image a ('Color d)
-testdata/Builtins.lc 314:19-314:32  {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 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
@@ -2303,77 +2303,77 @@ 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: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: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  {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_) -> {a:Nat} -> VecS a_ a -> a_
-testdata/Builtins.lc 340:27-348:32  Swizz->c_ | Vec a_ b_ -> Swizz->b_ | d_ | {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 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: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  {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) -> {a:Nat} -> VecS a_ a -> Bool
-testdata/Builtins.lc 352:23-354:31  Bool | Vec a_ b_ -> Bool | {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 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: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: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: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: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  {a} -> {b:Nat} -> {c:Nat} -> Vec b a -> Vec c Swizz -> VecS a c
-testdata/Builtins.lc 357:19-357:29  {a} -> {b:Nat} -> Vec b a -> Bool
+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  {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  {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 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
@@ -2445,35 +2445,35 @@ 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: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 | {a} -> Float -> PointSize a
+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 | {a} -> (a->Float) -> PointSize a
+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: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_ | {a} -> PolygonMode a
-testdata/Builtins.lc 438:7-438:19  PolygonMode d_ | Type | {a} -> PointSize a -> PolygonMode a
-testdata/Builtins.lc 438:21-438:30  Type->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 | {a} -> Float -> PolygonMode a
+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: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
@@ -2482,31 +2482,31 @@ 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: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: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: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:41-450:42  _b
 testdata/Builtins.lc 450:43-450:48  Type
-testdata/Builtins.lc 453:1-453:8  {a} -> String->a
+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 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 | {a} -> CullMode -> PolygonMode a -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle
+testdata/Builtins.lc 456:3-456:14  RasterContext _f 'Triangle | forall a . CullMode -> PolygonMode a -> PolygonOffset -> ProvokingVertex -> RasterContext a 'Triangle
 testdata/Builtins.lc 456:3-456:115  Type
 testdata/Builtins.lc 456:26-456:34  Type
 testdata/Builtins.lc 456:26-456:115  Type
-testdata/Builtins.lc 456:38-456:49  Type->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
@@ -2514,14 +2514,14 @@ 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: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 | {a} -> PointSize a -> Float -> PointSpriteCoordOrigin -> RasterContext a 'Point
+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: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
@@ -2529,40 +2529,40 @@ 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: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 | {a} -> Float -> ProvokingVertex -> RasterContext a 'Line
+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: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-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_ | {a} -> Blending a
+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: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_ | {a} -> {_ : Integral a} -> LogicOperation -> Blending a
+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:35  Type -> Type
 testdata/Builtins.lc 462:27-462:37  Type
-testdata/Builtins.lc 462:36-462:37  b_
+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: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
@@ -2582,43 +2582,43 @@ 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: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: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: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-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_)) | {a} -> {b:Nat} -> {_ : Num a} -> Blending a -> VecScalar b Bool -> FragmentOperation ('Color (VecScalar b a))
+testdata/Builtins.lc 471:3-471:10  FragmentOperation ('Color (VecScalar _d _e)) | forall a (b :: Nat) . Num a => Blending a -> VecScalar b Bool -> FragmentOperation ('Color (VecScalar b a))
 testdata/Builtins.lc 471:3-471:112  Type
-testdata/Builtins.lc 471:26-471:29  Type->Type
+testdata/Builtins.lc 471:26-471: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: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: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: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: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: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: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
@@ -2627,7 +2627,7 @@ 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: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
@@ -2637,124 +2637,124 @@ 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: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-475:18  Type | Type -> Type
 testdata/Builtins.lc 475:6-478:7  Type
-testdata/Builtins.lc 476:3-476:9  Interpolated c_ | Type | {a} -> {_ : Floating a} -> Interpolated a
-testdata/Builtins.lc 476:11-476:24  Interpolated d_ | Type | {a} -> {_ : Floating a} -> Interpolated a
+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: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: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_ | {a} -> Interpolated a
-testdata/Builtins.lc 478:42-478:54  Type->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  {a : List Type} -> {b : List Type} -> {c : List Type} -> {d:PrimitiveType} -> {_ : 'map Type Type Interpolated a ~ b} -> {_ : c ~ 'Cons (Vec 4 Float) a} -> HList b -> RasterContext (HList c) d -> Primitive (HList c) d -> FragmentStream 1 (HList a)
+testdata/Builtins.lc 480:1-480:19  forall (a :: List Type) (b :: List Type) (c :: List Type) (d :: PrimitiveType) . ('map Type Type Interpolated a ~ b, c ~ 'Cons (Vec 4 Float) a) => HList b -> RasterContext (HList c) d -> Primitive (HList c) d -> FragmentStream 1 (HList a)
 testdata/Builtins.lc 481:8-486:34  Type
-testdata/Builtins.lc 481:10-481:13  {a} -> {b} -> (a->b) -> List a -> List b
+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  {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 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  {a} -> a -> a->Type
-testdata/Builtins.lc 482:14-482:19  {a} -> a -> List a -> List a
+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: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: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: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 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: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: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  {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  {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  {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  {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 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 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_ | {a} -> List a -> Type
-testdata/Builtins.lc 492:13-492:14  b_
+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  {a} -> List a -> 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 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 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  {a} -> a -> a->Type
-testdata/Builtins.lc 495:31-495:32  c_
-testdata/Builtins.lc 495:35-495:42  {a} -> List a -> 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  {a} -> a -> List a -> List a
-testdata/Builtins.lc 495:46-495:48  List e_
+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  {a} -> List a -> 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  {a} -> {b} -> (a->b) -> List a -> List b
+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 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
@@ -2765,42 +2765,42 @@ 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  {a} -> {b} -> (a->b) -> List a -> List b
+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  {a} -> {b} -> (a->b) -> List a -> List b
+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: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  {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 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: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  {a} -> a -> a->Type
-testdata/Builtins.lc 517:54-517:57  {a} -> {b} -> (a->b) -> List a -> List b
+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: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: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
@@ -2820,22 +2820,22 @@ 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  {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  {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  {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 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  {a : List Type} -> {_ : 'sameLayerCounts a} -> HList a -> FrameBuffer (ImageLC ('head Type a)) ('map Type ImageKind GetImageKind a)
+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
@@ -2849,102 +2849,102 @@ 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:94  Type -> Nat
 testdata/Builtins.lc 530:87-530:103  Nat
-testdata/Builtins.lc 530:96-530:100  {a} -> List a -> a
+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  {a} -> {b} -> (a->b) -> List a -> List b
+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:110-530:122  Type -> ImageKind
 testdata/Builtins.lc 530:123-530:124  List Type
-testdata/Builtins.lc 532:1-532:11  {a : List Type} -> {_ : 'sameLayerCounts a} -> HList a -> FrameBuffer (ImageLC ('head Type a)) ('map Type ImageKind GetImageKind a)
-testdata/Builtins.lc 532:14-532:25  {a : List Type} -> {_ : 'sameLayerCounts a} -> HList a -> FrameBuffer (ImageLC ('head Type a)) ('map Type ImageKind GetImageKind a)
-testdata/Builtins.lc 534:1-534:11  {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  {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  {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  {a:ImageKind} -> FrameBuffer 1 ('Cons a 'Nil) -> Image 1 a
+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: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: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: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: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: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: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: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: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: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: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: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 | {a:Nat} -> {b : List ImageKind} -> FrameBuffer a b -> Output
+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: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  {a:Nat} -> {b : List ImageKind} -> FrameBuffer a b -> Output
-testdata/Builtins.lc 543:15-543:24  {a:Nat} -> {b : List ImageKind} -> FrameBuffer a b -> Output
+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: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: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: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: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: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: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: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
@@ -2959,25 +2959,25 @@ 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: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: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: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: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:44-569:45  _b
 testdata/Builtins.lc 569:46-569:51  Type
-testdata/Builtins.lc 573:1-573:20  {a} -> a->a
-testdata/Builtins.lc 573:25-573:26  b_
+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
@@ -3004,5 +3004,5 @@ 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
 
diff --git a/testdata/Internals.out b/testdata/Internals.out
index 7ca88d81..6eb77da3 100644
--- a/testdata/Internals.out
+++ b/testdata/Internals.out
@@ -1,99 +1,99 @@
 main is not found
 ------------ trace
-typeAnn :: {a} -> a->a
-parens :: {a} -> a->a
-undefined :: {a}->a
-primFix :: {a} -> (a->a)->a
+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 :: (a : 'Unit->Type) -> a TT -> (b:'Unit) -> a b
-match'Unit :: (a : Type->Type) -> a 'Unit -> (b:Type) -> a b -> a b
+'UnitCase :: (a :: 'Unit -> Type) -> a TT -> (b :: 'Unit) -> a b
+match'Unit :: (a :: Type -> Type) -> a 'Unit -> (b :: Type) -> a b -> a b
 'String :: Type
-'StringCase :: (a : 'String->Type) -> (b:'String) -> a b
-match'String :: (a : Type->Type) -> a 'String -> (b:Type) -> a b -> a b
-'Empty :: 'String->Type
-'EmptyCase :: {a:'String} -> (b : 'Empty a -> Type) -> (c : 'Empty a) -> b c
-match'Empty :: (a : Type->Type) -> ((b:'String) -> a ('Empty b)) -> (c:Type) -> a c -> a c
-unsafeCoerce :: {a} -> {b} -> a->b
-'EqCT :: (a:Type) -> a -> a->Type
-parEval :: (a:Type) -> a -> a->a
-'T2 :: Type -> Type->Type
-match'Type :: (a : Type->Type) -> a Type -> (b:Type) -> a b -> a b
-'EqCTt :: {a} -> a -> a->Type
-t2C :: 'Unit -> 'Unit->'Unit
+'StringCase :: (a :: 'String -> Type) -> (b :: 'String) -> a b
+match'String :: (a :: Type -> Type) -> a 'String -> (b :: Type) -> a b -> a b
+'Empty :: 'String -> Type
+'EmptyCase :: forall (a :: 'String) . (b :: 'Empty a -> Type) -> (c :: 'Empty a) -> b c
+match'Empty :: (a :: Type -> Type) -> ((b :: 'String) -> a ('Empty b)) -> (c :: Type) -> a c -> a c
+unsafeCoerce :: forall a b . a -> b
+'EqCT :: (a :: Type) -> a -> a -> Type
+parEval :: (a :: Type) -> a -> a -> a
+'T2 :: Type -> Type -> Type
+match'Type :: (a :: Type -> Type) -> a Type -> (b :: Type) -> a b -> a b
+'EqCTt :: forall a . a -> a -> Type
+t2C :: 'Unit -> 'Unit -> 'Unit
 'Int :: Type
-'IntCase :: (a : 'Int->Type) -> (b:'Int) -> a b
-match'Int :: (a : Type->Type) -> a 'Int -> (b:Type) -> a b -> a b
+'IntCase :: (a :: 'Int -> Type) -> (b :: 'Int) -> a b
+match'Int :: (a :: Type -> Type) -> a 'Int -> (b :: Type) -> a b -> a b
 'Word :: Type
-'WordCase :: (a : 'Word->Type) -> (b:'Word) -> a b
-match'Word :: (a : Type->Type) -> a 'Word -> (b:Type) -> a b -> a b
+'WordCase :: (a :: 'Word -> Type) -> (b :: 'Word) -> a b
+match'Word :: (a :: Type -> Type) -> a 'Word -> (b :: Type) -> a b -> a b
 'Float :: Type
-'FloatCase :: (a : 'Float->Type) -> (b:'Float) -> a b
-match'Float :: (a : Type->Type) -> a 'Float -> (b:Type) -> a b -> a b
+'FloatCase :: (a :: 'Float -> Type) -> (b :: 'Float) -> a b
+match'Float :: (a :: Type -> Type) -> a 'Float -> (b :: Type) -> a b -> a b
 'Char :: Type
-'CharCase :: (a : 'Char->Type) -> (b:'Char) -> a b
-match'Char :: (a : Type->Type) -> a 'Char -> (b:Type) -> a b -> a b
+'CharCase :: (a :: 'Char -> Type) -> (b :: 'Char) -> a b
+match'Char :: (a :: Type -> Type) -> a 'Char -> (b :: Type) -> a b -> a b
 'Bool :: Type
 False :: 'Bool
 True :: 'Bool
-'BoolCase :: (a : 'Bool->Type) -> a False -> a True -> (b:'Bool) -> a b
-match'Bool :: (a : Type->Type) -> a 'Bool -> (b:Type) -> a b -> a b
+'BoolCase :: (a :: 'Bool -> Type) -> a False -> a True -> (b :: 'Bool) -> a b
+match'Bool :: (a :: Type -> Type) -> a 'Bool -> (b :: Type) -> a b -> a b
 'Ordering :: Type
 LT :: 'Ordering
 EQ :: 'Ordering
 GT :: 'Ordering
-'OrderingCase :: (a : 'Ordering->Type) -> a LT -> a EQ -> a GT -> (b:'Ordering) -> a b
-match'Ordering :: (a : Type->Type) -> a 'Ordering -> (b:Type) -> a b -> a b
+'OrderingCase :: (a :: 'Ordering -> Type) -> a LT -> a EQ -> a GT -> (b :: 'Ordering) -> a b
+match'Ordering :: (a :: Type -> Type) -> a 'Ordering -> (b :: Type) -> a b -> a b
 'Nat :: Type
 Zero :: 'Nat
-Succ :: 'Nat->'Nat
-'NatCase :: (a : 'Nat->Type) -> a 0 -> ((b:'Nat) -> a (Succ b)) -> (c:'Nat) -> a c
-match'Nat :: (a : Type->Type) -> a 'Nat -> (b:Type) -> 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 :: {a} -> 'Bool -> a -> a->a
-isEQ :: 'Ordering->'Bool
-'Num :: Type->Type
-fromInt :: {a} -> {_ : 'Num a} -> 'Int->a
-compare :: {a} -> {_ : 'Num a} -> a -> a->'Ordering
-negate :: {a} -> {_ : 'Num a} -> a->a
-'Eq :: Type->Type
-== :: {a} -> {_ : 'Eq a} -> a -> a->'Bool
-'List :: Type->Type
-Nil :: {a} -> 'List a
-Cons :: {a} -> a -> 'List a -> 'List a
-'ListCase :: {a} -> (b : 'List a -> Type) -> b Nil -> ((c:a) -> (d : 'List a) -> b (Cons c d)) -> (e : 'List a) -> b e
-match'List :: (a : Type->Type) -> ((b:Type) -> a ('List b)) -> (c:Type) -> a c -> a c
+Succ :: 'Nat -> 'Nat
+'NatCase :: (a :: 'Nat -> Type) -> a 0 -> ((b :: 'Nat) -> a (Succ b)) -> (c :: 'Nat) -> a c
+match'Nat :: (a :: Type -> Type) -> a 'Nat -> (b :: Type) -> 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 . (b :: 'List a -> Type) -> b Nil -> ((c :: a) -> (d :: 'List a) -> b (Cons c d)) -> (e :: 'List a) -> b e
+match'List :: (a :: Type -> Type) -> ((b :: Type) -> a ('List b)) -> (c :: Type) -> a c -> a c
 'HList :: 'List Type -> Type
 HNil :: ()
-HCons :: {a} -> {b : 'List Type} -> a -> 'HList b -> 'HList (Cons a b)
-'HListCase :: (a : (b : 'List Type) -> 'HList b -> Type) -> a Nil () -> ({c} -> {d : 'List Type} -> (e:c) -> (f : 'HList d) -> a (Cons c d) (HCons c d e f)) -> {g : 'List Type} -> (h : 'HList g) -> a g h
-match'HList :: (a : Type->Type) -> ((b : 'List Type) -> a ('HList b)) -> (c:Type) -> a c -> a c
-hlistNilCase :: (a:Type) -> a -> ()->a
-hlistConsCase :: {a} -> {b : 'List Type} -> (c:Type) -> (a -> 'HList b -> c) -> 'HList (Cons a b) -> c
+HCons :: forall a (b :: 'List Type) . a -> 'HList b -> 'HList (Cons a b)
+'HListCase :: (a :: (b :: 'List Type) -> 'HList b -> Type) -> a Nil () -> (forall c (d :: 'List Type) . (e :: c) -> (f :: 'HList d) -> a (Cons c d) (HCons c d e f)) -> forall (g :: 'List Type) . (h :: 'HList g) -> a g h
+match'HList :: (a :: Type -> Type) -> ((b :: 'List Type) -> a ('HList b)) -> (c :: Type) -> a c -> a c
+hlistNilCase :: (a :: Type) -> a -> () -> a
+hlistConsCase :: forall a (b :: 'List Type) . (c :: Type) -> (a -> 'HList b -> c) -> 'HList (Cons a b) -> c
 ------------ tooltips
-testdata/Internals.lc 6:1-6:8  {a} -> a->a
-testdata/Internals.lc 6:13-6:14  b_
-testdata/Internals.lc 9:1-9:7  {a} -> a->a
-testdata/Internals.lc 9:12-9:13  b_
-testdata/Internals.lc 11:1-11:10  {a}->a
+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  {a} -> (a->a)->a
+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
@@ -103,44 +103,44 @@ 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:6-17:11  String -> Type | Type
 testdata/Internals.lc 17:18-17:24  Type
-testdata/Internals.lc 19:1-19:13  {a} -> {b} -> a->b
-testdata/Internals.lc 19:30-19:31  d_
+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  (a:Type) -> a -> a->Type
+testdata/Internals.lc 19:35-19:36  Type | _c
+testdata/Internals.lc 22:13-22:17  (a :: Type) -> 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  (a:Type) -> a -> a->a
-testdata/Internals.lc 31:24-31:25  b_
+testdata/Internals.lc 31:1-31:8  (a :: Type) -> 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  (a : Type->Type) -> a Type -> (b:Type) -> a b -> a b
+testdata/Internals.lc 34:13-34:15  Type -> Type -> Type
+testdata/Internals.lc 36:1-36:11  (a :: Type -> Type) -> a Type -> (b :: Type) -> 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: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: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: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  {a} -> a -> a->Type
-testdata/Internals.lc 38:14-38:18  (a:Type) -> 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 38:6-38:11  forall a . a -> a -> Type
+testdata/Internals.lc 38:14-38:18  (a :: Type) -> 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
@@ -161,191 +161,191 @@ 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: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: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: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: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: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: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: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: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: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: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: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: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: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: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: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: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: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: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  {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 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 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-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  {a} -> {_ : Num a} -> Int->a
+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  {a} -> {_ : Num a} -> a -> a->Ordering
+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  {a} -> {_ : Num a} -> a->a
+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_ | {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  b_ -> b_->Ordering | {_ : Num a_} -> a_ -> a_->Ordering | {a} -> {_ : Num a} -> a -> a->Ordering
-testdata/Internals.lc 90:13-90:26  Int->Int
-testdata/Internals.lc 90:13-102:22  b_->b_ | {_ : Num a_} -> a_->a_ | {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  {a}->a
-testdata/Internals.lc 102:13-102:22  {a}->a
-testdata/Internals.lc 104:7-104:9  Type->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_ | {a} -> {_ : Eq a} -> a -> a->Bool
-testdata/Internals.lc 105:6-105:8  {a} -> {_ : Eq a} -> a -> a->Bool
+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:39  Ordering -> Bool
 testdata/Internals.lc 109:35-109:63  Bool
-testdata/Internals.lc 109:35-120:29  b_ -> b_->Bool | {_ : Eq a_} -> a_ -> a_->Bool | {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: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 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: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 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: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 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: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 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 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 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 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  {a} -> {_ : Eq a} -> a -> a->Bool
+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 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_ | {a} -> List a
-testdata/Internals.lc 122:21-122:25  List e_ | Type | {a} -> a -> List a -> List a
+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: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
@@ -357,33 +357,33 @@ 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  {a} -> List a
-testdata/Internals.lc 128:5-128:10  HList ('Cons d_ c_) | {a} -> {b : List Type} -> a -> HList b -> HList ('Cons a b)
+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: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: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  {a} -> a -> List a -> List a
+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  (a:Type) -> a -> ()->a
-testdata/Internals.lc 130:29-130:30  b_
+testdata/Internals.lc 130:1-130:13  (a :: Type) -> 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  {a} -> List a
+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  {a} -> {b : List Type} -> (c:Type) -> (a -> HList b -> c) -> HList ('Cons a b) -> c
+testdata/Internals.lc 131:1-131:14  forall a (b :: List Type) . (c :: Type) -> (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: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
@@ -394,11 +394,11 @@ 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 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  {a} -> a -> List a -> List a
+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
diff --git a/testdata/Material.out b/testdata/Material.out
index 0e4834d2..1112eb52 100644
--- a/testdata/Material.out
+++ b/testdata/Material.out
@@ -3,8 +3,8 @@ main is not found
 identityLight :: 'Float
 'Entity :: Type
 Entity :: 'Vec 4 'Float -> 'Vec 4 'Float -> 'Vec 3 'Float -> 'Vec 4 'Float -> 'Entity
-'EntityCase :: (a : 'Entity->Type) -> ((b : 'Vec 4 'Float) -> (c : 'Vec 4 'Float) -> (d : 'Vec 3 'Float) -> (e : 'Vec 4 'Float) -> a (Entity b c d e)) -> (f:'Entity) -> a f
-match'Entity :: (a : Type->Type) -> a 'Entity -> (b:Type) -> a b -> a b
+'EntityCase :: (a :: 'Entity -> Type) -> ((b :: 'Vec 4 'Float) -> (c :: 'Vec 4 'Float) -> (d :: 'Vec 3 'Float) -> (e :: 'Vec 4 'Float) -> a (Entity b c d e)) -> (f :: 'Entity) -> a f
+match'Entity :: (a :: Type -> Type) -> a 'Entity -> (b :: Type) -> a b -> a b
 eAmbientLight :: 'Entity -> 'VecS 'Float 4
 eDirectedLight :: 'Entity -> 'VecS 'Float 4
 eLightDir :: 'Entity -> 'VecS 'Float 3
@@ -16,18 +16,18 @@ WT_Square :: 'WaveType
 WT_Sawtooth :: 'WaveType
 WT_InverseSawtooth :: 'WaveType
 WT_Noise :: 'WaveType
-'WaveTypeCase :: (a : 'WaveType->Type) -> a WT_Sin -> a WT_Triangle -> a WT_Square -> a WT_Sawtooth -> a WT_InverseSawtooth -> a WT_Noise -> (b:'WaveType) -> a b
-match'WaveType :: (a : Type->Type) -> a 'WaveType -> (b:Type) -> a b -> a b
+'WaveTypeCase :: (a :: 'WaveType -> Type) -> a WT_Sin -> a WT_Triangle -> a WT_Square -> a WT_Sawtooth -> a WT_InverseSawtooth -> a WT_Noise -> (b :: 'WaveType) -> a b
+match'WaveType :: (a :: Type -> Type) -> a 'WaveType -> (b :: Type) -> a b -> a b
 'Wave :: Type
-Wave :: 'WaveType -> 'Float -> 'Float -> 'Float -> 'Float->'Wave
-'WaveCase :: (a : 'Wave->Type) -> ((b:'WaveType) -> (c:'Float) -> (d:'Float) -> (e:'Float) -> (f:'Float) -> a (Wave b c d e f)) -> (g:'Wave) -> a g
-match'Wave :: (a : Type->Type) -> a 'Wave -> (b:Type) -> a b -> a b
+Wave :: 'WaveType -> 'Float -> 'Float -> 'Float -> 'Float -> 'Wave
+'WaveCase :: (a :: 'Wave -> Type) -> ((b :: 'WaveType) -> (c :: 'Float) -> (d :: 'Float) -> (e :: 'Float) -> (f :: 'Float) -> a (Wave b c d e f)) -> (g :: 'Wave) -> a g
+match'Wave :: (a :: Type -> Type) -> a 'Wave -> (b :: Type) -> 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_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
@@ -37,15 +37,15 @@ D_Text4 :: 'Deform
 D_Text5 :: 'Deform
 D_Text6 :: 'Deform
 D_Text7 :: 'Deform
-D_Wave :: 'Float -> 'Wave->'Deform
-'DeformCase :: (a : 'Deform->Type) -> a D_AutoSprite -> a D_AutoSprite2 -> ((b:'Float) -> (c:'Float) -> (d:'Float) -> a (D_Bulge b c d)) -> ((e : 'Vec 3 'Float) -> (f:'Wave) -> a (D_Move e f)) -> ((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 -> ((i:'Float) -> (j:'Wave) -> a (D_Wave i j)) -> (k:'Deform) -> a k
-match'Deform :: (a : Type->Type) -> a 'Deform -> (b:Type) -> a b -> a b
+D_Wave :: 'Float -> 'Wave -> 'Deform
+'DeformCase :: (a :: 'Deform -> Type) -> a D_AutoSprite -> a D_AutoSprite2 -> ((b :: 'Float) -> (c :: 'Float) -> (d :: 'Float) -> a (D_Bulge b c d)) -> ((e :: 'Vec 3 'Float) -> (f :: 'Wave) -> a (D_Move e f)) -> ((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 -> ((i :: 'Float) -> (j :: 'Wave) -> a (D_Wave i j)) -> (k :: 'Deform) -> a k
+match'Deform :: (a :: Type -> Type) -> a 'Deform -> (b :: Type) -> a b -> a b
 'CullType :: Type
 CT_FrontSided :: 'CullType
 CT_BackSided :: 'CullType
 CT_TwoSided :: 'CullType
-'CullTypeCase :: (a : 'CullType->Type) -> a CT_FrontSided -> a CT_BackSided -> a CT_TwoSided -> (b:'CullType) -> a b
-match'CullType :: (a : Type->Type) -> a 'CullType -> (b:Type) -> a b -> a b
+'CullTypeCase :: (a :: 'CullType -> Type) -> a CT_FrontSided -> a CT_BackSided -> a CT_TwoSided -> (b :: 'CullType) -> a b
+match'CullType :: (a :: Type -> Type) -> a 'CullType -> (b :: Type) -> a b -> a b
 'Blending' :: Type
 B_DstAlpha :: 'Blending'
 B_DstColor :: 'Blending'
@@ -58,11 +58,11 @@ B_SrcAlpha :: 'Blending'
 B_SrcAlphaSaturate :: 'Blending'
 B_SrcColor :: 'Blending'
 B_Zero :: 'Blending'
-'Blending'Case :: (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 -> (b:'Blending') -> a b
-match'Blending' :: (a : Type->Type) -> a 'Blending' -> (b:Type) -> a b -> a b
+'Blending'Case :: (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 -> (b :: 'Blending') -> a b
+match'Blending' :: (a :: Type -> Type) -> a 'Blending' -> (b :: Type) -> a b -> a b
 'RGBGen :: Type
-RGB_Wave :: 'Wave->'RGBGen
-RGB_Const :: 'Float -> 'Float -> 'Float->'RGBGen
+RGB_Wave :: 'Wave -> 'RGBGen
+RGB_Const :: 'Float -> 'Float -> 'Float -> 'RGBGen
 RGB_Identity :: 'RGBGen
 RGB_IdentityLighting :: 'RGBGen
 RGB_Entity :: 'RGBGen
@@ -72,11 +72,11 @@ RGB_Vertex :: 'RGBGen
 RGB_LightingDiffuse :: 'RGBGen
 RGB_OneMinusVertex :: 'RGBGen
 RGB_Undefined :: 'RGBGen
-'RGBGenCase :: (a : 'RGBGen->Type) -> ((b:'Wave) -> a (RGB_Wave b)) -> ((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 -> (f:'RGBGen) -> a f
-match'RGBGen :: (a : Type->Type) -> a 'RGBGen -> (b:Type) -> a b -> a b
+'RGBGenCase :: (a :: 'RGBGen -> Type) -> ((b :: 'Wave) -> a (RGB_Wave b)) -> ((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 -> (f :: 'RGBGen) -> a f
+match'RGBGen :: (a :: Type -> Type) -> a 'RGBGen -> (b :: Type) -> a b -> a b
 'AlphaGen :: Type
-A_Wave :: 'Wave->'AlphaGen
-A_Const :: 'Float->'AlphaGen
+A_Wave :: 'Wave -> 'AlphaGen
+A_Const :: 'Float -> 'AlphaGen
 A_Portal :: 'AlphaGen
 A_Identity :: 'AlphaGen
 A_Entity :: 'AlphaGen
@@ -84,109 +84,109 @@ A_OneMinusEntity :: 'AlphaGen
 A_Vertex :: 'AlphaGen
 A_LightingSpecular :: 'AlphaGen
 A_OneMinusVertex :: 'AlphaGen
-'AlphaGenCase :: (a : 'AlphaGen->Type) -> ((b:'Wave) -> a (A_Wave b)) -> ((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 -> (d:'AlphaGen) -> a d
-match'AlphaGen :: (a : Type->Type) -> a 'AlphaGen -> (b:Type) -> a b -> a b
+'AlphaGenCase :: (a :: 'AlphaGen -> Type) -> ((b :: 'Wave) -> a (A_Wave b)) -> ((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 -> (d :: 'AlphaGen) -> a d
+match'AlphaGen :: (a :: Type -> Type) -> a 'AlphaGen -> (b :: Type) -> 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 :: (a : 'TCGen->Type) -> a TG_Base -> a TG_Lightmap -> a TG_Environment -> ((b : 'Vec 3 'Float) -> (c : 'Vec 3 'Float) -> a (TG_Vector b c)) -> a TG_Undefined -> (d:'TCGen) -> a d
-match'TCGen :: (a : Type->Type) -> a 'TCGen -> (b:Type) -> a b -> a b
+'TCGenCase :: (a :: 'TCGen -> Type) -> a TG_Base -> a TG_Lightmap -> a TG_Environment -> ((b :: 'Vec 3 'Float) -> (c :: 'Vec 3 'Float) -> a (TG_Vector b c)) -> a TG_Undefined -> (d :: 'TCGen) -> a d
+match'TCGen :: (a :: Type -> Type) -> a 'TCGen -> (b :: Type) -> 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 :: (a : 'TCMod->Type) -> a TM_EntityTranslate -> ((b:'Float) -> a (TM_Rotate b)) -> ((c:'Float) -> (d:'Float) -> a (TM_Scroll c d)) -> ((e:'Float) -> (f:'Float) -> a (TM_Scale e f)) -> ((g:'Wave) -> a (TM_Stretch g)) -> ((h:'Float) -> (i:'Float) -> (j:'Float) -> (k:'Float) -> (l:'Float) -> (m:'Float) -> a (TM_Transform h i j k l m)) -> ((n:'Float) -> (o:'Float) -> (p:'Float) -> (q:'Float) -> a (TM_Turb n o p q)) -> (r:'TCMod) -> a r
-match'TCMod :: (a : Type->Type) -> a 'TCMod -> (b:Type) -> a b -> a b
+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 :: (a :: 'TCMod -> Type) -> a TM_EntityTranslate -> ((b :: 'Float) -> a (TM_Rotate b)) -> ((c :: 'Float) -> (d :: 'Float) -> a (TM_Scroll c d)) -> ((e :: 'Float) -> (f :: 'Float) -> a (TM_Scale e f)) -> ((g :: 'Wave) -> a (TM_Stretch g)) -> ((h :: 'Float) -> (i :: 'Float) -> (j :: 'Float) -> (k :: 'Float) -> (l :: 'Float) -> (m :: 'Float) -> a (TM_Transform h i j k l m)) -> ((n :: 'Float) -> (o :: 'Float) -> (p :: 'Float) -> (q :: 'Float) -> a (TM_Turb n o p q)) -> (r :: 'TCMod) -> a r
+match'TCMod :: (a :: Type -> Type) -> a 'TCMod -> (b :: Type) -> a b -> a b
 'StageTexture :: Type
-ST_Map :: 'String->'StageTexture
-ST_ClampMap :: 'String->'StageTexture
+ST_Map :: 'String -> 'StageTexture
+ST_ClampMap :: 'String -> 'StageTexture
 ST_AnimMap :: 'Float -> 'List 'String -> 'StageTexture
 ST_Lightmap :: 'StageTexture
 ST_WhiteImage :: 'StageTexture
-'StageTextureCase :: (a : 'StageTexture->Type) -> ((b:'String) -> a (ST_Map b)) -> ((c:'String) -> a (ST_ClampMap c)) -> ((d:'Float) -> (e : 'List 'String) -> a (ST_AnimMap d e)) -> a ST_Lightmap -> a ST_WhiteImage -> (f:'StageTexture) -> a f
-match'StageTexture :: (a : Type->Type) -> a 'StageTexture -> (b:Type) -> a b -> a b
+'StageTextureCase :: (a :: 'StageTexture -> Type) -> ((b :: 'String) -> a (ST_Map b)) -> ((c :: 'String) -> a (ST_ClampMap c)) -> ((d :: 'Float) -> (e :: 'List 'String) -> a (ST_AnimMap d e)) -> a ST_Lightmap -> a ST_WhiteImage -> (f :: 'StageTexture) -> a f
+match'StageTexture :: (a :: Type -> Type) -> a 'StageTexture -> (b :: Type) -> a b -> a b
 'AlphaFunction :: Type
 A_Gt0 :: 'AlphaFunction
 A_Lt128 :: 'AlphaFunction
 A_Ge128 :: 'AlphaFunction
-'AlphaFunctionCase :: (a : 'AlphaFunction->Type) -> a A_Gt0 -> a A_Lt128 -> a A_Ge128 -> (b:'AlphaFunction) -> a b
-match'AlphaFunction :: (a : Type->Type) -> a 'AlphaFunction -> (b:Type) -> a b -> a b
+'AlphaFunctionCase :: (a :: 'AlphaFunction -> Type) -> a A_Gt0 -> a A_Lt128 -> a A_Ge128 -> (b :: 'AlphaFunction) -> a b
+match'AlphaFunction :: (a :: Type -> Type) -> a 'AlphaFunction -> (b :: Type) -> a b -> a b
 'DepthFunction :: Type
 D_Equal :: 'DepthFunction
 D_Lequal :: 'DepthFunction
-'DepthFunctionCase :: (a : 'DepthFunction->Type) -> a D_Equal -> a D_Lequal -> (b:'DepthFunction) -> a b
-match'DepthFunction :: (a : Type->Type) -> a 'DepthFunction -> (b:Type) -> a b -> a b
+'DepthFunctionCase :: (a :: 'DepthFunction -> Type) -> a D_Equal -> a D_Lequal -> (b :: 'DepthFunction) -> a b
+match'DepthFunction :: (a :: Type -> Type) -> a 'DepthFunction -> (b :: Type) -> a b -> a b
 'StageAttrs :: Type
-StageAttrs :: 'Maybe ('Blending', 'Blending') -> 'RGBGen -> 'AlphaGen -> 'TCGen -> 'List 'TCMod -> 'StageTexture -> 'Bool -> 'DepthFunction -> 'Maybe 'AlphaFunction -> 'Bool -> 'String->'StageAttrs
-'StageAttrsCase :: (a : 'StageAttrs->Type) -> ((b : 'Maybe ('Blending', 'Blending')) -> (c:'RGBGen) -> (d:'AlphaGen) -> (e:'TCGen) -> (f : 'List 'TCMod) -> (g:'StageTexture) -> (h:'Bool) -> (i:'DepthFunction) -> (j : 'Maybe 'AlphaFunction) -> (k:'Bool) -> (l:'String) -> a (StageAttrs b c d e f g h i j k l)) -> (m:'StageAttrs) -> a m
-match'StageAttrs :: (a : Type->Type) -> a 'StageAttrs -> (b:Type) -> a b -> a b
+StageAttrs :: 'Maybe ('Blending', 'Blending') -> 'RGBGen -> 'AlphaGen -> 'TCGen -> 'List 'TCMod -> 'StageTexture -> 'Bool -> 'DepthFunction -> 'Maybe 'AlphaFunction -> 'Bool -> 'String -> 'StageAttrs
+'StageAttrsCase :: (a :: 'StageAttrs -> Type) -> ((b :: 'Maybe ('Blending', 'Blending')) -> (c :: 'RGBGen) -> (d :: 'AlphaGen) -> (e :: 'TCGen) -> (f :: 'List 'TCMod) -> (g :: 'StageTexture) -> (h :: 'Bool) -> (i :: 'DepthFunction) -> (j :: 'Maybe 'AlphaFunction) -> (k :: 'Bool) -> (l :: 'String) -> a (StageAttrs b c d e f g h i j k l)) -> (m :: 'StageAttrs) -> a m
+match'StageAttrs :: (a :: Type -> Type) -> a 'StageAttrs -> (b :: Type) -> a b -> a b
 saBlend :: 'StageAttrs -> 'Maybe ('Blending', 'Blending')
-saRGBGen :: 'StageAttrs->'RGBGen
-saAlphaGen :: 'StageAttrs->'AlphaGen
-saTCGen :: 'StageAttrs->'TCGen
+saRGBGen :: 'StageAttrs -> 'RGBGen
+saAlphaGen :: 'StageAttrs -> 'AlphaGen
+saTCGen :: 'StageAttrs -> 'TCGen
 saTCMod :: 'StageAttrs -> 'List 'TCMod
-saTexture :: 'StageAttrs->'StageTexture
-saDepthWrite :: 'StageAttrs->'Bool
-saDepthFunc :: 'StageAttrs->'DepthFunction
+saTexture :: 'StageAttrs -> 'StageTexture
+saDepthWrite :: 'StageAttrs -> 'Bool
+saDepthFunc :: 'StageAttrs -> 'DepthFunction
 saAlphaFunc :: 'StageAttrs -> 'Maybe 'AlphaFunction
-saDepthMaskExplicit :: 'StageAttrs->'Bool
-saTextureUniform :: 'StageAttrs->'String
+saDepthMaskExplicit :: 'StageAttrs -> 'Bool
+saTextureUniform :: 'StageAttrs -> 'String
 defaultStageAttrs :: 'StageAttrs
 'CommonAttrs :: Type
-CommonAttrs :: () -> () -> 'Bool -> 'Float -> 'Bool -> 'Bool -> 'CullType -> 'List 'Deform -> 'Bool -> 'Bool -> 'List 'StageAttrs -> 'Bool->'CommonAttrs
-'CommonAttrsCase :: (a : 'CommonAttrs->Type) -> ((b:()) -> (c:()) -> (d:'Bool) -> (e:'Float) -> (f:'Bool) -> (g:'Bool) -> (h:'CullType) -> (i : 'List 'Deform) -> (j:'Bool) -> (k:'Bool) -> (l : 'List 'StageAttrs) -> (m:'Bool) -> a (CommonAttrs b c d e f g h i j k l m)) -> (n:'CommonAttrs) -> a n
-match'CommonAttrs :: (a : Type->Type) -> a 'CommonAttrs -> (b:Type) -> a b -> a b
-caSkyParms :: 'CommonAttrs->()
-caFogParms :: 'CommonAttrs->()
-caPortal :: 'CommonAttrs->'Bool
-caSort :: 'CommonAttrs->'Float
-caEntityMergable :: 'CommonAttrs->'Bool
-caFogOnly :: 'CommonAttrs->'Bool
-caCull :: 'CommonAttrs->'CullType
+CommonAttrs :: () -> () -> 'Bool -> 'Float -> 'Bool -> 'Bool -> 'CullType -> 'List 'Deform -> 'Bool -> 'Bool -> 'List 'StageAttrs -> 'Bool -> 'CommonAttrs
+'CommonAttrsCase :: (a :: 'CommonAttrs -> Type) -> ((b :: ()) -> (c :: ()) -> (d :: 'Bool) -> (e :: 'Float) -> (f :: 'Bool) -> (g :: 'Bool) -> (h :: 'CullType) -> (i :: 'List 'Deform) -> (j :: 'Bool) -> (k :: 'Bool) -> (l :: 'List 'StageAttrs) -> (m :: 'Bool) -> a (CommonAttrs b c d e f g h i j k l m)) -> (n :: 'CommonAttrs) -> a n
+match'CommonAttrs :: (a :: Type -> Type) -> a 'CommonAttrs -> (b :: Type) -> 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
+caNoMipMaps :: 'CommonAttrs -> 'Bool
+caPolygonOffset :: 'CommonAttrs -> 'Bool
 caStages :: 'CommonAttrs -> 'List 'StageAttrs
-caIsSky :: 'CommonAttrs->'Bool
+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 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: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: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: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: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: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: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: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: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
@@ -199,7 +199,7 @@ 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: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
@@ -213,18 +213,18 @@ 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: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: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: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: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
@@ -236,7 +236,7 @@ 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: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
@@ -260,9 +260,9 @@ 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: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: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
@@ -277,9 +277,9 @@ 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: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: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
@@ -295,15 +295,15 @@ 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: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: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: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: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
@@ -313,24 +313,24 @@ 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: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: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: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: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: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: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
@@ -338,9 +338,9 @@ 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: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: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
@@ -360,116 +360,116 @@ testdata/Material.lc 127:7-127:15  DepthFunction
 testdata/Material.lc 130:6-130:16  Type
 testdata/Material.lc 130:6-131:17  Type
 testdata/Material.lc 130:6-144:34  Type
-testdata/Material.lc 131:7-131:17  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs | StageAttrs | Type
+testdata/Material.lc 131:7-131:17  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs | StageAttrs | Type
 testdata/Material.lc 132:7-132:14  StageAttrs -> Maybe (Blending', Blending')
-testdata/Material.lc 132:25-132:30  Type->Type
+testdata/Material.lc 132:25-132: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: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: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: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: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: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: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: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: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:7-144:23  StageAttrs -> String
 testdata/Material.lc 144:28-144:34  Type
 testdata/Material.lc 148:22-148:32  Type
 testdata/Material.lc 149:1-149:18  StageAttrs
-testdata/Material.lc 149:21-149:31  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/Material.lc 149:21-150:30  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/Material.lc 149:21-151:36  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/Material.lc 149:21-152:33  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/Material.lc 149:21-153:35  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/Material.lc 149:21-154:25  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/Material.lc 149:21-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-149:31  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-150:30  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-151:36  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-152:33  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-153:35  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-154:25  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-155:36  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-156:27  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/Material.lc 149:21-157:31  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
+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  {a} -> Maybe a
+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 -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs | CommonAttrs | Type
-testdata/Material.lc 165:7-165:17  CommonAttrs->()
+testdata/Material.lc 164:7-164:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs | CommonAttrs | Type
+testdata/Material.lc 165:7-165:17  CommonAttrs -> ()
 testdata/Material.lc 165:28-165:30  Type
-testdata/Material.lc 166:7-166:17  CommonAttrs->()
+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: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: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: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: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: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: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: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:7-178:14  CommonAttrs -> Bool
 testdata/Material.lc 178:28-178:32  Type
 testdata/Material.lc 182:23-182:34  Type
 testdata/Material.lc 183:1-183:19  CommonAttrs
-testdata/Material.lc 183:22-183:33  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/Material.lc 183:22-184:29  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/Material.lc 183:22-185:29  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/Material.lc 183:22-186:32  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/Material.lc 183:22-187:28  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/Material.lc 183:22-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-183:33  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-184:29  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-185:29  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-186:32  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-187:28  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-188:32  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-189:32  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/Material.lc 183:22-190:40  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+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  {a} -> List a
+testdata/Material.lc 194:27-194:29  forall a . List a
 testdata/Material.lc 195:27-195:32  Bool
diff --git a/testdata/Prelude.out b/testdata/Prelude.out
index d5d3852b..7299d40d 100644
--- a/testdata/Prelude.out
+++ b/testdata/Prelude.out
@@ -1,41 +1,41 @@
 main is not found
 ------------ trace
-const :: {a} -> {b} -> a -> b->a
+const :: forall a b . a -> b -> a
 otherwise :: 'Bool
-& :: {a} -> {b} -> a -> (a->b)->b
-$ :: {a} -> {b} -> (a->b) -> a->b
-. :: {a} -> {b} -> {c} -> (b->c) -> (a->b) -> a->c
-uncurry :: {a} -> {b} -> {c} -> (a -> c->b) -> (a, c)->b
-*** :: {a} -> {b} -> {c} -> {d} -> (a->c) -> (b->d) -> (a, b)->(c, d)
+& :: 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 :: {a} -> {b} -> 'List a -> 'List b -> 'List (a, b)
-unzip :: {a} -> {b} -> 'List (a, b) -> ('List a, 'List b)
-filter :: {a} -> (a->'Bool) -> 'List a -> 'List a
-tail :: {a} -> 'List a -> 'List a
-pairs :: {a} -> 'List a -> 'List (a, a)
-foldl' :: {a} -> {b} -> (a -> b->a) -> a -> 'List b -> a
-foldr1 :: {a} -> (a -> a->a) -> 'List a -> a
-split :: {a} -> 'List a -> ('List a, 'List a)
-mergeBy :: {a} -> (a -> a->'Ordering) -> 'List a -> 'List a -> 'List a
-sortBy :: {a} -> (a -> a->'Ordering) -> 'List a -> 'List a
-iterate :: {a} -> (a->a) -> a -> 'List a
-fst :: {a} -> {b} -> (a, b)->a
-snd :: {a} -> {b} -> (a, b)->b
-||| :: 'Bool -> 'Bool->'Bool
-&&& :: 'Bool -> 'Bool->'Bool
+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 :: (a : 'RecItem->Type) -> ((b:'String) -> (c:Type) -> a (RecItem b c)) -> (d:'RecItem) -> a d
-match'RecItem :: (a : Type->Type) -> a 'RecItem -> (b:Type) -> a b -> a b
-recItemType :: 'RecItem->Type
+RecItem :: 'String -> Type -> 'RecItem
+'RecItemCase :: (a :: 'RecItem -> Type) -> ((b :: 'String) -> (c :: Type) -> a (RecItem b c)) -> (d :: 'RecItem) -> a d
+match'RecItem :: (a :: Type -> Type) -> a 'RecItem -> (b :: Type) -> a b -> a b
+recItemType :: 'RecItem -> Type
 'RecordC :: 'List 'RecItem -> Type
-RecordCons :: {a : 'List 'RecItem} -> 'HList (map 'RecItem Type recItemType a) -> 'RecordC a
-'RecordCCase :: {a : 'List 'RecItem} -> (b : 'RecordC a -> Type) -> ((c : 'HList (map 'RecItem Type recItemType a)) -> b (RecordCons c)) -> (d : 'RecordC a) -> b d
-match'RecordC :: (a : Type->Type) -> ((b : 'List 'RecItem) -> a ('RecordC b)) -> (c:Type) -> a c -> a c
+RecordCons :: forall (a :: 'List 'RecItem) . 'HList (map 'RecItem Type recItemType a) -> 'RecordC a
+'RecordCCase :: forall (a :: 'List 'RecItem) . (b :: 'RecordC a -> Type) -> ((c :: 'HList (map 'RecItem Type recItemType a)) -> b (RecordCons c)) -> (d :: 'RecordC a) -> b d
+match'RecordC :: (a :: Type -> Type) -> ((b :: 'List 'RecItem) -> a ('RecordC b)) -> (c :: Type) -> a c -> a c
 isKeyC :: 'String -> Type -> 'List 'RecItem -> Type
-fstTup :: {a} -> {b : 'List Type} -> 'HList (Cons a b) -> a
-sndTup :: {a} -> {b : 'List Type} -> 'HList (Cons a b) -> 'HList b
-project :: {a} -> {b : 'List 'RecItem} -> (c:'String) -> {_ : isKeyC c a b} -> 'RecordC b -> a
+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) . (c :: 'String) -> isKeyC c a b => 'RecordC b -> a
 rgb :: 'Float -> 'Float -> 'Float -> 'VecS 'Float 4
 black :: 'VecS 'Float 4
 gray :: 'VecS 'Float 4
@@ -53,114 +53,114 @@ navy :: 'VecS 'Float 4
 blue :: 'VecS 'Float 4
 purple :: 'VecS 'Float 4
 fuchsia :: 'VecS 'Float 4
-colorImage1 :: {a:'Nat} -> {b} -> {c} -> {_ : 'Num b} -> {_ : c ~ 'VecScalar a b} -> c -> 'Image 1 (Color c)
-colorImage2 :: {a:'Nat} -> {b} -> {c} -> {_ : 'Num b} -> {_ : c ~ 'VecScalar a b} -> c -> 'Image 2 (Color c)
+colorImage1 :: forall (a :: 'Nat) b c . ('Num b, c ~ 'VecScalar a b) => c -> 'Image 1 (Color c)
+colorImage2 :: forall (a :: 'Nat) b c . ('Num b, c ~ 'VecScalar a b) => c -> 'Image 2 (Color c)
 depthImage1 :: 'Float -> 'Image 1 Depth
 v3FToV4F :: 'Vec 3 'Float -> 'VecS 'Float 4
-radians :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-degrees :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-sin :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-cos :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-tan :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-sinh :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-cosh :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-tanh :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-asin :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-asinh :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-acos :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-acosh :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-atan :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-atanh :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-atan2 :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a->a
-pow :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a->a
-exp :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-log :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-exp2 :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-log2 :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-sqrt :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-inversesqrt :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-abs :: {a} -> {b} -> {c:'Nat} -> {_ : 'Signed a} -> {_ : b ~ 'VecScalar c a} -> b->b
-sign :: {a} -> {b} -> {c:'Nat} -> {_ : 'Signed a} -> {_ : b ~ 'VecScalar c a} -> b->b
-floor :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-trunc :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-round :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-roundEven :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-ceil :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-fract :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-mod :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-min :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-max :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-modF :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->(a, a)
-clamp :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> b -> b->b
-clampS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Num a} -> {_ : b ~ 'VecScalar c a} -> b -> a -> a->b
-mix :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a -> a->a
-mixS :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a -> 'Float->a
-mixB :: {a} -> {b:'Nat} -> {c} -> {_ : a ~ 'VecScalar b 'Float} -> {_ : c ~ 'VecScalar b 'Bool} -> a -> a -> c->a
-step :: {a} -> {b:'Nat} -> {_ : a ~ 'VecS 'Float b} -> a -> a->a
-stepS :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> 'Float -> a->a
-smoothstep :: {a} -> {b:'Nat} -> {_ : a ~ 'VecS 'Float b} -> a -> a -> a->a
-smoothstepS :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> 'Float -> 'Float -> a->a
-isNan :: {a} -> {b:'Nat} -> {c} -> {_ : a ~ 'VecScalar b 'Float} -> {_ : c ~ 'VecScalar b 'Bool} -> a->c
-isInf :: {a} -> {b:'Nat} -> {c} -> {_ : a ~ 'VecScalar b 'Float} -> {_ : c ~ 'VecScalar b 'Bool} -> a->c
-dFdx :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-dFdy :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-fWidth :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-noise1 :: {a:'Nat} -> 'VecScalar a 'Float -> 'Float
-noise2 :: {a:'Nat} -> 'VecScalar a 'Float -> 'Vec 2 'Float
-noise3 :: {a:'Nat} -> 'VecScalar a 'Float -> 'Vec 3 'Float
-noise4 :: {a:'Nat} -> 'VecScalar a 'Float -> 'Vec 4 'Float
-length :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->'Float
-distance :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a->'Float
-dot :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a->'Float
-cross :: {a} -> {_ : a ~ 'VecS 'Float 3} -> a -> a->a
-normalize :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a->a
-faceforward :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a -> a->a
-reflect :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a->a
-refract :: {a} -> {b:'Nat} -> {_ : a ~ 'VecScalar b 'Float} -> a -> a -> a->a
-transpose :: {a:'Nat} -> {b:'Nat} -> {c} -> 'Mat a b c -> 'Mat b a c
-det :: {a:'Nat} -> {b} -> 'Mat a a b -> 'Float
-inv :: {a:'Nat} -> {b} -> 'Mat a a b -> 'Mat a a b
-outer :: {a:'Nat} -> {b} -> {c:'Nat} -> 'Vec a b -> 'Vec c b -> 'Mat c a b
-bAnd :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-bOr :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-bXor :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> b->b
-bNot :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b->b
-bAndS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> a->b
-bOrS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> a->b
-bXorS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> a->b
-shiftL :: {a} -> {b} -> {c:'Nat} -> {d} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> {_ : d ~ 'VecScalar c 'Word} -> b -> d->b
-shiftR :: {a} -> {b} -> {c:'Nat} -> {d} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> {_ : d ~ 'VecScalar c 'Word} -> b -> d->b
-shiftLS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> 'Word->b
-shiftRS :: {a} -> {b} -> {c:'Nat} -> {_ : 'Integral a} -> {_ : b ~ 'VecScalar c a} -> b -> 'Word->b
-floatBitsToInt :: {a:'Nat} -> 'VecScalar a 'Float -> 'VecScalar a 'Int
-floatBitsToWord :: {a:'Nat} -> 'VecScalar a 'Float -> 'VecScalar a 'Word
-intBitsToFloat :: {a:'Nat} -> 'VecScalar a 'Int -> 'VecScalar a 'Float
-wordBitsToFloat :: {a:'Nat} -> 'VecScalar a 'Word -> 'VecScalar a 'Float
-+ :: {a} -> {_ : 'Num ('MatVecScalarElem a)} -> a -> a->a
-- :: {a} -> {_ : 'Num ('MatVecScalarElem a)} -> a -> a->a
-* :: {a} -> {_ : 'Num ('MatVecScalarElem a)} -> a -> a->a
-/ :: {a} -> {b:'Nat} -> {_ : 'Num a} -> 'VecScalar b a -> 'VecScalar b a -> 'VecScalar b a
-% :: {a} -> {b:'Nat} -> {_ : 'Num a} -> 'VecScalar b a -> 'VecScalar b a -> 'VecScalar b a
-neg :: {a} -> {_ : 'Signed ('MatVecScalarElem a)} -> a->a
-/= :: {a} -> a -> a->'Bool
-< :: {a:'Nat} -> {b} -> {_ : 'Num b} -> 'VecScalar a b -> 'VecScalar a b -> 'VecScalar a 'Bool
-<= :: {a:'Nat} -> {b} -> {_ : 'Num b} -> 'VecScalar a b -> 'VecScalar a b -> 'VecScalar a 'Bool
->= :: {a:'Nat} -> {b} -> {_ : 'Num b} -> 'VecScalar a b -> 'VecScalar a b -> 'VecScalar a 'Bool
-> :: {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 :: {a:'Nat} -> 'VecScalar a 'Bool -> 'VecScalar a 'Bool
-any :: {a:'Nat} -> 'VecScalar a 'Bool -> 'Bool
-all :: {a:'Nat} -> 'VecScalar a 'Bool -> 'Bool
-.*. :: {a:'Nat} -> {b:'Nat} -> {c} -> {d:'Nat} -> 'Mat a b c -> 'Mat b d c -> 'Mat a d c
-*. :: {a:'Nat} -> {b:'Nat} -> {c} -> 'Mat a b c -> 'VecS c b -> 'Vec a c
-.* :: {a:'Nat} -> {b} -> {c:'Nat} -> 'VecS b a -> 'Mat a c b -> 'Vec c b
-+! :: {a} -> {_ : 'Num ('MatVecScalarElem a)} -> a -> 'MatVecScalarElem a -> a
--! :: {a} -> {_ : 'Num ('MatVecScalarElem a)} -> a -> 'MatVecScalarElem a -> a
-*! :: {a} -> {_ : 'Num ('MatVecScalarElem a)} -> a -> 'MatVecScalarElem a -> a
-/! :: {a} -> {b:'Nat} -> {_ : 'Num a} -> 'VecScalar b a -> a -> 'VecScalar b a
-%! :: {a} -> {b:'Nat} -> {_ : 'Num a} -> 'VecScalar b a -> a -> 'VecScalar b a
+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
+smoothstepS :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => 'Float -> 'Float -> a -> a
+isNan :: forall a (b :: 'Nat) c . (a ~ 'VecScalar b 'Float, c ~ 'VecScalar b 'Bool) => a -> c
+isInf :: forall a (b :: 'Nat) c . (a ~ 'VecScalar b 'Float, c ~ 'VecScalar b 'Bool) => a -> c
+dFdx :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => a -> a
+dFdy :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => a -> a
+fWidth :: forall a (b :: 'Nat) . (a ~ 'VecScalar b 'Float) => a -> a
+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
+shiftR :: forall a b (c :: 'Nat) d . ('Integral a, b ~ 'VecScalar c a, d ~ 'VecScalar c 'Word) => b -> d -> b
+shiftLS :: forall a b (c :: 'Nat) . ('Integral a, b ~ 'VecScalar c a) => b -> 'Word -> b
+shiftRS :: forall a b (c :: 'Nat) . ('Integral a, b ~ 'VecScalar c a) => b -> 'Word -> b
+floatBitsToInt :: forall (a :: 'Nat) . 'VecScalar a 'Float -> 'VecScalar a 'Int
+floatBitsToWord :: forall (a :: 'Nat) . 'VecScalar a 'Float -> 'VecScalar a 'Word
+intBitsToFloat :: forall (a :: 'Nat) . 'VecScalar a 'Int -> 'VecScalar a 'Float
+wordBitsToFloat :: forall (a :: 'Nat) . 'VecScalar a 'Word -> 'VecScalar a 'Float
++ :: forall a . 'Num ('MatVecScalarElem a) => a -> a -> a
+- :: forall a . 'Num ('MatVecScalarElem a) => a -> a -> a
+* :: forall a . 'Num ('MatVecScalarElem a) => a -> a -> a
+/ :: forall a (b :: 'Nat) . 'Num a => 'VecScalar b a -> 'VecScalar b a -> 'VecScalar b a
+% :: forall a (b :: 'Nat) . 'Num a => 'VecScalar b a -> 'VecScalar b a -> 'VecScalar b a
+neg :: forall a . 'Signed ('MatVecScalarElem a) => a -> a
+/= :: forall a . a -> a -> 'Bool
+< :: forall (a :: 'Nat) b . 'Num b => 'VecScalar a b -> 'VecScalar a b -> 'VecScalar a 'Bool
+<= :: forall (a :: 'Nat) b . 'Num b => 'VecScalar a b -> 'VecScalar a b -> 'VecScalar a 'Bool
+>= :: forall (a :: 'Nat) b . 'Num b => 'VecScalar a b -> 'VecScalar a b -> 'VecScalar a 'Bool
+> :: forall (a :: 'Nat) b . 'Num b => 'VecScalar a b -> 'VecScalar a b -> 'VecScalar a 'Bool
+&& :: 'Bool -> 'Bool -> 'Bool
+|| :: 'Bool -> 'Bool -> 'Bool
+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
@@ -170,278 +170,278 @@ translateBefore4 :: 'Vec 3 'Float -> 'M
 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
-!! :: {a} -> 'List a -> 'Int->a
+!! :: forall a . 'List a -> 'Int -> a
 ------------ tooltips
-testdata/Prelude.lc 16:1-16:6  {a} -> {b} -> a -> b->a
-testdata/Prelude.lc 16:13-16:14  d_
+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  {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  {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  {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  {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  {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 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_ | {a} -> {b} -> List a -> List b -> List (a, b)
-testdata/Prelude.lc 31:9-31:10  d_
+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: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  {a} -> {b} -> List a -> List b -> List (a, b)
-testdata/Prelude.lc 32:22-32:24  {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  {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  {a} -> a -> List a -> List a
-testdata/Prelude.lc 34:30-34:33  {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 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_ | {a} -> {b} -> List (a, b) -> (List a, List b)
+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: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: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  {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  {a} -> List a
-testdata/Prelude.lc 37:16-37:18  ((List a_)) | {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  {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  {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  {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  {a} -> (a->Bool) -> List a -> List a
-testdata/Prelude.lc 41:21-41:23  {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  {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 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: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  {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 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: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  {a} -> List a -> List (a, a)
-testdata/Prelude.lc 53:11-53:14  {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  {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  {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  {a} -> (a -> a->a) -> List a -> a
-testdata/Prelude.lc 58:20-58:25  {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  {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  {a} -> List a
-testdata/Prelude.lc 60:17-60:19  ((List a_)) | {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  {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  {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  {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  {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  {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  {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  {a} -> (a -> a->Ordering) -> List a -> List a
-testdata/Prelude.lc 69:15-69:17  {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  {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  {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  {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  {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 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_ | {a} -> (a->a) -> a -> List a
-testdata/Prelude.lc 73:13-73:14  b_
+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  {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  {a} -> a -> List a -> List a
-testdata/Prelude.lc 74:20-74:27  {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  {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  {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 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 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: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 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
@@ -449,48 +449,48 @@ 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 | {a : List RecItem} -> HList ('map RecItem Type 'recItemType a) -> RecordC a
+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  {a} -> {b} -> (a->b) -> List a -> List b
+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: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: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: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: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  {a} -> {_ : Eq a} -> a -> a->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: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  {a} -> a -> a->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: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  {a} -> {b : List Type} -> HList ('Cons a b) -> a
-testdata/Prelude.lc 132:10-132:23  {a} -> {b : List Type} -> (c:Type) -> (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  {a} -> {b : List Type} -> HList ('Cons a b) -> HList b
-testdata/Prelude.lc 133:10-133:23  {a} -> {b : List Type} -> (c:Type) -> (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_ | {a} -> {b : List RecItem} -> (c:String) -> {_ : 'isKeyC c a b} -> RecordC b -> a
+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) . (c :: Type) -> (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) . (c :: Type) -> (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) . (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
@@ -502,50 +502,50 @@ 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: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  {a} -> {b : List RecItem} -> (c:String) -> {_ : 'isKeyC c a b} -> RecordC b -> a
+testdata/Prelude.lc 137:1-137:8  forall a (b :: List RecItem) . (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:61  String -> Bool
 testdata/Prelude.lc 137:57-137:64  Bool
-testdata/Prelude.lc 137:57-138:181  (a:String) -> {_ : 'isKeyC a b_ a_} -> RecordC a_ -> b_ | 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_ | {_ : 'isKeyC a_ c_ b_} -> RecordC b_ -> c_ | {a : List RecItem} -> (b:String) -> {_ : 'isKeyC b a_ a} -> RecordC a -> a_ | {a} -> {b : List RecItem} -> (c:String) -> {_ : 'isKeyC c a b} -> RecordC b -> a
-testdata/Prelude.lc 137:59-137:61  {a} -> {_ : Eq a} -> a -> a->Bool
+testdata/Prelude.lc 137:57-138:181  'isKeyC _a _c _b => RecordC _b -> _c | (a :: String) -> 'isKeyC a _b _a => RecordC _a -> _b | 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) . (b :: String) -> 'isKeyC b _a a => RecordC a -> _a | forall a (b :: List RecItem) . (c :: String) -> 'isKeyC c a b => RecordC b -> a
+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  {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  {a} -> {b} -> a->b
-testdata/Prelude.lc 137:75-137:90  {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: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  {a} -> a -> List a -> List a
-testdata/Prelude.lc 137:105-137:108  {a} -> {b} -> (a->b) -> List a -> List b
+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: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  {a} -> {b : List RecItem} -> (c:String) -> {_ : 'isKeyC c a b} -> RecordC b -> a
-testdata/Prelude.lc 138:57-138:67  {a : List RecItem} -> (b:String) -> {_ : 'isKeyC b p_ a} -> RecordC a -> p_
-testdata/Prelude.lc 138:57-138:71  (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 137:126-137:128  HList ('map RecItem Type 'recItemType _d)
+testdata/Prelude.lc 138:57-138:64  forall a (b :: List RecItem) . (c :: String) -> 'isKeyC c a b => RecordC b -> a
+testdata/Prelude.lc 138:57-138:67  forall (a :: List RecItem) . (b :: String) -> 'isKeyC b _p a => RecordC a -> _p
+testdata/Prelude.lc 138:57-138:71  (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:69-138:71  List _k
 testdata/Prelude.lc 138:72-138:73  String
-testdata/Prelude.lc 138:76-138:85  {a}->a
-testdata/Prelude.lc 138:76-138:102  'isKeyC m_ o_ h_
+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
@@ -553,35 +553,35 @@ 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  {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  {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  {a} -> {b} -> a->b
-testdata/Prelude.lc 138:125-138:140  {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: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  {a} -> a -> List a -> List a
-testdata/Prelude.lc 138:155-138:158  {a} -> {b} -> (a->b) -> List a -> List b
+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: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 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  {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: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: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
@@ -711,30 +711,30 @@ 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  {a:Nat} -> {b} -> {c} -> {_ : Num b} -> {_ : c ~ VecScalar a b} -> c -> Image 1 ('Color c)
-testdata/Prelude.lc 161:15-161:25  {a:Nat} -> {b:Nat} -> {c} -> {d} -> {_ : Num c} -> {_ : d ~ VecScalar b c} -> d -> Image a ('Color d)
-testdata/Prelude.lc 161:15-161:28  {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  {a:Nat} -> {b} -> {c} -> {_ : Num b} -> {_ : c ~ VecScalar a b} -> c -> Image 2 ('Color c)
-testdata/Prelude.lc 162:15-162:25  {a:Nat} -> {b:Nat} -> {c} -> {d} -> {_ : Num c} -> {_ : d ~ VecScalar b c} -> d -> Image a ('Color d)
-testdata/Prelude.lc 162:15-162:28  {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 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  {a:Nat} -> Float -> Image a '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 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: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: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: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  {a} -> a -> a -> a -> a -> VecS a 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
@@ -745,303 +745,303 @@ 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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 174:11-174:22  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 175:1-175:8  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 175:11-175:22  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 176:1-176:4  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 176:7-176:14  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 177:1-177:4  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 177:7-177:14  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 178:1-178:4  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 178:7-178:14  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 179:1-179:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 179:8-179:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 180:1-180:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 180:8-180:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 181:1-181:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 181:8-181:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 182:1-182:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 182:8-182:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 183:1-183:6  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 183:9-183:18  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 184:1-184:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 184:8-184:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 185:1-185:6  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 185:9-185:18  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 186:1-186:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 186:8-186:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 187:1-187:6  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 187:9-187:18  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 188:1-188:6  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->a
-testdata/Prelude.lc 188:9-188:18  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->a
-testdata/Prelude.lc 191:1-191:4  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->a
-testdata/Prelude.lc 191:7-191:14  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->a
-testdata/Prelude.lc 192:1-192:4  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 192:7-192:14  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 193:1-193:4  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 193:7-193:14  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 194:1-194:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 194:8-194:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 195:1-195:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 195:8-195:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 196:1-196:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 196:8-196:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 197:1-197:12  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 197:15-197:26  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 200:1-200:4  {a} -> {b} -> {c:Nat} -> {_ : Signed a} -> {_ : b ~ VecScalar c a} -> b->b
-testdata/Prelude.lc 200:7-200:14  {a} -> {b} -> {c:Nat} -> {_ : Signed a} -> {_ : b ~ VecScalar c a} -> b->b
-testdata/Prelude.lc 201:1-201:5  {a} -> {b} -> {c:Nat} -> {_ : Signed a} -> {_ : b ~ VecScalar c a} -> b->b
-testdata/Prelude.lc 201:8-201:16  {a} -> {b} -> {c:Nat} -> {_ : Signed a} -> {_ : b ~ VecScalar c a} -> b->b
-testdata/Prelude.lc 202:1-202:6  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 202:9-202:18  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 203:1-203:6  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 203:9-203:18  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 204:1-204:6  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 204:9-204:18  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 205:1-205:10  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 205:13-205:26  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 206:1-206:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 206:8-206:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 207:1-207:6  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 207:9-207:18  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 208:1-208:4  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 208:7-208:14  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 209:1-209:4  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 209:7-209:14  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 210:1-210:4  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 210:7-210:14  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 211:1-211:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->(a, a)
-testdata/Prelude.lc 211:8-211:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->(a, a)
-testdata/Prelude.lc 212:1-212:6  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b -> b->b
-testdata/Prelude.lc 212:9-212:18  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> b -> b->b
-testdata/Prelude.lc 213:1-213:7  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> a -> a->b
-testdata/Prelude.lc 213:10-213:20  {a} -> {b} -> {c:Nat} -> {_ : Num a} -> {_ : b ~ VecScalar c a} -> b -> a -> a->b
-testdata/Prelude.lc 214:1-214:4  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> a->a
-testdata/Prelude.lc 214:7-214:14  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> a->a
-testdata/Prelude.lc 215:1-215:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> Float->a
-testdata/Prelude.lc 215:8-215:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> Float->a
-testdata/Prelude.lc 216:1-216:5  {a} -> {b:Nat} -> {c} -> {_ : a ~ VecScalar b Float} -> {_ : c ~ VecScalar b Bool} -> a -> a -> c->a
-testdata/Prelude.lc 216:8-216:16  {a} -> {b:Nat} -> {c} -> {_ : a ~ VecScalar b Float} -> {_ : c ~ VecScalar b Bool} -> a -> a -> c->a
-testdata/Prelude.lc 217:1-217:5  {a} -> {b:Nat} -> {_ : a ~ VecS Float b} -> a -> a->a
-testdata/Prelude.lc 217:8-217:16  {a} -> {b:Nat} -> {_ : a ~ VecS Float b} -> a -> a->a
-testdata/Prelude.lc 218:1-218:6  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> Float -> a->a
-testdata/Prelude.lc 218:9-218:18  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> Float -> a->a
-testdata/Prelude.lc 219:1-219:11  {a} -> {b:Nat} -> {_ : a ~ VecS Float b} -> a -> a -> a->a
-testdata/Prelude.lc 219:14-219:28  {a} -> {b:Nat} -> {_ : a ~ VecS Float b} -> a -> a -> a->a
-testdata/Prelude.lc 220:1-220:12  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> Float -> Float -> a->a
-testdata/Prelude.lc 220:15-220:30  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> Float -> Float -> a->a
-testdata/Prelude.lc 221:1-221:6  {a} -> {b:Nat} -> {c} -> {_ : a ~ VecScalar b Float} -> {_ : c ~ VecScalar b Bool} -> a->c
-testdata/Prelude.lc 221:9-221:18  {a} -> {b:Nat} -> {c} -> {_ : a ~ VecScalar b Float} -> {_ : c ~ VecScalar b Bool} -> a->c
-testdata/Prelude.lc 222:1-222:6  {a} -> {b:Nat} -> {c} -> {_ : a ~ VecScalar b Float} -> {_ : c ~ VecScalar b Bool} -> a->c
-testdata/Prelude.lc 222:9-222:18  {a} -> {b:Nat} -> {c} -> {_ : a ~ VecScalar b Float} -> {_ : c ~ VecScalar b Bool} -> a->c
-testdata/Prelude.lc 224:1-224:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 224:8-224:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 225:1-225:5  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 225:8-225:16  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 226:1-226:7  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 226:10-226:20  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 228:1-228:7  {a:Nat} -> VecScalar a Float -> Float
-testdata/Prelude.lc 228:10-228:20  {a:Nat} -> VecScalar a Float -> Float
-testdata/Prelude.lc 229:1-229:7  {a:Nat} -> VecScalar a Float -> Vec 2 Float
-testdata/Prelude.lc 229:10-229:20  {a:Nat} -> VecScalar a Float -> Vec 2 Float
-testdata/Prelude.lc 230:1-230:7  {a:Nat} -> VecScalar a Float -> Vec 3 Float
-testdata/Prelude.lc 230:10-230:20  {a:Nat} -> VecScalar a Float -> Vec 3 Float
-testdata/Prelude.lc 231:1-231:7  {a:Nat} -> VecScalar a Float -> Vec 4 Float
-testdata/Prelude.lc 231:10-231:20  {a:Nat} -> VecScalar a Float -> Vec 4 Float
-testdata/Prelude.lc 234:1-234:7  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->Float
-testdata/Prelude.lc 234:10-234:20  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->Float
-testdata/Prelude.lc 235:1-235:9  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->Float
-testdata/Prelude.lc 235:12-235:24  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->Float
-testdata/Prelude.lc 236:1-236:4  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->Float
-testdata/Prelude.lc 236:7-236:14  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->Float
-testdata/Prelude.lc 237:1-237:6  {a} -> {_ : a ~ VecS Float 3} -> a -> a->a
-testdata/Prelude.lc 237:9-237:18  {a} -> {_ : a ~ VecS Float 3} -> a -> a->a
-testdata/Prelude.lc 238:1-238:10  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 238:13-238:26  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
-testdata/Prelude.lc 239:1-239:12  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> a->a
-testdata/Prelude.lc 239:15-239:30  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> a->a
-testdata/Prelude.lc 240:1-240:8  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->a
-testdata/Prelude.lc 240:11-240:22  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a->a
-testdata/Prelude.lc 241:1-241:8  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> a->a
-testdata/Prelude.lc 241:11-241:22  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a -> a -> a->a
-testdata/Prelude.lc 243:1-243:10  {a:Nat} -> {b:Nat} -> {c} -> Mat a b c -> Mat b a c
-testdata/Prelude.lc 243:13-243:26  {a:Nat} -> {b:Nat} -> {c} -> Mat a b c -> Mat b a c
-testdata/Prelude.lc 244:1-244:4  {a:Nat} -> {b} -> Mat a a b -> Float
-testdata/Prelude.lc 244:7-244:22  {a:Nat} -> {b} -> Mat a a b -> Float
-testdata/Prelude.lc 245:1-245:4  {a:Nat} -> {b} -> Mat a a b -> Mat a a b
-testdata/Prelude.lc 245:7-245:18  {a:Nat} -> {b} -> Mat a a b -> Mat a a b
-testdata/Prelude.lc 246:1-246:6  {a:Nat} -> {b} -> {c:Nat} -> Vec a b -> Vec c b -> Mat c a b
-testdata/Prelude.lc 246:9-246:25  {a:Nat} -> {b} -> {c:Nat} -> Vec a b -> Vec c b -> Mat c a b
-testdata/Prelude.lc 248:1-248:5  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 248:11-248:19  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 249:1-249:4  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 249:11-249:18  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 250:1-250:5  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 250:11-250:19  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> b->b
-testdata/Prelude.lc 251:1-251:5  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b->b
-testdata/Prelude.lc 251:11-251:19  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b->b
-testdata/Prelude.lc 252:1-252:6  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> a->b
-testdata/Prelude.lc 252:11-252:20  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> a->b
-testdata/Prelude.lc 253:1-253:5  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> a->b
-testdata/Prelude.lc 253:11-253:19  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> a->b
-testdata/Prelude.lc 254:1-254:6  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> a->b
-testdata/Prelude.lc 254:11-254:20  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> a->b
-testdata/Prelude.lc 255:1-255:7  {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  {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  {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  {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  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> Word->b
-testdata/Prelude.lc 257:11-257:23  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> Word->b
-testdata/Prelude.lc 258:1-258:8  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> Word->b
-testdata/Prelude.lc 258:11-258:23  {a} -> {b} -> {c:Nat} -> {_ : Integral a} -> {_ : b ~ VecScalar c a} -> b -> Word->b
-testdata/Prelude.lc 260:1-260:15  {a:Nat} -> VecScalar a Float -> VecScalar a Int
-testdata/Prelude.lc 260:19-260:37  {a:Nat} -> VecScalar a Float -> VecScalar a Int
-testdata/Prelude.lc 261:1-261:16  {a:Nat} -> VecScalar a Float -> VecScalar a Word
-testdata/Prelude.lc 261:19-261:38  {a:Nat} -> VecScalar a Float -> VecScalar a Word
-testdata/Prelude.lc 262:1-262:15  {a:Nat} -> VecScalar a Int -> VecScalar a Float
-testdata/Prelude.lc 262:19-262:37  {a:Nat} -> VecScalar a Int -> VecScalar a Float
-testdata/Prelude.lc 263:1-263:16  {a:Nat} -> VecScalar a Word -> VecScalar a Float
-testdata/Prelude.lc 263:19-263:38  {a:Nat} -> VecScalar a Word -> VecScalar a Float
-testdata/Prelude.lc 281:3-281:4  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/Prelude.lc 281:9-281:16  {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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/Prelude.lc 282:9-282:16  {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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/Prelude.lc 283:9-283:16  {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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 284:9-284:16  {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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
-testdata/Prelude.lc 285:9-285:16  {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  {a} -> {_ : Signed (MatVecScalarElem a)} -> a->a
-testdata/Prelude.lc 287:9-287:16  {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  {a} -> a -> a->Bool
-testdata/Prelude.lc 291:10-291:22  {a} -> {b} -> {_ : b ~ MatVecScalarElem a} -> a -> a->Bool
-testdata/Prelude.lc 291:10-291:24  d_->Bool
+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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/Prelude.lc 292:9-292:21  {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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/Prelude.lc 293:10-293:27  {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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/Prelude.lc 294:10-294:30  {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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a Bool
-testdata/Prelude.lc 295:9-295:24  {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 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 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  {a:Nat} -> VecScalar a Bool -> VecScalar a Bool
-testdata/Prelude.lc 301:9-301:16  {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  {a:Nat} -> VecScalar a Bool -> Bool
-testdata/Prelude.lc 302:9-302:16  {a:Nat} -> VecScalar a Bool -> 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  {a:Nat} -> VecScalar a Bool -> Bool
-testdata/Prelude.lc 303:9-303:16  {a:Nat} -> VecScalar a Bool -> 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  {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  {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  {a:Nat} -> {b:Nat} -> {c} -> Mat a b c -> VecS c b -> Vec a c
-testdata/Prelude.lc 307:10-307:23  {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  {a:Nat} -> {b} -> {c:Nat} -> VecS b a -> Mat a c b -> Vec c b
-testdata/Prelude.lc 308:10-308:23  {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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> MatVecScalarElem a -> a
-testdata/Prelude.lc 315:10-315:18  {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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> MatVecScalarElem a -> a
-testdata/Prelude.lc 316:10-316:18  {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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> MatVecScalarElem a -> a
-testdata/Prelude.lc 317:10-317:18  {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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> a -> VecScalar b a
-testdata/Prelude.lc 318:10-318:18  {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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> a -> VecScalar b a
-testdata/Prelude.lc 319:10-319:18  {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 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
@@ -1049,12 +1049,12 @@ 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: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: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
@@ -1063,49 +1063,49 @@ 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  {a} -> a -> a -> a -> a -> VecS a 4
+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: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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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:22  Float -> Float
 testdata/Prelude.lc 332:20-332:23  Float
-testdata/Prelude.lc 332:21-332:22  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> a -> a -> a -> a -> VecS a 4
-testdata/Prelude.lc 333:11-333:15  b_ -> b_ -> b_ -> VecS b_ 4
+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: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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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:36  Float -> Float
 testdata/Prelude.lc 333:34-333:37  Float
-testdata/Prelude.lc 333:35-333:36  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> a -> a -> a -> a -> VecS a 4
+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
@@ -1113,94 +1113,94 @@ 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:18  Float -> Float
 testdata/Prelude.lc 334:16-334:19  Float
-testdata/Prelude.lc 334:17-334:18  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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:24  Float -> Float
 testdata/Prelude.lc 334:22-334:25  Float
-testdata/Prelude.lc 334:23-334:24  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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:32  Float -> Float
 testdata/Prelude.lc 334:30-334:33  Float
-testdata/Prelude.lc 334:31-334:32  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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:38  Float -> Float
 testdata/Prelude.lc 334:36-334:39  Float
-testdata/Prelude.lc 334:37-334:38  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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:47  Float -> Float
 testdata/Prelude.lc 334:45-334:48  Float
-testdata/Prelude.lc 334:46-334:47  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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:53  Float -> Float
 testdata/Prelude.lc 334:51-334:54  Float
-testdata/Prelude.lc 334:52-334:53  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {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 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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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: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: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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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:53  Float -> Float
 testdata/Prelude.lc 335:51-335:54  Float
-testdata/Prelude.lc 335:52-335:53  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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 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:11  Float -> Float
 testdata/Prelude.lc 337:9-337:22  Float
-testdata/Prelude.lc 337:10-337:11  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/Prelude.lc 337:11-337:14  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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  {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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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:16  Float -> Float
 testdata/Prelude.lc 339:9-339:17  Float
-testdata/Prelude.lc 339:15-339:16  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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
@@ -1209,177 +1209,177 @@ testdata/Prelude.lc 342:16-342:33  Vec 4 Float -> Vec 4 Float -> Vec 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  {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: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  {a} -> a -> a -> a -> a -> VecS a 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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {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: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  {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: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  {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  {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 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  {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: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  {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  {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: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  {a} -> a -> a -> a -> a -> VecS a 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: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  {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: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  {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  {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 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  {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: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  {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: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  {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: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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {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: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  {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  {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 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: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: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  {a:Nat} -> {b:Nat} -> {c} -> {d:Nat} -> Mat a b c -> Mat b d c -> Mat a d c
+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  {a:Nat} -> {b:Nat} -> {c} -> {d:Nat} -> Mat a b c -> Mat b d c -> Mat a d c
+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 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: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: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: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
@@ -1388,38 +1388,38 @@ 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  {a} -> {_ : Num a} -> VecS a 4
-testdata/Prelude.lc 360:30-360:32  {a} -> {_ : Num a} -> VecS a 4
-testdata/Prelude.lc 360:33-360:35  {a} -> {_ : Num a} -> VecS a 4
+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  {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  {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  {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  {a} -> a -> a -> a -> a -> VecS a 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
@@ -1430,120 +1430,120 @@ 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 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: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: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: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: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: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: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: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: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  {a:Nat} -> {b:Nat} -> {c} -> {d:Nat} -> Mat a b c -> Mat b d c -> Mat a d c
+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  {a} -> {_ : Signed (MatVecScalarElem a)} -> a->a
+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  {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  {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 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  {a} -> {b} -> (a->b) -> a->b
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {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: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  {a} -> {b} -> (a->b) -> a->b
+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  {a} -> {_ : a ~ VecS Float 3} -> a -> a->a
+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  {a} -> {_ : a ~ VecS Float 3} -> a -> a->a
+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  {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: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  {a} -> {b} -> (a->b) -> a->b
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecS a b -> VecS a 4
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecS a b -> VecS a 4
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecS a b -> VecS a 4
+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  {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: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 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: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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/Prelude.lc 380:17-380:19  {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: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: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: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
@@ -1553,42 +1553,42 @@ 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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a Bool
+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  {a} -> List a
+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  {a} -> a -> List a -> List a
+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:33  Float -> Float
 testdata/Prelude.lc 385:30-385:35  Float
-testdata/Prelude.lc 385:32-385:33  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/Prelude.lc 385:34-385:35  b_
+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_ | {a} -> List a -> Int->a
-testdata/Prelude.lc 387:10-387:11  b_
+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  {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  {a} -> List a -> Int->a
+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:28  Int -> Int
 testdata/Prelude.lc 389:26-389:29  Int
-testdata/Prelude.lc 389:27-389:28  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/Prelude.lc 389:28-389:29  b_
+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
diff --git a/testdata/SampleMaterial.out b/testdata/SampleMaterial.out
index 878fd833..04076a28 100644
--- a/testdata/SampleMaterial.out
+++ b/testdata/SampleMaterial.out
@@ -6,68 +6,68 @@ testdata/SampleMaterial.lc 3:1-3:15  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 4:3-2183:4  List (String, CommonAttrs)
 testdata/SampleMaterial.lc 4:5-46:6  (String, CommonAttrs)
 testdata/SampleMaterial.lc 4:7-4:40  String
-testdata/SampleMaterial.lc 5:7-5:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/SampleMaterial.lc 5:7-6:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/SampleMaterial.lc 5:7-7:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/SampleMaterial.lc 5:7-8:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/SampleMaterial.lc 5:7-9:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/SampleMaterial.lc 5:7-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-5:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-6:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-7:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-8:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-9:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-10:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-11:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 5:7-12:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 13:30-13:32  forall a . List a
 testdata/SampleMaterial.lc 14:25-14:30  Bool
 testdata/SampleMaterial.lc 15:29-15:34  Bool
 testdata/SampleMaterial.lc 17:13-43:14  List StageAttrs
-testdata/SampleMaterial.lc 17:15-17:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 17:15-18:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 17:15-19:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 17:15-20:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 17:15-21:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 17:15-22:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 17:15-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-17:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-18:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-19:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-20:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-21:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-22:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-23:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-24:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 17:15-25:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 23:31-23:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 26:33-26:40  forall a . Maybe a
 testdata/SampleMaterial.lc 27:41-27:46  Bool
 testdata/SampleMaterial.lc 28:38-28:54  String
-testdata/SampleMaterial.lc 30:15-30:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 30:15-31:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 30:15-32:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 30:15-33:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 30:15-34:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 30:15-35:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 30:15-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-30:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-31:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-32:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-33:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-34:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-35:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-36:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-37:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 30:15-38:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -75,79 +75,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-48:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-49:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-50:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-51:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-52:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-53:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-54:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 48:7-55:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 56:30-56:32  forall a . List a
 testdata/SampleMaterial.lc 57:25-57:30  Bool
 testdata/SampleMaterial.lc 58:29-58:34  Bool
 testdata/SampleMaterial.lc 60:13-86:14  List StageAttrs
-testdata/SampleMaterial.lc 60:15-60:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 60:15-61:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 60:15-62:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 60:15-63:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 60:15-64:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 60:15-65:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 60:15-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-60:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-61:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-62:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-63:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-64:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-65:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-66:70  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-67:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 60:15-68:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 66:31-66:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 69:33-69:40  forall a . Maybe a
 testdata/SampleMaterial.lc 70:41-70:46  Bool
 testdata/SampleMaterial.lc 71:38-71:54  String
-testdata/SampleMaterial.lc 73:15-73:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 73:15-74:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 73:15-75:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 73:15-76:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 73:15-77:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 73:15-78:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 73:15-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-73:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-74:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-75:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-76:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-77:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-78:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-79:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-80:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 73:15-81:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -155,79 +155,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-91:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-92:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-93:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-94:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-95:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-96:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-97:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 91:7-98:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 99:30-99:32  forall a . List a
 testdata/SampleMaterial.lc 100:25-100:30  Bool
 testdata/SampleMaterial.lc 101:29-101:34  Bool
 testdata/SampleMaterial.lc 103:13-129:14  List StageAttrs
-testdata/SampleMaterial.lc 103:15-103:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 103:15-104:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 103:15-105:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 103:15-106:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 103:15-107:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 103:15-108:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 103:15-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-103:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-104:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-105:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-106:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-107:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-108:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-109:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-110:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 103:15-111:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 109:31-109:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 112:33-112:40  forall a . Maybe a
 testdata/SampleMaterial.lc 113:41-113:46  Bool
 testdata/SampleMaterial.lc 114:38-114:54  String
-testdata/SampleMaterial.lc 116:15-116:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 116:15-117:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 116:15-118:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 116:15-119:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 116:15-120:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 116:15-121:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 116:15-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-116:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-117:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-118:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-119:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-120:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-121:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-122:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-123:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 116:15-124:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -235,79 +235,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-134:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-135:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-136:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-137:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-138:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-139:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-140:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 134:7-141:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 142:30-142:32  forall a . List a
 testdata/SampleMaterial.lc 143:25-143:30  Bool
 testdata/SampleMaterial.lc 144:29-144:34  Bool
 testdata/SampleMaterial.lc 146:13-172:14  List StageAttrs
-testdata/SampleMaterial.lc 146:15-146:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 146:15-147:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 146:15-148:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 146:15-149:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 146:15-150:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 146:15-151:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 146:15-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-146:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-147:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-148:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-149:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-150:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-151:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-152:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-153:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 146:15-154:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 152:31-152:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 155:33-155:40  forall a . Maybe a
 testdata/SampleMaterial.lc 156:41-156:46  Bool
 testdata/SampleMaterial.lc 157:38-157:54  String
-testdata/SampleMaterial.lc 159:15-159:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 159:15-160:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 159:15-161:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 159:15-162:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 159:15-163:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 159:15-164:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 159:15-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-159:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-160:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-161:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-162:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-163:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-164:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-165:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-166:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 159:15-167:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -315,100 +315,100 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-177:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-178:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-179:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-180:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-181:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-182:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-183:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 177:7-184:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 185:30-185:32  forall a . List a
 testdata/SampleMaterial.lc 186:25-186:30  Bool
 testdata/SampleMaterial.lc 187:29-187:34  Bool
 testdata/SampleMaterial.lc 189:13-229:14  List StageAttrs
-testdata/SampleMaterial.lc 189:15-189:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 189:15-190:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 189:15-191:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 189:15-192:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 189:15-193:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 189:15-195:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 189:15-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-189:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-190:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-191:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-192:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-193:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-195:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-196:66  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-197:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 189:15-198:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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: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: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: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: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  {a} -> Maybe a
+testdata/SampleMaterial.lc 199:33-199:40  forall a . Maybe a
 testdata/SampleMaterial.lc 200:41-200:46  Bool
 testdata/SampleMaterial.lc 201:38-201:52  String
-testdata/SampleMaterial.lc 203:15-203:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 203:15-204:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 203:15-205:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 203:15-206:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 203:15-207:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 203:15-208:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 203:15-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-203:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-204:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-205:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-206:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-207:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-208:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-209:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-210:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 203:15-211:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -416,28 +416,28 @@ 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  {a} -> List a
-testdata/SampleMaterial.lc 209:31-209:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 212:33-212:40  forall a . Maybe a
 testdata/SampleMaterial.lc 213:41-213:46  Bool
 testdata/SampleMaterial.lc 214:38-214:54  String
-testdata/SampleMaterial.lc 216:15-216:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 216:15-217:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 216:15-218:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 216:15-219:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 216:15-220:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 216:15-221:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 216:15-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-216:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-217:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-218:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-219:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-220:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-221:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-222:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-223:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 216:15-224:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -445,79 +445,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-234:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-235:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-236:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-237:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-238:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-239:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-240:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 234:7-241:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 242:30-242:32  forall a . List a
 testdata/SampleMaterial.lc 243:25-243:30  Bool
 testdata/SampleMaterial.lc 244:29-244:34  Bool
 testdata/SampleMaterial.lc 246:13-272:14  List StageAttrs
-testdata/SampleMaterial.lc 246:15-246:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 246:15-247:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 246:15-248:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 246:15-249:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 246:15-250:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 246:15-251:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 246:15-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-246:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-247:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-248:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-249:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-250:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-251:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-252:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-253:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 246:15-254:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 252:31-252:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 255:33-255:40  forall a . Maybe a
 testdata/SampleMaterial.lc 256:41-256:46  Bool
 testdata/SampleMaterial.lc 257:38-257:54  String
-testdata/SampleMaterial.lc 259:15-259:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 259:15-260:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 259:15-261:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 259:15-262:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 259:15-263:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 259:15-264:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 259:15-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-259:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-260:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-261:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-262:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-263:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-264:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-265:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-266:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 259:15-267:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -525,79 +525,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-277:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-278:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-279:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-280:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-281:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-282:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-283:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 277:7-284:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 285:30-285:32  forall a . List a
 testdata/SampleMaterial.lc 286:25-286:30  Bool
 testdata/SampleMaterial.lc 287:29-287:34  Bool
 testdata/SampleMaterial.lc 289:13-315:14  List StageAttrs
-testdata/SampleMaterial.lc 289:15-289:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 289:15-290:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 289:15-291:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 289:15-292:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 289:15-293:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 289:15-294:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 289:15-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-289:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-290:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-291:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-292:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-293:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-294:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-295:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-296:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 289:15-297:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 295:31-295:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 298:33-298:40  forall a . Maybe a
 testdata/SampleMaterial.lc 299:41-299:46  Bool
 testdata/SampleMaterial.lc 300:38-300:53  String
-testdata/SampleMaterial.lc 302:15-302:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 302:15-303:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 302:15-304:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 302:15-305:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 302:15-306:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 302:15-307:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 302:15-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-302:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-303:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-304:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-305:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-306:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-307:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-308:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-309:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 302:15-310:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -605,79 +605,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-320:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-321:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-322:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-323:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-324:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-325:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-326:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 320:7-327:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 328:30-328:32  forall a . List a
 testdata/SampleMaterial.lc 329:25-329:30  Bool
 testdata/SampleMaterial.lc 330:29-330:34  Bool
 testdata/SampleMaterial.lc 332:13-358:14  List StageAttrs
-testdata/SampleMaterial.lc 332:15-332:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 332:15-333:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 332:15-334:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 332:15-335:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 332:15-336:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 332:15-337:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 332:15-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-332:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-333:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-334:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-335:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-336:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-337:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-338:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-339:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 332:15-340:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 338:31-338:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 341:33-341:40  forall a . Maybe a
 testdata/SampleMaterial.lc 342:41-342:46  Bool
 testdata/SampleMaterial.lc 343:38-343:54  String
-testdata/SampleMaterial.lc 345:15-345:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 345:15-346:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 345:15-347:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 345:15-348:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 345:15-349:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 345:15-350:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 345:15-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-345:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-346:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-347:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-348:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-349:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-350:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-351:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-352:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 345:15-353:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -685,79 +685,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-363:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-364:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-365:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-366:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-367:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-368:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-369:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 363:7-370:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 371:30-371:32  forall a . List a
 testdata/SampleMaterial.lc 372:25-372:30  Bool
 testdata/SampleMaterial.lc 373:29-373:34  Bool
 testdata/SampleMaterial.lc 375:13-401:14  List StageAttrs
-testdata/SampleMaterial.lc 375:15-375:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 375:15-376:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 375:15-377:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 375:15-378:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 375:15-379:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 375:15-380:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 375:15-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-375:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-376:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-377:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-378:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-379:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-380:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-381:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-382:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 375:15-383:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 381:31-381:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 384:33-384:40  forall a . Maybe a
 testdata/SampleMaterial.lc 385:41-385:46  Bool
 testdata/SampleMaterial.lc 386:38-386:54  String
-testdata/SampleMaterial.lc 388:15-388:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 388:15-389:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 388:15-390:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 388:15-391:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 388:15-392:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 388:15-393:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 388:15-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-388:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-389:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-390:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-391:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-392:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-393:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-394:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-395:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 388:15-396:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -765,79 +765,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-406:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-407:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-408:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-409:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-410:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-411:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-412:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 406:7-413:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 414:30-414:32  forall a . List a
 testdata/SampleMaterial.lc 415:25-415:30  Bool
 testdata/SampleMaterial.lc 416:29-416:34  Bool
 testdata/SampleMaterial.lc 418:13-444:14  List StageAttrs
-testdata/SampleMaterial.lc 418:15-418:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 418:15-419:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 418:15-420:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 418:15-421:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 418:15-422:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 418:15-423:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 418:15-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-418:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-419:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-420:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-421:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-422:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-423:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-424:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-425:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 418:15-426:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 424:31-424:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 427:33-427:40  forall a . Maybe a
 testdata/SampleMaterial.lc 428:41-428:46  Bool
 testdata/SampleMaterial.lc 429:38-429:54  String
-testdata/SampleMaterial.lc 431:15-431:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 431:15-432:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 431:15-433:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 431:15-434:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 431:15-435:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 431:15-436:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 431:15-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-431:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-432:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-433:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-434:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-435:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-436:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-437:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-438:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 431:15-439:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -845,79 +845,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-449:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-450:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-451:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-452:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-453:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-454:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-455:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 449:7-456:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 457:30-457:32  forall a . List a
 testdata/SampleMaterial.lc 458:25-458:30  Bool
 testdata/SampleMaterial.lc 459:29-459:34  Bool
 testdata/SampleMaterial.lc 461:13-487:14  List StageAttrs
-testdata/SampleMaterial.lc 461:15-461:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 461:15-462:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 461:15-463:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 461:15-464:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 461:15-465:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 461:15-466:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 461:15-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-461:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-462:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-463:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-464:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-465:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-466:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-467:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-468:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 461:15-469:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 467:31-467:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 470:33-470:40  forall a . Maybe a
 testdata/SampleMaterial.lc 471:41-471:46  Bool
 testdata/SampleMaterial.lc 472:38-472:54  String
-testdata/SampleMaterial.lc 474:15-474:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 474:15-475:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 474:15-476:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 474:15-477:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 474:15-478:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 474:15-479:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 474:15-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-474:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-475:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-476:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-477:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-478:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-479:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-480:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-481:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 474:15-482:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -925,79 +925,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-492:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-493:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-494:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-495:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-496:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-497:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-498:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 492:7-499:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 500:30-500:32  forall a . List a
 testdata/SampleMaterial.lc 501:25-501:30  Bool
 testdata/SampleMaterial.lc 502:29-502:34  Bool
 testdata/SampleMaterial.lc 504:13-530:14  List StageAttrs
-testdata/SampleMaterial.lc 504:15-504:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 504:15-505:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 504:15-506:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 504:15-507:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 504:15-508:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 504:15-509:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 504:15-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-504:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-505:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-506:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-507:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-508:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-509:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-510:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-511:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 504:15-512:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 510:31-510:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 513:33-513:40  forall a . Maybe a
 testdata/SampleMaterial.lc 514:41-514:46  Bool
 testdata/SampleMaterial.lc 515:38-515:54  String
-testdata/SampleMaterial.lc 517:15-517:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 517:15-518:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 517:15-519:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 517:15-520:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 517:15-521:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 517:15-522:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 517:15-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-517:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-518:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-519:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-520:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-521:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-522:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-523:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-524:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 517:15-525:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1005,79 +1005,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-535:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-536:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-537:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-538:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-539:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-540:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-541:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 535:7-542:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 543:30-543:32  forall a . List a
 testdata/SampleMaterial.lc 544:25-544:30  Bool
 testdata/SampleMaterial.lc 545:29-545:34  Bool
 testdata/SampleMaterial.lc 547:13-573:14  List StageAttrs
-testdata/SampleMaterial.lc 547:15-547:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 547:15-548:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 547:15-549:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 547:15-550:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 547:15-551:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 547:15-552:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 547:15-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-547:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-548:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-549:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-550:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-551:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-552:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-553:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-554:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 547:15-555:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 553:31-553:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 556:33-556:40  forall a . Maybe a
 testdata/SampleMaterial.lc 557:41-557:46  Bool
 testdata/SampleMaterial.lc 558:38-558:54  String
-testdata/SampleMaterial.lc 560:15-560:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 560:15-561:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 560:15-562:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 560:15-563:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 560:15-564:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 560:15-565:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 560:15-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-560:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-561:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-562:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-563:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-564:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-565:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-566:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-567:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 560:15-568:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1085,79 +1085,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-578:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-579:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-580:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-581:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-582:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-583:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-584:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 578:7-585:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 586:30-586:32  forall a . List a
 testdata/SampleMaterial.lc 587:25-587:30  Bool
 testdata/SampleMaterial.lc 588:29-588:34  Bool
 testdata/SampleMaterial.lc 590:13-616:14  List StageAttrs
-testdata/SampleMaterial.lc 590:15-590:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 590:15-591:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 590:15-592:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 590:15-593:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 590:15-594:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 590:15-595:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 590:15-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-590:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-591:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-592:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-593:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-594:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-595:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-596:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-597:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 590:15-598:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 596:31-596:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 599:33-599:40  forall a . Maybe a
 testdata/SampleMaterial.lc 600:41-600:46  Bool
 testdata/SampleMaterial.lc 601:38-601:54  String
-testdata/SampleMaterial.lc 603:15-603:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 603:15-604:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 603:15-605:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 603:15-606:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 603:15-607:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 603:15-608:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 603:15-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-603:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-604:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-605:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-606:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-607:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-608:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-609:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-610:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 603:15-611:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1165,79 +1165,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-621:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-622:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-623:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-624:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-625:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-626:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-627:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 621:7-628:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 629:30-629:32  forall a . List a
 testdata/SampleMaterial.lc 630:25-630:30  Bool
 testdata/SampleMaterial.lc 631:29-631:34  Bool
 testdata/SampleMaterial.lc 633:13-659:14  List StageAttrs
-testdata/SampleMaterial.lc 633:15-633:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 633:15-634:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 633:15-635:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 633:15-636:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 633:15-637:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 633:15-638:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 633:15-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-633:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-634:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-635:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-636:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-637:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-638:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-639:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-640:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 633:15-641:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 639:31-639:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 642:33-642:40  forall a . Maybe a
 testdata/SampleMaterial.lc 643:41-643:46  Bool
 testdata/SampleMaterial.lc 644:38-644:54  String
-testdata/SampleMaterial.lc 646:15-646:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 646:15-647:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 646:15-648:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 646:15-649:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 646:15-650:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 646:15-651:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 646:15-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-646:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-647:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-648:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-649:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-650:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-651:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-652:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-653:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 646:15-654:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1245,79 +1245,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-664:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-665:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-666:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-667:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-668:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-669:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-670:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 664:7-671:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 672:30-672:32  forall a . List a
 testdata/SampleMaterial.lc 673:25-673:30  Bool
 testdata/SampleMaterial.lc 674:29-674:34  Bool
 testdata/SampleMaterial.lc 676:13-702:14  List StageAttrs
-testdata/SampleMaterial.lc 676:15-676:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 676:15-677:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 676:15-678:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 676:15-679:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 676:15-680:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 676:15-681:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 676:15-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-676:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-677:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-678:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-679:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-680:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-681:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-682:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-683:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 676:15-684:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 682:31-682:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 685:33-685:40  forall a . Maybe a
 testdata/SampleMaterial.lc 686:41-686:46  Bool
 testdata/SampleMaterial.lc 687:38-687:54  String
-testdata/SampleMaterial.lc 689:15-689:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 689:15-690:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 689:15-691:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 689:15-692:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 689:15-693:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 689:15-694:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 689:15-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-689:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-690:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-691:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-692:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-693:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-694:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-695:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-696:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 689:15-697:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1325,79 +1325,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-707:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-708:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-709:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-710:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-711:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-712:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-713:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 707:7-714:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 715:30-715:32  forall a . List a
 testdata/SampleMaterial.lc 716:25-716:30  Bool
 testdata/SampleMaterial.lc 717:29-717:34  Bool
 testdata/SampleMaterial.lc 719:13-745:14  List StageAttrs
-testdata/SampleMaterial.lc 719:15-719:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 719:15-720:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 719:15-721:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 719:15-722:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 719:15-723:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 719:15-724:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 719:15-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-719:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-720:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-721:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-722:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-723:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-724:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-725:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-726:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 719:15-727:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 725:31-725:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 728:33-728:40  forall a . Maybe a
 testdata/SampleMaterial.lc 729:41-729:46  Bool
 testdata/SampleMaterial.lc 730:38-730:54  String
-testdata/SampleMaterial.lc 732:15-732:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 732:15-733:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 732:15-734:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 732:15-735:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 732:15-736:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 732:15-737:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 732:15-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-732:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-733:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-734:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-735:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-736:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-737:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-738:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-739:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 732:15-740:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1405,79 +1405,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-750:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-751:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-752:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-753:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-754:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-755:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-756:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 750:7-757:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 758:30-758:32  forall a . List a
 testdata/SampleMaterial.lc 759:25-759:30  Bool
 testdata/SampleMaterial.lc 760:29-760:34  Bool
 testdata/SampleMaterial.lc 762:13-788:14  List StageAttrs
-testdata/SampleMaterial.lc 762:15-762:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 762:15-763:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 762:15-764:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 762:15-765:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 762:15-766:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 762:15-767:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 762:15-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-762:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-763:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-764:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-765:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-766:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-767:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-768:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-769:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 762:15-770:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 768:31-768:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 771:33-771:40  forall a . Maybe a
 testdata/SampleMaterial.lc 772:41-772:46  Bool
 testdata/SampleMaterial.lc 773:38-773:54  String
-testdata/SampleMaterial.lc 775:15-775:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 775:15-776:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 775:15-777:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 775:15-778:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 775:15-779:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 775:15-780:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 775:15-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-775:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-776:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-777:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-778:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-779:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-780:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-781:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-782:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 775:15-783:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1485,79 +1485,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-793:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-794:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-795:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-796:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-797:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-798:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-799:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 793:7-800:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 801:30-801:32  forall a . List a
 testdata/SampleMaterial.lc 802:25-802:30  Bool
 testdata/SampleMaterial.lc 803:29-803:34  Bool
 testdata/SampleMaterial.lc 805:13-831:14  List StageAttrs
-testdata/SampleMaterial.lc 805:15-805:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 805:15-806:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 805:15-807:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 805:15-808:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 805:15-809:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 805:15-810:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 805:15-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-805:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-806:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-807:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-808:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-809:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-810:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-811:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-812:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 805:15-813:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 811:31-811:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 814:33-814:40  forall a . Maybe a
 testdata/SampleMaterial.lc 815:41-815:46  Bool
 testdata/SampleMaterial.lc 816:38-816:54  String
-testdata/SampleMaterial.lc 818:15-818:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 818:15-819:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 818:15-820:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 818:15-821:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 818:15-822:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 818:15-823:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 818:15-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-818:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-819:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-820:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-821:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-822:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-823:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-824:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-825:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 818:15-826:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1565,100 +1565,100 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-836:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-837:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-838:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-839:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-840:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-841:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-842:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 836:7-843:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 844:30-844:32  forall a . List a
 testdata/SampleMaterial.lc 845:25-845:30  Bool
 testdata/SampleMaterial.lc 846:29-846:34  Bool
 testdata/SampleMaterial.lc 848:13-888:14  List StageAttrs
-testdata/SampleMaterial.lc 848:15-848:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 848:15-849:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 848:15-850:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 848:15-851:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 848:15-852:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 848:15-854:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 848:15-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-848:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-849:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-850:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-851:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-852:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-854:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-855:66  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-856:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 848:15-857:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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: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: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: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: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  {a} -> Maybe a
+testdata/SampleMaterial.lc 858:33-858:40  forall a . Maybe a
 testdata/SampleMaterial.lc 859:41-859:46  Bool
 testdata/SampleMaterial.lc 860:38-860:54  String
-testdata/SampleMaterial.lc 862:15-862:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 862:15-863:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 862:15-864:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 862:15-865:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 862:15-866:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 862:15-867:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 862:15-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-862:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-863:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-864:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-865:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-866:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-867:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-868:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-869:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 862:15-870:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1666,28 +1666,28 @@ 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  {a} -> List a
-testdata/SampleMaterial.lc 868:31-868:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 871:33-871:40  forall a . Maybe a
 testdata/SampleMaterial.lc 872:41-872:46  Bool
 testdata/SampleMaterial.lc 873:38-873:54  String
-testdata/SampleMaterial.lc 875:15-875:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 875:15-876:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 875:15-877:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 875:15-878:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 875:15-879:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 875:15-880:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 875:15-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-875:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-876:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-877:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-878:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-879:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-880:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-881:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-882:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 875:15-883:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1695,79 +1695,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-893:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-894:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-895:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-896:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-897:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-898:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-899:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 893:7-900:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 901:30-901:32  forall a . List a
 testdata/SampleMaterial.lc 902:25-902:30  Bool
 testdata/SampleMaterial.lc 903:29-903:34  Bool
 testdata/SampleMaterial.lc 905:13-931:14  List StageAttrs
-testdata/SampleMaterial.lc 905:15-905:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 905:15-906:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 905:15-907:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 905:15-908:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 905:15-909:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 905:15-910:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 905:15-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-905:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-906:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-907:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-908:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-909:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-910:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-911:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-912:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 905:15-913:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 911:31-911:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 914:33-914:40  forall a . Maybe a
 testdata/SampleMaterial.lc 915:41-915:46  Bool
 testdata/SampleMaterial.lc 916:38-916:54  String
-testdata/SampleMaterial.lc 918:15-918:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 918:15-919:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 918:15-920:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 918:15-921:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 918:15-922:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 918:15-923:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 918:15-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-918:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-919:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-920:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-921:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-922:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-923:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-924:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-925:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 918:15-926:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1775,79 +1775,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-936:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-937:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-938:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-939:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-940:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-941:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-942:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 936:7-943:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 944:30-944:32  forall a . List a
 testdata/SampleMaterial.lc 945:25-945:30  Bool
 testdata/SampleMaterial.lc 946:29-946:34  Bool
 testdata/SampleMaterial.lc 948:13-975:14  List StageAttrs
-testdata/SampleMaterial.lc 948:15-948:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 948:15-949:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 948:15-950:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 948:15-951:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 948:15-952:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 948:15-953:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 948:15-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-948:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-949:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-950:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-951:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-952:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-953:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-955:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-956:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 948:15-957:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 955:21-955:27  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 958:33-958:40  forall a . Maybe a
 testdata/SampleMaterial.lc 959:41-959:46  Bool
 testdata/SampleMaterial.lc 960:38-960:54  String
-testdata/SampleMaterial.lc 962:15-962:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 962:15-963:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 962:15-964:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 962:15-965:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 962:15-966:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 962:15-967:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 962:15-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-962:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-963:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-964:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-965:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-966:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-967:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-968:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-969:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 962:15-970:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1855,79 +1855,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-980:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-981:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-982:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-983:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-984:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-985:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-986:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 980:7-987:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 988:30-988:32  forall a . List a
 testdata/SampleMaterial.lc 989:25-989:30  Bool
 testdata/SampleMaterial.lc 990:29-990:34  Bool
 testdata/SampleMaterial.lc 992:13-1018:14  List StageAttrs
-testdata/SampleMaterial.lc 992:15-992:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 992:15-993:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 992:15-994:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 992:15-995:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 992:15-996:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 992:15-997:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 992:15-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-992:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-993:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-994:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-995:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-996:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-997:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-998:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-999:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 992:15-1000:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 998:31-998:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1001:33-1001:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1002:41-1002:46  Bool
 testdata/SampleMaterial.lc 1003:38-1003:54  String
-testdata/SampleMaterial.lc 1005:15-1005:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1005:15-1006:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1005:15-1007:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1005:15-1008:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1005:15-1009:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1005:15-1010:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1005:15-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-1005:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1006:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1007:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1008:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1009:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1010:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1011:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1012:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1005:15-1013:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1935,79 +1935,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1023:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1024:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1025:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1026:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1027:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1028:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1029:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1023:7-1030:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1031:30-1031:32  forall a . List a
 testdata/SampleMaterial.lc 1032:25-1032:30  Bool
 testdata/SampleMaterial.lc 1033:29-1033:34  Bool
 testdata/SampleMaterial.lc 1035:13-1061:14  List StageAttrs
-testdata/SampleMaterial.lc 1035:15-1035:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1035:15-1036:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1035:15-1037:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1035:15-1038:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1035:15-1039:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1035:15-1040:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1035:15-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-1035:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1036:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1037:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1038:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1039:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1040:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1041:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1042:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1035:15-1043:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1041:31-1041:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1044:33-1044:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1045:41-1045:46  Bool
 testdata/SampleMaterial.lc 1046:38-1046:54  String
-testdata/SampleMaterial.lc 1048:15-1048:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1048:15-1049:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1048:15-1050:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1048:15-1051:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1048:15-1052:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1048:15-1053:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1048:15-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-1048:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1049:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1050:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1051:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1052:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1053:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1054:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1055:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1048:15-1056:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2015,79 +2015,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1066:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1067:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1068:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1069:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1070:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1071:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1072:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1066:7-1073:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1074:30-1074:32  forall a . List a
 testdata/SampleMaterial.lc 1075:25-1075:30  Bool
 testdata/SampleMaterial.lc 1076:29-1076:34  Bool
 testdata/SampleMaterial.lc 1078:13-1104:14  List StageAttrs
-testdata/SampleMaterial.lc 1078:15-1078:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1078:15-1079:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1078:15-1080:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1078:15-1081:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1078:15-1082:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1078:15-1083:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1078:15-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-1078:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1079:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1080:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1081:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1082:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1083:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1084:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1085:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1078:15-1086:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1084:31-1084:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1087:33-1087:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1088:41-1088:46  Bool
 testdata/SampleMaterial.lc 1089:38-1089:54  String
-testdata/SampleMaterial.lc 1091:15-1091:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1091:15-1092:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1091:15-1093:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1091:15-1094:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1091:15-1095:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1091:15-1096:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1091:15-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-1091:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1092:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1093:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1094:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1095:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1096:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1097:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1098:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1091:15-1099:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2095,79 +2095,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1109:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1110:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1111:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1112:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1113:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1114:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1115:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1109:7-1116:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1117:30-1117:32  forall a . List a
 testdata/SampleMaterial.lc 1118:25-1118:30  Bool
 testdata/SampleMaterial.lc 1119:29-1119:34  Bool
 testdata/SampleMaterial.lc 1121:13-1147:14  List StageAttrs
-testdata/SampleMaterial.lc 1121:15-1121:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1121:15-1122:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1121:15-1123:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1121:15-1124:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1121:15-1125:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1121:15-1126:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1121:15-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-1121:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1122:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1123:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1124:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1125:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1126:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1127:80  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1128:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1121:15-1129:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1127:31-1127:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1130:33-1130:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1131:41-1131:46  Bool
 testdata/SampleMaterial.lc 1132:38-1132:54  String
-testdata/SampleMaterial.lc 1134:15-1134:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1134:15-1135:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1134:15-1136:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1134:15-1137:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1134:15-1138:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1134:15-1139:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1134:15-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-1134:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1135:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1136:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1137:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1138:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1139:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1140:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1141:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1134:15-1142:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2175,79 +2175,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1152:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1153:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1154:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1155:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1156:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1157:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1158:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1152:7-1159:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1160:30-1160:32  forall a . List a
 testdata/SampleMaterial.lc 1161:25-1161:30  Bool
 testdata/SampleMaterial.lc 1162:29-1162:34  Bool
 testdata/SampleMaterial.lc 1164:13-1190:14  List StageAttrs
-testdata/SampleMaterial.lc 1164:15-1164:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1164:15-1165:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1164:15-1166:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1164:15-1167:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1164:15-1168:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1164:15-1169:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1164:15-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-1164:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1165:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1166:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1167:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1168:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1169:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1170:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1171:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1164:15-1172:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1170:31-1170:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1173:33-1173:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1174:41-1174:46  Bool
 testdata/SampleMaterial.lc 1175:38-1175:54  String
-testdata/SampleMaterial.lc 1177:15-1177:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1177:15-1178:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1177:15-1179:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1177:15-1180:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1177:15-1181:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1177:15-1182:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1177:15-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-1177:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1178:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1179:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1180:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1181:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1182:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1183:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1184:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1177:15-1185:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2255,79 +2255,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1195:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1196:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1197:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1198:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1199:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1200:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1201:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1195:7-1202:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1203:30-1203:32  forall a . List a
 testdata/SampleMaterial.lc 1204:25-1204:30  Bool
 testdata/SampleMaterial.lc 1205:29-1205:34  Bool
 testdata/SampleMaterial.lc 1207:13-1233:14  List StageAttrs
-testdata/SampleMaterial.lc 1207:15-1207:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1207:15-1208:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1207:15-1209:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1207:15-1210:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1207:15-1211:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1207:15-1212:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1207:15-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-1207:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1208:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1209:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1210:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1211:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1212:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1213:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1214:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1207:15-1215:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1213:31-1213:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1216:33-1216:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1217:41-1217:46  Bool
 testdata/SampleMaterial.lc 1218:38-1218:54  String
-testdata/SampleMaterial.lc 1220:15-1220:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1220:15-1221:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1220:15-1222:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1220:15-1223:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1220:15-1224:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1220:15-1225:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1220:15-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-1220:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1221:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1222:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1223:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1224:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1225:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1226:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1227:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1220:15-1228:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2335,79 +2335,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1238:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1239:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1240:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1241:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1242:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1243:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1244:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1238:7-1245:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1246:30-1246:32  forall a . List a
 testdata/SampleMaterial.lc 1247:25-1247:30  Bool
 testdata/SampleMaterial.lc 1248:29-1248:34  Bool
 testdata/SampleMaterial.lc 1250:13-1276:14  List StageAttrs
-testdata/SampleMaterial.lc 1250:15-1250:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1250:15-1251:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1250:15-1252:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1250:15-1253:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1250:15-1254:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1250:15-1255:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1250:15-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-1250:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1251:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1252:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1253:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1254:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1255:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1256:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1257:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1250:15-1258:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1256:31-1256:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1259:33-1259:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1260:41-1260:46  Bool
 testdata/SampleMaterial.lc 1261:38-1261:54  String
-testdata/SampleMaterial.lc 1263:15-1263:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1263:15-1264:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1263:15-1265:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1263:15-1266:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1263:15-1267:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1263:15-1268:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1263:15-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-1263:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1264:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1265:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1266:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1267:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1268:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1269:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1270:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1263:15-1271:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2415,79 +2415,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1281:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1282:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1283:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1284:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1285:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1286:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1287:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1281:7-1288:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1289:30-1289:32  forall a . List a
 testdata/SampleMaterial.lc 1290:25-1290:30  Bool
 testdata/SampleMaterial.lc 1291:29-1291:34  Bool
 testdata/SampleMaterial.lc 1293:13-1319:14  List StageAttrs
-testdata/SampleMaterial.lc 1293:15-1293:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1293:15-1294:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1293:15-1295:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1293:15-1296:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1293:15-1297:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1293:15-1298:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1293:15-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-1293:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1294:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1295:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1296:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1297:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1298:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1299:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1300:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1293:15-1301:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1299:31-1299:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1302:33-1302:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1303:41-1303:46  Bool
 testdata/SampleMaterial.lc 1304:38-1304:54  String
-testdata/SampleMaterial.lc 1306:15-1306:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1306:15-1307:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1306:15-1308:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1306:15-1309:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1306:15-1310:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1306:15-1311:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1306:15-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-1306:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1307:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1308:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1309:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1310:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1311:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1312:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1313:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1306:15-1314:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2495,79 +2495,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1324:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1325:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1326:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1327:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1328:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1329:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1330:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1324:7-1331:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1332:30-1332:32  forall a . List a
 testdata/SampleMaterial.lc 1333:25-1333:30  Bool
 testdata/SampleMaterial.lc 1334:29-1334:34  Bool
 testdata/SampleMaterial.lc 1336:13-1362:14  List StageAttrs
-testdata/SampleMaterial.lc 1336:15-1336:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1336:15-1337:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1336:15-1338:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1336:15-1339:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1336:15-1340:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1336:15-1341:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1336:15-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-1336:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1337:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1338:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1339:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1340:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1341:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1342:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1343:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1336:15-1344:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1342:31-1342:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1345:33-1345:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1346:41-1346:46  Bool
 testdata/SampleMaterial.lc 1347:38-1347:54  String
-testdata/SampleMaterial.lc 1349:15-1349:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1349:15-1350:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1349:15-1351:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1349:15-1352:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1349:15-1353:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1349:15-1354:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1349:15-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-1349:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1350:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1351:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1352:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1353:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1354:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1355:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1356:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1349:15-1357:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2575,79 +2575,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1367:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1368:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1369:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1370:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1371:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1372:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1373:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1367:7-1374:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1375:30-1375:32  forall a . List a
 testdata/SampleMaterial.lc 1376:25-1376:30  Bool
 testdata/SampleMaterial.lc 1377:29-1377:34  Bool
 testdata/SampleMaterial.lc 1379:13-1405:14  List StageAttrs
-testdata/SampleMaterial.lc 1379:15-1379:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1379:15-1380:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1379:15-1381:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1379:15-1382:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1379:15-1383:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1379:15-1384:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1379:15-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-1379:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1380:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1381:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1382:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1383:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1384:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1385:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1386:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1379:15-1387:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1385:31-1385:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1388:33-1388:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1389:41-1389:46  Bool
 testdata/SampleMaterial.lc 1390:38-1390:54  String
-testdata/SampleMaterial.lc 1392:15-1392:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1392:15-1393:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1392:15-1394:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1392:15-1395:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1392:15-1396:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1392:15-1397:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1392:15-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-1392:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1393:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1394:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1395:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1396:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1397:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1398:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1399:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1392:15-1400:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2655,79 +2655,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1410:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1411:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1412:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1413:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1414:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1415:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1416:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1410:7-1417:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1418:30-1418:32  forall a . List a
 testdata/SampleMaterial.lc 1419:25-1419:30  Bool
 testdata/SampleMaterial.lc 1420:29-1420:34  Bool
 testdata/SampleMaterial.lc 1422:13-1448:14  List StageAttrs
-testdata/SampleMaterial.lc 1422:15-1422:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1422:15-1423:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1422:15-1424:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1422:15-1425:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1422:15-1426:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1422:15-1427:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1422:15-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-1422:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1423:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1424:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1425:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1426:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1427:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1428:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1429:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1422:15-1430:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1428:31-1428:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1431:33-1431:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1432:41-1432:46  Bool
 testdata/SampleMaterial.lc 1433:38-1433:54  String
-testdata/SampleMaterial.lc 1435:15-1435:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1435:15-1436:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1435:15-1437:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1435:15-1438:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1435:15-1439:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1435:15-1440:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1435:15-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-1435:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1436:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1437:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1438:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1439:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1440:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1441:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1442:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1435:15-1443:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2735,79 +2735,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1453:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1454:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1455:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1456:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1457:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1458:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1459:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1453:7-1460:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1461:30-1461:32  forall a . List a
 testdata/SampleMaterial.lc 1462:25-1462:30  Bool
 testdata/SampleMaterial.lc 1463:29-1463:34  Bool
 testdata/SampleMaterial.lc 1465:13-1491:14  List StageAttrs
-testdata/SampleMaterial.lc 1465:15-1465:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1465:15-1466:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1465:15-1467:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1465:15-1468:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1465:15-1469:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1465:15-1470:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1465:15-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-1465:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1466:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1467:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1468:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1469:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1470:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1471:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1472:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1465:15-1473:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1471:31-1471:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1474:33-1474:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1475:41-1475:46  Bool
 testdata/SampleMaterial.lc 1476:38-1476:54  String
-testdata/SampleMaterial.lc 1478:15-1478:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1478:15-1479:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1478:15-1480:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1478:15-1481:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1478:15-1482:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1478:15-1483:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1478:15-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-1478:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1479:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1480:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1481:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1482:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1483:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1484:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1485:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1478:15-1486:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2815,79 +2815,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1496:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1497:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1498:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1499:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1500:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1501:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1502:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1496:7-1503:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1504:30-1504:32  forall a . List a
 testdata/SampleMaterial.lc 1505:25-1505:30  Bool
 testdata/SampleMaterial.lc 1506:29-1506:34  Bool
 testdata/SampleMaterial.lc 1508:13-1534:14  List StageAttrs
-testdata/SampleMaterial.lc 1508:15-1508:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1508:15-1509:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1508:15-1510:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1508:15-1511:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1508:15-1512:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1508:15-1513:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1508:15-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-1508:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1509:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1510:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1511:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1512:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1513:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1514:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1515:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1508:15-1516:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1514:31-1514:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1517:33-1517:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1518:41-1518:46  Bool
 testdata/SampleMaterial.lc 1519:38-1519:54  String
-testdata/SampleMaterial.lc 1521:15-1521:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1521:15-1522:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1521:15-1523:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1521:15-1524:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1521:15-1525:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1521:15-1526:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1521:15-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-1521:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1522:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1523:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1524:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1525:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1526:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1527:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1528:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1521:15-1529:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2895,79 +2895,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1539:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1540:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1541:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1542:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1543:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1544:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1545:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1539:7-1546:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1547:30-1547:32  forall a . List a
 testdata/SampleMaterial.lc 1548:25-1548:30  Bool
 testdata/SampleMaterial.lc 1549:29-1549:34  Bool
 testdata/SampleMaterial.lc 1551:13-1577:14  List StageAttrs
-testdata/SampleMaterial.lc 1551:15-1551:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1551:15-1552:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1551:15-1553:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1551:15-1554:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1551:15-1555:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1551:15-1556:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1551:15-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-1551:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1552:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1553:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1554:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1555:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1556:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1557:78  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1558:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1551:15-1559:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1557:31-1557:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1560:33-1560:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1561:41-1561:46  Bool
 testdata/SampleMaterial.lc 1562:38-1562:54  String
-testdata/SampleMaterial.lc 1564:15-1564:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1564:15-1565:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1564:15-1566:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1564:15-1567:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1564:15-1568:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1564:15-1569:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1564:15-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-1564:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1565:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1566:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1567:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1568:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1569:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1570:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1571:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1564:15-1572:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2975,79 +2975,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1582:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1583:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1584:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1585:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1586:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1587:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1588:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1582:7-1589:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1590:30-1590:32  forall a . List a
 testdata/SampleMaterial.lc 1591:25-1591:30  Bool
 testdata/SampleMaterial.lc 1592:29-1592:34  Bool
 testdata/SampleMaterial.lc 1594:13-1620:14  List StageAttrs
-testdata/SampleMaterial.lc 1594:15-1594:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1594:15-1595:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1594:15-1596:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1594:15-1597:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1594:15-1598:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1594:15-1599:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1594:15-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-1594:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1595:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1596:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1597:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1598:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1599:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1600:80  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1601:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1594:15-1602:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1600:31-1600:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1603:33-1603:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1604:41-1604:46  Bool
 testdata/SampleMaterial.lc 1605:38-1605:54  String
-testdata/SampleMaterial.lc 1607:15-1607:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1607:15-1608:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1607:15-1609:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1607:15-1610:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1607:15-1611:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1607:15-1612:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1607:15-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-1607:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1608:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1609:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1610:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1611:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1612:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1613:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1614:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1607:15-1615:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3055,79 +3055,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1625:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1626:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1627:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1628:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1629:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1630:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1631:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1625:7-1632:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1633:30-1633:32  forall a . List a
 testdata/SampleMaterial.lc 1634:25-1634:30  Bool
 testdata/SampleMaterial.lc 1635:29-1635:34  Bool
 testdata/SampleMaterial.lc 1637:13-1663:14  List StageAttrs
-testdata/SampleMaterial.lc 1637:15-1637:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1637:15-1638:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1637:15-1639:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1637:15-1640:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1637:15-1641:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1637:15-1642:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1637:15-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-1637:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1638:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1639:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1640:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1641:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1642:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1643:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1644:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1637:15-1645:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1643:31-1643:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1646:33-1646:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1647:41-1647:46  Bool
 testdata/SampleMaterial.lc 1648:38-1648:54  String
-testdata/SampleMaterial.lc 1650:15-1650:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1650:15-1651:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1650:15-1652:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1650:15-1653:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1650:15-1654:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1650:15-1655:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1650:15-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-1650:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1651:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1652:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1653:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1654:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1655:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1656:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1657:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1650:15-1658:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3135,79 +3135,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1668:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1669:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1670:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1671:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1672:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1673:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1674:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1668:7-1675:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1676:30-1676:32  forall a . List a
 testdata/SampleMaterial.lc 1677:25-1677:30  Bool
 testdata/SampleMaterial.lc 1678:29-1678:34  Bool
 testdata/SampleMaterial.lc 1680:13-1706:14  List StageAttrs
-testdata/SampleMaterial.lc 1680:15-1680:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1680:15-1681:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1680:15-1682:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1680:15-1683:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1680:15-1684:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1680:15-1685:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1680:15-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-1680:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1681:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1682:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1683:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1684:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1685:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1686:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1687:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1680:15-1688:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1686:31-1686:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1689:33-1689:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1690:41-1690:46  Bool
 testdata/SampleMaterial.lc 1691:38-1691:54  String
-testdata/SampleMaterial.lc 1693:15-1693:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1693:15-1694:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1693:15-1695:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1693:15-1696:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1693:15-1697:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1693:15-1698:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1693:15-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-1693:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1694:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1695:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1696:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1697:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1698:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1699:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1700:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1693:15-1701:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3215,79 +3215,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1711:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1712:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1713:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1714:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1715:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1716:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1717:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1711:7-1718:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1719:30-1719:32  forall a . List a
 testdata/SampleMaterial.lc 1720:25-1720:30  Bool
 testdata/SampleMaterial.lc 1721:29-1721:34  Bool
 testdata/SampleMaterial.lc 1723:13-1749:14  List StageAttrs
-testdata/SampleMaterial.lc 1723:15-1723:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1723:15-1724:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1723:15-1725:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1723:15-1726:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1723:15-1727:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1723:15-1728:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1723:15-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-1723:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1724:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1725:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1726:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1727:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1728:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1729:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1730:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1723:15-1731:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1729:31-1729:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1732:33-1732:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1733:41-1733:46  Bool
 testdata/SampleMaterial.lc 1734:38-1734:54  String
-testdata/SampleMaterial.lc 1736:15-1736:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1736:15-1737:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1736:15-1738:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1736:15-1739:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1736:15-1740:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1736:15-1741:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1736:15-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-1736:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1737:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1738:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1739:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1740:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1741:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1742:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1743:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1736:15-1744:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3295,79 +3295,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1754:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1755:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1756:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1757:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1758:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1759:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1760:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1754:7-1761:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1762:30-1762:32  forall a . List a
 testdata/SampleMaterial.lc 1763:25-1763:30  Bool
 testdata/SampleMaterial.lc 1764:29-1764:34  Bool
 testdata/SampleMaterial.lc 1766:13-1792:14  List StageAttrs
-testdata/SampleMaterial.lc 1766:15-1766:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1766:15-1767:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1766:15-1768:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1766:15-1769:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1766:15-1770:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1766:15-1771:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1766:15-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-1766:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1767:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1768:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1769:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1770:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1771:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1772:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1773:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1766:15-1774:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1772:31-1772:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1775:33-1775:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1776:41-1776:46  Bool
 testdata/SampleMaterial.lc 1777:38-1777:54  String
-testdata/SampleMaterial.lc 1779:15-1779:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1779:15-1780:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1779:15-1781:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1779:15-1782:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1779:15-1783:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1779:15-1784:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1779:15-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-1779:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1780:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1781:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1782:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1783:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1784:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1785:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1786:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1779:15-1787:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3375,77 +3375,77 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1797:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1798:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1799:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1800:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1801:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1802:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1803:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1797:7-1804:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1805:30-1805:32  forall a . List a
 testdata/SampleMaterial.lc 1806:25-1806:30  Bool
 testdata/SampleMaterial.lc 1807:29-1807:34  Bool
 testdata/SampleMaterial.lc 1809:13-1835:14  List StageAttrs
-testdata/SampleMaterial.lc 1809:15-1809:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1809:15-1810:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1809:15-1811:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1809:15-1812:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1809:15-1813:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1809:15-1814:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1809:15-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-1809:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1810:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1811:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1812:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1813:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1814:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1815:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1816:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1809:15-1817:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1818:33-1818:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1819:41-1819:46  Bool
 testdata/SampleMaterial.lc 1820:38-1820:53  String
-testdata/SampleMaterial.lc 1822:15-1822:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1822:15-1823:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1822:15-1824:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1822:15-1825:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1822:15-1826:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1822:15-1827:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1822:15-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-1822:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1823:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1824:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1825:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1826:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1827:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1828:77  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1829:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1822:15-1830:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3453,81 +3453,81 @@ 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  {a} -> List a
-testdata/SampleMaterial.lc 1828:31-1828:37  String->StageTexture
+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  {a} -> Maybe a
+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-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-1840:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1841:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1842:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1843:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1844:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1845:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1846:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1840:7-1847:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1848:30-1848:32  forall a . List a
 testdata/SampleMaterial.lc 1849:25-1849:30  Bool
 testdata/SampleMaterial.lc 1850:29-1850:34  Bool
 testdata/SampleMaterial.lc 1852:13-1878:14  List StageAttrs
-testdata/SampleMaterial.lc 1852:15-1852:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1852:15-1853:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1852:15-1854:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1852:15-1855:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1852:15-1856:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1852:15-1857:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1852:15-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-1852:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1853:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1854:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1855:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1856:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1857:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1858:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1859:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1852:15-1860:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1858:31-1858:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1861:33-1861:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1862:41-1862:46  Bool
 testdata/SampleMaterial.lc 1863:38-1863:54  String
-testdata/SampleMaterial.lc 1865:15-1865:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1865:15-1866:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1865:15-1867:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1865:15-1868:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1865:15-1869:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1865:15-1870:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1865:15-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-1865:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1866:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1867:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1868:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1869:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1870:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1871:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1872:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1865:15-1873:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3535,79 +3535,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1883:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1884:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1885:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1886:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1887:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1888:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1889:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1883:7-1890:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1891:30-1891:32  forall a . List a
 testdata/SampleMaterial.lc 1892:25-1892:30  Bool
 testdata/SampleMaterial.lc 1893:29-1893:34  Bool
 testdata/SampleMaterial.lc 1895:13-1921:14  List StageAttrs
-testdata/SampleMaterial.lc 1895:15-1895:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1895:15-1896:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1895:15-1897:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1895:15-1898:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1895:15-1899:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1895:15-1900:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1895:15-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-1895:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1896:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1897:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1898:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1899:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1900:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1901:78  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1902:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1895:15-1903:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1901:31-1901:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1904:33-1904:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1905:41-1905:46  Bool
 testdata/SampleMaterial.lc 1906:38-1906:54  String
-testdata/SampleMaterial.lc 1908:15-1908:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1908:15-1909:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1908:15-1910:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1908:15-1911:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1908:15-1912:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1908:15-1913:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1908:15-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-1908:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1909:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1910:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1911:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1912:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1913:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1914:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1915:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1908:15-1916:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3615,79 +3615,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1926:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1927:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1928:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1929:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1930:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1931:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1932:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1926:7-1933:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1934:30-1934:32  forall a . List a
 testdata/SampleMaterial.lc 1935:25-1935:30  Bool
 testdata/SampleMaterial.lc 1936:29-1936:34  Bool
 testdata/SampleMaterial.lc 1938:13-1964:14  List StageAttrs
-testdata/SampleMaterial.lc 1938:15-1938:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1938:15-1939:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1938:15-1940:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1938:15-1941:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1938:15-1942:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1938:15-1943:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1938:15-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-1938:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1939:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1940:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1941:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1942:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1943:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1944:69  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1945:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1938:15-1946:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1944:31-1944:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1947:33-1947:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1948:41-1948:46  Bool
 testdata/SampleMaterial.lc 1949:38-1949:54  String
-testdata/SampleMaterial.lc 1951:15-1951:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1951:15-1952:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1951:15-1953:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1951:15-1954:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1951:15-1955:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1951:15-1956:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1951:15-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-1951:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1952:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1953:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1954:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1955:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1956:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1957:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1958:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1951:15-1959:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3695,79 +3695,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1969:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1970:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1971:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1972:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1973:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1974:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1975:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 1969:7-1976:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 1977:30-1977:32  forall a . List a
 testdata/SampleMaterial.lc 1978:25-1978:30  Bool
 testdata/SampleMaterial.lc 1979:29-1979:34  Bool
 testdata/SampleMaterial.lc 1981:13-2007:14  List StageAttrs
-testdata/SampleMaterial.lc 1981:15-1981:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1981:15-1982:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1981:15-1983:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1981:15-1984:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1981:15-1985:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1981:15-1986:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1981:15-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-1981:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1982:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1983:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1984:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1985:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1986:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1987:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1988:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1981:15-1989:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 1987:31-1987:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 1990:33-1990:40  forall a . Maybe a
 testdata/SampleMaterial.lc 1991:41-1991:46  Bool
 testdata/SampleMaterial.lc 1992:38-1992:53  String
-testdata/SampleMaterial.lc 1994:15-1994:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1994:15-1995:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1994:15-1996:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1994:15-1997:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1994:15-1998:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1994:15-1999:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 1994:15-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-1994:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1995:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1996:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1997:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1998:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-1999:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-2000:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-2001:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 1994:15-2002:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3775,79 +3775,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-2012:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2013:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2014:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2015:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2016:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2017:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2018:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2012:7-2019:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 2020:30-2020:32  forall a . List a
 testdata/SampleMaterial.lc 2021:25-2021:30  Bool
 testdata/SampleMaterial.lc 2022:29-2022:34  Bool
 testdata/SampleMaterial.lc 2024:13-2050:14  List StageAttrs
-testdata/SampleMaterial.lc 2024:15-2024:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2024:15-2025:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2024:15-2026:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2024:15-2027:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2024:15-2028:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2024:15-2029:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2024:15-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-2024:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2025:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2026:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2027:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2028:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2029:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2030:67  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2031:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2024:15-2032:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 2030:31-2030:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 2033:33-2033:40  forall a . Maybe a
 testdata/SampleMaterial.lc 2034:41-2034:46  Bool
 testdata/SampleMaterial.lc 2035:38-2035:54  String
-testdata/SampleMaterial.lc 2037:15-2037:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2037:15-2038:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2037:15-2039:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2037:15-2040:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2037:15-2041:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2037:15-2042:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2037:15-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-2037:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2038:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2039:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2040:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2041:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2042:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2043:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2044:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2037:15-2045:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3855,79 +3855,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-2055:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2056:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2057:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2058:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2059:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2060:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2061:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2055:7-2062:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 2063:30-2063:32  forall a . List a
 testdata/SampleMaterial.lc 2064:25-2064:30  Bool
 testdata/SampleMaterial.lc 2065:29-2065:34  Bool
 testdata/SampleMaterial.lc 2067:13-2093:14  List StageAttrs
-testdata/SampleMaterial.lc 2067:15-2067:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2067:15-2068:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2067:15-2069:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2067:15-2070:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2067:15-2071:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2067:15-2072:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2067:15-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-2067:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2068:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2069:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2070:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2071:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2072:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2073:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2074:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2067:15-2075:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 2073:31-2073:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 2076:33-2076:40  forall a . Maybe a
 testdata/SampleMaterial.lc 2077:41-2077:46  Bool
 testdata/SampleMaterial.lc 2078:38-2078:54  String
-testdata/SampleMaterial.lc 2080:15-2080:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2080:15-2081:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2080:15-2082:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2080:15-2083:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2080:15-2084:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2080:15-2085:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2080:15-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-2080:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2081:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2082:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2083:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2084:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2085:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2086:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2087:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2080:15-2088:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3935,79 +3935,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-2098:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2099:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2100:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2101:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2102:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2103:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2104:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2098:7-2105:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 2106:30-2106:32  forall a . List a
 testdata/SampleMaterial.lc 2107:25-2107:30  Bool
 testdata/SampleMaterial.lc 2108:29-2108:34  Bool
 testdata/SampleMaterial.lc 2110:13-2136:14  List StageAttrs
-testdata/SampleMaterial.lc 2110:15-2110:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2110:15-2111:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2110:15-2112:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2110:15-2113:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2110:15-2114:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2110:15-2115:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2110:15-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-2110:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2111:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2112:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2113:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2114:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2115:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2116:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2117:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2110:15-2118:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 2116:31-2116:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 2119:33-2119:40  forall a . Maybe a
 testdata/SampleMaterial.lc 2120:41-2120:46  Bool
 testdata/SampleMaterial.lc 2121:38-2121:53  String
-testdata/SampleMaterial.lc 2123:15-2123:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2123:15-2124:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2123:15-2125:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2123:15-2126:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2123:15-2127:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2123:15-2128:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2123:15-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-2123:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2124:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2125:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2126:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2127:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2128:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2129:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2130:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2123:15-2131:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -4015,78 +4015,78 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-2141:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2142:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2143:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2144:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2145:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2146:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2147:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/SampleMaterial.lc 2141:7-2148:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/SampleMaterial.lc 2149:30-2149:32  forall a . List a
 testdata/SampleMaterial.lc 2150:25-2150:30  Bool
 testdata/SampleMaterial.lc 2151:29-2151:34  Bool
 testdata/SampleMaterial.lc 2153:13-2179:14  List StageAttrs
-testdata/SampleMaterial.lc 2153:15-2153:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2153:15-2154:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2153:15-2155:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2153:15-2156:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2153:15-2157:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2153:15-2158:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2153:15-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-2153:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2154:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2155:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2156:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2157:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2158:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2159:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2160:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2153:15-2161:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/SampleMaterial.lc 2159:31-2159:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/SampleMaterial.lc 2162:33-2162:40  forall a . Maybe a
 testdata/SampleMaterial.lc 2163:41-2163:46  Bool
 testdata/SampleMaterial.lc 2164:38-2164:54  String
-testdata/SampleMaterial.lc 2166:15-2166:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2166:15-2167:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2166:15-2168:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2166:15-2169:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2166:15-2170:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2166:15-2171:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/SampleMaterial.lc 2166:15-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-2166:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2167:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2168:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2169:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2170:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2171:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2172:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2173:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/SampleMaterial.lc 2166:15-2174:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -4094,11 +4094,11 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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
diff --git a/testdata/adhoc.reject.out b/testdata/adhoc.reject.out
index 7322b12d..f9fa8c49 100644
--- a/testdata/adhoc.reject.out
+++ b/testdata/adhoc.reject.out
@@ -6,8 +6,8 @@ x = one :: Vec 4 A
 ------------ trace
 'A :: Type
 A :: 'A
-'ACase :: (a : 'A->Type) -> a A -> (b:'A) -> a b
-match'A :: (a : Type->Type) -> a 'A -> (b:Type) -> a b -> a b
+'ACase :: (a :: 'A -> Type) -> a A -> (b :: 'A) -> a b
+match'A :: (a :: Type -> Type) -> a 'A -> (b :: Type) -> a b -> a b
 !type error: no instance of 'Component on ???
 in testdata/adhoc.reject.lc:4:5:
 x = one :: Vec 4 A
@@ -17,9 +17,9 @@ x = one :: Vec 4 A
 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  {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: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:16-4:17  _b
 testdata/adhoc.reject.lc 4:18-4:19  Type
diff --git a/testdata/ambig.out b/testdata/ambig.out
index 04665182..35d323b3 100644
--- a/testdata/ambig.out
+++ b/testdata/ambig.out
@@ -1,12 +1,12 @@
 main is not found
 ------------ trace
-h :: {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  {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  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
diff --git a/testdata/complex.out b/testdata/complex.out
index 6152c39a..c7a8df09 100644
--- a/testdata/complex.out
+++ b/testdata/complex.out
@@ -3,197 +3,197 @@ main is not found
 'Repr :: Type
 Normal :: 'Repr
 Polar :: 'Repr
-'ReprCase :: (a : 'Repr->Type) -> a Normal -> a Polar -> (b:'Repr) -> a b
-match'Repr :: (a : Type->Type) -> a 'Repr -> (b:Type) -> a b -> a b
-'Complex :: 'Repr->Type
-Complex :: {a:'Repr} -> 'Float -> 'Float -> 'Complex a
-'ComplexCase :: (a : (b:'Repr) -> 'Complex b -> Type) -> ({c:'Repr} -> (d:'Float) -> (e:'Float) -> a c (Complex c d e)) -> {f:'Repr} -> (g : 'Complex f) -> a f g
-match'Complex :: (a : Type->Type) -> ((b:'Repr) -> a ('Complex b)) -> (c:Type) -> a c -> a c
-repr :: {a:'Repr} -> 'Complex a -> 'Repr
+'ReprCase :: (a :: 'Repr -> Type) -> a Normal -> a Polar -> (b :: 'Repr) -> a b
+match'Repr :: (a :: Type -> Type) -> a 'Repr -> (b :: Type) -> a b -> a b
+'Complex :: 'Repr -> Type
+Complex :: forall (a :: 'Repr) . 'Float -> 'Float -> 'Complex a
+'ComplexCase :: (a :: (b :: 'Repr) -> 'Complex b -> Type) -> (forall (c :: 'Repr) . (d :: 'Float) -> (e :: 'Float) -> a c (Complex c d e)) -> forall (f :: 'Repr) . (g :: 'Complex f) -> a f g
+match'Complex :: (a :: Type -> Type) -> ((b :: 'Repr) -> a ('Complex b)) -> (c :: Type) -> a c -> a c
+repr :: forall (a :: 'Repr) . 'Complex a -> 'Repr
 normal :: 'Float -> 'Float -> 'Complex Normal
 polar :: 'Float -> 'Float -> 'Complex Polar
-cabs :: {a:'Repr} -> 'Complex a -> 'Float
+cabs :: forall (a :: 'Repr) . 'Complex a -> 'Float
 toPolar :: 'Complex Normal -> 'Complex Polar
 toNormal :: 'Complex Polar -> 'Complex Normal
-it_should_fail :: {a:'Repr} -> 'Complex a -> 'Float
-add :: {a:'Repr} -> {b:'Repr} -> 'Complex a -> 'Complex b -> 'Complex a
-mul :: {a:'Repr} -> {b:'Repr} -> 'Complex a -> 'Complex b -> 'Complex a
-s :: {a:'Repr} -> 'Complex a -> 'Complex a
-s4 :: {a:'Repr} -> 'Complex a -> 'Complex a
-iter :: {a:'Repr} -> 'Complex a -> 'Complex a
-mandel :: {a:'Repr} -> 'Complex a -> 'VecScalar 1 'Bool
+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-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_ | {a:Repr} -> Float -> Float -> Complex a
+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: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 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:28-8:29  _b
 testdata/complex.lc 8:33-8:37  Type
-testdata/complex.lc 9:1-9:5  {a:Repr} -> Complex a -> Repr
-testdata/complex.lc 9:13-9:14  Complex a_ -> Repr | Repr | {a:Repr} -> Complex a -> Repr
+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: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  {a:Repr} -> Float -> Float -> Complex a
-testdata/complex.lc 12:14-12:23  Float -> Complex a_
+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: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  {a:Repr} -> Float -> Float -> Complex a
-testdata/complex.lc 15:13-15:22  Float -> Complex a_
+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: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:28-18:29  _b
 testdata/complex.lc 18:33-18:38  Type
-testdata/complex.lc 19:1-19:5  {a:Repr} -> Complex a -> Float
-testdata/complex.lc 19:34-19:38  {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 | {a:Repr} -> Complex a -> Float
+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: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:45  Float -> Float
 testdata/complex.lc 19:40-19:49  Float
-testdata/complex.lc 19:41-19:42  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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:48  Float -> Float
 testdata/complex.lc 19:46-19:49  Float
-testdata/complex.lc 19:47-19:48  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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 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: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: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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a Bool
+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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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: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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a Bool
+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: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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a 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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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: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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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: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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a Bool
+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: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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a 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  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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: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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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: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: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  {a} -> {_ : Eq a} -> a -> a->Bool
+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: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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a 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
@@ -202,181 +202,181 @@ 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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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: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: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  {a} -> {_ : Eq a} -> a -> a->Bool
+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: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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a 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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {b:Nat} -> {_ : Num a} -> VecScalar b a -> VecScalar b a -> VecScalar b a
+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  {a}->a
-testdata/complex.lc 31:9-31:13  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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: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:20  Float -> Float
 testdata/complex.lc 31:15-31:24  Float
-testdata/complex.lc 31:16-31:17  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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:23  Float -> Float
 testdata/complex.lc 31:21-31:24  Float
-testdata/complex.lc 31:22-31:23  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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: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: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  {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: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:40  Float -> Float
 testdata/complex.lc 65:37-65:48  Float
-testdata/complex.lc 65:39-65:40  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/complex.lc 65:41-65:44  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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:54  Float -> Float
 testdata/complex.lc 65:51-65:62  Float
-testdata/complex.lc 65:53-65:54  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/complex.lc 65:55-65:58  {a} -> {b:Nat} -> {_ : a ~ VecScalar b Float} -> a->a
+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  {a:Repr} -> Complex a -> Float
-testdata/complex.lc 111:38-111:39  Float | Float -> Float->b_ | Float->c_
+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: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: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: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  {a:Repr} -> {b:Repr} -> Complex a -> Complex b -> Complex a
-testdata/complex.lc 114:53-114:60  {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_ | {a:Repr} -> Complex a_ -> Complex a -> Complex a_ | {a:Repr} -> {b:Repr} -> Complex a -> Complex b -> Complex a
+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:65  Float -> Float
 testdata/complex.lc 114:62-114:67  Float
-testdata/complex.lc 114:64-114:65  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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:73  Float -> Float
 testdata/complex.lc 114:70-114:75  Float
-testdata/complex.lc 114:72-114:73  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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: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: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: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  {a:Repr} -> {b:Repr} -> Complex a -> Complex b -> Complex a
-testdata/complex.lc 129:53-129:60  {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_ | {a:Repr} -> Complex a_ -> Complex a -> Complex a_ | {a:Repr} -> {b:Repr} -> Complex a -> Complex b -> Complex a
+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: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:67  Float -> Float
 testdata/complex.lc 129:62-129:71  Float
-testdata/complex.lc 129:63-129:64  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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:70  Float -> Float
 testdata/complex.lc 129:68-129:71  Float
-testdata/complex.lc 129:69-129:70  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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: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:79  Float -> Float
 testdata/complex.lc 129:74-129:83  Float
-testdata/complex.lc 129:75-129:76  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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:82  Float -> Float
 testdata/complex.lc 129:80-129:83  Float
-testdata/complex.lc 129:81-129:82  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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: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: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  {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  {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  {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  {a:Repr} -> Complex a -> Complex a
-testdata/complex.lc 141:8-141:9  {a:Repr} -> Complex a -> Complex a
-testdata/complex.lc 141:8-141:23  Complex a_
-testdata/complex.lc 141:11-141:12  {a:Repr} -> Complex a -> Complex a
-testdata/complex.lc 141:11-141:22  Complex a_
-testdata/complex.lc 141:14-141:15  {a:Repr} -> Complex a -> Complex a
-testdata/complex.lc 141:14-141:21  Complex a_
-testdata/complex.lc 141:17-141:18  {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  {a:Repr} -> Complex a -> Complex a
-testdata/complex.lc 143:8-143:10  {a:Repr} -> Complex a -> Complex a
-testdata/complex.lc 145:1-145:7  {a:Repr} -> Complex a -> VecScalar 1 Bool
-testdata/complex.lc 145:12-145:16  {a:Repr} -> Complex a -> Float
+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  {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  {a:Nat} -> {b} -> {_ : Num b} -> VecScalar a b -> VecScalar a b -> VecScalar a 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:
diff --git a/testdata/data.out b/testdata/data.out
index 1581a0c0..3d54c617 100644
--- a/testdata/data.out
+++ b/testdata/data.out
@@ -2,63 +2,63 @@ main is not found
 ------------ trace
 'Data0 :: Type
 Data0 :: 'Data0
-'Data0Case :: (a : 'Data0->Type) -> a Data0 -> (b:'Data0) -> a b
-match'Data0 :: (a : Type->Type) -> a 'Data0 -> (b:Type) -> a b -> a b
-'Data1 :: Type -> Type -> Type->Type
-Data1 :: {a} -> {b} -> {c} -> a -> b -> c -> 'Data1 a b c
-'Data1Case :: {a} -> {b} -> {c} -> (d : 'Data1 a b c -> Type) -> ((e:a) -> (f:b) -> (g:c) -> d (Data1 e f g)) -> (h : 'Data1 a b c) -> d h
-match'Data1 :: (a : Type->Type) -> ((b:Type) -> (c:Type) -> (d:Type) -> a ('Data1 b c d)) -> (e:Type) -> a e -> a e
+'Data0Case :: (a :: 'Data0 -> Type) -> a Data0 -> (b :: 'Data0) -> a b
+match'Data0 :: (a :: Type -> Type) -> a 'Data0 -> (b :: Type) -> 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 . (d :: 'Data1 a b c -> Type) -> ((e :: a) -> (f :: b) -> (g :: c) -> d (Data1 e f g)) -> (h :: 'Data1 a b c) -> d h
+match'Data1 :: (a :: Type -> Type) -> ((b :: Type) -> (c :: Type) -> (d :: Type) -> a ('Data1 b c d)) -> (e :: Type) -> a e -> a e
 'Data2 :: Type
-Data21 :: 'Int->'Data2
-Data22 :: 'Int -> 'Int->'Data2
-Data23 :: 'Int->'Data2
+Data21 :: 'Int -> 'Data2
+Data22 :: 'Int -> 'Int -> 'Data2
+Data23 :: 'Int -> 'Data2
 Data24 :: 'Data2
-'Data2Case :: (a : 'Data2->Type) -> ((b:'Int) -> a (Data21 b)) -> ((c:'Int) -> (d:'Int) -> a (Data22 c d)) -> ((e:'Int) -> a (Data23 e)) -> a Data24 -> (f:'Data2) -> a f
-match'Data2 :: (a : Type->Type) -> a 'Data2 -> (b:Type) -> a b -> a b
-x :: 'Data2->'Int
-y :: 'Data2->'Int
-'Data5 :: Type -> Type -> Type->Type
-Data51 :: {a} -> {b} -> {c} -> a -> 'Data5 a b c
-Data52 :: {a} -> {b} -> {c} -> a -> b -> c -> 'Data5 a b c
-Data53 :: {a} -> {b} -> {c} -> 'Int -> a -> 'Float -> b -> c -> 'Data5 a b c
-'Data5Case :: {a} -> {b} -> {c} -> (d : 'Data5 a b c -> Type) -> ((e:a) -> d (Data51 e)) -> ((f:a) -> (g:b) -> (h:c) -> d (Data52 f g h)) -> ((i:'Int) -> (j:a) -> (k:'Float) -> (l:b) -> (m:c) -> d (Data53 i j k l m)) -> (n : 'Data5 a b c) -> d n
-match'Data5 :: (a : Type->Type) -> ((b:Type) -> (c:Type) -> (d:Type) -> a ('Data5 b c d)) -> (e:Type) -> a e -> a e
-a5 :: {a} -> {b} -> {c} -> 'Data5 a b c -> a
-b5 :: {a} -> {b} -> {c} -> 'Data5 a b c -> b
-c5 :: {a} -> {b} -> {c} -> 'Data5 a b c -> c
+'Data2Case :: (a :: 'Data2 -> Type) -> ((b :: 'Int) -> a (Data21 b)) -> ((c :: 'Int) -> (d :: 'Int) -> a (Data22 c d)) -> ((e :: 'Int) -> a (Data23 e)) -> a Data24 -> (f :: 'Data2) -> a f
+match'Data2 :: (a :: Type -> Type) -> a 'Data2 -> (b :: Type) -> 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 . (d :: 'Data5 a b c -> Type) -> ((e :: a) -> d (Data51 e)) -> ((f :: a) -> (g :: b) -> (h :: c) -> d (Data52 f g h)) -> ((i :: 'Int) -> (j :: a) -> (k :: 'Float) -> (l :: b) -> (m :: c) -> d (Data53 i j k l m)) -> (n :: 'Data5 a b c) -> d n
+match'Data5 :: (a :: Type -> Type) -> ((b :: Type) -> (c :: Type) -> (d :: Type) -> a ('Data5 b c d)) -> (e :: Type) -> 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: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 | {a} -> {b} -> {c} -> a -> b -> c -> Data1 a b c
+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: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: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: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: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: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
@@ -67,16 +67,16 @@ 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 | {a} -> {b} -> {c} -> a -> Data5 a b c
-testdata/data.lc 10:32-10:34  {a} -> {b} -> {c} -> Data5 a b c -> a
+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 | {a} -> {b} -> {c} -> a -> b -> c -> Data5 a b c
+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  {a} -> {b} -> {c} -> Data5 a b c -> b
+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  {a} -> {b} -> {c} -> Data5 a b c -> c
+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 | {a} -> {b} -> {c} -> Int -> a -> Float -> b -> c -> Data5 a b c
+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
diff --git a/testdata/empty.out b/testdata/empty.out
index 6714e719..f1588695 100644
--- a/testdata/empty.out
+++ b/testdata/empty.out
@@ -1,7 +1,7 @@
 main is not found
 ------------ trace
 'Empty :: Type
-'EmptyCase :: (a : 'Empty->Type) -> (b:'Empty) -> a b
-match'Empty :: (a : Type->Type) -> a 'Empty -> (b:Type) -> a b -> a b
+'EmptyCase :: (a :: 'Empty -> Type) -> (b :: 'Empty) -> a b
+match'Empty :: (a :: Type -> Type) -> a 'Empty -> (b :: Type) -> a b -> a b
 ------------ tooltips
 testdata/empty.lc 3:6-3:11  Type
diff --git a/testdata/framebuffer02.reject.out b/testdata/framebuffer02.reject.out
index 2c4e68d1..9ae2b9aa 100644
--- a/testdata/framebuffer02.reject.out
+++ b/testdata/framebuffer02.reject.out
@@ -22,12 +22,12 @@ in testdata/framebuffer02.reject.lc:2:17:
                             )
 
 ------------ tooltips
-testdata/framebuffer02.reject.lc 2:17-2:28  {a : List Type} -> {_ : 'sameLayerCounts a} -> HList a -> FrameBuffer (ImageLC ('head Type a)) ('map Type ImageKind GetImageKind a)
+testdata/framebuffer02.reject.lc 2:17-2:28  forall (a :: List Type) . 'sameLayerCounts a => HList a -> FrameBuffer (ImageLC ('head Type a)) ('map Type ImageKind GetImageKind a)
 testdata/framebuffer02.reject.lc 2:17-5:30  FrameBuffer 1 ('map Type ImageKind GetImageKind ('Cons (Image 1 ('Color (VecScalar 4 Float))) ('Cons (Image 2 ('Color (VecScalar 4 Float))) ('Cons (Image 1 ('Color (VecScalar 1 Float))) 'Nil))))
 testdata/framebuffer02.reject.lc 2:29-5:30  (Image 1 ('Color (VecScalar 4 Float)), Image 2 ('Color (VecScalar 4 Float)), Image 1 ('Color (VecScalar 1 Float)))
-testdata/framebuffer02.reject.lc 2:30-2:41  {a:Nat} -> {b} -> {c} -> {_ : Num b} -> {_ : c ~ VecScalar a b} -> c -> Image 1 ('Color c)
+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  {a} -> a -> a -> a -> a -> VecS a 4
+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
@@ -36,12 +36,12 @@ 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  {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  {a:Nat} -> {b} -> {c} -> {_ : Num b} -> {_ : c ~ VecScalar a b} -> c -> Image 2 ('Color c)
+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  {a} -> a -> a -> a -> a -> VecS a 4
+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
@@ -50,6 +50,6 @@ 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  {a:Nat} -> {b} -> {c} -> {_ : Num b} -> {_ : c ~ VecScalar a b} -> c -> Image 1 ('Color c)
+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
diff --git a/testdata/id.out b/testdata/id.out
index 08cb1501..611e06a6 100644
--- a/testdata/id.out
+++ b/testdata/id.out
@@ -3,11 +3,11 @@ main is not found
 main' :: ('Float, 'Bool)
 ------------ tooltips
 testdata/id.lc 1:1-1:6  (Float, Bool)
-testdata/id.lc 3:19-3:20  b_
+testdata/id.lc 3:19-3:20  _b
 testdata/id.lc 4:8-4:27  (Float, Bool)
-testdata/id.lc 4:9-4:12  {a} -> a->a
+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  {a} -> a->a
+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
diff --git a/testdata/instantiate.out b/testdata/instantiate.out
index b1df8984..bfe23a03 100644
--- a/testdata/instantiate.out
+++ b/testdata/instantiate.out
@@ -3,16 +3,16 @@ main is not found
 main' :: 'VecS 'Float 2
 ------------ tooltips
 testdata/instantiate.lc 1:1-1:6  VecS Float 2
-testdata/instantiate.lc 2:13-2:20  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/instantiate.lc 2:24-2:25  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
+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  {a} -> a -> a -> VecS a 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  {a} -> a -> a -> VecS a 2
+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
diff --git a/testdata/language-features/adt/adt02.reject.out b/testdata/language-features/adt/adt02.reject.out
index ab363b68..34674b0a 100644
--- a/testdata/language-features/adt/adt02.reject.out
+++ b/testdata/language-features/adt/adt02.reject.out
@@ -7,10 +7,10 @@ in proj
 
 ------------ trace
 'Data3 :: Type
-Data3 :: 'Bool -> 'Char -> 'Bool->'Data3
-Data31 :: 'Int -> 'String -> 'Int->'Data3
-'Data3Case :: (a : 'Data3->Type) -> ((b:'Bool) -> (c:'Char) -> (d:'Bool) -> a (Data3 b c d)) -> ((e:'Int) -> (f:'String) -> (g:'Int) -> a (Data31 e f g)) -> (h:'Data3) -> a h
-match'Data3 :: (a : Type->Type) -> a 'Data3 -> (b:Type) -> a b -> a b
+Data3 :: 'Bool -> 'Char -> 'Bool -> 'Data3
+Data31 :: 'Int -> 'String -> 'Int -> 'Data3
+'Data3Case :: (a :: 'Data3 -> Type) -> ((b :: 'Bool) -> (c :: 'Char) -> (d :: 'Bool) -> a (Data3 b c d)) -> ((e :: 'Int) -> (f :: 'String) -> (g :: 'Int) -> a (Data31 e f g)) -> (h :: 'Data3) -> a h
+match'Data3 :: (a :: Type -> Type) -> a 'Data3 -> (b :: Type) -> a b -> a b
 !type error: can not unify
 'Bool
 with
@@ -23,11 +23,11 @@ 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: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 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
diff --git a/testdata/language-features/adt/gadt01.reject.out b/testdata/language-features/adt/gadt01.reject.out
index 39a78fe6..5d7c98fd 100644
--- a/testdata/language-features/adt/gadt01.reject.out
+++ b/testdata/language-features/adt/gadt01.reject.out
@@ -1,8 +1,8 @@
 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: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
diff --git a/testdata/language-features/adt/gadt03.reject.out b/testdata/language-features/adt/gadt03.reject.out
index da32d15b..9d9361c0 100644
--- a/testdata/language-features/adt/gadt03.reject.out
+++ b/testdata/language-features/adt/gadt03.reject.out
@@ -1,29 +1,29 @@
 illegal data definition (parameters are not uniform)
 ------------ trace
-'M2 :: Type -> 'String->Type
-Value2 :: {a} -> a -> {b:'String} -> 'M2 a b
-'M2Case :: {a} -> (b : (c:'String) -> 'M2 a c -> Type) -> ((d:a) -> {e:'String} -> b e (Value2 d e)) -> {f:'String} -> (g : 'M2 a f) -> b f g
-match'M2 :: (a : Type->Type) -> ((b:Type) -> (c:'String) -> a ('M2 b c)) -> (d:Type) -> a d -> a d
-'M3 :: Type -> 'String->Type
+'M2 :: Type -> 'String -> Type
+Value2 :: forall a . a -> forall (b :: 'String) . 'M2 a b
+'M2Case :: forall a . (b :: (c :: 'String) -> 'M2 a c -> Type) -> ((d :: a) -> forall (e :: 'String) . b e (Value2 d e)) -> forall (f :: 'String) . (g :: 'M2 a f) -> b f g
+match'M2 :: (a :: Type -> Type) -> ((b :: Type) -> (c :: 'String) -> a ('M2 b c)) -> (d :: Type) -> 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-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_ | {a} -> a -> {b:String} -> M2 a b
+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: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 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
diff --git a/testdata/language-features/adt/gadt04.reject.out b/testdata/language-features/adt/gadt04.reject.out
index a1aa694f..425f7213 100644
--- a/testdata/language-features/adt/gadt04.reject.out
+++ b/testdata/language-features/adt/gadt04.reject.out
@@ -5,12 +5,12 @@ already defined Value at testdata/language-features/adt/gadt04.reject.lc:6:3:
   Value :: a -> forall m . M a m
   ^^^^^
 ------------ trace
-'M :: Type -> 'String->Type
-Value :: {a} -> a -> {b:'String} -> 'M a b
-'MCase :: (a : (b:Type) -> (c:'String) -> 'M b c -> Type) -> ({d} -> (e:d) -> {f:'String} -> a d f (Value d e f)) -> {g} -> {h:'String} -> (i : 'M g h) -> a g h i
-match'M :: (a : Type->Type) -> ((b:Type) -> (c:'String) -> a ('M b c)) -> (d:Type) -> a d -> a d
-'M2 :: Type -> 'String->Type
-Value :: {a} -> a -> {b:'String} -> 'M2 a b
+'M :: Type -> 'String -> Type
+Value :: forall a . a -> forall (b :: 'String) . 'M a b
+'MCase :: (a :: (b :: Type) -> (c :: 'String) -> 'M b c -> Type) -> (forall d . (e :: d) -> forall (f :: 'String) . a d f (Value d e f)) -> forall g (h :: 'String) . (i :: 'M g h) -> a g h i
+match'M :: (a :: Type -> Type) -> ((b :: Type) -> (c :: 'String) -> a ('M b c)) -> (d :: Type) -> 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
   ^^^^^
@@ -18,34 +18,34 @@ Value :: {a} -> a -> {b:'String} -> 'M2
   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-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_ | {a} -> a -> {b:String} -> M a b
+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: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: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 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  {a} -> a -> {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: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: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 6:33-6:34  _b
diff --git a/testdata/language-features/basic-list/list01.out b/testdata/language-features/basic-list/list01.out
index d4d2b08d..3f0fb720 100644
--- a/testdata/language-features/basic-list/list01.out
+++ b/testdata/language-features/basic-list/list01.out
@@ -1,19 +1,19 @@
 main is not found
 ------------ trace
-value1 :: {a} -> 'List a
-value2 :: {a} -> {_ : 'Num a} -> 'List a
+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  {a} -> List a
-testdata/language-features/basic-list/list01.lc 1:10-1:12  {a} -> List a
-testdata/language-features/basic-list/list01.lc 2:1-2:7  {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 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
diff --git a/testdata/language-features/basic-list/list02.out b/testdata/language-features/basic-list/list02.out
index 7863cd3b..ff742fb8 100644
--- a/testdata/language-features/basic-list/list02.out
+++ b/testdata/language-features/basic-list/list02.out
@@ -1,19 +1,19 @@
 main is not found
 ------------ trace
-value1 :: {a} -> 'List a
-value2 :: {a} -> {_ : 'Num a} -> 'List a
+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  {a} -> List a
-testdata/language-features/basic-list/list02.lc 1:10-2:4  {a} -> List a
-testdata/language-features/basic-list/list02.lc 4:1-4:7  {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 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
diff --git a/testdata/language-features/basic-list/list07.reject.out b/testdata/language-features/basic-list/list07.reject.out
index 49e58ae2..01bf6d20 100644
--- a/testdata/language-features/basic-list/list07.reject.out
+++ b/testdata/language-features/basic-list/list07.reject.out
@@ -14,6 +14,6 @@ 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: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
diff --git a/testdata/language-features/basic-list/list08.out b/testdata/language-features/basic-list/list08.out
index 5817af05..1ac19568 100644
--- a/testdata/language-features/basic-list/list08.out
+++ b/testdata/language-features/basic-list/list08.out
@@ -4,5 +4,5 @@ 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:10-1:11  _b
 testdata/language-features/basic-list/list08.lc 1:12-1:15  Float | List Float
diff --git a/testdata/language-features/basic-list/list09.out b/testdata/language-features/basic-list/list09.out
index 838f14f3..492d3138 100644
--- a/testdata/language-features/basic-list/list09.out
+++ b/testdata/language-features/basic-list/list09.out
@@ -4,7 +4,7 @@ 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: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
diff --git a/testdata/language-features/basic-list/list10.reject.out b/testdata/language-features/basic-list/list10.reject.out
index 1a8c354f..0855f067 100644
--- a/testdata/language-features/basic-list/list10.reject.out
+++ b/testdata/language-features/basic-list/list10.reject.out
@@ -14,7 +14,7 @@ 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: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
diff --git a/testdata/language-features/basic-list/list11.out b/testdata/language-features/basic-list/list11.out
index 53a243cf..cb6df6d3 100644
--- a/testdata/language-features/basic-list/list11.out
+++ b/testdata/language-features/basic-list/list11.out
@@ -1,10 +1,10 @@
 main is not found
 ------------ trace
-value :: {a} -> {_ : 'Num a} -> 'List a
+value :: forall a . 'Num a => 'List a
 ------------ tooltips
-testdata/language-features/basic-list/list11.lc 1:1-1:6  {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  {a} -> a -> List a -> List a
-testdata/language-features/basic-list/list11.lc 1:11-1:13  {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
diff --git a/testdata/language-features/basic-list/list12.out b/testdata/language-features/basic-list/list12.out
index 78811ae1..44f3d7fb 100644
--- a/testdata/language-features/basic-list/list12.out
+++ b/testdata/language-features/basic-list/list12.out
@@ -1,26 +1,26 @@
 main is not found
 ------------ trace
-value :: {a} -> {_ : 'Num a} -> 'List a
+value :: forall a . 'Num a => 'List a
 ------------ tooltips
-testdata/language-features/basic-list/list12.lc 1:1-1:6  {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  {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  {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  {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  {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  {a} -> a -> List a -> List a
-testdata/language-features/basic-list/list12.lc 1:19-1:21  {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
diff --git a/testdata/language-features/basic-list/list13.out b/testdata/language-features/basic-list/list13.out
index 048307dc..65791b40 100644
--- a/testdata/language-features/basic-list/list13.out
+++ b/testdata/language-features/basic-list/list13.out
@@ -6,21 +6,21 @@ 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  {a} -> a -> List a -> List a
+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  {a} -> a -> List a -> List a
+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  {a} -> a -> List a -> List a
+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  {a} -> a -> List a -> List a
+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  {a} -> a -> List a -> List a
-testdata/language-features/basic-list/list13.lc 1:29-1:31  {a} -> List a
+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
diff --git a/testdata/language-features/basic-list/list14.reject.out b/testdata/language-features/basic-list/list14.reject.out
index 64380216..bfd60997 100644
--- a/testdata/language-features/basic-list/list14.reject.out
+++ b/testdata/language-features/basic-list/list14.reject.out
@@ -20,8 +20,8 @@ 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  {a} -> a -> List a -> List a
+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  {a} -> a -> List a -> List a
+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  ()
diff --git a/testdata/language-features/basic-list/list15.reject.out b/testdata/language-features/basic-list/list15.reject.out
index a4ebc72a..081eabad 100644
--- a/testdata/language-features/basic-list/list15.reject.out
+++ b/testdata/language-features/basic-list/list15.reject.out
@@ -20,10 +20,10 @@ 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  {a} -> a -> List a -> List a
+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  {a} -> a -> List a -> List a
+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  {a} -> a -> List a -> List a
+testdata/language-features/basic-list/list15.reject.lc 1:19-1:20  forall a . a -> List a -> List a
diff --git a/testdata/language-features/basic-list/list16.reject.out b/testdata/language-features/basic-list/list16.reject.out
index 470302ef..4f8d50a1 100644
--- a/testdata/language-features/basic-list/list16.reject.out
+++ b/testdata/language-features/basic-list/list16.reject.out
@@ -20,5 +20,5 @@ 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  {a} -> a -> List a -> List a
+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
diff --git a/testdata/language-features/basic-list/listcomp01.out b/testdata/language-features/basic-list/listcomp01.out
index 649a2f20..432c6b31 100644
--- a/testdata/language-features/basic-list/listcomp01.out
+++ b/testdata/language-features/basic-list/listcomp01.out
@@ -4,7 +4,7 @@ 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: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  ()
diff --git a/testdata/language-features/basic-list/listcomp02.out b/testdata/language-features/basic-list/listcomp02.out
index 691c04df..febc25b8 100644
--- a/testdata/language-features/basic-list/listcomp02.out
+++ b/testdata/language-features/basic-list/listcomp02.out
@@ -13,5 +13,5 @@ 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:10-2:11  List _b | _b -> List _a | _d
 testdata/language-features/basic-list/listcomp02.lc 2:19-2:20  List ()
diff --git a/testdata/language-features/basic-list/listcomp03.out b/testdata/language-features/basic-list/listcomp03.out
index d9d98c75..44bfd033 100644
--- a/testdata/language-features/basic-list/listcomp03.out
+++ b/testdata/language-features/basic-list/listcomp03.out
@@ -5,7 +5,7 @@ value :: 'List ()
 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: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  ()
diff --git a/testdata/language-features/basic-list/listcomp04.out b/testdata/language-features/basic-list/listcomp04.out
index 627ab11f..d126e288 100644
--- a/testdata/language-features/basic-list/listcomp04.out
+++ b/testdata/language-features/basic-list/listcomp04.out
@@ -13,7 +13,7 @@ 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: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 ()
diff --git a/testdata/language-features/basic-list/listcomp05.out b/testdata/language-features/basic-list/listcomp05.out
index 7602c5ef..54650e0b 100644
--- a/testdata/language-features/basic-list/listcomp05.out
+++ b/testdata/language-features/basic-list/listcomp05.out
@@ -5,9 +5,9 @@ value :: 'List ()
 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: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:32-1:33  () | _b
 testdata/language-features/basic-list/listcomp05.lc 1:36-1:38  ()
diff --git a/testdata/language-features/basic-list/listcomp06.out b/testdata/language-features/basic-list/listcomp06.out
index 231185e2..aef51c74 100644
--- a/testdata/language-features/basic-list/listcomp06.out
+++ b/testdata/language-features/basic-list/listcomp06.out
@@ -6,20 +6,20 @@ value2 :: 'List ()
 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: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: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: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:39-3:40  () | _b
 testdata/language-features/basic-list/listcomp06.lc 3:43-3:45  ()
diff --git a/testdata/language-features/basic-list/listcomp07.out b/testdata/language-features/basic-list/listcomp07.out
index a3f66edc..4b7b54ef 100644
--- a/testdata/language-features/basic-list/listcomp07.out
+++ b/testdata/language-features/basic-list/listcomp07.out
@@ -7,36 +7,36 @@ value3 :: 'List ()
 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 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: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: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: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: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: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 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: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:10-19:11  () | _b
 testdata/language-features/basic-list/listcomp07.lc 19:14-19:15  ()
diff --git a/testdata/language-features/basic-list/listcomp08.reject.out b/testdata/language-features/basic-list/listcomp08.reject.out
index 10384134..35f2448e 100644
--- a/testdata/language-features/basic-list/listcomp08.reject.out
+++ b/testdata/language-features/basic-list/listcomp08.reject.out
@@ -18,5 +18,5 @@ 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:10-1:33  _b -> List _a
 testdata/language-features/basic-list/listcomp08.reject.lc 1:23-1:33  String
diff --git a/testdata/language-features/basic-list/listcomp09.out b/testdata/language-features/basic-list/listcomp09.out
index d720baaf..bebcfae6 100644
--- a/testdata/language-features/basic-list/listcomp09.out
+++ b/testdata/language-features/basic-list/listcomp09.out
@@ -1,9 +1,9 @@
 main is not found
 ------------ trace
-value1 :: {_} -> 'List (()->'String)
+value1 :: Type => 'List (() -> 'String)
 ------------ tooltips
-testdata/language-features/basic-list/listcomp09.lc 1:1-1:7  {_} -> 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: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  {a} -> List a
+testdata/language-features/basic-list/listcomp09.lc 1:33-1:35  forall a . List a
diff --git a/testdata/language-features/basic-values/case02.out b/testdata/language-features/basic-values/case02.out
index 5c602ef2..e1b5a2e5 100644
--- a/testdata/language-features/basic-values/case02.out
+++ b/testdata/language-features/basic-values/case02.out
@@ -1,19 +1,19 @@
 main is not found
 ------------ trace
-value1 :: {a} -> {_ : 'Eq a} -> {_ : 'Num a}->()
-value2 :: {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  {a} -> {_ : Eq a} -> {_ : Num a}->()
+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 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 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  {a} -> {_ : Eq a} -> {_ : Num a} -> {_ : Eq a} -> {_ : Num a}->String
+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 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 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 7:8-8:11  Bool -> String | String
 testdata/language-features/basic-values/case02.lc 8:8-8:11  String
diff --git a/testdata/language-features/basic-values/case03.reject.out b/testdata/language-features/basic-values/case03.reject.out
index 8277264e..314fa80e 100644
--- a/testdata/language-features/basic-values/case03.reject.out
+++ b/testdata/language-features/basic-values/case03.reject.out
@@ -15,5 +15,5 @@ value1 = case () of
 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 2:8-3:10  Bool -> ()
 testdata/language-features/basic-values/case03.reject.lc 3:8-3:10  ()
diff --git a/testdata/language-features/basic-values/case05.out b/testdata/language-features/basic-values/case05.out
index f4f03c51..cfd1d9af 100644
--- a/testdata/language-features/basic-values/case05.out
+++ b/testdata/language-features/basic-values/case05.out
@@ -1,15 +1,15 @@
 main is not found
 ------------ trace
-value :: {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  {a} -> {_ : Eq a} -> {_ : Num a} -> a->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 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
 
diff --git a/testdata/language-features/basic-values/case06.out b/testdata/language-features/basic-values/case06.out
index 2867cc57..40e7db3b 100644
--- a/testdata/language-features/basic-values/case06.out
+++ b/testdata/language-features/basic-values/case06.out
@@ -1,10 +1,10 @@
 main is not found
 ------------ trace
-value :: {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  {a} -> {_ : Eq a} -> {_ : Num a} -> a->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 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 2:8-3:11  Bool -> Char
 testdata/language-features/basic-values/case06.lc 3:8-3:11  Char
diff --git a/testdata/language-features/basic-values/data01.out b/testdata/language-features/basic-values/data01.out
index a44de4d8..affad824 100644
--- a/testdata/language-features/basic-values/data01.out
+++ b/testdata/language-features/basic-values/data01.out
@@ -4,20 +4,20 @@ main is not found
 B :: 'A
 C :: 'A
 D :: 'A
-'ACase :: (a : 'A->Type) -> a B -> a C -> a D -> (b:'A) -> a b
-match'A :: (a : Type->Type) -> a 'A -> (b:Type) -> a b -> a b
+'ACase :: (a :: 'A -> Type) -> a B -> a C -> a D -> (b :: 'A) -> a b
+match'A :: (a :: Type -> Type) -> a 'A -> (b :: Type) -> a b -> a b
 'E :: Type
 F :: 'E
-G :: ()->'E
+G :: () -> 'E
 H :: 'E
-'ECase :: (a : 'E->Type) -> a F -> ((b:()) -> a (G b)) -> a H -> (c:'E) -> a c
-match'E :: (a : Type->Type) -> a 'E -> (b:Type) -> a b -> a b
+'ECase :: (a :: 'E -> Type) -> a F -> ((b :: ()) -> a (G b)) -> a H -> (c :: 'E) -> a c
+match'E :: (a :: Type -> Type) -> a 'E -> (b :: Type) -> a b -> a b
 'D1 :: Type
 C1 :: 'D1
-C2 :: ()->'D1
+C2 :: () -> 'D1
 C3 :: 'D1
-'D1Case :: (a : 'D1->Type) -> a C1 -> ((b:()) -> a (C2 b)) -> a C3 -> (c:'D1) -> a c
-match'D1 :: (a : Type->Type) -> a 'D1 -> (b:Type) -> a b -> a b
+'D1Case :: (a :: 'D1 -> Type) -> a C1 -> ((b :: ()) -> a (C2 b)) -> a C3 -> (c :: 'D1) -> a c
+match'D1 :: (a :: Type -> Type) -> a 'D1 -> (b :: Type) -> 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
@@ -27,12 +27,12 @@ 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: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: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
diff --git a/testdata/language-features/basic-values/def01.out b/testdata/language-features/basic-values/def01.out
index 4fa69d6c..6c174057 100644
--- a/testdata/language-features/basic-values/def01.out
+++ b/testdata/language-features/basic-values/def01.out
@@ -1,12 +1,12 @@
 main is not found
 ------------ trace
 unit :: ()
-fun1 :: {a} -> {b} -> {_ : 'Num b} -> a->b
-fun2 :: {a} -> {b} -> {c} -> {d} -> {e} -> a -> b -> c -> d -> e->'Char
+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  {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  {a} -> {b} -> {c} -> {d} -> {e} -> a -> b -> c -> d -> e->Char
+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
diff --git a/testdata/language-features/basic-values/def03.out b/testdata/language-features/basic-values/def03.out
index 3161d04a..02db7cba 100644
--- a/testdata/language-features/basic-values/def03.out
+++ b/testdata/language-features/basic-values/def03.out
@@ -1,15 +1,15 @@
 main is not found
 ------------ trace
-fun :: {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  {a} -> {_ : Eq a} -> {_ : Num a} -> {_ : Eq a} -> {_ : Num a} -> a->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 1:9-2:12  Bool -> Char
 testdata/language-features/basic-values/def03.lc 2:9-2:12  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
 
diff --git a/testdata/language-features/basic-values/def04.out b/testdata/language-features/basic-values/def04.out
index 9b3e36f2..1f3fbeb7 100644
--- a/testdata/language-features/basic-values/def04.out
+++ b/testdata/language-features/basic-values/def04.out
@@ -1,17 +1,17 @@
 main is not found
 ------------ trace
-fun :: {a} -> {_ : 'Eq a} -> {_ : 'Num a} -> {_ : 'Eq a} -> {_ : 'Num a} -> a->'Char
-fun2 :: {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  {a} -> {_ : Eq a} -> {_ : Num a} -> {_ : Eq a} -> {_ : Num a} -> a->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 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 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  {a} -> {b} -> {_ : Eq a} -> {_ : Num a} -> {_ : Eq a} -> {_ : Num a} -> a -> b->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 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 6:12-7:15  Bool -> Char | Char
 testdata/language-features/basic-values/def04.lc 7:12-7:15  Char
diff --git a/testdata/language-features/basic-values/def07.reject.out b/testdata/language-features/basic-values/def07.reject.out
index e54d61ca..be624025 100644
--- a/testdata/language-features/basic-values/def07.reject.out
+++ b/testdata/language-features/basic-values/def07.reject.out
@@ -5,9 +5,9 @@ fun _ = '_'
 fun 1 = '1'
 ^^^
 ------------ trace
-fun :: {a} -> {_ : 'Eq a} -> {_ : 'Num a} -> {_ : 'Eq a} -> {_ : 'Num a} -> a->'Char
-fun2 :: {a} -> {b} -> {_ : 'Eq a} -> {_ : 'Num a} -> a -> b->'Char
-fun :: {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,24 +15,24 @@ fun _ = '_'
 fun 1 = '1'
 ^^^
 ------------ tooltips
-testdata/language-features/basic-values/def07.reject.lc 1:1-1:4  {a} -> {_ : Eq a} -> {_ : Num a} -> {_ : Eq a} -> {_ : Num a} -> a->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 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  {a} -> {b} -> {_ : Eq a} -> {_ : Num a} -> a -> b->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  {a} -> a->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'
 fun 2 = '2'
 Missing case(s):
-  _ | False <- fromInt 1 == a_, False <- fromInt 2 == a_
+  _ | False <- fromInt 1 == _a, False <- fromInt 2 == _a
 
 Uncovered pattern(s) at testdata/language-features/basic-values/def07.reject.lc:3:1:
 fun2 1 _ = '1'
 ^^^^
 Missing case(s):
-  _ _ | False <- fromInt 1 == b_
+  _ _ | False <- fromInt 1 == _b
 
diff --git a/testdata/language-features/basic-values/fixity01.out b/testdata/language-features/basic-values/fixity01.out
index 4d3a5cf9..f30cd6fa 100644
--- a/testdata/language-features/basic-values/fixity01.out
+++ b/testdata/language-features/basic-values/fixity01.out
@@ -1,15 +1,15 @@
 main is not found
 ------------ trace
-funL :: {a} -> {b} -> a -> b->a
-funR :: {a} -> {b} -> a -> b->a
-<<<< :: {a} -> {b} -> a -> b->a
->>>> :: {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  {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  {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  {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  {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
diff --git a/testdata/language-features/basic-values/fixity02.out b/testdata/language-features/basic-values/fixity02.out
index bed65026..2f87c92d 100644
--- a/testdata/language-features/basic-values/fixity02.out
+++ b/testdata/language-features/basic-values/fixity02.out
@@ -1,9 +1,9 @@
 main is not found
 ------------ trace
-funL :: {a} -> {b} -> a -> b->a
-funR :: {a} -> {b} -> a -> b->b
-<@ :: {a} -> {b} -> a -> b->a
-@> :: {a} -> {b} -> a -> b->b
+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
@@ -21,251 +21,251 @@ funValue6 :: 'Char
 funValue7 :: 'String
 funValue8 :: ()
 ------------ tooltips
-testdata/language-features/basic-values/fixity02.lc 1:1-1:5  {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  {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  {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  {a} -> {b} -> a -> b->b
-testdata/language-features/basic-values/fixity02.lc 5:10-5:11  b_
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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: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  {a} -> {b} -> a -> b->a
+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  {a} -> {b} -> a -> b->b
+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: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: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  {a} -> {b} -> a -> b->a
+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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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: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  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->a
+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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->a
+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: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: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  {a} -> {b} -> a -> b->a
+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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->a
+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:15  _a -> ()
 testdata/language-features/basic-values/fixity02.lc 18:10-18:34  ()
-testdata/language-features/basic-values/fixity02.lc 18:13-18:15  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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: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  {a} -> {b} -> a -> b->a
+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  {a} -> {b} -> a -> b->b
+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: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: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  {a} -> {b} -> a -> b->a
+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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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: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  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->a
+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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->a
+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: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: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  {a} -> {b} -> a -> b->a
+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  {a} -> {b} -> a -> b->b
+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: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  {a} -> {b} -> a -> b->a
+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:22  _a -> ()
 testdata/language-features/basic-values/fixity02.lc 27:13-27:49  ()
-testdata/language-features/basic-values/fixity02.lc 27:16-27:22  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->a
+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
diff --git a/testdata/language-features/basic-values/if01.out b/testdata/language-features/basic-values/if01.out
index d9211a28..991efd46 100644
--- a/testdata/language-features/basic-values/if01.out
+++ b/testdata/language-features/basic-values/if01.out
@@ -6,12 +6,12 @@ value2 :: '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: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: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
diff --git a/testdata/language-features/basic-values/if04.reject.out b/testdata/language-features/basic-values/if04.reject.out
index eed0fc59..23a77a44 100644
--- a/testdata/language-features/basic-values/if04.reject.out
+++ b/testdata/language-features/basic-values/if04.reject.out
@@ -19,6 +19,6 @@ 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: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
diff --git a/testdata/language-features/basic-values/infix01.out b/testdata/language-features/basic-values/infix01.out
index d4e62854..33ab245c 100644
--- a/testdata/language-features/basic-values/infix01.out
+++ b/testdata/language-features/basic-values/infix01.out
@@ -1,13 +1,13 @@
 main is not found
 ------------ trace
-fun :: {a} -> {b} -> a -> b->()
-value :: {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  {a} -> {b} -> a -> b->()
+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  {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: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  {a} -> {b} -> a -> b->()
-testdata/language-features/basic-values/infix01.lc 3:21-3:22  c_
+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
diff --git a/testdata/language-features/basic-values/infix02.out b/testdata/language-features/basic-values/infix02.out
index c5c2b99c..11e17685 100644
--- a/testdata/language-features/basic-values/infix02.out
+++ b/testdata/language-features/basic-values/infix02.out
@@ -1,13 +1,13 @@
 main is not found
 ------------ trace
-fun :: {a} -> {b} -> {c} -> a -> b -> c->()
-value :: {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  {a} -> {b} -> {c} -> a -> b -> c->()
+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  {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  {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 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
diff --git a/testdata/language-features/basic-values/infix03.out b/testdata/language-features/basic-values/infix03.out
index dcdc1bb6..dcab8247 100644
--- a/testdata/language-features/basic-values/infix03.out
+++ b/testdata/language-features/basic-values/infix03.out
@@ -1,33 +1,33 @@
 main is not found
 ------------ trace
 'D :: Type
-D2 :: () -> ()->'D
-D3 :: () -> () -> ()->'D
-'DCase :: (a : 'D->Type) -> ((b:()) -> (c:()) -> a (D2 b c)) -> ((d:()) -> (e:()) -> (f:()) -> a (D3 d e f)) -> (g:'D) -> a g
-match'D :: (a : Type->Type) -> a 'D -> (b:Type) -> a b -> a b
-d2 :: () -> ()->'D
-d3 :: () -> () -> ()->'D
+D2 :: () -> () -> 'D
+D3 :: () -> () -> () -> 'D
+'DCase :: (a :: 'D -> Type) -> ((b :: ()) -> (c :: ()) -> a (D2 b c)) -> ((d :: ()) -> (e :: ()) -> (f :: ()) -> a (D3 d e f)) -> (g :: 'D) -> a g
+match'D :: (a :: Type -> Type) -> a 'D -> (b :: Type) -> 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: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: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: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 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
diff --git a/testdata/language-features/basic-values/lambda01.out b/testdata/language-features/basic-values/lambda01.out
index 14711679..e2c51312 100644
--- a/testdata/language-features/basic-values/lambda01.out
+++ b/testdata/language-features/basic-values/lambda01.out
@@ -1,15 +1,15 @@
 main is not found
 ------------ trace
-fun1 :: {a} -> a->()
-fun2 :: {a} -> a->()
-fun3 :: {a} -> a->()
-fun4 :: {a} -> {b} -> {c} -> {d} -> {e} -> {f} -> {g} -> {h} -> {i} -> a -> b -> c -> d -> e -> f -> g -> h -> i->()
+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 -> ()
 ------------ tooltips
-testdata/language-features/basic-values/lambda01.lc 1:1-1:5  {a} -> a->()
+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  {a} -> a->()
+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  {a} -> a->()
+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  {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 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  ()
diff --git a/testdata/language-features/basic-values/lambda03.out b/testdata/language-features/basic-values/lambda03.out
index 7d9a98ae..902fdc98 100644
--- a/testdata/language-features/basic-values/lambda03.out
+++ b/testdata/language-features/basic-values/lambda03.out
@@ -1,9 +1,9 @@
 main is not found
 ------------ trace
-fun1 :: {a} -> {b} -> {c} -> a -> b -> c->b
-fun2 :: {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  {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  {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
diff --git a/testdata/language-features/basic-values/let01.out b/testdata/language-features/basic-values/let01.out
index 4c4793b6..8ab8c8e0 100644
--- a/testdata/language-features/basic-values/let01.out
+++ b/testdata/language-features/basic-values/let01.out
@@ -1,25 +1,25 @@
 main is not found
 ------------ trace
-value1 :: {a} -> {_ : 'Num a}->a
-value2 :: {a} -> {_ : 'Num a}->a
-value3 :: {a} -> {_ : 'Num a}->a
-value4 :: {a} -> {_ : 'Num a}->a
-value5 :: {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  {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  {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  {a} -> {_ : Num a}->a
-testdata/language-features/basic-values/let01.lc 8:11-8:12  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  {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  {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 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
diff --git a/testdata/language-features/basic-values/let02.out b/testdata/language-features/basic-values/let02.out
index 95f6541e..bee7d640 100644
--- a/testdata/language-features/basic-values/let02.out
+++ b/testdata/language-features/basic-values/let02.out
@@ -7,7 +7,7 @@ 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 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  ()
diff --git a/testdata/language-features/basic-values/literal01.out b/testdata/language-features/basic-values/literal01.out
index dd36d512..0f7b3dbf 100644
--- a/testdata/language-features/basic-values/literal01.out
+++ b/testdata/language-features/basic-values/literal01.out
@@ -1,20 +1,20 @@
 main is not found
 ------------ trace
-intValue1 :: {a} -> {_ : 'Num a}->a
-intValue2 :: {a} -> {_ : 'Num a}->a
-intValue3 :: {a} -> {_ : 'Num a}->a
+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  {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  {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  {a} -> {_ : Num a}->a
-testdata/language-features/basic-values/literal01.lc 3:13-3:18  b_
+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
diff --git a/testdata/language-features/basic-values/operator01.out b/testdata/language-features/basic-values/operator01.out
index 78e55853..597a3a00 100644
--- a/testdata/language-features/basic-values/operator01.out
+++ b/testdata/language-features/basic-values/operator01.out
@@ -1,15 +1,15 @@
 main is not found
 ------------ trace
-#$# :: {a} -> {b} -> a -> b->()
-$$# :: {a} -> {b} -> a -> b->()
-$$$# :: {a} -> {b} -> a -> b->()
-$$$ :: {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  {a} -> {b} -> a -> b->()
+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  {a} -> {b} -> a -> b->()
+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  {a} -> {b} -> a -> b->()
+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  {a} -> {b} -> a -> b->()
+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  ()
diff --git a/testdata/language-features/basic-values/operator02.reject.out b/testdata/language-features/basic-values/operator02.reject.out
index 8e5ed72c..93092e52 100644
--- a/testdata/language-features/basic-values/operator02.reject.out
+++ b/testdata/language-features/basic-values/operator02.reject.out
@@ -5,9 +5,9 @@ a #$# b = ()
 a #$# b = ()
   ^^^
 ------------ trace
-#$# :: {a} -> {b} -> a -> b->()
-fun :: {a} -> a->()
-#$# :: {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,9 @@ a #$# b = ()
 a #$# b = ()
   ^^^
 ------------ tooltips
-testdata/language-features/basic-values/operator02.reject.lc 1:3-1:6  {a} -> {b} -> a -> b->()
+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  {a} -> a->()
+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  {a} -> {b} -> a -> b->()
+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  ()
diff --git a/testdata/language-features/basic-values/operator05.out b/testdata/language-features/basic-values/operator05.out
index 16c940fc..30b3fcac 100644
--- a/testdata/language-features/basic-values/operator05.out
+++ b/testdata/language-features/basic-values/operator05.out
@@ -5,7 +5,7 @@ value1 :: ()
 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:19  _a -> ()
 testdata/language-features/basic-values/operator05.lc 2:13-2:22  ()
-testdata/language-features/basic-values/operator05.lc 2:16-2:19  {a} -> {b} -> a -> b->()
+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  ()
diff --git a/testdata/language-features/basic-values/operator06.out b/testdata/language-features/basic-values/operator06.out
index c37005c3..4fa5381e 100644
--- a/testdata/language-features/basic-values/operator06.out
+++ b/testdata/language-features/basic-values/operator06.out
@@ -4,8 +4,8 @@ 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:16  _a -> ()
 testdata/language-features/basic-values/operator06.lc 1:10-1:19  ()
-testdata/language-features/basic-values/operator06.lc 1:13-1:16  {a} -> {b} -> a -> b->()
+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  ()
diff --git a/testdata/language-features/basic-values/shadowing01.out b/testdata/language-features/basic-values/shadowing01.out
index dad7b72b..8956a8a3 100644
--- a/testdata/language-features/basic-values/shadowing01.out
+++ b/testdata/language-features/basic-values/shadowing01.out
@@ -5,7 +5,7 @@ value :: '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 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
diff --git a/testdata/language-features/basic-values/shadowing02.out b/testdata/language-features/basic-values/shadowing02.out
index a3acdba8..201f5f75 100644
--- a/testdata/language-features/basic-values/shadowing02.out
+++ b/testdata/language-features/basic-values/shadowing02.out
@@ -1,23 +1,23 @@
 main is not found
 ------------ trace
-c :: {a} -> {_ : 'Num a}->a
+c :: forall a . 'Num a => a
 world :: 'String
 value2 :: 'Char
 ------------ tooltips
-testdata/language-features/basic-values/shadowing02.lc 1:1-1:2  {a} -> {_ : Num a}->a
-testdata/language-features/basic-values/shadowing02.lc 1:5-1:6  b_
+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 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  {a} -> {_ : Num a}->a
+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
diff --git a/testdata/language-features/basic-values/shadowing03.out b/testdata/language-features/basic-values/shadowing03.out
index f4b60d48..23d28466 100644
--- a/testdata/language-features/basic-values/shadowing03.out
+++ b/testdata/language-features/basic-values/shadowing03.out
@@ -1,6 +1,6 @@
 main is not found
 ------------ trace
-x :: {a} -> {b} -> a -> b->()
+x :: forall a b . a -> b -> ()
 ------------ tooltips
-testdata/language-features/basic-values/shadowing03.lc 1:1-1:2  {a} -> {b} -> a -> b->()
+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  ()
diff --git a/testdata/language-features/basic-values/shadowing04.out b/testdata/language-features/basic-values/shadowing04.out
index b1a26817..70a54caa 100644
--- a/testdata/language-features/basic-values/shadowing04.out
+++ b/testdata/language-features/basic-values/shadowing04.out
@@ -1,6 +1,6 @@
 main is not found
 ------------ trace
-__ :: {a} -> {b} -> a -> b->()
+__ :: forall a b . a -> b -> ()
 ------------ tooltips
-testdata/language-features/basic-values/shadowing04.lc 1:1-1:3  {a} -> {b} -> a -> b->()
+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  ()
diff --git a/testdata/language-features/basic-values/tuple02.out b/testdata/language-features/basic-values/tuple02.out
index 90605d50..649fc85f 100644
--- a/testdata/language-features/basic-values/tuple02.out
+++ b/testdata/language-features/basic-values/tuple02.out
@@ -1,12 +1,12 @@
 main is not found
 ------------ trace
-tuple1 :: {a} -> {_ : 'Num a}->(a, 'Float, 'Char, 'String, ())
+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  {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: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
diff --git a/testdata/language-features/basic-values/typesig03.out b/testdata/language-features/basic-values/typesig03.out
index 720df136..68d312c9 100644
--- a/testdata/language-features/basic-values/typesig03.out
+++ b/testdata/language-features/basic-values/typesig03.out
@@ -1,23 +1,23 @@
 main is not found
 ------------ trace
-fun1 :: {a} -> {b} -> {c} -> a -> b -> c->()
-fun2 :: {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: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: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: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  {a} -> {b} -> {c} -> a -> b -> c->()
-testdata/language-features/basic-values/typesig03.lc 2:14-2:16  () | c_ -> b_ -> a_->() | c_ -> b_->() | c_->()
-testdata/language-features/basic-values/typesig03.lc 4:7-4:8  f_
+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: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: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  {a} -> {b} -> {c} -> a -> b -> c->()
-testdata/language-features/basic-values/typesig03.lc 5:14-5:16  () | c_ -> b_ -> a_->() | c_ -> b_->() | c_->()
+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 -> ()
diff --git a/testdata/language-features/basic-values/typesig04.out b/testdata/language-features/basic-values/typesig04.out
index 9d7d2072..3059a3ac 100644
--- a/testdata/language-features/basic-values/typesig04.out
+++ b/testdata/language-features/basic-values/typesig04.out
@@ -1,21 +1,21 @@
 main is not found
 ------------ trace
-fun1 :: {a} -> {b} -> {c} -> a -> (b->c)->()
-fun2 :: {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: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: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  {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 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: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  {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 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) -> ()
diff --git a/testdata/language-features/basic-values/typesig05.out b/testdata/language-features/basic-values/typesig05.out
index a2d2e91d..1e8fa0f6 100644
--- a/testdata/language-features/basic-values/typesig05.out
+++ b/testdata/language-features/basic-values/typesig05.out
@@ -1,41 +1,41 @@
 main is not found
 ------------ trace
-funL :: {a} -> {b} -> a -> b->a
-funR :: {a} -> {b} -> a -> b->b
+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  {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  {a} -> {b} -> a -> b->b
-testdata/language-features/basic-values/typesig05.lc 2:12-2:13  b_
+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  {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: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  {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: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  {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: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  {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: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
diff --git a/testdata/language-features/basic-values/typesig06.out b/testdata/language-features/basic-values/typesig06.out
index 2335d27b..a5bcd427 100644
--- a/testdata/language-features/basic-values/typesig06.out
+++ b/testdata/language-features/basic-values/typesig06.out
@@ -1,25 +1,25 @@
 main is not found
 ------------ trace
-funL :: {a} -> {b} -> a -> b->a
-<@ :: {a} -> {b} -> a -> b->a
+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  {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  {a} -> {b} -> a -> b->a
-testdata/language-features/basic-values/typesig06.lc 2:10-2:11  d_
+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: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  {a} -> {b} -> a -> b->a
+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: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  {a} -> {b} -> a -> b->a
+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
diff --git a/testdata/language-features/basic-values/typesig07.out b/testdata/language-features/basic-values/typesig07.out
index 402f8630..d8beb681 100644
--- a/testdata/language-features/basic-values/typesig07.out
+++ b/testdata/language-features/basic-values/typesig07.out
@@ -3,24 +3,24 @@ main is not found
 value1 :: 'Int
 value2 :: 'Int
 value3 :: 'Int
-value4 :: () -> ()->()
-@@@ :: () -> ()->()
-value6 :: () -> ()->()
+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 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 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 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 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  () | () -> () | () -> () -> ()
diff --git a/testdata/language-features/basic-values/typesyn02.out b/testdata/language-features/basic-values/typesyn02.out
index dc6e687e..858e7b33 100644
--- a/testdata/language-features/basic-values/typesyn02.out
+++ b/testdata/language-features/basic-values/typesyn02.out
@@ -1,14 +1,14 @@
 main is not found
 ------------ trace
 'MyUnit :: Type
-fun :: {a} -> a -> ()->()
+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: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  {a} -> a -> ()->()
-testdata/language-features/basic-values/typesyn02.lc 4:12-4:14  () | ()->() | a_ -> ()->()
+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 -> () -> ()
diff --git a/testdata/language-features/basic-values/where05.out b/testdata/language-features/basic-values/where05.out
index 95f7c3c3..a0785fa9 100644
--- a/testdata/language-features/basic-values/where05.out
+++ b/testdata/language-features/basic-values/where05.out
@@ -1,35 +1,35 @@
 main is not found
 ------------ trace
-value1 :: {a} -> {_ : 'Eq a} -> {_ : 'Num a}->()
-value2 :: {a} -> {_ : 'Eq a} -> {_ : 'Num a}->()
-value3 :: {a} -> {_ : 'Eq a} -> {_ : 'Num a}->()
-value4 :: {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  {a} -> {_ : Eq a} -> {_ : Num a}->()
+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 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: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  {a} -> {_ : Eq a} -> {_ : Num a}->()
+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 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 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  {a} -> {_ : Eq a} -> {_ : Num a}->()
+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 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 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  {a} -> {_ : Eq a} -> {_ : Num a}->()
+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 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 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  ()
diff --git a/testdata/language-features/basic-values/wildcard01.out b/testdata/language-features/basic-values/wildcard01.out
index dd651320..891a7edd 100644
--- a/testdata/language-features/basic-values/wildcard01.out
+++ b/testdata/language-features/basic-values/wildcard01.out
@@ -1,6 +1,6 @@
 main is not found
 ------------ trace
-funUnit :: {a} -> a->()
+funUnit :: forall a . a -> ()
 ------------ tooltips
-testdata/language-features/basic-values/wildcard01.lc 1:1-1:8  {a} -> a->()
+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  ()
diff --git a/testdata/language-features/guard/guard03.out b/testdata/language-features/guard/guard03.out
index 60e74282..2af70393 100644
--- a/testdata/language-features/guard/guard03.out
+++ b/testdata/language-features/guard/guard03.out
@@ -6,7 +6,7 @@ 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 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
diff --git a/testdata/language-features/guard/guard04.out b/testdata/language-features/guard/guard04.out
index 7ce283ad..bf31f3ec 100644
--- a/testdata/language-features/guard/guard04.out
+++ b/testdata/language-features/guard/guard04.out
@@ -6,5 +6,5 @@ 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 2:12-3:24  Bool -> String
 testdata/language-features/guard/guard04.lc 3:17-3:24  String
diff --git a/testdata/language-features/guard/guard07.out b/testdata/language-features/guard/guard07.out
index 2a965392..f4e69791 100644
--- a/testdata/language-features/guard/guard07.out
+++ b/testdata/language-features/guard/guard07.out
@@ -6,7 +6,7 @@ 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 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
diff --git a/testdata/language-features/guard/guard08.out b/testdata/language-features/guard/guard08.out
index 7cab16c3..5c9c1111 100644
--- a/testdata/language-features/guard/guard08.out
+++ b/testdata/language-features/guard/guard08.out
@@ -6,7 +6,7 @@ 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: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
diff --git a/testdata/language-features/guard/guard09.out b/testdata/language-features/guard/guard09.out
index 437466c6..e0b89ef8 100644
--- a/testdata/language-features/guard/guard09.out
+++ b/testdata/language-features/guard/guard09.out
@@ -6,7 +6,7 @@ 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 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
diff --git a/testdata/language-features/guard/guard11.out b/testdata/language-features/guard/guard11.out
index fead2674..abf02c69 100644
--- a/testdata/language-features/guard/guard11.out
+++ b/testdata/language-features/guard/guard11.out
@@ -1,10 +1,10 @@
 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 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 2:9-3:24  Bool -> String
 testdata/language-features/guard/guard11.lc 3:17-3:24  String
diff --git a/testdata/language-features/guard/guard13.out b/testdata/language-features/guard/guard13.out
index f801f842..06e22436 100644
--- a/testdata/language-features/guard/guard13.out
+++ b/testdata/language-features/guard/guard13.out
@@ -1,10 +1,10 @@
 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: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:9-1:24  Bool -> ()
 testdata/language-features/guard/guard13.lc 1:22-1:24  ()
diff --git a/testdata/language-features/guard/guard14.out b/testdata/language-features/guard/guard14.out
index ce882094..6239a07f 100644
--- a/testdata/language-features/guard/guard14.out
+++ b/testdata/language-features/guard/guard14.out
@@ -6,6 +6,6 @@ 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 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  ()
diff --git a/testdata/language-features/guard/guard15.out b/testdata/language-features/guard/guard15.out
index d15dfe52..d29b7738 100644
--- a/testdata/language-features/guard/guard15.out
+++ b/testdata/language-features/guard/guard15.out
@@ -7,5 +7,5 @@ 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 2:20-3:27  Bool -> ()
 testdata/language-features/guard/guard15.lc 3:25-3:27  ()
diff --git a/testdata/language-features/guard/guard16.out b/testdata/language-features/guard/guard16.out
index bb8f2af3..d2bec88d 100644
--- a/testdata/language-features/guard/guard16.out
+++ b/testdata/language-features/guard/guard16.out
@@ -1,12 +1,12 @@
 main is not found
 ------------ trace
-value :: {a} -> {_ : 'Eq a} -> {_ : 'Num a}->()
+value :: forall a . ('Eq a, 'Num a) => ()
 ------------ tooltips
-testdata/language-features/guard/guard16.lc 1:1-1:6  {a} -> {_ : Eq a} -> {_ : Num a}->()
+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 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 2:15-3:10  Bool -> ()
 testdata/language-features/guard/guard16.lc 3:8-3:10  ()
diff --git a/testdata/language-features/module/import09.out b/testdata/language-features/module/import09.out
index 080f162a..b084e577 100644
--- a/testdata/language-features/module/import09.out
+++ b/testdata/language-features/module/import09.out
@@ -1,11 +1,11 @@
 main is not found
 ------------ trace
-fun :: {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: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  {a} -> a -> ()->()
-testdata/language-features/module/import09.lc 4:12-4:14  () | ()->() | a_ -> ()->()
+testdata/language-features/module/import09.lc 4:1-4:4  forall a . a -> () -> ()
+testdata/language-features/module/import09.lc 4:12-4:14  () | () -> () | _a -> () -> ()
diff --git a/testdata/language-features/pattern/pattern01.out b/testdata/language-features/pattern/pattern01.out
index 7cb01af3..2d8ea959 100644
--- a/testdata/language-features/pattern/pattern01.out
+++ b/testdata/language-features/pattern/pattern01.out
@@ -1,23 +1,23 @@
 main is not found
 ------------ trace
-fun1 :: {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  {a} -> {_ : Eq a} -> {_ : Num a} -> a->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 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: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 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: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 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: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:
diff --git a/testdata/language-features/pattern/uncovered.out b/testdata/language-features/pattern/uncovered.out
index c96c691e..e24ca6ec 100644
--- a/testdata/language-features/pattern/uncovered.out
+++ b/testdata/language-features/pattern/uncovered.out
@@ -1,14 +1,14 @@
 main is not found
 ------------ trace
-f :: {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  {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 | _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
diff --git a/testdata/language-features/pattern/unreachable.out b/testdata/language-features/pattern/unreachable.out
index 51c957b3..4a899374 100644
--- a/testdata/language-features/pattern/unreachable.out
+++ b/testdata/language-features/pattern/unreachable.out
@@ -1,8 +1,8 @@
 main is not found
 ------------ trace
-f :: {a} -> a->'String
+f :: forall a . a -> 'String
 ------------ tooltips
-testdata/language-features/pattern/unreachable.lc 4:1-4:2  {a} -> a->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:
diff --git a/testdata/language-features/recursion/simplerec01.out b/testdata/language-features/recursion/simplerec01.out
index 9be285c9..42a0f078 100644
--- a/testdata/language-features/recursion/simplerec01.out
+++ b/testdata/language-features/recursion/simplerec01.out
@@ -1,9 +1,9 @@
 main is not found
 ------------ trace
-fun :: {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  {a} -> {_ : Num a} -> {_ : Eq a} -> {_ : Num a} -> a->Char
+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: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
diff --git a/testdata/language-features/recursion/simplerec02.out b/testdata/language-features/recursion/simplerec02.out
index 43dd847f..107d0414 100644
--- a/testdata/language-features/recursion/simplerec02.out
+++ b/testdata/language-features/recursion/simplerec02.out
@@ -4,7 +4,7 @@ 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 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  ()
diff --git a/testdata/language-features/recursion/simplerec03.out b/testdata/language-features/recursion/simplerec03.out
index 30b0755d..dd90c946 100644
--- a/testdata/language-features/recursion/simplerec03.out
+++ b/testdata/language-features/recursion/simplerec03.out
@@ -5,6 +5,6 @@ value :: ()
 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 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
diff --git a/testdata/language-features/section/section01.out b/testdata/language-features/section/section01.out
index 2f19c090..07477f24 100644
--- a/testdata/language-features/section/section01.out
+++ b/testdata/language-features/section/section01.out
@@ -1,16 +1,16 @@
 main is not found
 ------------ trace
-!@! :: {a} -> {b} -> a -> b->()
-value1 :: {a} -> {b} -> a -> b->()
-value2 :: {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  {a} -> {b} -> a -> b->()
+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  {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  {a} -> {b} -> a -> b->()
-testdata/language-features/section/section01.lc 5:1-5:7  {a} -> {b} -> a -> b->()
-testdata/language-features/section/section01.lc 5:13-5:16  {a} -> {b} -> a -> b->()
+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 5:17-5:18  _e
diff --git a/testdata/let.out b/testdata/let.out
index a5c035e3..1c7a5534 100644
--- a/testdata/let.out
+++ b/testdata/let.out
@@ -1,9 +1,9 @@
 main is not found
 ------------ trace
-f :: {a} -> a->a
+f :: forall a . a -> a
 ------------ tooltips
-testdata/let.lc 2:1-2:2  {a} -> a->a
-testdata/let.lc 2:15-2:17  {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
diff --git a/testdata/letIndent.out b/testdata/letIndent.out
index 3009d024..7469dd50 100644
--- a/testdata/letIndent.out
+++ b/testdata/letIndent.out
@@ -1,8 +1,8 @@
 main is not found
 ------------ trace
-fun :: {a} -> a->a
+fun :: forall a . a -> a
 ------------ tooltips
-testdata/letIndent.lc 2:1-2:4  {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
diff --git a/testdata/performance/Material.out b/testdata/performance/Material.out
index ca1dbe47..d35f582a 100644
--- a/testdata/performance/Material.out
+++ b/testdata/performance/Material.out
@@ -3,8 +3,8 @@ main is not found
 identityLight :: 'Float
 'Entity :: Type
 Entity :: 'Vec 4 'Float -> 'Vec 4 'Float -> 'Vec 3 'Float -> 'Vec 4 'Float -> 'Entity
-'EntityCase :: (a : 'Entity->Type) -> ((b : 'Vec 4 'Float) -> (c : 'Vec 4 'Float) -> (d : 'Vec 3 'Float) -> (e : 'Vec 4 'Float) -> a (Entity b c d e)) -> (f:'Entity) -> a f
-match'Entity :: (a : Type->Type) -> a 'Entity -> (b:Type) -> a b -> a b
+'EntityCase :: (a :: 'Entity -> Type) -> ((b :: 'Vec 4 'Float) -> (c :: 'Vec 4 'Float) -> (d :: 'Vec 3 'Float) -> (e :: 'Vec 4 'Float) -> a (Entity b c d e)) -> (f :: 'Entity) -> a f
+match'Entity :: (a :: Type -> Type) -> a 'Entity -> (b :: Type) -> a b -> a b
 eAmbientLight :: 'Entity -> 'VecS 'Float 4
 eDirectedLight :: 'Entity -> 'VecS 'Float 4
 eLightDir :: 'Entity -> 'VecS 'Float 3
@@ -16,18 +16,18 @@ WT_Square :: 'WaveType
 WT_Sawtooth :: 'WaveType
 WT_InverseSawtooth :: 'WaveType
 WT_Noise :: 'WaveType
-'WaveTypeCase :: (a : 'WaveType->Type) -> a WT_Sin -> a WT_Triangle -> a WT_Square -> a WT_Sawtooth -> a WT_InverseSawtooth -> a WT_Noise -> (b:'WaveType) -> a b
-match'WaveType :: (a : Type->Type) -> a 'WaveType -> (b:Type) -> a b -> a b
+'WaveTypeCase :: (a :: 'WaveType -> Type) -> a WT_Sin -> a WT_Triangle -> a WT_Square -> a WT_Sawtooth -> a WT_InverseSawtooth -> a WT_Noise -> (b :: 'WaveType) -> a b
+match'WaveType :: (a :: Type -> Type) -> a 'WaveType -> (b :: Type) -> a b -> a b
 'Wave :: Type
-Wave :: 'WaveType -> 'Float -> 'Float -> 'Float -> 'Float->'Wave
-'WaveCase :: (a : 'Wave->Type) -> ((b:'WaveType) -> (c:'Float) -> (d:'Float) -> (e:'Float) -> (f:'Float) -> a (Wave b c d e f)) -> (g:'Wave) -> a g
-match'Wave :: (a : Type->Type) -> a 'Wave -> (b:Type) -> a b -> a b
+Wave :: 'WaveType -> 'Float -> 'Float -> 'Float -> 'Float -> 'Wave
+'WaveCase :: (a :: 'Wave -> Type) -> ((b :: 'WaveType) -> (c :: 'Float) -> (d :: 'Float) -> (e :: 'Float) -> (f :: 'Float) -> a (Wave b c d e f)) -> (g :: 'Wave) -> a g
+match'Wave :: (a :: Type -> Type) -> a 'Wave -> (b :: Type) -> 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_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
@@ -37,15 +37,15 @@ D_Text4 :: 'Deform
 D_Text5 :: 'Deform
 D_Text6 :: 'Deform
 D_Text7 :: 'Deform
-D_Wave :: 'Float -> 'Wave->'Deform
-'DeformCase :: (a : 'Deform->Type) -> a D_AutoSprite -> a D_AutoSprite2 -> ((b:'Float) -> (c:'Float) -> (d:'Float) -> a (D_Bulge b c d)) -> ((e : 'Vec 3 'Float) -> (f:'Wave) -> a (D_Move e f)) -> ((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 -> ((i:'Float) -> (j:'Wave) -> a (D_Wave i j)) -> (k:'Deform) -> a k
-match'Deform :: (a : Type->Type) -> a 'Deform -> (b:Type) -> a b -> a b
+D_Wave :: 'Float -> 'Wave -> 'Deform
+'DeformCase :: (a :: 'Deform -> Type) -> a D_AutoSprite -> a D_AutoSprite2 -> ((b :: 'Float) -> (c :: 'Float) -> (d :: 'Float) -> a (D_Bulge b c d)) -> ((e :: 'Vec 3 'Float) -> (f :: 'Wave) -> a (D_Move e f)) -> ((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 -> ((i :: 'Float) -> (j :: 'Wave) -> a (D_Wave i j)) -> (k :: 'Deform) -> a k
+match'Deform :: (a :: Type -> Type) -> a 'Deform -> (b :: Type) -> a b -> a b
 'CullType :: Type
 CT_FrontSided :: 'CullType
 CT_BackSided :: 'CullType
 CT_TwoSided :: 'CullType
-'CullTypeCase :: (a : 'CullType->Type) -> a CT_FrontSided -> a CT_BackSided -> a CT_TwoSided -> (b:'CullType) -> a b
-match'CullType :: (a : Type->Type) -> a 'CullType -> (b:Type) -> a b -> a b
+'CullTypeCase :: (a :: 'CullType -> Type) -> a CT_FrontSided -> a CT_BackSided -> a CT_TwoSided -> (b :: 'CullType) -> a b
+match'CullType :: (a :: Type -> Type) -> a 'CullType -> (b :: Type) -> a b -> a b
 'Blending' :: Type
 B_DstAlpha :: 'Blending'
 B_DstColor :: 'Blending'
@@ -58,11 +58,11 @@ B_SrcAlpha :: 'Blending'
 B_SrcAlphaSaturate :: 'Blending'
 B_SrcColor :: 'Blending'
 B_Zero :: 'Blending'
-'Blending'Case :: (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 -> (b:'Blending') -> a b
-match'Blending' :: (a : Type->Type) -> a 'Blending' -> (b:Type) -> a b -> a b
+'Blending'Case :: (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 -> (b :: 'Blending') -> a b
+match'Blending' :: (a :: Type -> Type) -> a 'Blending' -> (b :: Type) -> a b -> a b
 'RGBGen :: Type
-RGB_Wave :: 'Wave->'RGBGen
-RGB_Const :: 'Float -> 'Float -> 'Float->'RGBGen
+RGB_Wave :: 'Wave -> 'RGBGen
+RGB_Const :: 'Float -> 'Float -> 'Float -> 'RGBGen
 RGB_Identity :: 'RGBGen
 RGB_IdentityLighting :: 'RGBGen
 RGB_Entity :: 'RGBGen
@@ -72,11 +72,11 @@ RGB_Vertex :: 'RGBGen
 RGB_LightingDiffuse :: 'RGBGen
 RGB_OneMinusVertex :: 'RGBGen
 RGB_Undefined :: 'RGBGen
-'RGBGenCase :: (a : 'RGBGen->Type) -> ((b:'Wave) -> a (RGB_Wave b)) -> ((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 -> (f:'RGBGen) -> a f
-match'RGBGen :: (a : Type->Type) -> a 'RGBGen -> (b:Type) -> a b -> a b
+'RGBGenCase :: (a :: 'RGBGen -> Type) -> ((b :: 'Wave) -> a (RGB_Wave b)) -> ((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 -> (f :: 'RGBGen) -> a f
+match'RGBGen :: (a :: Type -> Type) -> a 'RGBGen -> (b :: Type) -> a b -> a b
 'AlphaGen :: Type
-A_Wave :: 'Wave->'AlphaGen
-A_Const :: 'Float->'AlphaGen
+A_Wave :: 'Wave -> 'AlphaGen
+A_Const :: 'Float -> 'AlphaGen
 A_Portal :: 'AlphaGen
 A_Identity :: 'AlphaGen
 A_Entity :: 'AlphaGen
@@ -84,109 +84,109 @@ A_OneMinusEntity :: 'AlphaGen
 A_Vertex :: 'AlphaGen
 A_LightingSpecular :: 'AlphaGen
 A_OneMinusVertex :: 'AlphaGen
-'AlphaGenCase :: (a : 'AlphaGen->Type) -> ((b:'Wave) -> a (A_Wave b)) -> ((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 -> (d:'AlphaGen) -> a d
-match'AlphaGen :: (a : Type->Type) -> a 'AlphaGen -> (b:Type) -> a b -> a b
+'AlphaGenCase :: (a :: 'AlphaGen -> Type) -> ((b :: 'Wave) -> a (A_Wave b)) -> ((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 -> (d :: 'AlphaGen) -> a d
+match'AlphaGen :: (a :: Type -> Type) -> a 'AlphaGen -> (b :: Type) -> 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 :: (a : 'TCGen->Type) -> a TG_Base -> a TG_Lightmap -> a TG_Environment -> ((b : 'Vec 3 'Float) -> (c : 'Vec 3 'Float) -> a (TG_Vector b c)) -> a TG_Undefined -> (d:'TCGen) -> a d
-match'TCGen :: (a : Type->Type) -> a 'TCGen -> (b:Type) -> a b -> a b
+'TCGenCase :: (a :: 'TCGen -> Type) -> a TG_Base -> a TG_Lightmap -> a TG_Environment -> ((b :: 'Vec 3 'Float) -> (c :: 'Vec 3 'Float) -> a (TG_Vector b c)) -> a TG_Undefined -> (d :: 'TCGen) -> a d
+match'TCGen :: (a :: Type -> Type) -> a 'TCGen -> (b :: Type) -> 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 :: (a : 'TCMod->Type) -> a TM_EntityTranslate -> ((b:'Float) -> a (TM_Rotate b)) -> ((c:'Float) -> (d:'Float) -> a (TM_Scroll c d)) -> ((e:'Float) -> (f:'Float) -> a (TM_Scale e f)) -> ((g:'Wave) -> a (TM_Stretch g)) -> ((h:'Float) -> (i:'Float) -> (j:'Float) -> (k:'Float) -> (l:'Float) -> (m:'Float) -> a (TM_Transform h i j k l m)) -> ((n:'Float) -> (o:'Float) -> (p:'Float) -> (q:'Float) -> a (TM_Turb n o p q)) -> (r:'TCMod) -> a r
-match'TCMod :: (a : Type->Type) -> a 'TCMod -> (b:Type) -> a b -> a b
+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 :: (a :: 'TCMod -> Type) -> a TM_EntityTranslate -> ((b :: 'Float) -> a (TM_Rotate b)) -> ((c :: 'Float) -> (d :: 'Float) -> a (TM_Scroll c d)) -> ((e :: 'Float) -> (f :: 'Float) -> a (TM_Scale e f)) -> ((g :: 'Wave) -> a (TM_Stretch g)) -> ((h :: 'Float) -> (i :: 'Float) -> (j :: 'Float) -> (k :: 'Float) -> (l :: 'Float) -> (m :: 'Float) -> a (TM_Transform h i j k l m)) -> ((n :: 'Float) -> (o :: 'Float) -> (p :: 'Float) -> (q :: 'Float) -> a (TM_Turb n o p q)) -> (r :: 'TCMod) -> a r
+match'TCMod :: (a :: Type -> Type) -> a 'TCMod -> (b :: Type) -> a b -> a b
 'StageTexture :: Type
-ST_Map :: 'String->'StageTexture
-ST_ClampMap :: 'String->'StageTexture
+ST_Map :: 'String -> 'StageTexture
+ST_ClampMap :: 'String -> 'StageTexture
 ST_AnimMap :: 'Float -> 'List 'String -> 'StageTexture
 ST_Lightmap :: 'StageTexture
 ST_WhiteImage :: 'StageTexture
-'StageTextureCase :: (a : 'StageTexture->Type) -> ((b:'String) -> a (ST_Map b)) -> ((c:'String) -> a (ST_ClampMap c)) -> ((d:'Float) -> (e : 'List 'String) -> a (ST_AnimMap d e)) -> a ST_Lightmap -> a ST_WhiteImage -> (f:'StageTexture) -> a f
-match'StageTexture :: (a : Type->Type) -> a 'StageTexture -> (b:Type) -> a b -> a b
+'StageTextureCase :: (a :: 'StageTexture -> Type) -> ((b :: 'String) -> a (ST_Map b)) -> ((c :: 'String) -> a (ST_ClampMap c)) -> ((d :: 'Float) -> (e :: 'List 'String) -> a (ST_AnimMap d e)) -> a ST_Lightmap -> a ST_WhiteImage -> (f :: 'StageTexture) -> a f
+match'StageTexture :: (a :: Type -> Type) -> a 'StageTexture -> (b :: Type) -> a b -> a b
 'AlphaFunction :: Type
 A_Gt0 :: 'AlphaFunction
 A_Lt128 :: 'AlphaFunction
 A_Ge128 :: 'AlphaFunction
-'AlphaFunctionCase :: (a : 'AlphaFunction->Type) -> a A_Gt0 -> a A_Lt128 -> a A_Ge128 -> (b:'AlphaFunction) -> a b
-match'AlphaFunction :: (a : Type->Type) -> a 'AlphaFunction -> (b:Type) -> a b -> a b
+'AlphaFunctionCase :: (a :: 'AlphaFunction -> Type) -> a A_Gt0 -> a A_Lt128 -> a A_Ge128 -> (b :: 'AlphaFunction) -> a b
+match'AlphaFunction :: (a :: Type -> Type) -> a 'AlphaFunction -> (b :: Type) -> a b -> a b
 'DepthFunction :: Type
 D_Equal :: 'DepthFunction
 D_Lequal :: 'DepthFunction
-'DepthFunctionCase :: (a : 'DepthFunction->Type) -> a D_Equal -> a D_Lequal -> (b:'DepthFunction) -> a b
-match'DepthFunction :: (a : Type->Type) -> a 'DepthFunction -> (b:Type) -> a b -> a b
+'DepthFunctionCase :: (a :: 'DepthFunction -> Type) -> a D_Equal -> a D_Lequal -> (b :: 'DepthFunction) -> a b
+match'DepthFunction :: (a :: Type -> Type) -> a 'DepthFunction -> (b :: Type) -> a b -> a b
 'StageAttrs :: Type
-StageAttrs :: 'Maybe ('Blending', 'Blending') -> 'RGBGen -> 'AlphaGen -> 'TCGen -> 'List 'TCMod -> 'StageTexture -> 'Bool -> 'DepthFunction -> 'Maybe 'AlphaFunction -> 'Bool -> 'String->'StageAttrs
-'StageAttrsCase :: (a : 'StageAttrs->Type) -> ((b : 'Maybe ('Blending', 'Blending')) -> (c:'RGBGen) -> (d:'AlphaGen) -> (e:'TCGen) -> (f : 'List 'TCMod) -> (g:'StageTexture) -> (h:'Bool) -> (i:'DepthFunction) -> (j : 'Maybe 'AlphaFunction) -> (k:'Bool) -> (l:'String) -> a (StageAttrs b c d e f g h i j k l)) -> (m:'StageAttrs) -> a m
-match'StageAttrs :: (a : Type->Type) -> a 'StageAttrs -> (b:Type) -> a b -> a b
+StageAttrs :: 'Maybe ('Blending', 'Blending') -> 'RGBGen -> 'AlphaGen -> 'TCGen -> 'List 'TCMod -> 'StageTexture -> 'Bool -> 'DepthFunction -> 'Maybe 'AlphaFunction -> 'Bool -> 'String -> 'StageAttrs
+'StageAttrsCase :: (a :: 'StageAttrs -> Type) -> ((b :: 'Maybe ('Blending', 'Blending')) -> (c :: 'RGBGen) -> (d :: 'AlphaGen) -> (e :: 'TCGen) -> (f :: 'List 'TCMod) -> (g :: 'StageTexture) -> (h :: 'Bool) -> (i :: 'DepthFunction) -> (j :: 'Maybe 'AlphaFunction) -> (k :: 'Bool) -> (l :: 'String) -> a (StageAttrs b c d e f g h i j k l)) -> (m :: 'StageAttrs) -> a m
+match'StageAttrs :: (a :: Type -> Type) -> a 'StageAttrs -> (b :: Type) -> a b -> a b
 saBlend :: 'StageAttrs -> 'Maybe ('Blending', 'Blending')
-saRGBGen :: 'StageAttrs->'RGBGen
-saAlphaGen :: 'StageAttrs->'AlphaGen
-saTCGen :: 'StageAttrs->'TCGen
+saRGBGen :: 'StageAttrs -> 'RGBGen
+saAlphaGen :: 'StageAttrs -> 'AlphaGen
+saTCGen :: 'StageAttrs -> 'TCGen
 saTCMod :: 'StageAttrs -> 'List 'TCMod
-saTexture :: 'StageAttrs->'StageTexture
-saDepthWrite :: 'StageAttrs->'Bool
-saDepthFunc :: 'StageAttrs->'DepthFunction
+saTexture :: 'StageAttrs -> 'StageTexture
+saDepthWrite :: 'StageAttrs -> 'Bool
+saDepthFunc :: 'StageAttrs -> 'DepthFunction
 saAlphaFunc :: 'StageAttrs -> 'Maybe 'AlphaFunction
-saDepthMaskExplicit :: 'StageAttrs->'Bool
-saTextureUniform :: 'StageAttrs->'String
+saDepthMaskExplicit :: 'StageAttrs -> 'Bool
+saTextureUniform :: 'StageAttrs -> 'String
 defaultStageAttrs :: 'StageAttrs
 'CommonAttrs :: Type
-CommonAttrs :: () -> () -> 'Bool -> 'Float -> 'Bool -> 'Bool -> 'CullType -> 'List 'Deform -> 'Bool -> 'Bool -> 'List 'StageAttrs -> 'Bool->'CommonAttrs
-'CommonAttrsCase :: (a : 'CommonAttrs->Type) -> ((b:()) -> (c:()) -> (d:'Bool) -> (e:'Float) -> (f:'Bool) -> (g:'Bool) -> (h:'CullType) -> (i : 'List 'Deform) -> (j:'Bool) -> (k:'Bool) -> (l : 'List 'StageAttrs) -> (m:'Bool) -> a (CommonAttrs b c d e f g h i j k l m)) -> (n:'CommonAttrs) -> a n
-match'CommonAttrs :: (a : Type->Type) -> a 'CommonAttrs -> (b:Type) -> a b -> a b
-caSkyParms :: 'CommonAttrs->()
-caFogParms :: 'CommonAttrs->()
-caPortal :: 'CommonAttrs->'Bool
-caSort :: 'CommonAttrs->'Float
-caEntityMergable :: 'CommonAttrs->'Bool
-caFogOnly :: 'CommonAttrs->'Bool
-caCull :: 'CommonAttrs->'CullType
+CommonAttrs :: () -> () -> 'Bool -> 'Float -> 'Bool -> 'Bool -> 'CullType -> 'List 'Deform -> 'Bool -> 'Bool -> 'List 'StageAttrs -> 'Bool -> 'CommonAttrs
+'CommonAttrsCase :: (a :: 'CommonAttrs -> Type) -> ((b :: ()) -> (c :: ()) -> (d :: 'Bool) -> (e :: 'Float) -> (f :: 'Bool) -> (g :: 'Bool) -> (h :: 'CullType) -> (i :: 'List 'Deform) -> (j :: 'Bool) -> (k :: 'Bool) -> (l :: 'List 'StageAttrs) -> (m :: 'Bool) -> a (CommonAttrs b c d e f g h i j k l m)) -> (n :: 'CommonAttrs) -> a n
+match'CommonAttrs :: (a :: Type -> Type) -> a 'CommonAttrs -> (b :: Type) -> 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
+caNoMipMaps :: 'CommonAttrs -> 'Bool
+caPolygonOffset :: 'CommonAttrs -> 'Bool
 caStages :: 'CommonAttrs -> 'List 'StageAttrs
-caIsSky :: 'CommonAttrs->'Bool
+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 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: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: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: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: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: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: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: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: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
@@ -199,7 +199,7 @@ 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: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
@@ -213,18 +213,18 @@ 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: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: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: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: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
@@ -236,7 +236,7 @@ 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: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
@@ -260,9 +260,9 @@ 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: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: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
@@ -277,9 +277,9 @@ 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: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: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
@@ -295,15 +295,15 @@ 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: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: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: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: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
@@ -313,24 +313,24 @@ 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: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: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: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: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: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: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
@@ -338,9 +338,9 @@ 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: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: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
@@ -360,116 +360,116 @@ testdata/performance/Material.lc 127:7-127:15  DepthFunction
 testdata/performance/Material.lc 130:6-130:16  Type
 testdata/performance/Material.lc 130:6-131:17  Type
 testdata/performance/Material.lc 130:6-144:34  Type
-testdata/performance/Material.lc 131:7-131:17  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs | StageAttrs | Type
+testdata/performance/Material.lc 131:7-131:17  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs | StageAttrs | Type
 testdata/performance/Material.lc 132:7-132:14  StageAttrs -> Maybe (Blending', Blending')
-testdata/performance/Material.lc 132:25-132:30  Type->Type
+testdata/performance/Material.lc 132:25-132: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: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: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: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: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: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: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: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: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:7-144:23  StageAttrs -> String
 testdata/performance/Material.lc 144:28-144:34  Type
 testdata/performance/Material.lc 148:22-148:32  Type
 testdata/performance/Material.lc 149:1-149:18  StageAttrs
-testdata/performance/Material.lc 149:21-149:31  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/Material.lc 149:21-150:30  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/Material.lc 149:21-151:36  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/Material.lc 149:21-152:33  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/Material.lc 149:21-153:35  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/Material.lc 149:21-154:25  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/Material.lc 149:21-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-149:31  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-150:30  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-151:36  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-152:33  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-153:35  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-154:25  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-155:36  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-156:27  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/Material.lc 149:21-157:31  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
+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  {a} -> Maybe a
+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 -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs | CommonAttrs | Type
-testdata/performance/Material.lc 165:7-165:17  CommonAttrs->()
+testdata/performance/Material.lc 164:7-164:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs | CommonAttrs | Type
+testdata/performance/Material.lc 165:7-165:17  CommonAttrs -> ()
 testdata/performance/Material.lc 165:28-165:30  Type
-testdata/performance/Material.lc 166:7-166:17  CommonAttrs->()
+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: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: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: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: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: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: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: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:7-178:14  CommonAttrs -> Bool
 testdata/performance/Material.lc 178:28-178:32  Type
 testdata/performance/Material.lc 182:23-182:34  Type
 testdata/performance/Material.lc 183:1-183:19  CommonAttrs
-testdata/performance/Material.lc 183:22-183:33  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/performance/Material.lc 183:22-184:29  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/performance/Material.lc 183:22-185:29  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/performance/Material.lc 183:22-186:32  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/performance/Material.lc 183:22-187:28  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/performance/Material.lc 183:22-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-183:33  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-184:29  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-185:29  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-186:32  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-187:28  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-188:32  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-189:32  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/Material.lc 183:22-190:40  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+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  {a} -> List a
+testdata/performance/Material.lc 194:27-194:29  forall a . List a
 testdata/performance/Material.lc 195:27-195:32  Bool
diff --git a/testdata/performance/SampleMaterial.out b/testdata/performance/SampleMaterial.out
index a3adf868..7776af0c 100644
--- a/testdata/performance/SampleMaterial.out
+++ b/testdata/performance/SampleMaterial.out
@@ -6,68 +6,68 @@ testdata/performance/SampleMaterial.lc 3:1-3:15  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 4:3-2183:4  List (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 4:5-46:6  (String, CommonAttrs)
 testdata/performance/SampleMaterial.lc 4:7-4:40  String
-testdata/performance/SampleMaterial.lc 5:7-5:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-6:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-7:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-8:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-9:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool->CommonAttrs
-testdata/performance/SampleMaterial.lc 5:7-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-5:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-6:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-7:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-8:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-9:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-10:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-11:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 5:7-12:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 13:30-13:32  forall a . List a
 testdata/performance/SampleMaterial.lc 14:25-14:30  Bool
 testdata/performance/SampleMaterial.lc 15:29-15:34  Bool
 testdata/performance/SampleMaterial.lc 17:13-43:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-17:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-18:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-19:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-20:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-21:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-22:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 17:15-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-17:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-18:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-19:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-20:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-21:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-22:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-23:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-24:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 17:15-25:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 23:31-23:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 26:33-26:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 27:41-27:46  Bool
 testdata/performance/SampleMaterial.lc 28:38-28:54  String
-testdata/performance/SampleMaterial.lc 30:15-30:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-31:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-32:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-33:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-34:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-35:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 30:15-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-30:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-31:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-32:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-33:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-34:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-35:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-36:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-37:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 30:15-38:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -75,79 +75,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-48:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-49:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-50:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-51:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-52:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-53:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-54:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 48:7-55:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 56:30-56:32  forall a . List a
 testdata/performance/SampleMaterial.lc 57:25-57:30  Bool
 testdata/performance/SampleMaterial.lc 58:29-58:34  Bool
 testdata/performance/SampleMaterial.lc 60:13-86:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-60:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-61:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-62:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-63:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-64:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-65:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 60:15-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-60:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-61:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-62:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-63:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-64:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-65:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-66:70  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-67:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 60:15-68:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 66:31-66:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 69:33-69:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 70:41-70:46  Bool
 testdata/performance/SampleMaterial.lc 71:38-71:54  String
-testdata/performance/SampleMaterial.lc 73:15-73:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-74:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-75:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-76:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-77:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-78:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 73:15-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-73:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-74:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-75:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-76:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-77:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-78:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-79:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-80:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 73:15-81:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -155,79 +155,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-91:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-92:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-93:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-94:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-95:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-96:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-97:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 91:7-98:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 99:30-99:32  forall a . List a
 testdata/performance/SampleMaterial.lc 100:25-100:30  Bool
 testdata/performance/SampleMaterial.lc 101:29-101:34  Bool
 testdata/performance/SampleMaterial.lc 103:13-129:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-103:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-104:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-105:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-106:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-107:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-108:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 103:15-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-103:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-104:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-105:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-106:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-107:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-108:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-109:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-110:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 103:15-111:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 109:31-109:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 112:33-112:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 113:41-113:46  Bool
 testdata/performance/SampleMaterial.lc 114:38-114:54  String
-testdata/performance/SampleMaterial.lc 116:15-116:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-117:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-118:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-119:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-120:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-121:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 116:15-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-116:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-117:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-118:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-119:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-120:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-121:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-122:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-123:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 116:15-124:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -235,79 +235,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-134:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-135:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-136:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-137:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-138:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-139:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-140:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 134:7-141:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 142:30-142:32  forall a . List a
 testdata/performance/SampleMaterial.lc 143:25-143:30  Bool
 testdata/performance/SampleMaterial.lc 144:29-144:34  Bool
 testdata/performance/SampleMaterial.lc 146:13-172:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-146:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-147:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-148:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-149:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-150:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-151:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 146:15-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-146:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-147:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-148:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-149:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-150:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-151:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-152:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-153:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 146:15-154:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 152:31-152:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 155:33-155:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 156:41-156:46  Bool
 testdata/performance/SampleMaterial.lc 157:38-157:54  String
-testdata/performance/SampleMaterial.lc 159:15-159:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-160:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-161:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-162:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-163:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-164:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 159:15-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-159:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-160:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-161:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-162:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-163:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-164:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-165:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-166:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 159:15-167:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -315,100 +315,100 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-177:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-178:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-179:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-180:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-181:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-182:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-183:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 177:7-184:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 185:30-185:32  forall a . List a
 testdata/performance/SampleMaterial.lc 186:25-186:30  Bool
 testdata/performance/SampleMaterial.lc 187:29-187:34  Bool
 testdata/performance/SampleMaterial.lc 189:13-229:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-189:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-190:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-191:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-192:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-193:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-195:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 189:15-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-189:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-190:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-191:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-192:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-193:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-195:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-196:66  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-197:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 189:15-198:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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: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: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: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: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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 199:33-199:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 200:41-200:46  Bool
 testdata/performance/SampleMaterial.lc 201:38-201:52  String
-testdata/performance/SampleMaterial.lc 203:15-203:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-204:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-205:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-206:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-207:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-208:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 203:15-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-203:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-204:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-205:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-206:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-207:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-208:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-209:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-210:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 203:15-211:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -416,28 +416,28 @@ 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  {a} -> List a
-testdata/performance/SampleMaterial.lc 209:31-209:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 212:33-212:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 213:41-213:46  Bool
 testdata/performance/SampleMaterial.lc 214:38-214:54  String
-testdata/performance/SampleMaterial.lc 216:15-216:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-217:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-218:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-219:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-220:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-221:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 216:15-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-216:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-217:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-218:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-219:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-220:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-221:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-222:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-223:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 216:15-224:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -445,79 +445,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-234:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-235:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-236:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-237:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-238:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-239:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-240:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 234:7-241:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 242:30-242:32  forall a . List a
 testdata/performance/SampleMaterial.lc 243:25-243:30  Bool
 testdata/performance/SampleMaterial.lc 244:29-244:34  Bool
 testdata/performance/SampleMaterial.lc 246:13-272:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-246:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-247:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-248:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-249:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-250:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-251:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 246:15-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-246:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-247:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-248:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-249:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-250:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-251:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-252:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-253:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 246:15-254:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 252:31-252:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 255:33-255:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 256:41-256:46  Bool
 testdata/performance/SampleMaterial.lc 257:38-257:54  String
-testdata/performance/SampleMaterial.lc 259:15-259:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-260:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-261:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-262:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-263:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-264:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 259:15-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-259:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-260:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-261:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-262:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-263:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-264:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-265:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-266:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 259:15-267:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -525,79 +525,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-277:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-278:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-279:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-280:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-281:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-282:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-283:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 277:7-284:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 285:30-285:32  forall a . List a
 testdata/performance/SampleMaterial.lc 286:25-286:30  Bool
 testdata/performance/SampleMaterial.lc 287:29-287:34  Bool
 testdata/performance/SampleMaterial.lc 289:13-315:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-289:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-290:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-291:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-292:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-293:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-294:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 289:15-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-289:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-290:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-291:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-292:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-293:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-294:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-295:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-296:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 289:15-297:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 295:31-295:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 298:33-298:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 299:41-299:46  Bool
 testdata/performance/SampleMaterial.lc 300:38-300:53  String
-testdata/performance/SampleMaterial.lc 302:15-302:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-303:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-304:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-305:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-306:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-307:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 302:15-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-302:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-303:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-304:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-305:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-306:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-307:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-308:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-309:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 302:15-310:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -605,79 +605,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-320:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-321:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-322:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-323:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-324:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-325:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-326:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 320:7-327:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 328:30-328:32  forall a . List a
 testdata/performance/SampleMaterial.lc 329:25-329:30  Bool
 testdata/performance/SampleMaterial.lc 330:29-330:34  Bool
 testdata/performance/SampleMaterial.lc 332:13-358:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-332:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-333:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-334:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-335:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-336:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-337:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 332:15-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-332:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-333:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-334:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-335:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-336:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-337:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-338:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-339:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 332:15-340:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 338:31-338:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 341:33-341:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 342:41-342:46  Bool
 testdata/performance/SampleMaterial.lc 343:38-343:54  String
-testdata/performance/SampleMaterial.lc 345:15-345:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-346:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-347:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-348:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-349:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-350:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 345:15-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-345:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-346:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-347:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-348:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-349:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-350:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-351:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-352:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 345:15-353:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -685,79 +685,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-363:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-364:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-365:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-366:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-367:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-368:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-369:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 363:7-370:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 371:30-371:32  forall a . List a
 testdata/performance/SampleMaterial.lc 372:25-372:30  Bool
 testdata/performance/SampleMaterial.lc 373:29-373:34  Bool
 testdata/performance/SampleMaterial.lc 375:13-401:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-375:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-376:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-377:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-378:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-379:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-380:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 375:15-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-375:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-376:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-377:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-378:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-379:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-380:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-381:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-382:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 375:15-383:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 381:31-381:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 384:33-384:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 385:41-385:46  Bool
 testdata/performance/SampleMaterial.lc 386:38-386:54  String
-testdata/performance/SampleMaterial.lc 388:15-388:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-389:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-390:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-391:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-392:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-393:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 388:15-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-388:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-389:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-390:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-391:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-392:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-393:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-394:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-395:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 388:15-396:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -765,79 +765,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-406:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-407:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-408:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-409:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-410:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-411:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-412:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 406:7-413:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 414:30-414:32  forall a . List a
 testdata/performance/SampleMaterial.lc 415:25-415:30  Bool
 testdata/performance/SampleMaterial.lc 416:29-416:34  Bool
 testdata/performance/SampleMaterial.lc 418:13-444:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-418:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-419:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-420:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-421:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-422:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-423:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 418:15-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-418:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-419:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-420:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-421:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-422:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-423:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-424:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-425:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 418:15-426:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 424:31-424:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 427:33-427:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 428:41-428:46  Bool
 testdata/performance/SampleMaterial.lc 429:38-429:54  String
-testdata/performance/SampleMaterial.lc 431:15-431:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-432:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-433:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-434:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-435:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-436:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 431:15-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-431:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-432:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-433:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-434:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-435:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-436:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-437:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-438:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 431:15-439:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -845,79 +845,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-449:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-450:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-451:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-452:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-453:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-454:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-455:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 449:7-456:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 457:30-457:32  forall a . List a
 testdata/performance/SampleMaterial.lc 458:25-458:30  Bool
 testdata/performance/SampleMaterial.lc 459:29-459:34  Bool
 testdata/performance/SampleMaterial.lc 461:13-487:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-461:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-462:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-463:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-464:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-465:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-466:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 461:15-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-461:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-462:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-463:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-464:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-465:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-466:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-467:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-468:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 461:15-469:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 467:31-467:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 470:33-470:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 471:41-471:46  Bool
 testdata/performance/SampleMaterial.lc 472:38-472:54  String
-testdata/performance/SampleMaterial.lc 474:15-474:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-475:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-476:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-477:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-478:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-479:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 474:15-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-474:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-475:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-476:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-477:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-478:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-479:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-480:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-481:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 474:15-482:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -925,79 +925,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-492:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-493:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-494:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-495:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-496:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-497:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-498:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 492:7-499:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 500:30-500:32  forall a . List a
 testdata/performance/SampleMaterial.lc 501:25-501:30  Bool
 testdata/performance/SampleMaterial.lc 502:29-502:34  Bool
 testdata/performance/SampleMaterial.lc 504:13-530:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-504:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-505:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-506:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-507:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-508:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-509:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 504:15-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-504:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-505:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-506:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-507:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-508:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-509:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-510:84  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-511:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 504:15-512:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 510:31-510:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 513:33-513:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 514:41-514:46  Bool
 testdata/performance/SampleMaterial.lc 515:38-515:54  String
-testdata/performance/SampleMaterial.lc 517:15-517:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-518:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-519:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-520:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-521:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-522:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 517:15-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-517:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-518:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-519:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-520:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-521:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-522:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-523:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-524:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 517:15-525:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1005,79 +1005,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-535:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-536:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-537:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-538:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-539:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-540:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-541:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 535:7-542:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 543:30-543:32  forall a . List a
 testdata/performance/SampleMaterial.lc 544:25-544:30  Bool
 testdata/performance/SampleMaterial.lc 545:29-545:34  Bool
 testdata/performance/SampleMaterial.lc 547:13-573:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-547:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-548:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-549:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-550:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-551:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-552:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 547:15-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-547:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-548:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-549:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-550:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-551:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-552:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-553:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-554:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 547:15-555:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 553:31-553:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 556:33-556:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 557:41-557:46  Bool
 testdata/performance/SampleMaterial.lc 558:38-558:54  String
-testdata/performance/SampleMaterial.lc 560:15-560:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-561:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-562:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-563:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-564:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-565:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 560:15-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-560:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-561:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-562:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-563:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-564:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-565:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-566:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-567:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 560:15-568:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1085,79 +1085,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-578:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-579:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-580:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-581:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-582:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-583:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-584:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 578:7-585:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 586:30-586:32  forall a . List a
 testdata/performance/SampleMaterial.lc 587:25-587:30  Bool
 testdata/performance/SampleMaterial.lc 588:29-588:34  Bool
 testdata/performance/SampleMaterial.lc 590:13-616:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-590:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-591:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-592:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-593:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-594:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-595:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 590:15-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-590:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-591:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-592:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-593:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-594:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-595:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-596:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-597:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 590:15-598:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 596:31-596:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 599:33-599:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 600:41-600:46  Bool
 testdata/performance/SampleMaterial.lc 601:38-601:54  String
-testdata/performance/SampleMaterial.lc 603:15-603:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-604:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-605:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-606:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-607:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-608:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 603:15-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-603:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-604:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-605:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-606:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-607:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-608:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-609:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-610:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 603:15-611:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1165,79 +1165,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-621:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-622:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-623:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-624:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-625:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-626:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-627:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 621:7-628:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 629:30-629:32  forall a . List a
 testdata/performance/SampleMaterial.lc 630:25-630:30  Bool
 testdata/performance/SampleMaterial.lc 631:29-631:34  Bool
 testdata/performance/SampleMaterial.lc 633:13-659:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-633:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-634:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-635:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-636:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-637:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-638:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 633:15-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-633:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-634:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-635:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-636:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-637:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-638:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-639:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-640:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 633:15-641:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 639:31-639:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 642:33-642:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 643:41-643:46  Bool
 testdata/performance/SampleMaterial.lc 644:38-644:54  String
-testdata/performance/SampleMaterial.lc 646:15-646:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-647:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-648:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-649:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-650:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-651:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 646:15-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-646:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-647:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-648:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-649:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-650:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-651:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-652:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-653:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 646:15-654:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1245,79 +1245,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-664:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-665:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-666:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-667:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-668:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-669:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-670:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 664:7-671:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 672:30-672:32  forall a . List a
 testdata/performance/SampleMaterial.lc 673:25-673:30  Bool
 testdata/performance/SampleMaterial.lc 674:29-674:34  Bool
 testdata/performance/SampleMaterial.lc 676:13-702:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-676:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-677:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-678:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-679:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-680:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-681:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 676:15-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-676:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-677:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-678:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-679:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-680:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-681:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-682:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-683:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 676:15-684:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 682:31-682:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 685:33-685:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 686:41-686:46  Bool
 testdata/performance/SampleMaterial.lc 687:38-687:54  String
-testdata/performance/SampleMaterial.lc 689:15-689:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-690:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-691:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-692:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-693:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-694:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 689:15-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-689:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-690:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-691:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-692:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-693:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-694:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-695:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-696:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 689:15-697:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1325,79 +1325,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-707:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-708:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-709:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-710:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-711:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-712:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-713:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 707:7-714:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 715:30-715:32  forall a . List a
 testdata/performance/SampleMaterial.lc 716:25-716:30  Bool
 testdata/performance/SampleMaterial.lc 717:29-717:34  Bool
 testdata/performance/SampleMaterial.lc 719:13-745:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-719:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-720:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-721:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-722:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-723:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-724:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 719:15-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-719:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-720:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-721:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-722:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-723:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-724:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-725:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-726:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 719:15-727:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 725:31-725:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 728:33-728:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 729:41-729:46  Bool
 testdata/performance/SampleMaterial.lc 730:38-730:54  String
-testdata/performance/SampleMaterial.lc 732:15-732:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-733:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-734:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-735:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-736:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-737:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 732:15-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-732:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-733:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-734:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-735:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-736:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-737:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-738:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-739:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 732:15-740:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1405,79 +1405,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-750:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-751:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-752:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-753:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-754:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-755:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-756:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 750:7-757:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 758:30-758:32  forall a . List a
 testdata/performance/SampleMaterial.lc 759:25-759:30  Bool
 testdata/performance/SampleMaterial.lc 760:29-760:34  Bool
 testdata/performance/SampleMaterial.lc 762:13-788:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-762:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-763:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-764:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-765:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-766:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-767:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 762:15-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-762:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-763:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-764:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-765:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-766:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-767:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-768:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-769:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 762:15-770:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 768:31-768:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 771:33-771:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 772:41-772:46  Bool
 testdata/performance/SampleMaterial.lc 773:38-773:54  String
-testdata/performance/SampleMaterial.lc 775:15-775:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-776:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-777:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-778:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-779:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-780:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 775:15-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-775:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-776:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-777:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-778:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-779:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-780:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-781:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-782:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 775:15-783:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1485,79 +1485,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-793:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-794:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-795:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-796:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-797:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-798:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-799:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 793:7-800:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 801:30-801:32  forall a . List a
 testdata/performance/SampleMaterial.lc 802:25-802:30  Bool
 testdata/performance/SampleMaterial.lc 803:29-803:34  Bool
 testdata/performance/SampleMaterial.lc 805:13-831:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-805:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-806:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-807:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-808:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-809:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-810:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 805:15-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-805:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-806:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-807:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-808:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-809:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-810:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-811:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-812:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 805:15-813:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 811:31-811:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 814:33-814:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 815:41-815:46  Bool
 testdata/performance/SampleMaterial.lc 816:38-816:54  String
-testdata/performance/SampleMaterial.lc 818:15-818:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-819:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-820:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-821:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-822:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-823:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 818:15-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-818:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-819:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-820:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-821:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-822:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-823:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-824:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-825:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 818:15-826:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1565,100 +1565,100 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-836:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-837:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-838:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-839:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-840:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-841:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-842:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 836:7-843:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 844:30-844:32  forall a . List a
 testdata/performance/SampleMaterial.lc 845:25-845:30  Bool
 testdata/performance/SampleMaterial.lc 846:29-846:34  Bool
 testdata/performance/SampleMaterial.lc 848:13-888:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-848:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-849:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-850:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-851:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-852:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-854:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 848:15-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-848:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-849:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-850:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-851:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-852:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-854:88  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-855:66  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-856:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 848:15-857:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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: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: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: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: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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 858:33-858:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 859:41-859:46  Bool
 testdata/performance/SampleMaterial.lc 860:38-860:54  String
-testdata/performance/SampleMaterial.lc 862:15-862:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-863:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-864:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-865:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-866:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-867:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 862:15-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-862:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-863:69  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-864:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-865:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-866:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-867:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-868:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-869:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 862:15-870:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1666,28 +1666,28 @@ 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  {a} -> List a
-testdata/performance/SampleMaterial.lc 868:31-868:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 871:33-871:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 872:41-872:46  Bool
 testdata/performance/SampleMaterial.lc 873:38-873:54  String
-testdata/performance/SampleMaterial.lc 875:15-875:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-876:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-877:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-878:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-879:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-880:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 875:15-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-875:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-876:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-877:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-878:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-879:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-880:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-881:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-882:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 875:15-883:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1695,79 +1695,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-893:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-894:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-895:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-896:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-897:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-898:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-899:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 893:7-900:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 901:30-901:32  forall a . List a
 testdata/performance/SampleMaterial.lc 902:25-902:30  Bool
 testdata/performance/SampleMaterial.lc 903:29-903:34  Bool
 testdata/performance/SampleMaterial.lc 905:13-931:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-905:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-906:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-907:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-908:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-909:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-910:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 905:15-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-905:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-906:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-907:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-908:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-909:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-910:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-911:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-912:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 905:15-913:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 911:31-911:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 914:33-914:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 915:41-915:46  Bool
 testdata/performance/SampleMaterial.lc 916:38-916:54  String
-testdata/performance/SampleMaterial.lc 918:15-918:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-919:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-920:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-921:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-922:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-923:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 918:15-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-918:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-919:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-920:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-921:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-922:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-923:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-924:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-925:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 918:15-926:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1775,79 +1775,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-936:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-937:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-938:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-939:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-940:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-941:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-942:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 936:7-943:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 944:30-944:32  forall a . List a
 testdata/performance/SampleMaterial.lc 945:25-945:30  Bool
 testdata/performance/SampleMaterial.lc 946:29-946:34  Bool
 testdata/performance/SampleMaterial.lc 948:13-975:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-948:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-949:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-950:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-951:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-952:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-953:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 948:15-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-948:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-949:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-950:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-951:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-952:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-953:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-955:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-956:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 948:15-957:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 955:21-955:27  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 958:33-958:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 959:41-959:46  Bool
 testdata/performance/SampleMaterial.lc 960:38-960:54  String
-testdata/performance/SampleMaterial.lc 962:15-962:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-963:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-964:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-965:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-966:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-967:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 962:15-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-962:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-963:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-964:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-965:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-966:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-967:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-968:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-969:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 962:15-970:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1855,79 +1855,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-980:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-981:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-982:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-983:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-984:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-985:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-986:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 980:7-987:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 988:30-988:32  forall a . List a
 testdata/performance/SampleMaterial.lc 989:25-989:30  Bool
 testdata/performance/SampleMaterial.lc 990:29-990:34  Bool
 testdata/performance/SampleMaterial.lc 992:13-1018:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-992:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-993:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-994:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-995:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-996:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-997:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 992:15-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-992:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-993:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-994:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-995:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-996:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-997:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-998:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-999:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 992:15-1000:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 998:31-998:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1001:33-1001:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1002:41-1002:46  Bool
 testdata/performance/SampleMaterial.lc 1003:38-1003:54  String
-testdata/performance/SampleMaterial.lc 1005:15-1005:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1006:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1007:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1008:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1009:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-1010:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1005:15-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-1005:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1006:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1007:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1008:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1009:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1010:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1011:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1012:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1005:15-1013:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -1935,79 +1935,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1023:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1024:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1025:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1026:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1027:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1028:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1029:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1023:7-1030:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1031:30-1031:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1032:25-1032:30  Bool
 testdata/performance/SampleMaterial.lc 1033:29-1033:34  Bool
 testdata/performance/SampleMaterial.lc 1035:13-1061:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1035:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1036:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1037:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1038:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1039:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-1040:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1035:15-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-1035:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1036:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1037:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1038:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1039:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1040:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1041:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1042:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1035:15-1043:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1041:31-1041:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1044:33-1044:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1045:41-1045:46  Bool
 testdata/performance/SampleMaterial.lc 1046:38-1046:54  String
-testdata/performance/SampleMaterial.lc 1048:15-1048:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1049:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1050:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1051:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1052:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-1053:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1048:15-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-1048:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1049:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1050:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1051:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1052:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1053:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1054:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1055:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1048:15-1056:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2015,79 +2015,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1066:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1067:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1068:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1069:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1070:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1071:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1072:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1066:7-1073:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1074:30-1074:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1075:25-1075:30  Bool
 testdata/performance/SampleMaterial.lc 1076:29-1076:34  Bool
 testdata/performance/SampleMaterial.lc 1078:13-1104:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1078:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1079:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1080:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1081:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1082:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-1083:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1078:15-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-1078:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1079:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1080:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1081:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1082:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1083:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1084:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1085:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1078:15-1086:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1084:31-1084:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1087:33-1087:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1088:41-1088:46  Bool
 testdata/performance/SampleMaterial.lc 1089:38-1089:54  String
-testdata/performance/SampleMaterial.lc 1091:15-1091:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1092:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1093:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1094:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1095:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-1096:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1091:15-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-1091:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1092:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1093:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1094:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1095:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1096:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1097:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1098:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1091:15-1099:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2095,79 +2095,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1109:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1110:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1111:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1112:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1113:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1114:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1115:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1109:7-1116:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1117:30-1117:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1118:25-1118:30  Bool
 testdata/performance/SampleMaterial.lc 1119:29-1119:34  Bool
 testdata/performance/SampleMaterial.lc 1121:13-1147:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1121:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1122:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1123:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1124:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1125:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-1126:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1121:15-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-1121:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1122:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1123:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1124:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1125:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1126:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1127:80  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1128:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1121:15-1129:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1127:31-1127:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1130:33-1130:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1131:41-1131:46  Bool
 testdata/performance/SampleMaterial.lc 1132:38-1132:54  String
-testdata/performance/SampleMaterial.lc 1134:15-1134:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1135:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1136:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1137:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1138:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-1139:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1134:15-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-1134:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1135:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1136:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1137:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1138:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1139:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1140:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1141:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1134:15-1142:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2175,79 +2175,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1152:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1153:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1154:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1155:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1156:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1157:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1158:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1152:7-1159:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1160:30-1160:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1161:25-1161:30  Bool
 testdata/performance/SampleMaterial.lc 1162:29-1162:34  Bool
 testdata/performance/SampleMaterial.lc 1164:13-1190:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1164:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1165:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1166:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1167:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1168:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-1169:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1164:15-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-1164:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1165:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1166:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1167:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1168:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1169:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1170:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1171:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1164:15-1172:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1170:31-1170:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1173:33-1173:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1174:41-1174:46  Bool
 testdata/performance/SampleMaterial.lc 1175:38-1175:54  String
-testdata/performance/SampleMaterial.lc 1177:15-1177:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1178:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1179:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1180:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1181:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-1182:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1177:15-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-1177:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1178:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1179:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1180:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1181:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1182:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1183:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1184:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1177:15-1185:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2255,79 +2255,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1195:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1196:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1197:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1198:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1199:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1200:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1201:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1195:7-1202:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1203:30-1203:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1204:25-1204:30  Bool
 testdata/performance/SampleMaterial.lc 1205:29-1205:34  Bool
 testdata/performance/SampleMaterial.lc 1207:13-1233:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1207:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1208:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1209:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1210:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1211:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-1212:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1207:15-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-1207:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1208:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1209:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1210:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1211:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1212:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1213:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1214:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1207:15-1215:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1213:31-1213:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1216:33-1216:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1217:41-1217:46  Bool
 testdata/performance/SampleMaterial.lc 1218:38-1218:54  String
-testdata/performance/SampleMaterial.lc 1220:15-1220:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1221:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1222:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1223:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1224:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-1225:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1220:15-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-1220:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1221:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1222:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1223:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1224:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1225:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1226:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1227:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1220:15-1228:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2335,79 +2335,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1238:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1239:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1240:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1241:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1242:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1243:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1244:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1238:7-1245:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1246:30-1246:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1247:25-1247:30  Bool
 testdata/performance/SampleMaterial.lc 1248:29-1248:34  Bool
 testdata/performance/SampleMaterial.lc 1250:13-1276:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1250:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1251:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1252:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1253:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1254:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-1255:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1250:15-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-1250:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1251:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1252:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1253:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1254:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1255:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1256:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1257:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1250:15-1258:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1256:31-1256:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1259:33-1259:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1260:41-1260:46  Bool
 testdata/performance/SampleMaterial.lc 1261:38-1261:54  String
-testdata/performance/SampleMaterial.lc 1263:15-1263:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1264:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1265:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1266:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1267:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-1268:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1263:15-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-1263:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1264:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1265:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1266:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1267:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1268:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1269:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1270:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1263:15-1271:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2415,79 +2415,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1281:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1282:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1283:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1284:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1285:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1286:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1287:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1281:7-1288:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1289:30-1289:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1290:25-1290:30  Bool
 testdata/performance/SampleMaterial.lc 1291:29-1291:34  Bool
 testdata/performance/SampleMaterial.lc 1293:13-1319:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1293:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1294:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1295:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1296:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1297:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-1298:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1293:15-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-1293:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1294:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1295:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1296:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1297:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1298:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1299:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1300:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1293:15-1301:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1299:31-1299:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1302:33-1302:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1303:41-1303:46  Bool
 testdata/performance/SampleMaterial.lc 1304:38-1304:54  String
-testdata/performance/SampleMaterial.lc 1306:15-1306:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1307:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1308:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1309:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1310:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-1311:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1306:15-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-1306:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1307:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1308:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1309:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1310:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1311:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1312:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1313:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1306:15-1314:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2495,79 +2495,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1324:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1325:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1326:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1327:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1328:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1329:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1330:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1324:7-1331:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1332:30-1332:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1333:25-1333:30  Bool
 testdata/performance/SampleMaterial.lc 1334:29-1334:34  Bool
 testdata/performance/SampleMaterial.lc 1336:13-1362:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1336:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1337:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1338:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1339:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1340:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-1341:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1336:15-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-1336:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1337:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1338:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1339:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1340:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1341:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1342:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1343:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1336:15-1344:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1342:31-1342:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1345:33-1345:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1346:41-1346:46  Bool
 testdata/performance/SampleMaterial.lc 1347:38-1347:54  String
-testdata/performance/SampleMaterial.lc 1349:15-1349:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1350:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1351:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1352:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1353:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-1354:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1349:15-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-1349:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1350:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1351:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1352:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1353:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1354:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1355:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1356:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1349:15-1357:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2575,79 +2575,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1367:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1368:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1369:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1370:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1371:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1372:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1373:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1367:7-1374:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1375:30-1375:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1376:25-1376:30  Bool
 testdata/performance/SampleMaterial.lc 1377:29-1377:34  Bool
 testdata/performance/SampleMaterial.lc 1379:13-1405:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1379:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1380:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1381:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1382:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1383:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-1384:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1379:15-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-1379:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1380:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1381:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1382:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1383:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1384:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1385:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1386:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1379:15-1387:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1385:31-1385:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1388:33-1388:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1389:41-1389:46  Bool
 testdata/performance/SampleMaterial.lc 1390:38-1390:54  String
-testdata/performance/SampleMaterial.lc 1392:15-1392:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1393:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1394:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1395:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1396:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-1397:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1392:15-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-1392:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1393:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1394:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1395:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1396:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1397:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1398:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1399:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1392:15-1400:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2655,79 +2655,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1410:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1411:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1412:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1413:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1414:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1415:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1416:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1410:7-1417:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1418:30-1418:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1419:25-1419:30  Bool
 testdata/performance/SampleMaterial.lc 1420:29-1420:34  Bool
 testdata/performance/SampleMaterial.lc 1422:13-1448:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1422:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1423:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1424:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1425:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1426:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-1427:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1422:15-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-1422:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1423:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1424:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1425:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1426:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1427:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1428:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1429:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1422:15-1430:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1428:31-1428:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1431:33-1431:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1432:41-1432:46  Bool
 testdata/performance/SampleMaterial.lc 1433:38-1433:54  String
-testdata/performance/SampleMaterial.lc 1435:15-1435:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1436:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1437:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1438:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1439:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-1440:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1435:15-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-1435:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1436:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1437:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1438:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1439:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1440:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1441:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1442:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1435:15-1443:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2735,79 +2735,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1453:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1454:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1455:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1456:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1457:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1458:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1459:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1453:7-1460:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1461:30-1461:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1462:25-1462:30  Bool
 testdata/performance/SampleMaterial.lc 1463:29-1463:34  Bool
 testdata/performance/SampleMaterial.lc 1465:13-1491:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1465:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1466:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1467:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1468:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1469:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-1470:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1465:15-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-1465:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1466:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1467:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1468:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1469:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1470:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1471:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1472:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1465:15-1473:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1471:31-1471:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1474:33-1474:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1475:41-1475:46  Bool
 testdata/performance/SampleMaterial.lc 1476:38-1476:54  String
-testdata/performance/SampleMaterial.lc 1478:15-1478:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1479:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1480:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1481:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1482:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-1483:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1478:15-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-1478:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1479:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1480:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1481:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1482:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1483:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1484:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1485:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1478:15-1486:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2815,79 +2815,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1496:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1497:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1498:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1499:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1500:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1501:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1502:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1496:7-1503:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1504:30-1504:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1505:25-1505:30  Bool
 testdata/performance/SampleMaterial.lc 1506:29-1506:34  Bool
 testdata/performance/SampleMaterial.lc 1508:13-1534:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1508:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1509:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1510:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1511:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1512:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-1513:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1508:15-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-1508:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1509:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1510:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1511:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1512:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1513:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1514:76  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1515:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1508:15-1516:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1514:31-1514:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1517:33-1517:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1518:41-1518:46  Bool
 testdata/performance/SampleMaterial.lc 1519:38-1519:54  String
-testdata/performance/SampleMaterial.lc 1521:15-1521:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1522:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1523:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1524:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1525:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-1526:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1521:15-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-1521:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1522:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1523:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1524:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1525:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1526:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1527:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1528:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1521:15-1529:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2895,79 +2895,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1539:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1540:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1541:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1542:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1543:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1544:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1545:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1539:7-1546:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1547:30-1547:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1548:25-1548:30  Bool
 testdata/performance/SampleMaterial.lc 1549:29-1549:34  Bool
 testdata/performance/SampleMaterial.lc 1551:13-1577:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1551:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1552:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1553:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1554:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1555:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-1556:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1551:15-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-1551:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1552:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1553:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1554:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1555:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1556:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1557:78  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1558:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1551:15-1559:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1557:31-1557:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1560:33-1560:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1561:41-1561:46  Bool
 testdata/performance/SampleMaterial.lc 1562:38-1562:54  String
-testdata/performance/SampleMaterial.lc 1564:15-1564:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1565:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1566:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1567:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1568:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-1569:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1564:15-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-1564:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1565:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1566:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1567:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1568:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1569:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1570:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1571:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1564:15-1572:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -2975,79 +2975,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1582:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1583:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1584:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1585:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1586:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1587:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1588:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1582:7-1589:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1590:30-1590:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1591:25-1591:30  Bool
 testdata/performance/SampleMaterial.lc 1592:29-1592:34  Bool
 testdata/performance/SampleMaterial.lc 1594:13-1620:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1594:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1595:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1596:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1597:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1598:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-1599:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1594:15-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-1594:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1595:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1596:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1597:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1598:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1599:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1600:80  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1601:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1594:15-1602:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1600:31-1600:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1603:33-1603:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1604:41-1604:46  Bool
 testdata/performance/SampleMaterial.lc 1605:38-1605:54  String
-testdata/performance/SampleMaterial.lc 1607:15-1607:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1608:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1609:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1610:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1611:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-1612:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1607:15-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-1607:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1608:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1609:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1610:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1611:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1612:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1613:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1614:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1607:15-1615:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3055,79 +3055,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1625:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1626:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1627:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1628:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1629:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1630:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1631:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1625:7-1632:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1633:30-1633:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1634:25-1634:30  Bool
 testdata/performance/SampleMaterial.lc 1635:29-1635:34  Bool
 testdata/performance/SampleMaterial.lc 1637:13-1663:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1637:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1638:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1639:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1640:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1641:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-1642:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1637:15-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-1637:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1638:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1639:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1640:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1641:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1642:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1643:75  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1644:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1637:15-1645:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1643:31-1643:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1646:33-1646:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1647:41-1647:46  Bool
 testdata/performance/SampleMaterial.lc 1648:38-1648:54  String
-testdata/performance/SampleMaterial.lc 1650:15-1650:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1651:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1652:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1653:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1654:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-1655:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1650:15-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-1650:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1651:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1652:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1653:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1654:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1655:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1656:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1657:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1650:15-1658:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3135,79 +3135,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1668:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1669:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1670:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1671:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1672:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1673:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1674:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1668:7-1675:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1676:30-1676:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1677:25-1677:30  Bool
 testdata/performance/SampleMaterial.lc 1678:29-1678:34  Bool
 testdata/performance/SampleMaterial.lc 1680:13-1706:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1680:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1681:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1682:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1683:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1684:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-1685:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1680:15-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-1680:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1681:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1682:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1683:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1684:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1685:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1686:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1687:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1680:15-1688:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1686:31-1686:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1689:33-1689:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1690:41-1690:46  Bool
 testdata/performance/SampleMaterial.lc 1691:38-1691:54  String
-testdata/performance/SampleMaterial.lc 1693:15-1693:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1694:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1695:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1696:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1697:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-1698:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1693:15-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-1693:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1694:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1695:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1696:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1697:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1698:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1699:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1700:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1693:15-1701:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3215,79 +3215,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1711:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1712:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1713:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1714:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1715:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1716:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1717:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1711:7-1718:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1719:30-1719:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1720:25-1720:30  Bool
 testdata/performance/SampleMaterial.lc 1721:29-1721:34  Bool
 testdata/performance/SampleMaterial.lc 1723:13-1749:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1723:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1724:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1725:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1726:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1727:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-1728:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1723:15-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-1723:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1724:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1725:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1726:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1727:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1728:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1729:72  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1730:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1723:15-1731:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1729:31-1729:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1732:33-1732:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1733:41-1733:46  Bool
 testdata/performance/SampleMaterial.lc 1734:38-1734:54  String
-testdata/performance/SampleMaterial.lc 1736:15-1736:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1737:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1738:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1739:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1740:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-1741:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1736:15-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-1736:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1737:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1738:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1739:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1740:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1741:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1742:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1743:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1736:15-1744:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3295,79 +3295,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1754:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1755:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1756:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1757:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1758:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1759:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1760:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1754:7-1761:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1762:30-1762:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1763:25-1763:30  Bool
 testdata/performance/SampleMaterial.lc 1764:29-1764:34  Bool
 testdata/performance/SampleMaterial.lc 1766:13-1792:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1766:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1767:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1768:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1769:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1770:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-1771:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1766:15-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-1766:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1767:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1768:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1769:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1770:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1771:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1772:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1773:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1766:15-1774:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1772:31-1772:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1775:33-1775:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1776:41-1776:46  Bool
 testdata/performance/SampleMaterial.lc 1777:38-1777:54  String
-testdata/performance/SampleMaterial.lc 1779:15-1779:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1780:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1781:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1782:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1783:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-1784:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1779:15-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-1779:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1780:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1781:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1782:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1783:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1784:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1785:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1786:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1779:15-1787:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3375,77 +3375,77 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1797:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1798:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1799:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1800:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1801:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1802:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1803:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1797:7-1804:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1805:30-1805:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1806:25-1806:30  Bool
 testdata/performance/SampleMaterial.lc 1807:29-1807:34  Bool
 testdata/performance/SampleMaterial.lc 1809:13-1835:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1809:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1810:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1811:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1812:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1813:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-1814:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1809:15-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-1809:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1810:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1811:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1812:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1813:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1814:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1815:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1816:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1809:15-1817:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1818:33-1818:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1819:41-1819:46  Bool
 testdata/performance/SampleMaterial.lc 1820:38-1820:53  String
-testdata/performance/SampleMaterial.lc 1822:15-1822:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1823:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1824:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1825:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1826:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-1827:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1822:15-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-1822:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1823:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1824:42  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1825:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1826:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1827:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1828:77  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1829:39  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1822:15-1830:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3453,81 +3453,81 @@ 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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1828:31-1828:37  String->StageTexture
+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  {a} -> Maybe a
+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-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-1840:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1841:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1842:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1843:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1844:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1845:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1846:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1840:7-1847:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1848:30-1848:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1849:25-1849:30  Bool
 testdata/performance/SampleMaterial.lc 1850:29-1850:34  Bool
 testdata/performance/SampleMaterial.lc 1852:13-1878:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1852:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1853:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1854:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1855:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1856:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-1857:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1852:15-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-1852:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1853:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1854:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1855:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1856:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1857:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1858:73  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1859:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1852:15-1860:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1858:31-1858:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1861:33-1861:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1862:41-1862:46  Bool
 testdata/performance/SampleMaterial.lc 1863:38-1863:54  String
-testdata/performance/SampleMaterial.lc 1865:15-1865:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1866:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1867:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1868:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1869:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-1870:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1865:15-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-1865:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1866:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1867:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1868:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1869:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1870:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1871:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1872:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1865:15-1873:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3535,79 +3535,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1883:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1884:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1885:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1886:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1887:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1888:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1889:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1883:7-1890:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1891:30-1891:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1892:25-1892:30  Bool
 testdata/performance/SampleMaterial.lc 1893:29-1893:34  Bool
 testdata/performance/SampleMaterial.lc 1895:13-1921:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1895:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1896:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1897:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1898:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1899:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-1900:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1895:15-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-1895:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1896:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1897:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1898:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1899:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1900:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1901:78  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1902:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1895:15-1903:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1901:31-1901:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1904:33-1904:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1905:41-1905:46  Bool
 testdata/performance/SampleMaterial.lc 1906:38-1906:54  String
-testdata/performance/SampleMaterial.lc 1908:15-1908:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1909:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1910:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1911:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1912:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-1913:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1908:15-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-1908:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1909:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1910:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1911:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1912:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1913:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1914:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1915:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1908:15-1916:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3615,79 +3615,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1926:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1927:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1928:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1929:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1930:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1931:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1932:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1926:7-1933:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1934:30-1934:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1935:25-1935:30  Bool
 testdata/performance/SampleMaterial.lc 1936:29-1936:34  Bool
 testdata/performance/SampleMaterial.lc 1938:13-1964:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1938:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1939:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1940:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1941:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1942:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-1943:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1938:15-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-1938:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1939:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1940:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1941:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1942:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1943:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1944:69  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1945:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1938:15-1946:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1944:31-1944:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1947:33-1947:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1948:41-1948:46  Bool
 testdata/performance/SampleMaterial.lc 1949:38-1949:54  String
-testdata/performance/SampleMaterial.lc 1951:15-1951:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1952:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1953:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1954:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1955:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-1956:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1951:15-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-1951:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1952:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1953:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1954:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1955:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1956:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1957:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1958:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1951:15-1959:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3695,79 +3695,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-1969:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1970:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1971:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1972:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1973:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1974:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1975:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 1969:7-1976:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 1977:30-1977:32  forall a . List a
 testdata/performance/SampleMaterial.lc 1978:25-1978:30  Bool
 testdata/performance/SampleMaterial.lc 1979:29-1979:34  Bool
 testdata/performance/SampleMaterial.lc 1981:13-2007:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1981:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1982:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1983:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1984:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1985:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-1986:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1981:15-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-1981:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1982:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1983:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1984:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1985:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1986:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1987:74  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1988:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1981:15-1989:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 1987:31-1987:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 1990:33-1990:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 1991:41-1991:46  Bool
 testdata/performance/SampleMaterial.lc 1992:38-1992:53  String
-testdata/performance/SampleMaterial.lc 1994:15-1994:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1995:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1996:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1997:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1998:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-1999:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 1994:15-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-1994:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1995:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1996:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1997:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1998:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-1999:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-2000:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-2001:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 1994:15-2002:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3775,79 +3775,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-2012:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2013:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2014:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2015:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2016:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2017:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2018:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2012:7-2019:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 2020:30-2020:32  forall a . List a
 testdata/performance/SampleMaterial.lc 2021:25-2021:30  Bool
 testdata/performance/SampleMaterial.lc 2022:29-2022:34  Bool
 testdata/performance/SampleMaterial.lc 2024:13-2050:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2024:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2025:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2026:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2027:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2028:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-2029:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2024:15-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-2024:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2025:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2026:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2027:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2028:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2029:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2030:67  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2031:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2024:15-2032:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 2030:31-2030:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 2033:33-2033:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 2034:41-2034:46  Bool
 testdata/performance/SampleMaterial.lc 2035:38-2035:54  String
-testdata/performance/SampleMaterial.lc 2037:15-2037:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2038:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2039:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2040:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2041:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-2042:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2037:15-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-2037:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2038:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2039:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2040:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2041:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2042:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2043:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2044:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2037:15-2045:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3855,79 +3855,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-2055:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2056:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2057:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2058:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2059:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2060:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2061:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2055:7-2062:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 2063:30-2063:32  forall a . List a
 testdata/performance/SampleMaterial.lc 2064:25-2064:30  Bool
 testdata/performance/SampleMaterial.lc 2065:29-2065:34  Bool
 testdata/performance/SampleMaterial.lc 2067:13-2093:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2067:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2068:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2069:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2070:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2071:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-2072:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2067:15-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-2067:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2068:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2069:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2070:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2071:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2072:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2073:71  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2074:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2067:15-2075:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 2073:31-2073:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 2076:33-2076:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 2077:41-2077:46  Bool
 testdata/performance/SampleMaterial.lc 2078:38-2078:54  String
-testdata/performance/SampleMaterial.lc 2080:15-2080:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2081:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2082:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2083:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2084:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-2085:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2080:15-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-2080:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2081:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2082:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2083:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2084:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2085:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2086:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2087:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2080:15-2088:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -3935,79 +3935,79 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-2098:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2099:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2100:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2101:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2102:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2103:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2104:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2098:7-2105:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 2106:30-2106:32  forall a . List a
 testdata/performance/SampleMaterial.lc 2107:25-2107:30  Bool
 testdata/performance/SampleMaterial.lc 2108:29-2108:34  Bool
 testdata/performance/SampleMaterial.lc 2110:13-2136:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2110:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2111:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2112:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2113:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2114:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-2115:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2110:15-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-2110:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2111:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2112:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2113:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2114:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2115:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2116:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2117:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2110:15-2118:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 2116:31-2116:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 2119:33-2119:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 2120:41-2120:46  Bool
 testdata/performance/SampleMaterial.lc 2121:38-2121:53  String
-testdata/performance/SampleMaterial.lc 2123:15-2123:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2124:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2125:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2126:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2127:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-2128:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2123:15-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-2123:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2124:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2125:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2126:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2127:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2128:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2129:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2130:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2123:15-2131:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -4015,78 +4015,78 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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-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-2141:18  () -> () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2142:26  () -> Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2143:26  Bool -> Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2144:27  Float -> Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2145:21  Bool -> Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2146:35  Bool -> CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2147:28  CullType -> List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+testdata/performance/SampleMaterial.lc 2141:7-2148:33  List Deform -> Bool -> Bool -> List StageAttrs -> Bool -> CommonAttrs
+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 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  {a} -> List a
+testdata/performance/SampleMaterial.lc 2149:30-2149:32  forall a . List a
 testdata/performance/SampleMaterial.lc 2150:25-2150:30  Bool
 testdata/performance/SampleMaterial.lc 2151:29-2151:34  Bool
 testdata/performance/SampleMaterial.lc 2153:13-2179:14  List StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2153:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2154:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2155:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2156:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2157:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-2158:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2153:15-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-2153:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2154:36  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2155:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2156:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2157:36  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2158:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2159:81  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2160:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2153:15-2161:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> Maybe a
+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  {a} -> List a
-testdata/performance/SampleMaterial.lc 2159:31-2159:37  String->StageTexture
+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  {a} -> Maybe a
+testdata/performance/SampleMaterial.lc 2162:33-2162:40  forall a . Maybe a
 testdata/performance/SampleMaterial.lc 2163:41-2163:46  Bool
 testdata/performance/SampleMaterial.lc 2164:38-2164:54  String
-testdata/performance/SampleMaterial.lc 2166:15-2166:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2167:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2168:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2169:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2170:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-2171:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String->StageAttrs
-testdata/performance/SampleMaterial.lc 2166:15-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-2166:25  Maybe (Blending', Blending') -> RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2167:57  RGBGen -> AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2168:50  AlphaGen -> TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2169:42  TCGen -> List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2170:40  List TCMod -> StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2171:31  StageTexture -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2172:42  Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2173:38  DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
+testdata/performance/SampleMaterial.lc 2166:15-2174:41  Maybe AlphaFunction -> Bool -> String -> StageAttrs
+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  {a} -> a -> Maybe a
+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'
@@ -4094,11 +4094,11 @@ 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  {a} -> List a
+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  {a} -> Maybe a
+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
diff --git a/testdata/record01.reject.out b/testdata/record01.reject.out
index 38d10686..01aefa45 100644
--- a/testdata/record01.reject.out
+++ b/testdata/record01.reject.out
@@ -1,5 +1,5 @@
 type error: can not unify
-'FrameBuffer b_ a_
+'FrameBuffer _b _a
 with
 'Float
 
@@ -9,7 +9,7 @@ in testdata/record01.reject.lc:26:15:
 
 ------------ trace
 !type error: can not unify
-'FrameBuffer b_ a_
+'FrameBuffer _b _a
 with
 'Float
 
@@ -22,7 +22,7 @@ testdata/record01.reject.lc 2:16-2:21  (BlendEquation, BlendEquation) -> ((Blend
 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: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
@@ -30,7 +30,7 @@ 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  {a} -> a -> a -> a -> a -> VecS a 4
+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
@@ -58,7 +58,7 @@ 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  {a} -> a -> a -> a -> a -> VecS a 4
+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
@@ -67,8 +67,8 @@ 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  {a} -> Blending a
-testdata/record01.reject.lc 6:13-6:15  {a} -> a -> a -> a -> a -> VecS a 4
+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
@@ -77,7 +77,7 @@ 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  {a} -> a -> a -> a -> a -> VecS a 4
+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
@@ -86,36 +86,36 @@ 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  {a : List Type} -> {_ : 'sameLayerCounts a} -> HList a -> FrameBuffer (ImageLC ('head Type a)) ('map Type ImageKind GetImageKind a)
+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  {a:Nat} -> {b} -> {c} -> {_ : Num b} -> {_ : c ~ VecScalar a b} -> c -> Image 1 ('Color c)
+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  {a} -> Float -> PolygonMode a
-testdata/record01.reject.lc 9:23-9:39  PolygonMode a_
+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  {a} -> PolygonMode a
-testdata/record01.reject.lc 11:23-11:35  {a} -> PointSize a -> PolygonMode a
-testdata/record01.reject.lc 11:23-11:52  PolygonMode a_
-testdata/record01.reject.lc 11:37-11:46  {a} -> Float -> PointSize a
-testdata/record01.reject.lc 11:37-11:51  PointSize a_
+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  {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: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  {a} -> PolygonMode a
+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  {a} -> a->a
+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
@@ -123,11 +123,11 @@ 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  {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: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  {a} -> a -> a -> a -> a -> VecS a 4
+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
@@ -136,52 +136,52 @@ 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  {a} -> String->a
-testdata/record01.reject.lc 16:23-16:36  a_
+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: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: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  {a:Nat} -> {b:Nat} -> {c} -> Mat a b c -> Vec b c -> Vec a c
+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: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  {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: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  {a} -> String->a
-testdata/record01.reject.lc 18:39-18:59  a_
+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: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:69-18:70  _b
 testdata/record01.reject.lc 18:71-18:76  Type
-testdata/record01.reject.lc 19:23-19:36  {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  {a:PrimitiveType} -> PrimitiveStream a ((Vec 4 Float))
-testdata/record01.reject.lc 20:23-20:42  {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 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  {a} -> RasterContext a 'Triangle
-testdata/record01.reject.lc 20:53-20:63  ((Interpolated c_))
-testdata/record01.reject.lc 20:55-20:61  {a} -> {_ : Floating a} -> Interpolated a
-testdata/record01.reject.lc 20:64-20:79  {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  {a} -> a -> a -> a -> a -> VecS a 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
@@ -190,12 +190,12 @@ 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  {a} -> {_ : Num (MatVecScalarElem a)} -> a -> a->a
-testdata/record01.reject.lc 22:35-22:44  i_->i_
+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  {a} -> a -> a -> a -> a -> VecS a 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
@@ -204,13 +204,13 @@ 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  {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:33  forall (a :: Nat) (b :: List Type) c . HList b -> (c -> HList ('imageType' ('map Type ImageKind FragmentOperationKind b))) -> List (Vector a (Maybe (SimpleFragment c))) -> FrameBuffer a ('map Type ImageKind FragmentOperationKind b) -> FrameBuffer a ('map Type ImageKind FragmentOperationKind b)
+testdata/record01.reject.lc 23:23-23:45  (_a -> (('imageType (FragmentOperationKind (FragmentOperation ('Color (VecScalar 4 Float))))))) -> List (Vector _b (Maybe (SimpleFragment _a))) -> FrameBuffer _b ('map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))) -> FrameBuffer _b ('map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
+testdata/record01.reject.lc 23:23-23:60  List (Vector _a (Maybe (SimpleFragment ((VecS Float 4))))) -> FrameBuffer _a ('map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))) -> FrameBuffer _a ('map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
 testdata/record01.reject.lc 23:23-23:75  FrameBuffer 1 ('map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil))) -> FrameBuffer 1 ('map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
 testdata/record01.reject.lc 23:23-23:83  FrameBuffer 1 ('map Type ImageKind FragmentOperationKind ('Cons (FragmentOperation 'Depth) ('Cons (FragmentOperation ('Color (VecScalar 4 Float))) 'Nil)))
 testdata/record01.reject.lc 23:34-23:45  (FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float)))
-testdata/record01.reject.lc 23:46-23:60  ((VecS Float 4))->((VecS Float 4))
+testdata/record01.reject.lc 23: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)))
@@ -225,9 +225,9 @@ testdata/record01.reject.lc 24:34-24:57  (FrameBuffer 1 ('map Type ImageKind Fra
 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:11-25:24  _b
 testdata/record01.reject.lc 25:18-25:24  String
-testdata/record01.reject.lc 26:5-26:14  {a:Nat} -> {b : List ImageKind} -> FrameBuffer a b -> Output
+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:15-26:28  _b
 testdata/record01.reject.lc 26:22-26:28  String
diff --git a/testdata/traceTest.out b/testdata/traceTest.out
index c1529ca6..4d11599e 100644
--- a/testdata/traceTest.out
+++ b/testdata/traceTest.out
@@ -1,21 +1,21 @@
 main is not found
 ------------ trace
-id :: {a} -> a->a
-'X :: {a} -> a->Type
-'XCase :: {a} -> {b:a} -> (c : 'X a b -> Type) -> (d : 'X a b) -> c d
-match'X :: (a : Type->Type) -> ({b} -> (c:b) -> a ('X b c)) -> (d:Type) -> a d -> a d
-x :: 'X (Type -> Type->Type) (\(a:Type) (b:Type) -> (a, b))
+id :: forall a . a -> a
+'X :: forall a . a -> Type
+'XCase :: forall a (b :: a) . (c :: 'X a b -> Type) -> (d :: 'X a b) -> c d
+match'X :: (a :: Type -> Type) -> (forall b . (c :: b) -> a ('X b c)) -> (d :: Type) -> a d -> a d
+x :: 'X (Type -> Type -> Type) (\(a :: Type) (b :: Type) -> (a, b))
 ------------ tooltips
-testdata/traceTest.lc 6:1-6:3  {a} -> a->a
-testdata/traceTest.lc 6:8-6:9  b_
-testdata/traceTest.lc 8:6-8:7  Type | {a} -> a->Type
+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  {a} -> a->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: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  {a}->a
+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
diff --git a/testdata/typeclass.out b/testdata/typeclass.out
index c325cfed..1d5b48d0 100644
--- a/testdata/typeclass.out
+++ b/testdata/typeclass.out
@@ -1,42 +1,42 @@
 main is not found
 ------------ trace
-not :: 'Bool->'Bool
-&& :: 'Bool -> 'Bool->'Bool
-|| :: 'Bool -> 'Bool->'Bool
-'Eq :: Type->Type
-== :: {a} -> {_ : 'Eq a} -> a -> a->'Bool
-/= :: {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: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 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 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 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-17:9  Type -> Type
 testdata/typeclass.lc 17:7-18:27  Type
-testdata/typeclass.lc 18:6-18:8  {a} -> {_ : Eq a} -> a -> a->Bool
+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  {a} -> {_ : Eq a} -> a -> a->Bool
-testdata/typeclass.lc 20:10-20:13  Bool->Bool
+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: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  {a} -> {_ : Eq a} -> a -> a->Bool
-testdata/typeclass.lc 20:20-20:21  c_
+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 | {a} -> {_ : Eq a} -> a -> a->Bool
-testdata/typeclass.lc 24:18-24:21  Bool->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 24:22-24:23  _b
diff --git a/testdata/typesig.reject.out b/testdata/typesig.reject.out
index 50c13202..1b78a5c8 100644
--- a/testdata/typesig.reject.out
+++ b/testdata/typesig.reject.out
@@ -1,16 +1,16 @@
-focus checkMetas: \a -> (\(b:Type) -> primFix a b) (\(a:=Type) -> \(c:Type) -> <<HERE>>)
-\(a : Type~a_) (b : a_~'X) -> typeAnn a_ (labend X)
+focus checkMetas: \a -> (\(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 :: (a : 'X->Type) -> a X -> (b:'X) -> a b
-match'X :: (a : Type->Type) -> a 'X -> (b:Type) -> a b -> a b
-!focus checkMetas: \a -> (\(b:Type) -> primFix a b) (\(a:=Type) -> \(c:Type) -> <<HERE>>)
-\(a : Type~a_) (b : a_~'X) -> typeAnn a_ (labend X)
+'XCase :: (a :: 'X -> Type) -> a X -> (b :: 'X) -> a b
+match'X :: (a :: Type -> Type) -> a 'X -> (b :: Type) -> a b -> a b
+!focus checkMetas: \a -> (\(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 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
diff --git a/testdata/typesigctx.reject.out b/testdata/typesigctx.reject.out
index 63c575ce..3d32979e 100644
--- a/testdata/typesigctx.reject.out
+++ b/testdata/typesigctx.reject.out
@@ -4,10 +4,10 @@ in Wildcard2 builtin 'Type
 ------------ trace
 'X :: Type
 X :: 'X
-'XCase :: (a : 'X->Type) -> a X -> (b:'X) -> a b
-match'X :: (a : Type->Type) -> a 'X -> (b:Type) -> a b -> a b
-'Show' :: Type->Type
-show' :: {a} -> {_ : 'Show' a} -> a->'X
+'XCase :: (a :: 'X -> Type) -> a X -> (b :: 'X) -> a b
+match'X :: (a :: Type -> Type) -> a 'X -> (b :: Type) -> 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
 
@@ -15,11 +15,11 @@ in Wildcard2 builtin 'Type
 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:12  Type -> Type
 testdata/typesigctx.reject.lc 3:7-3:36  Type
-testdata/typesigctx.reject.lc 3:21-3:26  {a} -> {_ : Show' a} -> a->X
+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  {a} -> {_ : Show' a} -> a->X
+testdata/typesigctx.reject.lc 6:10-6:15  forall a . Show' a => a -> X
diff --git a/testdata/zip01.out b/testdata/zip01.out
index 10a48894..eb0911c5 100644
--- a/testdata/zip01.out
+++ b/testdata/zip01.out
@@ -1,32 +1,32 @@
 main is not found
 ------------ trace
-zip2 :: {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_ | {a} -> {b} -> List a -> List b -> List (a, b)
-testdata/zip01.lc 1:10-1:11  d_
+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: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  {a} -> {b} -> List a -> List b -> List (a, b)
-testdata/zip01.lc 2:22-2:24  {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  {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  {a} -> a -> List a -> List a
-testdata/zip01.lc 4:30-4:34  {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 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