Inline PIR ( Q:PIR {...} )

• Return value of Q:PIR is given by %r

my $name := 'Fred';
my @chars := Q:PIR {
        $P0 = find_lex '$name'
        $S0 = $P0
        %r = split '', $S0
    };
for @chars { say($_) }

• Return value must be a PMC

• Inline PIR may safely use registers 0-9 of each set