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

-- [[Module:yy]] -- [[Module:yy/param]] -- [[Module:yy/functions]] -- [[Template:yy]]
--## test params for [[Module:el-nouns-decl]]
-- ?? shall we use mod- params here too?



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

local languages = mw.loadData("Module:Languages") -- needed: el (possibly pnt tsd, and other dialectal)

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

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

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

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



--[=[--------------------------< I S _ S E T >------------ thanks to [[w:en:User talk:Trappist the monk]]
Returns true if argument is set; false otherwise. Argument is 'set' when it exists (not nil) or when it is not an empty string.
]=]
--[=[ explanation:
The is_set() function may be added so that tests like this:
	if args['ακε'] ~= '' and args['ακε'] ~= nil then args['ακε'] = args['ακε'] else args['ακε'] = '' end
can be reduced to:
	if not is_set (args['ακε']) then args['ακε'] = '' end
]=]--

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

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


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


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

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

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





-- DO NOT use cat-extra with lang_name in the pages. Use κατηγ or υποκατ
-- =============== LANGUAGES for categories and notes in appendix
cat_pos = args['μέρος λόγου'] or 'Ουσιαστικά' -- pos: Part of Speech
	lang_iso = lang_iso or 'el'
	lang_link = languages[lang_iso]['link'] or ''
	lang_name = languages[lang_iso]['name'] or ''

-- ======= Ποντιακά -- test δοκιμαστικό -- δεν χρησιμοποιείται -- NOT USED
-- 1 = only title and Κατηγορία:Λήμματα με κλίσεις (languagename)
-- 2 = all categories
-- # SEE handling of titles like mod-τίτλος below, at params
		-- used if ONLY pnt
		if args['pnt']  == '2' then
			args['lang_title'] = '[[:Κατηγορία:Ποντιακά|ποντιακά]]'
			lang_iso = 'pnt'
			lang_name = languages['pnt']['name']
		elseif args['pnt']  == '1' then
			args['lang_title'] = "<i>[[:Κατηγορία:Ουσιαστικά (ποντιακά)|ποντιακά (παραδείγματα τύπων)]]</i>" 
				.. '[[Κατηγορία:' .. cat_pos .. ' με παραδείγματα κλιτικών τύπων (ποντιακά)]]'
			lang_iso = 'pnt'
			lang_name = languages['pnt']['name']
		end


--[=[ -- Will be used, IF we have more languages
-- Place this UNDER LANGUAGES,  not before!!!!
-- ====================== Links
-- create_link((args['οεθ'] .. args['οε']), (stem_color(args['οεθ']) .. ending_color(args['οε'])))
function create_link (page, text)
		if text then
		return '[[' .. page .. '#' .. languages[lang_iso]['link'] .. '|' .. text .. ']]'
		else
		return '[[' .. page .. '#' .. languages[lang_iso]['link'] .. '|' .. page .. ']]'
		end
end
]=]--
-- ====================== Links
create_link = function(page, text)
	if text then
		return '[[' .. page .. '|' .. text .. ']]'
	else
		return '[[' .. page .. ']]'
	end
end


