#!/usr/local/bin/guile \
-e main -s
!#

;;; $Id: sumcol.guile,v 1.4 2001/02/10 13:50:34 doug Exp $
;;; http://www.bagley.org/~doug/shootout/
;;; from Brad Knotwell

(define (main args)
  (let ((sum 0))
    (do ((myInt (read-line) (read-line)))
    ((eof-object? myInt) (write-line sum))
      (set! sum (+ sum (string->;number myInt))))))