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 ok
  17 hi
  18 while succeeded
  19 until succeeded: 4
  20 if succeeded
  21 AND list succeeded
  22 OR list succeeded
  23 ! succeeded
  24 eval succeeded
  25 ! eval succeeded -- 1
  26 ! eval succeeded -- 2