(BC-8C5E): Unify MH-0008.

[chise/xemacs-chise.git] / lisp / utf-2000 / u01F00-Greek-Extended.el

diff --git a/lisp/utf-2000/u01F00-Greek-Extended.el b/lisp/utf-2000/u01F00-Greek-Extended.el
index f9596ee..b41f809 100644 (file)
--- a/lisp/utf-2000/u01F00-Greek-Extended.el
+++ b/lisp/utf-2000/u01F00-Greek-Extended.el
@@ -6,9 +6,9 @@
     (->decomposition   #x03B1 #x0313)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
-      (ucs               . #x1F08)     ; Ἀ
+      (=ucs              . #x1F08)     ; Ἀ
       ))
-    (ucs               . #x1F00)       ; ἀ
+    (=ucs              . #x1F00)       ; ἀ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
@@ -18,33 +18,33 @@
     (->decomposition   #x03B1 #x0314)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
-      (ucs               . #x1F09)     ; Ἁ
+      (=ucs              . #x1F09)     ; Ἁ
       ))
-    (ucs               . #x1F01)       ; ἁ
+    (=ucs              . #x1F01)       ; ἁ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA")
+  '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F00 #x0300)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA")
-      (ucs               . #x1F0A)     ; Ἂ
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA")
+      (=ucs              . #x1F0A)     ; Ἂ
       ))
-    (ucs               . #x1F02)       ; ἂ
+    (=ucs              . #x1F02)       ; ἂ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA")
+  '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F01 #x0300)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA")
-      (ucs               . #x1F0B)     ; Ἃ
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA")
+      (=ucs              . #x1F0B)     ; Ἃ
       ))
-    (ucs               . #x1F03)       ; ἃ
+    (=ucs              . #x1F03)       ; ἃ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA")
@@ -53,10 +53,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F00 #x0301)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA")
-      (ucs               . #x1F0C)     ; Ἄ
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA")
+      (=ucs              . #x1F0C)     ; Ἄ
       ))
-    (ucs               . #x1F04)       ; ἄ
+    (=ucs              . #x1F04)       ; ἄ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA")
@@ -65,10 +65,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F01 #x0301)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA")
-      (ucs               . #x1F0D)     ; Ἅ
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA")
+      (=ucs              . #x1F0D)     ; Ἅ
       ))
-    (ucs               . #x1F05)       ; ἅ
+    (=ucs              . #x1F05)       ; ἅ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI")
@@ -78,9 +78,9 @@
     (->decomposition   #x1F00 #x0342)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI")
-      (ucs               . #x1F0E)     ; Ἆ
+      (=ucs              . #x1F0E)     ; Ἆ
       ))
-    (ucs               . #x1F06)       ; ἆ
+    (=ucs              . #x1F06)       ; ἆ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI")
@@ -90,9 +90,9 @@
     (->decomposition   #x1F01 #x0342)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI")
-      (ucs               . #x1F0F)     ; Ἇ
+      (=ucs              . #x1F0F)     ; Ἇ
       ))
-    (ucs               . #x1F07)       ; ἇ
+    (=ucs              . #x1F07)       ; ἇ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI")
@@ -102,9 +102,9 @@
     (->decomposition   #x0391 #x0313)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI")
-      (ucs               . #x1F00)     ; ἀ
+      (=ucs              . #x1F00)     ; ἀ
       ))
-    (ucs               . #x1F08)       ; Ἀ
+    (=ucs              . #x1F08)       ; Ἀ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA")
@@ -114,57 +114,57 @@
     (->decomposition   #x0391 #x0314)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA")
-      (ucs               . #x1F01)     ; ἁ
+      (=ucs              . #x1F01)     ; ἁ
       ))
-    (ucs               . #x1F09)       ; Ἁ
+    (=ucs              . #x1F09)       ; Ἁ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA")
+  '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F08 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA")
-      (ucs               . #x1F02)     ; ἂ
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA")
+      (=ucs              . #x1F02)     ; ἂ
       ))
-    (ucs               . #x1F0A)       ; Ἂ
+    (=ucs              . #x1F0A)       ; Ἂ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA")
+  '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F09 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA")
-      (ucs               . #x1F03)     ; ἃ
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA")
+      (=ucs              . #x1F03)     ; ἃ
       ))
-    (ucs               . #x1F0B)       ; Ἃ
+    (=ucs              . #x1F0B)       ; Ἃ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA")
+  '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F08 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA")
-      (ucs               . #x1F04)     ; ἄ
+     ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA")
+      (=ucs              . #x1F04)     ; ἄ
       ))
-    (ucs               . #x1F0C)       ; Ἄ
+    (=ucs              . #x1F0C)       ; Ἄ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA")
+  '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F09 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA")
-      (ucs               . #x1F05)     ; ἅ
+     ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA")
+      (=ucs              . #x1F05)     ; ἅ
       ))
-    (ucs               . #x1F0D)       ; Ἅ
+    (=ucs              . #x1F0D)       ; Ἅ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI")
@@ -174,9 +174,9 @@
     (->decomposition   #x1F08 #x0342)
     (->lowercase
      ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI")
-      (ucs               . #x1F06)     ; ἆ
+      (=ucs              . #x1F06)     ; ἆ
       ))
-    (ucs               . #x1F0E)       ; Ἆ
+    (=ucs              . #x1F0E)       ; Ἆ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI")
@@ -186,9 +186,9 @@
     (->decomposition   #x1F09 #x0342)
     (->lowercase
      ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI")
-      (ucs               . #x1F07)     ; ἇ
+      (=ucs              . #x1F07)     ; ἇ
       ))
-    (ucs               . #x1F0F)       ; Ἇ
+    (=ucs              . #x1F0F)       ; Ἇ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH PSILI")
@@ -198,9 +198,9 @@
     (->decomposition   #x03B5 #x0313)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH PSILI")
-      (ucs               . #x1F18)     ; Ἐ
+      (=ucs              . #x1F18)     ; Ἐ
       ))
-    (ucs               . #x1F10)       ; ἐ
+    (=ucs              . #x1F10)       ; ἐ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH DASIA")
@@ -210,57 +210,57 @@
     (->decomposition   #x03B5 #x0314)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH DASIA")
-      (ucs               . #x1F19)     ; Ἑ
+      (=ucs              . #x1F19)     ; Ἑ
       ))
-    (ucs               . #x1F11)       ; ἑ
+    (=ucs              . #x1F11)       ; ἑ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA")
+  '((name . "GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F10 #x0300)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA")
-      (ucs               . #x1F1A)     ; Ἒ
+      (=ucs              . #x1F1A)     ; Ἒ
       ))
-    (ucs               . #x1F12)       ; ἒ
+    (=ucs              . #x1F12)       ; ἒ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA")
+  '((name . "GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F11 #x0300)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA")
-      (ucs               . #x1F1B)     ; Ἓ
+      (=ucs              . #x1F1B)     ; Ἓ
       ))
-    (ucs               . #x1F13)       ; ἓ
+    (=ucs              . #x1F13)       ; ἓ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA")
+  '((name . "GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F10 #x0301)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA")
-      (ucs               . #x1F1C)     ; Ἔ
+      (=ucs              . #x1F1C)     ; Ἔ
       ))
-    (ucs               . #x1F14)       ; ἔ
+    (=ucs              . #x1F14)       ; ἔ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA")
+  '((name . "GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F11 #x0301)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA")
-      (ucs               . #x1F1D)     ; Ἕ
+      (=ucs              . #x1F1D)     ; Ἕ
       ))
-    (ucs               . #x1F15)       ; ἕ
+    (=ucs              . #x1F15)       ; ἕ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH PSILI")
@@ -270,9 +270,9 @@
     (->decomposition   #x0395 #x0313)
     (->lowercase
      ((name              . "GREEK SMALL LETTER EPSILON WITH PSILI")
-      (ucs               . #x1F10)     ; ἐ
+      (=ucs              . #x1F10)     ; ἐ
       ))
-    (ucs               . #x1F18)       ; Ἐ
+    (=ucs              . #x1F18)       ; Ἐ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH DASIA")
@@ -282,9 +282,9 @@
     (->decomposition   #x0395 #x0314)
     (->lowercase
      ((name              . "GREEK SMALL LETTER EPSILON WITH DASIA")
-      (ucs               . #x1F11)     ; ἑ
+      (=ucs              . #x1F11)     ; ἑ
       ))
-    (ucs               . #x1F19)       ; Ἑ
+    (=ucs              . #x1F19)       ; Ἑ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA")
@@ -293,10 +293,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F18 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA")
-      (ucs               . #x1F12)     ; ἒ
+     ((name . "GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA")
+      (=ucs              . #x1F12)     ; ἒ
       ))
-    (ucs               . #x1F1A)       ; Ἒ
+    (=ucs              . #x1F1A)       ; Ἒ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA")
@@ -305,10 +305,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F19 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA")
-      (ucs               . #x1F13)     ; ἓ
+     ((name . "GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA")
+      (=ucs              . #x1F13)     ; ἓ
       ))
-    (ucs               . #x1F1B)       ; Ἓ
+    (=ucs              . #x1F1B)       ; Ἓ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA")
@@ -317,10 +317,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F18 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA")
-      (ucs               . #x1F14)     ; ἔ
+     ((name . "GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA")
+      (=ucs              . #x1F14)     ; ἔ
       ))
-    (ucs               . #x1F1C)       ; Ἔ
+    (=ucs              . #x1F1C)       ; Ἔ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA")
@@ -329,10 +329,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F19 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA")
-      (ucs               . #x1F15)     ; ἕ
+     ((name . "GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA")
+      (=ucs              . #x1F15)     ; ἕ
       ))
-    (ucs               . #x1F1D)       ; Ἕ
+    (=ucs              . #x1F1D)       ; Ἕ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PSILI")
@@ -342,9 +342,9 @@
     (->decomposition   #x03B7 #x0313)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
-      (ucs               . #x1F28)     ; Ἠ
+      (=ucs              . #x1F28)     ; Ἠ
       ))
-    (ucs               . #x1F20)       ; ἠ
+    (=ucs              . #x1F20)       ; ἠ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH DASIA")
@@ -354,9 +354,9 @@
     (->decomposition   #x03B7 #x0314)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
-      (ucs               . #x1F29)     ; Ἡ
+      (=ucs              . #x1F29)     ; Ἡ
       ))
-    (ucs               . #x1F21)       ; ἡ
+    (=ucs              . #x1F21)       ; ἡ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA")
@@ -365,10 +365,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F20 #x0300)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA")
-      (ucs               . #x1F2A)     ; Ἢ
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA")
+      (=ucs              . #x1F2A)     ; Ἢ
       ))
-    (ucs               . #x1F22)       ; ἢ
+    (=ucs              . #x1F22)       ; ἢ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA")
@@ -377,10 +377,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F21 #x0300)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA")
-      (ucs               . #x1F2B)     ; Ἣ
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA")
+      (=ucs              . #x1F2B)     ; Ἣ
       ))
-    (ucs               . #x1F23)       ; ἣ
+    (=ucs              . #x1F23)       ; ἣ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA")
@@ -389,10 +389,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F20 #x0301)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA")
-      (ucs               . #x1F2C)     ; Ἤ
+     ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA")
+      (=ucs              . #x1F2C)     ; Ἤ
       ))
-    (ucs               . #x1F24)       ; ἤ
+    (=ucs              . #x1F24)       ; ἤ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA")
@@ -401,10 +401,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F21 #x0301)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA")
-      (ucs               . #x1F2D)     ; Ἥ
+     ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA")
+      (=ucs              . #x1F2D)     ; Ἥ
       ))
-    (ucs               . #x1F25)       ; ἥ
+    (=ucs              . #x1F25)       ; ἥ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI")
@@ -414,9 +414,9 @@
     (->decomposition   #x1F20 #x0342)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI")
-      (ucs               . #x1F2E)     ; Ἦ
+      (=ucs              . #x1F2E)     ; Ἦ
       ))
-    (ucs               . #x1F26)       ; ἦ
+    (=ucs              . #x1F26)       ; ἦ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI")
@@ -426,9 +426,9 @@
     (->decomposition   #x1F21 #x0342)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI")
-      (ucs               . #x1F2F)     ; Ἧ
+      (=ucs              . #x1F2F)     ; Ἧ
       ))
-    (ucs               . #x1F27)       ; ἧ
+    (=ucs              . #x1F27)       ; ἧ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH PSILI")
@@ -438,9 +438,9 @@
     (->decomposition   #x0397 #x0313)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ETA WITH PSILI")
-      (ucs               . #x1F20)     ; ἠ
+      (=ucs              . #x1F20)     ; ἠ
       ))
-    (ucs               . #x1F28)       ; Ἠ
+    (=ucs              . #x1F28)       ; Ἠ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH DASIA")
@@ -450,33 +450,33 @@
     (->decomposition   #x0397 #x0314)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ETA WITH DASIA")
-      (ucs               . #x1F21)     ; ἡ
+      (=ucs              . #x1F21)     ; ἡ
       ))
-    (ucs               . #x1F29)       ; Ἡ
+    (=ucs              . #x1F29)       ; Ἡ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA")
+  '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F28 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA")
-      (ucs               . #x1F22)     ; ἢ
+     ((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA")
+      (=ucs              . #x1F22)     ; ἢ
       ))
-    (ucs               . #x1F2A)       ; Ἢ
+    (=ucs              . #x1F2A)       ; Ἢ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA")
+  '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F29 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA")
-      (ucs               . #x1F23)     ; ἣ
+     ((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA")
+      (=ucs              . #x1F23)     ; ἣ
       ))
-    (ucs               . #x1F2B)       ; Ἣ
+    (=ucs              . #x1F2B)       ; Ἣ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA")
@@ -486,9 +486,9 @@
     (->decomposition   #x1F28 #x0301)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA")
-      (ucs               . #x1F24)     ; ἤ
+      (=ucs              . #x1F24)     ; ἤ
       ))
-    (ucs               . #x1F2C)       ; Ἤ
+    (=ucs              . #x1F2C)       ; Ἤ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA")
@@ -498,9 +498,9 @@
     (->decomposition   #x1F29 #x0301)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA")
-      (ucs               . #x1F25)     ; ἥ
+      (=ucs              . #x1F25)     ; ἥ
       ))
-    (ucs               . #x1F2D)       ; Ἥ
+    (=ucs              . #x1F2D)       ; Ἥ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI")
@@ -510,9 +510,9 @@
     (->decomposition   #x1F28 #x0342)
     (->lowercase
      ((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI")
-      (ucs               . #x1F26)     ; ἦ
+      (=ucs              . #x1F26)     ; ἦ
       ))
-    (ucs               . #x1F2E)       ; Ἦ
+    (=ucs              . #x1F2E)       ; Ἦ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI")
@@ -522,9 +522,9 @@
     (->decomposition   #x1F29 #x0342)
     (->lowercase
      ((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI")
-      (ucs               . #x1F27)     ; ἧ
+      (=ucs              . #x1F27)     ; ἧ
       ))
-    (ucs               . #x1F2F)       ; Ἧ
+    (=ucs              . #x1F2F)       ; Ἧ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PSILI")
@@ -534,9 +534,9 @@
     (->decomposition   #x03B9 #x0313)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI")
-      (ucs               . #x1F38)     ; Ἰ
+      (=ucs              . #x1F38)     ; Ἰ
       ))
-    (ucs               . #x1F30)       ; ἰ
+    (=ucs              . #x1F30)       ; ἰ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DASIA")
@@ -546,9 +546,9 @@
     (->decomposition   #x03B9 #x0314)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA")
-      (ucs               . #x1F39)     ; Ἱ
+      (=ucs              . #x1F39)     ; Ἱ
       ))
-    (ucs               . #x1F31)       ; ἱ
+    (=ucs              . #x1F31)       ; ἱ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PSILI AND VARIA")
@@ -557,10 +557,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F30 #x0300)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA")
-      (ucs               . #x1F3A)     ; Ἲ
+     ((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA")
+      (=ucs              . #x1F3A)     ; Ἲ
       ))
-    (ucs               . #x1F32)       ; ἲ
+    (=ucs              . #x1F32)       ; ἲ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DASIA AND VARIA")
@@ -569,10 +569,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F31 #x0300)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA")
-      (ucs               . #x1F3B)     ; Ἳ
+     ((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA")
+      (=ucs              . #x1F3B)     ; Ἳ
       ))
-    (ucs               . #x1F33)       ; ἳ
+    (=ucs              . #x1F33)       ; ἳ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PSILI AND OXIA")
@@ -581,10 +581,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F30 #x0301)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA")
-      (ucs               . #x1F3C)     ; Ἴ
+     ((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA")
+      (=ucs              . #x1F3C)     ; Ἴ
       ))
-    (ucs               . #x1F34)       ; ἴ
+    (=ucs              . #x1F34)       ; ἴ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DASIA AND OXIA")
@@ -593,10 +593,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F31 #x0301)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA")
-      (ucs               . #x1F3D)     ; Ἵ
+     ((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA")
+      (=ucs              . #x1F3D)     ; Ἵ
       ))
-    (ucs               . #x1F35)       ; ἵ
+    (=ucs              . #x1F35)       ; ἵ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI")
@@ -606,9 +606,9 @@
     (->decomposition   #x1F30 #x0342)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI")
-      (ucs               . #x1F3E)     ; Ἶ
+      (=ucs              . #x1F3E)     ; Ἶ
       ))
-    (ucs               . #x1F36)       ; ἶ
+    (=ucs              . #x1F36)       ; ἶ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI")
@@ -618,9 +618,9 @@
     (->decomposition   #x1F31 #x0342)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI")
-      (ucs               . #x1F3F)     ; Ἷ
+      (=ucs              . #x1F3F)     ; Ἷ
       ))
-    (ucs               . #x1F37)       ; ἷ
+    (=ucs              . #x1F37)       ; ἷ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI")
@@ -630,9 +630,9 @@
     (->decomposition   #x0399 #x0313)
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA WITH PSILI")
-      (ucs               . #x1F30)     ; ἰ
+      (=ucs              . #x1F30)     ; ἰ
       ))
-    (ucs               . #x1F38)       ; Ἰ
+    (=ucs              . #x1F38)       ; Ἰ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA")
@@ -642,57 +642,57 @@
     (->decomposition   #x0399 #x0314)
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA WITH DASIA")
-      (ucs               . #x1F31)     ; ἱ
+      (=ucs              . #x1F31)     ; ἱ
       ))
-    (ucs               . #x1F39)       ; Ἱ
+    (=ucs              . #x1F39)       ; Ἱ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA")
+  '((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F38 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER IOTA WITH PSILI AND VARIA")
-      (ucs               . #x1F32)     ; ἲ
+     ((name . "GREEK SMALL LETTER IOTA WITH PSILI AND VARIA")
+      (=ucs              . #x1F32)     ; ἲ
       ))
-    (ucs               . #x1F3A)       ; Ἲ
+    (=ucs              . #x1F3A)       ; Ἲ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA")
+  '((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F39 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER IOTA WITH DASIA AND VARIA")
-      (ucs               . #x1F33)     ; ἳ
+     ((name . "GREEK SMALL LETTER IOTA WITH DASIA AND VARIA")
+      (=ucs              . #x1F33)     ; ἳ
       ))
-    (ucs               . #x1F3B)       ; Ἳ
+    (=ucs              . #x1F3B)       ; Ἳ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA")
+  '((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F38 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER IOTA WITH PSILI AND OXIA")
-      (ucs               . #x1F34)     ; ἴ
+     ((name . "GREEK SMALL LETTER IOTA WITH PSILI AND OXIA")
+      (=ucs              . #x1F34)     ; ἴ
       ))
-    (ucs               . #x1F3C)       ; Ἴ
+    (=ucs              . #x1F3C)       ; Ἴ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA")
+  '((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F39 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER IOTA WITH DASIA AND OXIA")
-      (ucs               . #x1F35)     ; ἵ
+     ((name . "GREEK SMALL LETTER IOTA WITH DASIA AND OXIA")
+      (=ucs              . #x1F35)     ; ἵ
       ))
-    (ucs               . #x1F3D)       ; Ἵ
+    (=ucs              . #x1F3D)       ; Ἵ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI")
@@ -702,9 +702,9 @@
     (->decomposition   #x1F38 #x0342)
     (->lowercase
      ((name . "GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI")
-      (ucs               . #x1F36)     ; ἶ
+      (=ucs              . #x1F36)     ; ἶ
       ))
-    (ucs               . #x1F3E)       ; Ἶ
+    (=ucs              . #x1F3E)       ; Ἶ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI")
@@ -714,9 +714,9 @@
     (->decomposition   #x1F39 #x0342)
     (->lowercase
      ((name . "GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI")
-      (ucs               . #x1F37)     ; ἷ
+      (=ucs              . #x1F37)     ; ἷ
       ))
-    (ucs               . #x1F3F)       ; Ἷ
+    (=ucs              . #x1F3F)       ; Ἷ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH PSILI")
@@ -726,9 +726,9 @@
     (->decomposition   #x03BF #x0313)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH PSILI")
-      (ucs               . #x1F48)     ; Ὀ
+      (=ucs              . #x1F48)     ; Ὀ
       ))
-    (ucs               . #x1F40)       ; ὀ
+    (=ucs              . #x1F40)       ; ὀ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH DASIA")
@@ -738,57 +738,57 @@
     (->decomposition   #x03BF #x0314)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH DASIA")
-      (ucs               . #x1F49)     ; Ὁ
+      (=ucs              . #x1F49)     ; Ὁ
       ))
-    (ucs               . #x1F41)       ; ὁ
+    (=ucs              . #x1F41)       ; ὁ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA")
+  '((name . "GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F40 #x0300)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA")
-      (ucs               . #x1F4A)     ; Ὂ
+      (=ucs              . #x1F4A)     ; Ὂ
       ))
-    (ucs               . #x1F42)       ; ὂ
+    (=ucs              . #x1F42)       ; ὂ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA")
+  '((name . "GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F41 #x0300)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA")
-      (ucs               . #x1F4B)     ; Ὃ
+      (=ucs              . #x1F4B)     ; Ὃ
       ))
-    (ucs               . #x1F43)       ; ὃ
+    (=ucs              . #x1F43)       ; ὃ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA")
+  '((name . "GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F40 #x0301)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA")
-      (ucs               . #x1F4C)     ; Ὄ
+      (=ucs              . #x1F4C)     ; Ὄ
       ))
-    (ucs               . #x1F44)       ; ὄ
+    (=ucs              . #x1F44)       ; ὄ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA")
+  '((name . "GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F41 #x0301)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA")
-      (ucs               . #x1F4D)     ; Ὅ
+      (=ucs              . #x1F4D)     ; Ὅ
       ))
-    (ucs               . #x1F45)       ; ὅ
+    (=ucs              . #x1F45)       ; ὅ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH PSILI")
@@ -798,9 +798,9 @@
     (->decomposition   #x039F #x0313)
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMICRON WITH PSILI")
-      (ucs               . #x1F40)     ; ὀ
+      (=ucs              . #x1F40)     ; ὀ
       ))
-    (ucs               . #x1F48)       ; Ὀ
+    (=ucs              . #x1F48)       ; Ὀ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH DASIA")
@@ -810,9 +810,9 @@
     (->decomposition   #x039F #x0314)
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMICRON WITH DASIA")
-      (ucs               . #x1F41)     ; ὁ
+      (=ucs              . #x1F41)     ; ὁ
       ))
-    (ucs               . #x1F49)       ; Ὁ
+    (=ucs              . #x1F49)       ; Ὁ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA")
@@ -821,10 +821,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F48 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA")
-      (ucs               . #x1F42)     ; ὂ
+     ((name . "GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA")
+      (=ucs              . #x1F42)     ; ὂ
       ))
-    (ucs               . #x1F4A)       ; Ὂ
+    (=ucs              . #x1F4A)       ; Ὂ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA")
@@ -833,10 +833,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F49 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA")
-      (ucs               . #x1F43)     ; ὃ
+     ((name . "GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA")
+      (=ucs              . #x1F43)     ; ὃ
       ))
-    (ucs               . #x1F4B)       ; Ὃ
+    (=ucs              . #x1F4B)       ; Ὃ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA")
@@ -845,10 +845,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F48 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA")
-      (ucs               . #x1F44)     ; ὄ
+     ((name . "GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA")
+      (=ucs              . #x1F44)     ; ὄ
       ))
-    (ucs               . #x1F4C)       ; Ὄ
+    (=ucs              . #x1F4C)       ; Ὄ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA")
@@ -857,10 +857,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F49 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA")
-      (ucs               . #x1F45)     ; ὅ
+     ((name . "GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA")
+      (=ucs              . #x1F45)     ; ὅ
       ))
-    (ucs               . #x1F4D)       ; Ὅ
+    (=ucs              . #x1F4D)       ; Ὅ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH PSILI")
@@ -868,7 +868,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C5 #x0313)
-    (ucs               . #x1F50)       ; ὐ
+    (=ucs              . #x1F50)       ; ὐ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH DASIA")
@@ -878,49 +878,49 @@
     (->decomposition   #x03C5 #x0314)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH DASIA")
-      (ucs               . #x1F59)     ; Ὑ
+      (=ucs              . #x1F59)     ; Ὑ
       ))
-    (ucs               . #x1F51)       ; ὑ
+    (=ucs              . #x1F51)       ; ὑ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA")
+  '((name . "GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F50 #x0300)
-    (ucs               . #x1F52)       ; ὒ
+    (=ucs              . #x1F52)       ; ὒ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA")
+  '((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F51 #x0300)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA")
-      (ucs               . #x1F5B)     ; Ὓ
+      (=ucs              . #x1F5B)     ; Ὓ
       ))
-    (ucs               . #x1F53)       ; ὓ
+    (=ucs              . #x1F53)       ; ὓ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA")
+  '((name . "GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F50 #x0301)
-    (ucs               . #x1F54)       ; ὔ
+    (=ucs              . #x1F54)       ; ὔ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA")
+  '((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F51 #x0301)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA")
-      (ucs               . #x1F5D)     ; Ὕ
+      (=ucs              . #x1F5D)     ; Ὕ
       ))
-    (ucs               . #x1F55)       ; ὕ
+    (=ucs              . #x1F55)       ; ὕ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI")
@@ -928,7 +928,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F50 #x0342)
-    (ucs               . #x1F56)       ; ὖ
+    (=ucs              . #x1F56)       ; ὖ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI")
@@ -938,9 +938,9 @@
     (->decomposition   #x1F51 #x0342)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI")
-      (ucs               . #x1F5F)     ; Ὗ
+      (=ucs              . #x1F5F)     ; Ὗ
       ))
-    (ucs               . #x1F57)       ; ὗ
+    (=ucs              . #x1F57)       ; ὗ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH DASIA")
@@ -950,9 +950,9 @@
     (->decomposition   #x03A5 #x0314)
     (->lowercase
      ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA")
-      (ucs               . #x1F51)     ; ὑ
+      (=ucs              . #x1F51)     ; ὑ
       ))
-    (ucs               . #x1F59)       ; Ὑ
+    (=ucs              . #x1F59)       ; Ὑ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA")
@@ -961,10 +961,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F59 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA")
-      (ucs               . #x1F53)     ; ὓ
+     ((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA")
+      (=ucs              . #x1F53)     ; ὓ
       ))
-    (ucs               . #x1F5B)       ; Ὓ
+    (=ucs              . #x1F5B)       ; Ὓ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA")
@@ -973,10 +973,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F59 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA")
-      (ucs               . #x1F55)     ; ὕ
+     ((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA")
+      (=ucs              . #x1F55)     ; ὕ
       ))
-    (ucs               . #x1F5D)       ; Ὕ
+    (=ucs              . #x1F5D)       ; Ὕ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI")
@@ -986,9 +986,9 @@
     (->decomposition   #x1F59 #x0342)
     (->lowercase
      ((name . "GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI")
-      (ucs               . #x1F57)     ; ὗ
+      (=ucs              . #x1F57)     ; ὗ
       ))
-    (ucs               . #x1F5F)       ; Ὗ
+    (=ucs              . #x1F5F)       ; Ὗ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
@@ -998,9 +998,9 @@
     (->decomposition   #x03C9 #x0313)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
-      (ucs               . #x1F68)     ; Ὠ
+      (=ucs              . #x1F68)     ; Ὠ
       ))
-    (ucs               . #x1F60)       ; ὠ
+    (=ucs              . #x1F60)       ; ὠ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
@@ -1010,33 +1010,33 @@
     (->decomposition   #x03C9 #x0314)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
-      (ucs               . #x1F69)     ; Ὡ
+      (=ucs              . #x1F69)     ; Ὡ
       ))
-    (ucs               . #x1F61)       ; ὡ
+    (=ucs              . #x1F61)       ; ὡ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA")
+  '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F60 #x0300)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA")
-      (ucs               . #x1F6A)     ; Ὢ
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA")
+      (=ucs              . #x1F6A)     ; Ὢ
       ))
-    (ucs               . #x1F62)       ; ὢ
+    (=ucs              . #x1F62)       ; ὢ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA")
+  '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F61 #x0300)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA")
-      (ucs               . #x1F6B)     ; Ὣ
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA")
+      (=ucs              . #x1F6B)     ; Ὣ
       ))
-    (ucs               . #x1F63)       ; ὣ
+    (=ucs              . #x1F63)       ; ὣ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA")
@@ -1045,10 +1045,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F60 #x0301)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA")
-      (ucs               . #x1F6C)     ; Ὤ
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA")
+      (=ucs              . #x1F6C)     ; Ὤ
       ))
-    (ucs               . #x1F64)       ; ὤ
+    (=ucs              . #x1F64)       ; ὤ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA")
@@ -1057,10 +1057,10 @@
     (mirrored          . nil)
     (->decomposition   #x1F61 #x0301)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA")
-      (ucs               . #x1F6D)     ; Ὥ
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA")
+      (=ucs              . #x1F6D)     ; Ὥ
       ))
-    (ucs               . #x1F65)       ; ὥ
+    (=ucs              . #x1F65)       ; ὥ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI")
@@ -1070,9 +1070,9 @@
     (->decomposition   #x1F60 #x0342)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI")
-      (ucs               . #x1F6E)     ; Ὦ
+      (=ucs              . #x1F6E)     ; Ὦ
       ))
-    (ucs               . #x1F66)       ; ὦ
+    (=ucs              . #x1F66)       ; ὦ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI")
@@ -1082,9 +1082,9 @@
     (->decomposition   #x1F61 #x0342)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI")
-      (ucs               . #x1F6F)     ; Ὧ
+      (=ucs              . #x1F6F)     ; Ὧ
       ))
-    (ucs               . #x1F67)       ; ὧ
+    (=ucs              . #x1F67)       ; ὧ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI")
@@ -1094,9 +1094,9 @@
     (->decomposition   #x03A9 #x0313)
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI")
-      (ucs               . #x1F60)     ; ὠ
+      (=ucs              . #x1F60)     ; ὠ
       ))
-    (ucs               . #x1F68)       ; Ὠ
+    (=ucs              . #x1F68)       ; Ὠ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA")
@@ -1106,57 +1106,57 @@
     (->decomposition   #x03A9 #x0314)
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA")
-      (ucs               . #x1F61)     ; ὡ
+      (=ucs              . #x1F61)     ; ὡ
       ))
-    (ucs               . #x1F69)       ; Ὡ
+    (=ucs              . #x1F69)       ; Ὡ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA")
+  '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F68 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA")
-      (ucs               . #x1F62)     ; ὢ
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA")
+      (=ucs              . #x1F62)     ; ὢ
       ))
-    (ucs               . #x1F6A)       ; Ὢ
+    (=ucs              . #x1F6A)       ; Ὢ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA")
+  '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F69 #x0300)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA")
-      (ucs               . #x1F63)     ; ὣ
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA")
+      (=ucs              . #x1F63)     ; ὣ
       ))
-    (ucs               . #x1F6B)       ; Ὣ
+    (=ucs              . #x1F6B)       ; Ὣ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA")
+  '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F68 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA")
-      (ucs               . #x1F64)     ; ὤ
+     ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA")
+      (=ucs              . #x1F64)     ; ὤ
       ))
-    (ucs               . #x1F6C)       ; Ὤ
+    (=ucs              . #x1F6C)       ; Ὤ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA")
+  '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA")
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F69 #x0301)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA")
-      (ucs               . #x1F65)     ; ὥ
+     ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA")
+      (=ucs              . #x1F65)     ; ὥ
       ))
-    (ucs               . #x1F6D)       ; Ὥ
+    (=ucs              . #x1F6D)       ; Ὥ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI")
@@ -1166,9 +1166,9 @@
     (->decomposition   #x1F68 #x0342)
     (->lowercase
      ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI")
-      (ucs               . #x1F66)     ; ὦ
+      (=ucs              . #x1F66)     ; ὦ
       ))
-    (ucs               . #x1F6E)       ; Ὦ
+    (=ucs              . #x1F6E)       ; Ὦ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI")
@@ -1178,9 +1178,9 @@
     (->decomposition   #x1F69 #x0342)
     (->lowercase
      ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI")
-      (ucs               . #x1F67)     ; ὧ
+      (=ucs              . #x1F67)     ; ὧ
       ))
-    (ucs               . #x1F6F)       ; Ὧ
+    (=ucs              . #x1F6F)       ; Ὧ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH VARIA")
@@ -1190,9 +1190,9 @@
     (->decomposition   #x03B1 #x0300)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH VARIA")
-      (ucs               . #x1FBA)     ; Ὰ
+      (=ucs              . #x1FBA)     ; Ὰ
       ))
-    (ucs               . #x1F70)       ; ὰ
+    (=ucs              . #x1F70)       ; ὰ
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER ALPHA WITH GRAVE")
@@ -1201,7 +1201,8 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0251 #x0300)
-    (japanese-jisx0213-1       . #x2B46)       ; �����
+    (=jis-x0213-1-2000 . #x2B46)       ; �����
+    (=ucs@jis          . #x1F70)       ; �����
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH OXIA")
@@ -1211,9 +1212,9 @@
     (->decomposition   #x03AC)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH OXIA")
-      (ucs               . #x1FBB)     ; Ά
+      (=ucs              . #x1FBB)     ; Ά
       ))
-    (ucs               . #x1F71)       ; ά
+    (=ucs              . #x1F71)       ; ά
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER ALPHA WITH ACUTE")
@@ -1222,7 +1223,8 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0251 #x0301)
-    (japanese-jisx0213-1       . #x2B47)       ; �����
+    (=jis-x0213-1-2000 . #x2B47)       ; �����
+    (=ucs@jis          . #x1F71)       ; �����
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH VARIA")
@@ -1232,9 +1234,9 @@
     (->decomposition   #x03B5 #x0300)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH VARIA")
-      (ucs               . #x1FC8)     ; Ὲ
+      (=ucs              . #x1FC8)     ; Ὲ
       ))
-    (ucs               . #x1F72)       ; ὲ
+    (=ucs              . #x1F72)       ; ὲ
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER OPEN E WITH GRAVE")
@@ -1244,8 +1246,10 @@
     (mirrored          . nil)
     (->decomposition   #x025B #x0300)
     (->uppercase
-     ((name . "LATIN CAPITAL LETTER OPEN E WITH GRAVE")))
-    (japanese-jisx0213-1       . #x2B50)       ; �����
+     ((name              . "LATIN CAPITAL LETTER OPEN E WITH GRAVE")
+      ))
+    (=jis-x0213-1-2000 . #x2B50)       ; �����
+    (=ucs@jis          . #x1F72)       ; �����
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH OXIA")
@@ -1255,9 +1259,9 @@
     (->decomposition   #x03AD)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH OXIA")
-      (ucs               . #x1FC9)     ; Έ
+      (=ucs              . #x1FC9)     ; Έ
       ))
-    (ucs               . #x1F73)       ; έ
+    (=ucs              . #x1F73)       ; έ
     ))
 (define-char
   '((name              . "LATIN SMALL LETTER OPEN E WITH ACUTE")
@@ -1267,8 +1271,10 @@
     (mirrored          . nil)
     (->decomposition   #x025B #x0301)
     (->uppercase
-     ((name . "LATIN CAPITAL LETTER OPEN E WITH ACUTE")))
-    (japanese-jisx0213-1       . #x2B51)       ; �����
+     ((name              . "LATIN CAPITAL LETTER OPEN E WITH ACUTE")
+      ))
+    (=jis-x0213-1-2000 . #x2B51)       ; �����
+    (=ucs@jis          . #x1F73)       ; �����
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH VARIA")
@@ -1278,9 +1284,9 @@
     (->decomposition   #x03B7 #x0300)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ETA WITH VARIA")
-      (ucs               . #x1FCA)     ; Ὴ
+      (=ucs              . #x1FCA)     ; Ὴ
       ))
-    (ucs               . #x1F74)       ; ὴ
+    (=ucs              . #x1F74)       ; ὴ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH OXIA")
@@ -1290,9 +1296,9 @@
     (->decomposition   #x03AE)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ETA WITH OXIA")
-      (ucs               . #x1FCB)     ; Ή
+      (=ucs              . #x1FCB)     ; Ή
       ))
-    (ucs               . #x1F75)       ; ή
+    (=ucs              . #x1F75)       ; ή
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH VARIA")
@@ -1302,9 +1308,9 @@
     (->decomposition   #x03B9 #x0300)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA WITH VARIA")
-      (ucs               . #x1FDA)     ; Ὶ
+      (=ucs              . #x1FDA)     ; Ὶ
       ))
-    (ucs               . #x1F76)       ; ὶ
+    (=ucs              . #x1F76)       ; ὶ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH OXIA")
@@ -1314,9 +1320,9 @@
     (->decomposition   #x03AF)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA WITH OXIA")
-      (ucs               . #x1FDB)     ; Ί
+      (=ucs              . #x1FDB)     ; Ί
       ))
-    (ucs               . #x1F77)       ; ί
+    (=ucs              . #x1F77)       ; ί
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH VARIA")
@@ -1326,9 +1332,9 @@
     (->decomposition   #x03BF #x0300)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH VARIA")
-      (ucs               . #x1FF8)     ; Ὸ
+      (=ucs              . #x1FF8)     ; Ὸ
       ))
-    (ucs               . #x1F78)       ; ὸ
+    (=ucs              . #x1F78)       ; ὸ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH OXIA")
@@ -1338,9 +1344,9 @@
     (->decomposition   #x03CC)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH OXIA")
-      (ucs               . #x1FF9)     ; Ό
+      (=ucs              . #x1FF9)     ; Ό
       ))
-    (ucs               . #x1F79)       ; ό
+    (=ucs              . #x1F79)       ; ό
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH VARIA")
@@ -1350,9 +1356,9 @@
     (->decomposition   #x03C5 #x0300)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH VARIA")
-      (ucs               . #x1FEA)     ; Ὺ
+      (=ucs              . #x1FEA)     ; Ὺ
       ))
-    (ucs               . #x1F7A)       ; ὺ
+    (=ucs              . #x1F7A)       ; ὺ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH OXIA")
@@ -1362,9 +1368,9 @@
     (->decomposition   #x03CD)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH OXIA")
-      (ucs               . #x1FEB)     ; Ύ
+      (=ucs              . #x1FEB)     ; Ύ
       ))
-    (ucs               . #x1F7B)       ; ύ
+    (=ucs              . #x1F7B)       ; ύ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH VARIA")
@@ -1374,9 +1380,9 @@
     (->decomposition   #x03C9 #x0300)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH VARIA")
-      (ucs               . #x1FFA)     ; Ὼ
+      (=ucs              . #x1FFA)     ; Ὼ
       ))
-    (ucs               . #x1F7C)       ; ὼ
+    (=ucs              . #x1F7C)       ; ὼ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH OXIA")
@@ -1386,9 +1392,9 @@
     (->decomposition   #x03CE)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH OXIA")
-      (ucs               . #x1FFB)     ; Ώ
+      (=ucs              . #x1FFB)     ; Ώ
       ))
-    (ucs               . #x1F7D)       ; ώ
+    (=ucs              . #x1F7D)       ; ώ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI")
@@ -1398,9 +1404,9 @@
     (->decomposition   #x1F00 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI")
-      (ucs               . #x1F88)     ; ᾈ
+      (=ucs              . #x1F88)     ; ᾈ
       ))
-    (ucs               . #x1F80)       ; ᾀ
+    (=ucs              . #x1F80)       ; ᾀ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI")
@@ -1410,9 +1416,9 @@
     (->decomposition   #x1F01 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI")
-      (ucs               . #x1F89)     ; ᾉ
+      (=ucs              . #x1F89)     ; ᾉ
       ))
-    (ucs               . #x1F81)       ; ᾁ
+    (=ucs              . #x1F81)       ; ᾁ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
@@ -1422,9 +1428,9 @@
     (->decomposition   #x1F02 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
-      (ucs               . #x1F8A)     ; ᾊ
+      (=ucs              . #x1F8A)     ; ᾊ
       ))
-    (ucs               . #x1F82)       ; ᾂ
+    (=ucs              . #x1F82)       ; ᾂ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
@@ -1434,9 +1440,9 @@
     (->decomposition   #x1F03 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
-      (ucs               . #x1F8B)     ; ᾋ
+      (=ucs              . #x1F8B)     ; ᾋ
       ))
-    (ucs               . #x1F83)       ; ᾃ
+    (=ucs              . #x1F83)       ; ᾃ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
@@ -1446,9 +1452,9 @@
     (->decomposition   #x1F04 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
-      (ucs               . #x1F8C)     ; ᾌ
+      (=ucs              . #x1F8C)     ; ᾌ
       ))
-    (ucs               . #x1F84)       ; ᾄ
+    (=ucs              . #x1F84)       ; ᾄ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
@@ -1458,9 +1464,9 @@
     (->decomposition   #x1F05 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
-      (ucs               . #x1F8D)     ; ᾍ
+      (=ucs              . #x1F8D)     ; ᾍ
       ))
-    (ucs               . #x1F85)       ; ᾅ
+    (=ucs              . #x1F85)       ; ᾅ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
@@ -1470,9 +1476,9 @@
     (->decomposition   #x1F06 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
-      (ucs               . #x1F8E)     ; ᾎ
+      (=ucs              . #x1F8E)     ; ᾎ
       ))
-    (ucs               . #x1F86)       ; ᾆ
+    (=ucs              . #x1F86)       ; ᾆ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
@@ -1482,9 +1488,9 @@
     (->decomposition   #x1F07 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
-      (ucs               . #x1F8F)     ; ᾏ
+      (=ucs              . #x1F8F)     ; ᾏ
       ))
-    (ucs               . #x1F87)       ; ᾇ
+    (=ucs              . #x1F87)       ; ᾇ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI")
@@ -1494,9 +1500,9 @@
     (->decomposition   #x1F08 #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI")
-      (ucs               . #x1F80)     ; ᾀ
+      (=ucs              . #x1F80)     ; ᾀ
       ))
-    (ucs               . #x1F88)       ; ᾈ
+    (=ucs              . #x1F88)       ; ᾈ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI")
@@ -1506,9 +1512,9 @@
     (->decomposition   #x1F09 #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI")
-      (ucs               . #x1F81)     ; ᾁ
+      (=ucs              . #x1F81)     ; ᾁ
       ))
-    (ucs               . #x1F89)       ; ᾉ
+    (=ucs              . #x1F89)       ; ᾉ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
@@ -1518,9 +1524,9 @@
     (->decomposition   #x1F0A #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
-      (ucs               . #x1F82)     ; ᾂ
+      (=ucs              . #x1F82)     ; ᾂ
       ))
-    (ucs               . #x1F8A)       ; ᾊ
+    (=ucs              . #x1F8A)       ; ᾊ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
@@ -1530,9 +1536,9 @@
     (->decomposition   #x1F0B #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
-      (ucs               . #x1F83)     ; ᾃ
+      (=ucs              . #x1F83)     ; ᾃ
       ))
-    (ucs               . #x1F8B)       ; ᾋ
+    (=ucs              . #x1F8B)       ; ᾋ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
@@ -1542,9 +1548,9 @@
     (->decomposition   #x1F0C #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
-      (ucs               . #x1F84)     ; ᾄ
+      (=ucs              . #x1F84)     ; ᾄ
       ))
-    (ucs               . #x1F8C)       ; ᾌ
+    (=ucs              . #x1F8C)       ; ᾌ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
@@ -1554,9 +1560,9 @@
     (->decomposition   #x1F0D #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
-      (ucs               . #x1F85)     ; ᾅ
+      (=ucs              . #x1F85)     ; ᾅ
       ))
-    (ucs               . #x1F8D)       ; ᾍ
+    (=ucs              . #x1F8D)       ; ᾍ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
@@ -1566,9 +1572,9 @@
     (->decomposition   #x1F0E #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
-      (ucs               . #x1F86)     ; ᾆ
+      (=ucs              . #x1F86)     ; ᾆ
       ))
-    (ucs               . #x1F8E)       ; ᾎ
+    (=ucs              . #x1F8E)       ; ᾎ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
@@ -1578,9 +1584,9 @@
     (->decomposition   #x1F0F #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
-      (ucs               . #x1F87)     ; ᾇ
+      (=ucs              . #x1F87)     ; ᾇ
       ))
-    (ucs               . #x1F8F)       ; ᾏ
+    (=ucs              . #x1F8F)       ; ᾏ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI")
@@ -1590,9 +1596,9 @@
     (->decomposition   #x1F20 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI")
-      (ucs               . #x1F98)     ; ᾘ
+      (=ucs              . #x1F98)     ; ᾘ
       ))
-    (ucs               . #x1F90)       ; ᾐ
+    (=ucs              . #x1F90)       ; ᾐ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI")
@@ -1602,9 +1608,9 @@
     (->decomposition   #x1F21 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI")
-      (ucs               . #x1F99)     ; ᾙ
+      (=ucs              . #x1F99)     ; ᾙ
       ))
-    (ucs               . #x1F91)       ; ᾑ
+    (=ucs              . #x1F91)       ; ᾑ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
@@ -1614,9 +1620,9 @@
     (->decomposition   #x1F22 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
-      (ucs               . #x1F9A)     ; ᾚ
+      (=ucs              . #x1F9A)     ; ᾚ
       ))
-    (ucs               . #x1F92)       ; ᾒ
+    (=ucs              . #x1F92)       ; ᾒ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
@@ -1626,9 +1632,9 @@
     (->decomposition   #x1F23 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
-      (ucs               . #x1F9B)     ; ᾛ
+      (=ucs              . #x1F9B)     ; ᾛ
       ))
-    (ucs               . #x1F93)       ; ᾓ
+    (=ucs              . #x1F93)       ; ᾓ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
@@ -1638,9 +1644,9 @@
     (->decomposition   #x1F24 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
-      (ucs               . #x1F9C)     ; ᾜ
+      (=ucs              . #x1F9C)     ; ᾜ
       ))
-    (ucs               . #x1F94)       ; ᾔ
+    (=ucs              . #x1F94)       ; ᾔ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
@@ -1650,9 +1656,9 @@
     (->decomposition   #x1F25 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
-      (ucs               . #x1F9D)     ; ᾝ
+      (=ucs              . #x1F9D)     ; ᾝ
       ))
-    (ucs               . #x1F95)       ; ᾕ
+    (=ucs              . #x1F95)       ; ᾕ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
@@ -1662,9 +1668,9 @@
     (->decomposition   #x1F26 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
-      (ucs               . #x1F9E)     ; ᾞ
+      (=ucs              . #x1F9E)     ; ᾞ
       ))
-    (ucs               . #x1F96)       ; ᾖ
+    (=ucs              . #x1F96)       ; ᾖ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
@@ -1674,9 +1680,9 @@
     (->decomposition   #x1F27 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
-      (ucs               . #x1F9F)     ; ᾟ
+      (=ucs              . #x1F9F)     ; ᾟ
       ))
-    (ucs               . #x1F97)       ; ᾗ
+    (=ucs              . #x1F97)       ; ᾗ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI")
@@ -1686,9 +1692,9 @@
     (->decomposition   #x1F28 #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI")
-      (ucs               . #x1F90)     ; ᾐ
+      (=ucs              . #x1F90)     ; ᾐ
       ))
-    (ucs               . #x1F98)       ; ᾘ
+    (=ucs              . #x1F98)       ; ᾘ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI")
@@ -1698,9 +1704,9 @@
     (->decomposition   #x1F29 #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI")
-      (ucs               . #x1F91)     ; ᾑ
+      (=ucs              . #x1F91)     ; ᾑ
       ))
-    (ucs               . #x1F99)       ; ᾙ
+    (=ucs              . #x1F99)       ; ᾙ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
@@ -1710,9 +1716,9 @@
     (->decomposition   #x1F2A #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
-      (ucs               . #x1F92)     ; ᾒ
+      (=ucs              . #x1F92)     ; ᾒ
       ))
-    (ucs               . #x1F9A)       ; ᾚ
+    (=ucs              . #x1F9A)       ; ᾚ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
@@ -1722,9 +1728,9 @@
     (->decomposition   #x1F2B #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
-      (ucs               . #x1F93)     ; ᾓ
+      (=ucs              . #x1F93)     ; ᾓ
       ))
-    (ucs               . #x1F9B)       ; ᾛ
+    (=ucs              . #x1F9B)       ; ᾛ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
@@ -1734,9 +1740,9 @@
     (->decomposition   #x1F2C #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
-      (ucs               . #x1F94)     ; ᾔ
+      (=ucs              . #x1F94)     ; ᾔ
       ))
-    (ucs               . #x1F9C)       ; ᾜ
+    (=ucs              . #x1F9C)       ; ᾜ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
@@ -1746,9 +1752,9 @@
     (->decomposition   #x1F2D #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
-      (ucs               . #x1F95)     ; ᾕ
+      (=ucs              . #x1F95)     ; ᾕ
       ))
-    (ucs               . #x1F9D)       ; ᾝ
+    (=ucs              . #x1F9D)       ; ᾝ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
@@ -1758,9 +1764,9 @@
     (->decomposition   #x1F2E #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
-      (ucs               . #x1F96)     ; ᾖ
+      (=ucs              . #x1F96)     ; ᾖ
       ))
-    (ucs               . #x1F9E)       ; ᾞ
+    (=ucs              . #x1F9E)       ; ᾞ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
@@ -1770,9 +1776,9 @@
     (->decomposition   #x1F2F #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
-      (ucs               . #x1F97)     ; ᾗ
+      (=ucs              . #x1F97)     ; ᾗ
       ))
-    (ucs               . #x1F9F)       ; ᾟ
+    (=ucs              . #x1F9F)       ; ᾟ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI")
@@ -1782,9 +1788,9 @@
     (->decomposition   #x1F60 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI")
-      (ucs               . #x1FA8)     ; ᾨ
+      (=ucs              . #x1FA8)     ; ᾨ
       ))
-    (ucs               . #x1FA0)       ; ᾠ
+    (=ucs              . #x1FA0)       ; ᾠ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI")
@@ -1794,9 +1800,9 @@
     (->decomposition   #x1F61 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI")
-      (ucs               . #x1FA9)     ; ᾩ
+      (=ucs              . #x1FA9)     ; ᾩ
       ))
-    (ucs               . #x1FA1)       ; ᾡ
+    (=ucs              . #x1FA1)       ; ᾡ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
@@ -1806,9 +1812,9 @@
     (->decomposition   #x1F62 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
-      (ucs               . #x1FAA)     ; ᾪ
+      (=ucs              . #x1FAA)     ; ᾪ
       ))
-    (ucs               . #x1FA2)       ; ᾢ
+    (=ucs              . #x1FA2)       ; ᾢ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
@@ -1818,9 +1824,9 @@
     (->decomposition   #x1F63 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
-      (ucs               . #x1FAB)     ; ᾫ
+      (=ucs              . #x1FAB)     ; ᾫ
       ))
-    (ucs               . #x1FA3)       ; ᾣ
+    (=ucs              . #x1FA3)       ; ᾣ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
@@ -1830,9 +1836,9 @@
     (->decomposition   #x1F64 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
-      (ucs               . #x1FAC)     ; ᾬ
+      (=ucs              . #x1FAC)     ; ᾬ
       ))
-    (ucs               . #x1FA4)       ; ᾤ
+    (=ucs              . #x1FA4)       ; ᾤ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
@@ -1842,9 +1848,9 @@
     (->decomposition   #x1F65 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
-      (ucs               . #x1FAD)     ; ᾭ
+      (=ucs              . #x1FAD)     ; ᾭ
       ))
-    (ucs               . #x1FA5)       ; ᾥ
+    (=ucs              . #x1FA5)       ; ᾥ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
@@ -1854,9 +1860,9 @@
     (->decomposition   #x1F66 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
-      (ucs               . #x1FAE)     ; ᾮ
+      (=ucs              . #x1FAE)     ; ᾮ
       ))
-    (ucs               . #x1FA6)       ; ᾦ
+    (=ucs              . #x1FA6)       ; ᾦ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
@@ -1866,9 +1872,9 @@
     (->decomposition   #x1F67 #x0345)
     (->uppercase
      ((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
-      (ucs               . #x1FAF)     ; ᾯ
+      (=ucs              . #x1FAF)     ; ᾯ
       ))
-    (ucs               . #x1FA7)       ; ᾧ
+    (=ucs              . #x1FA7)       ; ᾧ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI")
@@ -1878,9 +1884,9 @@
     (->decomposition   #x1F68 #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI")
-      (ucs               . #x1FA0)     ; ᾠ
+      (=ucs              . #x1FA0)     ; ᾠ
       ))
-    (ucs               . #x1FA8)       ; ᾨ
+    (=ucs              . #x1FA8)       ; ᾨ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI")
@@ -1890,9 +1896,9 @@
     (->decomposition   #x1F69 #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI")
-      (ucs               . #x1FA1)     ; ᾡ
+      (=ucs              . #x1FA1)     ; ᾡ
       ))
-    (ucs               . #x1FA9)       ; ᾩ
+    (=ucs              . #x1FA9)       ; ᾩ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI")
@@ -1902,9 +1908,9 @@
     (->decomposition   #x1F6A #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI")
-      (ucs               . #x1FA2)     ; ᾢ
+      (=ucs              . #x1FA2)     ; ᾢ
       ))
-    (ucs               . #x1FAA)       ; ᾪ
+    (=ucs              . #x1FAA)       ; ᾪ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI")
@@ -1914,9 +1920,9 @@
     (->decomposition   #x1F6B #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI")
-      (ucs               . #x1FA3)     ; ᾣ
+      (=ucs              . #x1FA3)     ; ᾣ
       ))
-    (ucs               . #x1FAB)       ; ᾫ
+    (=ucs              . #x1FAB)       ; ᾫ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI")
@@ -1926,9 +1932,9 @@
     (->decomposition   #x1F6C #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI")
-      (ucs               . #x1FA4)     ; ᾤ
+      (=ucs              . #x1FA4)     ; ᾤ
       ))
-    (ucs               . #x1FAC)       ; ᾬ
+    (=ucs              . #x1FAC)       ; ᾬ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI")
@@ -1938,9 +1944,9 @@
     (->decomposition   #x1F6D #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI")
-      (ucs               . #x1FA5)     ; ᾥ
+      (=ucs              . #x1FA5)     ; ᾥ
       ))
-    (ucs               . #x1FAD)       ; ᾭ
+    (=ucs              . #x1FAD)       ; ᾭ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI")
@@ -1950,9 +1956,9 @@
     (->decomposition   #x1F6E #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI")
-      (ucs               . #x1FA6)     ; ᾦ
+      (=ucs              . #x1FA6)     ; ᾦ
       ))
-    (ucs               . #x1FAE)       ; ᾮ
+    (=ucs              . #x1FAE)       ; ᾮ
     ))
 (define-char
   '((name . "GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI")
@@ -1962,9 +1968,9 @@
     (->decomposition   #x1F6F #x0345)
     (->lowercase
      ((name . "GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI")
-      (ucs               . #x1FA7)     ; ᾧ
+      (=ucs              . #x1FA7)     ; ᾧ
       ))
-    (ucs               . #x1FAF)       ; ᾯ
+    (=ucs              . #x1FAF)       ; ᾯ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH VRACHY")
@@ -1974,9 +1980,9 @@
     (->decomposition   #x03B1 #x0306)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH VRACHY")
-      (ucs               . #x1FB8)     ; Ᾰ
+      (=ucs              . #x1FB8)     ; Ᾰ
       ))
-    (ucs               . #x1FB0)       ; ᾰ
+    (=ucs              . #x1FB0)       ; ᾰ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH MACRON")
@@ -1986,9 +1992,9 @@
     (->decomposition   #x03B1 #x0304)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH MACRON")
-      (ucs               . #x1FB9)     ; Ᾱ
+      (=ucs              . #x1FB9)     ; Ᾱ
       ))
-    (ucs               . #x1FB1)       ; ᾱ
+    (=ucs              . #x1FB1)       ; ᾱ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI")
@@ -1996,7 +2002,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F70 #x0345)
-    (ucs               . #x1FB2)       ; ᾲ
+    (=ucs              . #x1FB2)       ; ᾲ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI")
@@ -2005,10 +2011,10 @@
     (mirrored          . nil)
     (->decomposition   #x03B1 #x0345)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI")
-      (ucs               . #x1FBC)     ; ᾼ
+     ((name . "GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI")
+      (=ucs              . #x1FBC)     ; ᾼ
       ))
-    (ucs               . #x1FB3)       ; ᾳ
+    (=ucs              . #x1FB3)       ; ᾳ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI")
@@ -2016,7 +2022,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03AC #x0345)
-    (ucs               . #x1FB4)       ; ᾴ
+    (=ucs              . #x1FB4)       ; ᾴ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH PERISPOMENI")
@@ -2024,7 +2030,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B1 #x0342)
-    (ucs               . #x1FB6)       ; ᾶ
+    (=ucs              . #x1FB6)       ; ᾶ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI")
@@ -2032,7 +2038,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1FB6 #x0345)
-    (ucs               . #x1FB7)       ; ᾷ
+    (=ucs              . #x1FB7)       ; ᾷ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH VRACHY")
@@ -2042,9 +2048,9 @@
     (->decomposition   #x0391 #x0306)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ALPHA WITH VRACHY")
-      (ucs               . #x1FB0)     ; ᾰ
+      (=ucs              . #x1FB0)     ; ᾰ
       ))
-    (ucs               . #x1FB8)       ; Ᾰ
+    (=ucs              . #x1FB8)       ; Ᾰ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH MACRON")
@@ -2054,9 +2060,9 @@
     (->decomposition   #x0391 #x0304)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ALPHA WITH MACRON")
-      (ucs               . #x1FB1)     ; ᾱ
+      (=ucs              . #x1FB1)     ; ᾱ
       ))
-    (ucs               . #x1FB9)       ; Ᾱ
+    (=ucs              . #x1FB9)       ; Ᾱ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH VARIA")
@@ -2066,9 +2072,9 @@
     (->decomposition   #x0391 #x0300)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ALPHA WITH VARIA")
-      (ucs               . #x1F70)     ; ὰ
+      (=ucs              . #x1F70)     ; ὰ
       ))
-    (ucs               . #x1FBA)       ; Ὰ
+    (=ucs              . #x1FBA)       ; Ὰ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH OXIA")
@@ -2078,21 +2084,21 @@
     (->decomposition   #x0386)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ALPHA WITH OXIA")
-      (ucs               . #x1F71)     ; ά
+      (=ucs              . #x1F71)     ; ά
       ))
-    (ucs               . #x1FBB)       ; Ά
+    (=ucs              . #x1FBB)       ; Ά
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI")
+  '((name . "GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0391 #x0345)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI")
-      (ucs               . #x1FB3)     ; ᾳ
+     ((name . "GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI")
+      (=ucs              . #x1FB3)     ; ᾳ
       ))
-    (ucs               . #x1FBC)       ; ᾼ
+    (=ucs              . #x1FBC)       ; ᾼ
     ))
 (define-char
   '((name              . "GREEK KORONIS")
@@ -2100,7 +2106,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0313)
-    (ucs               . #x1FBD)       ; ᾽
+    (=ucs              . #x1FBD)       ; ᾽
     ))
 (define-char
   '((name              . "GREEK PROSGEGRAMMENI")
@@ -2110,9 +2116,9 @@
     (->decomposition   #x03B9)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA")
-      (ucs               . #x0399)     ; Ι
+      (=ucs              . #x0399)     ; Ι
       ))
-    (ucs               . #x1FBE)       ; ι
+    (=ucs              . #x1FBE)       ; ι
     ))
 (define-char
   '((name              . "GREEK PSILI")
@@ -2120,7 +2126,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0313)
-    (ucs               . #x1FBF)       ; ᾿
+    (=ucs              . #x1FBF)       ; ᾿
     ))
 (define-char
   '((name              . "GREEK PERISPOMENI")
@@ -2128,7 +2134,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0342)
-    (ucs               . #x1FC0)       ; ῀
+    (=ucs              . #x1FC0)       ; ῀
     ))
 (define-char
   '((name              . "GREEK DIALYTIKA AND PERISPOMENI")
@@ -2136,7 +2142,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x00A8 #x0342)
-    (ucs               . #x1FC1)       ; ῁
+    (=ucs              . #x1FC1)       ; ῁
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI")
@@ -2144,7 +2150,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F74 #x0345)
-    (ucs               . #x1FC2)       ; ῂ
+    (=ucs              . #x1FC2)       ; ῂ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI")
@@ -2153,10 +2159,10 @@
     (mirrored          . nil)
     (->decomposition   #x03B7 #x0345)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI")
-      (ucs               . #x1FCC)     ; ῌ
+     ((name . "GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI")
+      (=ucs              . #x1FCC)     ; ῌ
       ))
-    (ucs               . #x1FC3)       ; ῃ
+    (=ucs              . #x1FC3)       ; ῃ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI")
@@ -2164,7 +2170,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03AE #x0345)
-    (ucs               . #x1FC4)       ; ῄ
+    (=ucs              . #x1FC4)       ; ῄ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH PERISPOMENI")
@@ -2172,7 +2178,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B7 #x0342)
-    (ucs               . #x1FC6)       ; ῆ
+    (=ucs              . #x1FC6)       ; ῆ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI")
@@ -2180,7 +2186,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1FC6 #x0345)
-    (ucs               . #x1FC7)       ; ῇ
+    (=ucs              . #x1FC7)       ; ῇ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH VARIA")
@@ -2190,9 +2196,9 @@
     (->decomposition   #x0395 #x0300)
     (->lowercase
      ((name              . "GREEK SMALL LETTER EPSILON WITH VARIA")
-      (ucs               . #x1F72)     ; ὲ
+      (=ucs              . #x1F72)     ; ὲ
       ))
-    (ucs               . #x1FC8)       ; Ὲ
+    (=ucs              . #x1FC8)       ; Ὲ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH OXIA")
@@ -2202,9 +2208,9 @@
     (->decomposition   #x0388)
     (->lowercase
      ((name              . "GREEK SMALL LETTER EPSILON WITH OXIA")
-      (ucs               . #x1F73)     ; έ
+      (=ucs              . #x1F73)     ; έ
       ))
-    (ucs               . #x1FC9)       ; Έ
+    (=ucs              . #x1FC9)       ; Έ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH VARIA")
@@ -2214,9 +2220,9 @@
     (->decomposition   #x0397 #x0300)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ETA WITH VARIA")
-      (ucs               . #x1F74)     ; ὴ
+      (=ucs              . #x1F74)     ; ὴ
       ))
-    (ucs               . #x1FCA)       ; Ὴ
+    (=ucs              . #x1FCA)       ; Ὴ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH OXIA")
@@ -2226,9 +2232,9 @@
     (->decomposition   #x0389)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ETA WITH OXIA")
-      (ucs               . #x1F75)     ; ή
+      (=ucs              . #x1F75)     ; ή
       ))
-    (ucs               . #x1FCB)       ; Ή
+    (=ucs              . #x1FCB)       ; Ή
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI")
@@ -2238,9 +2244,9 @@
     (->decomposition   #x0397 #x0345)
     (->lowercase
      ((name              . "GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI")
-      (ucs               . #x1FC3)     ; ῃ
+      (=ucs              . #x1FC3)     ; ῃ
       ))
-    (ucs               . #x1FCC)       ; ῌ
+    (=ucs              . #x1FCC)       ; ῌ
     ))
 (define-char
   '((name              . "GREEK PSILI AND VARIA")
@@ -2248,7 +2254,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FBF #x0300)
-    (ucs               . #x1FCD)       ; ῍
+    (=ucs              . #x1FCD)       ; ῍
     ))
 (define-char
   '((name              . "GREEK PSILI AND OXIA")
@@ -2256,7 +2262,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FBF #x0301)
-    (ucs               . #x1FCE)       ; ῎
+    (=ucs              . #x1FCE)       ; ῎
     ))
 (define-char
   '((name              . "GREEK PSILI AND PERISPOMENI")
@@ -2264,7 +2270,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FBF #x0342)
-    (ucs               . #x1FCF)       ; ῏
+    (=ucs              . #x1FCF)       ; ῏
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH VRACHY")
@@ -2274,9 +2280,9 @@
     (->decomposition   #x03B9 #x0306)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA WITH VRACHY")
-      (ucs               . #x1FD8)     ; Ῐ
+      (=ucs              . #x1FD8)     ; Ῐ
       ))
-    (ucs               . #x1FD0)       ; ῐ
+    (=ucs              . #x1FD0)       ; ῐ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH MACRON")
@@ -2286,9 +2292,9 @@
     (->decomposition   #x03B9 #x0304)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA WITH MACRON")
-      (ucs               . #x1FD9)     ; Ῑ
+      (=ucs              . #x1FD9)     ; Ῑ
       ))
-    (ucs               . #x1FD1)       ; ῑ
+    (=ucs              . #x1FD1)       ; ῑ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA")
@@ -2296,15 +2302,15 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CA #x0300)
-    (ucs               . #x1FD2)       ; ῒ
+    (=ucs              . #x1FD2)       ; ῒ
     ))
 (define-char
-  '((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA")
+  '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0390)
-    (ucs               . #x1FD3)       ; ΐ
+    (=ucs              . #x1FD3)       ; ΐ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH PERISPOMENI")
@@ -2312,7 +2318,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B9 #x0342)
-    (ucs               . #x1FD6)       ; ῖ
+    (=ucs              . #x1FD6)       ; ῖ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI")
@@ -2320,7 +2326,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CA #x0342)
-    (ucs               . #x1FD7)       ; ῗ
+    (=ucs              . #x1FD7)       ; ῗ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH VRACHY")
@@ -2330,9 +2336,9 @@
     (->decomposition   #x0399 #x0306)
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA WITH VRACHY")
-      (ucs               . #x1FD0)     ; ῐ
+      (=ucs              . #x1FD0)     ; ῐ
       ))
-    (ucs               . #x1FD8)       ; Ῐ
+    (=ucs              . #x1FD8)       ; Ῐ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH MACRON")
@@ -2342,9 +2348,9 @@
     (->decomposition   #x0399 #x0304)
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA WITH MACRON")
-      (ucs               . #x1FD1)     ; ῑ
+      (=ucs              . #x1FD1)     ; ῑ
       ))
-    (ucs               . #x1FD9)       ; Ῑ
+    (=ucs              . #x1FD9)       ; Ῑ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH VARIA")
@@ -2354,9 +2360,9 @@
     (->decomposition   #x0399 #x0300)
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA WITH VARIA")
-      (ucs               . #x1F76)     ; ὶ
+      (=ucs              . #x1F76)     ; ὶ
       ))
-    (ucs               . #x1FDA)       ; Ὶ
+    (=ucs              . #x1FDA)       ; Ὶ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH OXIA")
@@ -2366,9 +2372,9 @@
     (->decomposition   #x038A)
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA WITH OXIA")
-      (ucs               . #x1F77)     ; ί
+      (=ucs              . #x1F77)     ; ί
       ))
-    (ucs               . #x1FDB)       ; Ί
+    (=ucs              . #x1FDB)       ; Ί
     ))
 (define-char
   '((name              . "GREEK DASIA AND VARIA")
@@ -2376,7 +2382,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FFE #x0300)
-    (ucs               . #x1FDD)       ; ῝
+    (=ucs              . #x1FDD)       ; ῝
     ))
 (define-char
   '((name              . "GREEK DASIA AND OXIA")
@@ -2384,7 +2390,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FFE #x0301)
-    (ucs               . #x1FDE)       ; ῞
+    (=ucs              . #x1FDE)       ; ῞
     ))
 (define-char
   '((name              . "GREEK DASIA AND PERISPOMENI")
@@ -2392,7 +2398,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x1FFE #x0342)
-    (ucs               . #x1FDF)       ; ῟
+    (=ucs              . #x1FDF)       ; ῟
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH VRACHY")
@@ -2402,9 +2408,9 @@
     (->decomposition   #x03C5 #x0306)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH VRACHY")
-      (ucs               . #x1FE8)     ; Ῠ
+      (=ucs              . #x1FE8)     ; Ῠ
       ))
-    (ucs               . #x1FE0)       ; ῠ
+    (=ucs              . #x1FE0)       ; ῠ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH MACRON")
@@ -2414,9 +2420,9 @@
     (->decomposition   #x03C5 #x0304)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH MACRON")
-      (ucs               . #x1FE9)     ; Ῡ
+      (=ucs              . #x1FE9)     ; Ῡ
       ))
-    (ucs               . #x1FE1)       ; ῡ
+    (=ucs              . #x1FE1)       ; ῡ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA")
@@ -2424,7 +2430,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CB #x0300)
-    (ucs               . #x1FE2)       ; ῢ
+    (=ucs              . #x1FE2)       ; ῢ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA")
@@ -2432,7 +2438,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B0)
-    (ucs               . #x1FE3)       ; ΰ
+    (=ucs              . #x1FE3)       ; ΰ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER RHO WITH PSILI")
@@ -2440,7 +2446,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C1 #x0313)
-    (ucs               . #x1FE4)       ; ῤ
+    (=ucs              . #x1FE4)       ; ῤ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER RHO WITH DASIA")
@@ -2450,9 +2456,9 @@
     (->decomposition   #x03C1 #x0314)
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER RHO WITH DASIA")
-      (ucs               . #x1FEC)     ; Ῥ
+      (=ucs              . #x1FEC)     ; Ῥ
       ))
-    (ucs               . #x1FE5)       ; ῥ
+    (=ucs              . #x1FE5)       ; ῥ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH PERISPOMENI")
@@ -2460,7 +2466,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C5 #x0342)
-    (ucs               . #x1FE6)       ; ῦ
+    (=ucs              . #x1FE6)       ; ῦ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI")
@@ -2468,7 +2474,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CB #x0342)
-    (ucs               . #x1FE7)       ; ῧ
+    (=ucs              . #x1FE7)       ; ῧ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH VRACHY")
@@ -2478,9 +2484,9 @@
     (->decomposition   #x03A5 #x0306)
     (->lowercase
      ((name              . "GREEK SMALL LETTER UPSILON WITH VRACHY")
-      (ucs               . #x1FE0)     ; ῠ
+      (=ucs              . #x1FE0)     ; ῠ
       ))
-    (ucs               . #x1FE8)       ; Ῠ
+    (=ucs              . #x1FE8)       ; Ῠ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH MACRON")
@@ -2490,9 +2496,9 @@
     (->decomposition   #x03A5 #x0304)
     (->lowercase
      ((name              . "GREEK SMALL LETTER UPSILON WITH MACRON")
-      (ucs               . #x1FE1)     ; ῡ
+      (=ucs              . #x1FE1)     ; ῡ
       ))
-    (ucs               . #x1FE9)       ; Ῡ
+    (=ucs              . #x1FE9)       ; Ῡ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH VARIA")
@@ -2502,9 +2508,9 @@
     (->decomposition   #x03A5 #x0300)
     (->lowercase
      ((name              . "GREEK SMALL LETTER UPSILON WITH VARIA")
-      (ucs               . #x1F7A)     ; ὺ
+      (=ucs              . #x1F7A)     ; ὺ
       ))
-    (ucs               . #x1FEA)       ; Ὺ
+    (=ucs              . #x1FEA)       ; Ὺ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH OXIA")
@@ -2514,9 +2520,9 @@
     (->decomposition   #x038E)
     (->lowercase
      ((name              . "GREEK SMALL LETTER UPSILON WITH OXIA")
-      (ucs               . #x1F7B)     ; ύ
+      (=ucs              . #x1F7B)     ; ύ
       ))
-    (ucs               . #x1FEB)       ; Ύ
+    (=ucs              . #x1FEB)       ; Ύ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER RHO WITH DASIA")
@@ -2526,9 +2532,9 @@
     (->decomposition   #x03A1 #x0314)
     (->lowercase
      ((name              . "GREEK SMALL LETTER RHO WITH DASIA")
-      (ucs               . #x1FE5)     ; ῥ
+      (=ucs              . #x1FE5)     ; ῥ
       ))
-    (ucs               . #x1FEC)       ; Ῥ
+    (=ucs              . #x1FEC)       ; Ῥ
     ))
 (define-char
   '((name              . "GREEK DIALYTIKA AND VARIA")
@@ -2536,7 +2542,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x00A8 #x0300)
-    (ucs               . #x1FED)       ; ῭
+    (=ucs              . #x1FED)       ; ῭
     ))
 (define-char
   '((name              . "GREEK DIALYTIKA AND OXIA")
@@ -2544,7 +2550,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x0385)
-    (ucs               . #x1FEE)       ; ΅
+    (=ucs              . #x1FEE)       ; ΅
     ))
 (define-char
   '((name              . "GREEK VARIA")
@@ -2552,7 +2558,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x0060)
-    (ucs               . #x1FEF)       ; `
+    (=ucs              . #x1FEF)       ; `
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI")
@@ -2560,7 +2566,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1F7C #x0345)
-    (ucs               . #x1FF2)       ; ῲ
+    (=ucs              . #x1FF2)       ; ῲ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI")
@@ -2569,10 +2575,10 @@
     (mirrored          . nil)
     (->decomposition   #x03C9 #x0345)
     (->uppercase
-     ((name              . "GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI")
-      (ucs               . #x1FFC)     ; ῼ
+     ((name . "GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI")
+      (=ucs              . #x1FFC)     ; ῼ
       ))
-    (ucs               . #x1FF3)       ; ῳ
+    (=ucs              . #x1FF3)       ; ῳ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI")
@@ -2580,7 +2586,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CE #x0345)
-    (ucs               . #x1FF4)       ; ῴ
+    (=ucs              . #x1FF4)       ; ῴ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH PERISPOMENI")
@@ -2588,7 +2594,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C9 #x0342)
-    (ucs               . #x1FF6)       ; ῶ
+    (=ucs              . #x1FF6)       ; ῶ
     ))
 (define-char
   '((name . "GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI")
@@ -2596,7 +2602,7 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x1FF6 #x0345)
-    (ucs               . #x1FF7)       ; ῷ
+    (=ucs              . #x1FF7)       ; ῷ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH VARIA")
@@ -2606,9 +2612,9 @@
     (->decomposition   #x039F #x0300)
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMICRON WITH VARIA")
-      (ucs               . #x1F78)     ; ὸ
+      (=ucs              . #x1F78)     ; ὸ
       ))
-    (ucs               . #x1FF8)       ; Ὸ
+    (=ucs              . #x1FF8)       ; Ὸ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH OXIA")
@@ -2618,9 +2624,9 @@
     (->decomposition   #x038C)
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMICRON WITH OXIA")
-      (ucs               . #x1F79)     ; ό
+      (=ucs              . #x1F79)     ; ό
       ))
-    (ucs               . #x1FF9)       ; Ό
+    (=ucs              . #x1FF9)       ; Ό
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH VARIA")
@@ -2630,9 +2636,9 @@
     (->decomposition   #x03A9 #x0300)
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMEGA WITH VARIA")
-      (ucs               . #x1F7C)     ; ὼ
+      (=ucs              . #x1F7C)     ; ὼ
       ))
-    (ucs               . #x1FFA)       ; Ὼ
+    (=ucs              . #x1FFA)       ; Ὼ
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH OXIA")
@@ -2642,21 +2648,21 @@
     (->decomposition   #x038F)
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMEGA WITH OXIA")
-      (ucs               . #x1F7D)     ; ώ
+      (=ucs              . #x1F7D)     ; ώ
       ))
-    (ucs               . #x1FFB)       ; Ώ
+    (=ucs              . #x1FFB)       ; Ώ
     ))
 (define-char
-  '((name              . "GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI")
+  '((name . "GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI")
     (general-category  letter titlecase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A9 #x0345)
     (->lowercase
-     ((name              . "GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI")
-      (ucs               . #x1FF3)     ; ῳ
+     ((name . "GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI")
+      (=ucs              . #x1FF3)     ; ῳ
       ))
-    (ucs               . #x1FFC)       ; ῼ
+    (=ucs              . #x1FFC)       ; ῼ
     ))
 (define-char
   '((name              . "GREEK OXIA")
@@ -2664,7 +2670,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x00B4)
-    (ucs               . #x1FFD)       ; ´
+    (=ucs              . #x1FFD)       ; ´
     ))
 (define-char
   '((name              . "GREEK DASIA")
@@ -2672,5 +2678,5 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0314)
-    (ucs               . #x1FFE)       ; ῾
+    (=ucs              . #x1FFE)       ; ῾
     ))