RosettaCodeData/Task/Integer-sequence/Action-/integer-sequence.action

PROC Main()
  CARD i

  i=0
  DO
    PrintF("%U ",i)
    i==+1
  UNTIL i=0
  OD
RETURN