https://chiperoni.ch/wordpress/2009/04/calculating-present-value/