Module:yy/1

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

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

-- αρχαία ελληνικά ουσιαστικά - 1η κλίση / ancient greek nouns - 1st declension 2021.06. Sarri.greek

--  ======================= ΚΛΙΣΗ 1 αρχαία ελληνικά ================================= --
--[=[
ΠΕΡΙΕΧΟΜΕΝΑ
* [[στρατιά]], [[χώρα]]/[[γλῶσσα]]/[[σοφία]]/[[σφαῖρα]] _κούπα, [[θάλασσα]]/[[βοήθεια]]
* [[νεανίας]]/[[λογοθήρας]]
* [[ψυχή]], [[γνώμη], [[περισπωμένη]]
* [[ποιητής]], [[στρατιώτης]]/[[τοξότης]]& [[Ἀτρείδης]]/[[Κρονίδης]]
* συνηρημένα contracted: [[Ναυσικάα]]/[[μνᾶ]]], [[συκέα]]/[[συκῆ]], [[γαλέη]]/[[γαλῆ]], [[Βορέας]]/[[Βορρᾶς]], [[Ἑρμέας]]/[[Ἑρμῆς]]
Τα ιδιόκλιτα ονόματα Μηνᾶς, Φιλῆς, etc at page /4
Ιδιόκλιτα ελληνιστικό  [[κοῦπα]]-ας, πληθ?? latin -es? κοῦπες? at/page4
TO DO
	* Find a common catchword for [[Ναυσικάα]]+[[μνᾶ]]]
HELP copypaste
--	create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς"))
]=]--


export = {}

m_2 = require("Module:yy/2")	-- 2nd declension follows

-- repeat this, otherwise linkcontrols do not work
local languages = mw.loadData("Module:Languages")
-- ====================== Links -- Repeat here (from param page) for languages and for the uncontracted
function create_link (page, text)
	local args = {}
	-- articles are the same for for kath, gkm, grc  -- test [[Λεβαδία]]
	lang_iso = lang_iso or ''
	local med = args['gkm'] or args['μσν'] or ''
	local kathar = args['kath'] or args['καθ'] or ''
	if args['gkm']  == '1' or args['μσν'] == '1' then lang_iso = 'gkm'
	elseif args['kath']  == '1' or args['καθ'] == '1' then lang_iso = 'el'
	else lang_iso = 'grc'
	end
		if text then
		return '[[' .. page .. '#' .. languages[lang_iso]['link'] .. '|' .. text .. ']]'
		else
		return '[[' .. page .. '#' .. languages[lang_iso]['link'] .. '|' .. page .. ']]'
		end
	end


--  ======================= 1η κλίση [[στρατιά]] ===================================== --
export['στρατιά'] = function(frame)		-- [[Πρότυπο:grc-κλίση-'στρατιά']]
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" )	-- αφαίρεση κενών στην αρχή και στο τέλος. Υπάρχει σε όλα τα Module.
		else lemma = args['λήμμα']
	end
-- stems
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then
     	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) -- rewrite default stemnumber = 3 (μείον 2)
    else
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2) -- override default stemnumber = 3 (μείον 2)
    end

	args['κλίση'] = '1'
	args['θηλ'] = '1'
    args['κατηγορία κλίσης'] = 'στρατιά'
	args['τύπος'] = 'στρατιά'
	args['όπως'] = 'στρατιά'
	args['κατηγ0'] = 'Λέξεις οξύτονες'
	args['υποκατ01'] = 'οξύτονα'
	args['υποκατ02'] = 'θηλυκά οξύτονα'
	args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "ά"	args['mod-οε+'] = "ᾱ́"
	args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ᾶς"
	args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = "ᾷ"
	args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "άν"	args['mod-αε+'] = "ᾱ́ν"
	args['mod-κεθ'] = stem["θ"]		args['mod-κε'] = "ά"	args['mod-κε+'] = "ᾱ́"	-- or, as in nom
	args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αί"
	args['mod-γπθ'] = stem["θ"]		args['mod-γπ'] = "ῶν"
	args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αῖς"
	args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "άς"	args['mod-απ+'] = "ᾱ́ς"
	args['mod-κπθ'] = args['mod-οπθ']	args['mod-κπ'] = args['mod-οπ']				-- as in nominative
	args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "ά"	args['mod-οδ+'] = "ᾱ́"
	args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αῖν"
return decl(args)
end


-- group χώρα  group γλῶσσα  EDITOR_MUST_DEFINE δίχρ=
-- δεν μπορώ να φτιάξω τις υποκατηγορίες στο κλίση σοφία, οπότε φτιάχνω έξτρα funtion
--  ================ 1η κλίση [[χώρα]] & [[σοφία]] / [[γλῶσσα]] & [[δόξα]]  / [[σφαῖρα]] ========================
--[=[
-- and CHECK [[ᾤα]], [[χημεία]], [[Εὔα]], [[κάννα]], [[λύσσα]]
	-- handle (or make a Template)
	σαν τα 'σφαίρα: Εὔα
	* [[Ἄβα]] της Ἄβας αλλά πληθ Ἄβαι (@DGE) -- ΜΑΚΕ Ανδρομέδα -ας
	* [[Σουσάννα]] και -άννης και άννας
	* πιθανόν, λατινικές λέξεις. [[καλάνδαι]], μορφή του [[καλένδαι]] Δεν θα πρέπει να θεωρείται Κατ.γλώσσα ΕΚΚΡΕΜΟΤΗΤΑ
	* το κοῦπα-ας ?πληθ κοῦπες? - βλ. ιδιόκλιτα /page4
]=]--
-- =================================================================================
export['χώρα'] = function(frame)
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" )	-- αφαίρεση κενών στην αρχή και στο τέλος. Υπάρχει σε όλα τα Module.
		else lemma = args['λήμμα']
	end
	
	args['κλίση'] = '1'
	args['θηλ'] = '1'
	-- υπερομάδα χώρα & βλέπε 2 ομάδες χώρα-ας, γλώσσα-ης
	-- κατηγορία κλίσης, τύπος, όπως, see below
-- stems
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) -- rewrite default stemnumber = 3 (μείον 2)
    else -- singular
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2) -- override default stemnumber = 3 (μείον 2)
    end
    
    if mw.ustring.find(stem["θ"], m_data.vowel_perispomeni) --  vowel+perispomeni
	then
		args['κατηγ0'] = 'Λέξεις προπερισπώμενες'
		args['υποκατ01'] = 'προπερισπώμενα'
		args['υποκατ02'] = 'θηλυκά προπερισπώμενα'
	else
		args['κατηγ0'] = 'Λέξεις παροξύτονες'
		args['υποκατ01'] = 'παροξύτονα'
		args['υποκατ02'] = 'θηλυκά παροξύτονα'
	end
 
    stem["θ0"] = m_stems.word0(stem["θ"])					-- σφαιρ χωρ σοφι γλωσσ
    -- stem["θ1"] = m_stems.word1(stem["θ0"])
    stem["θ1"] = m_stems.PerispomeniToOxia(stem["θ"])		-- σφαίρ γλώσσ
	stem["θ1π"] = m_stems.OxiaToPerispomeni(stem["θ"])		-- χώρ-α > χῶρ-αι, χημεία > χημεῖαι

-- DO NOT ACCEPT προπαροξύτονα. Τest at  testpage [[τράπεζα]]  [[ἀλήθεια]] ok, [[κόρυζα]] // έ and ό we not seen when i use OR STEM θιπ
if (stem["θ"] ~= m_stems.word1(stem["θ0"]) and stem["θ"] ~= stem["θ1π"])
--	and mw.ustring.find(stem["θ"], '[έό]') --PROBLEM with [[χόχαχα]] [[χέχαχα]]
-- impossibles like χαχαχεῖα just do not fill in stems.	
	or stem["θ"] == m_stems.word2(stem["θ0"])
	-- but ACCEPT suffix lemmata like [[-τρα]]
	and not mw.ustring.find(stem["θ"], '[-]')
	then
		return errorhere('ΛΑΘΟΣ ΚΛΙΣΗ. Χρησιμοποιήσατε κλίση για παροξύτονα.')
end

-- PURE ALPHA ============================== --

-- EXCEPTIONS [[σφαῖρα]] -- εξαιρέσεις: καθαρό άλφα που όμως είναι βραχύ. Τζάρτζανος παράγραφος 50. -- pure alpha BUT brachy
	-- lemma = does not work
if -- this section is LOCKED: editors cannot change params
	-- the [[σφαῖρα]] words:
	args['λήμμα'] == 'μοῖρα' or args['λήμμα'] == 'πεῖρα' or args['λήμμα'] == 'πρῷρα' 
	or args['λήμμα'] == 'σπεῖρα' or args['λήμμα'] == 'σφαῖρα' or args['λήμμα'] == 'σφῦρα' 
	or args['λήμμα'] == 'αἶρα' -- koine
	-- plus these bisyllabics:
	or args['λήμμα'] == 'γαῖα' or args['λήμμα'] == 'γραῖα' or args['λήμμα'] == 'μαῖα' or args['λήμμα'] == 'μυῖα'
	-- and hyphothetically, if table is needed at the plural lemma:
	or args['λήμμα'] == 'μοῖραι' or args['λήμμα'] == 'πεῖραι' or args['λήμμα'] == 'πρῷραι' 
	or args['λήμμα'] == 'σπεῖραι' or args['λήμμα'] == 'σφαῖραι' or args['λήμμα'] == 'σφῦραι' 
	or args['λήμμα'] == 'αἶραι'
	-- plus these bisyllabics:
	or args['λήμμα'] == 'γαῖαι' or args['λήμμα'] == 'γραῖαι' or args['λήμμα'] == 'μαῖαι' or args['λήμμα'] == 'μυῖαι'
	-- PLUS KOINE
	or args['λήμμα'] == 'Εὔα'
	then
	args['γε'] = "ας"
	args['γε+'] = "ᾱς"
	args['δε'] = 'ᾳ'
	args['ομάδα'] = 'χώρα'
	args['κατηγορία κλίσης'] = 'σφαῖρα'
	args['τύπος'] = 'σφαῖρα'
	args['όπως'] = 'σφαῖρα'
	args['σημ'] = "Εδώ, το <i>καθαρό α</i> (που ακολουθεί το ρ ή φωνήεν)<br>δεν είναι μακρό, αλλά κατ' εξαίρεσιν, βραχύ."

	args['οεθ'] = stem["θ"]		args['οε'] = "α"			args['οε+'] = "ᾰ"
	args['γεθ'] = stem["θ1"]		--γε ΟΚ
	args['δεθ'] = stem["θ1"]		--δε ΟΚ
	args['αεθ'] = stem["θ"]		args['αε'] = "αν"			args['αε+'] = "ᾰν"
	args['κεθ'] = args['οεθ']	args['κε'] = args['οε']		args['κε+'] = args['οε+']	-- same as nominative
	args['οπθ'] = stem["θ"]		args['οπ'] = "αι"
	if args['λήμμα'] == 'αἶρα' or args['λήμμα'] == 'αἶραι' then
		args['γπθ'] = stem["θ0"]	args['γπ'] = "άων"	args['γπΛκειμ'] = '<sup>*</sup>'
		args['παρατήρηση'] = '* Ανώμαλη γενική πληθυντικού αντί <b>-ῶν</b>.<br>** Ανώμαλη δοτική πληθυντικού αντί <b>-αις</b>.<br>'
	else
		args['γπθ'] = stem["θ0"]	args['γπ'] = "ῶν"
	end
	if args['λήμμα'] == 'αἶρα' or args['λήμμα'] == 'αἶραι' then
		args['δπθ'] = stem["θ1"]	args['δπ'] = "ῃσιν"	args['δπΛκειμ'] = '<sup>**</sup>'
	else
		args['δπθ'] = stem["θ1"]	args['δπ'] = "αις"
	end
	args['απθ'] = stem["θ1"]	args['απ'] = "ας"			args['απ+'] = "ᾱς"
	args['κπθ'] = args['οπθ']	args['κπ'] = args['οπ']		-- same as nominative
	args['οδθ'] = stem["θ"]		args['οδ'] = "α"			args['οδ+'] = "ᾱ"
	args['γδθ'] = stem["θ1"]	args['γδ'] = "αιν"

