1:- module(ne,[neClass/2,neClassType/3,neClassType/4]).    2
    3neClass(N,C):- neClassType(N,C,_,_).
    4neClassType(N,C,T):- neClassType(N,C,T,_).
    5
    6neClassType('I-LOC',geo,nam,'LOC'):- !.
    7neClassType('B-LOC',geo,nam,'LOC'):- !.
    8neClassType('E-LOC',geo,nam,'LOC'):- !.
    9
   10neClassType('I-ORG',org,nam,'ORG'):- !.
   11neClassType('B-ORG',org,nam,'ORG'):- !.
   12neClassType('E-ORG',org,nam,'ORG'):- !.
   13
   14neClassType('I-PER',per,nam,'PER'):- !.
   15neClassType('B-PER',per,nam,'PER'):- !.
   16neClassType('E-PER',per,nam,'PER'):- !.
   17
   18neClassType('I-DAT',tim,nam,'TIM'):- !.
   19neClassType('B-DAT',tim,nam,'TIM'):- !.
   20neClassType('E-DAT',tim,nam,'TIM'):- !.
   21
   22neClassType('I-TIM',tim,nam,'TIM'):- !.
   23neClassType('B-TIM',tim,nam,'TIM'):- !.
   24neClassType('E-TIM',tim,nam,'TIM'):- !.
   25
   26neClassType('I-MON',geo,nam,'UOM'):- !.
   27neClassType('B-MON',geo,nam,'UOM'):- !.
   28neClassType('E-MON',geo,nam,'UOM'):- !.
   29
   30neClassType('Person',per,nam,'PER'):- !.
   31neClassType('Organization',org,nam,'ORG'):- !.
   32neClassType('Location',geo,nam,'LOC'):- !.
   33neClassType('Artifact',art,nam,'ART'):- !.
   34neClassType('Event',eve,nam,'HAP'):- !.
   35neClassType('Natural_Object',nat,nam,'NAT'):- !.
   36neClassType('Time',tim,nam,'TIM'):- !.
   37neClassType('GPE',gpe,nam,'GPE'):- !.
   38
   39neClassType(N,Class,Type,Tag):- atom(N), atomic_list_concat([Class,Type],'-',N), neClassType(_,Class,_,Tag), !.
   40neClassType(_,nam,nam,'UNK'):- !.
   41neClassType(_,_,_,'UNK')