RosettaCodeData/Task/Integer-sequence/OpenEdge-Progress/integer-sequence-3.openedge

DEF VAR de AS DECIMAL FORMAT "->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>9" NO-UNDO.

DO WHILE TRUE:
   de = de + 1.
   DISPLAY de.
END.