[)
        set n [expr $n%10000]
    }
    set skipped 0
    foreach {i c} [list 1000 $dic(!1000) 100 $dic(!100) 10 $dic(10)] {
        if {$n/$i} {
            if {$res!="" && $skipped} {append res $dic(0)}
            append res $dic([expr $n/$i])$c
            set n [expr $n%$i]
            set skipped 0
        } else {
    	    set skipped 1
        }
    }
    if {$n} {
        if {$skipped} {append res $dic(0)} ;# filler zero
        append res $dic($n)
    }
    regsub ^$dic(1)$dic(10)     $res $dic(10)  res ;# avoid "yishi"
    regsub ^$dic(2)$dic(!10000) $res $dic(!2)$dic(!10000) res
    regsub $dic(2)$dic(!1000)   $res $dic(!2)$dic(!1000)  res
    set res
 }
if 0 {Note however that this is more a proof of concept than a practical
requirement for Chinese localization. Every Chinese using a computer is
able and willing to understand numbers in the international style, so the
above is useful only in full-text translation - or as a weekend fun project
;-)
----
[Natural languages] - [Chinlish] - [Arts and crafts of Tcl-Tk programming]
- [Category Mathematics]