constant TIMES = 1000_000;
constant CORES = 1;

my @results = await ^CORES .map: {
    start ^(TIMES / CORES) .map({ rand**2 + rand**2 }).grep: * < 1;
};
say ([+] @results) / TIMES * 4;
say now - INIT now;