RosettaCodeData/Task/Binary-digits/Perl-6/binary-digits.pl6

say .fmt("%b") for 5, 50, 9000;