RosettaCodeData/Task/Loops-While/Perl-6/loops-while-1.pl6

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