Module:grc-adj-decl/param

Module:grc-adj-decl : param : 2κλιτα - 3κλιτα : τεκμηρίωση
Κατηγορία:Πρότυπα κλίσης επιθέτων και μετοχών (αρχαία ελληνικά) - Κατηγορία:Έλεγχος κλίσης
Παράρτημα:Επίθετα και μετοχές (αρχαία ελληνικά) : 2η : 3η - Κατηγορία:Επίθετα (αρχαία ελληνικά) - Κατηγορία:Μετοχές (αρχαία ελληνικά)
Βοήθεια:Πρότυπα κλίσης επιθέτων (αρχαία ελληνικά) - Module:grc-articles - Module:grk-stems

Κατηγορία:Σελίδες με σφάλματα δέσμης ενεργειών
Κατηγορία:Σελίδες με σφάλματα στο πρότυπο κλίσης επιθέτων (αρχαία ελληνικά)
Κατηγορία:Επίθετα που κλίνονται όπως το '' (αρχαία ελληνικά)
Κατηγορία:Μετοχές που κλίνονται όπως το '' (αρχαία ελληνικά)
Κατηγορία:Λήμματα χωρίς προσωδία σε δίχρονο φωνήεν (αρχαία ελληνικά)
Κατηγορία:Λέξεις με άγνωστη προσωδία (αρχαία ελληνικά)

---

-- αρχαία ελληνικά επίθετα-μετοχές - parameters for ancient greek adjectives & participles 2021.06. Sarri.greek
-- or any other 3-gender table (masculine, feminine, neuter) e.g. pronouns
-- INSTRUCTIONS & help at bottom of [[Module:grc-adj-decl]] - ΟΔΗΓΙΕΣ στο τέλος της κύριας σελίδας
--[=[ INSTRUCTIONS for this page:
Call it from the main page by placing EXACTLY where it is needed:
	require ('Module:xxx/param').param (args)
	DO NOT change anything else. DO NOT add at top of page a m_xxxx = require this and that.
USE: local for the functions of THIS module
]=]--
--[=[
Naming parameters for cases as in nouns ([[Module:grc-nouns-decl/param]], notes) 
	+ suffix for gender -αρσ, -θηλ, -ουδ added to them.
Unlike [[Module:grc-nouns-decl]] this module DOES NOT allow editors to change the stems and endings separately, 
	as defined from the module functions
	-- they can change whole words
	-- they can change the standard 'σημ' notes
	-- they can add text, after or before the word and notes |παρατήρηση=
-- mod- (Prefix for parameters as defined in the module		e.g. args['mod-someparam']
	Without the prefix, is for the use of the editor.	e.g. args['someparam']
	The editor suppresses mod- and writes his own correction for whole words.
-- more EXPLANATIONS, see main page
STRUCTURE
a) copy from main page what is needed
b) MAIN FUNCTION: local function param (args)
	1. Stems + some copypaste help
	2. Languages (grc, gkm, kath) for categories and titles
	3. title line
	4. br (breaks of lines, spaces between words)
	5. notes
	... all parameters
c) close with:		 end	return {param = param}
TO DO
* CORRECT θ2 with accent2syn_i (which recognizes diphthongs)


]=]--


--------------------------------------------------------------------------
-- COPY HERE what is needed from the Module 
--------------------------------------------------------------------------

local languages = mw.loadData("Module:Languages") -- needed: grc (gkm, kath the articles are the same)

-- font colours
local c_ending = '#eb0000'			-- is DeepPink. For wikitext, template [[Πρότυπο:χκ]], never bold
local c_stem = '#002000'				-- For wikitext, template [[Πρότυπο:χθ]], never bold

--  ============== apply font colours - εφαρμογή χρωμάτων
local ending_color = function(suffix)
    return '<span style="color:' .. c_ending ..'; font-weight:normal;">' .. suffix .. '</span>'
end

local stem_color = function(thema)
	thema = thema or '' -- otherwise, it does not work
    return '<span style="color:' .. c_stem ..'; font-weight:normal;">' .. thema .. '</span>'
end

local infix_color = function(infix) -- this is not exactly an inifix. It is extra letters of a 2nd stem.
    return '<span style="color:' .. c_stem ..'; font-weight:normal;">' .. infix .. '</span>'
end


-- thanks to [[w:en:User talk:Trappist the monk]]
--[[--------------------------< I S _ S E T >------------

Returns true if argument is set; false otherwise. Argument is 'set' when it exists (not nil) or when it is not an empty string.

]]
--[=[ explanation:
The is_set() function may be added so that tests like this:
	if args['ακε'] ~= '' and args['ακε'] ~= nil then args['ακε'] = args['ακε'] else args['ακε'] = '' end
can be reduced to:
	if not is_set (args['ακε']) then args['ακε'] = '' end
]=]--

local function is_set (var)
	return not (var == nil or var == '');
end


---------------------------------------------------------------------------
-- ========================MAIN FUNCTION================================ --
--             ancient greek adjective (3 gender) cases                  --
---------------------------------------------------------------------------

local function param (args)
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" ) 
		else lemma = args['λήμμα']
	end


---------------------------------------------------------------------------
-- ============== START HERE ALL PARAMETERS ============== --
---------------------------------------------------------------------------

-- ===============  STEMS  - default stem = word minus 2 letters from end
-- stems
    local stem = {} -- do not move
    local minusletters = args['μείον'] or ''
-- If subfunctions have a defintion for lemma and stem of their own
-- we need to write there the stems for all cases.
    if stemnumber == '' or stemnumber == nil then
    	if minusletters == 1 then
    		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2)
    	elseif minusletters == '0' then
    		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-1)
		elseif minusletters ~= '0' and minusletters ~= '' and minusletters ~= nil then
    		stemnumber = minusletters+1
    	else
    		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) -- default stem
    	end
    end

--[=[ INSTRUCTIONS for STEMS: application in functions
STEMS: default stem is minus 2 letters from the end (stemnumber 3) args['μείον'] = 2 
		- otherwise stems should be written out
		If special features are needed (brackets, etc), then the full line should be written, 
		with create_link, as in /param page

	local stem = {}
	args["θ"] = stem["θ"]					-- stem as found in lemma, default minus 2 letters from end, or defined at function
	stem["θ0"] = m_stems.word0(stem["θ"])				-- remove accent
-- needed to created correct stem["θ2"] δανείζω δάνειζ- ΝΟΤ δανέιζ,  and more καταπράυνσ- - καταπραΰνσ-
	stem["θ0"] = m_stems.word2syn(stem["θ"])			-- to create correct e.g. [[δανείζω]], δάνειζ- ΝΟΤ δανέιζ-
    stem["θοξ"] = m_stems.PerispomeniToOxia(stem["θ"])	-- convert oxia to perispomeni -- also named θ1ο
	stem["θπ"] = m_stems.OxiaToPerispomeni(stem["θ"])	-- convert perispomeni to oxeia
    stem["θ1"] = m_stems.word1(stem["θ0"])				-- accent on 1st syllable from the end (Accent is tonos or oksia. Used mainly for monotonic script)
	stem["θ2"] = m_stems.word2(stem["θ0"])				-- accent on 2nd syllable from the end
Examples
	local stem = {}
       	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)
if mw.ustring.find(args['λήμμα'], 'όοι$') then -- $ = at the end
]=]--




-- DO NOT use cat-extra in pages (needs lang_name). Use κατηγ or υποκατ
-- =============== LANGUAGES for categories and notes
-- for =1 (just titles) or =2 (create Categories for a language)
cat_pos = args['μέρος λόγου'] or 'Επίθετα' -- for participles also
	lang_iso = lang_iso or 'grc'
	lang_link = languages[lang_iso]['link'] or ''
	lang_name = languages[lang_iso]['name'] or ''

	
-- ======= HELLENISTIC KOINE check [[θολός]] [[θεόφθογγος]]
-- 1 = only title and Κατηγορία:Λήμματα με κλίσεις (languagename)
-- 2 = all categories
		-- used if ONLY hellenistic, exclusively
		if args['grc-koi']  == '2' or args['ελνστ'] == '2' then
			args['lang_title'] = '[[:Κατηγορία:Ελληνιστική κοινή|ελληνιστική κοινή]]<br><i><small>δε μαρτυρείται δυϊκός αριθμός</small></i>'
--				.. '[[Κατηγορία:' .. cat_pos .. ' με ελληνιστικές κλίσεις (ελληνιστική κοινή)]]'
			lang_iso = 'grc-koi'
			lang_name = languages['grc-koi']['name']
		elseif args['grc-koi']  == '1' or args['ελνστ'] == '1' then	-- but categories grc / 2022.03. test all categories = Koine
			args['lang_title'] = "<i>[[:Κατηγορία:Ουσιαστικά (ελληνιστική κοινή)|ελληνιστική κοινή (αρχαία κλίση)]]</i><br><i><small>δε μαρτυρείται δυϊκός αριθμός</small></i>" 
--				.. '[[Κατηγορία:' .. cat_pos .. ' με αρχαίες κλίσεις (ελληνιστική κοινή)]]'
			-- like [[πολυπληθέστατος]]
			lang_iso = 'grc-koi'
			-- hellenistic words with classic declensions -- + category for statistical purpose
			lang_name = languages['grc-koi']['name']
		end
		
		
