X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu00370-Greek.el;h=d8a1138b25acf51b48d5d85fda41541aecbdb824;hb=0f491c1083161c021800689e467902d140758cdc;hp=dac15a1b0a7faeb5e21117f7a80600abab12d536;hpb=ed79ca47b430a917433a5f779c37c2f7c8ee11ba;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u00370-Greek.el b/lisp/utf-2000/u00370-Greek.el
index dac15a1..d8a1138 100644
--- a/lisp/utf-2000/u00370-Greek.el
+++ b/lisp/utf-2000/u00370-Greek.el
@@ -5,8 +5,11 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (iso-10646-comment	. "Dexia keraia")
-    (->decomposition	#x02B9)
     (=ucs		. #x0374)	; Í´
+    (->canonical
+     ((name		  . "MODIFIER LETTER PRIME")
+      (=ucs		  . #x02B9)	; ʹ
+      ))
     ))
 (define-char
   '((name		. "GREEK LOWER NUMERAL SIGN")
@@ -21,7 +24,13 @@
     (general-category	letter modifier) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x0020 #x0345)
+    (=>decomposition@compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      )
+     ((name		  . "COMBINING GREEK YPOGEGRAMMENI")
+      (=ucs		  . #x0345)	; ͅ
+      ))
     (=ucs		. #x037A)	; ͺ
     ))
 (define-char
@@ -30,2754 +39,2805 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (iso-10646-comment	. "Erotimatiko")
-    (->decomposition	#x003B)
     (=ucs		. #x037E)	; ;
+    (->canonical
+     ((name		  . "SEMICOLON")
+      (=ucs		  . #x003B)	; ;
+      ))
     ))
 (define-char
   '((name		. "GREEK TONOS")
     (general-category	symbol modifier) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x0020 #x0301)
-    (->fullwidth
-     ((name		  . "fullwidth greek tonos")
-      (=jis-x0212	  . #x2238)	; &JSP-2238; [02-24]
-      (=ucs@jis		  . #x0384)	; &JSP-2238;
+    (=>decomposition@compat
+     ((name		  . "SPACE")
+      (=ucs		  . #x0020)	;
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
     (=ucs		. #x0384)	; ΄
     (greek-iso8859-7	. #xB4)	; &I-GREEK-34;
     ))
 (define-char
-  '((name		. "fullwidth greek tonos")
-    (=>ucs		. #x0384)	; ΄
-    (general-category	symbol modifier) ; Informative Category
-    (bidi-category	. "ON")
-    (mirrored		. nil)
-    (->decomposition	wide #x0384)
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK TONOS")
       (=ucs		  . #x0384)	; ΄
       ))
+    (=ucs@jis/fw	. #x0384)	; &JSP-2238;
     (=jis-x0212		. #x2238)	; &JSP-2238; [02-24]
-    (=ucs@jis		. #x0384)	; &JSP-2238;
+    (<-fullwidth
+     ((name		  . "GREEK TONOS")
+      (=ucs		  . #x0384)	; ΄
+      ))
     ))
 (define-char
   '((name		. "GREEK DIALYTIKA TONOS")
     (general-category	symbol modifier) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	#x00A8 #x0301)
-    (->fullwidth
-     ((name		  . "fullwidth greek dialytika tonos")
-      (=jis-x0212	  . #x2239)	; &JSP-2239; [02-25]
-      (=ucs@jis		  . #x0385)	; &JSP-2239;
+    (=decomposition
+     ((name		  . "DIAERESIS")
+      (=ucs		  . #x00A8)	; ¨
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
     (=ucs		. #x0385)	; ΅
     (greek-iso8859-7	. #xB5)	; &I-GREEK-35;
     ))
 (define-char
-  '((name		. "fullwidth greek dialytika tonos")
-    (=>ucs		. #x0385)	; ΅
-    (general-category	symbol modifier) ; Informative Category
-    (bidi-category	. "ON")
-    (mirrored		. nil)
-    (->decomposition	wide #x0385)
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK DIALYTIKA TONOS")
       (=ucs		  . #x0385)	; ΅
       ))
+    (=ucs@jis/fw	. #x0385)	; &JSP-2239;
     (=jis-x0212		. #x2239)	; &JSP-2239; [02-25]
-    (=ucs@jis		. #x0385)	; &JSP-2239;
+    (<-fullwidth
+     ((name		  . "GREEK DIALYTIKA TONOS")
+      (=ucs		  . #x0385)	; ΅
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER ALPHA WITH TONOS")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0391 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek capital letter alpha with tonos")
-      (=jis-x0212	  . #x2661)	; &JSP-2661; [06-65]
-      (=ucs@jis		  . #x0386)	; &JSP-2661;
+    (=decomposition
+     ((name		  . "GREEK CAPITAL LETTER ALPHA")
+      (=ucs		  . #x0391)	; Α
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x0386)	; Ά
+    (greek-iso8859-7	. #xB6)	; &I-GREEK-36;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER ALPHA WITH TONOS")
       (=ucs		  . #x03AC)	; ά
       ))
-    (=ucs		. #x0386)	; Ά
-    (greek-iso8859-7	. #xB6)	; &I-GREEK-36;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
+      (=ucs		  . #x0386)	; Ά
       ))
+    (=decomposition
+     ((=ucs@gb/fw	  . #x0391)	; &J90-2621;
+      (=ucs@jis/fw	  . #x0391)	; &J90-2621;
+      (=jis-x0208	  . #x2621)	; &J90-2621; [06-01]
+      (=gb2312		  . #x2621)	; &I-G0-2621; [06-01]
+      (=ks-x1001	  . #x2541)	; &I-K0-2541; [05-33]
+      (=cns11643-1	  . #x2475)	; &I-C1-2475; [04-85]
+      (=jis-x0213-1	  . #x2621)	; &I-JX1-2621; [06-01]
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
+      ))
+    (=ucs@jis/fw	. #x0386)	; &JSP-2661;
+    (=jis-x0212		. #x2661)	; &JSP-2661; [06-65]
     (<-fullwidth
      ((name		  . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
       (=ucs		  . #x0386)	; Ά
       ))
-    (=jis-x0212		. #x2661)	; &JSP-2661; [06-65]
-    (=ucs@jis		. #x0386)	; &JSP-2661;
+    (->lowercase
+     ((=ucs@jis/fw	  . #x03AC)	; &JSP-2671;
+      (=jis-x0212	  . #x2671)	; &JSP-2671; [06-81]
+      ))
     ))
 (define-char
   '((name		. "GREEK ANO TELEIA")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	#x00B7)
     (=ucs		. #x0387)	; ·
+    (->canonical
+     ((name		  . "MIDDLE DOT")
+      (=ucs		  . #x00B7)	; ·
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER EPSILON WITH TONOS")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0395 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek capital letter epsilon with tonos")
-      (=jis-x0212	  . #x2662)	; &JSP-2662; [06-66]
-      (=ucs@jis		  . #x0388)	; &JSP-2662;
+    (=decomposition
+     ((name		  . "GREEK CAPITAL LETTER EPSILON")
+      (=ucs		  . #x0395)	; Ε
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x0388)	; Έ
+    (greek-iso8859-7	. #xB8)	; &I-GREEK-38;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER EPSILON WITH TONOS")
       (=ucs		  . #x03AD)	; έ
       ))
-    (=ucs		. #x0388)	; Έ
-    (greek-iso8859-7	. #xB8)	; &I-GREEK-38;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
+      (=ucs		  . #x0388)	; Έ
       ))
+    (=decomposition
+     ((=ucs@gb/fw	  . #x0395)	; &J90-2625;
+      (=ucs@jis/fw	  . #x0395)	; &J90-2625;
+      (=jis-x0208	  . #x2625)	; &J90-2625; [06-05]
+      (=gb2312		  . #x2625)	; &I-G0-2625; [06-05]
+      (=ks-x1001	  . #x2545)	; &I-K0-2545; [05-37]
+      (=cns11643-1	  . #x2479)	; &I-C1-2479; [04-89]
+      (=jis-x0213-1	  . #x2625)	; &I-JX1-2625; [06-05]
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
+      ))
+    (=ucs@jis/fw	. #x0388)	; &JSP-2662;
+    (=jis-x0212		. #x2662)	; &JSP-2662; [06-66]
     (<-fullwidth
      ((name		  . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
       (=ucs		  . #x0388)	; Έ
       ))
-    (=jis-x0212		. #x2662)	; &JSP-2662; [06-66]
-    (=ucs@jis		. #x0388)	; &JSP-2662;
+    (->lowercase
+     ((=ucs@jis/fw	  . #x03AD)	; &JSP-2672;
+      (=jis-x0212	  . #x2672)	; &JSP-2672; [06-82]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER ETA WITH TONOS")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0397 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek capital letter eta with tonos")
-      (=jis-x0212	  . #x2663)	; &JSP-2663; [06-67]
-      (=ucs@jis		  . #x0389)	; &JSP-2663;
+    (=decomposition
+     ((name		  . "GREEK CAPITAL LETTER ETA")
+      (=ucs		  . #x0397)	; Η
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x0389)	; Ή
+    (greek-iso8859-7	. #xB9)	; &I-GREEK-39;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER ETA WITH TONOS")
       (=ucs		  . #x03AE)	; ή
       ))
-    (=ucs		. #x0389)	; Ή
-    (greek-iso8859-7	. #xB9)	; &I-GREEK-39;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK CAPITAL LETTER ETA WITH TONOS")
+      (=ucs		  . #x0389)	; Ή
+      ))
+    (=decomposition
+     ((=ucs@gb/fw	  . #x0397)	; &J90-2627;
+      (=ucs@jis/fw	  . #x0397)	; &J90-2627;
+      (=jis-x0208	  . #x2627)	; &J90-2627; [06-07]
+      (=gb2312		  . #x2627)	; &I-G0-2627; [06-07]
+      (=ks-x1001	  . #x2547)	; &I-K0-2547; [05-39]
+      (=cns11643-1	  . #x247B)	; &I-C1-247B; [04-91]
+      (=jis-x0213-1	  . #x2627)	; &I-JX1-2627; [06-07]
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs@jis/fw	. #x0389)	; &JSP-2663;
+    (=jis-x0212		. #x2663)	; &JSP-2663; [06-67]
     (<-fullwidth
      ((name		  . "GREEK CAPITAL LETTER ETA WITH TONOS")
       (=ucs		  . #x0389)	; Ή
       ))
-    (=jis-x0212		. #x2663)	; &JSP-2663; [06-67]
-    (=ucs@jis		. #x0389)	; &JSP-2663;
+    (->lowercase
+     ((=ucs@jis/fw	  . #x03AE)	; &JSP-2673;
+      (=jis-x0212	  . #x2673)	; &JSP-2673; [06-83]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER IOTA WITH TONOS")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0399 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek capital letter iota with tonos")
-      (=jis-x0212	  . #x2664)	; &JSP-2664; [06-68]
-      (=ucs@jis		  . #x038A)	; &JSP-2664;
+    (=decomposition
+     ((name		  . "GREEK CAPITAL LETTER IOTA")
+      (=ucs		  . #x0399)	; Ι
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x038A)	; Ί
+    (greek-iso8859-7	. #xBA)	; &I-GREEK-3A;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER IOTA WITH TONOS")
       (=ucs		  . #x03AF)	; ί
       ))
-    (=ucs		. #x038A)	; Ί
-    (greek-iso8859-7	. #xBA)	; &I-GREEK-3A;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK CAPITAL LETTER IOTA WITH TONOS")
+      (=ucs		  . #x038A)	; Ί
+      ))
+    (=decomposition
+     ((=ucs@gb/fw	  . #x0399)	; &J90-2629;
+      (=ucs@jis/fw	  . #x0399)	; &J90-2629;
+      (=jis-x0208	  . #x2629)	; &J90-2629; [06-09]
+      (=gb2312		  . #x2629)	; &I-G0-2629; [06-09]
+      (=ks-x1001	  . #x2549)	; &I-K0-2549; [05-41]
+      (=cns11643-1	  . #x247D)	; &I-C1-247D; [04-93]
+      (=jis-x0213-1	  . #x2629)	; &I-JX1-2629; [06-09]
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs@jis/fw	. #x038A)	; &JSP-2664;
+    (=jis-x0212		. #x2664)	; &JSP-2664; [06-68]
     (<-fullwidth
      ((name		  . "GREEK CAPITAL LETTER IOTA WITH TONOS")
       (=ucs		  . #x038A)	; Ί
       ))
-    (=jis-x0212		. #x2664)	; &JSP-2664; [06-68]
-    (=ucs@jis		. #x038A)	; &JSP-2664;
+    (->lowercase
+     ((=ucs@jis/fw	  . #x03AF)	; &JSP-2674;
+      (=jis-x0212	  . #x2674)	; &JSP-2674; [06-84]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER OMICRON WITH TONOS")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x039F #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek capital letter omicron with tonos")
-      (=jis-x0212	  . #x2667)	; &JSP-2667; [06-71]
-      (=ucs@jis		  . #x038C)	; &JSP-2667;
+    (=decomposition
+     ((name		  . "GREEK CAPITAL LETTER OMICRON")
+      (=ucs		  . #x039F)	; Ο
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x038C)	; Ό
+    (greek-iso8859-7	. #xBC)	; &I-GREEK-3C;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER OMICRON WITH TONOS")
       (=ucs		  . #x03CC)	; ό
       ))
-    (=ucs		. #x038C)	; Ό
-    (greek-iso8859-7	. #xBC)	; &I-GREEK-3C;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
+      (=ucs		  . #x038C)	; Ό
+      ))
+    (=decomposition
+     ((=ucs@gb/fw	  . #x039F)	; &J90-262F;
+      (=ucs@jis/fw	  . #x039F)	; &J90-262F;
+      (=jis-x0208	  . #x262F)	; &J90-262F; [06-15]
+      (=gb2312		  . #x262F)	; &I-G0-262F; [06-15]
+      (=ks-x1001	  . #x254F)	; &I-K0-254F; [05-47]
+      (=cns11643-1	  . #x2525)	; &I-C1-2525; [05-05]
+      (=jis-x0213-1	  . #x262F)	; &I-JX1-262F; [06-15]
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs@jis/fw	. #x038C)	; &JSP-2667;
+    (=jis-x0212		. #x2667)	; &JSP-2667; [06-71]
     (<-fullwidth
      ((name		  . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
       (=ucs		  . #x038C)	; Ό
       ))
-    (=jis-x0212		. #x2667)	; &JSP-2667; [06-71]
-    (=ucs@jis		. #x038C)	; &JSP-2667;
+    (->lowercase
+     ((=ucs@jis/fw	  . #x03CC)	; &JSP-2677;
+      (=jis-x0212	  . #x2677)	; &JSP-2677; [06-87]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER UPSILON WITH TONOS")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03A5 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek capital letter upsilon with tonos")
-      (=jis-x0212	  . #x2669)	; &JSP-2669; [06-73]
-      (=ucs@jis		  . #x038E)	; &JSP-2669;
+    (=decomposition
+     ((name		  . "GREEK CAPITAL LETTER UPSILON")
+      (=ucs		  . #x03A5)	; Υ
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x038E)	; Ύ
+    (greek-iso8859-7	. #xBE)	; &I-GREEK-3E;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER UPSILON WITH TONOS")
       (=ucs		  . #x03CD)	; ύ
       ))
-    (=ucs		. #x038E)	; Ύ
-    (greek-iso8859-7	. #xBE)	; &I-GREEK-3E;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
+      (=ucs		  . #x038E)	; Ύ
+      ))
+    (=decomposition
+     ((=ucs@gb/fw	  . #x03A5)	; &J90-2634;
+      (=ucs@jis/fw	  . #x03A5)	; &J90-2634;
+      (=jis-x0208	  . #x2634)	; &J90-2634; [06-20]
+      (=gb2312		  . #x2634)	; &I-G0-2634; [06-20]
+      (=ks-x1001	  . #x2554)	; &I-K0-2554; [05-52]
+      (=cns11643-1	  . #x252A)	; &I-C1-252A; [05-10]
+      (=jis-x0213-1	  . #x2634)	; &I-JX1-2634; [06-20]
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs@jis/fw	. #x038E)	; &JSP-2669;
+    (=jis-x0212		. #x2669)	; &JSP-2669; [06-73]
     (<-fullwidth
      ((name		  . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
       (=ucs		  . #x038E)	; Ύ
       ))
-    (=jis-x0212		. #x2669)	; &JSP-2669; [06-73]
-    (=ucs@jis		. #x038E)	; &JSP-2669;
+    (->lowercase
+     ((=ucs@jis/fw	  . #x03CD)	; &JSP-2679;
+      (=jis-x0212	  . #x2679)	; &JSP-2679; [06-89]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER OMEGA WITH TONOS")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03A9 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek capital letter omega with tonos")
-      (=jis-x0212	  . #x266C)	; &JSP-266C; [06-76]
-      (=ucs@jis		  . #x038F)	; &JSP-266C;
+    (=decomposition
+     ((name		  . "GREEK CAPITAL LETTER OMEGA")
+      (=ucs		  . #x03A9)	; Ω
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x038F)	; Ώ
+    (greek-iso8859-7	. #xBF)	; &I-GREEK-3F;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER OMEGA WITH TONOS")
       (=ucs		  . #x03CE)	; ώ
       ))
-    (=ucs		. #x038F)	; Ώ
-    (greek-iso8859-7	. #xBF)	; &I-GREEK-3F;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
+      (=ucs		  . #x038F)	; Ώ
+      ))
+    (=decomposition
+     ((=ucs@gb/fw	  . #x03A9)	; &J90-2638;
+      (=ucs@jis/fw	  . #x03A9)	; &J90-2638;
+      (=jis-x0208	  . #x2638)	; &J90-2638; [06-24]
+      (=gb2312		  . #x2638)	; &I-G0-2638; [06-24]
+      (=ks-x1001	  . #x2558)	; &I-K0-2558; [05-56]
+      (=cns11643-1	  . #x252E)	; &I-C1-252E; [05-14]
+      (=jis-x0213-1	  . #x2638)	; &I-JX1-2638; [06-24]
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs@jis/fw	. #x038F)	; &JSP-266C;
+    (=jis-x0212		. #x266C)	; &JSP-266C; [06-76]
     (<-fullwidth
      ((name		  . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
       (=ucs		  . #x038F)	; Ώ
       ))
-    (=jis-x0212		. #x266C)	; &JSP-266C; [06-76]
-    (=ucs@jis		. #x038F)	; &JSP-266C;
+    (->lowercase
+     ((=ucs@jis/fw	  . #x03CE)	; &JSP-267C;
+      (=jis-x0212	  . #x267C)	; &JSP-267C; [06-92]
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03CA #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek small letter iota with dialytika and tonos")
-      (=jis-x0212	  . #x2676)	; &JSP-2676; [06-86]
-      (=ucs@jis		  . #x0390)	; &JSP-2676;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
+      (=ucs		  . #x03CA)	; ϊ
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
     (=ucs		. #x0390)	; ΐ
     (greek-iso8859-7	. #xC0)	; &I-GREEK-40;
     ))
 (define-char
-  '((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)
-    (<-fullwidth
+  '((<-denotational
      ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
       (=ucs		  . #x0390)	; ΐ
       ))
+    (=ucs@jis/fw	. #x0390)	; &JSP-2676;
     (=jis-x0212		. #x2676)	; &JSP-2676; [06-86]
-    (=ucs@jis		. #x0390)	; &JSP-2676;
+    (<-fullwidth
+     ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
+      (=ucs		  . #x0390)	; ΐ
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER ALPHA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter alpha")
-      (=jis-x0208	  . #x2621)	; &J90-2621; [06-01]
-      (=gb2312		  . #x2621)	; &I-G0-2621; [06-01]
-      (=ks-x1001	  . #x2541)	; &I-K0-2541; [05-33]
-      (=cns11643-1	  . #x2475)	; &I-C1-2475; [04-85]
-      ))
+    (=ucs		. #x0391)	; Α
+    (greek-iso8859-7	. #xC1)	; &I-GREEK-41;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER ALPHA")
       (=ucs		  . #x03B1)	; α
       ))
-    (=ucs		. #x0391)	; Α
-    (greek-iso8859-7	. #xC1)	; &I-GREEK-41;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER ALPHA")
       (=ucs		  . #x0391)	; Α
       ))
+    (=ucs@gb/fw		. #x0391)	; &J90-2621;
+    (=ucs@jis/fw	. #x0391)	; &J90-2621;
     (=jis-x0208		. #x2621)	; &J90-2621; [06-01]
     (=gb2312		. #x2621)	; &I-G0-2621; [06-01]
     (=ks-x1001		. #x2541)	; &I-K0-2541; [05-33]
     (=cns11643-1	. #x2475)	; &I-C1-2475; [04-85]
+    (=jis-x0213-1	. #x2621)	; &I-JX1-2621; [06-01]
     (=big5		. #xA344)	; &I-B-A344;
-    (=ucs@jis		. #x0391)	; &J90-2621;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER ALPHA")
+      (=ucs		  . #x0391)	; Α
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03B1)	; &J90-2641;
+      (=ucs@jis/fw	  . #x03B1)	; &J90-2641;
+      (=jis-x0208	  . #x2641)	; &J90-2641; [06-33]
+      (=gb2312		  . #x2641)	; &I-G0-2641; [06-33]
+      (=ks-x1001	  . #x2561)	; &I-K0-2561; [05-65]
+      (=cns11643-1	  . #x252F)	; &I-C1-252F; [05-15]
+      (=jis-x0213-1	  . #x2641)	; &I-JX1-2641; [06-33]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER BETA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter beta")
-      (=jis-x0208	  . #x2622)	; &J90-2622; [06-02]
-      (=gb2312		  . #x2622)	; &I-G0-2622; [06-02]
-      (=ks-x1001	  . #x2542)	; &I-K0-2542; [05-34]
-      (=cns11643-1	  . #x2476)	; &I-C1-2476; [04-86]
-      ))
+    (=ucs		. #x0392)	; Β
+    (greek-iso8859-7	. #xC2)	; &I-GREEK-42;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER BETA")
       (=ucs		  . #x03B2)	; β
       ))
-    (=ucs		. #x0392)	; Β
-    (greek-iso8859-7	. #xC2)	; &I-GREEK-42;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER BETA")
       (=ucs		  . #x0392)	; Β
       ))
+    (=ucs@gb/fw		. #x0392)	; &J90-2622;
+    (=ucs@jis/fw	. #x0392)	; &J90-2622;
     (=jis-x0208		. #x2622)	; &J90-2622; [06-02]
     (=gb2312		. #x2622)	; &I-G0-2622; [06-02]
     (=ks-x1001		. #x2542)	; &I-K0-2542; [05-34]
     (=cns11643-1	. #x2476)	; &I-C1-2476; [04-86]
+    (=jis-x0213-1	. #x2622)	; &I-JX1-2622; [06-02]
     (=big5		. #xA345)	; &I-B-A345;
-    (=ucs@jis		. #x0392)	; &J90-2622;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER BETA")
+      (=ucs		  . #x0392)	; Β
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03B2)	; &J90-2642;
+      (=ucs@jis/fw	  . #x03B2)	; &J90-2642;
+      (=jis-x0208	  . #x2642)	; &J90-2642; [06-34]
+      (=gb2312		  . #x2642)	; &I-G0-2642; [06-34]
+      (=ks-x1001	  . #x2562)	; &I-K0-2562; [05-66]
+      (=cns11643-1	  . #x2530)	; &I-C1-2530; [05-16]
+      (=jis-x0213-1	  . #x2642)	; &I-JX1-2642; [06-34]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER GAMMA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter gamma")
-      (=jis-x0208	  . #x2623)	; &J90-2623; [06-03]
-      (=gb2312		  . #x2623)	; &I-G0-2623; [06-03]
-      (=ks-x1001	  . #x2543)	; &I-K0-2543; [05-35]
-      (=cns11643-1	  . #x2477)	; &I-C1-2477; [04-87]
-      ))
+    (=ucs		. #x0393)	; Γ
+    (greek-iso8859-7	. #xC3)	; &I-GREEK-43;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER GAMMA")
       (=ucs		  . #x03B3)	; γ
       ))
-    (=ucs		. #x0393)	; Γ
-    (greek-iso8859-7	. #xC3)	; &I-GREEK-43;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER GAMMA")
       (=ucs		  . #x0393)	; Γ
       ))
+    (=ucs@gb/fw		. #x0393)	; &J90-2623;
+    (=ucs@jis/fw	. #x0393)	; &J90-2623;
     (=jis-x0208		. #x2623)	; &J90-2623; [06-03]
     (=gb2312		. #x2623)	; &I-G0-2623; [06-03]
     (=ks-x1001		. #x2543)	; &I-K0-2543; [05-35]
     (=cns11643-1	. #x2477)	; &I-C1-2477; [04-87]
+    (=jis-x0213-1	. #x2623)	; &I-JX1-2623; [06-03]
     (=big5		. #xA346)	; &I-B-A346;
-    (=ucs@jis		. #x0393)	; &J90-2623;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER GAMMA")
+      (=ucs		  . #x0393)	; Γ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03B3)	; &J90-2643;
+      (=ucs@jis/fw	  . #x03B3)	; &J90-2643;
+      (=jis-x0208	  . #x2643)	; &J90-2643; [06-35]
+      (=gb2312		  . #x2643)	; &I-G0-2643; [06-35]
+      (=ks-x1001	  . #x2563)	; &I-K0-2563; [05-67]
+      (=cns11643-1	  . #x2531)	; &I-C1-2531; [05-17]
+      (=jis-x0213-1	  . #x2643)	; &I-JX1-2643; [06-35]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER DELTA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter delta")
-      (=jis-x0208	  . #x2624)	; &J90-2624; [06-04]
-      (=gb2312		  . #x2624)	; &I-G0-2624; [06-04]
-      (=ks-x1001	  . #x2544)	; &I-K0-2544; [05-36]
-      (=cns11643-1	  . #x2478)	; &I-C1-2478; [04-88]
-      ))
+    (=ucs		. #x0394)	; Δ
+    (greek-iso8859-7	. #xC4)	; &I-GREEK-44;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER DELTA")
       (=ucs		  . #x03B4)	; δ
       ))
-    (=ucs		. #x0394)	; Δ
-    (greek-iso8859-7	. #xC4)	; &I-GREEK-44;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER DELTA")
       (=ucs		  . #x0394)	; Δ
       ))
+    (=ucs@gb/fw		. #x0394)	; &J90-2624;
+    (=ucs@jis/fw	. #x0394)	; &J90-2624;
     (=jis-x0208		. #x2624)	; &J90-2624; [06-04]
     (=gb2312		. #x2624)	; &I-G0-2624; [06-04]
     (=ks-x1001		. #x2544)	; &I-K0-2544; [05-36]
     (=cns11643-1	. #x2478)	; &I-C1-2478; [04-88]
+    (=jis-x0213-1	. #x2624)	; &I-JX1-2624; [06-04]
     (=big5		. #xA347)	; &I-B-A347;
-    (=ucs@jis		. #x0394)	; &J90-2624;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER DELTA")
+      (=ucs		  . #x0394)	; Δ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03B4)	; &J90-2644;
+      (=ucs@jis/fw	  . #x03B4)	; &J90-2644;
+      (=jis-x0208	  . #x2644)	; &J90-2644; [06-36]
+      (=gb2312		  . #x2644)	; &I-G0-2644; [06-36]
+      (=ks-x1001	  . #x2564)	; &I-K0-2564; [05-68]
+      (=cns11643-1	  . #x2532)	; &I-C1-2532; [05-18]
+      (=jis-x0213-1	  . #x2644)	; &I-JX1-2644; [06-36]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER EPSILON")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter epsilon")
-      (=jis-x0208	  . #x2625)	; &J90-2625; [06-05]
-      (=gb2312		  . #x2625)	; &I-G0-2625; [06-05]
-      (=ks-x1001	  . #x2545)	; &I-K0-2545; [05-37]
-      (=cns11643-1	  . #x2479)	; &I-C1-2479; [04-89]
-      ))
+    (=ucs		. #x0395)	; Ε
+    (greek-iso8859-7	. #xC5)	; &I-GREEK-45;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER EPSILON")
       (=ucs		  . #x03B5)	; ε
       ))
-    (=ucs		. #x0395)	; Ε
-    (greek-iso8859-7	. #xC5)	; &I-GREEK-45;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER EPSILON")
       (=ucs		  . #x0395)	; Ε
       ))
+    (=ucs@gb/fw		. #x0395)	; &J90-2625;
+    (=ucs@jis/fw	. #x0395)	; &J90-2625;
     (=jis-x0208		. #x2625)	; &J90-2625; [06-05]
     (=gb2312		. #x2625)	; &I-G0-2625; [06-05]
     (=ks-x1001		. #x2545)	; &I-K0-2545; [05-37]
     (=cns11643-1	. #x2479)	; &I-C1-2479; [04-89]
+    (=jis-x0213-1	. #x2625)	; &I-JX1-2625; [06-05]
     (=big5		. #xA348)	; &I-B-A348;
-    (=ucs@jis		. #x0395)	; &J90-2625;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER EPSILON")
+      (=ucs		  . #x0395)	; Ε
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03B5)	; &J90-2645;
+      (=ucs@jis/fw	  . #x03B5)	; &J90-2645;
+      (=jis-x0208	  . #x2645)	; &J90-2645; [06-37]
+      (=gb2312		  . #x2645)	; &I-G0-2645; [06-37]
+      (=ks-x1001	  . #x2565)	; &I-K0-2565; [05-69]
+      (=cns11643-1	  . #x2533)	; &I-C1-2533; [05-19]
+      (=jis-x0213-1	  . #x2645)	; &I-JX1-2645; [06-37]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER ZETA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter zeta")
-      (=jis-x0208	  . #x2626)	; &J90-2626; [06-06]
-      (=gb2312		  . #x2626)	; &I-G0-2626; [06-06]
-      (=ks-x1001	  . #x2546)	; &I-K0-2546; [05-38]
-      (=cns11643-1	  . #x247A)	; &I-C1-247A; [04-90]
-      ))
+    (=ucs		. #x0396)	; Ζ
+    (greek-iso8859-7	. #xC6)	; &I-GREEK-46;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER ZETA")
       (=ucs		  . #x03B6)	; ζ
       ))
-    (=ucs		. #x0396)	; Ζ
-    (greek-iso8859-7	. #xC6)	; &I-GREEK-46;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER ZETA")
       (=ucs		  . #x0396)	; Ζ
       ))
+    (=ucs@gb/fw		. #x0396)	; &J90-2626;
+    (=ucs@jis/fw	. #x0396)	; &J90-2626;
     (=jis-x0208		. #x2626)	; &J90-2626; [06-06]
     (=gb2312		. #x2626)	; &I-G0-2626; [06-06]
     (=ks-x1001		. #x2546)	; &I-K0-2546; [05-38]
     (=cns11643-1	. #x247A)	; &I-C1-247A; [04-90]
+    (=jis-x0213-1	. #x2626)	; &I-JX1-2626; [06-06]
     (=big5		. #xA349)	; &I-B-A349;
-    (=ucs@jis		. #x0396)	; &J90-2626;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER ZETA")
+      (=ucs		  . #x0396)	; Ζ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03B6)	; &J90-2646;
+      (=ucs@jis/fw	  . #x03B6)	; &J90-2646;
+      (=jis-x0208	  . #x2646)	; &J90-2646; [06-38]
+      (=gb2312		  . #x2646)	; &I-G0-2646; [06-38]
+      (=ks-x1001	  . #x2566)	; &I-K0-2566; [05-70]
+      (=cns11643-1	  . #x2534)	; &I-C1-2534; [05-20]
+      (=jis-x0213-1	  . #x2646)	; &I-JX1-2646; [06-38]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER ETA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter eta")
-      (=jis-x0208	  . #x2627)	; &J90-2627; [06-07]
-      (=gb2312		  . #x2627)	; &I-G0-2627; [06-07]
-      (=ks-x1001	  . #x2547)	; &I-K0-2547; [05-39]
-      (=cns11643-1	  . #x247B)	; &I-C1-247B; [04-91]
-      ))
+    (=ucs		. #x0397)	; Η
+    (greek-iso8859-7	. #xC7)	; &I-GREEK-47;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER ETA")
       (=ucs		  . #x03B7)	; η
       ))
-    (=ucs		. #x0397)	; Η
-    (greek-iso8859-7	. #xC7)	; &I-GREEK-47;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER ETA")
       (=ucs		  . #x0397)	; Η
       ))
+    (=ucs@gb/fw		. #x0397)	; &J90-2627;
+    (=ucs@jis/fw	. #x0397)	; &J90-2627;
     (=jis-x0208		. #x2627)	; &J90-2627; [06-07]
     (=gb2312		. #x2627)	; &I-G0-2627; [06-07]
     (=ks-x1001		. #x2547)	; &I-K0-2547; [05-39]
     (=cns11643-1	. #x247B)	; &I-C1-247B; [04-91]
+    (=jis-x0213-1	. #x2627)	; &I-JX1-2627; [06-07]
     (=big5		. #xA34A)	; &I-B-A34A;
-    (=ucs@jis		. #x0397)	; &J90-2627;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER ETA")
+      (=ucs		  . #x0397)	; Η
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03B7)	; &J90-2647;
+      (=ucs@jis/fw	  . #x03B7)	; &J90-2647;
+      (=jis-x0208	  . #x2647)	; &J90-2647; [06-39]
+      (=gb2312		  . #x2647)	; &I-G0-2647; [06-39]
+      (=ks-x1001	  . #x2567)	; &I-K0-2567; [05-71]
+      (=cns11643-1	  . #x2535)	; &I-C1-2535; [05-21]
+      (=jis-x0213-1	  . #x2647)	; &I-JX1-2647; [06-39]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER THETA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter theta")
-      (=jis-x0208	  . #x2628)	; &J90-2628; [06-08]
-      (=gb2312		  . #x2628)	; &I-G0-2628; [06-08]
-      (=ks-x1001	  . #x2548)	; &I-K0-2548; [05-40]
-      (=cns11643-1	  . #x247C)	; &I-C1-247C; [04-92]
-      ))
+    (=ucs		. #x0398)	; Θ
+    (greek-iso8859-7	. #xC8)	; &I-GREEK-48;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER THETA")
       (=ucs		  . #x03B8)	; θ
       ))
-    (=ucs		. #x0398)	; Θ
-    (greek-iso8859-7	. #xC8)	; &I-GREEK-48;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER THETA")
       (=ucs		  . #x0398)	; Θ
       ))
+    (=ucs@gb/fw		. #x0398)	; &J90-2628;
+    (=ucs@jis/fw	. #x0398)	; &J90-2628;
     (=jis-x0208		. #x2628)	; &J90-2628; [06-08]
     (=gb2312		. #x2628)	; &I-G0-2628; [06-08]
     (=ks-x1001		. #x2548)	; &I-K0-2548; [05-40]
     (=cns11643-1	. #x247C)	; &I-C1-247C; [04-92]
+    (=jis-x0213-1	. #x2628)	; &I-JX1-2628; [06-08]
     (=big5		. #xA34B)	; &I-B-A34B;
-    (=ucs@jis		. #x0398)	; &J90-2628;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER THETA")
+      (=ucs		  . #x0398)	; Θ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03B8)	; &J90-2648;
+      (=ucs@jis/fw	  . #x03B8)	; &J90-2648;
+      (=jis-x0208	  . #x2648)	; &J90-2648; [06-40]
+      (=gb2312		  . #x2648)	; &I-G0-2648; [06-40]
+      (=ks-x1001	  . #x2568)	; &I-K0-2568; [05-72]
+      (=cns11643-1	  . #x2536)	; &I-C1-2536; [05-22]
+      (=jis-x0213-1	  . #x2648)	; &I-JX1-2648; [06-40]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER IOTA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter iota")
-      (=jis-x0208	  . #x2629)	; &J90-2629; [06-09]
-      (=gb2312		  . #x2629)	; &I-G0-2629; [06-09]
-      (=ks-x1001	  . #x2549)	; &I-K0-2549; [05-41]
-      (=cns11643-1	  . #x247D)	; &I-C1-247D; [04-93]
-      ))
+    (=ucs		. #x0399)	; Ι
+    (greek-iso8859-7	. #xC9)	; &I-GREEK-49;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER IOTA")
       (=ucs		  . #x03B9)	; ι
       ))
-    (=ucs		. #x0399)	; Ι
-    (greek-iso8859-7	. #xC9)	; &I-GREEK-49;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER IOTA")
       (=ucs		  . #x0399)	; Ι
       ))
+    (=ucs@gb/fw		. #x0399)	; &J90-2629;
+    (=ucs@jis/fw	. #x0399)	; &J90-2629;
     (=jis-x0208		. #x2629)	; &J90-2629; [06-09]
     (=gb2312		. #x2629)	; &I-G0-2629; [06-09]
     (=ks-x1001		. #x2549)	; &I-K0-2549; [05-41]
     (=cns11643-1	. #x247D)	; &I-C1-247D; [04-93]
+    (=jis-x0213-1	. #x2629)	; &I-JX1-2629; [06-09]
     (=big5		. #xA34C)	; &I-B-A34C;
-    (=ucs@jis		. #x0399)	; &J90-2629;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER IOTA")
+      (=ucs		  . #x0399)	; Ι
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03B9)	; &J90-2649;
+      (=ucs@jis/fw	  . #x03B9)	; &J90-2649;
+      (=jis-x0208	  . #x2649)	; &J90-2649; [06-41]
+      (=gb2312		  . #x2649)	; &I-G0-2649; [06-41]
+      (=ks-x1001	  . #x2569)	; &I-K0-2569; [05-73]
+      (=cns11643-1	  . #x2537)	; &I-C1-2537; [05-23]
+      (=jis-x0213-1	  . #x2649)	; &I-JX1-2649; [06-41]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER KAPPA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter kappa")
-      (=jis-x0208	  . #x262A)	; &J90-262A; [06-10]
-      (=gb2312		  . #x262A)	; &I-G0-262A; [06-10]
-      (=ks-x1001	  . #x254A)	; &I-K0-254A; [05-42]
-      (=cns11643-1	  . #x247E)	; &I-C1-247E; [04-94]
-      ))
+    (=ucs		. #x039A)	; Κ
+    (greek-iso8859-7	. #xCA)	; &I-GREEK-4A;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER KAPPA")
       (=ucs		  . #x03BA)	; κ
       ))
-    (=ucs		. #x039A)	; Κ
-    (greek-iso8859-7	. #xCA)	; &I-GREEK-4A;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER KAPPA")
       (=ucs		  . #x039A)	; Κ
       ))
+    (=ucs@gb/fw		. #x039A)	; &J90-262A;
+    (=ucs@jis/fw	. #x039A)	; &J90-262A;
     (=jis-x0208		. #x262A)	; &J90-262A; [06-10]
     (=gb2312		. #x262A)	; &I-G0-262A; [06-10]
     (=ks-x1001		. #x254A)	; &I-K0-254A; [05-42]
     (=cns11643-1	. #x247E)	; &I-C1-247E; [04-94]
+    (=jis-x0213-1	. #x262A)	; &I-JX1-262A; [06-10]
     (=big5		. #xA34D)	; &I-B-A34D;
-    (=ucs@jis		. #x039A)	; &J90-262A;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER KAPPA")
+      (=ucs		  . #x039A)	; Κ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03BA)	; &J90-264A;
+      (=ucs@jis/fw	  . #x03BA)	; &J90-264A;
+      (=jis-x0208	  . #x264A)	; &J90-264A; [06-42]
+      (=gb2312		  . #x264A)	; &I-G0-264A; [06-42]
+      (=ks-x1001	  . #x256A)	; &I-K0-256A; [05-74]
+      (=cns11643-1	  . #x2538)	; &I-C1-2538; [05-24]
+      (=jis-x0213-1	  . #x264A)	; &I-JX1-264A; [06-42]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER LAMDA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter lamda")
-      (=jis-x0208	  . #x262B)	; &J90-262B; [06-11]
-      (=gb2312		  . #x262B)	; &I-G0-262B; [06-11]
-      (=ks-x1001	  . #x254B)	; &I-K0-254B; [05-43]
-      (=cns11643-1	  . #x2521)	; &I-C1-2521; [05-01]
-      ))
+    (=ucs		. #x039B)	; Λ
+    (greek-iso8859-7	. #xCB)	; &I-GREEK-4B;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER LAMDA")
       (=ucs		  . #x03BB)	; λ
       ))
-    (=ucs		. #x039B)	; Λ
-    (greek-iso8859-7	. #xCB)	; &I-GREEK-4B;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER LAMDA")
       (=ucs		  . #x039B)	; Λ
       ))
+    (=ucs@gb/fw		. #x039B)	; &J90-262B;
+    (=ucs@jis/fw	. #x039B)	; &J90-262B;
     (=jis-x0208		. #x262B)	; &J90-262B; [06-11]
     (=gb2312		. #x262B)	; &I-G0-262B; [06-11]
     (=ks-x1001		. #x254B)	; &I-K0-254B; [05-43]
     (=cns11643-1	. #x2521)	; &I-C1-2521; [05-01]
+    (=jis-x0213-1	. #x262B)	; &I-JX1-262B; [06-11]
     (=big5		. #xA34E)	; &I-B-A34E;
-    (=ucs@jis		. #x039B)	; &J90-262B;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER LAMDA")
+      (=ucs		  . #x039B)	; Λ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03BB)	; &J90-264B;
+      (=ucs@jis/fw	  . #x03BB)	; &J90-264B;
+      (=jis-x0208	  . #x264B)	; &J90-264B; [06-43]
+      (=gb2312		  . #x264B)	; &I-G0-264B; [06-43]
+      (=ks-x1001	  . #x256B)	; &I-K0-256B; [05-75]
+      (=cns11643-1	  . #x2539)	; &I-C1-2539; [05-25]
+      (=jis-x0213-1	  . #x264B)	; &I-JX1-264B; [06-43]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER MU")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter mu")
-      (=jis-x0208	  . #x262C)	; &J90-262C; [06-12]
-      (=gb2312		  . #x262C)	; &I-G0-262C; [06-12]
-      (=ks-x1001	  . #x254C)	; &I-K0-254C; [05-44]
-      (=cns11643-1	  . #x2522)	; &I-C1-2522; [05-02]
-      ))
+    (=ucs		. #x039C)	; Μ
+    (greek-iso8859-7	. #xCC)	; &I-GREEK-4C;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER MU")
       (=ucs		  . #x03BC)	; μ
       ))
-    (=ucs		. #x039C)	; Μ
-    (greek-iso8859-7	. #xCC)	; &I-GREEK-4C;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER MU")
       (=ucs		  . #x039C)	; Μ
       ))
+    (=ucs@gb/fw		. #x039C)	; &J90-262C;
+    (=ucs@jis/fw	. #x039C)	; &J90-262C;
     (=jis-x0208		. #x262C)	; &J90-262C; [06-12]
     (=gb2312		. #x262C)	; &I-G0-262C; [06-12]
     (=ks-x1001		. #x254C)	; &I-K0-254C; [05-44]
     (=cns11643-1	. #x2522)	; &I-C1-2522; [05-02]
+    (=jis-x0213-1	. #x262C)	; &I-JX1-262C; [06-12]
     (=big5		. #xA34F)	; &I-B-A34F;
-    (=ucs@jis		. #x039C)	; &J90-262C;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER MU")
+      (=ucs		  . #x039C)	; Μ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03BC)	; &J90-264C;
+      (=ucs@jis/fw	  . #x03BC)	; &J90-264C;
+      (=jis-x0208	  . #x264C)	; &J90-264C; [06-44]
+      (=gb2312		  . #x264C)	; &I-G0-264C; [06-44]
+      (=ks-x1001	  . #x256C)	; &I-K0-256C; [05-76]
+      (=cns11643-1	  . #x253A)	; &I-C1-253A; [05-26]
+      (=jis-x0213-1	  . #x264C)	; &I-JX1-264C; [06-44]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER NU")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter nu")
-      (=jis-x0208	  . #x262D)	; &J90-262D; [06-13]
-      (=gb2312		  . #x262D)	; &I-G0-262D; [06-13]
-      (=ks-x1001	  . #x254D)	; &I-K0-254D; [05-45]
-      (=cns11643-1	  . #x2523)	; &I-C1-2523; [05-03]
-      ))
+    (=ucs		. #x039D)	; Ν
+    (greek-iso8859-7	. #xCD)	; &I-GREEK-4D;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER NU")
       (=ucs		  . #x03BD)	; ν
       ))
-    (=ucs		. #x039D)	; Ν
-    (greek-iso8859-7	. #xCD)	; &I-GREEK-4D;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER NU")
       (=ucs		  . #x039D)	; Ν
       ))
+    (=ucs@gb/fw		. #x039D)	; &J90-262D;
+    (=ucs@jis/fw	. #x039D)	; &J90-262D;
     (=jis-x0208		. #x262D)	; &J90-262D; [06-13]
     (=gb2312		. #x262D)	; &I-G0-262D; [06-13]
     (=ks-x1001		. #x254D)	; &I-K0-254D; [05-45]
     (=cns11643-1	. #x2523)	; &I-C1-2523; [05-03]
+    (=jis-x0213-1	. #x262D)	; &I-JX1-262D; [06-13]
     (=big5		. #xA350)	; &I-B-A350;
-    (=ucs@jis		. #x039D)	; &J90-262D;
-    ))
-(define-char
-  '((name		. "GREEK CAPITAL LETTER XI")
-    (general-category	letter uppercase) ; Normative Category
-    (bidi-category	. "L")
-    (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter xi")
-      (=jis-x0208	  . #x262E)	; &J90-262E; [06-14]
-      (=gb2312		  . #x262E)	; &I-G0-262E; [06-14]
-      (=ks-x1001	  . #x254E)	; &I-K0-254E; [05-46]
-      (=cns11643-1	  . #x2524)	; &I-C1-2524; [05-04]
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER NU")
+      (=ucs		  . #x039D)	; Ν
       ))
     (->lowercase
-     ((name		  . "GREEK SMALL LETTER XI")
-      (=ucs		  . #x03BE)	; ξ
+     ((=ucs@gb/fw	  . #x03BD)	; &J90-264D;
+      (=ucs@jis/fw	  . #x03BD)	; &J90-264D;
+      (=jis-x0208	  . #x264D)	; &J90-264D; [06-45]
+      (=gb2312		  . #x264D)	; &I-G0-264D; [06-45]
+      (=ks-x1001	  . #x256D)	; &I-K0-256D; [05-77]
+      (=cns11643-1	  . #x253B)	; &I-C1-253B; [05-27]
+      (=jis-x0213-1	  . #x264D)	; &I-JX1-264D; [06-45]
       ))
-    (=ucs		. #x039E)	; Ξ
-    (greek-iso8859-7	. #xCE)	; &I-GREEK-4E;
     ))
 (define-char
-  '((name		. "fullwidth greek capital letter xi")
-    (=>ucs		. #x039E)	; Ξ
+  '((name		. "GREEK CAPITAL LETTER XI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	wide #x039E)
+    (=ucs		. #x039E)	; Ξ
+    (greek-iso8859-7	. #xCE)	; &I-GREEK-4E;
     (->lowercase
-     ((name		  . "fullwidth greek small letter xi")
+     ((name		  . "GREEK SMALL LETTER XI")
+      (=ucs		  . #x03BE)	; ξ
       ))
-    (<-fullwidth
+    ))
+(define-char
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER XI")
       (=ucs		  . #x039E)	; Ξ
       ))
+    (=ucs@gb/fw		. #x039E)	; &J90-262E;
+    (=ucs@jis/fw	. #x039E)	; &J90-262E;
     (=jis-x0208		. #x262E)	; &J90-262E; [06-14]
     (=gb2312		. #x262E)	; &I-G0-262E; [06-14]
     (=ks-x1001		. #x254E)	; &I-K0-254E; [05-46]
     (=cns11643-1	. #x2524)	; &I-C1-2524; [05-04]
+    (=jis-x0213-1	. #x262E)	; &I-JX1-262E; [06-14]
     (=big5		. #xA351)	; &I-B-A351;
-    (=ucs@jis		. #x039E)	; &J90-262E;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER XI")
+      (=ucs		  . #x039E)	; Ξ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03BE)	; &J90-264E;
+      (=ucs@jis/fw	  . #x03BE)	; &J90-264E;
+      (=jis-x0208	  . #x264E)	; &J90-264E; [06-46]
+      (=gb2312		  . #x264E)	; &I-G0-264E; [06-46]
+      (=ks-x1001	  . #x256E)	; &I-K0-256E; [05-78]
+      (=cns11643-1	  . #x253C)	; &I-C1-253C; [05-28]
+      (=jis-x0213-1	  . #x264E)	; &I-JX1-264E; [06-46]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER OMICRON")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter omicron")
-      (=jis-x0208	  . #x262F)	; &J90-262F; [06-15]
-      (=gb2312		  . #x262F)	; &I-G0-262F; [06-15]
-      (=ks-x1001	  . #x254F)	; &I-K0-254F; [05-47]
-      (=cns11643-1	  . #x2525)	; &I-C1-2525; [05-05]
-      ))
+    (=ucs		. #x039F)	; Ο
+    (greek-iso8859-7	. #xCF)	; &I-GREEK-4F;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER OMICRON")
       (=ucs		  . #x03BF)	; ο
       ))
-    (=ucs		. #x039F)	; Ο
-    (greek-iso8859-7	. #xCF)	; &I-GREEK-4F;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER OMICRON")
       (=ucs		  . #x039F)	; Ο
       ))
+    (=ucs@gb/fw		. #x039F)	; &J90-262F;
+    (=ucs@jis/fw	. #x039F)	; &J90-262F;
     (=jis-x0208		. #x262F)	; &J90-262F; [06-15]
     (=gb2312		. #x262F)	; &I-G0-262F; [06-15]
     (=ks-x1001		. #x254F)	; &I-K0-254F; [05-47]
     (=cns11643-1	. #x2525)	; &I-C1-2525; [05-05]
+    (=jis-x0213-1	. #x262F)	; &I-JX1-262F; [06-15]
     (=big5		. #xA352)	; &I-B-A352;
-    (=ucs@jis		. #x039F)	; &J90-262F;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER OMICRON")
+      (=ucs		  . #x039F)	; Ο
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03BF)	; &J90-264F;
+      (=ucs@jis/fw	  . #x03BF)	; &J90-264F;
+      (=jis-x0208	  . #x264F)	; &J90-264F; [06-47]
+      (=gb2312		  . #x264F)	; &I-G0-264F; [06-47]
+      (=ks-x1001	  . #x256F)	; &I-K0-256F; [05-79]
+      (=cns11643-1	  . #x253D)	; &I-C1-253D; [05-29]
+      (=jis-x0213-1	  . #x264F)	; &I-JX1-264F; [06-47]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER PI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter pi")
-      (=jis-x0208	  . #x2630)	; &J90-2630; [06-16]
-      (=gb2312		  . #x2630)	; &I-G0-2630; [06-16]
-      (=ks-x1001	  . #x2550)	; &I-K0-2550; [05-48]
-      (=cns11643-1	  . #x2526)	; &I-C1-2526; [05-06]
-      ))
+    (=ucs		. #x03A0)	; Π
+    (greek-iso8859-7	. #xD0)	; &I-GREEK-50;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER PI")
       (=ucs		  . #x03C0)	; π
       ))
-    (=ucs		. #x03A0)	; Π
-    (greek-iso8859-7	. #xD0)	; &I-GREEK-50;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER PI")
       (=ucs		  . #x03A0)	; Π
       ))
+    (=ucs@gb/fw		. #x03A0)	; &J90-2630;
+    (=ucs@jis/fw	. #x03A0)	; &J90-2630;
     (=jis-x0208		. #x2630)	; &J90-2630; [06-16]
     (=gb2312		. #x2630)	; &I-G0-2630; [06-16]
     (=ks-x1001		. #x2550)	; &I-K0-2550; [05-48]
     (=cns11643-1	. #x2526)	; &I-C1-2526; [05-06]
+    (=jis-x0213-1	. #x2630)	; &I-JX1-2630; [06-16]
     (=big5		. #xA353)	; &I-B-A353;
-    (=ucs@jis		. #x03A0)	; &J90-2630;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER PI")
+      (=ucs		  . #x03A0)	; Π
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03C0)	; &J90-2650;
+      (=ucs@jis/fw	  . #x03C0)	; &J90-2650;
+      (=jis-x0208	  . #x2650)	; &J90-2650; [06-48]
+      (=gb2312		  . #x2650)	; &I-G0-2650; [06-48]
+      (=ks-x1001	  . #x2570)	; &I-K0-2570; [05-80]
+      (=cns11643-1	  . #x253E)	; &I-C1-253E; [05-30]
+      (=jis-x0213-1	  . #x2650)	; &I-JX1-2650; [06-48]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER RHO")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter rho")
-      (=jis-x0208	  . #x2631)	; &J90-2631; [06-17]
-      (=gb2312		  . #x2631)	; &I-G0-2631; [06-17]
-      (=ks-x1001	  . #x2551)	; &I-K0-2551; [05-49]
-      (=cns11643-1	  . #x2527)	; &I-C1-2527; [05-07]
-      ))
+    (=ucs		. #x03A1)	; Ρ
+    (greek-iso8859-7	. #xD1)	; &I-GREEK-51;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER RHO")
       (=ucs		  . #x03C1)	; ρ
       ))
-    (=ucs		. #x03A1)	; Ρ
-    (greek-iso8859-7	. #xD1)	; &I-GREEK-51;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER RHO")
       (=ucs		  . #x03A1)	; Ρ
       ))
+    (=ucs@gb/fw		. #x03A1)	; &J90-2631;
+    (=ucs@jis/fw	. #x03A1)	; &J90-2631;
     (=jis-x0208		. #x2631)	; &J90-2631; [06-17]
     (=gb2312		. #x2631)	; &I-G0-2631; [06-17]
     (=ks-x1001		. #x2551)	; &I-K0-2551; [05-49]
     (=cns11643-1	. #x2527)	; &I-C1-2527; [05-07]
+    (=jis-x0213-1	. #x2631)	; &I-JX1-2631; [06-17]
     (=big5		. #xA354)	; &I-B-A354;
-    (=ucs@jis		. #x03A1)	; &J90-2631;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER RHO")
+      (=ucs		  . #x03A1)	; Ρ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03C1)	; &J90-2651;
+      (=ucs@jis/fw	  . #x03C1)	; &J90-2651;
+      (=jis-x0208	  . #x2651)	; &J90-2651; [06-49]
+      (=gb2312		  . #x2651)	; &I-G0-2651; [06-49]
+      (=ks-x1001	  . #x2571)	; &I-K0-2571; [05-81]
+      (=cns11643-1	  . #x253F)	; &I-C1-253F; [05-31]
+      (=jis-x0213-1	  . #x2651)	; &I-JX1-2651; [06-49]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER SIGMA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter sigma")
-      (=jis-x0208	  . #x2632)	; &J90-2632; [06-18]
-      (=gb2312		  . #x2632)	; &I-G0-2632; [06-18]
-      (=ks-x1001	  . #x2552)	; &I-K0-2552; [05-50]
-      (=cns11643-1	  . #x2528)	; &I-C1-2528; [05-08]
-      ))
+    (=ucs		. #x03A3)	; Σ
+    (greek-iso8859-7	. #xD3)	; &I-GREEK-53;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER SIGMA")
       (=ucs		  . #x03C3)	; σ
       ))
-    (=ucs		. #x03A3)	; Σ
-    (greek-iso8859-7	. #xD3)	; &I-GREEK-53;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER SIGMA")
       (=ucs		  . #x03A3)	; Σ
       ))
+    (=ucs@gb/fw		. #x03A3)	; &J90-2632;
+    (=ucs@jis/fw	. #x03A3)	; &J90-2632;
     (=jis-x0208		. #x2632)	; &J90-2632; [06-18]
     (=gb2312		. #x2632)	; &I-G0-2632; [06-18]
     (=ks-x1001		. #x2552)	; &I-K0-2552; [05-50]
     (=cns11643-1	. #x2528)	; &I-C1-2528; [05-08]
+    (=jis-x0213-1	. #x2632)	; &I-JX1-2632; [06-18]
     (=big5		. #xA355)	; &I-B-A355;
-    (=ucs@jis		. #x03A3)	; &J90-2632;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER SIGMA")
+      (=ucs		  . #x03A3)	; Σ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03C3)	; &J90-2652;
+      (=ucs@jis/fw	  . #x03C3)	; &J90-2652;
+      (=jis-x0208	  . #x2652)	; &J90-2652; [06-50]
+      (=gb2312		  . #x2652)	; &I-G0-2652; [06-50]
+      (=ks-x1001	  . #x2572)	; &I-K0-2572; [05-82]
+      (=cns11643-1	  . #x2540)	; &I-C1-2540; [05-32]
+      (=jis-x0213-1	  . #x2652)	; &I-JX1-2652; [06-50]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER TAU")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter tau")
-      (=jis-x0208	  . #x2633)	; &J90-2633; [06-19]
-      (=gb2312		  . #x2633)	; &I-G0-2633; [06-19]
-      (=ks-x1001	  . #x2553)	; &I-K0-2553; [05-51]
-      (=cns11643-1	  . #x2529)	; &I-C1-2529; [05-09]
-      ))
+    (=ucs		. #x03A4)	; Τ
+    (greek-iso8859-7	. #xD4)	; &I-GREEK-54;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER TAU")
       (=ucs		  . #x03C4)	; τ
       ))
-    (=ucs		. #x03A4)	; Τ
-    (greek-iso8859-7	. #xD4)	; &I-GREEK-54;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER TAU")
       (=ucs		  . #x03A4)	; Τ
       ))
+    (=ucs@gb/fw		. #x03A4)	; &J90-2633;
+    (=ucs@jis/fw	. #x03A4)	; &J90-2633;
     (=jis-x0208		. #x2633)	; &J90-2633; [06-19]
     (=gb2312		. #x2633)	; &I-G0-2633; [06-19]
     (=ks-x1001		. #x2553)	; &I-K0-2553; [05-51]
     (=cns11643-1	. #x2529)	; &I-C1-2529; [05-09]
+    (=jis-x0213-1	. #x2633)	; &I-JX1-2633; [06-19]
     (=big5		. #xA356)	; &I-B-A356;
-    (=ucs@jis		. #x03A4)	; &J90-2633;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER TAU")
+      (=ucs		  . #x03A4)	; Τ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03C4)	; &J90-2653;
+      (=ucs@jis/fw	  . #x03C4)	; &J90-2653;
+      (=jis-x0208	  . #x2653)	; &J90-2653; [06-51]
+      (=gb2312		  . #x2653)	; &I-G0-2653; [06-51]
+      (=ks-x1001	  . #x2573)	; &I-K0-2573; [05-83]
+      (=cns11643-1	  . #x2541)	; &I-C1-2541; [05-33]
+      (=jis-x0213-1	  . #x2653)	; &I-JX1-2653; [06-51]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER UPSILON")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter upsilon")
-      (=jis-x0208	  . #x2634)	; &J90-2634; [06-20]
-      (=gb2312		  . #x2634)	; &I-G0-2634; [06-20]
-      (=ks-x1001	  . #x2554)	; &I-K0-2554; [05-52]
-      (=cns11643-1	  . #x252A)	; &I-C1-252A; [05-10]
-      ))
+    (=ucs		. #x03A5)	; Υ
+    (greek-iso8859-7	. #xD5)	; &I-GREEK-55;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER UPSILON")
       (=ucs		  . #x03C5)	; υ
       ))
-    (=ucs		. #x03A5)	; Υ
-    (greek-iso8859-7	. #xD5)	; &I-GREEK-55;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER UPSILON")
       (=ucs		  . #x03A5)	; Υ
       ))
+    (=ucs@gb/fw		. #x03A5)	; &J90-2634;
+    (=ucs@jis/fw	. #x03A5)	; &J90-2634;
     (=jis-x0208		. #x2634)	; &J90-2634; [06-20]
     (=gb2312		. #x2634)	; &I-G0-2634; [06-20]
     (=ks-x1001		. #x2554)	; &I-K0-2554; [05-52]
     (=cns11643-1	. #x252A)	; &I-C1-252A; [05-10]
+    (=jis-x0213-1	. #x2634)	; &I-JX1-2634; [06-20]
     (=big5		. #xA357)	; &I-B-A357;
-    (=ucs@jis		. #x03A5)	; &J90-2634;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER UPSILON")
+      (=ucs		  . #x03A5)	; Υ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03C5)	; &J90-2654;
+      (=ucs@jis/fw	  . #x03C5)	; &J90-2654;
+      (=jis-x0208	  . #x2654)	; &J90-2654; [06-52]
+      (=gb2312		  . #x2654)	; &I-G0-2654; [06-52]
+      (=ks-x1001	  . #x2574)	; &I-K0-2574; [05-84]
+      (=cns11643-1	  . #x2542)	; &I-C1-2542; [05-34]
+      (=jis-x0213-1	  . #x2654)	; &I-JX1-2654; [06-52]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER PHI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter phi")
-      (=jis-x0208	  . #x2635)	; &J90-2635; [06-21]
-      (=gb2312		  . #x2635)	; &I-G0-2635; [06-21]
-      (=ks-x1001	  . #x2555)	; &I-K0-2555; [05-53]
-      (=cns11643-1	  . #x252B)	; &I-C1-252B; [05-11]
-      ))
+    (=ucs		. #x03A6)	; Φ
+    (greek-iso8859-7	. #xD6)	; &I-GREEK-56;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER PHI")
       (=ucs		  . #x03C6)	; φ
       ))
-    (=ucs		. #x03A6)	; Φ
-    (greek-iso8859-7	. #xD6)	; &I-GREEK-56;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER PHI")
       (=ucs		  . #x03A6)	; Φ
       ))
+    (=ucs@gb/fw		. #x03A6)	; &J90-2635;
+    (=ucs@jis/fw	. #x03A6)	; &J90-2635;
     (=jis-x0208		. #x2635)	; &J90-2635; [06-21]
     (=gb2312		. #x2635)	; &I-G0-2635; [06-21]
     (=ks-x1001		. #x2555)	; &I-K0-2555; [05-53]
     (=cns11643-1	. #x252B)	; &I-C1-252B; [05-11]
+    (=jis-x0213-1	. #x2635)	; &I-JX1-2635; [06-21]
     (=big5		. #xA358)	; &I-B-A358;
-    (=ucs@jis		. #x03A6)	; &J90-2635;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER PHI")
+      (=ucs		  . #x03A6)	; Φ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03C6)	; &J90-2655;
+      (=ucs@jis/fw	  . #x03C6)	; &J90-2655;
+      (=jis-x0208	  . #x2655)	; &J90-2655; [06-53]
+      (=gb2312		  . #x2655)	; &I-G0-2655; [06-53]
+      (=ks-x1001	  . #x2575)	; &I-K0-2575; [05-85]
+      (=cns11643-1	  . #x2543)	; &I-C1-2543; [05-35]
+      (=jis-x0213-1	  . #x2655)	; &I-JX1-2655; [06-53]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER CHI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter chi")
-      (=jis-x0208	  . #x2636)	; &J90-2636; [06-22]
-      (=gb2312		  . #x2636)	; &I-G0-2636; [06-22]
-      (=ks-x1001	  . #x2556)	; &I-K0-2556; [05-54]
-      (=cns11643-1	  . #x252C)	; &I-C1-252C; [05-12]
-      ))
+    (=ucs		. #x03A7)	; Χ
+    (greek-iso8859-7	. #xD7)	; &I-GREEK-57;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER CHI")
       (=ucs		  . #x03C7)	; χ
       ))
-    (=ucs		. #x03A7)	; Χ
-    (greek-iso8859-7	. #xD7)	; &I-GREEK-57;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER CHI")
       (=ucs		  . #x03A7)	; Χ
       ))
+    (=ucs@gb/fw		. #x03A7)	; &J90-2636;
+    (=ucs@jis/fw	. #x03A7)	; &J90-2636;
     (=jis-x0208		. #x2636)	; &J90-2636; [06-22]
     (=gb2312		. #x2636)	; &I-G0-2636; [06-22]
     (=ks-x1001		. #x2556)	; &I-K0-2556; [05-54]
     (=cns11643-1	. #x252C)	; &I-C1-252C; [05-12]
+    (=jis-x0213-1	. #x2636)	; &I-JX1-2636; [06-22]
     (=big5		. #xA359)	; &I-B-A359;
-    (=ucs@jis		. #x03A7)	; &J90-2636;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER CHI")
+      (=ucs		  . #x03A7)	; Χ
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03C7)	; &J90-2656;
+      (=ucs@jis/fw	  . #x03C7)	; &J90-2656;
+      (=jis-x0208	  . #x2656)	; &J90-2656; [06-54]
+      (=gb2312		  . #x2656)	; &I-G0-2656; [06-54]
+      (=ks-x1001	  . #x2576)	; &I-K0-2576; [05-86]
+      (=cns11643-1	  . #x2544)	; &I-C1-2544; [05-36]
+      (=jis-x0213-1	  . #x2656)	; &I-JX1-2656; [06-54]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER PSI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter psi")
-      (=jis-x0208	  . #x2637)	; &J90-2637; [06-23]
-      (=gb2312		  . #x2637)	; &I-G0-2637; [06-23]
-      (=ks-x1001	  . #x2557)	; &I-K0-2557; [05-55]
-      (=cns11643-1	  . #x252D)	; &I-C1-252D; [05-13]
-      ))
+    (=ucs		. #x03A8)	; Ψ
+    (greek-iso8859-7	. #xD8)	; &I-GREEK-58;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER PSI")
       (=ucs		  . #x03C8)	; ψ
       ))
-    (=ucs		. #x03A8)	; Ψ
-    (greek-iso8859-7	. #xD8)	; &I-GREEK-58;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER PSI")
       (=ucs		  . #x03A8)	; Ψ
       ))
+    (=ucs@gb/fw		. #x03A8)	; &J90-2637;
+    (=ucs@jis/fw	. #x03A8)	; &J90-2637;
     (=jis-x0208		. #x2637)	; &J90-2637; [06-23]
     (=gb2312		. #x2637)	; &I-G0-2637; [06-23]
     (=ks-x1001		. #x2557)	; &I-K0-2557; [05-55]
     (=cns11643-1	. #x252D)	; &I-C1-252D; [05-13]
+    (=jis-x0213-1	. #x2637)	; &I-JX1-2637; [06-23]
     (=big5		. #xA35A)	; &I-B-A35A;
-    (=ucs@jis		. #x03A8)	; &J90-2637;
-    ))
-(define-char
-  '((name		. "GREEK CAPITAL LETTER OMEGA")
-    (general-category	letter uppercase) ; Normative Category
-    (bidi-category	. "L")
-    (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek capital letter omega")
-      (=jis-x0208	  . #x2638)	; &J90-2638; [06-24]
-      (=gb2312		  . #x2638)	; &I-G0-2638; [06-24]
-      (=ks-x1001	  . #x2558)	; &I-K0-2558; [05-56]
-      (=cns11643-1	  . #x252E)	; &I-C1-252E; [05-14]
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER PSI")
+      (=ucs		  . #x03A8)	; Ψ
       ))
     (->lowercase
-     ((name		  . "GREEK SMALL LETTER OMEGA")
-      (=ucs		  . #x03C9)	; ω
+     ((=ucs@gb/fw	  . #x03C8)	; &J90-2657;
+      (=ucs@jis/fw	  . #x03C8)	; &J90-2657;
+      (=jis-x0208	  . #x2657)	; &J90-2657; [06-55]
+      (=gb2312		  . #x2657)	; &I-G0-2657; [06-55]
+      (=ks-x1001	  . #x2577)	; &I-K0-2577; [05-87]
+      (=cns11643-1	  . #x2545)	; &I-C1-2545; [05-37]
+      (=jis-x0213-1	  . #x2657)	; &I-JX1-2657; [06-55]
       ))
-    (=ucs		. #x03A9)	; Ω
-    (greek-iso8859-7	. #xD9)	; &I-GREEK-59;
     ))
 (define-char
-  '((name		. "fullwidth greek capital letter omega")
-    (=>ucs		. #x03A9)	; Ω
+  '((name		. "GREEK CAPITAL LETTER OMEGA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	wide #x03A9)
+    (=ucs		. #x03A9)	; Ω
+    (greek-iso8859-7	. #xD9)	; &I-GREEK-59;
     (->lowercase
-     ((name		  . "fullwidth greek small letter omega")
+     ((name		  . "GREEK SMALL LETTER OMEGA")
+      (=ucs		  . #x03C9)	; ω
       ))
-    (<-fullwidth
+    ))
+(define-char
+  '((<-denotational
      ((name		  . "GREEK CAPITAL LETTER OMEGA")
       (=ucs		  . #x03A9)	; Ω
       ))
+    (=ucs@gb/fw		. #x03A9)	; &J90-2638;
+    (=ucs@jis/fw	. #x03A9)	; &J90-2638;
     (=jis-x0208		. #x2638)	; &J90-2638; [06-24]
     (=gb2312		. #x2638)	; &I-G0-2638; [06-24]
     (=ks-x1001		. #x2558)	; &I-K0-2558; [05-56]
     (=cns11643-1	. #x252E)	; &I-C1-252E; [05-14]
+    (=jis-x0213-1	. #x2638)	; &I-JX1-2638; [06-24]
     (=big5		. #xA35B)	; &I-B-A35B;
-    (=ucs@jis		. #x03A9)	; &J90-2638;
+    (<-fullwidth
+     ((name		  . "GREEK CAPITAL LETTER OMEGA")
+      (=ucs		  . #x03A9)	; Ω
+      ))
+    (->lowercase
+     ((=ucs@gb/fw	  . #x03C9)	; &J90-2658;
+      (=ucs@jis/fw	  . #x03C9)	; &J90-2658;
+      (=jis-x0208	  . #x2658)	; &J90-2658; [06-56]
+      (=gb2312		  . #x2658)	; &I-G0-2658; [06-56]
+      (=ks-x1001	  . #x2578)	; &I-K0-2578; [05-88]
+      (=cns11643-1	  . #x2546)	; &I-C1-2546; [05-38]
+      (=jis-x0213-1	  . #x2658)	; &I-JX1-2658; [06-56]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0399 #x0308)
-    (->fullwidth
-     ((name . "fullwidth greek capital letter iota with dialytika")
-      (=jis-x0212	  . #x2665)	; &JSP-2665; [06-69]
-      (=ucs@jis		  . #x03AA)	; &JSP-2665;
+    (=decomposition
+     ((name		  . "GREEK CAPITAL LETTER IOTA")
+      (=ucs		  . #x0399)	; Ι
+      )
+     ((name		  . "COMBINING DIAERESIS")
+      (=ucs		  . #x0308)	; ̈
       ))
+    (=ucs		. #x03AA)	; Ϊ
+    (greek-iso8859-7	. #xDA)	; &I-GREEK-5A;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
       (=ucs		  . #x03CA)	; ϊ
       ))
-    (=ucs		. #x03AA)	; Ϊ
-    (greek-iso8859-7	. #xDA)	; &I-GREEK-5A;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
+      (=ucs		  . #x03AA)	; Ϊ
       ))
+    (=ucs@jis/fw	. #x03AA)	; &JSP-2665;
+    (=jis-x0212		. #x2665)	; &JSP-2665; [06-69]
     (<-fullwidth
      ((name		  . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
       (=ucs		  . #x03AA)	; Ϊ
       ))
-    (=jis-x0212		. #x2665)	; &JSP-2665; [06-69]
-    (=ucs@jis		. #x03AA)	; &JSP-2665;
+    (->lowercase
+     ((=ucs@jis/fw	  . #x03CA)	; &JSP-2675;
+      (=jis-x0212	  . #x2675)	; &JSP-2675; [06-85]
+      ))
     ))
 (define-char
   '((name		. "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03A5 #x0308)
-    (->fullwidth
-     ((name . "fullwidth greek capital letter upsilon with dialytika")
-      (=jis-x0212	  . #x266A)	; &JSP-266A; [06-74]
-      (=ucs@jis		  . #x03AB)	; &JSP-266A;
+    (=decomposition
+     ((name		  . "GREEK CAPITAL LETTER UPSILON")
+      (=ucs		  . #x03A5)	; Υ
+      )
+     ((name		  . "COMBINING DIAERESIS")
+      (=ucs		  . #x0308)	; ̈
       ))
+    (=ucs		. #x03AB)	; Ϋ
+    (greek-iso8859-7	. #xDB)	; &I-GREEK-5B;
     (->lowercase
      ((name		  . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
       (=ucs		  . #x03CB)	; ϋ
       ))
-    (=ucs		. #x03AB)	; Ϋ
-    (greek-iso8859-7	. #xDB)	; &I-GREEK-5B;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
+      (=ucs		  . #x03AB)	; Ϋ
       ))
+    (=ucs@jis/fw	. #x03AB)	; &JSP-266A;
+    (=jis-x0212		. #x266A)	; &JSP-266A; [06-74]
     (<-fullwidth
      ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
       (=ucs		  . #x03AB)	; Ϋ
       ))
-    (=jis-x0212		. #x266A)	; &JSP-266A; [06-74]
-    (=ucs@jis		. #x03AB)	; &JSP-266A;
+    (->lowercase
+     ((=ucs@jis/fw	  . #x03CB)	; &JSP-267A;
+      (=jis-x0212	  . #x267A)	; &JSP-267A; [06-90]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER ALPHA WITH TONOS")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03B1 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek small letter alpha with tonos")
-      (=jis-x0212	  . #x2671)	; &JSP-2671; [06-81]
-      (=ucs@jis		  . #x03AC)	; &JSP-2671;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER ALPHA")
+      (=ucs		  . #x03B1)	; α
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x03AC)	; ά
+    (greek-iso8859-7	. #xDC)	; &I-GREEK-5C;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
       (=ucs		  . #x0386)	; Ά
       ))
-    (=ucs		. #x03AC)	; ά
-    (greek-iso8859-7	. #xDC)	; &I-GREEK-5C;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER ALPHA WITH TONOS")
+      (=ucs		  . #x03AC)	; ά
       ))
+    (=ucs@jis/fw	. #x03AC)	; &JSP-2671;
+    (=jis-x0212		. #x2671)	; &JSP-2671; [06-81]
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER ALPHA WITH TONOS")
       (=ucs		  . #x03AC)	; ά
       ))
-    (=jis-x0212		. #x2671)	; &JSP-2671; [06-81]
-    (=ucs@jis		. #x03AC)	; &JSP-2671;
+    (->uppercase
+     ((=ucs@jis/fw	  . #x0386)	; &JSP-2661;
+      (=jis-x0212	  . #x2661)	; &JSP-2661; [06-65]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER EPSILON WITH TONOS")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03B5 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek small letter epsilon with tonos")
-      (=jis-x0212	  . #x2672)	; &JSP-2672; [06-82]
-      (=ucs@jis		  . #x03AD)	; &JSP-2672;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER EPSILON")
+      (=ucs		  . #x03B5)	; ε
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x03AD)	; έ
+    (greek-iso8859-7	. #xDD)	; &I-GREEK-5D;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
       (=ucs		  . #x0388)	; Έ
       ))
-    (=ucs		. #x03AD)	; έ
-    (greek-iso8859-7	. #xDD)	; &I-GREEK-5D;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER EPSILON WITH TONOS")
+      (=ucs		  . #x03AD)	; έ
       ))
+    (=ucs@jis/fw	. #x03AD)	; &JSP-2672;
+    (=jis-x0212		. #x2672)	; &JSP-2672; [06-82]
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER EPSILON WITH TONOS")
       (=ucs		  . #x03AD)	; έ
       ))
-    (=jis-x0212		. #x2672)	; &JSP-2672; [06-82]
-    (=ucs@jis		. #x03AD)	; &JSP-2672;
+    (->uppercase
+     ((=ucs@jis/fw	  . #x0388)	; &JSP-2662;
+      (=jis-x0212	  . #x2662)	; &JSP-2662; [06-66]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER ETA WITH TONOS")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03B7 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek small letter eta with tonos")
-      (=jis-x0212	  . #x2673)	; &JSP-2673; [06-83]
-      (=ucs@jis		  . #x03AE)	; &JSP-2673;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER ETA")
+      (=ucs		  . #x03B7)	; η
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x03AE)	; ή
+    (greek-iso8859-7	. #xDE)	; &I-GREEK-5E;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER ETA WITH TONOS")
       (=ucs		  . #x0389)	; Ή
       ))
-    (=ucs		. #x03AE)	; ή
-    (greek-iso8859-7	. #xDE)	; &I-GREEK-5E;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER ETA WITH TONOS")
+      (=ucs		  . #x03AE)	; ή
       ))
+    (=ucs@jis/fw	. #x03AE)	; &JSP-2673;
+    (=jis-x0212		. #x2673)	; &JSP-2673; [06-83]
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER ETA WITH TONOS")
       (=ucs		  . #x03AE)	; ή
       ))
-    (=jis-x0212		. #x2673)	; &JSP-2673; [06-83]
-    (=ucs@jis		. #x03AE)	; &JSP-2673;
+    (->uppercase
+     ((=ucs@jis/fw	  . #x0389)	; &JSP-2663;
+      (=jis-x0212	  . #x2663)	; &JSP-2663; [06-67]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER IOTA WITH TONOS")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03B9 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek small letter iota with tonos")
-      (=jis-x0212	  . #x2674)	; &JSP-2674; [06-84]
-      (=ucs@jis		  . #x03AF)	; &JSP-2674;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER IOTA")
+      (=ucs		  . #x03B9)	; ι
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x03AF)	; ί
+    (greek-iso8859-7	. #xDF)	; &I-GREEK-5F;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER IOTA WITH TONOS")
       (=ucs		  . #x038A)	; Ί
       ))
-    (=ucs		. #x03AF)	; ί
-    (greek-iso8859-7	. #xDF)	; &I-GREEK-5F;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER IOTA WITH TONOS")
+      (=ucs		  . #x03AF)	; ί
       ))
+    (=ucs@jis/fw	. #x03AF)	; &JSP-2674;
+    (=jis-x0212		. #x2674)	; &JSP-2674; [06-84]
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER IOTA WITH TONOS")
       (=ucs		  . #x03AF)	; ί
       ))
-    (=jis-x0212		. #x2674)	; &JSP-2674; [06-84]
-    (=ucs@jis		. #x03AF)	; &JSP-2674;
+    (->uppercase
+     ((=ucs@jis/fw	  . #x038A)	; &JSP-2664;
+      (=jis-x0212	  . #x2664)	; &JSP-2664; [06-68]
+      ))
     ))
 (define-char
   '((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03CB #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek small letter upsilon with dialytika and tonos")
-      (=jis-x0212	  . #x267B)	; &JSP-267B; [06-91]
-      (=ucs@jis		  . #x03B0)	; &JSP-267B;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
+      (=ucs		  . #x03CB)	; ϋ
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
     (=ucs		. #x03B0)	; ΰ
     (greek-iso8859-7	. #xE0)	; &I-GREEK-60;
     ))
 (define-char
-  '((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)
-    (<-fullwidth
+  '((<-denotational
      ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
       (=ucs		  . #x03B0)	; ΰ
       ))
+    (=ucs@jis/fw	. #x03B0)	; &JSP-267B;
     (=jis-x0212		. #x267B)	; &JSP-267B; [06-91]
-    (=ucs@jis		. #x03B0)	; &JSP-267B;
+    (<-fullwidth
+     ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
+      (=ucs		  . #x03B0)	; ΰ
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER ALPHA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter alpha")
-      (=jis-x0208	  . #x2641)	; &J90-2641; [06-33]
-      (=gb2312		  . #x2641)	; &I-G0-2641; [06-33]
-      (=ks-x1001	  . #x2561)	; &I-K0-2561; [05-65]
-      (=cns11643-1	  . #x252F)	; &I-C1-252F; [05-15]
-      ))
+    (=ucs		. #x03B1)	; α
+    (greek-iso8859-7	. #xE1)	; &I-GREEK-61;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER ALPHA")
       (=ucs		  . #x0391)	; Α
       ))
-    (=ucs		. #x03B1)	; α
-    (greek-iso8859-7	. #xE1)	; &I-GREEK-61;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER ALPHA")
       (=ucs		  . #x03B1)	; α
       ))
+    (=ucs@gb/fw		. #x03B1)	; &J90-2641;
+    (=ucs@jis/fw	. #x03B1)	; &J90-2641;
     (=jis-x0208		. #x2641)	; &J90-2641; [06-33]
     (=gb2312		. #x2641)	; &I-G0-2641; [06-33]
     (=ks-x1001		. #x2561)	; &I-K0-2561; [05-65]
     (=cns11643-1	. #x252F)	; &I-C1-252F; [05-15]
+    (=jis-x0213-1	. #x2641)	; &I-JX1-2641; [06-33]
     (=big5		. #xA35C)	; &I-B-A35C;
-    (=ucs@jis		. #x03B1)	; &J90-2641;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER ALPHA")
+      (=ucs		  . #x03B1)	; α
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x0391)	; &J90-2621;
+      (=ucs@jis/fw	  . #x0391)	; &J90-2621;
+      (=jis-x0208	  . #x2621)	; &J90-2621; [06-01]
+      (=gb2312		  . #x2621)	; &I-G0-2621; [06-01]
+      (=ks-x1001	  . #x2541)	; &I-K0-2541; [05-33]
+      (=cns11643-1	  . #x2475)	; &I-C1-2475; [04-85]
+      (=jis-x0213-1	  . #x2621)	; &I-JX1-2621; [06-01]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER BETA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter beta")
-      (=jis-x0208	  . #x2642)	; &J90-2642; [06-34]
-      (=gb2312		  . #x2642)	; &I-G0-2642; [06-34]
-      (=ks-x1001	  . #x2562)	; &I-K0-2562; [05-66]
-      (=cns11643-1	  . #x2530)	; &I-C1-2530; [05-16]
-      ))
+    (=ucs		. #x03B2)	; β
+    (greek-iso8859-7	. #xE2)	; &I-GREEK-62;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER BETA")
       (=ucs		  . #x0392)	; Β
       ))
-    (=ucs		. #x03B2)	; β
-    (greek-iso8859-7	. #xE2)	; &I-GREEK-62;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER BETA")
       (=ucs		  . #x03B2)	; β
       ))
+    (=ucs@gb/fw		. #x03B2)	; &J90-2642;
+    (=ucs@jis/fw	. #x03B2)	; &J90-2642;
     (=jis-x0208		. #x2642)	; &J90-2642; [06-34]
     (=gb2312		. #x2642)	; &I-G0-2642; [06-34]
     (=ks-x1001		. #x2562)	; &I-K0-2562; [05-66]
     (=cns11643-1	. #x2530)	; &I-C1-2530; [05-16]
+    (=jis-x0213-1	. #x2642)	; &I-JX1-2642; [06-34]
     (=big5		. #xA35D)	; &I-B-A35D;
-    (=ucs@jis		. #x03B2)	; &J90-2642;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER BETA")
+      (=ucs		  . #x03B2)	; β
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x0392)	; &J90-2622;
+      (=ucs@jis/fw	  . #x0392)	; &J90-2622;
+      (=jis-x0208	  . #x2622)	; &J90-2622; [06-02]
+      (=gb2312		  . #x2622)	; &I-G0-2622; [06-02]
+      (=ks-x1001	  . #x2542)	; &I-K0-2542; [05-34]
+      (=cns11643-1	  . #x2476)	; &I-C1-2476; [04-86]
+      (=jis-x0213-1	  . #x2622)	; &I-JX1-2622; [06-02]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER GAMMA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter gamma")
-      (=jis-x0208	  . #x2643)	; &J90-2643; [06-35]
-      (=gb2312		  . #x2643)	; &I-G0-2643; [06-35]
-      (=ks-x1001	  . #x2563)	; &I-K0-2563; [05-67]
-      (=cns11643-1	  . #x2531)	; &I-C1-2531; [05-17]
-      ))
+    (=ucs		. #x03B3)	; γ
+    (greek-iso8859-7	. #xE3)	; &I-GREEK-63;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER GAMMA")
       (=ucs		  . #x0393)	; Γ
       ))
-    (=ucs		. #x03B3)	; γ
-    (greek-iso8859-7	. #xE3)	; &I-GREEK-63;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER GAMMA")
       (=ucs		  . #x03B3)	; γ
       ))
+    (=ucs@gb/fw		. #x03B3)	; &J90-2643;
+    (=ucs@jis/fw	. #x03B3)	; &J90-2643;
     (=jis-x0208		. #x2643)	; &J90-2643; [06-35]
     (=gb2312		. #x2643)	; &I-G0-2643; [06-35]
     (=ks-x1001		. #x2563)	; &I-K0-2563; [05-67]
     (=cns11643-1	. #x2531)	; &I-C1-2531; [05-17]
+    (=jis-x0213-1	. #x2643)	; &I-JX1-2643; [06-35]
     (=big5		. #xA35E)	; &I-B-A35E;
-    (=ucs@jis		. #x03B3)	; &J90-2643;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER GAMMA")
+      (=ucs		  . #x03B3)	; γ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x0393)	; &J90-2623;
+      (=ucs@jis/fw	  . #x0393)	; &J90-2623;
+      (=jis-x0208	  . #x2623)	; &J90-2623; [06-03]
+      (=gb2312		  . #x2623)	; &I-G0-2623; [06-03]
+      (=ks-x1001	  . #x2543)	; &I-K0-2543; [05-35]
+      (=cns11643-1	  . #x2477)	; &I-C1-2477; [04-87]
+      (=jis-x0213-1	  . #x2623)	; &I-JX1-2623; [06-03]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER DELTA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter delta")
-      (=jis-x0208	  . #x2644)	; &J90-2644; [06-36]
-      (=gb2312		  . #x2644)	; &I-G0-2644; [06-36]
-      (=ks-x1001	  . #x2564)	; &I-K0-2564; [05-68]
-      (=cns11643-1	  . #x2532)	; &I-C1-2532; [05-18]
-      ))
+    (=ucs		. #x03B4)	; δ
+    (greek-iso8859-7	. #xE4)	; &I-GREEK-64;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER DELTA")
       (=ucs		  . #x0394)	; Δ
       ))
-    (=ucs		. #x03B4)	; δ
-    (greek-iso8859-7	. #xE4)	; &I-GREEK-64;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER DELTA")
       (=ucs		  . #x03B4)	; δ
       ))
+    (=ucs@gb/fw		. #x03B4)	; &J90-2644;
+    (=ucs@jis/fw	. #x03B4)	; &J90-2644;
     (=jis-x0208		. #x2644)	; &J90-2644; [06-36]
     (=gb2312		. #x2644)	; &I-G0-2644; [06-36]
     (=ks-x1001		. #x2564)	; &I-K0-2564; [05-68]
     (=cns11643-1	. #x2532)	; &I-C1-2532; [05-18]
+    (=jis-x0213-1	. #x2644)	; &I-JX1-2644; [06-36]
     (=big5		. #xA35F)	; &I-B-A35F;
-    (=ucs@jis		. #x03B4)	; &J90-2644;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER DELTA")
+      (=ucs		  . #x03B4)	; δ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x0394)	; &J90-2624;
+      (=ucs@jis/fw	  . #x0394)	; &J90-2624;
+      (=jis-x0208	  . #x2624)	; &J90-2624; [06-04]
+      (=gb2312		  . #x2624)	; &I-G0-2624; [06-04]
+      (=ks-x1001	  . #x2544)	; &I-K0-2544; [05-36]
+      (=cns11643-1	  . #x2478)	; &I-C1-2478; [04-88]
+      (=jis-x0213-1	  . #x2624)	; &I-JX1-2624; [06-04]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER EPSILON")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter epsilon")
-      (=jis-x0208	  . #x2645)	; &J90-2645; [06-37]
-      (=gb2312		  . #x2645)	; &I-G0-2645; [06-37]
-      (=ks-x1001	  . #x2565)	; &I-K0-2565; [05-69]
-      (=cns11643-1	  . #x2533)	; &I-C1-2533; [05-19]
-      ))
+    (=ucs		. #x03B5)	; ε
+    (greek-iso8859-7	. #xE5)	; &I-GREEK-65;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER EPSILON")
       (=ucs		  . #x0395)	; Ε
       ))
-    (=ucs		. #x03B5)	; ε
-    (greek-iso8859-7	. #xE5)	; &I-GREEK-65;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER EPSILON")
       (=ucs		  . #x03B5)	; ε
       ))
+    (=ucs@gb/fw		. #x03B5)	; &J90-2645;
+    (=ucs@jis/fw	. #x03B5)	; &J90-2645;
     (=jis-x0208		. #x2645)	; &J90-2645; [06-37]
     (=gb2312		. #x2645)	; &I-G0-2645; [06-37]
     (=ks-x1001		. #x2565)	; &I-K0-2565; [05-69]
     (=cns11643-1	. #x2533)	; &I-C1-2533; [05-19]
+    (=jis-x0213-1	. #x2645)	; &I-JX1-2645; [06-37]
     (=big5		. #xA360)	; &I-B-A360;
-    (=ucs@jis		. #x03B5)	; &J90-2645;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER EPSILON")
+      (=ucs		  . #x03B5)	; ε
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x0395)	; &J90-2625;
+      (=ucs@jis/fw	  . #x0395)	; &J90-2625;
+      (=jis-x0208	  . #x2625)	; &J90-2625; [06-05]
+      (=gb2312		  . #x2625)	; &I-G0-2625; [06-05]
+      (=ks-x1001	  . #x2545)	; &I-K0-2545; [05-37]
+      (=cns11643-1	  . #x2479)	; &I-C1-2479; [04-89]
+      (=jis-x0213-1	  . #x2625)	; &I-JX1-2625; [06-05]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER ZETA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter zeta")
-      (=jis-x0208	  . #x2646)	; &J90-2646; [06-38]
-      (=gb2312		  . #x2646)	; &I-G0-2646; [06-38]
-      (=ks-x1001	  . #x2566)	; &I-K0-2566; [05-70]
-      (=cns11643-1	  . #x2534)	; &I-C1-2534; [05-20]
-      ))
+    (=ucs		. #x03B6)	; ζ
+    (greek-iso8859-7	. #xE6)	; &I-GREEK-66;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER ZETA")
       (=ucs		  . #x0396)	; Ζ
       ))
-    (=ucs		. #x03B6)	; ζ
-    (greek-iso8859-7	. #xE6)	; &I-GREEK-66;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER ZETA")
       (=ucs		  . #x03B6)	; ζ
       ))
+    (=ucs@gb/fw		. #x03B6)	; &J90-2646;
+    (=ucs@jis/fw	. #x03B6)	; &J90-2646;
     (=jis-x0208		. #x2646)	; &J90-2646; [06-38]
     (=gb2312		. #x2646)	; &I-G0-2646; [06-38]
     (=ks-x1001		. #x2566)	; &I-K0-2566; [05-70]
     (=cns11643-1	. #x2534)	; &I-C1-2534; [05-20]
+    (=jis-x0213-1	. #x2646)	; &I-JX1-2646; [06-38]
     (=big5		. #xA361)	; &I-B-A361;
-    (=ucs@jis		. #x03B6)	; &J90-2646;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER ZETA")
+      (=ucs		  . #x03B6)	; ζ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x0396)	; &J90-2626;
+      (=ucs@jis/fw	  . #x0396)	; &J90-2626;
+      (=jis-x0208	  . #x2626)	; &J90-2626; [06-06]
+      (=gb2312		  . #x2626)	; &I-G0-2626; [06-06]
+      (=ks-x1001	  . #x2546)	; &I-K0-2546; [05-38]
+      (=cns11643-1	  . #x247A)	; &I-C1-247A; [04-90]
+      (=jis-x0213-1	  . #x2626)	; &I-JX1-2626; [06-06]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER ETA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter eta")
-      (=jis-x0208	  . #x2647)	; &J90-2647; [06-39]
-      (=gb2312		  . #x2647)	; &I-G0-2647; [06-39]
-      (=ks-x1001	  . #x2567)	; &I-K0-2567; [05-71]
-      (=cns11643-1	  . #x2535)	; &I-C1-2535; [05-21]
-      ))
+    (=ucs		. #x03B7)	; η
+    (greek-iso8859-7	. #xE7)	; &I-GREEK-67;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER ETA")
       (=ucs		  . #x0397)	; Η
       ))
-    (=ucs		. #x03B7)	; η
-    (greek-iso8859-7	. #xE7)	; &I-GREEK-67;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER ETA")
       (=ucs		  . #x03B7)	; η
       ))
+    (=ucs@gb/fw		. #x03B7)	; &J90-2647;
+    (=ucs@jis/fw	. #x03B7)	; &J90-2647;
     (=jis-x0208		. #x2647)	; &J90-2647; [06-39]
     (=gb2312		. #x2647)	; &I-G0-2647; [06-39]
     (=ks-x1001		. #x2567)	; &I-K0-2567; [05-71]
     (=cns11643-1	. #x2535)	; &I-C1-2535; [05-21]
+    (=jis-x0213-1	. #x2647)	; &I-JX1-2647; [06-39]
     (=big5		. #xA362)	; &I-B-A362;
-    (=ucs@jis		. #x03B7)	; &J90-2647;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER ETA")
+      (=ucs		  . #x03B7)	; η
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x0397)	; &J90-2627;
+      (=ucs@jis/fw	  . #x0397)	; &J90-2627;
+      (=jis-x0208	  . #x2627)	; &J90-2627; [06-07]
+      (=gb2312		  . #x2627)	; &I-G0-2627; [06-07]
+      (=ks-x1001	  . #x2547)	; &I-K0-2547; [05-39]
+      (=cns11643-1	  . #x247B)	; &I-C1-247B; [04-91]
+      (=jis-x0213-1	  . #x2627)	; &I-JX1-2627; [06-07]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER THETA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter theta")
-      (=jis-x0208	  . #x2648)	; &J90-2648; [06-40]
-      (=gb2312		  . #x2648)	; &I-G0-2648; [06-40]
-      (=ks-x1001	  . #x2568)	; &I-K0-2568; [05-72]
-      (=cns11643-1	  . #x2536)	; &I-C1-2536; [05-22]
-      ))
+    (=ucs		. #x03B8)	; θ
+    (greek-iso8859-7	. #xE8)	; &I-GREEK-68;
+    (ipa		. #xC8)	; &I-MULE-IPA-48;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER THETA")
       (=ucs		  . #x0398)	; Θ
       ))
-    (=ucs		. #x03B8)	; θ
-    (greek-iso8859-7	. #xE8)	; &I-GREEK-68;
-    (ipa		. #xC8)	; &I-MULE-IPA-48;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER THETA")
       (=ucs		  . #x03B8)	; θ
       ))
+    (=ucs@gb/fw		. #x03B8)	; &J90-2648;
+    (=ucs@jis/fw	. #x03B8)	; &J90-2648;
     (=jis-x0208		. #x2648)	; &J90-2648; [06-40]
     (=gb2312		. #x2648)	; &I-G0-2648; [06-40]
     (=ks-x1001		. #x2568)	; &I-K0-2568; [05-72]
     (=cns11643-1	. #x2536)	; &I-C1-2536; [05-22]
+    (=jis-x0213-1	. #x2648)	; &I-JX1-2648; [06-40]
     (=big5		. #xA363)	; &I-B-A363;
-    (=ucs@jis		. #x03B8)	; &J90-2648;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER THETA")
+      (=ucs		  . #x03B8)	; θ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x0398)	; &J90-2628;
+      (=ucs@jis/fw	  . #x0398)	; &J90-2628;
+      (=jis-x0208	  . #x2628)	; &J90-2628; [06-08]
+      (=gb2312		  . #x2628)	; &I-G0-2628; [06-08]
+      (=ks-x1001	  . #x2548)	; &I-K0-2548; [05-40]
+      (=cns11643-1	  . #x247C)	; &I-C1-247C; [04-92]
+      (=jis-x0213-1	  . #x2628)	; &I-JX1-2628; [06-08]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER IOTA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter iota")
-      (=jis-x0208	  . #x2649)	; &J90-2649; [06-41]
-      (=gb2312		  . #x2649)	; &I-G0-2649; [06-41]
-      (=ks-x1001	  . #x2569)	; &I-K0-2569; [05-73]
-      (=cns11643-1	  . #x2537)	; &I-C1-2537; [05-23]
-      ))
+    (=ucs		. #x03B9)	; ι
+    (greek-iso8859-7	. #xE9)	; &I-GREEK-69;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER IOTA")
       (=ucs		  . #x0399)	; Ι
       ))
-    (=ucs		. #x03B9)	; ι
-    (greek-iso8859-7	. #xE9)	; &I-GREEK-69;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER IOTA")
       (=ucs		  . #x03B9)	; ι
       ))
+    (=ucs@gb/fw		. #x03B9)	; &J90-2649;
+    (=ucs@jis/fw	. #x03B9)	; &J90-2649;
     (=jis-x0208		. #x2649)	; &J90-2649; [06-41]
     (=gb2312		. #x2649)	; &I-G0-2649; [06-41]
     (=ks-x1001		. #x2569)	; &I-K0-2569; [05-73]
     (=cns11643-1	. #x2537)	; &I-C1-2537; [05-23]
+    (=jis-x0213-1	. #x2649)	; &I-JX1-2649; [06-41]
     (=big5		. #xA364)	; &I-B-A364;
-    (=ucs@jis		. #x03B9)	; &J90-2649;
-    ))
-(define-char
-  '((name		. "GREEK SMALL LETTER KAPPA")
-    (general-category	letter lowercase) ; Normative Category
-    (bidi-category	. "L")
-    (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter kappa")
-      (=jis-x0208	  . #x264A)	; &J90-264A; [06-42]
-      (=gb2312		  . #x264A)	; &I-G0-264A; [06-42]
-      (=ks-x1001	  . #x256A)	; &I-K0-256A; [05-74]
-      (=cns11643-1	  . #x2538)	; &I-C1-2538; [05-24]
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER IOTA")
+      (=ucs		  . #x03B9)	; ι
       ))
     (->uppercase
-     ((name		  . "GREEK CAPITAL LETTER KAPPA")
-      (=ucs		  . #x039A)	; Κ
+     ((=ucs@gb/fw	  . #x0399)	; &J90-2629;
+      (=ucs@jis/fw	  . #x0399)	; &J90-2629;
+      (=jis-x0208	  . #x2629)	; &J90-2629; [06-09]
+      (=gb2312		  . #x2629)	; &I-G0-2629; [06-09]
+      (=ks-x1001	  . #x2549)	; &I-K0-2549; [05-41]
+      (=cns11643-1	  . #x247D)	; &I-C1-247D; [04-93]
+      (=jis-x0213-1	  . #x2629)	; &I-JX1-2629; [06-09]
       ))
-    (=ucs		. #x03BA)	; κ
-    (greek-iso8859-7	. #xEA)	; &I-GREEK-6A;
     ))
 (define-char
-  '((name		. "fullwidth greek small letter kappa")
-    (=>ucs		. #x03BA)	; κ
+  '((name		. "GREEK SMALL LETTER KAPPA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	wide #x03BA)
+    (=ucs		. #x03BA)	; κ
+    (greek-iso8859-7	. #xEA)	; &I-GREEK-6A;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER KAPPA")
       (=ucs		  . #x039A)	; Κ
       ))
-    (<-fullwidth
+    ))
+(define-char
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER KAPPA")
       (=ucs		  . #x03BA)	; κ
       ))
+    (=ucs@gb/fw		. #x03BA)	; &J90-264A;
+    (=ucs@jis/fw	. #x03BA)	; &J90-264A;
     (=jis-x0208		. #x264A)	; &J90-264A; [06-42]
     (=gb2312		. #x264A)	; &I-G0-264A; [06-42]
     (=ks-x1001		. #x256A)	; &I-K0-256A; [05-74]
     (=cns11643-1	. #x2538)	; &I-C1-2538; [05-24]
+    (=jis-x0213-1	. #x264A)	; &I-JX1-264A; [06-42]
     (=big5		. #xA365)	; &I-B-A365;
-    (=ucs@jis		. #x03BA)	; &J90-264A;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER KAPPA")
+      (=ucs		  . #x03BA)	; κ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x039A)	; &J90-262A;
+      (=ucs@jis/fw	  . #x039A)	; &J90-262A;
+      (=jis-x0208	  . #x262A)	; &J90-262A; [06-10]
+      (=gb2312		  . #x262A)	; &I-G0-262A; [06-10]
+      (=ks-x1001	  . #x254A)	; &I-K0-254A; [05-42]
+      (=cns11643-1	  . #x247E)	; &I-C1-247E; [04-94]
+      (=jis-x0213-1	  . #x262A)	; &I-JX1-262A; [06-10]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER LAMDA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter lamda")
-      (=jis-x0208	  . #x264B)	; &J90-264B; [06-43]
-      (=gb2312		  . #x264B)	; &I-G0-264B; [06-43]
-      (=ks-x1001	  . #x256B)	; &I-K0-256B; [05-75]
-      (=cns11643-1	  . #x2539)	; &I-C1-2539; [05-25]
-      ))
+    (=ucs		. #x03BB)	; λ
+    (greek-iso8859-7	. #xEB)	; &I-GREEK-6B;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER LAMDA")
       (=ucs		  . #x039B)	; Λ
       ))
-    (=ucs		. #x03BB)	; λ
-    (greek-iso8859-7	. #xEB)	; &I-GREEK-6B;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER LAMDA")
       (=ucs		  . #x03BB)	; λ
       ))
+    (=ucs@gb/fw		. #x03BB)	; &J90-264B;
+    (=ucs@jis/fw	. #x03BB)	; &J90-264B;
     (=jis-x0208		. #x264B)	; &J90-264B; [06-43]
     (=gb2312		. #x264B)	; &I-G0-264B; [06-43]
     (=ks-x1001		. #x256B)	; &I-K0-256B; [05-75]
     (=cns11643-1	. #x2539)	; &I-C1-2539; [05-25]
+    (=jis-x0213-1	. #x264B)	; &I-JX1-264B; [06-43]
     (=big5		. #xA366)	; &I-B-A366;
-    (=ucs@jis		. #x03BB)	; &J90-264B;
-    ))
-(define-char
-  '((name		. "GREEK SMALL LETTER MU")
-    (general-category	letter lowercase) ; Normative Category
-    (bidi-category	. "L")
-    (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter mu")
-      (=jis-x0208	  . #x264C)	; &J90-264C; [06-44]
-      (=gb2312		  . #x264C)	; &I-G0-264C; [06-44]
-      (=ks-x1001	  . #x256C)	; &I-K0-256C; [05-76]
-      (=cns11643-1	  . #x253A)	; &I-C1-253A; [05-26]
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER LAMDA")
+      (=ucs		  . #x03BB)	; λ
       ))
     (->uppercase
-     ((name		  . "GREEK CAPITAL LETTER MU")
-      (=ucs		  . #x039C)	; Μ
+     ((=ucs@gb/fw	  . #x039B)	; &J90-262B;
+      (=ucs@jis/fw	  . #x039B)	; &J90-262B;
+      (=jis-x0208	  . #x262B)	; &J90-262B; [06-11]
+      (=gb2312		  . #x262B)	; &I-G0-262B; [06-11]
+      (=ks-x1001	  . #x254B)	; &I-K0-254B; [05-43]
+      (=cns11643-1	  . #x2521)	; &I-C1-2521; [05-01]
+      (=jis-x0213-1	  . #x262B)	; &I-JX1-262B; [06-11]
       ))
-    (=ucs		. #x03BC)	; μ
-    (greek-iso8859-7	. #xEC)	; &I-GREEK-6C;
     ))
 (define-char
-  '((name		. "fullwidth greek small letter mu")
-    (=>ucs		. #x03BC)	; μ
+  '((name		. "GREEK SMALL LETTER MU")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	wide #x03BC)
+    (=ucs		. #x03BC)	; μ
+    (greek-iso8859-7	. #xEC)	; &I-GREEK-6C;
     (->uppercase
-     ((name		  . "fullwidth greek capital letter mu")
+     ((name		  . "GREEK CAPITAL LETTER MU")
+      (=ucs		  . #x039C)	; Μ
       ))
-    (<-fullwidth
+    ))
+(define-char
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER MU")
       (=ucs		  . #x03BC)	; μ
       ))
+    (=ucs@gb/fw		. #x03BC)	; &J90-264C;
+    (=ucs@jis/fw	. #x03BC)	; &J90-264C;
     (=jis-x0208		. #x264C)	; &J90-264C; [06-44]
     (=gb2312		. #x264C)	; &I-G0-264C; [06-44]
     (=ks-x1001		. #x256C)	; &I-K0-256C; [05-76]
     (=cns11643-1	. #x253A)	; &I-C1-253A; [05-26]
+    (=jis-x0213-1	. #x264C)	; &I-JX1-264C; [06-44]
     (=big5		. #xA367)	; &I-B-A367;
-    (=ucs@jis		. #x03BC)	; &J90-264C;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER MU")
+      (=ucs		  . #x03BC)	; μ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x039C)	; &J90-262C;
+      (=ucs@jis/fw	  . #x039C)	; &J90-262C;
+      (=jis-x0208	  . #x262C)	; &J90-262C; [06-12]
+      (=gb2312		  . #x262C)	; &I-G0-262C; [06-12]
+      (=ks-x1001	  . #x254C)	; &I-K0-254C; [05-44]
+      (=cns11643-1	  . #x2522)	; &I-C1-2522; [05-02]
+      (=jis-x0213-1	  . #x262C)	; &I-JX1-262C; [06-12]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER NU")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter nu")
-      (=jis-x0208	  . #x264D)	; &J90-264D; [06-45]
-      (=gb2312		  . #x264D)	; &I-G0-264D; [06-45]
-      (=ks-x1001	  . #x256D)	; &I-K0-256D; [05-77]
-      (=cns11643-1	  . #x253B)	; &I-C1-253B; [05-27]
-      ))
+    (=ucs		. #x03BD)	; ν
+    (greek-iso8859-7	. #xED)	; &I-GREEK-6D;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER NU")
       (=ucs		  . #x039D)	; Ν
       ))
-    (=ucs		. #x03BD)	; ν
-    (greek-iso8859-7	. #xED)	; &I-GREEK-6D;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER NU")
       (=ucs		  . #x03BD)	; ν
       ))
+    (=ucs@gb/fw		. #x03BD)	; &J90-264D;
+    (=ucs@jis/fw	. #x03BD)	; &J90-264D;
     (=jis-x0208		. #x264D)	; &J90-264D; [06-45]
     (=gb2312		. #x264D)	; &I-G0-264D; [06-45]
     (=ks-x1001		. #x256D)	; &I-K0-256D; [05-77]
     (=cns11643-1	. #x253B)	; &I-C1-253B; [05-27]
+    (=jis-x0213-1	. #x264D)	; &I-JX1-264D; [06-45]
     (=big5		. #xA368)	; &I-B-A368;
-    (=ucs@jis		. #x03BD)	; &J90-264D;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER NU")
+      (=ucs		  . #x03BD)	; ν
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x039D)	; &J90-262D;
+      (=ucs@jis/fw	  . #x039D)	; &J90-262D;
+      (=jis-x0208	  . #x262D)	; &J90-262D; [06-13]
+      (=gb2312		  . #x262D)	; &I-G0-262D; [06-13]
+      (=ks-x1001	  . #x254D)	; &I-K0-254D; [05-45]
+      (=cns11643-1	  . #x2523)	; &I-C1-2523; [05-03]
+      (=jis-x0213-1	  . #x262D)	; &I-JX1-262D; [06-13]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER XI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter xi")
-      (=jis-x0208	  . #x264E)	; &J90-264E; [06-46]
-      (=gb2312		  . #x264E)	; &I-G0-264E; [06-46]
-      (=ks-x1001	  . #x256E)	; &I-K0-256E; [05-78]
-      (=cns11643-1	  . #x253C)	; &I-C1-253C; [05-28]
-      ))
+    (=ucs		. #x03BE)	; ξ
+    (greek-iso8859-7	. #xEE)	; &I-GREEK-6E;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER XI")
       (=ucs		  . #x039E)	; Ξ
       ))
-    (=ucs		. #x03BE)	; ξ
-    (greek-iso8859-7	. #xEE)	; &I-GREEK-6E;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER XI")
       (=ucs		  . #x03BE)	; ξ
       ))
+    (=ucs@gb/fw		. #x03BE)	; &J90-264E;
+    (=ucs@jis/fw	. #x03BE)	; &J90-264E;
     (=jis-x0208		. #x264E)	; &J90-264E; [06-46]
     (=gb2312		. #x264E)	; &I-G0-264E; [06-46]
     (=ks-x1001		. #x256E)	; &I-K0-256E; [05-78]
     (=cns11643-1	. #x253C)	; &I-C1-253C; [05-28]
+    (=jis-x0213-1	. #x264E)	; &I-JX1-264E; [06-46]
     (=big5		. #xA369)	; &I-B-A369;
-    (=ucs@jis		. #x03BE)	; &J90-264E;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER XI")
+      (=ucs		  . #x03BE)	; ξ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x039E)	; &J90-262E;
+      (=ucs@jis/fw	  . #x039E)	; &J90-262E;
+      (=jis-x0208	  . #x262E)	; &J90-262E; [06-14]
+      (=gb2312		  . #x262E)	; &I-G0-262E; [06-14]
+      (=ks-x1001	  . #x254E)	; &I-K0-254E; [05-46]
+      (=cns11643-1	  . #x2524)	; &I-C1-2524; [05-04]
+      (=jis-x0213-1	  . #x262E)	; &I-JX1-262E; [06-14]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER OMICRON")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter omicron")
-      (=jis-x0208	  . #x264F)	; &J90-264F; [06-47]
-      (=gb2312		  . #x264F)	; &I-G0-264F; [06-47]
-      (=ks-x1001	  . #x256F)	; &I-K0-256F; [05-79]
-      (=cns11643-1	  . #x253D)	; &I-C1-253D; [05-29]
-      ))
+    (=ucs		. #x03BF)	; ο
+    (greek-iso8859-7	. #xEF)	; &I-GREEK-6F;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER OMICRON")
       (=ucs		  . #x039F)	; Ο
       ))
-    (=ucs		. #x03BF)	; ο
-    (greek-iso8859-7	. #xEF)	; &I-GREEK-6F;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER OMICRON")
       (=ucs		  . #x03BF)	; ο
       ))
+    (=ucs@gb/fw		. #x03BF)	; &J90-264F;
+    (=ucs@jis/fw	. #x03BF)	; &J90-264F;
     (=jis-x0208		. #x264F)	; &J90-264F; [06-47]
     (=gb2312		. #x264F)	; &I-G0-264F; [06-47]
     (=ks-x1001		. #x256F)	; &I-K0-256F; [05-79]
     (=cns11643-1	. #x253D)	; &I-C1-253D; [05-29]
+    (=jis-x0213-1	. #x264F)	; &I-JX1-264F; [06-47]
     (=big5		. #xA36A)	; &I-B-A36A;
-    (=ucs@jis		. #x03BF)	; &J90-264F;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER OMICRON")
+      (=ucs		  . #x03BF)	; ο
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x039F)	; &J90-262F;
+      (=ucs@jis/fw	  . #x039F)	; &J90-262F;
+      (=jis-x0208	  . #x262F)	; &J90-262F; [06-15]
+      (=gb2312		  . #x262F)	; &I-G0-262F; [06-15]
+      (=ks-x1001	  . #x254F)	; &I-K0-254F; [05-47]
+      (=cns11643-1	  . #x2525)	; &I-C1-2525; [05-05]
+      (=jis-x0213-1	  . #x262F)	; &I-JX1-262F; [06-15]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER PI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter pi")
-      (=jis-x0208	  . #x2650)	; &J90-2650; [06-48]
-      (=gb2312		  . #x2650)	; &I-G0-2650; [06-48]
-      (=ks-x1001	  . #x2570)	; &I-K0-2570; [05-80]
-      (=cns11643-1	  . #x253E)	; &I-C1-253E; [05-30]
-      ))
+    (=ucs		. #x03C0)	; π
+    (greek-iso8859-7	. #xF0)	; &I-GREEK-70;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER PI")
       (=ucs		  . #x03A0)	; Π
       ))
-    (=ucs		. #x03C0)	; π
-    (greek-iso8859-7	. #xF0)	; &I-GREEK-70;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER PI")
       (=ucs		  . #x03C0)	; π
       ))
+    (=ucs@gb/fw		. #x03C0)	; &J90-2650;
+    (=ucs@jis/fw	. #x03C0)	; &J90-2650;
     (=jis-x0208		. #x2650)	; &J90-2650; [06-48]
     (=gb2312		. #x2650)	; &I-G0-2650; [06-48]
     (=ks-x1001		. #x2570)	; &I-K0-2570; [05-80]
     (=cns11643-1	. #x253E)	; &I-C1-253E; [05-30]
+    (=jis-x0213-1	. #x2650)	; &I-JX1-2650; [06-48]
     (=big5		. #xA36B)	; &I-B-A36B;
-    (=ucs@jis		. #x03C0)	; &J90-2650;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER PI")
+      (=ucs		  . #x03C0)	; π
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x03A0)	; &J90-2630;
+      (=ucs@jis/fw	  . #x03A0)	; &J90-2630;
+      (=jis-x0208	  . #x2630)	; &J90-2630; [06-16]
+      (=gb2312		  . #x2630)	; &I-G0-2630; [06-16]
+      (=ks-x1001	  . #x2550)	; &I-K0-2550; [05-48]
+      (=cns11643-1	  . #x2526)	; &I-C1-2526; [05-06]
+      (=jis-x0213-1	  . #x2630)	; &I-JX1-2630; [06-16]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER RHO")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter rho")
-      (=jis-x0208	  . #x2651)	; &J90-2651; [06-49]
-      (=gb2312		  . #x2651)	; &I-G0-2651; [06-49]
-      (=ks-x1001	  . #x2571)	; &I-K0-2571; [05-81]
-      (=cns11643-1	  . #x253F)	; &I-C1-253F; [05-31]
-      ))
+    (=ucs		. #x03C1)	; ρ
+    (greek-iso8859-7	. #xF1)	; &I-GREEK-71;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER RHO")
       (=ucs		  . #x03A1)	; Ρ
       ))
-    (=ucs		. #x03C1)	; ρ
-    (greek-iso8859-7	. #xF1)	; &I-GREEK-71;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER RHO")
       (=ucs		  . #x03C1)	; ρ
       ))
+    (=ucs@gb/fw		. #x03C1)	; &J90-2651;
+    (=ucs@jis/fw	. #x03C1)	; &J90-2651;
     (=jis-x0208		. #x2651)	; &J90-2651; [06-49]
     (=gb2312		. #x2651)	; &I-G0-2651; [06-49]
     (=ks-x1001		. #x2571)	; &I-K0-2571; [05-81]
     (=cns11643-1	. #x253F)	; &I-C1-253F; [05-31]
+    (=jis-x0213-1	. #x2651)	; &I-JX1-2651; [06-49]
     (=big5		. #xA36C)	; &I-B-A36C;
-    (=ucs@jis		. #x03C1)	; &J90-2651;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER RHO")
+      (=ucs		  . #x03C1)	; ρ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x03A1)	; &J90-2631;
+      (=ucs@jis/fw	  . #x03A1)	; &J90-2631;
+      (=jis-x0208	  . #x2631)	; &J90-2631; [06-17]
+      (=gb2312		  . #x2631)	; &I-G0-2631; [06-17]
+      (=ks-x1001	  . #x2551)	; &I-K0-2551; [05-49]
+      (=cns11643-1	  . #x2527)	; &I-C1-2527; [05-07]
+      (=jis-x0213-1	  . #x2631)	; &I-JX1-2631; [06-17]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER FINAL SIGMA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter final sigma")
-      (=jis-x0212	  . #x2678)	; &JX1-2659; [06-88]
-      (=jis-x0213-1-2000  . #x2659)	; &I-JX1-2659; [06-57]
-      ))
+    (=ucs		. #x03C2)	; ς
+    (greek-iso8859-7	. #xF2)	; &I-GREEK-72;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER SIGMA")
       (=ucs		  . #x03A3)	; Σ
       ))
-    (=ucs		. #x03C2)	; ς
-    (greek-iso8859-7	. #xF2)	; &I-GREEK-72;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER FINAL SIGMA")
+      (=ucs		  . #x03C2)	; ς
       ))
+    (=ucs@jis/fw	. #x03C2)	; &JX1-2659;
+    (=jis-x0212		. #x2678)	; &JX1-2659; [06-88]
+    (=jis-x0213-1	. #x2659)	; &I-JX1-2659; [06-57]
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER FINAL SIGMA")
       (=ucs		  . #x03C2)	; ς
       ))
-    (=jis-x0212		. #x2678)	; &JX1-2659; [06-88]
-    (=jis-x0213-1-2000	. #x2659)	; &I-JX1-2659; [06-57]
-    (=ucs@jis		. #x03C2)	; &JX1-2659;
+    (->uppercase
+     ((=ucs@gb/fw	  . #x03A3)	; &J90-2632;
+      (=ucs@jis/fw	  . #x03A3)	; &J90-2632;
+      (=jis-x0208	  . #x2632)	; &J90-2632; [06-18]
+      (=gb2312		  . #x2632)	; &I-G0-2632; [06-18]
+      (=ks-x1001	  . #x2552)	; &I-K0-2552; [05-50]
+      (=cns11643-1	  . #x2528)	; &I-C1-2528; [05-08]
+      (=jis-x0213-1	  . #x2632)	; &I-JX1-2632; [06-18]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER SIGMA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter sigma")
-      (=jis-x0208	  . #x2652)	; &J90-2652; [06-50]
-      (=gb2312		  . #x2652)	; &I-G0-2652; [06-50]
-      (=ks-x1001	  . #x2572)	; &I-K0-2572; [05-82]
-      (=cns11643-1	  . #x2540)	; &I-C1-2540; [05-32]
-      ))
+    (=ucs		. #x03C3)	; σ
+    (greek-iso8859-7	. #xF3)	; &I-GREEK-73;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER SIGMA")
       (=ucs		  . #x03A3)	; Σ
       ))
-    (=ucs		. #x03C3)	; σ
-    (greek-iso8859-7	. #xF3)	; &I-GREEK-73;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER SIGMA")
       (=ucs		  . #x03C3)	; σ
       ))
+    (=ucs@gb/fw		. #x03C3)	; &J90-2652;
+    (=ucs@jis/fw	. #x03C3)	; &J90-2652;
     (=jis-x0208		. #x2652)	; &J90-2652; [06-50]
     (=gb2312		. #x2652)	; &I-G0-2652; [06-50]
     (=ks-x1001		. #x2572)	; &I-K0-2572; [05-82]
     (=cns11643-1	. #x2540)	; &I-C1-2540; [05-32]
+    (=jis-x0213-1	. #x2652)	; &I-JX1-2652; [06-50]
     (=big5		. #xA36D)	; &I-B-A36D;
-    (=ucs@jis		. #x03C3)	; &J90-2652;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER SIGMA")
+      (=ucs		  . #x03C3)	; σ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x03A3)	; &J90-2632;
+      (=ucs@jis/fw	  . #x03A3)	; &J90-2632;
+      (=jis-x0208	  . #x2632)	; &J90-2632; [06-18]
+      (=gb2312		  . #x2632)	; &I-G0-2632; [06-18]
+      (=ks-x1001	  . #x2552)	; &I-K0-2552; [05-50]
+      (=cns11643-1	  . #x2528)	; &I-C1-2528; [05-08]
+      (=jis-x0213-1	  . #x2632)	; &I-JX1-2632; [06-18]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER TAU")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter tau")
-      (=jis-x0208	  . #x2653)	; &J90-2653; [06-51]
-      (=gb2312		  . #x2653)	; &I-G0-2653; [06-51]
-      (=ks-x1001	  . #x2573)	; &I-K0-2573; [05-83]
-      (=cns11643-1	  . #x2541)	; &I-C1-2541; [05-33]
-      ))
+    (=ucs		. #x03C4)	; τ
+    (greek-iso8859-7	. #xF4)	; &I-GREEK-74;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER TAU")
       (=ucs		  . #x03A4)	; Τ
       ))
-    (=ucs		. #x03C4)	; τ
-    (greek-iso8859-7	. #xF4)	; &I-GREEK-74;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER TAU")
       (=ucs		  . #x03C4)	; τ
       ))
+    (=ucs@gb/fw		. #x03C4)	; &J90-2653;
+    (=ucs@jis/fw	. #x03C4)	; &J90-2653;
     (=jis-x0208		. #x2653)	; &J90-2653; [06-51]
     (=gb2312		. #x2653)	; &I-G0-2653; [06-51]
     (=ks-x1001		. #x2573)	; &I-K0-2573; [05-83]
     (=cns11643-1	. #x2541)	; &I-C1-2541; [05-33]
+    (=jis-x0213-1	. #x2653)	; &I-JX1-2653; [06-51]
     (=big5		. #xA36E)	; &I-B-A36E;
-    (=ucs@jis		. #x03C4)	; &J90-2653;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER TAU")
+      (=ucs		  . #x03C4)	; τ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x03A4)	; &J90-2633;
+      (=ucs@jis/fw	  . #x03A4)	; &J90-2633;
+      (=jis-x0208	  . #x2633)	; &J90-2633; [06-19]
+      (=gb2312		  . #x2633)	; &I-G0-2633; [06-19]
+      (=ks-x1001	  . #x2553)	; &I-K0-2553; [05-51]
+      (=cns11643-1	  . #x2529)	; &I-C1-2529; [05-09]
+      (=jis-x0213-1	  . #x2633)	; &I-JX1-2633; [06-19]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER UPSILON")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter upsilon")
-      (=jis-x0208	  . #x2654)	; &J90-2654; [06-52]
-      (=gb2312		  . #x2654)	; &I-G0-2654; [06-52]
-      (=ks-x1001	  . #x2574)	; &I-K0-2574; [05-84]
-      (=cns11643-1	  . #x2542)	; &I-C1-2542; [05-34]
-      ))
+    (=ucs		. #x03C5)	; υ
+    (greek-iso8859-7	. #xF5)	; &I-GREEK-75;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER UPSILON")
       (=ucs		  . #x03A5)	; Υ
       ))
-    (=ucs		. #x03C5)	; υ
-    (greek-iso8859-7	. #xF5)	; &I-GREEK-75;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER UPSILON")
       (=ucs		  . #x03C5)	; υ
       ))
+    (=ucs@gb/fw		. #x03C5)	; &J90-2654;
+    (=ucs@jis/fw	. #x03C5)	; &J90-2654;
     (=jis-x0208		. #x2654)	; &J90-2654; [06-52]
     (=gb2312		. #x2654)	; &I-G0-2654; [06-52]
     (=ks-x1001		. #x2574)	; &I-K0-2574; [05-84]
     (=cns11643-1	. #x2542)	; &I-C1-2542; [05-34]
+    (=jis-x0213-1	. #x2654)	; &I-JX1-2654; [06-52]
     (=big5		. #xA36F)	; &I-B-A36F;
-    (=ucs@jis		. #x03C5)	; &J90-2654;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER UPSILON")
+      (=ucs		  . #x03C5)	; υ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x03A5)	; &J90-2634;
+      (=ucs@jis/fw	  . #x03A5)	; &J90-2634;
+      (=jis-x0208	  . #x2634)	; &J90-2634; [06-20]
+      (=gb2312		  . #x2634)	; &I-G0-2634; [06-20]
+      (=ks-x1001	  . #x2554)	; &I-K0-2554; [05-52]
+      (=cns11643-1	  . #x252A)	; &I-C1-252A; [05-10]
+      (=jis-x0213-1	  . #x2634)	; &I-JX1-2634; [06-20]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER PHI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter phi")
-      (=jis-x0208	  . #x2655)	; &J90-2655; [06-53]
-      (=gb2312		  . #x2655)	; &I-G0-2655; [06-53]
-      (=ks-x1001	  . #x2575)	; &I-K0-2575; [05-85]
-      (=cns11643-1	  . #x2543)	; &I-C1-2543; [05-35]
-      ))
+    (=ucs		. #x03C6)	; φ
+    (greek-iso8859-7	. #xF6)	; &I-GREEK-76;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER PHI")
       (=ucs		  . #x03A6)	; Φ
       ))
-    (=ucs		. #x03C6)	; φ
-    (greek-iso8859-7	. #xF6)	; &I-GREEK-76;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER PHI")
+      (=ucs		  . #x03C6)	; φ
       ))
+    (=ucs@gb/fw		. #x03C6)	; &J90-2655;
+    (=ucs@jis/fw	. #x03C6)	; &J90-2655;
+    (=jis-x0208		. #x2655)	; &J90-2655; [06-53]
+    (=gb2312		. #x2655)	; &I-G0-2655; [06-53]
+    (=ks-x1001		. #x2575)	; &I-K0-2575; [05-85]
+    (=cns11643-1	. #x2543)	; &I-C1-2543; [05-35]
+    (=jis-x0213-1	. #x2655)	; &I-JX1-2655; [06-53]
+    (=big5		. #xA370)	; &I-B-A370;
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER PHI")
       (=ucs		  . #x03C6)	; φ
       ))
-    (=jis-x0208		. #x2655)	; &J90-2655; [06-53]
-    (=gb2312		. #x2655)	; &I-G0-2655; [06-53]
-    (=ks-x1001		. #x2575)	; &I-K0-2575; [05-85]
-    (=cns11643-1	. #x2543)	; &I-C1-2543; [05-35]
-    (=big5		. #xA370)	; &I-B-A370;
-    (=ucs@jis		. #x03C6)	; &J90-2655;
+    (->uppercase
+     ((=ucs@gb/fw	  . #x03A6)	; &J90-2635;
+      (=ucs@jis/fw	  . #x03A6)	; &J90-2635;
+      (=jis-x0208	  . #x2635)	; &J90-2635; [06-21]
+      (=gb2312		  . #x2635)	; &I-G0-2635; [06-21]
+      (=ks-x1001	  . #x2555)	; &I-K0-2555; [05-53]
+      (=cns11643-1	  . #x252B)	; &I-C1-252B; [05-11]
+      (=jis-x0213-1	  . #x2635)	; &I-JX1-2635; [06-21]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER CHI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter chi")
-      (=jis-x0208	  . #x2656)	; &J90-2656; [06-54]
-      (=gb2312		  . #x2656)	; &I-G0-2656; [06-54]
-      (=ks-x1001	  . #x2576)	; &I-K0-2576; [05-86]
-      (=cns11643-1	  . #x2544)	; &I-C1-2544; [05-36]
-      ))
+    (=ucs		. #x03C7)	; χ
+    (greek-iso8859-7	. #xF7)	; &I-GREEK-77;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER CHI")
       (=ucs		  . #x03A7)	; Χ
       ))
-    (=ucs		. #x03C7)	; χ
-    (greek-iso8859-7	. #xF7)	; &I-GREEK-77;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER CHI")
       (=ucs		  . #x03C7)	; χ
       ))
+    (=ucs@gb/fw		. #x03C7)	; &J90-2656;
+    (=ucs@jis/fw	. #x03C7)	; &J90-2656;
     (=jis-x0208		. #x2656)	; &J90-2656; [06-54]
     (=gb2312		. #x2656)	; &I-G0-2656; [06-54]
     (=ks-x1001		. #x2576)	; &I-K0-2576; [05-86]
     (=cns11643-1	. #x2544)	; &I-C1-2544; [05-36]
+    (=jis-x0213-1	. #x2656)	; &I-JX1-2656; [06-54]
     (=big5		. #xA371)	; &I-B-A371;
-    (=ucs@jis		. #x03C7)	; &J90-2656;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER CHI")
+      (=ucs		  . #x03C7)	; χ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x03A7)	; &J90-2636;
+      (=ucs@jis/fw	  . #x03A7)	; &J90-2636;
+      (=jis-x0208	  . #x2636)	; &J90-2636; [06-22]
+      (=gb2312		  . #x2636)	; &I-G0-2636; [06-22]
+      (=ks-x1001	  . #x2556)	; &I-K0-2556; [05-54]
+      (=cns11643-1	  . #x252C)	; &I-C1-252C; [05-12]
+      (=jis-x0213-1	  . #x2636)	; &I-JX1-2636; [06-22]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER PSI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter psi")
-      (=jis-x0208	  . #x2657)	; &J90-2657; [06-55]
-      (=gb2312		  . #x2657)	; &I-G0-2657; [06-55]
-      (=ks-x1001	  . #x2577)	; &I-K0-2577; [05-87]
-      (=cns11643-1	  . #x2545)	; &I-C1-2545; [05-37]
-      ))
+    (=ucs		. #x03C8)	; ψ
+    (greek-iso8859-7	. #xF8)	; &I-GREEK-78;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER PSI")
       (=ucs		  . #x03A8)	; Ψ
       ))
-    (=ucs		. #x03C8)	; ψ
-    (greek-iso8859-7	. #xF8)	; &I-GREEK-78;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER PSI")
       (=ucs		  . #x03C8)	; ψ
       ))
+    (=ucs@gb/fw		. #x03C8)	; &J90-2657;
+    (=ucs@jis/fw	. #x03C8)	; &J90-2657;
     (=jis-x0208		. #x2657)	; &J90-2657; [06-55]
     (=gb2312		. #x2657)	; &I-G0-2657; [06-55]
     (=ks-x1001		. #x2577)	; &I-K0-2577; [05-87]
     (=cns11643-1	. #x2545)	; &I-C1-2545; [05-37]
+    (=jis-x0213-1	. #x2657)	; &I-JX1-2657; [06-55]
     (=big5		. #xA372)	; &I-B-A372;
-    (=ucs@jis		. #x03C8)	; &J90-2657;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER PSI")
+      (=ucs		  . #x03C8)	; ψ
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x03A8)	; &J90-2637;
+      (=ucs@jis/fw	  . #x03A8)	; &J90-2637;
+      (=jis-x0208	  . #x2637)	; &J90-2637; [06-23]
+      (=gb2312		  . #x2637)	; &I-G0-2637; [06-23]
+      (=ks-x1001	  . #x2557)	; &I-K0-2557; [05-55]
+      (=cns11643-1	  . #x252D)	; &I-C1-252D; [05-13]
+      (=jis-x0213-1	  . #x2637)	; &I-JX1-2637; [06-23]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER OMEGA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->fullwidth
-     ((name		  . "fullwidth greek small letter omega")
-      (=jis-x0208	  . #x2658)	; &J90-2658; [06-56]
-      (=gb2312		  . #x2658)	; &I-G0-2658; [06-56]
-      (=ks-x1001	  . #x2578)	; &I-K0-2578; [05-88]
-      (=cns11643-1	  . #x2546)	; &I-C1-2546; [05-38]
-      ))
+    (=ucs		. #x03C9)	; ω
+    (greek-iso8859-7	. #xF9)	; &I-GREEK-79;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER OMEGA")
       (=ucs		  . #x03A9)	; Ω
       ))
-    (=ucs		. #x03C9)	; ω
-    (greek-iso8859-7	. #xF9)	; &I-GREEK-79;
     ))
 (define-char
-  '((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")
-      ))
-    (<-fullwidth
+  '((<-denotational
      ((name		  . "GREEK SMALL LETTER OMEGA")
       (=ucs		  . #x03C9)	; ω
       ))
+    (=ucs@gb/fw		. #x03C9)	; &J90-2658;
+    (=ucs@jis/fw	. #x03C9)	; &J90-2658;
     (=jis-x0208		. #x2658)	; &J90-2658; [06-56]
     (=gb2312		. #x2658)	; &I-G0-2658; [06-56]
     (=ks-x1001		. #x2578)	; &I-K0-2578; [05-88]
     (=cns11643-1	. #x2546)	; &I-C1-2546; [05-38]
+    (=jis-x0213-1	. #x2658)	; &I-JX1-2658; [06-56]
     (=big5		. #xA373)	; &I-B-A373;
-    (=ucs@jis		. #x03C9)	; &J90-2658;
+    (<-fullwidth
+     ((name		  . "GREEK SMALL LETTER OMEGA")
+      (=ucs		  . #x03C9)	; ω
+      ))
+    (->uppercase
+     ((=ucs@gb/fw	  . #x03A9)	; &J90-2638;
+      (=ucs@jis/fw	  . #x03A9)	; &J90-2638;
+      (=jis-x0208	  . #x2638)	; &J90-2638; [06-24]
+      (=gb2312		  . #x2638)	; &I-G0-2638; [06-24]
+      (=ks-x1001	  . #x2558)	; &I-K0-2558; [05-56]
+      (=cns11643-1	  . #x252E)	; &I-C1-252E; [05-14]
+      (=jis-x0213-1	  . #x2638)	; &I-JX1-2638; [06-24]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03B9 #x0308)
-    (->fullwidth
-     ((name . "fullwidth greek small letter iota with dialytika")
-      (=jis-x0212	  . #x2675)	; &JSP-2675; [06-85]
-      (=ucs@jis		  . #x03CA)	; &JSP-2675;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER IOTA")
+      (=ucs		  . #x03B9)	; ι
+      )
+     ((name		  . "COMBINING DIAERESIS")
+      (=ucs		  . #x0308)	; ̈
       ))
+    (=ucs		. #x03CA)	; ϊ
+    (greek-iso8859-7	. #xFA)	; &I-GREEK-7A;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
       (=ucs		  . #x03AA)	; Ϊ
       ))
-    (=ucs		. #x03CA)	; ϊ
-    (greek-iso8859-7	. #xFA)	; &I-GREEK-7A;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
+      (=ucs		  . #x03CA)	; ϊ
       ))
+    (=ucs@jis/fw	. #x03CA)	; &JSP-2675;
+    (=jis-x0212		. #x2675)	; &JSP-2675; [06-85]
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
       (=ucs		  . #x03CA)	; ϊ
       ))
-    (=jis-x0212		. #x2675)	; &JSP-2675; [06-85]
-    (=ucs@jis		. #x03CA)	; &JSP-2675;
+    (->uppercase
+     ((=ucs@jis/fw	  . #x03AA)	; &JSP-2665;
+      (=jis-x0212	  . #x2665)	; &JSP-2665; [06-69]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03C5 #x0308)
-    (->fullwidth
-     ((name . "fullwidth greek small letter upsilon with dialytika")
-      (=jis-x0212	  . #x267A)	; &JSP-267A; [06-90]
-      (=ucs@jis		  . #x03CB)	; &JSP-267A;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER UPSILON")
+      (=ucs		  . #x03C5)	; υ
+      )
+     ((name		  . "COMBINING DIAERESIS")
+      (=ucs		  . #x0308)	; ̈
       ))
+    (=ucs		. #x03CB)	; ϋ
+    (greek-iso8859-7	. #xFB)	; &I-GREEK-7B;
     (->uppercase
      ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
       (=ucs		  . #x03AB)	; Ϋ
       ))
-    (=ucs		. #x03CB)	; ϋ
-    (greek-iso8859-7	. #xFB)	; &I-GREEK-7B;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
+      (=ucs		  . #x03CB)	; ϋ
       ))
+    (=ucs@jis/fw	. #x03CB)	; &JSP-267A;
+    (=jis-x0212		. #x267A)	; &JSP-267A; [06-90]
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
       (=ucs		  . #x03CB)	; ϋ
       ))
-    (=jis-x0212		. #x267A)	; &JSP-267A; [06-90]
-    (=ucs@jis		. #x03CB)	; &JSP-267A;
+    (->uppercase
+     ((=ucs@jis/fw	  . #x03AB)	; &JSP-266A;
+      (=jis-x0212	  . #x266A)	; &JSP-266A; [06-74]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER OMICRON WITH TONOS")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03BF #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek small letter omicron with tonos")
-      (=jis-x0212	  . #x2677)	; &JSP-2677; [06-87]
-      (=ucs@jis		  . #x03CC)	; &JSP-2677;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER OMICRON")
+      (=ucs		  . #x03BF)	; ο
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x03CC)	; ό
+    (greek-iso8859-7	. #xFC)	; &I-GREEK-7C;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
       (=ucs		  . #x038C)	; Ό
       ))
-    (=ucs		. #x03CC)	; ό
-    (greek-iso8859-7	. #xFC)	; &I-GREEK-7C;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER OMICRON WITH TONOS")
+      (=ucs		  . #x03CC)	; ό
       ))
+    (=ucs@jis/fw	. #x03CC)	; &JSP-2677;
+    (=jis-x0212		. #x2677)	; &JSP-2677; [06-87]
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER OMICRON WITH TONOS")
       (=ucs		  . #x03CC)	; ό
       ))
-    (=jis-x0212		. #x2677)	; &JSP-2677; [06-87]
-    (=ucs@jis		. #x03CC)	; &JSP-2677;
+    (->uppercase
+     ((=ucs@jis/fw	  . #x038C)	; &JSP-2667;
+      (=jis-x0212	  . #x2667)	; &JSP-2667; [06-71]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER UPSILON WITH TONOS")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03C5 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek small letter upsilon with tonos")
-      (=jis-x0212	  . #x2679)	; &JSP-2679; [06-89]
-      (=ucs@jis		  . #x03CD)	; &JSP-2679;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER UPSILON")
+      (=ucs		  . #x03C5)	; υ
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x03CD)	; ύ
+    (greek-iso8859-7	. #xFD)	; &I-GREEK-7D;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
       (=ucs		  . #x038E)	; Ύ
       ))
-    (=ucs		. #x03CD)	; ύ
-    (greek-iso8859-7	. #xFD)	; &I-GREEK-7D;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER UPSILON WITH TONOS")
+      (=ucs		  . #x03CD)	; ύ
       ))
+    (=ucs@jis/fw	. #x03CD)	; &JSP-2679;
+    (=jis-x0212		. #x2679)	; &JSP-2679; [06-89]
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER UPSILON WITH TONOS")
       (=ucs		  . #x03CD)	; ύ
       ))
-    (=jis-x0212		. #x2679)	; &JSP-2679; [06-89]
-    (=ucs@jis		. #x03CD)	; &JSP-2679;
+    (->uppercase
+     ((=ucs@jis/fw	  . #x038E)	; &JSP-2669;
+      (=jis-x0212	  . #x2669)	; &JSP-2669; [06-73]
+      ))
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER OMEGA WITH TONOS")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03C9 #x0301)
-    (->fullwidth
-     ((name . "fullwidth greek small letter omega with tonos")
-      (=jis-x0212	  . #x267C)	; &JSP-267C; [06-92]
-      (=ucs@jis		  . #x03CE)	; &JSP-267C;
+    (=decomposition
+     ((name		  . "GREEK SMALL LETTER OMEGA")
+      (=ucs		  . #x03C9)	; ω
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
       ))
+    (=ucs		. #x03CE)	; ώ
+    (greek-iso8859-7	. #xFE)	; &I-GREEK-7E;
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
       (=ucs		  . #x038F)	; Ώ
       ))
-    (=ucs		. #x03CE)	; ώ
-    (greek-iso8859-7	. #xFE)	; &I-GREEK-7E;
     ))
 (define-char
-  '((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")
+  '((<-denotational
+     ((name		  . "GREEK SMALL LETTER OMEGA WITH TONOS")
+      (=ucs		  . #x03CE)	; ώ
       ))
+    (=ucs@jis/fw	. #x03CE)	; &JSP-267C;
+    (=jis-x0212		. #x267C)	; &JSP-267C; [06-92]
     (<-fullwidth
      ((name		  . "GREEK SMALL LETTER OMEGA WITH TONOS")
       (=ucs		  . #x03CE)	; ώ
       ))
-    (=jis-x0212		. #x267C)	; &JSP-267C; [06-92]
-    (=ucs@jis		. #x03CE)	; &JSP-267C;
+    (->uppercase
+     ((=ucs@jis/fw	  . #x038F)	; &JSP-266C;
+      (=jis-x0212	  . #x266C)	; &JSP-266C; [06-76]
+      ))
     ))
 (define-char
   '((name		. "GREEK BETA SYMBOL")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x03B2)
+    (=ucs		. #x03D0)	; ϐ
+    (<-compat
+     ((name		  . "GREEK SMALL LETTER BETA")
+      (=ucs		  . #x03B2)	; β
+      ))
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER BETA")
       (=ucs		  . #x0392)	; Β
       ))
-    (=ucs		. #x03D0)	; ϐ
     ))
 (define-char
   '((name		. "GREEK THETA SYMBOL")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x03B8)
+    (=ucs		. #x03D1)	; ϑ
+    (<-compat
+     ((name		  . "GREEK SMALL LETTER THETA")
+      (=ucs		  . #x03B8)	; θ
+      ))
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER THETA")
       (=ucs		  . #x0398)	; Θ
       ))
-    (=ucs		. #x03D1)	; ϑ
     ))
 (define-char
   '((name		. "GREEK UPSILON WITH HOOK SYMBOL")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x03A5)
     (=ucs		. #x03D2)	; ϒ
+    (<-compat
+     ((name		  . "GREEK CAPITAL LETTER UPSILON")
+      (=ucs		  . #x03A5)	; Υ
+      ))
     ))
 (define-char
   '((name		. "GREEK UPSILON WITH ACUTE AND HOOK SYMBOL")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03D2 #x0301)
+    (=decomposition
+     ((name		  . "GREEK UPSILON WITH HOOK SYMBOL")
+      (=ucs		  . #x03D2)	; ϒ
+      )
+     ((name		  . "COMBINING ACUTE ACCENT")
+      (=ucs		  . #x0301)	; ́
+      ))
     (=ucs		. #x03D3)	; ϓ
     ))
 (define-char
@@ -2785,7 +2845,13 @@
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x03D2 #x0308)
+    (=decomposition
+     ((name		  . "GREEK UPSILON WITH HOOK SYMBOL")
+      (=ucs		  . #x03D2)	; ϒ
+      )
+     ((name		  . "COMBINING DIAERESIS")
+      (=ucs		  . #x0308)	; ̈
+      ))
     (=ucs		. #x03D4)	; ϔ
     ))
 (define-char
@@ -2793,24 +2859,30 @@
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x03C6)
+    (=ucs		. #x03D5)	; ϕ
+    (<-compat
+     ((name		  . "GREEK SMALL LETTER PHI")
+      (=ucs		  . #x03C6)	; φ
+      ))
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER PHI")
       (=ucs		  . #x03A6)	; Φ
       ))
-    (=ucs		. #x03D5)	; ϕ
     ))
 (define-char
   '((name		. "GREEK PI SYMBOL")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x03C0)
+    (=ucs		. #x03D6)	; ϖ
+    (<-compat
+     ((name		  . "GREEK SMALL LETTER PI")
+      (=ucs		  . #x03C0)	; π
+      ))
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER PI")
       (=ucs		  . #x03A0)	; Π
       ))
-    (=ucs		. #x03D6)	; ϖ
     ))
 (define-char
   '((name		. "GREEK KAI SYMBOL")
@@ -2824,278 +2896,287 @@
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03DA)	; Ϛ
     (->lowercase
      ((name		  . "GREEK SMALL LETTER STIGMA")
       (=ucs		  . #x03DB)	; ϛ
       ))
-    (=ucs		. #x03DA)	; Ϛ
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER STIGMA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03DB)	; ϛ
     (->uppercase
      ((name		  . "GREEK LETTER STIGMA")
       (=ucs		  . #x03DA)	; Ϛ
       ))
-    (=ucs		. #x03DB)	; ϛ
     ))
 (define-char
   '((name		. "GREEK LETTER DIGAMMA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03DC)	; Ϝ
     (->lowercase
      ((name		  . "GREEK SMALL LETTER DIGAMMA")
       (=ucs		  . #x03DD)	; ϝ
       ))
-    (=ucs		. #x03DC)	; Ϝ
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER DIGAMMA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03DD)	; ϝ
     (->uppercase
      ((name		  . "GREEK LETTER DIGAMMA")
       (=ucs		  . #x03DC)	; Ϝ
       ))
-    (=ucs		. #x03DD)	; ϝ
     ))
 (define-char
   '((name		. "GREEK LETTER KOPPA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03DE)	; Ϟ
     (->lowercase
      ((name		  . "GREEK SMALL LETTER KOPPA")
       (=ucs		  . #x03DF)	; ϟ
       ))
-    (=ucs		. #x03DE)	; Ϟ
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER KOPPA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03DF)	; ϟ
     (->uppercase
      ((name		  . "GREEK LETTER KOPPA")
       (=ucs		  . #x03DE)	; Ϟ
       ))
-    (=ucs		. #x03DF)	; ϟ
     ))
 (define-char
   '((name		. "GREEK LETTER SAMPI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03E0)	; Ï 
     (->lowercase
      ((name		  . "GREEK SMALL LETTER SAMPI")
       (=ucs		  . #x03E1)	; Ï¡
       ))
-    (=ucs		. #x03E0)	; Ï 
     ))
 (define-char
   '((name		. "GREEK SMALL LETTER SAMPI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03E1)	; Ï¡
     (->uppercase
      ((name		  . "GREEK LETTER SAMPI")
       (=ucs		  . #x03E0)	; Ï 
       ))
-    (=ucs		. #x03E1)	; Ï¡
     ))
 (define-char
   '((name		. "COPTIC CAPITAL LETTER SHEI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03E2)	; Ϣ
     (->lowercase
      ((name		  . "COPTIC SMALL LETTER SHEI")
       (=ucs		  . #x03E3)	; ϣ
       ))
-    (=ucs		. #x03E2)	; Ϣ
     ))
 (define-char
   '((name		. "COPTIC SMALL LETTER SHEI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03E3)	; ϣ
     (->uppercase
      ((name		  . "COPTIC CAPITAL LETTER SHEI")
       (=ucs		  . #x03E2)	; Ϣ
       ))
-    (=ucs		. #x03E3)	; ϣ
     ))
 (define-char
   '((name		. "COPTIC CAPITAL LETTER FEI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03E4)	; Ϥ
     (->lowercase
      ((name		  . "COPTIC SMALL LETTER FEI")
       (=ucs		  . #x03E5)	; ϥ
       ))
-    (=ucs		. #x03E4)	; Ϥ
     ))
 (define-char
   '((name		. "COPTIC SMALL LETTER FEI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03E5)	; ϥ
     (->uppercase
      ((name		  . "COPTIC CAPITAL LETTER FEI")
       (=ucs		  . #x03E4)	; Ϥ
       ))
-    (=ucs		. #x03E5)	; ϥ
     ))
 (define-char
   '((name		. "COPTIC CAPITAL LETTER KHEI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03E6)	; Ϧ
     (->lowercase
      ((name		  . "COPTIC SMALL LETTER KHEI")
       (=ucs		  . #x03E7)	; ϧ
       ))
-    (=ucs		. #x03E6)	; Ϧ
     ))
 (define-char
   '((name		. "COPTIC SMALL LETTER KHEI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03E7)	; ϧ
     (->uppercase
      ((name		  . "COPTIC CAPITAL LETTER KHEI")
       (=ucs		  . #x03E6)	; Ϧ
       ))
-    (=ucs		. #x03E7)	; ϧ
     ))
 (define-char
   '((name		. "COPTIC CAPITAL LETTER HORI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03E8)	; Ϩ
     (->lowercase
      ((name		  . "COPTIC SMALL LETTER HORI")
       (=ucs		  . #x03E9)	; Ï©
       ))
-    (=ucs		. #x03E8)	; Ϩ
     ))
 (define-char
   '((name		. "COPTIC SMALL LETTER HORI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03E9)	; Ï©
     (->uppercase
      ((name		  . "COPTIC CAPITAL LETTER HORI")
       (=ucs		  . #x03E8)	; Ϩ
       ))
-    (=ucs		. #x03E9)	; Ï©
     ))
 (define-char
   '((name		. "COPTIC CAPITAL LETTER GANGIA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03EA)	; Ϫ
     (->lowercase
      ((name		  . "COPTIC SMALL LETTER GANGIA")
       (=ucs		  . #x03EB)	; Ï«
       ))
-    (=ucs		. #x03EA)	; Ϫ
     ))
 (define-char
   '((name		. "COPTIC SMALL LETTER GANGIA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03EB)	; Ï«
     (->uppercase
      ((name		  . "COPTIC CAPITAL LETTER GANGIA")
       (=ucs		  . #x03EA)	; Ϫ
       ))
-    (=ucs		. #x03EB)	; Ï«
     ))
 (define-char
   '((name		. "COPTIC CAPITAL LETTER SHIMA")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03EC)	; Ϭ
     (->lowercase
      ((name		  . "COPTIC SMALL LETTER SHIMA")
       (=ucs		  . #x03ED)	; Ï­
       ))
-    (=ucs		. #x03EC)	; Ϭ
     ))
 (define-char
   '((name		. "COPTIC SMALL LETTER SHIMA")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03ED)	; Ï­
     (->uppercase
      ((name		  . "COPTIC CAPITAL LETTER SHIMA")
       (=ucs		  . #x03EC)	; Ϭ
       ))
-    (=ucs		. #x03ED)	; Ï­
     ))
 (define-char
   '((name		. "COPTIC CAPITAL LETTER DEI")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03EE)	; Ï®
     (->lowercase
      ((name		  . "COPTIC SMALL LETTER DEI")
       (=ucs		  . #x03EF)	; ϯ
       ))
-    (=ucs		. #x03EE)	; Ï®
     ))
 (define-char
   '((name		. "COPTIC SMALL LETTER DEI")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x03EF)	; ϯ
     (->uppercase
      ((name		  . "COPTIC CAPITAL LETTER DEI")
       (=ucs		  . #x03EE)	; Ï®
       ))
-    (=ucs		. #x03EF)	; ϯ
     ))
 (define-char
   '((name		. "GREEK KAPPA SYMBOL")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x03BA)
+    (=ucs		. #x03F0)	; Ï°
+    (<-compat
+     ((name		  . "GREEK SMALL LETTER KAPPA")
+      (=ucs		  . #x03BA)	; κ
+      ))
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER KAPPA")
       (=ucs		  . #x039A)	; Κ
       ))
-    (=ucs		. #x03F0)	; Ï°
     ))
 (define-char
   '((name		. "GREEK RHO SYMBOL")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x03C1)
+    (=ucs		. #x03F1)	; ϱ
+    (<-compat
+     ((name		  . "GREEK SMALL LETTER RHO")
+      (=ucs		  . #x03C1)	; ρ
+      ))
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER RHO")
       (=ucs		  . #x03A1)	; Ρ
       ))
-    (=ucs		. #x03F1)	; ϱ
     ))
 (define-char
   '((name		. "GREEK LUNATE SIGMA SYMBOL")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x03C2)
+    (=ucs		. #x03F2)	; ϲ
+    (<-compat
+     ((name		  . "GREEK SMALL LETTER FINAL SIGMA")
+      (=ucs		  . #x03C2)	; ς
+      ))
     (->uppercase
      ((name		  . "GREEK CAPITAL LETTER SIGMA")
       (=ucs		  . #x03A3)	; Σ
       ))
-    (=ucs		. #x03F2)	; ϲ
     ))
 (define-char
   '((name		. "GREEK LETTER YOT")