jProfan

;function tsnd(v){

    ;var minu=0
    ;v=int(v)

    ;if (v<0) {

        ;minu=1
        ;v=0-v

    ;}

    ;var s=str(v)
    ;var l=len(s)
    ;var t=int((l-1)/3)
    ;var i=0
    ;for (i=1;i<=t;i++) s=ins(".",s,l-i*3)
    ;if (minu) s="-"+s
    ;return s

;}