RosettaCodeData/Task/Integer-sequence/GAP/integer-sequence.gap
2023-07-01 13:44:08 -04:00

11 lines
138 B
Text

InfiniteLoop := function()
local n;
n := 1;
while true do
Display(n);
n := n + 1;
od;
end;
# Prepare some coffee
InfiniteLoop();