&REFER(VTRLOG,GRAGCSTAR).
  
  &INIT(R1).
  
  &CLEX(NUMVAR).
  
  	(0) -> (R1).
  
  &REGLES.
  
  R1: / / TCHAINE(CC,0,'',FRM(EC)); NONSEP;NONLIG;HALT.

  &FIN.