--[=[ -- only for ancient greek
-- ======================== άγνωστες λέξεις χωρίς πηγές (ονόματα ====================
-- unk=1 Κατηγορία:Ουσιαστικά με κλίση χωρίς χρονολόγηση (αρχαία ελληνικά)
	args['unk'] = args['unk'] or ''
	args['rar'] = args['rar'] or ''
	if args['unk'] == '1' then
		args['nocat'] = '1'
		args['σημ'] = args['σημ'] .. '[[Κατηγορία:Ουσιαστικά με κλίση χωρίς χρονολόγηση (αρχαία ελληνικά)]]'
	end
	if args['rar'] == '1' then
		args['nocat'] = '1'
		args['σημ'] = args['σημ'] .. '[[Κατηγορία:Σπάνια κύρια ονόματα κατά την κλίση (αρχαία ελληνικά)]]'
	end
]=]--
	
-- ================================ TTILES ===========
-- PLACE THIS UNDER LANGUAGES
--  (title from module + extra title)
	-- args['lang_title'] see LANGUAGES
	args['mod-τίτλος'] = args['mod-τίτλος'] or ''
	args['τίτλος'] = args['τίτλος'] or ''
	extratitle_str = args['mod-τίτλος'] or '' 
	editor_title = args['τίτλος'] or ''
	if args['mod-τίτλος'] ~= '' and args['mod-τίτλος'] ~= nil then
		if args['τίτλος'] ~= '' and args['τίτλος'] ~= nil then
			args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>" .. args['τίτλος']
			if args['α-θ'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>" .. args['τίτλος'] .. "<br>" 
				.. '[[:Κατηγορία:Ουσιαστικά αρσενικά ή θηλυκά (νέα ελληνικά)|αρσενικό ή θηλυκό]]'
			elseif args['θ-1'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>" .. args['τίτλος'] .. "<br>" 
				.. '[[:Κατηγορία:Ουσιαστικά θηλυκά ή αρσενικά (νέα ελληνικά)|θηλυκό ή αρσενικό]]'		
			end
		else -- yes mod-τίτλος,  no τίτλος
		args['mod-τίτλος'] = args['mod-τίτλος']
			if args['α-θ'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>"
				.. '[[:Κατηγορία:Ουσιαστικά αρσενικά ή θηλυκά (νέα ελληνικά)|αρσενικό ή θηλυκό]]'
			elseif args['θ-1'] == '1' then
				args['mod-τίτλος'] = args['mod-τίτλος'] .. "<br>"
				.. '[[:Κατηγορία:Ουσιαστικά θηλυκά ή αρσενικά (νέα ελληνικά)|θηλυκό ή αρσενικό]]'		
			end
		end
	else -- NO mod-τιτλος
		if args['τίτλος'] ~= '' and args['τίτλος'] ~= nil then
			args['mod-τίτλος'] = args['τίτλος']
			if args['α-θ'] == '1' then
				args['mod-τίτλος'] = args['τίτλος'] .. "<br>" 
				.. '[[:Κατηγορία:Ουσιαστικά αρσενικά ή θηλυκά (νέα ελληνικά)|αρσενικό ή θηλυκό]]'
			elseif args['θ-1'] == '1' then
				args['mod-τίτλος'] = args['τίτλος'] .. "<br>" 
				.. '[[:Κατηγορία:Ουσιαστικά θηλυκά ή αρσενικά (νέα ελληνικά)|θηλυκό ή αρσενικό]]'		
			end
		else -- no mod-τίτλος, no τίτλος, nothing
		args['mod-τίτλος'] = ''
		args['τίτλος'] = ''
			if args['α-θ'] == '1' then -- [[αἰθήρ]] 
				args['mod-τίτλος'] = '[[:Κατηγορία:Ουσιαστικά αρσενικά ή θηλυκά (νέα ελληνικά)|αρσενικό ή θηλυκό]]'
			elseif args['θ-1'] == '1' then
				args['mod-τίτλος'] = '[[:Κατηγορία:Ουσιαστικά θηλυκά ή αρσενικά (νέα ελληνικά)|θηλυκό ή αρσενικό]]'
			end
		end
	end


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

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



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

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

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

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

-- ===================== TESTS
--[=[
if args['υπότιτλος-εν'] == 'αρσ' then args['υπότιτλος-εν'] = '[[αρσενικό|' .. black_color('αρσενικό') .. ']]'
			-- check [[λύχνος]]
			args['αοε'] = "αρσ"	args['αγε'] = "αρσ"	args['αδε'] = "αρσ"	args['ααε'] = "αρσ"
end
]=]--


-- ================================ START WORDS
-- whole words @modules ALSO SNUMBERED
	args['mod-οεΛ'] = args['mod-οεΛ'] or args['1'] or ''	args['mod-γεΛ'] = args['mod-γεΛ'] or args['2'] or ''
	args['mod-αεΛ'] = args['mod-αεΛ'] or args['3'] or ''	args['mod-κεΛ'] = args['mod-κεΛ'] or args['4'] or ''
	args['mod-οπΛ'] = args['mod-οπΛ'] or args['5'] or ''	args['mod-γπΛ'] = args['mod-γπΛ'] or args['6'] or ''
	args['mod-απΛ'] = args['mod-απΛ'] or args['7'] or ''	args['mod-κπΛ'] = args['mod-κπΛ'] or args['8'] or ''
	-- second word
	args['mod-οε2Λ'] = args['mod-οε2Λ'] or ''	args['mod-γε2Λ'] = args['mod-γε2Λ'] or ''	
	args['mod-αε2Λ'] = args['mod-αε2Λ'] or ''	args['mod-κε2Λ'] = args['mod-κε2Λ'] or ''
	args['mod-οπ2Λ'] = args['mod-οπ2Λ'] or ''	args['mod-γπ2Λ'] = args['mod-γπ2Λ'] or ''
	args['mod-απ2Λ'] = args['mod-απ2Λ'] or ''	args['mod-κπ2Λ'] = args['mod-κπ2Λ'] or ''
-- whole words for editors
	args['οεΛ'] = args['οεΛ'] or ''	args['γεΛ'] = args['γεΛ'] or ''
	args['αεΛ'] = args['αεΛ'] or ''	args['κεΛ'] = args['κεΛ'] or ''
	args['οπΛ'] = args['οπΛ'] or ''	args['γπΛ'] = args['γπΛ'] or ''
	args['απΛ'] = args['απΛ'] or ''	args['κπΛ'] = args['κπΛ'] or ''
	-- 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 ''
-- if οεΛ then mod-οεΛ=οεΛ
	if args['οεΛ'] ~= '' and args['οεΛ'] ~= nil then args['mod-οεΛ'] = args['οεΛ'] end
	if args['γεΛ'] ~= '' and args['γεΛ'] ~= nil then args['mod-γεΛ'] = args['γεΛ'] end
	if args['αεΛ'] ~= '' and args['αεΛ'] ~= nil then args['mod-αεΛ'] = args['αεΛ'] end
	if args['κεΛ'] ~= '' and args['κεΛ'] ~= nil then args['mod-κεΛ'] = args['κεΛ'] end
	if args['οπΛ'] ~= '' and args['οπΛ'] ~= nil then args['mod-οπΛ'] = args['οπΛ'] end
	if args['γπΛ'] ~= '' and args['γπΛ'] ~= nil then args['mod-γπΛ'] = args['γπΛ'] end
	if args['απΛ'] ~= '' and args['απΛ'] ~= nil then args['mod-απΛ'] = args['απΛ'] end
	if args['κπΛ'] ~= '' and args['κπΛ'] ~= nil then args['mod-κπΛ'] = args['κπΛ'] end
	-- second word
	if args['οε2Λ'] ~= '' and args['οε2Λ'] ~= nil then args['mod-οε2Λ'] = args['οε2Λ'] end
	if args['γε2Λ'] ~= '' and args['γε2Λ'] ~= nil then args['mod-γε2Λ'] = args['γε2Λ'] end
	if args['αε2Λ'] ~= '' and args['αε2Λ'] ~= nil then args['mod-αε2Λ'] = args['αε2Λ'] end
	if args['κε2Λ'] ~= '' and args['κε2Λ'] ~= nil then args['mod-κε2Λ'] = args['κε2Λ'] end
	if args['οπ2Λ'] ~= '' and args['οπ2Λ'] ~= nil then args['mod-οπ2Λ'] = args['οπ2Λ'] end
	if args['γπ2Λ'] ~= '' and args['γπ2Λ'] ~= nil then args['mod-γπ2Λ'] = args['γπ2Λ'] end
	if args['απ2Λ'] ~= '' and args['απ2Λ'] ~= nil then args['mod-απ2Λ'] = args['απ2Λ'] end
	if args['κπ2Λ'] ~= '' and args['κπ2Λ'] ~= nil then args['mod-κπ2Λ'] = args['κπ2Λ'] end

	
-- ========== DEFAULT STEMS auto  -- place this here, ABOVE the stems, otherwise it shows nothing
-- this is for module stems, no need to rewrite default (minus 2 letters from end) 
-- BUT IF the function's stem is not the default stem, all stems have to be written
	if args['mod-οεθ'] == '' or args['mod-οεθ'] == nil then args['mod-οεθ'] = stem["θ"] else args['mod-οεθ'] = args['mod-οεθ'] end
	if args['mod-γεθ'] == '' or args['mod-γεθ'] == nil then args['mod-γεθ'] = stem["θ"] else args['mod-γεθ'] = args['mod-γεθ'] end
	if args['mod-αεθ'] == '' or args['mod-αεθ'] == nil then args['mod-αεθ'] = stem["θ"] else args['mod-αεθ'] = args['mod-αεθ'] end
	if args['mod-κεθ'] == '' or args['mod-κεθ'] == nil then args['mod-κεθ'] = stem["θ"] else args['mod-κεθ'] = args['mod-κεθ'] end
	if args['mod-οπθ'] == '' or args['mod-οπθ'] == nil then args['mod-οπθ'] = stem["θ"] else args['mod-οπθ'] = args['mod-οπθ'] end
	if args['mod-γπθ'] == '' or args['mod-γπθ'] == nil then args['mod-γπθ'] = stem["θ"] else args['mod-γπθ'] = args['mod-γπθ'] end
	if args['mod-απθ'] == '' or args['mod-απθ'] == nil then args['mod-απθ'] = stem["θ"] else args['mod-απθ'] = args['mod-απθ'] end
	if args['mod-κπθ'] == '' or args['mod-κπθ'] == nil then args['mod-κπθ'] = stem["θ"] else args['mod-κπθ'] = args['mod-κπθ'] end
	-- stem for second words
	if args['mod-οε2θ'] == '' or args['mod-οε2θ'] == nil then args['mod-οε2θ'] = stem["θ"] else args['mod-οε2θ'] = args['mod-οε2θ'] end
	if args['mod-γε2θ'] == '' or args['mod-γε2θ'] == nil then args['mod-γε2θ'] = stem["θ"] else args['mod-γε2θ'] = args['mod-γε2θ'] end
	if args['mod-αε2θ'] == '' or args['mod-αε2θ'] == nil then args['mod-αε2θ'] = stem["θ"] else args['mod-αε2θ'] = args['mod-αε2θ'] end
	if args['mod-κε2θ'] == '' or args['mod-κε2θ'] == nil then args['mod-κε2θ'] = stem["θ"] else args['mod-κε2θ'] = args['mod-κε2θ'] end
	if args['mod-οπ2θ'] == '' or args['mod-οπ2θ'] == nil then args['mod-οπ2θ'] = stem["θ"] else args['mod-οπ2θ'] = args['mod-οπ2θ'] end
	if args['mod-γπ2θ'] == '' or args['mod-γπ2θ'] == nil then args['mod-γπ2θ'] = stem["θ"] else args['mod-γπ2θ'] = args['mod-γπ2θ'] end
	if args['mod-απ2θ'] == '' or args['mod-απ2θ'] == nil then args['mod-απ2θ'] = stem["θ"] else args['mod-απ2θ'] = args['mod-απ2θ'] end
	if args['mod-κπ2θ'] == '' or args['mod-κπ2θ'] == nil then args['mod-κπ2θ'] = stem["θ"] else args['mod-κπ2θ'] = args['mod-κπ2θ'] end
-- this is for editor's words. Editor does not have to write the default 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
	-- stem for second words
	if args['οε2θ'] == '' or args['οε2θ'] == nil then args['οε2θ'] = stem["θ"] else args['οε2θ'] = args['οε2θ'] end
	if args['γε2θ'] == '' or args['γε2θ'] == nil then args['γε2θ'] = stem["θ"] else args['γε2θ'] = args['γε2θ'] end
	if args['αε2θ'] == '' or args['αε2θ'] == nil then args['αε2θ'] = stem["θ"] else args['αε2θ'] = args['αε2θ'] end
	if args['κε2θ'] == '' or args['κε2θ'] == nil then args['κε2θ'] = stem["θ"] else args['κε2θ'] = args['κε2θ'] end
	if args['οπ2θ'] == '' or args['οπ2θ'] == nil then args['οπ2θ'] = stem["θ"] else args['οπ2θ'] = args['οπ2θ'] end
	if args['γπ2θ'] == '' or args['γπ2θ'] == nil then args['γπ2θ'] = stem["θ"] else args['γπ2θ'] = args['γπ2θ'] end
	if args['απ2θ'] == '' or args['απ2θ'] == nil then args['απ2θ'] = stem["θ"] else args['απ2θ'] = args['απ2θ'] end
	if args['κπ2θ'] == '' or args['κπ2θ'] == nil then args['κπ2θ'] = stem["θ"] else args['κπ2θ'] = args['κπ2θ'] end


-- ==================== STEMS parameters
-- STEMS
	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 2
	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 parameters	
-- ENDINGS
	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
	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 ''
	
	
-- κείμενο μετά τη λέξη -- text after word @modules & for editors
    args['mod-οεΛκειμ'] = args['mod-οεΛκειμ'] or ''		args['οεΛκειμ'] = args['οεΛκειμ'] or ''
    if args['οεΛκειμ'] ~= '' and args['οεΛκειμ'] ~= nil then args['mod-οεΛκειμ'] = args['οεΛκειμ'] end
    args['mod-γεΛκειμ'] = args['mod-γεΛκειμ'] or ''		args['γεΛκειμ'] = args['γεΛκειμ'] or ''
    if args['γεΛκειμ'] ~= '' and args['γεΛκειμ'] ~= nil then args['mod-γεΛκειμ'] = args['γεΛκειμ'] end
    args['mod-αεΛκειμ'] = args['mod-αεΛκειμ'] or ''		args['αεΛκειμ'] = args['αεΛκειμ'] or ''
    if args['αεΛκειμ'] ~= '' and args['αεΛκειμ'] ~= nil then args['mod-αεΛκειμ'] = args['αεΛκειμ'] end
    args['mod-κεΛκειμ'] = args['mod-κεΛκειμ'] or ''		args['κεΛκειμ'] = args['κεΛκειμ'] or ''
    if args['κεΛκειμ'] ~= '' and args['κεΛκειμ'] ~= nil then args['mod-κεΛκειμ'] = args['κεΛκειμ'] end
    args['mod-οπΛκειμ'] = args['mod-οπΛκειμ'] or ''		args['οπΛκειμ'] = args['οπΛκειμ'] or ''
    if args['οπΛκειμ'] ~= '' and args['οπΛκειμ'] ~= nil then args['mod-οπΛκειμ'] = args['οπΛκειμ'] end
    args['mod-γπΛκειμ'] = args['mod-γπΛκειμ'] or ''		args['γπΛκειμ'] = args['γπΛκειμ'] or ''
    if args['γπΛκειμ'] ~= '' and args['γπΛκειμ'] ~= nil then args['mod-γπΛκειμ'] = args['γπΛκειμ'] end
    args['mod-απΛκειμ'] = args['mod-απΛκειμ'] or ''		args['απΛκειμ'] = args['απΛκειμ'] or ''
    if args['απΛκειμ'] ~= '' and args['απΛκειμ'] ~= nil then args['mod-απΛκειμ'] = args['απΛκειμ'] end
    args['mod-κπΛκειμ'] = args['mod-κπΛκειμ'] or ''		args['κπΛκειμ'] = args['κπΛκειμ'] or ''
    if args['κπΛκειμ'] ~= '' and args['κπΛκειμ'] ~= nil then args['mod-κπΛκειμ'] = args['κπΛκειμ'] end
    args['mod-οδΛκειμ'] = args['mod-οδΛκειμ'] or ''		args['οδΛκειμ'] = args['οδΛκειμ'] or ''
-- text after second word    
    args['mod-οε2Λκειμ'] = args['mod-ο2εΛκειμ'] or ''		args['οε2Λκειμ'] = args['ο2εΛκειμ'] or ''
    if args['οε2Λκειμ'] ~= '' and args['οε2Λκειμ'] ~= nil then args['mod-οε2Λκειμ'] = args['οε2Λκειμ'] end
    args['mod-γε2Λκειμ'] = args['mod-γε2Λκειμ'] or ''		args['γε2Λκειμ'] = args['γε2Λκειμ'] or ''
    if args['γε2Λκειμ'] ~= '' and args['γε2Λκειμ'] ~= nil then args['mod-γε2Λκειμ'] = args['γε2Λκειμ'] end
    args['mod-αε2Λκειμ'] = args['mod-αε2Λκειμ'] or ''		args['αε2Λκειμ'] = args['αε2Λκειμ'] or ''
    if args['αε2Λκειμ'] ~= '' and args['αε2Λκειμ'] ~= nil then args['mod-αε2Λκειμ'] = args['αε2Λκειμ'] end
    args['mod-κε2Λκειμ'] = args['mod-κε2Λκειμ'] or ''		args['κε2Λκειμ'] = args['κε2Λκειμ'] or ''
    if args['κε2Λκειμ'] ~= '' and args['κε2Λκειμ'] ~= nil then args['mod-κε2Λκειμ'] = args['κε2Λκειμ'] end
    args['mod-οπ2Λκειμ'] = args['mod-οπ2Λκειμ'] or ''		args['οπ2Λκειμ'] = args['οπ2Λκειμ'] or ''
    if args['οπ2Λκειμ'] ~= '' and args['οπ2Λκειμ'] ~= nil then args['mod-οπ2Λκειμ'] = args['οπ2Λκειμ'] end
    args['mod-γπ2Λκειμ'] = args['mod-γπ2Λκειμ'] or ''		args['γπ2Λκειμ'] = args['γπ2Λκειμ'] or ''
    if args['γπ2Λκειμ'] ~= '' and args['γπ2Λκειμ'] ~= nil then args['mod-γπ2Λκειμ'] = args['γπ2Λκειμ'] end
    args['mod-απ2Λκειμ'] = args['mod-απ2Λκειμ'] or ''		args['απ2Λκειμ'] = args['απ2Λκειμ'] or ''
    if args['απ2Λκειμ'] ~= '' and args['απ2Λκειμ'] ~= nil then args['mod-απ2Λκειμ'] = args['απ2Λκειμ'] end
    args['mod-κπ2Λκειμ'] = args['mod-κπ2Λκειμ'] or ''		args['κπ2Λκειμ'] = args['κπ2Λκειμ'] or ''
    if args['κπ2Λκειμ'] ~= '' and args['κπ2Λκειμ'] ~= nil then args['mod-κπ2Λκειμ'] = args['κπ2Λκειμ'] end

-- κείμενο πριν τη λέξη - text before word @modules & for editors  -- check [[Παράρτημα:Ουσιαστικά (αρχαία ελληνικά)/1#μνά]]
    args['mod-οεΛκειμ1'] = args['mod-οεΛκειμ1'] or ''		args['οεΛκειμ1'] = args['οεΛκειμ1'] or ''
    if args['οεΛκειμ1'] ~= '' and args['οεΛκειμ1'] ~= nil then args['mod-οεΛκειμ1'] = args['οεΛκειμ1'] end
    args['mod-γεΛκειμ1'] = args['mod-γεΛκειμ1'] or ''		args['γεΛκειμ1'] = args['γεΛκειμ1'] or ''
    if args['γεΛκειμ1'] ~= '' and args['γεΛκειμ1'] ~= nil then args['mod-γεΛκειμ1'] = args['γεΛκειμ1'] end
    args['mod-αεΛκειμ1'] = args['mod-αεΛκειμ1'] or ''		args['αεΛκειμ1'] = args['αεΛκειμ1'] or ''
    if args['αεΛκειμ1'] ~= '' and args['αεΛκειμ1'] ~= nil then args['mod-αεΛκειμ1'] = args['αεΛκειμ1'] end
    args['mod-κεΛκειμ1'] = args['mod-κεΛκειμ1'] or ''		args['κεΛκειμ1'] = args['κεΛκειμ1'] or ''
    if args['κεΛκειμ1'] ~= '' and args['κεΛκειμ1'] ~= nil then args['mod-κεΛκειμ1'] = args['κεΛκειμ1'] end
    args['mod-οπΛκειμ1'] = args['mod-οπΛκειμ1'] or ''		args['οπΛκειμ1'] = args['οπΛκειμ1'] or ''
    if args['οπΛκειμ1'] ~= '' and args['οπΛκειμ1'] ~= nil then args['mod-οπΛκειμ1'] = args['οπΛκειμ1'] end
    args['mod-γπΛκειμ1'] = args['mod-γπΛκειμ1'] or ''		args['γπΛκειμ1'] = args['γπΛκειμ1'] or ''
    if args['γπΛκειμ1'] ~= '' and args['γπΛκειμ1'] ~= nil then args['mod-γπΛκειμ1'] = args['γπΛκειμ1'] end
    args['mod-απΛκειμ1'] = args['mod-απΛκειμ1'] or ''		args['απΛκειμ1'] = args['απΛκειμ1'] or ''
    if args['απΛκειμ1'] ~= '' and args['απΛκειμ1'] ~= nil then args['mod-απΛκειμ1'] = args['απΛκειμ1'] end
    args['mod-κπΛκειμ1'] = args['mod-κπΛκειμ1'] or ''		args['κπΛκειμ1'] = args['κπΛκειμ1'] or ''
    if args['κπΛκειμ1'] ~= '' and args['κπΛκειμ1'] ~= nil then args['mod-κπΛκειμ1'] = args['κπΛκειμ1'] end
-- text before second word    
    args['mod-οε2Λκειμ1'] = args['mod-ο2εΛκειμ1'] or ''		args['οε2Λκειμ1'] = args['ο2εΛκειμ1'] or ''
    if args['οε2Λκειμ1'] ~= '' and args['οε2Λκειμ1'] ~= nil then args['mod-οε2Λκειμ1'] = args['οε2Λκειμ1'] end
    args['mod-γε2Λκειμ1'] = args['mod-γε2Λκειμ1'] or ''		args['γε2Λκειμ1'] = args['γε2Λκειμ1'] or ''
    if args['γε2Λκειμ1'] ~= '' and args['γε2Λκειμ1'] ~= nil then args['mod-γε2Λκειμ1'] = args['γε2Λκειμ1'] end
    args['mod-αε2Λκειμ1'] = args['mod-αε2Λκειμ1'] or ''		args['αε2Λκειμ1'] = args['αε2Λκειμ1'] or ''
    if args['αε2Λκειμ1'] ~= '' and args['αε2Λκειμ1'] ~= nil then args['mod-αε2Λκειμ1'] = args['αε2Λκειμ1'] end
    args['mod-κε2Λκειμ1'] = args['mod-κε2Λκειμ1'] or ''		args['κε2Λκειμ1'] = args['κε2Λκειμ1'] or ''
    if args['κε2Λκειμ1'] ~= '' and args['κε2Λκειμ1'] ~= nil then args['mod-κε2Λκειμ1'] = args['κε2Λκειμ1'] end
    args['mod-οπ2Λκειμ1'] = args['mod-οπ2Λκειμ1'] or ''		args['οπ2Λκειμ1'] = args['οπ2Λκειμ1'] or ''
    if args['οπ2Λκειμ1'] ~= '' and args['οπ2Λκειμ1'] ~= nil then args['mod-οπ2Λκειμ1'] = args['οπ2Λκειμ1'] end
    args['mod-γπ2Λκειμ1'] = args['mod-γπ2Λκειμ1'] or ''		args['γπ2Λκειμ1'] = args['γπ2Λκειμ1'] or ''
    if args['γπ2Λκειμ1'] ~= '' and args['γπ2Λκειμ1'] ~= nil then args['mod-γπ2Λκειμ1'] = args['γπ2Λκειμ1'] end
    args['mod-απ2Λκειμ1'] = args['mod-απ2Λκειμ1'] or ''		args['απ2Λκειμ1'] = args['απ2Λκειμ1'] or ''
    if args['απ2Λκειμ1'] ~= '' and args['απ2Λκειμ1'] ~= nil then args['mod-απ2Λκειμ1'] = args['απ2Λκειμ1'] end
    args['mod-κπ2Λκειμ1'] = args['mod-κπ2Λκειμ1'] or ''		args['κπ2Λκειμ1'] = args['κπ2Λκειμ1'] or ''
    if args['κπ2Λκειμ1'] ~= '' and args['κπ2Λκειμ1'] ~= nil then args['mod-κπ2Λκειμ1'] = args['κπ2Λκειμ1'] end

-- make forms / χτίσιμο τύπων ---------------------------------
-- and args Eίναι απαραίτητο, αλλιώς δίνει error nil
-- If subfunctions have a defintion for lemma and stem of their own
-- we need to write there the stems for all cases.


-- ονομαστική ενικού -- nominative singular
-- @modules
	-- default stem
	if args['mod-οεθ'] == '' or args['mod-οεθ'] == nil then args['mod-οεθ'] = stem["θ"] else args['mod-οεθ'] = args['mod-οεθ'] end
	if args['mod-οε2θ'] == '' or args['mod-οε2θ'] == nil then args['mod-οε2θ'] = stem["θ"] else args['mod-οε2θ'] = args['mod-οε2θ'] end
	-- first word
	if args['mod-οε'] ~= '-' and args['mod-οε'] ~= '0' and args['mod-οε'] ~= '' and args['mod-οε'] ~= nil then
		args['mod-οεΛ'] = args['mod-οεΛκειμ1'] .. args['κοινό1']
		.. create_link((args['mod-οεθ'] .. args['mod-οε']), (stem_color(args['mod-οεθ']) .. ending_color(args['mod-οε']))) .. args['mod-οεΛκειμ']
	-- zero ending
	elseif args['mod-οε'] == '0' then
		args['mod-οεΛ'] = args['mod-οεΛκειμ1'] .. args['κοινό1'] .. create_link((args['mod-οεθ']), (stem_color(args['mod-οεθ']))) .. args['mod-οεΛκειμ']
   	elseif args['mod-οε'] == '-' then
   		args['mod-οεΛ'] = args['mod-οεΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-οεΛκειμ']
   	end
	-- second word at new line
	if args['mod-οε2'] ~= '-' and args['mod-οε2'] ~= '0' and args['mod-οε2'] ~= '' and args['mod-οε2'] ~= nil then
		if args['mod-οε2θ'] == '' or args['mod-οε2θ'] == nil then args['mod-οε2θ'] = args['mod-οεθ'] end
		args['mod-οε2Λ'] = br .. args['mod-οε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-οε2θ'] .. args['mod-οε2']), (stem_color(args['mod-οε2θ']) .. ending_color(args['mod-οε2']))) .. args['mod-οε2Λκειμ']
	-- zero ending -- check ἔαρ
	elseif args['mod-οε2'] == "0" then
		args['mod-οε2Λ'] = br .. args['mod-οε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-οε2θ']), (stem_color(args['mod-οε2θ']))) .. args['mod-οε2Λκειμ']
   	elseif args['mod-οε2'] == '-' then
   		args['mod-οε2Λ'] = br .. args['mod-οε2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-οε2Λκειμ']
   	end
-- for editors
	-- default stem
	if args['οεθ'] == '' or args['οεθ'] == nil then args['οεθ'] = stem["θ"] else args['οεθ'] = args['οεθ'] end
	if args['οε2θ'] == '' or args['οε2θ'] == nil then args['οε2θ'] = stem["θ"] else args['οε2θ'] = args['οε2θ'] end
	-- first word
	if args['οε'] ~= '-' and args['οε'] ~= '0' and args['οε'] ~= '' and args['οε'] ~= nil then
		args['οεΛ'] = args['οεΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['οεθ'] .. args['οε']), (stem_color(args['οεθ']) .. ending_color(args['οε']))) .. args['οεΛκειμ']
	-- zero ending
	elseif args['οε'] == '0' then
		args['οεΛ'] = args['οεΛκειμ1'] .. args['κοινό1'] .. create_link((args['οεθ']), (stem_color(args['οεθ']))) .. args['οεΛκειμ']
   	elseif args['οε'] == '-' then
   		args['οεΛ'] = args['οεΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οεΛκειμ']
   	end
	-- second word at new line
	if args['οε2'] ~= '-' and args['οε2'] ~= '0' and args['οε2'] ~= '' and args['οε2'] ~= nil then
		if args['οε2θ'] == '' or args['οε2θ'] == nil then args['οε2θ'] = args['οεθ'] end
		args['οε2Λ'] = br .. args['οε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['οε2θ'] .. args['οε2']), (stem_color(args['οε2θ']) .. ending_color(args['οε2']))) .. args['οε2Λκειμ']
	-- zero ending
	elseif args['οε2'] == '0' then
		args['οε2Λ'] = br .. args['οε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['οε2θ']), (stem_color(args['οε2θ']))) .. args['οε2Λκειμ']
   	elseif args['οε2'] == '-' then
   		args['οε2Λ'] = br .. args['οε2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οε2Λκειμ']
   	end
-- option
   	if  args['οεΛ'] ~= '' and args['οεΛ'] ~= nil then
   		args['οεΛ'] =  args['οεΛ'] .. args['οε2Λ']  
   	else
   		if args['οε2'] ~= '' and args['οε2'] ~= nil then
   			args['οεΛ'] = args['mod-οεΛ'] .. args['οε2Λ']
   		else
			args['οεΛ'] = args['mod-οεΛ'] .. args['mod-οε2Λ'] 
		end
	end  


-- γενική ενικού -- genitive singular
-- @modules
	-- default stem
	if args['mod-γεθ'] == '' or args['mod-γεθ'] == nil then args['mod-γεθ'] = stem["θ"] else args['mod-γεθ'] = args['mod-γεθ'] end
	if args['mod-γε2θ'] == '' or args['mod-γε2θ'] == nil then args['mod-γε2θ'] = stem["θ"] else args['mod-γε2θ'] = args['mod-γε2θ'] end
	-- first word
	if args['mod-γε'] ~= '-' and args['mod-γε'] ~= '0' and args['mod-γε'] ~= '' and args['mod-γε'] ~= nil then
		args['mod-γεΛ'] = args['mod-γεΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-γεθ'] .. args['mod-γε']), (stem_color(args['mod-γεθ']) .. ending_color(args['mod-γε']))) .. args['mod-γεΛκειμ']
	-- zero ending
	elseif args['mod-γε'] == '0' then
		args['mod-γεΛ'] = args['mod-γεΛκειμ1'] .. args['κοινό1'] .. create_link((args['mod-γεθ']), (stem_color(args['mod-γεθ']))) .. args['mod-γεΛκειμ']
   	elseif args['mod-γε'] == '-' then
   		args['mod-γεΛ'] = args['mod-γεΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-γεΛκειμ']
   	end
	-- second word at new line
	if args['mod-γε2'] ~= '-' and args['mod-γε2'] ~= '0' and args['mod-γε2'] ~= '' and args['mod-γε2'] ~= nil then
		if args['mod-γε2θ'] == '' or args['mod-γε2θ'] == nil then args['mod-γε2θ'] = args['mod-γεθ'] end
		args['mod-γε2Λ'] = br .. args['mod-γε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-γε2θ'] .. args['mod-γε2']), (stem_color(args['mod-γε2θ']) .. ending_color(args['mod-γε2']))) .. args['mod-γε2Λκειμ']
	-- zero ending 
	elseif args['mod-γε2'] == "0" then
		args['mod-γε2Λ'] = br .. args['mod-γε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-γε2θ']), (stem_color(args['mod-γε2θ']))) .. args['mod-γε2Λκειμ']
   	elseif args['mod-γε2'] == '-' then
   		args['mod-γε2Λ'] = br .. args['mod-γε2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-γε2Λκειμ']
   	end
