<Text-field style="Heading 1" layout="Heading 1">Introduction</Text-field>

<Text-field style="Heading 1" layout="Heading 1">Interactive Stock Quote Importer</Text-field>

Enter NYSE Stock Symbols

restart; tagProc := proc () local tagString, tagList, i, nTags, tagNames, tagVars; nTags := 0; tagList := [[BookValue, "Book Value", b4], [Change, "Change", c1], [EPSEstimateCurrentYear, "EPS Estimate Current Year", e7], [FiftyTwoWeekLow, "52 Week Low", j], [MarketCapitalization, "Market Capitalization", j1], [ChangeFrom52WeekLow, "Change From Fifty Two Week Low", j5], [ExDividendDate, "Ex Dividend Date", q], [PriceEPSEstimateNextYear, "Price EPS Estimate Next Year", r7], [ShortRatio, "Short Ratio", s7], [DaysValueChange, "Days Value Change", w1], [DividendYield, "Dividend Yield", y], [AverageDailyVolume, "Average Daily Volume", a2], [DividendShare, "Dividend Per Share", d], [EarningsPerShare, "Earnings Per Share", e], [EPSEstimateNextYear, "EPS Estimate Next Year", e8], [DaysLow, "Day's Low", g], [FiftyTwoWeekHigh, "Fifty Two Week High", k], [FiftyDayMovingAverage, "Fifty Day Moving Average", m3], [PreviousClose, "Previous Close", p], [PERatio, "P/E", r], [PEGRatio, "PEG Ratio", r5], [OneYearTargetPrice, "One Year Target Price", t8], [LastTradeDate, "Last Trade Date", d1], [EPSEstimateNextQuarter, "EPS Estimate Next Quarter", e9], [DaysHigh, "Day's High", h], [EBITDA, "EBITDA", j4], [ChangeFromFiftyTwoWeekHigh, "Change From Fifty Two Week High", k4], [DaysRange, "Day's Range", m], [TwoHunderedDayMovingAverage, "Two Hundered Day MA", m4], [ChangeFromFiftyDayMovingAverage, "Change From Fifty Day MA", m7], [PriceBook, "Price Book Ratio", p6], [DividendPayDate, "Dividend Pay Date", r1], [PriceEPSEstimateCurrentYear, "Price/EPS Estimate Current Year", r6], [Volume, "Volume", v], [StockExchange, "Stock Exchange", x], [ChangeRealTime, "Change (Real Time)", c6], [AskRealTime, "Ask (Real Time)", b2], [BidRealTime, "Bid (Real Time)", b3]]; tagString := ""; tagNames := [Symbol, Name]; tagVars := [Symbol, Name]; for i to nops(tagList) do if parse(DocumentTools[GetProperty](tagList[i][1], value)) then tagString := cat(tagString, tagList[i][3]); tagNames := [op(tagNames), tagList[i][2]]; nTags := nTags+1; tagVars := [op(tagVars), tagList[i][1]] end if end do; return tagString, nTags+2, tagNames, tagVars end proc; dataFromGUI := tagProc(); tags := dataFromGUI[1]; nTags := dataFromGUI[2]; tagNames := dataFromGUI[3]; tagVars := dataFromGUI[4]; stockSymbols := seq(parse(DocumentTools[GetProperty](stockSymbol || i, value)), i = 1 .. 5); nStocks := nops([stockSymbols]); stockSymbolsString := convert(add(stockSymbols[i], i = 1 .. nStocks), string); sid := Sockets:-Open("download.finance.yahoo.com", 80); Sockets:-Write(sid, cat("GET /d/quotes.csv?s=", stockSymbolsString, "&f=", s, n, tags, " HTTP/1.0\134n\134n")); str := "": b := Sockets:-Read(sid): while b <> false do str := cat(str, b): b := Sockets:-Read(sid): end do: Sockets:-Close(sid): strLength := Length(str); start := StringTools[Search](convert(stockSymbols[1], string), str); pos := StringTools[SearchAll](",", str); pos := select(proc (i) options operator, arrow; start < i end proc, [pos]); newlines := StringTools[SearchAll]("\134n", str); newlines := select(proc (i) options operator, arrow; start < i end proc, [newlines]); pos := sort([start, op(pos), op(newlines)]); res := Matrix(nStocks+1, nTags); k := 1; for j to nTags do res[1, j] := tagNames[j] end do; k:=1: for i to nStocks do for j to nTags do str2 := StringTools[SubString](str, pos[k] .. pos[k+1]); strAscii := convert(str2, bytes); strAscii := remove(has, strAscii, 10); strAscii := remove(has, strAscii, 44); strAscii := remove(has, strAscii, 13); strAscii := remove(has, strAscii, 34); strClean := convert(strAscii, bytes); if StringTools[HasAlphaNumeric](strClean) then try if type(parse(strClean), numeric) and not(StringTools[Has](strClean, "/")) then res[i+1, j] := parse(strClean); assign(parse(res[i+1][1])[tagVars[j]] = parse(strClean)) else res[i+1, j] := strClean; assign(parse(res[i+1][1])[tagVars[j]] = strClean) end if catch: res[i+1, j] := strClean; assign(parse(res[i+1][1])[tagVars[j]] = strClean) ; end try; else j:=j-1: #k:=k-1: end if; k := k+1 end do end do; DocumentTools[Do](%Summary = LinearAlgebra[Transpose](res)); if DocumentTools[Do](%HistoricalData) then HistoricalData := proc (ticker, startDay, startMonth, startYear, endDay, endMonth, endYear, timeStep) local sid, b, strLength, start, str2, newlines, days, commas, pos, data, i, j, k, str3, strAscii, strClean, str; sid := Sockets:-Open("ichart.yahoo.com", 80); Sockets:-Write(sid, cat("GET /table.csv?s=", ticker, "&a=", startMonth-1, "&b=", startDay, "&c=", startYear, "&d=", endMonth-1, "&e=", endDay, "&f=", endYear, "&g=", timeStep, "&ignore=.csv HTTP/1.0 \134n\134n")); str := ""; b := Sockets:-Read(sid); while b <> false do str := cat(str, b); b := Sockets:-Read(sid) end do; Sockets:-Close(sid); strLength := StringTools[Length](str); start := StringTools[Search]("Adj Close", str)+10; str2 := StringTools[SubString](str, start .. strLength); newlines := StringTools[SearchAll]("\134n", str2); days := nops([newlines]); commas := StringTools[SearchAll](",", str2); pos := sort([1, commas, newlines, StringTools[Length](str2)]); data := Matrix(days, 7); k := 1; for i to days do for j to 7 do if k < nops(pos) then str3 := StringTools[SubString](str2, pos[k] .. pos[k+1]); strAscii := convert(str3, bytes); strAscii := remove(has, strAscii, 10); strAscii := remove(has, strAscii, 44); strAscii := remove(has, strAscii, 13); strAscii := remove(has, strAscii, 34); strClean := convert(strAscii, bytes); if j <> 1 then data[i, j] := parse(strClean) else data[i, j] := strClean end if; k := k+1 end if end do end do; return data end proc; StartDay := parse(DocumentTools[GetProperty](StartDay, value)); StartMonth := parse(DocumentTools[GetProperty](StartMonth, value)); StartYear := parse(DocumentTools[GetProperty](StartYear, value)); EndDay := parse(DocumentTools[GetProperty](EndDay, value)); EndMonth := parse(DocumentTools[GetProperty](EndMonth, value)); EndYear := parse(DocumentTools[GetProperty](EndYear, value)); nStocks := nops([stockSymbols]); if DocumentTools[Do](%Daily) then TimeStep := "d" elif DocumentTools[Do](%Weekly) then TimeStep := "w" else TimeStep := "m" end if; for i to nStocks do data := HistoricalData(stockSymbols[i], StartDay, StartMonth, StartYear, EndDay, EndMonth, EndYear, TimeStep); assign(cat(stockSymbols[i], HistoricalDate) = data[() .. (), 1]); assign(cat(stockSymbols[i], HistoricalOpen) = data[() .. (), 2]); assign(cat(stockSymbols[i], HistoricalHigh) = data[() .. (), 3]); assign(cat(stockSymbols[i], HistoricalLow) = data[() .. (), 4]); assign(cat(stockSymbols[i], HistoricalClose) = data[() .. (), 5]); assign(cat(stockSymbols[i], HistoricalVolume) = data[() .. (), 6]); assign(cat(stockSymbols[i], HistoricalAdjustedClose) = data[() .. (), 7]) end do end if; #Samir Khan, skhan@maplesoft.com

