Skrava

function myFunction(i: number) :: number:
    set {_i} to {_i} + 1
[INDENT]return {_i}

function splitCoins(int: text) :: text:
    set {_Coins} to "%{_int}%"
    set {_length} to length of {_Coins}
    if {_length} >= 3:
        set {_mod} to {_length} mod 3
        if {_mod} is 0:
            set {_groups::*} to groups 1 of {_Coins} matched to "([0-9]{3})"
            set {_Coins} to "%join {_groups::*} with "".""%"
        else:
            set {_1} to the first {_mod} characters of {_Coins}
            set {_2} to subtext of {_Coins} from characters ({_mod}+1) to {_length}
            set {_groups::*} to groups 1 of {_2} matched to "([0-9]{3})"
            set {_Coins} to "%{_1}%.%join {_groups::*} with "".""%"
    return {_Coins}