powered by
loan(rate, maturity, amt, type, grace_int = 0, grace_amort = grace_int)
c("bullet","french","german")