gistfile1.txt

    our method push(*@values) is export {
        my @a = @values;
        Q:PIR {
            $P0 = find_lex '@a'
            $P0 = getattribute $P0, '$!values'
            $P1 = find_lex 'self'
            $P1 = getattribute $P1, '$!values'
            $I0 = elements $P1
            splice $P1, $P0, $I0, 0
        }
        self;
    }