symantic-parser-0.2.0.20210703: test/Golden/Machine/G13.expected.txt

let <hidden>
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
| call <hidden>
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
| pushValue GHC.Types.[]
|   minReads=(Right 0)
|   mayRaise=[]
| lift2Value (\x_0 -> \x_1 -> x_0 x_1)
|   minReads=(Right 0)
|   mayRaise=[]
| ret
|   minReads=(Right 0)
|   mayRaise=[]
let <hidden>
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
| catch ExceptionFailure
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
| | <ok>
| | | pushValue (\x_0 -> \x_1 -> \x_2 -> x_0 (x_1 x_2))
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | pushValue (GHC.Types.:)
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | pushValue (\x_0 -> \x_1 -> x_0)
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | join <hidden>
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=(Right 0)
| | | |   mayRaise=[ExceptionFailure]
| | | | call <hidden>
| | | |   minReads=(Right 0)
| | | |   mayRaise=[ExceptionFailure]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=(Right 0)
| | | |   mayRaise=[ExceptionFailure]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=(Right 0)
| | | |   mayRaise=[ExceptionFailure]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=(Right 0)
| | | |   mayRaise=[ExceptionFailure]
| | | | call <hidden>
| | | |   minReads=(Right 0)
| | | |   mayRaise=[ExceptionFailure]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | | commit ExceptionFailure
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | | ret
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | pushInput
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | read ((\x_0 -> \x_1 -> x_0) GHC.Types.True)
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | swapValue
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | loadInput
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | choicesBranch [(GHC.Classes.==) '<',(GHC.Classes.==) '>',(GHC.Classes.==) '+',(GHC.Classes.==) '-',(GHC.Classes.==) ',',(GHC.Classes.==) '.',(GHC.Classes.==) '[']
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | | <branch>
| | | | | pushValue (\x_0 -> \x_1 -> x_0)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue Parsers.Brainfuck.Types.Backward
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | read ((\x_0 -> \x_1 -> x_0) GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | | refJoin <hidden>
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | <branch>
| | | | | pushValue (\x_0 -> \x_1 -> x_0)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue Parsers.Brainfuck.Types.Forward
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | read ((\x_0 -> \x_1 -> x_0) GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | | refJoin <hidden>
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | <branch>
| | | | | pushValue (\x_0 -> \x_1 -> x_0)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue Parsers.Brainfuck.Types.Increment
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | read ((\x_0 -> \x_1 -> x_0) GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | | refJoin <hidden>
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | <branch>
| | | | | pushValue (\x_0 -> \x_1 -> x_0)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue Parsers.Brainfuck.Types.Decrement
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | read ((\x_0 -> \x_1 -> x_0) GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | | refJoin <hidden>
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | <branch>
| | | | | pushValue (\x_0 -> \x_1 -> x_0)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue Parsers.Brainfuck.Types.Input
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | read ((\x_0 -> \x_1 -> x_0) GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | | refJoin <hidden>
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | <branch>
| | | | | pushValue (\x_0 -> \x_1 -> x_0)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue Parsers.Brainfuck.Types.Output
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | read ((\x_0 -> \x_1 -> x_0) GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | | refJoin <hidden>
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | <branch>
| | | | | pushValue (\x_0 -> \x_1 -> x_0)
| | | | |   minReads=(Right 2)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue (\x_0 -> \x_1 -> x_0)
| | | | |   minReads=(Right 2)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue (\x_0 -> x_0)
| | | | |   minReads=(Right 2)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 2)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue (\x_0 -> \x_1 -> x_0)
| | | | |   minReads=(Right 2)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | read ((\x_0 -> \x_1 -> x_0) GHC.Types.True)
| | | | |   minReads=(Right 2)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | call <hidden>
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue Parsers.Brainfuck.Types.Loop
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | call <hidden>
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue (\x_0 -> \x_1 -> x_0)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | pushValue ']'
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | read ((GHC.Classes.==) ']')
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | | refJoin <hidden>
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | <default>
| | | | | fail [FailureEmpty]
| | | | |   minReads=(Left ExceptionFailure)
| | | | |   mayRaise=[ExceptionFailure]
| | <ko>
| | | pushInput
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
| | |                                                                j_1
| | |                                                                _) -> i_0 GHC.Classes.== j_1)
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | choicesBranch [\x_0 -> x_0]
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | | <branch>
| | | | | pushValue (\x_0 -> x_0)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | | ret
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | <default>
| | | | | fail []
| | | | |   minReads=(Left ExceptionFailure)
| | | | |   mayRaise=[ExceptionFailure]
let <hidden>
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
| catch ExceptionFailure
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
| | <ok>
| | | pushValue (\x_0 -> \x_1 -> \x_2 -> x_0 (x_1 x_2))
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | pushValue (\x_0 -> \x_1 -> \x_2 -> x_0 x_2 x_1)
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | pushValue (\x_0 -> \x_1 -> x_0)
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | read (\c_0 -> GHC.Classes.not (('<' GHC.Classes.== c_0) GHC.Classes.|| (('>' GHC.Classes.== c_0) GHC.Classes.|| (('+' GHC.Classes.== c_0) GHC.Classes.|| (('-' GHC.Classes.== c_0) GHC.Classes.|| ((',' GHC.Classes.== c_0) GHC.Classes.|| (('.' GHC.Classes.== c_0) GHC.Classes.|| (('[' GHC.Classes.== c_0) GHC.Classes.|| ((']' GHC.Classes.== c_0) GHC.Classes.|| GHC.Types.False)))))))))
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | call <hidden>
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | |   minReads=(Right 0)
| | |   mayRaise=[]
| | | commit ExceptionFailure
| | |   minReads=(Right 0)
| | |   mayRaise=[]
| | | ret
| | |   minReads=(Right 0)
| | |   mayRaise=[]
| | <ko>
| | | pushInput
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
| | |                                                                j_1
| | |                                                                _) -> i_0 GHC.Classes.== j_1)
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | choicesBranch [\x_0 -> x_0]
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | | | <branch>
| | | | | pushValue (\x_0 -> x_0)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | | ret
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | <default>
| | | | | fail []
| | | | |   minReads=(Left ExceptionFailure)
| | | | |   mayRaise=[ExceptionFailure]
let <hidden>
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
| pushValue (\x_0 -> \x_1 -> x_0)
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
| pushValue (\x_0 -> x_0)
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
| lift2Value (\x_0 -> \x_1 -> x_0 x_1)
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
| pushValue ((\x_0 -> \x_1 -> \x_2 -> x_0 x_2 x_1) (\x_3 -> \x_4 -> x_3 x_4))
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
| pushValue GHC.Tuple.()
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
| lift2Value (\x_0 -> \x_1 -> x_0 x_1)
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
| call <hidden>
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
| lift2Value (\x_0 -> \x_1 -> x_0 x_1)
|   minReads=(Right 0)
|   mayRaise=[]
| lift2Value (\x_0 -> \x_1 -> x_0 x_1)
|   minReads=(Right 0)
|   mayRaise=[]
| pushValue GHC.Tuple.()
|   minReads=(Right 0)
|   mayRaise=[]
| lift2Value (\x_0 -> \x_1 -> x_0 x_1)
|   minReads=(Right 0)
|   mayRaise=[]
| ret
|   minReads=(Right 0)
|   mayRaise=[]
pushValue GHC.Show.show
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
pushValue (\x_0 -> \x_1 -> x_0)
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
pushValue (\x_0 -> x_0)
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
call <hidden>
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
call <hidden>
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  minReads=(Right 0)
  mayRaise=[]
lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  minReads=(Right 0)
  mayRaise=[]
ret
  minReads=(Right 0)
  mayRaise=[]