push (\u1 -> (\u2 -> (\u3 -> (\u4 -> u4))))
name_4:
| push unit
| ret
call name_4
lift (\u1 -> (\u2 -> u1 u2))
name_2:
| catchFail
|   <try>
|   | push (\u1 -> (\u2 -> (\u3 -> (\u4 -> (u1 u2) (u3 u4)))))
|   | name_1:
|   | | push (\u1 -> (\u2 -> u2))
|   | | ret
|   | call name_1
|   | lift (\u1 -> (\u2 -> u1 u2))
|   | read Pure
|   | lift (\u1 -> (\u2 -> u1 u2))
|   | call name_2
|   | lift (\u1 -> (\u2 -> u1 u2))
|   | popFail
|   | ret
|   <handler>
|     pushInput
|     lift Pure
|     choices [(\u1 -> u1)]
|       <branch>
|       | push (\u1 -> u1)
|       | ret
|       <default>
|         fail
call name_2
lift (\u1 -> (\u2 -> u1 u2))
call name_4
lift (\u1 -> (\u2 -> u1 u2))
name_6:
| push (\u1 -> u1 Pure)
| name_5:
| | catchFail
| |   <try>
| |   | join_55:
| |   | | call name_4
| |   | | lift (\u1 -> (\u2 -> u1 u2))
| |   | | name_3:
| |   | | | catchFail
| |   | | |   <try>
| |   | | |   | push (\u1 -> (\u2 -> (\u3 -> (\u4 -> (u1 u2) (u3 u4)))))
| |   | | |   | call name_1
| |   | | |   | lift (\u1 -> (\u2 -> u1 u2))
| |   | | |   | read Pure
| |   | | |   | lift (\u1 -> (\u2 -> u1 u2))
| |   | | |   | call name_3
| |   | | |   | lift (\u1 -> (\u2 -> u1 u2))
| |   | | |   | popFail
| |   | | |   | ret
| |   | | |   <handler>
| |   | | |     pushInput
| |   | | |     lift Pure
| |   | | |     choices [(\u1 -> u1)]
| |   | | |       <branch>
| |   | | |       | push (\u1 -> u1)
| |   | | |       | ret
| |   | | |       <default>
| |   | | |         fail
| |   | | call name_3
| |   | | lift (\u1 -> (\u2 -> u1 u2))
| |   | | call name_4
| |   | | lift (\u1 -> (\u2 -> u1 u2))
| |   | | call name_5
| |   | | lift (\u1 -> (\u2 -> u1 u2))
| |   | | popFail
| |   | | ret
| |   | pushInput
| |   | read (\u1 -> Pure)
| |   | swap
| |   | loadInput
| |   | choices [(Pure ==),(Pure ==),(Pure ==),(Pure ==),(Pure ==),(Pure ==),(Pure ==)]
| |   |   <branch>
| |   |   | push (\u1 -> (\u2 -> (\u3 -> (\u4 -> (\u5 -> (\u6 -> Pure : u5 u6))))))
| |   |   | read (\u1 -> Pure)
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | refJoin join_55
| |   |   <branch>
| |   |   | push (\u1 -> (\u2 -> (\u3 -> (\u4 -> (\u5 -> (\u6 -> Pure : u5 u6))))))
| |   |   | read (\u1 -> Pure)
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | refJoin join_55
| |   |   <branch>
| |   |   | push (\u1 -> (\u2 -> (\u3 -> (\u4 -> (\u5 -> (\u6 -> Pure : u5 u6))))))
| |   |   | read (\u1 -> Pure)
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | refJoin join_55
| |   |   <branch>
| |   |   | push (\u1 -> (\u2 -> (\u3 -> (\u4 -> (\u5 -> (\u6 -> Pure : u5 u6))))))
| |   |   | read (\u1 -> Pure)
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | refJoin join_55
| |   |   <branch>
| |   |   | push (\u1 -> (\u2 -> (\u3 -> (\u4 -> (\u5 -> (\u6 -> Pure : u5 u6))))))
| |   |   | read (\u1 -> Pure)
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | refJoin join_55
| |   |   <branch>
| |   |   | push (\u1 -> (\u2 -> (\u3 -> (\u4 -> (\u5 -> (\u6 -> Pure : u5 u6))))))
| |   |   | read (\u1 -> Pure)
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | refJoin join_55
| |   |   <branch>
| |   |   | push (\u1 -> (\u2 -> (\u3 -> (\u4 -> (\u5 -> (\u6 -> (\u7 -> (\u8 -> (\u9 -> (\u10 -> (\u11 -> Pure u5 : u10 u11)))))))))))
| |   |   | read (\u1 -> Pure)
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | call name_4
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | name_7:
| |   |   | | catchFail
| |   |   | |   <try>
| |   |   | |   | push (\u1 -> (\u2 -> (\u3 -> (\u4 -> (u1 u2) (u3 u4)))))
| |   |   | |   | call name_1
| |   |   | |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | |   | read Pure
| |   |   | |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | |   | call name_7
| |   |   | |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | |   | popFail
| |   |   | |   | ret
| |   |   | |   <handler>
| |   |   | |     pushInput
| |   |   | |     lift Pure
| |   |   | |     choices [(\u1 -> u1)]
| |   |   | |       <branch>
| |   |   | |       | push (\u1 -> u1)
| |   |   | |       | ret
| |   |   | |       <default>
| |   |   | |         fail
| |   |   | call name_7
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | call name_4
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | call name_6
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | read (']' ==)
| |   |   | lift (\u1 -> (\u2 -> u1 u2))
| |   |   | refJoin join_55
| |   |   <default>
| |   |     fail
| |   <handler>
| |     pushInput
| |     lift Pure
| |     choices [(\u1 -> u1)]
| |       <branch>
| |       | push (\u1 -> u1)
| |       | ret
| |       <default>
| |         fail
| call name_5
| lift (\u1 -> (\u2 -> u1 u2))
| ret
call name_6
lift (\u1 -> (\u2 -> u1 u2))
ret