: discount-value2 ( rate period payment -- discounted-value )
    [ 1 + ] 2dip [ ^ ] dip [ 1.0 swap / ] dip * ;