push ((flip ($)) ((flip ($)) Haskell) . ((.) . cons))
name_3:
| push ((.) ((flip ($)) ((.) ((flip ($)) Haskell) . ((flip ($)) (const Haskell) . (.)))) . ((.) (.) . ((.) (.) . ((flip ($)) (const Haskell) . (.)))))
| name_1:
| | push cons
| | ret
| call name_1
| lift ($)
| read
| lift ($)
| call name_1
| lift ($)
| read
| lift ($)
| ret
call name_3
lift ($)
name_2:
| catchFail
|   <try>
|   | push ((.) . cons)
|   | call name_3
|   | lift ($)
|   | call name_2
|   | lift ($)
|   | popFail
|   | ret
|   <handler>
|     pushInput
|     lift InstrPureSameOffset
|     choices [id]
|       <branch>
|       | push id
|       | ret
|       <default>
|         fail
call name_2
lift ($)
ret