RosettaCodeData/Task/Loops-While/J/loops-while-3.j

monad define 1024
  while. 0 < y do.
    echo y
    y =. <. -: y
  end.
  i.0 0
)