VAR
  
  a[2]

ASSIGN

  init(a) := 0;
  next(a) := inc(a);

SPEC
  
  AF a[0]
