(FULLWIDTH GREEK SMALL LETTER BETA): Fix typo.

diff --git a/lisp/utf-2000/u00370-Greek.el b/lisp/utf-2000/u00370-Greek.el
index 4a18a8f..b840dba 100644 (file)
--- a/lisp/utf-2000/u00370-Greek.el
+++ b/lisp/utf-2000/u00370-Greek.el
@@ -3,9 +3,9 @@
     (ucs               . #x0374)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
-    (->decomposition   #x02B9)
     (mirrored          . nil)
     (iso-10646-comment . "Dexia keraia")
+    (->decomposition   #x02B9)
     ))
 (define-char
   '((name              . "GREEK LOWER NUMERAL SIGN")
@@ -20,25 +20,25 @@
     (ucs               . #x037A)
     (general-category  letter modifier) ; Informative Category
     (bidi-category     . "L")
-    (->decomposition   compat #x0020 #x0345)
     (mirrored          . nil)
+    (->decomposition   compat #x0020 #x0345)
     ))
 (define-char
   '((name              . "GREEK QUESTION MARK")
     (ucs               . #x037E)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
-    (->decomposition   #x003B)
     (mirrored          . nil)
     (iso-10646-comment . "Erotimatiko")
+    (->decomposition   #x003B)
     ))
 (define-char
   '((name              . "GREEK TONOS")
     (ucs               . #x0384)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
-    (->decomposition   compat #x0020 #x0301)
     (mirrored          . nil)
+    (->decomposition   compat #x0020 #x0301)
     (greek-iso8859-7   #x34)   ; \e-F´\e-A
     ))
 (define-char
@@ -46,8 +46,8 @@
     (->ucs             . #x0384)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
-    (->decomposition   wide #x0384)
     (mirrored          . nil)
+    (->decomposition   wide #x0384)
     (japanese-jisx0212 #x22 #x38)      ; \e$(D"8\e(B
     ))
 (define-char
@@ -55,8 +55,8 @@
     (ucs               . #x0385)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
-    (->decomposition   #x00A8 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x00A8 #x0301)
     (greek-iso8859-7   #x35)   ; \e-Fµ\e-A
     ))
 (define-char
@@ -64,8 +64,8 @@
     (->ucs             . #x0385)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
-    (->decomposition   wide #x0385)
     (mirrored          . nil)
+    (->decomposition   wide #x0385)
     (japanese-jisx0212 #x22 #x39)      ; \e$(D"9\e(B
     ))
 (define-char
@@ -73,8 +73,8 @@
     (ucs               . #x0386)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x0391 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x0391 #x0301)
     (->lowercase       #x03AC)
     (greek-iso8859-7   #x36)   ; \e-F¶\e-A
     ))
@@ -83,10 +83,10 @@
     (->ucs             . #x0386)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0386)
     (mirrored          . nil)
+    (->decomposition   wide #x0386)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER ALPHA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK SMALL LETTER ALPHA WITH TONOS")))
     (japanese-jisx0212 #x26 #x61)      ; \e$(D&a\e(B
     ))
 (define-char
@@ -94,28 +94,28 @@
     (ucs               . #x0387)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
-    (->decomposition   #x00B7)
     (mirrored          . nil)
+    (->decomposition   #x00B7)
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
     (ucs               . #x0388)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x0395 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x0395 #x0301)
     (->lowercase       #x03AD)
     (greek-iso8859-7   #x38)   ; \e-F¸\e-A
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER EPSILON WITH TONOS")
+  '((name . "FULLWIDTH GREEK CAPITAL LETTER EPSILON WITH TONOS")
     (->ucs             . #x0388)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0388)
     (mirrored          . nil)
+    (->decomposition   wide #x0388)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER EPSILON WITH TONOS")))
+     ((name . "FULLWIDTH GREEK SMALL LETTER EPSILON WITH TONOS")))
     (japanese-jisx0212 #x26 #x62)      ; \e$(D&b\e(B
     ))
 (define-char
@@ -123,8 +123,8 @@
     (ucs               . #x0389)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x0397 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x0397 #x0301)
     (->lowercase       #x03AE)
     (greek-iso8859-7   #x39)   ; \e-F¹\e-A
     ))
@@ -133,10 +133,10 @@
     (->ucs             . #x0389)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0389)
     (mirrored          . nil)
+    (->decomposition   wide #x0389)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER ETA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK SMALL LETTER ETA WITH TONOS")))
     (japanese-jisx0212 #x26 #x63)      ; \e$(D&c\e(B
     ))
 (define-char
@@ -144,8 +144,8 @@
     (ucs               . #x038A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x0399 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x0399 #x0301)
     (->lowercase       #x03AF)
     (greek-iso8859-7   #x3A)   ; \e-Fº\e-A
     ))
@@ -154,10 +154,10 @@
     (->ucs             . #x038A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x038A)
     (mirrored          . nil)
+    (->decomposition   wide #x038A)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER IOTA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH TONOS")))
     (japanese-jisx0212 #x26 #x64)      ; \e$(D&d\e(B
     ))
 (define-char
@@ -165,20 +165,20 @@
     (ucs               . #x038C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x039F #x0301)
     (mirrored          . nil)
+    (->decomposition   #x039F #x0301)
     (->lowercase       #x03CC)
     (greek-iso8859-7   #x3C)   ; \e-F¼\e-A
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER OMICRON WITH TONOS")
+  '((name . "FULLWIDTH GREEK CAPITAL LETTER OMICRON WITH TONOS")
     (->ucs             . #x038C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x038C)
     (mirrored          . nil)
+    (->decomposition   wide #x038C)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER OMICRON WITH TONOS")))
+     ((name . "FULLWIDTH GREEK SMALL LETTER OMICRON WITH TONOS")))
     (japanese-jisx0212 #x26 #x67)      ; \e$(D&g\e(B
     ))
 (define-char
@@ -186,20 +186,20 @@
     (ucs               . #x038E)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03A5 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03A5 #x0301)
     (->lowercase       #x03CD)
     (greek-iso8859-7   #x3E)   ; \e-F¾\e-A
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH TONOS")
+  '((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH TONOS")
     (->ucs             . #x038E)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x038E)
     (mirrored          . nil)
+    (->decomposition   wide #x038E)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH TONOS")))
+     ((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH TONOS")))
     (japanese-jisx0212 #x26 #x69)      ; \e$(D&i\e(B
     ))
 (define-char
@@ -207,8 +207,8 @@
     (ucs               . #x038F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03A9 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03A9 #x0301)
     (->lowercase       #x03CE)
     (greek-iso8859-7   #x3F)   ; \e-F¿\e-A
     ))
@@ -217,28 +217,28 @@
     (->ucs             . #x038F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x038F)
     (mirrored          . nil)
+    (->decomposition   wide #x038F)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER OMEGA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK SMALL LETTER OMEGA WITH TONOS")))
     (japanese-jisx0212 #x26 #x6C)      ; \e$(D&l\e(B
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
-    (ucs  . #x0390)
+    (ucs               . #x0390)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03CA #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03CA #x0301)
     (greek-iso8859-7   #x40)   ; \e-FÀ\e-A
     ))
 (define-char
   '((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
-    (->ucs  . #x0390)
+    (->ucs             . #x0390)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0390)
     (mirrored          . nil)
+    (->decomposition   wide #x0390)
     (japanese-jisx0212 #x26 #x76)      ; \e$(D&v\e(B
     ))
 (define-char
@@ -255,13 +255,13 @@
     (->ucs             . #x0391)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0391)
     (mirrored          . nil)
+    (->decomposition   wide #x0391)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER ALPHA")))
-    (japanese-jisx0208-1978    #x26 #x21)      ; \e$B&!\e(B
-    (chinese-gb2312            #x26 #x21)      ; \e$A&!\e(B
-    (japanese-jisx0208         #x26 #x21)      ; \e$B&!\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER ALPHA")))
+    (japanese-jisx0208-1978    #x26 #x21)      ; \e$(B&!\e(B
+    (chinese-gb2312            #x26 #x21)      ; \e$(A&!\e(B
+    (japanese-jisx0208         #x26 #x21)      ; \e$(B&!\e(B
     (korean-ksc5601            #x25 #x41)      ; \e$(C%A\e(B
     (chinese-cns11643-1                #x24 #x75)      ; \e$(G$u\e(B
     ))
@@ -279,13 +279,13 @@
     (->ucs             . #x0392)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0392)
     (mirrored          . nil)
+    (->decomposition   wide #x0392)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER BETA")))
-    (japanese-jisx0208-1978    #x26 #x22)      ; \e$B&"\e(B
-    (chinese-gb2312            #x26 #x22)      ; \e$A&"\e(B
-    (japanese-jisx0208         #x26 #x22)      ; \e$B&"\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER BETA")))
+    (japanese-jisx0208-1978    #x26 #x22)      ; \e$(B&"\e(B
+    (chinese-gb2312            #x26 #x22)      ; \e$(A&"\e(B
+    (japanese-jisx0208         #x26 #x22)      ; \e$(B&"\e(B
     (korean-ksc5601            #x25 #x42)      ; \e$(C%B\e(B
     (chinese-cns11643-1                #x24 #x76)      ; \e$(G$v\e(B
     ))
@@ -303,13 +303,13 @@
     (->ucs             . #x0393)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0393)
     (mirrored          . nil)
+    (->decomposition   wide #x0393)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER GAMMA")))
-    (japanese-jisx0208-1978    #x26 #x23)      ; \e$B&#\e(B
-    (chinese-gb2312            #x26 #x23)      ; \e$A&#\e(B
-    (japanese-jisx0208         #x26 #x23)      ; \e$B&#\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER GAMMA")))
+    (japanese-jisx0208-1978    #x26 #x23)      ; \e$(B&#\e(B
+    (chinese-gb2312            #x26 #x23)      ; \e$(A&#\e(B
+    (japanese-jisx0208         #x26 #x23)      ; \e$(B&#\e(B
     (korean-ksc5601            #x25 #x43)      ; \e$(C%C\e(B
     (chinese-cns11643-1                #x24 #x77)      ; \e$(G$w\e(B
     ))
@@ -327,13 +327,13 @@
     (->ucs             . #x0394)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0394)
     (mirrored          . nil)
+    (->decomposition   wide #x0394)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER DELTA")))
-    (japanese-jisx0208-1978    #x26 #x24)      ; \e$B&$\e(B
-    (chinese-gb2312            #x26 #x24)      ; \e$A&$\e(B
-    (japanese-jisx0208         #x26 #x24)      ; \e$B&$\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER DELTA")))
+    (japanese-jisx0208-1978    #x26 #x24)      ; \e$(B&$\e(B
+    (chinese-gb2312            #x26 #x24)      ; \e$(A&$\e(B
+    (japanese-jisx0208         #x26 #x24)      ; \e$(B&$\e(B
     (korean-ksc5601            #x25 #x44)      ; \e$(C%D\e(B
     (chinese-cns11643-1                #x24 #x78)      ; \e$(G$x\e(B
     ))
@@ -351,13 +351,13 @@
     (->ucs             . #x0395)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0395)
     (mirrored          . nil)
+    (->decomposition   wide #x0395)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER EPSILON")))
-    (japanese-jisx0208-1978    #x26 #x25)      ; \e$B&%\e(B
-    (chinese-gb2312            #x26 #x25)      ; \e$A&%\e(B
-    (japanese-jisx0208         #x26 #x25)      ; \e$B&%\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER EPSILON")))
+    (japanese-jisx0208-1978    #x26 #x25)      ; \e$(B&%\e(B
+    (chinese-gb2312            #x26 #x25)      ; \e$(A&%\e(B
+    (japanese-jisx0208         #x26 #x25)      ; \e$(B&%\e(B
     (korean-ksc5601            #x25 #x45)      ; \e$(C%E\e(B
     (chinese-cns11643-1                #x24 #x79)      ; \e$(G$y\e(B
     ))
@@ -375,13 +375,13 @@
     (->ucs             . #x0396)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0396)
     (mirrored          . nil)
+    (->decomposition   wide #x0396)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER ZETA")))
-    (japanese-jisx0208-1978    #x26 #x26)      ; \e$B&&\e(B
-    (chinese-gb2312            #x26 #x26)      ; \e$A&&\e(B
-    (japanese-jisx0208         #x26 #x26)      ; \e$B&&\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER ZETA")))
+    (japanese-jisx0208-1978    #x26 #x26)      ; \e$(B&&\e(B
+    (chinese-gb2312            #x26 #x26)      ; \e$(A&&\e(B
+    (japanese-jisx0208         #x26 #x26)      ; \e$(B&&\e(B
     (korean-ksc5601            #x25 #x46)      ; \e$(C%F\e(B
     (chinese-cns11643-1                #x24 #x7A)      ; \e$(G$z\e(B
     ))
@@ -399,13 +399,13 @@
     (->ucs             . #x0397)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0397)
     (mirrored          . nil)
+    (->decomposition   wide #x0397)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER ETA")))
-    (japanese-jisx0208-1978    #x26 #x27)      ; \e$B&'\e(B
-    (chinese-gb2312            #x26 #x27)      ; \e$A&'\e(B
-    (japanese-jisx0208         #x26 #x27)      ; \e$B&'\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER ETA")))
+    (japanese-jisx0208-1978    #x26 #x27)      ; \e$(B&'\e(B
+    (chinese-gb2312            #x26 #x27)      ; \e$(A&'\e(B
+    (japanese-jisx0208         #x26 #x27)      ; \e$(B&'\e(B
     (korean-ksc5601            #x25 #x47)      ; \e$(C%G\e(B
     (chinese-cns11643-1                #x24 #x7B)      ; \e$(G${\e(B
     ))
@@ -423,13 +423,13 @@
     (->ucs             . #x0398)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0398)
     (mirrored          . nil)
+    (->decomposition   wide #x0398)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER THETA")))
-    (japanese-jisx0208-1978    #x26 #x28)      ; \e$B&(\e(B
-    (chinese-gb2312            #x26 #x28)      ; \e$A&(\e(B
-    (japanese-jisx0208         #x26 #x28)      ; \e$B&(\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER THETA")))
+    (japanese-jisx0208-1978    #x26 #x28)      ; \e$(B&(\e(B
+    (chinese-gb2312            #x26 #x28)      ; \e$(A&(\e(B
+    (japanese-jisx0208         #x26 #x28)      ; \e$(B&(\e(B
     (korean-ksc5601            #x25 #x48)      ; \e$(C%H\e(B
     (chinese-cns11643-1                #x24 #x7C)      ; \e$(G$|\e(B
     ))
@@ -447,13 +447,13 @@
     (->ucs             . #x0399)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x0399)
     (mirrored          . nil)
+    (->decomposition   wide #x0399)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER IOTA")))
-    (japanese-jisx0208-1978    #x26 #x29)      ; \e$B&)\e(B
-    (chinese-gb2312            #x26 #x29)      ; \e$A&)\e(B
-    (japanese-jisx0208         #x26 #x29)      ; \e$B&)\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER IOTA")))
+    (japanese-jisx0208-1978    #x26 #x29)      ; \e$(B&)\e(B
+    (chinese-gb2312            #x26 #x29)      ; \e$(A&)\e(B
+    (japanese-jisx0208         #x26 #x29)      ; \e$(B&)\e(B
     (korean-ksc5601            #x25 #x49)      ; \e$(C%I\e(B
     (chinese-cns11643-1                #x24 #x7D)      ; \e$(G$}\e(B
     ))
@@ -471,13 +471,13 @@
     (->ucs             . #x039A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x039A)
     (mirrored          . nil)
+    (->decomposition   wide #x039A)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER KAPPA")))
-    (japanese-jisx0208-1978    #x26 #x2A)      ; \e$B&*\e(B
-    (chinese-gb2312            #x26 #x2A)      ; \e$A&*\e(B
-    (japanese-jisx0208         #x26 #x2A)      ; \e$B&*\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER KAPPA")))
+    (japanese-jisx0208-1978    #x26 #x2A)      ; \e$(B&*\e(B
+    (chinese-gb2312            #x26 #x2A)      ; \e$(A&*\e(B
+    (japanese-jisx0208         #x26 #x2A)      ; \e$(B&*\e(B
     (korean-ksc5601            #x25 #x4A)      ; \e$(C%J\e(B
     (chinese-cns11643-1                #x24 #x7E)      ; \e$(G$~\e(B
     ))
@@ -495,13 +495,13 @@
     (->ucs             . #x039B)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x039B)
     (mirrored          . nil)
+    (->decomposition   wide #x039B)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER LAMDA")))
-    (japanese-jisx0208-1978    #x26 #x2B)      ; \e$B&+\e(B
-    (chinese-gb2312            #x26 #x2B)      ; \e$A&+\e(B
-    (japanese-jisx0208         #x26 #x2B)      ; \e$B&+\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER LAMDA")))
+    (japanese-jisx0208-1978    #x26 #x2B)      ; \e$(B&+\e(B
+    (chinese-gb2312            #x26 #x2B)      ; \e$(A&+\e(B
+    (japanese-jisx0208         #x26 #x2B)      ; \e$(B&+\e(B
     (korean-ksc5601            #x25 #x4B)      ; \e$(C%K\e(B
     (chinese-cns11643-1                #x25 #x21)      ; \e$(G%!\e(B
     ))
@@ -519,13 +519,13 @@
     (->ucs             . #x039C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x039C)
     (mirrored          . nil)
+    (->decomposition   wide #x039C)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER MU")))
-    (japanese-jisx0208-1978    #x26 #x2C)      ; \e$B&,\e(B
-    (chinese-gb2312            #x26 #x2C)      ; \e$A&,\e(B
-    (japanese-jisx0208         #x26 #x2C)      ; \e$B&,\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER MU")))
+    (japanese-jisx0208-1978    #x26 #x2C)      ; \e$(B&,\e(B
+    (chinese-gb2312            #x26 #x2C)      ; \e$(A&,\e(B
+    (japanese-jisx0208         #x26 #x2C)      ; \e$(B&,\e(B
     (korean-ksc5601            #x25 #x4C)      ; \e$(C%L\e(B
     (chinese-cns11643-1                #x25 #x22)      ; \e$(G%"\e(B
     ))
@@ -543,13 +543,13 @@
     (->ucs             . #x039D)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x039D)
     (mirrored          . nil)
+    (->decomposition   wide #x039D)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER NU")))
-    (japanese-jisx0208-1978    #x26 #x2D)      ; \e$B&-\e(B
-    (chinese-gb2312            #x26 #x2D)      ; \e$A&-\e(B
-    (japanese-jisx0208         #x26 #x2D)      ; \e$B&-\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER NU")))
+    (japanese-jisx0208-1978    #x26 #x2D)      ; \e$(B&-\e(B
+    (chinese-gb2312            #x26 #x2D)      ; \e$(A&-\e(B
+    (japanese-jisx0208         #x26 #x2D)      ; \e$(B&-\e(B
     (korean-ksc5601            #x25 #x4D)      ; \e$(C%M\e(B
     (chinese-cns11643-1                #x25 #x23)      ; \e$(G%#\e(B
     ))
@@ -567,13 +567,13 @@
     (->ucs             . #x039E)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x039E)
     (mirrored          . nil)
+    (->decomposition   wide #x039E)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER XI")))
-    (japanese-jisx0208-1978    #x26 #x2E)      ; \e$B&.\e(B
-    (chinese-gb2312            #x26 #x2E)      ; \e$A&.\e(B
-    (japanese-jisx0208         #x26 #x2E)      ; \e$B&.\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER XI")))
+    (japanese-jisx0208-1978    #x26 #x2E)      ; \e$(B&.\e(B
+    (chinese-gb2312            #x26 #x2E)      ; \e$(A&.\e(B
+    (japanese-jisx0208         #x26 #x2E)      ; \e$(B&.\e(B
     (korean-ksc5601            #x25 #x4E)      ; \e$(C%N\e(B
     (chinese-cns11643-1                #x25 #x24)      ; \e$(G%$\e(B
     ))
@@ -591,13 +591,13 @@
     (->ucs             . #x039F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x039F)
     (mirrored          . nil)
+    (->decomposition   wide #x039F)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER OMICRON")))
-    (japanese-jisx0208-1978    #x26 #x2F)      ; \e$B&/\e(B
-    (chinese-gb2312            #x26 #x2F)      ; \e$A&/\e(B
-    (japanese-jisx0208         #x26 #x2F)      ; \e$B&/\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER OMICRON")))
+    (japanese-jisx0208-1978    #x26 #x2F)      ; \e$(B&/\e(B
+    (chinese-gb2312            #x26 #x2F)      ; \e$(A&/\e(B
+    (japanese-jisx0208         #x26 #x2F)      ; \e$(B&/\e(B
     (korean-ksc5601            #x25 #x4F)      ; \e$(C%O\e(B
     (chinese-cns11643-1                #x25 #x25)      ; \e$(G%%\e(B
     ))
@@ -615,13 +615,13 @@
     (->ucs             . #x03A0)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03A0)
     (mirrored          . nil)
+    (->decomposition   wide #x03A0)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER PI")))
-    (japanese-jisx0208-1978    #x26 #x30)      ; \e$B&0\e(B
-    (chinese-gb2312            #x26 #x30)      ; \e$A&0\e(B
-    (japanese-jisx0208         #x26 #x30)      ; \e$B&0\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER PI")))
+    (japanese-jisx0208-1978    #x26 #x30)      ; \e$(B&0\e(B
+    (chinese-gb2312            #x26 #x30)      ; \e$(A&0\e(B
+    (japanese-jisx0208         #x26 #x30)      ; \e$(B&0\e(B
     (korean-ksc5601            #x25 #x50)      ; \e$(C%P\e(B
     (chinese-cns11643-1                #x25 #x26)      ; \e$(G%&\e(B
     ))
@@ -639,13 +639,13 @@
     (->ucs             . #x03A1)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03A1)
     (mirrored          . nil)
+    (->decomposition   wide #x03A1)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER RHO")))
-    (japanese-jisx0208-1978    #x26 #x31)      ; \e$B&1\e(B
-    (chinese-gb2312            #x26 #x31)      ; \e$A&1\e(B
-    (japanese-jisx0208         #x26 #x31)      ; \e$B&1\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER RHO")))
+    (japanese-jisx0208-1978    #x26 #x31)      ; \e$(B&1\e(B
+    (chinese-gb2312            #x26 #x31)      ; \e$(A&1\e(B
+    (japanese-jisx0208         #x26 #x31)      ; \e$(B&1\e(B
     (korean-ksc5601            #x25 #x51)      ; \e$(C%Q\e(B
     (chinese-cns11643-1                #x25 #x27)      ; \e$(G%'\e(B
     ))
@@ -663,13 +663,13 @@
     (->ucs             . #x03A3)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03A3)
     (mirrored          . nil)
+    (->decomposition   wide #x03A3)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER SIGMA")))
-    (japanese-jisx0208-1978    #x26 #x32)      ; \e$B&2\e(B
-    (chinese-gb2312            #x26 #x32)      ; \e$A&2\e(B
-    (japanese-jisx0208         #x26 #x32)      ; \e$B&2\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER SIGMA")))
+    (japanese-jisx0208-1978    #x26 #x32)      ; \e$(B&2\e(B
+    (chinese-gb2312            #x26 #x32)      ; \e$(A&2\e(B
+    (japanese-jisx0208         #x26 #x32)      ; \e$(B&2\e(B
     (korean-ksc5601            #x25 #x52)      ; \e$(C%R\e(B
     (chinese-cns11643-1                #x25 #x28)      ; \e$(G%(\e(B
     ))
@@ -687,13 +687,13 @@
     (->ucs             . #x03A4)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03A4)
     (mirrored          . nil)
+    (->decomposition   wide #x03A4)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER TAU")))
-    (japanese-jisx0208-1978    #x26 #x33)      ; \e$B&3\e(B
-    (chinese-gb2312            #x26 #x33)      ; \e$A&3\e(B
-    (japanese-jisx0208         #x26 #x33)      ; \e$B&3\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER TAU")))
+    (japanese-jisx0208-1978    #x26 #x33)      ; \e$(B&3\e(B
+    (chinese-gb2312            #x26 #x33)      ; \e$(A&3\e(B
+    (japanese-jisx0208         #x26 #x33)      ; \e$(B&3\e(B
     (korean-ksc5601            #x25 #x53)      ; \e$(C%S\e(B
     (chinese-cns11643-1                #x25 #x29)      ; \e$(G%)\e(B
     ))
@@ -711,13 +711,13 @@
     (->ucs             . #x03A5)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03A5)
     (mirrored          . nil)
+    (->decomposition   wide #x03A5)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER UPSILON")))
-    (japanese-jisx0208-1978    #x26 #x34)      ; \e$B&4\e(B
-    (chinese-gb2312            #x26 #x34)      ; \e$A&4\e(B
-    (japanese-jisx0208         #x26 #x34)      ; \e$B&4\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER UPSILON")))
+    (japanese-jisx0208-1978    #x26 #x34)      ; \e$(B&4\e(B
+    (chinese-gb2312            #x26 #x34)      ; \e$(A&4\e(B
+    (japanese-jisx0208         #x26 #x34)      ; \e$(B&4\e(B
     (korean-ksc5601            #x25 #x54)      ; \e$(C%T\e(B
     (chinese-cns11643-1                #x25 #x2A)      ; \e$(G%*\e(B
     ))
@@ -735,13 +735,13 @@
     (->ucs             . #x03A6)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03A6)
     (mirrored          . nil)
+    (->decomposition   wide #x03A6)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER PHI")))
-    (japanese-jisx0208-1978    #x26 #x35)      ; \e$B&5\e(B
-    (chinese-gb2312            #x26 #x35)      ; \e$A&5\e(B
-    (japanese-jisx0208         #x26 #x35)      ; \e$B&5\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER PHI")))
+    (japanese-jisx0208-1978    #x26 #x35)      ; \e$(B&5\e(B
+    (chinese-gb2312            #x26 #x35)      ; \e$(A&5\e(B
+    (japanese-jisx0208         #x26 #x35)      ; \e$(B&5\e(B
     (korean-ksc5601            #x25 #x55)      ; \e$(C%U\e(B
     (chinese-cns11643-1                #x25 #x2B)      ; \e$(G%+\e(B
     ))
@@ -759,13 +759,13 @@
     (->ucs             . #x03A7)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03A7)
     (mirrored          . nil)
+    (->decomposition   wide #x03A7)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER CHI")))
-    (japanese-jisx0208-1978    #x26 #x36)      ; \e$B&6\e(B
-    (chinese-gb2312            #x26 #x36)      ; \e$A&6\e(B
-    (japanese-jisx0208         #x26 #x36)      ; \e$B&6\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER CHI")))
+    (japanese-jisx0208-1978    #x26 #x36)      ; \e$(B&6\e(B
+    (chinese-gb2312            #x26 #x36)      ; \e$(A&6\e(B
+    (japanese-jisx0208         #x26 #x36)      ; \e$(B&6\e(B
     (korean-ksc5601            #x25 #x56)      ; \e$(C%V\e(B
     (chinese-cns11643-1                #x25 #x2C)      ; \e$(G%,\e(B
     ))
@@ -783,13 +783,13 @@
     (->ucs             . #x03A8)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03A8)
     (mirrored          . nil)
+    (->decomposition   wide #x03A8)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER PSI")))
-    (japanese-jisx0208-1978    #x26 #x37)      ; \e$B&7\e(B
-    (chinese-gb2312            #x26 #x37)      ; \e$A&7\e(B
-    (japanese-jisx0208         #x26 #x37)      ; \e$B&7\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER PSI")))
+    (japanese-jisx0208-1978    #x26 #x37)      ; \e$(B&7\e(B
+    (chinese-gb2312            #x26 #x37)      ; \e$(A&7\e(B
+    (japanese-jisx0208         #x26 #x37)      ; \e$(B&7\e(B
     (korean-ksc5601            #x25 #x57)      ; \e$(C%W\e(B
     (chinese-cns11643-1                #x25 #x2D)      ; \e$(G%-\e(B
     ))
@@ -807,13 +807,13 @@
     (->ucs             . #x03A9)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03A9)
     (mirrored          . nil)
+    (->decomposition   wide #x03A9)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER OMEGA")))
-    (japanese-jisx0208-1978    #x26 #x38)      ; \e$B&8\e(B
-    (chinese-gb2312            #x26 #x38)      ; \e$A&8\e(B
-    (japanese-jisx0208         #x26 #x38)      ; \e$B&8\e(B
+     ((name . "FULLWIDTH GREEK SMALL LETTER OMEGA")))
+    (japanese-jisx0208-1978    #x26 #x38)      ; \e$(B&8\e(B
+    (chinese-gb2312            #x26 #x38)      ; \e$(A&8\e(B
+    (japanese-jisx0208         #x26 #x38)      ; \e$(B&8\e(B
     (korean-ksc5601            #x25 #x58)      ; \e$(C%X\e(B
     (chinese-cns11643-1                #x25 #x2E)      ; \e$(G%.\e(B
     ))
@@ -822,20 +822,20 @@
     (ucs               . #x03AA)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x0399 #x0308)
     (mirrored          . nil)
+    (->decomposition   #x0399 #x0308)
     (->lowercase       #x03CA)
     (greek-iso8859-7   #x5A)   ; \e-FÚ\e-A
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
+  '((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
     (->ucs             . #x03AA)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03AA)
     (mirrored          . nil)
+    (->decomposition   wide #x03AA)
     (->lowercase
-     ((name            . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA")))
+     ((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA")))
     (japanese-jisx0212 #x26 #x65)      ; \e$(D&e\e(B
     ))
 (define-char
@@ -843,20 +843,20 @@
     (ucs               . #x03AB)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03A5 #x0308)
     (mirrored          . nil)
+    (->decomposition   #x03A5 #x0308)
     (->lowercase       #x03CB)
     (greek-iso8859-7   #x5B)   ; \e-FÛ\e-A
     ))
 (define-char
-  '((name      . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
+  '((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
     (->ucs             . #x03AB)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03AB)
     (mirrored          . nil)
+    (->decomposition   wide #x03AB)
     (->lowercase
-     ((name    . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA")))
+     ((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA")))
     (japanese-jisx0212 #x26 #x6A)      ; \e$(D&j\e(B
     ))
 (define-char
@@ -864,8 +864,8 @@
     (ucs               . #x03AC)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03B1 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03B1 #x0301)
     (->uppercase       #x0386)
     (->titlecase       #x0386)
     (greek-iso8859-7   #x5C)   ; \e-FÜ\e-A
@@ -875,12 +875,12 @@
     (->ucs             . #x03AC)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03AC)
     (mirrored          . nil)
+    (->decomposition   wide #x03AC)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER ALPHA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER ALPHA WITH TONOS")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER ALPHA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER ALPHA WITH TONOS")))
     (japanese-jisx0212 #x26 #x71)      ; \e$(D&q\e(B
     ))
 (define-char
@@ -888,8 +888,8 @@
     (ucs               . #x03AD)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03B5 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03B5 #x0301)
     (->uppercase       #x0388)
     (->titlecase       #x0388)
     (greek-iso8859-7   #x5D)   ; \e-FÝ\e-A
@@ -899,12 +899,12 @@
     (->ucs             . #x03AD)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03AD)
     (mirrored          . nil)
+    (->decomposition   wide #x03AD)
     (->uppercase
-     ((name    . "FULLWIDTH GREEK CAPITAL LETTER EPSILON WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER EPSILON WITH TONOS")))
     (->titlecase
-     ((name    . "FULLWIDTH GREEK CAPITAL LETTER EPSILON WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER EPSILON WITH TONOS")))
     (japanese-jisx0212 #x26 #x72)      ; \e$(D&r\e(B
     ))
 (define-char
@@ -912,8 +912,8 @@
     (ucs               . #x03AE)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03B7 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03B7 #x0301)
     (->uppercase       #x0389)
     (->titlecase       #x0389)
     (greek-iso8859-7   #x5E)   ; \e-FÞ\e-A
@@ -923,12 +923,12 @@
     (->ucs             . #x03AE)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03AE)
     (mirrored          . nil)
+    (->decomposition   wide #x03AE)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER ETA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER ETA WITH TONOS")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER ETA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER ETA WITH TONOS")))
     (japanese-jisx0212 #x26 #x73)      ; \e$(D&s\e(B
     ))
 (define-char
@@ -936,8 +936,8 @@
     (ucs               . #x03AF)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03B9 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03B9 #x0301)
     (->uppercase       #x038A)
     (->titlecase       #x038A)
     (greek-iso8859-7   #x5F)   ; \e-Fß\e-A
@@ -947,30 +947,30 @@
     (->ucs             . #x03AF)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03AF)
     (mirrored          . nil)
+    (->decomposition   wide #x03AF)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH TONOS")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH TONOS")))
     (japanese-jisx0212 #x26 #x74)      ; \e$(D&t\e(B
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
-    (ucs  . #x03B0)
+    (ucs               . #x03B0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03CB #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03CB #x0301)
     (greek-iso8859-7   #x60)   ; \e-Fà\e-A
     ))
 (define-char
   '((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
-    (->ucs  . #x03B0)
+    (->ucs             . #x03B0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03B0)
     (mirrored          . nil)
+    (->decomposition   wide #x03B0)
     (japanese-jisx0212 #x26 #x7B)      ; \e$(D&{\e(B
     ))
 (define-char
@@ -988,15 +988,15 @@
     (->ucs             . #x03B1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03B1)
     (mirrored          . nil)
+    (->decomposition   wide #x03B1)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER ALPHA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER ALPHA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER ALPHA")))
-    (japanese-jisx0208-1978    #x26 #x41)      ; \e$B&A\e(B
-    (chinese-gb2312            #x26 #x41)      ; \e$A&A\e(B
-    (japanese-jisx0208         #x26 #x41)      ; \e$B&A\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER ALPHA")))
+    (japanese-jisx0208-1978    #x26 #x41)      ; \e$(B&A\e(B
+    (chinese-gb2312            #x26 #x41)      ; \e$(A&A\e(B
+    (japanese-jisx0208         #x26 #x41)      ; \e$(B&A\e(B
     (korean-ksc5601            #x25 #x61)      ; \e$(C%a\e(B
     (chinese-cns11643-1                #x25 #x2F)      ; \e$(G%/\e(B
     ))
@@ -1012,18 +1012,18 @@
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL LETTER BETA")
-    (ucs               . #x03B2)
+    (->ucs             . #x03B2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03B2)
     (mirrored          . nil)
+    (->decomposition   wide #x03B2)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER BETA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER BETA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER BETA")))
-    (japanese-jisx0208-1978    #x26 #x42)      ; \e$@&B\e(B
-    (chinese-gb2312            #x26 #x42)      ; \e$A&B\e(B
-    (japanese-jisx0208         #x26 #x42)      ; \e$B&B\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER BETA")))
+    (japanese-jisx0208-1978    #x26 #x42)      ; \e$(@&B\e(B
+    (chinese-gb2312            #x26 #x42)      ; \e$(A&B\e(B
+    (japanese-jisx0208         #x26 #x42)      ; \e$(B&B\e(B
     (korean-ksc5601            #x25 #x62)      ; \e$(C%b\e(B
     (chinese-cns11643-1                #x25 #x30)      ; \e$(G%0\e(B
     ))
@@ -1042,15 +1042,15 @@
     (->ucs             . #x03B3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03B3)
     (mirrored          . nil)
+    (->decomposition   wide #x03B3)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER GAMMA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER GAMMA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER GAMMA")))
-    (japanese-jisx0208-1978    #x26 #x43)      ; \e$B&C\e(B
-    (chinese-gb2312            #x26 #x43)      ; \e$A&C\e(B
-    (japanese-jisx0208         #x26 #x43)      ; \e$B&C\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER GAMMA")))
+    (japanese-jisx0208-1978    #x26 #x43)      ; \e$(B&C\e(B
+    (chinese-gb2312            #x26 #x43)      ; \e$(A&C\e(B
+    (japanese-jisx0208         #x26 #x43)      ; \e$(B&C\e(B
     (korean-ksc5601            #x25 #x63)      ; \e$(C%c\e(B
     (chinese-cns11643-1                #x25 #x31)      ; \e$(G%1\e(B
     ))
@@ -1069,15 +1069,15 @@
     (->ucs             . #x03B4)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03B4)
     (mirrored          . nil)
+    (->decomposition   wide #x03B4)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER DELTA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER DELTA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER DELTA")))
-    (japanese-jisx0208-1978    #x26 #x44)      ; \e$B&D\e(B
-    (chinese-gb2312            #x26 #x44)      ; \e$A&D\e(B
-    (japanese-jisx0208         #x26 #x44)      ; \e$B&D\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER DELTA")))
+    (japanese-jisx0208-1978    #x26 #x44)      ; \e$(B&D\e(B
+    (chinese-gb2312            #x26 #x44)      ; \e$(A&D\e(B
+    (japanese-jisx0208         #x26 #x44)      ; \e$(B&D\e(B
     (korean-ksc5601            #x25 #x64)      ; \e$(C%d\e(B
     (chinese-cns11643-1                #x25 #x32)      ; \e$(G%2\e(B
     ))
@@ -1096,15 +1096,15 @@
     (->ucs             . #x03B5)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03B5)
     (mirrored          . nil)
+    (->decomposition   wide #x03B5)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER EPSILON")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER EPSILON")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER EPSILON")))
-    (japanese-jisx0208-1978    #x26 #x45)      ; \e$B&E\e(B
-    (chinese-gb2312            #x26 #x45)      ; \e$A&E\e(B
-    (japanese-jisx0208         #x26 #x45)      ; \e$B&E\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER EPSILON")))
+    (japanese-jisx0208-1978    #x26 #x45)      ; \e$(B&E\e(B
+    (chinese-gb2312            #x26 #x45)      ; \e$(A&E\e(B
+    (japanese-jisx0208         #x26 #x45)      ; \e$(B&E\e(B
     (korean-ksc5601            #x25 #x65)      ; \e$(C%e\e(B
     (chinese-cns11643-1                #x25 #x33)      ; \e$(G%3\e(B
     ))
@@ -1123,15 +1123,15 @@
     (->ucs             . #x03B6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03B6)
     (mirrored          . nil)
+    (->decomposition   wide #x03B6)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER ZETA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER ZETA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER ZETA")))
-    (japanese-jisx0208-1978    #x26 #x46)      ; \e$B&F\e(B
-    (chinese-gb2312            #x26 #x46)      ; \e$A&F\e(B
-    (japanese-jisx0208         #x26 #x46)      ; \e$B&F\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER ZETA")))
+    (japanese-jisx0208-1978    #x26 #x46)      ; \e$(B&F\e(B
+    (chinese-gb2312            #x26 #x46)      ; \e$(A&F\e(B
+    (japanese-jisx0208         #x26 #x46)      ; \e$(B&F\e(B
     (korean-ksc5601            #x25 #x66)      ; \e$(C%f\e(B
     (chinese-cns11643-1                #x25 #x34)      ; \e$(G%4\e(B
     ))
@@ -1150,15 +1150,15 @@
     (->ucs             . #x03B7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03B7)
     (mirrored          . nil)
+    (->decomposition   wide #x03B7)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER ETA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER ETA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER ETA")))
-    (japanese-jisx0208-1978    #x26 #x47)      ; \e$B&G\e(B
-    (chinese-gb2312            #x26 #x47)      ; \e$A&G\e(B
-    (japanese-jisx0208         #x26 #x47)      ; \e$B&G\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER ETA")))
+    (japanese-jisx0208-1978    #x26 #x47)      ; \e$(B&G\e(B
+    (chinese-gb2312            #x26 #x47)      ; \e$(A&G\e(B
+    (japanese-jisx0208         #x26 #x47)      ; \e$(B&G\e(B
     (korean-ksc5601            #x25 #x67)      ; \e$(C%g\e(B
     (chinese-cns11643-1                #x25 #x35)      ; \e$(G%5\e(B
     ))
@@ -1178,15 +1178,15 @@
     (->ucs             . #x03B8)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03B8)
     (mirrored          . nil)
+    (->decomposition   wide #x03B8)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER THETA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER THETA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER THETA")))
-    (japanese-jisx0208-1978    #x26 #x48)      ; \e$B&H\e(B
-    (chinese-gb2312            #x26 #x48)      ; \e$A&H\e(B
-    (japanese-jisx0208         #x26 #x48)      ; \e$B&H\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER THETA")))
+    (japanese-jisx0208-1978    #x26 #x48)      ; \e$(B&H\e(B
+    (chinese-gb2312            #x26 #x48)      ; \e$(A&H\e(B
+    (japanese-jisx0208         #x26 #x48)      ; \e$(B&H\e(B
     (korean-ksc5601            #x25 #x68)      ; \e$(C%h\e(B
     (chinese-cns11643-1                #x25 #x36)      ; \e$(G%6\e(B
     ))
@@ -1205,15 +1205,15 @@
     (->ucs             . #x03B9)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03B9)
     (mirrored          . nil)
+    (->decomposition   wide #x03B9)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER IOTA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER IOTA")))
-    (japanese-jisx0208-1978    #x26 #x49)      ; \e$B&I\e(B
-    (chinese-gb2312            #x26 #x49)      ; \e$A&I\e(B
-    (japanese-jisx0208         #x26 #x49)      ; \e$B&I\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA")))
+    (japanese-jisx0208-1978    #x26 #x49)      ; \e$(B&I\e(B
+    (chinese-gb2312            #x26 #x49)      ; \e$(A&I\e(B
+    (japanese-jisx0208         #x26 #x49)      ; \e$(B&I\e(B
     (korean-ksc5601            #x25 #x69)      ; \e$(C%i\e(B
     (chinese-cns11643-1                #x25 #x37)      ; \e$(G%7\e(B
     ))
@@ -1232,13 +1232,13 @@
     (->ucs             . #x03BA)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03BA)
     (mirrored          . nil)
+    (->decomposition   wide #x03BA)
     (->uppercase       #x039A)
     (->titlecase       #x039A)
-    (japanese-jisx0208-1978    #x26 #x4A)      ; \e$B&J\e(B
-    (chinese-gb2312            #x26 #x4A)      ; \e$A&J\e(B
-    (japanese-jisx0208         #x26 #x4A)      ; \e$B&J\e(B
+    (japanese-jisx0208-1978    #x26 #x4A)      ; \e$(B&J\e(B
+    (chinese-gb2312            #x26 #x4A)      ; \e$(A&J\e(B
+    (japanese-jisx0208         #x26 #x4A)      ; \e$(B&J\e(B
     (korean-ksc5601            #x25 #x6A)      ; \e$(C%j\e(B
     (chinese-cns11643-1                #x25 #x38)      ; \e$(G%8\e(B
     ))
@@ -1257,15 +1257,15 @@
     (->ucs             . #x03BB)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03BB)
     (mirrored          . nil)
+    (->decomposition   wide #x03BB)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER LAMDA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER LAMDA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER LAMDA")))
-    (japanese-jisx0208-1978    #x26 #x4B)      ; \e$B&K\e(B
-    (chinese-gb2312            #x26 #x4B)      ; \e$A&K\e(B
-    (japanese-jisx0208         #x26 #x4B)      ; \e$B&K\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER LAMDA")))
+    (japanese-jisx0208-1978    #x26 #x4B)      ; \e$(B&K\e(B
+    (chinese-gb2312            #x26 #x4B)      ; \e$(A&K\e(B
+    (japanese-jisx0208         #x26 #x4B)      ; \e$(B&K\e(B
     (korean-ksc5601            #x25 #x6B)      ; \e$(C%k\e(B
     (chinese-cns11643-1                #x25 #x39)      ; \e$(G%9\e(B
     ))
@@ -1284,15 +1284,15 @@
     (->ucs             . #x03BC)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03BC)
     (mirrored          . nil)
+    (->decomposition   wide #x03BC)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER MU")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER MU")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER MU")))
-    (japanese-jisx0208-1978    #x26 #x4C)      ; \e$B&L\e(B
-    (chinese-gb2312            #x26 #x4C)      ; \e$A&L\e(B
-    (japanese-jisx0208         #x26 #x4C)      ; \e$B&L\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER MU")))
+    (japanese-jisx0208-1978    #x26 #x4C)      ; \e$(B&L\e(B
+    (chinese-gb2312            #x26 #x4C)      ; \e$(A&L\e(B
+    (japanese-jisx0208         #x26 #x4C)      ; \e$(B&L\e(B
     (korean-ksc5601            #x25 #x6C)      ; \e$(C%l\e(B
     (chinese-cns11643-1                #x25 #x3A)      ; \e$(G%:\e(B
     ))
@@ -1311,15 +1311,15 @@
     (->ucs             . #x03BD)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03BD)
     (mirrored          . nil)
+    (->decomposition   wide #x03BD)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER NU")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER NU")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER NU")))
-    (japanese-jisx0208-1978    #x26 #x4D)      ; \e$B&M\e(B
-    (chinese-gb2312            #x26 #x4D)      ; \e$A&M\e(B
-    (japanese-jisx0208         #x26 #x4D)      ; \e$B&M\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER NU")))
+    (japanese-jisx0208-1978    #x26 #x4D)      ; \e$(B&M\e(B
+    (chinese-gb2312            #x26 #x4D)      ; \e$(A&M\e(B
+    (japanese-jisx0208         #x26 #x4D)      ; \e$(B&M\e(B
     (korean-ksc5601            #x25 #x6D)      ; \e$(C%m\e(B
     (chinese-cns11643-1                #x25 #x3B)      ; \e$(G%;\e(B
     ))
@@ -1338,15 +1338,15 @@
     (->ucs             . #x03BE)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03BE)
     (mirrored          . nil)
+    (->decomposition   wide #x03BE)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER XI")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER XI")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER XI")))
-    (japanese-jisx0208-1978    #x26 #x4E)      ; \e$B&N\e(B
-    (chinese-gb2312            #x26 #x4E)      ; \e$A&N\e(B
-    (japanese-jisx0208         #x26 #x4E)      ; \e$B&N\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER XI")))
+    (japanese-jisx0208-1978    #x26 #x4E)      ; \e$(B&N\e(B
+    (chinese-gb2312            #x26 #x4E)      ; \e$(A&N\e(B
+    (japanese-jisx0208         #x26 #x4E)      ; \e$(B&N\e(B
     (korean-ksc5601            #x25 #x6E)      ; \e$(C%n\e(B
     (chinese-cns11643-1                #x25 #x3C)      ; \e$(G%<\e(B
     ))
@@ -1365,15 +1365,15 @@
     (->ucs             . #x03BF)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03BF)
     (mirrored          . nil)
+    (->decomposition   wide #x03BF)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER OMICRON")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER OMICRON")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER OMICRON")))
-    (japanese-jisx0208-1978    #x26 #x4F)      ; \e$B&O\e(B
-    (chinese-gb2312            #x26 #x4F)      ; \e$A&O\e(B
-    (japanese-jisx0208         #x26 #x4F)      ; \e$B&O\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER OMICRON")))
+    (japanese-jisx0208-1978    #x26 #x4F)      ; \e$(B&O\e(B
+    (chinese-gb2312            #x26 #x4F)      ; \e$(A&O\e(B
+    (japanese-jisx0208         #x26 #x4F)      ; \e$(B&O\e(B
     (korean-ksc5601            #x25 #x6F)      ; \e$(C%o\e(B
     (chinese-cns11643-1                #x25 #x3D)      ; \e$(G%=\e(B
     ))
@@ -1392,15 +1392,15 @@
     (->ucs             . #x03C0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03C0)
     (mirrored          . nil)
+    (->decomposition   wide #x03C0)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER PI")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER PI")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER PI")))
-    (japanese-jisx0208-1978    #x26 #x50)      ; \e$B&P\e(B
-    (chinese-gb2312            #x26 #x50)      ; \e$A&P\e(B
-    (japanese-jisx0208         #x26 #x50)      ; \e$B&P\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER PI")))
+    (japanese-jisx0208-1978    #x26 #x50)      ; \e$(B&P\e(B
+    (chinese-gb2312            #x26 #x50)      ; \e$(A&P\e(B
+    (japanese-jisx0208         #x26 #x50)      ; \e$(B&P\e(B
     (korean-ksc5601            #x25 #x70)      ; \e$(C%p\e(B
     (chinese-cns11643-1                #x25 #x3E)      ; \e$(G%>\e(B
     ))
@@ -1419,15 +1419,15 @@
     (->ucs             . #x03C1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03C1)
     (mirrored          . nil)
+    (->decomposition   wide #x03C1)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER RHO")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER RHO")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER RHO")))
-    (japanese-jisx0208-1978    #x26 #x51)      ; \e$B&Q\e(B
-    (chinese-gb2312            #x26 #x51)      ; \e$A&Q\e(B
-    (japanese-jisx0208         #x26 #x51)      ; \e$B&Q\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER RHO")))
+    (japanese-jisx0208-1978    #x26 #x51)      ; \e$(B&Q\e(B
+    (chinese-gb2312            #x26 #x51)      ; \e$(A&Q\e(B
+    (japanese-jisx0208         #x26 #x51)      ; \e$(B&Q\e(B
     (korean-ksc5601            #x25 #x71)      ; \e$(C%q\e(B
     (chinese-cns11643-1                #x25 #x3F)      ; \e$(G%?\e(B
     ))
@@ -1446,12 +1446,12 @@
     (->ucs             . #x03C2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03C2)
     (mirrored          . nil)
+    (->decomposition   wide #x03C2)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER FINAL SIGMA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER FINAL SIGMA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER FINAL SIGMA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER FINAL SIGMA")))
     (japanese-jisx0212 #x26 #x78)      ; \e$(D&x\e(B
     ))
 (define-char
@@ -1469,15 +1469,15 @@
     (->ucs             . #x03C3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03C3)
     (mirrored          . nil)
+    (->decomposition   wide #x03C3)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER SIGMA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER SIGMA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER SIGMA")))
-    (japanese-jisx0208-1978    #x26 #x52)      ; \e$B&R\e(B
-    (chinese-gb2312            #x26 #x52)      ; \e$A&R\e(B
-    (japanese-jisx0208         #x26 #x52)      ; \e$B&R\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER SIGMA")))
+    (japanese-jisx0208-1978    #x26 #x52)      ; \e$(B&R\e(B
+    (chinese-gb2312            #x26 #x52)      ; \e$(A&R\e(B
+    (japanese-jisx0208         #x26 #x52)      ; \e$(B&R\e(B
     (korean-ksc5601            #x25 #x72)      ; \e$(C%r\e(B
     (chinese-cns11643-1                #x25 #x40)      ; \e$(G%@\e(B
     ))
@@ -1496,15 +1496,15 @@
     (->ucs             . #x03C4)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03C4)
     (mirrored          . nil)
+    (->decomposition   wide #x03C4)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER TAU")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER TAU")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER TAU")))
-    (japanese-jisx0208-1978    #x26 #x53)      ; \e$B&S\e(B
-    (chinese-gb2312            #x26 #x53)      ; \e$A&S\e(B
-    (japanese-jisx0208         #x26 #x53)      ; \e$B&S\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER TAU")))
+    (japanese-jisx0208-1978    #x26 #x53)      ; \e$(B&S\e(B
+    (chinese-gb2312            #x26 #x53)      ; \e$(A&S\e(B
+    (japanese-jisx0208         #x26 #x53)      ; \e$(B&S\e(B
     (korean-ksc5601            #x25 #x73)      ; \e$(C%s\e(B
     (chinese-cns11643-1                #x25 #x41)      ; \e$(G%A\e(B
     ))
@@ -1523,15 +1523,15 @@
     (->ucs             . #x03C5)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03C5)
     (mirrored          . nil)
+    (->decomposition   wide #x03C5)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER UPSILON")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER UPSILON")))
-    (japanese-jisx0208-1978    #x26 #x54)      ; \e$B&T\e(B
-    (chinese-gb2312            #x26 #x54)      ; \e$A&T\e(B
-    (japanese-jisx0208         #x26 #x54)      ; \e$B&T\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON")))
+    (japanese-jisx0208-1978    #x26 #x54)      ; \e$(B&T\e(B
+    (chinese-gb2312            #x26 #x54)      ; \e$(A&T\e(B
+    (japanese-jisx0208         #x26 #x54)      ; \e$(B&T\e(B
     (korean-ksc5601            #x25 #x74)      ; \e$(C%t\e(B
     (chinese-cns11643-1                #x25 #x42)      ; \e$(G%B\e(B
     ))
@@ -1550,15 +1550,15 @@
     (->ucs             . #x03C6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03C6)
     (mirrored          . nil)
+    (->decomposition   wide #x03C6)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER PHI")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER PHI")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER PHI")))
-    (japanese-jisx0208-1978    #x26 #x55)      ; \e$B&U\e(B
-    (chinese-gb2312            #x26 #x55)      ; \e$A&U\e(B
-    (japanese-jisx0208         #x26 #x55)      ; \e$B&U\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER PHI")))
+    (japanese-jisx0208-1978    #x26 #x55)      ; \e$(B&U\e(B
+    (chinese-gb2312            #x26 #x55)      ; \e$(A&U\e(B
+    (japanese-jisx0208         #x26 #x55)      ; \e$(B&U\e(B
     (korean-ksc5601            #x25 #x75)      ; \e$(C%u\e(B
     (chinese-cns11643-1                #x25 #x43)      ; \e$(G%C\e(B
     ))
@@ -1577,15 +1577,15 @@
     (->ucs             . #x03C7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03C7)
     (mirrored          . nil)
+    (->decomposition   wide #x03C7)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER CHI")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER CHI")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER CHI")))
-    (japanese-jisx0208-1978    #x26 #x56)      ; \e$B&V\e(B
-    (chinese-gb2312            #x26 #x56)      ; \e$A&V\e(B
-    (japanese-jisx0208         #x26 #x56)      ; \e$B&V\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER CHI")))
+    (japanese-jisx0208-1978    #x26 #x56)      ; \e$(B&V\e(B
+    (chinese-gb2312            #x26 #x56)      ; \e$(A&V\e(B
+    (japanese-jisx0208         #x26 #x56)      ; \e$(B&V\e(B
     (korean-ksc5601            #x25 #x76)      ; \e$(C%v\e(B
     (chinese-cns11643-1                #x25 #x44)      ; \e$(G%D\e(B
     ))
@@ -1604,15 +1604,15 @@
     (->ucs             . #x03C8)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03C8)
     (mirrored          . nil)
+    (->decomposition   wide #x03C8)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER PSI")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER PSI")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER PSI")))
-    (japanese-jisx0208-1978    #x26 #x57)      ; \e$B&W\e(B
-    (chinese-gb2312            #x26 #x57)      ; \e$A&W\e(B
-    (japanese-jisx0208         #x26 #x57)      ; \e$B&W\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER PSI")))
+    (japanese-jisx0208-1978    #x26 #x57)      ; \e$(B&W\e(B
+    (chinese-gb2312            #x26 #x57)      ; \e$(A&W\e(B
+    (japanese-jisx0208         #x26 #x57)      ; \e$(B&W\e(B
     (korean-ksc5601            #x25 #x77)      ; \e$(C%w\e(B
     (chinese-cns11643-1                #x25 #x45)      ; \e$(G%E\e(B
     ))
@@ -1631,15 +1631,15 @@
     (->ucs             . #x03C9)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03C9)
     (mirrored          . nil)
+    (->decomposition   wide #x03C9)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER OMEGA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER OMEGA")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER OMEGA")))
-    (japanese-jisx0208-1978    #x26 #x58)      ; \e$B&X\e(B
-    (chinese-gb2312            #x26 #x58)      ; \e$A&X\e(B
-    (japanese-jisx0208         #x26 #x58)      ; \e$B&X\e(B
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER OMEGA")))
+    (japanese-jisx0208-1978    #x26 #x58)      ; \e$(B&X\e(B
+    (chinese-gb2312            #x26 #x58)      ; \e$(A&X\e(B
+    (japanese-jisx0208         #x26 #x58)      ; \e$(B&X\e(B
     (korean-ksc5601            #x25 #x78)      ; \e$(C%x\e(B
     (chinese-cns11643-1                #x25 #x46)      ; \e$(G%F\e(B
     ))
@@ -1648,23 +1648,23 @@
     (ucs               . #x03CA)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03B9 #x0308)
     (mirrored          . nil)
+    (->decomposition   #x03B9 #x0308)
     (->uppercase       #x03AA)
     (->titlecase       #x03AA)
     (greek-iso8859-7   #x7A)   ; \e-Fú\e-A
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA")
+  '((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA")
     (->ucs             . #x03CA)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03CA)
     (mirrored          . nil)
+    (->decomposition   wide #x03CA)
     (->uppercase
-     ((name    . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")))
     (->titlecase
-     ((name    . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")))
     (japanese-jisx0212 #x26 #x75)      ; \e$(D&u\e(B
     ))
 (define-char
@@ -1672,23 +1672,23 @@
     (ucs               . #x03CB)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03C5 #x0308)
     (mirrored          . nil)
+    (->decomposition   #x03C5 #x0308)
     (->uppercase       #x03AB)
     (->titlecase       #x03AB)
     (greek-iso8859-7   #x7B)   ; \e-Fû\e-A
     ))
 (define-char
-  '((name      . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
+  '((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
     (->ucs             . #x03CB)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03CB)
     (mirrored          . nil)
+    (->decomposition   wide #x03CB)
     (->uppercase
-     ((name    . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")))
     (->titlecase
-     ((name    . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")))
     (japanese-jisx0212 #x26 #x7A)      ; \e$(D&z\e(B
     ))
 (define-char
@@ -1696,8 +1696,8 @@
     (ucs               . #x03CC)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03BF #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03BF #x0301)
     (->uppercase       #x038C)
     (->titlecase       #x038C)
     (greek-iso8859-7   #x7C)   ; \e-Fü\e-A
@@ -1707,12 +1707,12 @@
     (->ucs             . #x03CC)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03CC)
     (mirrored          . nil)
+    (->decomposition   wide #x03CC)
     (->uppercase
-     ((name    . "FULLWIDTH GREEK CAPITAL LETTER OMICRON WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER OMICRON WITH TONOS")))
     (->titlecase
-     ((name    . "FULLWIDTH GREEK CAPITAL LETTER OMICRON WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER OMICRON WITH TONOS")))
     (japanese-jisx0212 #x26 #x77)      ; \e$(D&w\e(B
     ))
 (define-char
@@ -1720,8 +1720,8 @@
     (ucs               . #x03CD)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03C5 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03C5 #x0301)
     (->uppercase       #x038E)
     (->titlecase       #x038E)
     (greek-iso8859-7   #x7D)   ; \e-Fý\e-A
@@ -1731,12 +1731,12 @@
     (->ucs             . #x03CD)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03CD)
     (mirrored          . nil)
+    (->decomposition   wide #x03CD)
     (->uppercase
-     ((name    . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH TONOS")))
     (->titlecase
-     ((name    . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH TONOS")))
     (japanese-jisx0212 #x26 #x79)      ; \e$(D&y\e(B
     ))
 (define-char
@@ -1744,8 +1744,8 @@
     (ucs               . #x03CE)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03C9 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03C9 #x0301)
     (->uppercase       #x038F)
     (->titlecase       #x038F)
     (greek-iso8859-7   #x7E)   ; \e-Fþ\e-A
@@ -1755,12 +1755,12 @@
     (->ucs             . #x03CE)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   wide #x03CE)
     (mirrored          . nil)
+    (->decomposition   wide #x03CE)
     (->uppercase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER OMEGA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER OMEGA WITH TONOS")))
     (->titlecase
-     ((name            . "FULLWIDTH GREEK CAPITAL LETTER OMEGA WITH TONOS")))
+     ((name . "FULLWIDTH GREEK CAPITAL LETTER OMEGA WITH TONOS")))
     (japanese-jisx0212 #x26 #x7C)      ; \e$(D&|\e(B
     ))
 (define-char
@@ -1768,8 +1768,8 @@
     (ucs               . #x03D0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   compat #x03B2)
     (mirrored          . nil)
+    (->decomposition   compat #x03B2)
     (->uppercase       #x0392)
     (->titlecase       #x0392)
     ))
@@ -1778,8 +1778,8 @@
     (ucs               . #x03D1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   compat #x03B8)
     (mirrored          . nil)
+    (->decomposition   compat #x03B8)
     (->uppercase       #x0398)
     (->titlecase       #x0398)
     ))
@@ -1788,32 +1788,32 @@
     (ucs               . #x03D2)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   compat #x03A5)
     (mirrored          . nil)
+    (->decomposition   compat #x03A5)
     ))
 (define-char
   '((name              . "GREEK UPSILON WITH ACUTE AND HOOK SYMBOL")
     (ucs               . #x03D3)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03D2 #x0301)
     (mirrored          . nil)
+    (->decomposition   #x03D2 #x0301)
     ))
 (define-char
   '((name              . "GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL")
     (ucs               . #x03D4)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   #x03D2 #x0308)
     (mirrored          . nil)
+    (->decomposition   #x03D2 #x0308)
     ))
 (define-char
   '((name              . "GREEK PHI SYMBOL")
     (ucs               . #x03D5)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   compat #x03C6)
     (mirrored          . nil)
+    (->decomposition   compat #x03C6)
     (->uppercase       #x03A6)
     (->titlecase       #x03A6)
     ))
@@ -1822,8 +1822,8 @@
     (ucs               . #x03D6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   compat #x03C0)
     (mirrored          . nil)
+    (->decomposition   compat #x03C0)
     (->uppercase       #x03A0)
     (->titlecase       #x03A0)
     ))
@@ -2026,8 +2026,8 @@
     (ucs               . #x03F0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   compat #x03BA)
     (mirrored          . nil)
+    (->decomposition   compat #x03BA)
     (->uppercase       #x039A)
     (->titlecase       #x039A)
     ))
@@ -2036,8 +2036,8 @@
     (ucs               . #x03F1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   compat #x03C1)
     (mirrored          . nil)
+    (->decomposition   compat #x03C1)
     (->uppercase       #x03A1)
     (->titlecase       #x03A1)
     ))
@@ -2046,8 +2046,8 @@
     (ucs               . #x03F2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
-    (->decomposition   compat #x03C2)
     (mirrored          . nil)
+    (->decomposition   compat #x03C2)
     (->uppercase       #x03A3)
     (->titlecase       #x03A3)
     ))