-- for editors
	-- default stem
	if args['γεθ'] == '' or args['γεθ'] == nil then args['γεθ'] = stem["θ"] else args['γεθ'] = args['γεθ'] end
	if args['γε2θ'] == '' or args['γε2θ'] == nil then args['γε2θ'] = stem["θ"] else args['γε2θ'] = args['γε2θ'] end
	-- first word
	if args['γε'] ~= '-' and args['γε'] ~= '0' and args['γε'] ~= '' and args['γε'] ~= nil then
		args['γεΛ'] = args['γεΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['γεθ'] .. args['γε']), (stem_color(args['γεθ']) .. ending_color(args['γε']))) .. args['γεΛκειμ']
	-- zero ending
	elseif args['γε'] == '0' then
		args['γεΛ'] = args['γεΛκειμ1'] .. args['κοινό1'] .. create_link((args['γεθ']), (stem_color(args['γεθ']))) .. args['γεΛκειμ']
   	elseif args['γε'] == '-' then
   		args['γεΛ'] = args['γεΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γεΛκειμ']
   	end
	-- second word at new line
	if args['γε2'] ~= '-' and args['γε2'] ~= '0' and args['γε2'] ~= '' and args['γε2'] ~= nil then
		if args['γε2θ'] == '' or args['γε2θ'] == nil then args['γε2θ'] = args['γεθ'] end
		args['γε2Λ'] = br .. args['γε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['γε2θ'] .. args['γε2']), (stem_color(args['γε2θ']) .. ending_color(args['γε2']))) .. args['γε2Λκειμ']
	-- zero ending
	elseif args['γε2'] == '0' then
		args['γε2Λ'] = br .. args['γε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['γε2θ']), (stem_color(args['γε2θ']))) .. args['γε2Λκειμ']
   	elseif args['γε2'] == '-' then
   		args['γε2Λ'] = br .. args['γε2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γε2Λκειμ']
   	end
-- option
   	if  args['γεΛ'] ~= '' and args['γεΛ'] ~= nil then
   		args['γεΛ'] =  args['γεΛ'] .. args['γε2Λ']  
   	else
   		if args['γε2'] ~= '' and args['γε2'] ~= nil then
   			args['γεΛ'] = args['mod-γεΛ'] .. args['γε2Λ']
   		else
			args['γεΛ'] = args['mod-γεΛ'] .. args['mod-γε2Λ'] 
		end
	end


-- αιτιατική ενικού -- accusative singular
-- @modules
	-- default stem
	if args['mod-αεθ'] == '' or args['mod-αεθ'] == nil then args['mod-αεθ'] = stem["θ"] else args['mod-αεθ'] = args['mod-αεθ'] end
	if args['mod-αε2θ'] == '' or args['mod-αε2θ'] == nil then args['mod-αε2θ'] = stem["θ"] else args['mod-αε2θ'] = args['mod-αε2θ'] end
	-- first word
	if args['mod-αε'] ~= '-' and args['mod-αε'] ~= '0' and args['mod-αε'] ~= '' and args['mod-αε'] ~= nil then
		args['mod-αεΛ'] = args['mod-αεΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-αεθ'] .. args['mod-αε']), (stem_color(args['mod-αεθ']) .. ending_color(args['mod-αε']))) .. args['mod-αεΛκειμ']
	-- zero ending
	elseif args['mod-αε'] == '0' then
		args['mod-αεΛ'] = args['mod-αεΛκειμ1'] .. args['κοινό1'] .. create_link((args['mod-αεθ']), (stem_color(args['mod-αεθ']))) .. args['mod-αεΛκειμ']
   	elseif args['mod-αε'] == '-' then
   		args['mod-αεΛ'] = args['mod-αεΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-αεΛκειμ']
   	end
	-- second word at new line
	if args['mod-αε2'] ~= '-' and args['mod-αε2'] ~= '0' and args['mod-αε2'] ~= '' and args['mod-αε2'] ~= nil then
		if args['mod-αε2θ'] == '' or args['mod-αε2θ'] == nil then args['mod-αε2θ'] = args['mod-αεθ'] end
		args['mod-αε2Λ'] = br .. args['mod-αε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-αε2θ'] .. args['mod-αε2']), (stem_color(args['mod-αε2θ']) .. ending_color(args['mod-αε2']))) .. args['mod-αε2Λκειμ']
	-- zero ending 
	elseif args['mod-αε2'] == "0" then
		args['mod-αε2Λ'] = br .. args['mod-αε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-αε2θ']), (stem_color(args['mod-αε2θ']))) .. args['mod-αε2Λκειμ']
   	elseif args['mod-αε2'] == '-' then
   		args['mod-αε2Λ'] = br .. args['mod-αε2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-αε2Λκειμ']
   	end
