i = 1
repeat while i>0
  put i
  i = i+1
end repeat