pushValue (\x_0 -> \x_1 -> GHC.Show.show x_0)
  minReads=0
  mayRaise=[ExceptionFailure]
  freeRegs=[]
pushValue (\x_0 -> x_0)
  minReads=0
  mayRaise=[ExceptionFailure]
  freeRegs=[]
newRegister reg
  minReads=0
  mayRaise=[ExceptionFailure]
  freeRegs=[]
iter loop
  minReads=0
  mayRaise=[ExceptionFailure]
  freeRegs=[reg]
| <ok>
| | pushValue (GHC.Types.:)
| |   minReads=1
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[reg]
| | comment "satisfy"
| |   minReads=1
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[reg]
| | read (\t_0 -> ('a' GHC.Classes.== t_0) GHC.Classes.|| (('b' GHC.Classes.== t_0) GHC.Classes.|| (('c' GHC.Classes.== t_0) GHC.Classes.|| (('d' GHC.Classes.== t_0) GHC.Classes.|| GHC.Types.False))))
| |   minReads=1
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[reg]
| | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| |   minReads=0
| |   mayRaise=[]
| |   freeRegs=[reg]
| | pushValue (\x_0 -> \x_1 -> \x_2 -> x_1 (x_0 x_2))
| |   minReads=0
| |   mayRaise=[]
| |   freeRegs=[reg]
| | lift2Value (\x_0 -> \x_1 -> x_1 x_0)
| |   minReads=0
| |   mayRaise=[]
| |   freeRegs=[reg]
| | readRegister reg
| |   minReads=0
| |   mayRaise=[]
| |   freeRegs=[reg]
| | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| |   minReads=0
| |   mayRaise=[]
| |   freeRegs=[reg]
| | writeRegister reg
| |   minReads=0
| |   mayRaise=[]
| |   freeRegs=[reg]
| | jump loop
| |   minReads=0
| |   mayRaise=[]
| |   freeRegs=[]
| <ko>
| | pushInput
| |   minReads=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=0
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[reg]
| | choicesBranch
| |   minReads=0
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[reg]
| | | <branch (\x_0 -> x_0)>
| | | | readRegister reg
| | | |   minReads=0
| | | |   mayRaise=[ExceptionFailure]
| | | |   freeRegs=[reg]
| | | | pushValue GHC.Types.[]
| | | |   minReads=0
| | | |   mayRaise=[ExceptionFailure]
| | | |   freeRegs=[]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=0
| | | |   mayRaise=[ExceptionFailure]
| | | |   freeRegs=[]
| | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | |   minReads=0
| | | |   mayRaise=[ExceptionFailure]
| | | |   freeRegs=[]
| | | | join join
| | | |   minReads=0
| | | |   mayRaise=[]
| | | |   freeRegs=[]
| | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| | | | |   minReads=0
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | | ret
| | | | |   minReads=0
| | | | |   mayRaise=[]
| | | | |   freeRegs=[]
| | | | catch ExceptionFailure
| | | |   minReads=0
| | | |   mayRaise=[ExceptionFailure]
| | | |   freeRegs=[]
| | | | | <ok>
| | | | | | comment "negLook"
| | | | | |   minReads=0
| | | | | |   mayRaise=[]
| | | | | |   freeRegs=[]
| | | | | | catch ExceptionFailure
| | | | | |   minReads=0
| | | | | |   mayRaise=[]
| | | | | |   freeRegs=[]
| | | | | | | <ok>
| | | | | | | | comment "negLook.ahead"
| | | | | | | |   minReads=1
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | | | | | | pushInput
| | | | | | | |   minReads=1
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | | | | | | comment "satisfy"
| | | | | | | |   minReads=1
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | | | | | | read (\x_0 -> GHC.Types.True)
| | | | | | | |   minReads=1
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | | | | | | popValue
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | | | | | | commit ExceptionFailure
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | | | | | | loadInput
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | | | | | | fail []
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | | | | | <ko>
| | | | | | | | comment "negLook.reset"
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[]
| | | | | | | |   freeRegs=[]
| | | | | | | | loadInput
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[]
| | | | | | | |   freeRegs=[]
| | | | | | | | pushValue GHC.Tuple.()
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[]
| | | | | | | |   freeRegs=[]
| | | | | | | | commit ExceptionFailure
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[]
| | | | | | | |   freeRegs=[]
| | | | | | | | refJoin join
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[]
| | | | | | | |   freeRegs=[]
| | | | | <ko>
| | | | | | pushInput
| | | | | |   minReads=0
| | | | | |   mayRaise=[ExceptionFailure]
| | | | | |   freeRegs=[]
| | | | | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
| | | | | |                                                                j_1
| | | | | |                                                                _) -> i_0 GHC.Classes.== j_1)
| | | | | |   minReads=0
| | | | | |   mayRaise=[ExceptionFailure]
| | | | | |   freeRegs=[]
| | | | | | choicesBranch
| | | | | |   minReads=0
| | | | | |   mayRaise=[ExceptionFailure]
| | | | | |   freeRegs=[]
| | | | | | | <branch (\x_0 -> x_0)>
| | | | | | | | comment "eof.fail"
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | | | | | | fail [FailureEnd]
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | | | | | <default>
| | | | | | | | fail []
| | | | | | | |   minReads=0
| | | | | | | |   mayRaise=[ExceptionFailure]
| | | | | | | |   freeRegs=[]
| | | <default>
| | | | fail []
| | | |   minReads=0
| | | |   mayRaise=[ExceptionFailure]
| | | |   freeRegs=[]