use DocumentTools in # Enter Maple commands to be executed when the specified # action is carried out on the component. # Use: # Do( %component_name ); # and # Do( %component_name = value ); # to set and get properties of the component. # You can also use arbitrary expressions # involving components, e.g.: # Do( %target = %input1 + 2*%input2 ); # Note the %-prefix to each component name. # See ?CustomizingComponents for more information. if Do(%HistoricalData) then SetProperty(StartDayLabel,visible,true); SetProperty('StartDay',visible,true); SetProperty(StartMonthLabel,visible,true); SetProperty('StartMonth',visible,true); SetProperty(StartYearLabel,visible,true); SetProperty('StartYear',visible,true); SetProperty(EndDayLabel,visible,true); SetProperty('EndDay',visible,true); SetProperty(EndMonthLabel,visible,true); SetProperty('EndMonth',visible,true); SetProperty(EndYearLabel,visible,true); SetProperty('EndYear',visible,true); else SetProperty(StartDayLabel,visible,false); SetProperty('StartDay',visible,false); SetProperty(StartMonthLabel,visible,false); SetProperty('StartMonth',visible,false); SetProperty(StartYearLabel,visible,false); SetProperty('StartYear',visible,false); SetProperty(EndDayLabel,visible,false); SetProperty('EndDay',visible,false); SetProperty(EndMonthLabel,visible,false); SetProperty('EndMonth',visible,false); SetProperty(EndYearLabel,visible,false); SetProperty('EndYear',visible,false); end if end use;

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2I1EhRic=

