Sync with r21-2-19-utf-2000-0_13-0.
[chise/xemacs-chise.git] / lisp / utf-2000 / u00370-Greek.el
index b840dba..67bd636 100644 (file)
@@ -39,7 +39,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0301)
-    (greek-iso8859-7   #x34)   ; \e-F´\e-A
+    (greek-iso8859-7   #xB4)   ; ΄
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK TONOS")
@@ -48,7 +48,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   wide #x0384)
-    (japanese-jisx0212 #x22 #x38)      ; \e$(D"8\e(B
+    (japanese-jisx0212 #x22 #x38)      ; 
     ))
 (define-char
   '((name              . "GREEK DIALYTIKA TONOS")
@@ -57,7 +57,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x00A8 #x0301)
-    (greek-iso8859-7   #x35)   ; \e-Fµ\e-A
+    (greek-iso8859-7   #xB5)   ; ΅
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK DIALYTIKA TONOS")
@@ -66,7 +66,7 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   wide #x0385)
-    (japanese-jisx0212 #x22 #x39)      ; \e$(D"9\e(B
+    (japanese-jisx0212 #x22 #x39)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
@@ -76,7 +76,7 @@
     (mirrored          . nil)
     (->decomposition   #x0391 #x0301)
     (->lowercase       #x03AC)
-    (greek-iso8859-7   #x36)   ; \e-F¶\e-A
+    (greek-iso8859-7   #xB6)   ; Ά
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER ALPHA WITH TONOS")
@@ -87,7 +87,7 @@
     (->decomposition   wide #x0386)
     (->lowercase
      ((name . "FULLWIDTH GREEK SMALL LETTER ALPHA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x61)      ; \e$(D&a\e(B
+    (japanese-jisx0212 #x26 #x61)      ; 
     ))
 (define-char
   '((name              . "GREEK ANO TELEIA")
     (mirrored          . nil)
     (->decomposition   #x0395 #x0301)
     (->lowercase       #x03AD)
-    (greek-iso8859-7   #x38)   ; \e-F¸\e-A
+    (greek-iso8859-7   #xB8)   ; Έ
     ))
 (define-char
   '((name . "FULLWIDTH GREEK CAPITAL LETTER EPSILON WITH TONOS")
     (->decomposition   wide #x0388)
     (->lowercase
      ((name . "FULLWIDTH GREEK SMALL LETTER EPSILON WITH TONOS")))
-    (japanese-jisx0212 #x26 #x62)      ; \e$(D&b\e(B
+    (japanese-jisx0212 #x26 #x62)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH TONOS")
     (mirrored          . nil)
     (->decomposition   #x0397 #x0301)
     (->lowercase       #x03AE)
-    (greek-iso8859-7   #x39)   ; \e-F¹\e-A
+    (greek-iso8859-7   #xB9)   ; Ή
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER ETA WITH TONOS")
     (->decomposition   wide #x0389)
     (->lowercase
      ((name . "FULLWIDTH GREEK SMALL LETTER ETA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x63)      ; \e$(D&c\e(B
+    (japanese-jisx0212 #x26 #x63)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH TONOS")
     (mirrored          . nil)
     (->decomposition   #x0399 #x0301)
     (->lowercase       #x03AF)
-    (greek-iso8859-7   #x3A)   ; \e-Fº\e-A
+    (greek-iso8859-7   #xBA)   ; Ί
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH TONOS")
     (->decomposition   wide #x038A)
     (->lowercase
      ((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x64)      ; \e$(D&d\e(B
+    (japanese-jisx0212 #x26 #x64)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
     (mirrored          . nil)
     (->decomposition   #x039F #x0301)
     (->lowercase       #x03CC)
-    (greek-iso8859-7   #x3C)   ; \e-F¼\e-A
+    (greek-iso8859-7   #xBC)   ; Ό
     ))
 (define-char
   '((name . "FULLWIDTH GREEK CAPITAL LETTER OMICRON WITH TONOS")
     (->decomposition   wide #x038C)
     (->lowercase
      ((name . "FULLWIDTH GREEK SMALL LETTER OMICRON WITH TONOS")))
-    (japanese-jisx0212 #x26 #x67)      ; \e$(D&g\e(B
+    (japanese-jisx0212 #x26 #x67)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
     (mirrored          . nil)
     (->decomposition   #x03A5 #x0301)
     (->lowercase       #x03CD)
-    (greek-iso8859-7   #x3E)   ; \e-F¾\e-A
+    (greek-iso8859-7   #xBE)   ; Ύ
     ))
 (define-char
   '((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH TONOS")
     (->decomposition   wide #x038E)
     (->lowercase
      ((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH TONOS")))
-    (japanese-jisx0212 #x26 #x69)      ; \e$(D&i\e(B
+    (japanese-jisx0212 #x26 #x69)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
     (mirrored          . nil)
     (->decomposition   #x03A9 #x0301)
     (->lowercase       #x03CE)
-    (greek-iso8859-7   #x3F)   ; \e-F¿\e-A
+    (greek-iso8859-7   #xBF)   ; Ώ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER OMEGA WITH TONOS")
     (->decomposition   wide #x038F)
     (->lowercase
      ((name . "FULLWIDTH GREEK SMALL LETTER OMEGA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x6C)      ; \e$(D&l\e(B
+    (japanese-jisx0212 #x26 #x6C)      ; 
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CA #x0301)
-    (greek-iso8859-7   #x40)   ; \e-FÀ\e-A
+    (greek-iso8859-7   #xC0)   ; ΐ
     ))
 (define-char
   '((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x0390)
-    (japanese-jisx0212 #x26 #x76)      ; \e$(D&v\e(B
+    (japanese-jisx0212 #x26 #x76)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03B1)
-    (greek-iso8859-7   #x41)   ; \e-FÁ\e-A
+    (greek-iso8859-7   #xC1)   ; Α
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER ALPHA")
     (->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
-    (korean-ksc5601            #x25 #x41)      ; \e$(C%A\e(B
-    (chinese-cns11643-1                #x24 #x75)      ; \e$(G$u\e(B
+    (japanese-jisx0208-1978    #x26 #x21)      ; 
+    (chinese-gb2312            #x26 #x21)      ; 
+    (japanese-jisx0208         #x26 #x21)      ; 
+    (korean-ksc5601            #x25 #x41)      ; 
+    (chinese-cns11643-1                #x24 #x75)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER BETA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03B2)
-    (greek-iso8859-7   #x42)   ; \e-FÂ\e-A
+    (greek-iso8859-7   #xC2)   ; Β
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER BETA")
     (->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
-    (korean-ksc5601            #x25 #x42)      ; \e$(C%B\e(B
-    (chinese-cns11643-1                #x24 #x76)      ; \e$(G$v\e(B
+    (japanese-jisx0208-1978    #x26 #x22)      ; 
+    (chinese-gb2312            #x26 #x22)      ; 
+    (japanese-jisx0208         #x26 #x22)      ; 
+    (korean-ksc5601            #x25 #x42)      ; 
+    (chinese-cns11643-1                #x24 #x76)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER GAMMA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03B3)
-    (greek-iso8859-7   #x43)   ; \e-FÃ\e-A
+    (greek-iso8859-7   #xC3)   ; Γ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER GAMMA")
     (->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
-    (korean-ksc5601            #x25 #x43)      ; \e$(C%C\e(B
-    (chinese-cns11643-1                #x24 #x77)      ; \e$(G$w\e(B
+    (japanese-jisx0208-1978    #x26 #x23)      ; 
+    (chinese-gb2312            #x26 #x23)      ; 
+    (japanese-jisx0208         #x26 #x23)      ; 
+    (korean-ksc5601            #x25 #x43)      ; 
+    (chinese-cns11643-1                #x24 #x77)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER DELTA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03B4)
-    (greek-iso8859-7   #x44)   ; \e-FÄ\e-A
+    (greek-iso8859-7   #xC4)   ; Δ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER DELTA")
     (->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
-    (korean-ksc5601            #x25 #x44)      ; \e$(C%D\e(B
-    (chinese-cns11643-1                #x24 #x78)      ; \e$(G$x\e(B
+    (japanese-jisx0208-1978    #x26 #x24)      ; 
+    (chinese-gb2312            #x26 #x24)      ; 
+    (japanese-jisx0208         #x26 #x24)      ; 
+    (korean-ksc5601            #x25 #x44)      ; 
+    (chinese-cns11643-1                #x24 #x78)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03B5)
-    (greek-iso8859-7   #x45)   ; \e-FÅ\e-A
+    (greek-iso8859-7   #xC5)   ; Ε
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER EPSILON")
     (->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
-    (korean-ksc5601            #x25 #x45)      ; \e$(C%E\e(B
-    (chinese-cns11643-1                #x24 #x79)      ; \e$(G$y\e(B
+    (japanese-jisx0208-1978    #x26 #x25)      ; 
+    (chinese-gb2312            #x26 #x25)      ; 
+    (japanese-jisx0208         #x26 #x25)      ; 
+    (korean-ksc5601            #x25 #x45)      ; 
+    (chinese-cns11643-1                #x24 #x79)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ZETA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03B6)
-    (greek-iso8859-7   #x46)   ; \e-FÆ\e-A
+    (greek-iso8859-7   #xC6)   ; Ζ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER ZETA")
     (->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
-    (korean-ksc5601            #x25 #x46)      ; \e$(C%F\e(B
-    (chinese-cns11643-1                #x24 #x7A)      ; \e$(G$z\e(B
+    (japanese-jisx0208-1978    #x26 #x26)      ; 
+    (chinese-gb2312            #x26 #x26)      ; 
+    (japanese-jisx0208         #x26 #x26)      ; 
+    (korean-ksc5601            #x25 #x46)      ; 
+    (chinese-cns11643-1                #x24 #x7A)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03B7)
-    (greek-iso8859-7   #x47)   ; \e-FÇ\e-A
+    (greek-iso8859-7   #xC7)   ; Η
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER ETA")
     (->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
-    (korean-ksc5601            #x25 #x47)      ; \e$(C%G\e(B
-    (chinese-cns11643-1                #x24 #x7B)      ; \e$(G${\e(B
+    (japanese-jisx0208-1978    #x26 #x27)      ; 
+    (chinese-gb2312            #x26 #x27)      ; 
+    (japanese-jisx0208         #x26 #x27)      ; 
+    (korean-ksc5601            #x25 #x47)      ; 
+    (chinese-cns11643-1                #x24 #x7B)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER THETA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03B8)
-    (greek-iso8859-7   #x48)   ; \e-FÈ\e-A
+    (greek-iso8859-7   #xC8)   ; Θ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER THETA")
     (->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
-    (korean-ksc5601            #x25 #x48)      ; \e$(C%H\e(B
-    (chinese-cns11643-1                #x24 #x7C)      ; \e$(G$|\e(B
+    (japanese-jisx0208-1978    #x26 #x28)      ; 
+    (chinese-gb2312            #x26 #x28)      ; 
+    (japanese-jisx0208         #x26 #x28)      ; 
+    (korean-ksc5601            #x25 #x48)      ; 
+    (chinese-cns11643-1                #x24 #x7C)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03B9)
-    (greek-iso8859-7   #x49)   ; \e-FÉ\e-A
+    (greek-iso8859-7   #xC9)   ; Ι
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER IOTA")
     (->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
-    (korean-ksc5601            #x25 #x49)      ; \e$(C%I\e(B
-    (chinese-cns11643-1                #x24 #x7D)      ; \e$(G$}\e(B
+    (japanese-jisx0208-1978    #x26 #x29)      ; 
+    (chinese-gb2312            #x26 #x29)      ; 
+    (japanese-jisx0208         #x26 #x29)      ; 
+    (korean-ksc5601            #x25 #x49)      ; 
+    (chinese-cns11643-1                #x24 #x7D)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER KAPPA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03BA)
-    (greek-iso8859-7   #x4A)   ; \e-FÊ\e-A
+    (greek-iso8859-7   #xCA)   ; Κ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER KAPPA")
     (->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
-    (korean-ksc5601            #x25 #x4A)      ; \e$(C%J\e(B
-    (chinese-cns11643-1                #x24 #x7E)      ; \e$(G$~\e(B
+    (japanese-jisx0208-1978    #x26 #x2A)      ; 
+    (chinese-gb2312            #x26 #x2A)      ; 
+    (japanese-jisx0208         #x26 #x2A)      ; 
+    (korean-ksc5601            #x25 #x4A)      ; 
+    (chinese-cns11643-1                #x24 #x7E)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER LAMDA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03BB)
-    (greek-iso8859-7   #x4B)   ; \e-FË\e-A
+    (greek-iso8859-7   #xCB)   ; Λ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER LAMDA")
     (->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
-    (korean-ksc5601            #x25 #x4B)      ; \e$(C%K\e(B
-    (chinese-cns11643-1                #x25 #x21)      ; \e$(G%!\e(B
+    (japanese-jisx0208-1978    #x26 #x2B)      ; 
+    (chinese-gb2312            #x26 #x2B)      ; 
+    (japanese-jisx0208         #x26 #x2B)      ; 
+    (korean-ksc5601            #x25 #x4B)      ; 
+    (chinese-cns11643-1                #x25 #x21)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER MU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03BC)
-    (greek-iso8859-7   #x4C)   ; \e-FÌ\e-A
+    (greek-iso8859-7   #xCC)   ; Μ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER MU")
     (->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
-    (korean-ksc5601            #x25 #x4C)      ; \e$(C%L\e(B
-    (chinese-cns11643-1                #x25 #x22)      ; \e$(G%"\e(B
+    (japanese-jisx0208-1978    #x26 #x2C)      ; 
+    (chinese-gb2312            #x26 #x2C)      ; 
+    (japanese-jisx0208         #x26 #x2C)      ; 
+    (korean-ksc5601            #x25 #x4C)      ; 
+    (chinese-cns11643-1                #x25 #x22)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER NU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03BD)
-    (greek-iso8859-7   #x4D)   ; \e-FÍ\e-A
+    (greek-iso8859-7   #xCD)   ; Ν
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER NU")
     (->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
-    (korean-ksc5601            #x25 #x4D)      ; \e$(C%M\e(B
-    (chinese-cns11643-1                #x25 #x23)      ; \e$(G%#\e(B
+    (japanese-jisx0208-1978    #x26 #x2D)      ; 
+    (chinese-gb2312            #x26 #x2D)      ; 
+    (japanese-jisx0208         #x26 #x2D)      ; 
+    (korean-ksc5601            #x25 #x4D)      ; 
+    (chinese-cns11643-1                #x25 #x23)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER XI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03BE)
-    (greek-iso8859-7   #x4E)   ; \e-FÎ\e-A
+    (greek-iso8859-7   #xCE)   ; Ξ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER XI")
     (->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
-    (korean-ksc5601            #x25 #x4E)      ; \e$(C%N\e(B
-    (chinese-cns11643-1                #x25 #x24)      ; \e$(G%$\e(B
+    (japanese-jisx0208-1978    #x26 #x2E)      ; 
+    (chinese-gb2312            #x26 #x2E)      ; 
+    (japanese-jisx0208         #x26 #x2E)      ; 
+    (korean-ksc5601            #x25 #x4E)      ; 
+    (chinese-cns11643-1                #x25 #x24)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03BF)
-    (greek-iso8859-7   #x4F)   ; \e-FÏ\e-A
+    (greek-iso8859-7   #xCF)   ; Ο
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER OMICRON")
     (->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
-    (korean-ksc5601            #x25 #x4F)      ; \e$(C%O\e(B
-    (chinese-cns11643-1                #x25 #x25)      ; \e$(G%%\e(B
+    (japanese-jisx0208-1978    #x26 #x2F)      ; 
+    (chinese-gb2312            #x26 #x2F)      ; 
+    (japanese-jisx0208         #x26 #x2F)      ; 
+    (korean-ksc5601            #x25 #x4F)      ; 
+    (chinese-cns11643-1                #x25 #x25)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER PI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03C0)
-    (greek-iso8859-7   #x50)   ; \e-FÐ\e-A
+    (greek-iso8859-7   #xD0)   ; Π
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER PI")
     (->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
-    (korean-ksc5601            #x25 #x50)      ; \e$(C%P\e(B
-    (chinese-cns11643-1                #x25 #x26)      ; \e$(G%&\e(B
+    (japanese-jisx0208-1978    #x26 #x30)      ; 
+    (chinese-gb2312            #x26 #x30)      ; 
+    (japanese-jisx0208         #x26 #x30)      ; 
+    (korean-ksc5601            #x25 #x50)      ; 
+    (chinese-cns11643-1                #x25 #x26)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER RHO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03C1)
-    (greek-iso8859-7   #x51)   ; \e-FÑ\e-A
+    (greek-iso8859-7   #xD1)   ; Ρ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER RHO")
     (->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
-    (korean-ksc5601            #x25 #x51)      ; \e$(C%Q\e(B
-    (chinese-cns11643-1                #x25 #x27)      ; \e$(G%'\e(B
+    (japanese-jisx0208-1978    #x26 #x31)      ; 
+    (chinese-gb2312            #x26 #x31)      ; 
+    (japanese-jisx0208         #x26 #x31)      ; 
+    (korean-ksc5601            #x25 #x51)      ; 
+    (chinese-cns11643-1                #x25 #x27)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER SIGMA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03C3)
-    (greek-iso8859-7   #x53)   ; \e-FÓ\e-A
+    (greek-iso8859-7   #xD3)   ; Σ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER SIGMA")
     (->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
-    (korean-ksc5601            #x25 #x52)      ; \e$(C%R\e(B
-    (chinese-cns11643-1                #x25 #x28)      ; \e$(G%(\e(B
+    (japanese-jisx0208-1978    #x26 #x32)      ; 
+    (chinese-gb2312            #x26 #x32)      ; 
+    (japanese-jisx0208         #x26 #x32)      ; 
+    (korean-ksc5601            #x25 #x52)      ; 
+    (chinese-cns11643-1                #x25 #x28)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER TAU")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03C4)
-    (greek-iso8859-7   #x54)   ; \e-FÔ\e-A
+    (greek-iso8859-7   #xD4)   ; Τ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER TAU")
     (->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
-    (korean-ksc5601            #x25 #x53)      ; \e$(C%S\e(B
-    (chinese-cns11643-1                #x25 #x29)      ; \e$(G%)\e(B
+    (japanese-jisx0208-1978    #x26 #x33)      ; 
+    (chinese-gb2312            #x26 #x33)      ; 
+    (japanese-jisx0208         #x26 #x33)      ; 
+    (korean-ksc5601            #x25 #x53)      ; 
+    (chinese-cns11643-1                #x25 #x29)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03C5)
-    (greek-iso8859-7   #x55)   ; \e-FÕ\e-A
+    (greek-iso8859-7   #xD5)   ; Υ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER UPSILON")
     (->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
-    (korean-ksc5601            #x25 #x54)      ; \e$(C%T\e(B
-    (chinese-cns11643-1                #x25 #x2A)      ; \e$(G%*\e(B
+    (japanese-jisx0208-1978    #x26 #x34)      ; 
+    (chinese-gb2312            #x26 #x34)      ; 
+    (japanese-jisx0208         #x26 #x34)      ; 
+    (korean-ksc5601            #x25 #x54)      ; 
+    (chinese-cns11643-1                #x25 #x2A)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER PHI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03C6)
-    (greek-iso8859-7   #x56)   ; \e-FÖ\e-A
+    (greek-iso8859-7   #xD6)   ; Φ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER PHI")
     (->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
-    (korean-ksc5601            #x25 #x55)      ; \e$(C%U\e(B
-    (chinese-cns11643-1                #x25 #x2B)      ; \e$(G%+\e(B
+    (japanese-jisx0208-1978    #x26 #x35)      ; 
+    (chinese-gb2312            #x26 #x35)      ; 
+    (japanese-jisx0208         #x26 #x35)      ; 
+    (korean-ksc5601            #x25 #x55)      ; 
+    (chinese-cns11643-1                #x25 #x2B)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER CHI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03C7)
-    (greek-iso8859-7   #x57)   ; \e-F×\e-A
+    (greek-iso8859-7   #xD7)   ; Χ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER CHI")
     (->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
-    (korean-ksc5601            #x25 #x56)      ; \e$(C%V\e(B
-    (chinese-cns11643-1                #x25 #x2C)      ; \e$(G%,\e(B
+    (japanese-jisx0208-1978    #x26 #x36)      ; 
+    (chinese-gb2312            #x26 #x36)      ; 
+    (japanese-jisx0208         #x26 #x36)      ; 
+    (korean-ksc5601            #x25 #x56)      ; 
+    (chinese-cns11643-1                #x25 #x2C)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER PSI")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03C8)
-    (greek-iso8859-7   #x58)   ; \e-FØ\e-A
+    (greek-iso8859-7   #xD8)   ; Ψ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER PSI")
     (->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
-    (korean-ksc5601            #x25 #x57)      ; \e$(C%W\e(B
-    (chinese-cns11643-1                #x25 #x2D)      ; \e$(G%-\e(B
+    (japanese-jisx0208-1978    #x26 #x37)      ; 
+    (chinese-gb2312            #x26 #x37)      ; 
+    (japanese-jisx0208         #x26 #x37)      ; 
+    (korean-ksc5601            #x25 #x57)      ; 
+    (chinese-cns11643-1                #x25 #x2D)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->lowercase       #x03C9)
-    (greek-iso8859-7   #x59)   ; \e-FÙ\e-A
+    (greek-iso8859-7   #xD9)   ; Ω
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK CAPITAL LETTER OMEGA")
     (->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
-    (korean-ksc5601            #x25 #x58)      ; \e$(C%X\e(B
-    (chinese-cns11643-1                #x25 #x2E)      ; \e$(G%.\e(B
+    (japanese-jisx0208-1978    #x26 #x38)      ; 
+    (chinese-gb2312            #x26 #x38)      ; 
+    (japanese-jisx0208         #x26 #x38)      ; 
+    (korean-ksc5601            #x25 #x58)      ; 
+    (chinese-cns11643-1                #x25 #x2E)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
     (mirrored          . nil)
     (->decomposition   #x0399 #x0308)
     (->lowercase       #x03CA)
-    (greek-iso8859-7   #x5A)   ; \e-FÚ\e-A
+    (greek-iso8859-7   #xDA)   ; Ϊ
     ))
 (define-char
   '((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
     (->decomposition   wide #x03AA)
     (->lowercase
      ((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA")))
-    (japanese-jisx0212 #x26 #x65)      ; \e$(D&e\e(B
+    (japanese-jisx0212 #x26 #x65)      ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
     (mirrored          . nil)
     (->decomposition   #x03A5 #x0308)
     (->lowercase       #x03CB)
-    (greek-iso8859-7   #x5B)   ; \e-FÛ\e-A
+    (greek-iso8859-7   #xDB)   ; Ϋ
     ))
 (define-char
   '((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
     (->decomposition   wide #x03AB)
     (->lowercase
      ((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA")))
-    (japanese-jisx0212 #x26 #x6A)      ; \e$(D&j\e(B
+    (japanese-jisx0212 #x26 #x6A)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH TONOS")
     (->decomposition   #x03B1 #x0301)
     (->uppercase       #x0386)
     (->titlecase       #x0386)
-    (greek-iso8859-7   #x5C)   ; \e-FÜ\e-A
+    (greek-iso8859-7   #xDC)   ; ά
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL LETTER ALPHA WITH TONOS")
      ((name . "FULLWIDTH GREEK CAPITAL LETTER ALPHA WITH TONOS")))
     (->titlecase
      ((name . "FULLWIDTH GREEK CAPITAL LETTER ALPHA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x71)      ; \e$(D&q\e(B
+    (japanese-jisx0212 #x26 #x71)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH TONOS")
     (->decomposition   #x03B5 #x0301)
     (->uppercase       #x0388)
     (->titlecase       #x0388)
-    (greek-iso8859-7   #x5D)   ; \e-FÝ\e-A
+    (greek-iso8859-7   #xDD)   ; έ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL LETTER EPSILON WITH TONOS")
      ((name . "FULLWIDTH GREEK CAPITAL LETTER EPSILON WITH TONOS")))
     (->titlecase
      ((name . "FULLWIDTH GREEK CAPITAL LETTER EPSILON WITH TONOS")))
-    (japanese-jisx0212 #x26 #x72)      ; \e$(D&r\e(B
+    (japanese-jisx0212 #x26 #x72)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH TONOS")
     (->decomposition   #x03B7 #x0301)
     (->uppercase       #x0389)
     (->titlecase       #x0389)
-    (greek-iso8859-7   #x5E)   ; \e-FÞ\e-A
+    (greek-iso8859-7   #xDE)   ; ή
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL LETTER ETA WITH TONOS")
      ((name . "FULLWIDTH GREEK CAPITAL LETTER ETA WITH TONOS")))
     (->titlecase
      ((name . "FULLWIDTH GREEK CAPITAL LETTER ETA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x73)      ; \e$(D&s\e(B
+    (japanese-jisx0212 #x26 #x73)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH TONOS")
     (->decomposition   #x03B9 #x0301)
     (->uppercase       #x038A)
     (->titlecase       #x038A)
-    (greek-iso8859-7   #x5F)   ; \e-Fß\e-A
+    (greek-iso8859-7   #xDF)   ; ί
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL LETTER IOTA WITH TONOS")
      ((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH TONOS")))
     (->titlecase
      ((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x74)      ; \e$(D&t\e(B
+    (japanese-jisx0212 #x26 #x74)      ; 
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CB #x0301)
-    (greek-iso8859-7   #x60)   ; \e-Fà\e-A
+    (greek-iso8859-7   #xE0)   ; ΰ
     ))
 (define-char
   '((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B0)
-    (japanese-jisx0212 #x26 #x7B)      ; \e$(D&{\e(B
+    (japanese-jisx0212 #x26 #x7B)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA")
     (mirrored          . nil)
     (->uppercase       #x0391)
     (->titlecase       #x0391)
-    (greek-iso8859-7   #x61)   ; \e-Fá\e-A
+    (greek-iso8859-7   #xE1)   ; α
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x61)      ; \e$(C%a\e(B
-    (chinese-cns11643-1                #x25 #x2F)      ; \e$(G%/\e(B
+    (japanese-jisx0208-1978    #x26 #x41)      ; 
+    (chinese-gb2312            #x26 #x41)      ; 
+    (japanese-jisx0208         #x26 #x41)      ; 
+    (korean-ksc5601            #x25 #x61)      ; 
+    (chinese-cns11643-1                #x25 #x2F)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER BETA")
     (mirrored          . nil)
     (->uppercase       #x0392)
     (->titlecase       #x0392)
-    (greek-iso8859-7   #x62)   ; \e-Fâ\e-A
+    (greek-iso8859-7   #xE2)   ; β
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x62)      ; \e$(C%b\e(B
-    (chinese-cns11643-1                #x25 #x30)      ; \e$(G%0\e(B
+    (japanese-jisx0208-1978    #x26 #x42)      ; 
+    (chinese-gb2312            #x26 #x42)      ; 
+    (japanese-jisx0208         #x26 #x42)      ; 
+    (korean-ksc5601            #x25 #x62)      ; 
+    (chinese-cns11643-1                #x25 #x30)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER GAMMA")
     (mirrored          . nil)
     (->uppercase       #x0393)
     (->titlecase       #x0393)
-    (greek-iso8859-7   #x63)   ; \e-Fã\e-A
+    (greek-iso8859-7   #xE3)   ; γ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x63)      ; \e$(C%c\e(B
-    (chinese-cns11643-1                #x25 #x31)      ; \e$(G%1\e(B
+    (japanese-jisx0208-1978    #x26 #x43)      ; 
+    (chinese-gb2312            #x26 #x43)      ; 
+    (japanese-jisx0208         #x26 #x43)      ; 
+    (korean-ksc5601            #x25 #x63)      ; 
+    (chinese-cns11643-1                #x25 #x31)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER DELTA")
     (mirrored          . nil)
     (->uppercase       #x0394)
     (->titlecase       #x0394)
-    (greek-iso8859-7   #x64)   ; \e-Fä\e-A
+    (greek-iso8859-7   #xE4)   ; δ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x64)      ; \e$(C%d\e(B
-    (chinese-cns11643-1                #x25 #x32)      ; \e$(G%2\e(B
+    (japanese-jisx0208-1978    #x26 #x44)      ; 
+    (chinese-gb2312            #x26 #x44)      ; 
+    (japanese-jisx0208         #x26 #x44)      ; 
+    (korean-ksc5601            #x25 #x64)      ; 
+    (chinese-cns11643-1                #x25 #x32)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON")
     (mirrored          . nil)
     (->uppercase       #x0395)
     (->titlecase       #x0395)
-    (greek-iso8859-7   #x65)   ; \e-Få\e-A
+    (greek-iso8859-7   #xE5)   ; ε
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x65)      ; \e$(C%e\e(B
-    (chinese-cns11643-1                #x25 #x33)      ; \e$(G%3\e(B
+    (japanese-jisx0208-1978    #x26 #x45)      ; 
+    (chinese-gb2312            #x26 #x45)      ; 
+    (japanese-jisx0208         #x26 #x45)      ; 
+    (korean-ksc5601            #x25 #x65)      ; 
+    (chinese-cns11643-1                #x25 #x33)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ZETA")
     (mirrored          . nil)
     (->uppercase       #x0396)
     (->titlecase       #x0396)
-    (greek-iso8859-7   #x66)   ; \e-Fæ\e-A
+    (greek-iso8859-7   #xE6)   ; ζ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x66)      ; \e$(C%f\e(B
-    (chinese-cns11643-1                #x25 #x34)      ; \e$(G%4\e(B
+    (japanese-jisx0208-1978    #x26 #x46)      ; 
+    (chinese-gb2312            #x26 #x46)      ; 
+    (japanese-jisx0208         #x26 #x46)      ; 
+    (korean-ksc5601            #x25 #x66)      ; 
+    (chinese-cns11643-1                #x25 #x34)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA")
     (mirrored          . nil)
     (->uppercase       #x0397)
     (->titlecase       #x0397)
-    (greek-iso8859-7   #x67)   ; \e-Fç\e-A
+    (greek-iso8859-7   #xE7)   ; η
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x67)      ; \e$(C%g\e(B
-    (chinese-cns11643-1                #x25 #x35)      ; \e$(G%5\e(B
+    (japanese-jisx0208-1978    #x26 #x47)      ; 
+    (chinese-gb2312            #x26 #x47)      ; 
+    (japanese-jisx0208         #x26 #x47)      ; 
+    (korean-ksc5601            #x25 #x67)      ; 
+    (chinese-cns11643-1                #x25 #x35)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER THETA")
     (mirrored          . nil)
     (->uppercase       #x0398)
     (->titlecase       #x0398)
-    (greek-iso8859-7   #x68)   ; \e-Fè\e-A
-    (ipa               #x48)   ; \e-0È\e-A
+    (greek-iso8859-7   #xE8)   ; θ
+    (ipa               #xC8)   ; 
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x68)      ; \e$(C%h\e(B
-    (chinese-cns11643-1                #x25 #x36)      ; \e$(G%6\e(B
+    (japanese-jisx0208-1978    #x26 #x48)      ; 
+    (chinese-gb2312            #x26 #x48)      ; 
+    (japanese-jisx0208         #x26 #x48)      ; 
+    (korean-ksc5601            #x25 #x68)      ; 
+    (chinese-cns11643-1                #x25 #x36)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA")
     (mirrored          . nil)
     (->uppercase       #x0399)
     (->titlecase       #x0399)
-    (greek-iso8859-7   #x69)   ; \e-Fé\e-A
+    (greek-iso8859-7   #xE9)   ; ι
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x69)      ; \e$(C%i\e(B
-    (chinese-cns11643-1                #x25 #x37)      ; \e$(G%7\e(B
+    (japanese-jisx0208-1978    #x26 #x49)      ; 
+    (chinese-gb2312            #x26 #x49)      ; 
+    (japanese-jisx0208         #x26 #x49)      ; 
+    (korean-ksc5601            #x25 #x69)      ; 
+    (chinese-cns11643-1                #x25 #x37)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER KAPPA")
     (mirrored          . nil)
     (->uppercase       #x039A)
     (->titlecase       #x039A)
-    (greek-iso8859-7   #x6A)   ; \e-Fê\e-A
+    (greek-iso8859-7   #xEA)   ; κ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL LETTER KAPPA")
     (->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
-    (korean-ksc5601            #x25 #x6A)      ; \e$(C%j\e(B
-    (chinese-cns11643-1                #x25 #x38)      ; \e$(G%8\e(B
+    (japanese-jisx0208-1978    #x26 #x4A)      ; 
+    (chinese-gb2312            #x26 #x4A)      ; 
+    (japanese-jisx0208         #x26 #x4A)      ; 
+    (korean-ksc5601            #x25 #x6A)      ; 
+    (chinese-cns11643-1                #x25 #x38)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER LAMDA")
     (mirrored          . nil)
     (->uppercase       #x039B)
     (->titlecase       #x039B)
-    (greek-iso8859-7   #x6B)   ; \e-Fë\e-A
+    (greek-iso8859-7   #xEB)   ; λ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x6B)      ; \e$(C%k\e(B
-    (chinese-cns11643-1                #x25 #x39)      ; \e$(G%9\e(B
+    (japanese-jisx0208-1978    #x26 #x4B)      ; 
+    (chinese-gb2312            #x26 #x4B)      ; 
+    (japanese-jisx0208         #x26 #x4B)      ; 
+    (korean-ksc5601            #x25 #x6B)      ; 
+    (chinese-cns11643-1                #x25 #x39)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER MU")
     (mirrored          . nil)
     (->uppercase       #x039C)
     (->titlecase       #x039C)
-    (greek-iso8859-7   #x6C)   ; \e-Fì\e-A
+    (greek-iso8859-7   #xEC)   ; μ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x6C)      ; \e$(C%l\e(B
-    (chinese-cns11643-1                #x25 #x3A)      ; \e$(G%:\e(B
+    (japanese-jisx0208-1978    #x26 #x4C)      ; 
+    (chinese-gb2312            #x26 #x4C)      ; 
+    (japanese-jisx0208         #x26 #x4C)      ; 
+    (korean-ksc5601            #x25 #x6C)      ; 
+    (chinese-cns11643-1                #x25 #x3A)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER NU")
     (mirrored          . nil)
     (->uppercase       #x039D)
     (->titlecase       #x039D)
-    (greek-iso8859-7   #x6D)   ; \e-Fí\e-A
+    (greek-iso8859-7   #xED)   ; ν
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x6D)      ; \e$(C%m\e(B
-    (chinese-cns11643-1                #x25 #x3B)      ; \e$(G%;\e(B
+    (japanese-jisx0208-1978    #x26 #x4D)      ; 
+    (chinese-gb2312            #x26 #x4D)      ; 
+    (japanese-jisx0208         #x26 #x4D)      ; 
+    (korean-ksc5601            #x25 #x6D)      ; 
+    (chinese-cns11643-1                #x25 #x3B)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER XI")
     (mirrored          . nil)
     (->uppercase       #x039E)
     (->titlecase       #x039E)
-    (greek-iso8859-7   #x6E)   ; \e-Fî\e-A
+    (greek-iso8859-7   #xEE)   ; ξ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x6E)      ; \e$(C%n\e(B
-    (chinese-cns11643-1                #x25 #x3C)      ; \e$(G%<\e(B
+    (japanese-jisx0208-1978    #x26 #x4E)      ; 
+    (chinese-gb2312            #x26 #x4E)      ; 
+    (japanese-jisx0208         #x26 #x4E)      ; 
+    (korean-ksc5601            #x25 #x6E)      ; 
+    (chinese-cns11643-1                #x25 #x3C)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON")
     (mirrored          . nil)
     (->uppercase       #x039F)
     (->titlecase       #x039F)
-    (greek-iso8859-7   #x6F)   ; \e-Fï\e-A
+    (greek-iso8859-7   #xEF)   ; ο
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x6F)      ; \e$(C%o\e(B
-    (chinese-cns11643-1                #x25 #x3D)      ; \e$(G%=\e(B
+    (japanese-jisx0208-1978    #x26 #x4F)      ; 
+    (chinese-gb2312            #x26 #x4F)      ; 
+    (japanese-jisx0208         #x26 #x4F)      ; 
+    (korean-ksc5601            #x25 #x6F)      ; 
+    (chinese-cns11643-1                #x25 #x3D)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER PI")
     (mirrored          . nil)
     (->uppercase       #x03A0)
     (->titlecase       #x03A0)
-    (greek-iso8859-7   #x70)   ; \e-Fð\e-A
+    (greek-iso8859-7   #xF0)   ; π
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x70)      ; \e$(C%p\e(B
-    (chinese-cns11643-1                #x25 #x3E)      ; \e$(G%>\e(B
+    (japanese-jisx0208-1978    #x26 #x50)      ; 
+    (chinese-gb2312            #x26 #x50)      ; 
+    (japanese-jisx0208         #x26 #x50)      ; 
+    (korean-ksc5601            #x25 #x70)      ; 
+    (chinese-cns11643-1                #x25 #x3E)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER RHO")
     (mirrored          . nil)
     (->uppercase       #x03A1)
     (->titlecase       #x03A1)
-    (greek-iso8859-7   #x71)   ; \e-Fñ\e-A
+    (greek-iso8859-7   #xF1)   ; ρ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x71)      ; \e$(C%q\e(B
-    (chinese-cns11643-1                #x25 #x3F)      ; \e$(G%?\e(B
+    (japanese-jisx0208-1978    #x26 #x51)      ; 
+    (chinese-gb2312            #x26 #x51)      ; 
+    (japanese-jisx0208         #x26 #x51)      ; 
+    (korean-ksc5601            #x25 #x71)      ; 
+    (chinese-cns11643-1                #x25 #x3F)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER FINAL SIGMA")
     (mirrored          . nil)
     (->uppercase       #x03A3)
     (->titlecase       #x03A3)
-    (greek-iso8859-7   #x72)   ; \e-Fò\e-A
+    (greek-iso8859-7           #xF2)   ; ς
+    (japanese-jisx0213-1       #x26 #x59)      ; ς
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL LETTER FINAL SIGMA")
      ((name . "FULLWIDTH GREEK CAPITAL LETTER FINAL SIGMA")))
     (->titlecase
      ((name . "FULLWIDTH GREEK CAPITAL LETTER FINAL SIGMA")))
-    (japanese-jisx0212 #x26 #x78)      ; \e$(D&x\e(B
+    (japanese-jisx0212 #x26 #x78)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER SIGMA")
     (mirrored          . nil)
     (->uppercase       #x03A3)
     (->titlecase       #x03A3)
-    (greek-iso8859-7   #x73)   ; \e-Fó\e-A
+    (greek-iso8859-7   #xF3)   ; σ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x72)      ; \e$(C%r\e(B
-    (chinese-cns11643-1                #x25 #x40)      ; \e$(G%@\e(B
+    (japanese-jisx0208-1978    #x26 #x52)      ; 
+    (chinese-gb2312            #x26 #x52)      ; 
+    (japanese-jisx0208         #x26 #x52)      ; 
+    (korean-ksc5601            #x25 #x72)      ; 
+    (chinese-cns11643-1                #x25 #x40)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER TAU")
     (mirrored          . nil)
     (->uppercase       #x03A4)
     (->titlecase       #x03A4)
-    (greek-iso8859-7   #x74)   ; \e-Fô\e-A
+    (greek-iso8859-7   #xF4)   ; τ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x73)      ; \e$(C%s\e(B
-    (chinese-cns11643-1                #x25 #x41)      ; \e$(G%A\e(B
+    (japanese-jisx0208-1978    #x26 #x53)      ; 
+    (chinese-gb2312            #x26 #x53)      ; 
+    (japanese-jisx0208         #x26 #x53)      ; 
+    (korean-ksc5601            #x25 #x73)      ; 
+    (chinese-cns11643-1                #x25 #x41)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON")
     (mirrored          . nil)
     (->uppercase       #x03A5)
     (->titlecase       #x03A5)
-    (greek-iso8859-7   #x75)   ; \e-Fõ\e-A
+    (greek-iso8859-7   #xF5)   ; υ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x74)      ; \e$(C%t\e(B
-    (chinese-cns11643-1                #x25 #x42)      ; \e$(G%B\e(B
+    (japanese-jisx0208-1978    #x26 #x54)      ; 
+    (chinese-gb2312            #x26 #x54)      ; 
+    (japanese-jisx0208         #x26 #x54)      ; 
+    (korean-ksc5601            #x25 #x74)      ; 
+    (chinese-cns11643-1                #x25 #x42)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER PHI")
     (mirrored          . nil)
     (->uppercase       #x03A6)
     (->titlecase       #x03A6)
-    (greek-iso8859-7   #x76)   ; \e-Fö\e-A
+    (greek-iso8859-7   #xF6)   ; φ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x75)      ; \e$(C%u\e(B
-    (chinese-cns11643-1                #x25 #x43)      ; \e$(G%C\e(B
+    (japanese-jisx0208-1978    #x26 #x55)      ; 
+    (chinese-gb2312            #x26 #x55)      ; 
+    (japanese-jisx0208         #x26 #x55)      ; 
+    (korean-ksc5601            #x25 #x75)      ; 
+    (chinese-cns11643-1                #x25 #x43)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER CHI")
     (mirrored          . nil)
     (->uppercase       #x03A7)
     (->titlecase       #x03A7)
-    (greek-iso8859-7   #x77)   ; \e-F÷\e-A
+    (greek-iso8859-7   #xF7)   ; χ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x76)      ; \e$(C%v\e(B
-    (chinese-cns11643-1                #x25 #x44)      ; \e$(G%D\e(B
+    (japanese-jisx0208-1978    #x26 #x56)      ; 
+    (chinese-gb2312            #x26 #x56)      ; 
+    (japanese-jisx0208         #x26 #x56)      ; 
+    (korean-ksc5601            #x25 #x76)      ; 
+    (chinese-cns11643-1                #x25 #x44)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER PSI")
     (mirrored          . nil)
     (->uppercase       #x03A8)
     (->titlecase       #x03A8)
-    (greek-iso8859-7   #x78)   ; \e-Fø\e-A
+    (greek-iso8859-7   #xF8)   ; ψ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x77)      ; \e$(C%w\e(B
-    (chinese-cns11643-1                #x25 #x45)      ; \e$(G%E\e(B
+    (japanese-jisx0208-1978    #x26 #x57)      ; 
+    (chinese-gb2312            #x26 #x57)      ; 
+    (japanese-jisx0208         #x26 #x57)      ; 
+    (korean-ksc5601            #x25 #x77)      ; 
+    (chinese-cns11643-1                #x25 #x45)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA")
     (mirrored          . nil)
     (->uppercase       #x03A9)
     (->titlecase       #x03A9)
-    (greek-iso8859-7   #x79)   ; \e-Fù\e-A
+    (greek-iso8859-7   #xF9)   ; ω
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL 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
-    (korean-ksc5601            #x25 #x78)      ; \e$(C%x\e(B
-    (chinese-cns11643-1                #x25 #x46)      ; \e$(G%F\e(B
+    (japanese-jisx0208-1978    #x26 #x58)      ; 
+    (chinese-gb2312            #x26 #x58)      ; 
+    (japanese-jisx0208         #x26 #x58)      ; 
+    (korean-ksc5601            #x25 #x78)      ; 
+    (chinese-cns11643-1                #x25 #x46)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
     (->decomposition   #x03B9 #x0308)
     (->uppercase       #x03AA)
     (->titlecase       #x03AA)
-    (greek-iso8859-7   #x7A)   ; \e-Fú\e-A
+    (greek-iso8859-7   #xFA)   ; ϊ
     ))
 (define-char
   '((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA")
      ((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")))
     (->titlecase
      ((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")))
-    (japanese-jisx0212 #x26 #x75)      ; \e$(D&u\e(B
+    (japanese-jisx0212 #x26 #x75)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
     (->decomposition   #x03C5 #x0308)
     (->uppercase       #x03AB)
     (->titlecase       #x03AB)
-    (greek-iso8859-7   #x7B)   ; \e-Fû\e-A
+    (greek-iso8859-7   #xFB)   ; ϋ
     ))
 (define-char
   '((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
      ((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")))
     (->titlecase
      ((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")))
-    (japanese-jisx0212 #x26 #x7A)      ; \e$(D&z\e(B
+    (japanese-jisx0212 #x26 #x7A)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH TONOS")
     (->decomposition   #x03BF #x0301)
     (->uppercase       #x038C)
     (->titlecase       #x038C)
-    (greek-iso8859-7   #x7C)   ; \e-Fü\e-A
+    (greek-iso8859-7   #xFC)   ; ό
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL LETTER OMICRON WITH TONOS")
      ((name . "FULLWIDTH GREEK CAPITAL LETTER OMICRON WITH TONOS")))
     (->titlecase
      ((name . "FULLWIDTH GREEK CAPITAL LETTER OMICRON WITH TONOS")))
-    (japanese-jisx0212 #x26 #x77)      ; \e$(D&w\e(B
+    (japanese-jisx0212 #x26 #x77)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH TONOS")
     (->decomposition   #x03C5 #x0301)
     (->uppercase       #x038E)
     (->titlecase       #x038E)
-    (greek-iso8859-7   #x7D)   ; \e-Fý\e-A
+    (greek-iso8859-7   #xFD)   ; ύ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH TONOS")
      ((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH TONOS")))
     (->titlecase
      ((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH TONOS")))
-    (japanese-jisx0212 #x26 #x79)      ; \e$(D&y\e(B
+    (japanese-jisx0212 #x26 #x79)      ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH TONOS")
     (->decomposition   #x03C9 #x0301)
     (->uppercase       #x038F)
     (->titlecase       #x038F)
-    (greek-iso8859-7   #x7E)   ; \e-Fþ\e-A
+    (greek-iso8859-7   #xFE)   ; ώ
     ))
 (define-char
   '((name              . "FULLWIDTH GREEK SMALL LETTER OMEGA WITH TONOS")
      ((name . "FULLWIDTH GREEK CAPITAL LETTER OMEGA WITH TONOS")))
     (->titlecase
      ((name . "FULLWIDTH GREEK CAPITAL LETTER OMEGA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x7C)      ; \e$(D&|\e(B
+    (japanese-jisx0212 #x26 #x7C)      ; 
     ))
 (define-char
   '((name              . "GREEK BETA SYMBOL")