Math::shorten_numeric_str function