use Inline "C";
:
@dst = uic ($src);
print STDERR "uic:   (@dst[0..22] ...\n        @dst[4073..4095])\n";

cmpthese (-2, { uu => \&uu, upuu => \&upuu, upuu0 => \&upuu0, asu => \&asu, mlut
 => \&mlut, uic => sub { uic ($src); } });

__END__
__C__
void uic (SV *src)
{
    int i = 0;
    STRLEN l;
    unsigned char *s = (unsigned char *)SvPV (src, l);

    inline_stack_vars;
    inline_stack_reset;

    while (i < l) {
        int n = (s[i] >> 2) & 0x3f;
        inline_stack_push (newSViv (n));
        n = (s[i++] & 0x03) << 4;
        n |= (s[i] >> 4) & 0x0f;
        inline_stack_push (newSViv (n));
        n = (s[i++] & 0x0f) << 2;
        n |= (s[i] >> 6) & 0x03;
        inline_stack_push (newSViv (n));
        n = s[i++] & 0x3f;
        inline_stack_push (newSViv (n));
        }

    inline_stack_done;
    } /* uic */