pushValue Term
  minReads=(Right 3)
  mayRaise=[ExceptionFailure]
catch ExceptionFailure
  minReads=(Right 3)
  mayRaise=[ExceptionFailure]
| <ok>
| | pushValue cons
| |   minReads=(Right 3)
| |   mayRaise=[ExceptionFailure]
| | pushValue (\u1 -> (\u2 -> u1))
| |   minReads=(Right 3)
| |   mayRaise=[ExceptionFailure]
| | pushValue 'a'
| |   minReads=(Right 3)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 3)
| |   mayRaise=[ExceptionFailure]
| | read ('a' ==)
| |   minReads=(Right 3)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | pushValue cons
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | pushValue (\u1 -> (\u2 -> u1))
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | pushValue 'b'
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | read ('b' ==)
| |   minReads=(Right 2)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| | pushValue cons
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| | pushValue (\u1 -> (\u2 -> u1))
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| | pushValue 'c'
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| | read ('c' ==)
| |   minReads=(Right 1)
| |   mayRaise=[ExceptionFailure]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 0)
| |   mayRaise=[]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 0)
| |   mayRaise=[]
| | pushValue Term
| |   minReads=(Right 0)
| |   mayRaise=[]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 0)
| |   mayRaise=[]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 0)
| |   mayRaise=[]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 0)
| |   mayRaise=[]
| | commit ExceptionFailure
| |   minReads=(Right 0)
| |   mayRaise=[]
| | lift2Value (\u1 -> (\u2 -> u1 u2))
| |   minReads=(Right 0)
| |   mayRaise=[]
| | ret
| |   minReads=(Right 0)
| |   mayRaise=[]
| <ko>
| | loadInput
| |   minReads=(Left ExceptionFailure)
| |   mayRaise=[ExceptionFailure]
| | fail []
| |   minReads=(Left ExceptionFailure)
| |   mayRaise=[ExceptionFailure]