Improving function toMoney