sub Pack {
    my $type = $_[0];
    
    if(packing($type) eq 'c' and is_pointer($type)) {
        $_[1] = pack("Z*", $_[1]);
        return $_[1];
    }
    $_[1] = pack( packing($type), $_[1]);   
    return $_[1];
}