A program that prints the number 6210001000 really fast.

6210001000.p6

#!/usr/bin/env perl6

my Int @digits = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0];

loop {
  my $changed = False;

  for [0..9] -> $digit {
    my $count = @digits.grep($digit).elems;

    if @digits[$digit] != $count {
      $changed ||= True;
      @digits[$digit] = $count;
    }
  }

  last unless $changed;
}

say @digits;