test/Golden/Machine/some-string.dump

   1 push ((flip ($)) ((flip ($)) Haskell) . ((.) . cons))
   2 name_3:
   3 | push ((.) ((flip ($)) ((.) ((flip ($)) Haskell) . ((flip ($)) (const Haskell) . (.)))) . ((.) (.) . ((.) (.) . ((flip ($)) (const Haskell) . (.)))))
   4 | name_1:
   5 | | push cons
   6 | | ret
   7 | call name_1
   8 | lift ($)
   9 | read
  10 | lift ($)
  11 | call name_1
  12 | lift ($)
  13 | read
  14 | lift ($)
  15 | ret
  16 call name_3
  17 lift ($)
  18 name_2:
  19 | catchFail
  20 |   <try>
  21 |   | push ((.) . cons)
  22 |   | call name_3
  23 |   | lift ($)
  24 |   | call name_2
  25 |   | lift ($)
  26 |   | popFail
  27 |   | ret
  28 |   <handler>
  29 |     pushInput
  30 |     lift InstrPureSameOffset
  31 |     choices [id]
  32 |       <branch>
  33 |       | push id
  34 |       | ret
  35 |       <default>
  36 |         fail
  37 call name_2
  38 lift ($)
  39 ret