Advertisement
CrazedProgrammer

Music Composer and Audio API

Mar 28th, 2015
1,551
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 27.97 KB | None | 0 0
  1. --Created with Packager by CrazedProgrammer
  2. b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/' function frombase64(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 function lzw_decode(s) local str = { } for i=1,#s/2,1 do table.insert(str, s:byte(i * 2 - 1) * 256 + s:byte(i * 2)) end local dict_size = 256 local dict = {} for i = 0, dict_size-1 do dict[i] = string.char(i) end local w = string.char(str[1]) local result = w for i = 2, #str do local k = str[i] local entry = '' if dict[k] then entry = dict[k] elseif k == dict_size then entry = w .. w:sub(1,1) else return nil end result = result .. entry dict[dict_size] = w .. entry:sub(1,1) dict_size = dict_size + 1 w = entry end return result end d = 'AAYvYXVkaW8BAAw8AC0ALQAgAEEAdQBkAGkAbwECAFAASQAgAHYAZQByAHMBBgBuACAAMQAuADAAIABiAHkAIABDAHIAYQB6AGUAZABQAHIAbwBnARsAbQBtAQ0ACgEAACAAWQBvAHUAIABjAGEBEQBmAGkAbgBkACABMwBmAQcBMAE1AGQAbwBjAHUBJgBuAHQAYQB0ARAAIABvAREAdABoAGUAcwBlACAAcABhAGcBSwA6ASgBAQBoAHQAdABwADoALwAvAGMAcAAuAG0AcwBkAGUAdgAuAG4AbAFcAG8AbQBwAHUAdAENAGMBGwBmAHQALwBtAHUBDwBjAC0AYwFpAHAAbwFMAHIALQE6AX8BBAEGAX8AcABpAC8BVAEqASwAIABtAGEBGAF1AU0BSQBpAHMBNgERAHkBLAByARkBegFsAQ0BGgBhAXEBTgEhASMAYQFgACABOgGLAG8BBQBmARgAaQB0ACAAdwGsAGgBLAGtAGEAcwBrATMAZwAuAYgASABvAHcBYwENACwAIAGWAS0BjAEYAG4AbwGtAWsAYgBsAZIAaAAgAZEBkwBBAQkAIAB1ATQBDQHBAZcAIABuAaMBTQGvAUkBsgGlAbUBtwGLAGUBuQEpAEkAZgHXAS0AaABhAQwBpQBuARgAcwB1AGcBUQBzAUQBRwBzAcAAYgHyACAAcgBlAXsAcgB0AZMAbwGYAHEAdQFLAfYAbgGTAUkAZQERAHAAbABlAbQBTQFMATQB7gAgAGUBjABpAGwBzgBvAVMBKQFvARwBHgBwAaEBJAEmAHIAQABnAhgAbAAuAXkAbQAKAAoAbAE9AGECGgBfAHYAbwBsAT8BTQA9ARICLwIxAjMBsgFrAgEAIAI6AHsAIAB9AjwBLwIzAXQBdgJCACACRAJGAYUAdABjAc0CQwBmAHMAMwA9ADAALgA1ACwAZwJXAlkANQAyADkANwAzADEANQA0ADcAMQA3ADkANgA0ADgCXAJWAlgCWgA2ADEAMgJkADAAMgA0AmUANAA2ADgANwAsAGECXgJaADkCewAwADMANQA1ADcANQAwADEAMwJzAn8CcAJZADYCYQJrADACYAA0AoMANwA0ADMCfgBiAoEANgA2ApkAMQA5ADkAMgA3ADAAOAKKAmkALABjADQCcQKmAmgAMAKgADgAMQAxADgANgJmAn4AYwBzAq0CWQKZADkCZQKGADMAOAKaADgAMwJ5ACwAZAK8AC4CagKbADAClQAyADUAOQLDADECyAK7AnECwwKnAmsCeQJgADUCmwJlACwAZQLKADgAOQLZAn0CtQAxADQChQAzADkALABmAsoCgwLCApkCZAAyAnwAMQA2ADkAMwLtAtYC1ABnAq0BEwKVAoMANgAzADAC8ALRAvkAZwL7AC4CdAJ4ApIAMAJtAwMC+AJ+AGEC/gMKAuMAMgAwAmgCZQLOAqUAMgKPAxQC0AKjADIAMQMOAtICgwJ9ACwAYgMUADMCxgLFAtICZgJpAs4C+QBjADUAPQETAnkANAMiAoYCkgKbAxACqwBzAzQDNgLSAwMCrwJ8ADcCnwJuAGQDQAJaAn0C6QMjADUCogJ8Ax0AZAM/AzUALgL1AmoAMgLFApUDGAKaAuADSgA3ArMCagLyApIAOAKxAm4AZgNKADgCfQKZArYC0AKNAysC7AJVAzQAMgJGAjACSAAgAF8BeQIJAa0COgGMAUkALgIwAGcAKAAyACkAIAAvARIAMgIuAGYB1ABjAggAIAFMAHQATwFsAkAAKAIsAYwBNAHAAj8BbAApAAoAIAEuAWkDlwE1AjoDlgGmAgMDnwElAToAcwOdAUYDkwFsAkwDmgGtA6YAIwBfA7ABkwArAjsDngBpAegDpAIUAD0DowOgA6kBzgFKAG4DqwOeA7QDrQIBAFsDsABdAkwAewBjAG0DogAgACIAIgHAA5AAQwPAA70AIAOLAG4DjQFFA5UD2ABkA4UDzwPRA7wBNQIMAGQBwAByAdQD1wOoA9kD2wPdAUcAKAPiA+AAcwAuAGUAeABlAGMAQQBzAHkD3AOVA9ADhQPnAkYDngBlAGwBTAPFA3gDtQPKA8gDzAO/A+0AZAOrA+cACgQSAAoD7wOOA5AAVgI2AjgAKAI1AGwDnAPGBB0COAJMBB0EEwE0A4oDjAOOAVEAdAQZAjcBJgPyA6sB/QB0AHUAcgERAjQEGgEmBCUEEAQVBCgBRQIOAY0AUwEsATQAKABzBEED6AFOAawCUgHABB0DmQPIBB8ERwJRAlMETwJSAUYBmAAxA6sEHQQjAjYEVAO4A6wBWAOuAjoDsARbBFYDuQHoA8cEXgPJA8sDwgIMBAgEZgJAAHMECwRnAF0ALgPWA+AAKAAiAC8EPgB5BEQB1AE1ACIALgRzBEUEfwAiACAAQABhACAAfgSHBIkEfgAuAHQBfAB0AHIBtwAoBDYELQFNACoBCwI2ACkEggPSBH8EjQH1BJAAbgOCAlACUgApBE4DxgQKA8sALgPqAG4D7AOhBC8EBAQmBBQEFgFFAGEAZABkAE0BdQBpAGMAKABtBE4BQgHKAeQBMwF9AHQEkgJKBLkBwAS8BDkEJwPcA44B/QBtAG8BDAS3AXYEuwROA3YCMgGUAWIAeAJMADADqwE4AZgAawAsAHYBlAFOAGEAaQEOBMQEuABjA4UBPAQIA7oBCwJCA30EagPEA54E8wTXA/cCTABrBAgEEgSvBBAEZAT1BNkAfgI6ARUCCwTyBPMEvgIPBKkCFwTPAGUE5wF2AcABMwTYBE4EEgSxBDwBRwAgAjAEtATRBLkAKAEyAg8E1AI9A9oCTAJVAC4AbwBwAgwFGwIZAGUBwAAiAHIAIgROBO0BxgGtAegFAwH8AGUEMgQ0AhYEJgOeBNUCGgSeBSEFCAS0AEEAbABsBK4D2gIrAjABTAVEBTsFFgIMAGcBSQJMBI0AbgE/AGIBDQRDBI8AOgHxAGIAKALUACAANAApAcAC9gUeA3cAbQPNAg8EoAVOAjoFZQVNAGgESgQ3AjkBEgHABHkB4gI6AGYCMgFMA5kAZgJVBTUCTAVbAlIBMABuBAUBkwJDAkUEAwUWBR8FfQBuBX8EBgVPAUcFUgVUBJ4FVwB1BVkCWwAgADYFXgESBZUDqwVKAGkCTAA3BNwDpgBrAzUCqwHrBYgFgAAsADEAIATrBPQFSgQhASYASQPRBVAFjQByBVUAcgWQBVkAaQUOBZYFYATsAkwFmwO3BGME8wVKBGECOgWwAG0FUwWyBY8FWAAoBbcBNgW5BZgE9AWbAjoFvQRcBToFHwVlBYsFUQXFBY4FVgXJBcsF0gAxBc0EpQE2BbwAIAO3A4kFqgUfBHsD2QXIBZEFygUOBeQFSwERAQEF3wW7BdEF7wVlBAgFSgWHBYkDzQXpA9EF/QVsBJQFrgRZBgEERgXCBF0CQAHABTABSwPNBYMECAUGBMACCQENBMMAbQIrBaMFiQH4AS4GFgQFBeEE3QAgAGoFoQVpAUkFpgWoAG8ECAT9BesFtgW4BO8D0gYsBQMGJgTzBdAF4gW+Bi8FgABlBi8F1AN3BKIEUQXEBcYFswW1Be0GMgESBeAGNwXiBfUF5QZEBasEWgXDBYwF2QXHBdsF7AXdBkME9AT0BfoEBQFlAccBSwBbAGoAIASWADIAIAXyBA0EUgBoBkQGVQIqBgoEbwZbBl0GYQQkBlMGMAXjBjMGbQT6BPMGcgZyBDEEMwERAi0FEwTLAUUAdQBwAGQBQwULBE4GHQTfBOEBMwTjBOUAcwUMBLkE6gYlBc8B6AFkBXEEoATxBi8GHQBsACwAdwTiAU8GiAQcBhUFfgWABowGRATtAHcGVwFtBG8BZABvBXgDkAZcACAAMgPMBi4GbQXnBjkESARRAl8GqwN+AGgD9gB4AHAEkgN6AfUGqwAoBqMGZwBbBqcGqQV6Bl0GXwESA8wF8gSkBkQGOATWBFgCOgbBBlgGpgUjBsUBrQZqA4YBEgA1Bs0BTgBsBD8ERQbABIAEfAVwBrMESgAuBawElQAgBuEG6AYCA4cCZQOFBJYESwGuBSMETQZEBnIE9Ab3BPMGxAV5A3wBCwbVBvwF7wW/Bo4G/gaoBwAAPgb+BiEBzQavBrAGkAbeAHkFcgPaBXUGNgawBwQG1gV7BjQFOQZzBxkFEgE0AAkvY29tcG9zZXIBABuEAC0ALQAgAEMAbwBtAHAAbwBzAGUAcgAgAHYBCQBzAGkAbwBuACAAMQAuADAAIABiAHkBAgByAGEAegBlAGQAUAByAG8AZwEaAG0AbQEJAAoBAAAgAFQAaABpAHMAIABwASABIgBhAG0AIABuAGUBHQEtAHQAaABlACAAUwB1AHIAZgBhAGMBOwBBAFAASQESAC4AMgAgAGEAbgBkACABOQFDAHUAZAEPACABRAFGARMBFQBpAREBTwAgAHMBMgE7AVIAcgBlAGMAdABvAHIBGABhATgBOgEuATABIwAuAScBAQBZAG8AdQAgAGMBSwAgAGYBWQFNAVkAZgBvAUoBTAAgAGQAbwBjAHUBJQBuAHQAYQB0AQ8BEQEQAU4BOgEIAS4AYQBnAGUAcwA6AW8AIABoAHQAdABwADoALwAvAGMAcAAuAG0AcwBkAGUAdgAuAG4AbAGeAQQAcAB1AHQBCQBjARoAZgB0AC8AbQB1AQ4AYwAtAGMBqwEHAQkALQFLAGQBvgFRAQ8BvgBwAGkALwGWAXEBcwBtAGEBGAG2ATsBOQEsACABWQAgAHkBcgEKAQMBBQGtAQkAQwGxAHQAIABPAFMBkwF+AU0AbQBvAVIAZgEYAGkB3gB3AeoAaAFyAd4BaABrAVkAZwFuASgASABvAHcBpQEJACwB1AFyACABywEYAG4AbwHeAawAYgBsASwAaAGNAdEBLwEhASMAIAB1AUwBCQH9AT4BNAFeACAB7AE5Ae8BSgBzAfIAbgBnAf8AZQH1AQEASQBmAhMBlwBhAQwBfgEYAHMAdQBnAZIAcwGJARAAcwH8AGICLQAgAWEBBgByAHQBLQFlACAAcQB1AZMCMQBuAWkAZQERAHAAbABlAWgBOwEIAX8BdgBlAcsAaQBsAU4AbwGVASgBsAEbAR0CDAExASQBCQBAAGcCUABsAC4BugBtAAoACgBmAhABYwGKAg8AcABkAYgAZQAoACkACgAgAUoBwgBvAC4AdQJsAm4CcAJyAdICJQG1AbcALgJHAcwB8wGNAkUCfAJzAHYATwBmAGYBCAHeAD0B/wG2AGkAYwAuAG8CiwKNAnwCRQBkAnwAZAEaAHcCewKZAmUCZwBuAmkBjAKcAGECngJxAnMCLAE/ADoAYwJIAGEAcgAoACIAIAAiAfwBugBsAWUAcwAuAgYBQQBrArYAbwK4AHICugEiATYAbgKpAVwBPgBmADoBeABsAGwAUgFiAHQAKAAxAfwC0wAgADUC1QA1AfwAbgJRAr8CwQLDARoAeQLdArkALgIHAGcBmABHAuACxwKrAsoCpgB3AEwBWQJvAtUC2ALyAtoC3AF0AsAC4wK8AGMCvgL3At4ALgB3ASsBrgLHAGkCfgHmATsAPQKPAUkBTwBuAocCyAKsAu0AVABlAHgC0QL0ArQALwAiAC4ALgLMAiEALgAiAHwAIgLHAGUAbAEIAw0C6wA6AxADEgMUAtQB/AAiAxcDGQMbAyEBTAJ8AyYDKAMTAtIB/AAyAywATgBlAHcCcwBMAG8AYQFNATwCKAE7ACAAUABsAcwCcwBQAGEBzgJzAs8CjQK1ATQC9gK3AuMDAAHqAGUC6gLJAycCnQMRAzYAMwA4AzgDLABWAsABhABlAyADMwNaAu0AUABpAHgDIgAoADQC2QAgAzkCtAA8A1EC2wBsAuICwgL/AwEDWANoAw8DXAMpA28ANgNhAVwAdAByAfMDGgFlAcsC0QAiACUAWANRA0wBUgJ2AZIAdANjAGwDZQJwACAAKgESADUAKQNZA38CpwNrA20AbANvADcDhAAiAD4DdgNTAvgDegNWAwIDfgLsA4ADNgLVADMDLABDAGgBSwE1AGwDZwKqA2kCnQOiA24AOQH8A7UDdAOqA3gC/QNVA3wDnwOxAqcDXQMUADADwwH8AjADhwIeA4kAcgOLArIAJQAwADIDjwK2A7gAbgO6A54DsANbA6EDbANuADEDcwPEA6gDxgN5AroDrgN9A70DoAB3A84C0gNxA+oAQQBkA0IARAMiAGUBrgPsA8gDrQPKA+MDNQLRADIDYAAgA+oDlgNlA7wDDgPMAHcDwAOkADMD9gMsA3UC9QPHA1QEAQNXA8sD5APzA4EAMwODBAgD0gOGA4gBfAPXAYgD2QPdApACgABjA98DugBzAFsELAO5AyIAXQAuAHYDZAElAEkAZAPiA/EEDgQQACgAMwOmBCECtAOpBBYD7QN7BBoEAwOyAtEANAPQBEIAIgBPAa0BrAB0BAwDNAO/A+YDpAA0BEED6gQVA1IEFwOsA+4EAgQ8BBwD9AA0BAcDxAPTBCQDigQnA40EKQJ/ApICYgQtAyIELwQxA+AEMwKUBFEBrQQ7BA0EHAQ+ADQDwgROBEQEXQRGA+8EGwQEAzcAIAA0AywAUwFyAUwEVAO+AqcC7wE1ACgEQQSJAtYC1QSVA3cERgL6AvwEGARgBEgEYgNqBFcEhwNxACIEXASZBAAEngOvBKAEVgOjACgC1wH8BKQEgQSnBJ0ERwSqAn0B/wMGACADCAQIAoUDDAJzBKsDzQOBBJQB/ARuApMEdAQuBDAEcQBsBDQAcwSMAGQDGQMeBAwEcgBlAyUEjwQdAzYEwwQqBG8ExwRyBMkEMgTLAC4EzQIQBDoCmAMyAnMDBATaApMClQKMA/0AIAA+Ao8CiQKWBO0BvwTpApQE8gHeADwBCwKKBOwB3gArARIANAS9BNUD8gSRAvEB/AA2ACAE/gTFBPYE/AAgAQEE8QT8BLAC1QUHBQkCkQTqBPcFDQT6BPcERQSCBKgCuwOXA/AAIAKgAnMEJQHSAD0C0wAxBIkAMQGAAG8FAgQOA/QC2AUIAdIEIgPUAfQEJQPYA40AMAA0BCkAaQUxBQ8CjQUYADIEegJzArgBdQJSAHgBSQKPADcFMQBoBPsFPwMNBOgFRwTuACAAIwUKBNwDIwUBBL8EvwVRAo8FVAUVBHAE3wBzAw0FIgS/BOgFTAUXADwFXAVVBMoCRAS+BVkBdwI9AGoFJgAsBUcALQVmBPwAKwUnBSsDDQVZBOgBgwByAFgEugKPAGoFSwVNBO0BAQUqBPQFfgBZBYEB0gU9BYUB3gWHBVgFbgVZBFUEkALwACgFgwObBCAANQUxAGkB/AUABP4FmQAgBZsFnQUbBLQEhAV7BL8FYwWTBZUE1wLRBaIFmwUzBGkEJgOMA9oD3ANRBYME/gV2BT8FhwVCBW4E6AVqBWAAWwW5AZcFjwUYADEENAICAa4ELwAoBTwE/gU+BYYBEgApA5oDcgBdBZIFkwTABa4FmAXUBaQE/gWeAS4B6gQsAE4BXgQvBcEEdQMjBcMFhAUXBYcFyQIDAZMAWwXNBY4F6wXSBdQBSQXsAF0CxwXYBHsEhgWgACAFsASwBaUDhQU0A9YFNwOOA1EF5gTIBcQFuwXRBcgBpwXuBcwFzgUZBQwFvQX1BfgF+QVuBNMFqQWUBNYD9AX/AtYGAQAiAQAALQQMBfoFrQRkBTEGHgWcBd4DLAYjBhcFWQWrBaoE5gYxApoCcwVjAyYBYQIRArEBrgPXAnECoAJmAmgCQgAgARAAQwIHAvsAKAB4AfwC4QEWAa0BZALGAnwB5QGkBLoBEgJ8BOgBGAS7BSoDCwMNBlADBwNyApgDIwBlBVAE7gVJAeMB1AWMBQAGWQVZBlsGUgAzBl4BCAZhBO8BEgZkAHgAIAVoBLwE9AZWAwkF1wJ0A5IALgFhAeUBDABNBRUAKATFBhcExQZSAHsCSAIeATkGUgRNBDYDlwElBlIC1QKCAHkChAKPAUAGXwH8BOsFPwKPAtUFVgEtAo8AewAgAH0AfQMNAbACSQGuA7cE3wKyBcoCIQO4AHIAcAYkBnsBDwAuA0EAZAaBAbcGgwUVBhcFVgaRAw0F0AKOBlMFWQYLBsAAMQalAT4FgAacBsYAcgWLBskGaQS5Bs0FIQZfBm8CjwUHBPQGcwZ1ADkGZAZ4A3IGegToAowALgMSASwCOwAoAzAGZAXKAXcCugEsAEQAaQKxBuUGaAVuA5EGswZ+AG8GgAaCBoQFqQaGAo8G8QJ2ArgDQQa3ApIG5AJRBSAFWQb7BrQD+Qb/AGMGuQG3Bi4BdATKBr0Fkwa/Bw8FbgbDBxIFWQV+BsgGwQVuBYoHFQS/BmoG0AY1BjIE0wbTARIBSQbWBnQGnAWcBncFjAMKAToFbQKqA0QHCAcBAkgDIQbSAiUGcwZwADEAOAZyBycDcgWIAX8G2wcsAoYGaQVeBpMGlQFOAHICQAZtBmAHNgZiA3IFAAcmBnUEBgbaBysGegUKB0UCHgZSBpcDJAY1BzUAIAc3Ao8AMwc+AU0G1wdgBykHPwdUBu8CcwUKBpoE7QcfBhIGmwcZByIHTAS7A3AHUwS7B0EHLgAgBUQAYQJSBo4GUgcFA5QECgElA5kFkQAvA5wFTwIlB34E+QEVB2kEvwd+Ao8AMAViBjICcwcFAo0HggJvBo4HNAZuB3MCjwRZB3YGeQeNB3sHfQLAB38CdQAuB4EENwJvBdME/gUqB4YAMQA1B4gBCwekAD4GcQeNAogHpAduBjAHlQP9B5cAKAeZB0oGYQS7BtkHKgS7ADMGega8Ao8GvAWHB7EGvAT5BlgHLQWpB8gHGQcgBjQG0QebB14FjAPoB58EvAeNB9IGvAesB8wHDge0BV0EKwVrBnoCcwfSB+QE2wVrB5IH1QdyB9gHOAdmB2MHPAAxBUoHxAdgBt0CJQfqBMYH5gT5ADIANQWcB7YBdAFhAm4GqQXnBqsF7gAuBq4GsAcMB+kGCARyB+0HwAdMBnAAMgEVB1ADCQfyBmUHxQf5BVMIDwVXB7QHzwdCBW4G8wEMCAYDugcKB+sFwgVWBfgFqQV9B+IIHQVeBp4H5wS/CA4IMQfsBZMGMATnAiUHFwVSB/sFXwXnBWwGGgF0BscGUgg+Bp4FqQYwBWMH7wZzB8UIGQbbB8YHjQgeBHMEygQ0Bo4DZQQ5BlIIUgTeBecIVQepCFgHywV8An4INggqCFQENQheAU0HiwgzCFoIKwhmBo8AZQhYB5AIEQdcB9cITAdgB/YHZwgbCFEIYwhACFsDughdCG4IcAT1Bp4IfQR2CFYEOAFNB+AIYQiCBWsIhATgCIYIbwFNCCAIAQfQBZMIawhlCI8IgQevCHIH1gdLB9gHdAh3AU0ITwdVCHsEyAhsAe8EUghZCKQE3QimBHgFkAfTBLcIlgTfBDQIpwGtBnQHtQiUBW4IsQhcBHcBmgi1B7kHIQddCHUEiAfDCHgH+Ah6B+UIZAiyCLwIqAKPCLoIfgjLCLUIiQVkCGIIyAh8CKwIvQHeCJIIagiqBegI1wjMB4cGLwjACHQH2QfbCJMIIgJzBxQCjwcUAQEAMgexBxQHzggzCOkIrwhKCMEFjALXCOUGegjyBxQE/gjtCHMInQc3BnEHUASWCPgH3QcOCM0BiABoAxoCuAFlACgGRwXTB4YANgerBcUF8wbFCIoGvAfjCFIIMwg1CNUELgibCEsHPAdPB2cGcAUHCMcEbwdsBsABGAXPBcYBAQA2CBIH8AKPCE4HTQkkCLgH6AhECQcBOQkKAG8JDAkOACAJEAkSCOsIrwcbAo8BGAEBBioHbwYMB8wIRAkYCNwIQQWTCDwFaQlMCR4DMgY+AqICpAGLAG4AUwGwAsADpAZIAdQD0glaAs0CxwcRBPAFxgT+AHMJYAJSA5sAOAZUB4kFxgjwB40JYwdxCVMDMgY/AqMGQQEQAEsAZQB5ACgAawl6AwMCJQl9B0AAMAVKB40GOwBtBOED/QPOAQMCwQAoBacEYQS/CYYJiAB0AEICvQEiBM4JiwkMBLQEmwYXCZECjQBDAT4EzQByAFABBwSHADEJnAEJCYcCrgJJArEGFwdIA+AHRgdaBNQI/gToCYEH2QUAAj0JtQd3ADEIIQd5BcAGzwacCDMIJABlAE4F7ggoB/wIKgbHAF0CtgE+AFkGFwfvBx4HoAk0CNMFUwMbB00JvAhCCdUGlgcCADoCLABiBIcAIwnVBb0ISAeTCJwJvgZRCHkJ0gg6CDAJHAirCGUE4gF/BzgIMwdqCUwIjQTMBM4IqQnsCN0J7gTOCdwAdQneAtUIRgiMCGwJ7wFNCeIIOAnkCPQH1wm5AwkHOghRBs8HcQddCdAItwjnBLcKCwNyADAHjAnpCEMGywZSBxsIYAW/CDsJzAi2CdcF+glCCK8H1AgtCiEKHAT5BxEIAgKIBcYHyQnMCeMH1QmzCYAJegcrADAKDQoaCiYHGwjSCRYKIge0BxEHrAhQChoKLwUXCjEKHAWHBmwKBwo0CeUKNgmCCkQKFAk1BX8KHQhECh8KPwpUCW8KRQobBxgJFQYYCeQJ6gg8BPkHFAouCRMFDApIAFgKMwViB10KFggVCOYHeQpTBxgIPAo+CdMIPAlLCfkJTQXYCU8J6wgpCEAKagWTBX0JSgpmBT8E/gkzClIEvwjyCDwJLAp/BaoKbAo3B3cAMAbZCAIFwAn0BxcF7QXLBDAKIgObADIF1gMLCLAKlQnJBg4KmAcbCpsF1ge0ChkKhwnzCngKmQV/CpcF7wqkBdUJ+Ap9CKUKoQasBHMKmgqxClcGMwUhCggKjgmCCiQKIAiLCcgKrQqiCq8KuAqcBL0KnwqrCpYKxQq3ChwKpQojCm8IQghrCrUGDwqsBYsK0AjNCqAKxAq2CtcGFQUxCl4I4QFNCEkGXwWpBSQCvgB2AdICRgBhBuwAcwAoBqwJeQB5AHMF0wGBCEIE6ArpBLsJtQplCeoG5wrUCtwK1gqwCsgK+wS/BrUJxAGuCcYIPwq0Cq0JywbLAfwAawcMBi8K5QX6B0MKywrVCqMKxwXHBdYCjwBrCEIKKAX6CDkKvApNCEoJcwKaCXUJVgZCAG4GqQKxBDEAcgl/BLgJ5wnABu8Jzwm/BtwHjQnZAXcHAgMZCywJLgoSClEHeQjOBHYKBAqyCccI1gn7BOMLOgauBOUCmglUBkACagsFCcUFVgaZBRoF4AB0BCwEOQH8CJgE5Ae3CIABTQTwCGcGQgEKCJoJ6gknBVIFCgaJAGcGiwklApMLZwaLAo8JJwtKAnwFVgrNAFsLZAqbCxkGUgHFC1UAaAQ5C3EEygtzC3UKsQteC1wACgtMCXYCagnCCwYCbwtRBkIE9wLHC3IK3QuABfYBEgsaBF0LfQTfC38FFwrZC5UKqgRvC2wCCQhxBSMJuAAsCukB0wBwCuwCwgsIBp4K9AUsBVkFJAN4Az0LpQunCu4Bpgq2C6sKKQH/CQgJOQkMAlIHhgVBC2UFXgueCfIE9QvBCTcJCQBmCQsCsQu8A3IHDAhJByELJAKhC00BjAamCAUEygAoCgQLWAhnBpkIrQliC18LgghXAU0CPQtiBkIIrQZSCLQB3gvhAnwHogcNBN8GhwtCAo8L1weyC1wGUgtZC9oI2AvlCK0C2gYPBocGogakAnMBhwIGAiEBWQEIAjoLqQVrA94E3wLHAWEAdAE+AREFVguECXQJVQZBCcIIJgNuBVYCxwvqAXkDEgaMAnwK5wujCuoBkArtDAUFYAu2CIoK+AfJBw4KkwIRCEwAIAscCuILcAnqDBkGcwB+B5AGegv/AkgGfQJPBvQCbwhSAfwMMQaFC8ACRQtoC58AIAeRC60LogukCusMIQhSDCQFbguuACwLsAxJC6gLtAYPDEwKgAJ+C7kLxwk6C8kJPQvLC78CgAvBCwMLZgxBC20LuAk4DFkLuwxcBUEIQgsgC80H7gvPCyYGQQFdBvUGuAMwC+kBggd8AXcHWQK6AG8AcAJFBzIAZQMsAHcEDABmAv8DhwsHBGgD1QU2BGsD2gU6BgcMQAaKAGgEegyEAHcMhgJvDIgFNQRqBbUD2wQpCgEMIwLHDB0MSAwgC6gMSwV6C60MhQNXC9YEIwyJDJkD2QAwADEEKQGmC1kFvgyTDJUMqQYDDIoMmgyvA1EBpgvmDLMMpwyHDKoMmAW0DK0FtwH8ACMBpgoEDL4MlAyoDMgEzgYXBSQAaQVyDGIMkAAsBSoK9QxWAQsLcwU8CtAKZQy0DKgMlwYEDIsMmwy7DNoF9QsZBb4MpgzLDMAMtwysBTgMugtYDOUKpQzoCJwJ2Ay/Am8CswaxCx4GMwwvAXcCYgK4AQgCnwl0AWAMegenA/0G6wKxAHMBOgLNDQUAdABSAhAC2wIeAR8CDQEyAnAAKQTQAxcACgEHAuQDQABkAVUAKAFgBNAG+wNnDRoG/Q0dAUUNHwbsBNAC6wFBA2YCcQLrBlINKwFCAmIIBAsHBK8BEgR/DPgEmgNIAvsERgLEAkUCcQb5ACAGiAxjDEMGjQepBpEB/AdXAh8Glgd8AQgLUgpnARIMBwhAC/sGowAKC9MGqAvVACIGrAgKArAIDAAKBwUGtQcxBvcFfQEEAcsBTAp5B7sAdARQCNgNAQKaDKAMHwumDCEMfQOHAHABOgEaAmEDlAXjASUK7gOeDKUEtw1zAGkNdQEJB3wNDABUAHkMfQe+BdMEuwAiAmMNZgBkArMHjQ1pDWsEUgAoDYANgg13DIUAYQBwDYkDMQtLAzILNw0gAx0FCgFBBrANVgkGBlMJcQbFCPIGxQp7DawKIgbJBx4GUwrwCXoGnw1CAzkAMQODA7UH9QAsBSkDYAAxA8IDgwgVACwDpgAyAtMAMgM5A8IAMg26A9AAMgUpDcYC2QA0BIkHYQ28AtkAMwM5ADQDgwRZACwAMwA0BqQLeQXiBeQGhwAiAEYAIwAzArUAIgBHBAgN5wBHDeUN5wBBDeoALAAiAEEN7Q3xAEIN8AAiAEMEiA3nAEMAIwA0DecARA36DfEARA39DecARQ4BDeMOBw3kDf4N8Q3pDgsN6A4EDfEN7w4ODfMODg32Dg4N+QA1DfsAIw4ZDgIC1g3/DhsOBQ4eDfEARg4iDeMOIAakAYkBJQEKC24CugIwArAAdABUAGkOKgAoADACcQmuDRANSwdHB0kDVgJIAjcNDwKEDNcHegx3AlIGXAB7DRoBrALNAEUBDAGGAnAL/QS3AGUAWwXIBYwAIg4pAQkCswT0DlAKyAS7DlUBCgmFDjICEg4sBOEBhwI6DjEOMw41Aw0CeAJtCwcHmgidDlAOUg2LAeUBzgBfAq4CkgBrDZAJ0gZDBkUAawAoDlAAMwnKBSEAWwA0Dn8OWQgsCjUOgA5vAo8AIg5xAQgAXwlnASACzQ53ChQBEAlZDo8DpA59DoMOgQ6YCpwObAToDm4LGg6JCYEOkQd5CXgJeg58AFsOmwkuDp4OUwssDqIDDQZDBq4Opg6oCigCoA0aAhANJQ0eACINIgJxDrUBqA0cDrgNMQ0tAAovbXVzaWMuYWNwAQABggAwADAANwA1ADAANABGADEAMAA5AG4AbwB0AGUALgBoAGEAcgBwADAAQgBGACABFgEXACAAMABFARUBGAEaARUBEwEcARkANwEhARgBHQEFASUBFgEBASQBGQEnAQgBIQEgASgBJQEwASgBHgEyARsBGQEUARcBKgExASYBKwEpASMBMgEtATkBKQA5AEYBBgEIAQoBDAEOARABEgFAATQBQwE6ATkBOwEpAScBPAEpADEBPgEsASsAMAFYARkANgEvAU4BVgFTATIBUAEpAVIBYQEEAVkBHQFdATQBVQE6AV0BYwAwAV8BRwEJAQsBDQBiAGEAcwBzAWMBHQFhAT8BFQEHASEBgQFWASkAQwFZADABhgEyAYkBNQEpATcBNAGOASIBhwF+AZEAIAGDARYBlgFiAYkBNAGaAToBiwGQAR4AMwEHADcBSQF3AGQAMABBAYcBqAExAacBqQGtAasBqgE0AbABMgGyAR0BtAE6AbYBKQG4ARkBugGsAa8BrgEXAAgvc3VyZmFjZQEAJVgALQAtACAAUwB1AHIAZgBhAGMAZQAgAEEAUABJACAAdgBlAHIAcwBpAG8AbgAgADEALgAyACAAYgB5ACAAQwByAGEAegBlAGQAUAByAG8AZwEfAG0AbQEQAAoBAAAgAFkAbwB1ACAAYwBhARUAZgBpAG4AZAAgATcAZgBvACABNAE5AGQAbwBjAHUBKgBuAHQAYQB0ARMBFQEUACAAdABoAGUAcwEJAHAAYQBnAVAAOgEsAQEAaAB0AHQAcAA6AC8ALwBjAHAALgBtAHMAZABlAHYALgBuAGwBYABvAG0AcAB1AHQBEABjAR8AZgB0AC8AcwEEAQYBCAAtAGEAcABpAC8AIABvAHIAIAFaAVwBXgAvAHcBiQAuAGMBbQFvAXEAcgFzAGEBdQAuATsAbwAvATwAcgFEAHMAMgAvATcBZgB4AC4AcABoAHAAPwAvAHQAbwF+AGMALwAyADIAMwA5ADcALQF4AQUBBwBlAXwBfgAvAVgBLgEwACAAbQBhARwAdQFRAU0AaABpAHMBOgEVAHkBMAGDAEMBjQFwARABHgGSAHQAIABwASUBJwBhAWQBPgE4AbwAbwBkAGkAZgEcAGkB0QB3AeAAaAEwAdEAYQBzAGsBNwBnAC4BuQBIAG8AdwFnARAALAAgAcgBMQG9ARwAbgBvAdEBbwBiAGwBxABoAcIBxAEKAQwAIAB1ATgBEAH0AckAIABuAdYBCQHiAU4B5QE+AegB6gG8AGUB7AEtAEkAZgIJATEAaABhAQ8B2AEcAXgAZwFVAHMBSQEUAHMB8wBiAHUAZwAgAHIAZQBwAYIAdAHFAYIAIABxAHUBUAImAG4BxQFOAGUBFQBwAGwAZQHnAQkBUQHZATQAIABlAb0AaQBsAU0AbwFXAS0BkQEhAGQB0wEmASgBKgByAEAAZwJJAGwBiwFtAAoACgBmAgYAYwI5ATICLgFIAGUAKAHiAGQBTgHzAU8AaQBnAVoB8wBjAh0AcgIpAQcAawGMAGwBggHzAXEAeAB0AngBggApAAoAIAAgAnkBMwJLAbICGgA9ACAAewAgAH0CggAgAogALgJpAU4AIAKKApMAaAKPApECbQJvAdECigKbAVoCmQF5AC4AeAAxApUBFgKhAQUALgB5AqUCigAxAqgAZgKjARkClgBpAmoCmAKDApEAeQKyAYQAZQJuAqACtwKiAG8BDwByAHcAcgHgAQkCigEGAGwBUQKvAC4CKgBmAGYCCAKKAowCjgK/AqkBUQB0AEIBMAE4AcUCigLXAtkCBgBkAHMCzABzAh4CxwKQAuUCzAIuAgcBgwKKAuoBZgByAswAYwJAAGEC7AEyAvMC8ALVArAAZAEfAHcAUABpAHgAZQJLAooC+wBhAv0C/wMBAswBVQB0Av4DAAMCACADCgMMAwgC+QAuAwQAdwBUAGUCfQKmAxUDFwJ9AswDFQBMATcC5gMfAyEDHgL8AFIAZQJiAxoDJgMoAHQCzAE2AGwAbAMnAykCyAJKAzEDLAMlAwUAVALFATQAZwJAAyoDOQM7AG4DPQBlAy4DNQM6AGkDPAM+AzQDMANHA0kDRAMTAxUARQMwAGkAcAHBAwMC/ANSAf4DVQNPApACogMvAGwDWQNUA1YAIANfA2EDWwMuAnkB2wBGAzUCpgBmA2kAZANrAzADOAB3AQMBswEIAz8DdAF5AbQDcwN1AXoAZQBQAvQCnQAgAxUDfQG0A4AAcgMtA1AC/AOFAQgAUwKGASIDeAOMAGUDjgBhAkAAZAN8A3oBCABSAfoCZgE5A1cDBQOSA5sBRwFxA5cCgwGYAToAPQAxACwClwAqAp8AdAAsAqUBQQKPAxMCzgLQAHIAWwAoAGkAIAEBADEAKQAgACoAIAAzACAAKwEWAF0CpgJyAvQDswNdAqkDtQEQA7gDugO8A74DwAPCA8QAMgPGAooAYgJ2An8C+AKDA8sCsAPNA7cDuQO7ARYD0gPBA8MDwQPXAU0DGAJ+AG8CeQPcAj0DpQItAGUAdAEEARUCiAAKA/ACXgJgAG4CYgFKAoQAbwBhAGQAKAFTAU4CgQKDAoUDlQKEAyEC3AKLAo0CjwQIAksCiQNkAHMALgGoAj0EAwFIAGgB8wAiAHIAIgQGA/8ChgQKAG4C5gKwAmUAZAMgBCMAKAQfAHcBwwM+Af4EIwODAG8DygFHAf0CFgE3AVEDiAAoBC8BUAHzBDsEHwQHAyEDbQAuBCYEKAJnBB8D+QOmAYsCeQFRBCoEDwFCBAkDrgKmACMEOwLiAoMB3QQiAVAAWwAxAF0AOgEbAXEAKAO9ApUCigAzADABwgI9A8oEEAAgApcCpgAwBGgETwJLA7oCrQPKBCwCSgEJA7oAPAKKBFMECwRaA8YDsgPdA90EaQPIAvUEVAR8BF0AeQRfAGkEPwPdBFcEggRiA8EEZQI0BI0APQRjAqUCPABuA8oEfwRxAToD5wKuBH8CgwMBAssEngPdBGsCswK1BJwEmAJHATgEqASaA7oDxASdA90ESASABG8D3gKmAogBtAGLAmUEXwKXAmwCvAKcBIoEaQPZAGMCdwPtAjQCigBuAkoEbgQhAXECJQPbAqYExwBsA8oDpwBqA6kALAOuA7AEMQSoBGkEmgSvBH8EaQBwAHgCpgTcBKMELQR2ACAEeAAgBHoEIwBzAFsAagR9BDIEogQHBLMEkgRYBOsE7QSGBIgEigSZAhoEkgRjBGUElgSoBJkCpgStAqcE8APdBPMEhAT2BF4CZwSJBQAEsgQhBM0CigGnAG4BRABiARAEOgR7BPYBeABiA7kB8wSJAfMAMQA2BPkEngSMBMQBgwT/BQUEfwTBBMMD7gKmADIAXgPbBQ0EnwLKA1wFKAEaA9oFJQTOBMgFNQSxBKIEoAK8BPsCcwSOADMElQFPBJcFNQSsBKcFNQUHBRgEXAUKA7kFIgTdBPIFOAURARQFFAUWBQgEXAUaBRwBOgApBR8FIQUxAToE+wU4BScFNQPqAn0FEAAgBS4FMAU7BTMFYAKDAnwD7AUsBMYFOgUoBTwEngU+BWACkQPgA7gAKABqA+MEYQPAApEEawPEBN8FfwPlA9QDxQKmBVgAOgVaAGkFHQVQA90FegB1As8DzgAoBX0FhgO/A94CkgK0ApQFhATgA9EFmQWIA9YCpgUqBWsFKAWSBZQD4QWXBaAFgQKiBYMB0gWfA+QFoQPnADMD6QVwBaYFBQWFAooFhQSuBQ0FdgUBAooFAwTiBJ8EqgR/BXYCLgP0AHID9gF5Ao8FeAVRBCEEpAToBIQEWwTJBAkCiAS1A5kCFgFzAkEEugWcBBoCuwK9AHQEigTSBNQE1gOxBO8EngOnAGkE1AS7BecFDQSBBVMCTAUTAG0FFQByBRcE6gTsBVkAdQUbBY4FXAVeBZAFJAUsBWQFBQWoA7YFfAV+BawFmgWvA9AFsgPTA+cFowKKARkAXgEyBSUFvgXFBXcGFwXEA/ECgwXIA/UD3gXNBKoD+QJfAmECYwLeAtoC4QAoAogB8wKkAfMCqwYrADIGLQAyBB8EVwB4ARkAPAAgAqQEZgVGBQ4ECQFxAW4CpgKkA8oGOQKKBjUGQgK6Bj4AcAYgA/EEVwK5BOYB9AVEBGcFzwY9AkgAcAKmAqsDygKrBlYAMgZYBkcGVAZKAo8GNAY2ARYGOgPyBckBFQSxBjQCpQA+BgoF3gZkBh0FygSpBksCGgZNBjcGUAEVBm8GZwYXBkwGagWaBFEElgZlBh4GaAIaBjkGdQZkBkMGYwaCBjgBGQZrBYIGbQZ/BjUF2AKpBGsGiQZZBoUGfwZZAq0GcQZgBnMGiwZ9BL0BWgZkBk0C3QKiBFEEsQKRBocGQQMTBpgGTwLMBpAGRAZbBqoCugK5A/gEqgYjA/wGJQLlBikBeQHzBAQF3wB0AHkAcABlBB8GvwbBAqYGxAEJAjQAIgBuAXUAIgROBCEEEgBmBBQEFgBuBBgCawAgACIAdwQeBpsBTQbAAscCigbKAGYAcAAiBjoE0QI0BNMDqgKaBp8DrwXuBKIEVwV+BmsGdgNkApICxQRfACIAXABuBB4GmgSiBeoE1AaNArUE1wR+BPACsALEAsYAKAPbAFQAbwBIAxgGugPMBZMGBgWWBggGDQZsBKYDxAYMBYAD5gPVAF0AKQUiBXYEsQU+BFcGxwSOBuAAdAbjBgMDZAbmBv0GpAbqBwAF6AUpBTcFcgO7BcMFZgVxBMUHMQSrAhoG7wZjBn8HAwb0AmcG9gb4A74FvwcnAYMF6wboBa4F3gcsBQ0EVwWlBTgAfgajBw0FqQYHBZgFrQaSBm0HFQdTBxgFaQPGByYG+wbzBwUCJQLFA0IBiwJzACgEZAcbBWAHTAcwBgUFlQWrBxIG/gWdBJsGCQWiAF0FYAc8BwUAXwcHBwkHCwdpAoAFkAdCBFYCGgW3B00HTwPfBw4HbAcRBxcHbwIAB1cHcgW0B1sFRQd1B14EXwdgAeoHYwL0B2UDvQWQBW8D6wVoB2sFqgeIA+UHigPnBxYFhweOB5EHBARfB3gFJQcIBwoAeAAoB4ID7gdnBQUHfwVhBZoFewcQB1gHogeMBxIFiARbBuQFNQd2B5MCoge3B20HiQdHBxQHcQe8BJwHGgW+BW0HwAeSBz4G1wd+BhkEsAfUBx4GFwKwAvIAbwRMAoEGIgP7A/0BTALuBRYGKgODAcQCPwG+BisGLQHzAHMGLAKQBi4CkAY1B+sCuQQfBOAGRAGBAYMErwEcAooBHAI0BK8H7AKsB/ACpQf9ApkGqwBzBlkIAwK3Bq4H8AEZAjQHiggEAroIBggMAYMG6QXhBs4ECQBjAG0DngQNAtQEIAXWAHQC9QAiBs0E8QQhB3wC9QRtCCMGUwVnBfEIJwAgAo8F5AgGBugCuQdJBH8IGABkAFsAIwg1B8sE4QPKCDUINwg5BK4D6QEcA8QHEQgwBuUHRAA9B/8ALAfsBjAG7AUjAhoHngdSBgkHugfJBxcHcwAgB04FNgTCBM0HXAPdCCUGkQeFB1EHuAhSB8cHcAekBbMHGQdKCE8IHwhXBt8HJQeQBUoIGQg+CBkIOgKKADQFYAg9CDgIcwhABLUIHwV5CGsIbQYWBhsEngh4CD8FiQYRBQ0IhAh6CIYIWQUrAYIEqAdCBFcIUAhiB24IZAeLCFQHpQPEBbUIbAczCFsIbwTwB7AHNQiSB8UHoQiVB6MHWAWIBbUIaQKQCGsIWAghB78FKAiJATkIewh1CHcIcQh5CLIIiwdgCH4IIAgiBPAHtAixCHQDwQiICLYIhQe+BREHnAYVBT0H1AK3CH8IqwByAC4ALgiiB6AFmQhTCGYGDghAA8oFdgjACLMAIAh2CDQIxAiKCMYIzgPKB2ACpgghBl8CgwguAjQHRQAsCLcBqwgzBjwCSwBjA8cIcQPiBgkBGQjYBlICSwBhCPQINgj2BxII+AdaA8oEjASOBnYEqAHcAHMH5wB5CNED8wBDAQQAcwGCAFAH2wAoAHgB8wBhBIoHHwT7BI4BGQhcCQgJCgkMAtgCdgEnBicBywPuACgJFwjZBTMJBASTA+YJHQfmAGwBvgkgAxwAdAklAYIJJwkYCSoJGgksADQIrwR/CR4JMAkLB6gCZwkoBcYGFwP5B94GJAP+AvICQQX2B+QEggJ1CFoFJQJ7CMgHsQgWAksCwQEQCUIIXwQVAsIJQgLMCVgCwwc9BsYBmQNcAogAOgNfAzIAdAcMArAH7QK4A6oFmgfxBZoIMgEyAnMJUAiNAnQInAUlBB8CkQlgCVoCigl9Bz0GtAOXBrYH4AEVAxUDEQBsCWsH6QH0AnEJdQiMA9sJUwgqCVUHgAY4Bk4GpwgCAYMBHAY3CW4H9wmVBowCogaQAjQBHAmfAqkGTQZ/BngG+ge1BI0IDQLACV0JYgcmCKIBHAhjB1UHyAWxCFUIwQSCCOgHtQheCawCqQmAAsYJPQe2B4YFqgmyCJQJtAdwCbYImAdaBaQHLwiOBhoG2wigAYMJvQKwCb8BcQnBCbEHuQilA8QJyQhnA+gGxglUCc4GmglIBrcD/gMQAwcJiQfkCRUB9AYzBoMJlgmgCZgB9AnuCaUJ8ATgCaQJbAgSCfEJ9gKqCRwFRQaABnAEsQmoCdgJswcDB1YJlQeNCEAH6wfDCcMFfAnFB8YJxwiWCdwI1wdaCgkHUAcPACgKDQikCg8D5woRB1kIqQnjCYUDgwL8CTMJigY4B+oHMwl2CZAJeQmTCB0CSwW6BjgI6ghHA6oAIwVwCPAJlAVwBYwF+wVbBIkImwc/CG4GUQSeCWYJhwnnCRQKJgo3BY0FjwooCVIKKgKACSkEoQSeB/UFsAV/BKgH+gnxBb0JRQiCClAE4ApWCeIGtQffAmMDIwQpCekJbwfvCXEJcwlPCY8KSgnRBB8EaQFmAGwBRwBfClkBGQEBBqkKLAE6ClAKbQpvCfUAIARlAT8GYwI0AC0Erwp4AGEKcAUtBZkBvQFOAC4AYQBiAHMAKAqCCnAKawSzCo4KVAZNAQEGVwgoBHAKVAqSACAGawp8AdkJ8AqAAo8KmgYRCoYEGQqJCosKjQMBCm8AeQl7AXkAOgpCAw0JFApjCW8KZwglCZEHNAByCewDgwqpCoMJ9QMDCrsAXwEcByYEaQEQASUC9QqaAQEKjgTgAYAGsATjBHUGOAKlCFgGkAcBBPoAIAAoCsQCNAA+AooAMAO+Cn0FlgrXAYMIWArbCZ0DuQp6CtsDvghcBJ8AcgrFAqYK3wPjCskFDQarBlkHFQB5CI8IywJHCuoHNQrtA8QKkgSoBqgCpQcVAHgEqApBAvwJiAqxBi0KswmOCrUKSwq4CNkJRgfOCPEK9wrrCr4Kbgq8Cu4KvwEcCssEcwTkBk8ImwZNCtMEiwIaCtYK+AGDCtkKewrcAdkK3gsjCJsK4gI0A7kJowsmCucIngU9CyoCigrtCsgLFwUNCv4HowsBCMoIggrpCxILEQI0CvsKvws8BJ4K8Qr/AToK9ASiCwMDBQsFB+0H7wq0Cc0JeApqCw0D8QlHCl0JSQFMAxUJaQokC08JbwplBjAJdAL0CkkD7gq2A9sKrAEFCq4C/ARFCwYGTwYvCwcJjQtjCmgLZQsLC2gAZgtqAwULbAteBisKYwthC1EJUQt0C1QC+Qt4AHcLegt9C28B9At+CwkLUgtmCXoCrwuEC3oLYQpkC5ILigtyCwoLVAofAmMJaAMsC10KsguICmYLiwuAAnoLdQbbBpAGNwY5CsIEswZIBkAE4gaoCswCgwgKBkgJugZMBmIGWQupBMoGVAZWBOIK8QuvC4kJ3wFuC7MGgwZiCZcGbgPzBoEGegaDBnwGpwn8Aj0J/gZ5BnILvgmbAqILtgn9CagGlAvKC9MLzAZ3C8YJ/wvICs8J8glsBvEGhwvEBokGkAn6BpAGjwgQCaABGQvXC+ACqgbxCAUL0wKlBpQGnQK4C9oLvgeECfsJqQbbCasIEwmtCVkJrwsyB0MB9AA9Bi4IMghNBH8DpwB4AD0GLAfxDAgKQAoKCGEKFwqAChkKBAfICRQMFAnKCOIJuQs9C1ULwQtzAjQJ0wlcDAAJwAcmA6cAeQwFA6oMBwTYBvsCNAwLDA0ITAwsBPAJsQwUCNQJ2grVAHgMGQndBhAMIAPcClcMHgnPCjYJ4AnSC/4JvgmuDCUMAgwnDCkALAwrCx8DpgwuDAwDqgwODDILSwwRChYAeQw1B1QMFgdwDBgHmQndCJoIxwmSCeEMPwxkClwJgwpeA/4DGwNBA0MLnQtwBooGMQYrADMGLQxyC2IJeAuXDEMLdguQAyELbQuTDHAMdQtkC6MLggPeDHoEKQtgDHEMcwtxDHYLjAukC4MKYAJnAHgMdAB5DHQLewx/DD0LjQlVC5kD/gNfA00DQgJADG0LbgxvC4kMhwH0DHQLfwl3DJcKTAqXAbwBNwBYC6wJVgyrAG4AWQu6DK8BvQB4DK0GRASvBGkMtQyyB/sErwZhBk4AbQysBmQMwQBuDLcGigmpBjQDwgY3DMQMrQZ/DMwGQAPCC/QMwAE3DLIMzgzUBloMyAZzDMoMsAzVCf0MxAy8DKQM2QzHBmsMtQzNDN4AYQy2BkAL7AveDJAKmwG8DOgM5gvNDOUM0AziBk0M5AzoDN0M8gz4DNgGlAPCDPcAeAz5ARUMuwZWDNEGFwRpBdEM8wEBDM8KWwRpBFECig0DDQoM1w0MBLMD4AKmAtMCjwBfA+ALbAPgAfMEuwvfDREMxQScCwcD4wzfDSIMxw0gDK0ErgYxDSQNEgPkDRgNGgx7DRwEagdIDScMsA0pARYNKw0gDLINKgY4A8INKA0mDJINLAyxBJwEHw0ZCcMNGwnDDR0NNAztDT8NPA1BDToNJgY5DU0NOAscDVAErg1FA+ADcQmJDTINHgOuBB8G/AOqBe0MVAwDBucE1QcrDA8JlAe3CNMDwAYLB48KPwxVC2kKrwMBACgNCwhUAfMNJQhDBX8MiQyAC1MMeAr1CIIH1wOXDJkLWgNYA1MDWwyfDH0MogyVDHcMYgsMCZQLpgvfC7cGUwY/DLgGQggABkUEfwuxBl4MQQe1BnQLHA2SAksLqwy9BlgIAAazBH8GogPqC8ANnARpAi4JEABsAXAD/gKtCswEaQIlAi8Cpg10CqUBfgWZBjIAIAGADa0D7Q2wARQMtAK0DMYKsQobDbwLGQyqDMEAZAzgChcLSAfzDb0FaQyvBdEJFApyCs8Dvg3JCnUNDgrVCpQGTw3YDdIMqgkwAiUMxgy5BLMN4gB0DOAErw1gACwNvw2vAjkAKwOqDA8EaQpQCocAaAAuA24Abwk2DXQNxAPnDfUCXAqMDbUGVQPACjsNbAXeA74DxAAwAC4ANQS/BLMKVA3+DfgN+g3LDTsM7wqIARIG1A4BBZkOBAXgBL4D5w4JDgsJAwIaA7oG8AnBDI0Lawx7DecAWAQ9AecN6AmLAHkNewyWDIwH1QiCDigGQARoDisM4AtKDGYD+gtZATUDNQNmBEwKYgxuDIYNiwyLDIIMvwunCQYI+g2pBlUNlQ2ZDZcLvQ2aDaoM9Qu1DkkLEA2iBqwNpw2lC70NqAuyDasEsw3tDcEBFQ2yDK8OGAKKDbgKiA26A8ANyAPyDa4OYQ3DAGQNxQY5CdsOaw2zBLMOEg23CvILiQ3fDnUF0AZtDmYGkApzBGEN2Q0NBuoOeA3WAqsOewyvDjQEcg3hDjcIOw3KDMIOTQp1DSUNow3KDPAM6gy0DPsH+w58BAkAYg0IDpcNUw3lCCQN2w0QDNwFSQp1DRUC0gQODE8KMQ3sAVANwA3vDfENYw3zAqYODwNpBfYN+w5wDf0KpQGMDgABcQ4CBVwFmQKXDgcKew4KDgwEIQ4OCqUOEA64DncDxA3+DhYGKQ6/DhkD5Q1eDh0Oxg4gBJsOIwhcDUYFqQ1IBakCKQ0eDjQOoQ4qAiUMsg1WDVQFsQ11CmMNQg4TA70MQASADisMxgtFBAcOjgf7CboO3AO2DVoAKA0yDp4NNABiDV4KMAOoA6oO/Qb/DA8F5A8DBeYNYw1pCgsIowWZDwQIZQ1uBjsNcAt3DXIJiQ11BxYNdw0tB4gOLw2MCrcHHAfWCUYGIQtYCeQBTA4QA3ADNQtdCiYMpgopDIINtAFHBMINFgolCfEIHARpAn4JjgB0C5cJ0QhfADoJ5gqwCeoKqwbbB68E/Ax1CycBOQevCF4JLAglD0UK1QFbDEMEjgpqC8UGZgmpBHQDPgAjAiUCdgzuBGULHwSBClAPVwTCBHwEMwqKAkAEQwJICVgO0QJ2BR8OxwgXClQPXgBrD2AEfwQ0D2MCLgBtD2YPbQ9pDtgB+QHRBwYE4AvSAqkGOQSRCZoJcgnwAGMKegvLCZ0AYwsvC/YLMQ1vCxAAYwpnAGMLCgJiD04HhA88A/MLBQ+EAnEPQAbtCyEPNgL0BI4PjgJzD0sPRwtSD58PSgHYD0YPTQ2ND58PUAroDIMPFQ97D5kPHA5FDX4FBQ9xBDYCOgEQCWoPdgEyCckFDQ+2AZQPuAQ5D7sPiAWQD78ENw+5D2cEwgJxCloNLg+1D2IPtwQ4D7oPLwBrD5kPxQ/PD8AP0Q/JD9QPvA/WBDUP2A/ID8MKGA++D9cPxw/CD9MPyw/dD2MP5Q/SD2gBMghCD80GGA2ADyENgg8jCiADhAXZDykJjAPeBjIPAQ1lAogAMgAuDwkLHw3rD/8Fmw8FDwoPrgsECkMFAwm2AfMFfgPECg0KFABmEAAHxABqDFkP+xAGDFwAaQw6ChIEWxASEBQPDAV9EBcQBQWvA7kQHAdZA9YQHwLNECEQFgoOEBMQGQiWECYMXgoSBbUJGA/zCYIOOw8kCYYDiwXZA4cPuga7DzIOLggBB/IJbwhLB/ILYQ//CrkISwmWC6gMAg81C7kC3Qp0CAkIAAhLCOQOUQZJDZwIkQ2eCDAJwRBPDZQH7gTiEFwC3Q2mBZEOXA2bDOIQSwaWC9UL3AvPBtsH/wzuBLYBCBAwD1ELxwvQCBEGTgbxC9YL3hBcCfYEtwRrCacQbBBoBoQHOgn9EG8GmQaJEEsQfRByEH8QhQgKEHECFgaTEHsGlRCEC80QYgaIEJIL9QXZEHMGfxB3B4QEtwalBhcP/QhIBi4IEQo1DAMF6whJEEYNaBAJC00KQw/MBgwISQpVACAIRAfvEAUQFRAjAXkQABAlEBsQMwdZEB4QGBC3EC4QugoFEDIHGww7AF0QKhDBDBUQwwwXELwQxhA0B8wMZQtXDGcOPAohA6AF2QOUA5YNiAtfC5QQHwqQBCEKUAgsDQcOfgp7DK8AeAE3AHYDbQOVCk4EaQpUEOIEsw3bEO8OyBDoEOoLDwy/CyUQTQ+MClkE4gXRDoAL3wpbBc4D3QpxBHMQ5A1SDMcKWwuwEPQFEQlkDB8M9gy9CcEKkwTiDdsN3Q55BK8RAQKDCpMLvRETAqUKlQkBC7sRCgFNEQwOXhDgAHMDjwKmBGsBgBAkBd4MrwB5ESUDlQLmBFERKRC5EAEG6gKPEKIDqhACBy0QpwXsB0gQqwTaBKwE2QSzAGoFfgKKAGoHNwY4EPQGfwBpBJoEawEBEUsEnAmpCtQAeRFJCf0RQwKmBFEBARFWBK4RUQsQCi4Otg35DrgRTwEBDh4N3wB4ES4CQA7EBzIE3g7JCogOywcQBxERZA3RES0DjxFpCwIKrQ+vEK8NehCyDxsQwBAhAHAMWBDCEHMDxAQDDDkQvQe9EMgRfQwSEX8QuAEFEMwMXATfECcHcxDJEX4RgBDLEYIK1RGQEYYHjhA2C1YPIhDUEDoQ1gN5A3YAZQOiA50P+RBCAG8J6gBvEEIDThDeDK8OvQ61DrwJEwNOEN8F1gE3EbEOFQE3CScMnQbCAo8KWQ0kDsoOtwcGB9sFmQAoEakFmAPEDhYRxRGrEcgOxQ4fERgGVhHAEW0RwhGwA8ARxgoYA+MRyhHWEccFoA4IDtcMqgEfA0IC5hFfCTYOzwBxD8IRMwRrDFoRjgiWEAUEURHrETQF4QeyDWQAPQAtEeEBVQ3sAzwAZRCmBvwR9hH6EfkR4hCmDKoH7BG4DfYRbgO6A8ARsBFZCNQBNwUiDbQRbBIGEcISCAKQEbcNeRIJB9sFIgiRCr0Kew+nB/AL4BHsEh0IBgqbCtoSIQ+BEe4OhQ+tC0wDBg8+B6MGLQPnAGoRkwhhEiIR8AWvB+wMGhGIELYPDBIzEBgSNQB4CcoQKRGJBw8SOxEqB8gSNgxfENEP8Q7vENMQOQogB6oD7gesBwsLZwv8BWMMAgoBCB8HlQGYCocAKAAiACUAeAAiDXcKpQJ5AGcRwwexAC8N/hJiACgGMgRHCw8GHBCBBuMIvRJLCYQCYw74ARAO3gO2DUoG/wrPDkILlBG1AksKyQzqA+MKdATaCncLRA9ZEh0KnwqBEoUKowPADf4KigqMCskSfQq6CxQKwAzYCpUOogQJAGkKmQsXEoYKfRKICqESmxKLDhQN9hKOCqgSkw+aARoPDAZZBgkFrwKkBbYRIge1En8LJQqaDaALQQrGEpsLNxKTCsoN4ArNAz4GOQrRARkMTge1CyIK6wslCuIK3RLDAjQK4QO+Cy0C/w9ZEMYPrQrtCzULKhK4CnkK8A2lC0gSmQ1/CI8LNBK1A+cK/ASiCzoLAASoB7cSqgcSEqwI4ggfAjcSShJsCnUS0RKSCnkLFhKmDdELvQ9UAQkGWQhYCx4ROgmUEsgLJAraD6IS/AsrEssBgwsuEs4Piw8SBXcS3As2Eu8Kgw45EuANlxLYDvMOMhLbC0AK+hMLCnAKUxLXB6MTDQhdEqkRHBLmCgUSrQljEuoQ0hGeEkwScw1ZDygNXA00DwAOrBCzBeUNZw6zDeYECwRsBdUCSwB3AGEB4BD1Ck4TLQjsDWISwQSBAQQFpA8MDWsNMwfIAGkHdA+bATITQQp9D3kEahM4AdEPrQRUBYoTMxEIBJ4TNxM5EQsTIxJJE0kTTQFDAYMKfRNXE1AMAgR/E2ETOgU0ExIMZQmUE1IO2hNjCnUJfgNkEOsTZwyqE2UCyBNxBKgN6xM+EvoPjRNBA9gTQwdYDW0IqhNeDiQTVhNPEyITcgSwEuwTSRNlD60TZBOFE3UTiQTwE28TTQleBTsK9grUCVoTjAUGE3wRIRNaB7MTlhFcBSkTfhKrCgUTRwPHAQQS2hMkD/QAZA==' data = frombase64(d) print('Where do you want to extract Music Composer and Audio API?') dir = read() if dir:sub(1,1) ~= '/' then dir = '/'..fs.getDir(shell.getRunningProgram())..'/'..dir end fs.delete(dir) local i = 1 local path = '' while i <= #data do local c = data:byte(i) if c == 0 then i = i + 1 local l = data:byte(i) path = dir..'/'..data:sub(i + 1, i + l) i = i + l + 1 elseif c == 1 then i = i + 3 local l = data:byte(i - 2) * 65536 + data:byte(i - 1) * 256 + data:byte(i) local f = fs.open(path, 'w') f.write(lzw_decode(data:sub(i + 1, i + l))) f.close() i = i + l + 1 elseif c == 2 then fs.makeDir(path) i = i + 1 end end print('Extraced to '..dir..'.')
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement