;5
(define (%perDays sum days percent)
  (if(= days 0)
     sum
     (%perDays (+ sum (* sum percent 0.01)) (- days 1) percent)))

(define (bankOp sum percent lst)
  (car (foldl (λ(x consSum) (cons ((cadr x) (%perDays (car consSum) (- (car x) (cdr consSum)) percent) (last x)) (car x)))
              (cons sum 1)
              (append lst (list (list 30 + 0))))))