-- for editors
	-- default stem
	if args['αεθ'] == '' or args['αεθ'] == nil then args['αεθ'] = stem["θ"] else args['αεθ'] = args['αεθ'] end
	if args['αε2θ'] == '' or args['αε2θ'] == nil then args['αε2θ'] = stem["θ"] else args['αε2θ'] = args['αε2θ'] end
	-- first word
	if args['αε'] ~= '-' and args['αε'] ~= '0' and args['αε'] ~= '' and args['αε'] ~= nil then
		args['αεΛ'] = args['αεΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['αεθ'] .. args['αε']), (stem_color(args['αεθ']) .. ending_color(args['αε']))) .. args['αεΛκειμ']
	-- zero ending
	elseif args['αε'] == '0' then
		args['αεΛ'] = args['αεΛκειμ1'] .. args['κοινό1'] .. create_link((args['αεθ']), (stem_color(args['αεθ']))) .. args['αεΛκειμ']
   	elseif args['αε'] == '-' then
   		args['αεΛ'] = args['αεΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αεΛκειμ']
   	end
	-- second word at new line
	if args['αε2'] ~= '-' and args['αε2'] ~= '0' and args['αε2'] ~= '' and args['αε2'] ~= nil then
		if args['αε2θ'] == '' or args['αε2θ'] == nil then args['αε2θ'] = args['αεθ'] end
		args['αε2Λ'] = br .. args['αε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['αε2θ'] .. args['αε2']), (stem_color(args['αε2θ']) .. ending_color(args['αε2']))) .. args['αε2Λκειμ']
	-- zero ending
	elseif args['αε2'] == '0' then
		args['αε2Λ'] = br .. args['αε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['αε2θ']), (stem_color(args['αε2θ']))) .. args['αε2Λκειμ']
   	elseif args['αε2'] == '-' then
   		args['αε2Λ'] = br .. args['αε2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['αε2Λκειμ']
   	end
-- option
   	if  args['αεΛ'] ~= '' and args['αεΛ'] ~= nil then
   		args['αεΛ'] =  args['αεΛ'] .. args['αε2Λ']  
   	else
   		if args['αε2'] ~= '' and args['αε2'] ~= nil then
   			args['αεΛ'] = args['mod-αεΛ'] .. args['αε2Λ']
   		else
			args['αεΛ'] = args['mod-αεΛ'] .. args['mod-αε2Λ']
		end
	end


-- κλητική ενικού -- vocative singular
-- @modules
	-- default stem
	if args['mod-κεθ'] == '' or args['mod-κεθ'] == nil then args['mod-κεθ'] = stem["θ"] else args['mod-κεθ'] = args['mod-κεθ'] end
	if args['mod-κε2θ'] == '' or args['mod-κε2θ'] == nil then args['mod-κε2θ'] = stem["θ"] else args['mod-κε2θ'] = args['mod-κε2θ'] end
	-- first word
	if args['mod-κε'] ~= '-' and args['mod-κε'] ~= '0' and args['mod-κε'] ~= '' and args['mod-κε'] ~= nil then
		args['mod-κεΛ'] = args['mod-κεΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-κεθ'] .. args['mod-κε']), (stem_color(args['mod-κεθ']) .. ending_color(args['mod-κε']))) .. args['mod-κεΛκειμ']
	-- zero ending
	elseif args['mod-κε'] == '0' then
		args['mod-κεΛ'] = args['mod-κεΛκειμ1'] .. args['κοινό1'] .. create_link((args['mod-κεθ']), (stem_color(args['mod-κεθ']))) .. args['mod-κεΛκειμ']
   	elseif args['mod-κε'] == '-' then
   		args['mod-κεΛ'] = args['mod-κεΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-κεΛκειμ']
   	end
	-- second word at new line
	if args['mod-κε2'] ~= '-' and args['mod-κε2'] ~= '0' and args['mod-κε2'] ~= '' and args['mod-κε2'] ~= nil then
		if args['mod-κε2θ'] == '' or args['mod-κε2θ'] == nil then args['mod-κε2θ'] = args['mod-κεθ'] end
		args['mod-κε2Λ'] = br .. args['mod-κε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-κε2θ'] .. args['mod-κε2']), (stem_color(args['mod-κε2θ']) .. ending_color(args['mod-κε2']))) .. args['mod-κε2Λκειμ']
	-- zero ending -- check [[Οἰδίπους]]
	elseif args['mod-κε2'] == "0" then
		args['mod-κε2Λ'] = br .. args['mod-κε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-κε2θ']), (stem_color(args['mod-κε2θ']))) .. args['mod-κε2Λκειμ']
   	elseif args['mod-κε2'] == '-' then
   		args['mod-κε2Λ'] = br .. args['mod-κε2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-κε2Λκειμ']
   	end
