-- Generation Time: Jun 11, 2007
-- Last update: Oct 17, 2007
-- Database: `flib`
--
-- BY JULIO RAFFO (EPFL/CEMI)
--
-- --------------------------------------------------------


DELIMITER $$

DROP FUNCTION IF EXISTS flib.dwabbrevtag $$
CREATE FUNCTION  flib.dwabbrevtag(dirtystring VARCHAR(500)) RETURNS varchar(500) CHARSET utf8
BEGIN

	DECLARE tempstring varchar(500);

set dirtystring=concat(' ', dirtystring,' ');
set tempstring=' ';

if locate(' et ', dirtystring)>0 then set tempstring=concat(tempstring,'& '); end if;
if locate(' und ', dirtystring)>0 then set tempstring=concat(tempstring,'& '); end if;
if locate(' aktiebolag ', dirtystring)>0 then set tempstring=concat(tempstring,'ab '); end if;
if locate(' aktiebolaget ', dirtystring)>0 then set tempstring=concat(tempstring,'ab '); end if;
if locate(' academy ', dirtystring)>0 then set tempstring=concat(tempstring,'acad '); end if;
if locate(' agactien gesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'acad '); end if;
if locate(' actiengesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'acad '); end if;
if locate(' aktien gesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'acad '); end if;
if locate(' aktiengesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'acad '); end if;
if locate(' agricolas ', dirtystring)>0 then set tempstring=concat(tempstring,'agri '); end if;
if locate(' agricoles ', dirtystring)>0 then set tempstring=concat(tempstring,'agri '); end if;
if locate(' agricoli ', dirtystring)>0 then set tempstring=concat(tempstring,'agri '); end if;
if locate(' agricolture ', dirtystring)>0 then set tempstring=concat(tempstring,'agri '); end if;
if locate(' agricultura ', dirtystring)>0 then set tempstring=concat(tempstring,'agri '); end if;
if locate(' agricultural ', dirtystring)>0 then set tempstring=concat(tempstring,'agri '); end if;
if locate(' agriculture ', dirtystring)>0 then set tempstring=concat(tempstring,'agri '); end if;
if locate(' agricola ', dirtystring)>0 then set tempstring=concat(tempstring,'agri '); end if;
if locate(' agricole ', dirtystring)>0 then set tempstring=concat(tempstring,'agri '); end if;
if locate(' akademia ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' akademiei ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' akademii ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' akademija ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' akademiya ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' akademiyakh ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' akademiyam ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' akademiyami ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' akademiyu ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' akademi ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' akademie ', dirtystring)>0 then set tempstring=concat(tempstring,'akad '); end if;
if locate(' allgemeiner ', dirtystring)>0 then set tempstring=concat(tempstring,'allg '); end if;
if locate(' allgemeine ', dirtystring)>0 then set tempstring=concat(tempstring,'allg '); end if;
if locate(' antrepriza ', dirtystring)>0 then set tempstring=concat(tempstring,'antr '); end if;
if locate(' apararii ', dirtystring)>0 then set tempstring=concat(tempstring,'apar '); end if;
if locate(' aparate ', dirtystring)>0 then set tempstring=concat(tempstring,'apar '); end if;
if locate(' aparatelor ', dirtystring)>0 then set tempstring=concat(tempstring,'apar '); end if;
if locate(' apparate ', dirtystring)>0 then set tempstring=concat(tempstring,'app '); end if;
if locate(' apparatebau ', dirtystring)>0 then set tempstring=concat(tempstring,'app '); end if;
if locate(' apparatus ', dirtystring)>0 then set tempstring=concat(tempstring,'app '); end if;
if locate(' apparechhi ', dirtystring)>0 then set tempstring=concat(tempstring,'app '); end if;
if locate(' appareil ', dirtystring)>0 then set tempstring=concat(tempstring,'app '); end if;
if locate(' appareillages ', dirtystring)>0 then set tempstring=concat(tempstring,'app '); end if;
if locate(' appareils ', dirtystring)>0 then set tempstring=concat(tempstring,'app '); end if;
if locate(' appareillage ', dirtystring)>0 then set tempstring=concat(tempstring,'app '); end if;
if locate(' applications ', dirtystring)>0 then set tempstring=concat(tempstring,'appl '); end if;
if locate(' applicazione ', dirtystring)>0 then set tempstring=concat(tempstring,'appl '); end if;
if locate(' applicazioni ', dirtystring)>0 then set tempstring=concat(tempstring,'appl '); end if;
if locate(' application ', dirtystring)>0 then set tempstring=concat(tempstring,'appl '); end if;
if locate(' anpartsselskabet ', dirtystring)>0 then set tempstring=concat(tempstring,'aps '); end if;
if locate(' anpartsselskab ', dirtystring)>0 then set tempstring=concat(tempstring,'aps '); end if;
if locate(' a/s ', dirtystring)>0 then set tempstring=concat(tempstring,'as '); end if;
if locate(' aktieselskabet ', dirtystring)>0 then set tempstring=concat(tempstring,'as '); end if;
if locate(' aktieselskab ', dirtystring)>0 then set tempstring=concat(tempstring,'as '); end if;
if locate(' associacao ', dirtystring)>0 then set tempstring=concat(tempstring,'assoc '); end if;
if locate(' associate ', dirtystring)>0 then set tempstring=concat(tempstring,'assoc '); end if;
if locate(' associated ', dirtystring)>0 then set tempstring=concat(tempstring,'assoc '); end if;
if locate(' associates ', dirtystring)>0 then set tempstring=concat(tempstring,'assoc '); end if;
if locate(' association ', dirtystring)>0 then set tempstring=concat(tempstring,'assoc '); end if;
if locate(' beteiligungsgesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'bet-ges '); end if;
if locate(' beteiligungsgesellschaft mbh ', dirtystring)>0 then set tempstring=concat(tempstring,'bet-gmbh '); end if;
if locate(' beteiligungs gesellschaft mit ', dirtystring)>0 then set tempstring=concat(tempstring,'bet-gmbh '); end if;
if locate(' beschrankter haftung ', dirtystring)>0 then set tempstring=concat(tempstring,'bet-gmbh '); end if;
if locate(' broderna ', dirtystring)>0 then set tempstring=concat(tempstring,'brdr '); end if;
if locate(' brodrene ', dirtystring)>0 then set tempstring=concat(tempstring,'brdr '); end if;
if locate(' broederna ', dirtystring)>0 then set tempstring=concat(tempstring,'brdr '); end if;
if locate(' broedrene ', dirtystring)>0 then set tempstring=concat(tempstring,'brdr '); end if;
if locate(' brothers ', dirtystring)>0 then set tempstring=concat(tempstring,'bros '); end if;
if locate(' besloten vennootschap ', dirtystring)>0 then set tempstring=concat(tempstring,'bv '); end if;
if locate(' besloten vennootschap met ', dirtystring)>0 then set tempstring=concat(tempstring,'bv '); end if;
if locate(' beperkte aansprakelijkheid ', dirtystring)>0 then set tempstring=concat(tempstring,'bv '); end if;
if locate(' close corporation ', dirtystring)>0 then set tempstring=concat(tempstring,'cc '); end if;
if locate(' center ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' centraal ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' central ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' centrala ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' centrales ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' centraux ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' centre ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' centro ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' centrul ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' centrum ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' centrale ', dirtystring)>0 then set tempstring=concat(tempstring,'cent '); end if;
if locate(' cercetare ', dirtystring)>0 then set tempstring=concat(tempstring,'cerc '); end if;
if locate(' cercetari ', dirtystring)>0 then set tempstring=concat(tempstring,'cerc '); end if;
if locate(' chemicals ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemicke ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemickej ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemicky ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemickych ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemiczne ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemiczny ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemie ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemii ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemisch ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemische ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemiskej ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemistry ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chemical ', dirtystring)>0 then set tempstring=concat(tempstring,'chem '); end if;
if locate(' chimic ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimica ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimice ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimici ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimico ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimie ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimiei ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimieskoj ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimii ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimiko ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimiques ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimiya ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimiyakh ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimiyam ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimiyami ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimiyu ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' chimique ', dirtystring)>0 then set tempstring=concat(tempstring,'chim '); end if;
if locate(' compagnia ', dirtystring)>0 then set tempstring=concat(tempstring,'cia  '); end if;
if locate(' companhia ', dirtystring)>0 then set tempstring=concat(tempstring,'cia  '); end if;
if locate(' compagnie ', dirtystring)>0 then set tempstring=concat(tempstring,'cie  '); end if;
if locate(' compagnie francaise ', dirtystring)>0 then set tempstring=concat(tempstring,'cie fr '); end if;
if locate(' compagnie generale ', dirtystring)>0 then set tempstring=concat(tempstring,'cie gen '); end if;
if locate(' compagnie industriale ', dirtystring)>0 then set tempstring=concat(tempstring,'cie ind '); end if;
if locate(' compagnie industrielle ', dirtystring)>0 then set tempstring=concat(tempstring,'cie ind '); end if;
if locate(' compagnie industrielles ', dirtystring)>0 then set tempstring=concat(tempstring,'cie ind '); end if;
if locate(' compagnie internationale ', dirtystring)>0 then set tempstring=concat(tempstring,'cie int  '); end if;
if locate(' compagnie nationale ', dirtystring)>0 then set tempstring=concat(tempstring,'cie nat '); end if;
if locate(' compagnie parisien ', dirtystring)>0 then set tempstring=concat(tempstring,'cie paris '); end if;
if locate(' compagnie parisienn ', dirtystring)>0 then set tempstring=concat(tempstring,'cie paris '); end if;
if locate(' compagnie parisienne ', dirtystring)>0 then set tempstring=concat(tempstring,'cie paris '); end if;
if locate(' companies ', dirtystring)>0 then set tempstring=concat(tempstring,'co '); end if;
if locate(' company ', dirtystring)>0 then set tempstring=concat(tempstring,'co '); end if;
if locate(' combinatul ', dirtystring)>0 then set tempstring=concat(tempstring,'comb '); end if;
if locate(' commerciale ', dirtystring)>0 then set tempstring=concat(tempstring,'comml '); end if;
if locate(' commercial ', dirtystring)>0 then set tempstring=concat(tempstring,'comml '); end if;
if locate(' consolidated ', dirtystring)>0 then set tempstring=concat(tempstring,'consol '); end if;
if locate(' construccion ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' construcciones ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' constructie ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' constructii ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' constructiilor ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' constructions ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' constructor ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' constructortul ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' constructorul ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' construccione ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' construction ', dirtystring)>0 then set tempstring=concat(tempstring,'constr '); end if;
if locate(' co-operatives ', dirtystring)>0 then set tempstring=concat(tempstring,'coop '); end if;
if locate(' cooperatieve ', dirtystring)>0 then set tempstring=concat(tempstring,'coop '); end if;
if locate(' cooperativa ', dirtystring)>0 then set tempstring=concat(tempstring,'coop '); end if;
if locate(' cooperatives ', dirtystring)>0 then set tempstring=concat(tempstring,'coop '); end if;
if locate(' co-operative ', dirtystring)>0 then set tempstring=concat(tempstring,'coop '); end if;
if locate(' cooperative ', dirtystring)>0 then set tempstring=concat(tempstring,'coop '); end if;
if locate(' corporate ', dirtystring)>0 then set tempstring=concat(tempstring,'corp '); end if;
if locate(' corporation ', dirtystring)>0 then set tempstring=concat(tempstring,'corp '); end if;
if locate(' costruzioni ', dirtystring)>0 then set tempstring=concat(tempstring,'costr '); end if;
if locate(' deutschen ', dirtystring)>0 then set tempstring=concat(tempstring,'ddr  '); end if;
if locate(' demokratischen republik ', dirtystring)>0 then set tempstring=concat(tempstring,'ddr  '); end if;
if locate(' deutsche ', dirtystring)>0 then set tempstring=concat(tempstring,'ddr  '); end if;
if locate(' demokratische ', dirtystring)>0 then set tempstring=concat(tempstring,'ddr  '); end if;
if locate(' departement ', dirtystring)>0 then set tempstring=concat(tempstring,'dept '); end if;
if locate(' department ', dirtystring)>0 then set tempstring=concat(tempstring,'dept '); end if;
if locate(' deutsch ', dirtystring)>0 then set tempstring=concat(tempstring,'deut '); end if;
if locate(' deutsches ', dirtystring)>0 then set tempstring=concat(tempstring,'deut '); end if;
if locate(' deutschen ', dirtystring)>0 then set tempstring=concat(tempstring,'deut '); end if;
if locate(' deutscher ', dirtystring)>0 then set tempstring=concat(tempstring,'deut '); end if;
if locate(' deutschland ', dirtystring)>0 then set tempstring=concat(tempstring,'deut '); end if;
if locate(' deutsche ', dirtystring)>0 then set tempstring=concat(tempstring,'deut '); end if;
if locate(' develop ', dirtystring)>0 then set tempstring=concat(tempstring,'dev  '); end if;
if locate(' developments ', dirtystring)>0 then set tempstring=concat(tempstring,'dev  '); end if;
if locate(' developpements ', dirtystring)>0 then set tempstring=concat(tempstring,'dev  '); end if;
if locate(' development ', dirtystring)>0 then set tempstring=concat(tempstring,'dev  '); end if;
if locate(' developpement ', dirtystring)>0 then set tempstring=concat(tempstring,'dev  '); end if;
if locate(' divisione ', dirtystring)>0 then set tempstring=concat(tempstring,'div  '); end if;
if locate(' division ', dirtystring)>0 then set tempstring=concat(tempstring,'div  '); end if;
if locate(' engineering ', dirtystring)>0 then set tempstring=concat(tempstring,'eng  '); end if;
if locate(' equipements ', dirtystring)>0 then set tempstring=concat(tempstring,'equip '); end if;
if locate(' equipments ', dirtystring)>0 then set tempstring=concat(tempstring,'equip '); end if;
if locate(' equipement ', dirtystring)>0 then set tempstring=concat(tempstring,'equip '); end if;
if locate(' equipment ', dirtystring)>0 then set tempstring=concat(tempstring,'equip '); end if;
if locate(' establishments ', dirtystring)>0 then set tempstring=concat(tempstring,'estab '); end if;
if locate(' establissements ', dirtystring)>0 then set tempstring=concat(tempstring,'estab '); end if;
if locate(' establishment ', dirtystring)>0 then set tempstring=concat(tempstring,'estab '); end if;
if locate(' establissement ', dirtystring)>0 then set tempstring=concat(tempstring,'estab '); end if;
if locate(' etablissements ', dirtystring)>0 then set tempstring=concat(tempstring,'etab '); end if;
if locate(' etabs ', dirtystring)>0 then set tempstring=concat(tempstring,'etab '); end if;
if locate(' ets ', dirtystring)>0 then set tempstring=concat(tempstring,'etab '); end if;
if locate(' etablissement ', dirtystring)>0 then set tempstring=concat(tempstring,'etab '); end if;
if locate(' etudes ', dirtystring)>0 then set tempstring=concat(tempstring,'etud '); end if;
if locate(' etude ', dirtystring)>0 then set tempstring=concat(tempstring,'etud '); end if;
if locate(' europaeischen ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' europaeisches ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' europaischen ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' europaisches ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' europe ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' europea ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' european ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' europeen ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' europeenne ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' europaeische ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' europaische ', dirtystring)>0 then set tempstring=concat(tempstring,'euro '); end if;
if locate(' eingetragener verein ', dirtystring)>0 then set tempstring=concat(tempstring,'ev '); end if;
if locate(' exploaterings ', dirtystring)>0 then set tempstring=concat(tempstring,'expl '); end if;
if locate(' exploitatie ', dirtystring)>0 then set tempstring=concat(tempstring,'expl '); end if;
if locate(' exploitations ', dirtystring)>0 then set tempstring=concat(tempstring,'expl '); end if;
if locate(' exploatering ', dirtystring)>0 then set tempstring=concat(tempstring,'expl '); end if;
if locate(' exploitation ', dirtystring)>0 then set tempstring=concat(tempstring,'expl '); end if;
if locate(' firma ', dirtystring)>0 then set tempstring=concat(tempstring,'fa '); end if;
if locate(' fabbricazioni ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabbriche ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabrica ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabrications ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabrieken ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabriker ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabriques ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabrizio ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabryka ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabrication ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabriek ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabrik ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabrique ', dirtystring)>0 then set tempstring=concat(tempstring,'fab '); end if;
if locate(' fabbrica ', dirtystring)>0 then set tempstring=concat(tempstring,'fab  '); end if;
if locate(' farmaceutica ', dirtystring)>0 then set tempstring=concat(tempstring,'farm '); end if;
if locate(' farmaceutice ', dirtystring)>0 then set tempstring=concat(tempstring,'farm '); end if;
if locate(' farmaceutiche ', dirtystring)>0 then set tempstring=concat(tempstring,'farm '); end if;
if locate(' farmaceutici ', dirtystring)>0 then set tempstring=concat(tempstring,'farm '); end if;
if locate(' farmaceuticos ', dirtystring)>0 then set tempstring=concat(tempstring,'farm '); end if;
if locate(' farmaceutisk ', dirtystring)>0 then set tempstring=concat(tempstring,'farm '); end if;
if locate(' farmacevtskih ', dirtystring)>0 then set tempstring=concat(tempstring,'farm '); end if;
if locate(' farmacie ', dirtystring)>0 then set tempstring=concat(tempstring,'farm '); end if;
if locate(' farmaceutico ', dirtystring)>0 then set tempstring=concat(tempstring,'farm '); end if;
if locate(' fondation ', dirtystring)>0 then set tempstring=concat(tempstring,'fond '); end if;
if locate(' fondazione ', dirtystring)>0 then set tempstring=concat(tempstring,'fond '); end if;
if locate(' foundations ', dirtystring)>0 then set tempstring=concat(tempstring,'found '); end if;
if locate(' foundation ', dirtystring)>0 then set tempstring=concat(tempstring,'found '); end if;
if locate(' francaise ', dirtystring)>0 then set tempstring=concat(tempstring,'fr '); end if;
if locate(' francais ', dirtystring)>0 then set tempstring=concat(tempstring,'fr '); end if;
if locate(' f lli ', dirtystring)>0 then set tempstring=concat(tempstring,'frat '); end if;
if locate(' flli ', dirtystring)>0 then set tempstring=concat(tempstring,'frat '); end if;
if locate(' fratelli ', dirtystring)>0 then set tempstring=concat(tempstring,'frat '); end if;
if locate(' geb ', dirtystring)>0 then set tempstring=concat(tempstring,'gebr '); end if;
if locate(' gebroders ', dirtystring)>0 then set tempstring=concat(tempstring,'gebr '); end if;
if locate(' gebroeders ', dirtystring)>0 then set tempstring=concat(tempstring,'gebr '); end if;
if locate(' gebruders ', dirtystring)>0 then set tempstring=concat(tempstring,'gebr '); end if;
if locate(' gebrueders ', dirtystring)>0 then set tempstring=concat(tempstring,'gebr '); end if;
if locate(' gebroder ', dirtystring)>0 then set tempstring=concat(tempstring,'gebr '); end if;
if locate(' gebroeder ', dirtystring)>0 then set tempstring=concat(tempstring,'gebr '); end if;
if locate(' gebruder ', dirtystring)>0 then set tempstring=concat(tempstring,'gebr '); end if;
if locate(' gebrueder ', dirtystring)>0 then set tempstring=concat(tempstring,'gebr '); end if;
if locate(' generala ', dirtystring)>0 then set tempstring=concat(tempstring,'gen '); end if;
if locate(' generales ', dirtystring)>0 then set tempstring=concat(tempstring,'gen '); end if;
if locate(' generaux ', dirtystring)>0 then set tempstring=concat(tempstring,'gen '); end if;
if locate(' generale ', dirtystring)>0 then set tempstring=concat(tempstring,'gen '); end if;
if locate(' general ', dirtystring)>0 then set tempstring=concat(tempstring,'gen  '); end if;
if locate(' gesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'ges  '); end if;
if locate(' gewerkschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'gew  '); end if;
if locate(' gakko hojin ', dirtystring)>0 then set tempstring=concat(tempstring,'gh '); end if;
if locate(' gakko houjin ', dirtystring)>0 then set tempstring=concat(tempstring,'gh '); end if;
if locate(' gutehoffnungschuette ', dirtystring)>0 then set tempstring=concat(tempstring,'ghh  '); end if;
if locate(' gutehoffnungschutte ', dirtystring)>0 then set tempstring=concat(tempstring,'ghh  '); end if;
if locate(' gomei gaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'gk '); end if;
if locate(' gomei kaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'gk '); end if;
if locate(' goshi kaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'gk '); end if;
if locate(' gkgoushi gaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'gk '); end if;
if locate(' gesellschaft mbh ', dirtystring)>0 then set tempstring=concat(tempstring,'gmbh '); end if;
if locate(' gesellschaft mit ', dirtystring)>0 then set tempstring=concat(tempstring,'gmbh '); end if;
if locate(' beschrankter haftung ', dirtystring)>0 then set tempstring=concat(tempstring,'gmbh '); end if;
if locate(' groupment ', dirtystring)>0 then set tempstring=concat(tempstring,'grp '); end if;
if locate(' groupement ', dirtystring)>0 then set tempstring=concat(tempstring,'grp  '); end if;
if locate(' handelsmaatschappij ', dirtystring)>0 then set tempstring=concat(tempstring,'handl '); end if;
if locate(' handelsmij ', dirtystring)>0 then set tempstring=concat(tempstring,'handl '); end if;
if locate(' handels bolaget ', dirtystring)>0 then set tempstring=concat(tempstring,'hb '); end if;
if locate(' handelsbolaget ', dirtystring)>0 then set tempstring=concat(tempstring,'hb '); end if;
if locate(' incorporation ', dirtystring)>0 then set tempstring=concat(tempstring,'inc '); end if;
if locate(' incorporated ', dirtystring)>0 then set tempstring=concat(tempstring,'inc  '); end if;
if locate(' industrias ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrials ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriala ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriale ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriali ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrializare ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrializarea ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrie ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrieele ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriei ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriels ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriell ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrielles ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrier ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industries ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrii ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrij ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriya ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriyakh ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriyam ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriyami ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriyu ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industry ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industria ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrial ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industriel ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industrielle ', dirtystring)>0 then set tempstring=concat(tempstring,'ind '); end if;
if locate(' industri ', dirtystring)>0 then set tempstring=concat(tempstring,'ind  '); end if;
if locate(' ingenieria ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenieurs ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenieurbuero ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenieurbureau ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenieurburo ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenieurgesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenieursbureau ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenieurtechnisches ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenioerfirmaet ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingeniorsfirma ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingeniorsfirman ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenjorsfirma ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' inginerie ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenieur ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenieurtechnische ', dirtystring)>0 then set tempstring=concat(tempstring,'ing '); end if;
if locate(' ingenier ', dirtystring)>0 then set tempstring=concat(tempstring,'ing  '); end if;
if locate(' institut ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' instituta ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institutam ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institutami ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institutamkh ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institutes ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institutet ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' instituto ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' inst institutom ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institutov ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institutt ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institutu ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institutul ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' instituty ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' instituut ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institzht ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' instytut ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institute ', dirtystring)>0 then set tempstring=concat(tempstring,'inst '); end if;
if locate(' institute francaise ', dirtystring)>0 then set tempstring=concat(tempstring,'inst fr '); end if;
if locate(' institut ', dirtystring)>0 then set tempstring=concat(tempstring,'inst fr '); end if;
if locate(' institute nationale ', dirtystring)>0 then set tempstring=concat(tempstring,'inst nat  '); end if;
if locate(' institut ', dirtystring)>0 then set tempstring=concat(tempstring,'inst nat  '); end if;
if locate(' insinoeoeritomisto ', dirtystring)>0 then set tempstring=concat(tempstring,'instmsto '); end if;
if locate(' insino ', dirtystring)>0 then set tempstring=concat(tempstring,'instmsto '); end if;
if locate(' instruments ', dirtystring)>0 then set tempstring=concat(tempstring,'instr '); end if;
if locate(' instrumentation ', dirtystring)>0 then set tempstring=concat(tempstring,'instr '); end if;
if locate(' instrumente ', dirtystring)>0 then set tempstring=concat(tempstring,'instr '); end if;
if locate(' instrument ', dirtystring)>0 then set tempstring=concat(tempstring,'instr '); end if;
if locate(' international ', dirtystring)>0 then set tempstring=concat(tempstring,'int '); end if;
if locate(' internationalen ', dirtystring)>0 then set tempstring=concat(tempstring,'int '); end if;
if locate(' internationaux ', dirtystring)>0 then set tempstring=concat(tempstring,'int '); end if;
if locate(' internationella ', dirtystring)>0 then set tempstring=concat(tempstring,'int '); end if;
if locate(' internazionale ', dirtystring)>0 then set tempstring=concat(tempstring,'int '); end if;
if locate(' internationale ', dirtystring)>0 then set tempstring=concat(tempstring,'int '); end if;
if locate(' internacional ', dirtystring)>0 then set tempstring=concat(tempstring,'int  '); end if;
if locate(' intreprinderea ', dirtystring)>0 then set tempstring=concat(tempstring,'intr '); end if;
if locate(' istituto ', dirtystring)>0 then set tempstring=concat(tempstring,'ist  '); end if;
if locate(' itali ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' italia ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' italian ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' italiana ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' italiane ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' italiani ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' italiano ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' italien ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' italienne ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' italo ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' italy ', dirtystring)>0 then set tempstring=concat(tempstring,'ital '); end if;
if locate(' kommandit bolag ', dirtystring)>0 then set tempstring=concat(tempstring,'kb '); end if;
if locate(' kommandit bolaget ', dirtystring)>0 then set tempstring=concat(tempstring,'kb '); end if;
if locate(' kommanditbolag ', dirtystring)>0 then set tempstring=concat(tempstring,'kb '); end if;
if locate(' kommanditbolaget ', dirtystring)>0 then set tempstring=concat(tempstring,'kb '); end if;
if locate(' kommandit gesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'kg '); end if;
if locate(' kommanditgesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'kg '); end if;
if locate(' kommandit gesellschaft auf aktien ', dirtystring)>0 then set tempstring=concat(tempstring,'kgaa '); end if;
if locate(' kommanditgesellschaft auf aktien ', dirtystring)>0 then set tempstring=concat(tempstring,'kgaa '); end if;
if locate(' kutato intezet ', dirtystring)>0 then set tempstring=concat(tempstring,'ki '); end if;
if locate(' kutato intezete ', dirtystring)>0 then set tempstring=concat(tempstring,'ki '); end if;
if locate(' kutatointezet ', dirtystring)>0 then set tempstring=concat(tempstring,'ki '); end if;
if locate(' kutatointezete ', dirtystring)>0 then set tempstring=concat(tempstring,'ki '); end if;
if locate(' kabushiki gaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'kk '); end if;
if locate(' kabushiki kaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'kk '); end if;
if locate(' kabushiki kaisya ', dirtystring)>0 then set tempstring=concat(tempstring,'kk '); end if;
if locate(' kabushikikaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'kk '); end if;
if locate(' kabushikikaisya ', dirtystring)>0 then set tempstring=concat(tempstring,'kk '); end if;
if locate(' kombinat ', dirtystring)>0 then set tempstring=concat(tempstring,'komb '); end if;
if locate(' kombinatu ', dirtystring)>0 then set tempstring=concat(tempstring,'komb '); end if;
if locate(' kombinaty ', dirtystring)>0 then set tempstring=concat(tempstring,'komb '); end if;
if locate(' koninklijke ', dirtystring)>0 then set tempstring=concat(tempstring,'konink '); end if;
if locate(' koncernovy podnik ', dirtystring)>0 then set tempstring=concat(tempstring,'kp '); end if;
if locate(' kunststoff ', dirtystring)>0 then set tempstring=concat(tempstring,'kunst '); end if;
if locate(' kunststofftechnik ', dirtystring)>0 then set tempstring=concat(tempstring,'kunst '); end if;
if locate(' laboratoires ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratori ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratoriei ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratories ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratorii ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratorij ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratorios ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratorium ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratory ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' labortori ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratoire ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratorio ', dirtystring)>0 then set tempstring=concat(tempstring,'lab '); end if;
if locate(' laboratoir ', dirtystring)>0 then set tempstring=concat(tempstring,'lab  '); end if;
if locate(' lavoraza ', dirtystring)>0 then set tempstring=concat(tempstring,'lavoraz '); end if;
if locate(' lavorazi ', dirtystring)>0 then set tempstring=concat(tempstring,'lavoraz '); end if;
if locate(' lavorazio ', dirtystring)>0 then set tempstring=concat(tempstring,'lavoraz '); end if;
if locate(' lavorazione ', dirtystring)>0 then set tempstring=concat(tempstring,'lavoraz '); end if;
if locate(' lavorazioni ', dirtystring)>0 then set tempstring=concat(tempstring,'lavoraz '); end if;
if locate(' limited partnership ', dirtystring)>0 then set tempstring=concat(tempstring,'lp '); end if;
if locate(' limited ', dirtystring)>0 then set tempstring=concat(tempstring,'ltd  '); end if;
if locate(' limitada ', dirtystring)>0 then set tempstring=concat(tempstring,'ltda '); end if;
if locate(' maschin ', dirtystring)>0 then set tempstring=concat(tempstring,'masch '); end if;
if locate(' maschinen ', dirtystring)>0 then set tempstring=concat(tempstring,'masch '); end if;
if locate(' maschinenvertrieb ', dirtystring)>0 then set tempstring=concat(tempstring,'masch '); end if;
if locate(' maschinenbau ', dirtystring)>0 then set tempstring=concat(tempstring,'maschbau '); end if;
if locate(' maschinenbauanstalt ', dirtystring)>0 then set tempstring=concat(tempstring,'maschbau '); end if;
if locate(' maschinenfab ', dirtystring)>0 then set tempstring=concat(tempstring,'maschfab '); end if;
if locate(' maschinenfabriek ', dirtystring)>0 then set tempstring=concat(tempstring,'maschfab '); end if;
if locate(' maschinenfabriken ', dirtystring)>0 then set tempstring=concat(tempstring,'maschfab '); end if;
if locate(' maschinenfabrik ', dirtystring)>0 then set tempstring=concat(tempstring,'maschfab '); end if;
if locate(' mit beschrankter haftung ', dirtystring)>0 then set tempstring=concat(tempstring,'mbh  '); end if;
if locate(' manufacturings ', dirtystring)>0 then set tempstring=concat(tempstring,'mfg  '); end if;
if locate(' manufacturing ', dirtystring)>0 then set tempstring=concat(tempstring,'mfg  '); end if;
if locate(' manifatturas ', dirtystring)>0 then set tempstring=concat(tempstring,'mfr  '); end if;
if locate(' manifatture ', dirtystring)>0 then set tempstring=concat(tempstring,'mfr  '); end if;
if locate(' manufacturas ', dirtystring)>0 then set tempstring=concat(tempstring,'mfr  '); end if;
if locate(' manufacture ', dirtystring)>0 then set tempstring=concat(tempstring,'mfr  '); end if;
if locate(' manufacturers ', dirtystring)>0 then set tempstring=concat(tempstring,'mfr  '); end if;
if locate(' manufactures ', dirtystring)>0 then set tempstring=concat(tempstring,'mfr  '); end if;
if locate(' manufatura ', dirtystring)>0 then set tempstring=concat(tempstring,'mfr  '); end if;
if locate(' manifattura ', dirtystring)>0 then set tempstring=concat(tempstring,'mfr  '); end if;
if locate(' manufacturer ', dirtystring)>0 then set tempstring=concat(tempstring,'mfr  '); end if;
if locate(' maatschappij ', dirtystring)>0 then set tempstring=concat(tempstring,'mij '); end if;
if locate(' ministere ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerium ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministero ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerstv ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerstva ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerstvakh ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerstvam ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerstvami ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerstve ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerstvo ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerstvom ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerstvu ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerstwo ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministerul ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministre ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' ministry ', dirtystring)>0 then set tempstring=concat(tempstring,'min '); end if;
if locate(' minister ', dirtystring)>0 then set tempstring=concat(tempstring,'min  '); end if;
if locate(' magyar tudomanyos akademia ', dirtystring)>0 then set tempstring=concat(tempstring,'mta  '); end if;
if locate(' nationale ', dirtystring)>0 then set tempstring=concat(tempstring,'nat '); end if;
if locate(' nationaux ', dirtystring)>0 then set tempstring=concat(tempstring,'nat '); end if;
if locate(' nationaal ', dirtystring)>0 then set tempstring=concat(tempstring,'nat  '); end if;
if locate(' national ', dirtystring)>0 then set tempstring=concat(tempstring,'nat  '); end if;
if locate(' nazionale ', dirtystring)>0 then set tempstring=concat(tempstring,'naz  '); end if;
if locate(' nazionali ', dirtystring)>0 then set tempstring=concat(tempstring,'naz  '); end if;
if locate(' norddeutsch ', dirtystring)>0 then set tempstring=concat(tempstring,'norddeut '); end if;
if locate(' norddeutsche ', dirtystring)>0 then set tempstring=concat(tempstring,'norddeut '); end if;
if locate(' norddeutscher ', dirtystring)>0 then set tempstring=concat(tempstring,'norddeut '); end if;
if locate(' norddeutsches ', dirtystring)>0 then set tempstring=concat(tempstring,'norddeut '); end if;
if locate(' narodni podnik ', dirtystring)>0 then set tempstring=concat(tempstring,'np '); end if;
if locate(' narodnij podnik ', dirtystring)>0 then set tempstring=concat(tempstring,'np '); end if;
if locate(' narodny podnik ', dirtystring)>0 then set tempstring=concat(tempstring,'np '); end if;
if locate(' naamloose venootschap ', dirtystring)>0 then set tempstring=concat(tempstring,'nv '); end if;
if locate(' naamloze vennootschap ', dirtystring)>0 then set tempstring=concat(tempstring,'nv '); end if;
if locate(' oesterreich ', dirtystring)>0 then set tempstring=concat(tempstring,'oesterr '); end if;
if locate(' oesterreichisch ', dirtystring)>0 then set tempstring=concat(tempstring,'oesterr '); end if;
if locate(' oesterreichisches ', dirtystring)>0 then set tempstring=concat(tempstring,'oesterr '); end if;
if locate(' osterreich ', dirtystring)>0 then set tempstring=concat(tempstring,'oesterr '); end if;
if locate(' oesterreichische ', dirtystring)>0 then set tempstring=concat(tempstring,'oesterr '); end if;
if locate(' officine meccanica ', dirtystring)>0 then set tempstring=concat(tempstring,'off mec '); end if;
if locate(' officine meccaniche ', dirtystring)>0 then set tempstring=concat(tempstring,'off mec '); end if;
if locate(' officine nationale ', dirtystring)>0 then set tempstring=concat(tempstring,'off nat  '); end if;
if locate(' offene handelsgesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'ohg  '); end if;
if locate(' ontwikkelings ', dirtystring)>0 then set tempstring=concat(tempstring,'ontwik '); end if;
if locate(' ontwikkelingsbureau ', dirtystring)>0 then set tempstring=concat(tempstring,'ontwik '); end if;
if locate(' oborovy podnik ', dirtystring)>0 then set tempstring=concat(tempstring,'op '); end if;
if locate(' organisatie ', dirtystring)>0 then set tempstring=concat(tempstring,'org '); end if;
if locate(' organisations ', dirtystring)>0 then set tempstring=concat(tempstring,'org '); end if;
if locate(' organizations ', dirtystring)>0 then set tempstring=concat(tempstring,'org '); end if;
if locate(' organizzazione ', dirtystring)>0 then set tempstring=concat(tempstring,'org '); end if;
if locate(' oyosakeyhtio ', dirtystring)>0 then set tempstring=concat(tempstring,'org '); end if;
if locate(' organisation ', dirtystring)>0 then set tempstring=concat(tempstring,'org '); end if;
if locate(' organization ', dirtystring)>0 then set tempstring=concat(tempstring,'org '); end if;
if locate(' osterreichisch ', dirtystring)>0 then set tempstring=concat(tempstring,'oste '); end if;
if locate(' osterreichisches ', dirtystring)>0 then set tempstring=concat(tempstring,'oste '); end if;
if locate(' osterreichische ', dirtystring)>0 then set tempstring=concat(tempstring,'oste '); end if;
if locate(' pharmaceutica ', dirtystring)>0 then set tempstring=concat(tempstring,'pharm '); end if;
if locate(' pharmaceuticals ', dirtystring)>0 then set tempstring=concat(tempstring,'pharm '); end if;
if locate(' pharmaceutiques ', dirtystring)>0 then set tempstring=concat(tempstring,'pharm '); end if;
if locate(' pharmazeutika ', dirtystring)>0 then set tempstring=concat(tempstring,'pharm '); end if;
if locate(' pharmazeutisch ', dirtystring)>0 then set tempstring=concat(tempstring,'pharm '); end if;
if locate(' pharmazeutischen ', dirtystring)>0 then set tempstring=concat(tempstring,'pharm '); end if;
if locate(' pharmazie ', dirtystring)>0 then set tempstring=concat(tempstring,'pharm '); end if;
if locate(' pharmaceutical ', dirtystring)>0 then set tempstring=concat(tempstring,'pharm '); end if;
if locate(' pharmaceutique ', dirtystring)>0 then set tempstring=concat(tempstring,'pharm '); end if;
if locate(' pharmazeutische ', dirtystring)>0 then set tempstring=concat(tempstring,'pharm '); end if;
if locate(' public limited company ', dirtystring)>0 then set tempstring=concat(tempstring,'plc  '); end if;
if locate(' prelucrare ', dirtystring)>0 then set tempstring=concat(tempstring,'prel '); end if;
if locate(' prelucrarea ', dirtystring)>0 then set tempstring=concat(tempstring,'preluc '); end if;
if locate(' prodotti ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' produce ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' products ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' productas ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' productie ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' productos ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' productores ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' produits ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' produkcji ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' produkt ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' produkte ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' produkter ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' produse ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' produtos ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' product ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' producta ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' producto ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' produit ', dirtystring)>0 then set tempstring=concat(tempstring,'prod '); end if;
if locate(' produits chimiques ', dirtystring)>0 then set tempstring=concat(tempstring,'prod chim '); end if;
if locate(' produit ', dirtystring)>0 then set tempstring=concat(tempstring,'prod chim '); end if;
if locate(' productions ', dirtystring)>0 then set tempstring=concat(tempstring,'prodn '); end if;
if locate(' produktions ', dirtystring)>0 then set tempstring=concat(tempstring,'prodn '); end if;
if locate(' produzioni ', dirtystring)>0 then set tempstring=concat(tempstring,'prodn '); end if;
if locate(' production ', dirtystring)>0 then set tempstring=concat(tempstring,'prodn '); end if;
if locate(' produktion ', dirtystring)>0 then set tempstring=concat(tempstring,'prodn '); end if;
if locate(' proiectare ', dirtystring)>0 then set tempstring=concat(tempstring,'proi '); end if;
if locate(' proiectari ', dirtystring)>0 then set tempstring=concat(tempstring,'proi '); end if;
if locate(' przedsiebiostwo ', dirtystring)>0 then set tempstring=concat(tempstring,'przedsieb '); end if;
if locate(' przemyslu ', dirtystring)>0 then set tempstring=concat(tempstring,'przeym '); end if;
if locate(' proprietary ', dirtystring)>0 then set tempstring=concat(tempstring,'pty  '); end if;
if locate(' personenvennootschap met beperkte aansprakelijkheid ', dirtystring)>0 then set tempstring=concat(tempstring,'pvba '); end if;
if locate(' realisations ', dirtystring)>0 then set tempstring=concat(tempstring,'real '); end if;
if locate(' realisation ', dirtystring)>0 then set tempstring=concat(tempstring,'real '); end if;
if locate(' recherches ', dirtystring)>0 then set tempstring=concat(tempstring,'rech '); end if;
if locate(' recherche ', dirtystring)>0 then set tempstring=concat(tempstring,'rech '); end if;
if locate(' recherches et developments ', dirtystring)>0 then set tempstring=concat(tempstring,'rech & dev  '); end if;
if locate(' recherches et developpements ', dirtystring)>0 then set tempstring=concat(tempstring,'rech & dev  '); end if;
if locate(' recherche ', dirtystring)>0 then set tempstring=concat(tempstring,'rech & dev  '); end if;
if locate(' recherche ', dirtystring)>0 then set tempstring=concat(tempstring,'rech & dev  '); end if;
if locate(' research ', dirtystring)>0 then set tempstring=concat(tempstring,'res  '); end if;
if locate(' research & development ', dirtystring)>0 then set tempstring=concat(tempstring,'res & dev '); end if;
if locate(' research and development ', dirtystring)>0 then set tempstring=concat(tempstring,'res & dev '); end if;
if locate(' rijksuniversiteit ', dirtystring)>0 then set tempstring=concat(tempstring,'rijksuniv '); end if;
if locate(' sa dite ', dirtystring)>0 then set tempstring=concat(tempstring,'sa '); end if;
if locate(' sociedad anonima ', dirtystring)>0 then set tempstring=concat(tempstring,'sa '); end if;
if locate(' societe anonyme ', dirtystring)>0 then set tempstring=concat(tempstring,'sa '); end if;
if locate(' societe anonyme dite ', dirtystring)>0 then set tempstring=concat(tempstring,'sa '); end if;
if locate(' societe a responsabilite limitee ', dirtystring)>0 then set tempstring=concat(tempstring,'sarl '); end if;
if locate(' societe a responsibilite limitee ', dirtystring)>0 then set tempstring=concat(tempstring,'sarl '); end if;
if locate(' societa in accomandita semplice ', dirtystring)>0 then set tempstring=concat(tempstring,'sas  '); end if;
if locate(' schweizer ', dirtystring)>0 then set tempstring=concat(tempstring,'schweiz '); end if;
if locate(' schweizerisch ', dirtystring)>0 then set tempstring=concat(tempstring,'schweiz '); end if;
if locate(' schweizerisches ', dirtystring)>0 then set tempstring=concat(tempstring,'schweiz '); end if;
if locate(' schweizerischer ', dirtystring)>0 then set tempstring=concat(tempstring,'schweiz '); end if;
if locate(' schweizerische ', dirtystring)>0 then set tempstring=concat(tempstring,'schweiz '); end if;
if locate(' sciences ', dirtystring)>0 then set tempstring=concat(tempstring,'sci '); end if;
if locate(' scientific ', dirtystring)>0 then set tempstring=concat(tempstring,'sci '); end if;
if locate(' scientifica ', dirtystring)>0 then set tempstring=concat(tempstring,'sci '); end if;
if locate(' scientifiques ', dirtystring)>0 then set tempstring=concat(tempstring,'sci '); end if;
if locate(' science ', dirtystring)>0 then set tempstring=concat(tempstring,'sci '); end if;
if locate(' scientifique ', dirtystring)>0 then set tempstring=concat(tempstring,'sci '); end if;
if locate(' secretary ', dirtystring)>0 then set tempstring=concat(tempstring,'sec  '); end if;
if locate(' shadan houjin ', dirtystring)>0 then set tempstring=concat(tempstring,'sh '); end if;
if locate(' shadan ho ', dirtystring)>0 then set tempstring=concat(tempstring,'sh '); end if;
if locate(' siderurgic ', dirtystring)>0 then set tempstring=concat(tempstring,'sider '); end if;
if locate(' siderurgicas ', dirtystring)>0 then set tempstring=concat(tempstring,'sider '); end if;
if locate(' siderurgie ', dirtystring)>0 then set tempstring=concat(tempstring,'sider '); end if;
if locate(' siderurgique ', dirtystring)>0 then set tempstring=concat(tempstring,'sider '); end if;
if locate(' siderurgica ', dirtystring)>0 then set tempstring=concat(tempstring,'sider '); end if;
if locate(' societa in nome collectivo ', dirtystring)>0 then set tempstring=concat(tempstring,'snc '); end if;
if locate(' societe en nom collectif ', dirtystring)>0 then set tempstring=concat(tempstring,'snc '); end if;
if locate(' sociedad ', dirtystring)>0 then set tempstring=concat(tempstring,'soc '); end if;
if locate(' sociedade ', dirtystring)>0 then set tempstring=concat(tempstring,'soc '); end if;
if locate(' societa ', dirtystring)>0 then set tempstring=concat(tempstring,'soc '); end if;
if locate(' societe ', dirtystring)>0 then set tempstring=concat(tempstring,'soc '); end if;
if locate(' society ', dirtystring)>0 then set tempstring=concat(tempstring,'soc '); end if;
if locate(' societe alsacienne ', dirtystring)>0 then set tempstring=concat(tempstring,'soc alsac  '); end if;
if locate(' societe application ', dirtystring)>0 then set tempstring=concat(tempstring,'soc appl  '); end if;
if locate(' societa applicazione ', dirtystring)>0 then set tempstring=concat(tempstring,'soc appl  '); end if;
if locate(' societe auxiliaire ', dirtystring)>0 then set tempstring=concat(tempstring,'soc aux '); end if;
if locate(' societe chimique ', dirtystring)>0 then set tempstring=concat(tempstring,'soc chim  '); end if;
if locate(' sociedad civil ', dirtystring)>0 then set tempstring=concat(tempstring,'soc civ  '); end if;
if locate(' societe civile ', dirtystring)>0 then set tempstring=concat(tempstring,'soc civ  '); end if;
if locate(' societe commerciales ', dirtystring)>0 then set tempstring=concat(tempstring,'soc comml  '); end if;
if locate(' societe commerciale ', dirtystring)>0 then set tempstring=concat(tempstring,'soc comml  '); end if;
if locate(' sociedad espanola ', dirtystring)>0 then set tempstring=concat(tempstring,'soc espan  '); end if;
if locate(' societe etudes ', dirtystring)>0 then set tempstring=concat(tempstring,'soc etud   '); end if;
if locate(' societe etude ', dirtystring)>0 then set tempstring=concat(tempstring,'soc etud   '); end if;
if locate(' societe exploitation ', dirtystring)>0 then set tempstring=concat(tempstring,'soc expl  '); end if;
if locate(' societe generale ', dirtystring)>0 then set tempstring=concat(tempstring,'soc gen  '); end if;
if locate(' societe industrielles ', dirtystring)>0 then set tempstring=concat(tempstring,'soc ind '); end if;
if locate(' societe industrielle ', dirtystring)>0 then set tempstring=concat(tempstring,'soc ind '); end if;
if locate(' societe mecaniques ', dirtystring)>0 then set tempstring=concat(tempstring,'soc mec  '); end if;
if locate(' societe mecanique ', dirtystring)>0 then set tempstring=concat(tempstring,'soc mec  '); end if;
if locate(' societe nationale ', dirtystring)>0 then set tempstring=concat(tempstring,'soc nat  '); end if;
if locate(' societe nouvelle ', dirtystring)>0 then set tempstring=concat(tempstring,'soc nouv  '); end if;
if locate(' societe parisien ', dirtystring)>0 then set tempstring=concat(tempstring,'soc paris  '); end if;
if locate(' societe parisienne ', dirtystring)>0 then set tempstring=concat(tempstring,'soc paris  '); end if;
if locate(' societe parisienn ', dirtystring)>0 then set tempstring=concat(tempstring,'soc paris  '); end if;
if locate(' societe techniques ', dirtystring)>0 then set tempstring=concat(tempstring,'soc tech  '); end if;
if locate(' societe technique ', dirtystring)>0 then set tempstring=concat(tempstring,'soc tech  '); end if;
if locate(' sdruzeni podniku ', dirtystring)>0 then set tempstring=concat(tempstring,'sp  '); end if;
if locate(' sdruzeni podnik ', dirtystring)>0 then set tempstring=concat(tempstring,'sp  '); end if;
if locate(' societa per azioni ', dirtystring)>0 then set tempstring=concat(tempstring,'spa '); end if;
if locate(' spitalul ', dirtystring)>0 then set tempstring=concat(tempstring,'spital '); end if;
if locate(' societe privee a responsabilite limitee ', dirtystring)>0 then set tempstring=concat(tempstring,'sprl '); end if;
if locate(' sociedad de responsabilidad limitada ', dirtystring)>0 then set tempstring=concat(tempstring,'srl  '); end if;
if locate(' stiintifica ', dirtystring)>0 then set tempstring=concat(tempstring,'stiint '); end if;
if locate(' suddeutsch ', dirtystring)>0 then set tempstring=concat(tempstring,'suddeut '); end if;
if locate(' suddeutsches ', dirtystring)>0 then set tempstring=concat(tempstring,'suddeut '); end if;
if locate(' suddeutscher ', dirtystring)>0 then set tempstring=concat(tempstring,'suddeut '); end if;
if locate(' suddeutsche ', dirtystring)>0 then set tempstring=concat(tempstring,'suddeut '); end if;
if locate(' technical ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' technico ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' techniczny ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' technik ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' technikai ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' techniki ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' techniques ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' technisch ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' technisches ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' technique ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' technische ', dirtystring)>0 then set tempstring=concat(tempstring,'tech '); end if;
if locate(' telecommunicacion ', dirtystring)>0 then set tempstring=concat(tempstring,'telecom '); end if;
if locate(' telecommunications ', dirtystring)>0 then set tempstring=concat(tempstring,'telecom '); end if;
if locate(' telecommunicazioni ', dirtystring)>0 then set tempstring=concat(tempstring,'telecom '); end if;
if locate(' telecomunicazioni ', dirtystring)>0 then set tempstring=concat(tempstring,'telecom '); end if;
if locate(' telecommunication ', dirtystring)>0 then set tempstring=concat(tempstring,'telecom '); end if;
if locate(' trustul ', dirtystring)>0 then set tempstring=concat(tempstring,'trust '); end if;
if locate(' united kingdom ', dirtystring)>0 then set tempstring=concat(tempstring,'uk '); end if;
if locate(' secretary of state for ', dirtystring)>0 then set tempstring=concat(tempstring,'uk sec for '); end if;
if locate(' universidade ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universita ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universita degli studi ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitaet ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitaire ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitat ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitatea ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universite ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universiteit ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universiteta ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitetami ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitete ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitetom ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitetov ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitetu ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitety ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' university ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' uniwersytet ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universidad ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitair ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitet ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' universitetam ', dirtystring)>0 then set tempstring=concat(tempstring,'univ '); end if;
if locate(' united states ', dirtystring)>0 then set tempstring=concat(tempstring,'us '); end if;
if locate(' united states of america ', dirtystring)>0 then set tempstring=concat(tempstring,'us '); end if;
if locate(' united states of america administrator of ', dirtystring)>0 then set tempstring=concat(tempstring,'us admin  '); end if;
if locate(' united states of america as represented by the united states department ', dirtystring)>0 then set tempstring=concat(tempstring,'us dept  '); end if;
if locate(' united states government as represented by the secretary of ', dirtystring)>0 then set tempstring=concat(tempstring,'us sec '); end if;
if locate(' united states of america represented by the secretary ', dirtystring)>0 then set tempstring=concat(tempstring,'us sec '); end if;
if locate(' united states of america secretary of ', dirtystring)>0 then set tempstring=concat(tempstring,'us sec '); end if;
if locate(' utilaj ', dirtystring)>0 then set tempstring=concat(tempstring,'util '); end if;
if locate(' utilaje ', dirtystring)>0 then set tempstring=concat(tempstring,'util '); end if;
if locate(' utilisations ', dirtystring)>0 then set tempstring=concat(tempstring,'util '); end if;
if locate(' utilisation ', dirtystring)>0 then set tempstring=concat(tempstring,'util '); end if;
if locate(' volkseigener betriebe ', dirtystring)>0 then set tempstring=concat(tempstring,'veb  '); end if;
if locate(' veb kombinat ', dirtystring)>0 then set tempstring=concat(tempstring,'veb komb  '); end if;
if locate(' verein ', dirtystring)>0 then set tempstring=concat(tempstring,'ver '); end if;
if locate(' vereinigtes ', dirtystring)>0 then set tempstring=concat(tempstring,'ver '); end if;
if locate(' vereinigung ', dirtystring)>0 then set tempstring=concat(tempstring,'ver '); end if;
if locate(' vereniging ', dirtystring)>0 then set tempstring=concat(tempstring,'ver '); end if;
if locate(' vereinigte ', dirtystring)>0 then set tempstring=concat(tempstring,'ver '); end if;
if locate(' vereenigde ', dirtystring)>0 then set tempstring=concat(tempstring,'ver  '); end if;
if locate(' verwaltungen ', dirtystring)>0 then set tempstring=concat(tempstring,'verw '); end if;
if locate(' verwaltungs ', dirtystring)>0 then set tempstring=concat(tempstring,'verw '); end if;
if locate(' verwertungs ', dirtystring)>0 then set tempstring=concat(tempstring,'verw '); end if;
if locate(' verwaltungsgesellschaft ', dirtystring)>0 then set tempstring=concat(tempstring,'verw ges  '); end if;
if locate(' vyzk ustav ', dirtystring)>0 then set tempstring=concat(tempstring,'vu '); end if;
if locate(' vyzkumny ustav ', dirtystring)>0 then set tempstring=concat(tempstring,'vu '); end if;
if locate(' vyzkumnyustav ', dirtystring)>0 then set tempstring=concat(tempstring,'vu '); end if;
if locate(' vereinigung volkseigener betriebung ', dirtystring)>0 then set tempstring=concat(tempstring,'vvb '); end if;
if locate(' vyzkumny vyvojovy ustav ', dirtystring)>0 then set tempstring=concat(tempstring,'vvu '); end if;
if locate(' vyzk vyvojovy ustav ', dirtystring)>0 then set tempstring=concat(tempstring,'vvu  '); end if;
if locate(' werkzeugmaschinenkombinat ', dirtystring)>0 then set tempstring=concat(tempstring,'werkz masch komb '); end if;
if locate(' werkzeugmaschinenfabrik ', dirtystring)>0 then set tempstring=concat(tempstring,'werkz maschfab '); end if;
if locate(' westdeutsch ', dirtystring)>0 then set tempstring=concat(tempstring,'westdeut '); end if;
if locate(' westdeutsches ', dirtystring)>0 then set tempstring=concat(tempstring,'westdeut '); end if;
if locate(' westdeutscher ', dirtystring)>0 then set tempstring=concat(tempstring,'westdeut '); end if;
if locate(' westdeutsche ', dirtystring)>0 then set tempstring=concat(tempstring,'westdeut '); end if;
if locate(' wissenschaftliches ', dirtystring)>0 then set tempstring=concat(tempstring,'wiss '); end if;
if locate(' wissenschaftliche ', dirtystring)>0 then set tempstring=concat(tempstring,'wiss '); end if;
if locate(' wissenschaftliches technisches zentrum ', dirtystring)>0 then set tempstring=concat(tempstring,'wtz  '); end if;
if locate(' yugen gaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'yg '); end if;
if locate(' yugen kaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'yg '); end if;
if locate(' yuugen gaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'yg '); end if;
if locate(' yuugen kaisha ', dirtystring)>0 then set tempstring=concat(tempstring,'yg '); end if;
if locate(' yuugen kaisya ', dirtystring)>0 then set tempstring=concat(tempstring,'yg '); end if;
if locate(' zavodu ', dirtystring)>0 then set tempstring=concat(tempstring,'zavod '); end if;
if locate(' zavody ', dirtystring)>0 then set tempstring=concat(tempstring,'zavod '); end if;
if locate(' zentrales ', dirtystring)>0 then set tempstring=concat(tempstring,'zent '); end if;
if locate(' zentralen ', dirtystring)>0 then set tempstring=concat(tempstring,'zent '); end if;
if locate(' zentralna ', dirtystring)>0 then set tempstring=concat(tempstring,'zent '); end if;
if locate(' zentrum ', dirtystring)>0 then set tempstring=concat(tempstring,'zent '); end if;
if locate(' zentrale ', dirtystring)>0 then set tempstring=concat(tempstring,'zent '); end if;
if locate(' zentralinstitut ', dirtystring)>0 then set tempstring=concat(tempstring,'zent inst  '); end if;
if locate(' zentrallaboratorium ', dirtystring)>0 then set tempstring=concat(tempstring,'zent lab  '); end if;
if locate(' zaidan hojin ', dirtystring)>0 then set tempstring=concat(tempstring,'zh '); end if;
if locate(' zaidan houjin ', dirtystring)>0 then set tempstring=concat(tempstring,'zh '); end if;

set tempstring=trim(tempstring);

RETURN tempstring;

END;

 $$

DELIMITER ;