% $Id: sumcol.cim,v 1.0 2002/10/29 13:41:00 dada Exp $
external class UNIX;
begin

    integer i, tot;
    inspect SysIn do
    while not SysIn.LastItem do
    begin
        i := InInt;
        tot := tot + i;
    end;
    OutInt(tot, 0);
    OutImage;
end