(g2-UU+5B73): Add `=decomposition@hanyo-denshi'.
[chise/xemacs-chise.git.1] / lisp / utf-2000 / u01F00-Greek-Extended.el
index 3939f08..9306640 100644 (file)
@@ -4,10 +4,6 @@
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
-      (=ucs              . #x1F08)     ; Ἀ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA")
       (=ucs              . #x03B1)     ; α
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F00)       ; ἀ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
+      (=ucs              . #x1F08)     ; Ἀ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
-      (=ucs              . #x1F09)     ; Ἁ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA")
       (=ucs              . #x03B1)     ; α
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F01)       ; ἁ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
+      (=ucs              . #x1F09)     ; Ἁ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA")
-      (=ucs              . #x1F0A)     ; Ἂ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI")
       (=ucs              . #x1F00)     ; ἀ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F02)       ; ἂ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA")
+      (=ucs              . #x1F0A)     ; Ἂ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA")
-      (=ucs              . #x1F0B)     ; Ἃ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
       (=ucs              . #x1F01)     ; ἁ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F03)       ; ἃ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA")
+      (=ucs              . #x1F0B)     ; Ἃ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA")
-      (=ucs              . #x1F0C)     ; Ἄ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI")
       (=ucs              . #x1F00)     ; ἀ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F04)       ; ἄ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA")
+      (=ucs              . #x1F0C)     ; Ἄ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA")
-      (=ucs              . #x1F0D)     ; Ἅ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
       (=ucs              . #x1F01)     ; ἁ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F05)       ; ἅ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA")
+      (=ucs              . #x1F0D)     ; Ἅ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI")
-      (=ucs              . #x1F0E)     ; Ἆ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI")
       (=ucs              . #x1F00)     ; ἀ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F06)       ; ἆ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI")
+      (=ucs              . #x1F0E)     ; Ἆ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI")
-      (=ucs              . #x1F0F)     ; Ἇ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
       (=ucs              . #x1F01)     ; ἁ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F07)       ; ἇ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI")
+      (=ucs              . #x1F0F)     ; Ἇ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI")
-      (=ucs              . #x1F00)     ; ἀ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA")
       (=ucs              . #x0391)     ; Α
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F08)       ; Ἀ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI")
+      (=ucs              . #x1F00)     ; ἀ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
-      (=ucs              . #x1F01)     ; ἁ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA")
       (=ucs              . #x0391)     ; Α
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F09)       ; Ἁ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
+      (=ucs              . #x1F01)     ; ἁ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA")
-      (=ucs              . #x1F02)     ; ἂ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
       (=ucs              . #x1F08)     ; Ἀ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F0A)       ; Ἂ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA")
+      (=ucs              . #x1F02)     ; ἂ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA")
-      (=ucs              . #x1F03)     ; ἃ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
       (=ucs              . #x1F09)     ; Ἁ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F0B)       ; Ἃ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA")
+      (=ucs              . #x1F03)     ; ἃ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA")
-      (=ucs              . #x1F04)     ; ἄ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
       (=ucs              . #x1F08)     ; Ἀ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F0C)       ; Ἄ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA")
+      (=ucs              . #x1F04)     ; ἄ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA")
-      (=ucs              . #x1F05)     ; ἅ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
       (=ucs              . #x1F09)     ; Ἁ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F0D)       ; Ἅ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA")
+      (=ucs              . #x1F05)     ; ἅ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI")
-      (=ucs              . #x1F06)     ; ἆ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
       (=ucs              . #x1F08)     ; Ἀ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F0E)       ; Ἆ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI")
+      (=ucs              . #x1F06)     ; ἆ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI")
-      (=ucs              . #x1F07)     ; ἇ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
       (=ucs              . #x1F09)     ; Ἁ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F0F)       ; Ἇ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI")
+      (=ucs              . #x1F07)     ; ἇ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH PSILI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER EPSILON WITH PSILI")
-      (=ucs              . #x1F18)     ; Ἐ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER EPSILON")
       (=ucs              . #x03B5)     ; ε
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F10)       ; ἐ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER EPSILON WITH PSILI")
+      (=ucs              . #x1F18)     ; Ἐ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH DASIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER EPSILON WITH DASIA")
-      (=ucs              . #x1F19)     ; Ἑ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER EPSILON")
       (=ucs              . #x03B5)     ; ε
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F11)       ; ἑ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER EPSILON WITH DASIA")
+      (=ucs              . #x1F19)     ; Ἑ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA")
-      (=ucs              . #x1F1A)     ; Ἒ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER EPSILON WITH PSILI")
       (=ucs              . #x1F10)     ; ἐ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F12)       ; ἒ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA")
+      (=ucs              . #x1F1A)     ; Ἒ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA")
-      (=ucs              . #x1F1B)     ; Ἓ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER EPSILON WITH DASIA")
       (=ucs              . #x1F11)     ; ἑ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F13)       ; ἓ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA")
+      (=ucs              . #x1F1B)     ; Ἓ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA")
-      (=ucs              . #x1F1C)     ; Ἔ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER EPSILON WITH PSILI")
       (=ucs              . #x1F10)     ; ἐ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F14)       ; ἔ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA")
+      (=ucs              . #x1F1C)     ; Ἔ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA")
-      (=ucs              . #x1F1D)     ; Ἕ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER EPSILON WITH DASIA")
       (=ucs              . #x1F11)     ; ἑ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F15)       ; ἕ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA")
+      (=ucs              . #x1F1D)     ; Ἕ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH PSILI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER EPSILON WITH PSILI")
-      (=ucs              . #x1F10)     ; ἐ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER EPSILON")
       (=ucs              . #x0395)     ; Ε
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F18)       ; Ἐ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH PSILI")
+      (=ucs              . #x1F10)     ; ἐ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH DASIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER EPSILON WITH DASIA")
-      (=ucs              . #x1F11)     ; ἑ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER EPSILON")
       (=ucs              . #x0395)     ; Ε
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F19)       ; Ἑ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH DASIA")
+      (=ucs              . #x1F11)     ; ἑ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA")
-      (=ucs              . #x1F12)     ; ἒ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH PSILI")
       (=ucs              . #x1F18)     ; Ἐ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F1A)       ; Ἒ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA")
+      (=ucs              . #x1F12)     ; ἒ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA")
-      (=ucs              . #x1F13)     ; ἓ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH DASIA")
       (=ucs              . #x1F19)     ; Ἑ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F1B)       ; Ἓ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA")
+      (=ucs              . #x1F13)     ; ἓ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA")
-      (=ucs              . #x1F14)     ; ἔ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH PSILI")
       (=ucs              . #x1F18)     ; Ἐ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F1C)       ; Ἔ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA")
+      (=ucs              . #x1F14)     ; ἔ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA")
-      (=ucs              . #x1F15)     ; ἕ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH DASIA")
       (=ucs              . #x1F19)     ; Ἑ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F1D)       ; Ἕ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA")
+      (=ucs              . #x1F15)     ; ἕ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PSILI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
-      (=ucs              . #x1F28)     ; Ἠ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA")
       (=ucs              . #x03B7)     ; η
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F20)       ; ἠ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
+      (=ucs              . #x1F28)     ; Ἠ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH DASIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
-      (=ucs              . #x1F29)     ; Ἡ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA")
       (=ucs              . #x03B7)     ; η
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F21)       ; ἡ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
+      (=ucs              . #x1F29)     ; Ἡ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA")
-      (=ucs              . #x1F2A)     ; Ἢ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA WITH PSILI")
       (=ucs              . #x1F20)     ; ἠ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F22)       ; ἢ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA")
+      (=ucs              . #x1F2A)     ; Ἢ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA")
-      (=ucs              . #x1F2B)     ; Ἣ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA WITH DASIA")
       (=ucs              . #x1F21)     ; ἡ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F23)       ; ἣ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA")
+      (=ucs              . #x1F2B)     ; Ἣ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA")
-      (=ucs              . #x1F2C)     ; Ἤ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA WITH PSILI")
       (=ucs              . #x1F20)     ; ἠ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F24)       ; ἤ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA")
+      (=ucs              . #x1F2C)     ; Ἤ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA")
-      (=ucs              . #x1F2D)     ; Ἥ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA WITH DASIA")
       (=ucs              . #x1F21)     ; ἡ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F25)       ; ἥ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA")
+      (=ucs              . #x1F2D)     ; Ἥ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI")
-      (=ucs              . #x1F2E)     ; Ἦ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA WITH PSILI")
       (=ucs              . #x1F20)     ; ἠ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F26)       ; ἦ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI")
+      (=ucs              . #x1F2E)     ; Ἦ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI")
-      (=ucs              . #x1F2F)     ; Ἧ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA WITH DASIA")
       (=ucs              . #x1F21)     ; ἡ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F27)       ; ἧ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI")
+      (=ucs              . #x1F2F)     ; Ἧ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ETA WITH PSILI")
-      (=ucs              . #x1F20)     ; ἠ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA")
       (=ucs              . #x0397)     ; Η
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F28)       ; Ἠ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH PSILI")
+      (=ucs              . #x1F20)     ; ἠ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ETA WITH DASIA")
-      (=ucs              . #x1F21)     ; ἡ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA")
       (=ucs              . #x0397)     ; Η
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F29)       ; Ἡ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH DASIA")
+      (=ucs              . #x1F21)     ; ἡ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA")
-      (=ucs              . #x1F22)     ; ἢ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
       (=ucs              . #x1F28)     ; Ἠ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F2A)       ; Ἢ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA")
+      (=ucs              . #x1F22)     ; ἢ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA")
-      (=ucs              . #x1F23)     ; ἣ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
       (=ucs              . #x1F29)     ; Ἡ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F2B)       ; Ἣ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA")
+      (=ucs              . #x1F23)     ; ἣ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA")
-      (=ucs              . #x1F24)     ; ἤ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
       (=ucs              . #x1F28)     ; Ἠ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F2C)       ; Ἤ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA")
+      (=ucs              . #x1F24)     ; ἤ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA")
-      (=ucs              . #x1F25)     ; ἥ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
       (=ucs              . #x1F29)     ; Ἡ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F2D)       ; Ἥ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA")
+      (=ucs              . #x1F25)     ; ἥ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI")
-      (=ucs              . #x1F26)     ; ἦ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
       (=ucs              . #x1F28)     ; Ἠ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F2E)       ; Ἦ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI")
+      (=ucs              . #x1F26)     ; ἦ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI")
-      (=ucs              . #x1F27)     ; ἧ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
       (=ucs              . #x1F29)     ; Ἡ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F2F)       ; Ἧ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI")
+      (=ucs              . #x1F27)     ; ἧ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PSILI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI")
-      (=ucs              . #x1F38)     ; Ἰ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA")
       (=ucs              . #x03B9)     ; ι
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F30)       ; ἰ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI")
+      (=ucs              . #x1F38)     ; Ἰ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DASIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA")
-      (=ucs              . #x1F39)     ; Ἱ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA")
       (=ucs              . #x03B9)     ; ι
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F31)       ; ἱ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA")
+      (=ucs              . #x1F39)     ; Ἱ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA")
-      (=ucs              . #x1F3A)     ; Ἲ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA WITH PSILI")
       (=ucs              . #x1F30)     ; ἰ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F32)       ; ἲ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA")
+      (=ucs              . #x1F3A)     ; Ἲ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA")
-      (=ucs              . #x1F3B)     ; Ἳ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA WITH DASIA")
       (=ucs              . #x1F31)     ; ἱ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F33)       ; ἳ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA")
+      (=ucs              . #x1F3B)     ; Ἳ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PSILI AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA")
-      (=ucs              . #x1F3C)     ; Ἴ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA WITH PSILI")
       (=ucs              . #x1F30)     ; ἰ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F34)       ; ἴ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA")
+      (=ucs              . #x1F3C)     ; Ἴ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DASIA AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA")
-      (=ucs              . #x1F3D)     ; Ἵ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA WITH DASIA")
       (=ucs              . #x1F31)     ; ἱ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F35)       ; ἵ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA")
+      (=ucs              . #x1F3D)     ; Ἵ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI")
-      (=ucs              . #x1F3E)     ; Ἶ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA WITH PSILI")
       (=ucs              . #x1F30)     ; ἰ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F36)       ; ἶ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI")
+      (=ucs              . #x1F3E)     ; Ἶ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI")
-      (=ucs              . #x1F3F)     ; Ἷ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA WITH DASIA")
       (=ucs              . #x1F31)     ; ἱ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F37)       ; ἷ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI")
+      (=ucs              . #x1F3F)     ; Ἷ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER IOTA WITH PSILI")
-      (=ucs              . #x1F30)     ; ἰ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA")
       (=ucs              . #x0399)     ; Ι
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F38)       ; Ἰ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH PSILI")
+      (=ucs              . #x1F30)     ; ἰ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER IOTA WITH DASIA")
-      (=ucs              . #x1F31)     ; ἱ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA")
       (=ucs              . #x0399)     ; Ι
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F39)       ; Ἱ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH DASIA")
+      (=ucs              . #x1F31)     ; ἱ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER IOTA WITH PSILI AND VARIA")
-      (=ucs              . #x1F32)     ; ἲ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI")
       (=ucs              . #x1F38)     ; Ἰ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F3A)       ; Ἲ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER IOTA WITH PSILI AND VARIA")
+      (=ucs              . #x1F32)     ; ἲ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER IOTA WITH DASIA AND VARIA")
-      (=ucs              . #x1F33)     ; ἳ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA")
       (=ucs              . #x1F39)     ; Ἱ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F3B)       ; Ἳ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER IOTA WITH DASIA AND VARIA")
+      (=ucs              . #x1F33)     ; ἳ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER IOTA WITH PSILI AND OXIA")
-      (=ucs              . #x1F34)     ; ἴ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI")
       (=ucs              . #x1F38)     ; Ἰ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F3C)       ; Ἴ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER IOTA WITH PSILI AND OXIA")
+      (=ucs              . #x1F34)     ; ἴ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER IOTA WITH DASIA AND OXIA")
-      (=ucs              . #x1F35)     ; ἵ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA")
       (=ucs              . #x1F39)     ; Ἱ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F3D)       ; Ἵ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER IOTA WITH DASIA AND OXIA")
+      (=ucs              . #x1F35)     ; ἵ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI")
-      (=ucs              . #x1F36)     ; ἶ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI")
       (=ucs              . #x1F38)     ; Ἰ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F3E)       ; Ἶ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI")
+      (=ucs              . #x1F36)     ; ἶ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI")
-      (=ucs              . #x1F37)     ; ἷ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA")
       (=ucs              . #x1F39)     ; Ἱ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F3F)       ; Ἷ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI")
+      (=ucs              . #x1F37)     ; ἷ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH PSILI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMICRON WITH PSILI")
-      (=ucs              . #x1F48)     ; Ὀ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMICRON")
       (=ucs              . #x03BF)     ; ο
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F40)       ; ὀ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMICRON WITH PSILI")
+      (=ucs              . #x1F48)     ; Ὀ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH DASIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMICRON WITH DASIA")
-      (=ucs              . #x1F49)     ; Ὁ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMICRON")
       (=ucs              . #x03BF)     ; ο
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F41)       ; ὁ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMICRON WITH DASIA")
+      (=ucs              . #x1F49)     ; Ὁ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA")
-      (=ucs              . #x1F4A)     ; Ὂ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMICRON WITH PSILI")
       (=ucs              . #x1F40)     ; ὀ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F42)       ; ὂ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA")
+      (=ucs              . #x1F4A)     ; Ὂ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA")
-      (=ucs              . #x1F4B)     ; Ὃ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMICRON WITH DASIA")
       (=ucs              . #x1F41)     ; ὁ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F43)       ; ὃ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA")
+      (=ucs              . #x1F4B)     ; Ὃ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA")
-      (=ucs              . #x1F4C)     ; Ὄ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMICRON WITH PSILI")
       (=ucs              . #x1F40)     ; ὀ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F44)       ; ὄ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA")
+      (=ucs              . #x1F4C)     ; Ὄ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA")
-      (=ucs              . #x1F4D)     ; Ὅ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMICRON WITH DASIA")
       (=ucs              . #x1F41)     ; ὁ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F45)       ; ὅ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA")
+      (=ucs              . #x1F4D)     ; Ὅ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH PSILI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER OMICRON WITH PSILI")
-      (=ucs              . #x1F40)     ; ὀ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMICRON")
       (=ucs              . #x039F)     ; Ο
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F48)       ; Ὀ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH PSILI")
+      (=ucs              . #x1F40)     ; ὀ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH DASIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER OMICRON WITH DASIA")
-      (=ucs              . #x1F41)     ; ὁ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMICRON")
       (=ucs              . #x039F)     ; Ο
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F49)       ; Ὁ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH DASIA")
+      (=ucs              . #x1F41)     ; ὁ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA")
-      (=ucs              . #x1F42)     ; ὂ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH PSILI")
       (=ucs              . #x1F48)     ; Ὀ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F4A)       ; Ὂ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA")
+      (=ucs              . #x1F42)     ; ὂ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA")
-      (=ucs              . #x1F43)     ; ὃ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH DASIA")
       (=ucs              . #x1F49)     ; Ὁ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F4B)       ; Ὃ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA")
+      (=ucs              . #x1F43)     ; ὃ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA")
-      (=ucs              . #x1F44)     ; ὄ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH PSILI")
       (=ucs              . #x1F48)     ; Ὀ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F4C)       ; Ὄ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA")
+      (=ucs              . #x1F44)     ; ὄ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA")
-      (=ucs              . #x1F45)     ; ὅ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH DASIA")
       (=ucs              . #x1F49)     ; Ὁ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F4D)       ; Ὅ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA")
+      (=ucs              . #x1F45)     ; ὅ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH PSILI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER UPSILON WITH DASIA")
-      (=ucs              . #x1F59)     ; Ὑ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER UPSILON")
       (=ucs              . #x03C5)     ; υ
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F51)       ; ὑ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH DASIA")
+      (=ucs              . #x1F59)     ; Ὑ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA")
-      (=ucs              . #x1F5B)     ; Ὓ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA")
       (=ucs              . #x1F51)     ; ὑ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F53)       ; ὓ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA")
+      (=ucs              . #x1F5B)     ; Ὓ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA")
-      (=ucs              . #x1F5D)     ; Ὕ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA")
       (=ucs              . #x1F51)     ; ὑ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F55)       ; ὕ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA")
+      (=ucs              . #x1F5D)     ; Ὕ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI")
-      (=ucs              . #x1F5F)     ; Ὗ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA")
       (=ucs              . #x1F51)     ; ὑ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F57)       ; ὗ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI")
+      (=ucs              . #x1F5F)     ; Ὗ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH DASIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA")
-      (=ucs              . #x1F51)     ; ὑ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER UPSILON")
       (=ucs              . #x03A5)     ; Υ
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F59)       ; Ὑ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA")
+      (=ucs              . #x1F51)     ; ὑ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA")
-      (=ucs              . #x1F53)     ; ὓ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH DASIA")
       (=ucs              . #x1F59)     ; Ὑ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F5B)       ; Ὓ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA")
+      (=ucs              . #x1F53)     ; ὓ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA")
-      (=ucs              . #x1F55)     ; ὕ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH DASIA")
       (=ucs              . #x1F59)     ; Ὑ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F5D)       ; Ὕ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA")
+      (=ucs              . #x1F55)     ; ὕ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI")
-      (=ucs              . #x1F57)     ; ὗ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH DASIA")
       (=ucs              . #x1F59)     ; Ὑ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F5F)       ; Ὗ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI")
+      (=ucs              . #x1F57)     ; ὗ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
-      (=ucs              . #x1F68)     ; Ὠ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA")
       (=ucs              . #x03C9)     ; ω
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F60)       ; ὠ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
+      (=ucs              . #x1F68)     ; Ὠ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
-      (=ucs              . #x1F69)     ; Ὡ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA")
       (=ucs              . #x03C9)     ; ω
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F61)       ; ὡ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
+      (=ucs              . #x1F69)     ; Ὡ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA")
-      (=ucs              . #x1F6A)     ; Ὢ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
       (=ucs              . #x1F60)     ; ὠ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F62)       ; ὢ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA")
+      (=ucs              . #x1F6A)     ; Ὢ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA")
-      (=ucs              . #x1F6B)     ; Ὣ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
       (=ucs              . #x1F61)     ; ὡ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F63)       ; ὣ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA")
+      (=ucs              . #x1F6B)     ; Ὣ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA")
-      (=ucs              . #x1F6C)     ; Ὤ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
       (=ucs              . #x1F60)     ; ὠ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F64)       ; ὤ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA")
+      (=ucs              . #x1F6C)     ; Ὤ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA")
-      (=ucs              . #x1F6D)     ; Ὥ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
       (=ucs              . #x1F61)     ; ὡ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F65)       ; ὥ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA")
+      (=ucs              . #x1F6D)     ; Ὥ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI")
-      (=ucs              . #x1F6E)     ; Ὦ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
       (=ucs              . #x1F60)     ; ὠ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F66)       ; ὦ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI")
+      (=ucs              . #x1F6E)     ; Ὦ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI")
-      (=ucs              . #x1F6F)     ; Ὧ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
       (=ucs              . #x1F61)     ; ὡ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F67)       ; ὧ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI")
+      (=ucs              . #x1F6F)     ; Ὧ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
-      (=ucs              . #x1F60)     ; ὠ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA")
       (=ucs              . #x03A9)     ; Ω
       (=ucs              . #x0313)     ; ̓
       ))
     (=ucs              . #x1F68)       ; Ὠ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
+      (=ucs              . #x1F60)     ; ὠ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
-      (=ucs              . #x1F61)     ; ὡ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA")
       (=ucs              . #x03A9)     ; Ω
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1F69)       ; Ὡ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
+      (=ucs              . #x1F61)     ; ὡ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA")
-      (=ucs              . #x1F62)     ; ὢ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
       (=ucs              . #x1F68)     ; Ὠ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F6A)       ; Ὢ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA")
+      (=ucs              . #x1F62)     ; ὢ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA")
-      (=ucs              . #x1F63)     ; ὣ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
       (=ucs              . #x1F69)     ; Ὡ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F6B)       ; Ὣ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA")
+      (=ucs              . #x1F63)     ; ὣ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA")
-      (=ucs              . #x1F64)     ; ὤ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
       (=ucs              . #x1F68)     ; Ὠ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F6C)       ; Ὤ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA")
+      (=ucs              . #x1F64)     ; ὤ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA")
-      (=ucs              . #x1F65)     ; ὥ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
       (=ucs              . #x1F69)     ; Ὡ
       (=ucs              . #x0301)     ; ́
       ))
     (=ucs              . #x1F6D)       ; Ὥ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA")
+      (=ucs              . #x1F65)     ; ὥ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI")
-      (=ucs              . #x1F66)     ; ὦ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
       (=ucs              . #x1F68)     ; Ὠ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F6E)       ; Ὦ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI")
+      (=ucs              . #x1F66)     ; ὦ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI")
-      (=ucs              . #x1F67)     ; ὧ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
       (=ucs              . #x1F69)     ; Ὡ
       (=ucs              . #x0342)     ; ͂
       ))
     (=ucs              . #x1F6F)       ; Ὧ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI")
+      (=ucs              . #x1F67)     ; ὧ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ALPHA WITH VARIA")
-      (=ucs              . #x1FBA)     ; Ὰ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA")
       (=ucs              . #x03B1)     ; α
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F70)       ; ὰ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH VARIA")
+      (=ucs              . #x1FBA)     ; Ὰ
+      ))
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER ALPHA WITH GRAVE")
      ((name              . "COMBINING GRAVE ACCENT")
       (=ucs              . #x0300)     ; ̀
       ))
-    (=jis-x0213-1-2000 . #x2B46)       ; &JX1-2B46; [11-38]
     (=ucs@jis          . #x1F70)       ; &JX1-2B46;
+    (=jis-x0213-1      . #x2B46)       ; &JX1-2B46; [11-38]
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1F71)       ; ά
     (->canonical
      ((name              . "GREEK SMALL LETTER ALPHA WITH TONOS")
       (=ucs              . #x03AC)     ; ά
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH OXIA")
       (=ucs              . #x1FBB)     ; Ά
       ))
-    (=ucs              . #x1F71)       ; ά
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER ALPHA WITH ACUTE")
      ((name              . "COMBINING ACUTE ACCENT")
       (=ucs              . #x0301)     ; ́
       ))
-    (=jis-x0213-1-2000 . #x2B47)       ; &JX1-2B47; [11-39]
     (=ucs@jis          . #x1F71)       ; &JX1-2B47;
+    (=jis-x0213-1      . #x2B47)       ; &JX1-2B47; [11-39]
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER EPSILON WITH VARIA")
-      (=ucs              . #x1FC8)     ; Ὲ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER EPSILON")
       (=ucs              . #x03B5)     ; ε
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F72)       ; ὲ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER EPSILON WITH VARIA")
+      (=ucs              . #x1FC8)     ; Ὲ
+      ))
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER OPEN E WITH GRAVE")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "LATIN CAPITAL LETTER OPEN E WITH GRAVE")
-      ))
     (=decomposition
      ((name              . "LATIN SMALL LETTER OPEN E")
       (=ucs              . #x025B)     ; ɛ
      ((name              . "COMBINING GRAVE ACCENT")
       (=ucs              . #x0300)     ; ̀
       ))
-    (=jis-x0213-1-2000 . #x2B50)       ; &JX1-2B50; [11-48]
     (=ucs@jis          . #x1F72)       ; &JX1-2B50;
+    (=jis-x0213-1      . #x2B50)       ; &JX1-2B50; [11-48]
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER OPEN E WITH GRAVE")
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1F73)       ; έ
     (->canonical
      ((name              . "GREEK SMALL LETTER EPSILON WITH TONOS")
       (=ucs              . #x03AD)     ; έ
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH OXIA")
       (=ucs              . #x1FC9)     ; Έ
       ))
-    (=ucs              . #x1F73)       ; έ
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER OPEN E WITH ACUTE")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "LATIN CAPITAL LETTER OPEN E WITH ACUTE")
-      ))
     (=decomposition
      ((name              . "LATIN SMALL LETTER OPEN E")
       (=ucs              . #x025B)     ; ɛ
      ((name              . "COMBINING ACUTE ACCENT")
       (=ucs              . #x0301)     ; ́
       ))
-    (=jis-x0213-1-2000 . #x2B51)       ; &JX1-2B51; [11-49]
     (=ucs@jis          . #x1F73)       ; &JX1-2B51;
+    (=jis-x0213-1      . #x2B51)       ; &JX1-2B51; [11-49]
+    (->uppercase
+     ((name              . "LATIN CAPITAL LETTER OPEN E WITH ACUTE")
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ETA WITH VARIA")
-      (=ucs              . #x1FCA)     ; Ὴ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA")
       (=ucs              . #x03B7)     ; η
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F74)       ; ὴ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH VARIA")
+      (=ucs              . #x1FCA)     ; Ὴ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1F75)       ; ή
     (->canonical
      ((name              . "GREEK SMALL LETTER ETA WITH TONOS")
       (=ucs              . #x03AE)     ; ή
      ((name              . "GREEK CAPITAL LETTER ETA WITH OXIA")
       (=ucs              . #x1FCB)     ; Ή
       ))
-    (=ucs              . #x1F75)       ; ή
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER IOTA WITH VARIA")
-      (=ucs              . #x1FDA)     ; Ὶ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA")
       (=ucs              . #x03B9)     ; ι
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F76)       ; ὶ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH VARIA")
+      (=ucs              . #x1FDA)     ; Ὶ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1F77)       ; ί
     (->canonical
      ((name              . "GREEK SMALL LETTER IOTA WITH TONOS")
       (=ucs              . #x03AF)     ; ί
      ((name              . "GREEK CAPITAL LETTER IOTA WITH OXIA")
       (=ucs              . #x1FDB)     ; Ί
       ))
-    (=ucs              . #x1F77)       ; ί
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMICRON WITH VARIA")
-      (=ucs              . #x1FF8)     ; Ὸ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMICRON")
       (=ucs              . #x03BF)     ; ο
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F78)       ; ὸ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMICRON WITH VARIA")
+      (=ucs              . #x1FF8)     ; Ὸ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1F79)       ; ό
     (->canonical
      ((name              . "GREEK SMALL LETTER OMICRON WITH TONOS")
       (=ucs              . #x03CC)     ; ό
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH OXIA")
       (=ucs              . #x1FF9)     ; Ό
       ))
-    (=ucs              . #x1F79)       ; ό
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER UPSILON WITH VARIA")
-      (=ucs              . #x1FEA)     ; Ὺ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER UPSILON")
       (=ucs              . #x03C5)     ; υ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F7A)       ; ὺ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH VARIA")
+      (=ucs              . #x1FEA)     ; Ὺ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1F7B)       ; ύ
     (->canonical
      ((name              . "GREEK SMALL LETTER UPSILON WITH TONOS")
       (=ucs              . #x03CD)     ; ύ
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH OXIA")
       (=ucs              . #x1FEB)     ; Ύ
       ))
-    (=ucs              . #x1F7B)       ; ύ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMEGA WITH VARIA")
-      (=ucs              . #x1FFA)     ; Ὼ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA")
       (=ucs              . #x03C9)     ; ω
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1F7C)       ; ὼ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH VARIA")
+      (=ucs              . #x1FFA)     ; Ὼ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1F7D)       ; ώ
     (->canonical
      ((name              . "GREEK SMALL LETTER OMEGA WITH TONOS")
       (=ucs              . #x03CE)     ; ώ
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH OXIA")
       (=ucs              . #x1FFB)     ; Ώ
       ))
-    (=ucs              . #x1F7D)       ; ώ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI")
-      (=ucs              . #x1F88)     ; ᾈ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI")
       (=ucs              . #x1F00)     ; ἀ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F80)       ; ᾀ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI")
+      (=ucs              . #x1F88)     ; ᾈ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1F89)     ; ᾉ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
       (=ucs              . #x1F01)     ; ἁ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F81)       ; ᾁ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1F89)     ; ᾉ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1F8A)     ; ᾊ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA")
       (=ucs              . #x1F02)     ; ἂ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F82)       ; ᾂ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1F8A)     ; ᾊ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1F8B)     ; ᾋ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA")
       (=ucs              . #x1F03)     ; ἃ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F83)       ; ᾃ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1F8B)     ; ᾋ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1F8C)     ; ᾌ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA")
       (=ucs              . #x1F04)     ; ἄ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F84)       ; ᾄ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1F8C)     ; ᾌ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1F8D)     ; ᾍ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA")
       (=ucs              . #x1F05)     ; ἅ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F85)       ; ᾅ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1F8D)     ; ᾍ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
-      (=ucs              . #x1F8E)     ; ᾎ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI")
       (=ucs              . #x1F06)     ; ἆ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F86)       ; ᾆ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
+      (=ucs              . #x1F8E)     ; ᾎ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
-      (=ucs              . #x1F8F)     ; ᾏ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI")
       (=ucs              . #x1F07)     ; ἇ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F87)       ; ᾇ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
+      (=ucs              . #x1F8F)     ; ᾏ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI")
-      (=ucs              . #x1F80)     ; ᾀ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
       (=ucs              . #x1F08)     ; Ἀ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F88)       ; ᾈ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI")
+      (=ucs              . #x1F80)     ; ᾀ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1F81)     ; ᾁ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
       (=ucs              . #x1F09)     ; Ἁ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F89)       ; ᾉ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1F81)     ; ᾁ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1F82)     ; ᾂ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA")
       (=ucs              . #x1F0A)     ; Ἂ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F8A)       ; ᾊ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1F82)     ; ᾂ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1F83)     ; ᾃ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA")
       (=ucs              . #x1F0B)     ; Ἃ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F8B)       ; ᾋ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1F83)     ; ᾃ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1F84)     ; ᾄ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA")
       (=ucs              . #x1F0C)     ; Ἄ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F8C)       ; ᾌ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1F84)     ; ᾄ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1F85)     ; ᾅ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA")
       (=ucs              . #x1F0D)     ; Ἅ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F8D)       ; ᾍ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1F85)     ; ᾅ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
-      (=ucs              . #x1F86)     ; ᾆ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI")
       (=ucs              . #x1F0E)     ; Ἆ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F8E)       ; ᾎ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
+      (=ucs              . #x1F86)     ; ᾆ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
-      (=ucs              . #x1F87)     ; ᾇ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI")
       (=ucs              . #x1F0F)     ; Ἇ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F8F)       ; ᾏ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
+      (=ucs              . #x1F87)     ; ᾇ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI")
-      (=ucs              . #x1F98)     ; ᾘ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA WITH PSILI")
       (=ucs              . #x1F20)     ; ἠ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F90)       ; ᾐ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI")
+      (=ucs              . #x1F98)     ; ᾘ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1F99)     ; ᾙ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA WITH DASIA")
       (=ucs              . #x1F21)     ; ἡ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F91)       ; ᾑ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1F99)     ; ᾙ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1F9A)     ; ᾚ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA")
       (=ucs              . #x1F22)     ; ἢ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F92)       ; ᾒ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1F9A)     ; ᾚ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1F9B)     ; ᾛ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA")
       (=ucs              . #x1F23)     ; ἣ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F93)       ; ᾓ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1F9B)     ; ᾛ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1F9C)     ; ᾜ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA")
       (=ucs              . #x1F24)     ; ἤ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F94)       ; ᾔ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1F9C)     ; ᾜ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1F9D)     ; ᾝ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA")
       (=ucs              . #x1F25)     ; ἥ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F95)       ; ᾕ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1F9D)     ; ᾝ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
-      (=ucs              . #x1F9E)     ; ᾞ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI")
       (=ucs              . #x1F26)     ; ἦ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F96)       ; ᾖ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
+      (=ucs              . #x1F9E)     ; ᾞ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
-      (=ucs              . #x1F9F)     ; ᾟ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI")
       (=ucs              . #x1F27)     ; ἧ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F97)       ; ᾗ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
+      (=ucs              . #x1F9F)     ; ᾟ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI")
-      (=ucs              . #x1F90)     ; ᾐ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
       (=ucs              . #x1F28)     ; Ἠ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F98)       ; ᾘ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI")
+      (=ucs              . #x1F90)     ; ᾐ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1F91)     ; ᾑ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
       (=ucs              . #x1F29)     ; Ἡ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F99)       ; ᾙ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1F91)     ; ᾑ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1F92)     ; ᾒ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA")
       (=ucs              . #x1F2A)     ; Ἢ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F9A)       ; ᾚ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1F92)     ; ᾒ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1F93)     ; ᾓ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA")
       (=ucs              . #x1F2B)     ; Ἣ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F9B)       ; ᾛ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1F93)     ; ᾓ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1F94)     ; ᾔ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA")
       (=ucs              . #x1F2C)     ; Ἤ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F9C)       ; ᾜ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1F94)     ; ᾔ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1F95)     ; ᾕ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA")
       (=ucs              . #x1F2D)     ; Ἥ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F9D)       ; ᾝ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1F95)     ; ᾕ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
-      (=ucs              . #x1F96)     ; ᾖ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI")
       (=ucs              . #x1F2E)     ; Ἦ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F9E)       ; ᾞ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
+      (=ucs              . #x1F96)     ; ᾖ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
-      (=ucs              . #x1F97)     ; ᾗ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI")
       (=ucs              . #x1F2F)     ; Ἧ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1F9F)       ; ᾟ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
+      (=ucs              . #x1F97)     ; ᾗ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI")
-      (=ucs              . #x1FA8)     ; ᾨ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
       (=ucs              . #x1F60)     ; ὠ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FA0)       ; ᾠ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI")
+      (=ucs              . #x1FA8)     ; ᾨ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1FA9)     ; ᾩ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
       (=ucs              . #x1F61)     ; ὡ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FA1)       ; ᾡ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1FA9)     ; ᾩ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1FAA)     ; ᾪ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA")
       (=ucs              . #x1F62)     ; ὢ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FA2)       ; ᾢ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1FAA)     ; ᾪ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1FAB)     ; ᾫ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA")
       (=ucs              . #x1F63)     ; ὣ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FA3)       ; ᾣ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1FAB)     ; ᾫ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1FAC)     ; ᾬ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA")
       (=ucs              . #x1F64)     ; ὤ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FA4)       ; ᾤ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1FAC)     ; ᾬ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
-      (=ucs              . #x1FAD)     ; ᾭ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA")
       (=ucs              . #x1F65)     ; ὥ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FA5)       ; ᾥ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
+      (=ucs              . #x1FAD)     ; ᾭ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
-      (=ucs              . #x1FAE)     ; ᾮ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI")
       (=ucs              . #x1F66)     ; ὦ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FA6)       ; ᾦ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
+      (=ucs              . #x1FAE)     ; ᾮ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
-      (=ucs              . #x1FAF)     ; ᾯ
-      ))
     (=decomposition
      ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI")
       (=ucs              . #x1F67)     ; ὧ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FA7)       ; ᾧ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
+      (=ucs              . #x1FAF)     ; ᾯ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI")
-      (=ucs              . #x1FA0)     ; ᾠ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
       (=ucs              . #x1F68)     ; Ὠ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FA8)       ; ᾨ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI")
+      (=ucs              . #x1FA0)     ; ᾠ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1FA1)     ; ᾡ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
       (=ucs              . #x1F69)     ; Ὡ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FA9)       ; ᾩ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1FA1)     ; ᾡ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1FA2)     ; ᾢ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA")
       (=ucs              . #x1F6A)     ; Ὢ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FAA)       ; ᾪ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1FA2)     ; ᾢ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1FA3)     ; ᾣ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA")
       (=ucs              . #x1F6B)     ; Ὣ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FAB)       ; ᾫ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1FA3)     ; ᾣ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1FA4)     ; ᾤ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA")
       (=ucs              . #x1F6C)     ; Ὤ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FAC)       ; ᾬ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1FA4)     ; ᾤ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
-      (=ucs              . #x1FA5)     ; ᾥ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA")
       (=ucs              . #x1F6D)     ; Ὥ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FAD)       ; ᾭ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
+      (=ucs              . #x1FA5)     ; ᾥ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
-    (bidi-category     . "L")
-    (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
-      (=ucs              . #x1FA6)     ; ᾦ
-      ))
+    (bidi-category     . "L")
+    (mirrored          . nil)
     (=decomposition
      ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI")
       (=ucs              . #x1F6E)     ; Ὦ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FAE)       ; ᾮ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
+      (=ucs              . #x1FA6)     ; ᾦ
+      ))
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
-      (=ucs              . #x1FA7)     ; ᾧ
-      ))
     (=decomposition
      ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI")
       (=ucs              . #x1F6F)     ; Ὧ
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FAF)       ; ᾯ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
+      (=ucs              . #x1FA7)     ; ᾧ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH VRACHY")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ALPHA WITH VRACHY")
-      (=ucs              . #x1FB8)     ; Ᾰ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA")
       (=ucs              . #x03B1)     ; α
       (=ucs              . #x0306)     ; ̆
       ))
     (=ucs              . #x1FB0)       ; ᾰ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH VRACHY")
+      (=ucs              . #x1FB8)     ; Ᾰ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH MACRON")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ALPHA WITH MACRON")
-      (=ucs              . #x1FB9)     ; Ᾱ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA")
       (=ucs              . #x03B1)     ; α
       (=ucs              . #x0304)     ; ̄
       ))
     (=ucs              . #x1FB1)       ; ᾱ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH MACRON")
+      (=ucs              . #x1FB9)     ; Ᾱ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI")
-      (=ucs              . #x1FBC)     ; ᾼ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ALPHA")
       (=ucs              . #x03B1)     ; α
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FB3)       ; ᾳ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI")
+      (=ucs              . #x1FBC)     ; ᾼ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ALPHA WITH VRACHY")
-      (=ucs              . #x1FB0)     ; ᾰ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA")
       (=ucs              . #x0391)     ; Α
       (=ucs              . #x0306)     ; ̆
       ))
     (=ucs              . #x1FB8)       ; Ᾰ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH VRACHY")
+      (=ucs              . #x1FB0)     ; ᾰ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH MACRON")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ALPHA WITH MACRON")
-      (=ucs              . #x1FB1)     ; ᾱ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA")
       (=ucs              . #x0391)     ; Α
       (=ucs              . #x0304)     ; ̄
       ))
     (=ucs              . #x1FB9)       ; Ᾱ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH MACRON")
+      (=ucs              . #x1FB1)     ; ᾱ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ALPHA WITH VARIA")
-      (=ucs              . #x1F70)     ; ὰ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA")
       (=ucs              . #x0391)     ; Α
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1FBA)       ; Ὰ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH VARIA")
+      (=ucs              . #x1F70)     ; ὰ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1FBB)       ; Ά
     (->canonical
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
       (=ucs              . #x0386)     ; Ά
      ((name              . "GREEK SMALL LETTER ALPHA WITH OXIA")
       (=ucs              . #x1F71)     ; ά
       ))
-    (=ucs              . #x1FBB)       ; Ά
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI")
-      (=ucs              . #x1FB3)     ; ᾳ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ALPHA")
       (=ucs              . #x0391)     ; Α
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FBC)       ; ᾼ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI")
+      (=ucs              . #x1FB3)     ; ᾳ
+      ))
     ))
 (define-char
   '((name              . "GREEK KORONIS")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1FBE)       ; ι
     (->canonical
      ((name              . "GREEK SMALL LETTER IOTA")
       (=ucs              . #x03B9)     ; ι
      ((name              . "GREEK CAPITAL LETTER IOTA")
       (=ucs              . #x0399)     ; Ι
       ))
-    (=ucs              . #x1FBE)       ; ι
     ))
 (define-char
   '((name              . "GREEK PSILI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI")
-      (=ucs              . #x1FCC)     ; ῌ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER ETA")
       (=ucs              . #x03B7)     ; η
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FC3)       ; ῃ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI")
+      (=ucs              . #x1FCC)     ; ῌ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER EPSILON WITH VARIA")
-      (=ucs              . #x1F72)     ; ὲ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER EPSILON")
       (=ucs              . #x0395)     ; Ε
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1FC8)       ; Ὲ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH VARIA")
+      (=ucs              . #x1F72)     ; ὲ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1FC9)       ; Έ
     (->canonical
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
       (=ucs              . #x0388)     ; Έ
      ((name              . "GREEK SMALL LETTER EPSILON WITH OXIA")
       (=ucs              . #x1F73)     ; έ
       ))
-    (=ucs              . #x1FC9)       ; Έ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ETA WITH VARIA")
-      (=ucs              . #x1F74)     ; ὴ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA")
       (=ucs              . #x0397)     ; Η
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1FCA)       ; Ὴ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH VARIA")
+      (=ucs              . #x1F74)     ; ὴ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1FCB)       ; Ή
     (->canonical
      ((name              . "GREEK CAPITAL LETTER ETA WITH TONOS")
       (=ucs              . #x0389)     ; Ή
      ((name              . "GREEK SMALL LETTER ETA WITH OXIA")
       (=ucs              . #x1F75)     ; ή
       ))
-    (=ucs              . #x1FCB)       ; Ή
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI")
-      (=ucs              . #x1FC3)     ; ῃ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER ETA")
       (=ucs              . #x0397)     ; Η
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FCC)       ; ῌ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI")
+      (=ucs              . #x1FC3)     ; ῃ
+      ))
     ))
 (define-char
   '((name              . "GREEK PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER IOTA WITH VRACHY")
-      (=ucs              . #x1FD8)     ; Ῐ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA")
       (=ucs              . #x03B9)     ; ι
       (=ucs              . #x0306)     ; ̆
       ))
     (=ucs              . #x1FD0)       ; ῐ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH VRACHY")
+      (=ucs              . #x1FD8)     ; Ῐ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH MACRON")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER IOTA WITH MACRON")
-      (=ucs              . #x1FD9)     ; Ῑ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER IOTA")
       (=ucs              . #x03B9)     ; ι
       (=ucs              . #x0304)     ; ̄
       ))
     (=ucs              . #x1FD1)       ; ῑ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH MACRON")
+      (=ucs              . #x1FD9)     ; Ῑ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1FD3)       ; ΐ
     (->canonical
      ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
       (=ucs              . #x0390)     ; ΐ
       ))
-    (=ucs              . #x1FD3)       ; ΐ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER IOTA WITH VRACHY")
-      (=ucs              . #x1FD0)     ; ῐ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA")
       (=ucs              . #x0399)     ; Ι
       (=ucs              . #x0306)     ; ̆
       ))
     (=ucs              . #x1FD8)       ; Ῐ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH VRACHY")
+      (=ucs              . #x1FD0)     ; ῐ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH MACRON")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER IOTA WITH MACRON")
-      (=ucs              . #x1FD1)     ; ῑ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA")
       (=ucs              . #x0399)     ; Ι
       (=ucs              . #x0304)     ; ̄
       ))
     (=ucs              . #x1FD9)       ; Ῑ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH MACRON")
+      (=ucs              . #x1FD1)     ; ῑ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER IOTA WITH VARIA")
-      (=ucs              . #x1F76)     ; ὶ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER IOTA")
       (=ucs              . #x0399)     ; Ι
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1FDA)       ; Ὶ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH VARIA")
+      (=ucs              . #x1F76)     ; ὶ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1FDB)       ; Ί
     (->canonical
      ((name              . "GREEK CAPITAL LETTER IOTA WITH TONOS")
       (=ucs              . #x038A)     ; Ί
      ((name              . "GREEK SMALL LETTER IOTA WITH OXIA")
       (=ucs              . #x1F77)     ; ί
       ))
-    (=ucs              . #x1FDB)       ; Ί
     ))
 (define-char
   '((name              . "GREEK DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER UPSILON WITH VRACHY")
-      (=ucs              . #x1FE8)     ; Ῠ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER UPSILON")
       (=ucs              . #x03C5)     ; υ
       (=ucs              . #x0306)     ; ̆
       ))
     (=ucs              . #x1FE0)       ; ῠ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH VRACHY")
+      (=ucs              . #x1FE8)     ; Ῠ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH MACRON")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER UPSILON WITH MACRON")
-      (=ucs              . #x1FE9)     ; Ῡ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER UPSILON")
       (=ucs              . #x03C5)     ; υ
       (=ucs              . #x0304)     ; ̄
       ))
     (=ucs              . #x1FE1)       ; ῡ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH MACRON")
+      (=ucs              . #x1FE9)     ; Ῡ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1FE3)       ; ΰ
     (->canonical
      ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
       (=ucs              . #x03B0)     ; ΰ
       ))
-    (=ucs              . #x1FE3)       ; ΰ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER RHO WITH PSILI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name              . "GREEK CAPITAL LETTER RHO WITH DASIA")
-      (=ucs              . #x1FEC)     ; Ῥ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER RHO")
       (=ucs              . #x03C1)     ; ρ
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1FE5)       ; ῥ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER RHO WITH DASIA")
+      (=ucs              . #x1FEC)     ; Ῥ
+      ))
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH PERISPOMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER UPSILON WITH VRACHY")
-      (=ucs              . #x1FE0)     ; ῠ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER UPSILON")
       (=ucs              . #x03A5)     ; Υ
       (=ucs              . #x0306)     ; ̆
       ))
     (=ucs              . #x1FE8)       ; Ῠ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH VRACHY")
+      (=ucs              . #x1FE0)     ; ῠ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH MACRON")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER UPSILON WITH MACRON")
-      (=ucs              . #x1FE1)     ; ῡ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER UPSILON")
       (=ucs              . #x03A5)     ; Υ
       (=ucs              . #x0304)     ; ̄
       ))
     (=ucs              . #x1FE9)       ; Ῡ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH MACRON")
+      (=ucs              . #x1FE1)     ; ῡ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER UPSILON WITH VARIA")
-      (=ucs              . #x1F7A)     ; ὺ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER UPSILON")
       (=ucs              . #x03A5)     ; Υ
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1FEA)       ; Ὺ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH VARIA")
+      (=ucs              . #x1F7A)     ; ὺ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1FEB)       ; Ύ
     (->canonical
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
       (=ucs              . #x038E)     ; Ύ
      ((name              . "GREEK SMALL LETTER UPSILON WITH OXIA")
       (=ucs              . #x1F7B)     ; ύ
       ))
-    (=ucs              . #x1FEB)       ; Ύ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER RHO WITH DASIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER RHO WITH DASIA")
-      (=ucs              . #x1FE5)     ; ῥ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER RHO")
       (=ucs              . #x03A1)     ; Ρ
       (=ucs              . #x0314)     ; ̔
       ))
     (=ucs              . #x1FEC)       ; Ῥ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER RHO WITH DASIA")
+      (=ucs              . #x1FE5)     ; ῥ
+      ))
     ))
 (define-char
   '((name              . "GREEK DIALYTIKA AND VARIA")
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x1FEE)       ; ΅
     (->canonical
      ((name              . "GREEK DIALYTIKA TONOS")
       (=ucs              . #x0385)     ; ΅
       ))
-    (=ucs              . #x1FEE)       ; ΅
     ))
 (define-char
   '((name              . "GREEK VARIA")
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x1FEF)       ; `
     (->canonical
      ((name              . "GRAVE ACCENT")
       (=ucs              . #x0060)     ; `
       ))
-    (=ucs              . #x1FEF)       ; `
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase
-     ((name . "GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI")
-      (=ucs              . #x1FFC)     ; ῼ
-      ))
     (=decomposition
      ((name              . "GREEK SMALL LETTER OMEGA")
       (=ucs              . #x03C9)     ; ω
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FF3)       ; ῳ
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI")
+      (=ucs              . #x1FFC)     ; ῼ
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER OMICRON WITH VARIA")
-      (=ucs              . #x1F78)     ; ὸ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMICRON")
       (=ucs              . #x039F)     ; Ο
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1FF8)       ; Ὸ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH VARIA")
+      (=ucs              . #x1F78)     ; ὸ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1FF9)       ; Ό
     (->canonical
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
       (=ucs              . #x038C)     ; Ό
      ((name              . "GREEK SMALL LETTER OMICRON WITH OXIA")
       (=ucs              . #x1F79)     ; ό
       ))
-    (=ucs              . #x1FF9)       ; Ό
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name              . "GREEK SMALL LETTER OMEGA WITH VARIA")
-      (=ucs              . #x1F7C)     ; ὼ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA")
       (=ucs              . #x03A9)     ; Ω
       (=ucs              . #x0300)     ; ̀
       ))
     (=ucs              . #x1FFA)       ; Ὼ
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH VARIA")
+      (=ucs              . #x1F7C)     ; ὼ
+      ))
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (=ucs              . #x1FFB)       ; Ώ
     (->canonical
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
       (=ucs              . #x038F)     ; Ώ
      ((name              . "GREEK SMALL LETTER OMEGA WITH OXIA")
       (=ucs              . #x1F7D)     ; ώ
       ))
-    (=ucs              . #x1FFB)       ; Ώ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase
-     ((name . "GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI")
-      (=ucs              . #x1FF3)     ; ῳ
-      ))
     (=decomposition
      ((name              . "GREEK CAPITAL LETTER OMEGA")
       (=ucs              . #x03A9)     ; Ω
       (=ucs              . #x0345)     ; ͅ
       ))
     (=ucs              . #x1FFC)       ; ῼ
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI")
+      (=ucs              . #x1FF3)     ; ῳ
+      ))
     ))
 (define-char
   '((name              . "GREEK OXIA")
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (=ucs              . #x1FFD)       ; ´
     (->canonical
      ((name              . "ACUTE ACCENT")
       (=ucs              . #x00B4)     ; ´
       ))
-    (=ucs              . #x1FFD)       ; ´
     ))
 (define-char
   '((name              . "GREEK DASIA")