p6.p6

sub shortify($n) {
    while (my int $colon := nqp::rindex($n, '::')) != -1 {
        my int $paren := nqp::rindex($n, '[', $colon-1);
        my int $comma := nqp::rindex($n, ',', $colon-1);
        my int $chop-start := $paren < 0 && $comma < 0
            ?? 0 !! $paren != -1 && $paren < $comma ?? $comma+1 !! $paren+1;
        $n := nqp::substr($n, 0, $chop-start) ~ nqp::substr($n, $colon+2);
    }
    $n
}
say(shortify('CArray[Bars::int32]'));
say(shortify('NativeCall::Types::CArray[NativeCall::Types::Pointer[int32]]'));
say(shortify('Hash[Foo::Bar::Ber[Foo::Bar::Ber[int32]],Foo::Bar::Ber[int32]]'));