Eat a cpu to 97% on a macbook

compile.p6

sub MAIN($fnm) {
   die unless $fnm.IO.r;
   my $time = $fnm.IO.modified;
   my $t = Supply.interval(1).tap(&compile-if-modified);
   sleep 10000;

   sub compile-if-modified($i) {
       my $t1 = $fnm.IO.modified;
       if $t1 > $time  {
           $time = $t1;
           $t.close();
           say "compiling $fnm";
           run 'perl6', $fnm;
           say "compiled";
           Supply.interval(1).tap(&compile-if-modified);
       }
   }
}