RosettaCodeData/Task/Integer-sequence/Cowgol/integer-sequence-1.cowgol

include "cowgol.coh";

var n: uint32 := 1;
while n != 0 loop;
    print_i32(n);
    print_nl();
    n := n + 1;
end loop;