# Pastebin 4KayT48W
raku -e '


my atomicint $count = 0;
my $spec = $*SPEC;
my $cwd  = $*CWD;

sub a($times) {
   start {
      my $s = $*SPEC;
      my $c = $*CWD;
      print "\r{ $count⚛++ } { $spec.gist } eq { $s.gist } && $cwd eq $c";
      die if $spec =:= $s || $cwd ne $c;

      await (a($times) xx $times)
   }
}

await a 5 

'