p6.p6

use nqp;
sub lookup {
    my $a;
    for ^1_000_000 {
        $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO; $*FOO;
        Nil;
    }
    say now - ENTER now;
}
{
    say "Regular lookup";
    my $*FOO = 42;
    {
        my $a;
        {
            my $a;
            {
                my $a;
                lookup;
            }
        }
    }
}
{
    my $*FOO = 42;
    await start {
        say "In-promise lookup";
        {
            my $a;
            {
                my $a;
                {
                    my $a;
                    lookup;
                }
            }
        }
    }
}