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

loop (my $n = 1024; $n > 0; $n +>= 1) { say $n }