I reckon this is the clearest version of them all. Fry expresses the intent well, and is more compact than the locals version.

: discount-value5 ( rate period payment -- discounted-value )
    '[ 1.0 _ _ ^ / _ * ] call ;