Module:el-adj-decl/param

Από Βικιλεξικό
Μετάβαση στην πλοήγηση Πήδηση στην αναζήτηση

Module:el-adj-decl : param : multi θέματα - mono σταθερός τόνος : τεκμηρίωση(documentation)
Κατηγορία:Πρότυπα κλίσης επιθέτων και μετοχών (νέα ελληνικά) - Κατηγορία:Έλεγχος κλίσης
Παράρτημα:Επίθετα και μετοχές (νέα ελληνικά) - Κατηγορία:Επίθετα (νέα ελληνικά) - Κατηγορία:Μετοχές (νέα ελληνικά)
Module:tin (την/τη στην αιτιατική) - Module:grk-stems

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

-- νέα ελληνικά επίθετα και μετοχές - παράμετροι - modern greek adjectives/participles - paramters 2021.06. Sarri.greek
-- INSTRUCTIONS-ΟΔΗΓΙΕΣ [[Module:el-adj-decl]]
-- Unlike [[Module:el-nouns-decl]] this module DOES NOT allow editors to change the forms as defined from the module functions
	-- They can only add second word, or a text and notes
--[=[ 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
]=]--
--------------------------------------------------------------------------
--[=[
All parameters and functions for Modern Greek ADJECTIVES ([[καλός]])
	or any other 3-gender table (masculine, feminine, neuter) 
	e.g. participles ([[λυμένος]]), pronouns ([[δικός μου]])
Names of parameters in nouns ([[Module:el-nouns-decl/param]]) + -αρσ, -θηλ, -ουδ added to them.
]=]--


--------------------------------------------------------------------------
-- COPY HERE what is needed from the Module 
--------------------------------------------------------------------------
local languages = mw.loadData("Module:Languages") -- needed: el (and possible dialects (pnt, tsd) of vulgar mediaeval gkm

-- 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

--[=[
--------------------------------------------------------------------------
--  ARRANGE the functions needed from the Module adding: local... and adding local args = {}
--------------------------------------------------------------------------
-- also see section LANGUAGES for categories
-- repeat this function in subpages, if create_link or linkcontrol is needed
-- ====================== Links
-- create_link((args['οεθ'] .. args['οε']), (stem_color(args['οεθ']) .. ending_color(args['οε+'])))
function create_link (page, text)
	local args = {}
	-- articles are the same for el, pnt etc  -- NOT USED YET
	lang_iso = lang_iso or ''
--	local med = args['gkm'] or args['μσν'] or ''
	if args['gkm']  == '1' or args['μσν'] == '1' then lang_iso = 'gkm'
	else lang_iso = 'el'
	end
		if text then
		return '[[' .. page .. '#' .. languages[lang_iso]['link'] .. '|' .. text .. ']]'
		else
		return '[[' .. page .. '#' .. languages[lang_iso]['link'] .. '|' .. page .. ']]'
		end
end
]=]--
--[=[@@OLD only el
local function create_link (page, text)
	local args = {}
	if text then
		return '[[' .. page .. '|' .. text .. ']]'
	else
		return '[[' .. page .. ']]'
	end
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================================ --
--              modern greek adjective (3 gender) cases                  --
---------------------------------------------------------------------------
local function param (args)
	-- lemma. is defined at subfunctions of specific declensions
	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
    local stemnumber
    local stem = {}
    if stemnumber == '' or stemnumber == nil then
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)
    else
    	stem["θ"] = stem["θ"]
    end

    local minusletters = args['μείον'] or ''
   	if args['μείον'] == '0' then stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-1)
   	elseif args['μείον'] ~= '0' and args['μείον'] ~= '' and args['μείον'] ~= nil then
   		stemnumber = minusletters+1
   	end

--[=[ INSTRUCTIONS for STEMS in monotonic script: 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
-- stem
	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
    stem["θ1"] = m_stems.word1(stem["θ0"])				-- accent on 1st syllable from the end
	stem["θ2"] = m_stems.word2(stem["θ0"])				-- accent on 2nd syllable from the end
Example if plural becomes lemma
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then
    	args['μείον'] = 2 -- rewrite default stemnumber = 3 (μείον 2)
     	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)
    else
    	args['μείον'] = 1 -- override default stemnumber = 3 (μείον 2)
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2)
    end
]=]--

-- ============== ALL PARAMETERS ============== --

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


-- =============== for more languages e.g. tsd, pnt etc
	-- (see [[Module:grc-adj-decl]]) for examples
	-- medieval, has tables of possible endings, NOT paradigmtata
	-- η μεσαιωνική (δημώδης) έχει πίνακες πιθανών καταλήξεων και όχι κλιτικά παραδείγματα
-- example:
-- ======= pnt Ποντιακά
-- 1 = only title and Κατηγορία:Λήμματα με κλίσεις (languagename)
-- 2 = all categories
		-- used pontic declensions exclusively
		if args['pnt']  == '1' then	-- ποντιακά
			args['lang_title'] = "<i>[[:Κατηγορία:Ουσιαστικά (ποντιακά)|κλίση στα ποντιακά]]</i>" 
--				.. '[[Κατηγορία:' .. cat_pos .. ' με κλίσεις (ποντιακά)]]'
			-- no example
			lang_iso = 'pnt'
			lang_link = languages['pnt']['link']
			lang_name = languages['pnt']['name']
		-- when declension is like standard modern
		elseif args['pnt'] == '2' then
			args['lang_title'] = "<i>[[:Κατηγορία:Ουσιαστικά (ποντιακά)|ποντιακά (κλίση νεοελληνικής κοινής)]]</i>" 
--				.. '[[Κατηγορία:' .. cat_pos .. ' με νεοελληνικές κλίσεις (ποντιακά)]]'
			lang_iso = 'pnt'
			-- + category for statistical purpose
			lang_name = languages['pnt']['name']
		end


-- Place this UNDER LANGUAGES,  not before!!!!
-- ====================== 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
--[=[@@OLD only el
local function create_link (page, text)
	local args = {}
	if text then
		return '[[' .. page .. '|' .. text .. ']]'
	else
		return '[[' .. page .. ']]'
	end
end
]=]--

-- copied from [[Module:grc-nouns-decl/param]], just use a 'test' word for it here
-- ================================ 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>" 
				.. 'τεστ'
