]> Git — Sourcephile - haskell/symantic-parser.git/blob - test/Golden/Machine/string.dump
test: save
[haskell/symantic-parser.git] / test / Golden / Machine / string.dump
1 catchFail
2 <try>
3 | push ((flip ($)) ((flip ($)) ((flip ($)) ((flip ($)) Pure . (cons . const 'd')) . ((.) . (cons . const 'c'))) . ((.) . ((.) . (cons . const 'b')))) . ((.) . ((.) . ((.) . (cons . const 'a')))))
4 | read
5 | lift ($)
6 | read
7 | lift ($)
8 | read
9 | lift ($)
10 | read
11 | lift ($)
12 | popFail
13 | ret
14 <handler>
15 loadInput
16 fail