Optimize untupling lets
-rw-r--r-- 11621 Expr.hs
-rw-r--r-- 3632 ParseType.hs
-rw-r--r-- 3682 SimpleFT.hs