Как разбить длинное число на группы по три разряда

Реализовал в виде функции.
Пример использования:

a = 1234567890
*nl $FUNC('splitDigitGroup', a)

Результат: 1 234 567 890
Локация splitDigitGroup:

!'Разбивка числа на группы по три цифры'
$SDGNumber = STR(ARGS[0])
$SDGtemplate = '(\d)(\d{3})(?!\d)'
:NextSDG
SDGpos = STRPOS($SDGNumber,$SDGtemplate,2)
if SDGpos:
    $SDGNumber = $MID($SDGNumber,1,SDGpos-1) +' '+ $MID($SDGNumber,SDGpos)
    jump 'NextSDG'
end
$result = $SDGNumber