anchor.diff:  timeStmt : TIME WS? EQ WS? valueStmt;
   
   typeStmt : 
  -    (visibility WS)? TYPE WS ambiguousIdentifier NEWLINE+ 
  -    (typeStmt_Element)*
  -    END_TYPE
  +	(visibility WS)? TYPE WS ambiguousIdentifier NEWLINE+ 
  +	(typeStmt_Element)*
  +	END_TYPE
   ;
   
   typeStmt_Element : ambiguousIdentifier (WS? LPAREN (WS? subscripts)? WS? RPAREN)? (WS asTypeClause)? NEWLINE+;
  
positive.code: 	| NEW WS valueStmt # vsNew
  	| implicitCallStmt_Value # vsValueCalls
  	| typeOfStmt # vsTypeOf
      | LPAREN WS? valueStmt (WS? ',' WS? valueStmt)* RPAREN # vsStruct
  	| implicitCallStmt_Value WS? ASSIGN WS? valueStmt # vsAssign
  	| valueStmt WS? PLUS WS? valueStmt # vsAdd
  	| PLUS WS? valueStmt # vsPlus
  
negative.code: 	| getStmt
  	| goSubStmt
  	| goToStmt
  	| ifThenElseStmt
  	| implicitCallStmt_NoValue_Inline
  	| implicitCallStmt_Value_Inline
  	| inputStmt
  	| killStmt
  	| letStmt
  