JSFH

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYpLUkjbWlHRiQ2JVEjQlBGJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRictSSNtb0dGJDYtUSJbRicvRjNRJ25vcm1hbEYnLyUmZmVuY2VHRjEvJSpzZXBhcmF0b3JHUSZmYWxzZUYnLyUpc3RyZXRjaHlHRjEvJSpzeW1tZXRyaWNHRj8vJShsYXJnZW9wR0Y/LyUubW92YWJsZWxpbWl0c0dGPy8lJ2FjY2VudEdGPy8lJ2xzcGFjZUdRLDAuMTY2NjY2N2VtRicvJSdyc3BhY2VHRkwtRiM2JS1GLDYlUTZGaWZ0eURheU1vdmluZ0F2ZXJhZ2VGJ0YvRjIvJStleGVjdXRhYmxlR0Y/RjktRjY2LVEiXUYnRjlGO0Y9RkBGQkZERkZGSEZKL0ZOUSwwLjExMTExMTFlbUYnLUYsNiNRIUYnRlRGOQ==

LUkjbWlHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHRic2JVE1b3V0cHV0fnJlZGlyZWN0ZWQuLi5GJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRic=

print(); # input placeholder

JCInaHllISIl

JSFH

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYnLUkjbWlHRiQ2I1EhRictRiM2JS1GLDYlUTNXTVRIaXN0b3JpY2FsQ2xvc2VGJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRicvJStleGVjdXRhYmxlR1EmZmFsc2VGJy9GOFEnbm9ybWFsRidGK0Y6Rj0=

LUkjbWlHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHRic2JVE1b3V0cHV0fnJlZGlyZWN0ZWQuLi5GJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRic=

print(); # input placeholder

LSUnTWF0cml4RzYjLyUkJWlkRyIpZyg+JFE=

JSFH

LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzZZLUkjbWlHRiQ2JVEtblRpbWVQZXJpb2RzRicvJSdpdGFsaWNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLUkjbW9HRiQ2LVEqJmNvbG9uZXE7RicvRjNRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0Y9LyUpc3RyZXRjaHlHRj0vJSpzeW1tZXRyaWNHRj0vJShsYXJnZW9wR0Y9LyUubW92YWJsZWxpbWl0c0dGPS8lJ2FjY2VudEdGPS8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3BhY2VHRkwtRiw2JVEuTGluZWFyQWxnZWJyYUYnRi9GMi1JKG1mZW5jZWRHRiQ2Ji1GIzYmLUYsNiVRKkRpbWVuc2lvbkYnRi9GMi8lK2V4ZWN1dGFibGVHRj0vJTBmb250X3N0eWxlX25hbWVHUSgyRH5NYXRoRidGOUY5LyUlb3BlbkdRIltGJy8lJmNsb3NlR1EiXUYnLUZTNiQtRiM2Ji1GLDYlUTJLT0hpc3RvcmljYWxDbG9zZUYnRi9GMkZaRmZuRjlGOS1GNjYtUSI6RidGOUY7Rj5GQEZCRkRGRkZIRkpGTS1JJ21zcGFjZUdGJDYmLyUnaGVpZ2h0R1EmMC4wZXhGJy8lJndpZHRoR1EmMC4wZW1GJy8lJmRlcHRoR0ZecC8lKmxpbmVicmVha0dRKG5ld2xpbmVGJy1Gam82JkZccEZfcEZicC9GZXBRJWF1dG9GJy1GLDYlUSNwMUYnRi9GMkY1LUYsNiVRJnBsb3RzRidGL0YyLUZTNiYtRiM2JC1GLDYlUSlsaXN0cGxvdEYnRi9GMkY5RjlGaW5GXG8tRlM2JC1GIzYpLUY2Ni1RIn5GJ0Y5RjtGPkZARkJGREZGRkgvRktGYXAvRk5GYXAtRlM2Ji1GIzYlLUYsNiVRJHNlcUYnRi9GMi1GUzYkLUYjNiotRlM2Ji1GIzYnLUYsNiVRImlGJ0YvRjItRjY2LVEiLEYnRjlGOy9GP0YxRkBGQkZERkZGSEZfci9GTlEsMC4zMzMzMzMzZW1GJ0Zjby1GUzYmLUYjNiUtRjY2LVEqJnVtaW51czA7RidGOUY7Rj5GQEZCRkRGRkZIL0ZLUSwwLjIyMjIyMjJlbUYnL0ZORmF0RmBzRjlGOUZpbkZcb0Y5RjlGaW5GXG9GY3NGYHMtRjY2LVEiPUYnRjlGO0Y+RkBGQkZERkZGSEZKRk0tSSNtbkdGJDYkUSIxRidGOS1GNjYtUSMuLkYnRjlGO0Y+RkBGQkZERkZGSEZgdEZgci1GLDYlRi4vRjBGPUY5RjlGOUY5RjlGaW5GXG9GY3MtRiw2JVEmY29sb3JGJ0YvRjJGY3QtRiw2JVEkcmVkRidGL0YyRjlGOUZmb0Zpby1GLDYlUSNwMkYnRi9GMkY1Rl5xRmFxLUZTNiQtRiM2KUZcci1GUzYmLUYjNiVGZXItRlM2JC1GIzYqLUZTNiYtRiM2J0Zgc0Zjcy1GLDYlUTNYT01IaXN0b3JpY2FsQ2xvc2VGJ0YvRjJGaXNGOUY5RmluRlxvRmNzRmBzRmN0RmZ0Rmp0RitGOUY5RjlGOUZpbkZcb0Zjc0ZgdUZjdC1GLDYlUSVibHVlRidGL0YyRjlGOUZmb0ZcckZpby1GLDYlUSNwM0YnRi9GMkY1Rl5xRmFxLUZTNiQtRiM2KUZcci1GUzYmLUYjNiVGZXItRlM2JC1GIzYqLUZTNiYtRiM2J0Zgc0Zjcy1GLDYlUTNXTVRIaXN0b3JpY2FsQ2xvc2VGJ0YvRjJGaXNGOUY5RmluRlxvRmNzRmBzRmN0RmZ0Rmp0RitGOUY5RjlGOUZpbkZcb0Zjc0ZgdUZjdC1GLDYlUSZncmVlbkYnRi9GMkY5RjlGZm9GXHJGXHJGaW8tRiw2JVEjcDRGJ0YvRjJGNUZecUZhcS1GUzYkLUYjNilGXHItRlM2Ji1GIzYlRmVyLUZTNiQtRiM2Ki1GUzYmLUYjNidGYHNGY3MtRiw2JVEyQlBIaXN0b3JpY2FsQ2xvc2VGJ0YvRjJGaXNGOUY5RmluRlxvRmNzRmBzRmN0RmZ0Rmp0RitGOUY5RjlGOUZpbkZcb0Zjc0ZgdUZjdC1GLDYlUSZicm93bkYnRi9GMkY5RjlGZm9GXHJGXHJGaW8tRiw2JVEjcDVGJ0YvRjJGNUZecUZhcS1GUzYkLUYjNilGXHItRlM2Ji1GIzYlRmVyLUZTNiQtRiM2Ki1GUzYmLUYjNidGYHNGY3MtRiw2JVEzR1NLSGlzdG9yaWNhbENsb3NlRidGL0YyRmlzRjlGOUZpbkZcb0Zjc0Zgc0ZjdEZmdEZqdEYrRjlGOUY5RjlGaW5GXG9GY3NGYHVGY3QtRiw2JVEneWVsbG93RidGL0YyRjlGOUZmb0ZcckZpb0ZecS1GUzYmLUYjNiQtRiw2JVEoZGlzcGxheUYnRi9GMkY5RjlGaW5GXG8tRlM2JC1GIzYsRltxRmNzRmZ1RmNzRl93RmNzRmh4RmNzRmF6RjlGOS1GNjYtUSI7RidGOUY7RmZzRkBGQkZERkZGSEZfckZNRlpGOQ==

LUkjbWlHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHRic2JVE1b3V0cHV0fnJlZGlyZWN0ZWQuLi5GJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRic=