else -- NOT σφαῖρα group
-- 1)  non purum ᾰ ΜΗ καθαρό άλφα = βραχύ after consonant except ρ at end of stem
    if mw.ustring.find(stem["θ"], '[βγδζθκλμνξπστφχψΒΓΔΖΘΚΛΜΝΞΠΣΤΦΧΨ]$')
    and args['λήμμα'] ~= 'Ἄβα'
    then
    	-- ᾰ is brachy, becomes -ης genitive, ῃ dative
    	-- if find.in.stem perispomeni [[γλῶσσα]] ᾰ (this includes macra, diphthongs, non ambiguous dichrona)
    		--gen/dat.sg	= θ1 MAKE it OKSEIA γλώσσης
    		--nom.pl		= θ keep it γλῶσσαι with -αι (brachy at end)
    	-- if find.in.stem okseia
    		-- if is is brachy ε ο = keep it as is η [[δόξα]] αι δόξαι
    		-- if it is macron or diphthong = impossible okseia BUT there is
    			--@DGE  [[βούλλα]] -ης,  en edd. frec. acent. [[βοῦλλα]] ?  ΕΚΚΡΕΜΟΤΗΤΑ
    		-- if ambiguous dichronon then
    				-- if perispomeni, it is obviously macron [[μᾶζα]] μάζης μᾶζαι KEEP IT
    				-- if oskia, [[Κύρβα]] it cannot be macron, or it would have perispomeni. KEEP IT
    				-- if the editor does nothing, ERROR.

	args['mod-οεθ'] = stem["θ"]			args['mod-οε'] = "α"			args['mod-οε+'] = "ᾰ"
	-- γεθ, δεθ
	args['mod-αεθ'] = stem["θ"]			args['mod-αε'] = "αν"			args['mod-αε+'] = "ᾰν"
	args['mod-κεθ'] = args['mod-οεθ']		args['mod-κε'] = args['mod-οε']		args['mod-κε+'] = args['mod-οε+'] -- same as nom
	-- οπθ
	args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"

	-- all probalbe and improbable perismpomeni here
	if mw.ustring.find(stem["θ"], m_data.vowel_perispomeni) 
	then
		args['ομάδα'] = 'γλῶσσα'
		args['κατηγορία κλίσης'] = 'γλῶσσα'
		args['τύπος'] = 'γλῶσσα'
		args['όπως'] = 'γλῶσσα'
		-- make okseia at
		args['mod-γεθ'] = stem["θ1"]		args['mod-γε'] = 'ης'	--args['mod-γε+'] = 'ης' ----- !!!!!!!!! repeat it για να μη βλέπει το γε+ = ας
		args['mod-δεθ'] = stem["θ1"]		args['mod-δε'] = 'ῃ'
		args['mod-δπθ'] = stem["θ1"]		args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ1"]		args['mod-απ'] = "ας"			args['mod-απ+'] = "ᾱς"
		args['mod-οδθ'] = stem["θ1"]		args['mod-οδ'] = "α"			args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ1"]		args['mod-γδ'] = "αιν"	
		-- keep at nom.pl
		args['mod-οπθ'] = stem["θ"]			args['mod-οπ'] = "αι"
		args['mod-κπθ'] = args['mod-οπθ']		args['mod-κπ'] = args['mod-οπ']		-- same as nominative
	--else -- if i find okseia
	-- if it is brachy vowel, keep it
	-- if other.vowel okseia, it cannot be a macron, it cannot be a diphthong, 
		-- it is an ambiguous.dicrhonon. with oskeia
		-- but is cannot be a macron, so, it is brachy: I add all oxytona brachea dichrona
	elseif mw.ustring.find(stem["θ"], '[έὲἔἒἕἓόὸὄὂὅὃΈῈἜἚἝἛΌῸὌὊὍὋάὰἄἂἅἃίὶἴἲἵἳΐῒύὺὔὒὕὓΰῢΆᾺἌἊἍἋΊῚἼἺἽἻΎῪὝὛ]')
	then
		args['ομάδα'] = 'γλῶσσα'
		args['κατηγορία κλίσης'] = 'δόξα'
		args['τύπος'] = 'δόξα'
		args['όπως'] = 'δόξα'
		args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = 'ης'
		args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = 'ῃ'
		args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ας"			args['mod-απ+'] = "ᾱς"
		args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "α"			args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αιν"	
		-- keep at nom.pl
		args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αι"
		args['mod-κπθ'] = args['mod-οπθ']	args['mod-κπ'] = args['mod-οπ']		-- same as nominative
		end -- close what kind of stresses we find at the -η category

	-- 2) a purum  καθαρό ᾱ = μακρό
	-- if at end of stem there is ρ or any vowel (or any diphthong) then we have ᾱ
    elseif mw.ustring.find(stem["θ"], '[ρΡαᾳάᾴὰᾲᾶᾷἀᾀἄᾄἂᾂἆᾆἁᾁἅᾅἃᾃἇᾇᾰᾱεέὲἐἔἒἑἕἓηῃήῄὴῂῆῇἠᾐἤᾔἢᾒἦᾖἡᾑἥᾕἣᾓἧᾗιίὶῖἰἴἲἶἱἵἳἷϊΐῒῗῐῑοόὸὀὄὂὁὅὃυύὺῦὐὔὒὖὑὕὓὗϋΰῢῧῠῡωῳώῴὼῲῶῷὠᾠὤᾤὢᾢὦᾦὡᾡὥᾥὣᾣὧᾧΑᾼΆᾺἈᾈἌᾌἊᾊᾊἎᾎἉᾉἍᾍἋᾋἏᾏᾸᾹΕΈῈἘἜἚἙἝἛΗῌΉῊἨᾘἬᾜἪᾚᾚἮᾞἩᾙἭᾝἫᾛἯᾟΙΊῚἸἼἺἾἹἽἻἿῙῘΟΌῸὈὌὊὉὍὋΥΎῪὙὝὛὟῩῨΩῼῺὨᾨὬᾬὪᾪὮᾮὩᾩὭᾭὫᾫὯᾯ]$')
	or args['λήμμα'] == 'Ἄβα' -- exceptions
	then

		args['mod-οεθ'] = stem["θ"]			args['mod-οε'] = "α"			args['mod-οε+'] = "ᾱ"
		-- γεθ, δεθ
		args['mod-αεθ'] = stem["θ"]			args['mod-αε'] = "αν"			args['mod-αε+'] = "ᾱν"
		args['mod-κεθ'] = args['mod-οεθ']		args['mod-κε'] = args['mod-οε']		args['mod-κε+'] = args['mod-οε+']	-- same as nominative
		-- οπθ
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"	
	
	-- if find.in.stem perispomeni -- IMPOSSIBLE before a macron, but yes at pluralia tantum
	-- if find.in.stem okseia
		-- if it is a brachy = keep it [[φαρέτρα]]
		-- if it is a macron make nom.pl PERISPOMENI [[χώρα]]
			-- also if find diphthongs, make PERISPOMENI [[χημεία]]
		-- if it is dicrhonon but not in a diphthong [[χύτρα]] we need the editor to tell us
			-- |δίχρ=β  we KEEP IT (this is also done fast in [[Πρότυπο:grc-κλίση-'σοφία']])
			-- |δίχρ=μ macron, we make PERISPOMENH ?? I do not have an example
			-- if it is UNKNOWN |δίχρ=? and we present the nom.pl as ...?...αι
	
	-- all probalbe and improbable brachy+okseia here for [[φαρέτρα]] = KEEP IT Κατ.σοφία με βραχύ
		if mw.ustring.find(stem["θ"], m_data.brachy_oxeia) -- brachy+okseia
		or args['λήμμα'] == '-τρα'
		then
		args['ομάδα'] = 'χώρα'
		args['κατηγορία κλίσης'] = 'φαρέτρα'
		args['τύπος'] = 'φαρέτρα' -- βραχύ
       	args['όπως'] = 'σοφία'
		args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "α"			args['mod-οε+'] = "ᾱ"	
		args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ας"			args['mod-γε+'] = "ᾱς"	
		args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = 'ᾳ'
		args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "αν"			args['mod-αε+'] = "ᾱν"
		args['mod-κεθ'] = args['mod-οεθ']	args['mod-κε'] = args['mod-οε']		args['mod-κε+'] = args['mod-οε+']	-- same as nominative
		args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αι"
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
		args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ας"			args['mod-απ+'] = "ᾱς"
		args['mod-κπθ'] = args['mod-οπθ']	args['mod-κπ'] = args['mod-οπ']									-- same as nominative
		args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "α"			args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αιν"	
		
		-- else if macron+okseia make sg.pl perispomeni Κατ.χώρα
		elseif mw.ustring.find(stem["θ"], m_data.macron_oxeia) -- macron+okseia or vareia
		-- pluralia with perispomeni χῶραι
		or mw.ustring.find(stem["θ"], m_data.vowel_perispomeni) --  vowel+perispomeni 
		then
		args['ομάδα'] = 'χώρα'
		args['κατηγορία κλίσης'] = 'χώρα'
		args['τύπος'] = 'χώρα'
		args['όπως'] = 'χώρα'
		args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "α"			args['mod-οε+'] = "ᾱ"	
		args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ας"			args['mod-γε+'] = "ᾱς"	
		args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = 'ᾳ'
		args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "αν"			args['mod-αε+'] = "ᾱν"
		args['mod-κεθ'] = args['mod-οεθ']	args['mod-κε'] = args['mod-οε']		args['mod-κε+'] = args['mod-οε+']	-- same as nominative
		args['mod-οπθ'] = stem["θ1π"]	args['mod-οπ'] = "αι"
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
		args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ας"			args['mod-απ+'] = "ᾱς"
		args['mod-κπθ'] = args['mod-οπθ']	args['mod-κπ'] = args['mod-οπ']									-- same as nominative
		args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "α"			args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αιν"	

		-- elsif find a dicrhonon+okseia but except in diphthongs
		elseif mw.ustring.find(stem["θ"], m_data.dichronon_oxeia) -- dicrhonon+okesia or vareia
		then
			-- NOT in diphtongs the ι υ
			if mw.ustring.find(stem["θ"], m_data.diphthong_tonos) -- diphthong+tonos (okseia, vareia, perispomeni) NOT dialytics ΐῒῗΰῢῧ [[Ἀγλαΐα]] + only the accented ones [[λειτουργία]] [[εὐδοκία]]
			then -- make PERISPOMENI
		args['ομάδα'] = 'χώρα'
		args['κατηγορία κλίσης'] = 'χώρα'
		args['τύπος'] = 'χώρα'
		args['όπως'] = 'χώρα'
		args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "α"			args['mod-οε+'] = "ᾱ"	
		args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ας"			args['mod-γε+'] = "ᾱς"	
		args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = 'ᾳ'
		args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "αν"			args['mod-αε+'] = "ᾱν"
		args['mod-κεθ'] = args['mod-οεθ']	args['mod-κε'] = args['mod-οε']		args['mod-κε+'] = args['mod-οε+']	-- same as nominative
		args['mod-οπθ'] = stem["θ1π"]	args['mod-οπ'] = "αι"
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
		args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ας"			args['mod-απ+'] = "ᾱς"
		args['mod-κπθ'] = args['mod-οπθ']	args['mod-κπ'] = args['mod-οπ']									-- same as nominative
		args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "α"			args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αιν"	
-- # υπάρχει υποκατ: φαρέτρα = χώρα|δίχρ=β και Πρότυπο σοφία = όλα τα ία?		
			else -- editor has to say
				if args['δίχρ'] == 'β' then -- KEEP IT the σοφία words, fast at [[Template:grc-κλίση-'σοφία']]
		args['ομάδα'] = 'χώρα'
		args['κατηγορία κλίσης'] = 'σοφία'
		args['τύπος'] = 'σοφία'
		args['όπως'] = 'σοφία'
       	args['mod-σημ'] = 'Το δίχρονο φωνήεν της παραλήγουσας είναι βραχύ.'
		args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "α"			args['mod-οε+'] = "ᾱ"	
		args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ας"			args['mod-γε+'] = "ᾱς"	
		args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = 'ᾳ'
		args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "αν"			args['mod-αε+'] = "ᾱν"
		args['mod-κεθ'] = args['mod-οεθ']	args['mod-κε'] = args['mod-οε']		args['mod-κε+'] = args['mod-οε+']	-- same as nominative
		args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αι"
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
		args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ας"			args['mod-απ+'] = "ᾱς"
		args['mod-κπθ'] = args['mod-οπθ']	args['mod-κπ'] = args['mod-οπ']									-- same as nominative
		args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "α"			args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αιν"		
		
				-- if δίχρ=μ macron, MAKE PERISPOMENI
				elseif args['δίχρ'] == 'μ' then
		args['ομάδα'] = 'χώρα'
		args['κατηγορία κλίσης'] = 'χώρα'
		args['τύπος'] = 'χώρα'
		args['όπως'] = 'χώρα'
		args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "α"			args['mod-οε+'] = "ᾱ"	
		args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ας"			args['mod-γε+'] = "ᾱς"	
		args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = 'ᾳ'
		args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "αν"			args['mod-αε+'] = "ᾱν"
		args['mod-κεθ'] = args['mod-οεθ']	args['mod-κε'] = args['mod-οε']		args['mod-κε+'] = args['mod-οε+']	-- same as nominative
		args['mod-οπθ'] = stem["θ1π"]	args['mod-οπ'] = "αι"
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
		args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ας"			args['mod-απ+'] = "ᾱς"
		args['mod-κπθ'] = args['mod-οπθ']	args['mod-κπ'] = args['mod-οπ']									-- same as nominative
		args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "α"			args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αιν"	
		
				-- but if there is NO INFO about this word at dictionaries
				elseif args['δίχρ'] == '?' then
		args['κατηγορία κλίσης'] = "χώρα"
       	args['τύπος'] = '-'
       	args['όπως'] = 'χώρα'
       	if args['α'] ~= 'εν' and args['α'] ~= 'ενδ' and args['α2'] ~= 'εν' and args['α2'] ~= 'ενδ' then
       	args['σημ'] = '<span style="color:red;">Δεν</span> υπάρχουν πληροφορίες για την προσωδία<br>του δίχρονου φωνήεντος στην παραλήγουσα.<br><span style="color:red;">Δεν</span> γνωρίζουμε πώς τονίζεται η ονομαστική πληθυντικού.'
       	end
		page = mw.title.getCurrentTitle()
    	page.name = page.text:match( "^%s*(.-)%s*$" )
		if page.namespace == 0 then	-- Categories work only in MAIN namespace
		args['κατηγ02'] = "Λέξεις με άγνωστη προσωδία"
		args['κατηγ03'] = "Ουσιαστικά που κλίνονται όπως η ομάδα 'χώρα' με άγνωστη προσωδία"
		end
		args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "α"			args['mod-οε+'] = "ᾱ"	
		args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ας"			args['mod-γε+'] = "ᾱς"	
		args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = 'ᾳ'
		args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "αν"			args['mod-αε+'] = "ᾱν"
		args['mod-κεθ'] = args['mod-οεθ']	args['mod-κε'] = args['mod-οε']		args['mod-κε+'] = args['mod-οε+']	-- same as nominative
		args['οπΛ'] = '...<span style="color:red;">?</span>...αι' -- LOCKED for editors
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
		args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ας"			args['mod-απ+'] = "ᾱς"
		args['κπΛ'] = args['οπΛ'] -- LOCKED									-- same as nominative
		args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "α"			args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αιν"			
					
				-- if the editor does nothing, ERROR.
				elseif args['δίχρ'] ~= 'β' and args['δίχρ'] ~= 'μ' and args['δίχρ'] ~= '?'
					or (args['δίχρ'] == '' or args['δίχρ'] == nil)
				then
					return error_dichr(errordichrstring) -- cf error fucntions at Module
				end -- close if |δίχρ=
				
			end -- close if diphtong


		end -- close elseifs for okseia at purum
	
	end -- close if non purum

end -- close sphaera EXCEPTIONS

return decl(args)
end -- close χώρα

-- -----------extra σοφία (as χώρα, with δίχρ=β as standard)
-- =================================================================================
export['σοφία'] = function(frame) -- [[Πρότυπο:grc-κλίση-'σοφία']]
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" )	-- αφαίρεση κενών στην αρχή και στο τέλος. Υπάρχει σε όλα τα Module.
		else lemma = args['λήμμα']
	end
-- stems
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) -- σοφί-αι rewrite default stemnumber = 3 (μείον 2)
    else
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2) -- σοφί-α
    end
    stem["θ0"] = m_stems.word0(stem["θ"])					-- σοφι
