for I in 1024; I>0; I div 2 do
   {Show I}
end