;;;; -*- mode:Lisp; package:user -*- ;;;;
;;;; Created: 10 December 1992
;;;; Purpose: Test Reference File

(SETF TOTAL (* PRINCIPAL (EXPT (+ 1.0 INTEREST) YEARS))) 
((1 2.4) (3 6.8) (6 -13.4)) 
14 
((1 3) (3 3) (6 7)) 
((1 ((1 3))) (2 ((3 3))) (3 ((2 8))))