lets
+ let <hidden>
| ` try
|   ` <*>
|     + <*>
|     | + <*>
|     | | + <*>
|     | | | + pure (\x_0 -> \x_1 -> \x_2 -> \x_3 -> (GHC.Types.:) 'a' ((GHC.Types.:) 'b' ((GHC.Types.:) 'c' ((GHC.Types.:) 'd' GHC.Types.[]))))
|     | | | ` satisfy
|     | | ` satisfy
|     | ` satisfy
|     ` satisfy
` <*>
  + <*>
  | + <*>
  | | + pure (\x_0 -> \x_1 -> \x_2 -> GHC.Show.show ((GHC.Types.:) x_0 x_1))
  | | ` ref <hidden>
  | ` chainPre
  |   + <*>
  |   | + pure (GHC.Types.:)
  |   | ` ref <hidden>
  |   ` pure GHC.Types.[]
  ` eof