Interest::Simple#calc_principal
Revised calc_principal