;;; -*- mode: lisp -*-
;;; $Id: sumcol.poplisp,v 1.0 2002/05/08 11:18:00 dada Exp $

  ;; fastest compilation mode 
  (declare (optimize (speed 3) (debug 0) (safety 0)))
  (let ((sum 0))
    (declare (fixnum sum))
    (do (
            (line 
                (read-line *standard-input* nil 'eof)
            )
        )
        (
            (eq line 'eof) (format t "~A~%" sum)
        )
        (incf sum (the fixnum (parse-integer line)))
    )
)