% 'Lexicon' mapping occurrences of 'interest' and 'interests'
% into default senses.

sense_lex(interest,6).
sense_lex(interests,5).


% Global constraints

constraint(_,_,_,_).


% Word Expert specification

word_expert sense :=
    sense:add A <- wd:W@[0] & {sense_lex(W,A)} o
    sense:6>1 <- wd:in@[1] o
    sense:1>5 <- wd:'%'@[-1,-2] o
    sense:6>5 <- wd:short@[-1] o
    sense:5>3 <- wd:pursue@[-1,-2] o
    sense:5>4 <- wd:of@[1,2] o
    sense:6>4 <- wd:public@[-1] o
    sense:1>5 <- wd:a@[-1,-2] o
    sense:6>4 <- wd:best@[-1,-2] o
    sense:6>1 <- wd:buying@[-1] o
    sense:6>1 <- wd:investor@[-1] o
    sense:6>4 <- wd:conflict@[-1,-2] o
    sense:1>5 <- wd:its@[-1,-2] o
    sense:5>4 <- wd:own@[-1,-2] o
    sense:1>5 <- wd:'Short'@[-1] o
    sense:6>5 <- wd:'Short'@[-1] o
    sense:6>4 <- wd:the@[-1] & wd:of@[1] o
    sense:6>5 <- wd:open@[-1] o
    sense:6>1 <- wd:among@[1] o
    sense:6>1 <- wd:'\''@[1,2] o
    sense:5>3 <- wd:business@[-1] & wd:other@[-2] o
    sense:6>4 <- wd:conflicts@[-1,-2] o
    sense:5>4 <- wd:'\''@[1,2] o
    sense:5>4 <- wd:their@[-1] o
    sense:1>5 <- wd:short@[-1] o
    sense:1>5 <- wd:minority@[-1,-2] o
    sense:6>5 <- wd:voting@[-1] o
    sense:6>5 <- wd:'%'@[-1] o
    sense:6>1 <- wd:by@[1] o
    sense:5>6 <- wd:rate@[1] o
    sense:6>4 <- wd:national@[-1] o
    sense:5>4 <- wd:'U.S.'@[-1] o
    sense:1>5 <- wd:financial@[-1] o
    sense:6>1 <- wd:from@[1] o
    sense:6>2 <- wd:of@[-1] & wd:to@[1] o
    sense:1>6 <- wd:pay@[-1] o
    sense:5>4 <- wd:'\''@[-1] o
    sense:5>4 <- wd:local@[-1] o
    sense:1>5 <- wd:controlling@[-1] o
    sense:1>5 <- wd:open@[-1] o
    sense:1>5 <- wd:an@[-1] & wd:of@[-2] o
    sense:6>5 <- wd:'Open'@[-1] o
    sense:6>5 <- wd:minority@[-1] o
    sense:6>5 <- wd:controlling@[-1,-2] o
    sense:6>5 <- wd:'\'s'@[-1] & wd:','@[1] o
    sense:6>1 <- wd:'But'@[-1] o
    sense:6>1 <- wd:'Investor'@[-1] o
    sense:6>1 <- wd:strong@[-1] o
    sense:1>4 <- wd:national@[-1] o
    sense:6>3 <- wd:main@[-1] o
    sense:6>3 <- wd:special@[-1] o
    sense:1>6 <- wd:and@[-1] o
    sense:1>6 <- wd:loans@[1,2] o
    sense:5>1 <- wd:special@[-1] o
    sense:5>3 <- wd:economic@[-1] o
    sense:5>3 <- wd:personal@[-1] o
    sense:6>4 <- wd:lies@[1] o
    sense:6>4 <- wd:'\'s'@[-1] & wd:to@[1] o
    sense:5>4 <- wd:best@[-1] o
    sense:5>4 <- wd:entrenched@[-1] o
    sense:1>5 <- wd:equity@[-1] o
    sense:1>5 <- wd:'Columbia'@[-1,-2] o
    sense:1>5 <- wd:'ABS'@[1,2] o
    sense:1>5 <- wd:an@[-1] & wd:and@[-2] o
    sense:6>5 <- wd:equity@[-1] o
    sense:6>5 <- wd:majority@[-1] o
    sense:6>5 <- wd:working@[-1] o
    sense:6>5 <- wd:sell@[-1,-2] o
    sense:6>5 <- wd:an@[-1] & wd:'.'@[1] o
    sense:6>5 <- wd:its@[-1] & wd:as@[1] o
    sense:6>5 <- wd:its@[-1] & wd:to@[1] o
    sense:6>5 <- wd:','@[1] & wd:which@[2] o
    sense:6>1 <- wd:lost@[-1] o
    sense:6>1 <- wd:shown@[-1] o
    sense:6>1 <- wd:'NBC'@[-1,-2] o
    sense:6>1 <- wd:expressed@[-1,-2] o
    sense:6>1 <- wd:expressions@[-1,-2] o
    sense:6>1 <- wd:little@[-1,-2] o
    sense:6>1 <- wd:so@[-1,-2] o
    sense:6>1 <- wd:also@[1] o
    sense:6>1 <- wd:with@[-1] & wd:'.'@[1] o
    sense:1>2 <- wd:study@[-1,-2] o
    sense:3>4 <- wd:his@[-1,-2] o
    sense:6>2 <- wd:particular@[-1] o
    sense:6>2 <- wd:information@[-1,-2] o
    sense:1>4 <- wd:common@[-1] o
    sense:1>4 <- wd:'NIH'@[1,2] o
    sense:1>4 <- wd:'Somalia'@[1,2] o
    sense:1>4 <- wd:preserving@[1,2] o
    sense:4>1 <- wd: `` @[-1] o
    sense:4>1 <- wd:attracted@[-1,-2] o
    sense:4>1 <- wd:most@[-1,-2] o
    sense:4>1 <- wd:'Reduced'@[-1,-2] o
    sense:4>3 <- wd:different@[-1] o
    sense:4>3 <- wd:idosyncratic@[-1] o
    sense:4>3 <- wd:recognized@[-1,-2] o
    sense:4>3 <- wd:'}'@[-1,-2] o
    sense:5>6 <- wd:'14'@[-1,-2] o
    sense:5>6 <- wd:'17'@[-1,-2] o
    sense:5>6 <- wd:'6.25'@[-1,-2] o
    sense:5>6 <- wd:'8.8'@[-1,-2] o
    sense:6>3 <- wd:general@[-1] o
    sense:6>3 <- wd:love@[-1] o
    sense:6>3 <- wd:major@[-1] o
    sense:6>3 <- wd:sole@[-1] o
    sense:1>6 <- wd:accrue@[-1] o
    sense:1>6 <- wd:accrued@[-1] o
    sense:1>6 <- wd:accumulate@[-1] o
    sense:1>6 <- wd:debt@[-1] o
    sense:1>6 <- wd:extra@[-1] o
    sense:1>6 <- wd:lose@[-1] o
    sense:1>6 <- wd:at@[-1,-2] o
    sense:1>6 <- wd:revenue@[-1,-2] o
    sense:4>5 <- wd:brewing@[-1] o
    sense:4>5 <- wd:insurance@[-1] o
    sense:4>5 <- wd:minority@[-1] o
    sense:4>5 <- wd:publishing@[-1] o
    sense:4>5 <- wd:'Repsol'@[-1,-2] o
    sense:4>5 <- wd:'Airways'@[-1,-2] o
    sense:4>5 <- wd:are@[-1,-2] o
    sense:4>5 <- wd:concerning@[-1,-2] o
    sense:5>1 <- wd:deep@[-1] o
    sense:5>1 <- wd:general@[-1] o
    sense:5>1 <- wd:great@[-1] o
    sense:5>1 <- wd:keen@[-1] o
    sense:5>1 <- wd:quick@[-1] o
    sense:5>1 <- wd:tremendous@[-1] o
    sense:5>1 <- wd:as@[-1] o
    sense:5>1 <- wd:disclosed@[-1,-2] o
    sense:5>1 <- wd:reaffirmed@[-1,-2] o
    sense:5>1 <- wd:signals@[-1,-2] o
    sense:5>3 <- wd:and@[-1] o
    sense:5>3 <- wd:common@[-1] o
    sense:5>3 <- wd:community@[-1] o
    sense:5>3 <- wd:his@[-1] o
    sense:3>4 <- wd:national@[-1,-2] o
    sense:5>3 <- wd:intellectual@[-1] o
    sense:5>3 <- wd:private@[-1] o
    sense:5>3 <- wd:research@[-1] o
    sense:5>3 <- wd:wide@[-1] o
    sense:5>3 <- wd:'Japanese'@[-1,-2] o
    sense:5>3 <- wd:committee@[-1,-2] o
    sense:5>3 <- wd:commonality@[-1,-2] o
    sense:5>3 <- wd:spectrum@[-1,-2] o
    sense:6>5 <- wd:beneficial@[-1] o
    sense:6>5 <- wd:diluted@[-1] o
    sense:6>5 <- wd:financial@[-1] o
    sense:6>5 <- wd:insurance@[-1] o
    sense:6>5 <- wd:property@[-1] o
    sense:6>5 <- wd:'HealthVest'@[-1,-2] o
    sense:6>5 <- wd:'TA'@[-1,-2] o
    sense:6>5 <- wd:acquires@[-1,-2] o
    sense:6>5 <- wd:holds@[-1,-2] o
    sense:6>5 <- wd:maintain@[-1,-2] o
    sense:6>5 <- wd:represent@[-1,-2] o
    sense:6>5 <- wd:there@[1] o
    sense:6>4 <- wd:'Western'@[-1] o
    sense:6>4 <- wd:'Your'@[-1] o
    sense:6>4 <- wd:economic@[-1] o
    sense:6>4 <- wd:government@[-1] o
    sense:6>4 <- wd:mutual@[-1] o
    sense:6>4 <- wd:private@[-1] o
    sense:6>4 <- wd:'shorter-term'@[-1] o
    sense:6>4 <- wd:social@[-1] o
    sense:6>4 <- wd:abandoned@[-1,-2] o
    sense:6>4 <- wd:anybody@[-1,-2] o
    sense:6>4 <- wd:nation@[-1,-2] o
    sense:6>4 <- wd:'I'@[1] o
    sense:6>4 <- wd:was@[1] o
    sense:4>1 <- wd:magistrate@[-1,-2] o
    sense:6>4 <- wd:their@[1,2] o
    sense:4>1 <- wd:attracted@[-1] o
    sense:6>4 <- wd:'long-term'@[-1] & wd:'\'s'@[-2] o
    sense:5>4 <- wd:big@[-1] o
    sense:5>4 <- wd:'American'@[-1] o
    sense:5>4 <- wd: `` @[-1] o
    sense:5>4 <- wd:consumer@[-1] o
    sense:5>4 <- wd:employee@[-1] o
    sense:5>4 <- wd:'free-speech'@[-1] o
    sense:5>4 <- wd:'long-term'@[-1] o
    sense:5>4 <- wd:national@[-1] o
    sense:5>4 <- wd:our@[-1] o
    sense:5>4 <- wd:parochial@[-1] o
    sense:5>4 <- wd:protected@[-1] o
    sense:5>4 <- wd:strategic@[-1] o
    sense:5>4 <- wd:'}'@[-1] o
    sense:5>4 <- wd:'P&G'@[-1,-2] o
    sense:5>4 <- wd:'Satisfying'@[-1,-2] o
    sense:5>4 <- wd:country@[-1,-2] o
    sense:5>4 <- wd:defend@[-1,-2] o
    sense:5>4 <- wd:government@[-1,-2] o
    sense:5>4 <- wd:protect@[-1,-2] o
    sense:1>5 <- wd:'Hooker'@[-1] o
    sense:1>5 <- wd:illegal@[-1] o
    sense:1>5 <- wd:majority@[-1] o
    sense:1>5 <- wd:million@[-1] o
    sense:1>5 <- wd:'one-third'@[-1] o
    sense:1>5 <- wd:partner@[-1] o
    sense:1>5 <- wd:represent@[-1] o
    sense:1>5 <- wd:'Corp.'@[-1,-2] o
    sense:1>5 <- wd:'Doman'@[-1,-2] o
    sense:1>5 <- wd:'Or'@[-1,-2] o
    sense:1>5 <- wd:acquire@[-1,-2] o
    sense:1>5 <- wd:buy@[-1,-2] o
    sense:1>5 <- wd:holds@[-1,-2] o
    sense:1>5 <- wd:parties@[-1,-2] o
    sense:1>5 <- wd:purchase@[-1,-2] o
    sense:1>5 <- wd:purchased@[-1,-2] o
    sense:1>5 <- wd:'2,100'@[1,2] o
    sense:1>5 <- wd:an@[-1] & wd:for@[-2] o
    sense:1>5 <- wd:an@[-1] & wd:has@[-2] o
    sense:1>5 <- wd:their@[-1] & wd:up@[-2] o
    sense:6>1 <- wd:'Commercial'@[-1] o
    sense:6>1 <- wd:'IV'@[-1] o
    sense:6>1 <- wd:'That'@[-1] o
    sense:6>1 <- wd:academic@[-1] o
    sense:6>1 <- wd:active@[-1] o
    sense:6>1 <- wd:advertiser@[-1] o
    sense:6>1 <- wd:considerable@[-1] o
    sense:6>1 <- wd:emotional@[-1] o
    sense:6>1 <- wd:'foreign-investor'@[-1] o
    sense:6>1 <- wd:generate@[-1] o
    sense:6>1 <- wd:great@[-1] o
    sense:6>1 <- wd:institutional@[-1] o
    sense:6>1 <- wd:loses@[-1] o
    sense:6>1 <- wd:more@[-1] o
    sense:6>1 <- wd:most@[-1] o
    sense:6>1 <- wd:'new-found'@[-1] o
    sense:6>1 <- wd:personal@[-1] o
    sense:6>1 <- wd:retail@[-1] o
    sense:6>1 <- wd:serious@[-1] o
    sense:6>1 <- wd:showing@[-1] o
    sense:6>1 <- wd:speculative@[-1] o
    sense:6>1 <- wd:takeover@[-1] o
    sense:6>1 <- wd:thin@[-1] o
    sense:6>1 <- wd:usual@[-1] o
    sense:6>1 <- wd:'Ford'@[-1,-2] o
    sense:6>1 <- wd:'Now'@[-1,-2] o
    sense:6>1 <- wd:'Shortages'@[-1,-2] o
    sense:6>1 <- wd:'Washington'@[-1,-2] o
    sense:6>1 <- wd:announced@[-1,-2] o
    sense:6>1 <- wd:arouses@[-1,-2] o
    sense:6>1 <- wd:attract@[-1,-2] o
    sense:6>1 <- wd:customers@[-1,-2] o
    sense:6>1 <- wd:declare@[-1,-2] o
    sense:6>1 <- wd:lack@[-1,-2] o
    sense:6>1 <- wd:read@[-1,-2] o
    sense:6>1 <- wd:students@[-1,-2] o
    sense:6>1 <- wd:took@[-1,-2] o
    sense:6>1 <- wd:while@[-1,-2] o
    sense:6>1 <- wd:connected@[1] o
    sense:6>1 <- wd:expressed@[1] o
    sense:6>1 <- wd:shown@[1] o
    sense:6>1 <- wd:'Democrats'@[1,2] o
    sense:6>1 <- wd:gleefully@[1,2] o
    sense:6>1 <- wd:other@[1,2] o
    sense:6>1 <- wd:much@[-1] & wd:'n\'t'@[-2] o
    sense:6>1 <- wd:their@[-1] & wd:that@[-2] o
    sense:6>5 <- wd:'Franklin'@[1,2] o
    sense:6>4 <- wd:own@[-1] & wd:'\'s'@[-2] o
    sense:6>3 <- wd:subscriber@[-1,-2] o
    sense:6>2 <- wd:picture@[-1,-2] o
    sense:6>1 <- wd:the@[-1] & wd:'.'@[1] o
    sense:5>4 <- wd:its@[-1] & wd:for@[-2] o
    sense:5>3 <- wd:hit@[1] o
    sense:4>5 <- wd:'Eagle'@[1,2] o
    sense:4>3 <- wd:goals@[1,2] o
    sense:4>2 <- wd:because@[1] o
    sense:4>1 <- wd:financial@[1,2] o
    sense:3>4 <- wd:protecting@[-1,-2] o
    sense:1>6 <- wd:much@[-1] & wd:show@[-2] o
    sense:1>5 <- wd:in@[1] & wd:'National'@[2] o
    sense:1>4 <- wd:scholarship@[1,2] o
    sense:1>2 <- wd:outside@[1] o
    end.