
\startluacode
sorters.definitions["de-gr"] = {
    method  = "before",
    replacements = {
        -- German
        { "ä", 'ae' }, { "Ä", 'Ae' },
        { "ö", 'oe' }, { "Ö", 'Oe' },
        { "ü", 'ue' }, { "Ü", 'Ue' },
        { "ß", 'ss' },

        -- Greek
        { "α", "a"  }, { "ά", "a"  }, { "ὰ", "a"  }, { "ᾶ", "a"  }, { "ᾳ", "a"  },
        { "ἀ", "a"  }, { "ἁ", "a"  }, { "ἄ", "a"  }, { "ἂ", "a"  }, { "ἆ", "a"  },
        { "ἁ", "a"  }, { "ἅ", "a"  }, { "ἃ", "a"  }, { "ἇ", "a"  }, { "ᾁ", "a"  },
        { "ᾴ", "a"  }, { "ᾲ", "a"  }, { "ᾷ", "a"  }, { "ᾄ", "a"  }, { "ᾂ", "a"  },
        { "ᾅ", "a"  }, { "ᾃ", "a"  }, { "ᾆ", "a"  }, { "ᾇ", "a"  }, { "β", "b"  },
        { "γ", "g"  }, { "δ", "d"  }, { "ε", "e"  }, { "έ", "e"  }, { "ὲ", "e"  },
        { "ἐ", "e"  }, { "ἔ", "e"  }, { "ἒ", "e"  }, { "ἑ", "e"  }, { "ἕ", "e"  },
        { "ἓ", "e"  }, { "ζ", "z"  }, { "η", "e"  }, { "η", "e"  }, { "ή", "e"  },
        { "ὴ", "e"  }, { "ῆ", "e"  }, { "ῃ", "e"  }, { "ἠ", "e"  }, { "ἤ", "e"  },
        { "ἢ", "e"  }, { "ἦ", "e"  }, { "ᾐ", "e"  }, { "ἡ", "e"  }, { "ἥ", "e"  },
        { "ἣ", "e"  }, { "ἧ", "e"  }, { "ᾑ", "e"  }, { "ῄ", "e"  }, { "ῂ", "e"  },
        { "ῇ", "e"  }, { "ᾔ", "e"  }, { "ᾒ", "e"  }, { "ᾕ", "e"  }, { "ᾓ", "e"  },
        { "ᾖ", "e"  }, { "ᾗ", "e"  }, { "θ", "th" }, { "ι", "i"  }, { "ί", "i"  },
        { "ὶ", "i"  }, { "ῖ", "i"  }, { "ἰ", "i"  }, { "ἴ", "i"  }, { "ἲ", "i"  },
        { "ἶ", "i"  }, { "ἱ", "i"  }, { "ἵ", "i"  }, { "ἳ", "i"  }, { "ἷ", "i"  },
        { "ϊ", "i"  }, { "ΐ", "i"  }, { "ῒ", "i"  }, { "ῗ", "i"  }, { "κ", "k"  },
        { "λ", "l"  }, { "μ", "m"  }, { "ν", "n"  }, { "ξ", "x"  }, { "ο", "o"  },
        { "ό", "o"  }, { "ὸ", "o"  }, { "ὀ", "o"  }, { "ὄ", "o"  }, { "ὂ", "o"  },
        { "ὁ", "o"  }, { "ὅ", "o"  }, { "ὃ", "o"  }, { "π", "p"  }, { "ρ", "r"  },
        { "ῤ", "r"  }, { "ῥ", "r"  }, { "σ", "s"  }, { "ς", "s"  }, { "τ", "t"  },
        { "υ", "y"  }, { "ύ", "y"  }, { "ὺ", "y"  }, { "ῦ", "y"  }, { "ὐ", "y"  },
        { "ὔ", "y"  }, { "ὒ", "y"  }, { "ὖ", "y"  }, { "ὑ", "y"  }, { "ὕ", "y"  },
        { "ὓ", "y"  }, { "ὗ", "y"  }, { "ϋ", "y"  }, { "ΰ", "y"  }, { "ῢ", "y"  },
        { "ῧ", "y"  }, { "φ", "ph" }, { "χ", "ch" }, { "ψ", "ps" }, { "ω", "o"  },
        { "ώ", "o"  }, { "ὼ", "o"  }, { "ῶ", "o"  }, { "ῳ", "o"  }, { "ὠ", "o"  },
        { "ὤ", "o"  }, { "ὢ", "o"  }, { "ὦ", "o"  }, { "ᾠ", "o"  }, { "ὡ", "o"  },
        { "ὥ", "o"  }, { "ὣ", "o"  }, { "ὧ", "o"  }, { "ᾡ", "o"  }, { "ῴ", "o"  },
        { "ῲ", "o"  }, { "ῷ", "o"  }, { "ᾤ", "o"  }, { "ᾢ", "o"  }, { "ᾥ", "o"  },
        { "ᾣ", "o"  }, { "ᾦ", "o"  }, { "ᾧ", "o"  },

        { "Α", "A"  }, { "Ά", "A"  }, { "Ὰ", "A"  }, { "ᾼ", "A"  }, { "Ἀ", "A"  },
        { "Ἁ", "A"  }, { "Ἄ", "A"  }, { "Ἂ", "A"  }, { "Ἆ", "A"  }, { "Ἁ", "A"  },
        { "Ἅ", "A"  }, { "Ἃ", "A"  }, { "Ἇ", "A"  }, { "ᾉ", "A"  }, { "ᾌ", "A"  },
        { "ᾊ", "A"  }, { "ᾍ", "A"  }, { "ᾋ", "A"  }, { "ᾎ", "A"  }, { "ᾏ", "A"  },
        { "Β", "B"  }, { "Γ", "G"  }, { "Δ", "D"  }, { "Ε", "E"  }, { "Έ", "E"  },
        { "Ὲ", "E"  }, { "Ἐ", "E"  }, { "Ἔ", "E"  }, { "Ἒ", "E"  }, { "Ἑ", "E"  },
        { "Ἕ", "E"  }, { "Ἓ", "E"  }, { "Ζ", "Z"  }, { "Η", "E"  }, { "Η", "E"  },
        { "Ή", "E"  }, { "Ὴ", "E"  }, { "ῌ", "E"  }, { "Ἠ", "E"  }, { "Ἤ", "E"  },
        { "Ἢ", "E"  }, { "Ἦ", "E"  }, { "ᾘ", "E"  }, { "Ἡ", "E"  }, { "Ἥ", "E"  },
        { "Ἣ", "E"  }, { "Ἧ", "E"  }, { "ᾙ", "E"  }, { "ᾜ", "E"  }, { "ᾚ", "E"  },
        { "ᾝ", "E"  }, { "ᾛ", "E"  }, { "ᾞ", "E"  }, { "ᾟ", "E"  }, { "Θ", "Th" },
        { "Ι", "I"  }, { "Ί", "I"  }, { "Ὶ", "I"  }, { "Ἰ", "I"  }, { "Ἴ", "I"  },
        { "Ἲ", "I"  }, { "Ἶ", "I"  }, { "Ἱ", "I"  }, { "Ἵ", "I"  }, { "Ἳ", "I"  },
        { "Ἷ", "I"  }, { "Ϊ", "I"  }, { "Κ", "K"  }, { "Λ", "L"  }, { "Μ", "M"  },
        { "Ν", "N"  }, { "Ξ", "X"  }, { "Ο", "O"  }, { "Ό", "O"  }, { "Ὸ", "O"  },
        { "Ὀ", "O"  }, { "Ὄ", "O"  }, { "Ὂ", "O"  }, { "Ὁ", "O"  }, { "Ὅ", "O"  },
        { "Ὃ", "O"  }, { "Π", "P"  }, { "Ρ", "R"  }, { "Ῥ", "R"  }, { "Σ", "S"  },
        { "Σ", "S"  }, { "Τ", "T"  }, { "Υ", "Y"  }, { "Ύ", "Y"  }, { "Ὺ", "Y"  },
        { "Ὑ", "Y"  }, { "Ὕ", "Y"  }, { "Ὓ", "Y"  }, { "Ὗ", "Y"  }, { "Ϋ", "Y"  },
        { "Φ", "Ph" }, { "Χ", "Ch" }, { "Ψ", "Ps" }, { "Ω", "O"  }, { "Ώ", "O"  },
        { "Ὼ", "O"  }, { "ῼ", "O"  }, { "Ὠ", "O"  }, { "Ὤ", "O"  }, { "Ὢ", "O"  },
        { "Ὦ", "O"  }, { "ᾨ", "O"  }, { "Ὡ", "O"  }, { "Ὥ", "O"  }, { "Ὣ", "O"  },
        { "Ὧ", "O"  }, { "ᾩ", "O"  }, { "ᾬ", "O"  }, { "ᾪ", "O"  }, { "ᾭ", "O"  },
        { "ᾫ", "O"  }, { "ᾮ", "O"  }, { "ᾯ", "O"  },
    },

    entries = {
        ["a"] = "a", ["b"] = "b", ["c"] = "c", ["d"] = "d", ["e"] = "e",
        ["f"] = "f", ["g"] = "g", ["h"] = "h", ["i"] = "i", ["j"] = "j",
        ["k"] = "k", ["l"] = "l", ["m"] = "m", ["n"] = "n", ["o"] = "o",
        ["p"] = "p", ["q"] = "q", ["r"] = "r", ["s"] = "s", ["t"] = "t",
        ["u"] = "u", ["v"] = "v", ["w"] = "w", ["x"] = "x", ["y"] = "y",
        ["z"] = "z",
    },
    orders = {
        "a", "b", "c", "d", "e", "f", "g", "h", "i", "j",
        "k", "l", "m", "n", "o", "p", "q", "r", "s", "t",
        "u", "v", "w", "x", "y", "z",
    },
}

