> n := 1024: while n > 0 do print(n); n := iquo(n,2) end:
                                  1024
                                  512
                                  256
                                  128
                                   64
                                   32
                                   16
                                   8
                                   4
                                   2
                                   1