let name
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
  freeRegs=[]
| pushValue (\x_0 -> GHC.Tuple.())
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
|   freeRegs=[]
| pushValue (\x_0 -> x_0)
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
|   freeRegs=[]
| newRegister reg
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
|   freeRegs=[]
| iter loop
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
|   freeRegs=[reg]
| | <ok>
| | | pushValue (\x_0 -> \x_1 -> x_1)
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | 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]
| | |   freeRegs=[reg]
| | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | |   minReads=(Right 0)
| | |   mayRaise=[]
| | |   freeRegs=[reg]
| | | readRegister reg
| | |   minReads=(Right 0)
| | |   mayRaise=[]
| | |   freeRegs=[reg]
| | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | |   minReads=(Right 0)
| | |   mayRaise=[]
| | |   freeRegs=[reg]
| | | writeRegister reg
| | |   minReads=(Right 0)
| | |   mayRaise=[]
| | |   freeRegs=[reg]
| | | jump loop
| | |   minReads=(Right 0)
| | |   mayRaise=[]
| | |   freeRegs=[]
| | <ko>
| | | pushInput
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
| | |                                                                j_1
| | |                                                                _) -> i_0 GHC.Classes.== j_1)
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | choicesBranch
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | | <branch (\x_0 -> x_0)>
| | | | | readRegister reg
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[reg]
| | | | | pushValue GHC.Tuple.()
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | | ret
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | <default>
| | | | | fail []
| | | | |   minReads=(Left ExceptionFailure)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[]
let name
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
  freeRegs=[]
| pushValue (\x_0 -> x_0)
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
|   freeRegs=[]
| newRegister reg
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
|   freeRegs=[]
| iter loop
|   minReads=(Right 0)
|   mayRaise=[ExceptionFailure]
|   freeRegs=[reg]
| | <ok>
| | | pushValue (\x_0 -> \x_1 -> (GHC.Types.:) x_0)
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | join join
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=(Right 0)
| | | |   mayRaise=[ExceptionFailure]
| | | |   freeRegs=[reg]
| | | | call name
| | | |   minReads=(Right 0)
| | | |   mayRaise=[ExceptionFailure]
| | | |   freeRegs=[reg]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | |   freeRegs=[reg]
| | | | pushValue (\x_0 -> \x_1 -> \x_2 -> x_1 (x_0 x_2))
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | |   freeRegs=[reg]
| | | | lift2Value (\x_0 -> \x_1 -> x_1 x_0)
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | |   freeRegs=[reg]
| | | | readRegister reg
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | |   freeRegs=[reg]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | |   freeRegs=[reg]
| | | | writeRegister reg
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | |   freeRegs=[reg]
| | | | jump loop
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | |   freeRegs=[]
| | | pushInput
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | read (\x_0 -> GHC.Types.True)
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | swapValue
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | loadInput
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | choicesBranch
| | |   minReads=(Right 1)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | | <branch (\x_0 -> (\x_1 -> \x_2 -> (GHC.Classes.==) x_1 x_2) '<' x_0)>
| | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Backward)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | read (\x_0 -> GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | refJoin join
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | <branch (\x_0 -> (\x_1 -> \x_2 -> (GHC.Classes.==) x_1 x_2) '>' x_0)>
| | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Forward)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | read (\x_0 -> GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | refJoin join
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | <branch (\x_0 -> (\x_1 -> \x_2 -> (GHC.Classes.==) x_1 x_2) '+' x_0)>
| | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Increment)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | read (\x_0 -> GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | refJoin join
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | <branch (\x_0 -> (\x_1 -> \x_2 -> (GHC.Classes.==) x_1 x_2) '-' x_0)>
| | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Decrement)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | read (\x_0 -> GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | refJoin join
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | <branch (\x_0 -> (\x_1 -> \x_2 -> (GHC.Classes.==) x_1 x_2) ',' x_0)>
| | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Input)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | read (\x_0 -> GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | refJoin join
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | <branch (\x_0 -> (\x_1 -> \x_2 -> (GHC.Classes.==) x_1 x_2) '.' x_0)>
| | | | | pushValue (\x_0 -> Parsers.Brainfuck.Types.Output)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | read (\x_0 -> GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | refJoin join
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | <branch (\x_0 -> (\x_1 -> \x_2 -> (GHC.Classes.==) x_1 x_2) '[' x_0)>
| | | | | pushValue (\x_0 -> \x_1 -> \x_2 -> \x_3 -> Parsers.Brainfuck.Types.Loop x_2)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[]
| | | | | read (\x_0 -> GHC.Types.True)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[]
| | | | | call name
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | | call name
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | read ((GHC.Classes.==) ']')
| | | | |   minReads=(Right 1)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | | refJoin join
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[reg]
| | | | <default>
| | | | | fail [FailureEmpty]
| | | | |   minReads=(Left ExceptionFailure)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[]
| | <ko>
| | | pushInput
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
| | |                                                                j_1
| | |                                                                _) -> i_0 GHC.Classes.== j_1)
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | choicesBranch
| | |   minReads=(Right 0)
| | |   mayRaise=[ExceptionFailure]
| | |   freeRegs=[reg]
| | | | <branch (\x_0 -> x_0)>
| | | | | readRegister reg
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[reg]
| | | | | pushValue GHC.Types.[]
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | | ret
| | | | |   minReads=(Right 0)
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | <default>
| | | | | fail []
| | | | |   minReads=(Left ExceptionFailure)
| | | | |   mayRaise=[ExceptionFailure]
| | | | |   freeRegs=[]
pushValue (\x_0 -> \x_1 -> GHC.Show.show x_1)
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
  freeRegs=[]
call name
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
  freeRegs=[]
lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
  freeRegs=[]
call name
  minReads=(Right 0)
  mayRaise=[ExceptionFailure]
  freeRegs=[]
lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  minReads=(Right 0)
  mayRaise=[]
  freeRegs=[]
ret
  minReads=(Right 0)
  mayRaise=[]
  freeRegs=[]