<?php
    define('URL_BASE64_FROM', '+/');
    define('URL_BASE64_TO', '-_');
    function url_base64_encode($data) {
        $encoded = base64_encode($data);
        if ($encoded === false) {
            return false;
        }
        return str_replace('=', '', strtr($encoded, URL_BASE64_FROM, URL_BASE64_TO));
    }
    define('PACK_NUMS_FORMAT', 'n*');
    function pack_nums($num_arr) {
        array_unshift($num_arr, PACK_NUMS_FORMAT);
        return call_user_func_array('pack', $num_arr);
    }
    function url_embed_array($arr) {
        return url_base64_encode(gzcompress(pack_nums($arr)));
    }
    // #####
    $arr = range(1, 1000);
    $palec_encoded = url_embed_array($arr);
    $op_encoded = urlencode(base64_encode(gzcompress(implode(',', $arr))));
    printf("Palec:\t%d\nOP:\t%d\n", strlen($palec_encoded), strlen($op_encoded));
?>

PD9waHAKICAgIGRlZmluZSgnVVJMX0JBU0U2NF9GUk9NJywgJysvJyk7CiAgICBkZWZpbmUoJ1VSTF9CQVNFNjRfVE8nLCAnLV8nKTsKICAgIGZ1bmN0aW9uIHVybF9iYXNlNjRfZW5jb2RlKCRkYXRhKSB7CiAgICAgICAgJGVuY29kZWQgPSBiYXNlNjRfZW5jb2RlKCRkYXRhKTsKICAgICAgICBpZiAoJGVuY29kZWQgPT09IGZhbHNlKSB7CiAgICAgICAgICAgIHJldHVybiBmYWxzZTsKICAgICAgICB9CiAgICAgICAgcmV0dXJuIHN0cl9yZXBsYWNlKCc9JywgJycsIHN0cnRyKCRlbmNvZGVkLCBVUkxfQkFTRTY0X0ZST00sIFVSTF9CQVNFNjRfVE8pKTsKICAgIH0KICAgIGRlZmluZSgnUEFDS19OVU1TX0ZPUk1BVCcsICduKicpOwogICAgZnVuY3Rpb24gcGFja19udW1zKCRudW1fYXJyKSB7CiAgICAgICAgYXJyYXlfdW5zaGlmdCgkbnVtX2FyciwgUEFDS19OVU1TX0ZPUk1BVCk7CiAgICAgICAgcmV0dXJuIGNhbGxfdXNlcl9mdW5jX2FycmF5KCdwYWNrJywgJG51bV9hcnIpOwogICAgfQogICAgZnVuY3Rpb24gdXJsX2VtYmVkX2FycmF5KCRhcnIpIHsKICAgICAgICByZXR1cm4gdXJsX2Jhc2U2NF9lbmNvZGUoZ3pjb21wcmVzcyhwYWNrX251bXMoJGFycikpKTsKICAgIH0KICAgIC8vICMjIyMjCiAgICAkYXJyID0gcmFuZ2UoMSwgMTAwMCk7CiAgICAkcGFsZWNfZW5jb2RlZCA9IHVybF9lbWJlZF9hcnJheSgkYXJyKTsKICAgICRvcF9lbmNvZGVkID0gdXJsZW5jb2RlKGJhc2U2NF9lbmNvZGUoZ3pjb21wcmVzcyhpbXBsb2RlKCcsJywgJGFycikpKSk7CiAgICBwcmludGYoIlBhbGVjOlx0JWRcbk9QOlx0JWRcbiIsIHN0cmxlbigkcGFsZWNfZW5jb2RlZCksIHN0cmxlbigkb3BfZW5jb2RlZCkpOwo/Pg==