MODULE IntegerSeq;
IMPORT
  Out,
  Object:BigInt;

  PROCEDURE IntegerSequence*;
  VAR
    i: LONGINT;
  BEGIN
    FOR i := 0 TO MAX(LONGINT) DO
      Out.LongInt(i,0);Out.String(", ")
    END;
    Out.Ln
  END IntegerSequence;

  PROCEDURE BigIntSequence*;
  VAR
    i: BigInt.BigInt;
  BEGIN
    i := BigInt.zero;
    LOOP
      Out.Object(i.ToString() + ", ");
      i := i.Add(BigInt.one);
    END
  END BigIntSequence;

END IntegerSeq.