Fix placement of diacritics over uppercase Greek (#1115).

font-src/otl/table-util.ptl

@@ -184,3 +184,17 @@ export : define [finalizeTable table] : begin
 	set table.lookupOrder : toposort table.lookupDep
 	foreach [{key lang} : pairs-of table.languages] : begin
 		if lang.features : lang.features.sort
+
+export : define [UkMapToLookup m] : begin
+	local l {}
+	local r {}
+	foreach { k v } [Object.entries m] : begin
+		l.push k
+		r.push v
+	return { .left l .right r }
+
+export : define [UkMap2ToLookup mm] : begin
+	local res {}
+	foreach { g1 second } [Object.entries mm] : foreach { g2 gTo } [Object.entries second] : begin
+		res.push {.from {g1 g2} .to gTo}
+	return res