on currency_format for v
tell (((v mod 1 as text) * 100) ^ 2) ^ 0.5 + 0.5 to (v div 1 as
text) & (0.0 as text)'s character 2 & it div 1
end currency_format
currency_format for -123.4
--> "-123,40" / "-123.40" (* depending on local currency formatting *)
