Reformatted.
[chise/xemacs-chise.git.1] / lisp / utf-2000 / u00370-Greek.el
index 855821e..e0db795 100644 (file)
@@ -1,3 +1,4 @@
+;; -*- coding: utf-8-mcs -*-
 (define-char
   '((name              . "GREEK NUMERAL SIGN")
     (general-category  symbol modifier) ; Informative Category
     (->decomposition   compat #x0020 #x0301)
     (->fullwidth
      ((name              . "fullwidth greek tonos")
-      (japanese-jisx0212  . #x2238)    ; 
+      (=jis-x0212        . #x2238)     ; 
+      (=ucs@jis                  . #x0384)     ; 
       ))
-    (greek-iso8859-7   . #xB4) ; 
     (=ucs              . #x0384)       ; ΄
+    (greek-iso8859-7   . #xB4) ; 
     ))
 (define-char
   '((name              . "fullwidth greek tonos")
@@ -56,8 +58,8 @@
      ((name              . "GREEK TONOS")
       (=ucs              . #x0384)     ; ΄
       ))
-    (japanese-jisx0212 . #x2238)       ; 
-    (ucs-jis           . #x0384)       ; 
+    (=jis-x0212                . #x2238)       ; 
+    (=ucs@jis          . #x0384)       ; 
     ))
 (define-char
   '((name              . "GREEK DIALYTIKA TONOS")
     (->decomposition   #x00A8 #x0301)
     (->fullwidth
      ((name              . "fullwidth greek dialytika tonos")
-      (japanese-jisx0212  . #x2239)    ; 
+      (=jis-x0212        . #x2239)     ; 
+      (=ucs@jis                  . #x0385)     ; 
       ))
-    (greek-iso8859-7   . #xB5) ; 
     (=ucs              . #x0385)       ; ΅
+    (greek-iso8859-7   . #xB5) ; 
     ))
 (define-char
   '((name              . "fullwidth greek dialytika tonos")
@@ -83,8 +86,8 @@
      ((name              . "GREEK DIALYTIKA TONOS")
       (=ucs              . #x0385)     ; ΅
       ))
-    (japanese-jisx0212 . #x2239)       ; 
-    (ucs-jis           . #x0385)       ; 
+    (=jis-x0212                . #x2239)       ; 
+    (=ucs@jis          . #x0385)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
     (->decomposition   #x0391 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter alpha with tonos")
-      (japanese-jisx0212  . #x2661)    ; 
+      (=jis-x0212        . #x2661)     ; 
+      (=ucs@jis                  . #x0386)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER ALPHA WITH TONOS")
       (=ucs              . #x03AC)     ; ά
       ))
-    (greek-iso8859-7   . #xB6) ; 
     (=ucs              . #x0386)       ; Ά
+    (greek-iso8859-7   . #xB6) ; 
     ))
 (define-char
   '((name . "fullwidth greek capital letter alpha with tonos")
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
       (=ucs              . #x0386)     ; Ά
       ))
-    (japanese-jisx0212 . #x2661)       ; 
-    (ucs-jis           . #x0386)       ; 
+    (=jis-x0212                . #x2661)       ; 
+    (=ucs@jis          . #x0386)       ; 
     ))
 (define-char
   '((name              . "GREEK ANO TELEIA")
     (->decomposition   #x0395 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter epsilon with tonos")
-      (japanese-jisx0212  . #x2662)    ; 
+      (=jis-x0212        . #x2662)     ; 
+      (=ucs@jis                  . #x0388)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER EPSILON WITH TONOS")
       (=ucs              . #x03AD)     ; έ
       ))
-    (greek-iso8859-7   . #xB8) ; 
     (=ucs              . #x0388)       ; Έ
+    (greek-iso8859-7   . #xB8) ; 
     ))
 (define-char
   '((name . "fullwidth greek capital letter epsilon with tonos")
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
       (=ucs              . #x0388)     ; Έ
       ))
-    (japanese-jisx0212 . #x2662)       ; 
-    (ucs-jis           . #x0388)       ; 
+    (=jis-x0212                . #x2662)       ; 
+    (=ucs@jis          . #x0388)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA WITH TONOS")
     (->decomposition   #x0397 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter eta with tonos")
-      (japanese-jisx0212  . #x2663)    ; 
+      (=jis-x0212        . #x2663)     ; 
+      (=ucs@jis                  . #x0389)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER ETA WITH TONOS")
       (=ucs              . #x03AE)     ; ή
       ))
-    (greek-iso8859-7   . #xB9) ; 
     (=ucs              . #x0389)       ; Ή
+    (greek-iso8859-7   . #xB9) ; 
     ))
 (define-char
   '((name . "fullwidth greek capital letter eta with tonos")
      ((name              . "GREEK CAPITAL LETTER ETA WITH TONOS")
       (=ucs              . #x0389)     ; Ή
       ))
-    (japanese-jisx0212 . #x2663)       ; 
-    (ucs-jis           . #x0389)       ; 
+    (=jis-x0212                . #x2663)       ; 
+    (=ucs@jis          . #x0389)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH TONOS")
     (->decomposition   #x0399 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter iota with tonos")
-      (japanese-jisx0212  . #x2664)    ; 
+      (=jis-x0212        . #x2664)     ; 
+      (=ucs@jis                  . #x038A)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA WITH TONOS")
       (=ucs              . #x03AF)     ; ί
       ))
-    (greek-iso8859-7   . #xBA) ; 
     (=ucs              . #x038A)       ; Ί
+    (greek-iso8859-7   . #xBA) ; 
     ))
 (define-char
   '((name . "fullwidth greek capital letter iota with tonos")
      ((name              . "GREEK CAPITAL LETTER IOTA WITH TONOS")
       (=ucs              . #x038A)     ; Ί
       ))
-    (japanese-jisx0212 . #x2664)       ; 
-    (ucs-jis           . #x038A)       ; 
+    (=jis-x0212                . #x2664)       ; 
+    (=ucs@jis          . #x038A)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
     (->decomposition   #x039F #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter omicron with tonos")
-      (japanese-jisx0212  . #x2667)    ; 
+      (=jis-x0212        . #x2667)     ; 
+      (=ucs@jis                  . #x038C)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMICRON WITH TONOS")
       (=ucs              . #x03CC)     ; ό
       ))
-    (greek-iso8859-7   . #xBC) ; 
     (=ucs              . #x038C)       ; Ό
+    (greek-iso8859-7   . #xBC) ; 
     ))
 (define-char
   '((name . "fullwidth greek capital letter omicron with tonos")
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
       (=ucs              . #x038C)     ; Ό
       ))
-    (japanese-jisx0212 . #x2667)       ; 
-    (ucs-jis           . #x038C)       ; 
+    (=jis-x0212                . #x2667)       ; 
+    (=ucs@jis          . #x038C)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
     (->decomposition   #x03A5 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter upsilon with tonos")
-      (japanese-jisx0212  . #x2669)    ; 
+      (=jis-x0212        . #x2669)     ; 
+      (=ucs@jis                  . #x038E)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER UPSILON WITH TONOS")
       (=ucs              . #x03CD)     ; ύ
       ))
-    (greek-iso8859-7   . #xBE) ; 
     (=ucs              . #x038E)       ; Ύ
+    (greek-iso8859-7   . #xBE) ; 
     ))
 (define-char
   '((name . "fullwidth greek capital letter upsilon with tonos")
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
       (=ucs              . #x038E)     ; Ύ
       ))
-    (japanese-jisx0212 . #x2669)       ; 
-    (ucs-jis           . #x038E)       ; 
+    (=jis-x0212                . #x2669)       ; 
+    (=ucs@jis          . #x038E)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
     (->decomposition   #x03A9 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter omega with tonos")
-      (japanese-jisx0212  . #x266C)    ; 
+      (=jis-x0212        . #x266C)     ; 
+      (=ucs@jis                  . #x038F)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMEGA WITH TONOS")
       (=ucs              . #x03CE)     ; ώ
       ))
-    (greek-iso8859-7   . #xBF) ; 
     (=ucs              . #x038F)       ; Ώ
+    (greek-iso8859-7   . #xBF) ; 
     ))
 (define-char
   '((name . "fullwidth greek capital letter omega with tonos")
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
       (=ucs              . #x038F)     ; Ώ
       ))
-    (japanese-jisx0212 . #x266C)       ; 
-    (ucs-jis           . #x038F)       ; 
+    (=jis-x0212                . #x266C)       ; 
+    (=ucs@jis          . #x038F)       ; 
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
     (->decomposition   #x03CA #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter iota with dialytika and tonos")
-      (japanese-jisx0212  . #x2676)    ; 
+      (=jis-x0212        . #x2676)     ; 
+      (=ucs@jis                  . #x0390)     ; 
       ))
-    (greek-iso8859-7   . #xC0) ; 
     (=ucs              . #x0390)       ; ΐ
+    (greek-iso8859-7   . #xC0) ; 
     ))
 (define-char
   '((name . "fullwidth greek small letter iota with dialytika and tonos")
      ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
       (=ucs              . #x0390)     ; ΐ
       ))
-    (japanese-jisx0212 . #x2676)       ; 
-    (ucs-jis           . #x0390)       ; 
+    (=jis-x0212                . #x2676)       ; 
+    (=ucs@jis          . #x0390)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ALPHA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter alpha")
-      (chinese-gb2312    . #x2621)     ; 
-      (korean-ksc5601    . #x2541)     ; 
-      (chinese-cns11643-1 . #x2475)    ; 
+      (=gb2312           . #x2621)     ; 
+      (=jis-x0208        . #x2621)     ; 
+      (=ks-x1001         . #x2541)     ; 
+      (=cns11643-1       . #x2475)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER ALPHA")
       (=ucs              . #x03B1)     ; α
       ))
-    (greek-iso8859-7   . #xC1) ; 
     (=ucs              . #x0391)       ; Α
+    (greek-iso8859-7   . #xC1) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter alpha")
      ((name              . "GREEK CAPITAL LETTER ALPHA")
       (=ucs              . #x0391)     ; Α
       ))
-    (chinese-gb2312    . #x2621)       ; 
+    (=gb2312           . #x2621)       ; 
     (=jis-x0208                . #x2621)       ; 
-    (korean-ksc5601    . #x2541)       ; 
-    (chinese-cns11643-1 . #x2475)      ; 
-    (chinese-big5      . #xA344)       ; 
-    (ucs-jis           . #x0391)       ; 
+    (=ks-x1001         . #x2541)       ; 
+    (=cns11643-1       . #x2475)       ; 
+    (=big5             . #xA344)       ; 
+    (=ucs@jis          . #x0391)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER BETA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter beta")
-      (chinese-gb2312    . #x2622)     ; 
-      (korean-ksc5601    . #x2542)     ; 
-      (chinese-cns11643-1 . #x2476)    ; 
+      (=gb2312           . #x2622)     ; 
+      (=jis-x0208        . #x2622)     ; 
+      (=ks-x1001         . #x2542)     ; 
+      (=cns11643-1       . #x2476)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER BETA")
       (=ucs              . #x03B2)     ; β
       ))
-    (greek-iso8859-7   . #xC2) ; 
     (=ucs              . #x0392)       ; Β
+    (greek-iso8859-7   . #xC2) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter beta")
      ((name              . "GREEK CAPITAL LETTER BETA")
       (=ucs              . #x0392)     ; Β
       ))
-    (chinese-gb2312    . #x2622)       ; 
+    (=gb2312           . #x2622)       ; 
     (=jis-x0208                . #x2622)       ; 
-    (korean-ksc5601    . #x2542)       ; 
-    (chinese-cns11643-1 . #x2476)      ; 
-    (chinese-big5      . #xA345)       ; 
-    (ucs-jis           . #x0392)       ; 
+    (=ks-x1001         . #x2542)       ; 
+    (=cns11643-1       . #x2476)       ; 
+    (=big5             . #xA345)       ; 
+    (=ucs@jis          . #x0392)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER GAMMA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter gamma")
-      (chinese-gb2312    . #x2623)     ; 
-      (korean-ksc5601    . #x2543)     ; 
-      (chinese-cns11643-1 . #x2477)    ; 
+      (=gb2312           . #x2623)     ; 
+      (=jis-x0208        . #x2623)     ; 
+      (=ks-x1001         . #x2543)     ; 
+      (=cns11643-1       . #x2477)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER GAMMA")
       (=ucs              . #x03B3)     ; γ
       ))
-    (greek-iso8859-7   . #xC3) ; 
     (=ucs              . #x0393)       ; Γ
+    (greek-iso8859-7   . #xC3) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter gamma")
      ((name              . "GREEK CAPITAL LETTER GAMMA")
       (=ucs              . #x0393)     ; Γ
       ))
-    (chinese-gb2312    . #x2623)       ; 
+    (=gb2312           . #x2623)       ; 
     (=jis-x0208                . #x2623)       ; 
-    (korean-ksc5601    . #x2543)       ; 
-    (chinese-cns11643-1 . #x2477)      ; 
-    (chinese-big5      . #xA346)       ; 
-    (ucs-jis           . #x0393)       ; 
+    (=ks-x1001         . #x2543)       ; 
+    (=cns11643-1       . #x2477)       ; 
+    (=big5             . #xA346)       ; 
+    (=ucs@jis          . #x0393)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER DELTA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter delta")
-      (chinese-gb2312    . #x2624)     ; 
-      (korean-ksc5601    . #x2544)     ; 
-      (chinese-cns11643-1 . #x2478)    ; 
+      (=gb2312           . #x2624)     ; 
+      (=jis-x0208        . #x2624)     ; 
+      (=ks-x1001         . #x2544)     ; 
+      (=cns11643-1       . #x2478)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER DELTA")
       (=ucs              . #x03B4)     ; δ
       ))
-    (greek-iso8859-7   . #xC4) ; 
     (=ucs              . #x0394)       ; Δ
+    (greek-iso8859-7   . #xC4) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter delta")
      ((name              . "GREEK CAPITAL LETTER DELTA")
       (=ucs              . #x0394)     ; Δ
       ))
-    (chinese-gb2312    . #x2624)       ; 
+    (=gb2312           . #x2624)       ; 
     (=jis-x0208                . #x2624)       ; 
-    (korean-ksc5601    . #x2544)       ; 
-    (chinese-cns11643-1 . #x2478)      ; 
-    (chinese-big5      . #xA347)       ; 
-    (ucs-jis           . #x0394)       ; 
+    (=ks-x1001         . #x2544)       ; 
+    (=cns11643-1       . #x2478)       ; 
+    (=big5             . #xA347)       ; 
+    (=ucs@jis          . #x0394)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER EPSILON")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter epsilon")
-      (chinese-gb2312    . #x2625)     ; 
-      (korean-ksc5601    . #x2545)     ; 
-      (chinese-cns11643-1 . #x2479)    ; 
+      (=gb2312           . #x2625)     ; 
+      (=jis-x0208        . #x2625)     ; 
+      (=ks-x1001         . #x2545)     ; 
+      (=cns11643-1       . #x2479)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER EPSILON")
       (=ucs              . #x03B5)     ; ε
       ))
-    (greek-iso8859-7   . #xC5) ; 
     (=ucs              . #x0395)       ; Ε
+    (greek-iso8859-7   . #xC5) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter epsilon")
      ((name              . "GREEK CAPITAL LETTER EPSILON")
       (=ucs              . #x0395)     ; Ε
       ))
-    (chinese-gb2312    . #x2625)       ; 
+    (=gb2312           . #x2625)       ; 
     (=jis-x0208                . #x2625)       ; 
-    (korean-ksc5601    . #x2545)       ; 
-    (chinese-cns11643-1 . #x2479)      ; 
-    (chinese-big5      . #xA348)       ; 
-    (ucs-jis           . #x0395)       ; 
+    (=ks-x1001         . #x2545)       ; 
+    (=cns11643-1       . #x2479)       ; 
+    (=big5             . #xA348)       ; 
+    (=ucs@jis          . #x0395)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ZETA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter zeta")
-      (chinese-gb2312    . #x2626)     ; 
-      (korean-ksc5601    . #x2546)     ; 
-      (chinese-cns11643-1 . #x247A)    ; 
+      (=gb2312           . #x2626)     ; 
+      (=jis-x0208        . #x2626)     ; 
+      (=ks-x1001         . #x2546)     ; 
+      (=cns11643-1       . #x247A)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER ZETA")
       (=ucs              . #x03B6)     ; ζ
       ))
-    (greek-iso8859-7   . #xC6) ; 
     (=ucs              . #x0396)       ; Ζ
+    (greek-iso8859-7   . #xC6) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter zeta")
      ((name              . "GREEK CAPITAL LETTER ZETA")
       (=ucs              . #x0396)     ; Ζ
       ))
-    (chinese-gb2312    . #x2626)       ; 
+    (=gb2312           . #x2626)       ; 
     (=jis-x0208                . #x2626)       ; 
-    (korean-ksc5601    . #x2546)       ; 
-    (chinese-cns11643-1 . #x247A)      ; 
-    (chinese-big5      . #xA349)       ; 
-    (ucs-jis           . #x0396)       ; 
+    (=ks-x1001         . #x2546)       ; 
+    (=cns11643-1       . #x247A)       ; 
+    (=big5             . #xA349)       ; 
+    (=ucs@jis          . #x0396)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER ETA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter eta")
-      (chinese-gb2312    . #x2627)     ; 
-      (korean-ksc5601    . #x2547)     ; 
-      (chinese-cns11643-1 . #x247B)    ; 
+      (=gb2312           . #x2627)     ; 
+      (=jis-x0208        . #x2627)     ; 
+      (=ks-x1001         . #x2547)     ; 
+      (=cns11643-1       . #x247B)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER ETA")
       (=ucs              . #x03B7)     ; η
       ))
-    (greek-iso8859-7   . #xC7) ; 
     (=ucs              . #x0397)       ; Η
+    (greek-iso8859-7   . #xC7) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter eta")
      ((name              . "GREEK CAPITAL LETTER ETA")
       (=ucs              . #x0397)     ; Η
       ))
-    (chinese-gb2312    . #x2627)       ; 
+    (=gb2312           . #x2627)       ; 
     (=jis-x0208                . #x2627)       ; 
-    (korean-ksc5601    . #x2547)       ; 
-    (chinese-cns11643-1 . #x247B)      ; 
-    (chinese-big5      . #xA34A)       ; 
-    (ucs-jis           . #x0397)       ; 
+    (=ks-x1001         . #x2547)       ; 
+    (=cns11643-1       . #x247B)       ; 
+    (=big5             . #xA34A)       ; 
+    (=ucs@jis          . #x0397)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER THETA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter theta")
-      (chinese-gb2312    . #x2628)     ; 
-      (korean-ksc5601    . #x2548)     ; 
-      (chinese-cns11643-1 . #x247C)    ; 
+      (=gb2312           . #x2628)     ; 
+      (=jis-x0208        . #x2628)     ; 
+      (=ks-x1001         . #x2548)     ; 
+      (=cns11643-1       . #x247C)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER THETA")
       (=ucs              . #x03B8)     ; θ
       ))
-    (greek-iso8859-7   . #xC8) ; 
     (=ucs              . #x0398)       ; Θ
+    (greek-iso8859-7   . #xC8) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter theta")
      ((name              . "GREEK CAPITAL LETTER THETA")
       (=ucs              . #x0398)     ; Θ
       ))
-    (chinese-gb2312    . #x2628)       ; 
+    (=gb2312           . #x2628)       ; 
     (=jis-x0208                . #x2628)       ; 
-    (korean-ksc5601    . #x2548)       ; 
-    (chinese-cns11643-1 . #x247C)      ; 
-    (chinese-big5      . #xA34B)       ; 
-    (ucs-jis           . #x0398)       ; 
+    (=ks-x1001         . #x2548)       ; 
+    (=cns11643-1       . #x247C)       ; 
+    (=big5             . #xA34B)       ; 
+    (=ucs@jis          . #x0398)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter iota")
-      (chinese-gb2312    . #x2629)     ; 
-      (korean-ksc5601    . #x2549)     ; 
-      (chinese-cns11643-1 . #x247D)    ; 
+      (=gb2312           . #x2629)     ; 
+      (=jis-x0208        . #x2629)     ; 
+      (=ks-x1001         . #x2549)     ; 
+      (=cns11643-1       . #x247D)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA")
       (=ucs              . #x03B9)     ; ι
       ))
-    (greek-iso8859-7   . #xC9) ; 
     (=ucs              . #x0399)       ; Ι
+    (greek-iso8859-7   . #xC9) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter iota")
      ((name              . "GREEK CAPITAL LETTER IOTA")
       (=ucs              . #x0399)     ; Ι
       ))
-    (chinese-gb2312    . #x2629)       ; 
+    (=gb2312           . #x2629)       ; 
     (=jis-x0208                . #x2629)       ; 
-    (korean-ksc5601    . #x2549)       ; 
-    (chinese-cns11643-1 . #x247D)      ; 
-    (chinese-big5      . #xA34C)       ; 
-    (ucs-jis           . #x0399)       ; 
+    (=ks-x1001         . #x2549)       ; 
+    (=cns11643-1       . #x247D)       ; 
+    (=big5             . #xA34C)       ; 
+    (=ucs@jis          . #x0399)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER KAPPA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter kappa")
-      (chinese-gb2312    . #x262A)     ; 
-      (korean-ksc5601    . #x254A)     ; 
-      (chinese-cns11643-1 . #x247E)    ; 
+      (=gb2312           . #x262A)     ; 
+      (=jis-x0208        . #x262A)     ; 
+      (=ks-x1001         . #x254A)     ; 
+      (=cns11643-1       . #x247E)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER KAPPA")
       (=ucs              . #x03BA)     ; κ
       ))
-    (greek-iso8859-7   . #xCA) ; 
     (=ucs              . #x039A)       ; Κ
+    (greek-iso8859-7   . #xCA) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter kappa")
      ((name              . "GREEK CAPITAL LETTER KAPPA")
       (=ucs              . #x039A)     ; Κ
       ))
-    (chinese-gb2312    . #x262A)       ; 
+    (=gb2312           . #x262A)       ; 
     (=jis-x0208                . #x262A)       ; 
-    (korean-ksc5601    . #x254A)       ; 
-    (chinese-cns11643-1 . #x247E)      ; 
-    (chinese-big5      . #xA34D)       ; 
-    (ucs-jis           . #x039A)       ; 
+    (=ks-x1001         . #x254A)       ; 
+    (=cns11643-1       . #x247E)       ; 
+    (=big5             . #xA34D)       ; 
+    (=ucs@jis          . #x039A)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER LAMDA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter lamda")
-      (chinese-gb2312    . #x262B)     ; 
-      (korean-ksc5601    . #x254B)     ; 
-      (chinese-cns11643-1 . #x2521)    ; 
+      (=gb2312           . #x262B)     ; 
+      (=jis-x0208        . #x262B)     ; 
+      (=ks-x1001         . #x254B)     ; 
+      (=cns11643-1       . #x2521)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER LAMDA")
       (=ucs              . #x03BB)     ; λ
       ))
-    (greek-iso8859-7   . #xCB) ; 
     (=ucs              . #x039B)       ; Λ
+    (greek-iso8859-7   . #xCB) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter lamda")
      ((name              . "GREEK CAPITAL LETTER LAMDA")
       (=ucs              . #x039B)     ; Λ
       ))
-    (chinese-gb2312    . #x262B)       ; 
+    (=gb2312           . #x262B)       ; 
     (=jis-x0208                . #x262B)       ; 
-    (korean-ksc5601    . #x254B)       ; 
-    (chinese-cns11643-1 . #x2521)      ; 
-    (chinese-big5      . #xA34E)       ; 
-    (ucs-jis           . #x039B)       ; 
+    (=ks-x1001         . #x254B)       ; 
+    (=cns11643-1       . #x2521)       ; 
+    (=big5             . #xA34E)       ; 
+    (=ucs@jis          . #x039B)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER MU")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter mu")
-      (chinese-gb2312    . #x262C)     ; 
-      (korean-ksc5601    . #x254C)     ; 
-      (chinese-cns11643-1 . #x2522)    ; 
+      (=gb2312           . #x262C)     ; 
+      (=jis-x0208        . #x262C)     ; 
+      (=ks-x1001         . #x254C)     ; 
+      (=cns11643-1       . #x2522)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER MU")
       (=ucs              . #x03BC)     ; μ
       ))
-    (greek-iso8859-7   . #xCC) ; 
     (=ucs              . #x039C)       ; Μ
+    (greek-iso8859-7   . #xCC) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter mu")
      ((name              . "GREEK CAPITAL LETTER MU")
       (=ucs              . #x039C)     ; Μ
       ))
-    (chinese-gb2312    . #x262C)       ; 
+    (=gb2312           . #x262C)       ; 
     (=jis-x0208                . #x262C)       ; 
-    (korean-ksc5601    . #x254C)       ; 
-    (chinese-cns11643-1 . #x2522)      ; 
-    (chinese-big5      . #xA34F)       ; 
-    (ucs-jis           . #x039C)       ; 
+    (=ks-x1001         . #x254C)       ; 
+    (=cns11643-1       . #x2522)       ; 
+    (=big5             . #xA34F)       ; 
+    (=ucs@jis          . #x039C)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER NU")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter nu")
-      (chinese-gb2312    . #x262D)     ; 
-      (korean-ksc5601    . #x254D)     ; 
-      (chinese-cns11643-1 . #x2523)    ; 
+      (=gb2312           . #x262D)     ; 
+      (=jis-x0208        . #x262D)     ; 
+      (=ks-x1001         . #x254D)     ; 
+      (=cns11643-1       . #x2523)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER NU")
       (=ucs              . #x03BD)     ; ν
       ))
-    (greek-iso8859-7   . #xCD) ; 
     (=ucs              . #x039D)       ; Ν
+    (greek-iso8859-7   . #xCD) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter nu")
      ((name              . "GREEK CAPITAL LETTER NU")
       (=ucs              . #x039D)     ; Ν
       ))
-    (chinese-gb2312    . #x262D)       ; 
+    (=gb2312           . #x262D)       ; 
     (=jis-x0208                . #x262D)       ; 
-    (korean-ksc5601    . #x254D)       ; 
-    (chinese-cns11643-1 . #x2523)      ; 
-    (chinese-big5      . #xA350)       ; 
-    (ucs-jis           . #x039D)       ; 
+    (=ks-x1001         . #x254D)       ; 
+    (=cns11643-1       . #x2523)       ; 
+    (=big5             . #xA350)       ; 
+    (=ucs@jis          . #x039D)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER XI")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter xi")
-      (chinese-gb2312    . #x262E)     ; 
-      (korean-ksc5601    . #x254E)     ; 
-      (chinese-cns11643-1 . #x2524)    ; 
+      (=gb2312           . #x262E)     ; 
+      (=jis-x0208        . #x262E)     ; 
+      (=ks-x1001         . #x254E)     ; 
+      (=cns11643-1       . #x2524)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER XI")
       (=ucs              . #x03BE)     ; ξ
       ))
-    (greek-iso8859-7   . #xCE) ; 
     (=ucs              . #x039E)       ; Ξ
+    (greek-iso8859-7   . #xCE) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter xi")
      ((name              . "GREEK CAPITAL LETTER XI")
       (=ucs              . #x039E)     ; Ξ
       ))
-    (chinese-gb2312    . #x262E)       ; 
+    (=gb2312           . #x262E)       ; 
     (=jis-x0208                . #x262E)       ; 
-    (korean-ksc5601    . #x254E)       ; 
-    (chinese-cns11643-1 . #x2524)      ; 
-    (chinese-big5      . #xA351)       ; 
-    (ucs-jis           . #x039E)       ; 
+    (=ks-x1001         . #x254E)       ; 
+    (=cns11643-1       . #x2524)       ; 
+    (=big5             . #xA351)       ; 
+    (=ucs@jis          . #x039E)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMICRON")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter omicron")
-      (chinese-gb2312    . #x262F)     ; 
-      (korean-ksc5601    . #x254F)     ; 
-      (chinese-cns11643-1 . #x2525)    ; 
+      (=gb2312           . #x262F)     ; 
+      (=jis-x0208        . #x262F)     ; 
+      (=ks-x1001         . #x254F)     ; 
+      (=cns11643-1       . #x2525)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMICRON")
       (=ucs              . #x03BF)     ; ο
       ))
-    (greek-iso8859-7   . #xCF) ; 
     (=ucs              . #x039F)       ; Ο
+    (greek-iso8859-7   . #xCF) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter omicron")
      ((name              . "GREEK CAPITAL LETTER OMICRON")
       (=ucs              . #x039F)     ; Ο
       ))
-    (chinese-gb2312    . #x262F)       ; 
+    (=gb2312           . #x262F)       ; 
     (=jis-x0208                . #x262F)       ; 
-    (korean-ksc5601    . #x254F)       ; 
-    (chinese-cns11643-1 . #x2525)      ; 
-    (chinese-big5      . #xA352)       ; 
-    (ucs-jis           . #x039F)       ; 
+    (=ks-x1001         . #x254F)       ; 
+    (=cns11643-1       . #x2525)       ; 
+    (=big5             . #xA352)       ; 
+    (=ucs@jis          . #x039F)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER PI")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter pi")
-      (chinese-gb2312    . #x2630)     ; 
-      (korean-ksc5601    . #x2550)     ; 
-      (chinese-cns11643-1 . #x2526)    ; 
+      (=gb2312           . #x2630)     ; 
+      (=jis-x0208        . #x2630)     ; 
+      (=ks-x1001         . #x2550)     ; 
+      (=cns11643-1       . #x2526)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER PI")
       (=ucs              . #x03C0)     ; π
       ))
-    (greek-iso8859-7   . #xD0) ; 
     (=ucs              . #x03A0)       ; Π
+    (greek-iso8859-7   . #xD0) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter pi")
      ((name              . "GREEK CAPITAL LETTER PI")
       (=ucs              . #x03A0)     ; Π
       ))
-    (chinese-gb2312    . #x2630)       ; 
+    (=gb2312           . #x2630)       ; 
     (=jis-x0208                . #x2630)       ; 
-    (korean-ksc5601    . #x2550)       ; 
-    (chinese-cns11643-1 . #x2526)      ; 
-    (chinese-big5      . #xA353)       ; 
-    (ucs-jis           . #x03A0)       ; 
+    (=ks-x1001         . #x2550)       ; 
+    (=cns11643-1       . #x2526)       ; 
+    (=big5             . #xA353)       ; 
+    (=ucs@jis          . #x03A0)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER RHO")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter rho")
-      (chinese-gb2312    . #x2631)     ; 
-      (korean-ksc5601    . #x2551)     ; 
-      (chinese-cns11643-1 . #x2527)    ; 
+      (=gb2312           . #x2631)     ; 
+      (=jis-x0208        . #x2631)     ; 
+      (=ks-x1001         . #x2551)     ; 
+      (=cns11643-1       . #x2527)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER RHO")
       (=ucs              . #x03C1)     ; ρ
       ))
-    (greek-iso8859-7   . #xD1) ; 
     (=ucs              . #x03A1)       ; Ρ
+    (greek-iso8859-7   . #xD1) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter rho")
      ((name              . "GREEK CAPITAL LETTER RHO")
       (=ucs              . #x03A1)     ; Ρ
       ))
-    (chinese-gb2312    . #x2631)       ; 
+    (=gb2312           . #x2631)       ; 
     (=jis-x0208                . #x2631)       ; 
-    (korean-ksc5601    . #x2551)       ; 
-    (chinese-cns11643-1 . #x2527)      ; 
-    (chinese-big5      . #xA354)       ; 
-    (ucs-jis           . #x03A1)       ; 
+    (=ks-x1001         . #x2551)       ; 
+    (=cns11643-1       . #x2527)       ; 
+    (=big5             . #xA354)       ; 
+    (=ucs@jis          . #x03A1)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER SIGMA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter sigma")
-      (chinese-gb2312    . #x2632)     ; 
-      (korean-ksc5601    . #x2552)     ; 
-      (chinese-cns11643-1 . #x2528)    ; 
+      (=gb2312           . #x2632)     ; 
+      (=jis-x0208        . #x2632)     ; 
+      (=ks-x1001         . #x2552)     ; 
+      (=cns11643-1       . #x2528)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER SIGMA")
       (=ucs              . #x03C3)     ; σ
       ))
-    (greek-iso8859-7   . #xD3) ; 
     (=ucs              . #x03A3)       ; Σ
+    (greek-iso8859-7   . #xD3) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter sigma")
      ((name              . "GREEK CAPITAL LETTER SIGMA")
       (=ucs              . #x03A3)     ; Σ
       ))
-    (chinese-gb2312    . #x2632)       ; 
+    (=gb2312           . #x2632)       ; 
     (=jis-x0208                . #x2632)       ; 
-    (korean-ksc5601    . #x2552)       ; 
-    (chinese-cns11643-1 . #x2528)      ; 
-    (chinese-big5      . #xA355)       ; 
-    (ucs-jis           . #x03A3)       ; 
+    (=ks-x1001         . #x2552)       ; 
+    (=cns11643-1       . #x2528)       ; 
+    (=big5             . #xA355)       ; 
+    (=ucs@jis          . #x03A3)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER TAU")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter tau")
-      (chinese-gb2312    . #x2633)     ; 
-      (korean-ksc5601    . #x2553)     ; 
-      (chinese-cns11643-1 . #x2529)    ; 
+      (=gb2312           . #x2633)     ; 
+      (=jis-x0208        . #x2633)     ; 
+      (=ks-x1001         . #x2553)     ; 
+      (=cns11643-1       . #x2529)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER TAU")
       (=ucs              . #x03C4)     ; τ
       ))
-    (greek-iso8859-7   . #xD4) ; 
     (=ucs              . #x03A4)       ; Τ
+    (greek-iso8859-7   . #xD4) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter tau")
      ((name              . "GREEK CAPITAL LETTER TAU")
       (=ucs              . #x03A4)     ; Τ
       ))
-    (chinese-gb2312    . #x2633)       ; 
+    (=gb2312           . #x2633)       ; 
     (=jis-x0208                . #x2633)       ; 
-    (korean-ksc5601    . #x2553)       ; 
-    (chinese-cns11643-1 . #x2529)      ; 
-    (chinese-big5      . #xA356)       ; 
-    (ucs-jis           . #x03A4)       ; 
+    (=ks-x1001         . #x2553)       ; 
+    (=cns11643-1       . #x2529)       ; 
+    (=big5             . #xA356)       ; 
+    (=ucs@jis          . #x03A4)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter upsilon")
-      (chinese-gb2312    . #x2634)     ; 
-      (korean-ksc5601    . #x2554)     ; 
-      (chinese-cns11643-1 . #x252A)    ; 
+      (=gb2312           . #x2634)     ; 
+      (=jis-x0208        . #x2634)     ; 
+      (=ks-x1001         . #x2554)     ; 
+      (=cns11643-1       . #x252A)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER UPSILON")
       (=ucs              . #x03C5)     ; υ
       ))
-    (greek-iso8859-7   . #xD5) ; 
     (=ucs              . #x03A5)       ; Υ
+    (greek-iso8859-7   . #xD5) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter upsilon")
      ((name              . "GREEK CAPITAL LETTER UPSILON")
       (=ucs              . #x03A5)     ; Υ
       ))
-    (chinese-gb2312    . #x2634)       ; 
+    (=gb2312           . #x2634)       ; 
     (=jis-x0208                . #x2634)       ; 
-    (korean-ksc5601    . #x2554)       ; 
-    (chinese-cns11643-1 . #x252A)      ; 
-    (chinese-big5      . #xA357)       ; 
-    (ucs-jis           . #x03A5)       ; 
+    (=ks-x1001         . #x2554)       ; 
+    (=cns11643-1       . #x252A)       ; 
+    (=big5             . #xA357)       ; 
+    (=ucs@jis          . #x03A5)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER PHI")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter phi")
-      (chinese-gb2312    . #x2635)     ; 
-      (korean-ksc5601    . #x2555)     ; 
-      (chinese-cns11643-1 . #x252B)    ; 
+      (=gb2312           . #x2635)     ; 
+      (=jis-x0208        . #x2635)     ; 
+      (=ks-x1001         . #x2555)     ; 
+      (=cns11643-1       . #x252B)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER PHI")
       (=ucs              . #x03C6)     ; φ
       ))
-    (greek-iso8859-7   . #xD6) ; 
     (=ucs              . #x03A6)       ; Φ
+    (greek-iso8859-7   . #xD6) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter phi")
      ((name              . "GREEK CAPITAL LETTER PHI")
       (=ucs              . #x03A6)     ; Φ
       ))
-    (chinese-gb2312    . #x2635)       ; 
+    (=gb2312           . #x2635)       ; 
     (=jis-x0208                . #x2635)       ; 
-    (korean-ksc5601    . #x2555)       ; 
-    (chinese-cns11643-1 . #x252B)      ; 
-    (chinese-big5      . #xA358)       ; 
-    (ucs-jis           . #x03A6)       ; 
+    (=ks-x1001         . #x2555)       ; 
+    (=cns11643-1       . #x252B)       ; 
+    (=big5             . #xA358)       ; 
+    (=ucs@jis          . #x03A6)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER CHI")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter chi")
-      (chinese-gb2312    . #x2636)     ; 
-      (korean-ksc5601    . #x2556)     ; 
-      (chinese-cns11643-1 . #x252C)    ; 
+      (=gb2312           . #x2636)     ; 
+      (=jis-x0208        . #x2636)     ; 
+      (=ks-x1001         . #x2556)     ; 
+      (=cns11643-1       . #x252C)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER CHI")
       (=ucs              . #x03C7)     ; χ
       ))
-    (greek-iso8859-7   . #xD7) ; 
     (=ucs              . #x03A7)       ; Χ
+    (greek-iso8859-7   . #xD7) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter chi")
      ((name              . "GREEK CAPITAL LETTER CHI")
       (=ucs              . #x03A7)     ; Χ
       ))
-    (chinese-gb2312    . #x2636)       ; 
+    (=gb2312           . #x2636)       ; 
     (=jis-x0208                . #x2636)       ; 
-    (korean-ksc5601    . #x2556)       ; 
-    (chinese-cns11643-1 . #x252C)      ; 
-    (chinese-big5      . #xA359)       ; 
-    (ucs-jis           . #x03A7)       ; 
+    (=ks-x1001         . #x2556)       ; 
+    (=cns11643-1       . #x252C)       ; 
+    (=big5             . #xA359)       ; 
+    (=ucs@jis          . #x03A7)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER PSI")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter psi")
-      (chinese-gb2312    . #x2637)     ; 
-      (korean-ksc5601    . #x2557)     ; 
-      (chinese-cns11643-1 . #x252D)    ; 
+      (=gb2312           . #x2637)     ; 
+      (=jis-x0208        . #x2637)     ; 
+      (=ks-x1001         . #x2557)     ; 
+      (=cns11643-1       . #x252D)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER PSI")
       (=ucs              . #x03C8)     ; ψ
       ))
-    (greek-iso8859-7   . #xD8) ; 
     (=ucs              . #x03A8)       ; Ψ
+    (greek-iso8859-7   . #xD8) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter psi")
      ((name              . "GREEK CAPITAL LETTER PSI")
       (=ucs              . #x03A8)     ; Ψ
       ))
-    (chinese-gb2312    . #x2637)       ; 
+    (=gb2312           . #x2637)       ; 
     (=jis-x0208                . #x2637)       ; 
-    (korean-ksc5601    . #x2557)       ; 
-    (chinese-cns11643-1 . #x252D)      ; 
-    (chinese-big5      . #xA35A)       ; 
-    (ucs-jis           . #x03A8)       ; 
+    (=ks-x1001         . #x2557)       ; 
+    (=cns11643-1       . #x252D)       ; 
+    (=big5             . #xA35A)       ; 
+    (=ucs@jis          . #x03A8)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER OMEGA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek capital letter omega")
-      (chinese-gb2312    . #x2638)     ; 
-      (korean-ksc5601    . #x2558)     ; 
-      (chinese-cns11643-1 . #x252E)    ; 
+      (=gb2312           . #x2638)     ; 
+      (=jis-x0208        . #x2638)     ; 
+      (=ks-x1001         . #x2558)     ; 
+      (=cns11643-1       . #x252E)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMEGA")
       (=ucs              . #x03C9)     ; ω
       ))
-    (greek-iso8859-7   . #xD9) ; 
     (=ucs              . #x03A9)       ; Ω
+    (greek-iso8859-7   . #xD9) ; 
     ))
 (define-char
   '((name              . "fullwidth greek capital letter omega")
      ((name              . "GREEK CAPITAL LETTER OMEGA")
       (=ucs              . #x03A9)     ; Ω
       ))
-    (chinese-gb2312    . #x2638)       ; 
+    (=gb2312           . #x2638)       ; 
     (=jis-x0208                . #x2638)       ; 
-    (korean-ksc5601    . #x2558)       ; 
-    (chinese-cns11643-1 . #x252E)      ; 
-    (chinese-big5      . #xA35B)       ; 
-    (ucs-jis           . #x03A9)       ; 
+    (=ks-x1001         . #x2558)       ; 
+    (=cns11643-1       . #x252E)       ; 
+    (=big5             . #xA35B)       ; 
+    (=ucs@jis          . #x03A9)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
     (->decomposition   #x0399 #x0308)
     (->fullwidth
      ((name . "fullwidth greek capital letter iota with dialytika")
-      (japanese-jisx0212  . #x2665)    ; 
+      (=jis-x0212        . #x2665)     ; 
+      (=ucs@jis                  . #x03AA)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
       (=ucs              . #x03CA)     ; ϊ
       ))
-    (greek-iso8859-7   . #xDA) ; 
     (=ucs              . #x03AA)       ; Ϊ
+    (greek-iso8859-7   . #xDA) ; 
     ))
 (define-char
   '((name . "fullwidth greek capital letter iota with dialytika")
      ((name              . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
       (=ucs              . #x03AA)     ; Ϊ
       ))
-    (japanese-jisx0212 . #x2665)       ; 
-    (ucs-jis           . #x03AA)       ; 
+    (=jis-x0212                . #x2665)       ; 
+    (=ucs@jis          . #x03AA)       ; 
     ))
 (define-char
   '((name              . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
     (->decomposition   #x03A5 #x0308)
     (->fullwidth
      ((name . "fullwidth greek capital letter upsilon with dialytika")
-      (japanese-jisx0212  . #x266A)    ; 
+      (=jis-x0212        . #x266A)     ; 
+      (=ucs@jis                  . #x03AB)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
       (=ucs              . #x03CB)     ; ϋ
       ))
-    (greek-iso8859-7   . #xDB) ; 
     (=ucs              . #x03AB)       ; Ϋ
+    (greek-iso8859-7   . #xDB) ; 
     ))
 (define-char
   '((name . "fullwidth greek capital letter upsilon with dialytika")
      ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
       (=ucs              . #x03AB)     ; Ϋ
       ))
-    (japanese-jisx0212 . #x266A)       ; 
-    (ucs-jis           . #x03AB)       ; 
+    (=jis-x0212                . #x266A)       ; 
+    (=ucs@jis          . #x03AB)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA WITH TONOS")
     (->decomposition   #x03B1 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter alpha with tonos")
-      (japanese-jisx0212  . #x2671)    ; 
+      (=jis-x0212        . #x2671)     ; 
+      (=ucs@jis                  . #x03AC)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
       (=ucs              . #x0386)     ; Ά
       ))
-    (greek-iso8859-7   . #xDC) ; 
     (=ucs              . #x03AC)       ; ά
+    (greek-iso8859-7   . #xDC) ; 
     ))
 (define-char
   '((name . "fullwidth greek small letter alpha with tonos")
      ((name              . "GREEK SMALL LETTER ALPHA WITH TONOS")
       (=ucs              . #x03AC)     ; ά
       ))
-    (japanese-jisx0212 . #x2671)       ; 
-    (ucs-jis           . #x03AC)       ; 
+    (=jis-x0212                . #x2671)       ; 
+    (=ucs@jis          . #x03AC)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON WITH TONOS")
     (->decomposition   #x03B5 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter epsilon with tonos")
-      (japanese-jisx0212  . #x2672)    ; 
+      (=jis-x0212        . #x2672)     ; 
+      (=ucs@jis                  . #x03AD)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
       (=ucs              . #x0388)     ; Έ
       ))
-    (greek-iso8859-7   . #xDD) ; 
     (=ucs              . #x03AD)       ; έ
+    (greek-iso8859-7   . #xDD) ; 
     ))
 (define-char
   '((name . "fullwidth greek small letter epsilon with tonos")
      ((name              . "GREEK SMALL LETTER EPSILON WITH TONOS")
       (=ucs              . #x03AD)     ; έ
       ))
-    (japanese-jisx0212 . #x2672)       ; 
-    (ucs-jis           . #x03AD)       ; 
+    (=jis-x0212                . #x2672)       ; 
+    (=ucs@jis          . #x03AD)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA WITH TONOS")
     (->decomposition   #x03B7 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter eta with tonos")
-      (japanese-jisx0212  . #x2673)    ; 
+      (=jis-x0212        . #x2673)     ; 
+      (=ucs@jis                  . #x03AE)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ETA WITH TONOS")
       (=ucs              . #x0389)     ; Ή
       ))
-    (greek-iso8859-7   . #xDE) ; 
     (=ucs              . #x03AE)       ; ή
+    (greek-iso8859-7   . #xDE) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter eta with tonos")
      ((name              . "GREEK SMALL LETTER ETA WITH TONOS")
       (=ucs              . #x03AE)     ; ή
       ))
-    (japanese-jisx0212 . #x2673)       ; 
-    (ucs-jis           . #x03AE)       ; 
+    (=jis-x0212                . #x2673)       ; 
+    (=ucs@jis          . #x03AE)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH TONOS")
     (->decomposition   #x03B9 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter iota with tonos")
-      (japanese-jisx0212  . #x2674)    ; 
+      (=jis-x0212        . #x2674)     ; 
+      (=ucs@jis                  . #x03AF)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA WITH TONOS")
       (=ucs              . #x038A)     ; Ί
       ))
-    (greek-iso8859-7   . #xDF) ; 
     (=ucs              . #x03AF)       ; ί
+    (greek-iso8859-7   . #xDF) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter iota with tonos")
      ((name              . "GREEK SMALL LETTER IOTA WITH TONOS")
       (=ucs              . #x03AF)     ; ί
       ))
-    (japanese-jisx0212 . #x2674)       ; 
-    (ucs-jis           . #x03AF)       ; 
+    (=jis-x0212                . #x2674)       ; 
+    (=ucs@jis          . #x03AF)       ; 
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
     (->decomposition   #x03CB #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter upsilon with dialytika and tonos")
-      (japanese-jisx0212  . #x267B)    ; 
+      (=jis-x0212        . #x267B)     ; 
+      (=ucs@jis                  . #x03B0)     ; 
       ))
-    (greek-iso8859-7   . #xE0) ; 
     (=ucs              . #x03B0)       ; ΰ
+    (greek-iso8859-7   . #xE0) ; 
     ))
 (define-char
   '((name . "fullwidth greek small letter upsilon with dialytika and tonos")
      ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
       (=ucs              . #x03B0)     ; ΰ
       ))
-    (japanese-jisx0212 . #x267B)       ; 
-    (ucs-jis           . #x03B0)       ; 
+    (=jis-x0212                . #x267B)       ; 
+    (=ucs@jis          . #x03B0)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ALPHA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter alpha")
-      (chinese-gb2312    . #x2641)     ; 
-      (korean-ksc5601    . #x2561)     ; 
-      (chinese-cns11643-1 . #x252F)    ; 
+      (=gb2312           . #x2641)     ; 
+      (=jis-x0208        . #x2641)     ; 
+      (=ks-x1001         . #x2561)     ; 
+      (=cns11643-1       . #x252F)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ALPHA")
       (=ucs              . #x0391)     ; Α
       ))
-    (greek-iso8859-7   . #xE1) ; 
     (=ucs              . #x03B1)       ; α
+    (greek-iso8859-7   . #xE1) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter alpha")
      ((name              . "GREEK SMALL LETTER ALPHA")
       (=ucs              . #x03B1)     ; α
       ))
-    (chinese-gb2312    . #x2641)       ; 
+    (=gb2312           . #x2641)       ; 
     (=jis-x0208                . #x2641)       ; 
-    (korean-ksc5601    . #x2561)       ; 
-    (chinese-cns11643-1 . #x252F)      ; 
-    (chinese-big5      . #xA35C)       ; 
-    (ucs-jis           . #x03B1)       ; 
+    (=ks-x1001         . #x2561)       ; 
+    (=cns11643-1       . #x252F)       ; 
+    (=big5             . #xA35C)       ; 
+    (=ucs@jis          . #x03B1)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER BETA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter beta")
-      (chinese-gb2312    . #x2642)     ; 
-      (korean-ksc5601    . #x2562)     ; 
-      (chinese-cns11643-1 . #x2530)    ; 
+      (=gb2312           . #x2642)     ; 
+      (=jis-x0208        . #x2642)     ; 
+      (=ks-x1001         . #x2562)     ; 
+      (=cns11643-1       . #x2530)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER BETA")
       (=ucs              . #x0392)     ; Β
       ))
-    (greek-iso8859-7   . #xE2) ; 
     (=ucs              . #x03B2)       ; β
+    (greek-iso8859-7   . #xE2) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter beta")
      ((name              . "GREEK SMALL LETTER BETA")
       (=ucs              . #x03B2)     ; β
       ))
-    (chinese-gb2312    . #x2642)       ; 
+    (=gb2312           . #x2642)       ; 
     (=jis-x0208                . #x2642)       ; 
-    (korean-ksc5601    . #x2562)       ; 
-    (chinese-cns11643-1 . #x2530)      ; 
-    (chinese-big5      . #xA35D)       ; 
-    (ucs-jis           . #x03B2)       ; 
+    (=ks-x1001         . #x2562)       ; 
+    (=cns11643-1       . #x2530)       ; 
+    (=big5             . #xA35D)       ; 
+    (=ucs@jis          . #x03B2)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER GAMMA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter gamma")
-      (chinese-gb2312    . #x2643)     ; 
-      (korean-ksc5601    . #x2563)     ; 
-      (chinese-cns11643-1 . #x2531)    ; 
+      (=gb2312           . #x2643)     ; 
+      (=jis-x0208        . #x2643)     ; 
+      (=ks-x1001         . #x2563)     ; 
+      (=cns11643-1       . #x2531)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER GAMMA")
       (=ucs              . #x0393)     ; Γ
       ))
-    (greek-iso8859-7   . #xE3) ; 
     (=ucs              . #x03B3)       ; γ
+    (greek-iso8859-7   . #xE3) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter gamma")
      ((name              . "GREEK SMALL LETTER GAMMA")
       (=ucs              . #x03B3)     ; γ
       ))
-    (chinese-gb2312    . #x2643)       ; 
+    (=gb2312           . #x2643)       ; 
     (=jis-x0208                . #x2643)       ; 
-    (korean-ksc5601    . #x2563)       ; 
-    (chinese-cns11643-1 . #x2531)      ; 
-    (chinese-big5      . #xA35E)       ; 
-    (ucs-jis           . #x03B3)       ; 
+    (=ks-x1001         . #x2563)       ; 
+    (=cns11643-1       . #x2531)       ; 
+    (=big5             . #xA35E)       ; 
+    (=ucs@jis          . #x03B3)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER DELTA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter delta")
-      (chinese-gb2312    . #x2644)     ; 
-      (korean-ksc5601    . #x2564)     ; 
-      (chinese-cns11643-1 . #x2532)    ; 
+      (=gb2312           . #x2644)     ; 
+      (=jis-x0208        . #x2644)     ; 
+      (=ks-x1001         . #x2564)     ; 
+      (=cns11643-1       . #x2532)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER DELTA")
       (=ucs              . #x0394)     ; Δ
       ))
-    (greek-iso8859-7   . #xE4) ; 
     (=ucs              . #x03B4)       ; δ
+    (greek-iso8859-7   . #xE4) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter delta")
      ((name              . "GREEK SMALL LETTER DELTA")
       (=ucs              . #x03B4)     ; δ
       ))
-    (chinese-gb2312    . #x2644)       ; 
+    (=gb2312           . #x2644)       ; 
     (=jis-x0208                . #x2644)       ; 
-    (korean-ksc5601    . #x2564)       ; 
-    (chinese-cns11643-1 . #x2532)      ; 
-    (chinese-big5      . #xA35F)       ; 
-    (ucs-jis           . #x03B4)       ; 
+    (=ks-x1001         . #x2564)       ; 
+    (=cns11643-1       . #x2532)       ; 
+    (=big5             . #xA35F)       ; 
+    (=ucs@jis          . #x03B4)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER EPSILON")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter epsilon")
-      (chinese-gb2312    . #x2645)     ; 
-      (korean-ksc5601    . #x2565)     ; 
-      (chinese-cns11643-1 . #x2533)    ; 
+      (=gb2312           . #x2645)     ; 
+      (=jis-x0208        . #x2645)     ; 
+      (=ks-x1001         . #x2565)     ; 
+      (=cns11643-1       . #x2533)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER EPSILON")
       (=ucs              . #x0395)     ; Ε
       ))
-    (greek-iso8859-7   . #xE5) ; 
     (=ucs              . #x03B5)       ; ε
+    (greek-iso8859-7   . #xE5) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter epsilon")
      ((name              . "GREEK SMALL LETTER EPSILON")
       (=ucs              . #x03B5)     ; ε
       ))
-    (chinese-gb2312    . #x2645)       ; 
+    (=gb2312           . #x2645)       ; 
     (=jis-x0208                . #x2645)       ; 
-    (korean-ksc5601    . #x2565)       ; 
-    (chinese-cns11643-1 . #x2533)      ; 
-    (chinese-big5      . #xA360)       ; 
-    (ucs-jis           . #x03B5)       ; 
+    (=ks-x1001         . #x2565)       ; 
+    (=cns11643-1       . #x2533)       ; 
+    (=big5             . #xA360)       ; 
+    (=ucs@jis          . #x03B5)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ZETA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter zeta")
-      (chinese-gb2312    . #x2646)     ; 
-      (korean-ksc5601    . #x2566)     ; 
-      (chinese-cns11643-1 . #x2534)    ; 
+      (=gb2312           . #x2646)     ; 
+      (=jis-x0208        . #x2646)     ; 
+      (=ks-x1001         . #x2566)     ; 
+      (=cns11643-1       . #x2534)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ZETA")
       (=ucs              . #x0396)     ; Ζ
       ))
-    (greek-iso8859-7   . #xE6) ; 
     (=ucs              . #x03B6)       ; ζ
+    (greek-iso8859-7   . #xE6) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter zeta")
      ((name              . "GREEK SMALL LETTER ZETA")
       (=ucs              . #x03B6)     ; ζ
       ))
-    (chinese-gb2312    . #x2646)       ; 
+    (=gb2312           . #x2646)       ; 
     (=jis-x0208                . #x2646)       ; 
-    (korean-ksc5601    . #x2566)       ; 
-    (chinese-cns11643-1 . #x2534)      ; 
-    (chinese-big5      . #xA361)       ; 
-    (ucs-jis           . #x03B6)       ; 
+    (=ks-x1001         . #x2566)       ; 
+    (=cns11643-1       . #x2534)       ; 
+    (=big5             . #xA361)       ; 
+    (=ucs@jis          . #x03B6)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER ETA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter eta")
-      (chinese-gb2312    . #x2647)     ; 
-      (korean-ksc5601    . #x2567)     ; 
-      (chinese-cns11643-1 . #x2535)    ; 
+      (=gb2312           . #x2647)     ; 
+      (=jis-x0208        . #x2647)     ; 
+      (=ks-x1001         . #x2567)     ; 
+      (=cns11643-1       . #x2535)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ETA")
       (=ucs              . #x0397)     ; Η
       ))
-    (greek-iso8859-7   . #xE7) ; 
     (=ucs              . #x03B7)       ; η
+    (greek-iso8859-7   . #xE7) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter eta")
      ((name              . "GREEK SMALL LETTER ETA")
       (=ucs              . #x03B7)     ; η
       ))
-    (chinese-gb2312    . #x2647)       ; 
+    (=gb2312           . #x2647)       ; 
     (=jis-x0208                . #x2647)       ; 
-    (korean-ksc5601    . #x2567)       ; 
-    (chinese-cns11643-1 . #x2535)      ; 
-    (chinese-big5      . #xA362)       ; 
-    (ucs-jis           . #x03B7)       ; 
+    (=ks-x1001         . #x2567)       ; 
+    (=cns11643-1       . #x2535)       ; 
+    (=big5             . #xA362)       ; 
+    (=ucs@jis          . #x03B7)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER THETA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter theta")
-      (chinese-gb2312    . #x2648)     ; 
-      (korean-ksc5601    . #x2568)     ; 
-      (chinese-cns11643-1 . #x2536)    ; 
+      (=gb2312           . #x2648)     ; 
+      (=jis-x0208        . #x2648)     ; 
+      (=ks-x1001         . #x2568)     ; 
+      (=cns11643-1       . #x2536)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER THETA")
       (=ucs              . #x0398)     ; Θ
       ))
+    (=ucs              . #x03B8)       ; θ
     (greek-iso8859-7   . #xE8) ; 
     (ipa               . #xC8) ; 
-    (=ucs              . #x03B8)       ; θ
     ))
 (define-char
   '((name              . "fullwidth greek small letter theta")
      ((name              . "GREEK SMALL LETTER THETA")
       (=ucs              . #x03B8)     ; θ
       ))
-    (chinese-gb2312    . #x2648)       ; 
+    (=gb2312           . #x2648)       ; 
     (=jis-x0208                . #x2648)       ; 
-    (korean-ksc5601    . #x2568)       ; 
-    (chinese-cns11643-1 . #x2536)      ; 
-    (chinese-big5      . #xA363)       ; 
-    (ucs-jis           . #x03B8)       ; 
+    (=ks-x1001         . #x2568)       ; 
+    (=cns11643-1       . #x2536)       ; 
+    (=big5             . #xA363)       ; 
+    (=ucs@jis          . #x03B8)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter iota")
-      (chinese-gb2312    . #x2649)     ; 
-      (korean-ksc5601    . #x2569)     ; 
-      (chinese-cns11643-1 . #x2537)    ; 
+      (=gb2312           . #x2649)     ; 
+      (=jis-x0208        . #x2649)     ; 
+      (=ks-x1001         . #x2569)     ; 
+      (=cns11643-1       . #x2537)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA")
       (=ucs              . #x0399)     ; Ι
       ))
-    (greek-iso8859-7   . #xE9) ; 
     (=ucs              . #x03B9)       ; ι
+    (greek-iso8859-7   . #xE9) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter iota")
      ((name              . "GREEK SMALL LETTER IOTA")
       (=ucs              . #x03B9)     ; ι
       ))
-    (chinese-gb2312    . #x2649)       ; 
+    (=gb2312           . #x2649)       ; 
     (=jis-x0208                . #x2649)       ; 
-    (korean-ksc5601    . #x2569)       ; 
-    (chinese-cns11643-1 . #x2537)      ; 
-    (chinese-big5      . #xA364)       ; 
-    (ucs-jis           . #x03B9)       ; 
+    (=ks-x1001         . #x2569)       ; 
+    (=cns11643-1       . #x2537)       ; 
+    (=big5             . #xA364)       ; 
+    (=ucs@jis          . #x03B9)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER KAPPA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter kappa")
-      (chinese-gb2312    . #x264A)     ; 
-      (korean-ksc5601    . #x256A)     ; 
-      (chinese-cns11643-1 . #x2538)    ; 
+      (=gb2312           . #x264A)     ; 
+      (=jis-x0208        . #x264A)     ; 
+      (=ks-x1001         . #x256A)     ; 
+      (=cns11643-1       . #x2538)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER KAPPA")
       (=ucs              . #x039A)     ; Κ
       ))
-    (greek-iso8859-7   . #xEA) ; 
     (=ucs              . #x03BA)       ; κ
+    (greek-iso8859-7   . #xEA) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter kappa")
      ((name              . "GREEK SMALL LETTER KAPPA")
       (=ucs              . #x03BA)     ; κ
       ))
-    (chinese-gb2312    . #x264A)       ; 
+    (=gb2312           . #x264A)       ; 
     (=jis-x0208                . #x264A)       ; 
-    (korean-ksc5601    . #x256A)       ; 
-    (chinese-cns11643-1 . #x2538)      ; 
-    (chinese-big5      . #xA365)       ; 
-    (ucs-jis           . #x03BA)       ; 
+    (=ks-x1001         . #x256A)       ; 
+    (=cns11643-1       . #x2538)       ; 
+    (=big5             . #xA365)       ; 
+    (=ucs@jis          . #x03BA)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER LAMDA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter lamda")
-      (chinese-gb2312    . #x264B)     ; 
-      (korean-ksc5601    . #x256B)     ; 
-      (chinese-cns11643-1 . #x2539)    ; 
+      (=gb2312           . #x264B)     ; 
+      (=jis-x0208        . #x264B)     ; 
+      (=ks-x1001         . #x256B)     ; 
+      (=cns11643-1       . #x2539)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER LAMDA")
       (=ucs              . #x039B)     ; Λ
       ))
-    (greek-iso8859-7   . #xEB) ; 
     (=ucs              . #x03BB)       ; λ
+    (greek-iso8859-7   . #xEB) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter lamda")
      ((name              . "GREEK SMALL LETTER LAMDA")
       (=ucs              . #x03BB)     ; λ
       ))
-    (chinese-gb2312    . #x264B)       ; 
+    (=gb2312           . #x264B)       ; 
     (=jis-x0208                . #x264B)       ; 
-    (korean-ksc5601    . #x256B)       ; 
-    (chinese-cns11643-1 . #x2539)      ; 
-    (chinese-big5      . #xA366)       ; 
-    (ucs-jis           . #x03BB)       ; 
+    (=ks-x1001         . #x256B)       ; 
+    (=cns11643-1       . #x2539)       ; 
+    (=big5             . #xA366)       ; 
+    (=ucs@jis          . #x03BB)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER MU")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter mu")
-      (chinese-gb2312    . #x264C)     ; 
-      (korean-ksc5601    . #x256C)     ; 
-      (chinese-cns11643-1 . #x253A)    ; 
+      (=gb2312           . #x264C)     ; 
+      (=jis-x0208        . #x264C)     ; 
+      (=ks-x1001         . #x256C)     ; 
+      (=cns11643-1       . #x253A)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER MU")
       (=ucs              . #x039C)     ; Μ
       ))
-    (greek-iso8859-7   . #xEC) ; 
     (=ucs              . #x03BC)       ; μ
+    (greek-iso8859-7   . #xEC) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter mu")
      ((name              . "GREEK SMALL LETTER MU")
       (=ucs              . #x03BC)     ; μ
       ))
-    (chinese-gb2312    . #x264C)       ; 
+    (=gb2312           . #x264C)       ; 
     (=jis-x0208                . #x264C)       ; 
-    (korean-ksc5601    . #x256C)       ; 
-    (chinese-cns11643-1 . #x253A)      ; 
-    (chinese-big5      . #xA367)       ; 
-    (ucs-jis           . #x03BC)       ; 
+    (=ks-x1001         . #x256C)       ; 
+    (=cns11643-1       . #x253A)       ; 
+    (=big5             . #xA367)       ; 
+    (=ucs@jis          . #x03BC)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER NU")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter nu")
-      (chinese-gb2312    . #x264D)     ; 
-      (korean-ksc5601    . #x256D)     ; 
-      (chinese-cns11643-1 . #x253B)    ; 
+      (=gb2312           . #x264D)     ; 
+      (=jis-x0208        . #x264D)     ; 
+      (=ks-x1001         . #x256D)     ; 
+      (=cns11643-1       . #x253B)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER NU")
       (=ucs              . #x039D)     ; Ν
       ))
-    (greek-iso8859-7   . #xED) ; 
     (=ucs              . #x03BD)       ; ν
+    (greek-iso8859-7   . #xED) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter nu")
      ((name              . "GREEK SMALL LETTER NU")
       (=ucs              . #x03BD)     ; ν
       ))
-    (chinese-gb2312    . #x264D)       ; 
+    (=gb2312           . #x264D)       ; 
     (=jis-x0208                . #x264D)       ; 
-    (korean-ksc5601    . #x256D)       ; 
-    (chinese-cns11643-1 . #x253B)      ; 
-    (chinese-big5      . #xA368)       ; 
-    (ucs-jis           . #x03BD)       ; 
+    (=ks-x1001         . #x256D)       ; 
+    (=cns11643-1       . #x253B)       ; 
+    (=big5             . #xA368)       ; 
+    (=ucs@jis          . #x03BD)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER XI")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter xi")
-      (chinese-gb2312    . #x264E)     ; 
-      (korean-ksc5601    . #x256E)     ; 
-      (chinese-cns11643-1 . #x253C)    ; 
+      (=gb2312           . #x264E)     ; 
+      (=jis-x0208        . #x264E)     ; 
+      (=ks-x1001         . #x256E)     ; 
+      (=cns11643-1       . #x253C)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER XI")
       (=ucs              . #x039E)     ; Ξ
       ))
-    (greek-iso8859-7   . #xEE) ; 
     (=ucs              . #x03BE)       ; ξ
+    (greek-iso8859-7   . #xEE) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter xi")
      ((name              . "GREEK SMALL LETTER XI")
       (=ucs              . #x03BE)     ; ξ
       ))
-    (chinese-gb2312    . #x264E)       ; 
+    (=gb2312           . #x264E)       ; 
     (=jis-x0208                . #x264E)       ; 
-    (korean-ksc5601    . #x256E)       ; 
-    (chinese-cns11643-1 . #x253C)      ; 
-    (chinese-big5      . #xA369)       ; 
-    (ucs-jis           . #x03BE)       ; 
+    (=ks-x1001         . #x256E)       ; 
+    (=cns11643-1       . #x253C)       ; 
+    (=big5             . #xA369)       ; 
+    (=ucs@jis          . #x03BE)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter omicron")
-      (chinese-gb2312    . #x264F)     ; 
-      (korean-ksc5601    . #x256F)     ; 
-      (chinese-cns11643-1 . #x253D)    ; 
+      (=gb2312           . #x264F)     ; 
+      (=jis-x0208        . #x264F)     ; 
+      (=ks-x1001         . #x256F)     ; 
+      (=cns11643-1       . #x253D)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMICRON")
       (=ucs              . #x039F)     ; Ο
       ))
-    (greek-iso8859-7   . #xEF) ; 
     (=ucs              . #x03BF)       ; ο
+    (greek-iso8859-7   . #xEF) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter omicron")
      ((name              . "GREEK SMALL LETTER OMICRON")
       (=ucs              . #x03BF)     ; ο
       ))
-    (chinese-gb2312    . #x264F)       ; 
+    (=gb2312           . #x264F)       ; 
     (=jis-x0208                . #x264F)       ; 
-    (korean-ksc5601    . #x256F)       ; 
-    (chinese-cns11643-1 . #x253D)      ; 
-    (chinese-big5      . #xA36A)       ; 
-    (ucs-jis           . #x03BF)       ; 
+    (=ks-x1001         . #x256F)       ; 
+    (=cns11643-1       . #x253D)       ; 
+    (=big5             . #xA36A)       ; 
+    (=ucs@jis          . #x03BF)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER PI")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter pi")
-      (chinese-gb2312    . #x2650)     ; 
-      (korean-ksc5601    . #x2570)     ; 
-      (chinese-cns11643-1 . #x253E)    ; 
+      (=gb2312           . #x2650)     ; 
+      (=jis-x0208        . #x2650)     ; 
+      (=ks-x1001         . #x2570)     ; 
+      (=cns11643-1       . #x253E)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER PI")
       (=ucs              . #x03A0)     ; Π
       ))
-    (greek-iso8859-7   . #xF0) ; 
     (=ucs              . #x03C0)       ; π
+    (greek-iso8859-7   . #xF0) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter pi")
      ((name              . "GREEK SMALL LETTER PI")
       (=ucs              . #x03C0)     ; π
       ))
-    (chinese-gb2312    . #x2650)       ; 
+    (=gb2312           . #x2650)       ; 
     (=jis-x0208                . #x2650)       ; 
-    (korean-ksc5601    . #x2570)       ; 
-    (chinese-cns11643-1 . #x253E)      ; 
-    (chinese-big5      . #xA36B)       ; 
-    (ucs-jis           . #x03C0)       ; 
+    (=ks-x1001         . #x2570)       ; 
+    (=cns11643-1       . #x253E)       ; 
+    (=big5             . #xA36B)       ; 
+    (=ucs@jis          . #x03C0)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER RHO")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter rho")
-      (chinese-gb2312    . #x2651)     ; 
-      (korean-ksc5601    . #x2571)     ; 
-      (chinese-cns11643-1 . #x253F)    ; 
+      (=gb2312           . #x2651)     ; 
+      (=jis-x0208        . #x2651)     ; 
+      (=ks-x1001         . #x2571)     ; 
+      (=cns11643-1       . #x253F)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER RHO")
       (=ucs              . #x03A1)     ; Ρ
       ))
-    (greek-iso8859-7   . #xF1) ; 
     (=ucs              . #x03C1)       ; ρ
+    (greek-iso8859-7   . #xF1) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter rho")
      ((name              . "GREEK SMALL LETTER RHO")
       (=ucs              . #x03C1)     ; ρ
       ))
-    (chinese-gb2312    . #x2651)       ; 
+    (=gb2312           . #x2651)       ; 
     (=jis-x0208                . #x2651)       ; 
-    (korean-ksc5601    . #x2571)       ; 
-    (chinese-cns11643-1 . #x253F)      ; 
-    (chinese-big5      . #xA36C)       ; 
-    (ucs-jis           . #x03C1)       ; 
+    (=ks-x1001         . #x2571)       ; 
+    (=cns11643-1       . #x253F)       ; 
+    (=big5             . #xA36C)       ; 
+    (=ucs@jis          . #x03C1)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER FINAL SIGMA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter final sigma")
-      (japanese-jisx0212  . #x2678)    ; 
+      (=jis-x0212        . #x2678)     ; 
+      (=jis-x0213-1-2000  . #x2659)    ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER SIGMA")
       (=ucs              . #x03A3)     ; Σ
       ))
-    (greek-iso8859-7   . #xF2) ; 
     (=ucs              . #x03C2)       ; ς
+    (greek-iso8859-7   . #xF2) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter final sigma")
      ((name              . "GREEK SMALL LETTER FINAL SIGMA")
       (=ucs              . #x03C2)     ; ς
       ))
-    (japanese-jisx0212 . #x2678)       ; 
+    (=jis-x0212                . #x2678)       ; 
     (=jis-x0213-1-2000 . #x2659)       ; 
-    (ucs-jis           . #x03C2)       ; 
+    (=ucs@jis          . #x03C2)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER SIGMA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter sigma")
-      (chinese-gb2312    . #x2652)     ; 
-      (korean-ksc5601    . #x2572)     ; 
-      (chinese-cns11643-1 . #x2540)    ; 
+      (=gb2312           . #x2652)     ; 
+      (=jis-x0208        . #x2652)     ; 
+      (=ks-x1001         . #x2572)     ; 
+      (=cns11643-1       . #x2540)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER SIGMA")
       (=ucs              . #x03A3)     ; Σ
       ))
-    (greek-iso8859-7   . #xF3) ; 
     (=ucs              . #x03C3)       ; σ
+    (greek-iso8859-7   . #xF3) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter sigma")
      ((name              . "GREEK SMALL LETTER SIGMA")
       (=ucs              . #x03C3)     ; σ
       ))
-    (chinese-gb2312    . #x2652)       ; 
+    (=gb2312           . #x2652)       ; 
     (=jis-x0208                . #x2652)       ; 
-    (korean-ksc5601    . #x2572)       ; 
-    (chinese-cns11643-1 . #x2540)      ; 
-    (chinese-big5      . #xA36D)       ; 
-    (ucs-jis           . #x03C3)       ; 
+    (=ks-x1001         . #x2572)       ; 
+    (=cns11643-1       . #x2540)       ; 
+    (=big5             . #xA36D)       ; 
+    (=ucs@jis          . #x03C3)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER TAU")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter tau")
-      (chinese-gb2312    . #x2653)     ; 
-      (korean-ksc5601    . #x2573)     ; 
-      (chinese-cns11643-1 . #x2541)    ; 
+      (=gb2312           . #x2653)     ; 
+      (=jis-x0208        . #x2653)     ; 
+      (=ks-x1001         . #x2573)     ; 
+      (=cns11643-1       . #x2541)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER TAU")
       (=ucs              . #x03A4)     ; Τ
       ))
-    (greek-iso8859-7   . #xF4) ; 
     (=ucs              . #x03C4)       ; τ
+    (greek-iso8859-7   . #xF4) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter tau")
      ((name              . "GREEK SMALL LETTER TAU")
       (=ucs              . #x03C4)     ; τ
       ))
-    (chinese-gb2312    . #x2653)       ; 
+    (=gb2312           . #x2653)       ; 
     (=jis-x0208                . #x2653)       ; 
-    (korean-ksc5601    . #x2573)       ; 
-    (chinese-cns11643-1 . #x2541)      ; 
-    (chinese-big5      . #xA36E)       ; 
-    (ucs-jis           . #x03C4)       ; 
+    (=ks-x1001         . #x2573)       ; 
+    (=cns11643-1       . #x2541)       ; 
+    (=big5             . #xA36E)       ; 
+    (=ucs@jis          . #x03C4)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter upsilon")
-      (chinese-gb2312    . #x2654)     ; 
-      (korean-ksc5601    . #x2574)     ; 
-      (chinese-cns11643-1 . #x2542)    ; 
+      (=gb2312           . #x2654)     ; 
+      (=jis-x0208        . #x2654)     ; 
+      (=ks-x1001         . #x2574)     ; 
+      (=cns11643-1       . #x2542)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER UPSILON")
       (=ucs              . #x03A5)     ; Υ
       ))
-    (greek-iso8859-7   . #xF5) ; 
     (=ucs              . #x03C5)       ; υ
+    (greek-iso8859-7   . #xF5) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter upsilon")
      ((name              . "GREEK SMALL LETTER UPSILON")
       (=ucs              . #x03C5)     ; υ
       ))
-    (chinese-gb2312    . #x2654)       ; 
+    (=gb2312           . #x2654)       ; 
     (=jis-x0208                . #x2654)       ; 
-    (korean-ksc5601    . #x2574)       ; 
-    (chinese-cns11643-1 . #x2542)      ; 
-    (chinese-big5      . #xA36F)       ; 
-    (ucs-jis           . #x03C5)       ; 
+    (=ks-x1001         . #x2574)       ; 
+    (=cns11643-1       . #x2542)       ; 
+    (=big5             . #xA36F)       ; 
+    (=ucs@jis          . #x03C5)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER PHI")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter phi")
-      (chinese-gb2312    . #x2655)     ; 
-      (korean-ksc5601    . #x2575)     ; 
-      (chinese-cns11643-1 . #x2543)    ; 
+      (=gb2312           . #x2655)     ; 
+      (=jis-x0208        . #x2655)     ; 
+      (=ks-x1001         . #x2575)     ; 
+      (=cns11643-1       . #x2543)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER PHI")
       (=ucs              . #x03A6)     ; Φ
       ))
-    (greek-iso8859-7   . #xF6) ; 
     (=ucs              . #x03C6)       ; φ
+    (greek-iso8859-7   . #xF6) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter phi")
      ((name              . "GREEK SMALL LETTER PHI")
       (=ucs              . #x03C6)     ; φ
       ))
-    (chinese-gb2312    . #x2655)       ; 
+    (=gb2312           . #x2655)       ; 
     (=jis-x0208                . #x2655)       ; 
-    (korean-ksc5601    . #x2575)       ; 
-    (chinese-cns11643-1 . #x2543)      ; 
-    (chinese-big5      . #xA370)       ; 
-    (ucs-jis           . #x03C6)       ; 
+    (=ks-x1001         . #x2575)       ; 
+    (=cns11643-1       . #x2543)       ; 
+    (=big5             . #xA370)       ; 
+    (=ucs@jis          . #x03C6)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER CHI")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter chi")
-      (chinese-gb2312    . #x2656)     ; 
-      (korean-ksc5601    . #x2576)     ; 
-      (chinese-cns11643-1 . #x2544)    ; 
+      (=gb2312           . #x2656)     ; 
+      (=jis-x0208        . #x2656)     ; 
+      (=ks-x1001         . #x2576)     ; 
+      (=cns11643-1       . #x2544)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER CHI")
       (=ucs              . #x03A7)     ; Χ
       ))
-    (greek-iso8859-7   . #xF7) ; 
     (=ucs              . #x03C7)       ; χ
+    (greek-iso8859-7   . #xF7) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter chi")
      ((name              . "GREEK SMALL LETTER CHI")
       (=ucs              . #x03C7)     ; χ
       ))
-    (chinese-gb2312    . #x2656)       ; 
+    (=gb2312           . #x2656)       ; 
     (=jis-x0208                . #x2656)       ; 
-    (korean-ksc5601    . #x2576)       ; 
-    (chinese-cns11643-1 . #x2544)      ; 
-    (chinese-big5      . #xA371)       ; 
-    (ucs-jis           . #x03C7)       ; 
+    (=ks-x1001         . #x2576)       ; 
+    (=cns11643-1       . #x2544)       ; 
+    (=big5             . #xA371)       ; 
+    (=ucs@jis          . #x03C7)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER PSI")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter psi")
-      (chinese-gb2312    . #x2657)     ; 
-      (korean-ksc5601    . #x2577)     ; 
-      (chinese-cns11643-1 . #x2545)    ; 
+      (=gb2312           . #x2657)     ; 
+      (=jis-x0208        . #x2657)     ; 
+      (=ks-x1001         . #x2577)     ; 
+      (=cns11643-1       . #x2545)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER PSI")
       (=ucs              . #x03A8)     ; Ψ
       ))
-    (greek-iso8859-7   . #xF8) ; 
     (=ucs              . #x03C8)       ; ψ
+    (greek-iso8859-7   . #xF8) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter psi")
      ((name              . "GREEK SMALL LETTER PSI")
       (=ucs              . #x03C8)     ; ψ
       ))
-    (chinese-gb2312    . #x2657)       ; 
+    (=gb2312           . #x2657)       ; 
     (=jis-x0208                . #x2657)       ; 
-    (korean-ksc5601    . #x2577)       ; 
-    (chinese-cns11643-1 . #x2545)      ; 
-    (chinese-big5      . #xA372)       ; 
-    (ucs-jis           . #x03C8)       ; 
+    (=ks-x1001         . #x2577)       ; 
+    (=cns11643-1       . #x2545)       ; 
+    (=big5             . #xA372)       ; 
+    (=ucs@jis          . #x03C8)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA")
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter omega")
-      (chinese-gb2312    . #x2658)     ; 
-      (korean-ksc5601    . #x2578)     ; 
-      (chinese-cns11643-1 . #x2546)    ; 
+      (=gb2312           . #x2658)     ; 
+      (=jis-x0208        . #x2658)     ; 
+      (=ks-x1001         . #x2578)     ; 
+      (=cns11643-1       . #x2546)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMEGA")
       (=ucs              . #x03A9)     ; Ω
       ))
-    (greek-iso8859-7   . #xF9) ; 
     (=ucs              . #x03C9)       ; ω
+    (greek-iso8859-7   . #xF9) ; 
     ))
 (define-char
   '((name              . "fullwidth greek small letter omega")
      ((name              . "GREEK SMALL LETTER OMEGA")
       (=ucs              . #x03C9)     ; ω
       ))
-    (chinese-gb2312    . #x2658)       ; 
+    (=gb2312           . #x2658)       ; 
     (=jis-x0208                . #x2658)       ; 
-    (korean-ksc5601    . #x2578)       ; 
-    (chinese-cns11643-1 . #x2546)      ; 
-    (chinese-big5      . #xA373)       ; 
-    (ucs-jis           . #x03C9)       ; 
+    (=ks-x1001         . #x2578)       ; 
+    (=cns11643-1       . #x2546)       ; 
+    (=big5             . #xA373)       ; 
+    (=ucs@jis          . #x03C9)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
     (->decomposition   #x03B9 #x0308)
     (->fullwidth
      ((name . "fullwidth greek small letter iota with dialytika")
-      (japanese-jisx0212  . #x2675)    ; 
+      (=jis-x0212        . #x2675)     ; 
+      (=ucs@jis                  . #x03CA)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
       (=ucs              . #x03AA)     ; Ϊ
       ))
-    (greek-iso8859-7   . #xFA) ; 
     (=ucs              . #x03CA)       ; ϊ
+    (greek-iso8859-7   . #xFA) ; 
     ))
 (define-char
   '((name . "fullwidth greek small letter iota with dialytika")
      ((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
       (=ucs              . #x03CA)     ; ϊ
       ))
-    (japanese-jisx0212 . #x2675)       ; 
-    (ucs-jis           . #x03CA)       ; 
+    (=jis-x0212                . #x2675)       ; 
+    (=ucs@jis          . #x03CA)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
     (->decomposition   #x03C5 #x0308)
     (->fullwidth
      ((name . "fullwidth greek small letter upsilon with dialytika")
-      (japanese-jisx0212  . #x267A)    ; 
+      (=jis-x0212        . #x267A)     ; 
+      (=ucs@jis                  . #x03CB)     ; 
       ))
     (->uppercase
      ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
       (=ucs              . #x03AB)     ; Ϋ
       ))
-    (greek-iso8859-7   . #xFB) ; 
     (=ucs              . #x03CB)       ; ϋ
+    (greek-iso8859-7   . #xFB) ; 
     ))
 (define-char
   '((name . "fullwidth greek small letter upsilon with dialytika")
      ((name              . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
       (=ucs              . #x03CB)     ; ϋ
       ))
-    (japanese-jisx0212 . #x267A)       ; 
-    (ucs-jis           . #x03CB)       ; 
+    (=jis-x0212                . #x267A)       ; 
+    (=ucs@jis          . #x03CB)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMICRON WITH TONOS")
     (->decomposition   #x03BF #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter omicron with tonos")
-      (japanese-jisx0212  . #x2677)    ; 
+      (=jis-x0212        . #x2677)     ; 
+      (=ucs@jis                  . #x03CC)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
       (=ucs              . #x038C)     ; Ό
       ))
-    (greek-iso8859-7   . #xFC) ; 
     (=ucs              . #x03CC)       ; ό
+    (greek-iso8859-7   . #xFC) ; 
     ))
 (define-char
   '((name . "fullwidth greek small letter omicron with tonos")
      ((name              . "GREEK SMALL LETTER OMICRON WITH TONOS")
       (=ucs              . #x03CC)     ; ό
       ))
-    (japanese-jisx0212 . #x2677)       ; 
-    (ucs-jis           . #x03CC)       ; 
+    (=jis-x0212                . #x2677)       ; 
+    (=ucs@jis          . #x03CC)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER UPSILON WITH TONOS")
     (->decomposition   #x03C5 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter upsilon with tonos")
-      (japanese-jisx0212  . #x2679)    ; 
+      (=jis-x0212        . #x2679)     ; 
+      (=ucs@jis                  . #x03CD)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
       (=ucs              . #x038E)     ; Ύ
       ))
-    (greek-iso8859-7   . #xFD) ; 
     (=ucs              . #x03CD)       ; ύ
+    (greek-iso8859-7   . #xFD) ; 
     ))
 (define-char
   '((name . "fullwidth greek small letter upsilon with tonos")
      ((name              . "GREEK SMALL LETTER UPSILON WITH TONOS")
       (=ucs              . #x03CD)     ; ύ
       ))
-    (japanese-jisx0212 . #x2679)       ; 
-    (ucs-jis           . #x03CD)       ; 
+    (=jis-x0212                . #x2679)       ; 
+    (=ucs@jis          . #x03CD)       ; 
     ))
 (define-char
   '((name              . "GREEK SMALL LETTER OMEGA WITH TONOS")
     (->decomposition   #x03C9 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter omega with tonos")
-      (japanese-jisx0212  . #x267C)    ; 
+      (=jis-x0212        . #x267C)     ; 
+      (=ucs@jis                  . #x03CE)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
       (=ucs              . #x038F)     ; Ώ
       ))
-    (greek-iso8859-7   . #xFE) ; 
     (=ucs              . #x03CE)       ; ώ
+    (greek-iso8859-7   . #xFE) ; 
     ))
 (define-char
   '((name . "fullwidth greek small letter omega with tonos")
      ((name              . "GREEK SMALL LETTER OMEGA WITH TONOS")
       (=ucs              . #x03CE)     ; ώ
       ))
-    (japanese-jisx0212 . #x267C)       ; 
-    (ucs-jis           . #x03CE)       ; 
+    (=jis-x0212                . #x267C)       ; 
+    (=ucs@jis          . #x03CE)       ; 
     ))
 (define-char
   '((name              . "GREEK BETA SYMBOL")