-- for editors
	-- default stem
	if args['κεθ'] == '' or args['κεθ'] == nil then args['κεθ'] = stem["θ"] else args['κεθ'] = args['κεθ'] end
	if args['κε2θ'] == '' or args['κε2θ'] == nil then args['κε2θ'] = stem["θ"] else args['κε2θ'] = args['κε2θ'] end
	-- first word
	if args['κε'] ~= '-' and args['κε'] ~= '0' and args['κε'] ~= '' and args['κε'] ~= nil then
		args['κεΛ'] = args['κεΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['κεθ'] .. args['κε']), (stem_color(args['κεθ']) .. ending_color(args['κε']))) .. args['κεΛκειμ']
	-- zero ending
	elseif args['κε'] == '0' then
		args['κεΛ'] = args['κεΛκειμ1'] .. args['κοινό1'] .. create_link((args['κεθ']), (stem_color(args['κεθ']))) .. args['κεΛκειμ']
   	elseif args['κε'] == '-' then
   		args['κεΛ'] = args['κεΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κεΛκειμ']
   	end
	-- second word at new line
	if args['κε2'] ~= '-' and args['κε2'] ~= '0' and args['κε2'] ~= '' and args['κε2'] ~= nil then
		if args['κε2θ'] == '' or args['κε2θ'] == nil then args['κε2θ'] = args['κεθ'] end
		args['κε2Λ'] = br .. args['κε2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['κε2θ'] .. args['κε2']), (stem_color(args['κε2θ']) .. ending_color(args['κε2']))) .. args['κε2Λκειμ']
	-- zero ending
	elseif args['κε2'] == '0' then
		args['κε2Λ'] = br .. args['κε2Λκειμ1'] .. args['κοινό1'] .. create_link((args['κε2θ']), (stem_color(args['κε2θ']))) .. args['κε2Λκειμ']
   	elseif args['κε2'] == '-' then
   		args['κε2Λ'] = br .. args['κε2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κε2Λκειμ']
   	end
-- option
   	if  args['κεΛ'] ~= '' and args['κεΛ'] ~= nil then
   		args['κεΛ'] =  args['κεΛ'] .. args['κε2Λ']  
   	else
   		if args['κε2'] ~= '' and args['κε2'] ~= nil then
   			args['κεΛ'] = args['mod-κεΛ'] .. args['κε2Λ']
   		else
			args['κεΛ'] = args['mod-κεΛ'] .. args['mod-κε2Λ']
		end
	end


-- ΟΝΟΜΑΣΤΙΚΗ ΠΛΗΘΥΝΤΙΚΟΥ -- MOMINATIVE PLURAL
-- @modules
	-- default stem
	if args['mod-οπθ'] == '' or args['mod-οπθ'] == nil then args['mod-οπθ'] = stem["θ"] else args['mod-οπθ'] = args['mod-οπθ'] end
	if args['mod-οπ2θ'] == '' or args['mod-οπ2θ'] == nil then args['mod-οπ2θ'] = stem["θ"] else args['mod-οπ2θ'] = args['mod-οπ2θ'] end
	-- first word
	if args['mod-οπ'] ~= '-' and args['mod-οπ'] ~= '0' and args['mod-οπ'] ~= '' and args['mod-οπ'] ~= nil then
		args['mod-οπΛ'] = args['mod-οπΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-οπθ'] .. args['mod-οπ']), (stem_color(args['mod-οπθ']) .. ending_color(args['mod-οπ']))) .. args['mod-οπΛκειμ']
	-- zero ending
	elseif args['mod-οπ'] == '0' then
		args['mod-οπΛ'] = args['mod-οπΛκειμ1'] .. args['κοινό1'] .. create_link((args['mod-οπθ']), (stem_color(args['mod-οπθ']))) .. args['mod-οπΛκειμ']
   	elseif args['mod-οπ'] == '-' then
   		args['mod-οπΛ'] = args['mod-οπΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-οπΛκειμ']
   	end
	-- second word at new line
	if args['mod-οπ2'] ~= '-' and args['mod-οπ2'] ~= '0' and args['mod-οπ2'] ~= '' and args['mod-οπ2'] ~= nil then
		if args['mod-οπ2θ'] == '' or args['mod-οπ2θ'] == nil then args['mod-οπ2θ'] = args['mod-οπθ'] end
		args['mod-οπ2Λ'] = br .. args['mod-οπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-οπ2θ'] .. args['mod-οπ2']), (stem_color(args['mod-οπ2θ']) .. ending_color(args['mod-οπ2']))) .. args['mod-οπ2Λκειμ']
	-- zero ending 
	elseif args['mod-οπ2'] == "0" then
		args['mod-οπ2Λ'] = br .. args['mod-οπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-οπ2θ']), (stem_color(args['mod-οπ2θ']))) .. args['mod-οπ2Λκειμ']
   	elseif args['mod-οπ2'] == '-' then
   		args['mod-οπ2Λ'] = br .. args['mod-οπ2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-οπ2Λκειμ']
   	end
