lets
` <*>
  + <*>
  | + pure (\u_0 -> \u_1 -> GHC.Show.show u_0)
  | ` chainPre
  |   + <*>
  |   | + pure (\u_0 -> (GHC.Types.:) 'a')
  |   | ` satisfy ((GHC.Classes.==) 'a')
  |   ` pure GHC.Types.[]
  ` satisfy ((GHC.Classes.==) 'b')