a := 1024;
forever: exitif not (a > 0);
  show a;
  a := a div 2;
endfor