-- for editors
	-- default stem
	if args['οπθ'] == '' or args['οπθ'] == nil then args['οπθ'] = stem["θ"] else args['οπθ'] = args['οπθ'] end
	if args['οπ2θ'] == '' or args['οπ2θ'] == nil then args['οπ2θ'] = stem["θ"] else args['οπ2θ'] = args['οπ2θ'] end
	-- first word
	if args['οπ'] ~= '-' and args['οπ'] ~= '0' and args['οπ'] ~= '' and args['οπ'] ~= nil then
		args['οπΛ'] = args['οπΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['οπθ'] .. args['οπ']), (stem_color(args['οπθ']) .. ending_color(args['οπ']))) .. args['οπΛκειμ']
	-- zero ending
	elseif args['οπ'] == '0' then
		args['οπΛ'] = args['οπΛκειμ1'] .. args['κοινό1'] .. create_link((args['οπθ']), (stem_color(args['οπθ']))) .. args['οπΛκειμ']
   	elseif args['οπ'] == '-' then
   		args['οπΛ'] = args['οπΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπΛκειμ']
   	end
	-- second word at new line
	if args['οπ2'] ~= '-' and args['οπ2'] ~= '0' and args['οπ2'] ~= '' and args['οπ2'] ~= nil then
		if args['οπ2θ'] == '' or args['οπ2θ'] == nil then args['οπ2θ'] = args['οπθ'] end
		args['οπ2Λ'] = br .. args['οπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['οπ2θ'] .. args['οπ2']), (stem_color(args['οπ2θ']) .. ending_color(args['οπ2']))) .. args['οπ2Λκειμ']
	-- zero ending
	elseif args['οπ2'] == '0' then
		args['οπ2Λ'] = br .. args['οπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['οπ2θ']), (stem_color(args['οπ2θ']))) .. args['οπ2Λκειμ']
   	elseif args['οπ2'] == '-' then
   		args['οπ2Λ'] = br .. args['οπ2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['οπ2Λκειμ']
   	end
-- option
   	if  args['οπΛ'] ~= '' and args['οπΛ'] ~= nil then
   		args['οπΛ'] =  args['οπΛ'] .. args['οπ2Λ']  
   	else
   		if args['οπ2'] ~= '' and args['οπ2'] ~= nil then
   			args['οπΛ'] = args['mod-οπΛ'] .. args['οπ2Λ']
   		else
			args['οπΛ'] = args['mod-οπΛ'] .. args['mod-οπ2Λ']
		end	
	end

-- ΓΕΝΙΚΗ ΠΛΗΘΥΝΤΙΚΟΥ -- GENITIVE PLURAL -- plus parenthesis for dysfunctionals
-- @modules
	-- default stem
	if args['mod-γπθ'] == '' or args['mod-γπθ'] == nil then args['mod-γπθ'] = stem["θ"] else args['mod-γπθ'] = args['mod-γπθ'] end
	if args['mod-γπ2θ'] == '' or args['mod-γπ2θ'] == nil then args['mod-γπ2θ'] = stem["θ"] else args['mod-γπ2θ'] = args['mod-γπ2θ'] end
	-- first word
	if args['mod-γπ'] ~= '-' and args['mod-γπ'] ~= '0' and args['mod-γπ'] ~= '' and args['mod-γπ'] ~= nil then
		args['mod-γπΛ'] = args['mod-γπΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-γπθ'] .. args['mod-γπ']), (stem_color(args['mod-γπθ']) .. ending_color(args['mod-γπ']))) .. args['mod-γπΛκειμ']
	-- zero ending
	elseif args['mod-γπ'] == '0' then
		args['mod-γπΛ'] = args['mod-γπΛκειμ1'] .. args['κοινό1'] .. create_link((args['mod-γπθ']), (stem_color(args['mod-γπθ']))) .. args['mod-γπΛκειμ']
   	elseif args['mod-γπ'] == '-' then
   		args['mod-γπΛ'] = args['mod-γπΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-γπΛκειμ']
   	end
	if args['mod-γπ0'] ~= '' and args['mod-γπ0'] ~= nil then
		args['mod-γπΛ'] = args['mod-γπΛκειμ1'] .. '(' .. args['κοινό1'] 
		.. create_link((args['mod-γπθ'] .. args['mod-γπ0']), (stem_color(args['mod-γπθ']) .. ending_color(args['mod-γπ0']))) .. args['κοινό'] .. ')' .. args['mod-γπΛκειμ']
	end
	-- second word at new line
	if args['mod-γπ2'] ~= '-' and args['mod-γπ2'] ~= '0' and args['mod-γπ2'] ~= '' and args['mod-γπ2'] ~= nil then
		if args['mod-γπ2θ'] == '' or args['mod-γπ2θ'] == nil then args['mod-γπ2θ'] = args['mod-γπθ'] end
		args['mod-γπ2Λ'] = br .. args['mod-γπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-γπ2θ'] .. args['mod-γπ2']), (stem_color(args['mod-γπ2θ']) .. ending_color(args['mod-γπ2']))) .. args['mod-γπ2Λκειμ']
	-- zero ending 
	elseif args['mod-γπ2'] == "0" then
		args['mod-γπ2Λ'] = br .. args['mod-γπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-γπ2θ']), (stem_color(args['mod-γπ2θ']))) .. args['mod-γπ2Λκειμ']
   	elseif args['mod-γπ2'] == '-' then
   		args['mod-γπ2Λ'] = br .. args['mod-γπ2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-γπ2Λκειμ']
   	end
	if args['mod-γπ20'] ~= '' and args['mod-γπ20'] ~= nil then
		args['mod-γπ2Λ'] = args['mod-γπ2Λκειμ1'] .. '(' .. args['κοινό1'] 
		.. create_link((args['mod-γπ2θ'] .. args['mod-γπ20']), (stem_color(args['mod-γπ2θ']) .. ending_color(args['mod-γπ20']))) .. args['κοινό'] .. ')' .. args['mod-γπ2Λκειμ']
	end
