Add mappings for Big5 code points.
[chise/xemacs-chise.git-] / lisp / utf-2000 / u00370-Greek.el
index b840dba..ee90f0c 100644 (file)
 (define-char
   '((name              . "GREEK NUMERAL SIGN")
-    (ucs               . #x0374)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (iso-10646-comment . "Dexia keraia")
     (->decomposition   #x02B9)
+    (ucs               . #x0374)       ; ʹ
     ))
 (define-char
   '((name              . "GREEK LOWER NUMERAL SIGN")
-    (ucs               . #x0375)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (iso-10646-comment . "Aristeri keraia")
+    (ucs               . #x0375)       ; ͵
     ))
 (define-char
   '((name              . "GREEK YPOGEGRAMMENI")
-    (ucs               . #x037A)
     (general-category  letter modifier) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0345)
+    (ucs               . #x037A)       ; ͺ
     ))
 (define-char
   '((name              . "GREEK QUESTION MARK")
-    (ucs               . #x037E)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (iso-10646-comment . "Erotimatiko")
     (->decomposition   #x003B)
+    (ucs               . #x037E)       ; ;
     ))
 (define-char
   '((name              . "GREEK TONOS")
-    (ucs               . #x0384)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   compat #x0020 #x0301)
-    (greek-iso8859-7   #x34)   ; \e-F´\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek tonos")
+      (japanese-jisx0212  . #x2238)    ; 
+      ))
+    (greek-iso8859-7   . #xB4) ; 
+    (ucs               . #x0384)       ; ΄
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK TONOS")
-    (->ucs             . #x0384)
+  '((name              . "fullwidth greek tonos")
+    (=>ucs             . #x0384)       ; ΄
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   wide #x0384)
-    (japanese-jisx0212 #x22 #x38)      ; \e$(D"8\e(B
+    (<-fullwidth
+     ((name              . "GREEK TONOS")
+      (ucs               . #x0384)     ; ΄
+      ))
+    (japanese-jisx0212 . #x2238)       ; 
     ))
 (define-char
   '((name              . "GREEK DIALYTIKA TONOS")
-    (ucs               . #x0385)
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x00A8 #x0301)
-    (greek-iso8859-7   #x35)   ; \e-Fµ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek dialytika tonos")
+      (japanese-jisx0212  . #x2239)    ; 
+      ))
+    (greek-iso8859-7   . #xB5) ; 
+    (ucs               . #x0385)       ; ΅
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK DIALYTIKA TONOS")
-    (->ucs             . #x0385)
+  '((name              . "fullwidth greek dialytika tonos")
+    (=>ucs             . #x0385)       ; ΅
     (general-category  symbol modifier) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   wide #x0385)
-    (japanese-jisx0212 #x22 #x39)      ; \e$(D"9\e(B
+    (<-fullwidth
+     ((name              . "GREEK DIALYTIKA TONOS")
+      (ucs               . #x0385)     ; ΅
+      ))
+    (japanese-jisx0212 . #x2239)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
-    (ucs               . #x0386)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0391 #x0301)
-    (->lowercase       #x03AC)
-    (greek-iso8859-7   #x36)   ; \e-F¶\e-A
+    (->fullwidth
+     ((name . "fullwidth greek capital letter alpha with tonos")
+      (japanese-jisx0212  . #x2661)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA WITH TONOS")
+      (ucs               . #x03AC)     ; ά
+      ))
+    (greek-iso8859-7   . #xB6) ; 
+    (ucs               . #x0386)       ; Ά
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER ALPHA WITH TONOS")
-    (->ucs             . #x0386)
+  '((name . "fullwidth greek capital letter alpha with tonos")
+    (=>ucs             . #x0386)       ; Ά
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x0386)
     (->lowercase
-     ((name . "FULLWIDTH GREEK SMALL LETTER ALPHA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x61)      ; \e$(D&a\e(B
+     ((name . "fullwidth greek small letter alpha with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
+      (ucs               . #x0386)     ; Ά
+      ))
+    (japanese-jisx0212 . #x2661)       ; 
     ))
 (define-char
   '((name              . "GREEK ANO TELEIA")
-    (ucs               . #x0387)
     (general-category  punctuation other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   #x00B7)
+    (ucs               . #x0387)       ; ·
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
-    (ucs               . #x0388)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0395 #x0301)
-    (->lowercase       #x03AD)
-    (greek-iso8859-7   #x38)   ; \e-F¸\e-A
+    (->fullwidth
+     ((name . "fullwidth greek capital letter epsilon with tonos")
+      (japanese-jisx0212  . #x2662)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON WITH TONOS")
+      (ucs               . #x03AD)     ; έ
+      ))
+    (greek-iso8859-7   . #xB8) ; 
+    (ucs               . #x0388)       ; Έ
     ))
 (define-char
-  '((name . "FULLWIDTH GREEK CAPITAL LETTER EPSILON WITH TONOS")
-    (->ucs             . #x0388)
+  '((name . "fullwidth greek capital letter epsilon with tonos")
+    (=>ucs             . #x0388)       ; Έ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x0388)
     (->lowercase
-     ((name . "FULLWIDTH GREEK SMALL LETTER EPSILON WITH TONOS")))
-    (japanese-jisx0212 #x26 #x62)      ; \e$(D&b\e(B
+     ((name . "fullwidth greek small letter epsilon with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
+      (ucs               . #x0388)     ; Έ
+      ))
+    (japanese-jisx0212 . #x2662)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH TONOS")
-    (ucs               . #x0389)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0397 #x0301)
-    (->lowercase       #x03AE)
-    (greek-iso8859-7   #x39)   ; \e-F¹\e-A
+    (->fullwidth
+     ((name . "fullwidth greek capital letter eta with tonos")
+      (japanese-jisx0212  . #x2663)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA WITH TONOS")
+      (ucs               . #x03AE)     ; ή
+      ))
+    (greek-iso8859-7   . #xB9) ; 
+    (ucs               . #x0389)       ; Ή
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER ETA WITH TONOS")
-    (->ucs             . #x0389)
+  '((name . "fullwidth greek capital letter eta with tonos")
+    (=>ucs             . #x0389)       ; Ή
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x0389)
     (->lowercase
-     ((name . "FULLWIDTH GREEK SMALL LETTER ETA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x63)      ; \e$(D&c\e(B
+     ((name . "fullwidth greek small letter eta with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER ETA WITH TONOS")
+      (ucs               . #x0389)     ; Ή
+      ))
+    (japanese-jisx0212 . #x2663)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH TONOS")
-    (ucs               . #x038A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0399 #x0301)
-    (->lowercase       #x03AF)
-    (greek-iso8859-7   #x3A)   ; \e-Fº\e-A
+    (->fullwidth
+     ((name . "fullwidth greek capital letter iota with tonos")
+      (japanese-jisx0212  . #x2664)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH TONOS")
+      (ucs               . #x03AF)     ; ί
+      ))
+    (greek-iso8859-7   . #xBA) ; 
+    (ucs               . #x038A)       ; Ί
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH TONOS")
-    (->ucs             . #x038A)
+  '((name . "fullwidth greek capital letter iota with tonos")
+    (=>ucs             . #x038A)       ; Ί
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x038A)
     (->lowercase
-     ((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x64)      ; \e$(D&d\e(B
+     ((name . "fullwidth greek small letter iota with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH TONOS")
+      (ucs               . #x038A)     ; Ί
+      ))
+    (japanese-jisx0212 . #x2664)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
-    (ucs               . #x038C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x039F #x0301)
-    (->lowercase       #x03CC)
-    (greek-iso8859-7   #x3C)   ; \e-F¼\e-A
+    (->fullwidth
+     ((name . "fullwidth greek capital letter omicron with tonos")
+      (japanese-jisx0212  . #x2667)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON WITH TONOS")
+      (ucs               . #x03CC)     ; ό
+      ))
+    (greek-iso8859-7   . #xBC) ; 
+    (ucs               . #x038C)       ; Ό
     ))
 (define-char
-  '((name . "FULLWIDTH GREEK CAPITAL LETTER OMICRON WITH TONOS")
-    (->ucs             . #x038C)
+  '((name . "fullwidth greek capital letter omicron with tonos")
+    (=>ucs             . #x038C)       ; Ό
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x038C)
     (->lowercase
-     ((name . "FULLWIDTH GREEK SMALL LETTER OMICRON WITH TONOS")))
-    (japanese-jisx0212 #x26 #x67)      ; \e$(D&g\e(B
+     ((name . "fullwidth greek small letter omicron with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
+      (ucs               . #x038C)     ; Ό
+      ))
+    (japanese-jisx0212 . #x2667)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
-    (ucs               . #x038E)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A5 #x0301)
-    (->lowercase       #x03CD)
-    (greek-iso8859-7   #x3E)   ; \e-F¾\e-A
+    (->fullwidth
+     ((name . "fullwidth greek capital letter upsilon with tonos")
+      (japanese-jisx0212  . #x2669)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH TONOS")
+      (ucs               . #x03CD)     ; ύ
+      ))
+    (greek-iso8859-7   . #xBE) ; 
+    (ucs               . #x038E)       ; Ύ
     ))
 (define-char
-  '((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH TONOS")
-    (->ucs             . #x038E)
+  '((name . "fullwidth greek capital letter upsilon with tonos")
+    (=>ucs             . #x038E)       ; Ύ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x038E)
     (->lowercase
-     ((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH TONOS")))
-    (japanese-jisx0212 #x26 #x69)      ; \e$(D&i\e(B
+     ((name . "fullwidth greek small letter upsilon with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
+      (ucs               . #x038E)     ; Ύ
+      ))
+    (japanese-jisx0212 . #x2669)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
-    (ucs               . #x038F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A9 #x0301)
-    (->lowercase       #x03CE)
-    (greek-iso8859-7   #x3F)   ; \e-F¿\e-A
+    (->fullwidth
+     ((name . "fullwidth greek capital letter omega with tonos")
+      (japanese-jisx0212  . #x266C)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA WITH TONOS")
+      (ucs               . #x03CE)     ; ώ
+      ))
+    (greek-iso8859-7   . #xBF) ; 
+    (ucs               . #x038F)       ; Ώ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER OMEGA WITH TONOS")
-    (->ucs             . #x038F)
+  '((name . "fullwidth greek capital letter omega with tonos")
+    (=>ucs             . #x038F)       ; Ώ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x038F)
     (->lowercase
-     ((name . "FULLWIDTH GREEK SMALL LETTER OMEGA WITH TONOS")))
-    (japanese-jisx0212 #x26 #x6C)      ; \e$(D&l\e(B
+     ((name . "fullwidth greek small letter omega with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
+      (ucs               . #x038F)     ; Ώ
+      ))
+    (japanese-jisx0212 . #x266C)       ; 
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
-    (ucs               . #x0390)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CA #x0301)
-    (greek-iso8859-7   #x40)   ; \e-FÀ\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter iota with dialytika and tonos")
+      (japanese-jisx0212  . #x2676)    ; 
+      ))
+    (greek-iso8859-7   . #xC0) ; 
+    (ucs               . #x0390)       ; ΐ
     ))
 (define-char
-  '((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
-    (->ucs             . #x0390)
+  '((name . "fullwidth greek small letter iota with dialytika and tonos")
+    (=>ucs             . #x0390)       ; ΐ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x0390)
-    (japanese-jisx0212 #x26 #x76)      ; \e$(D&v\e(B
+    (<-fullwidth
+     ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
+      (ucs               . #x0390)     ; ΐ
+      ))
+    (japanese-jisx0212 . #x2676)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA")
-    (ucs               . #x0391)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03B1)
-    (greek-iso8859-7   #x41)   ; \e-FÁ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter alpha")
+      (chinese-gb2312    . #x2621)     ; 
+      (korean-ksc5601    . #x2541)     ; 
+      (chinese-cns11643-1 . #x2475)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ALPHA")
+      (ucs               . #x03B1)     ; α
+      ))
+    (greek-iso8859-7   . #xC1) ; 
+    (ucs               . #x0391)       ; Α
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER ALPHA")
-    (->ucs             . #x0391)
+  '((name              . "fullwidth greek capital letter alpha")
+    (=>ucs             . #x0391)       ; Α
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x41)      ; \e$(C%A\e(B
-    (chinese-cns11643-1                #x24 #x75)      ; \e$(G$u\e(B
+     ((name              . "fullwidth greek small letter alpha")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER ALPHA")
+      (ucs               . #x0391)     ; Α
+      ))
+    (chinese-gb2312    . #x2621)       ; 
+    (=jis-x0208                . #x2621)       ; 
+    (korean-ksc5601    . #x2541)       ; 
+    (chinese-cns11643-1 . #x2475)      ; 
+    (chinese-big5      . #xA344)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER BETA")
-    (ucs               . #x0392)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03B2)
-    (greek-iso8859-7   #x42)   ; \e-FÂ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter beta")
+      (chinese-gb2312    . #x2622)     ; 
+      (korean-ksc5601    . #x2542)     ; 
+      (chinese-cns11643-1 . #x2476)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER BETA")
+      (ucs               . #x03B2)     ; β
+      ))
+    (greek-iso8859-7   . #xC2) ; 
+    (ucs               . #x0392)       ; Β
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER BETA")
-    (->ucs             . #x0392)
+  '((name              . "fullwidth greek capital letter beta")
+    (=>ucs             . #x0392)       ; Β
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x42)      ; \e$(C%B\e(B
-    (chinese-cns11643-1                #x24 #x76)      ; \e$(G$v\e(B
+     ((name              . "fullwidth greek small letter beta")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER BETA")
+      (ucs               . #x0392)     ; Β
+      ))
+    (chinese-gb2312    . #x2622)       ; 
+    (=jis-x0208                . #x2622)       ; 
+    (korean-ksc5601    . #x2542)       ; 
+    (chinese-cns11643-1 . #x2476)      ; 
+    (chinese-big5      . #xA345)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER GAMMA")
-    (ucs               . #x0393)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03B3)
-    (greek-iso8859-7   #x43)   ; \e-FÃ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter gamma")
+      (chinese-gb2312    . #x2623)     ; 
+      (korean-ksc5601    . #x2543)     ; 
+      (chinese-cns11643-1 . #x2477)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER GAMMA")
+      (ucs               . #x03B3)     ; γ
+      ))
+    (greek-iso8859-7   . #xC3) ; 
+    (ucs               . #x0393)       ; Γ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER GAMMA")
-    (->ucs             . #x0393)
+  '((name              . "fullwidth greek capital letter gamma")
+    (=>ucs             . #x0393)       ; Γ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x43)      ; \e$(C%C\e(B
-    (chinese-cns11643-1                #x24 #x77)      ; \e$(G$w\e(B
+     ((name              . "fullwidth greek small letter gamma")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER GAMMA")
+      (ucs               . #x0393)     ; Γ
+      ))
+    (chinese-gb2312    . #x2623)       ; 
+    (=jis-x0208                . #x2623)       ; 
+    (korean-ksc5601    . #x2543)       ; 
+    (chinese-cns11643-1 . #x2477)      ; 
+    (chinese-big5      . #xA346)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER DELTA")
-    (ucs               . #x0394)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03B4)
-    (greek-iso8859-7   #x44)   ; \e-FÄ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter delta")
+      (chinese-gb2312    . #x2624)     ; 
+      (korean-ksc5601    . #x2544)     ; 
+      (chinese-cns11643-1 . #x2478)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER DELTA")
+      (ucs               . #x03B4)     ; δ
+      ))
+    (greek-iso8859-7   . #xC4) ; 
+    (ucs               . #x0394)       ; Δ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER DELTA")
-    (->ucs             . #x0394)
+  '((name              . "fullwidth greek capital letter delta")
+    (=>ucs             . #x0394)       ; Δ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x44)      ; \e$(C%D\e(B
-    (chinese-cns11643-1                #x24 #x78)      ; \e$(G$x\e(B
+     ((name              . "fullwidth greek small letter delta")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER DELTA")
+      (ucs               . #x0394)     ; Δ
+      ))
+    (chinese-gb2312    . #x2624)       ; 
+    (=jis-x0208                . #x2624)       ; 
+    (korean-ksc5601    . #x2544)       ; 
+    (chinese-cns11643-1 . #x2478)      ; 
+    (chinese-big5      . #xA347)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON")
-    (ucs               . #x0395)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03B5)
-    (greek-iso8859-7   #x45)   ; \e-FÅ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter epsilon")
+      (chinese-gb2312    . #x2625)     ; 
+      (korean-ksc5601    . #x2545)     ; 
+      (chinese-cns11643-1 . #x2479)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER EPSILON")
+      (ucs               . #x03B5)     ; ε
+      ))
+    (greek-iso8859-7   . #xC5) ; 
+    (ucs               . #x0395)       ; Ε
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER EPSILON")
-    (->ucs             . #x0395)
+  '((name              . "fullwidth greek capital letter epsilon")
+    (=>ucs             . #x0395)       ; Ε
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x45)      ; \e$(C%E\e(B
-    (chinese-cns11643-1                #x24 #x79)      ; \e$(G$y\e(B
+     ((name              . "fullwidth greek small letter epsilon")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER EPSILON")
+      (ucs               . #x0395)     ; Ε
+      ))
+    (chinese-gb2312    . #x2625)       ; 
+    (=jis-x0208                . #x2625)       ; 
+    (korean-ksc5601    . #x2545)       ; 
+    (chinese-cns11643-1 . #x2479)      ; 
+    (chinese-big5      . #xA348)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ZETA")
-    (ucs               . #x0396)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03B6)
-    (greek-iso8859-7   #x46)   ; \e-FÆ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter zeta")
+      (chinese-gb2312    . #x2626)     ; 
+      (korean-ksc5601    . #x2546)     ; 
+      (chinese-cns11643-1 . #x247A)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ZETA")
+      (ucs               . #x03B6)     ; ζ
+      ))
+    (greek-iso8859-7   . #xC6) ; 
+    (ucs               . #x0396)       ; Ζ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER ZETA")
-    (->ucs             . #x0396)
+  '((name              . "fullwidth greek capital letter zeta")
+    (=>ucs             . #x0396)       ; Ζ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x46)      ; \e$(C%F\e(B
-    (chinese-cns11643-1                #x24 #x7A)      ; \e$(G$z\e(B
+     ((name              . "fullwidth greek small letter zeta")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER ZETA")
+      (ucs               . #x0396)     ; Ζ
+      ))
+    (chinese-gb2312    . #x2626)       ; 
+    (=jis-x0208                . #x2626)       ; 
+    (korean-ksc5601    . #x2546)       ; 
+    (chinese-cns11643-1 . #x247A)      ; 
+    (chinese-big5      . #xA349)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA")
-    (ucs               . #x0397)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03B7)
-    (greek-iso8859-7   #x47)   ; \e-FÇ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter eta")
+      (chinese-gb2312    . #x2627)     ; 
+      (korean-ksc5601    . #x2547)     ; 
+      (chinese-cns11643-1 . #x247B)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER ETA")
+      (ucs               . #x03B7)     ; η
+      ))
+    (greek-iso8859-7   . #xC7) ; 
+    (ucs               . #x0397)       ; Η
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER ETA")
-    (->ucs             . #x0397)
+  '((name              . "fullwidth greek capital letter eta")
+    (=>ucs             . #x0397)       ; Η
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x47)      ; \e$(C%G\e(B
-    (chinese-cns11643-1                #x24 #x7B)      ; \e$(G${\e(B
+     ((name              . "fullwidth greek small letter eta")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER ETA")
+      (ucs               . #x0397)     ; Η
+      ))
+    (chinese-gb2312    . #x2627)       ; 
+    (=jis-x0208                . #x2627)       ; 
+    (korean-ksc5601    . #x2547)       ; 
+    (chinese-cns11643-1 . #x247B)      ; 
+    (chinese-big5      . #xA34A)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER THETA")
-    (ucs               . #x0398)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03B8)
-    (greek-iso8859-7   #x48)   ; \e-FÈ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter theta")
+      (chinese-gb2312    . #x2628)     ; 
+      (korean-ksc5601    . #x2548)     ; 
+      (chinese-cns11643-1 . #x247C)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER THETA")
+      (ucs               . #x03B8)     ; θ
+      ))
+    (greek-iso8859-7   . #xC8) ; 
+    (ucs               . #x0398)       ; Θ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER THETA")
-    (->ucs             . #x0398)
+  '((name              . "fullwidth greek capital letter theta")
+    (=>ucs             . #x0398)       ; Θ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x48)      ; \e$(C%H\e(B
-    (chinese-cns11643-1                #x24 #x7C)      ; \e$(G$|\e(B
+     ((name              . "fullwidth greek small letter theta")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER THETA")
+      (ucs               . #x0398)     ; Θ
+      ))
+    (chinese-gb2312    . #x2628)       ; 
+    (=jis-x0208                . #x2628)       ; 
+    (korean-ksc5601    . #x2548)       ; 
+    (chinese-cns11643-1 . #x247C)      ; 
+    (chinese-big5      . #xA34B)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA")
-    (ucs               . #x0399)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03B9)
-    (greek-iso8859-7   #x49)   ; \e-FÉ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter iota")
+      (chinese-gb2312    . #x2629)     ; 
+      (korean-ksc5601    . #x2549)     ; 
+      (chinese-cns11643-1 . #x247D)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA")
+      (ucs               . #x03B9)     ; ι
+      ))
+    (greek-iso8859-7   . #xC9) ; 
+    (ucs               . #x0399)       ; Ι
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER IOTA")
-    (->ucs             . #x0399)
+  '((name              . "fullwidth greek capital letter iota")
+    (=>ucs             . #x0399)       ; Ι
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x49)      ; \e$(C%I\e(B
-    (chinese-cns11643-1                #x24 #x7D)      ; \e$(G$}\e(B
+     ((name              . "fullwidth greek small letter iota")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER IOTA")
+      (ucs               . #x0399)     ; Ι
+      ))
+    (chinese-gb2312    . #x2629)       ; 
+    (=jis-x0208                . #x2629)       ; 
+    (korean-ksc5601    . #x2549)       ; 
+    (chinese-cns11643-1 . #x247D)      ; 
+    (chinese-big5      . #xA34C)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER KAPPA")
-    (ucs               . #x039A)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03BA)
-    (greek-iso8859-7   #x4A)   ; \e-FÊ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter kappa")
+      (chinese-gb2312    . #x262A)     ; 
+      (korean-ksc5601    . #x254A)     ; 
+      (chinese-cns11643-1 . #x247E)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER KAPPA")
+      (ucs               . #x03BA)     ; κ
+      ))
+    (greek-iso8859-7   . #xCA) ; 
+    (ucs               . #x039A)       ; Κ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER KAPPA")
-    (->ucs             . #x039A)
+  '((name              . "fullwidth greek capital letter kappa")
+    (=>ucs             . #x039A)       ; Κ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x4A)      ; \e$(C%J\e(B
-    (chinese-cns11643-1                #x24 #x7E)      ; \e$(G$~\e(B
+     ((name              . "fullwidth greek small letter kappa")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER KAPPA")
+      (ucs               . #x039A)     ; Κ
+      ))
+    (chinese-gb2312    . #x262A)       ; 
+    (=jis-x0208                . #x262A)       ; 
+    (korean-ksc5601    . #x254A)       ; 
+    (chinese-cns11643-1 . #x247E)      ; 
+    (chinese-big5      . #xA34D)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER LAMDA")
-    (ucs               . #x039B)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03BB)
-    (greek-iso8859-7   #x4B)   ; \e-FË\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter lamda")
+      (chinese-gb2312    . #x262B)     ; 
+      (korean-ksc5601    . #x254B)     ; 
+      (chinese-cns11643-1 . #x2521)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER LAMDA")
+      (ucs               . #x03BB)     ; λ
+      ))
+    (greek-iso8859-7   . #xCB) ; 
+    (ucs               . #x039B)       ; Λ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER LAMDA")
-    (->ucs             . #x039B)
+  '((name              . "fullwidth greek capital letter lamda")
+    (=>ucs             . #x039B)       ; Λ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x4B)      ; \e$(C%K\e(B
-    (chinese-cns11643-1                #x25 #x21)      ; \e$(G%!\e(B
+     ((name              . "fullwidth greek small letter lamda")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER LAMDA")
+      (ucs               . #x039B)     ; Λ
+      ))
+    (chinese-gb2312    . #x262B)       ; 
+    (=jis-x0208                . #x262B)       ; 
+    (korean-ksc5601    . #x254B)       ; 
+    (chinese-cns11643-1 . #x2521)      ; 
+    (chinese-big5      . #xA34E)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER MU")
-    (ucs               . #x039C)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03BC)
-    (greek-iso8859-7   #x4C)   ; \e-FÌ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter mu")
+      (chinese-gb2312    . #x262C)     ; 
+      (korean-ksc5601    . #x254C)     ; 
+      (chinese-cns11643-1 . #x2522)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER MU")
+      (ucs               . #x03BC)     ; μ
+      ))
+    (greek-iso8859-7   . #xCC) ; 
+    (ucs               . #x039C)       ; Μ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER MU")
-    (->ucs             . #x039C)
+  '((name              . "fullwidth greek capital letter mu")
+    (=>ucs             . #x039C)       ; Μ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x4C)      ; \e$(C%L\e(B
-    (chinese-cns11643-1                #x25 #x22)      ; \e$(G%"\e(B
+     ((name              . "fullwidth greek small letter mu")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER MU")
+      (ucs               . #x039C)     ; Μ
+      ))
+    (chinese-gb2312    . #x262C)       ; 
+    (=jis-x0208                . #x262C)       ; 
+    (korean-ksc5601    . #x254C)       ; 
+    (chinese-cns11643-1 . #x2522)      ; 
+    (chinese-big5      . #xA34F)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER NU")
-    (ucs               . #x039D)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03BD)
-    (greek-iso8859-7   #x4D)   ; \e-FÍ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter nu")
+      (chinese-gb2312    . #x262D)     ; 
+      (korean-ksc5601    . #x254D)     ; 
+      (chinese-cns11643-1 . #x2523)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER NU")
+      (ucs               . #x03BD)     ; ν
+      ))
+    (greek-iso8859-7   . #xCD) ; 
+    (ucs               . #x039D)       ; Ν
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER NU")
-    (->ucs             . #x039D)
+  '((name              . "fullwidth greek capital letter nu")
+    (=>ucs             . #x039D)       ; Ν
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x4D)      ; \e$(C%M\e(B
-    (chinese-cns11643-1                #x25 #x23)      ; \e$(G%#\e(B
+     ((name              . "fullwidth greek small letter nu")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER NU")
+      (ucs               . #x039D)     ; Ν
+      ))
+    (chinese-gb2312    . #x262D)       ; 
+    (=jis-x0208                . #x262D)       ; 
+    (korean-ksc5601    . #x254D)       ; 
+    (chinese-cns11643-1 . #x2523)      ; 
+    (chinese-big5      . #xA350)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER XI")
-    (ucs               . #x039E)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03BE)
-    (greek-iso8859-7   #x4E)   ; \e-FÎ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter xi")
+      (chinese-gb2312    . #x262E)     ; 
+      (korean-ksc5601    . #x254E)     ; 
+      (chinese-cns11643-1 . #x2524)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER XI")
+      (ucs               . #x03BE)     ; ξ
+      ))
+    (greek-iso8859-7   . #xCE) ; 
+    (ucs               . #x039E)       ; Ξ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER XI")
-    (->ucs             . #x039E)
+  '((name              . "fullwidth greek capital letter xi")
+    (=>ucs             . #x039E)       ; Ξ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x4E)      ; \e$(C%N\e(B
-    (chinese-cns11643-1                #x25 #x24)      ; \e$(G%$\e(B
+     ((name              . "fullwidth greek small letter xi")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER XI")
+      (ucs               . #x039E)     ; Ξ
+      ))
+    (chinese-gb2312    . #x262E)       ; 
+    (=jis-x0208                . #x262E)       ; 
+    (korean-ksc5601    . #x254E)       ; 
+    (chinese-cns11643-1 . #x2524)      ; 
+    (chinese-big5      . #xA351)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON")
-    (ucs               . #x039F)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03BF)
-    (greek-iso8859-7   #x4F)   ; \e-FÏ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter omicron")
+      (chinese-gb2312    . #x262F)     ; 
+      (korean-ksc5601    . #x254F)     ; 
+      (chinese-cns11643-1 . #x2525)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMICRON")
+      (ucs               . #x03BF)     ; ο
+      ))
+    (greek-iso8859-7   . #xCF) ; 
+    (ucs               . #x039F)       ; Ο
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER OMICRON")
-    (->ucs             . #x039F)
+  '((name              . "fullwidth greek capital letter omicron")
+    (=>ucs             . #x039F)       ; Ο
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x4F)      ; \e$(C%O\e(B
-    (chinese-cns11643-1                #x25 #x25)      ; \e$(G%%\e(B
+     ((name              . "fullwidth greek small letter omicron")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER OMICRON")
+      (ucs               . #x039F)     ; Ο
+      ))
+    (chinese-gb2312    . #x262F)       ; 
+    (=jis-x0208                . #x262F)       ; 
+    (korean-ksc5601    . #x254F)       ; 
+    (chinese-cns11643-1 . #x2525)      ; 
+    (chinese-big5      . #xA352)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER PI")
-    (ucs               . #x03A0)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03C0)
-    (greek-iso8859-7   #x50)   ; \e-FÐ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter pi")
+      (chinese-gb2312    . #x2630)     ; 
+      (korean-ksc5601    . #x2550)     ; 
+      (chinese-cns11643-1 . #x2526)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER PI")
+      (ucs               . #x03C0)     ; π
+      ))
+    (greek-iso8859-7   . #xD0) ; 
+    (ucs               . #x03A0)       ; Π
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER PI")
-    (->ucs             . #x03A0)
+  '((name              . "fullwidth greek capital letter pi")
+    (=>ucs             . #x03A0)       ; Π
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x50)      ; \e$(C%P\e(B
-    (chinese-cns11643-1                #x25 #x26)      ; \e$(G%&\e(B
+     ((name              . "fullwidth greek small letter pi")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER PI")
+      (ucs               . #x03A0)     ; Π
+      ))
+    (chinese-gb2312    . #x2630)       ; 
+    (=jis-x0208                . #x2630)       ; 
+    (korean-ksc5601    . #x2550)       ; 
+    (chinese-cns11643-1 . #x2526)      ; 
+    (chinese-big5      . #xA353)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER RHO")
-    (ucs               . #x03A1)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03C1)
-    (greek-iso8859-7   #x51)   ; \e-FÑ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter rho")
+      (chinese-gb2312    . #x2631)     ; 
+      (korean-ksc5601    . #x2551)     ; 
+      (chinese-cns11643-1 . #x2527)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER RHO")
+      (ucs               . #x03C1)     ; ρ
+      ))
+    (greek-iso8859-7   . #xD1) ; 
+    (ucs               . #x03A1)       ; Ρ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER RHO")
-    (->ucs             . #x03A1)
+  '((name              . "fullwidth greek capital letter rho")
+    (=>ucs             . #x03A1)       ; Ρ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x51)      ; \e$(C%Q\e(B
-    (chinese-cns11643-1                #x25 #x27)      ; \e$(G%'\e(B
+     ((name              . "fullwidth greek small letter rho")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER RHO")
+      (ucs               . #x03A1)     ; Ρ
+      ))
+    (chinese-gb2312    . #x2631)       ; 
+    (=jis-x0208                . #x2631)       ; 
+    (korean-ksc5601    . #x2551)       ; 
+    (chinese-cns11643-1 . #x2527)      ; 
+    (chinese-big5      . #xA354)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER SIGMA")
-    (ucs               . #x03A3)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03C3)
-    (greek-iso8859-7   #x53)   ; \e-FÓ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter sigma")
+      (chinese-gb2312    . #x2632)     ; 
+      (korean-ksc5601    . #x2552)     ; 
+      (chinese-cns11643-1 . #x2528)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER SIGMA")
+      (ucs               . #x03C3)     ; σ
+      ))
+    (greek-iso8859-7   . #xD3) ; 
+    (ucs               . #x03A3)       ; Σ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER SIGMA")
-    (->ucs             . #x03A3)
+  '((name              . "fullwidth greek capital letter sigma")
+    (=>ucs             . #x03A3)       ; Σ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x52)      ; \e$(C%R\e(B
-    (chinese-cns11643-1                #x25 #x28)      ; \e$(G%(\e(B
+     ((name              . "fullwidth greek small letter sigma")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER SIGMA")
+      (ucs               . #x03A3)     ; Σ
+      ))
+    (chinese-gb2312    . #x2632)       ; 
+    (=jis-x0208                . #x2632)       ; 
+    (korean-ksc5601    . #x2552)       ; 
+    (chinese-cns11643-1 . #x2528)      ; 
+    (chinese-big5      . #xA355)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER TAU")
-    (ucs               . #x03A4)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03C4)
-    (greek-iso8859-7   #x54)   ; \e-FÔ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter tau")
+      (chinese-gb2312    . #x2633)     ; 
+      (korean-ksc5601    . #x2553)     ; 
+      (chinese-cns11643-1 . #x2529)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER TAU")
+      (ucs               . #x03C4)     ; τ
+      ))
+    (greek-iso8859-7   . #xD4) ; 
+    (ucs               . #x03A4)       ; Τ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER TAU")
-    (->ucs             . #x03A4)
+  '((name              . "fullwidth greek capital letter tau")
+    (=>ucs             . #x03A4)       ; Τ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x53)      ; \e$(C%S\e(B
-    (chinese-cns11643-1                #x25 #x29)      ; \e$(G%)\e(B
+     ((name              . "fullwidth greek small letter tau")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER TAU")
+      (ucs               . #x03A4)     ; Τ
+      ))
+    (chinese-gb2312    . #x2633)       ; 
+    (=jis-x0208                . #x2633)       ; 
+    (korean-ksc5601    . #x2553)       ; 
+    (chinese-cns11643-1 . #x2529)      ; 
+    (chinese-big5      . #xA356)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON")
-    (ucs               . #x03A5)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03C5)
-    (greek-iso8859-7   #x55)   ; \e-FÕ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter upsilon")
+      (chinese-gb2312    . #x2634)     ; 
+      (korean-ksc5601    . #x2554)     ; 
+      (chinese-cns11643-1 . #x252A)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON")
+      (ucs               . #x03C5)     ; υ
+      ))
+    (greek-iso8859-7   . #xD5) ; 
+    (ucs               . #x03A5)       ; Υ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER UPSILON")
-    (->ucs             . #x03A5)
+  '((name              . "fullwidth greek capital letter upsilon")
+    (=>ucs             . #x03A5)       ; Υ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x54)      ; \e$(C%T\e(B
-    (chinese-cns11643-1                #x25 #x2A)      ; \e$(G%*\e(B
+     ((name              . "fullwidth greek small letter upsilon")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER UPSILON")
+      (ucs               . #x03A5)     ; Υ
+      ))
+    (chinese-gb2312    . #x2634)       ; 
+    (=jis-x0208                . #x2634)       ; 
+    (korean-ksc5601    . #x2554)       ; 
+    (chinese-cns11643-1 . #x252A)      ; 
+    (chinese-big5      . #xA357)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER PHI")
-    (ucs               . #x03A6)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03C6)
-    (greek-iso8859-7   #x56)   ; \e-FÖ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter phi")
+      (chinese-gb2312    . #x2635)     ; 
+      (korean-ksc5601    . #x2555)     ; 
+      (chinese-cns11643-1 . #x252B)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER PHI")
+      (ucs               . #x03C6)     ; φ
+      ))
+    (greek-iso8859-7   . #xD6) ; 
+    (ucs               . #x03A6)       ; Φ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER PHI")
-    (->ucs             . #x03A6)
+  '((name              . "fullwidth greek capital letter phi")
+    (=>ucs             . #x03A6)       ; Φ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x55)      ; \e$(C%U\e(B
-    (chinese-cns11643-1                #x25 #x2B)      ; \e$(G%+\e(B
+     ((name              . "fullwidth greek small letter phi")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER PHI")
+      (ucs               . #x03A6)     ; Φ
+      ))
+    (chinese-gb2312    . #x2635)       ; 
+    (=jis-x0208                . #x2635)       ; 
+    (korean-ksc5601    . #x2555)       ; 
+    (chinese-cns11643-1 . #x252B)      ; 
+    (chinese-big5      . #xA358)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER CHI")
-    (ucs               . #x03A7)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03C7)
-    (greek-iso8859-7   #x57)   ; \e-F×\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter chi")
+      (chinese-gb2312    . #x2636)     ; 
+      (korean-ksc5601    . #x2556)     ; 
+      (chinese-cns11643-1 . #x252C)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER CHI")
+      (ucs               . #x03C7)     ; χ
+      ))
+    (greek-iso8859-7   . #xD7) ; 
+    (ucs               . #x03A7)       ; Χ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER CHI")
-    (->ucs             . #x03A7)
+  '((name              . "fullwidth greek capital letter chi")
+    (=>ucs             . #x03A7)       ; Χ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x56)      ; \e$(C%V\e(B
-    (chinese-cns11643-1                #x25 #x2C)      ; \e$(G%,\e(B
+     ((name              . "fullwidth greek small letter chi")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER CHI")
+      (ucs               . #x03A7)     ; Χ
+      ))
+    (chinese-gb2312    . #x2636)       ; 
+    (=jis-x0208                . #x2636)       ; 
+    (korean-ksc5601    . #x2556)       ; 
+    (chinese-cns11643-1 . #x252C)      ; 
+    (chinese-big5      . #xA359)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER PSI")
-    (ucs               . #x03A8)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03C8)
-    (greek-iso8859-7   #x58)   ; \e-FØ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter psi")
+      (chinese-gb2312    . #x2637)     ; 
+      (korean-ksc5601    . #x2557)     ; 
+      (chinese-cns11643-1 . #x252D)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER PSI")
+      (ucs               . #x03C8)     ; ψ
+      ))
+    (greek-iso8859-7   . #xD8) ; 
+    (ucs               . #x03A8)       ; Ψ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER PSI")
-    (->ucs             . #x03A8)
+  '((name              . "fullwidth greek capital letter psi")
+    (=>ucs             . #x03A8)       ; Ψ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x57)      ; \e$(C%W\e(B
-    (chinese-cns11643-1                #x25 #x2D)      ; \e$(G%-\e(B
+     ((name              . "fullwidth greek small letter psi")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER PSI")
+      (ucs               . #x03A8)     ; Ψ
+      ))
+    (chinese-gb2312    . #x2637)       ; 
+    (=jis-x0208                . #x2637)       ; 
+    (korean-ksc5601    . #x2557)       ; 
+    (chinese-cns11643-1 . #x252D)      ; 
+    (chinese-big5      . #xA35A)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA")
-    (ucs               . #x03A9)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03C9)
-    (greek-iso8859-7   #x59)   ; \e-FÙ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek capital letter omega")
+      (chinese-gb2312    . #x2638)     ; 
+      (korean-ksc5601    . #x2558)     ; 
+      (chinese-cns11643-1 . #x252E)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER OMEGA")
+      (ucs               . #x03C9)     ; ω
+      ))
+    (greek-iso8859-7   . #xD9) ; 
+    (ucs               . #x03A9)       ; Ω
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK CAPITAL LETTER OMEGA")
-    (->ucs             . #x03A9)
+  '((name              . "fullwidth greek capital letter omega")
+    (=>ucs             . #x03A9)       ; Ω
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x58)      ; \e$(C%X\e(B
-    (chinese-cns11643-1                #x25 #x2E)      ; \e$(G%.\e(B
+     ((name              . "fullwidth greek small letter omega")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER OMEGA")
+      (ucs               . #x03A9)     ; Ω
+      ))
+    (chinese-gb2312    . #x2638)       ; 
+    (=jis-x0208                . #x2638)       ; 
+    (korean-ksc5601    . #x2558)       ; 
+    (chinese-cns11643-1 . #x252E)      ; 
+    (chinese-big5      . #xA35B)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
-    (ucs               . #x03AA)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x0399 #x0308)
-    (->lowercase       #x03CA)
-    (greek-iso8859-7   #x5A)   ; \e-FÚ\e-A
+    (->fullwidth
+     ((name . "fullwidth greek capital letter iota with dialytika")
+      (japanese-jisx0212  . #x2665)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
+      (ucs               . #x03CA)     ; ϊ
+      ))
+    (greek-iso8859-7   . #xDA) ; 
+    (ucs               . #x03AA)       ; Ϊ
     ))
 (define-char
-  '((name . "FULLWIDTH GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
-    (->ucs             . #x03AA)
+  '((name . "fullwidth greek capital letter iota with dialytika")
+    (=>ucs             . #x03AA)       ; Ϊ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03AA)
     (->lowercase
-     ((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA")))
-    (japanese-jisx0212 #x26 #x65)      ; \e$(D&e\e(B
+     ((name . "fullwidth greek small letter iota with dialytika")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
+      (ucs               . #x03AA)     ; Ϊ
+      ))
+    (japanese-jisx0212 . #x2665)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
-    (ucs               . #x03AB)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03A5 #x0308)
-    (->lowercase       #x03CB)
-    (greek-iso8859-7   #x5B)   ; \e-FÛ\e-A
+    (->fullwidth
+     ((name . "fullwidth greek capital letter upsilon with dialytika")
+      (japanese-jisx0212  . #x266A)    ; 
+      ))
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
+      (ucs               . #x03CB)     ; ϋ
+      ))
+    (greek-iso8859-7   . #xDB) ; 
+    (ucs               . #x03AB)       ; Ϋ
     ))
 (define-char
-  '((name . "FULLWIDTH GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
-    (->ucs             . #x03AB)
+  '((name . "fullwidth greek capital letter upsilon with dialytika")
+    (=>ucs             . #x03AB)       ; Ϋ
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03AB)
     (->lowercase
-     ((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA")))
-    (japanese-jisx0212 #x26 #x6A)      ; \e$(D&j\e(B
+     ((name . "fullwidth greek small letter upsilon with dialytika")
+      ))
+    (<-fullwidth
+     ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
+      (ucs               . #x03AB)     ; Ϋ
+      ))
+    (japanese-jisx0212 . #x266A)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH TONOS")
-    (ucs               . #x03AC)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B1 #x0301)
-    (->uppercase       #x0386)
-    (->titlecase       #x0386)
-    (greek-iso8859-7   #x5C)   ; \e-FÜ\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter alpha with tonos")
+      (japanese-jisx0212  . #x2671)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
+      (ucs               . #x0386)     ; Ά
+      ))
+    (greek-iso8859-7   . #xDC) ; 
+    (ucs               . #x03AC)       ; ά
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER ALPHA WITH TONOS")
-    (->ucs             . #x03AC)
+  '((name . "fullwidth greek small letter alpha with tonos")
+    (=>ucs             . #x03AC)       ; ά
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03AC)
     (->uppercase
-     ((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
+     ((name . "fullwidth greek capital letter alpha with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER ALPHA WITH TONOS")
+      (ucs               . #x03AC)     ; ά
+      ))
+    (japanese-jisx0212 . #x2671)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH TONOS")
-    (ucs               . #x03AD)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B5 #x0301)
-    (->uppercase       #x0388)
-    (->titlecase       #x0388)
-    (greek-iso8859-7   #x5D)   ; \e-FÝ\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter epsilon with tonos")
+      (japanese-jisx0212  . #x2672)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
+      (ucs               . #x0388)     ; Έ
+      ))
+    (greek-iso8859-7   . #xDD) ; 
+    (ucs               . #x03AD)       ; έ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER EPSILON WITH TONOS")
-    (->ucs             . #x03AD)
+  '((name . "fullwidth greek small letter epsilon with tonos")
+    (=>ucs             . #x03AD)       ; έ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03AD)
     (->uppercase
-     ((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
+     ((name . "fullwidth greek capital letter epsilon with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER EPSILON WITH TONOS")
+      (ucs               . #x03AD)     ; έ
+      ))
+    (japanese-jisx0212 . #x2672)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH TONOS")
-    (ucs               . #x03AE)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B7 #x0301)
-    (->uppercase       #x0389)
-    (->titlecase       #x0389)
-    (greek-iso8859-7   #x5E)   ; \e-FÞ\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter eta with tonos")
+      (japanese-jisx0212  . #x2673)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA WITH TONOS")
+      (ucs               . #x0389)     ; Ή
+      ))
+    (greek-iso8859-7   . #xDE) ; 
+    (ucs               . #x03AE)       ; ή
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER ETA WITH TONOS")
-    (->ucs             . #x03AE)
+  '((name              . "fullwidth greek small letter eta with tonos")
+    (=>ucs             . #x03AE)       ; ή
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03AE)
     (->uppercase
-     ((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
+     ((name . "fullwidth greek capital letter eta with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER ETA WITH TONOS")
+      (ucs               . #x03AE)     ; ή
+      ))
+    (japanese-jisx0212 . #x2673)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH TONOS")
-    (ucs               . #x03AF)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B9 #x0301)
-    (->uppercase       #x038A)
-    (->titlecase       #x038A)
-    (greek-iso8859-7   #x5F)   ; \e-Fß\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter iota with tonos")
+      (japanese-jisx0212  . #x2674)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH TONOS")
+      (ucs               . #x038A)     ; Ί
+      ))
+    (greek-iso8859-7   . #xDF) ; 
+    (ucs               . #x03AF)       ; ί
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER IOTA WITH TONOS")
-    (->ucs             . #x03AF)
+  '((name              . "fullwidth greek small letter iota with tonos")
+    (=>ucs             . #x03AF)       ; ί
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03AF)
     (->uppercase
-     ((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
+     ((name . "fullwidth greek capital letter iota with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER IOTA WITH TONOS")
+      (ucs               . #x03AF)     ; ί
+      ))
+    (japanese-jisx0212 . #x2674)       ; 
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
-    (ucs               . #x03B0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03CB #x0301)
-    (greek-iso8859-7   #x60)   ; \e-Fà\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter upsilon with dialytika and tonos")
+      (japanese-jisx0212  . #x267B)    ; 
+      ))
+    (greek-iso8859-7   . #xE0) ; 
+    (ucs               . #x03B0)       ; ΰ
     ))
 (define-char
-  '((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
-    (->ucs             . #x03B0)
+  '((name . "fullwidth greek small letter upsilon with dialytika and tonos")
+    (=>ucs             . #x03B0)       ; ΰ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B0)
-    (japanese-jisx0212 #x26 #x7B)      ; \e$(D&{\e(B
+    (<-fullwidth
+     ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
+      (ucs               . #x03B0)     ; ΰ
+      ))
+    (japanese-jisx0212 . #x267B)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA")
-    (ucs               . #x03B1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0391)
-    (->titlecase       #x0391)
-    (greek-iso8859-7   #x61)   ; \e-Fá\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter alpha")
+      (chinese-gb2312    . #x2641)     ; 
+      (korean-ksc5601    . #x2561)     ; 
+      (chinese-cns11643-1 . #x252F)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ALPHA")
+      (ucs               . #x0391)     ; Α
+      ))
+    (greek-iso8859-7   . #xE1) ; 
+    (ucs               . #x03B1)       ; α
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER ALPHA")
-    (->ucs             . #x03B1)
+  '((name              . "fullwidth greek small letter alpha")
+    (=>ucs             . #x03B1)       ; α
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B1)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter alpha")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER ALPHA")
+      (ucs               . #x03B1)     ; α
+      ))
+    (chinese-gb2312    . #x2641)       ; 
+    (=jis-x0208                . #x2641)       ; 
+    (korean-ksc5601    . #x2561)       ; 
+    (chinese-cns11643-1 . #x252F)      ; 
+    (chinese-big5      . #xA35C)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER BETA")
-    (ucs               . #x03B2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0392)
-    (->titlecase       #x0392)
-    (greek-iso8859-7   #x62)   ; \e-Fâ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter beta")
+      (chinese-gb2312    . #x2642)     ; 
+      (korean-ksc5601    . #x2562)     ; 
+      (chinese-cns11643-1 . #x2530)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER BETA")
+      (ucs               . #x0392)     ; Β
+      ))
+    (greek-iso8859-7   . #xE2) ; 
+    (ucs               . #x03B2)       ; β
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER BETA")
-    (->ucs             . #x03B2)
+  '((name              . "fullwidth greek small letter beta")
+    (=>ucs             . #x03B2)       ; β
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B2)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter beta")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER BETA")
+      (ucs               . #x03B2)     ; β
+      ))
+    (chinese-gb2312    . #x2642)       ; 
+    (=jis-x0208                . #x2642)       ; 
+    (korean-ksc5601    . #x2562)       ; 
+    (chinese-cns11643-1 . #x2530)      ; 
+    (chinese-big5      . #xA35D)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER GAMMA")
-    (ucs               . #x03B3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0393)
-    (->titlecase       #x0393)
-    (greek-iso8859-7   #x63)   ; \e-Fã\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter gamma")
+      (chinese-gb2312    . #x2643)     ; 
+      (korean-ksc5601    . #x2563)     ; 
+      (chinese-cns11643-1 . #x2531)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER GAMMA")
+      (ucs               . #x0393)     ; Γ
+      ))
+    (greek-iso8859-7   . #xE3) ; 
+    (ucs               . #x03B3)       ; γ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER GAMMA")
-    (->ucs             . #x03B3)
+  '((name              . "fullwidth greek small letter gamma")
+    (=>ucs             . #x03B3)       ; γ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B3)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter gamma")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER GAMMA")
+      (ucs               . #x03B3)     ; γ
+      ))
+    (chinese-gb2312    . #x2643)       ; 
+    (=jis-x0208                . #x2643)       ; 
+    (korean-ksc5601    . #x2563)       ; 
+    (chinese-cns11643-1 . #x2531)      ; 
+    (chinese-big5      . #xA35E)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER DELTA")
-    (ucs               . #x03B4)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0394)
-    (->titlecase       #x0394)
-    (greek-iso8859-7   #x64)   ; \e-Fä\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter delta")
+      (chinese-gb2312    . #x2644)     ; 
+      (korean-ksc5601    . #x2564)     ; 
+      (chinese-cns11643-1 . #x2532)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER DELTA")
+      (ucs               . #x0394)     ; Δ
+      ))
+    (greek-iso8859-7   . #xE4) ; 
+    (ucs               . #x03B4)       ; δ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER DELTA")
-    (->ucs             . #x03B4)
+  '((name              . "fullwidth greek small letter delta")
+    (=>ucs             . #x03B4)       ; δ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B4)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter delta")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER DELTA")
+      (ucs               . #x03B4)     ; δ
+      ))
+    (chinese-gb2312    . #x2644)       ; 
+    (=jis-x0208                . #x2644)       ; 
+    (korean-ksc5601    . #x2564)       ; 
+    (chinese-cns11643-1 . #x2532)      ; 
+    (chinese-big5      . #xA35F)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON")
-    (ucs               . #x03B5)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0395)
-    (->titlecase       #x0395)
-    (greek-iso8859-7   #x65)   ; \e-Få\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter epsilon")
+      (chinese-gb2312    . #x2645)     ; 
+      (korean-ksc5601    . #x2565)     ; 
+      (chinese-cns11643-1 . #x2533)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER EPSILON")
+      (ucs               . #x0395)     ; Ε
+      ))
+    (greek-iso8859-7   . #xE5) ; 
+    (ucs               . #x03B5)       ; ε
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER EPSILON")
-    (->ucs             . #x03B5)
+  '((name              . "fullwidth greek small letter epsilon")
+    (=>ucs             . #x03B5)       ; ε
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B5)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter epsilon")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER EPSILON")
+      (ucs               . #x03B5)     ; ε
+      ))
+    (chinese-gb2312    . #x2645)       ; 
+    (=jis-x0208                . #x2645)       ; 
+    (korean-ksc5601    . #x2565)       ; 
+    (chinese-cns11643-1 . #x2533)      ; 
+    (chinese-big5      . #xA360)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ZETA")
-    (ucs               . #x03B6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0396)
-    (->titlecase       #x0396)
-    (greek-iso8859-7   #x66)   ; \e-Fæ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter zeta")
+      (chinese-gb2312    . #x2646)     ; 
+      (korean-ksc5601    . #x2566)     ; 
+      (chinese-cns11643-1 . #x2534)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ZETA")
+      (ucs               . #x0396)     ; Ζ
+      ))
+    (greek-iso8859-7   . #xE6) ; 
+    (ucs               . #x03B6)       ; ζ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER ZETA")
-    (->ucs             . #x03B6)
+  '((name              . "fullwidth greek small letter zeta")
+    (=>ucs             . #x03B6)       ; ζ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B6)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter zeta")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER ZETA")
+      (ucs               . #x03B6)     ; ζ
+      ))
+    (chinese-gb2312    . #x2646)       ; 
+    (=jis-x0208                . #x2646)       ; 
+    (korean-ksc5601    . #x2566)       ; 
+    (chinese-cns11643-1 . #x2534)      ; 
+    (chinese-big5      . #xA361)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA")
-    (ucs               . #x03B7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0397)
-    (->titlecase       #x0397)
-    (greek-iso8859-7   #x67)   ; \e-Fç\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter eta")
+      (chinese-gb2312    . #x2647)     ; 
+      (korean-ksc5601    . #x2567)     ; 
+      (chinese-cns11643-1 . #x2535)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER ETA")
+      (ucs               . #x0397)     ; Η
+      ))
+    (greek-iso8859-7   . #xE7) ; 
+    (ucs               . #x03B7)       ; η
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER ETA")
-    (->ucs             . #x03B7)
+  '((name              . "fullwidth greek small letter eta")
+    (=>ucs             . #x03B7)       ; η
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B7)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter eta")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER ETA")
+      (ucs               . #x03B7)     ; η
+      ))
+    (chinese-gb2312    . #x2647)       ; 
+    (=jis-x0208                . #x2647)       ; 
+    (korean-ksc5601    . #x2567)       ; 
+    (chinese-cns11643-1 . #x2535)      ; 
+    (chinese-big5      . #xA362)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER THETA")
-    (ucs               . #x03B8)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0398)
-    (->titlecase       #x0398)
-    (greek-iso8859-7   #x68)   ; \e-Fè\e-A
-    (ipa               #x48)   ; \e-0È\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter theta")
+      (chinese-gb2312    . #x2648)     ; 
+      (korean-ksc5601    . #x2568)     ; 
+      (chinese-cns11643-1 . #x2536)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER THETA")
+      (ucs               . #x0398)     ; Θ
+      ))
+    (greek-iso8859-7   . #xE8) ; 
+    (ipa               . #xC8) ; 
+    (ucs               . #x03B8)       ; θ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER THETA")
-    (->ucs             . #x03B8)
+  '((name              . "fullwidth greek small letter theta")
+    (=>ucs             . #x03B8)       ; θ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B8)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter theta")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER THETA")
+      (ucs               . #x03B8)     ; θ
+      ))
+    (chinese-gb2312    . #x2648)       ; 
+    (=jis-x0208                . #x2648)       ; 
+    (korean-ksc5601    . #x2568)       ; 
+    (chinese-cns11643-1 . #x2536)      ; 
+    (chinese-big5      . #xA363)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA")
-    (ucs               . #x03B9)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x0399)
-    (->titlecase       #x0399)
-    (greek-iso8859-7   #x69)   ; \e-Fé\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter iota")
+      (chinese-gb2312    . #x2649)     ; 
+      (korean-ksc5601    . #x2569)     ; 
+      (chinese-cns11643-1 . #x2537)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA")
+      (ucs               . #x0399)     ; Ι
+      ))
+    (greek-iso8859-7   . #xE9) ; 
+    (ucs               . #x03B9)       ; ι
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER IOTA")
-    (->ucs             . #x03B9)
+  '((name              . "fullwidth greek small letter iota")
+    (=>ucs             . #x03B9)       ; ι
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03B9)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter iota")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER IOTA")
+      (ucs               . #x03B9)     ; ι
+      ))
+    (chinese-gb2312    . #x2649)       ; 
+    (=jis-x0208                . #x2649)       ; 
+    (korean-ksc5601    . #x2569)       ; 
+    (chinese-cns11643-1 . #x2537)      ; 
+    (chinese-big5      . #xA364)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER KAPPA")
-    (ucs               . #x03BA)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x039A)
-    (->titlecase       #x039A)
-    (greek-iso8859-7   #x6A)   ; \e-Fê\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter kappa")
+      (chinese-gb2312    . #x264A)     ; 
+      (korean-ksc5601    . #x256A)     ; 
+      (chinese-cns11643-1 . #x2538)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER KAPPA")
+      (ucs               . #x039A)     ; Κ
+      ))
+    (greek-iso8859-7   . #xEA) ; 
+    (ucs               . #x03BA)       ; κ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER KAPPA")
-    (->ucs             . #x03BA)
+  '((name              . "fullwidth greek small letter kappa")
+    (=>ucs             . #x03BA)       ; κ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (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
-    (korean-ksc5601            #x25 #x6A)      ; \e$(C%j\e(B
-    (chinese-cns11643-1                #x25 #x38)      ; \e$(G%8\e(B
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER KAPPA")
+      (ucs               . #x039A)     ; Κ
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER KAPPA")
+      (ucs               . #x03BA)     ; κ
+      ))
+    (chinese-gb2312    . #x264A)       ; 
+    (=jis-x0208                . #x264A)       ; 
+    (korean-ksc5601    . #x256A)       ; 
+    (chinese-cns11643-1 . #x2538)      ; 
+    (chinese-big5      . #xA365)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER LAMDA")
-    (ucs               . #x03BB)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x039B)
-    (->titlecase       #x039B)
-    (greek-iso8859-7   #x6B)   ; \e-Fë\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter lamda")
+      (chinese-gb2312    . #x264B)     ; 
+      (korean-ksc5601    . #x256B)     ; 
+      (chinese-cns11643-1 . #x2539)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER LAMDA")
+      (ucs               . #x039B)     ; Λ
+      ))
+    (greek-iso8859-7   . #xEB) ; 
+    (ucs               . #x03BB)       ; λ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER LAMDA")
-    (->ucs             . #x03BB)
+  '((name              . "fullwidth greek small letter lamda")
+    (=>ucs             . #x03BB)       ; λ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03BB)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter lamda")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER LAMDA")
+      (ucs               . #x03BB)     ; λ
+      ))
+    (chinese-gb2312    . #x264B)       ; 
+    (=jis-x0208                . #x264B)       ; 
+    (korean-ksc5601    . #x256B)       ; 
+    (chinese-cns11643-1 . #x2539)      ; 
+    (chinese-big5      . #xA366)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER MU")
-    (ucs               . #x03BC)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x039C)
-    (->titlecase       #x039C)
-    (greek-iso8859-7   #x6C)   ; \e-Fì\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter mu")
+      (chinese-gb2312    . #x264C)     ; 
+      (korean-ksc5601    . #x256C)     ; 
+      (chinese-cns11643-1 . #x253A)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER MU")
+      (ucs               . #x039C)     ; Μ
+      ))
+    (greek-iso8859-7   . #xEC) ; 
+    (ucs               . #x03BC)       ; μ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER MU")
-    (->ucs             . #x03BC)
+  '((name              . "fullwidth greek small letter mu")
+    (=>ucs             . #x03BC)       ; μ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03BC)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter mu")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER MU")
+      (ucs               . #x03BC)     ; μ
+      ))
+    (chinese-gb2312    . #x264C)       ; 
+    (=jis-x0208                . #x264C)       ; 
+    (korean-ksc5601    . #x256C)       ; 
+    (chinese-cns11643-1 . #x253A)      ; 
+    (chinese-big5      . #xA367)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER NU")
-    (ucs               . #x03BD)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x039D)
-    (->titlecase       #x039D)
-    (greek-iso8859-7   #x6D)   ; \e-Fí\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter nu")
+      (chinese-gb2312    . #x264D)     ; 
+      (korean-ksc5601    . #x256D)     ; 
+      (chinese-cns11643-1 . #x253B)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER NU")
+      (ucs               . #x039D)     ; Ν
+      ))
+    (greek-iso8859-7   . #xED) ; 
+    (ucs               . #x03BD)       ; ν
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER NU")
-    (->ucs             . #x03BD)
+  '((name              . "fullwidth greek small letter nu")
+    (=>ucs             . #x03BD)       ; ν
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03BD)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter nu")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER NU")
+      (ucs               . #x03BD)     ; ν
+      ))
+    (chinese-gb2312    . #x264D)       ; 
+    (=jis-x0208                . #x264D)       ; 
+    (korean-ksc5601    . #x256D)       ; 
+    (chinese-cns11643-1 . #x253B)      ; 
+    (chinese-big5      . #xA368)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER XI")
-    (ucs               . #x03BE)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x039E)
-    (->titlecase       #x039E)
-    (greek-iso8859-7   #x6E)   ; \e-Fî\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter xi")
+      (chinese-gb2312    . #x264E)     ; 
+      (korean-ksc5601    . #x256E)     ; 
+      (chinese-cns11643-1 . #x253C)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER XI")
+      (ucs               . #x039E)     ; Ξ
+      ))
+    (greek-iso8859-7   . #xEE) ; 
+    (ucs               . #x03BE)       ; ξ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER XI")
-    (->ucs             . #x03BE)
+  '((name              . "fullwidth greek small letter xi")
+    (=>ucs             . #x03BE)       ; ξ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03BE)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter xi")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER XI")
+      (ucs               . #x03BE)     ; ξ
+      ))
+    (chinese-gb2312    . #x264E)       ; 
+    (=jis-x0208                . #x264E)       ; 
+    (korean-ksc5601    . #x256E)       ; 
+    (chinese-cns11643-1 . #x253C)      ; 
+    (chinese-big5      . #xA369)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON")
-    (ucs               . #x03BF)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x039F)
-    (->titlecase       #x039F)
-    (greek-iso8859-7   #x6F)   ; \e-Fï\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter omicron")
+      (chinese-gb2312    . #x264F)     ; 
+      (korean-ksc5601    . #x256F)     ; 
+      (chinese-cns11643-1 . #x253D)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMICRON")
+      (ucs               . #x039F)     ; Ο
+      ))
+    (greek-iso8859-7   . #xEF) ; 
+    (ucs               . #x03BF)       ; ο
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER OMICRON")
-    (->ucs             . #x03BF)
+  '((name              . "fullwidth greek small letter omicron")
+    (=>ucs             . #x03BF)       ; ο
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03BF)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter omicron")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER OMICRON")
+      (ucs               . #x03BF)     ; ο
+      ))
+    (chinese-gb2312    . #x264F)       ; 
+    (=jis-x0208                . #x264F)       ; 
+    (korean-ksc5601    . #x256F)       ; 
+    (chinese-cns11643-1 . #x253D)      ; 
+    (chinese-big5      . #xA36A)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER PI")
-    (ucs               . #x03C0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03A0)
-    (->titlecase       #x03A0)
-    (greek-iso8859-7   #x70)   ; \e-Fð\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter pi")
+      (chinese-gb2312    . #x2650)     ; 
+      (korean-ksc5601    . #x2570)     ; 
+      (chinese-cns11643-1 . #x253E)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER PI")
+      (ucs               . #x03A0)     ; Π
+      ))
+    (greek-iso8859-7   . #xF0) ; 
+    (ucs               . #x03C0)       ; π
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER PI")
-    (->ucs             . #x03C0)
+  '((name              . "fullwidth greek small letter pi")
+    (=>ucs             . #x03C0)       ; π
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03C0)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter pi")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER PI")
+      (ucs               . #x03C0)     ; π
+      ))
+    (chinese-gb2312    . #x2650)       ; 
+    (=jis-x0208                . #x2650)       ; 
+    (korean-ksc5601    . #x2570)       ; 
+    (chinese-cns11643-1 . #x253E)      ; 
+    (chinese-big5      . #xA36B)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER RHO")
-    (ucs               . #x03C1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03A1)
-    (->titlecase       #x03A1)
-    (greek-iso8859-7   #x71)   ; \e-Fñ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter rho")
+      (chinese-gb2312    . #x2651)     ; 
+      (korean-ksc5601    . #x2571)     ; 
+      (chinese-cns11643-1 . #x253F)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER RHO")
+      (ucs               . #x03A1)     ; Ρ
+      ))
+    (greek-iso8859-7   . #xF1) ; 
+    (ucs               . #x03C1)       ; ρ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER RHO")
-    (->ucs             . #x03C1)
+  '((name              . "fullwidth greek small letter rho")
+    (=>ucs             . #x03C1)       ; ρ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03C1)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter rho")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER RHO")
+      (ucs               . #x03C1)     ; ρ
+      ))
+    (chinese-gb2312    . #x2651)       ; 
+    (=jis-x0208                . #x2651)       ; 
+    (korean-ksc5601    . #x2571)       ; 
+    (chinese-cns11643-1 . #x253F)      ; 
+    (chinese-big5      . #xA36C)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER FINAL SIGMA")
-    (ucs               . #x03C2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03A3)
-    (->titlecase       #x03A3)
-    (greek-iso8859-7   #x72)   ; \e-Fò\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter final sigma")
+      (japanese-jisx0212         . #x2678)     ; 
+      (japanese-jisx0213-1       . #x2659)     ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER SIGMA")
+      (ucs               . #x03A3)     ; Σ
+      ))
+    (greek-iso8859-7   . #xF2) ; 
+    (ucs               . #x03C2)       ; ς
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER FINAL SIGMA")
-    (->ucs             . #x03C2)
+  '((name              . "fullwidth greek small letter final sigma")
+    (=>ucs             . #x03C2)       ; ς
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03C2)
     (->uppercase
-     ((name . "FULLWIDTH GREEK CAPITAL LETTER FINAL SIGMA")))
-    (->titlecase
-     ((name . "FULLWIDTH GREEK CAPITAL LETTER FINAL SIGMA")))
-    (japanese-jisx0212 #x26 #x78)      ; \e$(D&x\e(B
+     ((name              . "fullwidth greek capital letter final sigma")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER FINAL SIGMA")
+      (ucs               . #x03C2)     ; ς
+      ))
+    (japanese-jisx0212         . #x2678)       ; 
+    (japanese-jisx0213-1       . #x2659)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER SIGMA")
-    (ucs               . #x03C3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03A3)
-    (->titlecase       #x03A3)
-    (greek-iso8859-7   #x73)   ; \e-Fó\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter sigma")
+      (chinese-gb2312    . #x2652)     ; 
+      (korean-ksc5601    . #x2572)     ; 
+      (chinese-cns11643-1 . #x2540)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER SIGMA")
+      (ucs               . #x03A3)     ; Σ
+      ))
+    (greek-iso8859-7   . #xF3) ; 
+    (ucs               . #x03C3)       ; σ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER SIGMA")
-    (->ucs             . #x03C3)
+  '((name              . "fullwidth greek small letter sigma")
+    (=>ucs             . #x03C3)       ; σ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03C3)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter sigma")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER SIGMA")
+      (ucs               . #x03C3)     ; σ
+      ))
+    (chinese-gb2312    . #x2652)       ; 
+    (=jis-x0208                . #x2652)       ; 
+    (korean-ksc5601    . #x2572)       ; 
+    (chinese-cns11643-1 . #x2540)      ; 
+    (chinese-big5      . #xA36D)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER TAU")
-    (ucs               . #x03C4)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03A4)
-    (->titlecase       #x03A4)
-    (greek-iso8859-7   #x74)   ; \e-Fô\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter tau")
+      (chinese-gb2312    . #x2653)     ; 
+      (korean-ksc5601    . #x2573)     ; 
+      (chinese-cns11643-1 . #x2541)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER TAU")
+      (ucs               . #x03A4)     ; Τ
+      ))
+    (greek-iso8859-7   . #xF4) ; 
+    (ucs               . #x03C4)       ; τ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER TAU")
-    (->ucs             . #x03C4)
+  '((name              . "fullwidth greek small letter tau")
+    (=>ucs             . #x03C4)       ; τ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03C4)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter tau")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER TAU")
+      (ucs               . #x03C4)     ; τ
+      ))
+    (chinese-gb2312    . #x2653)       ; 
+    (=jis-x0208                . #x2653)       ; 
+    (korean-ksc5601    . #x2573)       ; 
+    (chinese-cns11643-1 . #x2541)      ; 
+    (chinese-big5      . #xA36E)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON")
-    (ucs               . #x03C5)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03A5)
-    (->titlecase       #x03A5)
-    (greek-iso8859-7   #x75)   ; \e-Fõ\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter upsilon")
+      (chinese-gb2312    . #x2654)     ; 
+      (korean-ksc5601    . #x2574)     ; 
+      (chinese-cns11643-1 . #x2542)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON")
+      (ucs               . #x03A5)     ; Υ
+      ))
+    (greek-iso8859-7   . #xF5) ; 
+    (ucs               . #x03C5)       ; υ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER UPSILON")
-    (->ucs             . #x03C5)
+  '((name              . "fullwidth greek small letter upsilon")
+    (=>ucs             . #x03C5)       ; υ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03C5)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter upsilon")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER UPSILON")
+      (ucs               . #x03C5)     ; υ
+      ))
+    (chinese-gb2312    . #x2654)       ; 
+    (=jis-x0208                . #x2654)       ; 
+    (korean-ksc5601    . #x2574)       ; 
+    (chinese-cns11643-1 . #x2542)      ; 
+    (chinese-big5      . #xA36F)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER PHI")
-    (ucs               . #x03C6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03A6)
-    (->titlecase       #x03A6)
-    (greek-iso8859-7   #x76)   ; \e-Fö\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter phi")
+      (chinese-gb2312    . #x2655)     ; 
+      (korean-ksc5601    . #x2575)     ; 
+      (chinese-cns11643-1 . #x2543)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER PHI")
+      (ucs               . #x03A6)     ; Φ
+      ))
+    (greek-iso8859-7   . #xF6) ; 
+    (ucs               . #x03C6)       ; φ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER PHI")
-    (->ucs             . #x03C6)
+  '((name              . "fullwidth greek small letter phi")
+    (=>ucs             . #x03C6)       ; φ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03C6)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter phi")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER PHI")
+      (ucs               . #x03C6)     ; φ
+      ))
+    (chinese-gb2312    . #x2655)       ; 
+    (=jis-x0208                . #x2655)       ; 
+    (korean-ksc5601    . #x2575)       ; 
+    (chinese-cns11643-1 . #x2543)      ; 
+    (chinese-big5      . #xA370)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER CHI")
-    (ucs               . #x03C7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03A7)
-    (->titlecase       #x03A7)
-    (greek-iso8859-7   #x77)   ; \e-F÷\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter chi")
+      (chinese-gb2312    . #x2656)     ; 
+      (korean-ksc5601    . #x2576)     ; 
+      (chinese-cns11643-1 . #x2544)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER CHI")
+      (ucs               . #x03A7)     ; Χ
+      ))
+    (greek-iso8859-7   . #xF7) ; 
+    (ucs               . #x03C7)       ; χ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER CHI")
-    (->ucs             . #x03C7)
+  '((name              . "fullwidth greek small letter chi")
+    (=>ucs             . #x03C7)       ; χ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03C7)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter chi")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER CHI")
+      (ucs               . #x03C7)     ; χ
+      ))
+    (chinese-gb2312    . #x2656)       ; 
+    (=jis-x0208                . #x2656)       ; 
+    (korean-ksc5601    . #x2576)       ; 
+    (chinese-cns11643-1 . #x2544)      ; 
+    (chinese-big5      . #xA371)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER PSI")
-    (ucs               . #x03C8)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03A8)
-    (->titlecase       #x03A8)
-    (greek-iso8859-7   #x78)   ; \e-Fø\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter psi")
+      (chinese-gb2312    . #x2657)     ; 
+      (korean-ksc5601    . #x2577)     ; 
+      (chinese-cns11643-1 . #x2545)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER PSI")
+      (ucs               . #x03A8)     ; Ψ
+      ))
+    (greek-iso8859-7   . #xF8) ; 
+    (ucs               . #x03C8)       ; ψ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER PSI")
-    (->ucs             . #x03C8)
+  '((name              . "fullwidth greek small letter psi")
+    (=>ucs             . #x03C8)       ; ψ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03C8)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter psi")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER PSI")
+      (ucs               . #x03C8)     ; ψ
+      ))
+    (chinese-gb2312    . #x2657)       ; 
+    (=jis-x0208                . #x2657)       ; 
+    (korean-ksc5601    . #x2577)       ; 
+    (chinese-cns11643-1 . #x2545)      ; 
+    (chinese-big5      . #xA372)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA")
-    (ucs               . #x03C9)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03A9)
-    (->titlecase       #x03A9)
-    (greek-iso8859-7   #x79)   ; \e-Fù\e-A
+    (->fullwidth
+     ((name              . "fullwidth greek small letter omega")
+      (chinese-gb2312    . #x2658)     ; 
+      (korean-ksc5601    . #x2578)     ; 
+      (chinese-cns11643-1 . #x2546)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA")
+      (ucs               . #x03A9)     ; Ω
+      ))
+    (greek-iso8859-7   . #xF9) ; 
+    (ucs               . #x03C9)       ; ω
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER OMEGA")
-    (->ucs             . #x03C9)
+  '((name              . "fullwidth greek small letter omega")
+    (=>ucs             . #x03C9)       ; ω
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03C9)
     (->uppercase
-     ((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
+     ((name              . "fullwidth greek capital letter omega")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER OMEGA")
+      (ucs               . #x03C9)     ; ω
+      ))
+    (chinese-gb2312    . #x2658)       ; 
+    (=jis-x0208                . #x2658)       ; 
+    (korean-ksc5601    . #x2578)       ; 
+    (chinese-cns11643-1 . #x2546)      ; 
+    (chinese-big5      . #xA373)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
-    (ucs               . #x03CA)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03B9 #x0308)
-    (->uppercase       #x03AA)
-    (->titlecase       #x03AA)
-    (greek-iso8859-7   #x7A)   ; \e-Fú\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter iota with dialytika")
+      (japanese-jisx0212  . #x2675)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
+      (ucs               . #x03AA)     ; Ϊ
+      ))
+    (greek-iso8859-7   . #xFA) ; 
+    (ucs               . #x03CA)       ; ϊ
     ))
 (define-char
-  '((name . "FULLWIDTH GREEK SMALL LETTER IOTA WITH DIALYTIKA")
-    (->ucs             . #x03CA)
+  '((name . "fullwidth greek small letter iota with dialytika")
+    (=>ucs             . #x03CA)       ; ϊ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03CA)
     (->uppercase
-     ((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
+     ((name . "fullwidth greek capital letter iota with dialytika")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
+      (ucs               . #x03CA)     ; ϊ
+      ))
+    (japanese-jisx0212 . #x2675)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
-    (ucs               . #x03CB)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C5 #x0308)
-    (->uppercase       #x03AB)
-    (->titlecase       #x03AB)
-    (greek-iso8859-7   #x7B)   ; \e-Fû\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter upsilon with dialytika")
+      (japanese-jisx0212  . #x267A)    ; 
+      ))
+    (->uppercase
+     ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
+      (ucs               . #x03AB)     ; Ϋ
+      ))
+    (greek-iso8859-7   . #xFB) ; 
+    (ucs               . #x03CB)       ; ϋ
     ))
 (define-char
-  '((name . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
-    (->ucs             . #x03CB)
+  '((name . "fullwidth greek small letter upsilon with dialytika")
+    (=>ucs             . #x03CB)       ; ϋ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03CB)
     (->uppercase
-     ((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
+     ((name . "fullwidth greek capital letter upsilon with dialytika")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
+      (ucs               . #x03CB)     ; ϋ
+      ))
+    (japanese-jisx0212 . #x267A)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH TONOS")
-    (ucs               . #x03CC)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03BF #x0301)
-    (->uppercase       #x038C)
-    (->titlecase       #x038C)
-    (greek-iso8859-7   #x7C)   ; \e-Fü\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter omicron with tonos")
+      (japanese-jisx0212  . #x2677)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
+      (ucs               . #x038C)     ; Ό
+      ))
+    (greek-iso8859-7   . #xFC) ; 
+    (ucs               . #x03CC)       ; ό
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER OMICRON WITH TONOS")
-    (->ucs             . #x03CC)
+  '((name . "fullwidth greek small letter omicron with tonos")
+    (=>ucs             . #x03CC)       ; ό
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03CC)
     (->uppercase
-     ((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
+     ((name . "fullwidth greek capital letter omicron with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER OMICRON WITH TONOS")
+      (ucs               . #x03CC)     ; ό
+      ))
+    (japanese-jisx0212 . #x2677)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH TONOS")
-    (ucs               . #x03CD)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C5 #x0301)
-    (->uppercase       #x038E)
-    (->titlecase       #x038E)
-    (greek-iso8859-7   #x7D)   ; \e-Fý\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter upsilon with tonos")
+      (japanese-jisx0212  . #x2679)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
+      (ucs               . #x038E)     ; Ύ
+      ))
+    (greek-iso8859-7   . #xFD) ; 
+    (ucs               . #x03CD)       ; ύ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER UPSILON WITH TONOS")
-    (->ucs             . #x03CD)
+  '((name . "fullwidth greek small letter upsilon with tonos")
+    (=>ucs             . #x03CD)       ; ύ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03CD)
     (->uppercase
-     ((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
+     ((name . "fullwidth greek capital letter upsilon with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER UPSILON WITH TONOS")
+      (ucs               . #x03CD)     ; ύ
+      ))
+    (japanese-jisx0212 . #x2679)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH TONOS")
-    (ucs               . #x03CE)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03C9 #x0301)
-    (->uppercase       #x038F)
-    (->titlecase       #x038F)
-    (greek-iso8859-7   #x7E)   ; \e-Fþ\e-A
+    (->fullwidth
+     ((name . "fullwidth greek small letter omega with tonos")
+      (japanese-jisx0212  . #x267C)    ; 
+      ))
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
+      (ucs               . #x038F)     ; Ώ
+      ))
+    (greek-iso8859-7   . #xFE) ; 
+    (ucs               . #x03CE)       ; ώ
     ))
 (define-char
-  '((name              . "FULLWIDTH GREEK SMALL LETTER OMEGA WITH TONOS")
-    (->ucs             . #x03CE)
+  '((name . "fullwidth greek small letter omega with tonos")
+    (=>ucs             . #x03CE)       ; ώ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x03CE)
     (->uppercase
-     ((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
+     ((name . "fullwidth greek capital letter omega with tonos")
+      ))
+    (<-fullwidth
+     ((name              . "GREEK SMALL LETTER OMEGA WITH TONOS")
+      (ucs               . #x03CE)     ; ώ
+      ))
+    (japanese-jisx0212 . #x267C)       ; 
     ))
 (define-char
   '((name              . "GREEK BETA SYMBOL")
-    (ucs               . #x03D0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x03B2)
-    (->uppercase       #x0392)
-    (->titlecase       #x0392)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER BETA")
+      (ucs               . #x0392)     ; Β
+      ))
+    (ucs               . #x03D0)       ; ϐ
     ))
 (define-char
   '((name              . "GREEK THETA SYMBOL")
-    (ucs               . #x03D1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x03B8)
-    (->uppercase       #x0398)
-    (->titlecase       #x0398)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER THETA")
+      (ucs               . #x0398)     ; Θ
+      ))
+    (ucs               . #x03D1)       ; ϑ
     ))
 (define-char
   '((name              . "GREEK UPSILON WITH HOOK SYMBOL")
-    (ucs               . #x03D2)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x03A5)
+    (ucs               . #x03D2)       ; ϒ
     ))
 (define-char
   '((name              . "GREEK UPSILON WITH ACUTE AND HOOK SYMBOL")
-    (ucs               . #x03D3)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03D2 #x0301)
+    (ucs               . #x03D3)       ; ϓ
     ))
 (define-char
   '((name              . "GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL")
-    (ucs               . #x03D4)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   #x03D2 #x0308)
+    (ucs               . #x03D4)       ; ϔ
     ))
 (define-char
   '((name              . "GREEK PHI SYMBOL")
-    (ucs               . #x03D5)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x03C6)
-    (->uppercase       #x03A6)
-    (->titlecase       #x03A6)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER PHI")
+      (ucs               . #x03A6)     ; Φ
+      ))
+    (ucs               . #x03D5)       ; ϕ
     ))
 (define-char
   '((name              . "GREEK PI SYMBOL")
-    (ucs               . #x03D6)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x03C0)
-    (->uppercase       #x03A0)
-    (->titlecase       #x03A0)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER PI")
+      (ucs               . #x03A0)     ; Π
+      ))
+    (ucs               . #x03D6)       ; ϖ
     ))
 (define-char
   '((name              . "GREEK KAI SYMBOL")
-    (ucs               . #x03D7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (ucs               . #x03D7)       ; ϗ
     ))
 (define-char
   '((name              . "GREEK LETTER STIGMA")
-    (ucs               . #x03DA)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03DB)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER STIGMA")
+      (ucs               . #x03DB)     ; ϛ
+      ))
+    (ucs               . #x03DA)       ; Ϛ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER STIGMA")
-    (ucs               . #x03DB)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03DA)
-    (->titlecase       #x03DA)
+    (->uppercase
+     ((name              . "GREEK LETTER STIGMA")
+      (ucs               . #x03DA)     ; Ϛ
+      ))
+    (ucs               . #x03DB)       ; ϛ
     ))
 (define-char
   '((name              . "GREEK LETTER DIGAMMA")
-    (ucs               . #x03DC)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03DD)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER DIGAMMA")
+      (ucs               . #x03DD)     ; ϝ
+      ))
+    (ucs               . #x03DC)       ; Ϝ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER DIGAMMA")
-    (ucs               . #x03DD)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03DC)
-    (->titlecase       #x03DC)
+    (->uppercase
+     ((name              . "GREEK LETTER DIGAMMA")
+      (ucs               . #x03DC)     ; Ϝ
+      ))
+    (ucs               . #x03DD)       ; ϝ
     ))
 (define-char
   '((name              . "GREEK LETTER KOPPA")
-    (ucs               . #x03DE)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03DF)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER KOPPA")
+      (ucs               . #x03DF)     ; ϟ
+      ))
+    (ucs               . #x03DE)       ; Ϟ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER KOPPA")
-    (ucs               . #x03DF)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03DE)
-    (->titlecase       #x03DE)
+    (->uppercase
+     ((name              . "GREEK LETTER KOPPA")
+      (ucs               . #x03DE)     ; Ϟ
+      ))
+    (ucs               . #x03DF)       ; ϟ
     ))
 (define-char
   '((name              . "GREEK LETTER SAMPI")
-    (ucs               . #x03E0)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03E1)
+    (->lowercase
+     ((name              . "GREEK SMALL LETTER SAMPI")
+      (ucs               . #x03E1)     ; ϡ
+      ))
+    (ucs               . #x03E0)       ; Ϡ
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER SAMPI")
-    (ucs               . #x03E1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03E0)
-    (->titlecase       #x03E0)
+    (->uppercase
+     ((name              . "GREEK LETTER SAMPI")
+      (ucs               . #x03E0)     ; Ϡ
+      ))
+    (ucs               . #x03E1)       ; ϡ
     ))
 (define-char
   '((name              . "COPTIC CAPITAL LETTER SHEI")
-    (ucs               . #x03E2)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03E3)
+    (->lowercase
+     ((name              . "COPTIC SMALL LETTER SHEI")
+      (ucs               . #x03E3)     ; ϣ
+      ))
+    (ucs               . #x03E2)       ; Ϣ
     ))
 (define-char
   '((name              . "COPTIC SMALL LETTER SHEI")
-    (ucs               . #x03E3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03E2)
-    (->titlecase       #x03E2)
+    (->uppercase
+     ((name              . "COPTIC CAPITAL LETTER SHEI")
+      (ucs               . #x03E2)     ; Ϣ
+      ))
+    (ucs               . #x03E3)       ; ϣ
     ))
 (define-char
   '((name              . "COPTIC CAPITAL LETTER FEI")
-    (ucs               . #x03E4)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03E5)
+    (->lowercase
+     ((name              . "COPTIC SMALL LETTER FEI")
+      (ucs               . #x03E5)     ; ϥ
+      ))
+    (ucs               . #x03E4)       ; Ϥ
     ))
 (define-char
   '((name              . "COPTIC SMALL LETTER FEI")
-    (ucs               . #x03E5)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03E4)
-    (->titlecase       #x03E4)
+    (->uppercase
+     ((name              . "COPTIC CAPITAL LETTER FEI")
+      (ucs               . #x03E4)     ; Ϥ
+      ))
+    (ucs               . #x03E5)       ; ϥ
     ))
 (define-char
   '((name              . "COPTIC CAPITAL LETTER KHEI")
-    (ucs               . #x03E6)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03E7)
+    (->lowercase
+     ((name              . "COPTIC SMALL LETTER KHEI")
+      (ucs               . #x03E7)     ; ϧ
+      ))
+    (ucs               . #x03E6)       ; Ϧ
     ))
 (define-char
   '((name              . "COPTIC SMALL LETTER KHEI")
-    (ucs               . #x03E7)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03E6)
-    (->titlecase       #x03E6)
+    (->uppercase
+     ((name              . "COPTIC CAPITAL LETTER KHEI")
+      (ucs               . #x03E6)     ; Ϧ
+      ))
+    (ucs               . #x03E7)       ; ϧ
     ))
 (define-char
   '((name              . "COPTIC CAPITAL LETTER HORI")
-    (ucs               . #x03E8)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03E9)
+    (->lowercase
+     ((name              . "COPTIC SMALL LETTER HORI")
+      (ucs               . #x03E9)     ; ϩ
+      ))
+    (ucs               . #x03E8)       ; Ϩ
     ))
 (define-char
   '((name              . "COPTIC SMALL LETTER HORI")
-    (ucs               . #x03E9)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03E8)
-    (->titlecase       #x03E8)
+    (->uppercase
+     ((name              . "COPTIC CAPITAL LETTER HORI")
+      (ucs               . #x03E8)     ; Ϩ
+      ))
+    (ucs               . #x03E9)       ; ϩ
     ))
 (define-char
   '((name              . "COPTIC CAPITAL LETTER GANGIA")
-    (ucs               . #x03EA)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03EB)
+    (->lowercase
+     ((name              . "COPTIC SMALL LETTER GANGIA")
+      (ucs               . #x03EB)     ; ϫ
+      ))
+    (ucs               . #x03EA)       ; Ϫ
     ))
 (define-char
   '((name              . "COPTIC SMALL LETTER GANGIA")
-    (ucs               . #x03EB)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03EA)
-    (->titlecase       #x03EA)
+    (->uppercase
+     ((name              . "COPTIC CAPITAL LETTER GANGIA")
+      (ucs               . #x03EA)     ; Ϫ
+      ))
+    (ucs               . #x03EB)       ; ϫ
     ))
 (define-char
   '((name              . "COPTIC CAPITAL LETTER SHIMA")
-    (ucs               . #x03EC)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03ED)
+    (->lowercase
+     ((name              . "COPTIC SMALL LETTER SHIMA")
+      (ucs               . #x03ED)     ; ϭ
+      ))
+    (ucs               . #x03EC)       ; Ϭ
     ))
 (define-char
   '((name              . "COPTIC SMALL LETTER SHIMA")
-    (ucs               . #x03ED)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03EC)
-    (->titlecase       #x03EC)
+    (->uppercase
+     ((name              . "COPTIC CAPITAL LETTER SHIMA")
+      (ucs               . #x03EC)     ; Ϭ
+      ))
+    (ucs               . #x03ED)       ; ϭ
     ))
 (define-char
   '((name              . "COPTIC CAPITAL LETTER DEI")
-    (ucs               . #x03EE)
     (general-category  letter uppercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->lowercase       #x03EF)
+    (->lowercase
+     ((name              . "COPTIC SMALL LETTER DEI")
+      (ucs               . #x03EF)     ; ϯ
+      ))
+    (ucs               . #x03EE)       ; Ϯ
     ))
 (define-char
   '((name              . "COPTIC SMALL LETTER DEI")
-    (ucs               . #x03EF)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->uppercase       #x03EE)
-    (->titlecase       #x03EE)
+    (->uppercase
+     ((name              . "COPTIC CAPITAL LETTER DEI")
+      (ucs               . #x03EE)     ; Ϯ
+      ))
+    (ucs               . #x03EF)       ; ϯ
     ))
 (define-char
   '((name              . "GREEK KAPPA SYMBOL")
-    (ucs               . #x03F0)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x03BA)
-    (->uppercase       #x039A)
-    (->titlecase       #x039A)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER KAPPA")
+      (ucs               . #x039A)     ; Κ
+      ))
+    (ucs               . #x03F0)       ; ϰ
     ))
 (define-char
   '((name              . "GREEK RHO SYMBOL")
-    (ucs               . #x03F1)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x03C1)
-    (->uppercase       #x03A1)
-    (->titlecase       #x03A1)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER RHO")
+      (ucs               . #x03A1)     ; Ρ
+      ))
+    (ucs               . #x03F1)       ; ϱ
     ))
 (define-char
   '((name              . "GREEK LUNATE SIGMA SYMBOL")
-    (ucs               . #x03F2)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x03C2)
-    (->uppercase       #x03A3)
-    (->titlecase       #x03A3)
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER SIGMA")
+      (ucs               . #x03A3)     ; Σ
+      ))
+    (ucs               . #x03F2)       ; ϲ
     ))
 (define-char
   '((name              . "GREEK LETTER YOT")
-    (ucs               . #x03F3)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
+    (ucs               . #x03F3)       ; ϳ
     ))