Module:vv/param

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

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

-- modern greek adjectives/participles 2021.06. Sarri.greek
--------------------------------------------------------------------------
--  all parameters and functions for Modern Greek ADJECTIVES
--------------------------------------------------------------------------
-- 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
--#################################################### add zero endings see οε-ουδ
--------------------------------------------------------------------------
-- 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================================ --
--------------------------------------------------------------------------

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

-- ============== ALL PARAMETERS ============== --
-- various
	args['float'] = args['float'] or ''
	args['όπως'] = args['όπως'] or ''
	args['ομάδα'] = args['ομάδα'] or ''
	args['τύπος'] = args['τύπος'] or ''

-- 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
	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:
	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 infix for gen-sg, acc-sg
	if args['οε-αρσ'] ~= '-' and args['οε-αρσ'] ~= '0' and args['οε-αρσ'] ~= '' and args['οε-αρσ'] ~= nil then
   		args['οεΛαρσ'] = create_link((args['οεθ-αρσ']  .. args['οε-αρσ']), (stem_color(args['οεθ-αρσ']) .. ending_color(args['οε-αρσ']))) .. ' ' .. args['οεΛαρσ+']
	elseif args['οε-αρσ'] == '0' then -- zero ending e.g. [[τρέχων]]
   		args['οεΛαρσ'] = create_link((args['οεθ-αρσ']), (stem_color(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['πρόσφ'] .. args['γε-αρσ']), (stem_color(args['γεθ-αρσ']) .. infix_color(args['πρόσφ']) .. ending_color(args['γε-αρσ']))) .. ' ' .. args['γεΛαρσ+']
	elseif args['γε-αρσ'] == '0' then -- zero ending hyphothetical
   		args['γεΛαρσ'] = create_link((args['γεθ-αρσ'] .. args['πρόσφ']), (stem_color(args['γεθ-αρσ']) .. infix_color(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['πρόσφ'] .. args['αε-αρσ']), (stem_color(args['αεθ-αρσ']) .. infix_color(args['πρόσφ']) .. ending_color(args['αε-αρσ']))) .. ' ' .. args['αεΛαρσ+']
	elseif args['αε-αρσ'] == '0' then -- zero ending hyphothetical
   		args['αεΛαρσ'] = create_link((args['αεθ-αρσ'] .. args['πρόσφ']), (stem_color(args['αεθ-αρσ']) .. infix_color(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['κεΛαρσ+']
	elseif args['κε-αρσ'] == '0' then -- zero ending e.g. [[τρέχων]]
   		args['κεΛαρσ'] = create_link((args['κεθ-αρσ']), (stem_color(args['κεθ-αρσ']))) .. ' ' .. args['κεΛαρσ+']
   	elseif args['κε-αρσ'] == '-' then
   		args['κεΛαρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κεΛαρσ+']
   	end
-- infix for gen-pl, acc-pl
	if args['οπ-αρσ'] ~= '-' and args['οπ-αρσ'] ~= '' and args['οπ-αρσ'] ~= nil then
   	args['οπΛαρσ'] = create_link((args['οπθ-αρσ']  .. args['οπ-αρσ']), (stem_color(args['οπθ-αρσ']) .. ending_color(args['οπ-αρσ']))) .. ' ' .. args['οπΛαρσ+']
   	elseif args['οπ-αρσ'] == '-' then
   		args['οπΛαρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['οπΛαρσ+']
   	end
	if args['γπ-αρσ'] ~= '-' and args['γπ-αρσ'] ~= '' and args['γπ-αρσ'] ~= nil then
   	args['γπΛαρσ'] = create_link((args['γπθ-αρσ'] .. args['πρόσφ'] .. args['γπ-αρσ']), (stem_color(args['γπθ-αρσ']) .. infix_color(args['πρόσφ']) .. ending_color(args['γπ-αρσ']))) .. ' ' .. args['γπΛαρσ+']
   	elseif args['γπ-αρσ'] == '-' then
   		args['γπΛαρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['γπΛαρσ+']
   	end
	if args['απ-αρσ'] ~= '-' and args['απ-αρσ'] ~= '' and args['απ-αρσ'] ~= nil then
   	args['απΛαρσ'] = create_link((args['απθ-αρσ'] .. args['πρόσφ'] .. args['απ-αρσ']), (stem_color(args['απθ-αρσ']) .. infix_color(args['πρόσφ']) .. ending_color(args['απ-αρσ']))) .. ' ' .. args['απΛαρσ+']
   	elseif args['απ-αρσ'] == '-' then
   		args['απΛαρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['απΛαρσ+']
   	end
	if args['κπ-αρσ'] ~= '-' and args['κπ-αρσ'] ~= '' and args['κπ-αρσ'] ~= nil then
   	args['κπΛαρσ'] = create_link((args['κπθ-αρσ']  .. args['κπ-αρσ']), (stem_color(args['κπθ-αρσ']) .. ending_color(args['κπ-αρσ']))) .. ' ' .. args['κπΛαρσ+']
   	elseif args['κπ-αρσ'] == '-' then
   		args['κπΛαρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κπΛαρσ+']
   	end

-- FEM infix for gen-sg, acc-sg
	if args['οε-θηλ'] ~= '-' and args['οε-θηλ'] ~= '' and args['οε-θηλ'] ~= nil then
   	args['οεΛθηλ'] = create_link((args['οεθ-θηλ']  .. args['οε-θηλ']), (stem_color(args['οεθ-θηλ']) .. ending_color(args['οε-θηλ']))) .. ' ' .. args['οεΛθηλ+']
   	elseif args['οε-θηλ'] == '-' then
   		args['οεΛθηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['οεΛθηλ+']
   	end
	if args['γε-θηλ'] ~= '-' and args['γε-θηλ'] ~= '' and args['γε-θηλ'] ~= nil then
   	args['γεΛθηλ'] = create_link((args['γεθ-θηλ'] .. args['πρόσφ'] .. args['γε-θηλ']), (stem_color(args['γεθ-θηλ']) .. infix_color(args['πρόσφ']) .. ending_color(args['γε-θηλ']))) .. ' ' .. args['γεΛθηλ+']
   	elseif args['γε-θηλ'] == '-' then
   		args['γεΛθηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['γεΛθηλ+']
   	end
	if args['αε-θηλ'] ~= '-' and args['αε-θηλ'] ~= '' and args['αε-θηλ'] ~= nil then
   	args['αεΛθηλ'] = create_link((args['αεθ-θηλ'] .. args['πρόσφ'] .. args['αε-θηλ']), (stem_color(args['αεθ-θηλ']) .. infix_color(args['πρόσφ']) .. ending_color(args['αε-θηλ']))) .. ' ' .. args['αεΛθηλ+']
   	elseif args['αε-θηλ'] == '-' then
   		args['αεΛθηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['αεΛθηλ+']
   	end
	if args['κε-θηλ'] ~= '-' and args['κε-θηλ'] ~= '' and args['κε-θηλ'] ~= nil then
   	args['κεΛθηλ'] = create_link((args['κεθ-θηλ']  .. args['κε-θηλ']), (stem_color(args['κεθ-θηλ']) .. ending_color(args['κε-θηλ']))) .. ' ' .. args['κεΛθηλ+']
   	elseif args['κε-θηλ'] == '-' then
   		args['κεΛθηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κεΛθηλ+']
   	end
-- infix for gen-pl, acc-pl
	if args['οπ-θηλ'] ~= '-' and args['οπ-θηλ'] ~= '' and args['οπ-θηλ'] ~= nil then
   	args['οπΛθηλ'] = create_link((args['οπθ-θηλ']  .. args['οπ-θηλ']), (stem_color(args['οπθ-θηλ']) .. ending_color(args['οπ-θηλ']))) .. ' ' .. args['οπΛθηλ+']
   	elseif args['οπ-θηλ'] == '-' then
   		args['οπΛθηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['οπΛθηλ+']
   	end
	if args['γπ-θηλ'] ~= '-' and args['γπ-θηλ'] ~= '' and args['γπ-θηλ'] ~= nil then
   	args['γπΛθηλ'] = create_link((args['γπθ-θηλ'] .. args['πρόσφ'] .. args['γπ-θηλ']), (stem_color(args['γπθ-θηλ']) .. infix_color(args['πρόσφ']) .. ending_color(args['γπ-θηλ']))) .. ' ' .. args['γπΛθηλ+']
   	elseif args['γπ-θηλ'] == '-' then
   		args['γπΛθηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['γπΛθηλ+']
   	end
	if args['απ-θηλ'] ~= '-' and args['απ-θηλ'] ~= '' and args['απ-θηλ'] ~= nil then
   	args['απΛθηλ'] = create_link((args['απθ-θηλ'] .. args['πρόσφ'] .. args['απ-θηλ']), (stem_color(args['απθ-θηλ']) .. infix_color(args['πρόσφ']) .. ending_color(args['απ-θηλ']))) .. ' ' .. args['απΛθηλ+']
   	elseif args['απ-θηλ'] == '-' then
   		args['απΛθηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['απΛθηλ+']
   	end
	if args['κπ-θηλ'] ~= '-' and args['κπ-θηλ'] ~= '' and args['κπ-θηλ'] ~= nil then
   	args['κπΛθηλ'] = create_link((args['κπθ-θηλ']  .. args['κπ-θηλ']), (stem_color(args['κπθ-θηλ']) .. ending_color(args['κπ-θηλ']))) .. ' ' .. args['κπΛθηλ+']
   	elseif args['κπ-θηλ'] == '-' then
   		args['κπΛθηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κπΛθηλ+']
   	end
		

-- NEU infix for gen-sg, acc-sg
	if args['οε-ουδ'] ~= '-' and args['οε-ουδ'] ~= '0' and args['οε-ουδ'] ~= '' and args['οε-ουδ'] ~= nil then
   		args['οεΛουδ'] = create_link((args['οεθ-ουδ']  .. args['οε-ουδ']), (stem_color(args['οεθ-ουδ']) .. ending_color(args['οε-ουδ']))) .. ' ' .. args['οεΛουδ+']
	elseif args['οε-ουδ'] == '0' then -- zero ending e.g. [[τρέχων]]
   		args['οεΛουδ'] = create_link((args['οεθ-ουδ']), (stem_color(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['πρόσφ'] .. args['γε-ουδ']), (stem_color(args['γεθ-ουδ']) .. infix_color(args['πρόσφ']) .. ending_color(args['γε-ουδ']))) .. ' ' .. args['γεΛουδ+']
	elseif args['γε-ουδ'] == '0' then -- zero ending hyphothetical
   		args['γεΛουδ'] = create_link((args['γεθ-ουδ'] .. args['πρόσφ']), (stem_color(args['γεθ-ουδ']) .. infix_color(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['πρόσφ'] .. args['αε-ουδ']), (stem_color(args['αεθ-ουδ']) .. infix_color(args['πρόσφ']) .. ending_color(args['αε-ουδ']))) .. ' ' .. args['αεΛουδ+']
	elseif args['αε-ουδ'] == '0' then -- zero ending e.g. [[τρέχων]]
   		args['αεΛουδ'] = create_link((args['αεθ-ουδ'] .. args['πρόσφ']), (stem_color(args['αεθ-ουδ']) .. infix_color(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['κεΛουδ+']
	elseif args['κε-ουδ'] == '0' then -- zero ending e.g. [[τρέχων]]
   		args['κεΛουδ'] = create_link((args['κεθ-ουδ']), (stem_color(args['κεθ-ουδ']))) .. ' ' .. args['κεΛουδ+']
   	elseif args['κε-ουδ'] == '-' then
   		args['κεΛουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κεΛουδ+']
   	end
-- infix for nom-pl, gen-pl, acc-pl, voc pl
	if args['οπ-ουδ'] ~= '-' and args['οπ-ουδ'] ~= '' and args['οπ-ουδ'] ~= nil then
   	args['οπΛουδ'] = create_link((args['οπθ-ουδ'] .. args['πρόσφ']  .. args['οπ-ουδ']), (stem_color(args['οπθ-ουδ']) .. infix_color(args['πρόσφ']) .. ending_color(args['οπ-ουδ']))) .. ' ' .. args['οπΛουδ+']
   	elseif args['οπ-ουδ'] == '-' then
   		args['οπΛουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['οπΛουδ+']
   	end
	if args['γπ-ουδ'] ~= '-' and args['γπ-ουδ'] ~= '' and args['γπ-ουδ'] ~= nil then
   	args['γπΛουδ'] = create_link((args['γπθ-ουδ'] .. args['πρόσφ'] .. args['γπ-ουδ']), (stem_color(args['γπθ-ουδ']) .. infix_color(args['πρόσφ']) .. ending_color(args['γπ-ουδ']))) .. ' ' .. args['γπΛουδ+']
   	elseif args['γπ-ουδ'] == '-' then
   		args['γπΛουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['γπΛουδ+']
   	end
	if args['απ-ουδ'] ~= '-' and args['απ-ουδ'] ~= '' and args['απ-ουδ'] ~= nil then
   	args['απΛουδ'] = create_link((args['απθ-ουδ'] .. args['πρόσφ'] .. args['απ-ουδ']), (stem_color(args['απθ-ουδ']) .. infix_color(args['πρόσφ']) .. ending_color(args['απ-ουδ']))) .. ' ' .. args['απΛουδ+']
   	elseif args['απ-ουδ'] == '-' then
   		args['απΛουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['απΛουδ+']
   	end
	if args['κπ-ουδ'] ~= '-' and args['κπ-ουδ'] ~= '' and args['κπ-ουδ'] ~= nil then
   	args['κπΛουδ'] = create_link((args['κπθ-ουδ'] .. args['πρόσφ']  .. args['κπ-ουδ']), (stem_color(args['κπθ-ουδ']) .. infix_color(args['πρόσφ']) .. ending_color(args['κπ-ουδ']))) .. ' ' .. args['κπΛουδ+']
   	elseif args['κπ-ουδ'] == '-' then
   		args['κπΛουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κπΛουδ+']
   	end

-- second words different line
-- με πρόσφ2, δεύτερο θέμα, σε άλλη γραμμή.
-- MASC2 infix for gen-sg, acc-sg
	if args['οε2-αρσ'] ~= '-' 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['οε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-αρσ'] ~= '' and args['γε2-αρσ'] ~= nil then
   	args['γε2Λαρσ'] = '<br />&&nbsp;' .. create_link((args['γε2θ-αρσ'] .. args['πρόσφ2'] .. args['γε2-αρσ']), (stem_color(args['γε2θ-αρσ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['γε2-αρσ']))) .. ' ' .. 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-αρσ'] ~= '' and args['αε2-αρσ'] ~= nil then
   	args['αε2Λαρσ'] = '<br />&&nbsp;' .. create_link((args['αε2θ-αρσ'] .. args['πρόσφ2'] .. args['αε2-αρσ']), (stem_color(args['αε2θ-αρσ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['αε2-αρσ']))) .. ' ' .. 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-αρσ'] ~= '' and args['κε2-αρσ'] ~= nil then
   	args['κε2Λαρσ'] = '<br />&&nbsp;' .. create_link((args['κε2θ-αρσ']  .. args['κε2-αρσ']), (stem_color(args['κε2θ-αρσ']) .. ending_color(args['κε2-αρσ']))) .. ' ' .. args['κε2Λαρσ+']
   	elseif args['κε2-αρσ'] == '-' then
   		args['κε2Λαρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κε2Λαρσ+']
   	end
-- infix for gen-pl, acc-pl
	if args['οπ2-αρσ'] ~= '-' 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['οπ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-αρσ'] ~= '' and args['γπ2-αρσ'] ~= nil then
   	args['γπ2Λαρσ'] = '<br />&&nbsp;' .. create_link((args['γπ2θ-αρσ'] .. args['πρόσφ2'] .. args['γπ2-αρσ']), (stem_color(args['γπ2θ-αρσ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['γπ2-αρσ']))) .. ' ' .. 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-αρσ'] ~= '' and args['απ2-αρσ'] ~= nil then
   	args['απ2Λαρσ'] = '<br />&&nbsp;' .. create_link((args['απ2θ-αρσ'] .. args['πρόσφ2'] .. args['απ2-αρσ']), (stem_color(args['απ2θ-αρσ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['απ2-αρσ']))) .. ' ' .. 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-αρσ'] ~= '' and args['κπ2-αρσ'] ~= nil then
   	args['κπ2Λαρσ'] = '<br />&&nbsp;' .. create_link((args['κπ2θ-αρσ']  .. args['κπ2-αρσ']), (stem_color(args['κπ2θ-αρσ']) .. ending_color(args['κπ2-αρσ']))) .. ' ' .. args['κπ2Λαρσ+']
   	elseif args['κπ2-αρσ'] == '-' then
   		args['κπ2Λαρσ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κπ2Λαρσ+']
   	end

-- FEM2 infix for gen-sg, acc-sg
	if args['οε2-θηλ'] ~= '-' 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['οε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-θηλ'] ~= '' and args['γε2-θηλ'] ~= nil then
   	args['γε2Λθηλ'] = '<br />&&nbsp;' .. create_link((args['γε2θ-θηλ'] .. args['πρόσφ2'] .. args['γε2-θηλ']), (stem_color(args['γε2θ-θηλ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['γε2-θηλ']))) .. ' ' .. 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-θηλ'] ~= '' and args['αε2-θηλ'] ~= nil then
   	args['αε2Λθηλ'] = '<br />&&nbsp;' .. create_link((args['αε2θ-θηλ'] .. args['πρόσφ2'] .. args['αε2-θηλ']), (stem_color(args['αε2θ-θηλ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['αε2-θηλ']))) .. ' ' .. 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-θηλ'] ~= '' and args['κε2-θηλ'] ~= nil then
   	args['κε2Λθηλ'] = '<br />&&nbsp;' .. create_link((args['κε2θ-θηλ']  .. args['κε2-θηλ']), (stem_color(args['κε2θ-θηλ']) .. ending_color(args['κε2-θηλ']))) .. ' ' .. args['κε2Λθηλ+']
   	elseif args['κε2-θηλ'] == '-' then
   		args['κε2Λθηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κε2Λθηλ+']
   	end
-- infix for gen-pl, acc-pl
	if args['οπ2-θηλ'] ~= '-' 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['οπ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-θηλ'] ~= '' and args['γπ2-θηλ'] ~= nil then
   	args['γπ2Λθηλ'] = '<br />&&nbsp;' .. create_link((args['γπ2θ-θηλ'] .. args['πρόσφ2'] .. args['γπ2-θηλ']), (stem_color(args['γπ2θ-θηλ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['γπ2-θηλ']))) .. ' ' .. 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-θηλ'] ~= '' and args['απ2-θηλ'] ~= nil then
   	args['απ2Λθηλ'] = '<br />&&nbsp;' .. create_link((args['απ2θ-θηλ'] .. args['πρόσφ2'] .. args['απ2-θηλ']), (stem_color(args['απ2θ-θηλ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['απ2-θηλ']))) .. ' ' .. 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-θηλ'] ~= '' and args['κπ2-θηλ'] ~= nil then
   	args['κπ2Λθηλ'] = '<br />&&nbsp;' .. create_link((args['κπ2θ-θηλ']  .. args['κπ2-θηλ']), (stem_color(args['κπ2θ-θηλ']) .. ending_color(args['κπ2-θηλ']))) .. ' ' .. args['κπ2Λθηλ+']
   	elseif args['κπ2-θηλ'] == '-' then
   		args['κπ2Λθηλ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κπ2Λθηλ+']
   	end
		

-- NEU2 infix for gen-sg, acc-sg
	if args['οε2-ουδ'] ~= '-' 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['οε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-ουδ'] ~= '' and args['γε2-ουδ'] ~= nil then
   	args['γε2Λουδ'] = '<br />&&nbsp;' .. create_link((args['γε2θ-ουδ'] .. args['πρόσφ2'] .. args['γε2-ουδ']), (stem_color(args['γε2θ-ουδ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['γε2-ουδ']))) .. ' ' .. 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-ουδ'] ~= '' and args['αε2-ουδ'] ~= nil then
   	args['αε2Λουδ'] = '<br />&&nbsp;' .. create_link((args['αε2θ-ουδ'] .. args['πρόσφ2'] .. args['αε2-ουδ']), (stem_color(args['αε2θ-ουδ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['αε2-ουδ']))) .. ' ' .. 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-ουδ'] ~= '' and args['κε2-ουδ'] ~= nil then
   	args['κε2Λουδ'] = '<br />&&nbsp;' .. create_link((args['κε2θ-ουδ']  .. args['κε2-ουδ']), (stem_color(args['κε2θ-ουδ']) .. ending_color(args['κε2-ουδ']))) .. ' ' .. args['κε2Λουδ+']
   	elseif args['κε2-ουδ'] == '-' then
   		args['κε2Λουδ'] = '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. ' ' .. args['κε2Λουδ+']
   	end
-- infix for nom-pl, gen-pl, acc-pl, voc pl
	if args['οπ2-ουδ'] ~= '-' and args['οπ2-ουδ'] ~= '' and args['οπ2-ουδ'] ~= nil then
   	args['οπ2Λουδ'] = '<br />&&nbsp;' .. create_link((args['οπ2θ-ουδ'] .. args['πρόσφ2']  .. args['οπ2-ουδ']), (stem_color(args['οπ2θ-ουδ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['οπ2-ουδ']))) .. ' ' .. 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-ουδ'] ~= '' and args['γπ2-ουδ'] ~= nil then
   	args['γπ2Λουδ'] = '<br />&&nbsp;' .. create_link((args['γπ2θ-ουδ'] .. args['πρόσφ2'] .. args['γπ2-ουδ']), (stem_color(args['γπ2θ-ουδ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['γπ2-ουδ']))) .. ' ' .. 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-ουδ'] ~= '' and args['απ2-ουδ'] ~= nil then
   	args['απ2Λουδ'] = '<br />&&nbsp;' .. create_link((args['απ2θ-ουδ'] .. args['πρόσφ2'] .. args['απ2-ουδ']), (stem_color(args['απ2θ-ουδ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['απ2-ουδ']))) .. ' ' .. 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-ουδ'] ~= '' and args['κπ2-ουδ'] ~= nil then
   	args['κπ2Λουδ'] = '<br />&&nbsp;' .. create_link((args['κπ2θ-ουδ'] .. args['πρόσφ2']  .. args['κπ2-ουδ']), (stem_color(args['κπ2θ-ουδ']) .. infix_color(args['πρόσφ2']) .. ending_color(args['κπ2-ουδ']))) .. ' ' .. 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}