i := 1024; while(i > 0) { i->PrintLine(); i /= 2; };