--				.. '[[:Κατηγορία:Ουσιαστικά αρσενικά ή θηλυκά (αρχαία ελληνικά)|αρσενικό ή θηλυκό]]'
			elseif args['test'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>" .. args['τίτλος'] .. "<br>" 
				.. 'test'
--				.. '[[:Κατηγορία:Ουσιαστικά θηλυκά ή αρσενικά (αρχαία ελληνικά)|θηλυκό ή αρσενικό]]'		
			end
		else -- yes mod-τίτλος,  no τίτλος
		args['mod-τίτλος'] = args['mod-τίτλος']
			if args['τεστ'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>"
				.. 'τεστ'
--				.. '[[:Κατηγορία:Ουσιαστικά αρσενικά ή θηλυκά (αρχαία ελληνικά)|αρσενικό ή θηλυκό]]'
			elseif args['test'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>"
				.. 'test'
--				.. '[[:Κατηγορία:Ουσιαστικά θηλυκά ή αρσενικά (αρχαία ελληνικά)|θηλυκό ή αρσενικό]]'		
			end
		end
	else -- NO mod-τιτλος
		if args['τίτλος'] ~= '' and args['τίτλος'] ~= nil then
			args['mod-τίτλος'] = args['τίτλος']
			if args['τεστ'] == '1' then
				args['mod-τίτλος'] = args['τίτλος'] .. "<br>" 
				.. 'τεστ'
--				.. '[[:Κατηγορία:Ουσιαστικά αρσενικά ή θηλυκά (αρχαία ελληνικά)|αρσενικό ή θηλυκό]]'
			elseif args['test'] == '1' then
				args['mod-τίτλος'] = args['τίτλος'] .. "<br>" 
				.. 'test'
--				.. '[[:Κατηγορία:Ουσιαστικά θηλυκά ή αρσενικά (αρχαία ελληνικά)|θηλυκό ή αρσενικό]]'		
			end
		else -- no mod-τίτλος, no τίτλος, nothing
		args['mod-τίτλος'] = ''
		args['τίτλος'] = ''
			if args['τεστ'] == '1' then -- [[αἰθήρ]] 
				args['mod-τίτλος'] =  'τεστ' -- '[[:Κατηγορία:Ουσιαστικά αρσενικά ή θηλυκά (αρχαία ελληνικά)|αρσενικό ή θηλυκό]]'
			elseif args['test'] == '1' then
				args['mod-τίτλος'] = 'test' --'[[:Κατηγορία:Ουσιαστικά θηλυκά ή αρσενικά (αρχαία ελληνικά)|θηλυκό ή αρσενικό]]'
			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 write σημ= 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


-- extra parameters ## CHECK if κοινό1 BEFORE the word is  needed

-- αντωνυμία [[δικός μου]] --######### CHECK επίθετα όπως Αντωνυμίας παροξύτονες ΟΧΙ παροξύτονα ---ΕΚΚΡΕΜΟΤΗΤΑ
-- ================================  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
-- add a repetitive term at the beginning or at the end of each cell:
-- check [[δικός μου]]
	args['κοινό'] = args['κοινό'] or ''
	if args['κοινό'] ~= '' and args['κοινό'] ~= nil then
		args['κοινό'] =  '&nbsp;' .. args['κοινό'] 
	else
		args['κοινό'] = ''
	end

-- ================================ START CASES
-- STEMS masc
	args['οεθ-αρσ'] = args['οεθ-αρσ'] or ''
	args['γεθ-αρσ'] = args['γεθ-αρσ'] or ''
	args['αεθ-αρσ'] = args['αεθ-αρσ'] or ''
	args['κεθ-αρσ'] = args['κεθ-αρσ'] or ''
	args['οπθ-αρσ'] = args['οπθ-αρσ'] or ''
	args['γπθ-αρσ'] = args['γπθ-αρσ'] or ''
	args['απθ-αρσ'] = args['απθ-αρσ'] or ''
	args['κπθ-αρσ'] = args['κπθ-αρσ'] or ''
-- STEMS fem
	args['οεθ-θηλ'] = args['οεθ-θηλ'] or ''
	args['γεθ-θηλ'] = args['γεθ-θηλ'] or ''
	args['αεθ-θηλ'] = args['αεθ-θηλ'] or ''
	args['κεθ-θηλ'] = args['κεθ-θηλ'] or ''
	args['οπθ-θηλ'] = args['οπθ-θηλ'] or ''
	args['γπθ-θηλ'] = args['γπθ-θηλ'] or ''
	args['απθ-θηλ'] = args['απθ-θηλ'] or ''
	args['κπθ-θηλ'] = args['κπθ-θηλ'] or ''
-- STEMS neu
	args['οεθ-ουδ'] = args['οεθ-ουδ'] or ''
	args['γεθ-ουδ'] = args['γεθ-ουδ'] or ''
	args['αεθ-ουδ'] = args['αεθ-ουδ'] or ''
	args['κεθ-ουδ'] = args['κεθ-ουδ'] or ''
	args['οπθ-ουδ'] = args['οπθ-ουδ'] or ''
	args['γπθ-ουδ'] = args['γπθ-ουδ'] or ''
	args['απθ-ουδ'] = args['απθ-ουδ'] or ''
	args['κπθ-ουδ'] = args['κπθ-ουδ'] or ''
-- STEMS masc2
	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 ''
-- STEMS fem2
	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 ''
-- STEMS neu2
	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 ''
	
-- ENDINGS masc
	args['οε-αρσ'] = args['οε-αρσ'] or ''
	args['γε-αρσ'] = args['γε-αρσ'] or ''
	args['αε-αρσ'] = args['αε-αρσ'] or ''
	args['κε-αρσ'] = args['κε-αρσ'] or ''
	args['οπ-αρσ'] = args['οπ-αρσ'] or ''
	args['γπ-αρσ'] = args['γπ-αρσ'] or ''
	args['απ-αρσ'] = args['απ-αρσ'] or ''
	args['κπ-αρσ'] = args['κπ-αρσ'] or ''
-- ENDINGS fem
	args['οε-θηλ'] = args['οε-θηλ'] or ''
	args['γε-θηλ'] = args['γε-θηλ'] or ''
	args['αε-θηλ'] = args['αε-θηλ'] or ''
	args['κε-θηλ'] = args['κε-θηλ'] or ''
	args['οπ-θηλ'] = args['οπ-θηλ'] or ''
	args['γπ-θηλ'] = args['γπ-θηλ'] or ''
	args['απ-θηλ'] = args['απ-θηλ'] or ''
	args['κπ-θηλ'] = args['κπ-θηλ'] or ''
-- ENDINGS neu
	args['οε-ουδ'] = args['οε-ουδ'] or ''
	args['γε-ουδ'] = args['γε-ουδ'] or ''
	args['αε-ουδ'] = args['αε-ουδ'] or ''
	args['κε-ουδ'] = args['κε-ουδ'] or ''
	args['οπ-ουδ'] = args['οπ-ουδ'] or ''
	args['γπ-ουδ'] = args['γπ-ουδ'] or ''
	args['απ-ουδ'] = args['απ-ουδ'] or ''
	args['κπ-ουδ'] = args['κπ-ουδ'] or ''
-- ENDINGS2 masc
	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 ''
-- ENDINGS2 fem
	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 ''
-- ENDINGS2 neu
	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 stem needs extra letters -- NOT USED
	args['πρόσφ'] = args['πρόσφ'] or ''
	args['πρόσφ2'] = args['πρόσφ2'] or ''	
-- first word
	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 ''

	
-- add a repetitive term at the beginning or at the end of each cell: -- NOT USED
	args['κοινό1'] = args['κοινό1'] or ''
	args['κοινό'] = args['κοινό'] or ''
-- 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 ''
-- 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 ''		


-- STEMS auto default
-- 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
-- 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
-- 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
-- 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
-- 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
-- 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

-- MASC
	if args['οε-αρσ'] ~= '-' and args['οε-αρσ'] ~= '0' and args['οε-αρσ'] ~= '' and args['οε-αρσ'] ~= nil then
   		args['οεΛ-αρσ'] = create_link(args['οεθ-αρσ']  .. args['οε-αρσ'], stem_color(args['οεθ-αρσ']) .. ending_color(args['οε-αρσ'])) .. args['κοινό'] .. args['οεΛκειμ-αρσ']
	elseif args['οε-αρσ'] == '0' then -- zero ending
   		args['οεΛ-αρσ'] = create_link(args['οεθ-αρσ'], stem_color(args['οεθ-αρσ'])) .. args['κοινό'] .. args['οεΛκειμ-αρσ']
   	elseif args['οε-αρσ'] == '-' then
   		args['οεΛ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οεΛκειμ-αρσ']
   	end
   	
	if args['γε-αρσ'] ~= '-' and args['γε-αρσ'] ~= '0' and args['γε-αρσ'] ~= '' and args['γε-αρσ'] ~= nil then
   		args['γεΛ-αρσ'] = create_link(args['γεθ-αρσ'] .. args['γε-αρσ'], stem_color(args['γεθ-αρσ']) .. ending_color(args['γε-αρσ'])) .. args['κοινό'] .. args['γεΛκειμ-αρσ']
	elseif args['γε-αρσ'] == '0' then -- zero ending hyphothetical
   		args['γεΛ-αρσ'] = create_link(args['γεθ-αρσ'], stem_color(args['γεθ-αρσ'])) .. args['κοινό'] .. args['γεΛκειμ-αρσ']
   	elseif args['γε-αρσ'] == '-' then
   		args['γεΛ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γεΛκειμ-αρσ']
   	end
   	
	if args['αε-αρσ'] ~= '-' and args['αε-αρσ'] ~= '0' and args['αε-αρσ'] ~= '' and args['αε-αρσ'] ~= nil then
   		args['αεΛ-αρσ'] = create_link(args['αεθ-αρσ'] .. args['αε-αρσ'], stem_color(args['αεθ-αρσ']) .. ending_color(args['αε-αρσ'])) .. args['κοινό'] .. args['αεΛκειμ-αρσ']
	elseif args['αε-αρσ'] == '0' then
   		args['αεΛ-αρσ'] = create_link(args['αεθ-αρσ'], stem_color(args['αεθ-αρσ'])) .. args['κοινό'] .. args['αεΛκειμ-αρσ']
   	elseif args['αε-αρσ'] == '-' then
   		args['αεΛ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αεΛκειμ-αρσ']
   	end
   	
	if args['κε-αρσ'] ~= '-' and args['κε-αρσ'] ~= '0' and args['κε-αρσ'] ~= '' and args['κε-αρσ'] ~= nil then
   		args['κεΛ-αρσ'] = create_link(args['κεθ-αρσ']  .. args['κε-αρσ'], stem_color(args['κεθ-αρσ']) .. ending_color(args['κε-αρσ'])) .. args['κοινό'] .. args['κεΛκειμ-αρσ']
	elseif args['κε-αρσ'] == '0' then
   		args['κεΛ-αρσ'] = create_link(args['κεθ-αρσ'], stem_color(args['κεθ-αρσ'])) .. args['κοινό'] .. args['κεΛκειμ-αρσ']
   	elseif args['κε-αρσ'] == '-' then
   		args['κεΛ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κεΛκειμ-αρσ']
   	end

	if args['οπ-αρσ'] ~= '-' and args['οπ-αρσ'] ~= '0' and args['οπ-αρσ'] ~= '' and args['οπ-αρσ'] ~= nil then
   		args['οπΛ-αρσ'] = create_link(args['οπθ-αρσ']  .. args['οπ-αρσ'], stem_color(args['οπθ-αρσ']) .. ending_color(args['οπ-αρσ'])) .. args['κοινό'] .. args['οπΛκειμ-αρσ']
	elseif args['οπ-αρσ'] == '0' then -- zero ending
   		args['οπΛ-αρσ'] = create_link(args['οπθ-αρσ'], stem_color(args['οπθ-αρσ'])) .. args['κοινό'] .. args['οπΛκειμ-αρσ']
   	elseif args['οπ-αρσ'] == '-' then
   		args['οπΛ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπΛκειμ-αρσ']
   	end
   	
	if args['γπ-αρσ'] ~= '-' and args['γπ-αρσ'] ~= '0' and args['γπ-αρσ'] ~= '' and args['γπ-αρσ'] ~= nil then
   		args['γπΛ-αρσ'] = create_link(args['γπθ-αρσ'] .. args['γπ-αρσ'], stem_color(args['γπθ-αρσ']) .. ending_color(args['γπ-αρσ'])) .. args['κοινό'] .. args['γπΛκειμ-αρσ']
	elseif args['γπ-αρσ'] == '0' then -- zero ending hyphothetical
   		args['γπΛ-αρσ'] = create_link(args['γπθ-αρσ'], stem_color(args['γπθ-αρσ'])) .. args['κοινό'] .. args['γπΛκειμ-αρσ']
   	elseif args['γπ-αρσ'] == '-' then
   		args['γπΛ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπΛκειμ-αρσ']
   	end
   	
	if args['απ-αρσ'] ~= '-' and args['απ-αρσ'] ~= '0' and args['απ-αρσ'] ~= '' and args['απ-αρσ'] ~= nil then
   		args['απΛ-αρσ'] = create_link(args['απθ-αρσ'] .. args['απ-αρσ'], stem_color(args['απθ-αρσ']) .. ending_color(args['απ-αρσ'])) .. args['κοινό'] .. args['απΛκειμ-αρσ']
	elseif args['απ-αρσ'] == '0' then
   		args['απΛ-αρσ'] = create_link(args['απθ-αρσ'], stem_color(args['απθ-αρσ'])) .. args['κοινό'] .. args['απΛκειμ-αρσ']
   	elseif args['απ-αρσ'] == '-' then
   		args['απΛ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απΛκειμ-αρσ']
   	end
   	
	if args['κπ-αρσ'] ~= '-' and args['κπ-αρσ'] ~= '0' and args['κπ-αρσ'] ~= '' and args['κπ-αρσ'] ~= nil then
   		args['κπΛ-αρσ'] = create_link(args['κπθ-αρσ']  .. args['κπ-αρσ'], stem_color(args['κπθ-αρσ']) .. ending_color(args['κπ-αρσ'])) .. args['κοινό'] .. args['κπΛκειμ-αρσ']
	elseif args['κπ-αρσ'] == '0' then
   		args['κπΛ-αρσ'] = create_link(args['κπθ-αρσ'], stem_color(args['κπθ-αρσ'])) .. args['κοινό'] .. args['κπΛκειμ-αρσ']
   	elseif args['κπ-αρσ'] == '-' then
   		args['κπΛ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπΛκειμ-αρσ']
   	end

-- FEM
	if args['οε-θηλ'] ~= '-' and args['οε-θηλ'] ~= '0' and args['οε-θηλ'] ~= '' and args['οε-θηλ'] ~= nil then
   		args['οεΛ-θηλ'] = create_link(args['οεθ-θηλ']  .. args['οε-θηλ'], stem_color(args['οεθ-θηλ']) .. ending_color(args['οε-θηλ'])) .. args['κοινό'] .. args['οεΛκειμ-θηλ']
	elseif args['οε-θηλ'] == '0' then -- zero ending
   		args['οεΛ-θηλ'] = create_link(args['οεθ-θηλ'], stem_color(args['οεθ-θηλ'])) .. args['κοινό'] .. args['οεΛκειμ-θηλ']
   	elseif args['οε-θηλ'] == '-' then
   		args['οεΛ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οεΛκειμ-θηλ']
   	end
   	
	if args['γε-θηλ'] ~= '-' and args['γε-θηλ'] ~= '0' and args['γε-θηλ'] ~= '' and args['γε-θηλ'] ~= nil then
   		args['γεΛ-θηλ'] = create_link(args['γεθ-θηλ'] .. args['γε-θηλ'], stem_color(args['γεθ-θηλ']) .. ending_color(args['γε-θηλ'])) .. args['κοινό'] .. args['γεΛκειμ-θηλ']
	elseif args['γε-θηλ'] == '0' then -- zero ending hyphothetical
   		args['γεΛ-θηλ'] = create_link(args['γεθ-θηλ'], stem_color(args['γεθ-θηλ'])) .. args['κοινό'] .. args['γεΛκειμ-θηλ']
   	elseif args['γε-θηλ'] == '-' then
   		args['γεΛ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γεΛκειμ-θηλ']
   	end
   	
	if args['αε-θηλ'] ~= '-' and args['αε-θηλ'] ~= '0' and args['αε-θηλ'] ~= '' and args['αε-θηλ'] ~= nil then
   		args['αεΛ-θηλ'] = create_link(args['αεθ-θηλ'] .. args['αε-θηλ'], stem_color(args['αεθ-θηλ']) .. ending_color(args['αε-θηλ'])) .. args['κοινό'] .. args['αεΛκειμ-θηλ']
	elseif args['αε-θηλ'] == '0' then
   		args['αεΛ-θηλ'] = create_link(args['αεθ-θηλ'], stem_color(args['αεθ-θηλ'])) .. args['κοινό'] .. args['αεΛκειμ-θηλ']
   	elseif args['αε-θηλ'] == '-' then
   		args['αεΛ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αεΛκειμ-θηλ']
   	end
   	
	if args['κε-θηλ'] ~= '-' and args['κε-θηλ'] ~= '0' and args['κε-θηλ'] ~= '' and args['κε-θηλ'] ~= nil then
   		args['κεΛ-θηλ'] = create_link(args['κεθ-θηλ']  .. args['κε-θηλ'], stem_color(args['κεθ-θηλ']) .. ending_color(args['κε-θηλ'])) .. args['κοινό'] .. args['κεΛκειμ-θηλ']
	elseif args['κε-θηλ'] == '0' then
   		args['κεΛ-θηλ'] = create_link(args['κεθ-θηλ'], stem_color(args['κεθ-θηλ'])) .. args['κοινό'] .. args['κεΛκειμ-θηλ']
   	elseif args['κε-θηλ'] == '-' then
   		args['κεΛ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κεΛκειμ-θηλ']
   	end

	if args['οπ-θηλ'] ~= '-' and args['οπ-θηλ'] ~= '0' and args['οπ-θηλ'] ~= '' and args['οπ-θηλ'] ~= nil then
   		args['οπΛ-θηλ'] = create_link(args['οπθ-θηλ']  .. args['οπ-θηλ'], stem_color(args['οπθ-θηλ']) .. ending_color(args['οπ-θηλ'])) .. args['κοινό'] .. args['οπΛκειμ-θηλ']
	elseif args['οπ-θηλ'] == '0' then -- zero ending
   		args['οπΛ-θηλ'] = create_link(args['οπθ-θηλ'], stem_color(args['οπθ-θηλ'])) .. args['κοινό'] .. args['οπΛκειμ-θηλ']
   	elseif args['οπ-θηλ'] == '-' then
   		args['οπΛ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπΛκειμ-θηλ']
   	end
   	
	if args['γπ-θηλ'] ~= '-' and args['γπ-θηλ'] ~= '0' and args['γπ-θηλ'] ~= '' and args['γπ-θηλ'] ~= nil then
   		args['γπΛ-θηλ'] = create_link(args['γπθ-θηλ'] .. args['γπ-θηλ'], stem_color(args['γπθ-θηλ']) .. ending_color(args['γπ-θηλ'])) .. args['κοινό'] .. args['γπΛκειμ-θηλ']
	elseif args['γπ-θηλ'] == '0' then -- zero ending hyphothetical
   		args['γπΛ-θηλ'] = create_link(args['γπθ-θηλ'], stem_color(args['γπθ-θηλ'])) .. args['κοινό'] .. args['γπΛκειμ-θηλ']
   	elseif args['γπ-θηλ'] == '-' then
   		args['γπΛ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπΛκειμ-θηλ']
   	end
   	
	if args['απ-θηλ'] ~= '-' and args['απ-θηλ'] ~= '0' and args['απ-θηλ'] ~= '' and args['απ-θηλ'] ~= nil then
   		args['απΛ-θηλ'] = create_link(args['απθ-θηλ'] .. args['απ-θηλ'], stem_color(args['απθ-θηλ']) .. ending_color(args['απ-θηλ'])) .. args['κοινό'] .. args['απΛκειμ-θηλ']
	elseif args['απ-θηλ'] == '0' then
   		args['απΛ-θηλ'] = create_link(args['απθ-θηλ'], stem_color(args['απθ-θηλ'])) .. args['κοινό'] .. args['απΛκειμ-θηλ']
   	elseif args['απ-θηλ'] == '-' then
   		args['απΛ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απΛκειμ-θηλ']
   	end
   	
	if args['κπ-θηλ'] ~= '-' and args['κπ-θηλ'] ~= '0' and args['κπ-θηλ'] ~= '' and args['κπ-θηλ'] ~= nil then
   		args['κπΛ-θηλ'] = create_link(args['κπθ-θηλ']  .. args['κπ-θηλ'], stem_color(args['κπθ-θηλ']) .. ending_color(args['κπ-θηλ'])) .. args['κοινό'] .. args['κπΛκειμ-θηλ']
	elseif args['κπ-θηλ'] == '0' then
   		args['κπΛ-θηλ'] = create_link(args['κπθ-θηλ'], stem_color(args['κπθ-θηλ'])) .. args['κοινό'] .. args['κπΛκειμ-θηλ']
   	elseif args['κπ-θηλ'] == '-' then
   		args['κπΛ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπΛκειμ-θηλ']
   	end
		

-- NEU
	if args['οε-ουδ'] ~= '-' and args['οε-ουδ'] ~= '0' and args['οε-ουδ'] ~= '' and args['οε-ουδ'] ~= nil then
   		args['οεΛ-ουδ'] = create_link(args['οεθ-ουδ']  .. args['οε-ουδ'], stem_color(args['οεθ-ουδ']) .. ending_color(args['οε-ουδ'])) .. args['κοινό'] .. args['οεΛκειμ-ουδ']
	elseif args['οε-ουδ'] == '0' then -- zero ending
   		args['οεΛ-ουδ'] = create_link(args['οεθ-ουδ'], stem_color(args['οεθ-ουδ'])) .. args['κοινό'] .. args['οεΛκειμ-ουδ']
   	elseif args['οε-ουδ'] == '-' then
   		args['οεΛ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οεΛκειμ-ουδ']
   	end
   	
	if args['γε-ουδ'] ~= '-' and args['γε-ουδ'] ~= '0' and args['γε-ουδ'] ~= '' and args['γε-ουδ'] ~= nil then
   		args['γεΛ-ουδ'] = create_link(args['γεθ-ουδ'] .. args['γε-ουδ'], stem_color(args['γεθ-ουδ']) .. ending_color(args['γε-ουδ'])) .. args['κοινό'] .. args['γεΛκειμ-ουδ']
	elseif args['γε-ουδ'] == '0' then -- zero ending hyphothetical
   		args['γεΛ-ουδ'] = create_link(args['γεθ-ουδ'], stem_color(args['γεθ-ουδ'])) .. args['κοινό'] .. args['γεΛκειμ-ουδ']
   	elseif args['γε-ουδ'] == '-' then
   		args['γεΛ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γεΛκειμ-ουδ']
   	end
   	
	if args['αε-ουδ'] ~= '-' and args['αε-ουδ'] ~= '0' and args['αε-ουδ'] ~= '' and args['αε-ουδ'] ~= nil then
   		args['αεΛ-ουδ'] = create_link(args['αεθ-ουδ'] .. args['αε-ουδ'], stem_color(args['αεθ-ουδ']) .. ending_color(args['αε-ουδ'])) .. args['κοινό'] .. args['αεΛκειμ-ουδ']
	elseif args['αε-ουδ'] == '0' then
   		args['αεΛ-ουδ'] = create_link(args['αεθ-ουδ'], stem_color(args['αεθ-ουδ'])) .. args['κοινό'] .. args['αεΛκειμ-ουδ']
   	elseif args['αε-ουδ'] == '-' then
   		args['αεΛ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αεΛκειμ-ουδ']
   	end
   	
	if args['κε-ουδ'] ~= '-' and args['κε-ουδ'] ~= '0' and args['κε-ουδ'] ~= '' and args['κε-ουδ'] ~= nil then
   		args['κεΛ-ουδ'] = create_link(args['κεθ-ουδ']  .. args['κε-ουδ'], stem_color(args['κεθ-ουδ']) .. ending_color(args['κε-ουδ'])) .. args['κοινό'] .. args['κεΛκειμ-ουδ']
	elseif args['κε-ουδ'] == '0' then
   		args['κεΛ-ουδ'] = create_link(args['κεθ-ουδ'], stem_color(args['κεθ-ουδ'])) .. args['κοινό'] .. args['κεΛκειμ-ουδ']
   	elseif args['κε-ουδ'] == '-' then
   		args['κεΛ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κεΛκειμ-ουδ']
   	end

	if args['οπ-ουδ'] ~= '-' and args['οπ-ουδ'] ~= '0' and args['οπ-ουδ'] ~= '' and args['οπ-ουδ'] ~= nil then
   		args['οπΛ-ουδ'] = create_link(args['οπθ-ουδ']  .. args['οπ-ουδ'], stem_color(args['οπθ-ουδ']) .. ending_color(args['οπ-ουδ'])) .. args['κοινό'] .. args['οπΛκειμ-ουδ']
	elseif args['οπ-ουδ'] == '0' then -- zero ending
   		args['οπΛ-ουδ'] = create_link(args['οπθ-ουδ'], stem_color(args['οπθ-ουδ'])) .. args['κοινό'] .. args['οπΛκειμ-ουδ']
   	elseif args['οπ-ουδ'] == '-' then
   		args['οπΛ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπΛκειμ-ουδ']
   	end
   	
	if args['γπ-ουδ'] ~= '-' and args['γπ-ουδ'] ~= '0' and args['γπ-ουδ'] ~= '' and args['γπ-ουδ'] ~= nil then
   		args['γπΛ-ουδ'] = create_link(args['γπθ-ουδ'] .. args['γπ-ουδ'], stem_color(args['γπθ-ουδ']) .. ending_color(args['γπ-ουδ'])) .. args['κοινό'] .. args['γπΛκειμ-ουδ']
	elseif args['γπ-ουδ'] == '0' then -- zero ending hyphothetical
   		args['γπΛ-ουδ'] = create_link(args['γπθ-ουδ'], stem_color(args['γπθ-ουδ'])) .. args['κοινό'] .. args['γπΛκειμ-ουδ']
   	elseif args['γπ-ουδ'] == '-' then
   		args['γπΛ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπΛκειμ-ουδ']
   	end
   	
	if args['απ-ουδ'] ~= '-' and args['απ-ουδ'] ~= '0' and args['απ-ουδ'] ~= '' and args['απ-ουδ'] ~= nil then
   		args['απΛ-ουδ'] = create_link(args['απθ-ουδ'] .. args['απ-ουδ'], stem_color(args['απθ-ουδ']) .. ending_color(args['απ-ουδ'])) .. args['κοινό'] .. args['απΛκειμ-ουδ']
	elseif args['απ-ουδ'] == '0' then
   		args['απΛ-ουδ'] = create_link(args['απθ-ουδ'], stem_color(args['απθ-ουδ'])) .. args['κοινό'] .. args['απΛκειμ-ουδ']
   	elseif args['απ-ουδ'] == '-' then
   		args['απΛ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απΛκειμ-ουδ']
   	end
   	
	if args['κπ-ουδ'] ~= '-' and args['κπ-ουδ'] ~= '0' and args['κπ-ουδ'] ~= '' and args['κπ-ουδ'] ~= nil then
   		args['κπΛ-ουδ'] = create_link(args['κπθ-ουδ']  .. args['κπ-ουδ'], stem_color(args['κπθ-ουδ']) .. ending_color(args['κπ-ουδ'])) .. args['κοινό'] .. args['κπΛκειμ-ουδ']
	elseif args['κπ-ουδ'] == '0' then
   		args['κπΛ-ουδ'] = create_link(args['κπθ-ουδ'], stem_color(args['κπθ-ουδ'])) .. args['κοινό'] .. args['κπΛκειμ-ουδ']
   	elseif args['κπ-ουδ'] == '-' then
   		args['κπΛ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπΛκειμ-ουδ']
   	end

-- second words different line


-- MASC2
	if args['οε2-αρσ'] ~= '-' and args['οε2-αρσ'] ~= '0' and args['οε2-αρσ'] ~= '' and args['οε2-αρσ'] ~= nil then
   		args['οε2Λ-αρσ'] = br .. create_link(args['οε2θ-αρσ']  .. args['οε2-αρσ'], stem_color(args['οε2θ-αρσ']) .. ending_color(args['οε2-αρσ'])) .. args['κοινό'] .. args['οε2Λκειμ-αρσ']
	elseif args['οε2-αρσ'] == '0' then -- zero ending
   		args['οε2Λ-αρσ'] = br .. create_link(args['οε2θ-αρσ'], stem_color(args['οε2θ-αρσ'])) .. args['κοινό'] .. args['οε2Λκειμ-αρσ']
   	elseif args['οε2-αρσ'] == '-' then
   		args['οε2Λ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οε2Λκειμ-αρσ']
   	end
   	
	if args['γε2-αρσ'] ~= '-' and args['γε2-αρσ'] ~= '0' and args['γε2-αρσ'] ~= '' and args['γε2-αρσ'] ~= nil then
   		args['γε2Λ-αρσ'] = br .. create_link(args['γε2θ-αρσ'] .. args['γε2-αρσ'], stem_color(args['γε2θ-αρσ']) .. ending_color(args['γε2-αρσ'])) .. args['κοινό'] .. args['γε2Λκειμ-αρσ']
	elseif args['γε2-αρσ'] == '0' then -- zero ending hyphothetical
   		args['γε2Λ-αρσ'] = br .. create_link(args['γε2θ-αρσ'], stem_color(args['γε2θ-αρσ'])) .. args['κοινό'] .. args['γε2Λκειμ-αρσ']
   	elseif args['γε2-αρσ'] == '-' then
   		args['γε2Λ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γε2Λκειμ-αρσ']
   	end
   	
	if args['αε2-αρσ'] ~= '-' and args['αε2-αρσ'] ~= '0' and args['αε2-αρσ'] ~= '' and args['αε2-αρσ'] ~= nil then
   		args['αε2Λ-αρσ'] = br .. create_link(args['αε2θ-αρσ'] .. args['αε2-αρσ'], stem_color(args['αε2θ-αρσ']) .. ending_color(args['αε2-αρσ'])) .. args['κοινό'] .. args['αε2Λκειμ-αρσ']
	elseif args['αε2-αρσ'] == '0' then
   		args['αε2Λ-αρσ'] = br .. create_link(args['αε2θ-αρσ'], stem_color(args['αε2θ-αρσ'])) .. args['κοινό'] .. args['αε2Λκειμ-αρσ']
   	elseif args['αε2-αρσ'] == '-' then
   		args['αε2Λ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αε2Λκειμ-αρσ']
   	end
   	
	if args['κε2-αρσ'] ~= '-' and args['κε2-αρσ'] ~= '0' and args['κε2-αρσ'] ~= '' and args['κε2-αρσ'] ~= nil then
   		args['κε2Λ-αρσ'] = br .. create_link(args['κε2θ-αρσ']  .. args['κε2-αρσ'], stem_color(args['κε2θ-αρσ']) .. ending_color(args['κε2-αρσ'])) .. args['κοινό'] .. args['κε2Λκειμ-αρσ']
	elseif args['κε2-αρσ'] == '0' then
   		args['κε2Λ-αρσ'] = br .. create_link(args['κε2θ-αρσ'], stem_color(args['κε2θ-αρσ'])) .. args['κοινό'] .. args['κε2Λκειμ-αρσ']
   	elseif args['κε2-αρσ'] == '-' then
   		args['κε2Λ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κε2Λκειμ-αρσ']
   	end

	if args['οπ2-αρσ'] ~= '-' and args['οπ2-αρσ'] ~= '0' and args['οπ2-αρσ'] ~= '' and args['οπ2-αρσ'] ~= nil then
   		args['οπ2Λ-αρσ'] = br .. create_link(args['οπ2θ-αρσ']  .. args['οπ2-αρσ'], stem_color(args['οπ2θ-αρσ']) .. ending_color(args['οπ2-αρσ'])) .. args['κοινό'] .. args['οπ2Λκειμ-αρσ']
	elseif args['οπ2-αρσ'] == '0' then -- zero ending
   		args['οπ2Λ-αρσ'] = br .. create_link(args['οπ2θ-αρσ'], stem_color(args['οπ2θ-αρσ'])) .. args['κοινό'] .. args['οπ2Λκειμ-αρσ']
   	elseif args['οπ2-αρσ'] == '-' then
   		args['οπ2Λ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπ2Λκειμ-αρσ']
   	end
   	
	if args['γπ2-αρσ'] ~= '-' and args['γπ2-αρσ'] ~= '0' and args['γπ2-αρσ'] ~= '' and args['γπ2-αρσ'] ~= nil then
   		args['γπ2Λ-αρσ'] = br .. create_link(args['γπ2θ-αρσ'] .. args['γπ2-αρσ'], stem_color(args['γπ2θ-αρσ']) .. ending_color(args['γπ2-αρσ'])) .. args['κοινό'] .. args['γπ2Λκειμ-αρσ']
	elseif args['γπ2-αρσ'] == '0' then -- zero ending hyphothetical
   		args['γπ2Λ-αρσ'] = br .. create_link(args['γπ2θ-αρσ'], stem_color(args['γπ2θ-αρσ'])) .. args['κοινό'] .. args['γπ2Λκειμ-αρσ']
   	elseif args['γπ2-αρσ'] == '-' then
   		args['γπ2Λ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπ2Λκειμ-αρσ']
   	end
   	
	if args['απ2-αρσ'] ~= '-' and args['απ2-αρσ'] ~= '0' and args['απ2-αρσ'] ~= '' and args['απ2-αρσ'] ~= nil then
   		args['απ2Λ-αρσ'] = br .. create_link(args['απ2θ-αρσ'] .. args['απ2-αρσ'], stem_color(args['απ2θ-αρσ']) .. ending_color(args['απ2-αρσ'])) .. args['κοινό'] .. args['απ2Λκειμ-αρσ']
	elseif args['απ2-αρσ'] == '0' then
   		args['απ2Λ-αρσ'] = br .. create_link(args['απ2θ-αρσ'], stem_color(args['απ2θ-αρσ'])) .. args['κοινό'] .. args['απ2Λκειμ-αρσ']
   	elseif args['απ2-αρσ'] == '-' then
   		args['απ2Λ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απ2Λκειμ-αρσ']
   	end
   	
	if args['κπ2-αρσ'] ~= '-' and args['κπ2-αρσ'] ~= '0' and args['κπ2-αρσ'] ~= '' and args['κπ2-αρσ'] ~= nil then
   		args['κπ2Λ-αρσ'] = br .. create_link(args['κπ2θ-αρσ']  .. args['κπ2-αρσ'], stem_color(args['κπ2θ-αρσ']) .. ending_color(args['κπ2-αρσ'])) .. args['κοινό'] .. args['κπ2Λκειμ-αρσ']
	elseif args['κπ2-αρσ'] == '0' then
   		args['κπ2Λ-αρσ'] = br .. create_link(args['κπ2θ-αρσ'], stem_color(args['κπ2θ-αρσ'])) .. args['κοινό'] .. args['κπ2Λκειμ-αρσ']
   	elseif args['κπ2-αρσ'] == '-' then
   		args['κπ2Λ-αρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπ2Λκειμ-αρσ']
   	end

-- FEM2
	if args['οε2-θηλ'] ~= '-' and args['οε2-θηλ'] ~= '0' and args['οε2-θηλ'] ~= '' and args['οε2-θηλ'] ~= nil then
   		args['οε2Λ-θηλ'] = br .. create_link(args['οε2θ-θηλ']  .. args['οε2-θηλ'], stem_color(args['οε2θ-θηλ']) .. ending_color(args['οε2-θηλ'])) .. args['κοινό'] .. args['οε2Λκειμ-θηλ']
	elseif args['οε2-θηλ'] == '0' then -- zero ending
   		args['οε2Λ-θηλ'] = br .. create_link(args['οε2θ-θηλ'], stem_color(args['οε2θ-θηλ'])) .. args['κοινό'] .. args['οε2Λκειμ-θηλ']
   	elseif args['οε2-θηλ'] == '-' then
   		args['οε2Λ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οε2Λκειμ-θηλ']
   	end
   	
	if args['γε2-θηλ'] ~= '-' and args['γε2-θηλ'] ~= '0' and args['γε2-θηλ'] ~= '' and args['γε2-θηλ'] ~= nil then
   		args['γε2Λ-θηλ'] = br .. create_link(args['γε2θ-θηλ'] .. args['γε2-θηλ'], stem_color(args['γε2θ-θηλ']) .. ending_color(args['γε2-θηλ'])) .. args['κοινό'] .. args['γε2Λκειμ-θηλ']
	elseif args['γε2-θηλ'] == '0' then -- zero ending hyphothetical
   		args['γε2Λ-θηλ'] = br .. create_link(args['γε2θ-θηλ'], stem_color(args['γε2θ-θηλ'])) .. args['κοινό'] .. args['γε2Λκειμ-θηλ']
   	elseif args['γε2-θηλ'] == '-' then
   		args['γε2Λ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γε2Λκειμ-θηλ']
   	end
   	
	if args['αε2-θηλ'] ~= '-' and args['αε2-θηλ'] ~= '0' and args['αε2-θηλ'] ~= '' and args['αε2-θηλ'] ~= nil then
   		args['αε2Λ-θηλ'] = br .. create_link(args['αε2θ-θηλ'] .. args['αε2-θηλ'], stem_color(args['αε2θ-θηλ']) .. ending_color(args['αε2-θηλ'])) .. args['κοινό'] .. args['αε2Λκειμ-θηλ']
	elseif args['αε2-θηλ'] == '0' then
   		args['αε2Λ-θηλ'] = br .. create_link(args['αε2θ-θηλ'], stem_color(args['αε2θ-θηλ'])) .. args['κοινό'] .. args['αε2Λκειμ-θηλ']
   	elseif args['αε2-θηλ'] == '-' then
   		args['αε2Λ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αε2Λκειμ-θηλ']
   	end
   	
	if args['κε2-θηλ'] ~= '-' and args['κε2-θηλ'] ~= '0' and args['κε2-θηλ'] ~= '' and args['κε2-θηλ'] ~= nil then
   		args['κε2Λ-θηλ'] = br .. create_link(args['κε2θ-θηλ']  .. args['κε2-θηλ'], stem_color(args['κε2θ-θηλ']) .. ending_color(args['κε2-θηλ'])) .. args['κοινό'] .. args['κε2Λκειμ-θηλ']
	elseif args['κε2-θηλ'] == '0' then
   		args['κε2Λ-θηλ'] = br .. create_link(args['κε2θ-θηλ'], stem_color(args['κε2θ-θηλ'])) .. args['κοινό'] .. args['κε2Λκειμ-θηλ']
   	elseif args['κε2-θηλ'] == '-' then
   		args['κε2Λ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κε2Λκειμ-θηλ']
   	end

	if args['οπ2-θηλ'] ~= '-' and args['οπ2-θηλ'] ~= '0' and args['οπ2-θηλ'] ~= '' and args['οπ2-θηλ'] ~= nil then
   		args['οπ2Λ-θηλ'] = br .. create_link(args['οπ2θ-θηλ']  .. args['οπ2-θηλ'], stem_color(args['οπ2θ-θηλ']) .. ending_color(args['οπ2-θηλ'])) .. args['κοινό'] .. args['οπ2Λκειμ-θηλ']
	elseif args['οπ2-θηλ'] == '0' then -- zero ending
   		args['οπ2Λ-θηλ'] = br .. create_link(args['οπ2θ-θηλ'], stem_color(args['οπ2θ-θηλ'])) .. args['κοινό'] .. args['οπ2Λκειμ-θηλ']
   	elseif args['οπ2-θηλ'] == '-' then
   		args['οπ2Λ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπ2Λκειμ-θηλ']
   	end
   	
	if args['γπ2-θηλ'] ~= '-' and args['γπ2-θηλ'] ~= '0' and args['γπ2-θηλ'] ~= '' and args['γπ2-θηλ'] ~= nil then
   		args['γπ2Λ-θηλ'] = br .. create_link(args['γπ2θ-θηλ'] .. args['γπ2-θηλ'], stem_color(args['γπ2θ-θηλ']) .. ending_color(args['γπ2-θηλ'])) .. args['κοινό'] .. args['γπ2Λκειμ-θηλ']
	elseif args['γπ2-θηλ'] == '0' then -- zero ending hyphothetical
   		args['γπ2Λ-θηλ'] = br .. create_link(args['γπ2θ-θηλ'], stem_color(args['γπ2θ-θηλ'])) .. args['κοινό'] .. args['γπ2Λκειμ-θηλ']
   	elseif args['γπ2-θηλ'] == '-' then
   		args['γπ2Λ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπ2Λκειμ-θηλ']
   	end
   	
	if args['απ2-θηλ'] ~= '-' and args['απ2-θηλ'] ~= '0' and args['απ2-θηλ'] ~= '' and args['απ2-θηλ'] ~= nil then
   		args['απ2Λ-θηλ'] = br .. create_link(args['απ2θ-θηλ'] .. args['απ2-θηλ'], stem_color(args['απ2θ-θηλ']) .. ending_color(args['απ2-θηλ'])) .. args['κοινό'] .. args['απ2Λκειμ-θηλ']
	elseif args['απ2-θηλ'] == '0' then
   		args['απ2Λ-θηλ'] = br .. create_link(args['απ2θ-θηλ'], stem_color(args['απ2θ-θηλ'])) .. args['κοινό'] .. args['απ2Λκειμ-θηλ']
   	elseif args['απ2-θηλ'] == '-' then
   		args['απ2Λ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απ2Λκειμ-θηλ']
   	end
   	
	if args['κπ2-θηλ'] ~= '-' and args['κπ2-θηλ'] ~= '0' and args['κπ2-θηλ'] ~= '' and args['κπ2-θηλ'] ~= nil then
   		args['κπ2Λ-θηλ'] = br .. create_link(args['κπ2θ-θηλ']  .. args['κπ2-θηλ'], stem_color(args['κπ2θ-θηλ']) .. ending_color(args['κπ2-θηλ'])) .. args['κοινό'] .. args['κπ2Λκειμ-θηλ']
	elseif args['κπ2-θηλ'] == '0' then
   		args['κπ2Λ-θηλ'] = br .. create_link(args['κπ2θ-θηλ'], stem_color(args['κπ2θ-θηλ'])) .. args['κοινό'] .. args['κπ2Λκειμ-θηλ']
   	elseif args['κπ2-θηλ'] == '-' then
   		args['κπ2Λ-θηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπ2Λκειμ-θηλ']
   	end
		

-- NEU2
	if args['οε2-ουδ'] ~= '-' and args['οε2-ουδ'] ~= '0' and args['οε2-ουδ'] ~= '' and args['οε2-ουδ'] ~= nil then
   		args['οε2Λ-ουδ'] = br .. create_link(args['οε2θ-ουδ']  .. args['οε2-ουδ'], stem_color(args['οε2θ-ουδ']) .. ending_color(args['οε2-ουδ'])) .. args['κοινό'] .. args['οε2Λκειμ-ουδ']
	elseif args['οε2-ουδ'] == '0' then -- zero ending
   		args['οε2Λ-ουδ'] = br .. create_link(args['οε2θ-ουδ'], stem_color(args['οε2θ-ουδ'])) .. args['κοινό'] .. args['οε2Λκειμ-ουδ']
   	elseif args['οε2-ουδ'] == '-' then
   		args['οε2Λ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οε2Λκειμ-ουδ']
   	end
   	
	if args['γε2-ουδ'] ~= '-' and args['γε2-ουδ'] ~= '0' and args['γε2-ουδ'] ~= '' and args['γε2-ουδ'] ~= nil then
   		args['γε2Λ-ουδ'] = br .. create_link(args['γε2θ-ουδ'] .. args['γε2-ουδ'], stem_color(args['γε2θ-ουδ']) .. ending_color(args['γε2-ουδ'])) .. args['κοινό'] .. args['γε2Λκειμ-ουδ']
	elseif args['γε2-ουδ'] == '0' then -- zero ending hyphothetical
   		args['γε2Λ-ουδ'] = br .. create_link(args['γε2θ-ουδ'], stem_color(args['γε2θ-ουδ'])) .. args['κοινό'] .. args['γε2Λκειμ-ουδ']
   	elseif args['γε2-ουδ'] == '-' then
   		args['γε2Λ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γε2Λκειμ-ουδ']
   	end
   	
	if args['αε2-ουδ'] ~= '-' and args['αε2-ουδ'] ~= '0' and args['αε2-ουδ'] ~= '' and args['αε2-ουδ'] ~= nil then
   		args['αε2Λ-ουδ'] = br .. create_link(args['αε2θ-ουδ'] .. args['αε2-ουδ'], stem_color(args['αε2θ-ουδ']) .. ending_color(args['αε2-ουδ'])) .. args['κοινό'] .. args['αε2Λκειμ-ουδ']
	elseif args['αε2-ουδ'] == '0' then
   		args['αε2Λ-ουδ'] = br .. create_link(args['αε2θ-ουδ'], stem_color(args['αε2θ-ουδ'])) .. args['κοινό'] .. args['αε2Λκειμ-ουδ']
   	elseif args['αε2-ουδ'] == '-' then
   		args['αε2Λ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αε2Λκειμ-ουδ']
   	end
   	
	if args['κε2-ουδ'] ~= '-' and args['κε2-ουδ'] ~= '0' and args['κε2-ουδ'] ~= '' and args['κε2-ουδ'] ~= nil then
   		args['κε2Λ-ουδ'] = br .. create_link(args['κε2θ-ουδ']  .. args['κε2-ουδ'], stem_color(args['κε2θ-ουδ']) .. ending_color(args['κε2-ουδ'])) .. args['κοινό'] .. args['κε2Λκειμ-ουδ']
	elseif args['κε2-ουδ'] == '0' then
   		args['κε2Λ-ουδ'] = br .. create_link(args['κε2θ-ουδ'], stem_color(args['κε2θ-ουδ'])) .. args['κοινό'] .. args['κε2Λκειμ-ουδ']
   	elseif args['κε2-ουδ'] == '-' then
   		args['κε2Λ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κε2Λκειμ-ουδ']
   	end

	if args['οπ2-ουδ'] ~= '-' and args['οπ2-ουδ'] ~= '0' and args['οπ2-ουδ'] ~= '' and args['οπ2-ουδ'] ~= nil then
   		args['οπ2Λ-ουδ'] = br .. create_link(args['οπ2θ-ουδ']  .. args['οπ2-ουδ'], stem_color(args['οπ2θ-ουδ']) .. ending_color(args['οπ2-ουδ'])) .. args['κοινό'] .. args['οπ2Λκειμ-ουδ']
	elseif args['οπ2-ουδ'] == '0' then -- zero ending
   		args['οπ2Λ-ουδ'] = br .. create_link(args['οπ2θ-ουδ'], stem_color(args['οπ2θ-ουδ'])) .. args['κοινό'] .. args['οπ2Λκειμ-ουδ']
   	elseif args['οπ2-ουδ'] == '-' then
   		args['οπ2Λ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπ2Λκειμ-ουδ']
   	end
   	
	if args['γπ2-ουδ'] ~= '-' and args['γπ2-ουδ'] ~= '0' and args['γπ2-ουδ'] ~= '' and args['γπ2-ουδ'] ~= nil then
   		args['γπ2Λ-ουδ'] = br .. create_link(args['γπ2θ-ουδ'] .. args['γπ2-ουδ'], stem_color(args['γπ2θ-ουδ']) .. ending_color(args['γπ2-ουδ'])) .. args['κοινό'] .. args['γπ2Λκειμ-ουδ']
	elseif args['γπ2-ουδ'] == '0' then -- zero ending hyphothetical
   		args['γπ2Λ-ουδ'] = br .. create_link(args['γπ2θ-ουδ'], stem_color(args['γπ2θ-ουδ'])) .. args['κοινό'] .. args['γπ2Λκειμ-ουδ']
   	elseif args['γπ2-ουδ'] == '-' then
   		args['γπ2Λ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπ2Λκειμ-ουδ']
   	end
   	
	if args['απ2-ουδ'] ~= '-' and args['απ2-ουδ'] ~= '0' and args['απ2-ουδ'] ~= '' and args['απ2-ουδ'] ~= nil then
   		args['απ2Λ-ουδ'] = br .. create_link(args['απ2θ-ουδ'] .. args['απ2-ουδ'], stem_color(args['απ2θ-ουδ']) .. ending_color(args['απ2-ουδ'])) .. args['κοινό'] .. args['απ2Λκειμ-ουδ']
	elseif args['απ2-ουδ'] == '0' then
   		args['απ2Λ-ουδ'] = br .. create_link(args['απ2θ-ουδ'], stem_color(args['απ2θ-ουδ'])) .. args['κοινό'] .. args['απ2Λκειμ-ουδ']
   	elseif args['απ2-ουδ'] == '-' then
   		args['απ2Λ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απ2Λκειμ-ουδ']
   	end
   	
	if args['κπ2-ουδ'] ~= '-' and args['κπ2-ουδ'] ~= '0' and args['κπ2-ουδ'] ~= '' and args['κπ2-ουδ'] ~= nil then
   		args['κπ2Λ-ουδ'] = br .. create_link(args['κπ2θ-ουδ']  .. args['κπ2-ουδ'], stem_color(args['κπ2θ-ουδ']) .. ending_color(args['κπ2-ουδ'])) .. args['κοινό'] .. args['κπ2Λκειμ-ουδ']
	elseif args['κπ2-ουδ'] == '0' then
   		args['κπ2Λ-ουδ'] = br .. create_link(args['κπ2θ-ουδ'], stem_color(args['κπ2θ-ουδ'])) .. args['κοινό'] .. args['κπ2Λκειμ-ουδ']
   	elseif args['κπ2-ουδ'] == '-' then
   		args['κπ2Λ-ουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπ2Λκειμ-ουδ']
   	end


-- TOGETHER
-- m
	args['οεΛ-αρσ'] = args['οεΛ-αρσ'] .. args['οε2Λ-αρσ']
	args['γεΛ-αρσ'] = args['γεΛ-αρσ'] .. args['γε2Λ-αρσ']
	args['αεΛ-αρσ'] = args['αεΛ-αρσ'] .. args['αε2Λ-αρσ']
	args['κεΛ-αρσ'] = args['κεΛ-αρσ'] .. args['κε2Λ-αρσ']
	args['οπΛ-αρσ'] = args['οπΛ-αρσ'] .. args['οπ2Λ-αρσ']
	args['γπΛ-αρσ'] = args['γπΛ-αρσ'] .. args['γπ2Λ-αρσ']
	args['απΛ-αρσ'] = args['απΛ-αρσ'] .. args['απ2Λ-αρσ']
	args['κπΛ-αρσ'] = args['κπΛ-αρσ'] .. args['κπ2Λ-αρσ']
-- f
	args['οεΛ-θηλ'] = args['οεΛ-θηλ'] .. args['οε2Λ-θηλ']
	args['γεΛ-θηλ'] = args['γεΛ-θηλ'] .. args['γε2Λ-θηλ']
	args['αεΛ-θηλ'] = args['αεΛ-θηλ'] .. args['αε2Λ-θηλ']
	args['κεΛ-θηλ'] = args['κεΛ-θηλ'] .. args['κε2Λ-θηλ']
	args['οπΛ-θηλ'] = args['οπΛ-θηλ'] .. args['οπ2Λ-θηλ']
	args['γπΛ-θηλ'] = args['γπΛ-θηλ'] .. args['γπ2Λ-θηλ']
	args['απΛ-θηλ'] = args['απΛ-θηλ'] .. args['απ2Λ-θηλ']
	args['κπΛ-θηλ'] = args['κπΛ-θηλ'] .. args['κπ2Λ-θηλ']
-- n
	args['οεΛ-ουδ'] = args['οεΛ-ουδ'] .. args['οε2Λ-ουδ']
	args['γεΛ-ουδ'] = args['γεΛ-ουδ'] .. args['γε2Λ-ουδ']
	args['αεΛ-ουδ'] = args['αεΛ-ουδ'] .. args['αε2Λ-ουδ']
	args['κεΛ-ουδ'] = args['κεΛ-ουδ'] .. args['κε2Λ-ουδ']
	args['οπΛ-ουδ'] = args['οπΛ-ουδ'] .. args['οπ2Λ-ουδ']
	args['γπΛ-ουδ'] = args['γπΛ-ουδ'] .. args['γπ2Λ-ουδ']
	args['απΛ-ουδ'] = args['απΛ-ουδ'] .. args['απ2Λ-ουδ']
	args['κπΛ-ουδ'] = args['κπΛ-ουδ'] .. args['κπ2Λ-ουδ']



end -- close function param

return {param = param}