!= ===============================================================
!= HFST Pmatch rule file converted from Flex source file OrgPat.ll
!= by flex2pmatch.py
!= ===============================================================

!= ===============================================
!= Pmatch shorthand regular expression definitions
!= ===============================================

Define UNIMPLEMENTED [ "" ] ;
Define AnyChar [ ? ] ;
Define Upper [UppercaseAlpha|"&"] ;
Define AZ
     ["A"|"B"|"C"|"D"|"E"|"F"|"G"|"H"|"I"|"J"|"K"|"L"|"M"|"N"|"O"|"P"|"Q"|"R"|"S"|"T"|"U"|"V"|"W"|"X"|"Y"|"Z"] ;
Define Az
     ["a"|"b"|"c"|"d"|"e"|"f"|"g"|"h"|"i"|"j"|"k"|"l"|"m"|"n"|"o"|"p"|"q"|"r"|"s"|"t"|"u"|"v"|"w"|"x"|"y"|"z"] ;
Define NST [? - [Whitespace|"<"|">"]] ;
Define NS [ NST ] ;
Define NSTagComma [? - [Whitespace|"<"|">"|","]] ;
Define NSHash [? - [Whitespace|"#"|"<"|">"]] ;
Define NSDash [? - [Whitespace|"-"|"<"|">"]] ;
Define NSColon [? - [Whitespace|":"|"<"|">"]] ;
Define NSDashColon [? - [Whitespace|":"|"-"|"<"|">"]] ;
Define NoTag [? - ["\n"|"<"|">"]] ;
Define NoTags [ NoTag+ ] ;
Define NoQuote [? - ["\n"|"\""|"'"|"´"|"«"|"»"|"<"|">"]] ;
Define NoDQuote [? - ["\""|"\n"|"<"|">"]] ;
Define NoQuoteVbar [? - ["\n"|"\""|"'"|"|"|"´"|"«"|"»"|"<"|">"]] ;
Define NoQuoteHash [? - ["\n"|"\""|"'"|"´"|"#"|"«"|"»"|"<"|">"]] ;
Define NoQuoteHashVbar [? - ["\n"|"\""|"'"|"´"|"#"|"|"|"«"|"»"|"<"|">"]] ;
Define NoComma [? - ["\n"|","|"<"|">"]] ;
Define NoCommaPeriod [? - ["\n"|","|"."|"<"|">"]] ;
Define NoLPar [? - ["\n"|"("|"<"|">"]] ;
Define UpperDigit [UppercaseAlpha|Num] ;
Define UpperDigitDash [UppercaseAlpha|Num|"-"] ;
Define Lower [ LowercaseAlpha ] ;
Define LowerDigit [LowercaseAlpha|Num] ;
Define LowerDigitDash [LowercaseAlpha|Num|"-"] ;
Define DigitDash [Num|"-"] ;
Define DigitDashes [ DigitDash+ ] ;
Define DigitComma [Num|","] ;
Define DigitCommas [ DigitComma+ ] ;
Define DigitUscore [Num|"_"] ;
Define DigitUscores [ DigitUscore+ ] ;
Define AsciiAlpha [ AZ | Az ] ;
Define AlphaDigit [Alpha|Num] ;
Define AlphaDigitDash [Alpha|Num|"-"] ;
Define AlphaDigitDashUnder [Alpha|Num|"-"|"_"] ;
Define Num02 ["0"|"1"|"2"] ;
Define Num03 ["0"|"1"|"2"|"3"] ;
Define Num06 ["0"|"1"|"2"|"3"|"4"|"5"|"6"] ;
Define Num12 ["1"|"2"] ;
Define Num19 ["1"|"2"|"3"|"4"|"5"|"6"|"7"|"8"|"9"] ;
Define Num13 ["1"|"2"|"3"] ;
Define YearNum [ Num12 Num^3 ] ;
Define Nums6 [ Num^6 ] ;
Define Nums4 [ Num^4 ] ;
Define Nums2 [ Num^2 ] ;
Define Nums [ Num+ ] ;
Define Nums12 [ Num (Num) ] ;
Define Num12DigitDashes [ Num12 DigitDashes ] ;
Define Num01X [ ["0"|"1"] Num ] ;
Define Num02X [ Num02 Num ] ;
Define Num12X [ Num12 Num ] ;
Define Num13X [ Num13 Num ] ;
Define Num19x [ Num19 (Num) ] ;
Define Num19X [ Num19 Num ] ;
Define Num12Nums [ Num12 Nums ] ;
Define NumsDotNums [ Nums {.} Nums ] ;
Define Nums2DotNums2 [ Nums2 {.} Nums2 ] ;
Define NumsColonNums [ Nums {:} Nums ] ;
Define NumDotNums2 [ Num {.} Nums2 ] ;
Define Nums12DotNums2 [ Nums12 {.} Nums2 ] ;
Define NumsSlashNums [ Nums {/} Nums ] ;
Define NumsCommaNums [ Nums {,} Nums ] ;
Define NumsSpNums [ Nums { } Nums ] ;
Define NumRange [ Nums {-} Nums ] ;
Define Nums2Range [ Nums2 {-} Nums2 ] ;
Define NumsSpRange [ Nums { - } Nums ] ;
Define HhMm [ Num02X {.} Nums2 ] ;
Define CapWord [ Upper NS* ] ;
Define CapWord2 [ Upper NS+ ] ;
Define CapWord3 [ Upper NS^>1 ] ;
Define CapWord4 [ Upper NS^>2 ] ;
Define Word [ NS+ ] ;
Define UpperWord [ Upper+ ] ;
Define LowerWord [ Lower+ ] ;
Define CapWord2iska [ CapWord2 {iska} ] ;
Define CapWord2ska [ CapWord2 {ska} ] ;
Define CapWord2sk [ CapWord2 {sk} ] ;
Define CapWord2s [ CapWord2 {s} ] ;
Define CapWord2Dash [ CapWord2 {-} ] ;
Define WordDash [ Word {-} ] ;
Define Word%_iska [ Word {iska} ] ;
Define Word%_isk [ Word {isk} ] ;
Define Word%_ska [ Word {ska} ] ;
Define Word%_sk [ Word {sk} ] ;
Define Word%_s [ Word {s} ] ;
Define UpperWord%_s [ UpperWord {:s} ] ;
Define LowerWord%_a [ LowerWord {a} ] ;
Define LowerWord%_e [ LowerWord {e} ] ;
Define LowerWord%_s [ LowerWord {s} ] ;
Define EndTagEnamex [ {</ENAMEX>} ] ;
Define StartTagEnamex
     [ {<ENAMEX TYPE=} "\"" UpperWord "\"" { SBT=} "\"" UpperWord "\"" {>} ] ;
