lets
-` <|>
- + try
- | ` <*>
- | + <*>
- | | + pure (\u1 -> (\u2 -> 'a' : ('a' : Term)))
- | | ` satisfy
- | ` satisfy
- ` try
- ` <*>
- + <*>
- | + pure (\u1 -> (\u2 -> 'a' : ('b' : Term)))
- | ` satisfy
- ` satisfy
+` <*>
+ + pure GHC.Show.show
+ ` <|>
+ + try
+ | ` <*>
+ | + <*>
+ | | + pure (\x_0 -> \x_1 -> (GHC.Types.:) 'a' ((GHC.Types.:) 'a' GHC.Types.[]))
+ | | ` satisfy ((GHC.Classes.==) 'a')
+ | ` satisfy ((GHC.Classes.==) 'a')
+ ` try
+ ` <*>
+ + <*>
+ | + pure (\x_0 -> \x_1 -> (GHC.Types.:) 'a' ((GHC.Types.:) 'b' GHC.Types.[]))
+ | ` satisfy ((GHC.Classes.==) 'a')
+ ` satisfy ((GHC.Classes.==) 'b')