set {_parce} to "%round({_parce} * 100)%"
set {_parce::*} to split {_parce} at ""
set {_i} to length of {_parce} - 2

set {_parce::%{_i}%} to 0 if {_parce::%{_i}%} isn't set

set {_parce::%{_i}%} to "%{_parce::%{_i}%}%."
set {_parce} to join {_parce::*} with ""

set {_parce} to "%round({_parce} * 100)%"
set {_parce::*} to split {_parce} at ""
set {_i} to length of {_parce} - 2

set {_parce::%{_i}%} to 0 if {_parce::%{_i}%} isn't set

set {_parce::%{_i}%} to "%{_parce::%{_i}%}%."
set {_parce} to join {_parce::*} with ""