proc test [val msg ""] {
    show-alert $msg
    //same results, values modified.
    //show-alert [$msg | str]
    //show-alert [concat $msg]
}

//value display is same
show-alert 010
//value is modified in 8, base 8
test 010
test "010"
//value display is same
show-alert 2222222222
//value is modified in 2.222222222E9
test 2222222222
test "2222222222"
//value display is same
show-alert "0x010"
//value is modified in 16, base 16
test "0x010"

//it's good but i need to remember
test [concat 010]
test [concat 2222222222]
test [concat 0x010]