RosettaCodeData/Task/Loops-While/ObjectIcon/loops-while-1.oi

8 lines
87 B
Plaintext

import io
procedure main()
local n
n := 1024
while n := write(0 < n) / 2
end