RosettaCodeData/Task/Loops-While/Fortress/loops-while.fortress

component loops_while
  export Executable

  var i:ZZ32 = 1024
  run() = while i > 0 do
    println(i)
    i := i DIV 2
  end
end