test/Golden/Machine/string.dump

   1 push ((.) ((flip ($)) ((.) ((flip ($)) Haskell) . ((flip ($)) (const Haskell) . (.)))) . ((.) (.) . ((.) (.) . ((flip ($)) (const Haskell) . (.)))))
   2 name_1:
   3 | push cons
   4 | ret
   5 call name_1
   6 lift ($)
   7 read
   8 lift ($)
   9 call name_1
  10 lift ($)
  11 read
  12 lift ($)
  13 ret