#interest payment

loan <- function(prin, rate, years) {
  pymnt <- prin * exp(rate*years/100) / 150

  for (i in 1:(12*years)) {
    total <- prin * exp((rate/1200)*i)
    total <- total - pymnt
  }

  return(list("total"=total, "payment"=pymnt))
}