\stopluacode

\unexpanded\def\ind#1{\index{#1} #1}

\setupbodyfont[cmu]

\starttext

\startcolumns[n=3]
  \placeregister[index][language=de-gr,method={zm,pc,uc}]
\stopcolumns

\dorecurse {2} {
  \page\title{Iteration No. \recurselevel}
    
    \ind{Adrastos}      \ind{Ἄδραστος}\par
    \ind{Amphiaraos}    \ind{Ἀμφιάραος}\par
    \ind{Hippomedon}    \ind{Ἱππομέδων}\par
    \ind{Kapaneus}      \ind{Καπανεύς}\par
    \ind{Parthenopaios} \ind{Παρθενοπαῖоς}\par
    \ind{Polyneikes}    \ind{Πολυνείκης}\par
    \ind{Tydeus}        \ind{Τυδεύς}\par

    \ind{ἀναλύειν}    \ind{Ἀναλυτικὰ}
    \ind{analysiert}  \ind{Analytik}  \ind{analytisch}\par

    \ind{ψυχὴ} \ind{Psyche} \ind{psychisch} \par

    \ind{Χρόνος}  \ind{χρόνιος}     \ind{χρῶμα}
    \ind{Chronos} \ind{Chronometer} \ind{chronologisch} \ind{chronisch} 
    \ind{Chrom}   \ind{Chromatik}   \ind{chromatisch}
}

\stoptext

