pushValue GHC.Show.show
  minReads=(Right 3)
  mayRaise=[ExceptionFailure]
  freeRegs=[]
catch ExceptionFailure
  minReads=(Right 3)
  mayRaise=[ExceptionFailure]
  freeRegs=[]
| <ok>
| | pushValue (\x_0 -> \x_1 -> \x_2 -> (GHC.Types.:) 'a' ((GHC.Types.:) 'b' ((GHC.Types.:) 'c' GHC.Types.[])))
| |   minReads=(Right 3)
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[]
| | read ((GHC.Classes.==) 'a')
| |   minReads=(Right 3)
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[]
| | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[]
| | read ((GHC.Classes.==) 'b')
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[]
| | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[]
| | read ((GHC.Classes.==) 'c')
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[]
| | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
| |   minReads=(Right 0)
| |   mayRaise=[]
| |   freeRegs=[]
| | commit ExceptionFailure
| |   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=[]
| <ko>
| | loadInput
| |   minReads=(Left ExceptionFailure)
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[]
| | fail []
| |   minReads=(Left ExceptionFailure)
| |   mayRaise=[ExceptionFailure]
| |   freeRegs=[]