;;; 2_3.scm
;;; $Id: 2_3.scm 1.1 2014/02/09 02:57:34 s Exp $

(define (main args)
  (define r 0.03)
  (define n 12)
  (define er (* (- (expt (+ 1 (/ r 12)) n) 1) 100))

  (print "2.3(a)")
  (print "input")
  (print "r = " r)
  (print "n = " n)
  (print "result")
  (print "er(%) = " er )
  0)

;;; end