my $n = 1024; while $n > 0 { say $n; $n div= 2 }