(define harmonic-sum-it
  (lambda (n)
    (cond
      ((or (not (integer? n)) (< n 1))
         '("Error: argument must a positive whole number."))
      ((= n 1) 1)
      (else (+ (/ 1 n) (harmonic-sum-it (- n 1))))
    )
  )
)



;============== Unit Tests ======================
(load "test.scm")
(define msg "harmonic-sum-it")
(harmonic-sum-it 1) 
(harmonic-sum-it 2)
(harmonic-sum-it 3)
(harmonic-sum-it 4)
(harmonic-sum-it 5)