-- (no prosody for the following languages)
-- ======= learned MEDIAEVAL GREEK
-- for mediaeval greek -- only testing: we have no Grammar. Included, only attested forms.
-- for vulgar mediaeval greek see Modern Greek modules (it had no dative)
-- test [[Πρότυπο:table-test#2024]]
		if args['gkm']  == '2' or args['μσν'] == '2' then
			args['lang_title'] = '[[:Κατηγορία:Μεσαιωνικά ελληνικά|μεσαιωνικά ελληνικά]]'
			lang_iso = 'gkm'
			about = about_gkm -- withdrawn
			c_extra= '#cfcfe2;'
			c_1 = '#AAAACC;'
			c_2 = '#BBBBDD;'
			c_3 = '#dfdfec;' -- title3,	as in m2 at [[Πρότυπο:el-biblio/style.css]]
			c_4 = '#EEEEFF;'
			args['δυ'] = '-'	-- no dual
			-- NO prosody (see below)
		elseif args['gkm']  == '1' or args['μσν'] == '1' then
			args['lang_title'] = "''[[:Κατηγορία:Μεσαιωνικά ελληνικά|λόγια μεσαιωνική ελληνική με αρχαία κλίση]]''"  
			.. '[[Κατηγορία:' .. cat_pos .. ' με αρχαίες κλίσεις (μεσαιωνικά ελληνικά)]]'
			lang_iso = 'gkm'
			c_extra= '#cfcfe2;' 
			c_3 = '#dfdfec;'
			args['δυ'] = '-'	-- no dual
			-- NO prosody (see below)
			args['nocat'] = '1'	-- do not create subcategories


-- for Katharevousa ========= check [[ἐθνοσωτήριος]] -- has no =2 declensions of its own
		elseif args['kath']  == '2' or args['καθ'] == '2' then
			args['lang_title'] = '[[:Κατηγορία:Καθαρεύουσα|καθαρεύουσα]] (κατά την αρχαία κλίση)'
			lang_iso = 'kath'
			about = about_kath -- withdrawn
			c_3 = '#d5e2f6' -- title3, all the subtitles as in Modern Greek table-colours
			args['δυ'] = '-'	-- no dual
		elseif args['kath']  == '1' or args['καθ'] == '1' then
			args['lang_title'] = '<i>[[:Κατηγορία:Καθαρεύουσα|καθαρεύουσα]] (κατά την αρχαία κλίση)</i>' 
			.. '[[Κατηγορία:' .. cat_pos .. ' με αρχαίες κλίσεις (καθαρεύουσα)]]'
			lang_iso = 'kath'
			c_3 = '#d5e2f6'
			args['δυ'] = '-'	-- no dual
			args['nocat'] = '1'	-- do not create subcategories	
			-- NO prosody (see below)
		else
--			args['τίτλος'] = ''	-- no, otherwise all other titles vanish
			about = about
			lang_iso = 'grc'
			c_3 = c_3
		end
		
-- Place this UNDER LANGUAGES,  not before!!!!  -- test [[Λεβαδία]]
-- ====================== Links
-- create_link((args['οεθ'] .. args['οε']), (stem_color(args['οεθ']) .. ending_color(args['οε+'])))
function create_link (page, text)
		if text then
		return '[[' .. page .. '#' .. languages[lang_iso]['link'] .. '|' .. text .. ']]'
		else
		return '[[' .. page .. '#' .. languages[lang_iso]['link'] .. '|' .. page .. ']]'
		end
end


-- ======================== άγνωστες λέξεις χωρίς πηγές  ====================
-- unk=1 Κατηγορία:Επίθετα με κλίση χωρίς χρονολόγηση (αρχαία ελληνικά)
	args['unk'] = args['unk'] or ''
	args['rar'] = args['rar'] or ''
	if args['unk'] == '1' then
		args['nocat'] = '1'
		args['σημ'] = args['σημ'] .. '[[Κατηγορία:Επίθετα με κλίση χωρίς χρονολόγηση (αρχαία ελληνικά)]]'
	end
	if args['rar'] == '1' then
		args['nocat'] = '1'
		args['σημ'] = args['σημ'] .. '[[Κατηγορία:Σπάνια επίθετα κατά την κλίση (αρχαία ελληνικά)]]'
	end


-- ================================ TTILES =========== DO NOTTTT OMIT THIS SECTION
-- PLACE THIS UNDER LANGUAGES
	-- args['lang_title'] see LANGUAGES
	args['mod-τίτλος'] = args['mod-τίτλος'] or ''
	args['τίτλος'] = args['τίτλος'] or ''
	extratitle_str = args['mod-τίτλος'] or '' 
	editor_title = args['τίτλος'] or ''
	if args['mod-τίτλος'] ~= '' and args['mod-τίτλος'] ~= nil then
		if args['τίτλος'] ~= '' and args['τίτλος'] ~= nil then
			args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>" .. args['τίτλος']
			if args['τεστ'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>" .. args['τίτλος'] .. "<br>" 
				.. 'τεστ'
--				.. '[[:Κατηγορία:xxx (αρχαία ελληνικά)|xx]]'
			elseif args['test'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>" .. args['τίτλος'] .. "<br>" 
				.. 'test'
--				.. '[[:Κατηγορία:xx (αρχαία ελληνικά)|xx]]'		
			end
		else -- yes mod-τίτλος,  no τίτλος
		args['mod-τίτλος'] = args['mod-τίτλος']
			if args['τεστ'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>"
				.. 'τεστ'
--				.. '[[:Κατηγορία:xx (αρχαία ελληνικά)|xx]]'
			elseif args['test'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>"
				.. 'test'
--				.. '[[:Κατηγορία:xx (αρχαία ελληνικά)|xx]]'		
			end
		end
	else -- NO mod-τιτλος
		if args['τίτλος'] ~= '' and args['τίτλος'] ~= nil then
			args['mod-τίτλος'] = args['τίτλος']
			if args['τεστ'] == '1' then
				args['mod-τίτλος'] = args['τίτλος'] .. "<br>" 
				.. 'τεστ'
--				.. '[[:Κατηγορία:xx (αρχαία ελληνικά)xx]]'
			elseif args['test'] == '1' then
				args['mod-τίτλος'] = args['τίτλος'] .. "<br>" 
				.. 'test'
--				.. '[[:Κατηγορία:xx (αρχαία ελληνικά)|xx]]'		
			end
		else -- no mod-τίτλος, no τίτλος, nothing
		args['mod-τίτλος'] = ''
		args['τίτλος'] = ''
			if args['τεστ'] == '1' then -- [[αἰθήρ]] 
				args['mod-τίτλος'] =  'τεστ' -- '[[:Κατηγορία:xx (αρχαία ελληνικά)|xx]]'
			elseif args['test'] == '1' then
				args['mod-τίτλος'] = 'test' --'[[:Κατηγορία:xx (αρχαία ελληνικά)|xx]]'
			end
		end
	end


-- ================================ BREAKS  (not as often as in NOUNS)
-- optional no break line, no &, just a space with br=- for all second lines (TEST at voc.sg)
-- optional no break line, no &, just a space with br=- for all second lines (TEST at voc.sg)
br = args['br'] or ''
-- for dual (du), never change line. User brdu

		if args['br'] == '&' then br = '&nbsp;&&nbsp;'	brdu = '&nbsp;&&nbsp;'		-- & at same line nobreak
	elseif args['br'] == 'dash' then br = '&nbsp;-&nbsp;'	brdu = '&nbsp;-&nbsp;'		-- dash, same line nobreak
	elseif args['br'] == '-' then br = '&nbsp;'		brdu = '&nbsp;'		-- just a space
	elseif args['br'] == 'brtext' then 
		br = '<br />' .. args['br'] .. '&nbsp;' -- little text in new line
		brdu = '&nbsp;' .. args['br'] .. '&nbsp;'
	elseif args['br'] == 'br' then 
		br = '<br />'	-- change line, no &
		brdu = '&nbsp;'		-- just a space
	elseif args['br'] == '' or args['br'] == nil then 
		br = '<br />&&nbsp;'	-- DEFAULT
		brdu = '&nbsp;&&nbsp;'		-- DEFAULT & at same line nobreak
	else br = '&nbsp;' .. args['br'] .. '&nbsp;' -- a little text in between, like ή, και etc
		brdu = '&nbsp;' .. args['br'] .. '&nbsp;'
	end

-- ================================ NOTES (mod-σημ from the Module, σημ by the editor)
-- check ?
-- see MAIN PAGE for note = args['mod-σημ']

-- if editor writes σημ= then the module-σημ changes
if args['σημ'] ~= '' and args['σημ'] ~= nil then args['mod-σημ'] = args['σημ'] end
-- if the editor does not want the mod-σημ of the Module
	-- but if we write args['σημ'] ΙΝ module functions, then the editor cannot erase or edit it
	-- For some notes, we do not want the editor to change anything
	if args['σημ'] == '-' then
		args['mod-σημ'] = ''
	else
		args['σημ'] = args['σημ']
	end

-- ================================  common word for polylectics  NOT USED HERE, see NOUNS
-- before the word
	args['κοινό1'] = args['κοινό1']  or ''
	if args['κοινό1'] ~= '' and args['κοινό1'] ~= nil then
		args['κοινό1'] = args['κοινό1'] .. '&nbsp;'
	else
		args['κοινό1'] = ''
	end

-- after the word  -- no example yet
-- add a repetitive term at the beginning or at the end of each cell:
	args['κοινό'] = args['κοινό'] or ''
	if args['κοινό'] ~= '' and args['κοινό'] ~= nil then
		args['κοινό'] =  '&nbsp;' .. args['κοινό'] 
	else
		args['κοινό'] = ''
	end


-- ================================ NO PROSODY for some languages
-- languages with NO prosody
	args['μσν'] = args['μσν'] or ''			-- μεσαιωνικά ελληνικά -- test
	args['gkm'] = args['gkm'] or ''			-- Mediaeval Grek code

	args['καθ'] = args['καθ'] or ''				-- καθαρεύουσα -- test [[ἐθνοσωτήριος]]
	args['kath'] = args['kath'] or ''			-- Katharevousa code

if args['kath'] == '1' or args['καθ'] == '1' or args['gkm'] == '1' or args['μσν'] == '1' then
-- STEMS no prosdy
	args['οεθ+-αρσ'] = args['οεθ-αρσ']	args['γεθ+-αρσ'] = args['γεθ-αρσ']	args['δεθ+-αρσ'] = args['δεθ-αρσ']	args['αεθ+-αρσ'] = args['αεθ-αρσ']	args['κεθ+-αρσ'] = args['κεθ-αρσ']
	args['οπθ+-αρσ'] = args['οπθ-αρσ']	args['γπθ+-αρσ'] = args['γπθ-αρσ']	args['δπθ+-αρσ'] = args['δπθ-αρσ']	args['απθ+-αρσ'] = args['απθ-αρσ']	args['κπθ+-αρσ'] = args['κπθ-αρσ']
	args['οεθ+-θηλ'] = args['οεθ-θηλ']	args['γεθ+-θηλ'] = args['γεθ-θηλ']	args['δεθ+-θηλ'] = args['δεθ-θηλ']	args['αεθ+-θηλ'] = args['αεθ-θηλ']	args['κεθ+-θηλ'] = args['κεθ-θηλ']
	args['οπθ+-θηλ'] = args['οπθ-θηλ']	args['γπθ+-θηλ'] = args['γπθ-θηλ']	args['δπθ+-θηλ'] = args['δπθ-θηλ']	args['απθ+-θηλ'] = args['απθ-θηλ']	args['κπθ+-θηλ'] = args['κπθ-θηλ']
	args['οεθ+-ουδ'] = args['οεθ-ουδ']	args['γεθ+-ουδ'] = args['γεθ-ουδ']	args['δεθ+-ουδ'] = args['δεθ-ουδ']	args['αεθ+-ουδ'] = args['αεθ-ουδ']	args['κεθ+-ουδ'] = args['κεθ-ουδ']
	args['οπθ+-ουδ'] = args['οπθ-ουδ']	args['γπθ+-ουδ'] = args['γπθ-ουδ']	args['δπθ+-ουδ'] = args['δπθ-ουδ']	args['απθ+-ουδ'] = args['απθ-ουδ']	args['κπθ+-ουδ'] = args['κπθ-ουδ']
-- ENDINGS no prosody
	args['οε+-αρσ'] = args['οε-αρσ']	args['γε+-αρσ'] = args['γε-αρσ']	args['δε+-αρσ'] = args['δε-αρσ']	args['αε+-αρσ'] = args['αε-αρσ']	args['κε+-αρσ'] = args['κε-αρσ']
	args['οπ+-αρσ'] = args['οπ-αρσ']	args['γπ+-αρσ'] = args['γπ-αρσ']	args['δπ+-αρσ'] = args['δπ-αρσ']	args['απ+-αρσ'] = args['απ-αρσ']	args['κπ+-αρσ'] = args['κπ-αρσ']
	args['οε+-θηλ'] = args['οε-θηλ']	args['γε+-θηλ'] = args['γε-θηλ']	args['δε+-θηλ'] = args['δε-θηλ']	args['αε+-θηλ'] = args['αε-θηλ']	args['κε+-θηλ'] = args['κε-θηλ']
	args['οπ+-θηλ'] = args['οπ-θηλ']	args['γπ+-θηλ'] = args['γπ-θηλ']	args['δπ+-θηλ'] = args['δπ-θηλ']	args['απ+-θηλ'] = args['απ-θηλ']	args['κπ+-θηλ'] = args['κπ-θηλ']
	args['οε+-ουδ'] = args['οε-ουδ']	args['γε+-ουδ'] = args['γε-ουδ']	args['δε+-ουδ'] = args['δε-ουδ']	args['αε+-ουδ'] = args['αε-ουδ']	args['κε+-ουδ'] = args['κε-ουδ']
	args['οπ+-ουδ'] = args['οπ-ουδ']	args['γπ+-ουδ'] = args['γπ-ουδ']	args['δπ+-ουδ'] = args['δπ-ουδ']	args['απ+-ουδ'] = args['απ-ουδ']	args['κπ+-ουδ'] = args['κπ-ουδ']
end

-- ================================ START WORDS
-- whole words @modules ALSO NUMBERED
	args['mod-οεΛ-αρσ'] = args['mod-οεΛ-αρσ'] or args['1'] or ''	args['mod-γεΛ-αρσ'] = args['mod-γεΛ-αρσ'] or args['2'] or ''	args['mod-δεΛ-αρσ'] = args['mod-δεΛ-αρσ'] or args['3'] or ''
	args['mod-αεΛ-αρσ'] = args['mod-αεΛ-αρσ'] or args['4'] or ''	args['mod-κεΛ-αρσ'] = args['mod-κεΛ-αρσ'] or args['5'] or ''
	args['mod-οπΛ-αρσ'] = args['mod-οπΛ-αρσ'] or args['6'] or ''	args['mod-γπΛ-αρσ'] = args['mod-γπΛ-αρσ'] or args['7'] or ''	args['mod-δπΛ-αρσ'] = args['mod-δπΛ-αρσ'] or args['8'] or ''
	args['mod-απΛ-αρσ'] = args['mod-απΛ-αρσ'] or args['9'] or ''	args['mod-κπΛ-αρσ'] = args['mod-κπΛ-αρσ'] or args['10'] or ''
	args['mod-οδΛ-αρσ'] = args['mod-οδΛ-αρσ'] or args['11'] or ''	args['mod-γδΛ-αρσ'] = args['mod-γδΛ-αρσ'] or args['12'] or ''
	
	args['mod-οεΛ-θηλ'] = args['mod-οεΛ-θηλ'] or args['12'] or ''	args['mod-γεΛ-θηλ'] = args['mod-γεΛ-θηλ'] or args['14'] or ''	args['mod-δεΛ-θηλ'] = args['mod-δεΛ-θηλ'] or args['15'] or ''
	args['mod-αεΛ-θηλ'] = args['mod-αεΛ-θηλ'] or args['16'] or ''	args['mod-κεΛ-θηλ'] = args['mod-κεΛ-θηλ'] or args['17'] or ''
	args['mod-οπΛ-θηλ'] = args['mod-οπΛ-θηλ'] or args['18'] or ''	args['mod-γπΛ-θηλ'] = args['mod-γπΛ-θηλ'] or args['19'] or ''	args['mod-δπΛ-θηλ'] = args['mod-δπΛ-θηλ'] or args['20'] or ''
	args['mod-απΛ-θηλ'] = args['mod-απΛ-θηλ'] or args['21'] or ''	args['mod-κπΛ-θηλ'] = args['mod-κπΛ-θηλ'] or args['22'] or ''
	args['mod-οδΛ-θηλ'] = args['mod-οδΛ-θηλ'] or args['23'] or ''	args['mod-γδΛ-θηλ'] = args['mod-γδΛ-θηλ'] or args['24'] or ''

	args['mod-οεΛ-ουδ'] = args['mod-οεΛ-ουδ'] or args['25'] or ''	args['mod-γεΛ-ουδ'] = args['mod-γεΛ-ουδ'] or args['26'] or ''	args['mod-δεΛ-ουδ'] = args['mod-δεΛ-ουδ'] or args['27'] or ''
	args['mod-αεΛ-ουδ'] = args['mod-αεΛ-ουδ'] or args['28'] or ''	args['mod-κεΛ-ουδ'] = args['mod-κεΛ-ουδ'] or args['29'] or ''
	args['mod-οπΛ-ουδ'] = args['mod-οπΛ-ουδ'] or args['30'] or ''	args['mod-γπΛ-ουδ'] = args['mod-γπΛ-ουδ'] or args['31'] or ''	args['mod-δπΛ-ουδ'] = args['mod-δπΛ-ουδ'] or args['32'] or ''
	args['mod-απΛ-ουδ'] = args['mod-απΛ-ουδ'] or args['33'] or ''	args['mod-κπΛ-ουδ'] = args['mod-κπΛ-ουδ'] or args['34'] or ''
	args['mod-οδΛ-ουδ'] = args['mod-οδΛ-ουδ'] or args['35'] or ''	args['mod-γδΛ-ουδ'] = args['mod-γδΛ-ουδ'] or args['36'] or ''
	-- second word
	args['mod-οε2Λ-αρσ'] = args['mod-οε2Λ-αρσ'] or ''	args['mod-γε2Λ-αρσ'] = args['mod-γε2Λ-αρσ'] or ''	args['mod-δε2Λ-αρσ'] = args['mod-δε2Λ-αρσ'] or ''
	args['mod-αε2Λ-αρσ'] = args['mod-αε2Λ-αρσ'] or ''	args['mod-κε2Λ-αρσ'] = args['mod-κε2Λ-αρσ'] or ''
	args['mod-οπ2Λ-αρσ'] = args['mod-οπ2Λ-αρσ'] or ''	args['mod-γπ2Λ-αρσ'] = args['mod-γπ2Λ-αρσ'] or ''	args['mod-δπ2Λ-αρσ'] = args['mod-δπ2Λ-αρσ'] or ''
	args['mod-απ2Λ-αρσ'] = args['mod-απ2Λ-αρσ'] or ''	args['mod-κπ2Λ-αρσ'] = args['mod-κπ2Λ-αρσ'] or ''
	args['mod-οδ2Λ-αρσ'] = args['mod-οδ2Λ-αρσ'] or ''	args['mod-γδ2Λ-αρσ'] = args['mod-γδ2Λ-αρσ'] or ''
	
	args['mod-οε2Λ-θηλ'] = args['mod-οε2Λ-θηλ'] or ''	args['mod-γε2Λ-θηλ'] = args['mod-γε2Λ-θηλ'] or ''	args['mod-δε2Λ-θηλ'] = args['mod-δε2Λ-θηλ'] or ''
	args['mod-αε2Λ-θηλ'] = args['mod-αε2Λ-θηλ'] or ''	args['mod-κε2Λ-θηλ'] = args['mod-κε2Λ-θηλ'] or ''
	args['mod-οπ2Λ-θηλ'] = args['mod-οπ2Λ-θηλ'] or ''	args['mod-γπ2Λ-θηλ'] = args['mod-γπ2Λ-θηλ'] or ''	args['mod-δπ2Λ-θηλ'] = args['mod-δπ2Λ-θηλ'] or ''
	args['mod-απ2Λ-θηλ'] = args['mod-απ2Λ-θηλ'] or ''	args['mod-κπ2Λ-θηλ'] = args['mod-κπ2Λ-θηλ'] or ''
	args['mod-οδ2Λ-θηλ'] = args['mod-οδ2Λ-θηλ'] or ''	args['mod-γδ2Λ-θηλ'] = args['mod-γδ2Λ-θηλ'] or ''

	args['mod-οε2Λ-ουδ'] = args['mod-οε2Λ-ουδ'] or ''	args['mod-γε2Λ-ουδ'] = args['mod-γε2Λ-ουδ'] or ''	args['mod-δε2Λ-ουδ'] = args['mod-δε2Λ-ουδ'] or ''
	args['mod-αε2Λ-ουδ'] = args['mod-αε2Λ-ουδ'] or ''	args['mod-κε2Λ-ουδ'] = args['mod-κε2Λ-ουδ'] or ''
	args['mod-οπ2Λ-ουδ'] = args['mod-οπ2Λ-ουδ'] or ''	args['mod-γπ2Λ-ουδ'] = args['mod-γπ2Λ-ουδ'] or ''
	args['mod-δπ2Λ-ουδ'] = args['mod-δπ2Λ-ουδ'] or ''	args['mod-απ2Λ-ουδ'] = args['mod-απ2Λ-ουδ'] or ''	args['mod-κπ2Λ-ουδ'] = args['mod-κπ2Λ-ουδ'] or ''
	args['mod-οδ2Λ-ουδ'] = args['mod-οδ2Λ-ουδ'] or ''	args['mod-γδ2Λ-ουδ'] = args['mod-γδ2Λ-ουδ'] or ''


-- -- whole words for editors
	args['οεΛ-αρσ'] = args['οεΛ-αρσ'] or ''	args['γεΛ-αρσ'] = args['γεΛ-αρσ'] or ''	args['δεΛ-αρσ'] = args['δεΛ-αρσ'] or ''
	args['αεΛ-αρσ'] = args['αεΛ-αρσ'] or ''	args['κεΛ-αρσ'] = args['κεΛ-αρσ'] or ''
	args['οπΛ-αρσ'] = args['οπΛ-αρσ'] or ''	args['γπΛ-αρσ'] = args['γπΛ-αρσ'] or ''	args['δπΛ-αρσ'] = args['δπΛ-αρσ'] or ''
	args['απΛ-αρσ'] = args['απΛ-αρσ'] or ''	args['κπΛ-αρσ'] = args['κπΛ-αρσ'] or ''
	args['οδΛ-αρσ'] = args['οδΛ-αρσ'] or ''	args['γδΛ-αρσ'] = args['γδΛ-αρσ'] or ''
	
	args['οεΛ-θηλ'] = args['οεΛ-θηλ'] or ''	args['γεΛ-θηλ'] = args['γεΛ-θηλ'] or ''	args['δεΛ-θηλ'] = args['δεΛ-θηλ'] or ''
	args['αεΛ-θηλ'] = args['αεΛ-θηλ'] or ''	args['κεΛ-θηλ'] = args['κεΛ-θηλ'] or ''
	args['οπΛ-θηλ'] = args['οπΛ-θηλ'] or ''	args['γπΛ-θηλ'] = args['γπΛ-θηλ'] or ''	args['δπΛ-θηλ'] = args['δπΛ-θηλ'] or ''
	args['απΛ-θηλ'] = args['απΛ-θηλ'] or ''	args['κπΛ-θηλ'] = args['κπΛ-θηλ'] or ''
	args['οδΛ-θηλ'] = args['οδΛ-θηλ'] or ''	args['γδΛ-θηλ'] = args['γδΛ-θηλ'] or ''

	args['οεΛ-ουδ'] = args['οεΛ-ουδ'] or ''	args['γεΛ-ουδ'] = args['γεΛ-ουδ'] or ''	args['δεΛ-ουδ'] = args['δεΛ-ουδ'] or ''
	args['αεΛ-ουδ'] = args['αεΛ-ουδ'] or ''	args['κεΛ-ουδ'] = args['κεΛ-ουδ'] or ''
	args['οπΛ-ουδ'] = args['οπΛ-ουδ'] or ''	args['γπΛ-ουδ'] = args['γπΛ-ουδ'] or ''	args['δπΛ-ουδ'] = args['δπΛ-ουδ'] or ''
	args['απΛ-ουδ'] = args['απΛ-ουδ'] or ''	args['κπΛ-ουδ'] = args['κπΛ-ουδ'] or ''
	args['οδΛ-ουδ'] = args['οδΛ-ουδ'] or ''	args['γδΛ-ουδ'] = args['γδΛ-ουδ'] or ''
	-- second word
	args['οε2Λ-αρσ'] = args['οε2Λ-αρσ'] or ''	args['γε2Λ-αρσ'] = args['γε2Λ-αρσ'] or ''	args['δε2Λ-αρσ'] = args['δε2Λ-αρσ'] or ''
	args['αε2Λ-αρσ'] = args['αε2Λ-αρσ'] or ''	args['κε2Λ-αρσ'] = args['κε2Λ-αρσ'] or ''
	args['οπ2Λ-αρσ'] = args['οπ2Λ-αρσ'] or ''	args['γπ2Λ-αρσ'] = args['γπ2Λ-αρσ'] or ''	args['δπ2Λ-αρσ'] = args['δπ2Λ-αρσ'] or ''
	args['απ2Λ-αρσ'] = args['απ2Λ-αρσ'] or ''	args['κπ2Λ-αρσ'] = args['κπ2Λ-αρσ'] or ''
	args['οδ2Λ-αρσ'] = args['οδ2Λ-αρσ'] or ''	args['γδ2Λ-αρσ'] = args['γδ2Λ-αρσ'] or ''
	
	args['οε2Λ-θηλ'] = args['οε2Λ-θηλ'] or ''	args['γε2Λ-θηλ'] = args['γε2Λ-θηλ'] or ''	args['δε2Λ-θηλ'] = args['δε2Λ-θηλ'] or ''
	args['αε2Λ-θηλ'] = args['αε2Λ-θηλ'] or ''	args['κε2Λ-θηλ'] = args['κε2Λ-θηλ'] or ''
	args['οπ2Λ-θηλ'] = args['οπ2Λ-θηλ'] or ''	args['γπ2Λ-θηλ'] = args['γπ2Λ-θηλ'] or ''	args['δπ2Λ-θηλ'] = args['δπ2Λ-θηλ'] or ''
	args['απ2Λ-θηλ'] = args['απ2Λ-θηλ'] or ''	args['κπ2Λ-θηλ'] = args['κπ2Λ-θηλ'] or ''
	args['οδ2Λ-θηλ'] = args['οδ2Λ-θηλ'] or ''	args['γδ2Λ-θηλ'] = args['γδ2Λ-θηλ'] or ''

	args['οε2Λ-ουδ'] = args['οε2Λ-ουδ'] or ''	args['γε2Λ-ουδ'] = args['γε2Λ-ουδ'] or ''	args['δε2Λ-ουδ'] = args['δε2Λ-ουδ'] or ''
	args['αε2Λ-ουδ'] = args['αε2Λ-ουδ'] or ''	args['κε2Λ-ουδ'] = args['κε2Λ-ουδ'] or ''
	args['οπ2Λ-ουδ'] = args['οπ2Λ-ουδ'] or ''	args['γπ2Λ-ουδ'] = args['γπ2Λ-ουδ'] or ''
	args['δπ2Λ-ουδ'] = args['δπ2Λ-ουδ'] or ''	args['απ2Λ-ουδ'] = args['απ2Λ-ουδ'] or ''	args['κπ2Λ-ουδ'] = args['κπ2Λ-ουδ'] or ''
	args['οδ2Λ-ουδ'] = args['οδ2Λ-ουδ'] or ''	args['γδ2Λ-ουδ'] = args['γδ2Λ-ουδ'] or ''

-- if οεΛ-αρσ then mod-οεΛ-αρσ=οεΛ-αρσ
	if args['οεΛ-αρσ'] ~= '' and args['οεΛ-αρσ'] ~= nil then args['mod-οεΛ-αρσ'] = args['οεΛ-αρσ'] end
	if args['γεΛ-αρσ'] ~= '' and args['γεΛ-αρσ'] ~= nil then args['mod-γεΛ-αρσ'] = args['γεΛ-αρσ'] end
	if args['δεΛ-αρσ'] ~= '' and args['δεΛ-αρσ'] ~= nil then args['mod-δεΛ-αρσ'] = args['δεΛ-αρσ'] end
	if args['αεΛ-αρσ'] ~= '' and args['αεΛ-αρσ'] ~= nil then args['mod-αεΛ-αρσ'] = args['αεΛ-αρσ'] end
	if args['κεΛ-αρσ'] ~= '' and args['κεΛ-αρσ'] ~= nil then args['mod-κεΛ-αρσ'] = args['κεΛ-αρσ'] end
	if args['οπΛ-αρσ'] ~= '' and args['οπΛ-αρσ'] ~= nil then args['mod-οπΛ-αρσ'] = args['οπΛ-αρσ'] end
	if args['γπΛ-αρσ'] ~= '' and args['γπΛ-αρσ'] ~= nil then args['mod-γπΛ-αρσ'] = args['γπΛ-αρσ'] end
	if args['δπΛ-αρσ'] ~= '' and args['δπΛ-αρσ'] ~= nil then args['mod-δπΛ-αρσ'] = args['δπΛ-αρσ'] end
	if args['απΛ-αρσ'] ~= '' and args['απΛ-αρσ'] ~= nil then args['mod-απΛ-αρσ'] = args['απΛ-αρσ'] end
	if args['κπΛ-αρσ'] ~= '' and args['κπΛ-αρσ'] ~= nil then args['mod-κπΛ-αρσ'] = args['κπΛ-αρσ'] end
	if args['οδΛ-αρσ'] ~= '' and args['οδΛ-αρσ'] ~= nil then args['mod-οδΛ-αρσ'] = args['οδΛ-αρσ'] end
	if args['γδΛ-αρσ'] ~= '' and args['γδΛ-αρσ'] ~= nil then args['mod-γδΛ-αρσ'] = args['γδΛ-αρσ'] end
	-- second word
	if args['οε2Λ-αρσ'] ~= '' and args['οε2Λ-αρσ'] ~= nil then args['mod-οε2Λ-αρσ'] = args['οε2Λ-αρσ'] end
	if args['γε2Λ-αρσ'] ~= '' and args['γε2Λ-αρσ'] ~= nil then args['mod-γε2Λ-αρσ'] = args['γε2Λ-αρσ'] end
	if args['δε2Λ-αρσ'] ~= '' and args['δε2Λ-αρσ'] ~= nil then args['mod-δε2Λ-αρσ'] = args['δε2Λ-αρσ'] end
	if args['αε2Λ-αρσ'] ~= '' and args['αε2Λ-αρσ'] ~= nil then args['mod-αε2Λ-αρσ'] = args['αε2Λ-αρσ'] end
	if args['κε2Λ-αρσ'] ~= '' and args['κε2Λ-αρσ'] ~= nil then args['mod-κε2Λ-αρσ'] = args['κε2Λ-αρσ'] end
	if args['οπ2Λ-αρσ'] ~= '' and args['οπ2Λ-αρσ'] ~= nil then args['mod-οπ2Λ-αρσ'] = args['οπ2Λ-αρσ'] end
	if args['γπ2Λ-αρσ'] ~= '' and args['γπ2Λ-αρσ'] ~= nil then args['mod-γπ2Λ-αρσ'] = args['γπ2Λ-αρσ'] end
	if args['δπ2Λ-αρσ'] ~= '' and args['δπ2Λ-αρσ'] ~= nil then args['mod-δπ2Λ-αρσ'] = args['δπ2Λ-αρσ'] end
	if args['απ2Λ-αρσ'] ~= '' and args['απ2Λ-αρσ'] ~= nil then args['mod-απ2Λ-αρσ'] = args['απ2Λ-αρσ'] end
	if args['κπ2Λ-αρσ'] ~= '' and args['κπ2Λ-αρσ'] ~= nil then args['mod-κπ2Λ-αρσ'] = args['κπ2Λ-αρσ'] end
	if args['οδ2Λ-αρσ'] ~= '' and args['οδ2Λ-αρσ'] ~= nil then args['mod-οδ2Λ-αρσ'] = args['οδ2Λ-αρσ'] end
	if args['γδ2Λ-αρσ'] ~= '' and args['γδ2Λ-αρσ'] ~= nil then args['mod-γδ2Λ-αρσ'] = args['γδ2Λ-αρσ'] end
-- if οεΛ-θηλ then mod-οεΛ-θηλ=οεΛ-θηλ
	if args['οεΛ-θηλ'] ~= '' and args['οεΛ-θηλ'] ~= nil then args['mod-οεΛ-θηλ'] = args['οεΛ-θηλ'] end
	if args['γεΛ-θηλ'] ~= '' and args['γεΛ-θηλ'] ~= nil then args['mod-γεΛ-θηλ'] = args['γεΛ-θηλ'] end
	if args['δεΛ-θηλ'] ~= '' and args['δεΛ-θηλ'] ~= nil then args['mod-δεΛ-θηλ'] = args['δεΛ-θηλ'] end
	if args['αεΛ-θηλ'] ~= '' and args['αεΛ-θηλ'] ~= nil then args['mod-αεΛ-θηλ'] = args['αεΛ-θηλ'] end
	if args['κεΛ-θηλ'] ~= '' and args['κεΛ-θηλ'] ~= nil then args['mod-κεΛ-θηλ'] = args['κεΛ-θηλ'] end
	if args['οπΛ-θηλ'] ~= '' and args['οπΛ-θηλ'] ~= nil then args['mod-οπΛ-θηλ'] = args['οπΛ-θηλ'] end
	if args['γπΛ-θηλ'] ~= '' and args['γπΛ-θηλ'] ~= nil then args['mod-γπΛ-θηλ'] = args['γπΛ-θηλ'] end
	if args['δπΛ-θηλ'] ~= '' and args['δπΛ-θηλ'] ~= nil then args['mod-δπΛ-θηλ'] = args['δπΛ-θηλ'] end
	if args['απΛ-θηλ'] ~= '' and args['απΛ-θηλ'] ~= nil then args['mod-απΛ-θηλ'] = args['απΛ-θηλ'] end
	if args['κπΛ-θηλ'] ~= '' and args['κπΛ-θηλ'] ~= nil then args['mod-κπΛ-θηλ'] = args['κπΛ-θηλ'] end
	if args['οδΛ-θηλ'] ~= '' and args['οδΛ-θηλ'] ~= nil then args['mod-οδΛ-θηλ'] = args['οδΛ-θηλ'] end
	if args['γδΛ-θηλ'] ~= '' and args['γδΛ-θηλ'] ~= nil then args['mod-γδΛ-θηλ'] = args['γδΛ-θηλ'] end
	-- second word
	if args['οε2Λ-θηλ'] ~= '' and args['οε2Λ-θηλ'] ~= nil then args['mod-οε2Λ-θηλ'] = args['οε2Λ-θηλ'] end
	if args['γε2Λ-θηλ'] ~= '' and args['γε2Λ-θηλ'] ~= nil then args['mod-γε2Λ-θηλ'] = args['γε2Λ-θηλ'] end
	if args['δε2Λ-θηλ'] ~= '' and args['δε2Λ-θηλ'] ~= nil then args['mod-δε2Λ-θηλ'] = args['δε2Λ-θηλ'] end
	if args['αε2Λ-θηλ'] ~= '' and args['αε2Λ-θηλ'] ~= nil then args['mod-αε2Λ-θηλ'] = args['αε2Λ-θηλ'] end
	if args['κε2Λ-θηλ'] ~= '' and args['κε2Λ-θηλ'] ~= nil then args['mod-κε2Λ-θηλ'] = args['κε2Λ-θηλ'] end
	if args['οπ2Λ-θηλ'] ~= '' and args['οπ2Λ-θηλ'] ~= nil then args['mod-οπ2Λ-θηλ'] = args['οπ2Λ-θηλ'] end
	if args['γπ2Λ-θηλ'] ~= '' and args['γπ2Λ-θηλ'] ~= nil then args['mod-γπ2Λ-θηλ'] = args['γπ2Λ-θηλ'] end
	if args['δπ2Λ-θηλ'] ~= '' and args['δπ2Λ-θηλ'] ~= nil then args['mod-δπ2Λ-θηλ'] = args['δπ2Λ-θηλ'] end
	if args['απ2Λ-θηλ'] ~= '' and args['απ2Λ-θηλ'] ~= nil then args['mod-απ2Λ-θηλ'] = args['απ2Λ-θηλ'] end
	if args['κπ2Λ-θηλ'] ~= '' and args['κπ2Λ-θηλ'] ~= nil then args['mod-κπ2Λ-θηλ'] = args['κπ2Λ-θηλ'] end
	if args['οδ2Λ-θηλ'] ~= '' and args['οδ2Λ-θηλ'] ~= nil then args['mod-οδ2Λ-θηλ'] = args['οδ2Λ-θηλ'] end
	if args['γδ2Λ-θηλ'] ~= '' and args['γδ2Λ-θηλ'] ~= nil then args['mod-γδ2Λ-θηλ'] = args['γδ2Λ-θηλ'] end
-- if οεΛ-ουδ then mod-οεΛ-ουδ=οεΛ-ουδ
	if args['οεΛ-ουδ'] ~= '' and args['οεΛ-ουδ'] ~= nil then args['mod-οεΛ-ουδ'] = args['οεΛ-ουδ'] end
	if args['γεΛ-ουδ'] ~= '' and args['γεΛ-ουδ'] ~= nil then args['mod-γεΛ-ουδ'] = args['γεΛ-ουδ'] end
	if args['δεΛ-ουδ'] ~= '' and args['δεΛ-ουδ'] ~= nil then args['mod-δεΛ-ουδ'] = args['δεΛ-ουδ'] end
	if args['αεΛ-ουδ'] ~= '' and args['αεΛ-ουδ'] ~= nil then args['mod-αεΛ-ουδ'] = args['αεΛ-ουδ'] end
	if args['κεΛ-ουδ'] ~= '' and args['κεΛ-ουδ'] ~= nil then args['mod-κεΛ-ουδ'] = args['κεΛ-ουδ'] end
	if args['οπΛ-ουδ'] ~= '' and args['οπΛ-ουδ'] ~= nil then args['mod-οπΛ-ουδ'] = args['οπΛ-ουδ'] end
	if args['γπΛ-ουδ'] ~= '' and args['γπΛ-ουδ'] ~= nil then args['mod-γπΛ-ουδ'] = args['γπΛ-ουδ'] end
	if args['δπΛ-ουδ'] ~= '' and args['δπΛ-ουδ'] ~= nil then args['mod-δπΛ-ουδ'] = args['δπΛ-ουδ'] end
	if args['απΛ-ουδ'] ~= '' and args['απΛ-ουδ'] ~= nil then args['mod-απΛ-ουδ'] = args['απΛ-ουδ'] end
	if args['κπΛ-ουδ'] ~= '' and args['κπΛ-ουδ'] ~= nil then args['mod-κπΛ-ουδ'] = args['κπΛ-ουδ'] end
	if args['οδΛ-ουδ'] ~= '' and args['οδΛ-ουδ'] ~= nil then args['mod-οδΛ-ουδ'] = args['οδΛ-ουδ'] end
	if args['γδΛ-ουδ'] ~= '' and args['γδΛ-ουδ'] ~= nil then args['mod-γδΛ-ουδ'] = args['γδΛ-ουδ'] end
	-- second word
	if args['οε2Λ-ουδ'] ~= '' and args['οε2Λ-ουδ'] ~= nil then args['mod-οε2Λ-ουδ'] = args['οε2Λ-ουδ'] end
	if args['γε2Λ-ουδ'] ~= '' and args['γε2Λ-ουδ'] ~= nil then args['mod-γε2Λ-ουδ'] = args['γε2Λ-ουδ'] end
	if args['δε2Λ-ουδ'] ~= '' and args['δε2Λ-ουδ'] ~= nil then args['mod-δε2Λ-ουδ'] = args['δε2Λ-ουδ'] end
	if args['αε2Λ-ουδ'] ~= '' and args['αε2Λ-ουδ'] ~= nil then args['mod-αε2Λ-ουδ'] = args['αε2Λ-ουδ'] end
	if args['κε2Λ-ουδ'] ~= '' and args['κε2Λ-ουδ'] ~= nil then args['mod-κε2Λ-ουδ'] = args['κε2Λ-ουδ'] end
	if args['οπ2Λ-ουδ'] ~= '' and args['οπ2Λ-ουδ'] ~= nil then args['mod-οπ2Λ-ουδ'] = args['οπ2Λ-ουδ'] end
	if args['γπ2Λ-ουδ'] ~= '' and args['γπ2Λ-ουδ'] ~= nil then args['mod-γπ2Λ-ουδ'] = args['γπ2Λ-ουδ'] end
	if args['δπ2Λ-ουδ'] ~= '' and args['δπ2Λ-ουδ'] ~= nil then args['mod-δπ2Λ-ουδ'] = args['δπ2Λ-ουδ'] end
	if args['απ2Λ-ουδ'] ~= '' and args['απ2Λ-ουδ'] ~= nil then args['mod-απ2Λ-ουδ'] = args['απ2Λ-ουδ'] end
	if args['κπ2Λ-ουδ'] ~= '' and args['κπ2Λ-ουδ'] ~= nil then args['mod-κπ2Λ-ουδ'] = args['κπ2Λ-ουδ'] end
	if args['οδ2Λ-ουδ'] ~= '' and args['οδ2Λ-ουδ'] ~= nil then args['mod-οδ2Λ-ουδ'] = args['οδ2Λ-ουδ'] end
	if args['γδ2Λ-ουδ'] ~= '' and args['γδ2Λ-ουδ'] ~= nil then args['mod-γδ2Λ-ουδ'] = args['γδ2Λ-ουδ'] end
	
	
-- ========== DEFAULT STEMS auto  -- place this here, ABOVE the stems, otherwise it shows nothing
	-- editor cannot change these module stems
-- masc stem	
	if args['οεθ-αρσ'] == '' or args['οεθ-αρσ'] == nil then args['οεθ-αρσ'] = stem["θ"] else args['οεθ-αρσ'] = args['οεθ-αρσ'] end
	if args['γεθ-αρσ'] == '' or args['γεθ-αρσ'] == nil then args['γεθ-αρσ'] = stem["θ"] else args['γεθ-αρσ'] = args['γεθ-αρσ'] end
	if args['δεθ-αρσ'] == '' or args['δεθ-αρσ'] == nil then args['δεθ-αρσ'] = stem["θ"] else args['δεθ-αρσ'] = args['δεθ-αρσ'] end
	if args['αεθ-αρσ'] == '' or args['αεθ-αρσ'] == nil then args['αεθ-αρσ'] = stem["θ"] else args['αεθ-αρσ'] = args['αεθ-αρσ'] end
	if args['κεθ-αρσ'] == '' or args['κεθ-αρσ'] == nil then args['κεθ-αρσ'] = stem["θ"] else args['κεθ-αρσ'] = args['κεθ-αρσ'] end

	if args['οπθ-αρσ'] == '' or args['οπθ-αρσ'] == nil then args['οπθ-αρσ'] = stem["θ"] else args['οπθ-αρσ'] = args['οπθ-αρσ'] end
	if args['γπθ-αρσ'] == '' or args['γπθ-αρσ'] == nil then args['γπθ-αρσ'] = stem["θ"] else args['γπθ-αρσ'] = args['γπθ-αρσ'] end
	if args['δπθ-αρσ'] == '' or args['δπθ-αρσ'] == nil then args['δπθ-αρσ'] = stem["θ"] else args['δπθ-αρσ'] = args['δπθ-αρσ'] end
	if args['απθ-αρσ'] == '' or args['απθ-αρσ'] == nil then args['απθ-αρσ'] = stem["θ"] else args['απθ-αρσ'] = args['απθ-αρσ'] end
	if args['κπθ-αρσ'] == '' or args['κπθ-αρσ'] == nil then args['κπθ-αρσ'] = stem["θ"] else args['κπθ-αρσ'] = args['κπθ-αρσ'] end
	
	if args['οδθ-αρσ'] == '' or args['οδθ-αρσ'] == nil then args['οδθ-αρσ'] = stem["θ"] else args['οδθ-αρσ'] = args['οδθ-αρσ'] end
	if args['γδθ-αρσ'] == '' or args['γδθ-αρσ'] == nil then args['γδθ-αρσ'] = stem["θ"] else args['γδθ-αρσ'] = args['γδθ-αρσ'] end
-- fem stem	
	if args['οεθ-θηλ'] == '' or args['οεθ-θηλ'] == nil then args['οεθ-θηλ'] = stem["θ"] else args['οεθ-θηλ'] = args['οεθ-θηλ'] end
	if args['γεθ-θηλ'] == '' or args['γεθ-θηλ'] == nil then args['γεθ-θηλ'] = stem["θ"] else args['γεθ-θηλ'] = args['γεθ-θηλ'] end
	if args['δεθ-θηλ'] == '' or args['δεθ-θηλ'] == nil then args['δεθ-θηλ'] = stem["θ"] else args['δεθ-θηλ'] = args['δεθ-θηλ'] end	
	if args['αεθ-θηλ'] == '' or args['αεθ-θηλ'] == nil then args['αεθ-θηλ'] = stem["θ"] else args['αεθ-θηλ'] = args['αεθ-θηλ'] end
	if args['κεθ-θηλ'] == '' or args['κεθ-θηλ'] == nil then args['κεθ-θηλ'] = stem["θ"] else args['κεθ-θηλ'] = args['κεθ-θηλ'] end

	if args['οπθ-θηλ'] == '' or args['οπθ-θηλ'] == nil then args['οπθ-θηλ'] = stem["θ"] else args['οπθ-θηλ'] = args['οπθ-θηλ'] end
	if args['γπθ-θηλ'] == '' or args['γπθ-θηλ'] == nil then args['γπθ-θηλ'] = stem["θ"] else args['γπθ-θηλ'] = args['γπθ-θηλ'] end
	if args['δπθ-θηλ'] == '' or args['δπθ-θηλ'] == nil then args['δπθ-θηλ'] = stem["θ"] else args['δπθ-θηλ'] = args['δπθ-θηλ'] end
	if args['απθ-θηλ'] == '' or args['απθ-θηλ'] == nil then args['απθ-θηλ'] = stem["θ"] else args['απθ-θηλ'] = args['απθ-θηλ'] end
	if args['κπθ-θηλ'] == '' or args['κπθ-θηλ'] == nil then args['κπθ-θηλ'] = stem["θ"] else args['κπθ-θηλ'] = args['κπθ-θηλ'] end
	
	if args['οδθ-θηλ'] == '' or args['οδθ-θηλ'] == nil then args['οδθ-θηλ'] = stem["θ"] else args['οδθ-θηλ'] = args['οδθ-θηλ'] end
	if args['γδθ-θηλ'] == '' or args['γδθ-θηλ'] == nil then args['γδθ-θηλ'] = stem["θ"] else args['γδθ-θηλ'] = args['γδθ-θηλ'] end	
-- neu stem	
	if args['οεθ-ουδ'] == '' or args['οεθ-ουδ'] == nil then args['οεθ-ουδ'] = stem["θ"] else args['οεθ-ουδ'] = args['οεθ-ουδ'] end
	if args['γεθ-ουδ'] == '' or args['γεθ-ουδ'] == nil then args['γεθ-ουδ'] = stem["θ"] else args['γεθ-ουδ'] = args['γεθ-ουδ'] end
	if args['δεθ-ουδ'] == '' or args['δεθ-ουδ'] == nil then args['δεθ-ουδ'] = stem["θ"] else args['δεθ-ουδ'] = args['δεθ-ουδ'] end
	if args['αεθ-ουδ'] == '' or args['αεθ-ουδ'] == nil then args['αεθ-ουδ'] = stem["θ"] else args['αεθ-ουδ'] = args['αεθ-ουδ'] end
	if args['κεθ-ουδ'] == '' or args['κεθ-ουδ'] == nil then args['κεθ-ουδ'] = stem["θ"] else args['κεθ-ουδ'] = args['κεθ-ουδ'] end

	if args['οπθ-ουδ'] == '' or args['οπθ-ουδ'] == nil then args['οπθ-ουδ'] = stem["θ"] else args['οπθ-ουδ'] = args['οπθ-ουδ'] end
	if args['γπθ-ουδ'] == '' or args['γπθ-ουδ'] == nil then args['γπθ-ουδ'] = stem["θ"] else args['γπθ-ουδ'] = args['γπθ-ουδ'] end
	if args['δπθ-ουδ'] == '' or args['δπθ-ουδ'] == nil then args['δπθ-ουδ'] = stem["θ"] else args['δπθ-ουδ'] = args['δπθ-ουδ'] end
	if args['απθ-ουδ'] == '' or args['απθ-ουδ'] == nil then args['απθ-ουδ'] = stem["θ"] else args['απθ-ουδ'] = args['απθ-ουδ'] end
	if args['κπθ-ουδ'] == '' or args['κπθ-ουδ'] == nil then args['κπθ-ουδ'] = stem["θ"] else args['κπθ-ουδ'] = args['κπθ-ουδ'] end
		
	if args['οδθ-ουδ'] == '' or args['οδθ-ουδ'] == nil then args['οδθ-ουδ'] = stem["θ"] else args['οδθ-ουδ'] = args['οδθ-ουδ'] end
	if args['γδθ-ουδ'] == '' or args['γδθ-ουδ'] == nil then args['γδθ-ουδ'] = stem["θ"] else args['γδθ-ουδ'] = args['γδθ-ουδ'] end
-- masc2 stem	
	if args['οε2θ-αρσ'] == '' or args['οε2θ-αρσ'] == nil then args['οε2θ-αρσ'] = stem["θ"] else args['οε2θ-αρσ'] = args['οε2θ-αρσ'] end
	if args['γε2θ-αρσ'] == '' or args['γε2θ-αρσ'] == nil then args['γε2θ-αρσ'] = stem["θ"] else args['γε2θ-αρσ'] = args['γε2θ-αρσ'] end
	if args['δε2θ-αρσ'] == '' or args['δε2θ-αρσ'] == nil then args['δε2θ-αρσ'] = stem["θ"] else args['δε2θ-αρσ'] = args['δε2θ-αρσ'] end
	if args['αε2θ-αρσ'] == '' or args['αε2θ-αρσ'] == nil then args['αε2θ-αρσ'] = stem["θ"] else args['αε2θ-αρσ'] = args['αε2θ-αρσ'] end
	if args['κε2θ-αρσ'] == '' or args['κε2θ-αρσ'] == nil then args['κε2θ-αρσ'] = stem["θ"] else args['κε2θ-αρσ'] = args['κε2θ-αρσ'] end

	if args['οπ2θ-αρσ'] == '' or args['οπ2θ-αρσ'] == nil then args['οπ2θ-αρσ'] = stem["θ"] else args['οπ2θ-αρσ'] = args['οπ2θ-αρσ'] end
	if args['γπ2θ-αρσ'] == '' or args['γπ2θ-αρσ'] == nil then args['γπ2θ-αρσ'] = stem["θ"] else args['γπ2θ-αρσ'] = args['γπ2θ-αρσ'] end
	if args['δπ2θ-αρσ'] == '' or args['δπ2θ-αρσ'] == nil then args['δπ2θ-αρσ'] = stem["θ"] else args['δπ2θ-αρσ'] = args['δπ2θ-αρσ'] end
	if args['απ2θ-αρσ'] == '' or args['απ2θ-αρσ'] == nil then args['απ2θ-αρσ'] = stem["θ"] else args['απ2θ-αρσ'] = args['απ2θ-αρσ'] end
	if args['κπ2θ-αρσ'] == '' or args['κπ2θ-αρσ'] == nil then args['κπ2θ-αρσ'] = stem["θ"] else args['κπ2θ-αρσ'] = args['κπ2θ-αρσ'] end
	
	if args['οδ2θ-αρσ'] == '' or args['οδ2θ-αρσ'] == nil then args['οδ2θ-αρσ'] = stem["θ"] else args['οδ2θ-αρσ'] = args['οδ2θ-αρσ'] end
	if args['γδ2θ-αρσ'] == '' or args['γδ2θ-αρσ'] == nil then args['γδ2θ-αρσ'] = stem["θ"] else args['γδ2θ-αρσ'] = args['γδ2θ-αρσ'] end
-- fem2 stem	
	if args['οε2θ-θηλ'] == '' or args['οε2θ-θηλ'] == nil then args['οε2θ-θηλ'] = stem["θ"] else args['οε2θ-θηλ'] = args['οε2θ-θηλ'] end
	if args['γε2θ-θηλ'] == '' or args['γε2θ-θηλ'] == nil then args['γε2θ-θηλ'] = stem["θ"] else args['γε2θ-θηλ'] = args['γε2θ-θηλ'] end
	if args['δε2θ-θηλ'] == '' or args['δε2θ-θηλ'] == nil then args['δε2θ-θηλ'] = stem["θ"] else args['δε2θ-θηλ'] = args['δε2θ-θηλ'] end
	if args['αε2θ-θηλ'] == '' or args['αε2θ-θηλ'] == nil then args['αε2θ-θηλ'] = stem["θ"] else args['αε2θ-θηλ'] = args['αε2θ-θηλ'] end
	if args['κε2θ-θηλ'] == '' or args['κε2θ-θηλ'] == nil then args['κε2θ-θηλ'] = stem["θ"] else args['κε2θ-θηλ'] = args['κε2θ-θηλ'] end

	if args['οπ2θ-θηλ'] == '' or args['οπ2θ-θηλ'] == nil then args['οπ2θ-θηλ'] = stem["θ"] else args['οπ2θ-θηλ'] = args['οπ2θ-θηλ'] end
	if args['γπ2θ-θηλ'] == '' or args['γπ2θ-θηλ'] == nil then args['γπ2θ-θηλ'] = stem["θ"] else args['γπ2θ-θηλ'] = args['γπ2θ-θηλ'] end
	if args['δπ2θ-θηλ'] == '' or args['δπ2θ-θηλ'] == nil then args['δπ2θ-θηλ'] = stem["θ"] else args['δπ2θ-θηλ'] = args['δπ2θ-θηλ'] end
	if args['απ2θ-θηλ'] == '' or args['απ2θ-θηλ'] == nil then args['απ2θ-θηλ'] = stem["θ"] else args['απ2θ-θηλ'] = args['απ2θ-θηλ'] end
	if args['κπ2θ-θηλ'] == '' or args['κπ2θ-θηλ'] == nil then args['κπ2θ-θηλ'] = stem["θ"] else args['κπ2θ-θηλ'] = args['κπ2θ-θηλ'] end
	
	if args['οδ2θ-θηλ'] == '' or args['οδ2θ-θηλ'] == nil then args['οδ2θ-θηλ'] = stem["θ"] else args['οδ2θ-θηλ'] = args['οδ2θ-θηλ'] end
	if args['γδ2θ-θηλ'] == '' or args['γδ2θ-θηλ'] == nil then args['γδ2θ-θηλ'] = stem["θ"] else args['γδ2θ-θηλ'] = args['γδ2θ-θηλ'] end
-- neu2 stem	
	if args['οε2θ-ουδ'] == '' or args['οε2θ-ουδ'] == nil then args['οε2θ-ουδ'] = stem["θ"] else args['οε2θ-ουδ'] = args['οε2θ-ουδ'] end
	if args['γε2θ-ουδ'] == '' or args['γε2θ-ουδ'] == nil then args['γε2θ-ουδ'] = stem["θ"] else args['γε2θ-ουδ'] = args['γε2θ-ουδ'] end
	if args['δε2θ-ουδ'] == '' or args['δε2θ-ουδ'] == nil then args['δε2θ-ουδ'] = stem["θ"] else args['δε2θ-ουδ'] = args['δε2θ-ουδ'] end
	if args['αε2θ-ουδ'] == '' or args['αε2θ-ουδ'] == nil then args['αε2θ-ουδ'] = stem["θ"] else args['αε2θ-ουδ'] = args['αε2θ-ουδ'] end
	if args['κε2θ-ουδ'] == '' or args['κε2θ-ουδ'] == nil then args['κε2θ-ουδ'] = stem["θ"] else args['κε2θ-ουδ'] = args['κε2θ-ουδ'] end

	if args['οπ2θ-ουδ'] == '' or args['οπ2θ-ουδ'] == nil then args['οπ2θ-ουδ'] = stem["θ"] else args['οπ2θ-ουδ'] = args['οπ2θ-ουδ'] end
	if args['γπ2θ-ουδ'] == '' or args['γπ2θ-ουδ'] == nil then args['γπ2θ-ουδ'] = stem["θ"] else args['γπ2θ-ουδ'] = args['γπ2θ-ουδ'] end
	if args['δπ2θ-ουδ'] == '' or args['δπ2θ-ουδ'] == nil then args['δπ2θ-ουδ'] = stem["θ"] else args['δπ2θ-ουδ'] = args['δπ2θ-ουδ'] end
	if args['απ2θ-ουδ'] == '' or args['απ2θ-ουδ'] == nil then args['απ2θ-ουδ'] = stem["θ"] else args['απ2θ-ουδ'] = args['απ2θ-ουδ'] end
	if args['κπ2θ-ουδ'] == '' or args['κπ2θ-ουδ'] == nil then args['κπ2θ-ουδ'] = stem["θ"] else args['κπ2θ-ουδ'] = args['κπ2θ-ουδ'] end
		
	if args['οδ2θ-ουδ'] == '' or args['οδ2θ-ουδ'] == nil then args['οδ2θ-ουδ'] = stem["θ"] else args['οδ2θ-ουδ'] = args['οδ2θ-ουδ'] end
	if args['γδ2θ-ουδ'] == '' or args['γδ2θ-ουδ'] == nil then args['γδ2θ-ουδ'] = stem["θ"] else args['γδ2θ-ουδ'] = args['γδ2θ-ουδ'] end




-- ==================== STEMS parameters + PROSODY
-- STEMS masc
	args['οεθ-αρσ'] = args['οεθ-αρσ'] or ''	if args['οεθ+-αρσ'] == '' or args['οεθ+-αρσ'] == nil then args['οεθ+-αρσ'] = args['οεθ-αρσ'] end
	args['γεθ-αρσ'] = args['γεθ-αρσ'] or ''	if args['γεθ+-αρσ'] == '' or args['γεθ+-αρσ'] == nil then args['γεθ+-αρσ'] = args['γεθ-αρσ'] end
	args['δεθ-αρσ'] = args['δεθ-αρσ'] or ''	if args['δεθ+-αρσ'] == '' or args['δεθ+-αρσ'] == nil then args['δεθ+-αρσ'] = args['δεθ-αρσ'] end
	args['αεθ-αρσ'] = args['αεθ-αρσ'] or ''	if args['αεθ+-αρσ'] == '' or args['αεθ+-αρσ'] == nil then args['αεθ+-αρσ'] = args['αεθ-αρσ'] end
	args['κεθ-αρσ'] = args['κεθ-αρσ'] or ''	if args['κεθ+-αρσ'] == '' or args['κεθ+-αρσ'] == nil then args['κεθ+-αρσ'] = args['κεθ-αρσ'] end
	args['οπθ-αρσ'] = args['οπθ-αρσ'] or ''	if args['οπθ+-αρσ'] == '' or args['οπθ+-αρσ'] == nil then args['οπθ+-αρσ'] = args['οπθ-αρσ'] end
	args['γπθ-αρσ'] = args['γπθ-αρσ'] or ''	if args['γπθ+-αρσ'] == '' or args['γπθ+-αρσ'] == nil then args['γπθ+-αρσ'] = args['γπθ-αρσ'] end
	args['δπθ-αρσ'] = args['δπθ-αρσ'] or ''	if args['δπθ+-αρσ'] == '' or args['δπθ+-αρσ'] == nil then args['δπθ+-αρσ'] = args['δπθ-αρσ'] end
	args['απθ-αρσ'] = args['απθ-αρσ'] or ''	if args['απθ+-αρσ'] == '' or args['απθ+-αρσ'] == nil then args['απθ+-αρσ'] = args['απθ-αρσ'] end
	args['κπθ-αρσ'] = args['κπθ-αρσ'] or ''	if args['κπθ+-αρσ'] == '' or args['κπθ+-αρσ'] == nil then args['κπθ+-αρσ'] = args['κπθ-αρσ'] end
	args['οδθ-αρσ'] = args['οδθ-αρσ'] or ''	if args['οδθ+-αρσ'] == '' or args['οδθ+-αρσ'] == nil then args['οδθ+-αρσ'] = args['οδθ-αρσ'] end
	args['γδθ-αρσ'] = args['γδθ-αρσ'] or ''	if args['γδθ+-αρσ'] == '' or args['γδθ+-αρσ'] == nil then args['γδθ+-αρσ'] = args['γδθ-αρσ'] end
-- STEMS fem
	args['οεθ-θηλ'] = args['οεθ-θηλ'] or ''	if args['οεθ+-θηλ'] == '' or args['οεθ+-θηλ'] == nil then args['οεθ+-θηλ'] = args['οεθ-θηλ'] end
	args['γεθ-θηλ'] = args['γεθ-θηλ'] or ''	if args['γεθ+-θηλ'] == '' or args['γεθ+-θηλ'] == nil then args['γεθ+-θηλ'] = args['γεθ-θηλ'] end
	args['δεθ-θηλ'] = args['δεθ-θηλ'] or ''	if args['δεθ+-θηλ'] == '' or args['δεθ+-θηλ'] == nil then args['δεθ+-θηλ'] = args['δεθ-θηλ'] end
	args['αεθ-θηλ'] = args['αεθ-θηλ'] or ''	if args['αεθ+-θηλ'] == '' or args['αεθ+-θηλ'] == nil then args['αεθ+-θηλ'] = args['αεθ-θηλ'] end
	args['κεθ-θηλ'] = args['κεθ-θηλ'] or ''	if args['κεθ+-θηλ'] == '' or args['κεθ+-θηλ'] == nil then args['κεθ+-θηλ'] = args['κεθ-θηλ'] end
	args['οπθ-θηλ'] = args['οπθ-θηλ'] or ''	if args['οπθ+-θηλ'] == '' or args['οπθ+-θηλ'] == nil then args['οπθ+-θηλ'] = args['οπθ-θηλ'] end
	args['γπθ-θηλ'] = args['γπθ-θηλ'] or ''	if args['γπθ+-θηλ'] == '' or args['γπθ+-θηλ'] == nil then args['γπθ+-θηλ'] = args['γπθ-θηλ'] end
	args['δπθ-θηλ'] = args['δπθ-θηλ'] or ''	if args['δπθ+-θηλ'] == '' or args['δπθ+-θηλ'] == nil then args['δπθ+-θηλ'] = args['δπθ-θηλ'] end
	args['απθ-θηλ'] = args['απθ-θηλ'] or ''	if args['απθ+-θηλ'] == '' or args['απθ+-θηλ'] == nil then args['απθ+-θηλ'] = args['απθ-θηλ'] end
	args['κπθ-θηλ'] = args['κπθ-θηλ'] or ''	if args['κπθ+-θηλ'] == '' or args['κπθ+-θηλ'] == nil then args['κπθ+-θηλ'] = args['κπθ-θηλ'] end
	args['οδθ-θηλ'] = args['οδθ-θηλ'] or ''	if args['οδθ+-θηλ'] == '' or args['οδθ+-θηλ'] == nil then args['οδθ+-θηλ'] = args['οδθ-θηλ'] end
	args['γδθ-θηλ'] = args['γδθ-θηλ'] or ''	if args['γδθ+-θηλ'] == '' or args['γδθ+-θηλ'] == nil then args['γδθ+-θηλ'] = args['γδθ-θηλ'] end
-- STEMS neu
	args['οεθ-ουδ'] = args['οεθ-ουδ'] or ''	if args['οεθ+-ουδ'] == '' or args['οεθ+-ουδ'] == nil then args['οεθ+-ουδ'] = args['οεθ-ουδ'] end
	args['γεθ-ουδ'] = args['γεθ-ουδ'] or ''	if args['γεθ+-ουδ'] == '' or args['γεθ+-ουδ'] == nil then args['γεθ+-ουδ'] = args['γεθ-ουδ'] end
	args['δεθ-ουδ'] = args['δεθ-ουδ'] or ''	if args['δεθ+-ουδ'] == '' or args['δεθ+-ουδ'] == nil then args['δεθ+-ουδ'] = args['δεθ-ουδ'] end
	args['αεθ-ουδ'] = args['αεθ-ουδ'] or ''	if args['αεθ+-ουδ'] == '' or args['αεθ+-ουδ'] == nil then args['αεθ+-ουδ'] = args['αεθ-ουδ'] end
	args['κεθ-ουδ'] = args['κεθ-ουδ'] or ''	if args['κεθ+-ουδ'] == '' or args['κεθ+-ουδ'] == nil then args['κεθ+-ουδ'] = args['κεθ-ουδ'] end
	args['οπθ-ουδ'] = args['οπθ-ουδ'] or ''	if args['οπθ+-ουδ'] == '' or args['οπθ+-ουδ'] == nil then args['οπθ+-ουδ'] = args['οπθ-ουδ'] end
	args['γπθ-ουδ'] = args['γπθ-ουδ'] or ''	if args['γπθ+-ουδ'] == '' or args['γπθ+-ουδ'] == nil then args['γπθ+-ουδ'] = args['γπθ-ουδ'] end
	args['δπθ-ουδ'] = args['δπθ-ουδ'] or ''	if args['δπθ+-ουδ'] == '' or args['δπθ+-ουδ'] == nil then args['δπθ+-ουδ'] = args['δπθ-ουδ'] end
	args['απθ-ουδ'] = args['απθ-ουδ'] or ''	if args['απθ+-ουδ'] == '' or args['απθ+-ουδ'] == nil then args['απθ+-ουδ'] = args['απθ-ουδ'] end
	args['κπθ-ουδ'] = args['κπθ-ουδ'] or ''	if args['κπθ+-ουδ'] == '' or args['κπθ+-ουδ'] == nil then args['κπθ+-ουδ'] = args['κπθ-ουδ'] end
	args['οδθ-ουδ'] = args['οδθ-ουδ'] or ''	if args['οδθ+-ουδ'] == '' or args['οδθ+-ουδ'] == nil then args['οδθ+-ουδ'] = args['οδθ-ουδ'] end
	args['γδθ-ουδ'] = args['γδθ-ουδ'] or ''	if args['γδθ+-ουδ'] == '' or args['γδθ+-ουδ'] == nil then args['γδθ+-ουδ'] = args['γδθ-ουδ'] end

-- STEMS masc2
	args['οε2θ-αρσ'] = args['οε2θ-αρσ'] or ''	if args['οε2θ+-αρσ'] == '' or args['οε2θ+-αρσ'] == nil then args['οε2θ+-αρσ'] = args['οε2θ-αρσ'] end
	args['γε2θ-αρσ'] = args['γε2θ-αρσ'] or ''	if args['γε2θ+-αρσ'] == '' or args['γε2θ+-αρσ'] == nil then args['γε2θ+-αρσ'] = args['γε2θ-αρσ'] end
	args['δε2θ-αρσ'] = args['δε2θ-αρσ'] or ''	if args['δε2θ+-αρσ'] == '' or args['δε2θ+-αρσ'] == nil then args['δε2θ+-αρσ'] = args['δε2θ-αρσ'] end
	args['αε2θ-αρσ'] = args['αε2θ-αρσ'] or ''	if args['αε2θ+-αρσ'] == '' or args['αε2θ+-αρσ'] == nil then args['αε2θ+-αρσ'] = args['αε2θ-αρσ'] end
	args['κε2θ-αρσ'] = args['κε2θ-αρσ'] or ''	if args['κε2θ+-αρσ'] == '' or args['κε2θ+-αρσ'] == nil then args['κε2θ+-αρσ'] = args['κε2θ-αρσ'] end
	args['οπ2θ-αρσ'] = args['οπ2θ-αρσ'] or ''	if args['οπ2θ+-αρσ'] == '' or args['οπ2θ+-αρσ'] == nil then args['οπ2θ+-αρσ'] = args['οπ2θ-αρσ'] end
	args['γπ2θ-αρσ'] = args['γπ2θ-αρσ'] or ''	if args['γπ2θ+-αρσ'] == '' or args['γπ2θ+-αρσ'] == nil then args['γπ2θ+-αρσ'] = args['γπ2θ-αρσ'] end
	args['δπ2θ-αρσ'] = args['δπ2θ-αρσ'] or ''	if args['δπ2θ+-αρσ'] == '' or args['δπ2θ+-αρσ'] == nil then args['δπ2θ+-αρσ'] = args['δπ2θ-αρσ'] end
	args['απ2θ-αρσ'] = args['απ2θ-αρσ'] or ''	if args['απ2θ+-αρσ'] == '' or args['απ2θ+-αρσ'] == nil then args['απ2θ+-αρσ'] = args['απ2θ-αρσ'] end
	args['κπ2θ-αρσ'] = args['κπ2θ-αρσ'] or ''	if args['κπ2θ+-αρσ'] == '' or args['κπ2θ+-αρσ'] == nil then args['κπ2θ+-αρσ'] = args['κπ2θ-αρσ'] end
	args['οδ2θ-αρσ'] = args['οδ2θ-αρσ'] or ''	if args['οδ2θ+-αρσ'] == '' or args['οδ2θ+-αρσ'] == nil then args['οδ2θ+-αρσ'] = args['οδ2θ-αρσ'] end
	args['γδ2θ-αρσ'] = args['γδ2θ-αρσ'] or ''	if args['γδ2θ+-αρσ'] == '' or args['γδ2θ+-αρσ'] == nil then args['γδ2θ+-αρσ'] = args['γδ2θ-αρσ'] end
-- STEMS fem2
	args['οε2θ-θηλ'] = args['οε2θ-θηλ'] or ''	if args['οε2θ+-θηλ'] == '' or args['οε2θ+-θηλ'] == nil then args['οε2θ+-θηλ'] = args['οε2θ-θηλ'] end
	args['γε2θ-θηλ'] = args['γε2θ-θηλ'] or ''	if args['γε2θ+-θηλ'] == '' or args['γε2θ+-θηλ'] == nil then args['γε2θ+-θηλ'] = args['γε2θ-θηλ'] end
	args['δε2θ-θηλ'] = args['δε2θ-θηλ'] or ''	if args['δε2θ+-θηλ'] == '' or args['δε2θ+-θηλ'] == nil then args['δε2θ+-θηλ'] = args['δε2θ-θηλ'] end
	args['αε2θ-θηλ'] = args['αε2θ-θηλ'] or ''	if args['αε2θ+-θηλ'] == '' or args['αε2θ+-θηλ'] == nil then args['αε2θ+-θηλ'] = args['αε2θ-θηλ'] end
	args['κε2θ-θηλ'] = args['κε2θ-θηλ'] or ''	if args['κε2θ+-θηλ'] == '' or args['κε2θ+-θηλ'] == nil then args['κε2θ+-θηλ'] = args['κε2θ-θηλ'] end
	args['οπ2θ-θηλ'] = args['οπ2θ-θηλ'] or ''	if args['οπ2θ+-θηλ'] == '' or args['οπ2θ+-θηλ'] == nil then args['οπ2θ+-θηλ'] = args['οπ2θ-θηλ'] end
	args['γπ2θ-θηλ'] = args['γπ2θ-θηλ'] or ''	if args['γπ2θ+-θηλ'] == '' or args['γπ2θ+-θηλ'] == nil then args['γπ2θ+-θηλ'] = args['γπ2θ-θηλ'] end
	args['δπ2θ-θηλ'] = args['δπ2θ-θηλ'] or ''	if args['δπ2θ+-θηλ'] == '' or args['δπ2θ+-θηλ'] == nil then args['δπ2θ+-θηλ'] = args['δπ2θ-θηλ'] end
	args['απ2θ-θηλ'] = args['απ2θ-θηλ'] or ''	if args['απ2θ+-θηλ'] == '' or args['απ2θ+-θηλ'] == nil then args['απ2θ+-θηλ'] = args['απ2θ-θηλ'] end
	args['κπ2θ-θηλ'] = args['κπ2θ-θηλ'] or ''	if args['κπ2θ+-θηλ'] == '' or args['κπ2θ+-θηλ'] == nil then args['κπ2θ+-θηλ'] = args['κπ2θ-θηλ'] end
	args['οδ2θ-θηλ'] = args['οδ2θ-θηλ'] or ''	if args['οδ2θ+-θηλ'] == '' or args['οδ2θ+-θηλ'] == nil then args['οδ2θ+-θηλ'] = args['οδ2θ-θηλ'] end
	args['γδ2θ-θηλ'] = args['γδ2θ-θηλ'] or ''	if args['γδ2θ+-θηλ'] == '' or args['γδ2θ+-θηλ'] == nil then args['γδ2θ+-θηλ'] = args['γδ2θ-θηλ'] end
-- STEMS neu2
	args['οε2θ-ουδ'] = args['οε2θ-ουδ'] or ''	if args['οε2θ+-ουδ'] == '' or args['οε2θ+-ουδ'] == nil then args['οε2θ+-ουδ'] = args['οε2θ-ουδ'] end
	args['γε2θ-ουδ'] = args['γε2θ-ουδ'] or ''	if args['γε2θ+-ουδ'] == '' or args['γε2θ+-ουδ'] == nil then args['γε2θ+-ουδ'] = args['γε2θ-ουδ'] end
	args['δε2θ-ουδ'] = args['δε2θ-ουδ'] or ''	if args['δε2θ+-ουδ'] == '' or args['δε2θ+-ουδ'] == nil then args['δε2θ+-ουδ'] = args['δε2θ-ουδ'] end
	args['αε2θ-ουδ'] = args['αε2θ-ουδ'] or ''	if args['αε2θ+-ουδ'] == '' or args['αε2θ+-ουδ'] == nil then args['αε2θ+-ουδ'] = args['αε2θ-ουδ'] end
	args['κε2θ-ουδ'] = args['κε2θ-ουδ'] or ''	if args['κε2θ+-ουδ'] == '' or args['κε2θ+-ουδ'] == nil then args['κε2θ+-ουδ'] = args['κε2θ-ουδ'] end
	args['οπ2θ-ουδ'] = args['οπ2θ-ουδ'] or ''	if args['οπ2θ+-ουδ'] == '' or args['οπ2θ+-ουδ'] == nil then args['οπ2θ+-ουδ'] = args['οπ2θ-ουδ'] end
	args['γπ2θ-ουδ'] = args['γπ2θ-ουδ'] or ''	if args['γπ2θ+-ουδ'] == '' or args['γπ2θ+-ουδ'] == nil then args['γπ2θ+-ουδ'] = args['γπ2θ-ουδ'] end
	args['δπ2θ-ουδ'] = args['δπ2θ-ουδ'] or ''	if args['δπ2θ+-ουδ'] == '' or args['δπ2θ+-ουδ'] == nil then args['δπ2θ+-ουδ'] = args['δπ2θ-ουδ'] end
	args['απ2θ-ουδ'] = args['απ2θ-ουδ'] or ''	if args['απ2θ+-ουδ'] == '' or args['απ2θ+-ουδ'] == nil then args['απ2θ+-ουδ'] = args['απ2θ-ουδ'] end
	args['κπ2θ-ουδ'] = args['κπ2θ-ουδ'] or ''	if args['κπ2θ+-ουδ'] == '' or args['κπ2θ+-ουδ'] == nil then args['κπ2θ+-ουδ'] = args['κπ2θ-ουδ'] end
	args['οδ2θ-ουδ'] = args['οδ2θ-ουδ'] or ''	if args['οδ2θ+-ουδ'] == '' or args['οδ2θ+-ουδ'] == nil then args['οδ2θ+-ουδ'] = args['οδ2θ-ουδ'] end
	args['γδ2θ-ουδ'] = args['γδ2θ-ουδ'] or ''	if args['γδ2θ+-ουδ'] == '' or args['γδ2θ+-ουδ'] == nil then args['γδ2θ+-ουδ'] = args['γδ2θ-ουδ'] end



-- ================= ENDINGS parameters
	-- editor cannot change these module stems
-- ENDINGS masc
	args['οε-αρσ'] = args['οε-αρσ'] or ''	if args['οε+-αρσ'] == '' or args['οε+-αρσ'] == nil then args['οε+-αρσ'] = args['οε-αρσ'] end
	args['γε-αρσ'] = args['γε-αρσ'] or ''	if args['γε+-αρσ'] == '' or args['γε+-αρσ'] == nil then args['γε+-αρσ'] = args['γε-αρσ'] end
	args['δε-αρσ'] = args['δε-αρσ'] or ''	if args['δε+-αρσ'] == '' or args['δε+-αρσ'] == nil then args['δε+-αρσ'] = args['δε-αρσ'] end
	args['αε-αρσ'] = args['αε-αρσ'] or ''	if args['αε+-αρσ'] == '' or args['αε+-αρσ'] == nil then args['αε+-αρσ'] = args['αε-αρσ'] end
	args['κε-αρσ'] = args['κε-αρσ'] or ''	if args['κε+-αρσ'] == '' or args['κε+-αρσ'] == nil then args['κε+-αρσ'] = args['κε-αρσ'] end
	args['οπ-αρσ'] = args['οπ-αρσ'] or ''	if args['οπ+-αρσ'] == '' or args['οπ+-αρσ'] == nil then args['οπ+-αρσ'] = args['οπ-αρσ'] end
	args['γπ-αρσ'] = args['γπ-αρσ'] or ''	if args['γπ+-αρσ'] == '' or args['γπ+-αρσ'] == nil then args['γπ+-αρσ'] = args['γπ-αρσ'] end
	args['δπ-αρσ'] = args['δπ-αρσ'] or ''	if args['δπ+-αρσ'] == '' or args['δπ+-αρσ'] == nil then args['δπ+-αρσ'] = args['δπ-αρσ'] end
	args['απ-αρσ'] = args['απ-αρσ'] or ''	if args['απ+-αρσ'] == '' or args['απ+-αρσ'] == nil then args['απ+-αρσ'] = args['απ-αρσ'] end
	args['κπ-αρσ'] = args['κπ-αρσ'] or ''	if args['κπ+-αρσ'] == '' or args['κπ+-αρσ'] == nil then args['κπ+-αρσ'] = args['κπ-αρσ'] end
	args['οδ-αρσ'] = args['οδ-αρσ'] or ''	if args['οδ+-αρσ'] == '' or args['οδ+-αρσ'] == nil then args['οδ+-αρσ'] = args['οδ-αρσ'] end
	args['γδ-αρσ'] = args['γδ-αρσ'] or ''	if args['γδ+-αρσ'] == '' or args['γδ+-αρσ'] == nil then args['γδ+-αρσ'] = args['γδ-αρσ'] end
-- ENDINGS fem
	args['οε-θηλ'] = args['οε-θηλ'] or ''	if args['οε+-θηλ'] == '' or args['οε+-θηλ'] == nil then args['οε+-θηλ'] = args['οε-θηλ'] end
	args['γε-θηλ'] = args['γε-θηλ'] or ''	if args['γε+-θηλ'] == '' or args['γε+-θηλ'] == nil then args['γε+-θηλ'] = args['γε-θηλ'] end
	args['δε-θηλ'] = args['δε-θηλ'] or ''	if args['δε+-θηλ'] == '' or args['δε+-θηλ'] == nil then args['δε+-θηλ'] = args['δε-θηλ'] end
	args['αε-θηλ'] = args['αε-θηλ'] or ''	if args['αε+-θηλ'] == '' or args['αε+-θηλ'] == nil then args['αε+-θηλ'] = args['αε-θηλ'] end
	args['κε-θηλ'] = args['κε-θηλ'] or ''	if args['κε+-θηλ'] == '' or args['κε+-θηλ'] == nil then args['κε+-θηλ'] = args['κε-θηλ'] end
	args['οπ-θηλ'] = args['οπ-θηλ'] or ''	if args['οπ+-θηλ'] == '' or args['οπ+-θηλ'] == nil then args['οπ+-θηλ'] = args['οπ-θηλ'] end
	args['γπ-θηλ'] = args['γπ-θηλ'] or ''	if args['γπ+-θηλ'] == '' or args['γπ+-θηλ'] == nil then args['γπ+-θηλ'] = args['γπ-θηλ'] end
	args['δπ-θηλ'] = args['δπ-θηλ'] or ''	if args['δπ+-θηλ'] == '' or args['δπ+-θηλ'] == nil then args['δπ+-θηλ'] = args['δπ-θηλ'] end
	args['απ-θηλ'] = args['απ-θηλ'] or ''	if args['απ+-θηλ'] == '' or args['απ+-θηλ'] == nil then args['απ+-θηλ'] = args['απ-θηλ'] end
	args['κπ-θηλ'] = args['κπ-θηλ'] or ''	if args['κπ+-θηλ'] == '' or args['κπ+-θηλ'] == nil then args['κπ+-θηλ'] = args['κπ-θηλ'] end
	args['οδ-θηλ'] = args['οδ-θηλ'] or ''	if args['οδ+-θηλ'] == '' or args['οδ+-θηλ'] == nil then args['οδ+-θηλ'] = args['οδ-θηλ'] end
	args['γδ-θηλ'] = args['γδ-θηλ'] or ''	if args['γδ+-θηλ'] == '' or args['γδ+-θηλ'] == nil then args['γδ+-θηλ'] = args['γδ-θηλ'] end
-- ENDINGS neu
	args['οε-ουδ'] = args['οε-ουδ'] or ''	if args['οε+-ουδ'] == '' or args['οε+-ουδ'] == nil then args['οε+-ουδ'] = args['οε-ουδ'] end
	args['γε-ουδ'] = args['γε-ουδ'] or ''	if args['γε+-ουδ'] == '' or args['γε+-ουδ'] == nil then args['γε+-ουδ'] = args['γε-ουδ'] end
	args['δε-ουδ'] = args['δε-ουδ'] or ''	if args['δε+-ουδ'] == '' or args['δε+-ουδ'] == nil then args['δε+-ουδ'] = args['δε-ουδ'] end
	args['αε-ουδ'] = args['αε-ουδ'] or ''	if args['αε+-ουδ'] == '' or args['αε+-ουδ'] == nil then args['αε+-ουδ'] = args['αε-ουδ'] end
	args['κε-ουδ'] = args['κε-ουδ'] or ''	if args['κε+-ουδ'] == '' or args['κε+-ουδ'] == nil then args['κε+-ουδ'] = args['κε-ουδ'] end
	args['οπ-ουδ'] = args['οπ-ουδ'] or ''	if args['οπ+-ουδ'] == '' or args['οπ+-ουδ'] == nil then args['οπ+-ουδ'] = args['οπ-ουδ'] end
	args['γπ-ουδ'] = args['γπ-ουδ'] or ''	if args['γπ+-ουδ'] == '' or args['γπ+-ουδ'] == nil then args['γπ+-ουδ'] = args['γπ-ουδ'] end
	args['δπ-ουδ'] = args['δπ-ουδ'] or ''	if args['δπ+-ουδ'] == '' or args['δπ+-ουδ'] == nil then args['δπ+-ουδ'] = args['δπ-ουδ'] end
	args['απ-ουδ'] = args['απ-ουδ'] or ''	if args['απ+-ουδ'] == '' or args['απ+-ουδ'] == nil then args['απ+-ουδ'] = args['απ-ουδ'] end
	args['κπ-ουδ'] = args['κπ-ουδ'] or ''	if args['κπ+-ουδ'] == '' or args['κπ+-ουδ'] == nil then args['κπ+-ουδ'] = args['κπ-ουδ'] end
	args['οδ-ουδ'] = args['οδ-ουδ'] or ''	if args['οδ+-ουδ'] == '' or args['οδ+-ουδ'] == nil then args['οδ+-ουδ'] = args['οδ-ουδ'] end
	args['γδ-ουδ'] = args['γδ-ουδ'] or ''	if args['γδ+-ουδ'] == '' or args['γδ+-ουδ'] == nil then args['γδ+-ουδ'] = args['γδ-ουδ'] end
-- ENDINGS2  masc
	args['οε2-αρσ'] = args['οε2-αρσ'] or ''	if args['οε2+-αρσ'] == '' or args['οε2+-αρσ'] == nil then args['οε2+-αρσ'] = args['οε2-αρσ'] end
	args['γε2-αρσ'] = args['γε2-αρσ'] or ''	if args['γε2+-αρσ'] == '' or args['γε2+-αρσ'] == nil then args['γε2+-αρσ'] = args['γε2-αρσ'] end
	args['δε2-αρσ'] = args['δε2-αρσ'] or ''	if args['δε2+-αρσ'] == '' or args['δε2+-αρσ'] == nil then args['δε2+-αρσ'] = args['δε2-αρσ'] end
	args['αε2-αρσ'] = args['αε2-αρσ'] or ''	if args['αε2+-αρσ'] == '' or args['αε2+-αρσ'] == nil then args['αε2+-αρσ'] = args['αε2-αρσ'] end
	args['κε2-αρσ'] = args['κε2-αρσ'] or ''	if args['κε2+-αρσ'] == '' or args['κε2+-αρσ'] == nil then args['κε2+-αρσ'] = args['κε2-αρσ'] end
	args['οπ2-αρσ'] = args['οπ2-αρσ'] or ''	if args['οπ2+-αρσ'] == '' or args['οπ2+-αρσ'] == nil then args['οπ2+-αρσ'] = args['οπ2-αρσ'] end
	args['γπ2-αρσ'] = args['γπ2-αρσ'] or ''	if args['γπ2+-αρσ'] == '' or args['γπ2+-αρσ'] == nil then args['γπ2+-αρσ'] = args['γπ2-αρσ'] end
	args['δπ2-αρσ'] = args['δπ2-αρσ'] or ''	if args['δπ2+-αρσ'] == '' or args['δπ2+-αρσ'] == nil then args['δπ2+-αρσ'] = args['δπ2-αρσ'] end
	args['απ2-αρσ'] = args['απ2-αρσ'] or ''	if args['απ2+-αρσ'] == '' or args['απ2+-αρσ'] == nil then args['απ2+-αρσ'] = args['απ2-αρσ'] end
	args['κπ2-αρσ'] = args['κπ2-αρσ'] or ''	if args['κπ2+-αρσ'] == '' or args['κπ2+-αρσ'] == nil then args['κπ2+-αρσ'] = args['κπ2-αρσ'] end
	args['οδ2-αρσ'] = args['οδ2-αρσ'] or ''	if args['οδ2+-αρσ'] == '' or args['οδ2+-αρσ'] == nil then args['οδ2+-αρσ'] = args['οδ2-αρσ'] end
	args['γδ2-αρσ'] = args['γδ2-αρσ'] or ''	if args['γδ2+-αρσ'] == '' or args['γδ2+-αρσ'] == nil then args['γδ2+-αρσ'] = args['γδ2-αρσ'] end
-- ENDINGS2 fem
	args['οε2-θηλ'] = args['οε2-θηλ'] or ''	if args['οε2+-θηλ'] == '' or args['οε2+-θηλ'] == nil then args['οε2+-θηλ'] = args['οε2-θηλ'] end
	args['γε2-θηλ'] = args['γε2-θηλ'] or ''	if args['γε2+-θηλ'] == '' or args['γε2+-θηλ'] == nil then args['γε2+-θηλ'] = args['γε2-θηλ'] end
	args['δε2-θηλ'] = args['δε2-θηλ'] or ''	if args['δε2+-θηλ'] == '' or args['δε2+-θηλ'] == nil then args['δε2+-θηλ'] = args['δε2-θηλ'] end
	args['αε2-θηλ'] = args['αε2-θηλ'] or ''	if args['αε2+-θηλ'] == '' or args['αε2+-θηλ'] == nil then args['αε2+-θηλ'] = args['αε2-θηλ'] end
	args['κε2-θηλ'] = args['κε2-θηλ'] or ''	if args['κε2+-θηλ'] == '' or args['κε2+-θηλ'] == nil then args['κε2+-θηλ'] = args['κε2-θηλ'] end
	args['οπ2-θηλ'] = args['οπ2-θηλ'] or ''	if args['οπ2+-θηλ'] == '' or args['οπ2+-θηλ'] == nil then args['οπ2+-θηλ'] = args['οπ2-θηλ'] end
	args['γπ2-θηλ'] = args['γπ2-θηλ'] or ''	if args['γπ2+-θηλ'] == '' or args['γπ2+-θηλ'] == nil then args['γπ2+-θηλ'] = args['γπ2-θηλ'] end
	args['δπ2-θηλ'] = args['δπ2-θηλ'] or ''	if args['δπ2+-θηλ'] == '' or args['δπ2+-θηλ'] == nil then args['δπ2+-θηλ'] = args['δπ2-θηλ'] end
	args['απ2-θηλ'] = args['απ2-θηλ'] or ''	if args['απ2+-θηλ'] == '' or args['απ2+-θηλ'] == nil then args['απ2+-θηλ'] = args['απ2-θηλ'] end
	args['κπ2-θηλ'] = args['κπ2-θηλ'] or ''	if args['κπ2+-θηλ'] == '' or args['κπ2+-θηλ'] == nil then args['κπ2+-θηλ'] = args['κπ2-θηλ'] end
	args['οδ2-θηλ'] = args['οδ2-θηλ'] or ''	if args['οδ2+-θηλ'] == '' or args['οδ2+-θηλ'] == nil then args['οδ2+-θηλ'] = args['οδ2-θηλ'] end
	args['γδ2-θηλ'] = args['γδ2-θηλ'] or ''	if args['γδ2+-θηλ'] == '' or args['γδ2+-θηλ'] == nil then args['γδ2+-θηλ'] = args['γδ2-θηλ'] end
-- ENDINGS2 neu
	args['οε2-ουδ'] = args['οε2-ουδ'] or ''	if args['οε2+-ουδ'] == '' or args['οε2+-ουδ'] == nil then args['οε2+-ουδ'] = args['οε2-ουδ'] end
	args['γε2-ουδ'] = args['γε2-ουδ'] or ''	if args['γε2+-ουδ'] == '' or args['γε2+-ουδ'] == nil then args['γε2+-ουδ'] = args['γε2-ουδ'] end
	args['δε2-ουδ'] = args['δε2-ουδ'] or ''	if args['δε2+-ουδ'] == '' or args['δε2+-ουδ'] == nil then args['δε2+-ουδ'] = args['δε2-ουδ'] end
	args['αε2-ουδ'] = args['αε2-ουδ'] or ''	if args['αε2+-ουδ'] == '' or args['αε2+-ουδ'] == nil then args['αε2+-ουδ'] = args['αε2-ουδ'] end
	args['κε2-ουδ'] = args['κε2-ουδ'] or ''	if args['κε2+-ουδ'] == '' or args['κε2+-ουδ'] == nil then args['κε2+-ουδ'] = args['κε2-ουδ'] end
	args['οπ2-ουδ'] = args['οπ2-ουδ'] or ''	if args['οπ2+-ουδ'] == '' or args['οπ2+-ουδ'] == nil then args['οπ2+-ουδ'] = args['οπ2-ουδ'] end
	args['γπ2-ουδ'] = args['γπ2-ουδ'] or ''	if args['γπ2+-ουδ'] == '' or args['γπ2+-ουδ'] == nil then args['γπ2+-ουδ'] = args['γπ2-ουδ'] end
	args['δπ2-ουδ'] = args['δπ2-ουδ'] or ''	if args['δπ2+-ουδ'] == '' or args['δπ2+-ουδ'] == nil then args['δπ2+-ουδ'] = args['δπ2-ουδ'] end
	args['απ2-ουδ'] = args['απ2-ουδ'] or ''	if args['απ2+-ουδ'] == '' or args['απ2+-ουδ'] == nil then args['απ2+-ουδ'] = args['απ2-ουδ'] end
	args['κπ2-ουδ'] = args['κπ2-ουδ'] or ''	if args['κπ2+-ουδ'] == '' or args['κπ2+-ουδ'] == nil then args['κπ2+-ουδ'] = args['κπ2-ουδ'] end
	args['οδ2-ουδ'] = args['οδ2-ουδ'] or ''	if args['οδ2+-ουδ'] == '' or args['οδ2+-ουδ'] == nil then args['οδ2+-ουδ'] = args['οδ2-ουδ'] end
	args['γδ2-ουδ'] = args['γδ2-ουδ'] or ''	if args['γδ2+-ουδ'] == '' or args['γδ2+-ουδ'] == nil then args['γδ2+-ουδ'] = args['γδ2-ουδ'] end


-- add text at the end of each cell -- κείμενο μετά τη λέξη οεΛκειμ
	args['οεΛκειμ-αρσ'] = args['οεΛκειμ-αρσ'] or ''	args['γεΛκειμ-αρσ'] = args['γεΛκειμ-αρσ'] or ''	args['δεΛκειμ-αρσ'] = args['δεΛκειμ-αρσ'] or ''	
	args['αεΛκειμ-αρσ'] = args['αεΛκειμ-αρσ'] or ''	args['κεΛκειμ-αρσ'] = args['κεΛκειμ-αρσ'] or ''
	args['οπΛκειμ-αρσ'] = args['οπΛκειμ-αρσ'] or ''	args['γπΛκειμ-αρσ'] = args['γπΛκειμ-αρσ'] or ''	args['δπΛκειμ-αρσ'] = args['δπΛκειμ-αρσ'] or ''
	args['απΛκειμ-αρσ'] = args['απΛκειμ-αρσ'] or ''	args['κπΛκειμ-αρσ'] = args['κπΛκειμ-αρσ'] or ''
	args['οδΛκειμ-αρσ'] = args['οδΛκειμ-αρσ'] or ''	args['γδΛκειμ-αρσ'] = args['γδΛκειμ-αρσ'] or ''
	
	args['οεΛκειμ-θηλ'] = args['οεΛκειμ-θηλ'] or ''	args['γεΛκειμ-θηλ'] = args['γεΛκειμ-θηλ'] or ''	args['δεΛκειμ-θηλ'] = args['δεΛκειμ-θηλ'] or ''
	args['αεΛκειμ-θηλ'] = args['αεΛκειμ-θηλ'] or ''	args['κεΛκειμ-θηλ'] = args['κεΛκειμ-θηλ'] or ''
	args['οπΛκειμ-θηλ'] = args['οπΛκειμ-θηλ'] or ''	args['γπΛκειμ-θηλ'] = args['γπΛκειμ-θηλ'] or ''	args['δπΛκειμ-θηλ'] = args['δπΛκειμ-θηλ'] or ''
	args['απΛκειμ-θηλ'] = args['απΛκειμ-θηλ'] or ''	args['κπΛκειμ-θηλ'] = args['κπΛκειμ-θηλ'] or ''
	args['οδΛκειμ-θηλ'] = args['οδΛκειμ-θηλ'] or ''	args['γδΛκειμ-θηλ'] = args['γδΛκειμ-θηλ'] or ''
	
	args['οεΛκειμ-ουδ'] = args['οεΛκειμ-ουδ'] or ''	args['γεΛκειμ-ουδ'] = args['γεΛκειμ-ουδ'] or ''	args['δεΛκειμ-ουδ'] = args['δεΛκειμ-ουδ'] or ''
	args['αεΛκειμ-ουδ'] = args['αεΛκειμ-ουδ'] or ''	args['κεΛκειμ-ουδ'] = args['κεΛκειμ-ουδ'] or ''
	args['οπΛκειμ-ουδ'] = args['οπΛκειμ-ουδ'] or ''	args['γπΛκειμ-ουδ'] = args['γπΛκειμ-ουδ'] or ''	args['δπΛκειμ-ουδ'] = args['δπΛκειμ-ουδ'] or ''
	args['απΛκειμ-ουδ'] = args['απΛκειμ-ουδ'] or ''	args['κπΛκειμ-ουδ'] = args['κπΛκειμ-ουδ'] or ''
	args['οδΛκειμ-ουδ'] = args['οδΛκειμ-ουδ'] or ''	args['γδΛκειμ-ουδ'] = args['γδΛκειμ-ουδ'] or ''
-- for second word	
	args['οε2Λκειμ-αρσ'] = args['οε2Λκειμ-αρσ'] or ''	args['γε2Λκειμ-αρσ'] = args['γε2Λκειμ-αρσ'] or ''	args['δε2Λκειμ-αρσ'] = args['δε2Λκειμ-αρσ'] or ''
	args['αε2Λκειμ-αρσ'] = args['αε2Λκειμ-αρσ'] or ''	args['κε2Λκειμ-αρσ'] = args['κε2Λκειμ-αρσ'] or ''
	args['οπ2Λκειμ-αρσ'] = args['οπ2Λκειμ-αρσ'] or ''	args['γπ2Λκειμ-αρσ'] = args['γπ2Λκειμ-αρσ'] or ''	args['δπ2Λκειμ-αρσ'] = args['δπ2Λκειμ-αρσ'] or ''
	args['απ2Λκειμ-αρσ'] = args['απ2Λκειμ-αρσ'] or ''	args['κπ2Λκειμ-αρσ'] = args['κπ2Λκειμ-αρσ'] or ''
	args['οδ2Λκειμ-αρσ'] = args['οδ2Λκειμ-αρσ'] or ''	args['γδ2Λκειμ-αρσ'] = args['γδ2Λκειμ-αρσ'] or ''
	
	args['οε2Λκειμ-θηλ'] = args['οε2Λκειμ-θηλ'] or ''	args['γε2Λκειμ-θηλ'] = args['γε2Λκειμ-θηλ'] or ''	args['δε2Λκειμ-θηλ'] = args['δε2Λκειμ-θηλ'] or ''
	args['αε2Λκειμ-θηλ'] = args['αε2Λκειμ-θηλ'] or ''	args['κε2Λκειμ-θηλ'] = args['κε2Λκειμ-θηλ'] or ''
	args['οπ2Λκειμ-θηλ'] = args['οπ2Λκειμ-θηλ'] or ''	args['γπ2Λκειμ-θηλ'] = args['γπ2Λκειμ-θηλ'] or ''	args['δπ2Λκειμ-θηλ'] = args['δπ2Λκειμ-θηλ'] or ''
	args['απ2Λκειμ-θηλ'] = args['απ2Λκειμ-θηλ'] or ''	args['κπ2Λκειμ-θηλ'] = args['κπ2Λκειμ-θηλ'] or ''
	args['οδ2Λκειμ-θηλ'] = args['οδ2Λκειμ-θηλ'] or ''	args['γδ2Λκειμ-θηλ'] = args['γδ2Λκειμ-θηλ'] or ''
	
	args['οε2Λκειμ-ουδ'] = args['οε2Λκειμ-ουδ'] or ''	args['γε2Λκειμ-ουδ'] = args['γε2Λκειμ-ουδ'] or ''	args['δε2Λκειμ-ουδ'] = args['δε2Λκειμ-ουδ'] or ''
	args['αε2Λκειμ-ουδ'] = args['αε2Λκειμ-ουδ'] or ''	args['κε2Λκειμ-ουδ'] = args['κε2Λκειμ-ουδ'] or ''
	args['οπ2Λκειμ-ουδ'] = args['οπ2Λκειμ-ουδ'] or ''	args['γπ2Λκειμ-ουδ'] = args['γπ2Λκειμ-ουδ'] or ''	args['δπ2Λκειμ-ουδ'] = args['δπ2Λκειμ-ουδ'] or ''
	args['απ2Λκειμ-ουδ'] = args['απ2Λκειμ-ουδ'] or ''	args['κπ2Λκειμ-ουδ'] = args['κπ2Λκειμ-ουδ'] or ''
	args['οδ2Λκειμ-ουδ'] = args['οδ2Λκειμ-ουδ'] or ''	args['γδ2Λκειμ-ουδ'] = args['γδ2Λκειμ-ουδ'] or ''

-- add text at the beginning of each cell -- κείμενο ΠΡΙΝ τη λέξη οεΛκειμ1
	args['οεΛκειμ1-αρσ'] = args['οεΛκειμ1-αρσ'] or ''	args['γεΛκειμ1-αρσ'] = args['γεΛκειμ1-αρσ'] or ''	args['δεΛκειμ1-αρσ'] = args['δεΛκειμ1-αρσ'] or ''
	args['αεΛκειμ1-αρσ'] = args['αεΛκειμ1-αρσ'] or ''	args['κεΛκειμ1-αρσ'] = args['κεΛκειμ1-αρσ'] or ''
	args['οπΛκειμ1-αρσ'] = args['οπΛκειμ1-αρσ'] or ''	args['γπΛκειμ1-αρσ'] = args['γπΛκειμ1-αρσ'] or ''	args['δπΛκειμ1-αρσ'] = args['δπΛκειμ1-αρσ'] or ''
	args['απΛκειμ1-αρσ'] = args['απΛκειμ1-αρσ'] or ''	args['κπΛκειμ1-αρσ'] = args['κπΛκειμ1-αρσ'] or ''
	args['οδΛκειμ1-αρσ'] = args['οδΛκειμ1-αρσ'] or ''	args['γδΛκειμ1-αρσ'] = args['γδΛκειμ1-αρσ'] or ''
	
	args['οεΛκειμ1-θηλ'] = args['οεΛκειμ1-θηλ'] or ''	args['γεΛκειμ1-θηλ'] = args['γεΛκειμ1-θηλ'] or ''	args['δεΛκειμ1-θηλ'] = args['δεΛκειμ1-θηλ'] or ''
	args['αεΛκειμ1-θηλ'] = args['αεΛκειμ1-θηλ'] or ''	args['κεΛκειμ1-θηλ'] = args['κεΛκειμ1-θηλ'] or ''
	args['οπΛκειμ1-θηλ'] = args['οπΛκειμ1-θηλ'] or ''	args['γπΛκειμ1-θηλ'] = args['γπΛκειμ1-θηλ'] or ''	args['δπΛκειμ1-θηλ'] = args['δπΛκειμ1-θηλ'] or ''
	args['απΛκειμ1-θηλ'] = args['απΛκειμ1-θηλ'] or ''	args['κπΛκειμ1-θηλ'] = args['κπΛκειμ1-θηλ'] or ''
	args['οδΛκειμ1-θηλ'] = args['οδΛκειμ1-θηλ'] or ''	args['γδΛκειμ1-θηλ'] = args['γδΛκειμ1-θηλ'] or ''
	
	args['οεΛκειμ1-ουδ'] = args['οεΛκειμ1-ουδ'] or ''	args['γεΛκειμ1-ουδ'] = args['γεΛκειμ1-ουδ'] or ''	args['δεΛκειμ1-ουδ'] = args['δεΛκειμ1-ουδ'] or ''
	args['αεΛκειμ1-ουδ'] = args['αεΛκειμ1-ουδ'] or ''	args['κεΛκειμ1-ουδ'] = args['κεΛκειμ1-ουδ'] or ''
	args['οπΛκειμ1-ουδ'] = args['οπΛκειμ1-ουδ'] or ''	args['γπΛκειμ1-ουδ'] = args['γπΛκειμ1-ουδ'] or ''	args['δπΛκειμ1-ουδ'] = args['δπΛκειμ1-ουδ'] or ''
	args['απΛκειμ1-ουδ'] = args['απΛκειμ1-ουδ'] or ''	args['κπΛκειμ1-ουδ'] = args['κπΛκειμ1-ουδ'] or ''
	args['οδΛκειμ1-ουδ'] = args['οδΛκειμ1-ουδ'] or ''	args['γδΛκειμ1-ουδ'] = args['γδΛκειμ1-ουδ'] or ''
-- for second word	
	args['οε2Λκειμ1-αρσ'] = args['οε2Λκειμ1-αρσ'] or ''	args['γε2Λκειμ1-αρσ'] = args['γε2Λκειμ1-αρσ'] or ''	args['δε2Λκειμ1-αρσ'] = args['δε2Λκειμ1-αρσ'] or ''
	args['αε2Λκειμ1-αρσ'] = args['αε2Λκειμ1-αρσ'] or ''	args['κε2Λκειμ1-αρσ'] = args['κε2Λκειμ1-αρσ'] or ''
	args['οπ2Λκειμ1-αρσ'] = args['οπ2Λκειμ1-αρσ'] or ''	args['γπ2Λκειμ1-αρσ'] = args['γπ2Λκειμ1-αρσ'] or ''	args['δπ2Λκειμ1-αρσ'] = args['δπ2Λκειμ1-αρσ'] or ''
	args['απ2Λκειμ1-αρσ'] = args['απ2Λκειμ1-αρσ'] or ''	args['κπ2Λκειμ1-αρσ'] = args['κπ2Λκειμ1-αρσ'] or ''
	args['οδ2Λκειμ1-αρσ'] = args['οδ2Λκειμ1-αρσ'] or ''	args['γδ2Λκειμ1-αρσ'] = args['γδ2Λκειμ1-αρσ'] or ''
	
	args['οε2Λκειμ1-θηλ'] = args['οε2Λκειμ1-θηλ'] or ''	args['γε2Λκειμ1-θηλ'] = args['γε2Λκειμ1-θηλ'] or ''	args['δε2Λκειμ1-θηλ'] = args['δε2Λκειμ1-θηλ'] or ''
	args['αε2Λκειμ1-θηλ'] = args['αε2Λκειμ1-θηλ'] or ''	args['κε2Λκειμ1-θηλ'] = args['κε2Λκειμ1-θηλ'] or ''
	args['οπ2Λκειμ1-θηλ'] = args['οπ2Λκειμ1-θηλ'] or ''	args['γπ2Λκειμ1-θηλ'] = args['γπ2Λκειμ1-θηλ'] or ''	args['δπ2Λκειμ1-θηλ'] = args['δπ2Λκειμ1-θηλ'] or ''
	args['απ2Λκειμ1-θηλ'] = args['απ2Λκειμ1-θηλ'] or ''	args['κπ2Λκειμ1-θηλ'] = args['κπ2Λκειμ1-θηλ'] or ''
	args['οδ2Λκειμ1-θηλ'] = args['οδ2Λκειμ1-θηλ'] or ''	args['γδ2Λκειμ1-θηλ'] = args['γδ2Λκειμ1-θηλ'] or ''
	
	args['οε2Λκειμ1-ουδ'] = args['οε2Λκειμ1-ουδ'] or ''	args['γε2Λκειμ1-ουδ'] = args['γε2Λκειμ1-ουδ'] or ''	args['δε2Λκειμ1-ουδ'] = args['δε2Λκειμ1-ουδ'] or ''
	args['αε2Λκειμ1-ουδ'] = args['αε2Λκειμ1-ουδ'] or ''	args['κε2Λκειμ1-ουδ'] = args['κε2Λκειμ1-ουδ'] or ''
	args['οπ2Λκειμ1-ουδ'] = args['οπ2Λκειμ1-ουδ'] or ''	args['γπ2Λκειμ1-ουδ'] = args['γπ2Λκειμ1-ουδ'] or ''	args['δπ2Λκειμ1-ουδ'] = args['δπ2Λκειμ1-ουδ'] or ''
	args['απ2Λκειμ1-ουδ'] = args['απ2Λκειμ1-ουδ'] or ''	args['κπ2Λκειμ1-ουδ'] = args['κπ2Λκειμ1-ουδ'] or ''
	args['οδ2Λκειμ1-ουδ'] = args['οδ2Λκειμ1-ουδ'] or ''	args['γδ2Λκειμ1-ουδ'] = args['γδ2Λκειμ1-ουδ'] or ''

-- ΑΝΤΩΝΥΜΙΕΣ - PRONOUNS like [[ἑκάτερος]] [[ἔνιοι]]
if args['μέρος λόγου'] == 'Αντωνυμίες' then
	args['άρθρα'] = '-'		-- ?? perhaps decide this in modules
	args['όπως'] = args['κατ']
	args['παράρτημα'] = '[[Παράρτημα:Γραμματική (αρχαία ελληνικά)#Αντωνυμίες|Παράρτημα#Αντωνυμίες]]'
	args['κε-αρσ'] = '-'	args['κπ-αρσ'] = '-'
	args['κε-θηλ'] = '-'	args['κπ-θηλ'] = '-'
	args['κε-ουδ'] = '-'	args['κπ-ουδ'] = '-'
	if args['α'] == 'πλ' then -- ?? is there one? ([[ἀμφότερος]] has sing
		args['οε-αρσ'] = ''	args['γε-αρσ'] = ''	args['δε-αρσ'] = ''	args['αε-αρσ'] = ''	args['κε-αρσ'] = ''
		args['οε-θηλ'] = ''	args['γε-θηλ'] = ''	args['δε-θηλ'] = ''	args['αε-θηλ'] = ''	args['κε-θηλ'] = ''
		args['οε-ουδ'] = ''	args['γε-ουδ'] = ''	args['δε-ουδ'] = ''	args['αε-ουδ'] = ''	args['κε-ουδ'] = ''
		args['κατηγ2'] = 'Αντωνυμίες χωρίς ενικό'
	end
	-- ?? is there something singular only?
end



-- MASC =============================================
-- masc nom sg
	-- zero ending
	if args['οε-αρσ'] == '0' then
		args['mod-οεΛ-αρσ'] = args['οεΛκειμ1-αρσ'] 
		.. create_link(args['οεθ-αρσ'], stem_color(args['οεθ+-αρσ'])) .. args['οεΛκειμ-αρσ']
	end
	if args['οε2-αρσ'] == '0' then
		args['οε2Λ-αρσ'] = br .. args['οε2Λκειμ1-αρσ'] 
		.. create_link(args['οε2θ-αρσ'], stem_color(args['οε2θ+-αρσ'])) .. args['οε2Λκειμ-αρσ']
	end
	-- first word
	if args['οε-αρσ'] ~= '-' and args['οε-αρσ'] ~= '0' and args['οε-αρσ'] ~= '' and args['οε-αρσ'] ~= nil then
		args['mod-οεΛ-αρσ'] = args['οεΛκειμ1-αρσ'] 
		.. create_link(args['οεθ-αρσ'] .. args['οε-αρσ'], stem_color(args['οεθ+-αρσ']) .. ending_color(args['οε+-αρσ'])) .. args['οεΛκειμ-αρσ']
	elseif args['οε-αρσ'] == '-' then
   		args['mod-οεΛ-αρσ'] = args['οεΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οεΛκειμ-αρσ']
	end
	-- second word
	if args['οε2-αρσ'] ~= '-' and args['οε2-αρσ'] ~= '0' and args['οε2-αρσ'] ~= '' and args['οε2-αρσ'] ~= nil then
		args['οε2Λ-αρσ'] = br .. args['οε2Λκειμ1-αρσ'] 
		.. create_link(args['οε2θ-αρσ'] .. args['οε2-αρσ'], stem_color(args['οε2θ+-αρσ']) .. ending_color(args['οε2+-αρσ'])) .. args['οε2Λκειμ-αρσ']
	elseif args['οε2-αρσ'] == '-' then
   		args['οε2Λ-αρσ'] = br .. args['οε2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οε2Λκειμ-αρσ']
	end
-- option
   	if  args['οεΛ-αρσ'] ~= '' and args['οεΛ-αρσ'] ~= nil then
   		args['οεΛ-αρσ'] =  args['οεΛ-αρσ'] .. args['οε2Λ-αρσ']  
   	else
   		if args['οε2-αρσ'] ~= '' and args['οε2-αρσ'] ~= nil then
   			args['οεΛ-αρσ'] = args['mod-οεΛ-αρσ'] .. args['οε2Λ-αρσ']
   		else
			args['οεΛ-αρσ'] = args['mod-οεΛ-αρσ'] .. args['οε2Λ-αρσ'] 
		end
   	end


-- masc gen sg
	-- zero ending
	if args['γε-αρσ'] == '0' then
		args['mod-γεΛ-αρσ'] = args['γεΛκειμ1-αρσ'] 
		.. create_link(args['γεθ-αρσ'], stem_color(args['γεθ+-αρσ'])) .. args['γεΛκειμ-αρσ']
	end
	if args['γε2-αρσ'] == '0' then
		args['γε2Λ-αρσ'] = br .. args['γε2Λκειμ1-αρσ'] 
		.. create_link(args['γε2θ-αρσ'], stem_color(args['γε2θ+-αρσ'])) .. args['γε2Λκειμ-αρσ']
	end
	-- first word
	if args['γε-αρσ'] ~= '-' and args['γε-αρσ'] ~= '0' and args['γε-αρσ'] ~= '' and args['γε-αρσ'] ~= nil then
		args['mod-γεΛ-αρσ'] = args['γεΛκειμ1-αρσ'] 
		.. create_link(args['γεθ-αρσ'] .. args['γε-αρσ'], stem_color(args['γεθ+-αρσ']) .. ending_color(args['γε+-αρσ'])) .. args['γεΛκειμ-αρσ']
	elseif args['γε-αρσ'] == '-' then
   		args['mod-γεΛ-αρσ'] = args['γεΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γεΛκειμ-αρσ']
	end
	-- second word
	if args['γε2-αρσ'] ~= '-' and args['γε2-αρσ'] ~= '0' and args['γε2-αρσ'] ~= '' and args['γε2-αρσ'] ~= nil then
		args['γε2Λ-αρσ'] = br .. args['γε2Λκειμ1-αρσ'] 
		.. create_link(args['γε2θ-αρσ'] .. args['γε2-αρσ'], stem_color(args['γε2θ+-αρσ']) .. ending_color(args['γε2+-αρσ'])) .. args['γε2Λκειμ-αρσ']
	elseif args['γε2-αρσ'] == '-' then
   		args['γε2Λ-αρσ'] = br .. args['γε2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γε2Λκειμ-αρσ']
	end
-- option
   	if  args['γεΛ-αρσ'] ~= '' and args['γεΛ-αρσ'] ~= nil then
   		args['γεΛ-αρσ'] =  args['γεΛ-αρσ'] .. args['γε2Λ-αρσ']  
   	else
   		if args['γε2-αρσ'] ~= '' and args['γε2-αρσ'] ~= nil then
   			args['γεΛ-αρσ'] = args['mod-γεΛ-αρσ'] .. args['γε2Λ-αρσ']
   		else
			args['γεΛ-αρσ'] = args['mod-γεΛ-αρσ'] .. args['γε2Λ-αρσ'] 
		end
	end  

-- masc dat sg
	-- zero ending
	if args['δε-αρσ'] == '0' then
		args['mod-δεΛ-αρσ'] = args['δεΛκειμ1-αρσ'] 
		.. create_link(args['δεθ-αρσ'], stem_color(args['δεθ+-αρσ'])) .. args['δεΛκειμ-αρσ']
	end
	if args['δε2-αρσ'] == '0' then
		args['δε2Λ-αρσ'] = br .. args['δε2Λκειμ1-αρσ'] 
		.. create_link(args['δε2θ-αρσ'], stem_color(args['δε2θ+-αρσ'])) .. args['δε2Λκειμ-αρσ']
	end
	-- first word
	if args['δε-αρσ'] ~= '-' and args['δε-αρσ'] ~= '0' and args['δε-αρσ'] ~= '' and args['δε-αρσ'] ~= nil then
		args['mod-δεΛ-αρσ'] = args['δεΛκειμ1-αρσ'] 
		.. create_link(args['δεθ-αρσ'] .. args['δε-αρσ'], stem_color(args['δεθ+-αρσ']) .. ending_color(args['δε+-αρσ'])) .. args['δεΛκειμ-αρσ']
	elseif args['δε-αρσ'] == '-' then
   		args['mod-δεΛ-αρσ'] = args['δεΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δεΛκειμ-αρσ']
	end
	-- second word
	if args['δε2-αρσ'] ~= '-' and args['δε2-αρσ'] ~= '0' and args['δε2-αρσ'] ~= '' and args['δε2-αρσ'] ~= nil then
		args['δε2Λ-αρσ'] = br .. args['δε2Λκειμ1-αρσ'] 
		.. create_link(args['δε2θ-αρσ'] .. args['δε2-αρσ'], stem_color(args['δε2θ+-αρσ']) .. ending_color(args['δε2+-αρσ'])) .. args['δε2Λκειμ-αρσ']
	elseif args['δε2-αρσ'] == '-' then
   		args['δε2Λ-αρσ'] = br .. args['δε2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δε2Λκειμ-αρσ']
	end
-- option
   	if  args['δεΛ-αρσ'] ~= '' and args['δεΛ-αρσ'] ~= nil then
   		args['δεΛ-αρσ'] =  args['δεΛ-αρσ'] .. args['δε2Λ-αρσ']  
   	else
   		if args['δε2-αρσ'] ~= '' and args['δε2-αρσ'] ~= nil then
   			args['δεΛ-αρσ'] = args['mod-δεΛ-αρσ'] .. args['δε2Λ-αρσ']
   		else
			args['δεΛ-αρσ'] = args['mod-δεΛ-αρσ'] .. args['δε2Λ-αρσ'] 
		end
	end  

-- masc acc sg
	-- zero ending
	if args['αε-αρσ'] == '0' then
		args['mod-αεΛ-αρσ'] = args['αεΛκειμ1-αρσ'] 
		.. create_link(args['αεθ-αρσ'], stem_color(args['αεθ+-αρσ'])) .. args['αεΛκειμ-αρσ']
	end
	if args['αε2-αρσ'] == '0' then
		args['αε2Λ-αρσ'] = br .. args['αε2Λκειμ1-αρσ'] 
		.. create_link(args['αε2θ-αρσ'], stem_color(args['αε2θ+-αρσ'])) .. args['αε2Λκειμ-αρσ']
	end
	-- first word
	if args['αε-αρσ'] ~= '-' and args['αε-αρσ'] ~= '0' and args['αε-αρσ'] ~= '' and args['αε-αρσ'] ~= nil then
		args['mod-αεΛ-αρσ'] = args['αεΛκειμ1-αρσ'] 
		.. create_link(args['αεθ-αρσ'] .. args['αε-αρσ'], stem_color(args['αεθ+-αρσ']) .. ending_color(args['αε+-αρσ'])) .. args['αεΛκειμ-αρσ']
	elseif args['αε-αρσ'] == '-' then
   		args['mod-αεΛ-αρσ'] = args['αεΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αεΛκειμ-αρσ']
	end
	-- second word
	if args['αε2-αρσ'] ~= '-' and args['αε2-αρσ'] ~= '0' and args['αε2-αρσ'] ~= '' and args['αε2-αρσ'] ~= nil then
		args['αε2Λ-αρσ'] = br .. args['αε2Λκειμ1-αρσ'] 
		.. create_link(args['αε2θ-αρσ'] .. args['αε2-αρσ'], stem_color(args['αε2θ+-αρσ']) .. ending_color(args['αε2+-αρσ'])) .. args['αε2Λκειμ-αρσ']
	elseif args['αε2-αρσ'] == '-' then
   		args['αε2Λ-αρσ'] = br .. args['αε2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αε2Λκειμ-αρσ']
	end
-- option
   	if  args['αεΛ-αρσ'] ~= '' and args['αεΛ-αρσ'] ~= nil then
   		args['αεΛ-αρσ'] =  args['αεΛ-αρσ'] .. args['αε2Λ-αρσ']  
   	else
   		if args['αε2-αρσ'] ~= '' and args['αε2-αρσ'] ~= nil then
   			args['αεΛ-αρσ'] = args['mod-αεΛ-αρσ'] .. args['αε2Λ-αρσ']
   		else
			args['αεΛ-αρσ'] = args['mod-αεΛ-αρσ'] .. args['αε2Λ-αρσ'] 
		end
	end  

-- masc voc sg
	-- zero ending
	if args['κε-αρσ'] == '0' then
		args['mod-κεΛ-αρσ'] = args['κεΛκειμ1-αρσ'] 
		.. create_link(args['κεθ-αρσ'], stem_color(args['κεθ+-αρσ'])) .. args['κεΛκειμ-αρσ']
	end
	if args['κε2-αρσ'] == '0' then
		args['κε2Λ-αρσ'] = br .. args['κε2Λκειμ1-αρσ'] 
		.. create_link(args['κε2θ-αρσ'], stem_color(args['κε2θ+-αρσ'])) .. args['κε2Λκειμ-αρσ']
	end
	-- first word
	if args['κε-αρσ'] ~= '-' and args['κε-αρσ'] ~= '0' and args['κε-αρσ'] ~= '' and args['κε-αρσ'] ~= nil then
		args['mod-κεΛ-αρσ'] = args['κεΛκειμ1-αρσ'] 
		.. create_link(args['κεθ-αρσ'] .. args['κε-αρσ'], stem_color(args['κεθ+-αρσ']) .. ending_color(args['κε+-αρσ'])) .. args['κεΛκειμ-αρσ']
	elseif args['κε-αρσ'] == '-' then
   		args['mod-κεΛ-αρσ'] = args['κεΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κεΛκειμ-αρσ']
	end
	-- second word
	if args['κε2-αρσ'] ~= '-' and args['κε2-αρσ'] ~= '0' and args['κε2-αρσ'] ~= '' and args['κε2-αρσ'] ~= nil then
		args['κε2Λ-αρσ'] = br .. args['κε2Λκειμ1-αρσ'] 
		.. create_link(args['κε2θ-αρσ'] .. args['κε2-αρσ'], stem_color(args['κε2θ+-αρσ']) .. ending_color(args['κε2+-αρσ'])) .. args['κε2Λκειμ-αρσ']
	elseif args['κε2-αρσ'] == '-' then
   		args['κε2Λ-αρσ'] = br .. args['κε2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κε2Λκειμ-αρσ']
	end
-- option
   	if  args['κεΛ-αρσ'] ~= '' and args['κεΛ-αρσ'] ~= nil then
   		args['κεΛ-αρσ'] =  args['κεΛ-αρσ'] .. args['κε2Λ-αρσ']  
   	else
   		if args['κε2-αρσ'] ~= '' and args['κε2-αρσ'] ~= nil then
   			args['κεΛ-αρσ'] = args['mod-κεΛ-αρσ'] .. args['κε2Λ-αρσ']
   		else
			args['κεΛ-αρσ'] = args['mod-κεΛ-αρσ'] .. args['κε2Λ-αρσ'] 
		end
	end  

-- MASC PLURAL  +n movable at dative
-- masc nom pl
	-- zero ending
	if args['οπ-αρσ'] == '0' then
		args['mod-οπΛ-αρσ'] = args['οπΛκειμ1-αρσ'] 
		.. create_link(args['οπθ-αρσ'], stem_color(args['οπθ+-αρσ'])) .. args['οπΛκειμ-αρσ']
	end
	if args['οπ2-αρσ'] == '0' then
		args['οπ2Λ-αρσ'] = br .. args['οπ2Λκειμ1-αρσ'] 
		.. create_link(args['οπ2θ-αρσ'], stem_color(args['οπ2θ+-αρσ'])) .. args['οπ2Λκειμ-αρσ']
	end
	-- first word
	if args['οπ-αρσ'] ~= '-' and args['οπ-αρσ'] ~= '0' and args['οπ-αρσ'] ~= '' and args['οπ-αρσ'] ~= nil then
		args['mod-οπΛ-αρσ'] = args['οπΛκειμ1-αρσ'] 
		.. create_link(args['οπθ-αρσ'] .. args['οπ-αρσ'], stem_color(args['οπθ+-αρσ']) .. ending_color(args['οπ+-αρσ'])) .. args['οπΛκειμ-αρσ']
	elseif args['οπ-αρσ'] == '-' then
   		args['mod-οπΛ-αρσ'] = args['οπΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπΛκειμ-αρσ']
	end
	-- second word
	if args['οπ2-αρσ'] ~= '-' and args['οπ2-αρσ'] ~= '0' and args['οπ2-αρσ'] ~= '' and args['οπ2-αρσ'] ~= nil then
		args['οπ2Λ-αρσ'] = br .. args['οπ2Λκειμ1-αρσ'] 
		.. create_link(args['οπ2θ-αρσ'] .. args['οπ2-αρσ'], stem_color(args['οπ2θ+-αρσ']) .. ending_color(args['οπ2+-αρσ'])) .. args['οπ2Λκειμ-αρσ']
	elseif args['οπ2-αρσ'] == '-' then
   		args['οπ2Λ-αρσ'] = br .. args['οπ2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπ2Λκειμ-αρσ']
	end
-- option
   	if  args['οπΛ-αρσ'] ~= '' and args['οπΛ-αρσ'] ~= nil then
   		args['οπΛ-αρσ'] =  args['οπΛ-αρσ'] .. args['οπ2Λ-αρσ']  
   	else
   		if args['οπ2-αρσ'] ~= '' and args['οπ2-αρσ'] ~= nil then
   			args['οπΛ-αρσ'] = args['mod-οπΛ-αρσ'] .. args['οπ2Λ-αρσ']
   		else
			args['οπΛ-αρσ'] = args['mod-οπΛ-αρσ'] .. args['οπ2Λ-αρσ'] 
		end
	end  

-- masc gen pl
	-- zero ending
	if args['γπ-αρσ'] == '0' then
		args['mod-γπΛ-αρσ'] = args['γπΛκειμ1-αρσ'] 
		.. create_link(args['γπθ-αρσ'], stem_color(args['γπθ+-αρσ'])) .. args['γπΛκειμ-αρσ']
	end
	if args['γπ2-αρσ'] == '0' then
		args['γπ2Λ-αρσ'] = br .. args['γπ2Λκειμ1-αρσ'] 
		.. create_link(args['γπ2θ-αρσ'], stem_color(args['γπ2θ+-αρσ'])) .. args['γπ2Λκειμ-αρσ']
	end
	-- first word
	if args['γπ-αρσ'] ~= '-' and args['γπ-αρσ'] ~= '0' and args['γπ-αρσ'] ~= '' and args['γπ-αρσ'] ~= nil then
		args['mod-γπΛ-αρσ'] = args['γπΛκειμ1-αρσ'] 
		.. create_link(args['γπθ-αρσ'] .. args['γπ-αρσ'], stem_color(args['γπθ+-αρσ']) .. ending_color(args['γπ+-αρσ'])) .. args['γπΛκειμ-αρσ']
	elseif args['γπ-αρσ'] == '-' then
   		args['mod-γπΛ-αρσ'] = args['γπΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπΛκειμ-αρσ']
	end
	-- second word
	if args['γπ2-αρσ'] ~= '-' and args['γπ2-αρσ'] ~= '0' and args['γπ2-αρσ'] ~= '' and args['γπ2-αρσ'] ~= nil then
		args['γπ2Λ-αρσ'] = br .. args['γπ2Λκειμ1-αρσ'] 
		.. create_link(args['γπ2θ-αρσ'] .. args['γπ2-αρσ'], stem_color(args['γπ2θ+-αρσ']) .. ending_color(args['γπ2+-αρσ'])) .. args['γπ2Λκειμ-αρσ']
	elseif args['γπ2-αρσ'] == '-' then
   		args['γπ2Λ-αρσ'] = br .. args['γπ2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπ2Λκειμ-αρσ']
	end
-- option
   	if  args['γπΛ-αρσ'] ~= '' and args['γπΛ-αρσ'] ~= nil then
   		args['γπΛ-αρσ'] =  args['γπΛ-αρσ'] .. args['γπ2Λ-αρσ']  
   	else
   		if args['γπ2-αρσ'] ~= '' and args['γπ2-αρσ'] ~= nil then
   			args['γπΛ-αρσ'] = args['mod-γπΛ-αρσ'] .. args['γπ2Λ-αρσ']
   		else
			args['γπΛ-αρσ'] = args['mod-γπΛ-αρσ'] .. args['γπ2Λ-αρσ'] 
		end
	end  

-- masc dat pl + plus novable nu - νυ εφελκυστικόν e.g. [[στάς]]
	-- zero ending
	if args['δπ-αρσ'] == '0' then
		args['mod-δπΛ-αρσ'] = args['δπΛκειμ1-αρσ'] 
		.. create_link(args['δπθ-αρσ'], stem_color(args['δπθ+-αρσ'])) .. args['δπΛκειμ-αρσ']
	end
	if args['δπ2-αρσ'] == '0' then
		args['δπ2Λ-αρσ'] = br .. args['δπ2Λκειμ1-αρσ'] 
		.. create_link(args['δπ2θ-αρσ'], stem_color(args['δπ2θ+-αρσ'])) .. args['δπ2Λκειμ-αρσ']
	end
	-- first word + movable nu option
	if args['δπ-αρσ'] ~= '-' and args['δπ-αρσ'] ~= '0' and args['δπ-αρσ'] ~= '' and args['δπ-αρσ'] ~= nil then
		if args['ν'] == '1' then
		args['mod-δπΛ-αρσ'] = args['δπΛκειμ1-αρσ']
		.. create_link(args['δπθ-αρσ'] .. args['δπ-αρσ'], stem_color(args['δπθ+-αρσ']) .. ending_color(args['δπ+-αρσ']))
		.. create_link(args['δπθ-αρσ'] .. args['δπ-αρσ'] .. "ν", stem_color("&#40;") .. ending_color("ν") .. stem_color("&#41;"))
		.. args['δπΛκειμ-αρσ']
		else -- NO movable n
		args['mod-δπΛ-αρσ'] = args['δπΛκειμ1-αρσ'] .. create_link(args['δπθ-αρσ'] .. args['δπ-αρσ'], stem_color(args['δπθ+-αρσ']) .. ending_color(args['δπ+-αρσ'])) .. args['δπΛκειμ-αρσ']
		end -- close movable nu
	elseif args['δπ-αρσ'] == '-' then
   		args['mod-δπΛ-αρσ'] = args['δπΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δπΛκειμ-αρσ']
	end
	-- second word at new line + movable nu2 option
	if args['δπ2-αρσ'] ~= '-' and args['δπ2-αρσ'] ~= '0' and args['δπ2-αρσ'] ~= '' and args['δπ2-αρσ'] ~= nil then
		if args['ν2'] == '1' then
		args['δπ2Λ-αρσ'] =  br .. args['δπ2Λκειμ1-αρσ']
		.. create_link(args['δπ2θ-αρσ'] .. args['δπ2-αρσ'], stem_color(args['δπ2θ+-αρσ']) .. ending_color(args['δπ2+-αρσ']))
		.. create_link(args['δπ2θ-αρσ'] .. args['δπ2-αρσ'] .. "ν", stem_color("&#40;") .. ending_color("ν") .. stem_color("&#41;")) 
		.. args['δπ2Λκειμ-αρσ']
		else -- NO movable n2
		args['δπ2Λ-αρσ'] =  br .. args['δπ2Λκειμ1-αρσ'] .. create_link(args['δπ2θ-αρσ'] .. args['δπ2-αρσ'], stem_color(args['δπ2θ+-αρσ']) .. ending_color(args['δπ2+-αρσ'])) .. args['δπ2Λκειμ-αρσ']
		end -- close movable nu2
	elseif args['δπ2-αρσ'] == '-' then
   		args['δπ2Λ-αρσ'] = br .. args['δπ2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δπ2Λκειμ-αρσ']
	end
-- option
   	if  args['δπΛ-αρσ'] ~= '' and args['δπΛ-αρσ'] ~= nil then
   		args['δπΛ-αρσ'] =  args['δπΛ-αρσ'] .. args['δπ2Λ-αρσ']  
   	else
   		if args['δπ2-αρσ'] ~= '' and args['δπ2-αρσ'] ~= nil then
   			args['δπΛ-αρσ'] = args['mod-δπΛ-αρσ'] .. args['δπ2Λ-αρσ']
   		else
			args['δπΛ-αρσ'] = args['mod-δπΛ-αρσ'] .. args['δπ2Λ-αρσ'] 
		end
	end  
	
-- masc acc pl
	-- zero ending
	if args['απ-αρσ'] == '0' then
		args['mod-απΛ-αρσ'] = args['απΛκειμ1-αρσ'] 
		.. create_link(args['απθ-αρσ'], stem_color(args['απθ+-αρσ'])) .. args['απΛκειμ-αρσ']
	end
	if args['απ2-αρσ'] == '0' then
		args['απ2Λ-αρσ'] = br .. args['απ2Λκειμ1-αρσ'] 
		.. create_link(args['απ2θ-αρσ'], stem_color(args['απ2θ+-αρσ'])) .. args['απ2Λκειμ-αρσ']
	end
	-- first word
	if args['απ-αρσ'] ~= '-' and args['απ-αρσ'] ~= '0' and args['απ-αρσ'] ~= '' and args['απ-αρσ'] ~= nil then
		args['mod-απΛ-αρσ'] = args['απΛκειμ1-αρσ'] 
		.. create_link(args['απθ-αρσ'] .. args['απ-αρσ'], stem_color(args['απθ+-αρσ']) .. ending_color(args['απ+-αρσ'])) .. args['απΛκειμ-αρσ']
	elseif args['απ-αρσ'] == '-' then
   		args['mod-απΛ-αρσ'] = args['απΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απΛκειμ-αρσ']
	end
	-- second word
	if args['απ2-αρσ'] ~= '-' and args['απ2-αρσ'] ~= '0' and args['απ2-αρσ'] ~= '' and args['απ2-αρσ'] ~= nil then
		args['απ2Λ-αρσ'] = br .. args['απ2Λκειμ1-αρσ'] 
		.. create_link(args['απ2θ-αρσ'] .. args['απ2-αρσ'], stem_color(args['απ2θ+-αρσ']) .. ending_color(args['απ2+-αρσ'])) .. args['απ2Λκειμ-αρσ']
	elseif args['απ2-αρσ'] == '-' then
   		args['απ2Λ-αρσ'] = br .. args['απ2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απ2Λκειμ-αρσ']
	end
-- option
   	if  args['απΛ-αρσ'] ~= '' and args['απΛ-αρσ'] ~= nil then
   		args['απΛ-αρσ'] =  args['απΛ-αρσ'] .. args['απ2Λ-αρσ']  
   	else
   		if args['απ2-αρσ'] ~= '' and args['απ2-αρσ'] ~= nil then
   			args['απΛ-αρσ'] = args['mod-απΛ-αρσ'] .. args['απ2Λ-αρσ']
   		else
			args['απΛ-αρσ'] = args['mod-απΛ-αρσ'] .. args['απ2Λ-αρσ'] 
		end
	end  
	
-- masc voc pl
	-- zero ending
	if args['κπ-αρσ'] == '0' then
		args['mod-κπΛ-αρσ'] = args['κπΛκειμ1-αρσ'] 
		.. create_link(args['κπθ-αρσ'], stem_color(args['κπθ+-αρσ'])) .. args['κπΛκειμ-αρσ']
	end
	if args['κπ2-αρσ'] == '0' then
		args['κπ2Λ-αρσ'] = br .. args['κπ2Λκειμ1-αρσ'] 
		.. create_link(args['κπ2θ-αρσ'], stem_color(args['κπ2θ+-αρσ'])) .. args['κπ2Λκειμ-αρσ']
	end
	-- first word
	if args['κπ-αρσ'] ~= '-' and args['κπ-αρσ'] ~= '0' and args['κπ-αρσ'] ~= '' and args['κπ-αρσ'] ~= nil then
		args['mod-κπΛ-αρσ'] = args['κπΛκειμ1-αρσ'] 
		.. create_link(args['κπθ-αρσ'] .. args['κπ-αρσ'], stem_color(args['κπθ+-αρσ']) .. ending_color(args['κπ+-αρσ'])) .. args['κπΛκειμ-αρσ']
	elseif args['κπ-αρσ'] == '-' then
   		args['mod-κπΛ-αρσ'] = args['κπΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπΛκειμ-αρσ']
	end
	-- second word
	if args['κπ2-αρσ'] ~= '-' and args['κπ2-αρσ'] ~= '0' and args['κπ2-αρσ'] ~= '' and args['κπ2-αρσ'] ~= nil then
		args['κπ2Λ-αρσ'] = br .. args['κπ2Λκειμ1-αρσ'] 
		.. create_link(args['κπ2θ-αρσ'] .. args['κπ2-αρσ'], stem_color(args['κπ2θ+-αρσ']) .. ending_color(args['κπ2+-αρσ'])) .. args['κπ2Λκειμ-αρσ']
	elseif args['κπ2-αρσ'] == '-' then
   		args['κπ2Λ-αρσ'] = br .. args['κπ2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπ2Λκειμ-αρσ']
	end
-- option
   	if  args['κπΛ-αρσ'] ~= '' and args['κπΛ-αρσ'] ~= nil then
   		args['κπΛ-αρσ'] =  args['κπΛ-αρσ'] .. args['κπ2Λ-αρσ']  
   	else
   		if args['κπ2-αρσ'] ~= '' and args['κπ2-αρσ'] ~= nil then
   			args['κπΛ-αρσ'] = args['mod-κπΛ-αρσ'] .. args['κπ2Λ-αρσ']
   		else
			args['κπΛ-αρσ'] = args['mod-κπΛ-αρσ'] .. args['κπ2Λ-αρσ'] 
		end
	end  

-- MASC dual
-- masc nom.acc.voc du
	-- zero ending
	if args['οδ-αρσ'] == '0' then
		args['mod-οδΛ-αρσ'] = args['οδΛκειμ1-αρσ'] 
		.. create_link(args['οδθ-αρσ'], stem_color(args['οδθ+-αρσ'])) .. args['οδΛκειμ-αρσ']
	end
	if args['οδ2-αρσ'] == '0' then
		args['οδ2Λ-αρσ'] = br .. args['οδ2Λκειμ1-αρσ'] 
		.. create_link(args['οδ2θ-αρσ'], stem_color(args['οδ2θ+-αρσ'])) .. args['οδ2Λκειμ-αρσ']
	end
	-- first word
	if args['οδ-αρσ'] ~= '-' and args['οδ-αρσ'] ~= '0' and args['οδ-αρσ'] ~= '' and args['οδ-αρσ'] ~= nil then
		args['mod-οδΛ-αρσ'] = args['οδΛκειμ1-αρσ'] 
		.. create_link(args['οδθ-αρσ'] .. args['οδ-αρσ'], stem_color(args['οδθ+-αρσ']) .. ending_color(args['οδ+-αρσ'])) .. args['οδΛκειμ-αρσ']
	elseif args['οδ-αρσ'] == '-' then
   		args['mod-οδΛ-αρσ'] = args['οδΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οδΛκειμ-αρσ']
	end
	-- second word
	if args['οδ2-αρσ'] ~= '-' and args['οδ2-αρσ'] ~= '0' and args['οδ2-αρσ'] ~= '' and args['οδ2-αρσ'] ~= nil then
		args['οδ2Λ-αρσ'] = br .. args['οδ2Λκειμ1-αρσ'] 
		.. create_link(args['οδ2θ-αρσ'] .. args['οδ2-αρσ'], stem_color(args['οδ2θ+-αρσ']) .. ending_color(args['οδ2+-αρσ'])) .. args['οδ2Λκειμ-αρσ']
	elseif args['οδ2-αρσ'] == '-' then
   		args['οδ2Λ-αρσ'] = br .. args['οδ2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οδ2Λκειμ-αρσ']
	end
-- option
   	if  args['οδΛ-αρσ'] ~= '' and args['οδΛ-αρσ'] ~= nil then
   		args['οδΛ-αρσ'] =  args['οδΛ-αρσ'] .. args['οδ2Λ-αρσ']  
   	else
   		if args['οδ2-αρσ'] ~= '' and args['οδ2-αρσ'] ~= nil then
   			args['οδΛ-αρσ'] = args['mod-οδΛ-αρσ'] .. args['οδ2Λ-αρσ']
   		else
			args['οδΛ-αρσ'] = args['mod-οδΛ-αρσ'] .. args['οδ2Λ-αρσ'] 
		end
	end  

-- masc gen.dat du
	-- zero ending
	if args['γδ-αρσ'] == '0' then
		args['mod-γδΛ-αρσ'] = args['γδΛκειμ1-αρσ'] 
		.. create_link(args['γδθ-αρσ'], stem_color(args['γδθ+-αρσ'])) .. args['γδΛκειμ-αρσ']
	end
	if args['γδ2-αρσ'] == '0' then
		args['γδ2Λ-αρσ'] = br .. args['γδ2Λκειμ1-αρσ'] 
		.. create_link(args['γδ2θ-αρσ'], stem_color(args['γδ2θ+-αρσ'])) .. args['γδ2Λκειμ-αρσ']
	end
	-- first word
	if args['γδ-αρσ'] ~= '-' and args['γδ-αρσ'] ~= '0' and args['γδ-αρσ'] ~= '' and args['γδ-αρσ'] ~= nil then
		args['mod-γδΛ-αρσ'] = args['γδΛκειμ1-αρσ'] 
		.. create_link(args['γδθ-αρσ'] .. args['γδ-αρσ'], stem_color(args['γδθ+-αρσ']) .. ending_color(args['γδ+-αρσ'])) .. args['γδΛκειμ-αρσ']
	elseif args['γδ-αρσ'] == '-' then
   		args['mod-γδΛ-αρσ'] = args['γδΛκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γδΛκειμ-αρσ']
	end
	-- second word
	if args['γδ2-αρσ'] ~= '-' and args['γδ2-αρσ'] ~= '0' and args['γδ2-αρσ'] ~= '' and args['γδ2-αρσ'] ~= nil then
		args['γδ2Λ-αρσ'] = br .. args['γδ2Λκειμ1-αρσ'] 
		.. create_link(args['γδ2θ-αρσ'] .. args['γδ2-αρσ'], stem_color(args['γδ2θ+-αρσ']) .. ending_color(args['γδ2+-αρσ'])) .. args['γδ2Λκειμ-αρσ']
	elseif args['γδ2-αρσ'] == '-' then
   		args['γδ2Λ-αρσ'] = br .. args['γδ2Λκειμ1-αρσ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γδ2Λκειμ-αρσ']
	end
-- option
   	if  args['γδΛ-αρσ'] ~= '' and args['γδΛ-αρσ'] ~= nil then
   		args['γδΛ-αρσ'] =  args['γδΛ-αρσ'] .. args['γδ2Λ-αρσ']  
   	else
   		if args['γδ2-αρσ'] ~= '' and args['γδ2-αρσ'] ~= nil then
   			args['γδΛ-αρσ'] = args['mod-γδΛ-αρσ'] .. args['γδ2Λ-αρσ']
   		else
			args['γδΛ-αρσ'] = args['mod-γδΛ-αρσ'] .. args['γδ2Λ-αρσ'] 
		end
	end  
   	
-- FEM ===================================
-- fem nom sg
	-- zero ending
	if args['οε-θηλ'] == '0' then
		args['mod-οεΛ-θηλ'] = args['οεΛκειμ1-θηλ'] 
		.. create_link(args['οεθ-θηλ'], stem_color(args['οεθ+-θηλ'])) .. args['οεΛκειμ-θηλ']
	end
	if args['οε2-θηλ'] == '0' then
		args['οε2Λ-θηλ'] = br .. args['οε2Λκειμ1-θηλ'] 
		.. create_link(args['οε2θ-θηλ'], stem_color(args['οε2θ+-θηλ'])) .. args['οε2Λκειμ-θηλ']
	end
	-- first word
	if args['οε-θηλ'] ~= '-' and args['οε-θηλ'] ~= '0' and args['οε-θηλ'] ~= '' and args['οε-θηλ'] ~= nil then
		args['mod-οεΛ-θηλ'] = args['οεΛκειμ1-θηλ'] 
		.. create_link(args['οεθ-θηλ'] .. args['οε-θηλ'], stem_color(args['οεθ+-θηλ']) .. ending_color(args['οε+-θηλ'])) .. args['οεΛκειμ-θηλ']
	elseif args['οε-θηλ'] == '-' then
   		args['mod-οεΛ-θηλ'] = args['οεΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οεΛκειμ-θηλ']
	end
	-- second word
	if args['οε2-θηλ'] ~= '-' and args['οε2-θηλ'] ~= '0' and args['οε2-θηλ'] ~= '' and args['οε2-θηλ'] ~= nil then
		args['οε2Λ-θηλ'] = br .. args['οε2Λκειμ1-θηλ'] 
		.. create_link(args['οε2θ-θηλ'] .. args['οε2-θηλ'], stem_color(args['οε2θ+-θηλ']) .. ending_color(args['οε2+-θηλ'])) .. args['οε2Λκειμ-θηλ']
	elseif args['οε2-θηλ'] == '-' then
   		args['οε2Λ-θηλ'] = br .. args['οε2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οε2Λκειμ-θηλ']
	end
-- option
   	if  args['οεΛ-θηλ'] ~= '' and args['οεΛ-θηλ'] ~= nil then
   		args['οεΛ-θηλ'] =  args['οεΛ-θηλ'] .. args['οε2Λ-θηλ']  
   	else
   		if args['οε2-θηλ'] ~= '' and args['οε2-θηλ'] ~= nil then
   			args['οεΛ-θηλ'] = args['mod-οεΛ-θηλ'] .. args['οε2Λ-θηλ']
   		else
			args['οεΛ-θηλ'] = args['mod-οεΛ-θηλ'] .. args['οε2Λ-θηλ'] 
		end
	end  

-- fem gen sg
	-- zero ending
	if args['γε-θηλ'] == '0' then
		args['mod-γεΛ-θηλ'] = args['γεΛκειμ1-θηλ'] 
		.. create_link(args['γεθ-θηλ'], stem_color(args['γεθ+-θηλ'])) .. args['γεΛκειμ-θηλ']
	end
	if args['γε2-θηλ'] == '0' then
		args['γε2Λ-θηλ'] = br .. args['γε2Λκειμ1-θηλ'] 
		.. create_link(args['γε2θ-θηλ'], stem_color(args['γε2θ+-θηλ'])) .. args['γε2Λκειμ-θηλ']
	end
	-- first word
	if args['γε-θηλ'] ~= '-' and args['γε-θηλ'] ~= '0' and args['γε-θηλ'] ~= '' and args['γε-θηλ'] ~= nil then
		args['mod-γεΛ-θηλ'] = args['γεΛκειμ1-θηλ'] 
		.. create_link(args['γεθ-θηλ'] .. args['γε-θηλ'], stem_color(args['γεθ+-θηλ']) .. ending_color(args['γε+-θηλ'])) .. args['γεΛκειμ-θηλ']
	elseif args['γε-θηλ'] == '-' then
   		args['mod-γεΛ-θηλ'] = args['γεΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γεΛκειμ-θηλ']
	end
	-- second word
	if args['γε2-θηλ'] ~= '-' and args['γε2-θηλ'] ~= '0' and args['γε2-θηλ'] ~= '' and args['γε2-θηλ'] ~= nil then
		args['γε2Λ-θηλ'] = br .. args['γε2Λκειμ1-θηλ'] 
		.. create_link(args['γε2θ-θηλ'] .. args['γε2-θηλ'], stem_color(args['γε2θ+-θηλ']) .. ending_color(args['γε2+-θηλ'])) .. args['γε2Λκειμ-θηλ']
	elseif args['γε2-θηλ'] == '-' then
   		args['γε2Λ-θηλ'] = br .. args['γε2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γε2Λκειμ-θηλ']
	end
-- option
   	if  args['γεΛ-θηλ'] ~= '' and args['γεΛ-θηλ'] ~= nil then
   		args['γεΛ-θηλ'] =  args['γεΛ-θηλ'] .. args['γε2Λ-θηλ']  
   	else
   		if args['γε2-θηλ'] ~= '' and args['γε2-θηλ'] ~= nil then
   			args['γεΛ-θηλ'] = args['mod-γεΛ-θηλ'] .. args['γε2Λ-θηλ']
   		else
			args['γεΛ-θηλ'] = args['mod-γεΛ-θηλ'] .. args['γε2Λ-θηλ'] 
		end
	end  

-- fem dat sg	
	-- zero ending
	if args['δε-θηλ'] == '0' then
		args['mod-δεΛ-θηλ'] = args['δεΛκειμ1-θηλ'] 
		.. create_link(args['δεθ-θηλ'], stem_color(args['δεθ+-θηλ'])) .. args['δεΛκειμ-θηλ']
	end
	if args['δε2-θηλ'] == '0' then
		args['δε2Λ-θηλ'] = br .. args['δε2Λκειμ1-θηλ'] 
		.. create_link(args['δε2θ-θηλ'], stem_color(args['δε2θ+-θηλ'])) .. args['δε2Λκειμ-θηλ']
	end
	-- first word
	if args['δε-θηλ'] ~= '-' and args['δε-θηλ'] ~= '0' and args['δε-θηλ'] ~= '' and args['δε-θηλ'] ~= nil then
		args['mod-δεΛ-θηλ'] = args['δεΛκειμ1-θηλ'] 
		.. create_link(args['δεθ-θηλ'] .. args['δε-θηλ'], stem_color(args['δεθ+-θηλ']) .. ending_color(args['δε+-θηλ'])) .. args['δεΛκειμ-θηλ']
	elseif args['δε-θηλ'] == '-' then
   		args['mod-δεΛ-θηλ'] = args['δεΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δεΛκειμ-θηλ']
	end
	-- second word
	if args['δε2-θηλ'] ~= '-' and args['δε2-θηλ'] ~= '0' and args['δε2-θηλ'] ~= '' and args['δε2-θηλ'] ~= nil then
		args['δε2Λ-θηλ'] = br .. args['δε2Λκειμ1-θηλ'] 
		.. create_link(args['δε2θ-θηλ'] .. args['δε2-θηλ'], stem_color(args['δε2θ+-θηλ']) .. ending_color(args['δε2+-θηλ'])) .. args['δε2Λκειμ-θηλ']
	elseif args['δε2-θηλ'] == '-' then
   		args['δε2Λ-θηλ'] = br .. args['δε2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δε2Λκειμ-θηλ']
	end
-- option
   	if  args['δεΛ-θηλ'] ~= '' and args['δεΛ-θηλ'] ~= nil then
   		args['δεΛ-θηλ'] =  args['δεΛ-θηλ'] .. args['δε2Λ-θηλ']  
   	else
   		if args['δε2-θηλ'] ~= '' and args['δε2-θηλ'] ~= nil then
   			args['δεΛ-θηλ'] = args['mod-δεΛ-θηλ'] .. args['δε2Λ-θηλ']
   		else
			args['δεΛ-θηλ'] = args['mod-δεΛ-θηλ'] .. args['δε2Λ-θηλ'] 
		end
	end  

-- fem acc sg
	-- zero ending
	if args['αε-θηλ'] == '0' then
		args['mod-αεΛ-θηλ'] = args['αεΛκειμ1-θηλ'] 
		.. create_link(args['αεθ-θηλ'], stem_color(args['αεθ+-θηλ'])) .. args['αεΛκειμ-θηλ']
	end
	if args['αε2-θηλ'] == '0' then
		args['αε2Λ-θηλ'] = br .. args['αε2Λκειμ1-θηλ'] 
		.. create_link(args['αε2θ-θηλ'], stem_color(args['αε2θ+-θηλ'])) .. args['αε2Λκειμ-θηλ']
	end
	-- first word
	if args['αε-θηλ'] ~= '-' and args['αε-θηλ'] ~= '0' and args['αε-θηλ'] ~= '' and args['αε-θηλ'] ~= nil then
		args['mod-αεΛ-θηλ'] = args['αεΛκειμ1-θηλ'] 
		.. create_link(args['αεθ-θηλ'] .. args['αε-θηλ'], stem_color(args['αεθ+-θηλ']) .. ending_color(args['αε+-θηλ'])) .. args['αεΛκειμ-θηλ']
	elseif args['αε-θηλ'] == '-' then
   		args['mod-αεΛ-θηλ'] = args['αεΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αεΛκειμ-θηλ']
	end
	-- second word
	if args['αε2-θηλ'] ~= '-' and args['αε2-θηλ'] ~= '0' and args['αε2-θηλ'] ~= '' and args['αε2-θηλ'] ~= nil then
		args['αε2Λ-θηλ'] = br .. args['αε2Λκειμ1-θηλ'] 
		.. create_link(args['αε2θ-θηλ'] .. args['αε2-θηλ'], stem_color(args['αε2θ+-θηλ']) .. ending_color(args['αε2+-θηλ'])) .. args['αε2Λκειμ-θηλ']
	elseif args['αε2-θηλ'] == '-' then
   		args['αε2Λ-θηλ'] = br .. args['αε2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αε2Λκειμ-θηλ']
	end
-- option
   	if  args['αεΛ-θηλ'] ~= '' and args['αεΛ-θηλ'] ~= nil then
   		args['αεΛ-θηλ'] =  args['αεΛ-θηλ'] .. args['αε2Λ-θηλ']  
   	else
   		if args['αε2-θηλ'] ~= '' and args['αε2-θηλ'] ~= nil then
   			args['αεΛ-θηλ'] = args['mod-αεΛ-θηλ'] .. args['αε2Λ-θηλ']
   		else
			args['αεΛ-θηλ'] = args['mod-αεΛ-θηλ'] .. args['αε2Λ-θηλ'] 
		end
	end  

-- fem voc sg
	-- zero ending
	if args['κε-θηλ'] == '0' then
		args['mod-κεΛ-θηλ'] = args['κεΛκειμ1-θηλ'] 
		.. create_link(args['κεθ-θηλ'], stem_color(args['κεθ+-θηλ'])) .. args['κεΛκειμ-θηλ']
	end
	if args['κε2-θηλ'] == '0' then
		args['κε2Λ-θηλ'] = br .. args['κε2Λκειμ1-θηλ'] 
		.. create_link(args['κε2θ-θηλ'], stem_color(args['κε2θ+-θηλ'])) .. args['κε2Λκειμ-θηλ']
	end
	-- first word
	if args['κε-θηλ'] ~= '-' and args['κε-θηλ'] ~= '0' and args['κε-θηλ'] ~= '' and args['κε-θηλ'] ~= nil then
		args['mod-κεΛ-θηλ'] = args['κεΛκειμ1-θηλ'] 
		.. create_link(args['κεθ-θηλ'] .. args['κε-θηλ'], stem_color(args['κεθ+-θηλ']) .. ending_color(args['κε+-θηλ'])) .. args['κεΛκειμ-θηλ']
	elseif args['κε-θηλ'] == '-' then
   		args['mod-κεΛ-θηλ'] = args['κεΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κεΛκειμ-θηλ']
	end
	-- second word
	if args['κε2-θηλ'] ~= '-' and args['κε2-θηλ'] ~= '0' and args['κε2-θηλ'] ~= '' and args['κε2-θηλ'] ~= nil then
		args['κε2Λ-θηλ'] = br .. args['κε2Λκειμ1-θηλ'] 
		.. create_link(args['κε2θ-θηλ'] .. args['κε2-θηλ'], stem_color(args['κε2θ+-θηλ']) .. ending_color(args['κε2+-θηλ'])) .. args['κε2Λκειμ-θηλ']
	elseif args['κε2-θηλ'] == '-' then
   		args['κε2Λ-θηλ'] = br .. args['κε2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κε2Λκειμ-θηλ']
	end
-- option
   	if  args['κεΛ-θηλ'] ~= '' and args['κεΛ-θηλ'] ~= nil then
   		args['κεΛ-θηλ'] =  args['κεΛ-θηλ'] .. args['κε2Λ-θηλ']  
   	else
   		if args['κε2-θηλ'] ~= '' and args['κε2-θηλ'] ~= nil then
   			args['κεΛ-θηλ'] = args['mod-κεΛ-θηλ'] .. args['κε2Λ-θηλ']
   		else
			args['κεΛ-θηλ'] = args['mod-κεΛ-θηλ'] .. args['κε2Λ-θηλ'] 
		end
	end  


-- FEM PLURAL ΝΟ n movable at dative
-- fem nom pl
	-- zero ending
	if args['οπ-θηλ'] == '0' then
		args['mod-οπΛ-θηλ'] = args['οπΛκειμ1-θηλ'] 
		.. create_link(args['οπθ-θηλ'], stem_color(args['οπθ+-θηλ'])) .. args['οπΛκειμ-θηλ']
	end
	if args['οπ2-θηλ'] == '0' then
		args['οπ2Λ-θηλ'] = br .. args['οπ2Λκειμ1-θηλ'] 
		.. create_link(args['οπ2θ-θηλ'], stem_color(args['οπ2θ+-θηλ'])) .. args['οπ2Λκειμ-θηλ']
	end
	-- first word
	if args['οπ-θηλ'] ~= '-' and args['οπ-θηλ'] ~= '0' and args['οπ-θηλ'] ~= '' and args['οπ-θηλ'] ~= nil then
		args['mod-οπΛ-θηλ'] = args['οπΛκειμ1-θηλ'] 
		.. create_link(args['οπθ-θηλ'] .. args['οπ-θηλ'], stem_color(args['οπθ+-θηλ']) .. ending_color(args['οπ+-θηλ'])) .. args['οπΛκειμ-θηλ']
	elseif args['οπ-θηλ'] == '-' then
   		args['mod-οπΛ-θηλ'] = args['οπΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπΛκειμ-θηλ']
	end
	-- second word
	if args['οπ2-θηλ'] ~= '-' and args['οπ2-θηλ'] ~= '0' and args['οπ2-θηλ'] ~= '' and args['οπ2-θηλ'] ~= nil then
		args['οπ2Λ-θηλ'] = br .. args['οπ2Λκειμ1-θηλ'] 
		.. create_link(args['οπ2θ-θηλ'] .. args['οπ2-θηλ'], stem_color(args['οπ2θ+-θηλ']) .. ending_color(args['οπ2+-θηλ'])) .. args['οπ2Λκειμ-θηλ']
	elseif args['οπ2-θηλ'] == '-' then
   		args['οπ2Λ-θηλ'] = br .. args['οπ2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπ2Λκειμ-θηλ']
	end
-- option
   	if  args['οπΛ-θηλ'] ~= '' and args['οπΛ-θηλ'] ~= nil then
   		args['οπΛ-θηλ'] =  args['οπΛ-θηλ'] .. args['οπ2Λ-θηλ']  
   	else
   		if args['οπ2-θηλ'] ~= '' and args['οπ2-θηλ'] ~= nil then
   			args['οπΛ-θηλ'] = args['mod-οπΛ-θηλ'] .. args['οπ2Λ-θηλ']
   		else
			args['οπΛ-θηλ'] = args['mod-οπΛ-θηλ'] .. args['οπ2Λ-θηλ'] 
		end
	end  


-- fem gen pl	
	-- zero ending
	if args['γπ-θηλ'] == '0' then
		args['mod-γπΛ-θηλ'] = args['γπΛκειμ1-θηλ'] 
		.. create_link(args['γπθ-θηλ'], stem_color(args['γπθ+-θηλ'])) .. args['γπΛκειμ-θηλ']
	end
	if args['γπ2-θηλ'] == '0' then
		args['γπ2Λ-θηλ'] = br .. args['γπ2Λκειμ1-θηλ'] 
		.. create_link(args['γπ2θ-θηλ'], stem_color(args['γπ2θ+-θηλ'])) .. args['γπ2Λκειμ-θηλ']
	end
	-- first word
	if args['γπ-θηλ'] ~= '-' and args['γπ-θηλ'] ~= '0' and args['γπ-θηλ'] ~= '' and args['γπ-θηλ'] ~= nil then
		args['mod-γπΛ-θηλ'] = args['γπΛκειμ1-θηλ'] 
		.. create_link(args['γπθ-θηλ'] .. args['γπ-θηλ'], stem_color(args['γπθ+-θηλ']) .. ending_color(args['γπ+-θηλ'])) .. args['γπΛκειμ-θηλ']
	elseif args['γπ-θηλ'] == '-' then
   		args['mod-γπΛ-θηλ'] = args['γπΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπΛκειμ-θηλ']
	end
	-- second word
	if args['γπ2-θηλ'] ~= '-' and args['γπ2-θηλ'] ~= '0' and args['γπ2-θηλ'] ~= '' and args['γπ2-θηλ'] ~= nil then
		args['γπ2Λ-θηλ'] = br .. args['γπ2Λκειμ1-θηλ'] 
		.. create_link(args['γπ2θ-θηλ'] .. args['γπ2-θηλ'], stem_color(args['γπ2θ+-θηλ']) .. ending_color(args['γπ2+-θηλ'])) .. args['γπ2Λκειμ-θηλ']
	elseif args['γπ2-θηλ'] == '-' then
   		args['γπ2Λ-θηλ'] = br .. args['γπ2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπ2Λκειμ-θηλ']
	end
-- option
   	if  args['γπΛ-θηλ'] ~= '' and args['γπΛ-θηλ'] ~= nil then
   		args['γπΛ-θηλ'] =  args['γπΛ-θηλ'] .. args['γπ2Λ-θηλ']  
   	else
   		if args['γπ2-θηλ'] ~= '' and args['γπ2-θηλ'] ~= nil then
   			args['γπΛ-θηλ'] = args['mod-γπΛ-θηλ'] .. args['γπ2Λ-θηλ']
   		else
			args['γπΛ-θηλ'] = args['mod-γπΛ-θηλ'] .. args['γπ2Λ-θηλ'] 
		end
	end  

-- fem dat pl (like the other cases, NO movable n here)
	-- zero ending
	if args['δπ-θηλ'] == '0' then
		args['mod-δπΛ-θηλ'] = args['δπΛκειμ1-θηλ'] 
		.. create_link(args['δπθ-θηλ'], stem_color(args['δπθ+-θηλ'])) .. args['δπΛκειμ-θηλ']
	end
	if args['δπ2-θηλ'] == '0' then
		args['δπ2Λ-θηλ'] = br .. args['δπ2Λκειμ1-θηλ'] 
		.. create_link(args['δπ2θ-θηλ'], stem_color(args['δπ2θ+-θηλ'])) .. args['δπ2Λκειμ-θηλ']
	end
	-- first word
	if args['δπ-θηλ'] ~= '-' and args['δπ-θηλ'] ~= '0' and args['δπ-θηλ'] ~= '' and args['δπ-θηλ'] ~= nil then
		args['mod-δπΛ-θηλ'] = args['δπΛκειμ1-θηλ'] 
		.. create_link(args['δπθ-θηλ'] .. args['δπ-θηλ'], stem_color(args['δπθ+-θηλ']) .. ending_color(args['δπ+-θηλ'])) .. args['δπΛκειμ-θηλ']
	elseif args['δπ-θηλ'] == '-' then
   		args['mod-δπΛ-θηλ'] = args['δπΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δπΛκειμ-θηλ']
	end
	-- second word
	if args['δπ2-θηλ'] ~= '-' and args['δπ2-θηλ'] ~= '0' and args['δπ2-θηλ'] ~= '' and args['δπ2-θηλ'] ~= nil then
		args['δπ2Λ-θηλ'] = br .. args['δπ2Λκειμ1-θηλ'] 
		.. create_link(args['δπ2θ-θηλ'] .. args['δπ2-θηλ'], stem_color(args['δπ2θ+-θηλ']) .. ending_color(args['δπ2+-θηλ'])) .. args['δπ2Λκειμ-θηλ']
	elseif args['δπ2-θηλ'] == '-' then
   		args['δπ2Λ-θηλ'] = br .. args['δπ2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δπ2Λκειμ-θηλ']
	end
-- option
   	if  args['δπΛ-θηλ'] ~= '' and args['δπΛ-θηλ'] ~= nil then
   		args['δπΛ-θηλ'] =  args['δπΛ-θηλ'] .. args['δπ2Λ-θηλ']  
   	else
   		if args['δπ2-θηλ'] ~= '' and args['δπ2-θηλ'] ~= nil then
   			args['δπΛ-θηλ'] = args['mod-δπΛ-θηλ'] .. args['δπ2Λ-θηλ']
   		else
			args['δπΛ-θηλ'] = args['mod-δπΛ-θηλ'] .. args['δπ2Λ-θηλ'] 
		end
	end  

-- fem acc pl
	-- zero ending
	if args['απ-θηλ'] == '0' then
		args['mod-απΛ-θηλ'] = args['απΛκειμ1-θηλ'] 
		.. create_link(args['απθ-θηλ'], stem_color(args['απθ+-θηλ'])) .. args['απΛκειμ-θηλ']
	end
	if args['απ2-θηλ'] == '0' then
		args['απ2Λ-θηλ'] = br .. args['απ2Λκειμ1-θηλ'] 
		.. create_link(args['απ2θ-θηλ'], stem_color(args['απ2θ+-θηλ'])) .. args['απ2Λκειμ-θηλ']
	end
	-- first word
	if args['απ-θηλ'] ~= '-' and args['απ-θηλ'] ~= '0' and args['απ-θηλ'] ~= '' and args['απ-θηλ'] ~= nil then
		args['mod-απΛ-θηλ'] = args['απΛκειμ1-θηλ'] 
		.. create_link(args['απθ-θηλ'] .. args['απ-θηλ'], stem_color(args['απθ+-θηλ']) .. ending_color(args['απ+-θηλ'])) .. args['απΛκειμ-θηλ']
	elseif args['απ-θηλ'] == '-' then
   		args['mod-απΛ-θηλ'] = args['απΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απΛκειμ-θηλ']
	end
	-- second word
	if args['απ2-θηλ'] ~= '-' and args['απ2-θηλ'] ~= '0' and args['απ2-θηλ'] ~= '' and args['απ2-θηλ'] ~= nil then
		args['απ2Λ-θηλ'] = br .. args['απ2Λκειμ1-θηλ'] 
		.. create_link(args['απ2θ-θηλ'] .. args['απ2-θηλ'], stem_color(args['απ2θ+-θηλ']) .. ending_color(args['απ2+-θηλ'])) .. args['απ2Λκειμ-θηλ']
	elseif args['απ2-θηλ'] == '-' then
   		args['απ2Λ-θηλ'] = br .. args['απ2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απ2Λκειμ-θηλ']
	end
-- option
   	if  args['απΛ-θηλ'] ~= '' and args['απΛ-θηλ'] ~= nil then
   		args['απΛ-θηλ'] =  args['απΛ-θηλ'] .. args['απ2Λ-θηλ']  
   	else
   		if args['απ2-θηλ'] ~= '' and args['απ2-θηλ'] ~= nil then
   			args['απΛ-θηλ'] = args['mod-απΛ-θηλ'] .. args['απ2Λ-θηλ']
   		else
			args['απΛ-θηλ'] = args['mod-απΛ-θηλ'] .. args['απ2Λ-θηλ'] 
		end
	end  

-- fem voc pl
	-- zero ending
	if args['κπ-θηλ'] == '0' then
		args['mod-κπΛ-θηλ'] = args['κπΛκειμ1-θηλ'] 
		.. create_link(args['κπθ-θηλ'], stem_color(args['κπθ+-θηλ'])) .. args['κπΛκειμ-θηλ']
	end
	if args['κπ2-θηλ'] == '0' then
		args['κπ2Λ-θηλ'] = br .. args['κπ2Λκειμ1-θηλ'] 
		.. create_link(args['κπ2θ-θηλ'], stem_color(args['κπ2θ+-θηλ'])) .. args['κπ2Λκειμ-θηλ']
	end
	-- first word
	if args['κπ-θηλ'] ~= '-' and args['κπ-θηλ'] ~= '0' and args['κπ-θηλ'] ~= '' and args['κπ-θηλ'] ~= nil then
		args['mod-κπΛ-θηλ'] = args['κπΛκειμ1-θηλ'] 
		.. create_link(args['κπθ-θηλ'] .. args['κπ-θηλ'], stem_color(args['κπθ+-θηλ']) .. ending_color(args['κπ+-θηλ'])) .. args['κπΛκειμ-θηλ']
	elseif args['κπ-θηλ'] == '-' then
   		args['mod-κπΛ-θηλ'] = args['κπΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπΛκειμ-θηλ']
	end
	-- second word
	if args['κπ2-θηλ'] ~= '-' and args['κπ2-θηλ'] ~= '0' and args['κπ2-θηλ'] ~= '' and args['κπ2-θηλ'] ~= nil then
		args['κπ2Λ-θηλ'] = br .. args['κπ2Λκειμ1-θηλ'] 
		.. create_link(args['κπ2θ-θηλ'] .. args['κπ2-θηλ'], stem_color(args['κπ2θ+-θηλ']) .. ending_color(args['κπ2+-θηλ'])) .. args['κπ2Λκειμ-θηλ']
	elseif args['κπ2-θηλ'] == '-' then
   		args['κπ2Λ-θηλ'] = br .. args['κπ2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπ2Λκειμ-θηλ']
	end
-- option
   	if  args['κπΛ-θηλ'] ~= '' and args['κπΛ-θηλ'] ~= nil then
   		args['κπΛ-θηλ'] =  args['κπΛ-θηλ'] .. args['κπ2Λ-θηλ']  
   	else
   		if args['κπ2-θηλ'] ~= '' and args['κπ2-θηλ'] ~= nil then
   			args['κπΛ-θηλ'] = args['mod-κπΛ-θηλ'] .. args['κπ2Λ-θηλ']
   		else
			args['κπΛ-θηλ'] = args['mod-κπΛ-θηλ'] .. args['κπ2Λ-θηλ'] 
		end
	end  

-- FEM DUAL		
-- fem nom.acc.voc du
	-- zero ending
	if args['οδ-θηλ'] == '0' then
		args['mod-οδΛ-θηλ'] = args['οδΛκειμ1-θηλ'] 
		.. create_link(args['οδθ-θηλ'], stem_color(args['οδθ+-θηλ'])) .. args['οδΛκειμ-θηλ']
	end
	if args['οδ2-θηλ'] == '0' then
		args['οδ2Λ-θηλ'] = br .. args['οδ2Λκειμ1-θηλ'] 
		.. create_link(args['οδ2θ-θηλ'], stem_color(args['οδ2θ+-θηλ'])) .. args['οδ2Λκειμ-θηλ']
	end
	-- first word
	if args['οδ-θηλ'] ~= '-' and args['οδ-θηλ'] ~= '0' and args['οδ-θηλ'] ~= '' and args['οδ-θηλ'] ~= nil then
		args['mod-οδΛ-θηλ'] = args['οδΛκειμ1-θηλ'] 
		.. create_link(args['οδθ-θηλ'] .. args['οδ-θηλ'], stem_color(args['οδθ+-θηλ']) .. ending_color(args['οδ+-θηλ'])) .. args['οδΛκειμ-θηλ']
	elseif args['οδ-θηλ'] == '-' then
   		args['mod-οδΛ-θηλ'] = args['οδΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οδΛκειμ-θηλ']
	end
	-- second word
	if args['οδ2-θηλ'] ~= '-' and args['οδ2-θηλ'] ~= '0' and args['οδ2-θηλ'] ~= '' and args['οδ2-θηλ'] ~= nil then
		args['οδ2Λ-θηλ'] = br .. args['οδ2Λκειμ1-θηλ'] 
		.. create_link(args['οδ2θ-θηλ'] .. args['οδ2-θηλ'], stem_color(args['οδ2θ+-θηλ']) .. ending_color(args['οδ2+-θηλ'])) .. args['οδ2Λκειμ-θηλ']
	elseif args['οδ2-θηλ'] == '-' then
   		args['οδ2Λ-θηλ'] = br .. args['οδ2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οδ2Λκειμ-θηλ']
	end
-- option
   	if  args['οδΛ-θηλ'] ~= '' and args['οδΛ-θηλ'] ~= nil then
   		args['οδΛ-θηλ'] =  args['οδΛ-θηλ'] .. args['οδ2Λ-θηλ']  
   	else
   		if args['οδ2-θηλ'] ~= '' and args['οδ2-θηλ'] ~= nil then
   			args['οδΛ-θηλ'] = args['mod-οδΛ-θηλ'] .. args['οδ2Λ-θηλ']
   		else
			args['οδΛ-θηλ'] = args['mod-οδΛ-θηλ'] .. args['οδ2Λ-θηλ'] 
		end
	end  

-- fem gen.dat du	
	-- zero ending
	if args['γδ-θηλ'] == '0' then
		args['mod-γδΛ-θηλ'] = args['γδΛκειμ1-θηλ'] 
		.. create_link(args['γδθ-θηλ'], stem_color(args['γδθ+-θηλ'])) .. args['γδΛκειμ-θηλ']
	end
	if args['γδ2-θηλ'] == '0' then
		args['γδ2Λ-θηλ'] = br .. args['γδ2Λκειμ1-θηλ'] 
		.. create_link(args['γδ2θ-θηλ'], stem_color(args['γδ2θ+-θηλ'])) .. args['γδ2Λκειμ-θηλ']
	end
	-- first word
	if args['γδ-θηλ'] ~= '-' and args['γδ-θηλ'] ~= '0' and args['γδ-θηλ'] ~= '' and args['γδ-θηλ'] ~= nil then
		args['mod-γδΛ-θηλ'] = args['γδΛκειμ1-θηλ'] 
		.. create_link(args['γδθ-θηλ'] .. args['γδ-θηλ'], stem_color(args['γδθ+-θηλ']) .. ending_color(args['γδ+-θηλ'])) .. args['γδΛκειμ-θηλ']
	elseif args['γδ-θηλ'] == '-' then
   		args['mod-γδΛ-θηλ'] = args['γδΛκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γδΛκειμ-θηλ']
	end
	-- second word
	if args['γδ2-θηλ'] ~= '-' and args['γδ2-θηλ'] ~= '0' and args['γδ2-θηλ'] ~= '' and args['γδ2-θηλ'] ~= nil then
		args['γδ2Λ-θηλ'] = br .. args['γδ2Λκειμ1-θηλ'] 
		.. create_link(args['γδ2θ-θηλ'] .. args['γδ2-θηλ'], stem_color(args['γδ2θ+-θηλ']) .. ending_color(args['γδ2+-θηλ'])) .. args['γδ2Λκειμ-θηλ']
	elseif args['γδ2-θηλ'] == '-' then
   		args['γδ2Λ-θηλ'] = br .. args['γδ2Λκειμ1-θηλ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γδ2Λκειμ-θηλ']
	end
-- option
   	if  args['γδΛ-θηλ'] ~= '' and args['γδΛ-θηλ'] ~= nil then
   		args['γδΛ-θηλ'] =  args['γδΛ-θηλ'] .. args['γδ2Λ-θηλ']  
   	else
   		if args['γδ2-θηλ'] ~= '' and args['γδ2-θηλ'] ~= nil then
   			args['γδΛ-θηλ'] = args['mod-γδΛ-θηλ'] .. args['γδ2Λ-θηλ']
   		else
			args['γδΛ-θηλ'] = args['mod-γδΛ-θηλ'] .. args['γδ2Λ-θηλ'] 
		end
	end  
   	
-- NEU ======================================================
-- neu nom sg
	-- zero ending
	if args['οε-ουδ'] == '0' then
		args['mod-οεΛ-ουδ'] = args['οεΛκειμ1-ουδ'] 
		.. create_link(args['οεθ-ουδ'], stem_color(args['οεθ+-ουδ'])) .. args['οεΛκειμ-ουδ']
	end
	if args['οε2-ουδ'] == '0' then
		args['οε2Λ-ουδ'] = br .. args['οε2Λκειμ1-ουδ'] 
		.. create_link(args['οε2θ-ουδ'], stem_color(args['οε2θ+-ουδ'])) .. args['οε2Λκειμ-ουδ']
	end
	-- first word
	if args['οε-ουδ'] ~= '-' and args['οε-ουδ'] ~= '0' and args['οε-ουδ'] ~= '' and args['οε-ουδ'] ~= nil then
		args['mod-οεΛ-ουδ'] = args['οεΛκειμ1-ουδ'] 
		.. create_link(args['οεθ-ουδ'] .. args['οε-ουδ'], stem_color(args['οεθ+-ουδ']) .. ending_color(args['οε+-ουδ'])) .. args['οεΛκειμ-ουδ']
	elseif args['οε-ουδ'] == '-' then
   		args['mod-οεΛ-ουδ'] = args['οεΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οεΛκειμ-ουδ']
	end
	-- second word
	if args['οε2-ουδ'] ~= '-' and args['οε2-ουδ'] ~= '0' and args['οε2-ουδ'] ~= '' and args['οε2-ουδ'] ~= nil then
		args['οε2Λ-ουδ'] = br .. args['οε2Λκειμ1-ουδ'] 
		.. create_link(args['οε2θ-ουδ'] .. args['οε2-ουδ'], stem_color(args['οε2θ+-ουδ']) .. ending_color(args['οε2+-ουδ'])) .. args['οε2Λκειμ-ουδ']
	elseif args['οε2-ουδ'] == '-' then
   		args['οε2Λ-ουδ'] = br .. args['οε2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οε2Λκειμ-ουδ']
	end
-- option
   	if  args['οεΛ-ουδ'] ~= '' and args['οεΛ-ουδ'] ~= nil then
   		args['οεΛ-ουδ'] =  args['οεΛ-ουδ'] .. args['οε2Λ-ουδ']  
   	else
   		if args['οε2-ουδ'] ~= '' and args['οε2-ουδ'] ~= nil then
   			args['οεΛ-ουδ'] = args['mod-οεΛ-ουδ'] .. args['οε2Λ-ουδ']
   		else
			args['οεΛ-ουδ'] = args['mod-οεΛ-ουδ'] .. args['οε2Λ-ουδ'] 
		end
	end  

-- neu gen sg
	-- zero ending
	if args['γε-ουδ'] == '0' then
		args['mod-γεΛ-ουδ'] = args['γεΛκειμ1-ουδ'] 
		.. create_link(args['γεθ-ουδ'], stem_color(args['γεθ+-ουδ'])) .. args['γεΛκειμ-ουδ']
	end
	if args['γε2-ουδ'] == '0' then
		args['γε2Λ-ουδ'] = br .. args['γε2Λκειμ1-ουδ'] 
		.. create_link(args['γε2θ-ουδ'], stem_color(args['γε2θ+-ουδ'])) .. args['γε2Λκειμ-ουδ']
	end
	-- first word
	if args['γε-ουδ'] ~= '-' and args['γε-ουδ'] ~= '0' and args['γε-ουδ'] ~= '' and args['γε-ουδ'] ~= nil then
		args['mod-γεΛ-ουδ'] = args['γεΛκειμ1-ουδ'] 
		.. create_link(args['γεθ-ουδ'] .. args['γε-ουδ'], stem_color(args['γεθ+-ουδ']) .. ending_color(args['γε+-ουδ'])) .. args['γεΛκειμ-ουδ']
	elseif args['γε-ουδ'] == '-' then
   		args['mod-γεΛ-ουδ'] = args['γεΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γεΛκειμ-ουδ']
	end
	-- second word
	if args['γε2-ουδ'] ~= '-' and args['γε2-ουδ'] ~= '0' and args['γε2-ουδ'] ~= '' and args['γε2-ουδ'] ~= nil then
		args['γε2Λ-ουδ'] = br .. args['γε2Λκειμ1-ουδ'] 
		.. create_link(args['γε2θ-ουδ'] .. args['γε2-ουδ'], stem_color(args['γε2θ+-ουδ']) .. ending_color(args['γε2+-ουδ'])) .. args['γε2Λκειμ-ουδ']
	elseif args['γε2-ουδ'] == '-' then
   		args['γε2Λ-ουδ'] = br .. args['γε2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γε2Λκειμ-ουδ']
	end
-- option
   	if  args['γεΛ-ουδ'] ~= '' and args['γεΛ-ουδ'] ~= nil then
   		args['γεΛ-ουδ'] =  args['γεΛ-ουδ'] .. args['γε2Λ-ουδ']  
   	else
   		if args['γε2-ουδ'] ~= '' and args['γε2-ουδ'] ~= nil then
   			args['γεΛ-ουδ'] = args['mod-γεΛ-ουδ'] .. args['γε2Λ-ουδ']
   		else
			args['γεΛ-ουδ'] = args['mod-γεΛ-ουδ'] .. args['γε2Λ-ουδ'] 
		end
	end  

-- neu dat sg
	-- zero ending
	if args['δε-ουδ'] == '0' then
		args['mod-δεΛ-ουδ'] = args['δεΛκειμ1-ουδ'] 
		.. create_link(args['δεθ-ουδ'], stem_color(args['δεθ+-ουδ'])) .. args['δεΛκειμ-ουδ']
	end
	if args['δε2-ουδ'] == '0' then
		args['δε2Λ-ουδ'] = br .. args['δε2Λκειμ1-ουδ'] 
		.. create_link(args['δε2θ-ουδ'], stem_color(args['δε2θ+-ουδ'])) .. args['δε2Λκειμ-ουδ']
	end
	-- first word
	if args['δε-ουδ'] ~= '-' and args['δε-ουδ'] ~= '0' and args['δε-ουδ'] ~= '' and args['δε-ουδ'] ~= nil then
		args['mod-δεΛ-ουδ'] = args['δεΛκειμ1-ουδ'] 
		.. create_link(args['δεθ-ουδ'] .. args['δε-ουδ'], stem_color(args['δεθ+-ουδ']) .. ending_color(args['δε+-ουδ'])) .. args['δεΛκειμ-ουδ']
	elseif args['δε-ουδ'] == '-' then
   		args['mod-δεΛ-ουδ'] = args['δεΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δεΛκειμ-ουδ']
	end
	-- second word
	if args['δε2-ουδ'] ~= '-' and args['δε2-ουδ'] ~= '0' and args['δε2-ουδ'] ~= '' and args['δε2-ουδ'] ~= nil then
		args['δε2Λ-ουδ'] = br .. args['δε2Λκειμ1-ουδ'] 
		.. create_link(args['δε2θ-ουδ'] .. args['δε2-ουδ'], stem_color(args['δε2θ+-ουδ']) .. ending_color(args['δε2+-ουδ'])) .. args['δε2Λκειμ-ουδ']
	elseif args['δε2-ουδ'] == '-' then
   		args['δε2Λ-ουδ'] = br .. args['δε2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δε2Λκειμ-ουδ']
	end
-- option
   	if  args['δεΛ-ουδ'] ~= '' and args['δεΛ-ουδ'] ~= nil then
   		args['δεΛ-ουδ'] =  args['δεΛ-ουδ'] .. args['δε2Λ-ουδ']  
   	else
   		if args['δε2-ουδ'] ~= '' and args['δε2-ουδ'] ~= nil then
   			args['δεΛ-ουδ'] = args['mod-δεΛ-ουδ'] .. args['δε2Λ-ουδ']
   		else
			args['δεΛ-ουδ'] = args['mod-δεΛ-ουδ'] .. args['δε2Λ-ουδ'] 
		end
	end  

-- neu acc sg
	-- zero ending
	if args['αε-ουδ'] == '0' then
		args['mod-αεΛ-ουδ'] = args['αεΛκειμ1-ουδ'] 
		.. create_link(args['αεθ-ουδ'], stem_color(args['αεθ+-ουδ'])) .. args['αεΛκειμ-ουδ']
	end
	if args['αε2-ουδ'] == '0' then
		args['αε2Λ-ουδ'] = br .. args['αε2Λκειμ1-ουδ'] 
		.. create_link(args['αε2θ-ουδ'], stem_color(args['αε2θ+-ουδ'])) .. args['αε2Λκειμ-ουδ']
	end
	-- first word
	if args['αε-ουδ'] ~= '-' and args['αε-ουδ'] ~= '0' and args['αε-ουδ'] ~= '' and args['αε-ουδ'] ~= nil then
		args['mod-αεΛ-ουδ'] = args['αεΛκειμ1-ουδ'] 
		.. create_link(args['αεθ-ουδ'] .. args['αε-ουδ'], stem_color(args['αεθ+-ουδ']) .. ending_color(args['αε+-ουδ'])) .. args['αεΛκειμ-ουδ']
	elseif args['αε-ουδ'] == '-' then
   		args['mod-αεΛ-ουδ'] = args['αεΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αεΛκειμ-ουδ']
	end
	-- second word
	if args['αε2-ουδ'] ~= '-' and args['αε2-ουδ'] ~= '0' and args['αε2-ουδ'] ~= '' and args['αε2-ουδ'] ~= nil then
		args['αε2Λ-ουδ'] = br .. args['αε2Λκειμ1-ουδ'] 
		.. create_link(args['αε2θ-ουδ'] .. args['αε2-ουδ'], stem_color(args['αε2θ+-ουδ']) .. ending_color(args['αε2+-ουδ'])) .. args['αε2Λκειμ-ουδ']
	elseif args['αε2-ουδ'] == '-' then
   		args['αε2Λ-ουδ'] = br .. args['αε2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αε2Λκειμ-ουδ']
	end
-- option
   	if  args['αεΛ-ουδ'] ~= '' and args['αεΛ-ουδ'] ~= nil then
   		args['αεΛ-ουδ'] =  args['αεΛ-ουδ'] .. args['αε2Λ-ουδ']  
   	else
   		if args['αε2-ουδ'] ~= '' and args['αε2-ουδ'] ~= nil then
   			args['αεΛ-ουδ'] = args['mod-αεΛ-ουδ'] .. args['αε2Λ-ουδ']
   		else
			args['αεΛ-ουδ'] = args['mod-αεΛ-ουδ'] .. args['αε2Λ-ουδ'] 
		end
	end  

-- neu voc sg
	-- zero ending
	if args['κε-ουδ'] == '0' then
		args['mod-κεΛ-ουδ'] = args['κεΛκειμ1-ουδ'] 
		.. create_link(args['κεθ-ουδ'], stem_color(args['κεθ+-ουδ'])) .. args['κεΛκειμ-ουδ']
	end
	if args['κε2-ουδ'] == '0' then
		args['κε2Λ-ουδ'] = br .. args['κε2Λκειμ1-ουδ'] 
		.. create_link(args['κε2θ-ουδ'], stem_color(args['κε2θ+-ουδ'])) .. args['κε2Λκειμ-ουδ']
	end
	-- first word
	if args['κε-ουδ'] ~= '-' and args['κε-ουδ'] ~= '0' and args['κε-ουδ'] ~= '' and args['κε-ουδ'] ~= nil then
		args['mod-κεΛ-ουδ'] = args['κεΛκειμ1-ουδ'] 
		.. create_link(args['κεθ-ουδ'] .. args['κε-ουδ'], stem_color(args['κεθ+-ουδ']) .. ending_color(args['κε+-ουδ'])) .. args['κεΛκειμ-ουδ']
	elseif args['κε-ουδ'] == '-' then
   		args['mod-κεΛ-ουδ'] = args['κεΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κεΛκειμ-ουδ']
	end
	-- second word
	if args['κε2-ουδ'] ~= '-' and args['κε2-ουδ'] ~= '0' and args['κε2-ουδ'] ~= '' and args['κε2-ουδ'] ~= nil then
		args['κε2Λ-ουδ'] = br .. args['κε2Λκειμ1-ουδ'] 
		.. create_link(args['κε2θ-ουδ'] .. args['κε2-ουδ'], stem_color(args['κε2θ+-ουδ']) .. ending_color(args['κε2+-ουδ'])) .. args['κε2Λκειμ-ουδ']
	elseif args['κε2-ουδ'] == '-' then
   		args['κε2Λ-ουδ'] = br .. args['κε2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κε2Λκειμ-ουδ']
	end
-- option
   	if  args['κεΛ-ουδ'] ~= '' and args['κεΛ-ουδ'] ~= nil then
   		args['κεΛ-ουδ'] =  args['κεΛ-ουδ'] .. args['κε2Λ-ουδ']  
   	else
   		if args['κε2-ουδ'] ~= '' and args['κε2-ουδ'] ~= nil then
   			args['κεΛ-ουδ'] = args['mod-κεΛ-ουδ'] .. args['κε2Λ-ουδ']
   		else
			args['κεΛ-ουδ'] = args['mod-κεΛ-ουδ'] .. args['κε2Λ-ουδ'] 
		end
	end  

-- NEU PLURAL +n movable at dative
-- neu nom pl
	-- zero ending
	if args['οπ-ουδ'] == '0' then
		args['mod-οπΛ-ουδ'] = args['οπΛκειμ1-ουδ'] 
		.. create_link(args['οπθ-ουδ'], stem_color(args['οπθ+-ουδ'])) .. args['οπΛκειμ-ουδ']
	end
	if args['οπ2-ουδ'] == '0' then
		args['οπ2Λ-ουδ'] = br .. args['οπ2Λκειμ1-ουδ'] 
		.. create_link(args['οπ2θ-ουδ'], stem_color(args['οπ2θ+-ουδ'])) .. args['οπ2Λκειμ-ουδ']
	end
	-- first word
	if args['οπ-ουδ'] ~= '-' and args['οπ-ουδ'] ~= '0' and args['οπ-ουδ'] ~= '' and args['οπ-ουδ'] ~= nil then
		args['mod-οπΛ-ουδ'] = args['οπΛκειμ1-ουδ'] 
		.. create_link(args['οπθ-ουδ'] .. args['οπ-ουδ'], stem_color(args['οπθ+-ουδ']) .. ending_color(args['οπ+-ουδ'])) .. args['οπΛκειμ-ουδ']
	elseif args['οπ-ουδ'] == '-' then
   		args['mod-οπΛ-ουδ'] = args['οπΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπΛκειμ-ουδ']
	end
	-- second word
	if args['οπ2-ουδ'] ~= '-' and args['οπ2-ουδ'] ~= '0' and args['οπ2-ουδ'] ~= '' and args['οπ2-ουδ'] ~= nil then
		args['οπ2Λ-ουδ'] = br .. args['οπ2Λκειμ1-ουδ'] 
		.. create_link(args['οπ2θ-ουδ'] .. args['οπ2-ουδ'], stem_color(args['οπ2θ+-ουδ']) .. ending_color(args['οπ2+-ουδ'])) .. args['οπ2Λκειμ-ουδ']
	elseif args['οπ2-ουδ'] == '-' then
   		args['οπ2Λ-ουδ'] = br .. args['οπ2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπ2Λκειμ-ουδ']
	end
-- option
   	if  args['οπΛ-ουδ'] ~= '' and args['οπΛ-ουδ'] ~= nil then
   		args['οπΛ-ουδ'] =  args['οπΛ-ουδ'] .. args['οπ2Λ-ουδ']  
   	else
   		if args['οπ2-ουδ'] ~= '' and args['οπ2-ουδ'] ~= nil then
   			args['οπΛ-ουδ'] = args['mod-οπΛ-ουδ'] .. args['οπ2Λ-ουδ']
   		else
			args['οπΛ-ουδ'] = args['mod-οπΛ-ουδ'] .. args['οπ2Λ-ουδ'] 
		end
	end  

-- neu gen pl
	-- zero ending
	if args['γπ-ουδ'] == '0' then
		args['mod-γπΛ-ουδ'] = args['γπΛκειμ1-ουδ'] 
		.. create_link(args['γπθ-ουδ'], stem_color(args['γπθ+-ουδ'])) .. args['γπΛκειμ-ουδ']
	end
	if args['γπ2-ουδ'] == '0' then
		args['γπ2Λ-ουδ'] = br .. args['γπ2Λκειμ1-ουδ'] 
		.. create_link(args['γπ2θ-ουδ'], stem_color(args['γπ2θ+-ουδ'])) .. args['γπ2Λκειμ-ουδ']
	end
	-- first word
	if args['γπ-ουδ'] ~= '-' and args['γπ-ουδ'] ~= '0' and args['γπ-ουδ'] ~= '' and args['γπ-ουδ'] ~= nil then
		args['mod-γπΛ-ουδ'] = args['γπΛκειμ1-ουδ'] 
		.. create_link(args['γπθ-ουδ'] .. args['γπ-ουδ'], stem_color(args['γπθ+-ουδ']) .. ending_color(args['γπ+-ουδ'])) .. args['γπΛκειμ-ουδ']
	elseif args['γπ-ουδ'] == '-' then
   		args['mod-γπΛ-ουδ'] = args['γπΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπΛκειμ-ουδ']
	end
	-- second word
	if args['γπ2-ουδ'] ~= '-' and args['γπ2-ουδ'] ~= '0' and args['γπ2-ουδ'] ~= '' and args['γπ2-ουδ'] ~= nil then
		args['γπ2Λ-ουδ'] = br .. args['γπ2Λκειμ1-ουδ'] 
		.. create_link(args['γπ2θ-ουδ'] .. args['γπ2-ουδ'], stem_color(args['γπ2θ+-ουδ']) .. ending_color(args['γπ2+-ουδ'])) .. args['γπ2Λκειμ-ουδ']
	elseif args['γπ2-ουδ'] == '-' then
   		args['γπ2Λ-ουδ'] = br .. args['γπ2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπ2Λκειμ-ουδ']
	end
-- option
   	if  args['γπΛ-ουδ'] ~= '' and args['γπΛ-ουδ'] ~= nil then
   		args['γπΛ-ουδ'] =  args['γπΛ-ουδ'] .. args['γπ2Λ-ουδ']  
   	else
   		if args['γπ2-ουδ'] ~= '' and args['γπ2-ουδ'] ~= nil then
   			args['γπΛ-ουδ'] = args['mod-γπΛ-ουδ'] .. args['γπ2Λ-ουδ']
   		else
			args['γπΛ-ουδ'] = args['mod-γπΛ-ουδ'] .. args['γπ2Λ-ουδ'] 
		end
	end  

-- neu dat pl + plus novable nu - νυ εφελκυστικόν
	-- zero ending
	if args['δπ-ουδ'] == '0' then
		args['mod-δπΛ-ουδ'] = args['δπΛκειμ1-ουδ'] 
		.. create_link(args['δπθ-ουδ'], stem_color(args['δπθ+-ουδ'])) .. args['δπΛκειμ-ουδ']
	end
	if args['δπ2-ουδ'] == '0' then
		args['δπ2Λ-ουδ'] = br .. args['δπ2Λκειμ1-ουδ'] 
		.. create_link(args['δπ2θ-ουδ'], stem_color(args['δπ2θ+-ουδ'])) .. args['δπ2Λκειμ-ουδ']
	end
	-- first word + movable nu option
	if args['δπ-ουδ'] ~= '-' and args['δπ-ουδ'] ~= '0' and args['δπ-ουδ'] ~= '' and args['δπ-ουδ'] ~= nil then
		if args['ν'] == '1' then
		args['mod-δπΛ-ουδ'] = args['δπΛκειμ1-ουδ']
		.. create_link(args['δπθ-ουδ'] .. args['δπ-ουδ'], stem_color(args['δπθ+-ουδ']) .. ending_color(args['δπ+-ουδ']))
		.. create_link(args['δπθ-ουδ'] .. args['δπ-ουδ'] .. "ν", stem_color("&#40;") .. ending_color("ν") .. stem_color("&#41;"))
		.. args['δπΛκειμ-ουδ']
		else -- NO movable n
		args['mod-δπΛ-ουδ'] = args['δπΛκειμ1-ουδ'] .. create_link(args['δπθ-ουδ'] .. args['δπ-ουδ'], stem_color(args['δπθ+-ουδ']) .. ending_color(args['δπ+-ουδ'])) .. args['δπΛκειμ-ουδ']
		end -- close movable nu
	elseif args['δπ-ουδ'] == '-' then
   		args['mod-δπΛ-ουδ'] = args['δπΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δπΛκειμ-ουδ']
	end
	-- second word at new line + movable nu2 option
	if args['δπ2-ουδ'] ~= '-' and args['δπ2-ουδ'] ~= '0' and args['δπ2-ουδ'] ~= '' and args['δπ2-ουδ'] ~= nil then
		if args['ν2'] == '1' then
		args['δπ2Λ-ουδ'] =  br .. args['δπ2Λκειμ1-ουδ']
		.. create_link(args['δπ2θ-ουδ'] .. args['δπ2-ουδ'], stem_color(args['δπ2θ+-ουδ']) .. ending_color(args['δπ2+-ουδ']))
		.. create_link(args['δπ2θ-ουδ'] .. args['δπ2-ουδ'] .. "ν", stem_color("&#40;") .. ending_color("ν") .. stem_color("&#41;"))
		.. args['δπ2Λκειμ-ουδ']
		else -- NO movable n2
		args['δπ2Λ-ουδ'] =  br .. args['δπ2Λκειμ1-ουδ'] .. create_link(args['δπ2θ-ουδ'] .. args['δπ2-ουδ'], stem_color(args['δπ2θ+-ουδ']) .. ending_color(args['δπ2+-ουδ'])) .. args['δπ2Λκειμ-ουδ']
		end -- close movable nu2
	elseif args['δπ2-ουδ'] == '-' then
   		args['δπ2Λ-ουδ'] = br .. args['δπ2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['δπ2Λκειμ-ουδ']
	end
-- option
   	if  args['δπΛ-ουδ'] ~= '' and args['δπΛ-ουδ'] ~= nil then
   		args['δπΛ-ουδ'] =  args['δπΛ-ουδ'] .. args['δπ2Λ-ουδ']  
   	else
   		if args['δπ2-ουδ'] ~= '' and args['δπ2-ουδ'] ~= nil then
   			args['δπΛ-ουδ'] = args['mod-δπΛ-ουδ'] .. args['δπ2Λ-ουδ']
   		else
			args['δπΛ-ουδ'] = args['mod-δπΛ-ουδ'] .. args['δπ2Λ-ουδ'] 
		end
	end  

-- neu acc pl
	-- zero ending
	if args['απ-ουδ'] == '0' then
		args['mod-απΛ-ουδ'] = args['απΛκειμ1-ουδ'] 
		.. create_link(args['απθ-ουδ'], stem_color(args['απθ+-ουδ'])) .. args['απΛκειμ-ουδ']
	end
	if args['απ2-ουδ'] == '0' then
		args['απ2Λ-ουδ'] = br .. args['απ2Λκειμ1-ουδ'] 
		.. create_link(args['απ2θ-ουδ'], stem_color(args['απ2θ+-ουδ'])) .. args['απ2Λκειμ-ουδ']
	end
	-- first word
	if args['απ-ουδ'] ~= '-' and args['απ-ουδ'] ~= '0' and args['απ-ουδ'] ~= '' and args['απ-ουδ'] ~= nil then
		args['mod-απΛ-ουδ'] = args['απΛκειμ1-ουδ'] 
		.. create_link(args['απθ-ουδ'] .. args['απ-ουδ'], stem_color(args['απθ+-ουδ']) .. ending_color(args['απ+-ουδ'])) .. args['απΛκειμ-ουδ']
	elseif args['απ-ουδ'] == '-' then
   		args['mod-απΛ-ουδ'] = args['απΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απΛκειμ-ουδ']
	end
	-- second word
	if args['απ2-ουδ'] ~= '-' and args['απ2-ουδ'] ~= '0' and args['απ2-ουδ'] ~= '' and args['απ2-ουδ'] ~= nil then
		args['απ2Λ-ουδ'] = br .. args['απ2Λκειμ1-ουδ'] 
		.. create_link(args['απ2θ-ουδ'] .. args['απ2-ουδ'], stem_color(args['απ2θ+-ουδ']) .. ending_color(args['απ2+-ουδ'])) .. args['απ2Λκειμ-ουδ']
	elseif args['απ2-ουδ'] == '-' then
   		args['απ2Λ-ουδ'] = br .. args['απ2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απ2Λκειμ-ουδ']
	end
-- option
   	if  args['απΛ-ουδ'] ~= '' and args['απΛ-ουδ'] ~= nil then
   		args['απΛ-ουδ'] =  args['απΛ-ουδ'] .. args['απ2Λ-ουδ']  
   	else
   		if args['απ2-ουδ'] ~= '' and args['απ2-ουδ'] ~= nil then
   			args['απΛ-ουδ'] = args['mod-απΛ-ουδ'] .. args['απ2Λ-ουδ']
   		else
			args['απΛ-ουδ'] = args['mod-απΛ-ουδ'] .. args['απ2Λ-ουδ'] 
		end
	end  

-- neu voc pl
	-- zero ending
	if args['κπ-ουδ'] == '0' then
		args['mod-κπΛ-ουδ'] = args['κπΛκειμ1-ουδ'] 
		.. create_link(args['κπθ-ουδ'], stem_color(args['κπθ+-ουδ'])) .. args['κπΛκειμ-ουδ']
	end
	if args['κπ2-ουδ'] == '0' then
		args['κπ2Λ-ουδ'] = br .. args['κπ2Λκειμ1-ουδ'] 
		.. create_link(args['κπ2θ-ουδ'], stem_color(args['κπ2θ+-ουδ'])) .. args['κπ2Λκειμ-ουδ']
	end
	-- first word
	if args['κπ-ουδ'] ~= '-' and args['κπ-ουδ'] ~= '0' and args['κπ-ουδ'] ~= '' and args['κπ-ουδ'] ~= nil then
		args['mod-κπΛ-ουδ'] = args['κπΛκειμ1-ουδ'] 
		.. create_link(args['κπθ-ουδ'] .. args['κπ-ουδ'], stem_color(args['κπθ+-ουδ']) .. ending_color(args['κπ+-ουδ'])) .. args['κπΛκειμ-ουδ']
	elseif args['κπ-ουδ'] == '-' then
   		args['mod-κπΛ-ουδ'] = args['κπΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπΛκειμ-ουδ']
	end
	-- second word
	if args['κπ2-ουδ'] ~= '-' and args['κπ2-ουδ'] ~= '0' and args['κπ2-ουδ'] ~= '' and args['κπ2-ουδ'] ~= nil then
		args['κπ2Λ-ουδ'] = br .. args['κπ2Λκειμ1-ουδ'] 
		.. create_link(args['κπ2θ-ουδ'] .. args['κπ2-ουδ'], stem_color(args['κπ2θ+-ουδ']) .. ending_color(args['κπ2+-ουδ'])) .. args['κπ2Λκειμ-ουδ']
	elseif args['κπ2-ουδ'] == '-' then
   		args['κπ2Λ-ουδ'] = br .. args['κπ2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπ2Λκειμ-ουδ']
	end
-- option
   	if  args['κπΛ-ουδ'] ~= '' and args['κπΛ-ουδ'] ~= nil then
   		args['κπΛ-ουδ'] =  args['κπΛ-ουδ'] .. args['κπ2Λ-ουδ']  
   	else
   		if args['κπ2-ουδ'] ~= '' and args['κπ2-ουδ'] ~= nil then
   			args['κπΛ-ουδ'] = args['mod-κπΛ-ουδ'] .. args['κπ2Λ-ουδ']
   		else
			args['κπΛ-ουδ'] = args['mod-κπΛ-ουδ'] .. args['κπ2Λ-ουδ'] 
		end
	end  

-- NEU DUAL
-- neu nom.acc.voc du
	-- zero ending
	if args['οδ-ουδ'] == '0' then
		args['mod-οδΛ-ουδ'] = args['οδΛκειμ1-ουδ'] 
		.. create_link(args['οδθ-ουδ'], stem_color(args['οδθ+-ουδ'])) .. args['οδΛκειμ-ουδ']
	end
	if args['οδ2-ουδ'] == '0' then
		args['οδ2Λ-ουδ'] = br .. args['οδ2Λκειμ1-ουδ'] 
		.. create_link(args['οδ2θ-ουδ'], stem_color(args['οδ2θ+-ουδ'])) .. args['οδ2Λκειμ-ουδ']
	end
	-- first word
	if args['οδ-ουδ'] ~= '-' and args['οδ-ουδ'] ~= '0' and args['οδ-ουδ'] ~= '' and args['οδ-ουδ'] ~= nil then
		args['mod-οδΛ-ουδ'] = args['οδΛκειμ1-ουδ'] 
		.. create_link(args['οδθ-ουδ'] .. args['οδ-ουδ'], stem_color(args['οδθ+-ουδ']) .. ending_color(args['οδ+-ουδ'])) .. args['οδΛκειμ-ουδ']
	elseif args['οδ-ουδ'] == '-' then
   		args['mod-οδΛ-ουδ'] = args['οδΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οδΛκειμ-ουδ']
	end
	-- second word
	if args['οδ2-ουδ'] ~= '-' and args['οδ2-ουδ'] ~= '0' and args['οδ2-ουδ'] ~= '' and args['οδ2-ουδ'] ~= nil then
		args['οδ2Λ-ουδ'] = br .. args['οδ2Λκειμ1-ουδ'] 
		.. create_link(args['οδ2θ-ουδ'] .. args['οδ2-ουδ'], stem_color(args['οδ2θ+-ουδ']) .. ending_color(args['οδ2+-ουδ'])) .. args['οδ2Λκειμ-ουδ']
	elseif args['οδ2-ουδ'] == '-' then
   		args['οδ2Λ-ουδ'] = br .. args['οδ2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οδ2Λκειμ-ουδ']
	end
-- option
   	if  args['οδΛ-ουδ'] ~= '' and args['οδΛ-ουδ'] ~= nil then
   		args['οδΛ-ουδ'] =  args['οδΛ-ουδ'] .. args['οδ2Λ-ουδ']  
   	else
   		if args['οδ2-ουδ'] ~= '' and args['οδ2-ουδ'] ~= nil then
   			args['οδΛ-ουδ'] = args['mod-οδΛ-ουδ'] .. args['οδ2Λ-ουδ']
   		else
			args['οδΛ-ουδ'] = args['mod-οδΛ-ουδ'] .. args['οδ2Λ-ουδ'] 
		end
	end  

-- neu gen.dat du
	-- zero ending
	if args['γδ-ουδ'] == '0' then
		args['mod-γδΛ-ουδ'] = args['γδΛκειμ1-ουδ'] 
		.. create_link(args['γδθ-ουδ'], stem_color(args['γδθ+-ουδ'])) .. args['γδΛκειμ-ουδ']
	end
	if args['γδ2-ουδ'] == '0' then
		args['γδ2Λ-ουδ'] = br .. args['γδ2Λκειμ1-ουδ'] 
		.. create_link(args['γδ2θ-ουδ'], stem_color(args['γδ2θ+-ουδ'])) .. args['γδ2Λκειμ-ουδ']
	end
	-- first word
	if args['γδ-ουδ'] ~= '-' and args['γδ-ουδ'] ~= '0' and args['γδ-ουδ'] ~= '' and args['γδ-ουδ'] ~= nil then
		args['mod-γδΛ-ουδ'] = args['γδΛκειμ1-ουδ'] 
		.. create_link(args['γδθ-ουδ'] .. args['γδ-ουδ'], stem_color(args['γδθ+-ουδ']) .. ending_color(args['γδ+-ουδ'])) .. args['γδΛκειμ-ουδ']
	elseif args['γδ-ουδ'] == '-' then
   		args['mod-γδΛ-ουδ'] = args['γδΛκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γδΛκειμ-ουδ']
	end
	-- second word
	if args['γδ2-ουδ'] ~= '-' and args['γδ2-ουδ'] ~= '0' and args['γδ2-ουδ'] ~= '' and args['γδ2-ουδ'] ~= nil then
		args['γδ2Λ-ουδ'] = br .. args['γδ2Λκειμ1-ουδ'] 
		.. create_link(args['γδ2θ-ουδ'] .. args['γδ2-ουδ'], stem_color(args['γδ2θ+-ουδ']) .. ending_color(args['γδ2+-ουδ'])) .. args['γδ2Λκειμ-ουδ']
	elseif args['γδ2-ουδ'] == '-' then
   		args['γδ2Λ-ουδ'] = br .. args['γδ2Λκειμ1-ουδ'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γδ2Λκειμ-ουδ']
	end
-- option
   	if  args['γδΛ-ουδ'] ~= '' and args['γδΛ-ουδ'] ~= nil then
   		args['γδΛ-ουδ'] =  args['γδΛ-ουδ'] .. args['γδ2Λ-ουδ']  
   	else
   		if args['γδ2-ουδ'] ~= '' and args['γδ2-ουδ'] ~= nil then
   			args['γδΛ-ουδ'] = args['mod-γδΛ-ουδ'] .. args['γδ2Λ-ουδ']
   		else
			args['γδΛ-ουδ'] = args['mod-γδΛ-ουδ'] .. args['γδ2Λ-ουδ'] 
		end
	end  


end -- close function param



return {param = param}