-- accept only -ία words, do not accept diphthongs
	if mw.ustring.find(stem["θ"], '[ίὶἴἲἵἳΐῒ]')
	then
		if mw.ustring.find(stem["θ"], m_data.diphthong_tonos) -- diphthong+tonos (okseia, vareia, perispomeni) NOT dialytics ΐῒῗΰῢῧ
		then
			return errorhere("ΛΑΘΟΣ ΚΛΙΣΗ. Επιλέξτε την κλίση &#123;&#123;grc-κλίση-'χώρα'}}.")
			-- like [[ἀγριελαία]]
		else
    args['κλίση'] = '1'
    args['θηλ'] = '1'
    args['ομάδα'] = 'χώρα'
    args['κατηγορία κλίσης'] = 'σοφία'
    args['τύπος'] = 'σοφία'
    args['όπως'] = 'σοφία'
	args['κατηγ0'] = 'Λέξεις παροξύτονες'
	args['υποκατ01'] = 'παροξύτονα'
	args['υποκατ02'] = 'θηλυκά παροξύτονα'
	args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "α"			args['mod-οε+'] = "ᾱ"	
	args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ας"			args['mod-γε+'] = "ᾱς"	
	args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = 'ᾳ'
	args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "αν"			args['mod-αε+'] = "ᾱν"
	args['mod-κεθ'] = args['mod-οεθ']	args['mod-κε'] = args['mod-οε']		args['mod-κε+'] = args['mod-οε+']	-- same as nominative
	args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αι"
	args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
	args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αις"
	args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ας"			args['mod-απ+'] = "ᾱς"
	args['mod-κπθ'] = args['mod-οπθ']	args['mod-κπ'] = args['mod-οπ']									-- same as nominative
	args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "α"			args['mod-οδ+'] = "ᾱ"
	args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αιν"
		end -- close if diphghong
	else -- if not find ί
		return errorhere("ΛΑΘΟΣ ΚΛΙΣΗ. Επιλέξτε την κλίση &#123;&#123;grc-κλίση-'χώρα'}}.")
	end
return decl(args)
end -- close σοφία 


-- no group θάλασσα
--  ======================= 1η κλίση [[θάλασσα]]/[[βοήθεια]] =====================================
-- Το άλφα πάντα βραχύ (ακόμη και το α καθαρόν)
-- [[βοήθεια]] με γενική -ας βοηθείας
-- [[θάλασσα]] με γενική -ης θαλάσσης
--- να μην δέχεται παροξύτονα όπως [[χώρα]] [[σοφία]] ( = βλ. κλίση 'χώρα')
-- ΕΞΑΙΡΕΣΕΙΣ: 
	-- ονόματα ελληνιστικά όπως ?
-- ===============================================================================
export['θάλασσα'] = function(frame)		-- [[Πρότυπο:grc-κλίση-'θάλασσα']]
    local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" )	-- αφαίρεση κενών στην αρχή και στο τέλος. Υπάρχει σε όλα τα Module.
		else lemma = args['λήμμα']
	end
-- stems
	local stem = {}
	if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) -- rewrite default stemnumber = 3 (μείον 2)
	else
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2) -- override default stemnumber = 3 (μείον 2)
	end

	args['κλίση'] = '1'
	args['θηλ'] = '1'
	-- κατηγορία κλίσης below
	args['κατηγ0'] = 'Λέξεις προπαροξύτονες'
	args['υποκατ01'] = 'προπαροξύτονα'
	args['υποκατ02'] = 'θηλυκά προπαροξύτονα'
    
	stem["θ0"] = m_stems.word0(stem["θ"])					-- θαλασσ
	stem["θ1"] = m_stems.word1(stem["θ0"])					-- θαλάσσ
    
	stem["θ1π"] = m_stems.OxiaToPerispomeni(stem["θ1"])		-- HYPOTHETICAL CONTROL θαλᾶσσ ...εῖα words
    	--  # CAREFUL, DO NOT WRITE  m_stems.OxiaToPerispomeni(stem["θ"])	--> it cannnot see έ and ό accented (e.g.  [[ὠφέλεια]])
    	-- the converted stem MUST be accented at last syllable, not ANY syllable
    
-- DO NOT ACCEPT παροξύτονα. Test at [[χώρα]], [[σοφία]]
if (stem["θ"] == stem["θ1"] or stem["θ"] == stem["θ1π"]) 	--(also impossible words like ...εῖα )
	-- but ACCEPT suffix lemmata like [[-αινα]], [[-εια]]
	and not mw.ustring.find(stem["θ"], '[-]')
then
	return errorhere('ΛΑΘΟΣ ΚΛΙΣΗ. Χρησιμοποιήσατε κλίση για προπαροξύτονα.')
end

-- ALPHA  ============================== --
	-- normally a purum alpha is macron, but for PROparoxytones, it is brachy

-- 1)  non purum ᾰ ΜΗ καθαρό άλφα =  after consonant except ρ at end of stem (capitals not needed? ΒΓΔΖΘΚΛΜΝΞΠΣΤΦΧΨ)
    if mw.ustring.find(stem["θ"], '[βγδζθκλμνξπστφχψ]$')	-- $ means: at the end of
    then
    	-- ᾰ is brachy, becomes -ης genitive, ῃ dative
	args['κατηγορία κλίσης'] = 'θάλασσα'
	args['τύπος'] = 'θάλασσα'
	args['όπως'] = 'θάλασσα'
	args['mod-οεθ'] = stem["θ"]	args['mod-οε'] = "α"	args['mod-οε+'] = "ᾰ"
	args['mod-γεθ'] = stem["θ1"]	args['mod-γε'] = "ης"
	args['mod-δεθ'] = stem["θ1"]	args['mod-δε'] = "ῃ"
	args['mod-αεθ'] = stem["θ"]	args['mod-αε'] = "αν"	args['mod-αε+'] = "ᾰν"
	args['mod-κεθ'] = args['mod-οεθ']	args['mod-κε'] = args['mod-οε']	args['mod-κε+'] = args['mod-οε+']	-- same as nominative
	-- plural common for both, see below
-- 2) a purum  καθαρό ᾱ = μακρό, but not for proparoxytones (otherwise we would have η βοηθεία)
	else -- if vowel/diphthong or ρ
	args['κατηγορία κλίσης'] = 'βοήθεια'
	args['τύπος'] = 'βοήθεια'
	args['όπως'] = 'βοήθεια'
	args['mod-οεθ'] = stem["θ"]	args['mod-οε'] = "α"	args['mod-οε+'] = "ᾰ"
	args['mod-γεθ'] = stem["θ1"]	args['mod-γε'] = "ας"	args['mod-γε+'] = "ᾱς"
	args['mod-δεθ'] = stem["θ1"]	args['mod-δε'] = "ᾳ"
	args['mod-αεθ'] = stem["θ"]	args['mod-αε'] = "αν"	args['mod-αε+'] = "ᾰν"
	args['mod-κεθ'] = args['mod-οεθ']	args['mod-κε'] = args['mod-οε']	args['mod-κε+'] = args['mod-οε+']	-- same as nominative
	-- plural common for both, see below
    end -- close if βγδ...
-- plural for both:    
	args['mod-οπθ'] = stem["θ"]	args['mod-οπ'] = "αι"
	args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
	args['mod-δπθ'] = stem["θ1"]	args['mod-δπ'] = "αις"
	args['mod-απθ'] = stem["θ1"]	args['mod-απ'] = "ας"	args['mod-απ+'] = "ᾱς"
	args['mod-κπθ'] = args['mod-οπθ']	args['mod-κπ'] = args['mod-οπ']		-- same as nominative
	args['mod-οδθ'] = stem["θ1"]	args['mod-οδ'] = "α"	args['mod-οδ+'] = "ᾱ"
	args['mod-γδθ'] = stem["θ1"]	args['mod-γδ'] = "αιν"
return decl(args)
end


-- group νεανίας EDITOR_MUST_DEFINE δίχρ=
-- ### perhaps cat for hellenistic Koine names, genitive -α ? ΕΚΚΡΕΜΟΤΗΤΑ
-- ### to do: the pluralia like [[λογοθῆραι]] are not recognized
--  ======================= 1η κλίση [[νεανίας]] [[λογοθήρας]] ===================================== --
-- [[νεανίας]] with bracy, νεανίαι
	-- but MACRON penultima [[οἰνοθήρας]] [[-θήρας]] NEEDS perispomeni οἰνοθῆραι
-- [[λογοθήρας]] with macron

export['νεανίας'] = function(frame)		-- [[Πρότυπο:grc-κλίση-'νεανίας']]
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or '' --do not change
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" )	-- αφαίρεση κενών στην αρχή και στο τέλος. Υπάρχει σε όλα τα Module.
		else lemma = args['λήμμα']
	end
-- stem is DEFAULT  singular=plural. Default stem ok. minus 2 letters, args['μείον'] = 2 (stemnumber = 3)
	-- but i shall rewrite them all, just in case
	local stem = {}
	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)			-- νεανί  λαγοθήρ
	stem["θ0"] = m_stems.word0(stem["θ"])					-- νεανι  λαγοθηρ
	stem["θπ"] = m_stems.OxiaToPerispomeni(stem["θ"])		-- λογοθῆρ

	args['κλίση'] = '1'
	args['αρσ'] = '1'
	args['ομάδα'] = 'νεανίας'
	if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
		if mw.ustring.find(stem["θ"], m_data.vowel_perispomeni) --  vowel+perispomeni 
		then
			args['κατηγ0'] = 'Λέξεις προπερισπώμενες'
			args['υποκατ01'] = 'προπερισπώμενα'
			args['υποκατ02'] = 'αρσενικά προπερισπώμενα'
		else
			args['κατηγ0'] = 'Λέξεις παροξύτονες'
			args['υποκατ01'] = 'παροξύτονα'
			args['υποκατ02'] = 'αρσενικά παροξύτονα'
		end
	else
		args['κατηγ0'] = 'Λέξεις παροξύτονες'
		args['υποκατ01'] = 'παροξύτονα'
		args['υποκατ02'] = 'αρσενικά παροξύτονα'
	end
-- if mw.ustring.find(stem["θ"], dichrona(dichr)['μ']) then return errorhere('*Κλίση: Θα πρέπει να ορίσουμε το δίχρονο φωνήεν.....................
-- if not mw.ustring.find(args['λήμμα'], 'ίας') or mw.ustring.find(args['λήμμα'], 'ίαι') --plural [[ἐτησίαι]] 
--PLAN: if the accent is on a
	-- perispomeni is IMPOSSIBLE (because -ας is macron)

	-- on a brachy, then, OKSEIA [[λακέτας]], λακέται
	-- on a macron, then PERISPOMENI at plural [[-θήρας]], θῆραι
	-- on a dicrhonon
		-- if it is -ίας, -ίδας and their plural = brachy
		-- if in a diphthong = macron, get PERISPOMENH
		-- if ambiguous editor must
			-- |δίχρ=β (all the -ίας ίδας and their plurals)
			-- |δίχρ=μ
			-- |δίχρ=? unknown prosody + its Category [[βύας]]
			-- if nothing, give error +its Category
	
-- 1) if brachy all probalbe and improbable brachy+okseia e.g. [[λακέτας]]
if mw.ustring.find(stem["θ"], m_data.brachy_oxeia) -- brachy+okseia or vareia
	then
		args['κατηγορία κλίσης'] = 'νεανίας'
		args['τύπος'] = 'νεανίας'
		args['όπως'] = 'νεανίας'
		args['mod-οπθ'] = stem["θ"]	args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θ"]	args['mod-κπ'] = "αι"
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν" 

-- 2) else if macron+okseia or diphtong
elseif mw.ustring.find(stem["θ"], m_data.macron_oxeia) -- macron+okseia or vareia
	-- or pluralia have perispomeni:
	or mw.ustring.find(stem["θ"], m_data.vowel_perispomeni) --  vowel+perispomeni 
	then
	-- plural singular gets perispomeni -- check pluarlia tantum e.g. λογοθῆραι
		args['κατηγορία κλίσης'] = 'λογοθήρας'
		args['τύπος'] = 'λογοθήρας'
		args['όπως'] = 'λογοθήρας'	
		args['mod-οπθ'] = stem["θπ"]	args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θπ"]	args['mod-κπ'] = "αι"
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν" 
		
