;;; 2_1.scm
;;; $Id: 2_1.scm 1.1 2014/02/08 09:56:25 s Exp $

(define (main args)
  (define a 1)
  (define r 0.033)
  (define n (- 2014 1776))
  (define pv (* a (expt (+ 1 r) n)))
  (print "2.1(a)")
  (print "input")
  (print "a = " a)
  (print "r = " r)
  (print "n = " n)
  (print "output")
  (print "pv = " pv)
  0)

;;; end