Page source:

var synonyms = [. puppy="DOGS", puppies="DOGS", lassie="DOGS", dog="DOGS", dogs="DOGS", heel="DOGS", beagle="DOGS", beagles="DOGS", cat="CATS", cats="CATS", driving="DRIVING", drive="DRIVING", car="CARS", cars="CARS", web="INTERNET", "web 2.0"="INTERNET", internet="INTERNET", law="LEGAL", laws="LEGAL", attorney="LEGAL", attorneys="LEGAL", legal="LEGAL", lawyer="LEGAL", lawyers="LEGAL", martini="DRINKING", martinis="DRINKING", drink="DRINKING", drinks="DRINKING", wine="DRINKING", beer="DRINKING", beers="DRINKING", alcohol="DRINKING", drinking="WINE", store="SHOPPING", stores="SHOPPING", consumerism= "SHOPPING", buying ="CONSUMERISM", mom="FAMILY", moms="FAMILY", mother="FAMILY", mothers="FAMILY", father="FAMILY", fathers="FAMILY", dad="FAMILY", dads="FAMILY", children ="FAMILY", beach="BEACHES", beaches="BEACHES",  economic="ECONOMY", economics="ECONOMY", economy="ECONOMY", thighs="HEALTH", money="MONEY MANAGEMENT", disorder="PSYCHOLOGICAL", disorders="PSYCHOGICAL", cholesterol="DIET", president="POLITICAL CARTOONS", governor="POLITICAL CARTOONS", happy="HAPPINESS", happiness="HAPPINESS", beggar="beggars", beggars="beggars", bum="beggars", bums="beggars", jew= "JEWISH", Jewish="JEWISH", Christian = "RELIGIOUS", catholic="religious", religion="religious", religious="religious", "new age" = "SPIRITUALITY", fish="FISHING", fishing="FISHING", hunt="HUNTING", hunting="HUNTING", homework="school", school="school", schools="school", university= "HIGHER EDUCATION", college = "HIGHER EDUCATION",  internship="INTERNSHIPS", internships="INTERNSHIPS", sports="SPORTS", yankees="SPORTS", basketball="SPORTS", ball="SPORTS", game="SPORTS", games="SPORTS", "miss you"="RELATIONSHIP", couple="RELATIONSHIP", couples="RELATIONSHIP", love="RELATIONSHIP", loving="RELATIONSHIP", hate="BREAKING UP", wife="MARRIED", wives="MARRIE", husband="MARRIED", husbands="MARRIED", girlfriend="RELATIONSHIP", mistress="AFFAIR", cheating= "AFFAIR", marriage="MARRIED", wedding="MARRIAGE", weddings="MARRIAGE", attract="RELATIONSHIP", attracted="RELATIONSHIP", attraction="RELATIONSHIP", ipad="MOBILE", liberal="DEMOCRAT", democrat="DEMOCRAT", democrats = "DEMOCRAT", libertarian= "LIBERTARIAN", republican = "REPUBLICAN", republicans = "REPUBLICAN", pill="PHARMACEUTICAL",dosage = "DOCTORS", fetus="BABIES", baby="BABIES", consultant="CONSULTANTS", parent="PARENTING", parents="PARENTING", christmas="HOLIDAYS", holiday= "HOLIDAYS", old="age", elderly = "AGING",  electronic="COMPUTER", electronics="COMPUTER", worker="LABOR", workers="LABOR.", golf="SPORTS", golfing="SPORTS", compensation="COMPENSATION.", vacation="VACATION", vacations="VACATION", kid="KIDS", kids="KIDS", airplane="AIRPLANES", airplanes="AIRPLANES", trip="TRAVEL", trips="TRAVEL", travel="TRAVEL", hybrid ="HYBRIDS",  wisdom="WISDOM", smart="WISDOM", intelligent="WISDOM", pants="MEN'S FASHION", dress="WOMENS FASHION", dresses="WOMENS FASHION", doctor="HEALTH", doctors="HEALTH", bank="BANKING", banks="BANKING", government = "GOVERNMENT", sell="SALES", selling="SALES", sex="SEX", sexy="SEX", food="EATING", dinner="EATING", dinners="EATING", breakfast="EATING", lunch="EATING", hungry="EATING", eats="EATING", eat="EATING", eating="EATING", cooking = "EATING", waiter="RESTAURANTS AND CAFES", waiters="RESTAURANTS AND CAFES", customer="CUSTOMER SERVICE",  home="HOME", homes="HOME", kitchen="COOKING", kitchens="COOKING", house="HOME", bathroom="HOME", science="SCIENCE", genetic="GENETICS", genetics="GENETICS", protest="POLITICAL CARTOONS", protests="POLITICAL CARTOONS", firms="CORPORATION", media= "ENTERTAINMENT MEDIA", tv = "ENTERTAINMENT MEDIA", televisions="ENTERTAINMENT MEDIA", movie="MOVIES", actor="MOVIES", actors="MOVIES", actress="MOVIES"
.];


var checkTags = fun(s)
   var tags = {};
   s = Wub_ReplaceAll(Str_ToLowerCase(s + ""), ".", " ");
   s = Wub_ReplaceAll(s, "!", " ");
   s = Wub_ReplaceAll(s, "?", " ");
   s = Wub_ReplaceAll(s, `"`, " ");
   s = Wub_ReplaceAll(s, "'", "");
   every syn in synonyms do
     if Str_IndexOf(" " + syn + " ", " " + s + " ") >= 0 then
         tags = tags + {synonyms[syn]}
      end
   end;
   return ToList(tags)
end;

checkTags(txt);