% $Id: sumcol.slang,v 1.0 2002/11/26 10:35:00 dada Exp $
% http://dada.perl.it/shootout/
%
% contributed by John E. Davis

define  main()
{
   variable count = 0;
   foreach (stdin) using ("line")
     {
    count += integer ();
     }
   vmessage ("%d", count);
}
main();