RosettaCodeData/Task/Loops-While/Raku/loops-while-1.raku

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