Define WordBoundary [ [Whitespace|Punct] - ["<"|">"] | # ] ;
Define Aa ["A"|"a"] ;
Define Bb ["B"|"b"] ;
Define Cc ["C"|"c"] ;
Define Dd ["D"|"d"] ;
Define Ee ["E"|"e"] ;
Define Ff ["F"|"f"] ;
Define Gg ["G"|"g"] ;
Define Hh ["H"|"h"] ;
Define Ii ["I"|"i"] ;
Define Jj ["J"|"j"] ;
Define Kk ["K"|"k"] ;
Define Ll ["L"|"l"] ;
Define Mm ["M"|"m"] ;
Define Nn ["N"|"n"] ;
Define Oo ["O"|"o"] ;
Define Pp ["P"|"p"] ;
Define Qq ["Q"|"q"] ;
Define Rr ["R"|"r"] ;
Define Ss ["S"|"s"] ;
Define Tt ["T"|"t"] ;
Define Uu ["U"|"u"] ;
Define Vv ["V"|"v"] ;
Define Ww ["W"|"w"] ;
Define Xx ["X"|"x"] ;
Define Yy ["Y"|"y"] ;
Define Zz ["Z"|"z"] ;

!= ============================
!= Additional recognition rules
!= ============================

!C Ignore already tagged names and exceptions.
!C Note that this might not always work correctly since Pmatch rules
!C are in principle order-independent.
Define IgnoreTagged
     [ {<Except>} [? - "<"]* {</Except>}
       | {<} [{Ena} | {Nu} | {Ti}] {mex} Alpha+ {>} [? - "<"]+ {</}
         [{Ena} | {Nu} | {Ti}] {mex} Alpha* {>} ] ;

!= ==================================================
!= Pmatch definitions for converted Flex source begin
!= ==================================================

!= ==========================================================
!= Pmatch definitions for Flex regular expression definitions
!= ==========================================================

!# 
!# 	File: OrgPat.ll
!# 	Author: Dimitrios Kokkinakis
!# 	version: 041201
!# 	Finds a variety of Organizations using pattern matching
!# 

!= =================================
!= Pmatch definitions for Flex rules
!= =================================

!#  EXCEPTIONS 

!R "\<ENAMEX TYPE\="\"(EVN|LOC|MSR|OBJ|ORG|PRS|WRK|TME|TRM)"\" SBT\=\""(ANM|ARL|AST|ATH|ATL|CLC|CLT|CLU|CMP|CRP|DAT|DEN|EDU|FIN|FNC|FWP|GPL|HPL|HUM|MDC|MDD|MDA|MDO|MDI|MTH|PER|PLT|PPL|PRD|PRJ|PRZ|RLG|RTV|STR|TVR|TRM|VHA|VHG|VHW|WAA|WAO|WMD|WMO|WTH)\"\>[^\n\<]+\<\/ENAMEX\>
!A {ECHO;}
!I Ignored exception rule

!R "\<NUMEX TYPE\="\"MSR"\" SBT\=\""(DGR|VLM|TMP|INX|DST|CUR|DEN|PRC|CMU|WMU|XXX|FRQ|TEL|LST|AGE|WEB|CVU|CRD|ELU)\"\>[^\n\<]+\<\/NUMEX\>
!A {ECHO;}
!I Ignored exception rule

!R "\<TIMEX TYPE\="\"TME"\" SBT\=\""DAT\"\>[^\n\<]+\<\/TIMEX\>
!A {ECHO;}
!I Ignored exception rule

!R "\<ENAMEX TYPE\="\"PRS\"" SBT\="\"HUM\"" ANI\="\"[A-Z][A-Z][A-Z]\""\>"[^\n\<]+"\<\/ENAMEX\>"
!A {ECHO;}
!I Ignored exception rule

!#  the? xxxxxx X  and some MULTI DESIGNATORS 

!R ("the ")?({U}[^\n ]+" ")*(Center|Centre|"European Patent"|Department|Bureau|Organisation|Council|[Ff]ederation|[Aa]lliance|[Cc]ommittee|[Ii]nstitute|Board|Association|Instituto|[Ff]oundation)" "(do|for|för|of|"of the"|"for the"|on)(" "{U}[^\n\< ]+)+(" of "[^\n\< ]+)?(" and "[^\n\< ]+)?(" "{U}[^\n\< ]+)*
!A {printCRP(yytext,0);}

Define EnamexOrgCrp001a
     [ ({the }) [Ins(CapWord2) { }]*
       [{Center} | {Centre} | {European Patent} | {Department} | {Bureau}
          | {Organisation} | {Council} | Ff {ederation} | Aa {lliance}
          | Cc {ommittee} | Ii {nstitute} | {Board} | {Association}
          | {Instituto} | Ff {oundation}]
       { } [{do} | {for} | {för} | {of} | {of the} | {for the} | {on}]
       [{ } CapWord2]+ ({ of } Word) ({ and } Word) [{ } CapWord2]* ] ;
Define EnamexOrgCrp001 [ EnamexOrgCrp001a   EndTag(EnamexOrgCrp) ] ; 1

!R ("the ")?({U}[^\n ]+" ")*(Center|Centre|"European Patent"|Department|Bureau|Organisation|Council|[Ff]ederation|[Aa]lliance|[Cc]ommittee|[Ii]nstitute|Board|Association|Instituto|[Ff]oundation|Kommittén)" "(do|for|för|of|"of the"|"for the"|on)" "[^\n ]+(" "{U}[^\n\< ]+)*
!A {printCRP(yytext,0);}

Define EnamexOrgCrp002a
     [ ({the }) [Ins(CapWord2) { }]*
       [{Center} | {Centre} | {European Patent} | {Department} | {Bureau}
          | {Organisation} | {Council} | Ff {ederation} | Aa {lliance}
          | Cc {ommittee} | Ii {nstitute} | {Board} | {Association}
          | {Instituto} | Ff {oundation} | {Kommittén}]
       { } [{do} | {for} | {för} | {of} | {of the} | {for the} | {on}] { }
       Word [{ } CapWord2]* ] ;
Define EnamexOrgCrp002 [ EnamexOrgCrp002a   EndTag(EnamexOrgCrp) ] ; 2

!R ("the ")?({U}[^\n ]+" ")+([Ff]ederation|[Aa]lliance|[Cc]ommittee|[Ii]nstitute|Board|Association|Dental" Center"|Research" Center"|"Business Group"|"Hotels "[^\n ]+" Resorts")
!A {printCRP(yytext,0);}

Define EnamexOrgCrp003a
     [ ({the }) [Ins(CapWord2) { }]+
       [Ff {ederation} | Aa {lliance} | Cc {ommittee} | Ii {nstitute}
          | {Board} | {Association} | {Dental Center} | {Research Center}
          | {Business Group} | {Hotels } Ins(Word) { Resorts}] ] ;
Define EnamexOrgCrp003 [ EnamexOrgCrp003a   EndTag(EnamexOrgCrp) ] ; 3

!#  MUSIC, THEATER? 

!R (En|Att|När)" trio"
!A {ECHO;}

Define Except001 [ [{En} | {Att} | {När}] { trio} ] ; 4

!R Picadd?"illy Circus"
!A {ECHO;}

Define Except002 [ {Picad} ({d}) {illy Circus} ] ; 5

!R [Ll]iten" vätskeansamling"
!A {ECHO;}

Define Except003 [ Ll {iten vätskeansamling} ] ; 6

!R [^\n ]*(lues|kust|phop|[Pp]op|[Ss]oul)gänget(" "{U}[^ \n]*)+
!A {printCLT(yytext,1);}

Define EnamexOrgClt001a [ CapWord [{ } CapWord]* ] ;
Define EnamexOrgClt001
     [ LC([{lues} | {kust} | {phop} | Pp {op} | Ss {oul}] {gänget })
       EnamexOrgClt001a
       EndTag(EnamexOrgClt) ] ; 7

!R [^\n ]*(robat|rtist|sbands|ixie|hop|hopp|oesi|ojk|ueer|rap|ggae|revy|nstnärs|visnings|vokal|synt|ango|eater|[Rr]ock|punk|[Dd]ans|zz|satir|echno|usik|[Pp]op|[Ss]ång|onsättar|ngeles|jej|spelmans|lamenco|York|dance|umental|tals)(\-)?gruppen(" "{U}[^ \n]*)+
!A {printCLT(yytext,1);}

Define EnamexOrgClt002a [ CapWord [{ } CapWord]* ] ;
Define EnamexOrgClt002
     [ LC([{robat} | {rtist} | {sbands} | {ixie} | {hop} | {hopp} | {oesi}
             | {ojk} | {ueer} | {rap} | {ggae} | {revy} | {nstnärs}
             | {visnings} | {vokal} | {synt} | {ango} | {eater} | Rr {ock}
             | {punk} | Dd {ans} | {zz} | {satir} | {echno} | {usik} | Pp {op}
             | Ss {ång} | {onsättar} | {ngeles} | {jej} | {spelmans}
             | {lamenco} | {York} | {dance} | {umental} | {tals}]
          ({-}) {gruppen })
       EnamexOrgClt002a
       EndTag(EnamexOrgClt) ] ; 8

!R [^ \n]*([Ss]tor|[Rr]ock|[Ss]ynt|jej|ojk|ans|core|ult|[Hh]us|hester|zz|lasgow|almö|borgs|ggae|xie|echno|sala|manna|pings|holms|hätte|hus|tals|roll|ngdoms|hop|punk|meå|metal|alsa|oul|York|[Pp]op|ppie|stads|rogg|attle|lues|bland|stuna|makt|ävle|exas|komp|live|cover|leans)(\-)?bandet(" the")?(" "{U}[^ \n]*)+
!A {printCLT(yytext,1);}

Define EnamexOrgClt003a [ ({the }) CapWord [{ } CapWord]* ] ;
Define EnamexOrgClt003
     [ LC([Ss {tor} | Rr {ock} | Ss {ynt} | {jej} | {ojk} | {ans} | {core}
             | {ult} | Hh {us} | {hester} | {zz} | {lasgow} | {almö} | {borgs}
             | {ggae} | {xie} | {echno} | {sala} | {manna} | {pings} | {holms}
             | {hätte} | {hus} | {tals} | {roll} | {ngdoms} | {hop} | {punk}
             | {meå} | {metal} | {alsa} | {oul} | {York} | Pp {op} | {ppie}
             | {stads} | {rogg} | {attle} | {lues} | {bland} | {stuna}
             | {makt} | {ävle} | {exas} | {komp} | {live} | {cover} | {leans}]
          ({-}) {bandet })
       EnamexOrgClt003a
       EndTag(EnamexOrgClt) ] ; 9

!R "grupp vid namn"(" "{U}[^ \n]*)+
!A {printCLT(yytext,3);}

Define EnamexOrgClt004a [ CapWord [{ } CapWord]* ] ;
Define EnamexOrgClt004
     [ LC({grupp vid namn })
       EnamexOrgClt004a
       EndTag(EnamexOrgClt) ] ; 10

!R "i bandet"(" "{U}[^ \n]*)+
!A {printCLT(yytext,2);}

Define EnamexOrgClt005a [ CapWord [{ } CapWord]* ] ;
Define EnamexOrgClt005
     [ LC({i bandet })
       EnamexOrgClt005a
       EndTag(EnamexOrgClt) ] ; 11

!R sång(erska|are)" i "{U}[^\n ]+(" "{U}[^ \n]*)+
!A {printCLT(yytext,2);}

Define EnamexOrgClt006a [ CapWord2 [{ } CapWord]+ ] ;
Define EnamexOrgClt006
     [ LC({sång} [{erska} | {are}] { i })
       EnamexOrgClt006a
       EndTag(EnamexOrgClt) ] ; 12

!R [^\n ]+"onsert med "{U}[^\n ]+(en|ge|\:|rna|olm|an|rg)s" "[^\n ]+
!A {printCLT(yytext,2);}

Define EnamexOrgClt007a
     [ CapWord2 [{en} | {ge} | {:} | {rna} | {olm} | {an} | {rg}] {s } Word ] ;
Define EnamexOrgClt007
     [ LC(Word {onsert med })
       EnamexOrgClt007a
       EndTag(EnamexOrgClt) ] ; 13

!R [^\n ]*(nsemble|gruppen|nsemblen)" "(The|Theatre|Les|Le|La)" "[^\n ]+
!A {printCLT(yytext,1);}

Define EnamexOrgClt008a
     [ [{The} | {Theatre} | {Les} | {Le} | {La}] { } Word ] ;
Define EnamexOrgClt008
     [ LC([{nsemble} | {gruppen} | {nsemblen}] { })
       EnamexOrgClt008a
       EndTag(EnamexOrgClt) ] ; 14

!R [^\n ]+nsemble(n)?(" "{U}[^ \n]*)+
!A {printCLT(yytext,0);}

Define EnamexOrgClt009a [ Word {nsemble} ({n}) [{ } CapWord]+ ] ;
Define EnamexOrgClt009 [ EnamexOrgClt009a   EndTag(EnamexOrgClt) ] ; 15

!R [^\n ]*(vorit|[Ss]ynt|itarr|[Pp]op|iano|usik|echno|ock)(du|tri)o(n)?(" "{U}[^\n ]*)+
!A {printCLT(yytext,1);}

Define EnamexOrgClt010a [ CapWord [{ } CapWord]* ] ;
Define EnamexOrgClt010
     [ LC([{vorit} | Ss {ynt} | {itarr} | Pp {op} | {iano} | {usik}
             | {echno} | {ock}]
          [{du} | {tri}] {o} ({n}) { })
       EnamexOrgClt010a
       EndTag(EnamexOrgClt) ] ; 16

!R [^\n ]*(vartetten|vintetten|irque|rkestern|innoklubben|okklubben)(" "{U}[^\<\>\n ]*)+
!A {printCLT(yytext,1);}

Define EnamexOrgClt011a [ CapWord [{ } CapWord]* ] ;
Define EnamexOrgClt011
     [ LC([{vartetten} | {vintetten} | {irque} | {rkestern}
             | {innoklubben} | {okklubben}]
          { })
       EnamexOrgClt011a
       EndTag(EnamexOrgClt) ] ; 17

!R [^\n ]*(ång|[Dd]ans|teratur|usik)sällskapet(" "{U}[^ \<\>\n]*)+
!A {printCLT(yytext,1);}

Define EnamexOrgClt012a
     [ Upper [NS - ["<"|">"|"\n"]]* [{ } Upper [NS - ["<"|">"|"\n"]]*]* ] ;
Define EnamexOrgClt012
     [ LC([{ång} | Dd {ans} | {teratur} | {usik}] {sällskapet })
       EnamexOrgClt012a
       EndTag(EnamexOrgClt) ] ; 18

!R ({U}[^ \n]*" ")+[^ \n]*(Circus|Balett|Sextet|Band|Symfoniker|\-kvartett|\-kvintett|trio)(en|n)?
!A {printCLT(yytext,0);}

Define EnamexOrgClt013a
     [ [Ins(CapWord) { }]+ NS*
       [{Circus} | {Balett} | {Sextet} | {Band} | {Symfoniker} | {-kvartett}
          | {-kvintett} | {trio}]
       ({en} | {n}) ] ;
Define EnamexOrgClt013 [ EnamexOrgClt013a   EndTag(EnamexOrgClt) ] ; 19

!R (med|av)(" "{U}[^ \n]*)+" "[^ \n]+[kr]kör
!A {printCLT(yytext,1);}

Define EnamexOrgClt014a
     [ CapWord [{ } CapWord]* { } Word ["k"|"r"] {kör} ] ;
Define EnamexOrgClt014
     [ LC([{med} | {av}] { })
       EnamexOrgClt014a
       EndTag(EnamexOrgClt) ] ; 20

!R [^\n ]+(am|mar|ång|anna|ell|rko|oss|mans)kören(" "{U}[^\<\>\n ]*)+
!A {printCLT(yytext,1);}

Define EnamexOrgClt015a [ CapWord [{ } CapWord]* ] ;
Define EnamexOrgClt015
     [ LC(Word
          [{am} | {mar} | {ång} | {anna} | {ell} | {rko} | {oss} | {mans}]
          {kören })
       EnamexOrgClt015a
       EndTag(EnamexOrgClt) ] ; 21

!R (E\-Type|{U}[^ \n]*orkestern)
!A {printCLT(yytext,0);}

Define EnamexOrgClt016a [ {E-Type} | CapWord {orkestern} ] ;
Define EnamexOrgClt016 [ EnamexOrgClt016a   EndTag(EnamexOrgClt) ] ; 22

!R kören(" "{U}[^ \n]*)+
!A {/*leave it 0!*/ printCLT(yytext,0);}

!# leave it 0!

Define EnamexOrgClt017a [ {kören} [{ } CapWord]+ ] ;
Define EnamexOrgClt017 [ EnamexOrgClt017a   EndTag(EnamexOrgClt) ] ; 23

!R [^\n ]*(ans|pstars)grupperna(" "{U}[^\n ]*)+
!A {printCLT(yytext,1);}

Define EnamexOrgClt018a [ CapWord [{ } CapWord]* ] ;
Define EnamexOrgClt018
     [ LC([{ans} | {pstars}] {grupperna })
       EnamexOrgClt018a
       EndTag(EnamexOrgClt) ] ; 24

!R att" "(Göteborgsopera|Stadsteater)n
!A {printCLT(yytext,1);}

Define EnamexOrgClt019a [ [{Göteborgsopera} | {Stadsteater}] {n} ] ;
Define EnamexOrgClt019
     [ LC({att })
       EnamexOrgClt019a
       EndTag(EnamexOrgClt) ] ; 25

!#  sth för X 

!R ("Svenska "|{U}[^\n ]+"ella ")?[^\n ]*(ällskap|[Nn]ämnd|stitution|nstitut|örbund|örening)(et|en)?" för "[^\n ]+"\- och "[^\n ]+
!A {printCRP(yytext,0);}

Define EnamexOrgCrp004a
     [ ({Svenska } | CapWord2 {ella }) NS*
       [{ällskap} | Nn {ämnd} | {stitution} | {nstitut} | {örbund}
          | {örening}]
       ({et} | {en}) { för } Word {- och } Word ] ;
Define EnamexOrgCrp004 [ EnamexOrgCrp004a   EndTag(EnamexOrgCrp) ] ; 26

!# ("Svenska "|{U}[^\n ]+"nella ")?Centrum" för "[^\n ]+forskning	{printCRP(yytext,0);}

!R ("Svenska "|{U}[^\n ]+"nella ")?[^\n ]*(Byrån|ällskapet|Centrum|[Nn]ämnden|nstitutionen|nstitutet|örbundet|öreningen)" för "[^\n\<\> ]+(ars|ad|al|sk|ska|ns|rda|lt|ll|ig|iga|ing|ik)(" av "[^\n ]+isk)?" "[^\n ]+
!A {printCRP(yytext,0);}

Define EnamexOrgCrp005a
     [ ({Svenska } | CapWord2 {nella }) NS*
       [{Byrån} | {ällskapet} | {Centrum} | Nn {ämnden} | {nstitutionen}
          | {nstitutet} | {örbundet} | {öreningen}]
       { för } Word
       [{ars} | {ad} | {al} | {sk} | {ska} | {ns} | {rda} | {lt} | {ll}
          | {ig} | {iga} | {ing} | {ik}]
       ({ av } Word {isk}) { } Word ] ;
Define EnamexOrgCrp005 [ EnamexOrgCrp005a   EndTag(EnamexOrgCrp) ] ; 27

!R [^\n ]*[Ff]"örbundet för det "[^\n ]+
!A {printCRP(yytext,0);}

Define EnamexOrgCrp006a [ NS* Ff {örbundet för det } Word ] ;
Define EnamexOrgCrp006 [ EnamexOrgCrp006a   EndTag(EnamexOrgCrp) ] ; 28

!R ("Svenska "|"Svensk "|"Nationella ")?[^\n ]*(tiftels|anstalt|nstitut|Centrum|[Nn]ämnd|nstitution|örbund|Förening|Enhet)(en|et)?" "(mot|för)" "[^\n ]+(" "{U}[^\n ]+)*
!A {printCRP(yytext,0);}

Define EnamexOrgCrp007a
     [ ({Svenska } | {Svensk } | {Nationella }) NS*
       [{tiftels} | {anstalt} | {nstitut} | {Centrum} | Nn {ämnd}
          | {nstitution} | {örbund} | {Förening} | {Enhet}]
       ({en} | {et}) { } [{mot} | {för}] { } Word [{ } CapWord2]* ] ;
Define EnamexOrgCrp007 [ EnamexOrgCrp007a   EndTag(EnamexOrgCrp) ] ; 29

!#  vid namn/kallas X & CITAT 

!R [^\n ]*([Bb]ol|öret)ag(et)?" \, som "(heter|kallas)(" "{U}[^\n ]+)+
!A {printCRP(yytext,4);}

Define EnamexOrgCrp008a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp008
     [ LC([Bb {ol} | {öret}] {ag} ({et}) { , som } [{heter} | {kallas}] { })
       EnamexOrgCrp008a
       EndTag(EnamexOrgCrp) ] ; 30

!R [^\n ]*([Bb]ol|öret)ag(et)?" "("som heter"|"med namnet"|"vid namn"|"ska kallas")(" "{U}[^\n ]+)+
!A {printCRP(yytext,3);}

Define EnamexOrgCrp009a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp009
     [ LC([Bb {ol} | {öret}] {ag} ({et}) { }
          [{som heter} | {med namnet} | {vid namn} | {ska kallas}] { })
       EnamexOrgCrp009a
       EndTag(EnamexOrgCrp) ] ; 31

!R [^\n ]*([Bb]ol|öret)ag(et)?" "[\"\´\'`]+(" "[^\n\"\'\´]+)+" "[\"\´\'\`]+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp010a
     [ ["\""|"´"|"'"|"`"]+ [{ } NoQuote+]+ { } ["\""|"´"|"'"|"`"]+ ] ;
Define EnamexOrgCrp010
     [ LC([Bb {ol} | {öret}] {ag} ({et}) { })
       EnamexOrgCrp010a
       EndTag(EnamexOrgCrp) ] ; 32

!R [^\n ]*([Bb]ol|öret)ag(et)?" \, "{U}[^\n ]+" \,"
!A {printCRP(yytext,2);}

Define EnamexOrgCrp011a [ Ins(CapWord2) { ,} ] ;
Define EnamexOrgCrp011
     [ LC([Bb {ol} | {öret}] {ag} ({et}) { , })
       EnamexOrgCrp011a
       EndTag(EnamexOrgCrp) ] ; 33

!R ({U}[^\n ]+" ")+"\, ett företag"
!A {printCRP(yytext,103);}

Define EnamexOrgCrp012a [ [Ins(CapWord2) { }]* CapWord2 ] ;
Define EnamexOrgCrp012
     [ EnamexOrgCrp012a
       EndTag(EnamexOrgCrp)
       RC({ , ett företag}) ] ; 34

!R [^\n ]*(örsjättarna|olagen|öretagen)(" "{U}[^\n ]+)+(" \, "{U}[^\n ]+)*" "(samt|och)(" "{U}[^\n ]+)+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp013a
     [ CapWord2 [{ } CapWord2]* [{ , } CapWord2]* { } [{samt} | {och}] { }
       CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp013
     [ LC([{örsjättarna} | {olagen} | {öretagen}] { })
       EnamexOrgCrp013a
       EndTag(EnamexOrgCrp) ] ; 35

!R [^\n ]+(raf|ger|läd|ons|els|aru)kedjorna(" "{U}[^\n ]+)+(" \, "{U}[^\n ]+)*" "(samt|och)(" "{U}[^\n ]+)+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp014a
     [ CapWord2 [{ } CapWord2]* [{ , } CapWord2]* { } [{samt} | {och}] { }
       CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp014
     [ LC(Word [{raf} | {ger} | {läd} | {ons} | {els} | {aru}] {kedjorna })
       EnamexOrgCrp014a
       EndTag(EnamexOrgCrp) ] ; 36

!#  sth X 

!R [^\n ]*jumbolaget(" "{U}[^\n ]+)+
!A {ECHO;}

Define Except004 [ NS* {jumbolaget} [{ } CapWord2]+ ] ; 37

!R [^\n ]*(esign|olags|tekt|stri|ggeri|retagar|retags|sult|medels|ele|lekom|varu|enörs|äkrings|rkstads)grupp(en)?(" "{U}[^\n ]+)+
!A {printCRP(yytext,0);}

Define EnamexOrgCrp015a
     [ NS*
       [{esign} | {olags} | {tekt} | {stri} | {ggeri} | {retagar} | {retags}
          | {sult} | {medels} | {ele} | {lekom} | {varu} | {enörs} | {äkrings}
          | {rkstads}]
       {grupp} ({en}) [{ } CapWord2]+ ] ;
Define EnamexOrgCrp015 [ EnamexOrgCrp015a   EndTag(EnamexOrgCrp) ] ; 38

!R [^\n ]*(arterarrangören|nsertarrangören|ötesarrangören|esearrangören|ivalarrangören|edlartjänsten|yhetstjänsten|esetjänsten|örlusttyngda|artellen)(" "{U}[^\n ]+)+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp016a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp016
     [ LC([{arterarrangören} | {nsertarrangören} | {ötesarrangören}
             | {esearrangören} | {ivalarrangören} | {edlartjänsten}
             | {yhetstjänsten} | {esetjänsten} | {örlusttyngda} | {artellen}]
          { })
       EnamexOrgCrp016a
       EndTag(EnamexOrgCrp) ] ; 39

!R [^\n ]*(ghets|klam|nons|istik|isions|vokat|ese|opnings)byrå(n)?(" "{U}[^\n ]+)+
!A {printCRP(yytext,0);}

Define EnamexOrgCrp017a
     [ NS*
       [{ghets} | {klam} | {nons} | {istik} | {isions} | {vokat} | {ese}
          | {opnings}]
       {byrå} ({n}) [{ } CapWord2]+ ] ;
Define EnamexOrgCrp017 [ EnamexOrgCrp017a   EndTag(EnamexOrgCrp) ] ; 40

!R [^\n ]*([Gg]as|net|[Bb]il|[Ss]tål|ykel|usik|lekom|lags|medels)gigant(en)?(" "{U}[^\n ]+)+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp018a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp018
     [ LC([Gg {as} | {net} | Bb {il} | Ss {tål} | {ykel} | {usik}
             | {lekom} | {lags} | {medels}]
          {gigant} ({en}) { })
       EnamexOrgCrp018a
       EndTag(EnamexOrgCrp) ] ; 41

!R [^\n ]*(ansch|stånds|arbets|{U}[^\n ]+\-)organ(en|et)?(" "{U}[^\n ]+)+
!A {printCRP(yytext,0);}

Define EnamexOrgCrp019a
     [ NS* [{ansch} | {stånds} | {arbets} | CapWord2 {-}] {organ}
       ({en} | {et}) [{ } CapWord2]+ ] ;
Define EnamexOrgCrp019 [ EnamexOrgCrp019a   EndTag(EnamexOrgCrp) ] ; 42

!#  [^\n ]*(in|il|ox|klad|uss|lyg|rdons|ronik|nisch|krets|ruck|ings|pers|ils|nus)tillverkar(en|na)?(" "{U}[^\n ]+)+	{printCRP(yytext,1);} 

!R [^\n ]+tillverkar(en|na)?(" "{U}[^\n ]+)+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp020a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp020
     [ LC(Word {tillverkar} ({en} | {na}) { })
       EnamexOrgCrp020a
       EndTag(EnamexOrgCrp) ] ; 43

!R [^\n ]*anisation(en)?" "[Tt]he" "[^\n ]+" of the "[^\n ]+(" of "[^\n ]+)?
!A {printCRP(yytext,0);}

Define EnamexOrgCrp021a
     [ NS* {anisation} ({en}) { } Tt {he } Ins(Word) { of the } Word ({ of } Word) ] ;
Define EnamexOrgCrp021 [ EnamexOrgCrp021a   EndTag(EnamexOrgCrp) ] ; 44

!R [^\n ]*(tiftels|örbundet|örening|rganisation)(en)?" "[^\n ]+([^\nru ]ts|da|skas|[^n\n ]ns|lms|ska|ges)" "[^\n ]+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp022a
     [ Word
       [[NS - ["r"|"u"]] {ts} | {da} | {skas} | [NS - {n}] {ns} | {lms}
          | {ska} | {ges}]
       { } Word ] ;
Define EnamexOrgCrp022
     [ LC([{tiftels} | {örbundet} | {örening} | {rganisation}] ({en}) { })
       EnamexOrgCrp022a
       EndTag(EnamexOrgCrp) ] ; 45

!R [^\n ]+"ernationella "{U}[^\n ]+e[tn]s
!A {printCRP(yytext,0);}

Define EnamexOrgCrp023a
     [ Word {ernationella } CapWord2 {e} ["t"|"n"] {s} ] ;
Define EnamexOrgCrp023 [ EnamexOrgCrp023a   EndTag(EnamexOrgCrp) ] ; 46

!R [^\n ]*[Ff]"irman "{U}[^\n ]*" \& "[^\n ]+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp024a [ Ins(CapWord) { & } Word ] ;
Define EnamexOrgCrp024
     [ LC(Ff {irman })
       EnamexOrgCrp024a
       EndTag(EnamexOrgCrp) ] ; 47

!R [^\n ]*"rganisationen för "[^\n ]+skt" "[^\n ]+
!A {printCRP(yytext,0);}

Define EnamexOrgCrp025a [ NS* {rganisationen för } Word {skt } Word ] ;
Define EnamexOrgCrp025 [ EnamexOrgCrp025a   EndTag(EnamexOrgCrp) ] ; 48

!R [^\n ]*(tiftelsen|örening)" "("Det "[^\n ]+a|Fri|De|De|Det)" "[^\n ]+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp026a
     [ [{Det } Word {a} | {Fri} | {De} | {Det}] { } Word ] ;
Define EnamexOrgCrp026
     [ LC([{tiftelsen} | {örening}] { })
       EnamexOrgCrp026a
       EndTag(EnamexOrgCrp) ] ; 49

!R ({U}[^\n ]+"ska "|{U}[^\n ]+"nella ")?[^\n ]*(Samfund|[Nn]ätverk)et(" "{U}[^\n ]+)+(" mot "[^\n ]+)?
!A {printCRP(yytext,0);}

Define EnamexOrgCrp027a
     [ (Ins(CapWord2ska) { } | CapWord2 {nella }) NS* [{Samfund} | Nn {ätverk}]
       {et} [{ } CapWord2]+ ({ mot } Word) ] ;
Define EnamexOrgCrp027 [ EnamexOrgCrp027a   EndTag(EnamexOrgCrp) ] ; 50

!R [^\n ]*(odehus|[Rr]ederi|onglomerat|rdenssällskap|[Bb]olag|[Ff]ack|[Ff]örlag|öretag|örbund|nstitut|operativ|äklarhus|kemedelsverk|atentverk|[Vv]arv|Sällskap|lyktingorgan)(et)?(" "{U}[^\n ]+)+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp028a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp028
     [ LC([{odehus} | Rr {ederi} | {onglomerat} | {rdenssällskap}
             | Bb {olag} | Ff {ack} | Ff {örlag} | {öretag} | {örbund}
             | {nstitut} | {operativ} | {äklarhus} | {kemedelsverk}
             | {atentverk} | Vv {arv} | {Sällskap} | {lyktingorgan}]
          ({et}) { })
       EnamexOrgCrp028a
       EndTag(EnamexOrgCrp) ] ; 51

!R [^\n ]*(forlag|rganisation|[Ff]ack|nstitution|dération|rossist|[Bb]olag|[Ff]abrik|[Ff]örening|ternetkonsult|[Ff]ilial|everantör|erksoperatör|etoperatör|biloperatör|leoperatör|\-operatör|erooperatör|myndighet|oncern|istributör|gentur|börs|\-konsult)(en)?(" "{U}[^\n ]+)+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp029a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp029
     [ LC([{forlag} | {rganisation} | Ff {ack} | {nstitution} | {dération}
             | {rossist} | Bb {olag} | Ff {abrik} | Ff {örening}
             | {ternetkonsult} | Ff {ilial} | {everantör} | {erksoperatör}
             | {etoperatör} | {biloperatör} | {leoperatör} | {-operatör}
             | {erooperatör} | {myndighet} | {oncern} | {istributör}
             | {gentur} | {börs} | {-konsult}]
          ({en}) { })
       EnamexOrgCrp029a
       EndTag(EnamexOrgCrp) ] ; 52

!R [^\n ]*(pakten|terförsäkrare|[Ff]irma|olkrörelse|ponsor|atorförsäljare|ankesmedja|[Kk]edja|jätte|terförsäljare|mdstyrelse|tiftelse|torägare)(n)?(" "{U}[^\n ]+)+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp030a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp030
     [ LC([{pakten} | {terförsäkrare} | Ff {irma} | {olkrörelse}
             | {ponsor} | {atorförsäljare} | {ankesmedja} | Kk {edja}
             | {jätte} | {terförsäljare} | {mdstyrelse} | {tiftelse}
             | {torägare}]
          ({n}) { })
       EnamexOrgCrp030a
       EndTag(EnamexOrgCrp) ] ; 53

!R (SDN|Taxi|"Sveriges Förenade"|[^\n ]*[Ff]örsvarets)(" "{U}[^\n ]+)+
!A {printCRP(yytext,0);}

Define EnamexOrgCrp031a
     [ [{SDN} | {Taxi} | {Sveriges Förenade} | NS* Ff {örsvarets}]
       [{ } CapWord2]+ ] ;
Define EnamexOrgCrp031 [ EnamexOrgCrp031a   EndTag(EnamexOrgCrp) ] ; 54

!R [^\n ]+\:s" "[^\n ]+(råd|rgan)" "{U}[^\n\< ]+
!A {printCRP(yytext,0);}

Define EnamexOrgCrp032a [ Word {:s } Word [{råd} | {rgan}] { } CapWord2 ] ;
Define EnamexOrgCrp032 [ EnamexOrgCrp032a   EndTag(EnamexOrgCrp) ] ; 55

!R [^\n ]*[Bb]olaget" "S(verig|tock)[^\n ]+" "[^\n ]+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp033a [ {S} [{verig} | {tock}] Ins(Word) { } Word ] ;
Define EnamexOrgCrp033
     [ LC(Bb {olaget })
       EnamexOrgCrp033a
       EndTag(EnamexOrgCrp) ] ; 56

!#  Swedish DESIGNATORS + DESIGNATORS

!R (Till|Före|Internationela|Nationella|Sådana|Privata|Multinationella|En|Eftersom|Stor|Stora|Inget|Bra|Besviken|Hundra|Antalet|Denna|Finns|Fyra|Japanska|Sedan|Skumma|Västsveriges|Tråkigare|Särskilt|Utländska|Varför|Vilken|Göteborgs|Följande|Våra|Svenska|Amerikanska|Bakom|Låt|Som|Små|Ska|Skall|Männens|Samma|På|Samtliga|Båda|Bägge|Av|Blir|Bland|Andra|Alla|Vårt|Vår|Vilka|Detta|Vilket|Vid|Varje|Ytterligare|Under|Två|Tre|Att|Flera|En|Dessa|Den|Litet|Inte|Inom|Ingen|Inga|Hans|Genom|Förutom|Förra|För|Från|Ett|På|Enligt|När|Medan|Men|Fler|Även|Det|De|Särskilt|Ovan|Om|Och|Också|Nya|Ny|Många|Mitt|Några|Nära|Övriga|Såval)" "[a-zåäö]*(institution|kommitté|pastorat|samfund|företag|förbund|institut|kansli|tourism|sågverk|scoutkår|sällskap|råd|stiftelsen|koncern|koncernfack|fondbolag|fond|organisation|förening|förmedling|[^\<\n ]samling|nämnd|vänner|kommunfullmäktige)(et|en|én|n)?
!A {ECHO;}

Define Except005
     [ [{Till} | {Före} | {Internationela} | {Nationella} | {Sådana}
          | {Privata} | {Multinationella} | {En} | {Eftersom} | {Stor} | {Stora}
          | {Inget} | {Bra} | {Besviken} | {Hundra} | {Antalet} | {Denna}
          | {Finns} | {Fyra} | {Japanska} | {Sedan} | {Skumma} | {Västsveriges}
          | {Tråkigare} | {Särskilt} | {Utländska} | {Varför} | {Vilken}
          | {Göteborgs} | {Följande} | {Våra} | {Svenska} | {Amerikanska}
          | {Bakom} | {Låt} | {Som} | {Små} | {Ska} | {Skall} | {Männens}
          | {Samma} | {På} | {Samtliga} | {Båda} | {Bägge} | {Av} | {Blir}
          | {Bland} | {Andra} | {Alla} | {Vårt} | {Vår} | {Vilka} | {Detta}
          | {Vilket} | {Vid} | {Varje} | {Ytterligare} | {Under} | {Två} | {Tre}
          | {Att} | {Flera} | {Dessa} | {Den} | {Litet} | {Inte} | {Inom}
          | {Ingen} | {Inga} | {Hans} | {Genom} | {Förutom} | {Förra} | {För}
          | {Från} | {Ett} | {Enligt} | {När} | {Medan} | {Men} | {Fler}
          | {Även} | {Det} | {De} | {Ovan} | {Om} | {Och} | {Också} | {Nya}
          | {Ny} | {Många} | {Mitt} | {Några} | {Nära} | {Övriga} | {Såval}]
       { } Lower*
       [{institution} | {kommitté} | {pastorat} | {samfund} | {företag}
          | {förbund} | {institut} | {kansli} | {tourism} | {sågverk}
          | {scoutkår} | {sällskap} | {råd} | {stiftelsen} | {koncern}
          | {koncernfack} | {fondbolag} | {fond} | {organisation} | {förening}
          | {förmedling} | NS {samling} | {nämnd} | {vänner}
          | {kommunfullmäktige}]
       ({et} | {en} | {én} | {n}) ] ; 57

!R "Tysklands återförening"
!A {ECHO;}

Define Except006 [ {Tysklands återförening} ] ; 58

!R (Å|{U}[^\n ]+\-å)terförening
!A {ECHO;}

Define Except007 [ [{Å} | CapWord2 {-å}] {terförening} ] ; 59

!R ({U}[^\n ]+" ")+[^\n ]*(tiftelse|kommitt[eé])(n)?
!A {printCRP(yytext,0);}

Define EnamexOrgCrp034a
     [ [Ins(CapWord2) { }]+ NS* [{tiftelse} | {kommitt} ["e"|"é"]] ({n}) ] ;
Define EnamexOrgCrp034 [ EnamexOrgCrp034a   EndTag(EnamexOrgCrp) ] ; 60

!R ({U}[^\n ]+" ")+([Ff]öretagsgrupp|[Ff]öretagspartner|Förbund|Värkstäder|Kommunföretag|Fastighetskredit|Fastighetsförmedling|Förvaltning|Konsult|Produktion|Energi|Rederi|"Ekonomisk Förening")(s)?(" "{U}[^\n ]+)*
!A {printCRP(yytext,0);}

Define EnamexOrgCrp035a
     [ [Ins(CapWord2) { }]+
       [Ff {öretagsgrupp} | Ff {öretagspartner} | {Förbund} | {Värkstäder}
          | {Kommunföretag} | {Fastighetskredit} | {Fastighetsförmedling}
          | {Förvaltning} | {Konsult} | {Produktion} | {Energi} | {Rederi}
          | {Ekonomisk Förening}]
       ({s}) [{ } CapWord2]* ] ;
Define EnamexOrgCrp035 [ EnamexOrgCrp035a   EndTag(EnamexOrgCrp) ] ; 61

!R ([Ii]|från)(" "{U}[^\n ]+)+" "(baptist|missions|pingst)?församling(en)?
!A {printCRP(yytext,1);}

Define EnamexOrgCrp036a
     [ CapWord2 [{ } CapWord2]* { } ({baptist} | {missions} | {pingst})
       {församling} ({en}) ] ;
Define EnamexOrgCrp036
     [ LC([Ii | {från}] { })
       EnamexOrgCrp036a
       EndTag(EnamexOrgCrp) ] ; 62

!R ({U}[^\n ]+" ")+[^\n ]*(ourism|[Ss]amling|[Kk]oncern|oncernfack|Organisation|[Ff]örening|örmedling|[Ff]örsamling|[Nn]ämnd)(en)?
!A {printCRP(yytext,0);}

Define EnamexOrgCrp037a
     [ [Ins(CapWord2) { }]+ NS*
       [{ourism} | Ss {amling} | Kk {oncern} | {oncernfack} | {Organisation}
          | Ff {örening} | {örmedling} | Ff {örsamling} | Nn {ämnd}]
       ({en}) ] ;
Define EnamexOrgCrp037 [ EnamexOrgCrp037a   EndTag(EnamexOrgCrp) ] ; 63

!R ({U}[^\n ]+" ")+{U}[^\n ]*nstitution(en)?
!A {printCRP(yytext,0);}

Define EnamexOrgCrp038a [ [Ins(CapWord2) { }]+ CapWord {nstitution} ({en}) ] ;
Define EnamexOrgCrp038 [ EnamexOrgCrp038a   EndTag(EnamexOrgCrp) ] ; 64

!R ({U}[^\n ]+" ")+[^\n ]*(astorat|[Ss]amfund|[Ff]öretag|[Ii]nstitut|[Kk]ansli|sågverk|[Ss]coutkår|[Ff]örbund)(et)?
!A {printCRP(yytext,0);}

Define EnamexOrgCrp039a
     [ [Ins(CapWord2) { }]+ NS*
       [{astorat} | Ss {amfund} | Ff {öretag} | Ii {nstitut} | Kk {ansli}
          | {sågverk} | Ss {coutkår} | Ff {örbund}]
       ({et}) ] ;
Define EnamexOrgCrp039 [ EnamexOrgCrp039a   EndTag(EnamexOrgCrp) ] ; 65

!R {U}[^\n ]+"s "[^\n ]*[Vv]änner"s årsmöte"
!A {ECHO;}

Define Except008 [ CapWord2s { } NS* Vv {änners årsmöte} ] ; 66

!R ({U}[^\n ]+" ")*{U}[^\n ]+(en|um|et|in|an|d)s" "[Vv]änner
!A {printCRP(yytext,0);}

Define EnamexOrgCrp040a
     [ [Ins(CapWord2) { }]* CapWord2 [{en} | {um} | {et} | {in} | {an} | {d}] {s }
       Vv {änner} ] ;
Define EnamexOrgCrp040 [ EnamexOrgCrp040a   EndTag(EnamexOrgCrp) ] ; 67

!R ({U}[^\n ]+" ")+(Träprodukt|Fastighet|Industri|Konsult)(er)?
!A {printCRP(yytext,0);}

Define EnamexOrgCrp041a
     [ [Ins(CapWord2) { }]+ [{Träprodukt} | {Fastighet} | {Industri} | {Konsult}]
       ({er}) ] ;
Define EnamexOrgCrp041 [ EnamexOrgCrp041a   EndTag(EnamexOrgCrp) ] ; 68

!R ({U}[^\n ]+"gs ")[Bb]okförlag
!A {printCRP(yytext,0);}

Define EnamexOrgCrp042a [ [CapWord2 {gs }] Bb {okförlag} ] ;
Define EnamexOrgCrp042 [ EnamexOrgCrp042a   EndTag(EnamexOrgCrp) ] ; 69

!#  X DESIGNATORS-possible-S + DESIGNATOR

!R "Big Brother"
!A {ECHO;}

Define Except009 [ {Big Brother} ] ; 70

!R "Tom Cruise"
!A {ECHO;}

Define Except010 [ {Tom Cruise} ] ; 71

!R "Anders Post"
!A {ECHO;}

Define Except011 [ {Anders Post} ] ; 72

!R "Medical Journal"
!A {ECHO;}

Define Except012 [ {Medical Journal} ] ; 73

!#  X DESIGNATORS-plural:IES + DESIGNATOR

!R ({U}[^\n\>\< ]+" ")+(Alliance|Agency|Accountant|Associate|Association|Administration|Automobile|Asset|Bio|Biocare|Bro|Biotech|Boat|Brother|Bureau|Biometric|Catering|Consortium|Cargo|Car|Card|Centre|Chemical|Commercial|Communication|Company|Component|Consultancy|Consultant|Consulting|Contract|Corporation|Cruise|Council|Electric|Electrical|Electronic|Energi|Enterpri[sz]e|Equipment|Equity|Estate|Exchange|Export|Finance|Firma|Orden|Dynamics|Data|Firm|Food|Forum|Foundation|Fund|Group|Holding|Hotel|House|Import|Industry|Institute|Instrument|Insurance|International|Inv|Invest|Investment|Jet|Kartell|Line|Logisti[kc]|Lab|Licensing|Management|Manufacturing|Medical|Microelectronic|Microsystem|Mining|Motor|National|Networking|Network|Oil|Organi[sz]ation|Partner|Petrochemical|Petroleum|Pharmaceutical|Plastic|Post|Product|Production|Publishing|Provisioning|Proprietary|Rail|Resor|Railway|Record|Renting|Research|Resource|Record|Service|Society|Security|Semiconductor|Shipping|Solution|Software|Steel|System|Supplier|Television|Tech|Technology|Telecommunication|T[eé]l[eé][ck]om|Tobacco|Therapeutic|Tool|Tour|Trading|Travel|IT\-Partner|Venture|Wireles|"Aero Support"|Verlag)s?
!A {printCRP(yytext,0);}

Define EnamexOrgCrp043a
     [ [Ins(CapWord2) { }]+
       [{Alliance} | {Agency} | {Accountant} | {Associate} | {Association}
          | {Administration} | {Automobile} | {Asset} | {Bio} | {Biocare}
          | {Bro} | {Biotech} | {Boat} | {Brother} | {Bureau} | {Biometric}
          | {Catering} | {Consortium} | {Cargo} | {Car} | {Card} | {Centre}
          | {Chemical} | {Commercial} | {Communication} | {Company}
          | {Component} | {Consultancy} | {Consultant} | {Consulting}
          | {Contract} | {Corporation} | {Cruise} | {Council} | {Electric}
          | {Electrical} | {Electronic} | {Energi} | {Enterpri} ["s"|"z"] {e}
          | {Equipment} | {Equity} | {Estate} | {Exchange} | {Export}
          | {Finance} | {Firma} | {Orden} | {Dynamics} | {Data} | {Firm}
          | {Food} | {Forum} | {Foundation} | {Fund} | {Group} | {Holding}
          | {Hotel} | {House} | {Import} | {Industry} | {Institute}
          | {Instrument} | {Insurance} | {International} | {Inv} | {Invest}
          | {Investment} | {Jet} | {Kartell} | {Line} | {Logisti} ["k"|"c"]
          | {Lab} | {Licensing} | {Management} | {Manufacturing} | {Medical}
          | {Microelectronic} | {Microsystem} | {Mining} | {Motor} | {National}
          | {Networking} | {Network} | {Oil} | {Organi} ["s"|"z"] {ation}
          | {Partner} | {Petrochemical} | {Petroleum} | {Pharmaceutical}
          | {Plastic} | {Post} | {Product} | {Production} | {Publishing}
          | {Provisioning} | {Proprietary} | {Rail} | {Resor} | {Railway}
          | {Record} | {Renting} | {Research} | {Resource} | {Service}
          | {Society} | {Security} | {Semiconductor} | {Shipping} | {Solution}
          | {Software} | {Steel} | {System} | {Supplier} | {Television} | {Tech}
          | {Technology} | {Telecommunication}
          | {T} ["e"|"é"] {l} ["e"|"é"] ["c"|"k"] {om} | {Tobacco}
          | {Therapeutic} | {Tool} | {Tour} | {Trading} | {Travel}
          | {IT-Partner} | {Venture} | {Wireles} | {Aero Support} | {Verlag}]
       ({s}) ] ;
Define EnamexOrgCrp043 [ EnamexOrgCrp043a   EndTag(EnamexOrgCrp) ] ; 74

!#  Most General 

!R ({U}[^\n\t\>\< ]+" ")+(HB|[Aa][Bb]|[Aa]\.[Bb]\.|[Cc][Oo]|[Ii]nc|[Ll][Tt][Dd]|AG|A\.S\.|A\/S|AS|ADR|Corp|Gmb[Hh]|Hld|Limited|N\.V\.|Oy|S\.A\.|SA|Aktiebolag|Incorporated|BV|B\.V\.)
!A {printCRP(yytext,0);}

Define EnamexOrgCrp044a
     [Ins(CapWord2) { }]+
     [{HB} | Aa Bb | Aa {.} Bb {.} | Cc Oo | Ii {nc} | Ll Tt Dd | {AG}
        | {A.S.} | {A/S} | {AS} | {ADR} | {Corp} | {Gmb} Hh | {Hld}
        | {Limited} | {N.V.} | {Oy} | {S.A.} | {SA} | {Aktiebolag}
        | {Incorporated} | {BV} | {B.V.}] ;
Define EnamexOrgCrp044 [ EnamexOrgCrp044a   EndTag(EnamexOrgCrp) ] ; 75

!#  General Patterns 

!R (Ford|Wallenberg|Volvo|Trelleborg|Kinnevik|Disney|Stenbeck|Bonnier|[Nn]orsk|[Ff]insk|[Ss]vensk|[^\n ]+\-|ommun|Celsiu|ommunal|andsting)(s)?ägda(" "{U}[^\n ]+)+
!A {printCRP(yytext,0);}

Define EnamexOrgCrp045a
     [ [{Ford} | {Wallenberg} | {Volvo} | {Trelleborg} | {Kinnevik}
          | {Disney} | {Stenbeck} | {Bonnier} | Nn {orsk} | Ff {insk}
          | Ss {vensk} | Word {-} | {ommun} | {Celsiu} | {ommunal} | {andsting}]
       ({s}) {ägda} [{ } CapWord2]+ ] ;
Define EnamexOrgCrp045 [ EnamexOrgCrp045a   EndTag(EnamexOrgCrp) ] ; 76

!R [^\n ]*(njör|hef)" "(för|vid)" "({U}[^\n\<\> ]+" ")+[^\n ]*(enhet|tyrelse|kår|sjukhus|klinik|asarett|trafik|anstalt|mitté|byrå|elevision|kontor|verk|valtning|vård|entrum)
!A {printCRP(yytext,2);}

Define EnamexOrgCrp046a
     [Ins(CapWord2) { }]+ NS*
     [{enhet} | {tyrelse} | {kår} | {sjukhus} | {klinik} | {asarett}
        | {trafik} | {anstalt} | {mitté} | {byrå} | {elevision} | {kontor}
        | {verk} | {valtning} | {vård} | {entrum}] ;
Define EnamexOrgCrp046
     [ LC([{njör} | {hef}] { } [{för} | {vid}] { })
       EnamexOrgCrp046a
       EndTag(EnamexOrgCrp) ] ; 77

!R [^\n ]*"rdförande i "[^\n ]+("\- och"|ska|nas|ges)" "[^\n ][^\n ]+(" "{U}[^\n ]+)*
!A {printCRP(yytext,2);}

Define EnamexOrgCrp047a
     [ Word [{- och} | {ska} | {nas} | {ges}] { } NS Word [{ } CapWord2]* ] ;
Define EnamexOrgCrp047
     [ LC({rdförande i })
       EnamexOrgCrp047a
       EndTag(EnamexOrgCrp) ] ; 78

!R [^\n ]*("kund hos"|"köper konkurrenten"|"psagd från"|"har förvärvat")(" "{U}[^\n ]+)+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp048a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp048
     [ LC([{kund hos} | {köper konkurrenten} | {psagd från}
             | {har förvärvat}]
          { })
       EnamexOrgCrp048a
       EndTag(EnamexOrgCrp) ] ; 79

!R örelse(resultate|förlus)t" för"(" "{U}[^\n ]+)+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp049a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp049
     [ LC({örelse} [{resultate} | {förlus}] {t för })
       EnamexOrgCrp049a
       EndTag(EnamexOrgCrp) ] ; 80

!R [^\n ]*(verksam|nställda|kreterare|ledare|journalist|läkare|föreståndare|orskarna)" vid"(" "{U}[^\n ]+)+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp050a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp050
     [ LC([{verksam} | {nställda} | {kreterare} | {ledare} | {journalist}
             | {läkare} | {föreståndare} | {orskarna}]
          { vid })
       EnamexOrgCrp050a
       EndTag(EnamexOrgCrp) ] ; 81

!R [^\n ]*(rdförande|elseresultatet|aktie|bud|kreterare|rinflytande|apitalet|ieägare|aktier|orägare|torägaren|ledamot|edamöterna|edlemmar|edlemskap|ktierna|udägare|öpoptioner|garandelen|icensandelen|cernchef|vd)" i"(" "{U}[^\n ]+)+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp051a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp051
     [ LC([{rdförande} | {elseresultatet} | {aktie} | {bud} | {kreterare}
             | {rinflytande} | {apitalet} | {ieägare} | {aktier} | {orägare}
             | {torägaren} | {ledamot} | {edamöterna} | {edlemmar}
             | {edlemskap} | {ktierna} | {udägare} | {öpoptioner}
             | {garandelen} | {icensandelen} | {cernchef} | {vd}]
          { i })
       EnamexOrgCrp051a
       EndTag(EnamexOrgCrp) ] ; 82

!R [^\n ]*(erenskommelse|mmanslagning|samverka|usion|amgående)(t|en|n)?" "(av|mellan)(" "{U}[^\n ]*)+" och"(" "{U}[^\n ]*)+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp052a
     [ CapWord [{ } CapWord]* { och } CapWord [{ } CapWord]* ] ;
Define EnamexOrgCrp052
     [ LC([{erenskommelse} | {mmanslagning} | {samverka} | {usion}
             | {amgående}]
          ({t} | {en} | {n}) { } [{av} | {mellan}] { })
       EnamexOrgCrp052a
       EndTag(EnamexOrgCrp) ] ; 83

!R [^\n ]*(ägs|pköpet|knadsförs|ponsrats|Helägt|örsnotering|örsintroduktion)(en)?" av"(" "{U}[^\n ]+)+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp053a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp053
     [ LC([{ägs} | {pköpet} | {knadsförs} | {ponsrats} | {Helägt}
             | {örsnotering} | {örsintroduktion}]
          ({en}) { av })
       EnamexOrgCrp053a
       EndTag(EnamexOrgCrp) ] ; 84

!R ([Ff]usion|amgående|manslagning|avtale)(t|en)?" med"(" "{U}[^\n ]+)+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp054a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp054
     [ LC([Ff {usion} | {amgående} | {manslagning} | {avtale}] ({t} | {en})
          { med })
       EnamexOrgCrp054a
       EndTag(EnamexOrgCrp) ] ; 85

!R "utvecklas gemensamt av"(" "{U}[^\n ]+)+" och"(" "{U}[^\n ]+)+
!A {printCRP(yytext,3);}

Define EnamexOrgCrp055a
     [ CapWord2 [{ } CapWord2]* { och } CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp055
     [ LC({utvecklas gemensamt av })
       EnamexOrgCrp055a
       EndTag(EnamexOrgCrp) ] ; 86

!R ({U}[^\n ]+" ")+"är en organisation"
!A {printCRP(yytext,103);}

Define EnamexOrgCrp056a [ [Ins(CapWord2) { }]* CapWord2 ] ;
Define EnamexOrgCrp056
     [ EnamexOrgCrp056a
       EndTag(EnamexOrgCrp)
       RC({ är en organisation}) ] ; 87

!R (underavdelning|underleverantör|dotterbolag|moderbolag)" till"(" "{U}[^\n ]+)+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp057a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp057
     [ LC([{underavdelning} | {underleverantör} | {dotterbolag}
             | {moderbolag}]
          { till })
       EnamexOrgCrp057a
       EndTag(EnamexOrgCrp) ] ; 88

!R [^\n ]*(kreterare|bud|hefposten|ekonom|nköpare|ersonalen)" på "{U}[^\n ]+\:s" "[^\n ]+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp058a [ CapWord2 {:s } Word ] ;
Define EnamexOrgCrp058
     [ LC([{kreterare} | {bud} | {hefposten} | {ekonom} | {nköpare}
             | {ersonalen}]
          { på })
       EnamexOrgCrp058a
       EndTag(EnamexOrgCrp) ] ; 89

!R [^\n ]*(kreterare|bud|hefposten|ekonom|nköpare|ersonalen)" på"(" "{U}[^\n ]+)+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp059a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp059
     [ LC([{kreterare} | {bud} | {hefposten} | {ekonom} | {nköpare}
             | {ersonalen}]
          { på })
       EnamexOrgCrp059a
       EndTag(EnamexOrgCrp) ] ; 90

!R [^\n ]*([Dd]\:n|ekniker|rogramansvarig|dförande|[Vv][Dd]|rektör|onsult|lytiker|ledare|chef|udsman|chefer|hefen)" "(på|för|i)" "(Klara|Les|Svenska|{U}+\:s)" "[^\n ]+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp060a
     [ [{Klara} | {Les} | {Svenska} | UpperWord {:s}] { } Word ] ;
Define EnamexOrgCrp060
     [ LC([Dd {:n} | {ekniker} | {rogramansvarig} | {dförande} | Vv Dd
             | {rektör} | {onsult} | {lytiker} | {ledare} | {chef} | {udsman}
             | {chefer} | {hefen}]
          { } [{på} | {för} | {i}] { })
       EnamexOrgCrp060a
       EndTag(EnamexOrgCrp) ] ; 91

!R [^\n ]*([Dd]\:n|tekniker|mansvarig|dförande|[Vv][Dd]|irektör|onsult|lytiker|ledare|chef|budsman|chefer|hefen|heferna)" "(på|för|vid)(" "{U}[^\n ]+)+(s" "{U}[^\n ]+|"\:s "[^\n ]+)?
!A {printCRP(yytext,2);}

Define EnamexOrgCrp061a
     [ CapWord2 [{ } CapWord2]* ({s } CapWord2 | {:s } Word) ] ;
Define EnamexOrgCrp061
     [ LC([Dd {:n} | {tekniker} | {mansvarig} | {dförande} | Vv Dd
             | {irektör} | {onsult} | {lytiker} | {ledare} | {chef}
             | {budsman} | {chefer} | {hefen} | {heferna}]
          { } [{på} | {för} | {vid}] { })
       EnamexOrgCrp061a
       EndTag(EnamexOrgCrp) ] ; 92

!R [^\n ]*(kad|ägre|alverad|örändrad)" vinst för"(" "{U}[^\n ]+)+
!A {printCRP(yytext,3);}

Define EnamexOrgCrp062a [ CapWord2 [{ } CapWord2]* ] ;
Define EnamexOrgCrp062
     [ LC([{kad} | {ägre} | {alverad} | {örändrad}] { vinst för })
       EnamexOrgCrp062a
       EndTag(EnamexOrgCrp) ] ; 93

!R [^\n ]*(örsaktuella|noterade)(" "{U}[^\n\- ]+)+
!A {printCRP(yytext,1);}

Define EnamexOrgCrp063a [ Upper NSDash+ [{ } Upper NSDash+]* ] ;
Define EnamexOrgCrp063
     [ LC([{örsaktuella} | {noterade}] { })
       EnamexOrgCrp063a
       EndTag(EnamexOrgCrp) ] ; 94

!R {U}[^\n ]+s" "(lönsamhe|koncernled|företagsled|aktiek|marknadsled|produktionsled|inköpsledn|dotterbo|moderbol)[a-z]*
!A {printCRP(yytext,11);}

Define EnamexOrgCrp064a [ CapWord2s ] ;
Define EnamexOrgCrp064
     [ EnamexOrgCrp064a
       EndTag(EnamexOrgCrp)
       RC({ }
          [{lönsamhe} | {koncernled} | {företagsled} | {aktiek}
             | {marknadsled} | {produktionsled} | {inköpsledn} | {dotterbo}
             | {moderbol}]) ] ; 95

!R [^\n ]*(varig|fälet|sman|stent|legor|oteln|xpert|efäl|tredare|hef|avande|rbete|tjänst|ör|sarie|ekniker|panare|älld)" "(vid|på|hos|från)" "[^\n ]+(polis|bevakning)en
!A {printCRP(yytext,2);}

Define EnamexOrgCrp065a [ Word [{polis} | {bevakning}] {en} ] ;
Define EnamexOrgCrp065
     [ LC([{varig} | {fälet} | {sman} | {stent} | {legor} | {oteln}
             | {xpert} | {efäl} | {tredare} | {hef} | {avande} | {rbete}
             | {tjänst} | {ör} | {sarie} | {ekniker} | {panare} | {älld}]
          { } [{vid} | {på} | {hos} | {från}] { })
       EnamexOrgCrp065a
       EndTag(EnamexOrgCrp) ] ; 96

!R [^\n ]*(operatör|polis)en" "{U}{U}{U}?
!A {printCRP(yytext,1);}

Define EnamexOrgCrp066a [ Upper Upper (Upper) ] ;
Define EnamexOrgCrp066
     [ LC([{operatör} | {polis}] {en })
       EnamexOrgCrp066a
       EndTag(EnamexOrgCrp) ] ; 97

!R [^\n ]*(rapporten|relsemedlemmar|statistik|ressmeddelande)" från "{U}{U}+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp067a [ Upper UpperWord ] ;
Define EnamexOrgCrp067
     [ LC([{rapporten} | {relsemedlemmar} | {statistik} | {ressmeddelande}]
          { från })
       EnamexOrgCrp067a
       EndTag(EnamexOrgCrp) ] ; 98

!R [^\n ]*("nställda inom"|"rundaren av")" "{U}{U}+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp068a [ Upper UpperWord ] ;
Define EnamexOrgCrp068
     [ LC([{nställda inom} | {rundaren av}] { })
       EnamexOrgCrp068a
       EndTag(EnamexOrgCrp) ] ; 99

!R [^\n ]*(edningen|lesman|mbud|trädare)" för "{U}{U}+
!A {printCRP(yytext,2);}

Define EnamexOrgCrp069a [ Upper UpperWord ] ;
Define EnamexOrgCrp069
     [ LC([{edningen} | {lesman} | {mbud} | {trädare}] { för })
       EnamexOrgCrp069a
       EndTag(EnamexOrgCrp) ] ; 100

!R (av|med|om|för)" "{U}[^\n ]+s" produkter"
!A {int i=0; for(;yytext[i]!=' ';putchar(yytext[i++]));	i++; printf(" <ENAMEX TYPE=\"ORG\" SBT=\"CRP\">");
!A 	for(;yytext[i]!=' ';putchar(yytext[i++])); printf("</ENAMEX>");
!A 	for(;i<yyleng; putchar(yytext[i++]));}

Define EnamexOrgCrp070
     [ LC([{av} | {med} | {om} | {för}] { })
       CapWord2s
       EndTag(EnamexOrgCrp)
       RC({ produkter}) ] ; 101

!R {U}[^\n ]+s" "[^äs\n ][^\n ]+" "[Vv][Dd]
!A {printCRP(yytext,102);}

Define EnamexOrgCrp071a [ CapWord2s ] ;
Define EnamexOrgCrp071
     [ EnamexOrgCrp071a
       EndTag(EnamexOrgCrp)
       RC({ } [NS - ["ä"|"s"]] Word { } Vv Dd) ] ; 102

!R [0-9]" s\. "{U}[^\n ]+" "(\.|"\& "{U}[^\n ]*" \.")
!A {printCRP(yytext,2);}

Define EnamexOrgCrp072a [ Ins(CapWord2) { } [{.} | {& } Ins(CapWord) { .}] ] ;
Define EnamexOrgCrp072
     [ LC(Num { s. })
       EnamexOrgCrp072a
       EndTag(EnamexOrgCrp) ] ; 103

!#  AD HOC (Ericsson) 

!R [^\n ]*("avtal med"|"örsvärdet för"|"onkurrent till")" "(Ericsson|Pepsi|Metall|Posten)
!A {printCRP(yytext,2);}

Define EnamexOrgCrp073a [ {Ericsson} | {Pepsi} | {Metall} | {Posten} ] ;
Define EnamexOrgCrp073
     [ LC([{avtal med} | {örsvärdet för} | {onkurrent till}] { })
       EnamexOrgCrp073a
       EndTag(EnamexOrgCrp) ] ; 104

!R (Ericsson|{U}{U}{U}?{U}?|Transport|Saab|Astra|{U}[^\n ]+männen)" varsl"[a-z]+
!A {printCRP(yytext,11);}

Define EnamexOrgCrp074a
     [ {Ericsson} | Upper Upper (Upper) (Upper) | {Transport} | {Saab}
       | {Astra} | CapWord2 {männen} ] ;
Define EnamexOrgCrp074
     [ EnamexOrgCrp074a
       EndTag(EnamexOrgCrp)
       RC({ varsl} LowerWord) ] ; 105

!R (Astra|Ikea|Motorola|Nokia|Siemens|Saab|Telia|Volvo|Skanska)" "[^\n ]+" "Ericsson
!A {int x=0;
!A 	printf("<ENAMEX TYPE=\"ORG\" SBT=\"CRP\">");
!A 	for(;yytext[x]!=' ';putchar(yytext[x++]));
!A 	printf("</ENAMEX> "); x++;
!A 	for(;yytext[x]!=' ';putchar(yytext[x++])); x++;
!A 	printf(" <ENAMEX TYPE=\"ORG\" SBT=\"CRP\">");
!A 	for(;x<yyleng; putchar(yytext[x++])); printf("</ENAMEX>");}

Define EnamexOrgCrp075
     [ Define(
         [ {Astra} | {Ikea} | {Motorola} | {Nokia} | {Siemens} | {Saab}
           | {Telia} | {Volvo} | {Skanska} ]
         EndTag(EnamexOrgCrp) )
       { } Word { }
       Define(
         {Ericsson}
         EndTag(EnamexOrgCrp) ) ] ; 106

!#  also X:s xxx vd 

!R (Investor|Ericsson|Telia|Volvo|Citypendeln|Skandia|Framfab|Scania|Autonova|Stora|Skanska|Drott|Saco|Posten|Arla|{U}[^\n ]+bolaget|[A-Z]\:)s" "(personal|[Vv][Dd])
!A {printCRP(yytext,11);}

Define EnamexOrgCrp076a
     [ [{Investor} | {Ericsson} | {Telia} | {Volvo} | {Citypendeln}
          | {Skandia} | {Framfab} | {Scania} | {Autonova} | {Stora} | {Skanska}
          | {Drott} | {Saco} | {Posten} | {Arla} | CapWord2 {bolaget} | AZ {:}]
       {s} ] ;
Define EnamexOrgCrp076
     [ EnamexOrgCrp076a
       EndTag(EnamexOrgCrp)
       RC({ } [{personal} | Vv Dd]) ] ; 107

!R {U}[^\n ]+s" "(informations|koncern|teknik|forsknings|marknads)chef
!A {printCRP(yytext,11);}

Define EnamexOrgCrp077a [ CapWord2s ] ;
Define EnamexOrgCrp077
     [ EnamexOrgCrp077a
       EndTag(EnamexOrgCrp)
       RC({ }
          [{informations} | {koncern} | {teknik} | {forsknings}
             | {marknads}]
          {chef}) ] ; 108

!#  EDUCATION 

!R [Vv]id" "{U}[^\n ]+skola(n)?
!A {printEDU(yytext,1);}

Define EnamexOrgEdu001a [ CapWord2 {skola} ({n}) ] ;
Define EnamexOrgEdu001
     [ LC(Vv {id })
       EnamexOrgEdu001a
       EndTag(EnamexOrgEdu) ] ; 109

!#  COMPOUNDS 

!R [^ \n]*(Kanal|Historie|Nät|[Hh]ant|Original|[Kk]raft|Regel|Konst|Såg|Stor|Glas|Bland|Smält|Slag)verk(et)?
!A {ECHO;}

Define Except013
     [ NS*
       [{Kanal} | {Historie} | {Nät} | Hh {ant} | {Original} | Kk {raft}
          | {Regel} | {Konst} | {Såg} | {Stor} | {Glas} | {Bland} | {Smält}
          | {Slag}]
       {verk} ({et}) ] ; 110

!R [^ \n]*(Oppositions|Lag|Kommunal|Stats|Ordför|Trafiklandstings|borga)rådet
!A {ECHO;}

Define Except014
     [ NS*
       [{Oppositions} | {Lag} | {Kommunal} | {Stats} | {Ordför}
          | {Trafiklandstings} | {borga}]
       {rådet} ] ; 111

!R [^ \n]*(Ut|Nyut|Om)nämnd
!A {ECHO;}

Define Except015 [ NS* [{Ut} | {Nyut} | {Om}] {nämnd} ] ; 112

!R "ett "[^ \n]*verk
!A {ECHO;}

Define Except016 [ {ett } NS* {verk} ] ; 113

!R [^ \n]*(Åter|Trädgårds)förening
!A {ECHO;}

Define Except017 [ NS* [{Åter} | {Trädgårds}] {förening} ] ; 114

!R Omorganisationen
!A {ECHO;}

Define Except018 [ {Omorganisationen} ] ; 115

!R PR-konsult
!A {ECHO;}

Define Except019 [ {PR-konsult} ] ; 116

!R (Wi|Kröni)kören
!A {ECHO;}

Define Except020 [ [{Wi} | {Kröni}] {kören} ] ; 117

!R [^\n ]+ombudsman(nen)?" "{U}
!A {ECHO;}

Define Except021 [ Word {ombudsman} ({nen}) { } Upper ] ; 118

!R {U}[^ \n]+(förbund|institut|sekretariat|sällskap|utskott|verk)(et)?
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp078a
     [ CapWord2
       [{förbund} | {institut} | {sekretariat} | {sällskap} | {utskott}
          | {verk}]
       ({et}) ] ;
Define EnamexOrgCrp078 [ EnamexOrgCrp078a   EndTag(EnamexOrgCrp) ] ; 119

!R {U}[^ \n]+(kooperativet|kollegium|ministeriet|ämbetet)
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp079a
     [ CapWord2 [{kooperativet} | {kollegium} | {ministeriet} | {ämbetet}] ] ;
Define EnamexOrgCrp079 [ EnamexOrgCrp079a   EndTag(EnamexOrgCrp) ] ; 120

!R {U}[^ \n]+[^ \nm]rådet
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp080a [ CapWord2 [NS - {m}] {rådet} ] ;
Define EnamexOrgCrp080 [ EnamexOrgCrp080a   EndTag(EnamexOrgCrp) ] ; 121

!R {U}[^ \n]+(fta|knads|\-)domstol(en)?
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp081a
     [ CapWord2 [{fta} | {knads} | {-}] {domstol} ({en}) ] ;
Define EnamexOrgCrp081 [ EnamexOrgCrp081a   EndTag(EnamexOrgCrp) ] ; 122

!R {U}[^ \n]+(kriminal|ederation|förening|örvaltning|klubb|kommission|konsult|myndighet|nämnd|organisation|sinspektion|ddningstjänst)(en)?
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp082a
     [ CapWord2
       [{kriminal} | {ederation} | {förening} | {örvaltning} | {klubb}
          | {kommission} | {konsult} | {myndighet} | {nämnd} | {organisation}
          | {sinspektion} | {ddningstjänst}]
       ({en}) ] ;
Define EnamexOrgCrp082 [ EnamexOrgCrp082a   EndTag(EnamexOrgCrp) ] ; 123

!R {U}[^\n ]+kören
!A {printCLT(yytext,0);}

Define EnamexOrgClt020a [ CapWord2 {kören} ] ;
Define EnamexOrgClt020 [ EnamexOrgClt020a   EndTag(EnamexOrgClt) ] ; 124

!R {U}[^\n ]+(aconsult|ullstyrelse|folkrörelse|kommitté|sakademi|stiftelse)(n)?
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp083a
     [ CapWord2
       [{aconsult} | {ullstyrelse} | {folkrörelse} | {kommitté} | {sakademi}
          | {stiftelse}]
       ({n}) ] ;
Define EnamexOrgCrp083 [ EnamexOrgCrp083a   EndTag(EnamexOrgCrp) ] ; 125

!R {U}[^\n ]+ombudsman(nen)?
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp084a [ CapWord2 {ombudsman} ({nen}) ] ;
Define EnamexOrgCrp084 [ EnamexOrgCrp084a   EndTag(EnamexOrgCrp) ] ; 126

!R {U}[^\n ]+\-koncernen
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp085a [ CapWord2 {-koncernen} ] ;
Define EnamexOrgCrp085 [ EnamexOrgCrp085a   EndTag(EnamexOrgCrp) ] ; 127

!R {U}[^\n ]+(länskrim[^\n ]+|fören\.|förb\.)
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp086a
     [ CapWord2 [{länskrim} Word | {fören.} | {förb.}] ] ;
Define EnamexOrgCrp086 [ EnamexOrgCrp086a   EndTag(EnamexOrgCrp) ] ; 128

!R {U}+\-distrikt(et)?
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp087a [ UpperWord {-distrikt} ({et}) ] ;
Define EnamexOrgCrp087 [ EnamexOrgCrp087a   EndTag(EnamexOrgCrp) ] ; 129

!R (hos|[Ii]nom|[Vv]id|Enligt)" "{U}[^\n ]+(koncern|vård|grupp|polis|administration)en
!A {printCRP(yytext,1);}

Define EnamexOrgCrp088a
     [ CapWord2 [{koncern} | {vård} | {grupp} | {polis} | {administration}]
       {en} ] ;
Define EnamexOrgCrp088
     [ LC([{hos} | Ii {nom} | Vv {id} | {Enligt}] { })
       EnamexOrgCrp088a
       EndTag(EnamexOrgCrp) ] ; 130

!R (eBay|3Com|3G|3M|3GIS|AMI)
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp089a
     [ {eBay} | {3Com} | {3G} | {3M} | {3GIS} | {AMI} ] ;
Define EnamexOrgCrp089 [ EnamexOrgCrp089a   EndTag(EnamexOrgCrp) ] ; 131

!R [^\n ]*(båts|rejv|ing|kotika|olitik|ings|rave|utralitets|eri|val|rätts|energi|skydds|ibel|handels)kommission(en)?
!A {printCRP0(yytext,0);}

Define EnamexOrgCrp090a
     [ NS*
       [{båts} | {rejv} | {ing} | {kotika} | {olitik} | {ings} | {rave}
          | {utralitets} | {eri} | {val} | {rätts} | {energi} | {skydds}
          | {ibel} | {handels}]
       {kommission} ({en}) ] ;
Define EnamexOrgCrp090 [ EnamexOrgCrp090a   EndTag(EnamexOrgCrp) ] ; 132

!R \n
!A {ECHO;}
!I Ignored exception rule

!R .
!A {ECHO;}
!I Ignored exception rule

!= ======================
!= Pmatch top definitions
!= ======================

Define TOP
     [ LC(WordBoundary)
       [ IgnoreTagged | EnamexOrgCrp001 | EnamexOrgCrp002 | EnamexOrgCrp003
       | Except001 | Except002 | Except003 | EnamexOrgClt001 | EnamexOrgClt002
       | EnamexOrgClt003 | EnamexOrgClt004 | EnamexOrgClt005 | EnamexOrgClt006
       | EnamexOrgClt007 | EnamexOrgClt008 | EnamexOrgClt009 | EnamexOrgClt010
       | EnamexOrgClt011 | EnamexOrgClt012 | EnamexOrgClt013 | EnamexOrgClt014
       | EnamexOrgClt015 | EnamexOrgClt016 | EnamexOrgClt017 | EnamexOrgClt018
       | EnamexOrgClt019 | EnamexOrgCrp004 | EnamexOrgCrp005 | EnamexOrgCrp006
       | EnamexOrgCrp007 | EnamexOrgCrp008 | EnamexOrgCrp009 | EnamexOrgCrp010
       | EnamexOrgCrp011 | EnamexOrgCrp012 | EnamexOrgCrp013 | EnamexOrgCrp014
       | Except004 | EnamexOrgCrp015 | EnamexOrgCrp016 | EnamexOrgCrp017
       | EnamexOrgCrp018 | EnamexOrgCrp019 | EnamexOrgCrp020 | EnamexOrgCrp021
       | EnamexOrgCrp022 | EnamexOrgCrp023 | EnamexOrgCrp024 | EnamexOrgCrp025
       | EnamexOrgCrp026 | EnamexOrgCrp027 | EnamexOrgCrp028 | EnamexOrgCrp029
       | EnamexOrgCrp030 | EnamexOrgCrp031 | EnamexOrgCrp032 | EnamexOrgCrp033
       | Except005 | Except006 | Except007 | EnamexOrgCrp034 | EnamexOrgCrp035
       | EnamexOrgCrp036 | EnamexOrgCrp037 | EnamexOrgCrp038 | EnamexOrgCrp039
       | Except008 | EnamexOrgCrp040 | EnamexOrgCrp041 | EnamexOrgCrp042
       | Except009 | Except010 | Except011 | Except012 | EnamexOrgCrp043
       | EnamexOrgCrp044 | EnamexOrgCrp045 | EnamexOrgCrp046 | EnamexOrgCrp047
       | EnamexOrgCrp048 | EnamexOrgCrp049 | EnamexOrgCrp050 | EnamexOrgCrp051
       | EnamexOrgCrp052 | EnamexOrgCrp053 | EnamexOrgCrp054 | EnamexOrgCrp055
       | EnamexOrgCrp056 | EnamexOrgCrp057 | EnamexOrgCrp058 | EnamexOrgCrp059
       | EnamexOrgCrp060 | EnamexOrgCrp061 | EnamexOrgCrp062 | EnamexOrgCrp063
       | EnamexOrgCrp064 | EnamexOrgCrp065 | EnamexOrgCrp066 | EnamexOrgCrp067
       | EnamexOrgCrp068 | EnamexOrgCrp069 | EnamexOrgCrp070 | EnamexOrgCrp071
       | EnamexOrgCrp072 | EnamexOrgCrp073 | EnamexOrgCrp074 | EnamexOrgCrp075
       | EnamexOrgCrp076 | EnamexOrgCrp077 | EnamexOrgEdu001 | Except013
       | Except014 | Except015 | Except016 | Except017 | Except018 | Except019
       | Except020 | Except021 | EnamexOrgCrp078 | EnamexOrgCrp079
       | EnamexOrgCrp080 | EnamexOrgCrp081 | EnamexOrgCrp082 | EnamexOrgClt020
       | EnamexOrgCrp083 | EnamexOrgCrp084 | EnamexOrgCrp085 | EnamexOrgCrp086
       | EnamexOrgCrp087 | EnamexOrgCrp088 | EnamexOrgCrp089 | EnamexOrgCrp090 ] ] ;
