Module:vv/param

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

Documentation for this module may be created at Module:vv/param/τεκμηρίωση

-- modern greek adjectives/participles 2021.06. Sarri.greek
-- 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
--------------------------------------------------------------------------
--[=[
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.

-- INSTRUCTIONS:
-- Call if from a declension module 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_param = require ...
	
-- USE: local for the functions of THIS module
]=]--


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

-- 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)
    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 = {}
--------------------------------------------------------------------------
local function create_link (page, text)
	local args = {}
	if text then
		return '[[' .. page .. '|' .. text .. ']]'
	else
		return '[[' .. page .. ']]'
	end
end

--[[--------------------------< I S _ S E T >------------ By Trappist the monk at wikipedia.

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

]]

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

-- stems in param function
    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 ============== --

-- extra parameters ## CHECK if κοινό1 BEFORE the word is  needed
-- αντωνυμία [[δικός μου]]
	if args['κοινό'] ~= '' and args['κοινό'] ~= nil then
		args['κοινό'] =  ' ' .. args['κοινό']
	else
		args['κοινό'] = ''
	end


-- 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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 />&&nbsp;' .. 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}