Reformatted.
[chise/xemacs-chise.git.1] / lisp / utf-2000 / u02150-Number-Forms.el
index 91977e5..8ec35b5 100644 (file)
@@ -1,13 +1,23 @@
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name              . "VULGAR FRACTION ONE THIRD")
     (general-category  number other) ; Normative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 1/3)
-    (->decomposition   fraction #x0031 #x2044 #x0033)
-    (=ks-x1001         . #x2877)       ; 
-    (=jis-x0213-1-2000 . #x2778)       ; 
+    (=>decomposition@fraction
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT THREE")
+      (=ucs              . #x0033)     ; 3
+      ))
     (=ucs              . #x2153)       ; ⅓
+    (=ks-x1001         . #x2877)       ; &I-K0-2877; [08-87]
+    (=jis-x0213-1      . #x2778)       ; &I-JX1-2778; [07-88]
     ))
 (define-char
   '((name              . "VULGAR FRACTION TWO THIRDS")
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 2/3)
-    (->decomposition   fraction #x0032 #x2044 #x0033)
-    (=ks-x1001         . #x2878)       ; 
-    (=jis-x0213-1-2000 . #x2779)       ; 
+    (=>decomposition@fraction
+     ((name              . "DIGIT TWO")
+      (=ucs              . #x0032)     ; 2
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT THREE")
+      (=ucs              . #x0033)     ; 3
+      ))
     (=ucs              . #x2154)       ; ⅔
+    (=ks-x1001         . #x2878)       ; &I-K0-2878; [08-88]
+    (=jis-x0213-1      . #x2779)       ; &I-JX1-2779; [07-89]
     ))
 (define-char
   '((name              . "VULGAR FRACTION ONE FIFTH")
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 1/5)
-    (->decomposition   fraction #x0031 #x2044 #x0035)
-    (=jis-x0213-1-2000 . #x277A)       ; 
+    (=>decomposition@fraction
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      ))
     (=ucs              . #x2155)       ; ⅕
+    (=jis-x0213-1      . #x277A)       ; &I-JX1-277A; [07-90]
     ))
 (define-char
   '((name              . "VULGAR FRACTION TWO FIFTHS")
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 2/5)
-    (->decomposition   fraction #x0032 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name              . "DIGIT TWO")
+      (=ucs              . #x0032)     ; 2
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      ))
     (=ucs              . #x2156)       ; ⅖
     ))
 (define-char
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 3/5)
-    (->decomposition   fraction #x0033 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name              . "DIGIT THREE")
+      (=ucs              . #x0033)     ; 3
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      ))
     (=ucs              . #x2157)       ; ⅗
     ))
 (define-char
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 4/5)
-    (->decomposition   fraction #x0034 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name              . "DIGIT FOUR")
+      (=ucs              . #x0034)     ; 4
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      ))
     (=ucs              . #x2158)       ; ⅘
     ))
 (define-char
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 1/6)
-    (->decomposition   fraction #x0031 #x2044 #x0036)
+    (=>decomposition@fraction
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT SIX")
+      (=ucs              . #x0036)     ; 6
+      ))
     (=ucs              . #x2159)       ; ⅙
     ))
 (define-char
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 5/6)
-    (->decomposition   fraction #x0035 #x2044 #x0036)
+    (=>decomposition@fraction
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT SIX")
+      (=ucs              . #x0036)     ; 6
+      ))
     (=ucs              . #x215A)       ; ⅚
     ))
 (define-char
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 1/8)
-    (->decomposition   fraction #x0031 #x2044 #x0038)
-    (=ks-x1001         . #x287B)       ; 
+    (=>decomposition@fraction
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT EIGHT")
+      (=ucs              . #x0038)     ; 8
+      ))
     (=ucs              . #x215B)       ; ⅛
+    (=ks-x1001         . #x287B)       ; &I-K0-287B; [08-91]
     ))
 (define-char
   '((name              . "VULGAR FRACTION THREE EIGHTHS")
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 3/8)
-    (->decomposition   fraction #x0033 #x2044 #x0038)
-    (=ks-x1001         . #x287C)       ; 
+    (=>decomposition@fraction
+     ((name              . "DIGIT THREE")
+      (=ucs              . #x0033)     ; 3
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT EIGHT")
+      (=ucs              . #x0038)     ; 8
+      ))
     (=ucs              . #x215C)       ; ⅜
+    (=ks-x1001         . #x287C)       ; &I-K0-287C; [08-92]
     ))
 (define-char
   '((name              . "VULGAR FRACTION FIVE EIGHTHS")
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 5/8)
-    (->decomposition   fraction #x0035 #x2044 #x0038)
-    (=ks-x1001         . #x287D)       ; 
+    (=>decomposition@fraction
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT EIGHT")
+      (=ucs              . #x0038)     ; 8
+      ))
     (=ucs              . #x215D)       ; ⅝
+    (=ks-x1001         . #x287D)       ; &I-K0-287D; [08-93]
     ))
 (define-char
   '((name              . "VULGAR FRACTION SEVEN EIGHTHS")
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 7/8)
-    (->decomposition   fraction #x0037 #x2044 #x0038)
-    (=ks-x1001         . #x287E)       ; 
+    (=>decomposition@fraction
+     ((name              . "DIGIT SEVEN")
+      (=ucs              . #x0037)     ; 7
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT EIGHT")
+      (=ucs              . #x0038)     ; 8
+      ))
     (=ucs              . #x215E)       ; ⅞
+    (=ks-x1001         . #x287E)       ; &I-K0-287E; [08-94]
     ))
 (define-char
   '((name              . "FRACTION NUMERATOR ONE")
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 1)
-    (->decomposition   fraction #x0031 #x2044)
+    (=>decomposition@fraction
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      ))
     (=ucs              . #x215F)       ; ⅟
     ))
 (define-char
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 1)
-    (->decomposition   compat #x0049)
+    (=ucs              . #x2160)       ; Ⅰ
+    (=gb2312           . #x2271)       ; &I-G0-2271; [02-81]
+    (=ks-x1001         . #x2530)       ; &I-K0-2530; [05-16]
+    (=cns11643-1       . #x242B)       ; &I-C1-242B; [04-11]
+    (=jis-x0213-1      . #x2D35)       ; &I-JX1-2D35; [13-21]
+    (=big5             . #xA2B9)       ; &I-B-A2B9;
+    (=jef-china3       . #x77DE)       ; &I-JC3-77DE;
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL ONE")
       (=ucs              . #x2170)     ; ⅰ
       ))
-    (chinese-gb2312    . #x2271)       ; 
-    (=ks-x1001         . #x2530)       ; 
-    (chinese-cns11643-1 . #x242B)      ; 
-    (=jis-x0213-1-2000 . #x2D35)       ; 
-    (chinese-big5      . #xA2B9)       ; 
-    (=jef-china3       . #x77DE)       ; 
-    (=ucs              . #x2160)       ; Ⅰ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL TWO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 2)
-    (->decomposition   compat #x0049 #x0049)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
+    (=ucs              . #x2161)       ; Ⅱ
+    (=gb2312           . #x2272)       ; &I-G0-2272; [02-82]
+    (=ks-x1001         . #x2531)       ; &I-K0-2531; [05-17]
+    (=cns11643-1       . #x242C)       ; &I-C1-242C; [04-12]
+    (=jis-x0213-1      . #x2D36)       ; &I-JX1-2D36; [13-22]
+    (=big5             . #xA2BA)       ; &I-B-A2BA;
+    (=jef-china3       . #x77DF)       ; &I-JC3-77DF;
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL TWO")
       (=ucs              . #x2171)     ; ⅱ
       ))
-    (chinese-gb2312    . #x2272)       ; 
-    (=ks-x1001         . #x2531)       ; 
-    (chinese-cns11643-1 . #x242C)      ; 
-    (=jis-x0213-1-2000 . #x2D36)       ; 
-    (chinese-big5      . #xA2BA)       ; 
-    (=jef-china3       . #x77DF)       ; 
-    (=ucs              . #x2161)       ; Ⅱ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL THREE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 3)
-    (->decomposition   compat #x0049 #x0049 #x0049)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
+    (=ucs              . #x2162)       ; Ⅲ
+    (=gb2312           . #x2273)       ; &I-G0-2273; [02-83]
+    (=ks-x1001         . #x2532)       ; &I-K0-2532; [05-18]
+    (=cns11643-1       . #x242D)       ; &I-C1-242D; [04-13]
+    (=jis-x0213-1      . #x2D37)       ; &I-JX1-2D37; [13-23]
+    (=big5             . #xA2BB)       ; &I-B-A2BB;
+    (=jef-china3       . #x77E0)       ; &I-JC3-77E0;
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL THREE")
       (=ucs              . #x2172)     ; ⅲ
       ))
-    (chinese-gb2312    . #x2273)       ; 
-    (=ks-x1001         . #x2532)       ; 
-    (chinese-cns11643-1 . #x242D)      ; 
-    (=jis-x0213-1-2000 . #x2D37)       ; 
-    (chinese-big5      . #xA2BB)       ; 
-    (=jef-china3       . #x77E0)       ; 
-    (=ucs              . #x2162)       ; Ⅲ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL FOUR")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 4)
-    (->decomposition   compat #x0049 #x0056)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER V")
+      (=ucs              . #x0056)     ; V
+      ))
+    (=ucs              . #x2163)       ; Ⅳ
+    (=gb2312           . #x2274)       ; &I-G0-2274; [02-84]
+    (=ks-x1001         . #x2533)       ; &I-K0-2533; [05-19]
+    (=cns11643-1       . #x242E)       ; &I-C1-242E; [04-14]
+    (=jis-x0213-1      . #x2D38)       ; &I-JX1-2D38; [13-24]
+    (=big5             . #xA2BC)       ; &I-B-A2BC;
+    (=jef-china3       . #x77E1)       ; &I-JC3-77E1;
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL FOUR")
       (=ucs              . #x2173)     ; ⅳ
       ))
-    (chinese-gb2312    . #x2274)       ; 
-    (=ks-x1001         . #x2533)       ; 
-    (chinese-cns11643-1 . #x242E)      ; 
-    (=jis-x0213-1-2000 . #x2D38)       ; 
-    (chinese-big5      . #xA2BC)       ; 
-    (=jef-china3       . #x77E1)       ; 
-    (=ucs              . #x2163)       ; Ⅳ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL FIVE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 5)
-    (->decomposition   compat #x0056)
+    (=ucs              . #x2164)       ; Ⅴ
+    (=gb2312           . #x2275)       ; &I-G0-2275; [02-85]
+    (=ks-x1001         . #x2534)       ; &I-K0-2534; [05-20]
+    (=cns11643-1       . #x242F)       ; &I-C1-242F; [04-15]
+    (=jis-x0213-1      . #x2D39)       ; &I-JX1-2D39; [13-25]
+    (=big5             . #xA2BD)       ; &I-B-A2BD;
+    (=jef-china3       . #x77E2)       ; &I-JC3-77E2;
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER V")
+      (=ucs              . #x0056)     ; V
+      ))
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL FIVE")
       (=ucs              . #x2174)     ; ⅴ
       ))
-    (chinese-gb2312    . #x2275)       ; 
-    (=ks-x1001         . #x2534)       ; 
-    (chinese-cns11643-1 . #x242F)      ; 
-    (=jis-x0213-1-2000 . #x2D39)       ; 
-    (chinese-big5      . #xA2BD)       ; 
-    (=jef-china3       . #x77E2)       ; 
-    (=ucs              . #x2164)       ; Ⅴ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL SIX")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 6)
-    (->decomposition   compat #x0056 #x0049)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER V")
+      (=ucs              . #x0056)     ; V
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
+    (=ucs              . #x2165)       ; Ⅵ
+    (=gb2312           . #x2276)       ; &I-G0-2276; [02-86]
+    (=ks-x1001         . #x2535)       ; &I-K0-2535; [05-21]
+    (=cns11643-1       . #x2430)       ; &I-C1-2430; [04-16]
+    (=jis-x0213-1      . #x2D3A)       ; &I-JX1-2D3A; [13-26]
+    (=big5             . #xA2BE)       ; &I-B-A2BE;
+    (=jef-china3       . #x77E3)       ; &I-JC3-77E3;
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL SIX")
       (=ucs              . #x2175)     ; ⅵ
       ))
-    (chinese-gb2312    . #x2276)       ; 
-    (=ks-x1001         . #x2535)       ; 
-    (chinese-cns11643-1 . #x2430)      ; 
-    (=jis-x0213-1-2000 . #x2D3A)       ; 
-    (chinese-big5      . #xA2BE)       ; 
-    (=jef-china3       . #x77E3)       ; 
-    (=ucs              . #x2165)       ; Ⅵ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL SEVEN")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 7)
-    (->decomposition   compat #x0056 #x0049 #x0049)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER V")
+      (=ucs              . #x0056)     ; V
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
+    (=ucs              . #x2166)       ; Ⅶ
+    (=gb2312           . #x2277)       ; &I-G0-2277; [02-87]
+    (=ks-x1001         . #x2536)       ; &I-K0-2536; [05-22]
+    (=cns11643-1       . #x2431)       ; &I-C1-2431; [04-17]
+    (=jis-x0213-1      . #x2D3B)       ; &I-JX1-2D3B; [13-27]
+    (=big5             . #xA2BF)       ; &I-B-A2BF;
+    (=jef-china3       . #x77E4)       ; &I-JC3-77E4;
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL SEVEN")
       (=ucs              . #x2176)     ; ⅶ
       ))
-    (chinese-gb2312    . #x2277)       ; 
-    (=ks-x1001         . #x2536)       ; 
-    (chinese-cns11643-1 . #x2431)      ; 
-    (=jis-x0213-1-2000 . #x2D3B)       ; 
-    (chinese-big5      . #xA2BF)       ; 
-    (=jef-china3       . #x77E4)       ; 
-    (=ucs              . #x2166)       ; Ⅶ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL EIGHT")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 8)
-    (->decomposition   compat #x0056 #x0049 #x0049 #x0049)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER V")
+      (=ucs              . #x0056)     ; V
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
+    (=ucs              . #x2167)       ; Ⅷ
+    (=gb2312           . #x2278)       ; &I-G0-2278; [02-88]
+    (=ks-x1001         . #x2537)       ; &I-K0-2537; [05-23]
+    (=cns11643-1       . #x2432)       ; &I-C1-2432; [04-18]
+    (=jis-x0213-1      . #x2D3C)       ; &I-JX1-2D3C; [13-28]
+    (=big5             . #xA2C0)       ; &I-B-A2C0;
+    (=jef-china3       . #x77E5)       ; &I-JC3-77E5;
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL EIGHT")
       (=ucs              . #x2177)     ; ⅷ
       ))
-    (chinese-gb2312    . #x2278)       ; 
-    (=ks-x1001         . #x2537)       ; 
-    (chinese-cns11643-1 . #x2432)      ; 
-    (=jis-x0213-1-2000 . #x2D3C)       ; 
-    (chinese-big5      . #xA2C0)       ; 
-    (=jef-china3       . #x77E5)       ; 
-    (=ucs              . #x2167)       ; Ⅷ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL NINE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 9)
-    (->decomposition   compat #x0049 #x0058)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER X")
+      (=ucs              . #x0058)     ; X
+      ))
+    (=ucs              . #x2168)       ; Ⅸ
+    (=gb2312           . #x2279)       ; &I-G0-2279; [02-89]
+    (=ks-x1001         . #x2538)       ; &I-K0-2538; [05-24]
+    (=cns11643-1       . #x2433)       ; &I-C1-2433; [04-19]
+    (=jis-x0213-1      . #x2D3D)       ; &I-JX1-2D3D; [13-29]
+    (=big5             . #xA2C1)       ; &I-B-A2C1;
+    (=jef-china3       . #x77E6)       ; &I-JC3-77E6;
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL NINE")
       (=ucs              . #x2178)     ; ⅸ
       ))
-    (chinese-gb2312    . #x2279)       ; 
-    (=ks-x1001         . #x2538)       ; 
-    (chinese-cns11643-1 . #x2433)      ; 
-    (=jis-x0213-1-2000 . #x2D3D)       ; 
-    (chinese-big5      . #xA2C1)       ; 
-    (=jef-china3       . #x77E6)       ; 
-    (=ucs              . #x2168)       ; Ⅸ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL TEN")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 10)
-    (->decomposition   compat #x0058)
+    (=ucs              . #x2169)       ; Ⅹ
+    (=gb2312           . #x227A)       ; &I-G0-227A; [02-90]
+    (=ks-x1001         . #x2539)       ; &I-K0-2539; [05-25]
+    (=cns11643-1       . #x2434)       ; &I-C1-2434; [04-20]
+    (=jis-x0213-1      . #x2D3E)       ; &I-JX1-2D3E; [13-30]
+    (=big5             . #xA2C2)       ; &I-B-A2C2;
+    (=jef-china3       . #x77E7)       ; &I-JC3-77E7;
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER X")
+      (=ucs              . #x0058)     ; X
+      ))
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL TEN")
       (=ucs              . #x2179)     ; ⅹ
       ))
-    (chinese-gb2312    . #x227A)       ; 
-    (=ks-x1001         . #x2539)       ; 
-    (chinese-cns11643-1 . #x2434)      ; 
-    (=jis-x0213-1-2000 . #x2D3E)       ; 
-    (chinese-big5      . #xA2C2)       ; 
-    (=jef-china3       . #x77E7)       ; 
-    (=ucs              . #x2169)       ; Ⅹ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL ELEVEN")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 11)
-    (->decomposition   compat #x0058 #x0049)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER X")
+      (=ucs              . #x0058)     ; X
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
+    (=ucs              . #x216A)       ; Ⅺ
+    (=gb2312           . #x227B)       ; &I-G0-227B; [02-91]
+    (=jis-x0213-1      . #x2D3F)       ; &I-JX1-2D3F; [13-31]
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL ELEVEN")
       (=ucs              . #x217A)     ; ⅺ
       ))
-    (chinese-gb2312    . #x227B)       ; 
-    (=jis-x0213-1-2000 . #x2D3F)       ; 
-    (=ucs              . #x216A)       ; Ⅺ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL TWELVE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 12)
-    (->decomposition   compat #x0058 #x0049 #x0049)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER X")
+      (=ucs              . #x0058)     ; X
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
+    (=ucs              . #x216B)       ; Ⅻ
+    (=gb2312           . #x227C)       ; &I-G0-227C; [02-92]
+    (=jis-x0213-1      . #x2D57)       ; &I-JX1-2D57; [13-55]
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL TWELVE")
       (=ucs              . #x217B)     ; ⅻ
       ))
-    (chinese-gb2312    . #x227C)       ; 
-    (=jis-x0213-1-2000 . #x2D57)       ; 
-    (=ucs              . #x216B)       ; Ⅻ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL FIFTY")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 50)
-    (->decomposition   compat #x004C)
+    (=ucs              . #x216C)       ; Ⅼ
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER L")
+      (=ucs              . #x004C)     ; L
+      ))
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL FIFTY")
       (=ucs              . #x217C)     ; ⅼ
       ))
-    (=ucs              . #x216C)       ; Ⅼ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL ONE HUNDRED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 100)
-    (->decomposition   compat #x0043)
+    (=ucs              . #x216D)       ; Ⅽ
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER C")
+      (=ucs              . #x0043)     ; C
+      ))
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL ONE HUNDRED")
       (=ucs              . #x217D)     ; ⅽ
       ))
-    (=ucs              . #x216D)       ; Ⅽ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL FIVE HUNDRED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 500)
-    (->decomposition   compat #x0044)
+    (=ucs              . #x216E)       ; Ⅾ
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER D")
+      (=ucs              . #x0044)     ; D
+      ))
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL FIVE HUNDRED")
       (=ucs              . #x217E)     ; ⅾ
       ))
-    (=ucs              . #x216E)       ; Ⅾ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL ONE THOUSAND")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 1000)
-    (->decomposition   compat #x004D)
+    (=ucs              . #x216F)       ; Ⅿ
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER M")
+      (=ucs              . #x004D)     ; M
+      ))
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL ONE THOUSAND")
       (=ucs              . #x217F)     ; ⅿ
       ))
-    (=ucs              . #x216F)       ; Ⅿ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL ONE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 1)
-    (->decomposition   compat #x0069)
+    (=ucs              . #x2170)       ; ⅰ
+    (=ks-x1001         . #x2521)       ; &I-K0-2521; [05-01]
+    (=cns11643-1       . #x2635)       ; &I-C1-2635; [06-21]
+    (=jis-x0213-1      . #x2C35)       ; &I-JX1-2C35; [12-21]
+    (=big5-eten                . #xC6B5)       ; &B-C6B5;
+    (=jef-china3       . #x77EB)       ; &I-JC3-77EB;
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
     (->uppercase
      ((name              . "ROMAN NUMERAL ONE")
       (=ucs              . #x2160)     ; Ⅰ
       ))
-    (=ks-x1001         . #x2521)       ; 
-    (chinese-cns11643-1 . #x2635)      ; 
-    (=jis-x0213-1-2000 . #x2C35)       ; 
-    (=big5-eten                . #xC6B5)       ; 
-    (=jef-china3       . #x77EB)       ; 
-    (=ucs              . #x2170)       ; ⅰ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL TWO")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 2)
-    (->decomposition   compat #x0069 #x0069)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
+    (=ucs              . #x2171)       ; ⅱ
+    (=ks-x1001         . #x2522)       ; &I-K0-2522; [05-02]
+    (=cns11643-1       . #x2636)       ; &I-C1-2636; [06-22]
+    (=jis-x0213-1      . #x2C36)       ; &I-JX1-2C36; [12-22]
+    (=big5-eten                . #xC6B6)       ; &B-C6B6;
+    (=jef-china3       . #x77EC)       ; &I-JC3-77EC;
     (->uppercase
      ((name              . "ROMAN NUMERAL TWO")
       (=ucs              . #x2161)     ; Ⅱ
       ))
-    (=ks-x1001         . #x2522)       ; 
-    (chinese-cns11643-1 . #x2636)      ; 
-    (=jis-x0213-1-2000 . #x2C36)       ; 
-    (=big5-eten                . #xC6B6)       ; 
-    (=jef-china3       . #x77EC)       ; 
-    (=ucs              . #x2171)       ; ⅱ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL THREE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 3)
-    (->decomposition   compat #x0069 #x0069 #x0069)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
+    (=ucs              . #x2172)       ; ⅲ
+    (=ks-x1001         . #x2523)       ; &I-K0-2523; [05-03]
+    (=cns11643-1       . #x2637)       ; &I-C1-2637; [06-23]
+    (=jis-x0213-1      . #x2C37)       ; &I-JX1-2C37; [12-23]
+    (=big5-eten                . #xC6B7)       ; &B-C6B7;
+    (=jef-china3       . #x77ED)       ; &I-JC3-77ED;
     (->uppercase
      ((name              . "ROMAN NUMERAL THREE")
       (=ucs              . #x2162)     ; Ⅲ
       ))
-    (=ks-x1001         . #x2523)       ; 
-    (chinese-cns11643-1 . #x2637)      ; 
-    (=jis-x0213-1-2000 . #x2C37)       ; 
-    (=big5-eten                . #xC6B7)       ; 
-    (=jef-china3       . #x77ED)       ; 
-    (=ucs              . #x2172)       ; ⅲ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL FOUR")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 4)
-    (->decomposition   compat #x0069 #x0076)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER V")
+      (=ucs              . #x0076)     ; v
+      ))
+    (=ucs              . #x2173)       ; ⅳ
+    (=ks-x1001         . #x2524)       ; &I-K0-2524; [05-04]
+    (=cns11643-1       . #x2638)       ; &I-C1-2638; [06-24]
+    (=jis-x0213-1      . #x2C38)       ; &I-JX1-2C38; [12-24]
+    (=big5-eten                . #xC6B8)       ; &B-C6B8;
+    (=jef-china3       . #x77EE)       ; &I-JC3-77EE;
     (->uppercase
      ((name              . "ROMAN NUMERAL FOUR")
       (=ucs              . #x2163)     ; Ⅳ
       ))
-    (=ks-x1001         . #x2524)       ; 
-    (chinese-cns11643-1 . #x2638)      ; 
-    (=jis-x0213-1-2000 . #x2C38)       ; 
-    (=big5-eten                . #xC6B8)       ; 
-    (=jef-china3       . #x77EE)       ; 
-    (=ucs              . #x2173)       ; ⅳ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL FIVE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 5)
-    (->decomposition   compat #x0076)
+    (=ucs              . #x2174)       ; ⅴ
+    (=ks-x1001         . #x2525)       ; &I-K0-2525; [05-05]
+    (=cns11643-1       . #x2639)       ; &I-C1-2639; [06-25]
+    (=jis-x0213-1      . #x2C39)       ; &I-JX1-2C39; [12-25]
+    (=big5-eten                . #xC6B9)       ; &B-C6B9;
+    (=jef-china3       . #x77EF)       ; &I-JC3-77EF;
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER V")
+      (=ucs              . #x0076)     ; v
+      ))
     (->uppercase
      ((name              . "ROMAN NUMERAL FIVE")
       (=ucs              . #x2164)     ; Ⅴ
       ))
-    (=ks-x1001         . #x2525)       ; 
-    (chinese-cns11643-1 . #x2639)      ; 
-    (=jis-x0213-1-2000 . #x2C39)       ; 
-    (=big5-eten                . #xC6B9)       ; 
-    (=jef-china3       . #x77EF)       ; 
-    (=ucs              . #x2174)       ; ⅴ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL SIX")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 6)
-    (->decomposition   compat #x0076 #x0069)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER V")
+      (=ucs              . #x0076)     ; v
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
+    (=ucs              . #x2175)       ; ⅵ
+    (=ks-x1001         . #x2526)       ; &I-K0-2526; [05-06]
+    (=cns11643-1       . #x263A)       ; &I-C1-263A; [06-26]
+    (=jis-x0213-1      . #x2C3A)       ; &I-JX1-2C3A; [12-26]
+    (=big5-eten                . #xC6BA)       ; &B-C6BA;
+    (=jef-china3       . #x77F0)       ; &I-JC3-77F0;
     (->uppercase
      ((name              . "ROMAN NUMERAL SIX")
       (=ucs              . #x2165)     ; Ⅵ
       ))
-    (=ks-x1001         . #x2526)       ; 
-    (chinese-cns11643-1 . #x263A)      ; 
-    (=jis-x0213-1-2000 . #x2C3A)       ; 
-    (=big5-eten                . #xC6BA)       ; 
-    (=jef-china3       . #x77F0)       ; 
-    (=ucs              . #x2175)       ; ⅵ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL SEVEN")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 7)
-    (->decomposition   compat #x0076 #x0069 #x0069)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER V")
+      (=ucs              . #x0076)     ; v
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
+    (=ucs              . #x2176)       ; ⅶ
+    (=ks-x1001         . #x2527)       ; &I-K0-2527; [05-07]
+    (=cns11643-1       . #x263B)       ; &I-C1-263B; [06-27]
+    (=jis-x0213-1      . #x2C3B)       ; &I-JX1-2C3B; [12-27]
+    (=big5-eten                . #xC6BB)       ; &B-C6BB;
+    (=jef-china3       . #x77F1)       ; &I-JC3-77F1;
     (->uppercase
      ((name              . "ROMAN NUMERAL SEVEN")
       (=ucs              . #x2166)     ; Ⅶ
       ))
-    (=ks-x1001         . #x2527)       ; 
-    (chinese-cns11643-1 . #x263B)      ; 
-    (=jis-x0213-1-2000 . #x2C3B)       ; 
-    (=big5-eten                . #xC6BB)       ; 
-    (=jef-china3       . #x77F1)       ; 
-    (=ucs              . #x2176)       ; ⅶ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL EIGHT")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 8)
-    (->decomposition   compat #x0076 #x0069 #x0069 #x0069)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER V")
+      (=ucs              . #x0076)     ; v
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
+    (=ucs              . #x2177)       ; ⅷ
+    (=ks-x1001         . #x2528)       ; &I-K0-2528; [05-08]
+    (=cns11643-1       . #x263C)       ; &I-C1-263C; [06-28]
+    (=jis-x0213-1      . #x2C3C)       ; &I-JX1-2C3C; [12-28]
+    (=big5-eten                . #xC6BC)       ; &B-C6BC;
+    (=jef-china3       . #x77F2)       ; &I-JC3-77F2;
     (->uppercase
      ((name              . "ROMAN NUMERAL EIGHT")
       (=ucs              . #x2167)     ; Ⅷ
       ))
-    (=ks-x1001         . #x2528)       ; 
-    (chinese-cns11643-1 . #x263C)      ; 
-    (=jis-x0213-1-2000 . #x2C3C)       ; 
-    (=big5-eten                . #xC6BC)       ; 
-    (=jef-china3       . #x77F2)       ; 
-    (=ucs              . #x2177)       ; ⅷ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL NINE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 9)
-    (->decomposition   compat #x0069 #x0078)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER X")
+      (=ucs              . #x0078)     ; x
+      ))
+    (=ucs              . #x2178)       ; ⅸ
+    (=ks-x1001         . #x2529)       ; &I-K0-2529; [05-09]
+    (=cns11643-1       . #x263D)       ; &I-C1-263D; [06-29]
+    (=jis-x0213-1      . #x2C3D)       ; &I-JX1-2C3D; [12-29]
+    (=big5-eten                . #xC6BD)       ; &B-C6BD;
+    (=jef-china3       . #x77F3)       ; &I-JC3-77F3;
     (->uppercase
      ((name              . "ROMAN NUMERAL NINE")
       (=ucs              . #x2168)     ; Ⅸ
       ))
-    (=ks-x1001         . #x2529)       ; 
-    (chinese-cns11643-1 . #x263D)      ; 
-    (=jis-x0213-1-2000 . #x2C3D)       ; 
-    (=big5-eten                . #xC6BD)       ; 
-    (=jef-china3       . #x77F3)       ; 
-    (=ucs              . #x2178)       ; ⅸ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL TEN")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 10)
-    (->decomposition   compat #x0078)
+    (=ucs              . #x2179)       ; ⅹ
+    (=ks-x1001         . #x252A)       ; &I-K0-252A; [05-10]
+    (=cns11643-1       . #x263E)       ; &I-C1-263E; [06-30]
+    (=jis-x0213-1      . #x2C3E)       ; &I-JX1-2C3E; [12-30]
+    (=big5-eten                . #xC6BE)       ; &B-C6BE;
+    (=jef-china3       . #x77F4)       ; &I-JC3-77F4;
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER X")
+      (=ucs              . #x0078)     ; x
+      ))
     (->uppercase
      ((name              . "ROMAN NUMERAL TEN")
       (=ucs              . #x2169)     ; Ⅹ
       ))
-    (=ks-x1001         . #x252A)       ; 
-    (chinese-cns11643-1 . #x263E)      ; 
-    (=jis-x0213-1-2000 . #x2C3E)       ; 
-    (=big5-eten                . #xC6BE)       ; 
-    (=jef-china3       . #x77F4)       ; 
-    (=ucs              . #x2179)       ; ⅹ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL ELEVEN")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 11)
-    (->decomposition   compat #x0078 #x0069)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER X")
+      (=ucs              . #x0078)     ; x
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
+    (=ucs              . #x217A)       ; ⅺ
+    (=jis-x0213-1      . #x2C3F)       ; &I-JX1-2C3F; [12-31]
     (->uppercase
      ((name              . "ROMAN NUMERAL ELEVEN")
       (=ucs              . #x216A)     ; Ⅺ
       ))
-    (=jis-x0213-1-2000 . #x2C3F)       ; 
-    (=ucs              . #x217A)       ; ⅺ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL TWELVE")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 12)
-    (->decomposition   compat #x0078 #x0069 #x0069)
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER X")
+      (=ucs              . #x0078)     ; x
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
+    (=ucs              . #x217B)       ; ⅻ
+    (=jis-x0213-1      . #x2C40)       ; &I-JX1-2C40; [12-32]
     (->uppercase
      ((name              . "ROMAN NUMERAL TWELVE")
       (=ucs              . #x216B)     ; Ⅻ
       ))
-    (=jis-x0213-1-2000 . #x2C40)       ; 
-    (=ucs              . #x217B)       ; ⅻ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL FIFTY")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 50)
-    (->decomposition   compat #x006C)
+    (=ucs              . #x217C)       ; ⅼ
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER L")
+      (=ucs              . #x006C)     ; l
+      ))
     (->uppercase
      ((name              . "ROMAN NUMERAL FIFTY")
       (=ucs              . #x216C)     ; Ⅼ
       ))
-    (=ucs              . #x217C)       ; ⅼ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL ONE HUNDRED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 100)
-    (->decomposition   compat #x0063)
+    (=ucs              . #x217D)       ; ⅽ
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER C")
+      (=ucs              . #x0063)     ; c
+      ))
     (->uppercase
      ((name              . "ROMAN NUMERAL ONE HUNDRED")
       (=ucs              . #x216D)     ; Ⅽ
       ))
-    (=ucs              . #x217D)       ; ⅽ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL FIVE HUNDRED")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 500)
-    (->decomposition   compat #x0064)
+    (=ucs              . #x217E)       ; ⅾ
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER D")
+      (=ucs              . #x0064)     ; d
+      ))
     (->uppercase
      ((name              . "ROMAN NUMERAL FIVE HUNDRED")
       (=ucs              . #x216E)     ; Ⅾ
       ))
-    (=ucs              . #x217E)       ; ⅾ
     ))
 (define-char
   '((name              . "SMALL ROMAN NUMERAL ONE THOUSAND")
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 1000)
-    (->decomposition   compat #x006D)
+    (=ucs              . #x217F)       ; ⅿ
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER M")
+      (=ucs              . #x006D)     ; m
+      ))
     (->uppercase
      ((name              . "ROMAN NUMERAL ONE THOUSAND")
       (=ucs              . #x216F)     ; Ⅿ
       ))
-    (=ucs              . #x217F)       ; ⅿ
     ))
 (define-char
   '((name              . "ROMAN NUMERAL ONE THOUSAND C D")