gistfile1.txt

sub try_nqp_transform($code, $transform) {
    pir::load_language__0s('NQP');
    my $nqp := pir::compreg__Ps('nqp');
    my $p6 := pir::compreg__Ps('perl6');
    
    my $qast := $p6.compile($code, :target('past'));
    my $comp := $nqp.compile($transform);
    my $res  := nqp::atpos($comp, 1)($qast);
    my $pbc  := $p6.evalpmc($p6.pir($p6.post($res)));
    $pbc();
}

try_nqp_transform(q:to/P6CODE/, q:to/NQPCODE/);
    say 42;
    P6CODE
    sub transform($qast) {
        say("in transformer");
        # Do stuff...
        $qast
    }
    NQPCODE