-- for editors
	-- default stem
	if args['γπθ'] == '' or args['γπθ'] == nil then args['γπθ'] = stem["θ"] else args['γπθ'] = args['γπθ'] end
	if args['γπ2θ'] == '' or args['γπ2θ'] == nil then args['γπ2θ'] = stem["θ"] else args['γπ2θ'] = args['γπ2θ'] end
	-- first word
	if args['γπ'] ~= '-' and args['γπ'] ~= '0' and args['γπ'] ~= '' and args['γπ'] ~= nil then
		args['γπΛ'] = args['γπΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['γπθ'] .. args['γπ']), (stem_color(args['γπθ']) .. ending_color(args['γπ']))) .. args['γπΛκειμ']
	-- zero ending
	elseif args['γπ'] == '0' then
		args['γπΛ'] = args['γπΛκειμ1'] .. args['κοινό1'] .. create_link((args['γπθ']), (stem_color(args['γπθ']))) .. args['γπΛκειμ']
   	elseif args['γπ'] == '-' then
   		args['γπΛ'] = args['γπΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπΛκειμ']
   	end
	if args['γπ0'] ~= '' and args['γπ0'] ~= nil then
		args['γπΛ'] = args['γπΛκειμ1'] .. '(' .. args['κοινό1'] 
		.. create_link((args['γπθ'] .. args['γπ0']), (stem_color(args['γπθ']) .. ending_color(args['γπ0']))) .. args['κοινό'] .. ')' .. args['γπΛκειμ']
	end
	-- second word at new line
	if args['γπ2'] ~= '-' and args['γπ2'] ~= '0' and args['γπ2'] ~= '' and args['γπ2'] ~= nil then
		if args['γπ2θ'] == '' or args['γπ2θ'] == nil then args['γπ2θ'] = args['γπθ'] end
		args['γπ2Λ'] = br .. args['γπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['γπ2θ'] .. args['γπ2']), (stem_color(args['γπ2θ']) .. ending_color(args['γπ2']))) .. args['γπ2Λκειμ']
	-- zero ending
	elseif args['γπ2'] == '0' then
		args['γπ2Λ'] = br .. args['γπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['γπ2θ']), (stem_color(args['γπ2θ']))) .. args['γπ2Λκειμ']
   	elseif args['γπ2'] == '-' then
   		args['γπ2Λ'] = br .. args['γπ2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['γπ2Λκειμ']
   	end
	if args['γπ20'] ~= '' and args['γπ20'] ~= nil then
		args['γπ2Λ'] = args['γπ2Λκειμ1'] .. '(' .. args['κοινό1'] 
		.. create_link((args['γπ2θ'] .. args['γπ20']), (stem_color(args['γπ2θ']) .. ending_color(args['γπ20']))) .. args['κοινό'] .. ')' .. args['γπ2Λκειμ']
	end
-- option
   	if  args['γπΛ'] ~= '' and args['γπΛ'] ~= nil then
   		args['γπΛ'] =  args['γπΛ'] .. args['γπ2Λ']  
   	else
   		if args['γπ2'] ~= '' and args['γπ2'] ~= nil then
   			args['γπΛ'] = args['mod-γπΛ'] .. args['γπ2Λ']
   		else
			args['γπΛ'] = args['mod-γπΛ'] .. args['mod-γπ2Λ']
		end
	end


-- ΑΙΤΙΑΤΙΚΗ ΠΛΗΘΥΝΤΙΚΟΥ -- ACCUSATIVE PLURAL
-- @modules
	-- default stem
	if args['mod-απθ'] == '' or args['mod-απθ'] == nil then args['mod-απθ'] = stem["θ"] else args['mod-απθ'] = args['mod-απθ'] end
	if args['mod-απ2θ'] == '' or args['mod-απ2θ'] == nil then args['mod-απ2θ'] = stem["θ"] else args['mod-απ2θ'] = args['mod-απ2θ'] end
	-- first word
	if args['mod-απ'] ~= '-' and args['mod-απ'] ~= '0' and args['mod-απ'] ~= '' and args['mod-απ'] ~= nil then
		args['mod-απΛ'] = args['mod-απΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-απθ'] .. args['mod-απ']), (stem_color(args['mod-απθ']) .. ending_color(args['mod-απ']))) .. args['mod-απΛκειμ']
	-- zero ending
	elseif args['mod-απ'] == '0' then
		args['mod-απΛ'] = args['mod-απΛκειμ1'] .. args['κοινό1'] .. create_link((args['mod-απθ']), (stem_color(args['mod-απθ']))) .. args['mod-απΛκειμ']
   	elseif args['mod-απ'] == '-' then
   		args['mod-απΛ'] = args['mod-απΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-απΛκειμ']
   	end
	-- second word at new line
	if args['mod-απ2'] ~= '-' and args['mod-απ2'] ~= '0' and args['mod-απ2'] ~= '' and args['mod-απ2'] ~= nil then
		if args['mod-απ2θ'] == '' or args['mod-απ2θ'] == nil then args['mod-απ2θ'] = args['mod-απθ'] end
		args['mod-απ2Λ'] = br .. args['mod-απ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-απ2θ'] .. args['mod-απ2']), (stem_color(args['mod-απ2θ']) .. ending_color(args['mod-απ2']))) .. args['mod-απ2Λκειμ']
	-- zero ending 
	elseif args['mod-απ2'] == "0" then
		args['mod-απ2Λ'] = br .. args['mod-απ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-απ2θ']), (stem_color(args['mod-απ2θ']))) .. args['mod-απ2Λκειμ']
   	elseif args['mod-απ2'] == '-' then
   		args['mod-απ2Λ'] = br .. args['mod-απ2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-απ2Λκειμ']
   	end
