- Use ``character-reference'' style for `->uppercase' and
authortomo <tomo>
Thu, 26 Jul 2001 11:52:20 +0000 (11:52 +0000)
committertomo <tomo>
Thu, 26 Jul 2001 11:52:20 +0000 (11:52 +0000)
  `->lowercase'.
- Omit `->titlecase' because each value of it has the same value of
`->uppercase'.
(GREEK SMALL LETTER ALPHA WITH VARIA): Separate JX1-2B46.
(LATIN SMALL LETTER ALPHA WITH GRAVE): New character; unify JX1-2B46.
(GREEK SMALL LETTER ALPHA WITH OXIA): Separate JX1-2B47.
(LATIN SMALL LETTER ALPHA WITH ACUTE): New character; unify JX1-2B47.
(GREEK SMALL LETTER EPSILON WITH VARIA): Separate JX1-2B50.
(LATIN SMALL LETTER OPEN E WITH GRAVE): New character; unify JX1-2B50.
(GREEK SMALL LETTER EPSILON WITH OXIA): Separate JX1-2B51.
(LATIN SMALL LETTER OPEN E WITH ACUTE): New character; unify JX1-2B51.

lisp/utf-2000/u01F00-Greek-Extended.el

index cd0cf4f..f9596ee 100644 (file)
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH PSILI")
-    (ucs               . #x1F00)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B1 #x0313)
-    (->uppercase       #x1F08)
-    (->titlecase       #x1F08)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
+      (ucs               . #x1F08)     ; Ἀ
+      ))
+    (ucs               . #x1F00)       ; ἀ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
-    (ucs               . #x1F01)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B1 #x0314)
-    (->uppercase       #x1F09)
-    (->titlecase       #x1F09)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
+      (ucs               . #x1F09)     ; Ἁ
+      ))
+    (ucs               . #x1F01)       ; ἁ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA")
-    (ucs               . #x1F02)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F00 #x0300)
-    (->uppercase       #x1F0A)
-    (->titlecase       #x1F0A)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA")
+      (ucs               . #x1F0A)     ; Ἂ
+      ))
+    (ucs               . #x1F02)       ; ἂ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA")
-    (ucs               . #x1F03)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F01 #x0300)
-    (->uppercase       #x1F0B)
-    (->titlecase       #x1F0B)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA")
+      (ucs               . #x1F0B)     ; Ἃ
+      ))
+    (ucs               . #x1F03)       ; ἃ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA")
-    (ucs               . #x1F04)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F00 #x0301)
-    (->uppercase       #x1F0C)
-    (->titlecase       #x1F0C)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA")
+      (ucs               . #x1F0C)     ; Ἄ
+      ))
+    (ucs               . #x1F04)       ; ἄ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA")
-    (ucs               . #x1F05)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F01 #x0301)
-    (->uppercase       #x1F0D)
-    (->titlecase       #x1F0D)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA")
+      (ucs               . #x1F0D)     ; Ἅ
+      ))
+    (ucs               . #x1F05)       ; ἅ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI")
-    (ucs               . #x1F06)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F00 #x0342)
-    (->uppercase       #x1F0E)
-    (->titlecase       #x1F0E)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI")
+      (ucs               . #x1F0E)     ; Ἆ
+      ))
+    (ucs               . #x1F06)       ; ἆ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI")
-    (ucs               . #x1F07)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F01 #x0342)
-    (->uppercase       #x1F0F)
-    (->titlecase       #x1F0F)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI")
+      (ucs               . #x1F0F)     ; Ἇ
+      ))
+    (ucs               . #x1F07)       ; ἇ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
-    (ucs               . #x1F08)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0391 #x0313)
-    (->lowercase       #x1F00)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI")
+      (ucs               . #x1F00)     ; ἀ
+      ))
+    (ucs               . #x1F08)       ; Ἀ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
-    (ucs               . #x1F09)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0391 #x0314)
-    (->lowercase       #x1F01)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
+      (ucs               . #x1F01)     ; ἁ
+      ))
+    (ucs               . #x1F09)       ; Ἁ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA")
-    (ucs               . #x1F0A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F08 #x0300)
-    (->lowercase       #x1F02)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA")
+      (ucs               . #x1F02)     ; ἂ
+      ))
+    (ucs               . #x1F0A)       ; Ἂ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA")
-    (ucs               . #x1F0B)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F09 #x0300)
-    (->lowercase       #x1F03)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA")
+      (ucs               . #x1F03)     ; ἃ
+      ))
+    (ucs               . #x1F0B)       ; Ἃ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA")
-    (ucs               . #x1F0C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F08 #x0301)
-    (->lowercase       #x1F04)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA")
+      (ucs               . #x1F04)     ; ἄ
+      ))
+    (ucs               . #x1F0C)       ; Ἄ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA")
-    (ucs               . #x1F0D)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F09 #x0301)
-    (->lowercase       #x1F05)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA")
+      (ucs               . #x1F05)     ; ἅ
+      ))
+    (ucs               . #x1F0D)       ; Ἅ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI")
-    (ucs               . #x1F0E)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F08 #x0342)
-    (->lowercase       #x1F06)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI")
+      (ucs               . #x1F06)     ; ἆ
+      ))
+    (ucs               . #x1F0E)       ; Ἆ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI")
-    (ucs               . #x1F0F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F09 #x0342)
-    (->lowercase       #x1F07)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI")
+      (ucs               . #x1F07)     ; ἇ
+      ))
+    (ucs               . #x1F0F)       ; Ἇ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH PSILI")
-    (ucs               . #x1F10)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B5 #x0313)
-    (->uppercase       #x1F18)
-    (->titlecase       #x1F18)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER EPSILON WITH PSILI")
+      (ucs               . #x1F18)     ; Ἐ
+      ))
+    (ucs               . #x1F10)       ; ἐ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH DASIA")
-    (ucs               . #x1F11)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B5 #x0314)
-    (->uppercase       #x1F19)
-    (->titlecase       #x1F19)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER EPSILON WITH DASIA")
+      (ucs               . #x1F19)     ; Ἑ
+      ))
+    (ucs               . #x1F11)       ; ἑ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA")
-    (ucs               . #x1F12)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F10 #x0300)
-    (->uppercase       #x1F1A)
-    (->titlecase       #x1F1A)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA")
+      (ucs               . #x1F1A)     ; Ἒ
+      ))
+    (ucs               . #x1F12)       ; ἒ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA")
-    (ucs               . #x1F13)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F11 #x0300)
-    (->uppercase       #x1F1B)
-    (->titlecase       #x1F1B)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA")
+      (ucs               . #x1F1B)     ; Ἓ
+      ))
+    (ucs               . #x1F13)       ; ἓ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA")
-    (ucs               . #x1F14)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F10 #x0301)
-    (->uppercase       #x1F1C)
-    (->titlecase       #x1F1C)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA")
+      (ucs               . #x1F1C)     ; Ἔ
+      ))
+    (ucs               . #x1F14)       ; ἔ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA")
-    (ucs               . #x1F15)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F11 #x0301)
-    (->uppercase       #x1F1D)
-    (->titlecase       #x1F1D)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA")
+      (ucs               . #x1F1D)     ; Ἕ
+      ))
+    (ucs               . #x1F15)       ; ἕ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH PSILI")
-    (ucs               . #x1F18)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0395 #x0313)
-    (->lowercase       #x1F10)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH PSILI")
+      (ucs               . #x1F10)     ; ἐ
+      ))
+    (ucs               . #x1F18)       ; Ἐ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH DASIA")
-    (ucs               . #x1F19)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0395 #x0314)
-    (->lowercase       #x1F11)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH DASIA")
+      (ucs               . #x1F11)     ; ἑ
+      ))
+    (ucs               . #x1F19)       ; Ἑ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA")
-    (ucs               . #x1F1A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F18 #x0300)
-    (->lowercase       #x1F12)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA")
+      (ucs               . #x1F12)     ; ἒ
+      ))
+    (ucs               . #x1F1A)       ; Ἒ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA")
-    (ucs               . #x1F1B)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F19 #x0300)
-    (->lowercase       #x1F13)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA")
+      (ucs               . #x1F13)     ; ἓ
+      ))
+    (ucs               . #x1F1B)       ; Ἓ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA")
-    (ucs               . #x1F1C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F18 #x0301)
-    (->lowercase       #x1F14)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA")
+      (ucs               . #x1F14)     ; ἔ
+      ))
+    (ucs               . #x1F1C)       ; Ἔ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA")
-    (ucs               . #x1F1D)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F19 #x0301)
-    (->lowercase       #x1F15)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA")
+      (ucs               . #x1F15)     ; ἕ
+      ))
+    (ucs               . #x1F1D)       ; Ἕ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PSILI")
-    (ucs               . #x1F20)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B7 #x0313)
-    (->uppercase       #x1F28)
-    (->titlecase       #x1F28)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
+      (ucs               . #x1F28)     ; Ἠ
+      ))
+    (ucs               . #x1F20)       ; ἠ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH DASIA")
-    (ucs               . #x1F21)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B7 #x0314)
-    (->uppercase       #x1F29)
-    (->titlecase       #x1F29)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
+      (ucs               . #x1F29)     ; Ἡ
+      ))
+    (ucs               . #x1F21)       ; ἡ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA")
-    (ucs               . #x1F22)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F20 #x0300)
-    (->uppercase       #x1F2A)
-    (->titlecase       #x1F2A)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA")
+      (ucs               . #x1F2A)     ; Ἢ
+      ))
+    (ucs               . #x1F22)       ; ἢ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA")
-    (ucs               . #x1F23)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F21 #x0300)
-    (->uppercase       #x1F2B)
-    (->titlecase       #x1F2B)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA")
+      (ucs               . #x1F2B)     ; Ἣ
+      ))
+    (ucs               . #x1F23)       ; ἣ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA")
-    (ucs               . #x1F24)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F20 #x0301)
-    (->uppercase       #x1F2C)
-    (->titlecase       #x1F2C)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA")
+      (ucs               . #x1F2C)     ; Ἤ
+      ))
+    (ucs               . #x1F24)       ; ἤ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA")
-    (ucs               . #x1F25)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F21 #x0301)
-    (->uppercase       #x1F2D)
-    (->titlecase       #x1F2D)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA")
+      (ucs               . #x1F2D)     ; Ἥ
+      ))
+    (ucs               . #x1F25)       ; ἥ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI")
-    (ucs               . #x1F26)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F20 #x0342)
-    (->uppercase       #x1F2E)
-    (->titlecase       #x1F2E)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI")
+      (ucs               . #x1F2E)     ; Ἦ
+      ))
+    (ucs               . #x1F26)       ; ἦ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI")
-    (ucs               . #x1F27)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F21 #x0342)
-    (->uppercase       #x1F2F)
-    (->titlecase       #x1F2F)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI")
+      (ucs               . #x1F2F)     ; Ἧ
+      ))
+    (ucs               . #x1F27)       ; ἧ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
-    (ucs               . #x1F28)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0397 #x0313)
-    (->lowercase       #x1F20)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH PSILI")
+      (ucs               . #x1F20)     ; ἠ
+      ))
+    (ucs               . #x1F28)       ; Ἠ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
-    (ucs               . #x1F29)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0397 #x0314)
-    (->lowercase       #x1F21)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH DASIA")
+      (ucs               . #x1F21)     ; ἡ
+      ))
+    (ucs               . #x1F29)       ; Ἡ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA")
-    (ucs               . #x1F2A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F28 #x0300)
-    (->lowercase       #x1F22)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA")
+      (ucs               . #x1F22)     ; ἢ
+      ))
+    (ucs               . #x1F2A)       ; Ἢ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA")
-    (ucs               . #x1F2B)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F29 #x0300)
-    (->lowercase       #x1F23)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA")
+      (ucs               . #x1F23)     ; ἣ
+      ))
+    (ucs               . #x1F2B)       ; Ἣ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA")
-    (ucs               . #x1F2C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F28 #x0301)
-    (->lowercase       #x1F24)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA")
+      (ucs               . #x1F24)     ; ἤ
+      ))
+    (ucs               . #x1F2C)       ; Ἤ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA")
-    (ucs               . #x1F2D)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F29 #x0301)
-    (->lowercase       #x1F25)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA")
+      (ucs               . #x1F25)     ; ἥ
+      ))
+    (ucs               . #x1F2D)       ; Ἥ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI")
-    (ucs               . #x1F2E)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F28 #x0342)
-    (->lowercase       #x1F26)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI")
+      (ucs               . #x1F26)     ; ἦ
+      ))
+    (ucs               . #x1F2E)       ; Ἦ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI")
-    (ucs               . #x1F2F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F29 #x0342)
-    (->lowercase       #x1F27)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI")
+      (ucs               . #x1F27)     ; ἧ
+      ))
+    (ucs               . #x1F2F)       ; Ἧ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PSILI")
-    (ucs               . #x1F30)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B9 #x0313)
-    (->uppercase       #x1F38)
-    (->titlecase       #x1F38)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI")
+      (ucs               . #x1F38)     ; Ἰ
+      ))
+    (ucs               . #x1F30)       ; ἰ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DASIA")
-    (ucs               . #x1F31)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B9 #x0314)
-    (->uppercase       #x1F39)
-    (->titlecase       #x1F39)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA")
+      (ucs               . #x1F39)     ; Ἱ
+      ))
+    (ucs               . #x1F31)       ; ἱ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PSILI AND VARIA")
-    (ucs               . #x1F32)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F30 #x0300)
-    (->uppercase       #x1F3A)
-    (->titlecase       #x1F3A)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA")
+      (ucs               . #x1F3A)     ; Ἲ
+      ))
+    (ucs               . #x1F32)       ; ἲ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DASIA AND VARIA")
-    (ucs               . #x1F33)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F31 #x0300)
-    (->uppercase       #x1F3B)
-    (->titlecase       #x1F3B)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA")
+      (ucs               . #x1F3B)     ; Ἳ
+      ))
+    (ucs               . #x1F33)       ; ἳ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PSILI AND OXIA")
-    (ucs               . #x1F34)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F30 #x0301)
-    (->uppercase       #x1F3C)
-    (->titlecase       #x1F3C)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA")
+      (ucs               . #x1F3C)     ; Ἴ
+      ))
+    (ucs               . #x1F34)       ; ἴ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DASIA AND OXIA")
-    (ucs               . #x1F35)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F31 #x0301)
-    (->uppercase       #x1F3D)
-    (->titlecase       #x1F3D)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA")
+      (ucs               . #x1F3D)     ; Ἵ
+      ))
+    (ucs               . #x1F35)       ; ἵ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI")
-    (ucs               . #x1F36)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F30 #x0342)
-    (->uppercase       #x1F3E)
-    (->titlecase       #x1F3E)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI")
+      (ucs               . #x1F3E)     ; Ἶ
+      ))
+    (ucs               . #x1F36)       ; ἶ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI")
-    (ucs               . #x1F37)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F31 #x0342)
-    (->uppercase       #x1F3F)
-    (->titlecase       #x1F3F)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI")
+      (ucs               . #x1F3F)     ; Ἷ
+      ))
+    (ucs               . #x1F37)       ; ἷ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI")
-    (ucs               . #x1F38)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0399 #x0313)
-    (->lowercase       #x1F30)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH PSILI")
+      (ucs               . #x1F30)     ; ἰ
+      ))
+    (ucs               . #x1F38)       ; Ἰ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA")
-    (ucs               . #x1F39)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0399 #x0314)
-    (->lowercase       #x1F31)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH DASIA")
+      (ucs               . #x1F31)     ; ἱ
+      ))
+    (ucs               . #x1F39)       ; Ἱ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA")
-    (ucs               . #x1F3A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F38 #x0300)
-    (->lowercase       #x1F32)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH PSILI AND VARIA")
+      (ucs               . #x1F32)     ; ἲ
+      ))
+    (ucs               . #x1F3A)       ; Ἲ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA")
-    (ucs               . #x1F3B)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F39 #x0300)
-    (->lowercase       #x1F33)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH DASIA AND VARIA")
+      (ucs               . #x1F33)     ; ἳ
+      ))
+    (ucs               . #x1F3B)       ; Ἳ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA")
-    (ucs               . #x1F3C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F38 #x0301)
-    (->lowercase       #x1F34)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH PSILI AND OXIA")
+      (ucs               . #x1F34)     ; ἴ
+      ))
+    (ucs               . #x1F3C)       ; Ἴ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA")
-    (ucs               . #x1F3D)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F39 #x0301)
-    (->lowercase       #x1F35)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH DASIA AND OXIA")
+      (ucs               . #x1F35)     ; ἵ
+      ))
+    (ucs               . #x1F3D)       ; Ἵ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI")
-    (ucs               . #x1F3E)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F38 #x0342)
-    (->lowercase       #x1F36)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI")
+      (ucs               . #x1F36)     ; ἶ
+      ))
+    (ucs               . #x1F3E)       ; Ἶ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI")
-    (ucs               . #x1F3F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F39 #x0342)
-    (->lowercase       #x1F37)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI")
+      (ucs               . #x1F37)     ; ἷ
+      ))
+    (ucs               . #x1F3F)       ; Ἷ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH PSILI")
-    (ucs               . #x1F40)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03BF #x0313)
-    (->uppercase       #x1F48)
-    (->titlecase       #x1F48)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMICRON WITH PSILI")
+      (ucs               . #x1F48)     ; Ὀ
+      ))
+    (ucs               . #x1F40)       ; ὀ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH DASIA")
-    (ucs               . #x1F41)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03BF #x0314)
-    (->uppercase       #x1F49)
-    (->titlecase       #x1F49)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMICRON WITH DASIA")
+      (ucs               . #x1F49)     ; Ὁ
+      ))
+    (ucs               . #x1F41)       ; ὁ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA")
-    (ucs               . #x1F42)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F40 #x0300)
-    (->uppercase       #x1F4A)
-    (->titlecase       #x1F4A)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA")
+      (ucs               . #x1F4A)     ; Ὂ
+      ))
+    (ucs               . #x1F42)       ; ὂ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA")
-    (ucs               . #x1F43)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F41 #x0300)
-    (->uppercase       #x1F4B)
-    (->titlecase       #x1F4B)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA")
+      (ucs               . #x1F4B)     ; Ὃ
+      ))
+    (ucs               . #x1F43)       ; ὃ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA")
-    (ucs               . #x1F44)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F40 #x0301)
-    (->uppercase       #x1F4C)
-    (->titlecase       #x1F4C)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA")
+      (ucs               . #x1F4C)     ; Ὄ
+      ))
+    (ucs               . #x1F44)       ; ὄ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA")
-    (ucs               . #x1F45)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F41 #x0301)
-    (->uppercase       #x1F4D)
-    (->titlecase       #x1F4D)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA")
+      (ucs               . #x1F4D)     ; Ὅ
+      ))
+    (ucs               . #x1F45)       ; ὅ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH PSILI")
-    (ucs               . #x1F48)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x039F #x0313)
-    (->lowercase       #x1F40)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH PSILI")
+      (ucs               . #x1F40)     ; ὀ
+      ))
+    (ucs               . #x1F48)       ; Ὀ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH DASIA")
-    (ucs               . #x1F49)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x039F #x0314)
-    (->lowercase       #x1F41)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH DASIA")
+      (ucs               . #x1F41)     ; ὁ
+      ))
+    (ucs               . #x1F49)       ; Ὁ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA")
-    (ucs               . #x1F4A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F48 #x0300)
-    (->lowercase       #x1F42)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA")
+      (ucs               . #x1F42)     ; ὂ
+      ))
+    (ucs               . #x1F4A)       ; Ὂ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA")
-    (ucs               . #x1F4B)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F49 #x0300)
-    (->lowercase       #x1F43)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA")
+      (ucs               . #x1F43)     ; ὃ
+      ))
+    (ucs               . #x1F4B)       ; Ὃ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA")
-    (ucs               . #x1F4C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F48 #x0301)
-    (->lowercase       #x1F44)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA")
+      (ucs               . #x1F44)     ; ὄ
+      ))
+    (ucs               . #x1F4C)       ; Ὄ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA")
-    (ucs               . #x1F4D)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F49 #x0301)
-    (->lowercase       #x1F45)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA")
+      (ucs               . #x1F45)     ; ὅ
+      ))
+    (ucs               . #x1F4D)       ; Ὅ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH PSILI")
-    (ucs               . #x1F50)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C5 #x0313)
+    (ucs               . #x1F50)       ; ὐ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH DASIA")
-    (ucs               . #x1F51)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C5 #x0314)
-    (->uppercase       #x1F59)
-    (->titlecase       #x1F59)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH DASIA")
+      (ucs               . #x1F59)     ; Ὑ
+      ))
+    (ucs               . #x1F51)       ; ὑ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA")
-    (ucs               . #x1F52)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F50 #x0300)
+    (ucs               . #x1F52)       ; ὒ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA")
-    (ucs               . #x1F53)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F51 #x0300)
-    (->uppercase       #x1F5B)
-    (->titlecase       #x1F5B)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA")
+      (ucs               . #x1F5B)     ; Ὓ
+      ))
+    (ucs               . #x1F53)       ; ὓ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA")
-    (ucs               . #x1F54)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F50 #x0301)
+    (ucs               . #x1F54)       ; ὔ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA")
-    (ucs               . #x1F55)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F51 #x0301)
-    (->uppercase       #x1F5D)
-    (->titlecase       #x1F5D)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA")
+      (ucs               . #x1F5D)     ; Ὕ
+      ))
+    (ucs               . #x1F55)       ; ὕ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI")
-    (ucs               . #x1F56)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F50 #x0342)
+    (ucs               . #x1F56)       ; ὖ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI")
-    (ucs               . #x1F57)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F51 #x0342)
-    (->uppercase       #x1F5F)
-    (->titlecase       #x1F5F)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI")
+      (ucs               . #x1F5F)     ; Ὗ
+      ))
+    (ucs               . #x1F57)       ; ὗ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH DASIA")
-    (ucs               . #x1F59)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A5 #x0314)
-    (->lowercase       #x1F51)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA")
+      (ucs               . #x1F51)     ; ὑ
+      ))
+    (ucs               . #x1F59)       ; Ὑ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA")
-    (ucs               . #x1F5B)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F59 #x0300)
-    (->lowercase       #x1F53)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA")
+      (ucs               . #x1F53)     ; ὓ
+      ))
+    (ucs               . #x1F5B)       ; Ὓ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA")
-    (ucs               . #x1F5D)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F59 #x0301)
-    (->lowercase       #x1F55)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA")
+      (ucs               . #x1F55)     ; ὕ
+      ))
+    (ucs               . #x1F5D)       ; Ὕ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI")
-    (ucs               . #x1F5F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F59 #x0342)
-    (->lowercase       #x1F57)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI")
+      (ucs               . #x1F57)     ; ὗ
+      ))
+    (ucs               . #x1F5F)       ; Ὗ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
-    (ucs               . #x1F60)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C9 #x0313)
-    (->uppercase       #x1F68)
-    (->titlecase       #x1F68)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
+      (ucs               . #x1F68)     ; Ὠ
+      ))
+    (ucs               . #x1F60)       ; ὠ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
-    (ucs               . #x1F61)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C9 #x0314)
-    (->uppercase       #x1F69)
-    (->titlecase       #x1F69)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
+      (ucs               . #x1F69)     ; Ὡ
+      ))
+    (ucs               . #x1F61)       ; ὡ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA")
-    (ucs               . #x1F62)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F60 #x0300)
-    (->uppercase       #x1F6A)
-    (->titlecase       #x1F6A)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA")
+      (ucs               . #x1F6A)     ; Ὢ
+      ))
+    (ucs               . #x1F62)       ; ὢ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA")
-    (ucs               . #x1F63)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F61 #x0300)
-    (->uppercase       #x1F6B)
-    (->titlecase       #x1F6B)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA")
+      (ucs               . #x1F6B)     ; Ὣ
+      ))
+    (ucs               . #x1F63)       ; ὣ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA")
-    (ucs               . #x1F64)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F60 #x0301)
-    (->uppercase       #x1F6C)
-    (->titlecase       #x1F6C)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA")
+      (ucs               . #x1F6C)     ; Ὤ
+      ))
+    (ucs               . #x1F64)       ; ὤ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA")
-    (ucs               . #x1F65)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F61 #x0301)
-    (->uppercase       #x1F6D)
-    (->titlecase       #x1F6D)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA")
+      (ucs               . #x1F6D)     ; Ὥ
+      ))
+    (ucs               . #x1F65)       ; ὥ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI")
-    (ucs               . #x1F66)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F60 #x0342)
-    (->uppercase       #x1F6E)
-    (->titlecase       #x1F6E)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI")
+      (ucs               . #x1F6E)     ; Ὦ
+      ))
+    (ucs               . #x1F66)       ; ὦ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI")
-    (ucs               . #x1F67)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F61 #x0342)
-    (->uppercase       #x1F6F)
-    (->titlecase       #x1F6F)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI")
+      (ucs               . #x1F6F)     ; Ὧ
+      ))
+    (ucs               . #x1F67)       ; ὧ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
-    (ucs               . #x1F68)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A9 #x0313)
-    (->lowercase       #x1F60)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
+      (ucs               . #x1F60)     ; ὠ
+      ))
+    (ucs               . #x1F68)       ; Ὠ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
-    (ucs               . #x1F69)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A9 #x0314)
-    (->lowercase       #x1F61)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
+      (ucs               . #x1F61)     ; ὡ
+      ))
+    (ucs               . #x1F69)       ; Ὡ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA")
-    (ucs               . #x1F6A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F68 #x0300)
-    (->lowercase       #x1F62)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA")
+      (ucs               . #x1F62)     ; ὢ
+      ))
+    (ucs               . #x1F6A)       ; Ὢ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA")
-    (ucs               . #x1F6B)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F69 #x0300)
-    (->lowercase       #x1F63)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA")
+      (ucs               . #x1F63)     ; ὣ
+      ))
+    (ucs               . #x1F6B)       ; Ὣ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA")
-    (ucs               . #x1F6C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F68 #x0301)
-    (->lowercase       #x1F64)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA")
+      (ucs               . #x1F64)     ; ὤ
+      ))
+    (ucs               . #x1F6C)       ; Ὤ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA")
-    (ucs               . #x1F6D)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F69 #x0301)
-    (->lowercase       #x1F65)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA")
+      (ucs               . #x1F65)     ; ὥ
+      ))
+    (ucs               . #x1F6D)       ; Ὥ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI")
-    (ucs               . #x1F6E)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F68 #x0342)
-    (->lowercase       #x1F66)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI")
+      (ucs               . #x1F66)     ; ὦ
+      ))
+    (ucs               . #x1F6E)       ; Ὦ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI")
-    (ucs               . #x1F6F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F69 #x0342)
-    (->lowercase       #x1F67)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI")
+      (ucs               . #x1F67)     ; ὧ
+      ))
+    (ucs               . #x1F6F)       ; Ὧ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH VARIA")
-    (ucs               . #x1F70)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B1 #x0300)
-    (->uppercase       #x1FBA)
-    (->titlecase       #x1FBA)
-    (japanese-jisx0213-1       #x2B #x46)      ; ὰ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH VARIA")
+      (ucs               . #x1FBA)     ; Ὰ
+      ))
+    (ucs               . #x1F70)       ; ὰ
+    ))
+(define-char
+  '((name              . "LATIN SMALL LETTER ALPHA WITH GRAVE")
+    (=>ucs             . #x1F70)       ; ὰ
+    (general-category  letter lowercase) ; Normative Category
+    (bidi-category     . "L")
+    (mirrored          . nil)
+    (->decomposition   #x0251 #x0300)
+    (japanese-jisx0213-1       . #x2B46)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH OXIA")
-    (ucs               . #x1F71)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03AC)
-    (->uppercase       #x1FBB)
-    (->titlecase       #x1FBB)
-    (japanese-jisx0213-1       #x2B #x47)      ; ά
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH OXIA")
+      (ucs               . #x1FBB)     ; Ά
+      ))
+    (ucs               . #x1F71)       ; ά
+    ))
+(define-char
+  '((name              . "LATIN SMALL LETTER ALPHA WITH ACUTE")
+    (=>ucs             . #x1F71)       ; ά
+    (general-category  letter lowercase) ; Normative Category
+    (bidi-category     . "L")
+    (mirrored          . nil)
+    (->decomposition   #x0251 #x0301)
+    (japanese-jisx0213-1       . #x2B47)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH VARIA")
-    (ucs               . #x1F72)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B5 #x0300)
-    (->uppercase       #x1FC8)
-    (->titlecase       #x1FC8)
-    (japanese-jisx0213-1       #x2B #x50)      ; ὲ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER EPSILON WITH VARIA")
+      (ucs               . #x1FC8)     ; Ὲ
+      ))
+    (ucs               . #x1F72)       ; ὲ
+    ))
+(define-char
+  '((name              . "LATIN SMALL LETTER OPEN E WITH GRAVE")
+    (=>ucs             . #x1F72)       ; ὲ
+    (general-category  letter lowercase) ; Normative Category
+    (bidi-category     . "L")
+    (mirrored          . nil)
+    (->decomposition   #x025B #x0300)
+    (->uppercase
+     ((name . "LATIN CAPITAL LETTER OPEN E WITH GRAVE")))
+    (japanese-jisx0213-1       . #x2B50)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH OXIA")
-    (ucs               . #x1F73)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03AD)
-    (->uppercase       #x1FC9)
-    (->titlecase       #x1FC9)
-    (japanese-jisx0213-1       #x2B #x51)      ; έ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER EPSILON WITH OXIA")
+      (ucs               . #x1FC9)     ; Έ
+      ))
+    (ucs               . #x1F73)       ; έ
+    ))
+(define-char
+  '((name              . "LATIN SMALL LETTER OPEN E WITH ACUTE")
+    (=>ucs             . #x1F73)       ; έ
+    (general-category  letter lowercase) ; Normative Category
+    (bidi-category     . "L")
+    (mirrored          . nil)
+    (->decomposition   #x025B #x0301)
+    (->uppercase
+     ((name . "LATIN CAPITAL LETTER OPEN E WITH ACUTE")))
+    (japanese-jisx0213-1       . #x2B51)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH VARIA")
-    (ucs               . #x1F74)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B7 #x0300)
-    (->uppercase       #x1FCA)
-    (->titlecase       #x1FCA)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH VARIA")
+      (ucs               . #x1FCA)     ; Ὴ
+      ))
+    (ucs               . #x1F74)       ; ὴ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH OXIA")
-    (ucs               . #x1F75)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03AE)
-    (->uppercase       #x1FCB)
-    (->titlecase       #x1FCB)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH OXIA")
+      (ucs               . #x1FCB)     ; Ή
+      ))
+    (ucs               . #x1F75)       ; ή
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH VARIA")
-    (ucs               . #x1F76)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B9 #x0300)
-    (->uppercase       #x1FDA)
-    (->titlecase       #x1FDA)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH VARIA")
+      (ucs               . #x1FDA)     ; Ὶ
+      ))
+    (ucs               . #x1F76)       ; ὶ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH OXIA")
-    (ucs               . #x1F77)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03AF)
-    (->uppercase       #x1FDB)
-    (->titlecase       #x1FDB)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH OXIA")
+      (ucs               . #x1FDB)     ; Ί
+      ))
+    (ucs               . #x1F77)       ; ί
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH VARIA")
-    (ucs               . #x1F78)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03BF #x0300)
-    (->uppercase       #x1FF8)
-    (->titlecase       #x1FF8)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMICRON WITH VARIA")
+      (ucs               . #x1FF8)     ; Ὸ
+      ))
+    (ucs               . #x1F78)       ; ὸ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH OXIA")
-    (ucs               . #x1F79)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CC)
-    (->uppercase       #x1FF9)
-    (->titlecase       #x1FF9)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMICRON WITH OXIA")
+      (ucs               . #x1FF9)     ; Ό
+      ))
+    (ucs               . #x1F79)       ; ό
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH VARIA")
-    (ucs               . #x1F7A)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C5 #x0300)
-    (->uppercase       #x1FEA)
-    (->titlecase       #x1FEA)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH VARIA")
+      (ucs               . #x1FEA)     ; Ὺ
+      ))
+    (ucs               . #x1F7A)       ; ὺ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH OXIA")
-    (ucs               . #x1F7B)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CD)
-    (->uppercase       #x1FEB)
-    (->titlecase       #x1FEB)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH OXIA")
+      (ucs               . #x1FEB)     ; Ύ
+      ))
+    (ucs               . #x1F7B)       ; ύ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH VARIA")
-    (ucs               . #x1F7C)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C9 #x0300)
-    (->uppercase       #x1FFA)
-    (->titlecase       #x1FFA)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH VARIA")
+      (ucs               . #x1FFA)     ; Ὼ
+      ))
+    (ucs               . #x1F7C)       ; ὼ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH OXIA")
-    (ucs               . #x1F7D)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CE)
-    (->uppercase       #x1FFB)
-    (->titlecase       #x1FFB)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH OXIA")
+      (ucs               . #x1FFB)     ; Ώ
+      ))
+    (ucs               . #x1F7D)       ; ώ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI")
-    (ucs               . #x1F80)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F00 #x0345)
-    (->uppercase       #x1F88)
-    (->titlecase       #x1F88)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI")
+      (ucs               . #x1F88)     ; ᾈ
+      ))
+    (ucs               . #x1F80)       ; ᾀ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI")
-    (ucs               . #x1F81)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F01 #x0345)
-    (->uppercase       #x1F89)
-    (->titlecase       #x1F89)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI")
+      (ucs               . #x1F89)     ; ᾉ
+      ))
+    (ucs               . #x1F81)       ; ᾁ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
-    (ucs               . #x1F82)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F02 #x0345)
-    (->uppercase       #x1F8A)
-    (->titlecase       #x1F8A)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
+      (ucs               . #x1F8A)     ; ᾊ
+      ))
+    (ucs               . #x1F82)       ; ᾂ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
-    (ucs               . #x1F83)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F03 #x0345)
-    (->uppercase       #x1F8B)
-    (->titlecase       #x1F8B)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
+      (ucs               . #x1F8B)     ; ᾋ
+      ))
+    (ucs               . #x1F83)       ; ᾃ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
-    (ucs               . #x1F84)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F04 #x0345)
-    (->uppercase       #x1F8C)
-    (->titlecase       #x1F8C)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
+      (ucs               . #x1F8C)     ; ᾌ
+      ))
+    (ucs               . #x1F84)       ; ᾄ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
-    (ucs               . #x1F85)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F05 #x0345)
-    (->uppercase       #x1F8D)
-    (->titlecase       #x1F8D)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
+      (ucs               . #x1F8D)     ; ᾍ
+      ))
+    (ucs               . #x1F85)       ; ᾅ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
-    (ucs               . #x1F86)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F06 #x0345)
-    (->uppercase       #x1F8E)
-    (->titlecase       #x1F8E)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
+      (ucs               . #x1F8E)     ; ᾎ
+      ))
+    (ucs               . #x1F86)       ; ᾆ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
-    (ucs               . #x1F87)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F07 #x0345)
-    (->uppercase       #x1F8F)
-    (->titlecase       #x1F8F)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
+      (ucs               . #x1F8F)     ; ᾏ
+      ))
+    (ucs               . #x1F87)       ; ᾇ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI")
-    (ucs               . #x1F88)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F08 #x0345)
-    (->lowercase       #x1F80)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI")
+      (ucs               . #x1F80)     ; ᾀ
+      ))
+    (ucs               . #x1F88)       ; ᾈ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI")
-    (ucs               . #x1F89)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F09 #x0345)
-    (->lowercase       #x1F81)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI")
+      (ucs               . #x1F81)     ; ᾁ
+      ))
+    (ucs               . #x1F89)       ; ᾉ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
-    (ucs               . #x1F8A)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F0A #x0345)
-    (->lowercase       #x1F82)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
+      (ucs               . #x1F82)     ; ᾂ
+      ))
+    (ucs               . #x1F8A)       ; ᾊ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
-    (ucs               . #x1F8B)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F0B #x0345)
-    (->lowercase       #x1F83)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
+      (ucs               . #x1F83)     ; ᾃ
+      ))
+    (ucs               . #x1F8B)       ; ᾋ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
-    (ucs               . #x1F8C)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F0C #x0345)
-    (->lowercase       #x1F84)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
+      (ucs               . #x1F84)     ; ᾄ
+      ))
+    (ucs               . #x1F8C)       ; ᾌ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
-    (ucs               . #x1F8D)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F0D #x0345)
-    (->lowercase       #x1F85)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
+      (ucs               . #x1F85)     ; ᾅ
+      ))
+    (ucs               . #x1F8D)       ; ᾍ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
-    (ucs               . #x1F8E)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F0E #x0345)
-    (->lowercase       #x1F86)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
+      (ucs               . #x1F86)     ; ᾆ
+      ))
+    (ucs               . #x1F8E)       ; ᾎ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
-    (ucs               . #x1F8F)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F0F #x0345)
-    (->lowercase       #x1F87)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
+      (ucs               . #x1F87)     ; ᾇ
+      ))
+    (ucs               . #x1F8F)       ; ᾏ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI")
-    (ucs               . #x1F90)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F20 #x0345)
-    (->uppercase       #x1F98)
-    (->titlecase       #x1F98)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI")
+      (ucs               . #x1F98)     ; ᾘ
+      ))
+    (ucs               . #x1F90)       ; ᾐ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI")
-    (ucs               . #x1F91)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F21 #x0345)
-    (->uppercase       #x1F99)
-    (->titlecase       #x1F99)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI")
+      (ucs               . #x1F99)     ; ᾙ
+      ))
+    (ucs               . #x1F91)       ; ᾑ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
-    (ucs               . #x1F92)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F22 #x0345)
-    (->uppercase       #x1F9A)
-    (->titlecase       #x1F9A)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
+      (ucs               . #x1F9A)     ; ᾚ
+      ))
+    (ucs               . #x1F92)       ; ᾒ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
-    (ucs               . #x1F93)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F23 #x0345)
-    (->uppercase       #x1F9B)
-    (->titlecase       #x1F9B)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
+      (ucs               . #x1F9B)     ; ᾛ
+      ))
+    (ucs               . #x1F93)       ; ᾓ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
-    (ucs               . #x1F94)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F24 #x0345)
-    (->uppercase       #x1F9C)
-    (->titlecase       #x1F9C)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
+      (ucs               . #x1F9C)     ; ᾜ
+      ))
+    (ucs               . #x1F94)       ; ᾔ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
-    (ucs               . #x1F95)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F25 #x0345)
-    (->uppercase       #x1F9D)
-    (->titlecase       #x1F9D)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
+      (ucs               . #x1F9D)     ; ᾝ
+      ))
+    (ucs               . #x1F95)       ; ᾕ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
-    (ucs               . #x1F96)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F26 #x0345)
-    (->uppercase       #x1F9E)
-    (->titlecase       #x1F9E)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
+      (ucs               . #x1F9E)     ; ᾞ
+      ))
+    (ucs               . #x1F96)       ; ᾖ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
-    (ucs               . #x1F97)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F27 #x0345)
-    (->uppercase       #x1F9F)
-    (->titlecase       #x1F9F)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
+      (ucs               . #x1F9F)     ; ᾟ
+      ))
+    (ucs               . #x1F97)       ; ᾗ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI")
-    (ucs               . #x1F98)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F28 #x0345)
-    (->lowercase       #x1F90)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI")
+      (ucs               . #x1F90)     ; ᾐ
+      ))
+    (ucs               . #x1F98)       ; ᾘ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI")
-    (ucs               . #x1F99)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F29 #x0345)
-    (->lowercase       #x1F91)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI")
+      (ucs               . #x1F91)     ; ᾑ
+      ))
+    (ucs               . #x1F99)       ; ᾙ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
-    (ucs               . #x1F9A)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F2A #x0345)
-    (->lowercase       #x1F92)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
+      (ucs               . #x1F92)     ; ᾒ
+      ))
+    (ucs               . #x1F9A)       ; ᾚ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
-    (ucs               . #x1F9B)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F2B #x0345)
-    (->lowercase       #x1F93)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
+      (ucs               . #x1F93)     ; ᾓ
+      ))
+    (ucs               . #x1F9B)       ; ᾛ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
-    (ucs               . #x1F9C)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F2C #x0345)
-    (->lowercase       #x1F94)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
+      (ucs               . #x1F94)     ; ᾔ
+      ))
+    (ucs               . #x1F9C)       ; ᾜ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
-    (ucs               . #x1F9D)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F2D #x0345)
-    (->lowercase       #x1F95)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
+      (ucs               . #x1F95)     ; ᾕ
+      ))
+    (ucs               . #x1F9D)       ; ᾝ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
-    (ucs               . #x1F9E)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F2E #x0345)
-    (->lowercase       #x1F96)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
+      (ucs               . #x1F96)     ; ᾖ
+      ))
+    (ucs               . #x1F9E)       ; ᾞ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
-    (ucs               . #x1F9F)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F2F #x0345)
-    (->lowercase       #x1F97)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
+      (ucs               . #x1F97)     ; ᾗ
+      ))
+    (ucs               . #x1F9F)       ; ᾟ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI")
-    (ucs               . #x1FA0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F60 #x0345)
-    (->uppercase       #x1FA8)
-    (->titlecase       #x1FA8)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI")
+      (ucs               . #x1FA8)     ; ᾨ
+      ))
+    (ucs               . #x1FA0)       ; ᾠ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FA1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F61 #x0345)
-    (->uppercase       #x1FA9)
-    (->titlecase       #x1FA9)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI")
+      (ucs               . #x1FA9)     ; ᾩ
+      ))
+    (ucs               . #x1FA1)       ; ᾡ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FA2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F62 #x0345)
-    (->uppercase       #x1FAA)
-    (->titlecase       #x1FAA)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
+      (ucs               . #x1FAA)     ; ᾪ
+      ))
+    (ucs               . #x1FA2)       ; ᾢ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FA3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F63 #x0345)
-    (->uppercase       #x1FAB)
-    (->titlecase       #x1FAB)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
+      (ucs               . #x1FAB)     ; ᾫ
+      ))
+    (ucs               . #x1FA3)       ; ᾣ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FA4)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F64 #x0345)
-    (->uppercase       #x1FAC)
-    (->titlecase       #x1FAC)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
+      (ucs               . #x1FAC)     ; ᾬ
+      ))
+    (ucs               . #x1FA4)       ; ᾤ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FA5)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F65 #x0345)
-    (->uppercase       #x1FAD)
-    (->titlecase       #x1FAD)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
+      (ucs               . #x1FAD)     ; ᾭ
+      ))
+    (ucs               . #x1FA5)       ; ᾥ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
-    (ucs               . #x1FA6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F66 #x0345)
-    (->uppercase       #x1FAE)
-    (->titlecase       #x1FAE)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
+      (ucs               . #x1FAE)     ; ᾮ
+      ))
+    (ucs               . #x1FA6)       ; ᾦ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
-    (ucs               . #x1FA7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F67 #x0345)
-    (->uppercase       #x1FAF)
-    (->titlecase       #x1FAF)
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
+      (ucs               . #x1FAF)     ; ᾯ
+      ))
+    (ucs               . #x1FA7)       ; ᾧ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI")
-    (ucs               . #x1FA8)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F68 #x0345)
-    (->lowercase       #x1FA0)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI")
+      (ucs               . #x1FA0)     ; ᾠ
+      ))
+    (ucs               . #x1FA8)       ; ᾨ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI")
-    (ucs               . #x1FA9)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F69 #x0345)
-    (->lowercase       #x1FA1)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI")
+      (ucs               . #x1FA1)     ; ᾡ
+      ))
+    (ucs               . #x1FA9)       ; ᾩ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
-    (ucs               . #x1FAA)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F6A #x0345)
-    (->lowercase       #x1FA2)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
+      (ucs               . #x1FA2)     ; ᾢ
+      ))
+    (ucs               . #x1FAA)       ; ᾪ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
-    (ucs               . #x1FAB)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F6B #x0345)
-    (->lowercase       #x1FA3)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
+      (ucs               . #x1FA3)     ; ᾣ
+      ))
+    (ucs               . #x1FAB)       ; ᾫ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
-    (ucs               . #x1FAC)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F6C #x0345)
-    (->lowercase       #x1FA4)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
+      (ucs               . #x1FA4)     ; ᾤ
+      ))
+    (ucs               . #x1FAC)       ; ᾬ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
-    (ucs               . #x1FAD)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F6D #x0345)
-    (->lowercase       #x1FA5)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
+      (ucs               . #x1FA5)     ; ᾥ
+      ))
+    (ucs               . #x1FAD)       ; ᾭ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
-    (ucs               . #x1FAE)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F6E #x0345)
-    (->lowercase       #x1FA6)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
+      (ucs               . #x1FA6)     ; ᾦ
+      ))
+    (ucs               . #x1FAE)       ; ᾮ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
-    (ucs               . #x1FAF)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F6F #x0345)
-    (->lowercase       #x1FA7)
+    (->lowercase
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
+      (ucs               . #x1FA7)     ; ᾧ
+      ))
+    (ucs               . #x1FAF)       ; ᾯ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH VRACHY")
-    (ucs               . #x1FB0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B1 #x0306)
-    (->uppercase       #x1FB8)
-    (->titlecase       #x1FB8)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH VRACHY")
+      (ucs               . #x1FB8)     ; Ᾰ
+      ))
+    (ucs               . #x1FB0)       ; ᾰ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH MACRON")
-    (ucs               . #x1FB1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B1 #x0304)
-    (->uppercase       #x1FB9)
-    (->titlecase       #x1FB9)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH MACRON")
+      (ucs               . #x1FB9)     ; Ᾱ
+      ))
+    (ucs               . #x1FB1)       ; ᾱ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FB2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F70 #x0345)
+    (ucs               . #x1FB2)       ; ᾲ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI")
-    (ucs               . #x1FB3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B1 #x0345)
-    (->uppercase       #x1FBC)
-    (->titlecase       #x1FBC)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI")
+      (ucs               . #x1FBC)     ; ᾼ
+      ))
+    (ucs               . #x1FB3)       ; ᾳ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FB4)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03AC #x0345)
+    (ucs               . #x1FB4)       ; ᾴ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH PERISPOMENI")
-    (ucs               . #x1FB6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B1 #x0342)
+    (ucs               . #x1FB6)       ; ᾶ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI")
-    (ucs               . #x1FB7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1FB6 #x0345)
+    (ucs               . #x1FB7)       ; ᾷ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH VRACHY")
-    (ucs               . #x1FB8)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0391 #x0306)
-    (->lowercase       #x1FB0)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH VRACHY")
+      (ucs               . #x1FB0)     ; ᾰ
+      ))
+    (ucs               . #x1FB8)       ; Ᾰ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH MACRON")
-    (ucs               . #x1FB9)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0391 #x0304)
-    (->lowercase       #x1FB1)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH MACRON")
+      (ucs               . #x1FB1)     ; ᾱ
+      ))
+    (ucs               . #x1FB9)       ; Ᾱ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH VARIA")
-    (ucs               . #x1FBA)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0391 #x0300)
-    (->lowercase       #x1F70)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH VARIA")
+      (ucs               . #x1F70)     ; ὰ
+      ))
+    (ucs               . #x1FBA)       ; Ὰ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH OXIA")
-    (ucs               . #x1FBB)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0386)
-    (->lowercase       #x1F71)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH OXIA")
+      (ucs               . #x1F71)     ; ά
+      ))
+    (ucs               . #x1FBB)       ; Ά
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI")
-    (ucs               . #x1FBC)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0391 #x0345)
-    (->lowercase       #x1FB3)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI")
+      (ucs               . #x1FB3)     ; ᾳ
+      ))
+    (ucs               . #x1FBC)       ; ᾼ
     ))
 (define-char
   '((name              . "GREEK KORONIS")
-    (ucs               . #x1FBD)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0313)
+    (ucs               . #x1FBD)       ; ᾽
     ))
 (define-char
   '((name              . "GREEK PROSGEGRAMMENI")
-    (ucs               . #x1FBE)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B9)
-    (->uppercase       #x0399)
-    (->titlecase       #x0399)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA")
+      (ucs               . #x0399)     ; Ι
+      ))
+    (ucs               . #x1FBE)       ; ι
     ))
 (define-char
   '((name              . "GREEK PSILI")
-    (ucs               . #x1FBF)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0313)
+    (ucs               . #x1FBF)       ; ᾿
     ))
 (define-char
   '((name              . "GREEK PERISPOMENI")
-    (ucs               . #x1FC0)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0342)
+    (ucs               . #x1FC0)       ; ῀
     ))
 (define-char
   '((name              . "GREEK DIALYTIKA AND PERISPOMENI")
-    (ucs               . #x1FC1)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x00A8 #x0342)
+    (ucs               . #x1FC1)       ; ῁
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FC2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F74 #x0345)
+    (ucs               . #x1FC2)       ; ῂ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI")
-    (ucs               . #x1FC3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B7 #x0345)
-    (->uppercase       #x1FCC)
-    (->titlecase       #x1FCC)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI")
+      (ucs               . #x1FCC)     ; ῌ
+      ))
+    (ucs               . #x1FC3)       ; ῃ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FC4)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03AE #x0345)
+    (ucs               . #x1FC4)       ; ῄ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PERISPOMENI")
-    (ucs               . #x1FC6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B7 #x0342)
+    (ucs               . #x1FC6)       ; ῆ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI")
-    (ucs               . #x1FC7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1FC6 #x0345)
+    (ucs               . #x1FC7)       ; ῇ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH VARIA")
-    (ucs               . #x1FC8)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0395 #x0300)
-    (->lowercase       #x1F72)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH VARIA")
+      (ucs               . #x1F72)     ; ὲ
+      ))
+    (ucs               . #x1FC8)       ; Ὲ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH OXIA")
-    (ucs               . #x1FC9)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0388)
-    (->lowercase       #x1F73)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH OXIA")
+      (ucs               . #x1F73)     ; έ
+      ))
+    (ucs               . #x1FC9)       ; Έ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH VARIA")
-    (ucs               . #x1FCA)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0397 #x0300)
-    (->lowercase       #x1F74)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH VARIA")
+      (ucs               . #x1F74)     ; ὴ
+      ))
+    (ucs               . #x1FCA)       ; Ὴ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH OXIA")
-    (ucs               . #x1FCB)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0389)
-    (->lowercase       #x1F75)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH OXIA")
+      (ucs               . #x1F75)     ; ή
+      ))
+    (ucs               . #x1FCB)       ; Ή
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI")
-    (ucs               . #x1FCC)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0397 #x0345)
-    (->lowercase       #x1FC3)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI")
+      (ucs               . #x1FC3)     ; ῃ
+      ))
+    (ucs               . #x1FCC)       ; ῌ
     ))
 (define-char
   '((name              . "GREEK PSILI AND VARIA")
-    (ucs               . #x1FCD)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FBF #x0300)
+    (ucs               . #x1FCD)       ; ῍
     ))
 (define-char
   '((name              . "GREEK PSILI AND OXIA")
-    (ucs               . #x1FCE)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FBF #x0301)
+    (ucs               . #x1FCE)       ; ῎
     ))
 (define-char
   '((name              . "GREEK PSILI AND PERISPOMENI")
-    (ucs               . #x1FCF)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FBF #x0342)
+    (ucs               . #x1FCF)       ; ῏
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH VRACHY")
-    (ucs               . #x1FD0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B9 #x0306)
-    (->uppercase       #x1FD8)
-    (->titlecase       #x1FD8)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH VRACHY")
+      (ucs               . #x1FD8)     ; Ῐ
+      ))
+    (ucs               . #x1FD0)       ; ῐ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH MACRON")
-    (ucs               . #x1FD1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B9 #x0304)
-    (->uppercase       #x1FD9)
-    (->titlecase       #x1FD9)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH MACRON")
+      (ucs               . #x1FD9)     ; Ῑ
+      ))
+    (ucs               . #x1FD1)       ; ῑ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA")
-    (ucs               . #x1FD2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CA #x0300)
+    (ucs               . #x1FD2)       ; ῒ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA")
-    (ucs               . #x1FD3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0390)
+    (ucs               . #x1FD3)       ; ΐ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PERISPOMENI")
-    (ucs               . #x1FD6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B9 #x0342)
+    (ucs               . #x1FD6)       ; ῖ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI")
-    (ucs               . #x1FD7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CA #x0342)
+    (ucs               . #x1FD7)       ; ῗ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH VRACHY")
-    (ucs               . #x1FD8)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0399 #x0306)
-    (->lowercase       #x1FD0)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH VRACHY")
+      (ucs               . #x1FD0)     ; ῐ
+      ))
+    (ucs               . #x1FD8)       ; Ῐ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH MACRON")
-    (ucs               . #x1FD9)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0399 #x0304)
-    (->lowercase       #x1FD1)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH MACRON")
+      (ucs               . #x1FD1)     ; ῑ
+      ))
+    (ucs               . #x1FD9)       ; Ῑ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH VARIA")
-    (ucs               . #x1FDA)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0399 #x0300)
-    (->lowercase       #x1F76)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH VARIA")
+      (ucs               . #x1F76)     ; ὶ
+      ))
+    (ucs               . #x1FDA)       ; Ὶ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH OXIA")
-    (ucs               . #x1FDB)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x038A)
-    (->lowercase       #x1F77)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH OXIA")
+      (ucs               . #x1F77)     ; ί
+      ))
+    (ucs               . #x1FDB)       ; Ί
     ))
 (define-char
   '((name              . "GREEK DASIA AND VARIA")
-    (ucs               . #x1FDD)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FFE #x0300)
+    (ucs               . #x1FDD)       ; ῝
     ))
 (define-char
   '((name              . "GREEK DASIA AND OXIA")
-    (ucs               . #x1FDE)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FFE #x0301)
+    (ucs               . #x1FDE)       ; ῞
     ))
 (define-char
   '((name              . "GREEK DASIA AND PERISPOMENI")
-    (ucs               . #x1FDF)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FFE #x0342)
+    (ucs               . #x1FDF)       ; ῟
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH VRACHY")
-    (ucs               . #x1FE0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C5 #x0306)
-    (->uppercase       #x1FE8)
-    (->titlecase       #x1FE8)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH VRACHY")
+      (ucs               . #x1FE8)     ; Ῠ
+      ))
+    (ucs               . #x1FE0)       ; ῠ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH MACRON")
-    (ucs               . #x1FE1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C5 #x0304)
-    (->uppercase       #x1FE9)
-    (->titlecase       #x1FE9)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH MACRON")
+      (ucs               . #x1FE9)     ; Ῡ
+      ))
+    (ucs               . #x1FE1)       ; ῡ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA")
-    (ucs               . #x1FE2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CB #x0300)
+    (ucs               . #x1FE2)       ; ῢ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA")
-    (ucs               . #x1FE3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B0)
+    (ucs               . #x1FE3)       ; ΰ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER RHO WITH PSILI")
-    (ucs               . #x1FE4)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C1 #x0313)
+    (ucs               . #x1FE4)       ; ῤ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER RHO WITH DASIA")
-    (ucs               . #x1FE5)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C1 #x0314)
-    (->uppercase       #x1FEC)
-    (->titlecase       #x1FEC)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER RHO WITH DASIA")
+      (ucs               . #x1FEC)     ; Ῥ
+      ))
+    (ucs               . #x1FE5)       ; ῥ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH PERISPOMENI")
-    (ucs               . #x1FE6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C5 #x0342)
+    (ucs               . #x1FE6)       ; ῦ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI")
-    (ucs               . #x1FE7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CB #x0342)
+    (ucs               . #x1FE7)       ; ῧ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH VRACHY")
-    (ucs               . #x1FE8)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A5 #x0306)
-    (->lowercase       #x1FE0)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH VRACHY")
+      (ucs               . #x1FE0)     ; ῠ
+      ))
+    (ucs               . #x1FE8)       ; Ῠ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH MACRON")
-    (ucs               . #x1FE9)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A5 #x0304)
-    (->lowercase       #x1FE1)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH MACRON")
+      (ucs               . #x1FE1)     ; ῡ
+      ))
+    (ucs               . #x1FE9)       ; Ῡ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH VARIA")
-    (ucs               . #x1FEA)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A5 #x0300)
-    (->lowercase       #x1F7A)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH VARIA")
+      (ucs               . #x1F7A)     ; ὺ
+      ))
+    (ucs               . #x1FEA)       ; Ὺ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH OXIA")
-    (ucs               . #x1FEB)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x038E)
-    (->lowercase       #x1F7B)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH OXIA")
+      (ucs               . #x1F7B)     ; ύ
+      ))
+    (ucs               . #x1FEB)       ; Ύ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER RHO WITH DASIA")
-    (ucs               . #x1FEC)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A1 #x0314)
-    (->lowercase       #x1FE5)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER RHO WITH DASIA")
+      (ucs               . #x1FE5)     ; ῥ
+      ))
+    (ucs               . #x1FEC)       ; Ῥ
     ))
 (define-char
   '((name              . "GREEK DIALYTIKA AND VARIA")
-    (ucs               . #x1FED)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x00A8 #x0300)
+    (ucs               . #x1FED)       ; ῭
     ))
 (define-char
   '((name              . "GREEK DIALYTIKA AND OXIA")
-    (ucs               . #x1FEE)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x0385)
+    (ucs               . #x1FEE)       ; ΅
     ))
 (define-char
   '((name              . "GREEK VARIA")
-    (ucs               . #x1FEF)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x0060)
+    (ucs               . #x1FEF)       ; `
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FF2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F7C #x0345)
+    (ucs               . #x1FF2)       ; ῲ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI")
-    (ucs               . #x1FF3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C9 #x0345)
-    (->uppercase       #x1FFC)
-    (->titlecase       #x1FFC)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI")
+      (ucs               . #x1FFC)     ; ῼ
+      ))
+    (ucs               . #x1FF3)       ; ῳ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI")
-    (ucs               . #x1FF4)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CE #x0345)
+    (ucs               . #x1FF4)       ; ῴ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH PERISPOMENI")
-    (ucs               . #x1FF6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C9 #x0342)
+    (ucs               . #x1FF6)       ; ῶ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI")
-    (ucs               . #x1FF7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1FF6 #x0345)
+    (ucs               . #x1FF7)       ; ῷ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH VARIA")
-    (ucs               . #x1FF8)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x039F #x0300)
-    (->lowercase       #x1F78)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH VARIA")
+      (ucs               . #x1F78)     ; ὸ
+      ))
+    (ucs               . #x1FF8)       ; Ὸ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH OXIA")
-    (ucs               . #x1FF9)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x038C)
-    (->lowercase       #x1F79)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH OXIA")
+      (ucs               . #x1F79)     ; ό
+      ))
+    (ucs               . #x1FF9)       ; Ό
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH VARIA")
-    (ucs               . #x1FFA)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A9 #x0300)
-    (->lowercase       #x1F7C)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH VARIA")
+      (ucs               . #x1F7C)     ; ὼ
+      ))
+    (ucs               . #x1FFA)       ; Ὼ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH OXIA")
-    (ucs               . #x1FFB)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x038F)
-    (->lowercase       #x1F7D)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH OXIA")
+      (ucs               . #x1F7D)     ; ώ
+      ))
+    (ucs               . #x1FFB)       ; Ώ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI")
-    (ucs               . #x1FFC)
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A9 #x0345)
-    (->lowercase       #x1FF3)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI")
+      (ucs               . #x1FF3)     ; ῳ
+      ))
+    (ucs               . #x1FFC)       ; ῼ
     ))
 (define-char
   '((name              . "GREEK OXIA")
-    (ucs               . #x1FFD)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x00B4)
+    (ucs               . #x1FFD)       ; ´
     ))
 (define-char
   '((name              . "GREEK DASIA")
-    (ucs               . #x1FFE)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0314)
+    (ucs               . #x1FFE)       ; ῾
     ))