-- 3) -- elsif find a dichronon+okseia but except in diphthongs (and -ίας, -ίδας)
elseif mw.ustring.find(stem["θ"], m_data.dichronon_oxeia) -- dicrhonon+okseia or vareia
	then

	--EXCEPTION1 -ίας, -ίδας always brachy, CAREFUL: not είας είδας, diphthongs.  [[νεανίας]] [[Βρασίδας]]
		if mw.ustring.find(args['λήμμα'], 'ίας') or mw.ustring.find(args['λήμμα'], 'ίαι')
		or mw.ustring.find(args['λήμμα'], 'ΐας') or mw.ustring.find(args['λήμμα'], 'ΐαι')
		or mw.ustring.find(args['λήμμα'], 'ίδας') or mw.ustring.find(args['λήμμα'], 'ίδαι')
		or mw.ustring.find(args['λήμμα'], 'ΐδας') or mw.ustring.find(args['λήμμα'], 'ΐδαι')
		then
			-- but NOT in diphthongs (also impossible ones)
			--  see [[Αἰνείας]] macron if i write: or mw.ustring.find(stem["θ"], '[αΑεΕηΗοΟ][ίὶῖἴἲἶἵἳἷΊῚἼἺἾἽἻἿύὺῦὔὒὖὑὕὓὗΎῪὝὛὟ]') -- not dialytics ΐῒῗΰῢῧ
			if  mw.ustring.find(stem["θ"], m_data.diphthong_tonos) -- diphthong+tonos (okseia, vareia, perispomeni) not dialytics ΐῒῗΰῢῧ
			then
				args['κατηγορία κλίσης'] = 'λογοθήρας'
				args['τύπος'] = 'λογοθήρας'
				args['όπως'] = 'λογοθήρας'	
				args['mod-οπθ'] = stem["θπ"]	args['mod-οπ'] = "αι"
				args['mod-κπθ'] = stem["θπ"]	args['mod-κπ'] = "αι"
				args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
			end -- close if diphthong at -ίας
			
		args['δίχρ'] = 'β'
		args['mod-σημ'] = 'Το φωνήεν της παραλήγουσας είναι βραχύ.'
		args['κατηγορία κλίσης'] = 'νεανίας'
		args['τύπος'] = 'νεανίας'
		args['όπως'] = 'νεανίας'
		args['mod-οπθ'] = stem["θ"]	args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θ"]	args['mod-κπ'] = "αι"
		-- γπ ΕΞΑΙΡΕΣΗ: check pl.tantum [[ἐτησίαι]] τῶν ἐτησίων
			if args['λήμμα'] == 'ἐτησίαι' or args['λήμμα'] == 'ἐτησίας'
			or PAGENAME == 'ἐτησίαι' or PAGENAME == 'ἐτησίας'
			then -- LOCKED editors cannot change
				args['εξ'] = '1'	-- Category, exceptions
				args['γπθ'] = "ἐτησί"	args['γπ'] = "ων"
				args['γπΛκειμ'] = '<sup>*</sup>'
				args['σημ'] = "* Εξαίρεση της 1ης κλίσης: τῶν ἐτησίων<br>&nbsp;η γενική πληθυντικού "
				.. "<b>δεν</b> τονίζεται στη λήγουσα.<br>"
				.. "Το δίχρονο φωνήεν της παραλήγουσας είναι βραχύ."
    		else
		    	args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν" 
			end		

	--EXCEPTION2 if diphthongs
	elseif mw.ustring.find(stem["θ"], m_data.diphthong_tonos) -- diphthong+tonos (okseia, vareia, perispomeni)  not dialytics ΐῒῗΰῢῧ
	then
				args['κατηγορία κλίσης'] = 'λογοθήρας'
				args['τύπος'] = 'λογοθήρας'
				args['όπως'] = 'λογοθήρας'	
				args['mod-οπθ'] = stem["θπ"]	args['mod-οπ'] = "αι"
				args['mod-κπθ'] = stem["θπ"]	args['mod-κπ'] = "αι"
				args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"

	elseif args['δίχρ'] == 'β' 
	then -- check [[Ἀννίβας]]
		args['mod-σημ'] = 'Το φωνήεν της παραλήγουσας είναι βραχύ.'
		args['κατηγορία κλίσης'] = 'νεανίας'
		args['τύπος'] = 'νεανίας'
		args['όπως'] = 'νεανίας'
		args['mod-οπθ'] = stem["θ"]	args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θ"]	args['mod-κπ'] = "αι"
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
	elseif args['δίχρ'] == 'μ' then -- make perispomeni
		args['mod-σημ'] = 'Το φωνήεν της παραλήγουσας είναι μακρό.'
		args['κατηγορία κλίσης'] = 'λογοθήρας'
		args['τύπος'] = 'λογοθήρας'
		args['όπως'] = 'λογοθήρας'
		args['mod-οπθ'] = stem["θπ"]	args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θπ"]	args['mod-κπ'] = "αι"
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
	elseif args['δίχρ'] == '?' then
		args['κατηγορία κλίσης'] = "νεανίας"
       	args['τύπος'] = '-'
		args['όπως'] = 'νεανίας'
       	if args['α'] ~= 'εν' and args['α'] ~= 'ενδ' and args['α2'] ~= 'εν' and args['α2'] ~= 'ενδ' then
       	args['σημ'] = '<span style="color:red;">Δεν</span> υπάρχουν πληροφορίες για την προσωδία<br>του δίχρονου φωνήεντος στην παραλήγουσα.<br><span style="color:red;">Δεν</span> γνωρίζουμε πώς τονίζεται η ονομαστική πληθυντικού.'
       	end
		args['κατηγ02'] = "Λέξεις με άγνωστη προσωδία"
		args['κατηγ03'] = "Ουσιαστικά που κλίνονται όπως η ομάδα 'νεανίας' με άγνωστη προσωδία"
		args['οπΛ'] = '...<span style="color:red;">?</span>...αι' -- LOCKED
		args['κπΛ'] = '...<span style="color:red;">?</span>...αι' -- LOCKED
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
		
	-- if the editor does nothing, ERROR.
	elseif args['δίχρ'] ~= 'β' and args['δίχρ'] ~= 'μ' and args['δίχρ'] ~= '?'
	or (args['δίχρ'] == '' or args['δίχρ'] == nil)
	then
		return error_dichr(errordichrstring) -- cf error fucntions at Module
	end -- close if |δίχρ=
end -- close if brachy, if macron...	
-- common cases for ALL
		args['mod-οεθ'] = stem["θ"]	args['mod-οε'] = "ας"	args['mod-οε+'] = "ᾱς"
		args['mod-γεθ'] = stem["θ"]	args['mod-γε'] = 'ου'
		args['mod-δεθ'] = stem["θ"]	args['mod-δε'] = 'ᾳ'
		args['mod-αεθ'] = stem["θ"]	args['mod-αε'] = "αν"	args['mod-αε+'] = "ᾱν"
		-- [[λαγοθήρας]] has irr.voc.sg
		if args['λήμμα'] == 'λαγοθήρας' then
			args['mod-κεθ'] = args['mod-κεθ']
			args['mod-κε'] = args['mod-κε'] 
			args['mod-κε+'] = args['mod-κε+']
		 else args['mod-κεθ'] = stem["θ"] args['mod-κε'] = "α"args['mod-κε+'] = "ᾱ"
		 end
		-- οπ, γπ above
		args['mod-δπθ'] = stem["θ"]	args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ"]	args['mod-απ'] = "ας"	args['mod-απ+'] = "ᾱς"
		-- κπ above
		args['mod-οδθ'] = stem["θ"]	args['mod-οδ'] = "α"	args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ"]	args['mod-γδ'] = "αιν"
return decl(args)
end



--  ======================= 1η κλίση [[ψυχή]] ===================================== --
export['ψυχή'] = function(frame)		-- [[Πρότυπο:grc-κλίση-'ψυχή']]
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" ) 
		else lemma = args['λήμμα']
	end
-- stems
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then
     	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) -- rewrite default stemnumber = 3 (μείον 2)
    else
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2) -- override default stemnumber = 3 (μείον 2)
    end
	args['κλίση'] = '1'
	args['θηλ'] = '1'
	args['κατηγορία κλίσης'] = 'ψυχή'
	args['τύπος'] = 'ψυχή'
	args['όπως'] = 'ψυχή'
	args['κατηγ0'] = 'Λέξεις οξύτονες'
	args['υποκατ01'] = 'οξύτονα'
	args['υποκατ02'] = 'θηλυκά οξύτονα'
	-- rewrite all stems: There was a problem for pluralia  -- check [[Παγαί]]
	args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "ή"
	args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = 'ῆς'
    args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = 'ῇ'
    args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "ήν"
    args['mod-κεθ'] = stem["θ"]		args['mod-κε'] = "ή"
    args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αί"
    args['mod-γπθ'] = stem["θ"]		args['mod-γπ'] = "ῶν"
    args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αῖς"
    args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "άς"	args['mod-απ+'] = "ᾱ́ς"
    args['mod-κπθ'] = stem["θ"]		args['mod-κπ'] = "αί"
    args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "ά"	args['mod-οδ+'] = "ᾱ́"
    args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αῖν"
return decl(args)
end


-- group γνώμη EDITOR_MUST_DEFINE δίχρ=
--  ======================= 1η κλίση [[γνώμη]] [[βελόνη]]  [[νίκη]] (ῑ) [[δίκη]] (ῐ) =====================================
-- 1η κλίση παροξύτονα  θηλυκό -η
-- [[γνώμη]] μακρά παραλήγουσα -- [[βελόνη]] βραχεία παραλήγουσα
-- δεν υπάρχουν προπαροξύτονα (λόγο της μακράς λήγουσας)
-- check [[λόχμη]] (γπ2=αισι ν2=1)
-- ===============================================================================
export['γνώμη'] = function(frame)		-- [[Πρότυπο:grc-κλίση-'γνώμη']]
    local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" )	-- αφαίρεση κενών στην αρχή και στο τέλος. Υπάρχει σε όλα τα Module.
		else lemma = args['λήμμα']
	end
-- stems
	local stem = {}
	-- check [[Ἀθῆναι]]
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) -- rewrite default stemnumber = 3 (μείον 2)
    else
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2) -- override default stemnumber = 3 (μείον 2)
    end

    args['κλίση'] = '1'
    args['θηλ'] = '1'
    args['ομάδα'] = 'γνώμη'
    -- κατηγορία κλίσης below
    
    stem["θ0"] = m_stems.word0(stem["θ"])					-- γνωμ βελον
	stem["θπ"] = m_stems.OxiaToPerispomeni(stem["θ"])		-- γνῶμ
	
--PLAN: if the accent is on a
	-- perispomeni is IMPOSSIBLE (because -η is macron)

	-- on a brachy, then, OKSEIA [[βελόνη]], βελόναι / ἀχαιΐνη, ης (ἡ) [ᾰῐν] 
	-- on a macron, then PERISPOMENI at plural [[γνώμη]], γνῶμαι
	-- on a dicrhonon
		-- if in a diphthong = macron, get PERISPOMENH  Ionic.[[πείνη]] πεῖναι --βλ. και [[πεῖνα]]
		-- if ambiguous editor must
			-- |δίχρ=β
			-- |δίχρ=μ
			-- |δίχρ=? unknown prosody + its Category [[βύας]]
			-- |δίχρ=αβέβαιο π.χ. [[φλάσκη]]
			-- if nothing, give error +its Category
	
-- 1) if brachy all probalbe and improbable brachy+okseia e.g. [[βελόνη]], βελόναι / ἀχαιΐνη, ης (ἡ) [ᾰῐν] 
if mw.ustring.find(stem["θ"], m_data.brachy_oxeia) -- brachy+okseia or vareia
	then -- plural keeps OKSEIA
		args['κατηγορία κλίσης'] = 'βελόνη'
		args['τύπος'] = 'βελόνη'
		args['όπως'] = 'βελόνη'
		args['κατηγ0'] = 'Λέξεις παροξύτονες'
		args['υποκατ01'] = 'παροξύτονα'
		args['υποκατ02'] = 'θηλυκά παροξύτονα'
		args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θ"]		args['mod-κπ'] = "αι"
-- 2) else if macron+okseia or diphtong
elseif mw.ustring.find(stem["θ"], m_data.macron_oxeia) -- macron+okseia or vareia
	then -- plural singular gets perispomeni
		args['κατηγορία κλίσης'] = 'γνώμη'
		args['τύπος'] = 'γνώμη'
		args['όπως'] = 'γνώμη'
		if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
			args['κατηγ0'] = 'Λέξεις προπερισπώμενες'
			args['υποκατ01'] = 'προπερισπώμενα'
			args['υποκατ02'] = 'θηλυκά προπερισπώμενα'
		else
			args['κατηγ0'] = 'Λέξεις παροξύτονες'
			args['υποκατ01'] = 'παροξύτονα'
			args['υποκατ02'] = 'θηλυκά παροξύτονα'
		end		
		args['mod-οπθ'] = stem["θπ"]	args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θπ"]	args['mod-κπ'] = "αι"
-- vowel+perismpomeni, keep it -- check [[Ἀθῆναι]]
elseif mw.ustring.find(stem["θ"], m_data.vowel_perispomeni) -- macron when vowel+perispomeni 
	then
		args['κατηγορία κλίσης'] = 'γνώμη'
		args['τύπος'] = 'γνώμη'
		args['όπως'] = 'γνώμη'
		args['κατηγ0'] = 'Λέξεις προπερισπώμενες'
		args['υποκατ01'] = 'προπερισπώμενα'
		args['υποκατ02'] = 'θηλυκά προπερισπώμενα'
		args['mod-οπθ'] = stem["θ"]	args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θ"]	args['mod-κπ'] = "αι"
-- 3) -- elsif find ambiguous dichronon(+okseia, dialytics included) but except in diphthongs (not dialytics)
elseif mw.ustring.find(stem["θ"], m_data.dichronon_oxeia) -- dicrhronon+okseia or vareia
	then
	--  if diphthongs
	if mw.ustring.find(stem["θ"], m_data.diphthong_tonos) -- diphthong+tonos (okseia, vareia, perispomeni) not dialytics ΐῒῗΰῢῧ
	then -- plural perispomeni
		args['κατηγορία κλίσης'] = 'γνώμη'
		args['τύπος'] = 'γνώμη'
		args['όπως'] = 'γνώμη'
		if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
			args['κατηγ0'] = 'Λέξεις προπερισπώμενες'
			args['υποκατ01'] = 'προπερισπώμενα'
			args['υποκατ02'] = 'θηλυκά προπερισπώμενα'
		else
			args['κατηγ0'] = 'Λέξεις παροξύτονες'
			args['υποκατ01'] = 'παροξύτονα'
			args['υποκατ02'] = 'θηλυκά παροξύτονα'
		end	
		args['mod-οπθ'] = stem["θπ"]	args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θπ"]	args['mod-κπ'] = "αι"
	elseif args['δίχρ'] == 'β'		-- [[δίκη]] ῐ
	then
		args['mod-σημ'] = 'Το φωνήεν της παραλήγουσας είναι βραχύ.'
		args['κατηγορία κλίσης'] = 'δίκη'
		args['τύπος'] = 'δίκη'
		args['όπως'] = 'βελόνη'
		args['κατηγ0'] = 'Λέξεις παροξύτονες'
		args['υποκατ01'] = 'παροξύτονα'
		args['υποκατ02'] = 'θηλυκά παροξύτονα'
		args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θ"]		args['mod-κπ'] = "αι"
	elseif args['δίχρ'] == 'μ'		-- [[νίκη]]
	then
		args['mod-σημ'] = 'Το φωνήεν της παραλήγουσας είναι μακρό.'
		args['κατηγορία κλίσης'] = 'νίκη'
		args['τύπος'] = 'νίκη'
		args['όπως'] = 'γνώμη'
		    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
				args['κατηγ0'] = 'Λέξεις προπερισπώμενες'
				args['υποκατ01'] = 'προπερισπώμενα'
				args['υποκατ02'] = 'θηλυκά προπερισπώμενα'
			else
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'θηλυκά παροξύτονα'
			end	
		args['mod-οπθ'] = stem["θπ"]	args['mod-οπ'] = "αι"
		args['mod-κπθ'] = stem["θπ"]	args['mod-κπ'] = "αι"
