세자리 수 마다 콤마를 찍는 코드는  제 블로그에 포스팅 한 적 이 있습니다.

세자리 수 마다 콤마를 찍는 것을 수만 바꿔 네자리 수 마다 찍으면 되고, 찍히는 문자를 콤마가 아닌 한글로 바꾸시면 됩니다.
1의 자리부터 자리를 찍으니 만, 억, 조, 경... 순으로 찍힐것입니다.
또한 정수(integer)타입은 최대 1백경 자리수 까지만 저장 할 수 있기때문에 더 큰 자릿수는 필요없습니다.

function setMoneyUnit(n:number) :: text:
    set {_t} to "%{_n}%"
    loop round up length of {_t} / 3 times:
        set {_l} to last 3 characters of {_t}
        set {_t} to first length of {_t} - 3 characters of {_t}
        if loop-number = 1:
            set {_r} to "%{_l}%"
        else:
            set {_r} to "%{_l}%,%{_r}%"
    return {_r}

이 코드가 예전에 포스팅한 세자리수 마다 찍는 코드입니다.

function setMoneyUnitKr(n:number) :: text:
    set {_t} to "%{_n}%"
    set {_char::*} to "만" and "억", "조", "경"
    set {_loop} to (round up length of {_t} / 4) - 1
    loop integers from 0 to {_loop}:
        set {_l} to last 4 characters of {_t}
        set {_t} to first length of {_t} - 4 characters of {_t}
        if {_r} is not set:
            set {_r} to {_l}
        else:
            set {_r} to join {_l} and {_char::%loop-number%}, {_r}
    return {_r}

네자리수 마다 찍히게 바꾼 코드입니다.

> 2239467803479630245 → 223경 9467조8034억7963만0245