pushValue (\x_0 -> \x_1 -> GHC.Show.show x_0)
  minReads=(Right 1)
  mayRaise=[ExceptionFailure]
pushValue (\x_0 -> x_0)
  minReads=(Right 1)
  mayRaise=[ExceptionFailure]
newRegister <hidden>
  minReads=(Right 1)
  mayRaise=[ExceptionFailure]
iter <hidden>
  minReads=(Right 1)
  mayRaise=[ExceptionFailure]
| <ok>
| | pushValue (\x_0 -> (GHC.Types.:) 'a')
| |   minReads=(Right 3)
| |   mayRaise=[ExceptionFailure]
| | read ((GHC.Classes.==) 'a')
| |   minReads=(Right 3)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | pushValue ((\x_0 -> \x_1 -> \x_2 -> x_0 x_2 x_1) (\x_3 -> \x_4 -> \x_5 -> x_3 (x_4 x_5)))
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | lift2Value ((\x_0 -> \x_1 -> \x_2 -> x_0 x_2 x_1) (\x_3 -> \x_4 -> x_3 x_4))
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | readRegister <hidden>
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | writeRegister <hidden>
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | jump <hidden>
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| <ko>
| | pushInput
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
| |                                                                j_1
| |                                                                _) -> i_0 GHC.Classes.== j_1)
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| | choicesBranch
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| | | <branch (\x_0 -> x_0)>
| | | | readRegister <hidden>
| | | |   minReads=(Right 1)
| | | |   mayRaise=[ExceptionFailure]
| | | | pushValue GHC.Types.[]
| | | |   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]
| | | | read ((GHC.Classes.==) 'b')
| | | |   minReads=(Right 1)
| | | |   mayRaise=[ExceptionFailure]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | | ret
| | | |   minReads=(Right 0)
| | | |   mayRaise=[]
| | | <default>
| | | | fail []
| | | |   minReads=(Left ExceptionFailure)
| | | |   mayRaise=[ExceptionFailure]