test/Golden/Machine/G11.expected.txt

   1 let <hidden>
   2   minReads=(Right 0)
   3   mayRaise=[ExceptionFailure]
   4 | catch ExceptionFailure
   5 |   minReads=(Right 0)
   6 |   mayRaise=[ExceptionFailure]
   7 | | <ok>
   8 | | | pushValue (\u1 -> (\u2 -> (\u3 -> u1 (u2 u3))))
   9 | | |   minReads=(Right 1)
  10 | | |   mayRaise=[ExceptionFailure]
  11 | | | pushValue cons
  12 | | |   minReads=(Right 1)
  13 | | |   mayRaise=[ExceptionFailure]
  14 | | | pushValue (\u1 -> (\u2 -> u1))
  15 | | |   minReads=(Right 1)
  16 | | |   mayRaise=[ExceptionFailure]
  17 | | | pushValue 'a'
  18 | | |   minReads=(Right 1)
  19 | | |   mayRaise=[ExceptionFailure]
  20 | | | lift2Value (\u1 -> (\u2 -> u1 u2))
  21 | | |   minReads=(Right 1)
  22 | | |   mayRaise=[ExceptionFailure]
  23 | | | read ('a' ==)
  24 | | |   minReads=(Right 1)
  25 | | |   mayRaise=[ExceptionFailure]
  26 | | | lift2Value (\u1 -> (\u2 -> u1 u2))
  27 | | |   minReads=(Right 0)
  28 | | |   mayRaise=[ExceptionFailure]
  29 | | | lift2Value (\u1 -> (\u2 -> u1 u2))
  30 | | |   minReads=(Right 0)
  31 | | |   mayRaise=[ExceptionFailure]
  32 | | | lift2Value (\u1 -> (\u2 -> u1 u2))
  33 | | |   minReads=(Right 0)
  34 | | |   mayRaise=[ExceptionFailure]
  35 | | | call <hidden>
  36 | | |   minReads=(Right 0)
  37 | | |   mayRaise=[ExceptionFailure]
  38 | | | lift2Value (\u1 -> (\u2 -> u1 u2))
  39 | | |   minReads=(Right 0)
  40 | | |   mayRaise=[]
  41 | | | commit ExceptionFailure
  42 | | |   minReads=(Right 0)
  43 | | |   mayRaise=[]
  44 | | | ret
  45 | | |   minReads=(Right 0)
  46 | | |   mayRaise=[]
  47 | | <ko>
  48 | | | pushInput
  49 | | |   minReads=(Right 0)
  50 | | |   mayRaise=[ExceptionFailure]
  51 | | | lift2Value Term
  52 | | |   minReads=(Right 0)
  53 | | |   mayRaise=[ExceptionFailure]
  54 | | | choicesBranch [(\u1 -> u1)]
  55 | | |   minReads=(Right 0)
  56 | | |   mayRaise=[ExceptionFailure]
  57 | | | | <branch>
  58 | | | | | pushValue (\u1 -> u1)
  59 | | | | |   minReads=(Right 0)
  60 | | | | |   mayRaise=[]
  61 | | | | | ret
  62 | | | | |   minReads=(Right 0)
  63 | | | | |   mayRaise=[]
  64 | | | | <default>
  65 | | | | | fail []
  66 | | | | |   minReads=(Left ExceptionFailure)
  67 | | | | |   mayRaise=[ExceptionFailure]
  68 pushValue Term
  69   minReads=(Right 1)
  70   mayRaise=[ExceptionFailure]
  71 pushValue (\u1 -> (\u2 -> u1))
  72   minReads=(Right 1)
  73   mayRaise=[ExceptionFailure]
  74 call <hidden>
  75   minReads=(Right 1)
  76   mayRaise=[ExceptionFailure]
  77 pushValue Term
  78   minReads=(Right 1)
  79   mayRaise=[ExceptionFailure]
  80 lift2Value (\u1 -> (\u2 -> u1 u2))
  81   minReads=(Right 1)
  82   mayRaise=[ExceptionFailure]
  83 lift2Value (\u1 -> (\u2 -> u1 u2))
  84   minReads=(Right 1)
  85   mayRaise=[ExceptionFailure]
  86 pushValue (\u1 -> (\u2 -> u1))
  87   minReads=(Right 1)
  88   mayRaise=[ExceptionFailure]
  89 pushValue 'b'
  90   minReads=(Right 1)
  91   mayRaise=[ExceptionFailure]
  92 lift2Value (\u1 -> (\u2 -> u1 u2))
  93   minReads=(Right 1)
  94   mayRaise=[ExceptionFailure]
  95 read ('b' ==)
  96   minReads=(Right 1)
  97   mayRaise=[ExceptionFailure]
  98 lift2Value (\u1 -> (\u2 -> u1 u2))
  99   minReads=(Right 0)
 100   mayRaise=[]
 101 lift2Value (\u1 -> (\u2 -> u1 u2))
 102   minReads=(Right 0)
 103   mayRaise=[]
 104 lift2Value (\u1 -> (\u2 -> u1 u2))
 105   minReads=(Right 0)
 106   mayRaise=[]
 107 ret
 108   minReads=(Right 0)
 109   mayRaise=[]