VAR
 
  a[1]
  b[1]
  
  
DEFINE
c:=0; 
 
ASSIGN
init(a) :=0;
next(a) :=  
!
case
  c: a;
  1: b;
esac;  
 
SPEC
 
  AG c = a