-- αβέβαιο = assumed brachy especially for Koine e.g. [[φλάσκη]]
	elseif args['δίχρ'] == 'αβέβαιο' then
		args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αι"	args['mod-οπΛκειμ'] = '*?'
		args['mod-κπθ'] = stem["θ"]		args['mod-κπ'] = "αι"	args['mod-κπΛκειμ'] = '*?'
		args['κατηγορία κλίσης'] = 'δίκη'
		args['τύπος'] = 'δίκη'
		args['όπως'] = 'βελόνη'
		args['κατηγ02'] = "Λέξεις με αβέβαιη προσωδία"
		args['κατηγ03'] = "Ουσιαστικά που κλίνονται όπως η ομάδα 'γνώμη' με αβέβαιη προσωδία"
		args['κατηγ04'] = "Ουσιαστικά που κλίνονται όπως το 'δίκη' με αβέβαιη προσωδία"
	    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
		   	-- write nothgin nothing
	    else
			args['mod-σημ'] = '* Η προσωδία για το δίχρονο φωνήεν της παραλήγουσας είναι <span style="color:red;">αβέβαιη</span>.<br>Αν είναι βραχύ, ο πληθυντικός οξύνεται. Αν είναι μακρό, περισπάται.'
		end
	elseif args['δίχρ'] == '?' then
		args['τύπος'] = 'γνώμη' -- not '-'
		args['όπως'] = 'γνώμη'
		args['κατηγ02'] = "Λέξεις με άγνωστη προσωδία"
		args['κατηγ03'] = "Ουσιαστικά που κλίνονται όπως η ομάδα 'γνώμη' με άγνωστη προσωδία"
		    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
		   	-- write nothing
		    else
		   	args['κατηγ0'] = 'Λέξεις παροξύτονες'
			args['υποκατ01'] = 'παροξύτονα'
			args['υποκατ02'] = 'θηλυκά παροξύτονα'
		    end	
       	if args['α'] ~= 'εν' and args['α'] ~= 'ενδ' and args['α2'] ~= 'εν' and args['α2'] ~= 'ενδ' then
       	args['σημ'] = '<span style="color:red;">Δεν</span> υπάρχουν πληροφορίες για την προσωδία<br>του δίχρονου φωνήεντος στην παραλήγουσα.<br><span style="color:red;">Δεν</span> γνωρίζουμε πώς τονίζεται η ονομαστική πληθυντικού.'
		args['κατηγορία κλίσης'] = "γνώμη"
       	args['τύπος'] = '-'
		args['όπως'] = 'γνώμη'
		end
		args['οπΛ'] = '...<span style="color:red;">?</span>...αι' -- LOCKED
		args['κπΛ'] = '...<span style="color:red;">?</span>...αι' -- LOCKED
	-- if the editor does nothing, ERROR.
	elseif args['δίχρ'] ~= 'β' and args['δίχρ'] ~= 'μ' and args['δίχρ'] ~= '?'  and args['δίχρ'] ~= 'αβέβαιο'
	or (args['δίχρ'] == '' or args['δίχρ'] == nil)
	then
		return error_dichr(errordischrstring)		-- at Module, section errors Check [[ἀμφιλύκη]]
	end -- close if |δίχρ=	
		
end -- close if brachy, if macron, if dichronon		
-- cases for ALL
		-- rewrite all stems: There was a problem for pluralia  -- check [[Ἀθῆναι]]
		args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "η"
		args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = 'ης'
		args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = "ῃ"
		args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "ην"
		args['mod-κεθ'] = stem["θ"]		args['mod-κε'] = "η"
		-- οπ above and
			if args['λήμμα'] == '-η' then	args['mod-οπ'] = "αι"	args['mod-κπ'] = "αι" end
		args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν" 
		args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ας"	args['mod-απ+'] = "ᾱς"
		-- κπ above
		args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "α"	args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αιν"
return decl(args)
end



--  ======================= 1η κλίση [[περισπωμένη]] =====================================
-- 1η κλίση παροξύτονα  θηλυκό --μένη, ουσιαστικοποιημένες μετοχές, substantivized participle fem
-- ===============================================================================
export['περισπωμένη'] = function(frame)		-- [[Πρότυπο:grc-κλίση-'περισπωμένη']]
    local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" )	-- αφαίρεση κενών στην αρχή και στο τέλος. Υπάρχει σε όλα τα Module.
		else lemma = args['λήμμα']
	end
-- stems
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then 
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)	-- περισπώμεν-ες -- rewrite default stemnumber = 3 (μείον 2)
    	args['κατηγ0'] = 'Λέξεις προπαροξύτονες'
		args['υποκατ01'] = 'προπαροξύτονα'
		args['υποκατ02'] = 'θηλυκά προπαροξύτονα'
    else
    	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2)	-- περισπωμέν-η
    	args['κατηγ0'] = 'Λέξεις παροξύτονες'
		args['υποκατ01'] = 'παροξύτονα'
		args['υποκατ02'] = 'θηλυκά παροξύτονα'
    end
    
	stem["θ0"] = m_stems.word0(stem["θ"])			-- περισπωμεν
	stem["θ1"] = m_stems.word1(stem["θ0"])			-- περισπωμέν
	stem["θ2"] = m_stems.word2(stem["θ0"])			-- περισπώμεν
	
	args['κλίση'] = '1'
	args['θηλ'] = '1'
	args['κατηγορία κλίσης'] = 'περισπωμένη'
	args['τύπος'] = 'περισπωμένη'
	args['όπως'] = 'περισπωμένη'

	args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "η"
	args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = 'ης'
	args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = "ῃ"
	args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "ην"
	args['mod-κεθ'] = stem["θ"]		args['mod-κε'] = "η"
	args['mod-οπθ'] = stem["θ2"]	args['mod-οπ'] = "αι" 
	args['mod-γπθ'] = stem["θ"]		args['mod-γπ'] = "ων" 
	args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αις"
	args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ας"	args['mod-απ+'] = "ᾱς"
	args['mod-κπθ'] = stem["θ2"]	args['mod-κπ'] = "αι" 
	args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "α"	args['mod-οδ+'] = "ᾱ"
	args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αιν"
return decl(args)
end


--  ======================= 1η κλίση [[ποιητής]] ===================================== --
export['ποιητής'] = function(frame)	-- [[Πρότυπο:grc-κλίση-'ποιητής']]
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or '' --do not change
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" )	-- αφαίρεση κενών στην αρχή και στο τέλος. Υπάρχει σε όλα τα Module.
		else lemma = args['λήμμα']
	end
-- stem is DEFAULT --  singular=plural. Default stem ok. minus 2 letters, args['μείον'] = 2 (stemnumber = 3)
	local stem = {}
	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)	
	args['κλίση'] = '1'
	args['αρσ'] = '1'
	args['κατηγορία κλίσης'] = 'ποιητής'
	args['τύπος'] = 'ποιητής'
	args['όπως'] = 'ποιητής'
	args['κατηγ0'] = 'Λέξεις οξύτονες'
	args['υποκατ01'] = 'οξύτονα'
	args['υποκατ02'] = 'αρσενικά οξύτονα'
-- no need to rewrite the stem
	args['mod-οεθ'] = stem["θ"]	args['mod-οε'] = "ής"
	args['mod-γεθ'] = stem["θ"]	args['mod-γε'] = 'οῦ'
	args['mod-δεθ'] = stem["θ"]	args['mod-δε'] = 'ῇ'
	args['mod-αεθ'] = stem["θ"]	args['mod-αε'] = "ήν"
	args['mod-κεθ'] = stem["θ"]	args['mod-κε'] = "ά"	args['mod-κε+'] = "ᾰ́"
	args['mod-οπθ'] = stem["θ"]	args['mod-οπ'] = "αί"
	args['mod-γπθ'] = stem["θ"]	args['mod-γπ'] = "ῶν"
	args['mod-δπθ'] = stem["θ"]	args['mod-δπ'] = "αῖς"
	args['mod-απθ'] = stem["θ"]	args['mod-απ'] = "άς"	args['mod-απ+'] = "ᾱ́ς"
	args['mod-κπθ'] = stem["θ"]	args['mod-κπ'] = "αί"
	args['mod-οδθ'] = stem["θ"]	args['mod-οδ'] = "ά"	args['mod-οδ+'] = "ᾱ́"
	args['mod-γδθ'] = stem["θ"]	args['mod-γδ'] = "αῖν"
return decl(args)
end


-- EDITOR_MUST_DEFINE δίχρ=
-- groups στρατιώτης * Ἀτρείδης = PLUS SUPERcat [[:Κατηγορία:Ουσιαστικά που κλίνονται όπως τα -ης (αρχαία ελληνικά)]]
--  ================ 1η κλίση [[στρατιώτης]]/[[τοξότης]]& [[Ἀτρείδης]]/[[Κρονίδης]] ========================
--[=[
-- κλητική σε -ᾰ κατηγορία κλίσης στρατιώτης οπθ ΠΕΡΙΣΠΩΜΕΝΗ  [[στρατιῶται]]
-- τοξότης οπθ ΟΞΕΙΑ και τα δίχρονα βραχέα	-- και -της, + εθνικά  -πώλης, -ώνης  -άρχης, -μέτρης, -τρίβης
-- κλητική σε -η ομάαδα Ἀτρείδης -- Ἀτρείδης οπθ ΠΕΡΙΣΠΩΜΕΝΗ [[Ἀτρεῖδαι]] -- Κρονίδης οπθ ΟΞΕΙΑ
-- ΑΓΝΩΣΤΟ ΔΙΧΡΟΝΟ ?  [[:Κατηγορία:Λέξεις με άγνωστη προσωδία (αρχαία ελληνικά)]]
]=]--
-- =================================================================================
export['στρατιώτης'] = function(frame)	-- [[Πρότυπο:grc-κλίση-'στρατιώτης']]
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" )	-- αφαίρεση κενών στην αρχή και στο τέλος. Υπάρχει σε όλα τα Module.
		else lemma = args['λήμμα']
	end
-- stem is  DEFAULT --  singular=plural. Default stem ok. minus 2 letters, args['μείον'] = 2 (stemnumber = 3)
-- but i write it, to have a clear view the whole word
	-- ## ΕΚΚΡΕΜΟΤΗΤΑ για pluralia παροξύτονα ή προπερισπώμενα
	local stem = {}

	stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)		-- στρατιώτ
	stem["θ0"] = m_stems.word0(stem["θ"])				-- στρατιωτ
	stem["θ1"] = m_stems.word1(stem["θ0"])				-- στρατιώτ
	stem["θ1ο"] = m_stems.PerispomeniToOxia(stem["θ"])	-- if I am at the plural page στρατιῶται, 
				-- -εῖδαι and wish to show full table
    			-- no,... there is no condiction for it. Better write λήμμα=στρατιώτης
	stem["θ1π"] = m_stems.OxiaToPerispomeni(stem["θ"])		-- στρατιῶτ

--	args['ομάδα'] = 'στρατιώτης' -- see blow 2 groups
    args['κλίση'] = '1'
    args['αρσ'] = '1'
    args['υποκατ0'] = 'που κλίνονται όπως τα -ης' -- supergroup
-- accent
	if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then
		if mw.ustring.find(stem["θ"], m_data.vowel_perispomeni) --  vowel+perispomeni 
		then
		   	args['κατηγ0'] = 'Λέξεις προπερισπώμενες'
			args['υποκατ01'] = 'προπερισπώμενα'
			args['υποκατ02'] = 'αρσενικά προπερισπώμενα'
		else
		   	args['κατηγ0'] = 'Λέξεις παροξύτονες'
			args['υποκατ01'] = 'παροξύτονα'
			args['υποκατ02'] = 'αρσενικά παροξύτονα'
		end
	else -- singular always paroxytone
		   	args['κατηγ0'] = 'Λέξεις παροξύτονες'
			args['υποκατ01'] = 'παροξύτονα'
			args['υποκατ02'] = 'αρσενικά παροξύτονα'
	end
   
-- Control proparoxytones: there are NO προπαροξύτονα (λήγουσα = μακρά)
-- ................
-- cases κε, οπ need to be written AFTER all conditions
-- common cases for ALL
		args['mod-οεθ'] = stem["θ"]	args['mod-οε'] = "ης"
		args['mod-γεθ'] = stem["θ"]	args['mod-γε'] = 'ου'
		args['mod-δεθ'] = stem["θ"]	args['mod-δε'] = 'ῃ'
		args['mod-αεθ'] = stem["θ"]	args['mod-αε'] = 'ην'
-- κεθ, κε DO NOT WRITE HERE. Write UNDER the conditions for οπθ
		args['mod-οπθ'] = stem["θ"]	args['mod-οπ'] = "αι"	-- οπθ
		args['mod-γπθ'] = stem["θ"]	args['mod-γπθ'] = stem["θ0"]	args['mod-γπ'] = "ῶν"
		args['mod-δπθ'] = stem["θ"]	args['mod-δπ'] = "αις"
		args['mod-απθ'] = stem["θ"]	args['mod-απ'] = "ας"			args['mod-απ+'] = "ᾱς"
		-- args['mod-κπθ'] = args['mod-οπθ'] cf οπθ	
		args['mod-κπθ'] = stem["θ"]	args['mod-κπ'] = args['mod-οπ']			-- same as nom κπ = οπ above
		args['mod-οδθ'] = stem["θ"]	args['mod-οδ'] = "α"			args['mod-οδ+'] = "ᾱ"
		args['mod-γδθ'] = stem["θ"]	args['mod-γδ'] = "αιν"		
-- οπθ:		
-- ===================== define accented syllable as macron, brachy or ambiguous
-- It works, only when i write here, and cannot with args['λήμμα']
-- DO NOT WRITE THIS HERE prosody = ""
-- brachy+oxia/varia
	if mw.ustring.find(stem["θ"], m_data.brachy_oxeia) then prosody = 'βραχύ' end -- brachy+okseia or vareia
-- macron
	if mw.ustring.find(args['λήμμα'], m_data.vowel_perispomeni) -- any vowel+perispomeni
	or mw.ustring.find(args['λήμμα'], m_data.macron_oxeia) -- marcon+okseia or vareia
	then
	prosody = 'μακρό'
	end
