<*>
+ <*>
| + pure (const id)
| ` def let_1
|   ` <*>
|     + pure ((flip ($)) () . (const id . (flip ($)) ()))
|     ` def let_4
|       ` <|>
|         + <*>
|         | + <*>
|         | | + pure ((.) . ((.) ((flip ($)) id) . const) id)
|         | | ` satisfy
|         | ` rec let_4
|         ` pure id
` def let_2
  ` <*>
    + pure ((flip ($)) Haskell)
    ` def let_3
      ` <|>
        + <*>
        | + <*>
        | | + conditional
        | | | + bs
        | | | | + <*>
        | | | | | + pure ((.) (.) . ((.) cons . (const . const Haskell)))
        | | | | | ` satisfy
        | | | | + <*>
        | | | | | + pure ((.) (.) . ((.) cons . (const . const Haskell)))
        | | | | | ` satisfy
        | | | | + <*>
        | | | | | + pure ((.) (.) . ((.) cons . (const . const Haskell)))
        | | | | | ` satisfy
        | | | | + <*>
        | | | | | + pure ((.) (.) . ((.) cons . (const . const Haskell)))
        | | | | | ` satisfy
        | | | | + <*>
        | | | | | + pure ((.) (.) . ((.) cons . (const . const Haskell)))
        | | | | | ` satisfy
        | | | | + <*>
        | | | | | + pure ((.) (.) . ((.) cons . (const . const Haskell)))
        | | | | | ` satisfy
        | | | | ` <*>
        | | | |   + <*>
        | | | |   | + <*>
        | | | |   | | + <*>
        | | | |   | | | + pure ((.) ((.) ((.) ((.) (.)))) . ((.) ((.) ((.) ((.) cons))) . ((.) ((.) ((.) const)) . ((.) ((.) ((flip ($)) (const Haskell))) . ((.) ((.) (.)) . ((.) ((.) const) . ((.) ((flip ($)) Haskell) . ((.) (.) . ((.) (const id) . const)))))))))
        | | | |   | | | ` satisfy
        | | | |   | | ` ref let_1
        | | | |   | ` rec let_2
        | | | |   ` satisfy
        | | | + look
        | | | | ` satisfy
        | | | ` empty
        | | ` ref let_1
        | ` rec let_3
        ` pure id