OpenConsole()
Repeat
  a.q+1
  PrintN(Str(a))
ForEver