-- ambiguous dicrhona α ι υ Return: unknown
	if mw.ustring.find(args['λήμμα'], m_data.dichronon_oxeia) -- dichronon+okseia or vareia -- all ambiguous accented (NOT perispomeni, NOT subscript iota)
	then
		--but not in diphthong
		if mw.ustring.find(args['λήμμα'], m_data.diphthong_tonos) -- diphthong+tonos (okseia, vareia, perispomeni) not dialytics ΐῒῗΰῢῧ
		then prosody = 'μακρό'
		else
			-- standard brachy
			if mw.ustring.find(args['λήμμα'], 'ίδης') or mw.ustring.find(args['λήμμα'], 'ίδαι') -- [[Κρονίδης]] but not diphthongs like [[Ἀτρείδης]]
			or mw.ustring.find(args['λήμμα'], 'ΐδης') or mw.ustring.find(args['λήμμα'], 'ΐδαι') -- ?
			-- more? is -άδης always brachy
			then
				prosody = 'βραχύ'
			else
				prosody = 'άγνωστο'
			end
		end
	end
	
-- ================ define vocative singular	
if mw.ustring.find(args['λήμμα'], 'της$') or mw.ustring.find(args['λήμμα'], 'ται$') -- ### check if there are irrelevant words
or args['εθν'] == '1' -- ethnic names Πέρσης, Σκύθης
-- add pluralsa, if declension is at the plural page
-- or args['λήμμα'] == 'Πέρσης' or args['λήμμα'] == 'Πέρσαι' --  as male name, vocative Πέρση
or args['λήμμα'] == 'Σκύθης' or args['λήμμα'] == 'Σκύθαι' -- @Bailly2020: ῠ = οἱ Σκύθαι
or mw.ustring.find(args['λήμμα'], 'άρχης$') or mw.ustring.find(args['λήμμα'], 'άρχαι$') -- brachy ά
or mw.ustring.find(args['λήμμα'], 'μέτρης$') or mw.ustring.find(args['λήμμα'], 'μέτραι$')
or mw.ustring.find(args['λήμμα'], 'πώλης$') or mw.ustring.find(args['λήμμα'], 'πῶλαι$')
or mw.ustring.find(args['λήμμα'], 'τρίβης$') or mw.ustring.find(args['λήμμα'], 'τρίβαι$') -- brachy ι
or mw.ustring.find(args['λήμμα'], 'ώνης$') or mw.ustring.find(args['λήμμα'], 'ῶναι$')
-- is there more?
then
	voc = 'alpha'
    args['ομάδα'] = 'στρατιώτης'
else
	voc = 'eta'
	args['ομάδα'] = 'Ἀτρείδης'
end

	if prosody == 'βραχύ' then
		args['mod-οπθ'] = stem["θ"] 
		args['mod-κπθ'] = stem["θ"] 
	end
	if prosody == 'μακρό' then
		args['mod-οπθ'] = stem["θ1π"] 
		args['mod-κπθ'] = stem["θ1π"]
		end -- check pluralia with |α=πλ
	if prosody == 'άγνωστο' then
		if args['δίχρ'] == 'β'
		or mw.ustring.find(args['λήμμα'], 'άρχης$') or mw.ustring.find(args['λήμμα'], 'άρχαι$') -- brachy ά
		or mw.ustring.find(args['λήμμα'], 'τρίβης$') or mw.ustring.find(args['λήμμα'], 'τρίβαι$') -- brachy ι
		--  fix -ίδης NOT in diphthong [[Κρονίδης]]
		then
			prosody = 'βραχύ' -- get the Categories in Appendix check [[γυμνασιάρχης]]
			args['mod-οπθ'] = stem["θ"] -- brachy
			args['mod-κπθ'] = stem["θ"]
			args['mod-σημ'] = 'Το δίχρονο φωνήεν της παραλήγουσας είναι βραχύ.'
		elseif args['δίχρ'] == 'μ' then
			prosody = 'μακρό' -- get the Categories in Appendix check [[πολίτης]]
			args['mod-οπθ'] = stem["θ1π"] -- macron -- check pluralia with |α=πλ
			args['mod-κπθ'] = stem["θ1π"]
			args['mod-σημ'] = 'Το δίχρονο φωνήεν της παραλήγουσας είναι μακρό.'
		-- no info from dictionaries
		elseif args['δίχρ'] == '?' then
			args['mod-οπθ'] = args['mod-οπΛ']
			args['mod-οπ'] = args['mod-οπΛ']
			args['οπΛ'] = '...<span style="color:red;">?</span>...αι' -- LOCKED
			args['mod-κπθ'] = args['mod-κπΛ']
			args['mod-κπ'] = args['mod-κπΛ']
			args['κπΛ'] = '...<span style="color:red;">?</span>...αι' -- DO NOT WRITE args['οπΛ']  -- check [[ταυροκαθάπτης]]
--    		if args['α'] ~= 'εν' and args['α'] ~= 'ενδ' and args['α2'] ~= 'εν' and args['α2'] ~= 'ενδ' then
       	args['σημ'] = '<span style="color:red;">Δεν</span> υπάρχουν πληροφορίες για την προσωδία<br>του δίχρονου φωνήεντος στην παραλήγουσα ώστε να γίνει σωστά ο τονισμός.'
--       		end
--			args['όπως'] = -- see at vocative
		args['κατηγορία κλίσης'] = "στρατιώτης"
       	args['τύπος'] = '-'
		args['κατηγ02'] = "Λέξεις με άγνωστη προσωδία"
		args['κατηγ03'] = "Ουσιαστικά που κλίνονται όπως η ομάδα 'στρατιώτης' με άγνωστη προσωδία"
		
		-- if the editor does nothing, ERROR.
		elseif args['δίχρ'] ~= 'β' and args['δίχρ'] ~= 'μ' and args['δίχρ'] ~= '?'
		or (args['δίχρ'] == '' or args['δίχρ'] == nil)
		then
			return error_dichr(errordichrstring) -- cf error fucntions at Module
		end -- close if ?
	end -- close unknown prosody

-- write here condictions for vocative singular
-- args['κε'] = ""	
if voc == 'alpha' then
-- EXCEPTION is locked
	if args['λήμμα'] == 'δεσπότης' or args['λήμμα'] == 'δεσπόται' then 
		args['κεθ'] = 'δέσποτ'
		args['κε'] = "α"
		args['κε+'] = "ᾰ"
		args['εξ'] = '1'
		args['κεΛκειμ'] = "<sup>*</sup>"
		args['σημ'] = '* Εξαίρεση κλητικής ενικού με αναβιβασμό του τόνου.'
				args['κατηγορία κλίσης'] = 'τοξότης'
				args['τύπος'] = 'τοξότης'
				args['όπως'] = 'τοξότης'
	else -- cannot put end here. Must continue with else -- check [[ταυροκαθάπτης]]
		if args['δίχρ'] == '?' then 
		args['κατηγορία κλίσης'] = 'στρατιώτης'
		args['-'] = "στρατιώτης"		-- need. check [[ταυροκαθάπτης]]
		args['όπως'] = 'στρατιώτης'
		args['mod-κεθ'] = args['mod-κεΛ']
		args['mod-κε'] = args['mod-κεΛ']
		args['κεΛ'] = '...<span style="color:red;">?</span>...ᾰ' -- LOCKED
			args['παράρτημα'] =  '[[Παράρτημα:Ουσιαστικά (αρχαία ελληνικά)/1|1η κλίση]]'
			.. ", ομάδα «[[:Κατηγορία:Ουσιαστικά που κλίνονται όπως η ομάδα 'στρατιώτης' (αρχαία ελληνικά)|στρατιώτης]]» - " 
    		.. '[[Παράρτημα:Ουσιαστικά (αρχαία ελληνικά)|<span title="Παράρτημα:Ουσιαστικά (αρχαία)">Παράρτημα:Ουσιαστικά</span>]]'
		else
		args['mod-κε'] = "α"		args['mod-κε+'] = "ᾰ"
		args['mod-κεθ'] = args['mod-οπθ']
			if prosody == 'βραχύ' then
				args['κατηγορία κλίσης'] = 'τοξότης'
				args['τύπος'] = 'τοξότης'
				args['όπως'] = 'τοξότης'
			elseif prosody == 'μακρό' then
				args['κατηγορία κλίσης'] = 'στρατιώτης'
				args['τύπος'] = 'στρατιώτης'
				args['όπως'] = 'στρατιώτης'
			end
		end -- close if ?
	end -- close δέσποτα
else -- eta vocative singular
	args['mod-κε'] = "η"		args['mod-κε+'] = "η" -- write again ke+
	args['mod-κεθ'] = stem["θ1"]  -- and stem["θ1ο"] pluaralia like Ἀτρεῖδαι
			if prosody == 'βραχύ' then
				args['κατηγορία κλίσης'] = 'Κρονίδης'
				args['τύπος'] = 'Κρονίδης'
				args['όπως'] = 'Κρονίδης'
			elseif prosody == 'μακρό' then
				args['κατηγορία κλίσης'] = 'Ἀτρείδης'
				args['τύπος'] = 'Ἀτρείδης'
				args['όπως'] = 'Ἀτρείδης'
			elseif prosody == 'άγνωστο' then
				args['κατηγορία κλίσης'] = 'Ἀτρείδης'
				args['τύπος'] = '-'
				args['όπως'] = 'Ἀτρείδης'
			args['παράρτημα'] =  '[[Παράρτημα:Ουσιαστικά (αρχαία ελληνικά)/1|1η κλίση]]'
			.. ", ομάδα «[[:Κατηγορία:Ουσιαστικά που κλίνονται όπως η ομάδα 'Ἀτρείδης' (αρχαία ελληνικά)|Ἀτρείδης]]» - " 
    		.. '[[Παράρτημα:Ουσιαστικά (αρχαία ελληνικά)|<span title="Παράρτημα:Ουσιαστικά (αρχαία)">Παράρτημα:Ουσιαστικά</span>]]'		
			end
end

return decl(args)
end -- close στρατιώτης



 
-- --------------------------ΣΥΝΗΡΗΜΕΝΑ CONTRACTED ----------------------------------- --


--  ======================= 1η κλίση συνηρημένο ? -άα (Ναυσικάα, ενικός) - [[μνᾶ]] ===================================== --
-- ΕΚΚΡΕΜΟΤΗΤΑ ?? να βρεθεί λέξη με -άα + ᾶ (με ενικό και με πληθυντικό)
-- LSJ:  always contracted in Att. /  Ion. nom. pl. μνέαι acc. pl. μνέας   μνέ[ας]  but acc. sg. μνῆν Herod.   gen. μνῆς  gen. pl. μνέων  nom. pl. μνέες f.l. for μνέαι in Luc. Syr.D. 48:—
export['μνα'] = function(frame)-- [[Πρότυπο:grc-κλίση-'μνα']] = μνᾶ
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" ) 
		else lemma = args['λήμμα']
	end
	
	args['κλίση'] = '1'
	args['θηλ'] = '1'
	args['ομάδα'] = 'Ναυσικάα μνᾶ'	
	
-- stems
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then
			if mw.ustring.find(args['λήμμα'], 'άαι$') then -- $ = at the end
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-4)
				args['κατηγορία κλίσης'] = 'Ναυσικάα'
				args['τύπος'] = 'Ναυσικάα'
				args['όπως'] = 'Ναυσικάα'
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'θηλυκά παροξύτονα'
			else -- (not -άαι but -αῖ)
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)
				args['κατηγορία κλίσης'] = 'μνᾶ'
				args['τύπος'] = 'μνᾶ'
				args['όπως'] = 'μνᾶ'
				args['κατηγ0'] = 'Λέξεις περισπώμενες'
				args['υποκατ01'] = 'περισπώμενα'
				args['υποκατ02'] = 'θηλυκά περισπώμενα'
			end
    else --singular
			if mw.ustring.find(args['λήμμα'], 'άα$') then -- $ = at the end
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) --  -άα
				args['κατηγορία κλίσης'] = 'Ναυσικάα'
				args['τύπος'] = 'Ναυσικάα'
				args['όπως'] = 'Ναυσικάα'
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'θηλυκά παροξύτονα'
			else -- (not -άα but -ᾶ)	
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2) --  -ᾶ	
				args['κατηγορία κλίσης'] = 'μνᾶ'
				args['τύπος'] = 'μνᾶ'
				args['όπως'] = 'μνᾶ'
				args['κατηγ0'] = 'Λέξεις περισπώμενες'
				args['υποκατ01'] = 'περισπώμενα'
				args['υποκατ02'] = 'θηλυκά περισπώμενα'
			end
    end
-- only uncontracted, omit contracted
	if args['σνρ'] == '-' or args ['ασυν'] == 'μόνο' then
		if args ['ασυν'] == 'μόνο' then 
			args['υποκατ04'] = "που κλίνονται όπως η ομάδα 'Ναυσικάα μνᾶ' μόνο ασυναίρετα"
			args['mod-σημ'] = 'Μόνο ασυναίρετο.'
		end
	args['mod-οεΛ'] = create_link(stem["θ"] .."άα" .. "", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color(""))
	args['mod-γεΛ'] = create_link(stem["θ"] .."άα" .. "ς", stem_color(stem["θ"]) .. infix_color("αᾱ") .. ending_color("ς"))
	args['mod-δεΛ'] = linkcontrol3((stem["θ"]), "ά", "ᾳ")
	args['mod-αεΛ'] = create_link(stem["θ"] .."άα" .. "ν", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color("ν"))
	args['mod-κεΛ'] = create_link(stem["θ"] .."άα" .. "", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color(""))
	args['mod-οπΛ'] = linkcontrol3((stem["θ"]), "ά", "αι")
	args['mod-γπΛ'] = linkcontrol3((stem["θ"]), "ά", "ῶν")
	args['mod-δπΛ'] = linkcontrol3((stem["θ"]), "ά", "αις")
	args['mod-απΛ'] = create_link(stem["θ"] .."άα" .. "ς", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color("ς"))
	args['mod-κπΛ'] = linkcontrol3((stem["θ"]), "ά", "αι")
	args['mod-οδΛ'] = create_link(stem["θ"] .."άα" .. "", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color(""))
	args['mod-γδΛ'] = linkcontrol3((stem["θ"]), "ά", "αιν")
	end