-- for editors
	-- default stem
	if args['απθ'] == '' or args['απθ'] == nil then args['απθ'] = stem["θ"] else args['απθ'] = args['απθ'] end
	if args['απ2θ'] == '' or args['απ2θ'] == nil then args['απ2θ'] = stem["θ"] else args['απ2θ'] = args['απ2θ'] end
	-- first word
	if args['απ'] ~= '-' and args['απ'] ~= '0' and args['απ'] ~= '' and args['απ'] ~= nil then
		args['απΛ'] = args['απΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['απθ'] .. args['απ']), (stem_color(args['απθ']) .. ending_color(args['απ']))) .. args['απΛκειμ']
	-- zero ending
	elseif args['απ'] == '0' then
		args['απΛ'] = args['απΛκειμ1'] .. args['κοινό1'] .. create_link((args['απθ']), (stem_color(args['απθ']))) .. args['απΛκειμ']
   	elseif args['απ'] == '-' then
   		args['απΛ'] = args['απΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απΛκειμ']
   	end
	-- second word at new line
	if args['απ2'] ~= '-' and args['απ2'] ~= '0' and args['απ2'] ~= '' and args['απ2'] ~= nil then
		if args['απ2θ'] == '' or args['απ2θ'] == nil then args['απ2θ'] = args['απθ'] end
		args['απ2Λ'] = br .. args['απ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['απ2θ'] .. args['απ2']), (stem_color(args['απ2θ']) .. ending_color(args['απ2']))) .. args['απ2Λκειμ']
	-- zero ending
	elseif args['απ2'] == '0' then
		args['απ2Λ'] = br .. args['απ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['απ2θ']), (stem_color(args['απ2θ']))) .. args['απ2Λκειμ']
   	elseif args['απ2'] == '-' then
   		args['απ2Λ'] = br .. args['απ2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['απ2Λκειμ']
   	end
-- option
   	if  args['απΛ'] ~= '' and args['απΛ'] ~= nil then
   		args['απΛ'] =  args['απΛ'] .. args['απ2Λ']  
   	else
   		if args['απ2'] ~= '' and args['απ2'] ~= nil then
   			args['απΛ'] = args['mod-απΛ'] .. args['απ2Λ']
   		else
			args['απΛ'] = args['mod-απΛ'] .. args['mod-απ2Λ']
		end
	end


-- ΚΛΗΤΙΚΗ ΠΛΗΘΥΝΤΙΚΟΥ -- VOCATIVE PLURAL
-- @modules
	-- default stem
	if args['mod-κπθ'] == '' or args['mod-κπθ'] == nil then args['mod-κπθ'] = stem["θ"] else args['mod-κπθ'] = args['mod-κπθ'] end
	if args['mod-κπ2θ'] == '' or args['mod-κπ2θ'] == nil then args['mod-κπ2θ'] = stem["θ"] else args['mod-κπ2θ'] = args['mod-κπ2θ'] end
	-- first word
	if args['mod-κπ'] ~= '-' and args['mod-κπ'] ~= '0' and args['mod-κπ'] ~= '' and args['mod-κπ'] ~= nil then
		args['mod-κπΛ'] = args['mod-κπΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-κπθ'] .. args['mod-κπ']), (stem_color(args['mod-κπθ']) .. ending_color(args['mod-κπ']))) .. args['mod-κπΛκειμ']
	-- zero ending
	elseif args['mod-κπ'] == '0' then
		args['mod-κπΛ'] = args['mod-κπΛκειμ1'] .. args['κοινό1'] .. create_link((args['mod-κπθ']), (stem_color(args['mod-κπθ']))) .. args['mod-κπΛκειμ']
   	elseif args['mod-κπ'] == '-' then
   		args['mod-κπΛ'] = args['mod-κπΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-κπΛκειμ']
   	end
	-- second word at new line
	if args['mod-κπ2'] ~= '-' and args['mod-κπ2'] ~= '0' and args['mod-κπ2'] ~= '' and args['mod-κπ2'] ~= nil then
		if args['mod-κπ2θ'] == '' or args['mod-κπ2θ'] == nil then args['mod-κπ2θ'] = args['mod-κπθ'] end
		args['mod-κπ2Λ'] = br .. args['mod-κπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-κπ2θ'] .. args['mod-κπ2']), (stem_color(args['mod-κπ2θ']) .. ending_color(args['mod-κπ2']))) .. args['mod-κπ2Λκειμ']
	-- zero ending 
	elseif args['mod-κπ2'] == "0" then
		args['mod-κπ2Λ'] = br .. args['mod-κπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['mod-κπ2θ']), (stem_color(args['mod-κπ2θ']))) .. args['mod-κπ2Λκειμ']
   	elseif args['mod-κπ2'] == '-' then
   		args['mod-κπ2Λ'] = br .. args['mod-κπ2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['mod-κπ2Λκειμ']
   	end
-- for editors
	-- default stem
	if args['κπθ'] == '' or args['κπθ'] == nil then args['κπθ'] = stem["θ"] else args['κπθ'] = args['κπθ'] end
	if args['κπ2θ'] == '' or args['κπ2θ'] == nil then args['κπ2θ'] = stem["θ"] else args['κπ2θ'] = args['κπ2θ'] end
	-- first word
	if args['κπ'] ~= '-' and args['κπ'] ~= '0' and args['κπ'] ~= '' and args['κπ'] ~= nil then
		args['κπΛ'] = args['κπΛκειμ1'] .. args['κοινό1'] 
		.. create_link((args['κπθ'] .. args['κπ']), (stem_color(args['κπθ']) .. ending_color(args['κπ']))) .. args['κπΛκειμ']
	-- zero ending
	elseif args['κπ'] == '0' then
		args['κπΛ'] = args['κπΛκειμ1'] .. args['κοινό1'] .. create_link((args['κπθ']), (stem_color(args['κπθ']))) .. args['κπΛκειμ']
   	elseif args['κπ'] == '-' then
   		args['κπΛ'] = args['κπΛκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπΛκειμ']
   	end
	-- second word at new line
	if args['κπ2'] ~= '-' and args['κπ2'] ~= '0' and args['κπ2'] ~= '' and args['κπ2'] ~= nil then
		if args['κπ2θ'] == '' or args['κπ2θ'] == nil then args['κπ2θ'] = args['κπθ'] end
		args['κπ2Λ'] = br .. args['κπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['κπ2θ'] .. args['κπ2']), (stem_color(args['κπ2θ']) .. ending_color(args['κπ2']))) .. args['κπ2Λκειμ']
	-- zero ending
	elseif args['κπ2'] == '0' then
		args['κπ2Λ'] = br .. args['κπ2Λκειμ1'] .. args['κοινό1'] 
		.. create_link((args['κπ2θ']), (stem_color(args['κπ2θ']))) .. args['κπ2Λκειμ']
   	elseif args['κπ2'] == '-' then
   		args['κπ2Λ'] = br .. args['κπ2Λκειμ1'] .. '<span style="text-align:center; color:#dddddd;">&mdash;</span>' .. args['κπ2Λκειμ']
   	end
-- option
   	if  args['κπΛ'] ~= '' and args['κπΛ'] ~= nil then
   		args['κπΛ'] =  args['κπΛ'] .. args['κπ2Λ']  
   	else
   		if args['κπ2'] ~= '' and args['κπ2'] ~= nil then
   			args['κπΛ'] = args['mod-κπΛ'] .. args['κπ2Λ']
   		else
			args['κπΛ'] = args['mod-κπΛ'] .. args['mod-κπ2Λ'] 
		end
	end  


-- 2ος ενικός	
	args['οεΛ2'] = args['οεΛ2'] or ''
	args['γεΛ2'] = args['γεΛ2'] or ''
	args['αεΛ2'] = args['αεΛ2'] or ''
	args['κεΛ2'] = args['κεΛ2'] or ''
-- 2ος πληθυντικός
	args['οπΛ2'] = args['οπΛ2'] or ''
	args['γπΛ2'] = args['γπΛ2'] or ''

	args['απΛ2'] = args['απΛ2'] or ''
	args['κπΛ2'] = args['κπΛ2'] or ''



end -- close  function param

return {param = param}