p6.p6

use nqp;
my $t = {warn "warning"; warn "second warning"; take 42; last; };

say eager do gather {
    for ^3 {
        my $control-ex;
        for ^3 {
            say "meow";
            $t();
            CONTROL {
                when CX::Last | CX::Next | CX::Redo {
                    $control-ex = $_; .rethrow;
                }
            }
        }
        $control-ex and $control-ex.rethrow;
        say "fail";
    }
}