zOs/REXX.O08/LOOP

do i=1 by 1
    if i // 10000 = 0 then
        say 'loop' i
        end