RosettaCodeData/Task/Loops-While/CLU/loops-while.clu

start_up = proc ()
    po: stream := stream$primary_output()
    n: int := 1024
    while n>0 do
        stream$putl(po, int$unparse(n))
        n := n/2
    end
end start_up