;; compile with: scc sum1.sc

(module hello
        (main main))

(define (sumport port sum-so-far)
  (let ((x (read port)))
    (if (eof-object? x)
        sum-so-far
        (sumport port (+ x sum-so-far)))))

(define (sum port)
  (sumport port 0.0))

(define (go input)
  (call-with-input-file input sum))

(define (main clargs)
  (do ((i 0 (+ i 1)))
      ((= i 25))
    (display (go "/home/osboxes/r7rs-benchmarks/inputs/sum1.data"))
    (newline)))