(define (term i j)
	(/ 1.0 (* i j)))

(define (sumit sum it max j)
  (if (eq? it max)
      (display sum)
      (sumit  (+ sum (/ 1.0 (* it j))) (+ it 1) max j)))

(define (sum1 sum start finish)
  (sumit sum 1 10000000 start)
  (display "\n")
  (if (eq? start finish)
    (display "done")
    (sum1 sum (+ start 1) finish)))
      
(define (bark argv) (sum1 0 1 10) (newline))