LSUlUExPVEc2KC0lJ0NVUlZFU0c2JDdebzckJCIjNSEiIiQiJVlTISIjNyQkIiM/ISIiJCIlQVMhIiM3JCQiI0khIiIkIiVbUyEiIzckJCIjUyEiIiQiJC8lISIiNyQkIiNdISIiJCIlZFghIiM3JCQiI2chIiIkIiVUWSEiIzckJCIjcSEiIiQiJShcJSEiIzckJCIjISkhIiIkIiVfViEiIzckJCIjISohIiIkIiUnSCUhIiM3JCQiJCsiISIiJCIkayUhIiI3JCQiJDUiISIiJCIkbCUhIiI3JCQiJD8iISIiJCIldl0hIiM3JCQiJEkiISIiJCIlQ1whIiM3JCQiJFMiISIiJCIlJypcISIjNyQkIiRdIiEiIiQiJC4mISIiNyQkIiRnIiEiIiQiJWRdISIjNyQkIiRxIiEiIiQiJU5eISIjNyQkIiQhPSEiIiQiJVtdISIjNyQkIiQhPiEiIiQiJSdRJSEiIzckJCIkKyMhIiIkIiVyVyEiIzckJCIkNSMhIiIkIiUwUyEiIzckJCIkPyMhIiIkIiVtUyEiIzckJCIkSSMhIiIkIiVKUiEiIzckJCIkUyMhIiIkIiVrVCEiIzckJCIkXSMhIiIkIiVcVCEiIzckJCIkZyMhIiIkIiRHJSEiIjckJCIkcSMhIiIkIiVuVCEiIzckJCIkIUchIiIkIiVXViEiIzckJCIkIUghIiIkIiVqVyEiIzckJCIkKyQhIiIkIiV2VCEiIzckJCIkNSQhIiIkIiV3ViEiIzckJCIkPyQhIiIkIiRTJSEiIjckJCIkSSQhIiIkIiU+ViEiIzckJCIkUyQhIiIkIiV5VSEiIzckJCIkXSQhIiIkIiVwVSEiIzckJCIkZyQhIiIkIiVKUyEiIzckJCIkcSQhIiIkIiVRVCEiIzckJCIkIVEhIiIkIiUoPiUhIiM3JCQiJCFSISIiJCIlKD0lISIjNyQkIiQrJSEiIiQiJSc+JSEiIzckJCIkNSUhIiIkIiUuVyEiIzckJCIkPyUhIiIkIiUtViEiIzckJCIkSSUhIiIkIiRYJSEiIjckJCIkUyUhIiIkIiUiWyUhIiM3JCQiJF0lISIiJCIlb1chIiM3JCQiJGclISIiJCIlc1khIiM3JCQiJHElISIiJCIlJG8lISIjNyQkIiQhWyEiIiQiJURbISIjNyQkIiQhXCEiIiQiJSl5JSEiIzckJCIkKyYhIiIkIiVvWSEiIzckJCIkNSYhIiIkIiQhWyEiIjckJCIkPyYhIiIkIiU+XyEiIzckJCIkSSYhIiIkIiUqSCYhIiM3JCQiJFMmISIiJCIlSl8hIiM3JCQiJF0mISIiJCIlNl8hIiM3JCQiJGcmISIiJCIleWAhIiM3JCQiJHEmISIiJCIlWmQhIiM3JCQiJCFlISIiJCIld2ghIiM3JCQiJCFmISIiJCIkQCchIiI3JCQiJCsnISIiJCIlUGghIiM3JCQiJDUnISIiJCIkIWYhIiI3JCQiJD8nISIiJCIlWWUhIiM3JCQiJEknISIiJCIlKDMnISIjNyQkIiRTJyEiIiQiJSgpZSEiIzckJCIkXSchIiIkIiVFZCEiIzckJCIkZychIiIkIiRUJiEiIi0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiQiIiEhIiIkIiIhISIiLSUnQ1VSVkVTRzYkN15vNyQkIiM1ISIiJCIlOk0hIiM3JCQiIz8hIiIkIiUtTSEiIzckJCIjSSEiIiQiJSZcJCEiIzckJCIjUyEiIiQiJF8kISIiNyQkIiNdISIiJCIkayQhIiI3JCQiI2chIiIkIiUiZiQhIiM3JCQiI3EhIiIkIiVlTiEiIzckJCIjISkhIiIkIiR4JCEiIjckJCIjISohIiIkIiRtJCEiIjckJCIkKyIhIiIkIiVlTyEiIzckJCIkNSIhIiIkIiRpJCEiIjckJCIkPyIhIiIkIiQ1JSEiIjckJCIkSSIhIiIkIiV6UyEiIzckJCIkUyIhIiIkIiU8VSEiIzckJCIkXSIhIiIkIiVmVCEiIzckJCIkZyIhIiIkIiViVSEiIzckJCIkcSIhIiIkIiVEViEiIzckJCIkIT0hIiIkIiVUVyEiIzckJCIkIT4hIiIkIiRqJSEiIjckJCIkKyMhIiIkIiRoJSEiIjckJCIkNSMhIiIkIiVMWyEiIzckJCIkPyMhIiIkIiVBXCEiIzckJCIkSSMhIiIkIiVEXiEiIzckJCIkUyMhIiIkIiVFXiEiIzckJCIkXSMhIiIkIiQ7JiEiIjckJCIkZyMhIiIkIiVKaiEiIzckJCIkcSMhIiIkIiQnZiEiIjckJCIkIUchIiIkIiUuZCEiIzckJCIkIUghIiIkIiRpJiEiIjckJCIkKyQhIiIkIiVaZCEiIzckJCIkNSQhIiIkIiV2ZSEiIzckJCIkPyQhIiIkIiQqZiEiIjckJCIkSSQhIiIkIiVhaiEiIzckJCIkUyQhIiIkIiU5YyEiIzckJCIkXSQhIiIkIiUuZSEiIzckJCIkZyQhIiIkIiU8YyEiIzckJCIkcSQhIiIkIiV2aSEiIzckJCIkIVEhIiIkIiVQZiEiIzckJCIkIVIhIiIkIiUnMychIiM3JCQiJCslISIiJCIlM2ohIiM3JCQiJDUlISIiJCIlIjQnISIjNyQkIiQ/JSEiIiQiJU5oISIjNyQkIiRJJSEiIiQiJXVuISIjNyQkIiRTJSEiIiQiJW5uISIjNyQkIiRdJSEiIiQiJHInISIiNyQkIiRnJSEiIiQiJVVyISIjNyQkIiRxJSEiIiQiJSJvKCEiIzckJCIkIVshIiIkIiVqdyEiIzckJCIkIVwhIiIkIiRUKCEiIjckJCIkKyYhIiIkIiVvciEiIzckJCIkNSYhIiIkIiVYdiEiIzckJCIkPyYhIiIkIiVReiEiIzckJCIkSSYhIiIkIiU8JCkhIiM3JCQiJFMmISIiJCIlKVEpISIjNyQkIiRdJiEiIiQiJTgmKSEiIzckJCIkZyYhIiIkIiV0JikhIiM3JCQiJHEmISIiJCIlYyMqISIjNyQkIiQhZSEiIiQiJSo+KiEiIzckJCIkIWYhIiIkIiU7KikhIiM3JCQiJCsnISIiJCIlcCQqISIjNyQkIiQ1JyEiIiQiJGQpISIiNyQkIiQ/JyEiIiQiJSwoKSEiIzckJCIkSSchIiIkIiVlJSkhIiM3JCQiJFMnISIiJCIlMiQqISIjNyQkIiRdJyEiIiQiJXcpKSEiIzckJCIkZychIiIkIiR3KSEiIi0lJkNPTE9SRzYmJSRSR0JHJCIiISEiIiQiIiEhIiIkIiM1ISIiLSUnQ1VSVkVTRzYkN15vNyQkIiM1ISIiJCIkeSUhIiI3JCQiIz8hIiIkIiUxWyEiIzckJCIjSSEiIiQiJS5fISIjNyQkIiNTISIiJCIlS2MhIiM3JCQiI10hIiIkIiVoXyEiIzckJCIjZyEiIiQiJW5gISIjNyQkIiNxISIiJCIlImYmISIjNyQkIiMhKSEiIiQiJTxmISIjNyQkIiMhKiEiIiQiJSZlJiEiIzckJCIkKyIhIiIkIiUmKmUhIiM3JCQiJDUiISIiJCIla2IhIiM3JCQiJD8iISIiJCIlMGAhIiM3JCQiJEkiISIiJCIlJlEmISIjNyQkIiRTIiEiIiQiJWNmISIjNyQkIiRdIiEiIiQiJXBmISIjNyQkIiRnIiEiIiQiJHEmISIiNyQkIiRxIiEiIiQiJXRiISIjNyQkIiQhPSEiIiQiJEQmISIiNyQkIiQhPiEiIiQiJSxgISIjNyQkIiQrIyEiIiQiJW5fISIjNyQkIiQ1IyEiIiQiJEsmISIiNyQkIiQ/IyEiIiQiJSNSJiEiIzckJCIkSSMhIiIkIiUxXyEiIzckJCIkUyMhIiIkIiUjRyYhIiM3JCQiJF0jISIiJCIkQyYhIiI3JCQiJGcjISIiJCIlaF4hIiM3JCQiJHEjISIiJCIlNl0hIiM3JCQiJCFHISIiJCIlOVohIiM3JCQiJCFIISIiJCIlQlohIiM3JCQiJCskISIiJCIkI1shIiI3JCQiJDUkISIiJCIlTlwhIiM3JCQiJD8kISIiJCIlJ1wlISIjNyQkIiRJJCEiIiQiJSNRJSEiIzckJCIkUyQhIiIkIiVKWiEiIzckJCIkXSQhIiIkIiVjWyEiIzckJCIkZyQhIiIkIiRvJSEiIjckJCIkcSQhIiIkIiU2WSEiIzckJCIkIVEhIiIkIiVPWCEiIzckJCIkIVIhIiIkIiVDWiEiIzckJCIkKyUhIiIkIiUuWCEiIzckJCIkNSUhIiIkIiVYWyEiIzckJCIkPyUhIiIkIiU8WyEiIzckJCIkSSUhIiIkIiRYJSEiIjckJCIkUyUhIiIkIiVzVyEiIzckJCIkXSUhIiIkIiVLXCEiIzckJCIkZyUhIiIkIiVHXCEiIzckJCIkcSUhIiIkIiRoJSEiIjckJCIkIVshIiIkIiU9WSEiIzckJCIkIVwhIiIkIiVwWiEiIzckJCIkKyYhIiIkIiVKWyEiIzckJCIkNSYhIiIkIiUmcCUhIiM3JCQiJD8mISIiJCIlI3olISIjNyQkIiRJJiEiIiQiJHclISIiNyQkIiRTJiEiIiQiJTZbISIjNyQkIiRdJiEiIiQiJSZmJSEiIzckJCIkZyYhIiIkIiVqViEiIzckJCIkcSYhIiIkIiVsViEiIzckJCIkIWUhIiIkIiVAWCEiIzckJCIkIWYhIiIkIiR6JSEiIjckJCIkKychIiIkIiVgWiEiIzckJCIkNSchIiIkIiV1XSEiIzckJCIkPychIiIkIiVmXCEiIzckJCIkSSchIiIkIiVvXyEiIzckJCIkUychIiIkIiUpeiYhIiM3JCQiJF0nISIiJCIldWQhIiM3JCQiJGcnISIiJCIlN2UhIiMtJSZDT0xPUkc2JiUkUkdCRyQiIiEhIiIkIiM1ISIiJCIiISEiIi0lJ0NVUlZFU0c2JDdebzckJCIjNSEiIiQiJSxSISIjNyQkIiM/ISIiJCIlNlEhIiM3JCQiI0khIiIkIiVmUSEiIzckJCIjUyEiIiQiJWFRISIjNyQkIiNdISIiJCIlKj0lISIjNyQkIiNnISIiJCIlLVUhIiM3JCQiI3EhIiIkIiViVCEiIzckJCIjISkhIiIkIiVzVCEiIzckJCIjISohIiIkIiRAJSEiIjckJCIkKyIhIiIkIiVRVSEiIzckJCIkNSIhIiIkIiVwVSEiIzckJCIkPyIhIiIkIiVOXCEiIzckJCIkSSIhIiIkIiR3JSEiIjckJCIkUyIhIiIkIiQjXCEiIjckJCIkXSIhIiIkIiQ3JiEiIjckJCIkZyIhIiIkIiRIJiEiIjckJCIkcSIhIiIkIiRJJiEiIjckJCIkIT0hIiIkIiVkYCEiIzckJCIkIT4hIiIkIiVPYyEiIzckJCIkKyMhIiIkIiRQJiEiIjckJCIkNSMhIiIkIiVgZCEiIzckJCIkPyMhIiIkIiVEZSEiIzckJCIkSSMhIiIkIiVOaCEiIzckJCIkUyMhIiIkIiQlZSEiIjckJCIkXSMhIiIkIiVpZiEiIzckJCIkZyMhIiIkIiUjXCchIiM3JCQiJHEjISIiJCIkQychIiI3JCQiJCFHISIiJCIkNCchIiI3JCQiJCFIISIiJCIkLSchIiI3JCQiJCskISIiJCIlUWkhIiM3JCQiJDUkISIiJCIlKWUnISIjNyQkIiQ/JCEiIiQiJVFvISIjNyQkIiRJJCEiIiQiJSYzKCEiIzckJCIkUyQhIiIkIiRrJyEiIjckJCIkXSQhIiIkIiUlZSchIiM3JCQiJGckISIiJCIlQWshIiM3JCQiJHEkISIiJCIlSnMhIiM3JCQiJCFRISIiJCIlVW0hIiM3JCQiJCFSISIiJCIlJSpvISIjNyQkIiQrJSEiIiQiJXN0ISIjNyQkIiQ1JSEiIiQiJDIoISIiNyQkIiQ/JSEiIiQiJWhwISIjNyQkIiRJJSEiIiQiJV9zISIjNyQkIiRTJSEiIiQiJTBvISIjNyQkIiRdJSEiIiQiJWVsISIjNyQkIiRnJSEiIiQiJHInISIiNyQkIiRxJSEiIiQiJTNvISIjNyQkIiQhWyEiIiQiJHInISIiNyQkIiQhXCEiIiQiJV5qISIjNyQkIiQrJiEiIiQiJWFoISIjNyQkIiQ1JiEiIiQiJXZrISIjNyQkIiQ/JiEiIiQiJUtuISIjNyQkIiRJJiEiIiQiJSxuISIjNyQkIiRTJiEiIiQiJTlzISIjNyQkIiRdJiEiIiQiJCVwISIiNyQkIiRnJiEiIiQiJU9uISIjNyQkIiRxJiEiIiQiJU5wISIjNyQkIiQhZSEiIiQiJSp6KCEiIzckJCIkIWYhIiIkIiV1cyEiIzckJCIkKychIiIkIiU8dCEiIzckJCIkNSchIiIkIiUmUichIiM3JCQiJD8nISIiJCIlKFsnISIjNyQkIiRJJyEiIiQiJWxnISIjNyQkIiRTJyEiIiQiJXpzISIjNyQkIiRdJyEiIiQiJV5zISIjNyQkIiRnJyEiIiQiJSQpbyEiIy0lJkNPTE9SRzYmJSRSR0JHJCIpJSllcWshIikkIikqZXFrIiEiKSQiKSplcWsiISIpLSUnQ1VSVkVTRzYkN15vNyQkIiM1ISIiJCIld1EhIiM3JCQiIz8hIiIkIiUwTiEiIzckJCIjSSEiIiQiJT5OISIjNyQkIiNTISIiJCIlX1MhIiM3JCQiI10hIiIkIiUsUyEiIzckJCIjZyEiIiQiJWFTISIjNyQkIiNxISIiJCIlSlEhIiM3JCQiIyEpISIiJCIlJClRISIjNyQkIiMhKiEiIiQiJEMlISIiNyQkIiQrIiEiIiQiJUhWISIjNyQkIiQ1IiEiIiQiJSllJSEiIzckJCIkPyIhIiIkIiVpWSEiIzckJCIkSSIhIiIkIiRTJSEiIjckJCIkUyIhIiIkIiVpVSEiIzckJCIkXSIhIiIkIiUmKlIhIiM3JCQiJGciISIiJCIkPyUhIiI3JCQiJHEiISIiJCIlWFUhIiM3JCQiJCE9ISIiJCIlWVQhIiM3JCQiJCE+ISIiJCIlJjQlISIjNyQkIiQrIyEiIiQiJTlUISIjNyQkIiQ1IyEiIiQiJXRWISIjNyQkIiQ/IyEiIiQiJEMlISIiNyQkIiRJIyEiIiQiJWFVISIjNyQkIiRTIyEiIiQiJVJaISIjNyQkIiRdIyEiIiQiJWRXISIjNyQkIiRnIyEiIiQiJUFbISIjNyQkIiRxIyEiIiQiJSNmJSEiIzckJCIkIUchIiIkIiViXSEiIzckJCIkIUghIiIkIiQoXCEiIjckJCIkKyQhIiIkIiVeWyEiIzckJCIkNSQhIiIkIiVXWiEiIzckJCIkPyQhIiIkIiVzWyEiIzckJCIkSSQhIiIkIiVHXiEiIzckJCIkUyQhIiIkIiUqPiYhIiM3JCQiJF0kISIiJCIlZFwhIiM3JCQiJGckISIiJCIlW10hIiM3JCQiJHEkISIiJCIlQ14hIiM3JCQiJCFRISIiJCIlIzMmISIjNyQkIiQhUiEiIiQiJUpfISIjNyQkIiQrJSEiIiQiJSlvJiEiIzckJCIkNSUhIiIkIiRgJiEiIjckJCIkPyUhIiIkIiRlJiEiIjckJCIkSSUhIiIkIiVMYiEiIzckJCIkUyUhIiIkIiV5YyEiIzckJCIkXSUhIiIkIiVCYCEiIzckJCIkZyUhIiIkIiVEYCEiIzckJCIkcSUhIiIkIiU4YCEiIzckJCIkIVshIiIkIiV3XyEiIzckJCIkIVwhIiIkIiU4YSEiIzckJCIkKyYhIiIkIiU5YyEiIzckJCIkNSYhIiIkIiVFYiEiIzckJCIkPyYhIiIkIiV5ZCEiIzckJCIkSSYhIiIkIiU9XyEiIzckJCIkUyYhIiIkIiVQXyEiIzckJCIkXSYhIiIkIiUzXiEiIzckJCIkZyYhIiIkIiVBXyEiIzckJCIkcSYhIiIkIiRLJiEiIjckJCIkIWUhIiIkIiVEXiEiIzckJCIkIWYhIiIkIiVvXyEiIzckJCIkKychIiIkIiVSXSEiIzckJCIkNSchIiIkIiVRWiEiIzckJCIkPychIiIkIiUiUiUhIiM3JCQiJEknISIiJCIlVlUhIiM3JCQiJFMnISIiJCIlNlchIiM3JCQiJF0nISIiJCIlYFchIiM3JCQiJGcnISIiJCIkVyUhIiItJSZDT0xPUkc2JiUkUkdCRyQiIzUhIiIkIiM1ISIiJCIiISEiIi0lJVJPT1RHNictJSlCT1VORFNfWEc2IyQiJCFHISIiLSUpQk9VTkRTX1lHNiMkIiMhKSEiIi0lLUJPVU5EU19XSURUSEc2IyQiJVNPISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJUlPISIiLSUpQ0hJTERSRU5HNiI=