// Annotations
nam green   yes // names of organizations
nam_apo   red yes // substs which are part of organization names

// Rules
match_rules (

  apply(
    match(
      and(
        equal(class[0], subst),
        not(equal(cas[0], gen))
      ),
      is("nam")
    ),
    cond(
      if(
        skip(first(M), $L, 
             and(
               not(equal(class[$L], subst)), 
               not(isannend($L, "nam"))
             ), 1),
        and(
          equal(class[$L], subst),
          agrpp(first(:1), $L, {cas})
        ),
        False
      )
    ),
    actions(
      mark(M, "nam_apo")
    )
  )
    
)