-- uncontracted & contracted follows  >
	if args['ασυν'] ~= '-' and  args ['σνρ'] ~= '-' and args['ασυν'] ~= 'μόνο' and  args ['σνρ'] ~= 'μόνο' then
	
	args['mod-οεΛκειμ1'] = create_link(stem["θ"] .."άα" .. "", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color("")) .. ' &nbsp; > '
	args['mod-γεΛκειμ1'] = create_link(stem["θ"] .."άα" .. "ς", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color("ς")) .. ' > '
	args['mod-δεΛκειμ1'] = linkcontrol3((stem["θ"]), "ά", "ᾳ") .. ' &nbsp; > '
	args['mod-αεΛκειμ1'] = create_link(stem["θ"] .."άα" .. "ν", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color("ν")) .. ' > '
	args['mod-κεΛκειμ1'] = create_link(stem["θ"] .."άα" .. "", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color("")) .. ' &nbsp; > '
	args['mod-οπΛκειμ1'] = linkcontrol3((stem["θ"]), "ά", "αι") .. ' &nbsp; > '
	args['mod-γπΛκειμ1'] = linkcontrol3((stem["θ"]), "α", "ῶν") .. ' > '
	args['mod-δπΛκειμ1'] = linkcontrol3((stem["θ"]), "ά", "αις") .. ' > '
	args['mod-απΛκειμ1'] = create_link(stem["θ"] .."άα" .. "ς", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color("ς")) .. ' &nbsp; > '
	args['mod-κπΛκειμ1'] = linkcontrol3((stem["θ"]), "ά", "αι") .. ' &nbsp; > '
	args['mod-οδΛκειμ1'] = create_link(stem["θ"] .."άα" .. "", stem_color(stem["θ"]) .. infix_color("άᾱ") .. ending_color("")) .. ' &nbsp; > '
	args['mod-γδΛκειμ1'] = linkcontrol3((stem["θ"]), "ά", "αιν") .. ' &nbsp; > '
	end
	
--  contracted or both
	if (args['ασυν'] == '-' or args ['σνρ'] == 'μόνο' or args['σνρ'] == '' or args['σνρ'] == nil)  and args['ασυν'] ~= 'μόνο' then
		if args ['σνρ'] == 'μόνο' then
			args['υποκατ04'] = "που κλίνονται όπως η ομάδα 'Ναυσικάα μνᾶ' μόνο συνηρημένα"
			args['mod-σημ'] = 'Μόνο συνηρημένο.'
		end
	args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "ᾶ"
    args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ᾶς"
    args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = "ᾷ"
    args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "ᾶν"
    args['mod-κεθ'] = stem["θ"]		args['mod-κε'] = "ᾶ"
    args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αῖ"
    args['mod-γπθ'] = stem["θ"]		args['mod-γπ'] = "ῶν"
    args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αῖς"
    args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ᾶς"
    args['mod-κπθ'] = stem["θ"]		args['mod-κπ'] = "αῖ"
    args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "ᾶ"
    args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αῖν"
    end
return decl(args)
end



--  ======================= 1η κλίση συνηρημένο [[συκέα]]/[[συκῆ]] ===================================== --
export['συκή'] = function(frame)	-- [[Πρότυπο:grc-κλίση-'συκή']]
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" ) 
		else lemma = args['λήμμα']
	end
	
	args['κλίση'] = '1'
	args['θηλ'] = '1'
	args['ομάδα'] = 'συκέα συκῆ'	
	
-- stems
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then
			if mw.ustring.find(args['λήμμα'], 'έαι$') then -- $ = at the end
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-4)
				args['κατηγορία κλίσης'] = 'συκέα'
				args['τύπος'] = 'συκέα'
				args['όπως'] = 'συκέα'
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'θηλυκά παροξύτονα'
			else -- (not -έαι but -αῖ)
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)
				args['κατηγορία κλίσης'] = 'συκῆ'
				args['τύπος'] = 'συκῆ'
				args['όπως'] = 'συκῆ'
				args['κατηγ0'] = 'Λέξεις περισπώμενες'
				args['υποκατ01'] = 'περισπώμενα'
				args['υποκατ02'] = 'θηλυκά περισπώμενα'
			end
    else --singular
			if mw.ustring.find(args['λήμμα'], 'έα$') then -- $ = at the end
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) --  -έα
				args['κατηγορία κλίσης'] = 'συκέα'
				args['τύπος'] = 'συκέα'
				args['όπως'] = 'συκέα'
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'θηλυκά παροξύτονα'
			else -- (not -έα but -ῆ)	
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2) --  -ῆ	
				args['κατηγορία κλίσης'] = 'συκῆ'
				args['τύπος'] = 'συκῆ'
				args['όπως'] = 'συκῆ'
				args['κατηγ0'] = 'Λέξεις περισπώμενες'
				args['υποκατ01'] = 'περισπώμενα'
				args['υποκατ02'] = 'θηλυκά περισπώμενα'
			end
    end

