tests/set-e.right

   1 95
   2 96
   3 97
   4 98
   5 99
   6 0
   7 1
   8 2
   9 3
  10 4
  11 5
  12 6
  13 7
  14 8
  15 9
  16 1
  17 1
  18 ok
  19 hi
  20 while succeeded
  21 until succeeded: 4
  22 if succeeded
  23 AND list succeeded
  24 OR list succeeded
  25 ! succeeded
  26 eval succeeded
  27 ! eval succeeded -- 1
  28 ! eval succeeded -- 2