Объясните пожалуйста, что не так со мной или входящим потоком?

## Код:
```
(* найти сумму всех положительных чисел из входящего потока*)

MODULE Ex;
   IMPORT  Log := StdLog,  In := i21sysIn,  Math;
   PROCEDURE Pos*;
      VAR  k, sum:INTEGER;
   BEGIN
      In.Open; ASSERT (In.done);
      sum:=0;
      WHILE In.Done DO
         In.Int(k);
         IF k>0 THEN
            INC( sum,k );
         END;
      END;
      Log.Int(sum);
   END Pos;
END Ex.
```

Сам входящий поток:

-2 2 2 -2 результат 4

-2 2 2 -2 2 результат 8