-- only uncontracted, omit contracted
	if args['σνρ'] == '-' or args ['ασυν'] == 'μόνο' then
		if args ['ασυν'] == 'μόνο' then 
			args['υποκατ04'] = "που κλίνονται όπως η ομάδα 'συκέα συκῆ' μόνο ασυναίρετα"
			args['mod-σημ'] = 'Μόνο ασυναίρετο.'
		end
	args['mod-οεΛ'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color(""))
	args['mod-γεΛ'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς"))
	args['mod-δεΛ'] = linkcontrol3((stem["θ"]), "έ", "ᾳ")
	args['mod-αεΛ'] = create_link(stem["θ"] .."έα" .. "ν", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ν"))
	args['mod-κεΛ'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color(""))
	args['mod-οπΛ'] = linkcontrol3((stem["θ"]), "έ", "αι")
	args['mod-γπΛ'] = linkcontrol3((stem["θ"]), "ε", "ῶν")
	args['mod-δπΛ'] = linkcontrol3((stem["θ"]), "έ", "αις")
	args['mod-απΛ'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς"))
	args['mod-κπΛ'] = linkcontrol3((stem["θ"]), "έ", "αι")
	args['mod-οδΛ'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color(""))
	args['mod-γδΛ'] = linkcontrol3((stem["θ"]), "έ", "αιν")
	end

-- uncontracted & contracted follows  >
	if args['ασυν'] ~= '-' and  args ['σνρ'] ~= '-' and args['ασυν'] ~= 'μόνο' and  args ['σνρ'] ~= 'μόνο' then
	
	args['mod-οεΛκειμ1'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("")) .. ' &nbsp; > '
	args['mod-γεΛκειμ1'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς")) .. ' > '
	args['mod-δεΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "ᾳ") .. ' &nbsp; > '
	args['mod-αεΛκειμ1'] = create_link(stem["θ"] .."έα" .. "ν", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ν")) .. ' > '
	args['mod-κεΛκειμ1'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("")) .. ' &nbsp; > '
	args['mod-οπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αι") .. ' &nbsp; > '
	args['mod-γπΛκειμ1'] = linkcontrol3((stem["θ"]), "ε", "ῶν") .. ' > '
	args['mod-δπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αις") .. ' > '
	args['mod-απΛκειμ1'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς")) .. ' &nbsp; > '
	args['mod-κπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αι") .. ' &nbsp; > '
	args['mod-οδΛκειμ1'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("")) .. ' &nbsp; > '
	args['mod-γδΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αιν") .. ' &nbsp; > '
	end
	
--  contracted or both
	if (args['ασυν'] == '-' or args ['σνρ'] == 'μόνο' or args['σνρ'] == '' or args['σνρ'] == nil)  and args['ασυν'] ~= 'μόνο' then
		if args ['σνρ'] == 'μόνο' then
			args['υποκατ04'] = "που κλίνονται όπως η ομάδα 'συκέα συκῆ' μόνο συνηρημένα"
			args['mod-σημ'] = 'Μόνο συνηρημένο.'
		end
	args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "ῆ"
    args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ῆς"
    args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = "ῇ"
    args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "ῆν"
    args['mod-κεθ'] = stem["θ"]		args['mod-κε'] = "ῆ"
    args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αῖ"
    args['mod-γπθ'] = stem["θ"]		args['mod-γπ'] = "ῶν"
    args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αῖς"
    args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ᾶς"
    args['mod-κπθ'] = stem["θ"]		args['mod-κπ'] = "αῖ"
    args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "ᾶ"
    args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αῖν"
    end
return decl(args)
end



--  ======================= 1η κλίση συνηρημένο [[[γαλέη]]/[[γαλῆ]] ===================================== --
export['γαλή'] = function(frame)	-- [[Πρότυπο:grc-κλίση-'γαλή']]
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" ) 
		else lemma = args['λήμμα']
	end
	
	args['κλίση'] = '1'
	args['θηλ'] = '1'
	args['ομάδα'] = 'γαλέη γαλῆ'	
	
-- stems
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then
			if mw.ustring.find(args['λήμμα'], 'έαι$') then -- $ = at the end
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-4)
				args['κατηγορία κλίσης'] = 'γαλέη'
				args['τύπος'] = 'γαλέη'
				args['όπως'] = 'γαλέη'
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'θηλυκά παροξύτονα'
			else -- (not -έαι but -αῖ)
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)
				args['κατηγορία κλίσης'] = 'γαλῆ'
				args['τύπος'] = 'γαλῆ'
				args['όπως'] = 'γαλῆ'
				args['κατηγ0'] = 'Λέξεις περισπώμενες'
				args['υποκατ01'] = 'περισπώμενα'
				args['υποκατ02'] = 'θηλυκά περισπώμενα'
			end
    else --singular
			if mw.ustring.find(args['λήμμα'], 'έη$') then -- $ = at the end
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) --  -έη
				args['κατηγορία κλίσης'] = 'γαλέη'
				args['τύπος'] = 'γαλέη'
				args['όπως'] = 'γαλέη'
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'θηλυκά παροξύτονα'
			else -- (not -έη but -ῆ)	
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-2) --  -ῆ	
				args['κατηγορία κλίσης'] = 'γαλῆ'
				args['τύπος'] = 'γαλῆ'
				args['όπως'] = 'γαλῆ'
				args['κατηγ0'] = 'Λέξεις περισπώμενες'
				args['υποκατ01'] = 'περισπώμενα'
				args['υποκατ02'] = 'θηλυκά περισπώμενα'
			end
    end

-- only uncontracted, omit contracted
	if args['σνρ'] == '-' or args ['ασυν'] == 'μόνο' then
		if args ['ασυν'] == 'μόνο' then 
			args['υποκατ04'] = "που κλίνονται όπως η ομάδα 'γαλέη γαλῆ' μόνο ασυναίρετα"
			args['mod-σημ'] = 'Μόνο ασυναίρετο.'
		end
	args['mod-οεΛ'] = linkcontrol3((stem["θ"]), "έη", "")
	args['mod-γεΛ'] = linkcontrol3((stem["θ"]), "έη", "ς")
	args['mod-δεΛ'] = linkcontrol3((stem["θ"]), "έ", "ῃ")
	args['mod-αεΛ'] = linkcontrol3((stem["θ"]), "έη", "ν")
	args['mod-κεΛ'] = linkcontrol3((stem["θ"]), "έη", "")
	args['mod-οπΛ'] = linkcontrol3((stem["θ"]), "έ", "αι")
	args['mod-γπΛ'] = linkcontrol3((stem["θ"]), "ε", "ῶν")
	args['mod-δπΛ'] = linkcontrol3((stem["θ"]), "έ", "αις")
	args['mod-απΛ'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς"))
	args['mod-κπΛ'] = linkcontrol3((stem["θ"]), "έ", "αι")
	args['mod-οδΛ'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color(""))
	args['mod-γδΛ'] = linkcontrol3((stem["θ"]), "έ", "αιν")
	end

-- uncontracted & contracted follows  >
	if args['ασυν'] ~= '-' and  args ['σνρ'] ~= '-' and args['ασυν'] ~= 'μόνο' and  args ['σνρ'] ~= 'μόνο' then
	
	args['mod-οεΛκειμ1'] = linkcontrol3((stem["θ"]), "έη", "") .. ' &nbsp; > '
	args['mod-γεΛκειμ1'] = linkcontrol3((stem["θ"]), "έη", "ς") .. ' > '
	args['mod-δεΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "ῃ") .. ' &nbsp; > '
	args['mod-αεΛκειμ1'] = linkcontrol3((stem["θ"]), "έη", "ν") .. ' > '
	args['mod-κεΛκειμ1'] = linkcontrol3((stem["θ"]), "έη", "") .. ' &nbsp; > '
	args['mod-οπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αι") .. ' &nbsp; > '
	args['mod-γπΛκειμ1'] = linkcontrol3((stem["θ"]), "ε", "ῶν") .. ' > '
	args['mod-δπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αις") .. ' > '
	args['mod-απΛκειμ1'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς")) .. ' &nbsp; > '
	args['mod-κπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αι") .. ' &nbsp; > '
	args['mod-οδΛκειμ1'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("")) .. ' &nbsp; > '
	args['mod-γδΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αιν") .. ' &nbsp; > '
	end
	
--  contracted or both
	if (args['ασυν'] == '-' or args ['σνρ'] == 'μόνο' or args['σνρ'] == '' or args['σνρ'] == nil)  and args['ασυν'] ~= 'μόνο' then
		if args ['σνρ'] == 'μόνο' then
			args['υποκατ04'] = "που κλίνονται όπως η ομάδα 'γαλέη γαλῆ' μόνο συνηρημένα"
			args['mod-σημ'] = 'Μόνο συνηρημένο.'
		end
	args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "ῆ"
    args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "ῆς"
    args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = "ῇ"
    args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "ῆν"
    args['mod-κεθ'] = stem["θ"]		args['mod-κε'] = "ῆ"
    args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αῖ"
    args['mod-γπθ'] = stem["θ"]		args['mod-γπ'] = "ῶν"
    args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αῖς"
    args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ᾶς"
    args['mod-κπθ'] = stem["θ"]		args['mod-κπ'] = "αῖ"
    args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "ᾶ"
    args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αῖν"
    end
return decl(args)
end


--  ======================= 1η κλίση συνηρημένο [[[Βορέας]]/[[Βορρᾶς]] ===================================== --
-- 1η κλίση Βορ-έας, αττική διάλεκτος: Βορρᾶς Is this unique?
export['βορράς'] = function(frame)	-- [[Πρότυπο:grc-κλίση-'βορράς']]
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" ) 
		else lemma = args['λήμμα']
	end
	
	args['κλίση'] = '1'
	args['αρσ'] = '1'
	args['ομάδα'] = 'Βορέας Βορρᾶς'	
	
-- stems
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then
			if mw.ustring.find(args['λήμμα'], 'έαι$') then -- $ = at the end
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-4)
				args['κατηγορία κλίσης'] = 'Βορέας'
				args['τύπος'] = 'Βορέας'
				args['όπως'] = 'Βορέας'
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'αρσενικά παροξύτονα'
			else -- (not -έαι but -αῖ) ??
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)
				args['κατηγορία κλίσης'] = 'Βορρᾶς'
				args['τύπος'] = 'Βορρᾶς'
				args['όπως'] = 'Βορρᾶς'
				args['κατηγ0'] = 'Λέξεις περισπώμενες'
				args['υποκατ01'] = 'περισπώμενα'
				args['υποκατ02'] = 'αρσενικά περισπώμενα'
			end
    else --singular
			if mw.ustring.find(args['λήμμα'], 'έας$') then -- $ = at the end
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-4) --  -έας
				args['κατηγορία κλίσης'] = 'Βορέας'
				args['τύπος'] = 'Βορέας'
				args['όπως'] = 'Βορέας'
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'αρσενικά παροξύτονα'
			else -- (not -έας but -ᾶς)	
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-4) --  -Βορ-ρ-ᾶς
				args['κατηγορία κλίσης'] = 'Βορρᾶς'
				args['τύπος'] = 'Βορρᾶς'
				args['όπως'] = 'Βορρᾶς'
				args['κατηγ0'] = 'Λέξεις περισπώμενες'
				args['υποκατ01'] = 'περισπώμενα'
				args['υποκατ02'] = 'αρσενικά περισπώμενα'
			end
    end

-- only uncontracted, omit contracted
	if args['σνρ'] == '-' or args ['ασυν'] == 'μόνο' then
		if args ['ασυν'] == 'μόνο' then 
			args['υποκατ04'] = "που κλίνονται όπως η ομάδα 'Βορέας Βορρᾶς' μόνο ασυναίρετα"
			args['mod-σημ'] = 'Μόνο ασυναίρετο.'
		end
	args['mod-οεΛ'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς"))
	args['mod-γεΛ'] = linkcontrol3((stem["θ"]), "έ", "ου")
	args['mod-δεΛ'] = linkcontrol3((stem["θ"]), "έ", "ᾳ")
	args['mod-αεΛ'] = create_link(stem["θ"] .."έα" .. "ν", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ν"))
	args['mod-κεΛ'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color(""))
	args['mod-οπΛ'] = linkcontrol3((stem["θ"]), "έ", "αι")
	args['mod-γπΛ'] = linkcontrol3((stem["θ"]), "έ", "ων")
	args['mod-δπΛ'] = linkcontrol3((stem["θ"]), "έ", "αις")
	args['mod-απΛ'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς"))
	args['mod-κπΛ'] = linkcontrol3((stem["θ"]), "έ", "αι")
	args['mod-οδΛ'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color(""))
	args['mod-γδΛ'] = linkcontrol3((stem["θ"]), "έ", "αιν")
	end

-- uncontracted & contracted follows  >
	if args['ασυν'] ~= '-' and  args ['σνρ'] ~= '-' and args['ασυν'] ~= 'μόνο' and  args ['σνρ'] ~= 'μόνο' then
	
	args['mod-οεΛκειμ1'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς")) .. ' > '
	args['mod-γεΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "ου") .. ' > '
	args['mod-δεΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "ᾳ") .. ' &nbsp; > '
	args['mod-αεΛκειμ1'] = create_link(stem["θ"] .."έα" .. "ν", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ν")) .. ' > '
	args['mod-κεΛκειμ1'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("")) .. ' &nbsp; > '
	args['mod-οπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αι") .. ' &nbsp; > '
	args['mod-γπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "ων") .. ' > '
	args['mod-δπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αις") .. ' > '
	args['mod-απΛκειμ1'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς")) .. ' &nbsp; > '
	args['mod-κπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αι") .. ' &nbsp; > '
	args['mod-οδΛκειμ1'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("")) .. ' &nbsp; > '
	args['mod-γδΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αιν") .. ' &nbsp; > '
	end

--  contracted or both
	if (args['ασυν'] == '-' or args ['σνρ'] == 'μόνο' or args['σνρ'] == '' or args['σνρ'] == nil)  and args['ασυν'] ~= 'μόνο' then
		if args ['σνρ'] == 'μόνο' then
			args['υποκατ04'] = "που κλίνονται όπως η ομάδα 'Βορέας Βορρᾶς' μόνο συνηρημένα"
			args['mod-σημ'] = 'Μόνο συνηρημένο.'
		end
	args['mod-οεθ'] = stem["θ"]	.. 'ρ'	args['mod-οε'] = "ᾶς"
    args['mod-γεθ'] = stem["θ"]	.. 'ρ'		args['mod-γε'] = "ᾶ"
-- !!! & Βορροῦ, DGE, http://www.perseus.tufts.edu/hopper/text?doc=Perseus%3Atext%3A1999.04.0007%3Apart%3D2%3Achapter%3D13%3Asection%3D14
--	args['mod-γε2θ'] = stem["θ"]	.. 'ρ'		args['mod-γε2'] = "οῦ"
	args['mod-γεΛκειμ'] = "<br>  &nbsp;  &nbsp;  &nbsp;   &nbsp;  &nbsp;  &nbsp;&&nbsp;" .. create_link(stem["θ"] .. 'ρ' .. "οῦ", stem_color(stem["θ"]) .. infix_color("ρ") .. ending_color("οῦ"))
    args['mod-δεθ'] = stem["θ"]	.. 'ρ'		args['mod-δε'] = "ᾷ"
    args['mod-αεθ'] = stem["θ"]	.. 'ρ'		args['mod-αε'] = "ᾶν"
    args['mod-κεθ'] = stem["θ"]	.. 'ρ'		args['mod-κε'] = "ᾶ"
-- plurals ????
    args['mod-οπθ'] = stem["θ"]	.. 'ρ'		args['mod-οπ'] = "αῖ" -- Βορρεῖς ?? plu. nom. -εῖς Alciphr.1.1.1
    args['mod-γπθ'] = stem["θ"]	.. 'ρ'		args['mod-γπ'] = "ῶν"
    args['mod-δπθ'] = stem["θ"]	.. 'ρ'		args['mod-δπ'] = "οῖς"
    args['mod-απθ'] = stem["θ"]	.. 'ρ'		args['mod-απ'] = "ᾶς"
    args['mod-κπθ'] = stem["θ"]	.. 'ρ'		args['mod-κπ'] = "αῖ"
    args['mod-οδθ'] = stem["θ"]	.. 'ρ'		args['mod-οδ'] = "ᾶ" -- ######## CHECK dual ?????
    args['mod-γδθ'] = stem["θ"]	.. 'ρ'		args['mod-γδ'] = "αῖν" -- ######## CHECK dual ?????
    end
return decl(args)
end


-- ?? Ερμέας is not contracting, it is just another form.So I use comma, not  >
-- Dictionary has only a redirect from Ἑρμέας 
-- Ikonomou Grammar: έχουν και μετά τη συναίρεση τις καταλήξεις των ασυναίρετων τύπων.  Μόνο το εα στον ενικό το συναιρούν σε η
--  ======================= 1η κλίση συνηρημένο [[Ἑρμέας]]/[[Ἑρμῆς]] ===================================== --
export['Ερμής'] = function(frame)	-- [[Πρότυπο:grc-κλίση-'Ερμής']]
	local args = frame:getParent().args
-- lemma
	local lemma = args['λήμμα'] or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args['λήμμα'] = PAGENAME:match( "^%s*(.-)%s*$" ) 
		else lemma = args['λήμμα']
	end
	
	args['κλίση'] = '1'
	args['αρσ'] = '1'
	args['ομάδα'] = 'Ἑρμέας Ἑρμῆς'	
	
-- stems
	local stem = {}
    if args['α'] == "πλ" or args['α2'] == "πλ" or args['α'] == "πλδ" or args['α2'] == "πλδ" then
			if mw.ustring.find(args['λήμμα'], 'έαι$') then -- $ = at the end
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-4)
				args['κατηγορία κλίσης'] = 'Ἑρμέας'
				args['τύπος'] = 'Ἑρμέας'
				args['όπως'] = 'Ἑρμέας'
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'αρσενικά παροξύτονα'
			else -- (not -έαι but -αῖ) ??
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3)
				args['κατηγορία κλίσης'] = 'Ἑρμῆς'
				args['τύπος'] = 'Ἑρμῆς'
				args['όπως'] = 'Ἑρμῆς'
				args['κατηγ0'] = 'Λέξεις περισπώμενες'
				args['υποκατ01'] = 'περισπώμενα'
				args['υποκατ02'] = 'αρσενικά περισπώμενα'
			end
    else --singular
			if mw.ustring.find(args['λήμμα'], 'έας$') then -- $ = at the end
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-4) --  -έας
				args['κατηγορία κλίσης'] = 'Ἑρμέας'
				args['τύπος'] = 'Ἑρμέας'
				args['όπως'] = 'Ἑρμέας'
				args['κατηγ0'] = 'Λέξεις παροξύτονες'
				args['υποκατ01'] = 'παροξύτονα'
				args['υποκατ02'] = 'αρσενικά παροξύτονα'
			else -- (not -έας but -ῆς)	
		stem["θ"] = mw.ustring.sub(args['λήμμα'],1,-3) --  -Ἑρμ-ῆς
				args['κατηγορία κλίσης'] = 'Ἑρμῆς'
				args['τύπος'] = 'Ἑρμῆς'
				args['όπως'] = 'Ἑρμῆς'
				args['κατηγ0'] = 'Λέξεις περισπώμενες'
				args['υποκατ01'] = 'περισπώμενα'
				args['υποκατ02'] = 'αρσενικά περισπώμενα'
			end
    end

-- only uncontracted, omit contracted
	if args['σνρ'] == '-' or args ['ασυν'] == 'μόνο' then
		if args ['ασυν'] == 'μόνο' then 
			args['υποκατ04'] = "που κλίνονται όπως η ομάδα 'Ἑρμέας Ἑρμῆς' μόνο ασυναίρετα"
			args['mod-σημ'] = 'Μόνο ασυναίρετο.'
		end
	args['mod-οεΛ'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς"))
	args['mod-γεΛ'] = linkcontrol3((stem["θ"]), "έ", "ου")
	args['mod-δεΛ'] = linkcontrol3((stem["θ"]), "έ", "ᾳ")
	args['mod-αεΛ'] = create_link(stem["θ"] .."έα" .. "ν", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ν"))
	args['mod-κεΛ'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color(""))
	args['mod-οπΛ'] = linkcontrol3((stem["θ"]), "έ", "αι")
	args['mod-γπΛ'] = linkcontrol3((stem["θ"]), "έ", "ων")
	args['mod-δπΛ'] = linkcontrol3((stem["θ"]), "έ", "αις")
	args['mod-απΛ'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς"))
	args['mod-κπΛ'] = linkcontrol3((stem["θ"]), "έ", "αι")
	args['mod-οδΛ'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color(""))
	args['mod-γδΛ'] = linkcontrol3((stem["θ"]), "έ", "αιν")
	end

-- uncontracted & contracted follows  >
	if args['ασυν'] ~= '-' and  args ['σνρ'] ~= '-' and args['ασυν'] ~= 'μόνο' and  args ['σνρ'] ~= 'μόνο' then
	
	args['mod-οεΛκειμ1'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς")) .. ', '
	args['mod-γεΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "ου") .. ' > '
	args['mod-δεΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "ᾳ") .. ', '
	args['mod-αεΛκειμ1'] = create_link(stem["θ"] .."έα" .. "ν", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ν")) .. ', '
	args['mod-κεΛκειμ1'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("")) .. ',  '
	args['mod-οπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αι") .. ' &nbsp; > '
	args['mod-γπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "ων") .. ' > '
	args['mod-δπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αις") .. ' > '
	args['mod-απΛκειμ1'] = create_link(stem["θ"] .."έα" .. "ς", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("ς")) .. ' &nbsp; > '
	args['mod-κπΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αι") .. ' &nbsp; > '
	args['mod-οδΛκειμ1'] = create_link(stem["θ"] .."έα" .. "", stem_color(stem["θ"]) .. infix_color("έᾱ") .. ending_color("")) .. ' &nbsp; > '
	args['mod-γδΛκειμ1'] = linkcontrol3((stem["θ"]), "έ", "αιν") .. ' &nbsp; > '
	end

--  contracted or both
	if (args['ασυν'] == '-' or args ['σνρ'] == 'μόνο' or args['σνρ'] == '' or args['σνρ'] == nil)  and args['ασυν'] ~= 'μόνο' then
		if args ['σνρ'] == 'μόνο' then
			args['υποκατ04'] = "που κλίνονται όπως η ομάδα 'Ἑρμέας Ἑρμῆς' μόνο συνηρημένα"
			args['mod-σημ'] = 'Μόνο συνηρημένο.'
		end
	args['mod-οεθ'] = stem["θ"]		args['mod-οε'] = "ῆς"
    args['mod-γεθ'] = stem["θ"]		args['mod-γε'] = "οῦ" -- ???????? 2η?
    args['mod-δεθ'] = stem["θ"]		args['mod-δε'] = "ῇ"
    args['mod-αεθ'] = stem["θ"]		args['mod-αε'] = "ῆν"
    args['mod-αεΛκειμ'] = "<br>  &nbsp;  &nbsp;  &nbsp;   &nbsp;  &nbsp;  &nbsp;  &nbsp;&&nbsp;" .. create_link(stem["θ"] .."ῆ", stem_color(stem["θ"]) .. ending_color("ῆ"))
    args['mod-κεθ'] = stem["θ"]		args['mod-κε'] = "ῆ"
    args['mod-οπθ'] = stem["θ"]		args['mod-οπ'] = "αῖ"
    args['mod-γπθ'] = stem["θ"]		args['mod-γπ'] = "ῶν"
    args['mod-δπθ'] = stem["θ"]		args['mod-δπ'] = "αῖς"
    args['mod-απθ'] = stem["θ"]		args['mod-απ'] = "ᾶς"
    args['mod-κπθ'] = stem["θ"]		args['mod-κπ'] = "αῖ"
    args['mod-οδθ'] = stem["θ"]		args['mod-οδ'] = "ᾶ" -- ??????? Why not η? 
    args['mod-γδθ'] = stem["θ"]		args['mod-γδ'] = "αῖν"
    end
return decl(args)
end


return export