.gitignore

@@ -1,6 +1,8 @@
 # This is released into the public domain.
 # No warranty is provided, implied or otherwise.
 
+# leaving in preSH.tar.gz for anyone who's interested
+# in how NOT to do compression
 code.tar
 code/data/app-claw/*
 work.tar
@@ -30,9 +32,7 @@ laboratory/*/*/*/*
 inst.lua
 # Available as the respective release
 inst-gold.lua
-# Compression stuff
+com2/code.tar.bd
-inst/iSymTab
-# internal
 upldr.sh
 upldr-dev.sh
 upldr-gold.sh

claw/code-claw.lua

@@ -3,7 +3,7 @@
 return {
  ["neo"] = {
   desc = "KittenOS NEO Kernel & Base Libs",
-  v = 9,
+  v = 8,
   deps = {
   },
   dirs = {
@@ -18,7 +18,6 @@ return {
    "libs/serial.lua",
    "libs/fmttext.lua",
    "libs/neoux.lua",
-   "libs/lineedit.lua",
    "libs/braille.lua",
    "libs/bmp.lua",
    "libs/sys-filewrap.lua",
@@ -55,7 +54,7 @@ return {
  },
  ["neo-everest"] = {
   desc = "KittenOS NEO / Everest (windowing)",
-  v = 9,
+  v = 5,
   deps = {
    "neo"
   },
@@ -68,7 +67,7 @@ return {
  },
  ["neo-icecap"] = {
   desc = "KittenOS NEO / Icecap",
-  v = 9,
+  v = 8,
   deps = {
    "neo"
   },
@@ -85,7 +84,7 @@ return {
  },
  ["neo-secpolicy"] = {
   desc = "KittenOS NEO / Secpolicy",
-  v = 9,
+  v = 8,
   deps = {
   },
   dirs = {
@@ -97,7 +96,7 @@ return {
  },
  ["neo-coreapps"] = {
   desc = "KittenOS NEO Core Apps",
-  v = 9,
+  v = 5,
   deps = {
    "neo"
   },
@@ -126,7 +125,7 @@ return {
  },
  ["neo-logo"] = {
   desc = "KittenOS NEO Logo (data)",
-  v = 9,
+  v = 8,
   deps = {
   },
   dirs = {
@@ -176,20 +175,6 @@ return {
    "apps/svc-app-claw-worker.lua"
   },
  },
- ["svc-t"] = {
-  desc = "KittenOS NEO Terminal System",
-  v = 9,
-  deps = {
-   "neo"
-  },
-  dirs = {
-   "apps"
-  },
-  files = {
-   "apps/svc-t.lua",
-   "apps/app-luashell.lua"
-  },
- },
  ["neo-meta"] = {
   desc = "KittenOS NEO: Use 'All' to install to other disks",
   v = 5,
@@ -205,7 +190,6 @@ return {
    "app-bmpview",
    "app-flash",
    "app-claw",
-   "svc-t",
    "app-wget"
   },
   dirs = {

claw/repo-claw.lua

@@ -24,7 +24,7 @@ return {
  },
  ["neo-docs"] = {
   desc = "KittenOS NEO system documentation",
-  v = 9,
+  v = 8,
   deps = {
    "zzz-license-pd"
   },
@@ -43,7 +43,6 @@ return {
    "docs/us-setti",
    "docs/us-evrst",
    "docs/us-clawf",
-   "docs/us-termi",
    "docs/ul-seria",
    "docs/ul-fwrap",
    "docs/ul-event",
@@ -51,7 +50,6 @@ return {
    "docs/ul-neoux",
    "docs/ul-brail",
    "docs/ul-bmp__",
-   "docs/ul-linee",
    "docs/gp-pedan",
    "docs/repoauthors/neo-docs"
   },
@@ -91,12 +89,11 @@ return {
    "docs/repoauthors/app-allmem"
   },
  },
- ["app-telnet"] = {
+ ["app-kmt"] = {
-  desc = "TELNET client",
+  desc = "Line-terminal for MUDs & such",
-  v = 0,
+  v = 1,
   deps = {
    "neo",
-   "svc-t",
    "zzz-license-pd"
   },
   dirs = {
@@ -105,8 +102,8 @@ return {
    "docs/repoauthors"
   },
   files = {
-   "apps/app-telnet.lua",
+   "apps/app-kmt.lua",
-   "docs/repoauthors/app-telnet"
+   "docs/repoauthors/app-kmt"
   },
  },
  ["svc-ghostie"] = {
@@ -254,6 +251,24 @@ return {
    "docs/repoauthors/app-slaunch"
   },
  },
+ ["svc-virtudev"] = {
+  desc = "a clone of vcomponent",
+  v = 0,
+  deps = {
+   "neo",
+   "zzz-license-pd"
+  },
+  dirs = {
+   "apps",
+   "docs",
+   "docs/repoauthors"
+  },
+  files = {
+   "apps/svc-virtudev.lua",
+   "apps/app-vdrslamp.lua",
+   "docs/repoauthors/svc-virtudev"
+  },
+ },
  -- libraries
  ["lib-knbs"] = {
   desc = "NBS reader/writer library",
@@ -271,25 +286,6 @@ return {
    "docs/repoauthors/lib-knbs"
   },
  },
- ["svc-virtudev"] = {
-  desc = "a clone of vcomponent",
-  v = 1,
-  deps = {
-   "neo",
-   "zzz-license-pd"
-  },
-  dirs = {
-   "apps",
-   "docs",
-   "docs/repoauthors"
-  },
-  files = {
-   "apps/svc-virtudev.lua",
-   "apps/app-vdrslamp.lua",
-   "docs/us-virtu",
-   "docs/repoauthors/svc-virtudev"
-  },
- },
  -- licenses (MUST BE IMMUTABLE)
  ["zzz-license-pd"] = {
   desc = "license file 'Public Domain'",

code/apps/app-control.lua

@@ -226,7 +226,7 @@ window = neoux.create(currentGen())
 while running do
  local src, id, k, v = event.pull()
  if src == "x.neo.sys.manage" then
-  if id == "set_setting" and currentGen ~= logGen then
+  if id == "set_setting" then
    window.reset(currentGen())
   end
  end

code/apps/app-luashell.lua

@@ -1,164 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
-local _, _, termId = ...
-local ok = pcall(function ()
- assert(string.sub(termId, 1, 12) == "x.neo.pub.t/")
-end)
-
-local termClose
-
-if not ok then
- termId = nil
- assert(neo.executeAsync("svc-t", function (res)
-  termId = res.access
-  termClose = res.close
-  neo.scheduleTimer(0)
- end, "luashell"))
- while not termId do
-  coroutine.yield()
- end
-end
-TERM = neo.requireAccess(termId, "terminal")
-
--- Using event makes it easier for stuff
---  within the shell to not spectacularly explode.
-event = require("event")(neo)
-
-local alive = true
-event.listen("k.procdie", function (_, _, pid)
- if pid == TERM.pid then
-  alive = false
- end
-end)
-
-TERM.write([[
-    KittenOS NEO Shell Usage Notes
-
-Prefixing = is an alias for 'return '.
-io.read(): Reads a line.
-print: 'print with table dumping' impl.
-TERM: Your terminal. (see us-termi doc.)
-os.execute(): launch terminal apps!
-tries '*', 'sys-t-*', 'svc-t-*', 'app-*'
- example: os.execute("luashell")
-os.exit(): quit the shell
-=listCmdApps(): -t- (terminal) apps
-event: useful for setting up listeners
- without breaking shell functionality
-]])
-
-function listCmdApps()
- local apps = {}
- for _, v in ipairs(neo.listApps()) do
-  if v:sub(4, 6) == "-t-" then
-   table.insert(apps, v)
-  end
- end
- return apps
-end
-
-local function vPrint(slike, ...)
- local s = {...}
- if #s > 1 then
-  for i = 1, #s do
-   if i ~= 1 then TERM.write("\t") end
-   vPrint(slike, s[i])
-  end
- elseif slike and type(s[1]) == "string" then
-  TERM.write("\"" .. s[1] .. "\"")
- elseif type(s[1]) ~= "table" then
-  TERM.write(tostring(s[1]))
- else
-  TERM.write("{")
-  for k, v in pairs(s[1]) do
-   TERM.write("[")
-   vPrint(true, k)
-   TERM.write("] = ")
-   vPrint(true, v)
-   TERM.write(", ")
-  end
-  TERM.write("}")
- end
-end
-
-print = function (...)
- vPrint(false, ...)
- TERM.write("\r\n")
-end
-
-local ioBuffer = ""
-
-io = {
- read = function ()
-  while alive do
-   local pos = ioBuffer:find("\n")
-   if pos then
-    local line = ioBuffer:sub(1, pos):gsub("\r", "")
-    ioBuffer = ioBuffer:sub(pos + 1)
-    return line
-   end
-   local e = {event.pull()}
-   if e[1] == TERM.id then
-    if e[2] == "data" then
-     ioBuffer = ioBuffer .. e[3]
-    end
-   end
-  end
- end,
- write = function (s) TERM.write(s) end
-}
-
-local originalOS = os
-os = setmetatable({}, {
- __index = originalOS
-})
-
-function os.exit()
- alive = false
-end
-
-function os.execute(x, ...)
- local subPid = neo.executeAsync(x, TERM.id, ...)
- if not subPid then
-  subPid = neo.executeAsync("sys-t-" .. x, TERM.id, ...)
- end
- if not subPid then
-  subPid = neo.executeAsync("svc-t-" .. x, TERM.id, ...)
- end
- if not subPid then
-  subPid = neo.executeAsync("app-" .. x, TERM.id, ...)
- end
- if not subPid then
-  error("cannot find " .. x)
- end
- while true do
-  local e = {event.pull()}
-  if e[1] == "k.procdie" then
-   if e[3] == subPid then
-    return
-   end
-  end
- end
-end
-
-while alive do
- TERM.write("> ")
- local code = io.read()
- if code then
-  local ok, err = pcall(function ()
-   if code:sub(1, 1) == "=" then
-    code = "return " .. code:sub(2)
-   end
-   print(assert(load(code))())
-  end)
-  if not ok then
-   TERM.write(tostring(err) .. "\r\n")
-  end
- end
-end
-
-if termClose then
- termClose()
-end
-

code/apps/app-textedit.lua

@@ -30,17 +30,32 @@ local clipsrc = neo.requireAccess("x.neo.pub.globals", "clipboard")
 local windows = neo.requireAccess("x.neo.pub.window", "windows")
 local files = neo.requireAccess("x.neo.pub.base", "files").showFileDialogAsync
 
-local lineEdit = require("lineedit")
-
 local cursorX = 1
 local cursorY = math.ceil(#lines / 2)
-local ctrlFlag, appendFlag
+local cFlash = true
+local ctrlFlag, focFlag, appendFlag
 local dialogLock = false
 local sW, sH = 37, #lines + 2
 local window = windows(sW, sH)
 local filedialog = nil
 local flush
 
+local function splitCur()
+ local s = lines[cursorY]
+ local st = unicode.sub(s, 1, cursorX - 1)
+ local en = unicode.sub(s, cursorX)
+ return st, en
+end
+
+local function clampCursorX()
+ local s = lines[cursorY]
+ if unicode.len(s) < (cursorX - 1) then
+  cursorX = unicode.len(s) + 1
+  return true
+ end
+ return false
+end
+
 local cbs = {}
 
 local function fileDialog(writing, callback)
@@ -124,14 +139,31 @@ local function getline(y)
  -- rX is difficult!
  local rX = 1
  local Xthold = math.max(1, math.floor(sW / 2) - 1)
- local cLine, cursorXP = unicode.safeTextFormat(lines[cursorY], cursorX)
+ local _, cursorXP = unicode.safeTextFormat(lines[cursorY], cursorX)
  rX = (math.max(0, math.floor(cursorXP / Xthold) - 1) * Xthold) + 1
  local line = lines[rY]
  if not line then
   return ("¬"):rep(sW)
  end
  line = unicode.safeTextFormat(line)
- return lineEdit.draw(sW, line, rY == cursorY and cursorXP, rX)
+ -- <alter RX here by 1 if needed>
+ local tl = unicode.sub(line, rX, rX + sW - 1)
+ cursorXP = (cursorXP - rX) + 1
+ if cFlash then
+  if rY == cursorY then
+   if cursorXP >= 1 then
+    if cursorXP <= sW then
+     local start = unicode.sub(tl, 1, cursorXP - 1)
+     local endx = unicode.sub(tl, cursorXP + 1)
+     tl = start .. "_" .. endx
+    end
+   end
+  end
+ end
+ while unicode.len(tl) < sW do
+  tl = tl .. " "
+ end
+ return tl
 end
 local function delLine()
  local contents = lines[cursorY]
@@ -147,7 +179,22 @@ local function delLine()
  end
  return contents
 end
-local function key(ks, kc, down)
+-- add a single character
+local function putLetter(ch)
+ if ch == "\r" then
+  local a, b = splitCur()
+  lines[cursorY] = a
+  table.insert(lines, cursorY + 1, b)
+  cursorY = cursorY + 1
+  cursorX = 1
+  return
+ end
+ local a, b = splitCur()
+ a = a .. ch
+ lines[cursorY] = a .. b
+ cursorX = unicode.len(a) + 1
+end
+local function key(ka, kc, down)
  if dialogLock then
   return false
  end
@@ -165,22 +212,18 @@ local function key(ks, kc, down)
     sH = 1
    end
    sW, sH = window.setSize(sW, sH)
-   return false
   elseif kc == 208 then -- Down
    sH = sH + 1
    sW, sH = window.setSize(sW, sH)
-   return false
   elseif kc == 203 then -- Left
    sW = sW - 1
    if sW == 0 then
     sW = 1
    end
    sW, sH = window.setSize(sW, sH)
-   return false
   elseif kc == 205 then -- Right
    sW = sW + 1
    sW, sH = window.setSize(sW, sH)
-   return false
   elseif kc == 14 then -- ^Backspace
    delLine()
    return true
@@ -197,7 +240,7 @@ local function key(ks, kc, down)
    if cursorY < 1 then
     cursorY = 1
    end
-   cursorX = lineEdit.clamp(lines[cursorY], cursorX)
+   clampCursorX()
    return true
   elseif kc == 208 or kc == 209 then -- Go down one - go down page
    local moveAmount = 1
@@ -208,7 +251,36 @@ local function key(ks, kc, down)
    if cursorY > #lines then
     cursorY = #lines
    end
-   cursorX = lineEdit.clamp(lines[cursorY], cursorX)
+   clampCursorX()
+   return true
+  elseif kc == 203 then
+   if cursorX > 1 then
+    cursorX = cursorX - 1
+   else
+    if cursorY > 1 then
+     cursorY = cursorY - 1
+     cursorX = unicode.len(lines[cursorY]) + 1
+    else
+     return false
+    end
+   end
+   return true
+  elseif kc == 205 then
+   cursorX = cursorX + 1
+   if clampCursorX() then
+    if cursorY < #lines then
+     cursorY = cursorY + 1
+     cursorX = 1
+    end
+   end
+   return true
+  end
+  -- Extra Non-Control Keys
+  if kc == 199 then
+   cursorX = 1
+   return true
+  elseif kc == 207 then
+   cursorX = unicode.len(lines[cursorY]) + 1
    return true
   end
   -- Major Actions
@@ -219,13 +291,10 @@ local function key(ks, kc, down)
    return true
   elseif kc == 61 then -- F3
    startLoad()
-   return false
   elseif kc == 62 then -- F4
    startSave()
-   return false
   elseif kc == 63 then -- F5
    clipsrc.setSetting("clipboard", lines[cursorY])
-   return false
   elseif kc == 64 then -- F6
    local tx = clipsrc.getSetting("clipboard") or ""
    local txi = tx:find("\n")
@@ -242,7 +311,6 @@ local function key(ks, kc, down)
    return true
   elseif kc == 65 then -- F7
    appendFlag = false
-   return false
   elseif kc == 66 then -- F8
    if appendFlag then
     local base = clipsrc.getSetting("clipboard")
@@ -254,37 +322,29 @@ local function key(ks, kc, down)
    return true
   end
  end
- -- LEL Keys
+ -- Letters
- local lT, lC, lX = lineEdit.key(ks, kc, lines[cursorY], cursorX)
+ if ka == 8 or kc == 211 then
- if lT then
+  if cursorX == 1 then
-  lines[cursorY] = lT
+   if cursorY == 1 then
+    return false
+   end
+   local l = table.remove(lines, cursorY)
+   cursorY = cursorY - 1
+   cursorX = unicode.len(lines[cursorY]) + 1
+   lines[cursorY] = lines[cursorY] .. l
+  else
+   local a, b = splitCur()
+   a = unicode.sub(a, 1, unicode.len(a) - 1)
+   lines[cursorY] = a.. b
+   cursorX = cursorX - 1
+  end
+  return true
  end
- if lC then
+ if ka ~= 0 then
-  cursorX = lC
+  putLetter(unicode.char(ka))
+  return true
  end
- if lX == "l<" and cursorY > 1 then
+ return false
-  cursorY = cursorY - 1
-  cursorX = unicode.len(lines[cursorY]) + 1
- elseif lX == "l>" and cursorY < #lines then
-  cursorY = cursorY + 1
-  cursorX = 1
- elseif lX == "w<" and cursorY ~= 1 then
-  local l = table.remove(lines, cursorY)
-  cursorY = cursorY - 1
-  cursorX = unicode.len(lines[cursorY]) + 1
-  lines[cursorY] = lines[cursorY] .. l
- elseif lX == "w>" and cursorY ~= #lines then
-  local l = table.remove(lines, cursorY)
-  cursorX = unicode.len(l) + 1
-  lines[cursorY] = l .. lines[cursorY]
- elseif lX == "nl" then
-  local line = lines[cursorY]
-  lines[cursorY] = unicode.sub(line, 1, cursorX - 1)
-  table.insert(lines, cursorY + 1, unicode.sub(line, cursorX))
-  cursorX = 1
-  cursorY = cursorY + 1
- end
- return true
 end
 
 flush = function ()
@@ -293,9 +353,16 @@ flush = function ()
  end
 end
 
+neo.scheduleTimer(os.uptime() + 0.5)
+
 while true do
  local e = {coroutine.yield()}
- if e[1] == "x.neo.pub.window" then
+ if e[1] == "k.timer" and e[2] == focFlag then
+  cFlash = not cFlash
+  local csY = math.ceil(sH / 2)
+  window.span(1, csY, getline(csY), 0xFFFFFF, 0)
+  focFlag = neo.scheduleTimer(os.uptime() + 0.5)
+ elseif e[1] == "x.neo.pub.window" then
   if e[2] == window.id then
    if e[3] == "line" then
     window.span(1, e[4], getline(e[4]), 0xFFFFFF, 0)
@@ -306,13 +373,14 @@ while true do
     local csY = math.ceil(sH / 2)
     local nY = math.max(1, math.min(#lines, (math.floor(e[5]) - csY) + cursorY))
     cursorY = nY
-    cursorX = lineEdit.clamp(lines[cursorY], cursorX)
+    clampCursorX()
     flush()
    elseif e[3] == "key" then
-    if key(e[4] ~= 0 and unicode.char(e[4]), e[5], e[6]) then
+    if key(e[4], e[5], e[6]) then
      flush()
     end
    elseif e[3] == "focus" then
+    focFlag = e[4] and neo.scheduleTimer(0)
     ctrlFlag = false
    elseif e[3] == "close" then
     return
@@ -324,7 +392,7 @@ while true do
       if c == "\n" then
        c = "\r"
       end
-      key(c, 0, true)
+      putLetter(c)
      end
     end
     flush()

code/apps/svc-t.lua

@@ -1,491 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- svc-t.lua : terminal
-
-local _, _, retTbl, title = ...
-
-assert(retTbl, "need to alert creator")
-
-if title ~= nil then
- assert(type(title) == "string", "title must be string")
-end
-
-local function rW()
- return string.format("%04x", math.random(0, 65535))
-end
-
-local id = "neo.pub.t/" .. rW() .. rW() .. rW() .. rW()
-local closeNow = false
-
--- Terminus Registration State --
-
-local tReg = neo.requireAccess("r." .. id, "registration")
-local sendSigs = {}
-
--- Display State --
--- unicode.safeTextFormat'd lines.
--- The size of this must not go below 1.
-local console = {}
--- This must not go below 3.
-local conW = 40
-local conCX, conCY = 1, 1
-local conSCX, conSCY = 1, 1
--- Performance
-local consoleShown = {}
-local conCYShown
-for i = 1, 14 do
- console[i] = (" "):rep(conW)
-end
-
--- Line Editing State --
--- Nil if line editing is off.
--- In this case, the console height
---  must be adjusted accordingly.
-local leText = ""
--- These are NOT nil'd out,
---  particularly not the history buffer.
-local leCX = 1
-local leHistory = {
- -- Size = history buffer size
- "", "", "", ""
-}
-local function cycleHistoryUp()
- local backupFirst = leHistory[1]
- for i = 1, #leHistory - 1 do
-  leHistory[i] = leHistory[i + 1]
- end
- leHistory[#leHistory] = backupFirst
-end
-local function cycleHistoryDown()
- local backup = leHistory[1]
- for i = 2, #leHistory do
-  backup, leHistory[i] = leHistory[i], backup
- end
- leHistory[1] = backup
-end
-
--- Window --
-
-local window = neo.requireAccess("x.neo.pub.window", "window")(conW, #console + 1, title)
-
--- Core Terminal Functions --
-
-local function setSize(w, h)
- conW = w
- for i = 1, #console do
-  consoleShown[i] = nil
- end
- while #console < h do
-  table.insert(console, "")
- end
- while #console > h do
-  table.remove(console, 1)
- end
- for i = 1, #console do
-  console[i] = unicode.sub(console[i], 1, w) .. (" "):rep(w - unicode.len(console[i]))
- end
- if leText then
-  window.setSize(w, h + 1)
- else
-  window.setSize(w, h)
- end
- conCX, conCY = 1, h
-end
-
-local function setLineEditing(state)
- if state and not leText then
-  leText = ""
-  leCX = 1
-  setSize(conW, #console)
- elseif leText and not state then
-  leText = nil
-  setSize(conW, #console)
- end
-end
-
-local function draw(i)
- if console[i] then
-  window.span(1, i, console[i], 0, 0xFFFFFF)
-  if i == conCY and not leText then
-   window.span(conCX, i, unicode.sub(console[i], conCX, conCX), 0xFFFFFF, 0)
-  end
- elseif leText then
-  window.span(1, i, require("lineedit").draw(conW, unicode.safeTextFormat(leText, leCX)), 0xFFFFFF, 0)
- end
-end
-local function drawDisplay()
- for i = 1, #console do
-  if consoleShown[i] ~= console[i] or i == conCY or i == conCYShown then
-   draw(i)
-   consoleShown[i] = console[i]
-  end
- end
- conCYShown = conCY
-end
-
--- Terminal Visual --
-
-local function consoleSD()
- for i = 1, #console - 1 do
-  console[i] = console[i + 1]
- end
- console[#console] = (" "):rep(conW)
-end
-local function consoleSU()
- local backup = (" "):rep(conW)
- for i = 1, #console do
-  backup, console[i] = console[i], backup
- end
-end
-
-local function consoleCLS()
- for i = 1, #console do
-  console[i] = (" "):rep(conW)
- end
- conCX, conCY = 1, 1
-end
-
-local function writeFF()
- if conCY ~= #console then
-  conCY = conCY + 1
- else
-  consoleSD()
- end
-end
-
-local function writeData(data)
- -- handle data until completion
- while #data > 0 do
-  local char = unicode.sub(data, 1, 1)
-  --neo.emergency("svc-t.data: " .. char:byte())
-  data = unicode.sub(data, 2)
-  -- handle character
-  if char == "\t" then
-   -- not ideal, but allowed
-   char = " "
-  end
-  if char == "\r" then
-   conCX = 1
-  elseif char == "\x00" then
-   -- caused by TELNET \r rules
-  elseif char == "\n" then
-   conCX = 1
-   writeFF()
-  elseif char == "\a" then
-   -- Bell (er...)
-  elseif char == "\b" then
-   conCX = math.max(1, conCX - 1)
-  elseif char == "\v" or char == "\f" then
-   writeFF()
-  else
-   local charL = unicode.wlen(char)
-   if (conCX + charL - 1) > conW then
-    conCX = 1
-    writeFF()
-   end
-   local spaces = (" "):rep(charL - 1)
-   console[conCY] = unicode.sub(console[conCY], 1, conCX - 1) .. char .. spaces .. unicode.sub(console[conCY], conCX + charL)
-   conCX = conCX + charL
-   -- Cursor can be (intentionally!) off-screen here
-  end
- end
-end
-
-local function writeANSI(s)
- --neo.emergency("svc-t.ansi: " .. s)
- -- This supports just about enough to get by.
- if s == "c" then
-  consoleCLS()
-  return
- end
- local pfx = s:sub(1, 1)
- local cmd = s:sub(#s)
- if pfx == "[" then
-  local np = tonumber(s:sub(2, -2)) or 1
-  if cmd == "A" then
-   conCY = conCY - np
-  elseif cmd == "B" then
-   conCY = conCY + np
-  elseif cmd == "C" then
-   conCX = conCX + np
-  elseif cmd == "D" then
-   conCX = conCX - np
-  elseif cmd == "f" or cmd == "H" then
-   local p = s:find(";")
-   if not p then
-    conCY = np
-    conCX = 1
-   else
-    conCY = tonumber(s:sub(2, p - 1)) or 1
-    conCX = tonumber(s:sub(p + 1, -2)) or 1
-   end
-  elseif cmd == "J" then
-   consoleCLS()
-  elseif cmd == "K" then
-   if s == "[K" or s == "[0K" then
-    -- bash needs this
-    console[conCY] = unicode.sub(console[conCY], 1, conCX - 1) .. (" "):rep(1 + conW - conCX)
-   else
-    console[conCY] = (" "):rep(conW)
-   end
-  elseif cmd == "n" then
-   if s == "[6n" then
-    for _, v in pairs(sendSigs) do
-     v("data", "\x1b[" .. conY .. ";" .. conX .. "R")
-    end
-   end
-  elseif cmd == "s" then
-   conSCX, conSCY = conCX, conCY
-  elseif cmd == "u" then
-   conCX, conCY = conSCX, conSCY
-  end
- end
- conCX = math.min(math.max(math.floor(conCX), 1), conW)
- conCY = math.min(math.max(math.floor(conCY), 1), #console)
-end
-
--- The Terminus --
-
-local tvBuildingCmd = ""
-local tvBuildingUTF = ""
-local tvSubnegotiation = false
-local function incoming(s)
- tvBuildingCmd = tvBuildingCmd .. s
- -- Flush Cmd
- while #tvBuildingCmd > 0 do
-  if tvBuildingCmd:byte() == 255 then
-   -- It's a command. Uhoh.
-   if #tvBuildingCmd < 2 then break end
-   local cmd = tvBuildingCmd:byte(2)
-   local param = tvBuildingCmd:byte(3)
-   local cmdLen = 2
-   -- Command Lengths
-   if cmd >= 251 and cmd <= 254 then cmdLen = 3 end
-   if #tvBuildingCmd < cmdLen then break end
-   if cmd == 240 then
-    -- SE
-    tvSubnegotiation = false
-   elseif cmd == 250 then
-    -- SB
-    tvSubnegotiation = true
-   elseif cmd == 251 and param == 1 then
-    -- WILL ECHO (respond with DO ECHO, disable line editing)
-    -- test using io.write("\xFF\xFB\x01")
-    for _, v in pairs(sendSigs) do
-     v("telnet", "\xFF\xFD\x01")
-    end
-    setLineEditing(false)
-   elseif cmd == 252 and param == 1 then
-    -- WON'T ECHO (respond with DON'T ECHO, enable line editing)
-    for _, v in pairs(sendSigs) do
-     v("telnet", "\xFF\xFE\x01")
-    end
-    setLineEditing(true)
-   elseif cmd == 251 or cmd == 252 then
-    -- WILL/WON'T (x) (respond with DON'T (X))
-    local res = "\xFF\xFE" .. string.char(param)
-    for _, v in pairs(sendSigs) do
-     v("telnet", res)
-    end
-   elseif cmd == 253 or cmd == 254 then
-    -- DO/DON'T (x) (respond with WON'T (X))
-    local res = "\xFF\xFC" .. string.char(param)
-    for _, v in pairs(sendSigs) do
-     v("telnet", res)
-    end
-   elseif cmd == 255 then
-    if not tvSubnegotiation then
-     tvBuildingUTF = tvBuildingUTF .. "\xFF"
-    end
-   end
-   tvBuildingCmd = tvBuildingCmd:sub(cmdLen + 1)
-  else
-   if not tvSubnegotiation then
-    tvBuildingUTF = tvBuildingUTF .. tvBuildingCmd:sub(1, 1)
-   end
-   tvBuildingCmd = tvBuildingCmd:sub(2)
-  end
- end
- -- Flush UTF/Display
- while #tvBuildingUTF > 0 do
-  local head = tvBuildingUTF:byte()
-  local len = 1
-  local handled = false
-  if head == 27 then
-   local h2 = tvBuildingUTF:byte(2)
-   if h2 == 91 then
-    for i = 3, #tvBuildingUTF do
-     local cmd = tvBuildingUTF:byte(i)
-     if cmd >= 0x40 and cmd <= 0x7E then
-      writeANSI(tvBuildingUTF:sub(2, i))
-      len = i
-      handled = true
-      break
-     end
-    end
-   elseif h2 then
-    len = 2
-    writeANSI(tvBuildingUTF:sub(2, 2))
-    handled = true
-   end
-   if not handled then break end
-  end
-  if not handled then
-   if head < 192 then
-    len = 1
-   elseif head < 224 then
-    len = 2
-   elseif head < 240 then
-    len = 3
-   elseif head < 248 then
-    len = 4
-   elseif head < 252 then
-    len = 5
-   elseif head < 254 then
-    len = 6
-   end
-   if #tvBuildingUTF < len then
-    break
-   end
-   -- verified one full character...
-   writeData(tvBuildingUTF:sub(1, len))
-  end
-  tvBuildingUTF = tvBuildingUTF:sub(len + 1)
- end
-end
-
-do
- tReg(function (_, pid, sendSig)
-  sendSigs[pid] = sendSig
-  return {
-   id = "x." .. id,
-   pid = neo.pid,
-   write = function (text)
-    incoming(tostring(text))
-    drawDisplay()
-   end
-  }
- end, true)
-
- if retTbl then
-  coroutine.resume(coroutine.create(retTbl), {
-   access = "x." .. id,
-   close = function ()
-    closeNow = true
-    neo.scheduleTimer(0)
-   end
-  })
- end
-end
-
-local control = false
-
-local function key(a, c)
- if control then
-  if c == 203 and conW > 8 then
-   setSize(conW - 1, #console)
-   return
-  elseif c == 200 and #console > 1 then
-   setSize(conW, #console - 1)
-   return
-  elseif c == 205 then
-   setSize(conW + 1, #console)
-   return
-  elseif c == 208 then
-   setSize(conW, #console + 1)
-   return
-  end
- end
- -- so with the reserved ones dealt with...
- if not leText then
-  -- Line Editing not active.
-  -- For now support a bare minimum.
-  for _, v in pairs(sendSigs) do
-   if a == "\x03" then
-    v("telnet", "\xFF\xF4")
-   elseif c == 199 then
-    v("data", "\x1b[H")
-   elseif c == 201 then
-    v("data", "\x1b[5~")
-   elseif c == 207 then
-    v("data", "\x1b[F")
-   elseif c == 209 then
-    v("data", "\x1b[6~")
-   elseif c == 203 then
-    v("data", "\x1b[D")
-   elseif c == 205 then
-    v("data", "\x1b[C")
-   elseif c == 200 then
-    v("data", "\x1b[A")
-   elseif c == 208 then
-    v("data", "\x1b[B")
-   elseif a == "\r" then
-    v("data", "\r\n")
-   elseif a then
-    v("data", a)
-   end
-  end
- elseif not control then
-  -- Line Editing active and control isn't involved
-  if c == 200 or c == 208 then
-   -- History cursor up (history down)
-   leText = leHistory[#leHistory]
-   leCX = unicode.len(leText) + 1
-   if c == 208 then
-    cycleHistoryUp()
-   else
-    cycleHistoryDown()
-   end
-   return
-  end
-  local lT, lC, lX = require("lineedit").key(a, c, leText, leCX)
-  leText = lT or leText
-  leCX = lC or leCX
-  if lX == "nl" then
-   cycleHistoryUp()
-   leHistory[#leHistory] = leText
-   -- the whole thing {
-   local fullText = leText .. "\r\n"
-   writeData(fullText)
-   drawDisplay()
-   for _, v in pairs(sendSigs) do
-    v("data", fullText)
-   end
-   -- }
-   leText = ""
-   leCX = 1
-  end
- end
-end
-
-while not closeNow do
- local e = {coroutine.yield()}
- if e[1] == "k.procdie" then
-  sendSigs[e[3]] = nil
- elseif e[1] == "x.neo.pub.window" then
-  if e[3] == "close" then
-   break
-  elseif e[3] == "clipboard" then
-   for i = 1, unicode.len(e[4]) do
-    local c = unicode.sub(e[4], i, i)
-    if c ~= "\r" then
-     if c == "\n" then
-      c = "\r"
-     end
-     key(c, 0)
-    end
-   end
-   draw(#console + 1)
-  elseif e[3] == "key" then
-   if e[5] == 29 or e[5] == 157 then
-    control = e[6]
-   elseif e[6] then
-    key(e[4] ~= 0 and unicode.char(e[4]), e[5])
-    draw(#console + 1)
-   end
-  elseif e[3] == "line" then
-   draw(e[4])
-  end
- end
-end

code/apps/sys-everest.lua

@@ -600,55 +600,65 @@ end
 local isAltDown = false
 local isCtrDown = false
 local function key(ku, ka, kc, down)
- local ku, lin = screens.getMonitorByKeyboard(ku)
+ local ku = screens.getMonitorByKeyboard(ku)
+ if not ku then return end
  for k, v in ipairs(monitors) do
-  if ku and v[2] == ku then
+  if v[2] == mu then
-   lin = k
+   lIM = k
-   break
   end
  end
- if not lin then return end
- lIM = lin
-
  local focus = surfaces[1]
- if kc == 29 then
+ if kc == 29 then isCtrDown = down end
-  isCtrDown = down
+ if kc == 56 then isAltDown = down end
- elseif kc == 56 then
+ if isAltDown then
-  isAltDown = down
+  if ka == 120 then
- end
+   if focus and down then ofsMSurface(focus, 1) end return
- if isAltDown and ka == 122 then
-  if focus and down then
-   local n = table.remove(surfaces, 1)
-   table.insert(surfaces, n)
-   changeFocus(n)
   end
- elseif isAltDown and kc == 200 then
+  if kc == 200 then
-  if focus and down then ofsSurface(focus, 0, -1) end
+   if focus and down then ofsSurface(focus, 0, -1) end return
- elseif isAltDown and kc == 208 then
-  if focus and down then ofsSurface(focus, 0, 1) end
- elseif isAltDown and kc == 203 then
-  if focus and down then ofsSurface(focus, -1, 0) end
- elseif isAltDown and kc == 205 then
-  if focus and down then ofsSurface(focus, 1, 0) end
- elseif isAltDown and ka == 120 then
-  if focus and down then ofsMSurface(focus, 1) end
- elseif isAltDown and ka == 97 then
-  if not down then
-   isAltDown = false
   end
- elseif isAltDown and (ka == 3 or ka == 99) then
+  if kc == 208 then
-  if down then
+   if focus and down then ofsSurface(focus, 0, 1) end return
-   if isCtrDown then
+  end
-    error("User-authorized Everest crash.")
+  if kc == 203 then
-   elseif focus then
+   if focus and down then ofsSurface(focus, -1, 0) end return
-    focus[6](focus[8], "close")
+  end
+  if kc == 205 then
+   if focus and down then ofsSurface(focus, 1, 0) end return
+  end
+  if ka == 122 then
+   if focus and down then
+    local n = table.remove(surfaces, 1)
+    table.insert(surfaces, n)
+    changeFocus(n)
+   end return
+  end
+  if ka == 97 then
+   if not down then
+    isAltDown = false
    end
+   return
   end
- elseif isAltDown and ka == 13 then
+  if ka == 3 or ka == 99 then
-  if down then
+   if down then
-   startLauncher()
+    if isCtrDown then
+     error("User-authorized Everest crash.")
+    else
+     if focus then
+      focus[6](focus[8], "close")
+     end
+    end
+   end
+   return
   end
- elseif focus then
+  if ka == 13 then
+   if down then
+    startLauncher()
+   end
+   return
+  end
+ end
+ if focus then
   if kc ~= 56 then
    lIM = focus[1]
   end

code/apps/sys-icecap.lua

@@ -81,12 +81,20 @@ local function getPfx(xd, pkg)
  end
 end
 
-local function splitAC(ac)
+local endAcPattern = "/[a-z0-9/%.]*$"
- local sb = ac:match("/[a-z0-9/%.]*$")
+
- if sb then
+local function matchesSvc(xd, pkg, perm)
-  return ac:sub(1, #ac - #sb), sb
+ local pfx = getPfx(xd, pkg)
+ if pfx then
+  local permAct = perm
+  local paP = permAct:match(endAcPattern)
+  if paP then
+   permAct = permAct:sub(1, #permAct - #paP)
+  end
+  if permAct == pfx then
+   return "allow"
+  end
  end
- return ac
 end
 
 donkonitDFProvider(function (pkg, pid, sendSig)
@@ -122,8 +130,7 @@ donkonitDFProvider(function (pkg, pid, sendSig)
   myApi = getPfx("", pkg),
   lockPerm = function (perm)
    -- Are we allowed to?
-   local permPfx, detail = splitAC(perm)
+   if not matchesSvc("x.", pkg, perm) then
-   if getPfx("x.", pkg) ~= permPfx then
     return false, "You don't own this permission."
    end
    local set = "perm|*|" .. perm
@@ -216,11 +223,7 @@ local function secPolicyStage2(pid, proc, perm, req)
  -- Push to ICECAP thread to avoid deadlock b/c wrong event-pull context
  neo.scheduleTimer(0)
  table.insert(todo, function ()
-  local fPerm = perm
+  local ok, err = pcall(secpol, nexus, settings, proc.pkg, pid, perm, req, matchesSvc)
-  if fPerm:sub(1, 2) == "r." then
-   fPerm = splitAC(fPerm)
-  end
-  local ok, err = pcall(secpol, nexus, settings, proc.pkg, pid, fPerm, req, getPfx("", proc.pkg))
   if not ok then
    neo.emergency("Used fallback policy because of run-err: " .. err)
    req(def)
@@ -240,7 +243,11 @@ rootAccess.securityPolicy = function (pid, proc, perm, req)
  end
  -- Do we need to start it?
  if perm:sub(1, 6) == "x.svc." and not neo.usAccessExists(perm) then
-  local appAct = splitAC(perm:sub(3))
+  local appAct = perm:sub(7)
+  local paP = appAct:match(endAcPattern)
+  if paP then
+   appAct = appAct:sub(1, #appAct - #paP)
+  end
   -- Prepare for success
   onReg[perm] = onReg[perm] or {}
   local orp = onReg[perm]

code/init.lua

@@ -459,7 +459,7 @@ function retrieveAccess(perm, pkg, pid)
   accesses[uid] = function (pkg, pid)
    return nil
   end
-  return function (f, secret)
+  return function (f)
    -- Registration function
    ensureType(f, "function")
    local accessObjectCache = {}
@@ -481,10 +481,8 @@ function retrieveAccess(perm, pkg, pid)
     end
     -- returns nil and fails
    end
-   if not secret then
+   -- Announce registration
-    -- Announce registration
+   distEvent(nil, "k.registration", uid)
-    distEvent(nil, "k.registration", uid)
-   end
   end, function ()
    -- Registration becomes null (access is held but other processes cannot retrieve object)
    if accesses[uid] then

code/libs/lineedit.lua

@@ -1,73 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
-return {
- -- note: everything must already be unicode.safeTextFormat'd
- draw = function (sW, line, cursorX, rX)
-  -- if no camera, provide a default
-  rX = rX or math.max(1, (cursorX or 1) - math.floor(sW * 2 / 3))
-  -- transform into area-relative
-  local tl = unicode.sub(line, rX, rX + sW - 1)
-  -- inject cursor
-  if cursorX then
-   cursorX = (cursorX - rX) + 1
-   if cursorX >= 1 then
-    if cursorX <= sW then
-     tl = unicode.sub(tl, 1, cursorX - 1) .. "_" .. unicode.sub(tl, cursorX + 1)
-    end
-   end
-  end
-  return tl .. (" "):rep(sW - unicode.len(tl))
- end,
- clamp = function (tl, cursorX)
-  tl = unicode.len(tl)
-  if tl < cursorX - 1 then
-   return tl + 1
-  end
-  return cursorX
- end,
- -- returns line, cursorX, special
- -- return values may be nil if irrelevant
- key = function (ks, kc, line, cursorX)
-  local cS = unicode.sub(line, 1, cursorX - 1)
-  local cE = unicode.sub(line, cursorX)
-  local ll = unicode.len(line)
-  if kc == 203 then -- navi <
-   if cursorX > 1 then
-    return nil, cursorX - 1
-   else
-    -- cline underflow
-    return nil, nil, "l<"
-   end
-  elseif kc == 205 then -- navi >
-   if cursorX > ll then
-    -- cline overflow
-    return nil, nil, "l>"
-   end
-   return nil, cursorX + 1
-  elseif kc == 199 then -- home
-   return nil, 1
-  elseif kc == 207 then -- end
-   return nil, unicode.len(line) + 1
-  elseif ks == "\8" then -- del
-   if cursorX == 1 then
-    -- weld prev
-    return nil, nil, "w<"
-   else
-    return unicode.sub(cS, 1, unicode.len(cS) - 1) .. cE, cursorX - 1
-   end
-  elseif kc == 211 then -- del
-   if cursorX > ll then
-    return nil, nil, "w>"
-   end
-   return cS .. unicode.sub(cE, 2)
-  elseif ks then -- standard letters
-   if ks == "\r" then
-    -- new line
-    return nil, nil, "nl"
-   end
-   return cS .. ks .. cE, cursorX + unicode.len(ks)
-  end
-  -- :(
- end
-}

code/libs/neoux.lua

@@ -339,7 +339,6 @@ newNeoux = function (event, neo)
  end
  -- Note: w should be at least 2 - this is similar to buttons.
  neoux.tcfield = function (x, y, w, textprop)
-  local p = 1
   return {
    x = x,
    y = y,
@@ -348,24 +347,22 @@ newNeoux = function (event, neo)
    selectable = true,
    key = function (window, update, a, c, d, f)
     if d then
-     local ot = textprop()
-     local le = require("lineedit")
-     p = le.clamp(ot, p)
      if c == 63 then
-      neo.requireAccess("x.neo.pub.globals", "clipboard").setSetting("clipboard", ot)
+      neo.requireAccess("x.neo.pub.globals", "clipboard").setSetting("clipboard", textprop())
      elseif c == 64 then
       local contents = neo.requireAccess("x.neo.pub.globals", "clipboard").getSetting("clipboard")
       contents = contents:match("^[^\r\n]*")
       textprop(contents)
       update()
-     elseif a ~= 9 then
+     elseif a == 8 then
-      local lT, lC, lX = le.key(a ~= 0 and unicode.char(a), c, ot, p)
+      local str = textprop()
-      if lT or lC then
+      textprop(unicode.sub(str, 1, unicode.len(str) - 1))
-       if lT then textprop(lT) end
+      update()
-       p = lC or p
+      return true
-       update()
+     elseif a >= 32 then
-       return true
+      textprop(textprop() .. unicode.char(a))
-      end
+      update()
+      return true
      end
     end
    end,
@@ -380,10 +377,9 @@ newNeoux = function (event, neo)
      fg = bg
      bg = fg1
     end
-    local t, e, r = textprop(), require("lineedit")
+    local text = unicode.safeTextFormat(textprop())
-    p = e.clamp(t, p)
+    text = "[" .. neoux.pad(text, w - 2, false, true, true) .. "]"
-    t, r = unicode.safeTextFormat(t, p)
+    window.span(x, y, text, bg, fg)
-    window.span(x, y, "[" .. e.draw(w - 2, t, selected and r) .. "]", bg, fg)
    end
   }
  end

code/libs/sys-filevfs.lua

@@ -94,25 +94,11 @@ function getFsNode(fs, parent, fsc, path, mode, impliedName)
     for k, v in ipairs(fsc.list(path)) do
      local nm = "F: " .. v
      local fp = path .. v
-     local cDir = fsc.isDirectory(fp)
+     if fsc.isDirectory(fp) then
-     if cDir then
       nm = "D: " .. v
      end
-     if (not cDir) and (fscrw or mode == false) and (mode ~= nil) then
+     n[k + 1] = {nm, function () return nil, getFsNode(fs, t, fsc, fp, mode, impliedName) end}
-      local vn = v
-      n[k + 1] = {nm, function () return selectUnknown(vn) end}
-     else
-      n[k + 1] = {nm, function () return nil, getFsNode(fs, t, fsc, fp, mode, impliedName) end}
-     end
     end
-   else
-    table.insert(n, {"Copy", function ()
-     local rt, re = require("sys-filewrap").create(fsc, path, false)
-     if not rt then
-      return false, dialog("Open Error: " .. tostring(re), parent)
-     end
-     return nil, setupCopyVirtualEnvironment(fs, parent, rt, path:match("[^/]*$") or "")
-    end})
    end
    if fscrw then
     if dir then
@@ -165,6 +151,24 @@ function getFsNode(fs, parent, fsc, path, mode, impliedName)
     end
    end
    if not dir then
+    table.insert(n, {"Copy", function ()
+     local rt, re = require("sys-filewrap").create(fsc, path, false)
+     if not rt then
+      return false, dialog("Open Error: " .. tostring(re), parent)
+     end
+     return nil, setupCopyVirtualEnvironment(fs, parent, rt, path:match("[^/]*$") or "")
+    end})
+    if (fscrw or mode == false) and (mode ~= nil) then
+     local tx = "Open"
+     if mode == true then
+      tx = "Save (Overwrite)"
+     elseif mode == "append" then
+      tx = "Append"
+     end
+     if fscrw or mode == false then
+      table.insert(n, {tx, selectUnknown})
+     end
+    end
    elseif impliedName then
     table.insert(n, {"Implied: " .. impliedName, function ()
      return selectUnknown(impliedName)

code/libs/sys-secpolicy.lua

@@ -11,19 +11,13 @@
 -- IRC is usually pretty safe, but no guarantees.
 
 -- Returns "allow", "deny", or "ask".
-local function actualPolicy(pkg, pid, perm, pkgSvcPfx)
+local function actualPolicy(pkg, pid, perm, matchesSvc)
  -- System stuff is allowed.
  if pkg:sub(1, 4) == "sys-" then
   return "allow"
  end
- -- svc-t's job is solely to emulate terminals
- -- TO INSTALL YOUR OWN TERMINAL EMULATOR:
- -- perm|app-yourterm|r.neo.t
- if pkg == "svc-t" and perm == "r.neo.pub.t" then
-  return "allow"
- end
  -- <The following is for apps & services>
- -- x.neo.pub.* is open to all
+ -- x.neo.pub (aka Icecap) is open to all
  if perm:sub(1, 10) == "x.neo.pub." then
   return "allow"
  end
@@ -31,8 +25,7 @@ local function actualPolicy(pkg, pid, perm, pkgSvcPfx)
  if perm == "s.h.component_added" or perm == "s.h.component_removed" or perm == "s.h.tablet_use" or perm == "c.tablet" then
   return "allow"
  end
- -- Userlevel can register for itself
+ if matchesSvc("r.", pkg, perm) then
- if perm == "r." .. pkgSvcPfx then
   return "allow"
  end
  -- Userlevel has no other registration rights
@@ -51,8 +44,8 @@ local function actualPolicy(pkg, pid, perm, pkgSvcPfx)
  return "ask"
 end
 
-return function (nexus, settings, pkg, pid, perm, rsp, pkgSvcPfx)
+return function (nexus, settings, pkg, pid, perm, rsp, matchesSvc)
- local res = actualPolicy(pkg, pid, perm, pkgSvcPfx)
+ local res = actualPolicy(pkg, pid, perm, matchesSvc)
  if settings then
   res = settings.getSetting("perm|" .. pkg .. "|" .. perm) or
         settings.getSetting("perm|*|" .. perm) or res

com2/bdivide.lua

@@ -0,0 +1,49 @@
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+
+-- BDIVIDE r5 edition
+-- Algorithm simplified for smaller implementation and potentially better compression
+-- format:
+-- 0-127 for constants
+-- <128 + (length - 4)>, <position high>, <position low>
+-- Position is where in the window it was found, minus 1.
+-- windowSize must be the same between the encoder and decoder,
+--  and is the amount of data preserved after cropping.
+
+io.write("\x00") -- initiation character
+
+local blk = io.read("*a")
+local windowSize = 0x10000
+local windowData = ("\x00"):rep(windowSize)
+
+local function crop(data)
+ windowData = (windowData .. data):sub(-windowSize)
+end
+
+while blk ~= "" do
+ local bestData = blk:sub(1, 1)
+ local bestRes = bestData
+ for lm = 0, 127 do
+  local al = lm + 4
+  local pfx = blk:sub(1, al)
+  if #pfx ~= al then
+   break
+  end
+  local p = windowData:find(pfx, 1, true)
+  if not p then
+   break
+  end
+  local pm = p - 1
+  local thirdByte = pm % 256
+  -- anti ']'-corruption helper
+  if thirdByte ~= 93 then
+   bestData = string.char(128 + lm, math.floor(pm / 256), thirdByte)
+   bestRes = pfx
+  end
+ end
+ -- ok, encode!
+ io.write(bestData)
+ crop(bestRes)
+ blk = blk:sub(#bestRes + 1)
+end
+

com2/bonecrunch.lua

@@ -0,0 +1,88 @@
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+
+-- This program tries to crunch down the installer a bit further.
+-- Specific target in mind, it has no support for string escapes.
+-- It also does this:
+for i = 1, 3 do
+ print(io.read())
+end
+
+local sequences = {
+ {"\n", " "},
+ {"  ", " "},
+ {" #", "#"},
+ {"# ", "#"},
+ {" ,", ","},
+ {", ", ","},
+ {" (", "("},
+ {"( ", "("},
+ {" )", ")"},
+ {") ", ")"},
+ {" <", "<"},
+ {"< ", "<"},
+ {" >", ">"},
+ {"> ", ">"},
+ {" *", "*"},
+ {"* ", "*"},
+ {" ~", "~"},
+ {"~ ", "~"},
+ {" /", "/"},
+ {"/ ", "/"},
+ {" %", "%"},
+ {"% ", "%"},
+ {" =", "="},
+ {"= ", "="},
+ {" -", "-"},
+ {"- ", "-"},
+ {" +", "+"},
+ {"+ ", "+"},
+ {".. ", ".."},
+ {" ..", ".."},
+ {"\"\" ", "\"\""},
+ {"=0 t", "=0t"},
+ {">0 t", ">0t"},
+ {">1 t", ">1t"},
+ {"=1 w", "=1w"},
+ {"=380 l", "=380l"},
+ {"=127 t", "=127t"},
+ {"<128 t", "<128t"},
+ {"=128 t", "=128t"},
+ {">255 t", ">255t"},
+ {"=512 t", "=512t"}
+}
+
+local function pass(buffer)
+ local ob = ""
+ local smode = false
+ while #buffer > 0 do
+  if not smode then
+   local ds = true
+   while ds do
+    ds = false
+    for _, v in ipairs(sequences) do
+     if buffer:sub(1, #(v[1])) == v[1] then
+      buffer = v[2] .. buffer:sub(#(v[1]) + 1)
+      ds = true
+     end
+    end
+   end
+  end
+  local ch = buffer:sub(1, 1)
+  buffer = buffer:sub(2)
+  ob = ob .. ch
+  if ch == "\"" then
+   smode = not smode
+  end
+ end
+ return ob
+end
+local op = io.read("*a")
+while true do
+ local np = pass(op)
+ if np == op then
+  io.write(np)
+  return
+ end
+ op = np
+end

com2/bundiv.lua

@@ -0,0 +1,72 @@
+-- This is released into the public domain. XX
+-- No warranty is provided, implied or otherwise. XX
+local sector = io.write -- XX
+-- XX
+-- BUNDIVIDE (r5 edition) reference implementation for integration XX
+-- Lines ending with XX are not included in the output. XX
+-- Lines that both start and end with -- are only for use in the output, XX
+--  and are thus not executed during any sanity-check procedure. XX
+-- XX
+Cp,Ct,Cc,Cw="","","",("\x00"):rep(65536)
+-- High-level breakdown: XX
+-- CP is unescaper & TAR-sector-breakup. XX
+-- It'll only begin to input if at least 3 bytes are available, XX
+--  so you'll want to throw in 2 extra zeroes at the end of stream as done here. XX
+-- It uses Ct (input buffer) and Cp (output buffer). XX
+-- Ignore its second argument, as that's a lie, it's just there for a local. XX
+-- CD is the actual decompressor. It has the same quirk as CP, wanting two more bytes. XX
+-- It stores to Cc (compressed), and Cw (window). XX
+-- It uses Ca as the "first null" activation flag. XX
+-- It outputs that which goes to the window to CP also. XX
+-- And it also uses a fake local. XX
+CP = function (d, b)
+ Ct = Ct .. d
+ while #Ct > 2 do
+  b = Ct:byte()
+  Ct = Ct:sub(2)
+  if b == 127 then
+   b = Ct:byte()
+   Ct = Ct:sub(2)
+   if b == 127 then
+    b = Ct:byte() + 254
+    if b > 255 then
+     b = b - 256
+    end
+    Ct = Ct:sub(2)
+   else
+    b = b + 127
+   end
+  end
+  Cp = Cp .. string.char(b)
+  if #Cp == 512 then
+   sector(Cp)
+   Cp = ""
+  end
+ end
+end
+-- XX
+CD = function (d, b, p)
+ Cc = Cc .. d
+ while #Cc > 2 do
+  b = Cc:byte()
+  if not Ca then
+   Ca, b, Cc = b < 1, "", Cc:sub(2)
+  elseif b < 128 then
+   b, Cc = Cc:sub(1, 1), Cc:sub(2)
+  else
+   p = Cc:byte(2) * 256 + Cc:byte(3) + 1
+   b, Cc = Cw:sub(p, p + b - 125), Cc:sub(4)
+  end
+  CP(b)
+  Cw = (Cw .. b):sub(-65536)
+ end
+end
+-- XX
+CD(io.read("*a")) -- XX
+--D.remove("init-bdivide.lua")--
+--D.rename("init.lua","init-bdivide.lua")--
+--local Ch=D.open("init-bdivide.lua","rb")--
+--dieCB=function()D.close(Ch)D.remove("init-bdivide.lua")end--
+--while true do local t=D.read(Ch, 64)if not t then break end CD(t)end--
+-- XX
+CD("\x00\x00")CP("\x00\x00")

com2/preproc.lua

@@ -0,0 +1,20 @@
+-- PREPROC: preprocess input to be 7-bit
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+
+while true do
+ local c = io.read(1)
+ if not c then return end
+ local bc = c:byte()
+ if bc < 127 then
+  io.write(c)
+ else
+  if bc <= 253 then
+   -- 127(0) through 253(126)
+   io.write("\x7F" .. string.char(bc - 127))
+  else
+   -- 254(0) through 255 (1)
+   io.write("\x7F\x7F" .. string.char(bc - 254))
+  end
+ end
+end

heroes.lua

@@ -0,0 +1,27 @@
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+
+-- arg is the size of the code.tar file
+local arg = ...
+os.execute("lua com2/preproc.lua < code.tar | lua com2/bdivide.lua > com2/code.tar.bd")
+os.execute("cat insthead.lua")
+print("sC=" .. math.ceil(tonumber(arg) / 512))
+local src = io.open("com2/bundiv.lua", "r")
+while true do
+ local line = src:read()
+ if not line then
+  io.flush()
+  src:close()
+  return
+ end
+ local endix = line:sub(#line-1,#line)
+ if endix ~= "XX" then
+  if endix == "--" then
+   -- included
+   print(line:sub(3,#line-2))
+  else
+   print(line)
+  end
+ end
+ -- XX means ignored.
+end

inst/bdivide/bga.lua

@@ -1,36 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
-local bga = {}
-
-local str = io.read("*a")
-
-for i = 1, #str - 1 do
- local bg = str:sub(i, i + 1)
- bga[bg] = (bga[bg] or 0) + 1
-end
-
-local first = {}
-local second = {}
-
-local mode = ...
-
-for k, v in pairs(bga) do
- if mode == "combined" then
-  print(string.format("%08i: %02x%02x : %s", v, k:byte(1), k:byte(2), k))
- end
- first[k:sub(1, 1)] = (first[k:sub(1, 1)] or 0) + v
- second[k:sub(1, 1)] = (second[k:sub(1, 1)] or 0) + v
-end
-
-for k, v in pairs(first) do
- if mode == "first" then
-  print(string.format("%08i: %s", v, k))
- end
-end
-
-for k, v in pairs(second) do
- if mode == "second" then
-  print(string.format("%08i: %s", v, k))
- end
-end

inst/bdivide/compress.lua

@@ -1,85 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- PREPROC (r9 edition): preprocess input to be 7-bit
-
-local frw = require("libs.frw")
-
-local
--- SHARED WITH DECOMPRESSION ENGINE
-function p(x, y)
- if x == 126 then
-  return string.char(y), 3
- elseif x == 127 then
-  return string.char(128 + y), 3
- elseif x >= 32 then
-  return string.char(x), 2
- elseif x == 31 then
-  return "\n", 2
- elseif x == 30 then
-  return "\x00", 2
- end
- return string.char(("enart"):byte(x % 5 + 1), ("ndtelh"):byte((x - x % 5) / 5 + 1)), 2
-end
-
-local preprocParts = {}
-local preprocMaxLen = 0
-for i = 0, 127 do
- for j = 0, 127 do
-  local d, l = p(i, j)
-  if d then
-   preprocMaxLen = math.max(preprocMaxLen, #d)
-   l = l - 1
-   if (not preprocParts[d]) or (#preprocParts[d] > l) then
-    if l == 2 then
-     preprocParts[d] = string.char(i, j)
-    else
-     preprocParts[d] = string.char(i)
-    end
-   end
-  end
- end
-end
-
-local function preprocWithPadding(blk, p)
- local out = ""
- local needsPadding = false
- while blk ~= "" do
-  p(blk)
-  local len = math.min(preprocMaxLen, #blk)
-  while len > 0 do
-   local seg = blk:sub(1, len)
-   if preprocParts[seg] then
-    out = out .. preprocParts[seg]
-    needsPadding = #preprocParts[seg] < 2
-    blk = blk:sub(#seg + 1)
-    break
-   end
-   len = len - 1
-  end
-  assert(len ~= 0)
- end
- -- This needsPadding bit is just sort of quickly added in
- --  to keep this part properly maintained
- --  even though it might never get used
- if needsPadding then
-  return out .. "\x00"
- end
- return out
-end
-
-local bdCore = require("bdivide.core")
-
-return function (data, lexCrunch)
- io.stderr:write("preproc: ")
- local pi = frw.progress()
- local function p(b)
-  pi(1 - (#b / #data))
- end
- data = preprocWithPadding(data, p)
- io.stderr:write("\nbdivide: ")
- pi = frw.progress()
- data = bdCore.bdividePad(bdCore.bdivide(data, p))
- io.stderr:write("\n")
- return lexCrunch.process(frw.read("bdivide/instdeco.lua"), {}), data
-end

inst/bdivide/core.lua

@@ -1,72 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- BDIVIDE r5 edition
--- Algorithm simplified for smaller implementation and potentially better compression
--- format:
--- 0-127 for constants
--- <128 + (length - 4)>, <position high>, <position low>
--- Position is where in the window it was found, minus 1.
--- windowSize must be the same between the encoder and decoder,
---  and is the amount of data preserved after cropping.
-
-local bdivCore = {}
-
-function bdivCore.bdivide(blk, p)
- local out = ""
-
- local windowSize = 0x10000
- local windowData = ("\x00"):rep(windowSize)
-
- while blk ~= "" do
-  p(blk)
-  local bestData = blk:sub(1, 1)
-  assert(blk:byte() < 128, "BDIVIDE does not handle 8-bit data")
-  local bestRes = bestData
-  for lm = 0, 127 do
-   local al = lm + 4
-   local pfx = blk:sub(1, al)
-   if #pfx ~= al then
-    break
-   end
-   local p = windowData:find(pfx, 1, true)
-   if not p then
-    break
-   end
-   local pm = p - 1
-   local thirdByte = pm % 256
-   bestData = string.char(128 + lm, math.floor(pm / 256), thirdByte)
-   bestRes = pfx
-  end
-  -- ok, encode!
-  out = out .. bestData
-  -- crop window
-  windowData = (windowData .. bestRes):sub(-windowSize)
-  blk = blk:sub(#bestRes + 1)
- end
- return out
-end
-
--- Adds padding if required
-function bdivCore.bdividePad(data)
- local i = 1
- -- Basically, if it ends on a literal,
- --  then the literal won't get read without two padding bytes.
- -- Otherwise (including if no data) it's fine.
- local needsPadding = false
- while i <= #data do
-  if data:byte(i) > 127 then
-   i = i + 3
-   needsPadding = false
-  else
-   i = i + 1
-   needsPadding = true
-  end
- end
- if needsPadding then
-  return data .. "\x00\x00"
- end
- return data
-end
-
-return bdivCore

inst/bdivide/instdeco.lua

@@ -1,64 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- BDIVIDE (r5 edition) and PREPROC (r9 edition)
--- decompression engine for installer
-
-$bdPPBuffer = ""
-$bdBDBuffer = ""
-$bdBDWindow = ("\x00"):rep(2^16)
--- High-level breakdown:
--- q is unescaper.
--- It'll only begin to input if at least 3 bytes are available,
---  so you'll want to throw in 2 extra zeroes at the end of stream as done here.
--- It uses t (input buffer) and p (output buffer).
--- Ignore its second argument, as that's a lie, it's just there for a local.
--- L is the actual decompressor. It has the same quirk as q, wanting two more bytes.
--- It stores to c (compressed), and w (window).
--- It outputs that which goes to the window to q also.
--- And it also uses a fake local.
-
--- SEE compress.lua FOR THIS FUNCTION
-function $bdPP(x, y)
- if x == 126 then
-  return string.char(y), 3
- elseif x == 127 then
-  return string.char(128 + y), 3
- elseif x >= 32 then
-  return string.char(x), 2
- elseif x == 31 then
-  return "\n", 2
- elseif x == 30 then
-  return "\x00", 2
- end
- return string.char(("enart"):byte(x % 5 + 1), ("ndtelh"):byte((x - x % 5) / 5 + 1)), 2
-end
-
-${
-function $engineInput($L|lData)
- $bdBDBuffer = $bdBDBuffer .. $lData
- while #$bdBDBuffer > 2 do
-  $lData = $bdBDBuffer:byte()
-  if $lData < 128 then
-   $lData = $bdBDBuffer:sub(1, 1)
-   $bdBDBuffer = $bdBDBuffer:sub(2)
-  else
-   ${
-   $L|bdBDPtr = $bdBDBuffer:byte(2) * 256 + $bdBDBuffer:byte(3) + 1
-   $lData = $bdBDWindow:sub($bdBDPtr, $bdBDPtr + $lData - 125)
-   $bdBDBuffer = $bdBDBuffer:sub(4)
-   $}
-  end
-  $bdPPBuffer = $bdPPBuffer .. $lData
-  $bdBDWindow = ($bdBDWindow .. $lData):sub(-2^16)
-  while #$bdPPBuffer > 1 do
-   ${
-   $lData, $L|bdPPAdv = $bdPP($bdPPBuffer:byte(), $bdPPBuffer:byte(2))
-   $bdPPBuffer = $bdPPBuffer:sub($bdPPAdv)
-   $}
-   $engineOutput($lData)
-  end
- end
-end
-$}
-

inst/bdvlite/compress.lua

@@ -1,18 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
-local frw = require("libs.frw")
-
-local bdCore = require("bdivide.core")
-
-return function (data, lexCrunch)
- io.stderr:write("\nbdivide: ")
- local pi = frw.progress()
- local function p(b)
-  pi(1 - (#b / #data))
- end
- data = bdCore.bdividePad(bdCore.bdivide(data, p))
- io.stderr:write("\n")
- return lexCrunch.process(frw.read("bdvlite/instdeco.lua"), {}), data
-end
-

inst/bdvlite/core.lua

@@ -1,72 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- BDIVIDE r5 edition
--- Algorithm simplified for smaller implementation and potentially better compression
--- format:
--- 0-127 for constants
--- <128 + (length - 4)>, <position high>, <position low>
--- Position is where in the window it was found, minus 1.
--- windowSize must be the same between the encoder and decoder,
---  and is the amount of data preserved after cropping.
-
-local bdivCore = {}
-
-function bdivCore.bdivide(blk, p)
- local out = ""
-
- local windowSize = 0x10000
- local windowData = ("\x00"):rep(windowSize)
-
- while blk ~= "" do
-  p(blk)
-  local bestData = blk:sub(1, 1)
-  assert(blk:byte() < 128, "BDIVIDE does not handle 8-bit data")
-  local bestRes = bestData
-  for lm = 0, 127 do
-   local al = lm + 4
-   local pfx = blk:sub(1, al)
-   if #pfx ~= al then
-    break
-   end
-   local p = windowData:find(pfx, 1, true)
-   if not p then
-    break
-   end
-   local pm = p - 1
-   local thirdByte = pm % 256
-   bestData = string.char(128 + lm, math.floor(pm / 256), thirdByte)
-   bestRes = pfx
-  end
-  -- ok, encode!
-  out = out .. bestData
-  -- crop window
-  windowData = (windowData .. bestRes):sub(-windowSize)
-  blk = blk:sub(#bestRes + 1)
- end
- return out
-end
-
--- Adds padding if required
-function bdivCore.bdividePad(data)
- local i = 1
- -- Basically, if it ends on a literal,
- --  then the literal won't get read without two padding bytes.
- -- Otherwise (including if no data) it's fine.
- local needsPadding = false
- while i <= #data do
-  if data:byte(i) > 127 then
-   i = i + 3
-   needsPadding = false
-  else
-   i = i + 1
-   needsPadding = true
-  end
- end
- if needsPadding then
-  return data .. "\x00\x00"
- end
- return data
-end
-
-return bdivCore

inst/bdvlite/instdeco.lua

@@ -1,30 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- BDIVIDE (r5 edition)
--- decompression engine used to decompress DEFLATE decompression engine
-
-$bdBDBuffer = ""
-$bdBDWindow = ("\x00"):rep(2^16)
-
-${
-function $engineInput($L|lData)
- $bdBDBuffer = $bdBDBuffer .. $lData
- while #$bdBDBuffer > 2 do
-  $lData = $bdBDBuffer:byte()
-  if $lData < 128 then
-   $lData = $bdBDBuffer:sub(1, 1)
-   $bdBDBuffer = $bdBDBuffer:sub(2)
-  else
-   ${
-   $L|bdBDPtr = $bdBDBuffer:byte(2) * 256 + $bdBDBuffer:byte(3) + 1
-   $lData = $bdBDWindow:sub($bdBDPtr, $bdBDPtr + $lData - 125)
-   $bdBDBuffer = $bdBDBuffer:sub(4)
-   $}
-  end
-  $bdBDWindow = ($bdBDWindow .. $lData):sub(-2^16)
-  $engineOutput($lData)
- end
-end
-$}
-

inst/build.lua

@@ -1,78 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- KittenOS NEO Installer Generator --
-local args = {...}
-
-local cid = args[1]
-local tarName = args[2]
-local algorithmsInReverseOrder = {}
-for i = 3, #args do
- table.insert(algorithmsInReverseOrder, 1, args[i])
-end
-
-local u = require("libs.frw")
-
-local instSize = 0
-local function put(data)
- io.write(data)
- instSize = instSize + #data
-end
-
--- Installer Lexcrunch Context --
-local lexCrunch = require("libs.lexcrunch")()
-
--- Installer Core --
-
--- installerFinalized:
---  Stuff that's already finished and put at the end of RISM. Prepend to this.
--- installerPayload / installerProgramLength:
---  The next-outer chunk that hasn't been written to the end of RISM
---   as the compression scheme (if one) has not been applied yet.
---  Really, installerProgramLength is only necessary because of the innermost chunk,
---   as that chunk has the TAR; additional data that's part of the same effective compression block,
---   but requires the program length to avoid it.
-local installerPayload
-local installerProgramLength
-local installerFinalized = ""
-
-do
- local tarData = u.read(tarName)
- local tarSectors = math.floor(#tarData / 512)
- local installerCore = lexCrunch.process(u.read("instcore.lua"), {["$$SECTORS"] = tostring(tarSectors)})
- installerPayload = installerCore .. tarData
- installerProgramLength = #installerCore
-end
-
--- Installer Compression --
-for _, v in ipairs(algorithmsInReverseOrder) do
- io.stderr:write("compressing (" .. v .. ")\n")
- local algImpl = require(v .. ".compress")
- local algEngine, algData = algImpl(installerPayload, lexCrunch)
- io.stderr:write("result: " .. #installerPayload .. " -> " .. #algData .. "\n")
- -- prepend the program length of the last section
- algEngine = lexCrunch.process("$iBlockingLen = " .. installerProgramLength .. " " .. algEngine, {})
- -- commit
- installerPayload = algEngine
- installerProgramLength = #installerPayload
- installerFinalized = algData .. installerFinalized
-end
-
--- Installer Final --
-
--- This is a special case, so the program length/payload/etc. business has to be repeated.
-put("--" .. cid .. "\n")
-put("--This is released into the public domain. No warranty is provided, implied or otherwise.\n")
-put(lexCrunch.process(u.read("insthead.lua"), {["$$CORESIZE"] = tostring(installerProgramLength)}))
-
-local RISM = installerPayload .. installerFinalized
-RISM = RISM:gsub("\xFE", "\xFE\xFE")
-RISM = RISM:gsub("]]", "]\xFE]")
-RISM = "\x00" .. RISM
-put("--[[" .. RISM .. "]]")
-
--- Dumping debug info --
-local dbg = io.open("iSymTab", "wb")
-lexCrunch.dump(dbg)
-dbg:close()
-

inst/deflate/compress.lua

@@ -1,14 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- This is a wrapper around (i.e. does not contain) Zopfli.
-local frw = require("libs.frw")
-
-return function (data, lexCrunch)
- frw.write("tempData.bin", data)
- os.execute("zopfli --i1 --deflate -c tempData.bin > tempZopf.bin")
- local res = frw.read("tempZopf.bin")
- os.execute("rm tempData.bin tempZopf.bin")
- return lexCrunch.process(frw.read("deflate/instdeco.lua"), {}), res
-end
-

inst/deflate/instdeco.lua

@@ -1,287 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- THIS NEXT LINE IS CLEARLY AWFUL
-$bdBDWindow = nil
-
--- THE DEFLATE DECOMPRESSOR OF MADNESS --
-
--- Core I/O --
-
--- $dfAlignToByteRemaining is
---  set to 8 in the outer engine
-
-${
-function $dfGetIntField($L|lLen, $L|lVal)
- $lVal = 0
- for $L|lI = 0, $lLen - 1 do
-  if coroutine.yield() then
-   $lVal = $lVal + 2^$lI
-  end
- end
- return $lVal
-end
-$}
-
--- Huffman Core --
--- The approach here is based around 1-prefixed integers.
--- These are stored in a flat table.
--- So 0b1000 is the pattern 000.
-
-${
-function $dfReadHuffmanSymbol($L|lTree, $L|lVal)
- $lVal = 1
- while not $lTree[$lVal] do
-  $lVal = ($lVal * 2) + $dfGetIntField(1)
- end
- return $lTree[$lVal]
-end
-$}
-
-${
-function $dfGenHuffmanTree($L|lCodeLens)
- -- $L|lI (used everywhere; defining inside creates a bug because it gets globalized)
- $L|lNextCode = {}
- ${
- -- To explain:
- -- lNextCode is needed all the way to the end.
- -- But lBLCount isn't needed after it's used to
- --  generate lNextCode.
- -- And lCode is very, very temporary.
- -- Hence this massive block.
- $L|lBLCount = {}
- -- Note the 0
- for $lI = 0, 15 do
-  $lBLCount[$lI] = 0
- end
- for $lI = 0, #$lCodeLens do
-  ${
-  $L|lCodeLen = $lCodeLens[$lI]
-  if $lCodeLen ~= 0 then
-   $lBLCount[$lCodeLen] = $lBLCount[$lCodeLen] + 1
-  end
-  $}
- end
-
- $L|lCode = 0
- for $lI = 1, 15 do
-  $lCode = ($lCode + $lBLCount[$lI - 1]) * 2
-  $lNextCode[$lI] = $lCode
- end
- $}
-
- $L|lTree = {}
- for $lI = 0, #$lCodeLens do
-  ${
-  $L|lCodeLen = $lCodeLens[$lI]
-  if $lCodeLen ~= 0 then
-   $L|lPow = math.floor(2 ^ $lCodeLen)
-   assert($lNextCode[$lCodeLen] < $lPow, "Tl" .. $lCodeLen)
-   $L|lK = $lNextCode[$lCodeLen] + $lPow
-   assert(not $lTree[$lK], "conflict @ " .. $lK)
-   $lTree[$lK] = $lI
-   $lNextCode[$lCodeLen] = $lNextCode[$lCodeLen] + 1
-  end
-  $}
- end
- return $lTree
-end
-$}
-
--- DEFLATE fixed trees --
-${
-$L|dfFixedTL = {}
-for $L|lI = 0, 143 do $dfFixedTL[$lI] = 8 end
-for $lI = 144, 255 do $dfFixedTL[$lI] = 9 end
-for $lI = 256, 279 do $dfFixedTL[$lI] = 7 end
-for $lI = 280, 287 do $dfFixedTL[$lI] = 8 end
-$dfFixedLit = $dfGenHuffmanTree($dfFixedTL)
--- last line possibly destroyed dfFixedTL, but that's alright
-$dfFixedTL = {}
-for $lI = 0, 31 do $dfFixedTL[$lI] = 5 end
-$dfFixedDst = $dfGenHuffmanTree($dfFixedTL)
-$}
-
--- DEFLATE LZ Core --
-
-$dfWindow = ("\x00"):rep(2^15)
-$dfPushBuf = ""
-${
-function $dfOutput($L|lData)
- $dfWindow = ($dfWindow .. $lData):sub(-2^15)
- $dfPushBuf = $dfPushBuf .. $lData
-end
-$}
-
-$dfBittblLength = {
- 0, 0, 0, 0, 0, 0, 0, 0,
- 1, 1, 1, 1, 2, 2, 2, 2,
- 3, 3, 3, 3, 4, 4, 4, 4,
- 5, 5, 5, 5, 0
-}
-$dfBasetblLength = {
- 3, 4, 5, 6, 7, 8, 9, 10,
- 11, 13, 15, 17, 19, 23, 27, 31,
- 35, 43, 51, 59, 67, 83, 99, 115,
- 131, 163, 195, 227, 258
-}
-$dfBittblDist = {
- 0, 0, 0, 0, 1, 1, 2, 2,
- 3, 3, 4, 4, 5, 5, 6, 6,
- 7, 7, 8, 8, 9, 9, 10, 10,
- 11, 11, 12, 12, 13, 13
-}
-$dfBasetblDist = {
- 1, 2, 3, 4, 5, 7, 9, 13,
- 17, 25, 33, 49, 65, 97, 129, 193,
- 257, 385, 513, 769, 1025, 1537, 2049, 3073,
- 4097, 6145, 8193, 12289, 16385, 24577
-}
-
-${
-function $dfReadBlockBody($L|lLit, $L|lDst, $L|lLitSym, $L|lLen, $L|lDCode, $L|lPtr)
- while true do
-  $lLitSym = $dfReadHuffmanSymbol($lLit)
-  if $lLitSym <= 255 then
-   $dfOutput(string.char($lLitSym))
-  elseif $lLitSym == 256 then
-   return
-  elseif $lLitSym <= 285 then
-   $lLen = $dfBasetblLength[$lLitSym - 256] + $dfGetIntField($dfBittblLength[$lLitSym - 256])
-   $lDCode = $dfReadHuffmanSymbol($lDst)
-   $lPtr = 32769 - ($dfBasetblDist[$lDCode + 1] + $dfGetIntField($dfBittblDist[$lDCode + 1]))
-   for $L|lI = 1, $lLen do
-    $dfOutput($dfWindow:sub($lPtr, $lPtr))
-   end
-  else
-   error("nt" .. v)
-  end
- end
-end
-$}
-
--- Huffman Dynamics --
-
-${
-function $dfReadHuffmanDynamicSubcodes($L|lDistLens, $L|lCount, $L|lMetatree, $L|lCode)
- -- used a lot: $L|lI
- $lCode = 0
- $lDistLens[-1] = 0
- while $lCode < $lCount do
-  -- use a tmpglb since it's just for the chain
-  $L|lInstr = $dfReadHuffmanSymbol($lMetatree)
-  if $lInstr < 16 then
-   $lDistLens[$lCode] = $lInstr
-   $lCode = $lCode + 1
-  elseif $lInstr == 16 then
-   for $lI = 1, 3 + $dfGetIntField(2) do
-    $lDistLens[$lCode] = $lDistLens[$lCode - 1]
-    $lCode = $lCode + 1
-    assert($lCode <= $lCount, "sc.over")
-   end
-  elseif $lInstr == 17 then
-   for $lI = 1, 3 + $dfGetIntField(3) do
-    $lDistLens[$lCode] = 0
-    $lCode = $lCode + 1
-    assert($lCode <= $lCount, "sc.over")
-   end
-  elseif $lInstr == 18 then
-   for $lI = 1, 11 + $dfGetIntField(7) do
-    $lDistLens[$lCode] = 0
-    $lCode = $lCode + 1
-    assert($lCode <= $lCount, "sc.over")
-   end
-  else
-   -- is this even possible?
-   error("sc.unki")
-  end
- end
- $lDistLens[-1] = nil
- return $lDistLens
-end
-$}
-
-$dfDynamicMetalensScramble = {16, 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15}
-
-${
-function $dfReadHuffmanDynamic($L|lState, $L|lLiteralSize, $L|lDistanceSize, $L|lDistanceLens)
- -- $L|lI loop variable, used all over
- -- to save on locals, this is reused
- -- as metalens
- $lState = {}
- for $lI = 0, 18 do $lState[$lI] = 0 end
- $lLiteralSize = $dfGetIntField(5) + 257
- $lDistanceSize = $dfGetIntField(5) + 1
- for $lI = 1, $dfGetIntField(4) + 4 do
-  $lState[$dfDynamicMetalensScramble[$lI]] = $dfGetIntField(3)
- end
- -- as metatree
- $lState = $dfGenHuffmanTree($lState)
- -- as concatenated subcodes
- $lState = $dfReadHuffmanDynamicSubcodes({}, $lLiteralSize + $lDistanceSize, $lState)
- -- The distance lengths are removed from lState,
- --  while being added to lDistanceLens
- -- The result is completion
- $lDistanceLens = {}
- for $lI = 0, $lDistanceSize - 1 do
-  $lDistanceLens[$lI] = $lState[$lLiteralSize + $lI]
-  $lState[$lLiteralSize + $lI] = nil
- end
- return $dfGenHuffmanTree($lState), $dfGenHuffmanTree($lDistanceLens)
-end
-$}
-
--- Main Thread --
-
-${
-$dfThread = coroutine.create(function ($L|lFinal, $L|lLitLen)
- while true do
-  $lFinal = coroutine.yield()
-  $L|lBlockType = $dfGetIntField(2)
-  if $lBlockType == 0 then
-   -- literal
-   $dfGetIntField($dfAlignToByteRemaining)
-   $lLitLen = $dfGetIntField(16)
-   -- this is weird, ignore it
-   $dfGetIntField(16)
-   for $L|lI = 1, $lLitLen do
-    $dfOutput(string.char($dfGetIntField(8)))
-   end
-  elseif $lBlockType == 1 then
-   -- fixed Huffman
-   $dfReadBlockBody($dfFixedLit, $dfFixedDst)
-  elseif $lBlockType == 2 then
-   -- dynamic Huffman
-   $dfReadBlockBody($dfReadHuffmanDynamic())
-  else
-   error("b3")
-  end
-  while $lFinal do
-   coroutine.yield()
-  end
- end
-end)
-$}
-
--- The Outer Engine --
-
-coroutine.resume($dfThread)
-${
-function $engineInput($L|lData, $L|lByte)
- for $L|lI = 1, #$lData do
-  $lByte = $lData:byte($lI)
-  $dfAlignToByteRemaining = 8
-  while $dfAlignToByteRemaining > 0 do
-   -- If we're providing the first bit (v = 8), then there are 7 bits remaining.
-   -- So this hits 0 when the *next* 8 yields will provide an as-is byte.
-   $dfAlignToByteRemaining = $dfAlignToByteRemaining - 1
-   assert(coroutine.resume($dfThread, $lByte % 2 == 1))
-   $lByte = math.floor($lByte / 2)
-  end
- end
- -- flush prepared buffer
- $engineOutput($dfPushBuf)
- $dfPushBuf = ""
-end
-$}
-

inst/instcore.lua

@@ -1,76 +0,0 @@
--- KOSNEO installer base
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
-$icScreen = $component.list("screen", true)()
-$icGPU = $component.list("gpu", true)()
-
-$icFilename = "Starting..."
-$icBytesRemaining = 0
-
-if $icScreen and $icGPU then
- $icGPU = $component.proxy($icGPU)
- $icGPU.bind($icScreen)
- $icGPU.setResolution(50, 5)
- $icGPU.setBackground(2^24-1)
- $icGPU.setForeground(0)
- $icGPU.fill(1, 1, 50, 5, "█")
- $icGPU.fill(1, 2, 50, 1, " ")
- $icGPU.set(2, 2, "KittenOS NEO Installer")
-end
-
-function $icOctalToNumber($a0)
- if $a0 == "" then return 0 end
- return $icOctalToNumber($a0:sub(1, -2)) * 8 + ($a0:byte(#$a0) - 48)
-end
-
-$icSectorsRead = 0
-$iBlockingLen = 512
-function $iBlockingHook($a0)
- if $icBytesRemaining > 0 then
-  ${
-  $L|icByteAdv = math.min(512, $icBytesRemaining)
-  $icBytesRemaining = $icBytesRemaining - $icByteAdv
-  if $icFile then
-   $filesystem.write($icFile, $a0:sub(1, $icByteAdv))
-   if $icBytesRemaining <= 0 then
-    $filesystem.close($icFile)
-    $icFile = nil
-   end
-  end
-  $}
- else
-  $icFilename = $a0:sub(1, 100):gsub("\x00", "")
-  -- this sets up the reading/skipping of data
-  $icBytesRemaining = $icOctalToNumber($a0:sub(125, 135))
-  if $icFilename:sub(1, 2) == "./" and $icFilename ~= "./" then
-   $icFilename = $icFilename:sub(3)
-   if $icFilename:sub(#$icFilename) == "/" then
-    $filesystem.makeDirectory($icFilename)
-   else
-    $icFile = $filesystem.open($icFilename, "wb")
-    if $icBytesRemaining == 0 then
-     $filesystem.close($icFile)
-     $icFile = nil
-    end
-   end
-  end
- end
- -- UPDATE DISPLAY --
- $icSectorsRead = $icSectorsRead + 1
- if $icScreen and $icGPU then
-  $icGPU.fill(1, 2, 50, 1, " ")
-  $icGPU.set(2, 2, "KittenOS NEO Installer : " .. $icFilename)
-  $icGPU.fill(2, 4, 48, 1, "█")
-  $icGPU.fill(2, 4, math.ceil(48 * $icSectorsRead / $$SECTORS), 1, " ")
- end
- if $icSectorsRead % 16 == 0 then
-  $computer.pullSignal(0.01)
- end
- if $icSectorsRead == $$SECTORS then
-  $filesystem.close($readInFile)
-  $filesystem.remove("init.neoi.lua")
-  $computer.shutdown(true)
- end
-end
-

inst/insthead.lua

@@ -1,67 +0,0 @@
--- KOSNEO installer base
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
-$computer = computer
-$component = component
-assert($component, "KittenOS NEO installer: Copy as init.lua to the target disk, then remove other disks & reboot.")
-
-$filesystem = $component.proxy($computer.getBootAddress())
-
-$filesystem.remove("init.neoi.lua")
-$filesystem.rename("init.lua", "init.neoi.lua")
-$readInFile = $filesystem.open("init.neoi.lua", "rb")
-
-$iBlockingBuffer = ""
-$iBlockingLen = $$CORESIZE
-${
-function $iBlockingHook($L|lBlock)
- -- Run the next script (replacement compression engine,)
- assert(load($lBlock))()
-end
-$}
-
-${
-function $engineOutput($L|lBlock)
- $iBlockingBuffer = $iBlockingBuffer .. $lBlock
- while #$iBlockingBuffer >= $iBlockingLen do
-  $lBlock = $iBlockingBuffer:sub(1, $iBlockingLen)
-  $iBlockingBuffer = $iBlockingBuffer:sub($iBlockingLen + 1)
-  $iBlockingHook($lBlock)
- end
-end
-$}
-$engineInput = $engineOutput
-
-while true do
- $readInBlock = $filesystem.read($readInFile, 1024)
- ${
- for i = 1, #$readInBlock do
-  -- Read-in state machine
-
-  -- IT IS VERY IMPORTANT that read-in be performed char-by-char.
-  -- This is because of compression chain-loading; if the switch between engines isn't "clean",
-  --  bad stuff happens.
-
-  -- This character becomes invalid once
-  --  it gets passed to engineInput,
-  --  but that's the last step, so it's ok!
-  $L|readInChar = $readInBlock:sub(i, i)
-  if not $readInState then
-   if $readInChar == "\x00" then
-    $readInState = 0
-   end
-  elseif $readInState == 0 then
-   if $readInChar == "\xFE" then
-    $readInState = 1
-   else
-    $engineInput($readInChar)
-   end
-  else
-   $engineInput($readInChar)
-   $readInState = 0
-  end
- end
- $}
-end
-

inst/libs/frw.lua

@@ -1,30 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
-return {
- read = function (fn)
-  local f = io.open(fn, "rb")
-  local d = f:read("*a")
-  f:close()
-  return d
- end,
- write = function (fn, data)
-  local f = io.open(fn, "wb")
-  f:write(data)
-  f:close()
- end,
- progress = function ()
-  io.stderr:write("00% \\")
-  local lastPercent = 0
-  local chr = 0
-  return function (fraction)
-   local percent = math.ceil(fraction * 100)
-   if percent ~= lastPercent then
-    lastPercent = percent
-    chr = (chr + 1) % 4
-    io.stderr:write(string.format("\8\8\8\8\8%02i%% %s", percent, ("\\|/-"):sub(chr + 1, chr + 1)))
-   end
-  end
- end
-}
-

inst/libs/lexcrunch.lua

@@ -1,191 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- This library helps in crunching down the installer a bit further.
-local sequences = {
- {"\n", " "},
- {"  ", " "},
- {" #", "#"},
- {"# ", "#"},
- {" ,", ","},
- {", ", ","},
- {" (", "("},
- {"( ", "("},
- {" )", ")"},
- {") ", ")"},
- {" {", "{"},
- {"{ ", "{"},
- {" }", "}"},
- {"} ", "}"},
- {" <", "<"},
- {"< ", "<"},
- {" >", ">"},
- {"> ", ">"},
- {" *", "*"},
- {"* ", "*"},
- {" ~", "~"},
- {"~ ", "~"},
- {" /", "/"},
- {"/ ", "/"},
- {" %", "%"},
- {"% ", "%"},
- {" =", "="},
- {"= ", "="},
- {" -", "-"},
- {"- ", "-"},
- {" +", "+"},
- {"+ ", "+"},
- {".. ", ".."},
- {" ..", ".."},
- {"\"\" ", "\"\""},
- {"=0 t", "=0t"},
- {">0 t", ">0t"},
- {">1 t", ">1t"},
- {"=1 w", "=1w"},
- {"=380 l", "=380l"},
- {"=127 t", "=127t"},
- {"<128 t", "<128t"},
- {"=128 t", "=128t"},
- {">255 t", ">255t"},
- {"=512 t", "=512t"}
-}
-
-local function pass(buffer)
- local ob = ""
- local smode = false
- while #buffer > 0 do
-  if not smode then
-   local ds = true
-   while ds do
-    ds = false
-    for _, v in ipairs(sequences) do
-     if buffer:sub(1, #(v[1])) == v[1] then
-      buffer = v[2] .. buffer:sub(#(v[1]) + 1)
-      ds = true
-     end
-    end
-   end
-  end
-  local ch = buffer:sub(1, 1)
-  buffer = buffer:sub(2)
-  ob = ob .. ch
-  if ch == "\"" then
-   smode = not smode
-  end
- end
- return ob
-end
-
--- Context creation --
-return function ()
- local forwardSymTab = {}
- local reverseSymTab = {}
-
- local temporaryPool = {}
-
- local stackFrames = {}
-
- local log = {}
-
- local possible = {}
- for i = 1, 52 do
-  possible[i] = ("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"):sub(i, i)
- end
-
- local function allocate(reason)
-  for _, v in pairs(possible) do
-   if not reverseSymTab[v] then
-    reverseSymTab[v] = reason
-    return v
-   end
-  end
- end
-
- local function allocTmp(id)
-  assert(not forwardSymTab[id], "var already exists: " .. id)
-  local val = table.remove(temporaryPool, 1)
-  if not val then val = allocate("temporary") end
-  forwardSymTab[id] = val
-  table.insert(log, "allocTmp " .. id .. " -> " .. val)
-  return val
- end
-
- local lexCrunch = {}
- function lexCrunch.dump(file)
-  file:write("forward table:\n")
-  for k, v in pairs(forwardSymTab) do
-   file:write(k .. " -> " .. v .. "\n")
-  end
-  file:write("reverse table (where differing):\n")
-  for k, v in pairs(reverseSymTab) do
-   if forwardSymTab[v] ~= k then
-    file:write(v .. " -> " .. k .. "\n")
-   end
-  end
-  file:write("log:\n")
-  for k, v in ipairs(log) do
-   file:write(v .. "\n")
-  end
- end
- function lexCrunch.process(op, defines)
-  -- symbol replacement
-  op = op:gsub("%$[%$a-z%{%}%|A-Z0-9]*", function (str)
-   if str:sub(2, 2) == "$" then
-    -- defines
-    assert(defines[str], "no define " .. str)
-    return defines[str]
-   end
-   local com = {}
-   for v in str:sub(2):gmatch("[^%|]*") do
-    table.insert(com, v)
-   end
-   if com[1] == "L" then
-    assert(#com == 2)
-    local id = "$" .. com[2]
-    assert(stackFrames[1], "allocation of " .. id .. " outside of stack frame")
-    table.insert(stackFrames[1], id)
-    return allocTmp(id)
-   elseif com[1] == "{" then
-    assert(#com == 1)
-    table.insert(stackFrames, 1, {})
-    return ""
-   elseif com[1] == "}" then
-    assert(#com == 1)
-    for _, id in ipairs(table.remove(stackFrames, 1)) do
-     table.insert(temporaryPool, forwardSymTab[id])
-     forwardSymTab[id] = nil
-    end
-    return ""
-   else
-    assert(#com == 1)
-    local id = "$" .. com[1]
-    -- normal handling
-    if forwardSymTab[id] then
-     return forwardSymTab[id]
-    end
-    local v = allocate(id)
-    forwardSymTab[id] = v
-    return v
-   end
-  end)
-  -- comment removal
-  while true do
-   local np = op:gsub("%-%-[^\n]*\n", " ")
-   np = np:gsub("%-%-[^\n]*$", "")
-   if np == op then
-    break
-   end
-   op = np
-  end
-  -- stripping
-  while true do
-   local np = pass(op)
-   if np == op then
-    return np
-   end
-   op = np
-  end
-  return op
- end
- return lexCrunch
-end

inst/status.lua

@@ -1,36 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- Status Screen --
-local target = ...
-local u = require("libs.frw")
-local instSize = #u.read(target)
-
-local status = ""
-local statusDetail = ""
-local blinkI = ""
-if instSize > 65536 then
- blinkI = "5;31;"
- status = " DO NOT SHIP "
- statusDetail = "The installer is too big to ship safely.\nIt's possible it may crash on Tier 1 systems.\nUpgrade the compression system or remove existing code."
-elseif instSize > 64000 then
- blinkI = "33;"
- status = " Shippable * "
- statusDetail = "The installer is getting dangerously large.\nReserve further room for bugfixes."
-else
- blinkI = "32;"
- status = "  All Green  "
- statusDetail = "The installer is well within budget with room for features.\nDevelop as normal."
-end
-io.stderr:write("\n")
-local ctS, ctM, ctE = " \x1b[1;" .. blinkI .. "7m", "\x1b[0;7m", "\x1b[0m\n"
-io.stderr:write(ctS .. "             " .. ctM .. "         " .. ctE)
-io.stderr:write(ctS .. status          .. ctM .. string.format(" %07i ", 65536 - instSize) .. ctE)
-io.stderr:write(ctS .. "             " .. ctM .. "         " .. ctE)
-io.stderr:write("\n")
-io.stderr:write(statusDetail .. "\n")
-io.stderr:write("\n")
-io.stderr:write("Size:  " .. instSize .. "\n")
-io.stderr:write(" max.  65536\n")
-io.stderr:write("\n")
-

inst/symbolGuide.md

@@ -1,32 +0,0 @@
-# The Symbol Guide
-
-## lexCrunch commands
-
-The following prefixes are really special,
- and are lexcrunch's responsibility:
-
-"$$THING" : These are defines.
-"$Thing" : Writes a global into stream. If not already allocated, is allocated a global.
-
-"${" : Opens a frame.
-"$}" : Closes a frame. (Attached temps are released.)
-"$L|THING" : Allocates THING from temp pool, attaches to stack frame, writes to stream.
- Use inside a comment to erase the written symbol
-
-## Conventions
-
-The rest are convention:
-"$iThing" symbols are Installer Wrapper.
-"$icThing" symbols are Installer Core.
-"$dfThing" symbols are DEFLATE Engine.
-"$bdThing" symbols are BDIVIDE Engine.
-
-"$a0", "$a1", etc. are Local Symbols.
-DEPRECATED, THESE ARE AN OLD MECHANISM, USE FRAMED TEMPS INSTEAD.
-These are reserved only for use in locals.
-(For loops count.)
-
-"$lThing" symbols are used to name Local Symbols using aliases.
-
-NO THEY ARE NOW USED FOR ALL TEMPS, INCLUDING LOCAL SYMBOLS
-

inst/uncompressed/compress.lua

@@ -1,10 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- Example compression engine.
--- Given: data, lexCrunch
---  returns compressionEngine, compressedData
-return function (data, lexCrunch)
- return lexCrunch.process(" $engineInput = $engineOutput ", {}), data
-end
-

insthead.lua

@@ -0,0 +1,97 @@
+-- KOSNEO inst.
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+C, O, G, D = component, computer
+assert(C, "To install, please copy as init.lua to a blank disk or a system to update, then remove all other disks and reboot.")
+
+sa = C.list("screen", true)()
+if sa then
+ G = C.list("gpu", true)()
+ if G then
+  G = C.proxy(G)
+  G.bind(sa)
+  G.setForeground(0xFFFFFF)
+  G.setBackground(0x000000)
+  G.setResolution(50, 5)
+  G.setDepth(1)
+  G.fill(1, 1, 50, 5, " ")
+  G.setBackground(0xFFFFFF)
+  G.setForeground(0x000000)
+  G.fill(1, 2, 50, 1, " ")
+  G.set(2, 2, "KittenOS NEO Installer")
+ end
+end
+
+D = C.proxy(O.getBootAddress())
+
+tFN,tFSR,tW,tF="Starting...",0,0
+
+function tO(oct)
+ local v = oct:byte(#oct) - 0x30
+ if #oct > 1 then
+  return (tO(oct:sub(1, #oct - 1)) * 8) + v
+ end
+ return v
+end
+function tA(s)
+ if tW > 0 then
+  tW = tW - 1
+  return
+ end
+ if tF then
+  local ta = math.min(512, tFSR)
+  D.write(tF, s:sub(1, ta))
+  tFSR = tFSR - ta
+  if tFSR == 0 then
+   D.close(tF)
+   tF = nil
+  end
+ else
+  tFN = s:sub(1, 100):gsub("\x00", "")
+  local sz = tO(s:sub(125, 135))
+  if tFN:sub(1, 5) ~= "code/" then
+   tW = math.ceil(sz / 512)
+  else
+   tFN = tFN:sub(6)
+   if tFN == "" then
+    return
+   end
+   if tFN:sub(#tFN) == "/" then
+    tW = math.ceil(sz / 512)
+    D.makeDirectory(tFN)
+   else
+    tF = D.open(tFN, "wb")
+    tFSR = sz
+    if tFSR == 0 then
+     D.close(tF)
+     tF = nil
+    end
+   end
+  end
+ end
+end
+
+sN, sC = 0, 0
+
+function sector(n)
+ tA(n)
+ sN = sN + 1
+ if G then
+  local a = sN / sC
+  G.fill(1, 2, 50, 1, " ")
+  G.set(2, 2, "KittenOS NEO Installer : " .. tFN)
+  G.setForeground(0xFFFFFF)
+  G.setBackground(0x000000)
+  G.fill(2, 4, 48, 1, " ")
+  G.setBackground(0xFFFFFF)
+  G.setForeground(0x000000)
+  G.fill(2, 4, math.ceil(48 * a), 1, " ")
+ end
+ if sN % 8 == 0 then
+  O.pullSignal(0.05)
+ end
+ if sN == sC then
+  dieCB()
+  O.shutdown(true)
+ end
+end

laboratory/ocemu.cfg.default

@@ -3,8 +3,8 @@ ocemu {
     components {
       {"gpu", "c1-gpu-tier3", 0, 160, 50, 3},
       {"gpu", "c1-gpu-tier1", 0, 50, 16, 1},
-      {"screen_sdl2", "c1-screen-tier3", -1, 160, 50, 3},
+--      {"screen_sdl2", "c1-screen-tier3", -1, 160, 50, 3},
---      {"screen_sdl2", "c1-screen-tier1", -1, 50, 16, 1},
+      {"screen_sdl2", "c1-screen-tier1", -1, 50, 16, 1},
       {"modem", "c1-modem", 1, false},
       {"eeprom", "c1-eeprom", 9, "lua/bios.lua"},
       {"filesystem", "c1-tmpfs", -1, "tmpfs", "tmpfs", false, 5},

laboratory/reset-i.sh

@@ -7,5 +7,5 @@ cp ocemu.cfg.default ocemu.cfg && rm -rf c1-sda c1-sdb tmpfs
 mkdir c1-sda c1-sdb
 echo -n c1-sda > c1-eeprom/data.bin
 cd ..
-./package.sh $*
+./package.sh
 cp inst.lua laboratory/c1-sda/init.lua

mkucinst.lua

@@ -0,0 +1,28 @@
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+
+os.execute("tar -cf code.tar code")
+os.execute("cat insthead.lua > inst.lua")
+local f = io.open("inst.lua", "ab")
+
+local df = io.open("code.tar", "rb")
+local sc = 0
+while true do
+ local d = df:read(512)
+ if not d then break end
+ sc = sc + 1
+end
+df:close()
+local df = io.open("code.tar", "rb")
+f:write("dieCB = function () end")
+f:write("sC = " .. sc .. "\n")
+while true do
+ local d = df:read(512)
+ if d then
+  f:write(string.format("sector(%q)", d))
+ else
+  break
+ end
+end
+df:close()
+f:close()

package.sh

@@ -9,15 +9,15 @@ lua claw/clawconv.lua code/data/app-claw/ < claw/code-claw.lua > /dev/null
 rm code.tar
 # Hey, look behind you, there's nothing to see here.
 # ... ok, are they seriously all named "Mann"?
-cd code
+tar --mtime=0 --owner=gray:0 --group=mann:0 -cf code.tar code
-tar --mtime=0 --owner=gray:0 --group=mann:0 -cf ../code.tar .
-cd ..
 
-# The Installer Creator
+# Solely for ensuring that a -gold.lua file can be checked before being pushed to repository.
-cd inst
+echo -n "-- commit: " > inst.lua
-lua build.lua `git status --porcelain=2 --branch | grep branch.oid | grep -E -o "[0-9a-f]*$" -` ../code.tar $* > ../inst.lua
+git status --porcelain=2 --branch | grep branch.oid >> inst.lua
-lua status.lua ../inst.lua
+lua heroes.lua `wc -c code.tar` | lua com2/bonecrunch.lua >> inst.lua
-cd ..
+echo -n "--[[" >> inst.lua
+cat com2/code.tar.bd >> inst.lua
+echo -n "]]" >> inst.lua
 
 # Common Repository Setup Code
 ./package-repo.sh inst.lua

preSH-Ancient-Est-2-10-2017.lua

@@ -0,0 +1,609 @@
+-- KOSNEO inst.
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+
+-- PADPADPADPADPADPADPADPAD
+
+local C, O, G, D = component, computer
+local sAddr = C.list("screen", true)()
+if sAddr then
+ G = C.list("gpu", true)()
+ if G then
+  G = C.proxy(G)
+  G.bind(sAddr)
+  G.setForeground(0xFFFFFF)
+  G.setBackground(0x000000)
+  G.setResolution(50, 5)
+  G.setDepth(1)
+  G.fill(1, 1, 50, 5, " ")
+  G.setBackground(0xFFFFFF)
+  G.setForeground(0x000000)
+  G.fill(1, 2, 50, 1, " ")
+  G.set(2, 2, "KittenOS NEO Installer")
+ end
+end
+
+D = C.proxy(O.getBootAddress())
+
+local file = nil
+local fileName = "Starting..."
+local fileSizeRm = 0
+local ws = 0
+
+local convoct
+convoct = function (oct)
+ local v = oct:byte(#oct) - 0x30
+ if #oct > 1 then
+  return (convoct(oct:sub(1, #oct - 1)) * 8) + v
+ end
+ return v
+end
+local function sectorCore(sector)
+ if ws > 0 then
+  ws = ws - 1
+  return
+ end
+ if file then
+  local takeaway = math.min(512, fileSizeRm)
+  D.write(file, sector:sub(1, takeaway))
+  fileSizeRm = fileSizeRm - takeaway
+  if fileSizeRm == 0 then
+   D.close(file)
+   file = nil
+  end
+ else
+  local name = sector:sub(1, 100):gsub("\x00", "")
+  local sz = convoct(sector:sub(125, 135))
+  if name:sub(1, 5) ~= "code/" then
+   ws = math.ceil(sz / 512)
+  else
+   if name:sub(#name, #name) == "/" then
+    ws = math.ceil(sz / 512)
+    D.makeDirectory(name:sub(6))
+   else
+    fileName = name:sub(6)
+    file = D.open(fileName, "wb")
+    fileSizeRm = sz
+    if file then
+     if fileSizeRm == 0 then
+      D.close(file)
+      file = nil
+     end
+    end
+   end
+  end
+ end
+end
+
+local dieCB = function () end
+
+local sectorNum = 0
+local sectorCount = 0
+
+local function sector(n)
+ sectorCore(n)
+ sectorNum = sectorNum + 1
+ if G then
+  local a = sectorNum / sectorCount
+  G.fill(1, 2, 50, 1, " ")
+  G.set(2, 2, "KittenOS NEO Installer : " .. fileName)
+  G.setForeground(0xFFFFFF)
+  G.setBackground(0x000000)
+  G.fill(2, 4, 48, 1, " ")
+  G.setBackground(0xFFFFFF)
+  G.setForeground(0x000000)
+  G.fill(2, 4, math.ceil(48 * a), 1, " ")
+ end
+ if sectorNum % 8 == 0 then
+  O.pullSignal(0.05)
+ end
+ if sectorNum == sectorCount then
+  dieCB()
+  O.shutdown(true)
+ end
+end
+
+sectorCount = 260
+D.remove("init-symsear.lua")
+D.rename("init.lua", "init-symsear.lua")
+local instHandle = D.open("init-symsear.lua", "rb")
+dieCB = function ()
+ D.close(instHandle)
+ D.remove("init-symsear.lua")
+end
+local syms = {" ","s","e","t","a","i","\24","(","r",".","\
+","p","\"","o","c","m",", ","\1","l","n",")","d","u","\17","\9","x","-","\7","\6","\8","\4","\13","\2","\3","\5","g","\14","\21","\11"," then\
+  ","1","w","  ","\12","\18","\22","f","F","y",",","\20","re","b","k"," = ","\23","return "," local ","\16","v"," if ","\
+ ","\15","\19","\
+  ","   ","[","en","/","0","]","path","nction (","\
+   ","se","h"," =","or","S","T","le","\
+local ",")\
+","= fu","on"," == ","ne",")\
+  ","functio","\
+  end\
+","D","{"," t","n ","oc","lo"," end\
+    ","\0\0\0\0\0\0\0\0\0","un"," i","W","\0\0\0\0\0\0","fu","et","   end\
+","then ","nd","ni","A","ing","  tab","loca","etting",")\
+ ","ct","C","P","}","\
+    end\
+",")\
+   ","onit","= ","end\
+","\0","I","Y"," do\
+ ","return\
+","le.inser"," = func","= \"","al"," r","  e","in","he","nc"," e","j","donkonit","tion ()",") do\
+  "," the","\
+    ",")\
+    ","ur","#","+","N","cursor",".inse",", v ","nction (w"," neo.req"," for "," then\
+   ","\0\0\0\0\0\0\0","nd\
+ ","()\
+ ","neo.","ath","table","l ","do","2","3",":","H"," = nil\
+ ","nd\
+ e","hen\
+ ","\7local ","indowCore",")\
+   end\
+","d\") end\
+"," = false","if ","pairs(","dow","string\"","ti","O","uestAcces","nd\
+  if ","icode.","    if","v in ","pkg, pid","000","750\0000001","end\
+  e","750\0000000"," else\
+ ","window","end","00",".neo.sys.","neoux.tc","= {}\
+  ","(window, ","5","=","E","R",") end\
+ "," cursor","request","ode/app"," return e","\" the","equire(","    "," then",".neo.pub.","hile true"," end"," en","\0\0","B","M","    ret","for ","in ipai"," true\
+ ","close","code.sub","error(\"","return t","oroutine"," end\
+ if","end\
+  en","tion ","\", funct",":sub(","vailable","  end\
+  ","  l"," == \"","prima"," if type(","ryWindow","window.s"," end\
+ ","L","X","~","on ("," in ipair"," for _, v","  for k","\0\0\0\0\0cod","lose()\
+  "," = funct","rror(\"Exp","nsurePath","s.primary","primary","buildingS","unic","     "," re","surfaces","disallowe","ackground","neoux.","ccess","selectUnk","  end\
+ "," = uni","\
+ end\
+"," f","7","Z","z","for k","rue\
+ end\
+","ode.len(","     end\
+","lse\
+ ",") end","end\
+ "," fu",":sub(1, ","sub(1, 4)","      ","neo","the","if not "," th","tion","unknownA","end\
+  ","[1] == \"","= unico","Acces","\
+end\
+\
+l","n\
+      ","\") end\
+","de.len(","  end","\" then\
+  ","0\0000001","urface","nd\
+","()\
+","(surfaces","  if ","\0\0\0\0\0\0\0\0","unc","urn","\
+      "," end\
+"," neoux","ction","\
+ end\
+ ","\
+     ","neoux","\24\0\0\0\0\0\0\0\0","\
+    end"," end\
+end\
+","\
+end\
+","   if "," err","s[1] == \"","unicode."," window","    if ","ocal fun","= false","\0\0\0\0\0\0\0000","\0\0\0\0\0\0\00000","code","_, v in i","()\
+  ","d\
+  ","f ev == \"","   return",", bg, fg","   end"," neoux.","\0\0\0","w.close(","\
+   if ev","   i"," if not ","if kc == ",")\
+  end\
+ ","indow","onkonit","00175","table.",", bg, fg)","   l"," end\
+  ",") == \"","d\
+"," return ","rn","ca","q","   tabl"," error(\"","end\
+   re"," in ","hen err","nd\
+  en","nd\
+  ","\
+   end","turn ","x.neo.","ion ("," table","false","string","e.len(","d\
+ ","  re","1, unicod","cursorX ","local ","end\
+end\
+","cal","\" then e","nd\
+  if k","ion","00644\00000","  end\
+   ","\
+end"," window.","   e","if not","== \"",", func"," neo.",", functi","\
+ end\
+end","  r","end\
+   ","ion (w)\
+","\
+ end"," = false\
+"," ret","tu"," end\
+   ","f ","unction","= nil\
+","th","n\
+","6","U","_","requir","eturn\
+"," funct","eturn tr","\
+\
+local","  table.","eques","rn ",")\
+     r",".insert(","ode.",")\
+  end","== ","\0\0\0\0\0\0\0c","n\
+  ","\0\0\0\0\0","()\
+   "," = nil","able.","n\
+ "," = n","return","000644\0000","Access","able","etu","d\
+   ","\
+ if ","end\
+ end","nction (p","ub(1, 4) ","  return ","  return","lse\
+  ","abl","= uni","for k, ","\0\0\0\0\0\0\0\0c","cursorY","ble","bg, fg)\
+ ","\
+ e","ind","ret","tring\"","000000"," neo","pairs","then\
+   ",")\
+     ","le.inse","loc","\
+  end","n error","\
+end\
+\
+","if s[1] =","lse\
+   ","turn","ursor","function","neou","\0\0\0\0\0\0c","function ","\0000001","end\
+   e","eo.","Access(\"","   re"," lo","\
+    e",")\
+   end","urn ","\
+     re","  end\
+  e"," = f","\0\0\0\0","cal ","\0000000644\0","in ip","\
+ en"," return",")\
+   i","ction ","\
+   end\
+","ode","equire(\"","r(\"Expect","ctio"," cursorY","if","%","4","<","G","\
+local f","\
+   ret","   for ","d\
+  if"," erro","true\
+ end","ed\") end","hen ","nd\
+    en","al ","on ","] then\
+  ","string\")","for _, ","unicode.l","[1] == ","true\
+ ","uestAc","nd\
+end\
+"," for k, ","   if ev ","then\
+    ","\
+   en",")\
+  en","do\
+   ","e.ins",".primary"," true","coroutine","return\
+  ","airs(",") end\
+  ","nd\
+end\
+\
+","\
+  return","window, ","end\
+    e","end\
+  end","750\0000","eturn t",", functio","    e","d\") end","en\
+","ocal","icode.len","e\
+   ","n\
+   ","w.close()"," uni","sub(","n ipairs(","  for ","end\
+     ","ion ()","end\
+   en","quest","cursorY ","eturn","unicode.s","x.neo.pub"," = neo","hen\
+     ","then\
+","string\") ","in ipa","   retur","indowCor","    re","750\00000"," do\
+    ",")\
+   if "," then ret","\") end","   en","n\
+    ","ipairs"," then err","d\
+ en","= f"," local",".neo.","\24\0\0\0\0\0\0\0","func","()\
+     ",")\
+   en","curs","\
+    loca","ode/apps","nd\
+ if ","  i"," = neo.r","kg, pid, ","\
+  i","win","code.sub(","require","wind"," else\
+   ","close()"," end\
+e","\
+\
+local "," then re","\
+  e",".request","wnAvailab","tion (","\
+ local ","error(","\0000001750\0","n\
+     ","d\
+     ","       ","uestA","reques","end\
+end\
+\
+","ion ()\
+"," curso","then\
+ ","0001750","surfac",".close("," function","= neo.","if type(","  loc","d\
+ e","oroutine."," do\
+   "," else\
+  ","tion ()\
+ ",", v in ","window.","neo.re","0000","\000000","\
+   end\
+ ","ipairs(","  ret","\"x.neo.pu","error","\
+   i","\
+     end","()\
+    ","= nil\
+   ","nsert(","n erro","rror(\"","nil\
+   ","cursorX ="," do\
+  "," for","turn f","en\
+    "," table.","\
+       ","\") end\
+ ","\") end\
+  ",".close()\
+","\
+   re","d\
+    e","\
+  end\
+  ","ownAvaila","000644\00000"," false\
+ ","\
+  re","false\
+","ion ()\
+ ",")\
+   e","urn end\
+",")\
+   if","x.neo.sys","indow, ","then\
+  ",")\
+   if t","cti","ion ","ion (w","\" then"," = nil\
+","then","e\" then\
+"," if","on (w)\
+  ",") do\
+ ","  en","tAccess(\"","surePath"," end\
+end","\
+  end\
+ ","e.inse"," table.i","   local","oca","n (","0 then\
+  ",") end\
+","   loc","se\
+  ","do\
+  ","nd\
+ end\
+"," then e","0000644\0","ion ()\
+  ","ocal ","end\
+  if ","e\
+  "," then\
+","  local","icode.le","\" then "," ==","] == \"","eoux","ndow","\0\0\0\0\0c","nownAvail"," functi","0\000000000","eoux.tc","hen error"," = neo.","table.ins","  window","(window","d\
+  if ","\
+   if ","\
+   local","end\
+ e","nd\
+end","insert(","   local ","k, v i","surface","eturn ","\
+loc","sub(1, ","end\
+ if ","io","!","$","&","'","*","8","9",";",">","?","@","J","K","Q","V","\\","^","|","<22>","…","ˆ","‰","Œ","<22>","Ž","<22>","<22>","’","“","”","˜","¦","¬","¼","½","Â","ï",}
+local bytBuf = ""
+local bitBuf = ""
+local function getByte()
+ if bytBuf == "" then
+  bytBuf = D.read(instHandle, 64)
+ end
+ local r = bytBuf:byte()
+ bytBuf = bytBuf:sub(2)
+ return r
+end
+while true do
+ if getByte() == 0 then break end
+end
+local function pb(c, p) if c % (p * 2) ~= c % p then bitBuf = bitBuf .. "1" else bitBuf = bitBuf .. "0" end end
+local stn = 0
+local function getBit()
+ if bitBuf == "" then
+  local c = getByte()
+  c = (c - stn) % 256 stn = stn + 3
+  pb(c, 1)
+  pb(c, 2)
+  pb(c, 4)
+  pb(c, 8)
+  pb(c, 16)
+  pb(c, 32)
+  pb(c, 64)
+  pb(c, 128)
+ end
+ local bit = bitBuf:sub(1, 1) == "1"
+ bitBuf = bitBuf:sub(2)
+ return bit
+end
+local buf = ""
+local mode = false
+local bc2 = 10
+while true do
+ local bc = getBit()
+ local v = 0
+ if bc then bc = bc2 v = 64 else bc = 6 end
+ for bit = 0, bc - 1 do
+  if getBit() then v = v + (2 ^ bit) end
+ end
+ buf = buf .. syms[v]
+ if mode then
+  while #buf >= 512 do
+   sector(buf:sub(1, 512))
+   buf = buf:sub(513)
+  end
+ else
+  if #buf == 27939 then
+   stn = 0
+   bc2 = 11
+   bitBuf = ""
+   syms = {}
+   while #buf > 0 do
+    local len = buf:byte()
+    if len > 127 then error("symlen") end
+    buf = buf:sub(2)
+    local ch = buf:sub(1, len)
+    buf = buf:sub(len + 1)
+    table.insert(syms, ch)
+   end
+   mode = true
+  end
+ end
+end
+--[[°%ª<>°œ]-¤åEØr=´ÚZE‡N×ϯp¢œŸìᄉ±ä<C2B1>ôžüƈ¤ØÓ¦°4Þ.6ÆÊy3ƒ·ÿ…ÍbHÊM¼ÑväàäàÂìk
+pÀ £h
3/U<EFBFBD>š-<EFBFBD>3PMn4´©;<EFBFBD>FÅag·Ž¸µæ­žãâÙyÌ<EFBFBD>¹á—Àx‹gºÅ-Õ {.wÄëÒ1íÃñ`&R—èßöO÷?!øè1-y
¾O…µl!´m§‹<ƒ;©.­ý“ç@¾hP‰ÈÝb!dÙd„´®•<EFBFBD>{¹ÖÿRè¨8<EFBFBD>hÅ©rÄ@óªëÀ1F
+ØBÃS·y›­Þ]ÎãS
+nn™9ÂZKá_²6"‡ ¤qd2YZúkÌ(ðÈûb	f_“±<E2809C>èˆuî¾â}šžÍ„°¤1›õ¹Ø Sôl¹¶ùÌüd
Îx¬3ø§àOë¾
+{=»íæ|"£‰Ÿ9s'`<60>%¯@*±QR?Š\.ö>eÎ yv>ÝÃ2µ“î9·¡¯ˆ…(
+WÕ<EFBFBD>/¨‹…²…5ÀösÐŒ<EFBFBD>Çáæn›”îs'¯“êcÚûFnňðÝr‰O/DIj,yéBÕ¿ë“—AUÐ<55>^\\ÇŽ¢è7“0xý1”"yŒ¶
¾ªÐg¶×àÃ+/€I`Þ™.:ØGóÒÚm!óu¾ÕéöeG4 ¦¬Tž“.‹›£ÿ½µŠp‡X*‹¿Y(1Ú‹k˜¬°Þyñ ‰Àaox‘
+rÏéÔ¤-*λ*©¸×B?£ÒAÏiRõi6á¶;[qü«à,òH#åU(;]ôFS¥
óÇv‡])é]§Ö<EFBFBD>pgîårê/‹ˆi4(¢Tê•„W+³!‹O+Të.R9ýºbåÞ‚`úúö?é’äÆ<EFBFBD>‡Ê<EFBFBD>×âŠ
0E"e/\•&žP5¥<35>0ŒS¹ºUÊká6òIm0‚Œ¨æÕq„-kEÜ·7~Äò§ò¾‹ÓÙ£é[<5B>€¼Ò¬7K¶Å~îqÈäÚ=à-fÚ€?‡ñ8üûÜmf*<2A>ò‘Z›<5A>Êq3¹MIS»MSÍn£S˜”¬¢<C2AC>jw¨pñr˜‰(Àº"ª‘©ó¦+Ü÷n­¼iU¢æ¸]UMìµNÖìÛ<EFBFBD>öâ¾[_n#ÉÜ-„<¨ão”ƨ:)æ}‰3lhUYúìèá¤.^챟è×~Õ
?‚LÒ…h
Ôî·ò®"bYÌ+Ò•Þš2¹<32>	]
Îãéó§Ü|ê|ê¼`
]©]#ÌMœ«[nJ“bâ6º@éMyHš<48>¬¸ÃÎi<>jkZh:o`Ç›Iñ“Y=“¥²0J
+Xd¶P±‡•ômß±
+
€3óÍF,~É óÿß;BTI((lÛ‘¤ªh’9*·j4ÉeYè¯ÐØ\ã¯íÅ¥&Tðo=÷Ž;Öðÿþh²(+-ò<ƒÚÚ7’¸ºy¿ÅV´–öógã&Xl6ÿäüâ³UÜ:úˆ
)+L¿™07PRCõORYÂ.EíW’x0?_‰tK‹Ë$ý>š7ïÿ8†|<EFBFBD>bB¿íÐÖ,£.Ýu¶{±AÍå¾ILNääÂáx¸w²u1´óø=B	Z‘mË!Ïa„ò+}/c´Kâˆ,Emqï
s¿o]cBÔ–Tdwñ¡°'Îâ­4ðë¶[ÆOæÀI¬%œÿ’FçúæåüµmL
zƒ<12>ƒ…fÄ]°Õ>«t¡ÛKCJ8†›`~rUv‹†QÚÔ]î‘YÙ¬‡‰7˜–šó“»Ê6¢¤ ò5*´žëœ“{ò´ŠÏ<Ò¢0öëâùüÓõ
+„ÁeíÝ¡Â!å À$sq;<EFBFBD>t‘ÍÛkÈŒXôÎk%aæéË<EFBFBD>ŠQv·ÙAÃIÿ/ Ò&Ú?´'?qט>~%ÕÕC®–T_W*%Œ\&,õ‚÷m„[ñè/lÔ†sÂo"-¨ý#YÑ>F„F] <>@
)<29>xA ¨êÑÅØ<C385>š5„ŽTÚÕz<C395>Ò/hlÏ¿9»›îËÓ"K
°±™ÌLúüªß;ïþÙ$hoÍjù?î#v\±=‡0ß<“<äŒIbQlØešéG:‰ñ-úç­¢†GËzR;2i¡ÃOÂo²s:-@F‡;gÔ¡zðxXï&?ÚìV]>™0ec+?nVÞƒ¶I¯l7Þn©Äøq<C3B8>hé™m…ë6•g÷?×»Ÿ*Ÿ‘1•»|†ùÐÛ+mkFäM
+Iéô^!z–¡ê:
öñj{3×åûæ‰Ñ±p“ƺ¼:/Vø\6zT?€Ӝ/–/eÕèLC¥gá¡	Ô¥†'Åú¡ÐÓ™2 æíÞW×ïÌõ#{ü5Æ—æew\›(ãêmë_%×ôI!1bù0Ñû<C391>‡4y9"Íæ’2®±¹6°<ã"<22>V­Þŵb}°p’ñV‚"˜DþqžÉê-±S¥·˜.<2E>ß®:Þø†ÙcÛˆÁL¢<ÓÉå=~ü
!ù'À8R<EFBFBD>«;˜TÐZ‡£ÇJNßo ù%ÿUGÅÇ	ÚèG[ë#¥rK‰yˆ¹Èõ<EFBFBD>fÉîë¦×¬	°ºìª
àË¢Ä`îÚƒ`³ØÕà)ßiŠÐRÐÅþî<EFBFBD>FXCÍM•û¨È¢6<EFBFBD>í@wÚCWô<EFBFBD>ŽqC,å‡#ÁhiÑŽÎLš÷K¦YÓE¤@K×nZ˜¾h£)9°1Òµõ”ú(dz·Ê¸<EFBFBD><EFBFBD>:füUƒ&9—Ÿ£“<EFBFBD>r„*ÿ2b°¥g>Íhã~<EFBFBD>äËM•taéžôºÉ è)\K²y@é9`ŽE*­ý0©5³&<EFBFBD>­þ´‰Jäÿjî2ÖÞÝp–
+#èi<EFBFBD>‰M-i8
+èÀ2Õ)%ÓÄœ•2íï¡m·BM CƆâJò^šîàÍm~Dï‡Ü@~‡Œ	ó”$…š›ˆŸ¤4°’ÓÖ¥¶=Jâ$Éb»ç<EFBFBD>ð2¨ò	‰¨
§‹!nÎáxê!ÐfÚ>2øàÁˆÁ©‰1aÑ_=[â易GÜõ†Ý<0ˆŽ<EFBFBD>Z²Bâ†?Íï»~V<EFBFBD>>^Â	ŸOFòLæ
|ç<EFBFBD>¥>ÌÉý<EFBFBD>
ˆÊB™ò¿[5—T^Š=G™\ÅåMUMzš«m¹dÒ¦||ŸÃÖ„Ã΃”¹Ê”©˜íü‡gÊx³`ÕµlÔëN°c,{80øÑí':9üõúNÙ˜<C399>N‰kà Þ¸³£é€Ñ8ø›nYP]í\é`E¢jCu<43>s|“…°«ýº£1<>G)›x*¨wñˆ¼àýA=pÐøÌÛX7`>ß°ÿ )¬>p°}gUËDE2¸$âk߬ï!â‘MD
+ú¬pñV¶·¼ì!~©%kÚ´á÷6¹¿ë(­˜´Þ<EFBFBD>ç(ŽÆðºÍØ>£³M¼ãsá‰
+í*iú%x?c_¼C	Q¼2ðXèÂw¬ôK·´Ú=É€}k/1mƒÝaRçoÉD·á³3
+»ŽÉbÍ›˜4ÜÙ¢$“‡ñ¥E#IJ2¡ŸOÛ«àú5éê»rÿW¶~4,‘;·&2ÍZVí(]VpGÃZî
+‰Û›ç<EFBFBD>s–<EFBFBD>ê¿r¡ùË'·„y€E ö‘ ¦˜vLt¢Âl§-=´5öôÑ…úòfÔqïÜj؈¬õsu0ÿ(Z(;-a‰¯rYC¬ér÷ײÀDN±dcâ×^|Lä<š<06>…u_yðxãn[KAxð€§G½°·ú9ÕÇ¡gŸÝ\Ö¸vëfšk¨Ì¼r[ .ÃchJ`|ò(ÄÒmÅg¸*œ“tI?}CM:Æ$t¬ï‘zIÏË]‚{vZ\¶©žˆ¯<>`7œ°¤-*λÌaµÝ¯â?‹Ù¥ISKåì9!éðî¥ói*Z CE°•4†îaÐÂUy‹ñ¢»lczÒ|GÐîÔQ){¶oò”7,n=‰8a<38>…4½ÂÒùæjÃ<6A>vÐU¶€%þÒÉL
0ž×©ÿX·ùÄóDÆzÛK)FŒºBˆ¶i¼–¿[<5B>=eÅPŽˆ=F%µŽk…BšâžÒÅ=kŸ°Ç¨:¼ƒÂü–eî2ÏùÊ4X³Æ…
´T¸?9*‰Ð7Áá΂‚8õ‰	9K‚G	0ÿ.uW¿–¦Õ'`H&<Iq½„µÇ(³cqWŸÛ¤°ði ëSØD›4íŒíhT—zœLŠh«£Š× ¹c½ÙÐ<EFBFBD>ñÁ2¶§£Gþf=wC ÒÆ!¯qE-A$<EFBFBD>w£§©<EFBFBD>Üç9x‚8aôPîc,|7qs€e°0¼v©‹8•M„‡
+Žçɯé¨Kæ¢+³­÷Ô<EFBFBD>ÿ ÈÕÑ#šÈôç
ívNtÑ·öãä:—S‡zò Te|­‚9Nw»NpIUl]†â}è,®½Åk4vs~.Vë„«é—’›Æ¡¹µ£ç‰tÊÕ{DöLÐÝ<EFBFBD>0\ÞàÕßå^ê¥![	„n*×\",1ð’bÀGqpØùT™Oh–$g)†±-sÂ<Áá)“Ú¸ù£I°î&ÀÝ<C380>¹U
+ÐEÒùÔÑóÜîG#÷qJ>ÕµÈù¤?9Ï•ž¤¾]}Å/äüq<EFBFBD>æNò¡k#Ó¨rîyarÊ(Êñò|“^ÂÇÉ™Ÿûð[ C°¦êŠ–3…zö-Ü¿ÉÖýKÔ×W˜:<EFBFBD>ˆä<EFBFBD>üÜEð;E…V-<EFBFBD>“ži&#»+?ÒH=qƒœÍ
+(Ï“µ«»ñR|rpÔŒƒ‰uª²ã 4›
ž±*£iï¶×Æ6~\8¹¥mฤcà„â—ówŽ/Z®<EFBFBD>»Ô—nãr]+:ãq<EFBFBD>¼³DH¶SïAy¡0çžÏf
ˆ(õÅÈ
+‘kQÌš&ל	gç<EFBFBD>¨@¿¼fàWÙ»2Úk¸
e÷°-(s|ÙÝäÅc¶*¸>±<EFBFBD>Â`K<i<BžÎ<EFBFBD>;<EFBFBD>4óJ‹ZLi<g·ÙŠÿ¤0t[œ<EFBFBD>„í	)ÙÿaŸ § Ã¥/ßõ.CÌ¿½0ÂËSÁÎX\ýìL@	ê¦wÿ˜þ	šTÃ<EFBFBD>·'"<22>4Ì5
1¹39R*Gz<47>ƒ¯ÀqFŠ¸g C@§º̵1©å_âI3£©•7'¾<EFBFBD>Á5Cnº"îQE
‰—Q°Í@!
ä'	œÔò<C394>÷=Ä]Ïž G8†ñèj}|a{JÆÿéiÔ´ ÷a{%Ù°›³6¸ïŸŽ ªªÃ0„_ÍÐãº6<C2BA>/Ù`º ž@óôM
C6®Ü!8õœRÿø›šâ@XS[I"]N%hÉb7PÜ3ÖbçY*e”i_Üf©;C’{äZ蟳Ì…)©•[úpa¥=°7ù)JÝF«ðJ±ç	d7±”>Ñžõ•6“PñÍ{ 'Ç›§ˆ¥ªÖhtÓxI<78>FӇˀ›”aÆpí¯lg#£#‹û<05>„Ę˜8¿Ÿ=›uAîXÀr/¶Ú¸ÜÞ”S³`Ù&¹éþúèÉïü{:7›@vî	QÐt¶!Ÿ%É(u-¿qs~M
0IgsÙŸ<¿„s·òôz58ϼքå܉~TrÝÿõÁß…
º$L]XGË1Ðã\Õ›!è	øhpOb*]oÀ7£óÝb[%ŽMé:¯ßÒIX¾ˆÚŠZé¢û+•úãŠð+|©v,»=[F2
1lzPïÇÄj2èº@bÝšYÓC’_‡í×s£Åã•
£Í`ß³AbÒÚÏ'ßÏL9'ƒi‹M\<15>n[e‘ŠlïžQÉ—Ùü‹›¶Åµ÷N¡º¯TÒº­}d!ÆÈb¡öŹ1-d°ºv“öWå(».(.›S:J ¡](™sbtÕ…¦ÄÉÒS^<r]®©¹õ¿¦´f°‡Dum%ÍM­Ò™‰ª­-¯´:ÙÂÈ&|uã[;嵐ù³7
M¼>s<>òFŠQ#’VŸÜ$æ#÷AŸ³/8d¦A˜'‚Ž‹Ú˫瀄³×Ë–¿õ«‘cî·¨§šø°™¥Cç².»’Ó³	x$Öô/'ewâ<EFBFBD>UsÌ«ø„¡>Ï;]‡LœŸ.uÅ¢éE*f.C²UDM<44>?ÆfZù^ò\\<EFBFBD>¿j†©žIÕü8€”
 )è<>Â",S<> ­dº¹BÏÔù{Té@Ç¢æ
+ŠééLí5oE:<EFBFBD>ÐÞ
¾)Ñ2:+³hÎ+²§Ô½xG^½tHŒ›UˆœÚŽ¨£ê¯Ñ<EFBFBD>üGÀ¨¼<EFBFBD>¥5UΞ©©lîJ <EFBFBD>Ðê¶aÅ¿¬Ö½JI™Yµ¢§/5ù²Ú:ÌÎ$E’<EFBFBD>­\.S/L?p4u¡á>NĈéôÑƱ'ƒ+´éÅcÇ–ø©‰ZO<ì±ýâ¤<C3A2>Ð
“öV<C3B6>XçùÄ
+ÒÖjlxR¦°—H}ù%V-ôZt¡^æ^2o7õÇó/FÚ!„Ë?à€„®ký㤩rsZnz“?9}掔á:­ùÿçªc{$/B%?Á„{Qøè;å¹ÚŠr	æ•‚
^ÿáæ:Nœ/ka­H8¦r7¬9`;¸9 KX áŒUX½b—å|ö/ŽõÞ„ÙYÇ<EFBFBD>¾q‘û,I!Ü&åëa¡ö<œÇOÝÑÿ]\ÙF®$c0:Bêó"HA&¶Ö)ø ¥æ£u)nÒ´)~<7E>@Õ<>wÎvdS¬å³§ru{Ns=ñûàŸ“LßÈΣ-íN"Î<EFBFBD>ȮǢ³ê”<EFBFBD>àˆ‡Ú[ÇbËR‰ÞµŽ®JmMQ°ŠÒ¬ÞÁ¨æ	EC–¹TDzÈ"“ÁÙÎXrAÔ_ €Ÿ¾}ø?6gŸNƒ$!•<>Þôªââ¤/H°U¿:ºî<Òïæ
]ÜÔ!{|…gÖêó'B¸
+	J˜¦~g#?|ÒRfäÞ-è`pðEúúÐiKd;ŸUj<EFBFBD>¸¹Zïo£Uvz(冈<EFBFBD>‹<EFBFBD>W°½Ûç­(({Cÿëñ-ÙÂTÛ+Þ×VöŠänß{S,bBñë¦È
+l§½ïŠ‹SR´5Š¸ëûCEko‚R–c\ÚWÊàväø‚¡Sª{ñ‘ÌŸÀt^ÃòI›¢rÂ3ÉÍL ñáqíi£;ÿ‚,<EFBFBD>õÙû1ñèêžLýxkÆÆ3Ï7nIÊ
+y<EFBFBD>W#e„›íw/̯ó¹if¯žÊÿ·Ê%O¸‡XJÎ]Ø¥ë‡8VPŠ`Ù!ûß×>_ûîÀþÿÿ"Ž>T<>¢+<1C>!yŠ›¼=?þDJL{¦`4üîxýkß®wò<77>ûq°é/
+
Ò¤Ú™ô<¤Ãü;ÜêÝ0t«È+a/#îñ÷ñø}q{Ww€-Kdž±ø×à “¢+<CE¸¸ƒ>…‡²Óã<EFBFBD>Öpkæ]‹ÚÑÔœ¾<EFBFBD>³ÔíćÎO_B¦ PÙ{¶ƒvì×ÎÛý‹,é×énݤ(þÒýd剚Èûr¿\Ÿœ¾ ìZ±30†W2X‰•ÆF²1ÆzVNdq±mÛáØèÆž
ÂZà#*bõª®o­¶»:xƒhG·j
’ÑΔ<EFBFBD>Tu "òøTI´ùœ	ÿÃaÃÁ|ìhZäK¶y4|Eá
KÇ\ήzÖYl7ÓBŠ™ÍqãJC81ÓÅÔû£ùˆ	}–‘Y;ÏÍÛ$	â
żøž]ì¶a;·ïW_¯÷;Zbð3ôÑ‚2ÕoóŽé–{*-2h—®á’I`Ã’¥šçšéEkÁŸ­H5ió¿DÈS+ŠÞÄY”½&®Á¾<C381>ìíºQ¶B-ʈ  Ò‘Üó×Ð:za÷š
+ì^<¶|«OES <¨ 9^'^ 6ÄЊ
‹Ä	®g†%X»ºË®¨ <10>7œ£|Âî+°›Ý$ øâ"…î÷þ
ÕeûïÜK[øÌOhSY	iiI«	_¤š–É¡ß<16>*šŸÈ^;,.êÝÁB–W¢tÆQ$Ó‘7^ã›@_Ž*}z@“…koË¢È]uáD+­õÔÁIþt4†ô´Ç_³'<ÄÞv,zKq_D‹aq-äÕÈí<EFBFBD>žkèý-Õo2Ò‹3ƒ¸¢÷Pª!çOƒ§¹x±Š²rMŒ+¾ÛH<EFBFBD><EFBFBD> ²—®<EFBFBD>èçv²Eú°ZàÑDí>åËù’
+$@"a)<29>Ö™]x"ž
´ä4²;>nSNYG»¥Þ)®î§ŽÖü¿IÕwcZt79 <EFBFBD>ßVâqë¹zdKËòêÔR)]~äËûÝ%îrÝEÜÄÂl‡	¯ñæ¦æj·‡?xvxJLý¾´¹ª§ßÎ&Ý^dÌ›•±µ¶…°@kŒsu|#⌢•h¦ãC
-öæâÿ|ÕñÔaØ
w©Ø…½jÞBÞ·<EFBFBD>ð_‡‰Þo
+WÝãòi}c­>õ6Uc/²	 й;ïeM£Aî}|H3_k|kɯ/grb°¶]Ã<EFBFBD>«)?>‡¶g<EFBFBD>ÀS"IKÀLºã€~ÆϲÐ>	C8ÂçVÝÌ+ïÕãÛá­ìâvÕscA(Ì'….FÔ=Ïçp®|p;>ô<w>£½s—«ë€×Þ²~ja˜Ó<þzÿá…·páå%Ê5¶t­àðÛúúÿµ^£1Ó€NäLaì÷Jíp|+ø;(XAC6j“I¼ _a\í«Üú\&;×ß[ï^³vwk§x©ÛÄr±¼q‚ÀHð‰7†‰

Ø“ø¦.¾F*éë®Üä»
ÒÌ@÷e<C3B7><65>äuÝ%˜kG(%¦üŠ?o¬n1gÛ%Þ5#G(SmŠ@ÆF<êSÅ9þíic…>ƒ|gØ<67>Œ%vØúµ~Æ„žo¼þðt©Ì;Îi»DHNÎvF
g¤ï´äíòqoè…㌆8“ájQÃd
-¼~J<>Ce¬-É¢Ô‘¬ª¦TM7ééÅr>èÄ„û¬ðš.Z<>$­H*F<>
+”Ý cÖÅߘÏTÌý<EFBFBD>1Ò‹À+Fèn$&wo
ô8#@<EFBFBD>NrÍ°Vð$$9?ñ’ _½†•F
+e!Ù
içz}†é%n>ÕV7 âÙ'åL÷Ú©	Á¦â'º+.Θüî?(ò4ïßCuE“üÏûi|wJoÔ=“²îÚŠ©9¦‰}CjƒÎÇ<EFBFBD>ÏúZ“ÈMâb–Hi˜>áÉ‹¼ƒ¸×¶ì<EFBFBD>Æò½z£åã³µ^Ä;¼â£¥á÷Ñ\pÛ꣤–í	ÿb1£þÎQ*aMü)© œÄšJ›æÄŠ~}´ÍNñ¦ï«Õž»êð£´ý<EFBFBD>“žÁ³ÍÈBvŸ¥—_À³¶…·Â—ªCÕqœ ^BPßhƤõĉ:qàü”x`í¸Œ6Ó¥•P­°;aM]V6àÅ‘iLÓÑ¢nZÞ
dt‡ƒ‰ziäYýÉå¬'"déè÷å×°Nû.<2E>ü±…X¶N
ïò)Ý	h™
íjÇsBù]Ÿ#i°ÈT–œSrf÷i/OR•DY„c²g›móôdƒc5ørÊ6<C38A>p<EFBFBD>‚<EFBFBD>ÿ‰&´þö§uÑæÄAvÎá»>û(Á(fßQ÷YW<00>é‡ë2ÀuI¿œ„.AÍiàŠÊ+¤…o%ñôZê@΃³Yðrˆ1Bo~cÒsD8x³x£M–Ež”·î×#÷¤3ü¾ÛI¶0Bç5<ÊÚSåVÚ¤œl¼ëu(”~öòaSôÅT…\\ŒÐüÿD4üY=XGšëb™×<E284A2>ø­{R D¸V0¾‡ç!“N•'½ µ>Ë!V­"YÃî@‡Hö5MïpÙî¤+÷øßð!YŸ)ƒâF/‹®êÓ#Ùs&#=¿¶}ñËFds[-~õ­æäf½†˜µ*{˜z-³ŽÎÓ—ÛùîÌ<C3AE>ͬ­Î~U,ì
@âÑüFñ{E¡‡3{<0/f£a„o3JCdŽvp<76>ñ²m´ZêŽù§<0C>‘5‰™E<E284A2>~™ZQöµËô~1­ç±>•mòtœ:Üi¶¯jï<6A>4n|@¾:Å·ö(S.DšL*'xsÉ-…«W…ë<E280A6>„W—$ÅVÊ­¯¥ë)­»ž?‰OÙqŠøB§¼”“" k,™„<EFBFBD>V¾µFã
+®|Ÿä¼»¥0à4ð¤Q–‚pÃÙ'Ò$‹Wúª‡Ëífì;ª³P.}{¨Urß$$7°I.D:»{{»
+c1*ZÖÖ<EFBFBD> }ÛXꨑ¨¡GŠAÌD<EFBFBD><EFBFBD>
:ò Ÿ%ú²3Ž´¶u»ÁfþòîL×>y4<EFBFBD>âK 3êê¥ôtm
+±e¼‚”µ:Ï£!b<EFBFBD>.îr6¿<EFBFBD>+e“v[RãÖ{ˆþ…‘ÇñÖò8¥îCý<EFBFBD>ôêÏ:<EFBFBD>Òôý¦ßü:)%#«CäçןéŒìOBq$Y]|ÃQŽ£)ïˆý`\Å!/÷qJÃ='<#{íH›t¯×­çÇc^^|WŽÃ¢T¡z–ÐÿöªÃpº… UJ³ãgÃWa-GO.Aû	\ì
+øv£zþ!@/ø
»V£Hb]×|l.®’€c_FI™î”sp³§3ìpЇÒ<<EFBFBD>©<EFBFBD>$㜕z4pç8Î09uܾùñ«¤<EFBFBD>(2\˜$ü<nkã~.v¶üúJa,'è€(;‰¼
+Sy}L‹5[fc`zoYà€oO’ä~M6PmfÝË)]ÎàaÕëÜù7&Âm¡“F
S×-}ݘ|Ròh3»œÁ# =O<EFBFBD>opÿEBö*×'mE²‰¶z·XöjÄkTËà­Šá´”³—±€üõÃÁ¦m¯y@“›Ÿ_ܪ¨òH¨”ùk<16>èàÖÅ÷|ý ˆ&^iÔ)
>Y2=Í2~.Î"ˆ5ÓL&IMMBE‰
È1‰œ­ÿvʨiòzä~ðòãªÈÎ6ÃIS¸¸C§.óµœCcÀòu‘hÒÒ1R»Ûõ&84úíÀ%ÿŠP<C5A0>Ð)mí^[À­]ùÌ3s
RÛ>n“Q§˜:®7š»PHv~쳤r~Ž€´<E282AC>–°&Ò£'ë}ú%—:“¿ÒϺ@ÙDhk<EFBFBD>eáö…ðJ„lj)f×SEÏ6¡dg06ĺ+TT%QïÂJìWÌeh€ÁØEeà £“»Ò‰Dê) ¶rÜEݾT-ërµÎ<EFBFBD>R<EFBFBD>Ûï”pÍ9pŠÄz1é{ÙòßÂ
+6¾ˆÜ$f·.e£é‚¬y4ýšˆ
^m\éoUF¿ÆÀ?÷áò€=t̃ä<EFBFBD>ijíÍ<ˆ—Êï¹{”Á´U¶GÔCçÇò)ßW߉óhñâ„£¡9|2ɲ¨aÃP+QPFšù¤¡ÞV[^‘Hn_W>ÊûcKT%0³ÕSï|ZÚ€ºSÝg>+p\J<EFBFBD>³æó
¬Å³VâU’ÆFÏH•–G™—u-Ø/pÖ8 †
+¯´[Mé¯KºB11yQ 5 ?TbR¥užÖb
+ƒrbj%“)ÝTû‰?‚¸Œ7ÔgA¼ý$w»½p³ÈÏF
+é-ÆÖØÕU–8,á5ÀXJùÃc<EFBFBD><EFBFBD>iƒËIIÞ*ˆ,êžWP–k1ÄEe˜m‹YŒ±²–\á¬è帳~¨ÔŸüýTÙˆí¯Ÿ(¨ù¦ êM%»E«ç7ŽüÄM´-›Xy¡£ø‰$q÷ýƒ—%“â«Å$©]Á몋ÉÅ<EFBFBD>ÀÿÒB„J¦Î$RéQk¿mv÷M¡!kÿý| G3k_â"¸‡ÉãŽ"H¬E¯Bʈ!·ðÀúŒ6*Fûõúü¿Û ·Ew•–¹Aíçº+²”<B<EFBFBD>è_>‘¬½ñu3EóΙôžg´]¨[‘
$¢‘Ô•¶³öêJ:ððó:<EFBFBD>¡HªbYžêÐ"<13>Téñ¯°:Yƒß(³-ÝF…8ZÍ9ΟÅýxŸ×3ËêN™’Y²áÏÿ"ôèC<EFBFBD>‚†ûÁ£¸,žx›¤<EFBFBD>¹˜³&«3 Ãø=<EFBFBD>ÿ+ŽøÔˆ["t0¼sD<73>ú‹ƒÃQÞ쓼,Á’¸ðkHq'TB˜Ã;ž»‡cŸ8g)¢ÑÏìE‡€ùÞ{ÒdÖ“äç!£¾,°#M`^¢ùGÐÓS”6‰rÂaÈ&þàSþ¯!˜¸2<C2B8>%a0äomoˆ3w…ì |[7Qçs[2åÓVê
—'Àï#
+÷¹çÎýÖ Ç°ç¨ÿ»Y¸§iIåæÌ-Î	6Sټގ̪íArGþ<EFBFBD>ÿ]k+^eÚ5@=>CððMÿ[íŽÇ6R0…€¿:ŒÎ2÷eÏ’Ð&Š<EFBFBD>5Žá
鳦}Û
Oí-À
[¿ÄÜGËû÷.Ò
W$<EFBFBD>\+C-ã_
+ù’ØÅôœbO˜{Íø&Ð3Ö?üH ~<EFBFBD>»Sj|b5fÛril=*¬u7ráÃPñ>›x:£røѵ<EFBFBD>Ë?ÞÄÐIÊ¥_Û.e1¯h¾ºPà{”ƒÜFòBC,{7Læ
j©|×WiH,j‘¦ÓÝ1…táë	#9ì»ÕúžŸ&6˜Òa¦ùó~SúÍ=!Â^ÛÕ¥õæ¿hj&m»“.3¸OE@–U7:ùà‘ݸ5ú9¬?ËÿrÑx/z‹ìe2<EFBFBD>ùY’\ª(H1é—VŸ¸m¨iѪ:è\§Ý2Þà:M<EFBFBD>c4Øôäf$d(q/U:„ig› Õ–3éö®5
+³QÂÙ…H3Hqœw Ïd»‚‹ÚRm4Ôš²Ò–<EFBFBD>JËÑ>«Æ©%ºõ¬<EFBFBD>Å;s	-“Iت–Ôzè\Ð×î²ëóçt`^BwPží0)”­xPg¤¢j䤺BŽoCÉÉÑ~·›€úËCc8p,ó=`—:E
ÊЮü¢÷wå­Ü¬v?q<
+™ä¾*-¯g[ʤ݂ÓÝJ¼q Õù‡F(+6¢·%S
L¨H<EFBFBD>D{^½âHÔeQ'u ?ðéxIÜŠÏ<C5A0>u—ÞýȹÏü’· c˱h:zËÛÐa¼…åÜÖîYÝ<59>&ÍâF¯B¡x‰pÌ(Ò
“£›<1C>„=€­<9löË<C3B6>YZæ¡x…í•Q§
ª#/2ã’pŸ›ß?‘SL§ ¦e(ÿ°t/]Q{PCé}Óu…¬ù½ÿîÚQrèú†3.Ç?YìVRå‚)%r*„
©¹ë6(Ê=L™¹:Àúz*óÀi.d´ù<Þ±œ³ôM™¯q$Ô¤´™2<E284A2>ºÿµÎP@šSûT<04>
+ïëµNý)—=ºFÚËGV-•l-6O9^<EFBFBD>g«
4Ë(b€8Ô¾]§sf	ûŽß4Ç~~‰TŒË¼”Å
½Ï«­Äïdã<EFBFBD>ÜÌ[Íä ©Xˆö{v(æ–ë•TüKYHr¥Ë?Íÿ
ø\즹'îÑ@ËáBŠÌæS¾(˜
ÎXŽÙ@<40>ÙvÈ”…>†ž>Õ”õ+÷\&¦z\ØlˆñÍÔ϶Çø°àû¬êÔñO3q³€ý]¯
¼=,ùlÙ1¬<j¥{¦þ`¡sY‰‹<E280B0>…½7òt¨@,j~mѪhg”<67>Z.ÚÇÍXAÂõW	d›<64>ëÞÊnÀ"‘dìî¥èkë‘A,î‹w*èx0³[dœ½á?Z{î <C3AE>6
+;Ø”øwÂôNdeÛKä¼ïn•E	‹û'¥ˆW;W‚¿ÃZ'´¿µ ºöÃÀÉÿa}ïÖ…+þ6ÁRU"páo¶÷-_x¼ÿæ1{dð©-<2D>À{Y¦O>ª¡â6ù±”À£á"Áäsp˜Ë¢­ýo‚qéá‘8Ó`­¦aæ°©Ï?èCíVân\Vqça“pÍJõIîûücü&ßEã<EFBFBD>‰,ª¸%e¢c
E§òf8™¥Éb†”G<EFBFBD>ç_á^ÿcjnO¡;ëÛA¢z—pG¿J/Ôr«¦<EFBFBD>ó4¯¾ðüË»øg6síûý÷Èêɬ¤´G=Û(ì.	€¡2©Y
D@'8W_	DÊÚQµœù_­UpoÕ©BÕJJ#dB©®-§µ¼·±mþ½6¯µD@™>âŽHh»è4wû<77>ýãù&¸

ü}5‹Z!<)°YŒS®0ÆIžù<E¢ÅdPá#Z<>¼¡œ§•g`sœ¸ÁƒÇ
+C<EFBFBD>Ô¥›¾aÙ3:q˜R#›»<EFBFBD>ÈtÔIÓmM‡Š'°<EFBFBD>>ŠõázSrFFr-pÚÎàÅE,4e9ŠÃcnÔh认¶Ld=dG©õÿñ¾é8£?WóYž÷ÿº£ª4.jØÛéD‡¡„ÔÝÞ9Üèíª­'¾ÝéoEÅ~IOJA•Þ¾} /Ò,T‡^i¹+>È…G¼^`Ušìíï•_Àï’de@2ªÓ®W›òI¹Â‰¤kk×A›¸ÜôBCÚÏkùÜXê<EFBFBD>bîr©ÿ„|Mþ<EFBFBD>+(æ!ñ¶³tãCëd¹©+>;åÀDmÛ³]N›^Š¹\žw]¾Ñï]S<EFBFBD>´å”HÎÉ
Ã0‹5|+¼2ö½´,×Ñ<P»Át·#àJÛ®;$z­˜‚…mO‡·Â—,®9èCy½^C†ó„j•ms웄Ȫ–©D|
;¤<EFBFBD>­—b<EFBFBD>8d ¡‹$+ð¿íw÷« Ý:v°ïØï‘>ë漪o˜WÏ?-Ï<EFBFBD>q¡”[h^@=„A¹•L4^\×^³ÏdcEVõÓ‡cµU­ŽÇÍÂÁ¹S†Àœ#&}δ
¼¥¬60ô¼PuâIÕÿVñ„^\—mæí‡òB!íÁDJš†eõÃ@FíP©+Ði$smcOz<EFBFBD>Ü	¤|¤‚–^ΰU3V}NZ–#$/´ ^ê%t¨opïVVÌžï@oþÑÚvÐÚŸ'õè˜Â^÷r•Õ#j±&)Z/Þ=Xyìž<C3AC>48P<38>€àJ›ÜÎòäúÊr8mýÕEyõõ ?¤<>ò¾<C3B2>ÿÓ©©ÓÿºýÅ}´SŨ:óÎÍ<C38E>à‹·àJ%
+c$<EFBFBD>þ–B	!o>¾<¥z"(HOF‹…êCKfQw@<40>N×HÍž?š)jiBˆ7<CB86>–œ˜ãŠ3þš%³R8ål´’“οàÁäÑ¢–nþµÚ7 ñ7eYh/2–N‚d+ŠíRÂ/¢‚î%ÝC&Ð.™rÀÁhöð¬QcÕa­Žâl_o–s¼Z
7ºCüš±½@k`±©ÀKðŒb»ØËÃÙÆ:ôl_Czoòûˆ«N]Âãb•ç³Ö]œßJ¹$êÖ‘ÇMª@×x”¡h›ÐTóT=‚ÙÀovv²°’ų;P©1y¶%Ô_ O¢ª®™€ÃÅíñ—JÎÜë×:7ò#ø§!BµgVýÑ_'G
@œ<ƒ8oR±Ö<#‡NSSHËxò&épÝts“)E«øÝ~ͫȨ”J¡"Þ㎩‚LÅxñ¿ÍÈ Þý̲áÓ[ØyÝd)ëÒy™öðY1ëLv…—9º_¯ØL'&)Mõ¯7ʹC
<01>9Ʋ|TæäOc&hÚ¨bª»9r3àغšüä9À'ÂV€½î¦av'öBžjP÷°/ZZÙñM$1Άz!D­ÎZé1aJ~¨}4ìmsÛ®«k¶^ã]krmg8Zt<5A>PGsrIu<49>]K+’ºÊ†¾Yƒê¡4µQUu
x˜
ÏÄ<EFBFBD>ê$OVp¤Ó+Sn›XÁ}dÿv™k'¬&4;60
#=Y<;>ÄdÏ䛿uNŽ,Ñ˸˜ì¿¡©+ÿý”«‹[,¸•…à¦Æªn1sÌó°9½ŸOeªQi­€]”2~éq1{øë’ÞTÊ¥(›J­þ60¨,²:z~ÍIYë$Ø!Œå[yÔdPmeV
ûý,è¾Ü`€ü&eóªªU0¼=N߆/…7»Xî^äGÏ­BÇ*ò/,ðÅ<EFBFBD>bvα4=
+ux›\kÍÛ7(ÇÁŸ<EFBFBD>˜oÝa¤¯|x~œŠ;XÜ¢cŠ™<EFBFBD>¿ªÁ%Ü¡•·æ›Ë9«¾è?ˆ<J°½¦qÃsö-/D.äz3Ÿà¾%*)+8(Ý #`³¨2L;f¹‚;zL!u´M]_\Ü¿³h2#ïÕ‡‚…ªƒ˜Ëɳ<EFBFBD>Ø@ªÕ'n/Ý4ÖWÀ…Úìçtµ“úÿþ@ùvî{Öü†…Òã!’“VT÷}Íâx
+ÿ´u%óÄ»!…§ü=¥Û<EFBFBD>û”„–t“tCrÜ©<EFBFBD>ïfB‘Ù³‡£Dà‚°AÌ´ÅUA¼@Ø›+ÅÛ÷Øûè¹­…ìÙ<ÖÕ:7& r%;h!z.ATú¥IV–jP€‚³O†ï¡TÄ<EFBFBD>žh•&‰<EFBFBD>ð"<EFBFBD>åÝ„3ŸéB
µ ú uiŠÒÀ³xCý9vUP{Ö@xôhHõñáÖœÁÐ<C381>iCÔŽ÷ÜÍ4+)ùž:¸<>bý˜¸e£ß8´“¾<E2809C>œÀ$͉xyÜß<¦ÛJ7½Å‘®Ä
å
ûjן3ä¯Zœ" 1ZÿòvW>;N8}-‘òYVkS 5x,ãñ<EFBFBD>/S˜Vð4D;Ÿ‚‹9“AÛ\‰ÂÍ-0Ðè›;kÖíˆvqpt¨Í
 Ž‰ˆ‰Í°£žKò¿²­Öšs#C,>G¨[É‚ï‚:äîT¥²­g'SýG
w¾;_7*%$%§iL?V^Là<4C>5ʇj5øÍ=Ò§¿i×éòStí}ó@>‡ÄÜ‘Ku}0¸<>4À.ðÓÆM‡(nKëÞÙØÙ[›sÁ„|ÆMŽ-N;03\Vì“ÚšÍRbÊÈc98gd©™ ‘’¶n„Îf¶u=<3D>=œ9T¸¦ÈµsüÑvWr¶@nµ¿á´áËÀ½ëw^ŽÔWa|/:ôã&¶·Íÿq×fg›ô1M ¶'8¹Í4¸D‘M`æn_j?¡e2“‡±kiÃømŠ…‘õ먗"æŒÙ¡/)¢<>Éú<ñ…릈ÕCÓX`1g<18>òN'mHù½\¾rñnÖ/8x<38>›fM^Í•NUZ’€_¯PèÁ.{¯¤…!…ÜI¼—ñÖ@³ÉÖ´mR05×<ú¸õÄÙÚ]œ}A›ú9\><3E>µ/ÓÓD‡ÆSÄ­+—'<Ñ-F=Éþ€Í¦›KN•Jk£ØM^;…W‘ï2½T
‚·ªè³òA\Í¢iÌÑá«ünÐ~!l81õ?ä Lá
+ý7£—ä6Ê4<EFBFBD>³/š”—) ³QŒ\ë†p[~æ?Hˆ<EFBFBD>îý®<EFBFBD>90tÑqòþý6É™Gê5Ì<EFBFBD>žê•¹0G~YÁ|½íÔgª‰T9•#<EFBFBD>|ìDz î4z&…|°B¤–±ì)·ids¢Äí°ãhxKDt“f”éƒjðÝ¿>&x»z”Ôãü^ñ°	Mw˜e<EFBFBD>ïž$E)’½6><¼<EFBFBD>h*ØÕYùåI<EFBFBD>“âÑGõ{œ0Q"‡«-E¢d?>GªÈʾ·9>™Ë’ÅÇú<C3BA>b[‹ª}«š<>xÁ‹D²‡N±† <20>¸­ãÉÈÑèõ4¸Š
!¢äÚØ÷æçí n.©}+
+U¶C2Å„ß–’¡¦ø›ÒrŽO² ­nPƒ†åáÇ}÷º$t“z<EFBFBD>{4¢w>¡f%Ê“]•·—;¤áƒü³q¹ÌRz]+Ò®,?W{æše·bsR†Õ›Shĵ{áЗ(@²]ò;+ã®xo×~^O<EFBFBD>€¢–^´yBqþk³ÉöéânlœLfS$Xù¦;èu\%ÒºÒv«åBÙažgatæb5F¸ý¨ŸÅªËVº¯ß1¿p²þ©ö÷ÆnÞÅàMx$9Ÿ·ßa—r9ÍyÃWÜÿ`ä?<EFBFBD>µñDüįF´ô±öÆ<½HôoÖT™v,ô;ƒuãB=õ´Ä2ŠŽ8E·‘;gHœÂReÅBbü€Yˆhãs¡üq5uSlÝ_“›J<EFBFBD>鈌˜ÿžä¹¡×Š`_+<EFBFBD>p7ÈàRý’[æ8Ü¢ãÃ<EFBFBD>ªÞçI<EFBFBD>¤¾F‰Õ€—<^C¤¯~-µÉ0´…j^2”Sm­¼Õ“3 ñ%B‹o/49Uÿ“#BŠZòÃø$B>Ç	ýãKðtŽÁŽÿ:HSûÙË[d²í·âgç×PÓff†]æ½_ˆâ¼bŠaA«ÁÉeý<EFBFBD><EFBFBD>Óc+ùP¯ñ?`Õré̽<EFBFBD>4þÑl,$z$Gëë¿ò_<EFBFBD>0Š˜%·¡(“öHÝæo;⾌ãB„²ËøvŹ
nÞJ&[EN^<EFBFBD>¤Z‚/D”?]¤ú êÏñ´5ìãr¶|Q‘&Ë.G¢ß3]˜-àï¶çÀ«æ8ÍÖ_+Ò®,?W—xH‰Æèù­@ƒ¤æW“·¦€”“¨32n<EFBFBD>û_@•3¡
+a¾)TÍ[}†”¾}™æ+¸yôô6‡{ïœ,'·åˆP‡±¾6{rðüÖžl_…ùþGÚߟcª,{r¦
Ù€.xà¹iO²ˆ¡>ɘp+þ6ˆ7½ÞÂ+VO£wVØÂoBh%+³yø2~^ˆš<4·ƒ¦½¥9Ìæ3yBd?<3F>úÍSíàëåÁÞEb¥z[W'CqˆÎ(Jß„|:¢ô'OÖTfì,§*PÏpñ{…½úÓî]¦sØ‹ìƒ<C3AC>Y)×Öaxž¦ÿaæñI2ú<32>çÆ}Á»YÕMÀò8ã¨!Í<>îpþtçB_
+Õ”î-2Øß¡‘î3{}–µB}×DsX<EFBFBD>~„f5\cÄ·¢—¯<EFBFBD>—~:v=6y¢’ðàÆño­d¨¢0<EFBFBD>Ê.žÅ¯Š<EFBFBD>Áã×8ýç¬üò0
¿Ç%\L<EFBFBD>I“0ÿ&:iÄ1|9[üVlÄÑþPã‰<EFBFBD>Û€•Ej̉°õ
jq%T3“þw¦3`h«vÊNvÊwÁÓñm3-”÷&Qk!IöÃt|œz
+U<EFBFBD>:—h›1*¼k´ðK^z|pú‡©¸Ó×_—×(V¿d$ÃËÈþ¯$‰¢™åYŸ<EFBFBD>ž ⟳²³5÷ÚÍÈÇÈJïâÝê
+æ½+ú5qh„ƶéòu<EFBFBD>5­+_R˜3ß
+RøµÇ 7<ÃázÝŸ‚½ü±§þI‡‚<EFBFBD>‚Æ©œ—–L©¶Q2¾b%ì¼Y˃ë†<Íu#ÖYC¢¸ñ
+mp7=MF!Œò’™±TüÙ€»â‚ShÿVÅB§T<EFBFBD>PTH_YÃPÿïý°ã•É<EFBFBD>“ã„DÍÎÁA¯ÕÁǶ}³¶Úä©€<EFBFBD>õ.Û$×Û(µ÷.	lž¬¿“©Ž_ø59C$å…óCjŸ\P¹„HØ`^µƒ,`ÈÚ¨’.G£€¹øƒ–ͨ­p ¦¬ƒï׹쟷Ë÷:Y€ëîäJôÎ{	ØôX唄’E„ (=·.~¬ª‘5G½À{d´g1­û×®R_áe瘻h¸<EFBFBD>9R¦†
ëÄ<EFBFBD>ÎQªù…ÌèúþÀÒ•®›×âÕÐÏÐR÷êåäåg)SŽ€›æ…GšvYjcÕž¸eVÞíQ÷œ´@žHdüR5=ð^2Ÿªlî°#žî™-¦˜“’“׺­¨ÉßÒçOnßêDù²;5F^¥LsF…«g¿G'ÆmÔg¦jº„;q„1Êi<xWy°vbv ÍÏòã<>Ù¢¶óÚÑ‘<C391>Fvèç²»óíTÚ<54>§¾máƒLÕ¹1“ýf4>ç͵â`œz{ú’p®óì~¤Ž	ϺN~g<>†Í1kòc;bHc<48>äEíJ³wŽy<C5BD>eÏЉDäÊ<C3A4><C38A>.*¹8õÌ[²á3®´4Y+ùÉ,vymo®Ša~m ƒœ´m?X•;ae“‹žðÃÎed*­<>[䆇[v~<7E>Sä)À±wZ¨y<C2A8>"eÓŠÀvJ¯Ö÷Åä-uª¿³—¢{½K?;m)néëcq
+!ôXÚ{ΈŒ*õŒÂq|Bo<EFBFBD>	èÛ
+8!jA:«lHzy*Á¼îKDŒ-ÅbŸŒ&¼8gÚ<EFBFBD>=·êŒÃ—¶XáŸä±а£ž›Ñt¥óŸ”³Ã‚•¾ìRŽ¤Í±Ø¹Zr•â	7ì±Xþýþ@»¡Îu˜Z=0+*«·¿€È£ÚÎMú™ÐžWî’àµÆJÛð1
3†â†·‡ÏosÙU¬WžC¯ýº¸WcÙÿÚ™-ßØ“§Ù³` ›T)ˆÞ÷<EFBFBD>{PIL+1µop4GªÔ÷M<EFBFBD>`6pkòfœwZ¤cûw÷p'»°Ð‹Úã’¾K.¹¥é¨@Ž‹Å¾ÃÙÆ"úUôÏ$ÇÚ§þ	'v“AûýZ½^†r2‰4	$G’a³}yc†<EFBFBD>ÅG0Å÷ÓX_âÈð<EFBFBD>ñm|@ŽzÕ	Šå1<EFBFBD>#þšªÈ¤ât×é˜Ë]â’ô-¡‡ÖXó4æ·Lëé+—y½ qI<§1É[1-J¦¨35ù†9'x†“ŠaÐ\—Üsèhh„h1gŒ¤ÂcÑRéì3´™„›ÞcÞo°¾²)¶Yù<59>Q†t³îN´°p§VñªvÈA¢À9¾˜<C2BE>m}­Å]2¡7f\,”¯ðeÎ<65>ÎÑúiÞ^^z^'=”ɪßÏ(úÈеStÏÄ­ôþ½‚¹SQÃFÃôè2]Ã
+à)Êb˨—¾¥ŸÏ¡sÒ<EFBFBD>)<EFBFBD>K<EFBFBD>Y[8í?¾ÖH)ORJ¨<EFBFBD>qíI]€$§<EFBFBD>”gû½ÈôÕ—á÷£p
˜ {f±QˆÄ-bâž2óÒÈ

îJo ](aó8ŽF"~‰:ï†XBs-]:}*<Ñ’ä=?ùžêúg‡›zùljýê"sZeEý<EFBFBD>\Zú?º»Ç/½Ë#ç…²±ÜøŒ|IëÆðÊaÜ+Ø^–îè;pñã9Rÿ…½b—œ«1r$u&Qm½Ó6·g?Ùç“)`¢ÇŒXq«äKš–¶€|ˆ˜=$ŸŽ+²ÿ”3<EFBFBD>Ú1°ÈP8ú=µÃÃA{PÊÊæ<EFBFBD>f	Mòï¶~û~Øú=ÇNÌá˜ÜÂŽŒÜ:3JùSI|Q«X c±áacícwŒwsP#	ùmÀÿ´êcÆõ¦GÁtÉÔWÌB§ÞÚïZŽ¤Ï˜Žý_Áôj`ýD™;úŠ¢P"A4!Úá
?Ä^3Qqƒ{µD$c’#@X°Ì|q‚ƒkùÑŒŸ™"ÃíÃH§q%o8Æ®½ÁØú
³]ÿ^ìÎû´ÞüýR«÷¹ïù{[;+ˆÉ«Ò_âû˜JC!¨Wæx¾½}•|	o—Ÿ|Ùö±í)cp]S<EFBFBD>½€Å|<EFBFBD>Ç‹ÓÉG8¸×!†X­¼UV¼ÿšÇS<EFBFBD>iæèmñMB~Ì@~ñ ¡†~»™ËΡöM¼[Àu› lÀlƒÁhˆEÊßogÊX¦<EFBFBD>d›o¦¬9‚OzS–§k’Úòì-:„0m.¹Æ1‡Ë+ Ñêg;úâÁ±9myp†Šzžÿ!Ö‰ÄU‹"ù5\Ao9Ãs68 BÝèS^R3ÆCœ¥"®2«¿q€y^u ±‘ú„ [ææ+g_ñ²7¼!ÂZØþ'Weaè^»1¿ÙõÈy†‚®HÎ
#tsL¡* <>DQ‚ÓƵ9@<40>AÛ~åÒ ]<5D>¤w‰nç+N$h*\‡Ç¢•<EFBFBD><EFBFBD><EFBFBD>Ô·ª¥¤¥'É€ø:Ã%ÒÍ{MžèÒTvñóMW/h2×öÅ(
oGi…Ó$5þ<EFBFBD>µx&ÿGµQ´vY”Óˆ~Õ ^YXYÛ<EFBFBD>€snm#€<EFBFBD>(	•Is„œºŽxœ™’«ú7­1²Ëç=nÚ£Ö"œ7ÜéNó³
K${µ'Û]Xÿ/r0°7Q<&ÕÂ/uÑ÷X4Ù=7r±}_ö2Üš2/ •Ø‰¦Úç%˜)Îù/wz‰±J
+ËαßqHrÓ›Ô8ŒP(é¨ý¼£_‹+-'ñ¹
ÔÃÏÍ-;<3B>;dWƒ8J¯+8aZ¶Ä¹8pµº.z€À©nÛÑ’Õ›!Ʀ+¹.)ø‡<øKNÓðzñêYªËßJ3ïŠ
+ž‰ˆ0:M(ß[Ù/a 4Ý<itý^Å°h–ÑtÍt¶+óQae†,s\kNjøNŠ*“®w„ˆm=('ÏÙìÇ~úxÎüJI<4A>I½Û,ÓÑðšáy[äRh,õYu·=i%ŸB‘lÈ­)%InCƒx^µ£YdáMóÕí‚—X˜€#O™Ü2B<8}µªêk ÿ¶"c]ÞúÑ<C3BA>Ú}XÐTÏT?Ì=HEþò Mè†+&.ÖðtCZ[—å:<3A>q"~×DüX­/°`Uö2>lÇÁÕH^b^l]`¨UKkN„¿l{Ü7·)Ñ6oÉœ—À¦É›é—xЧ=áWÿŒ]ó÷|âÙ<C3A2>ÿ»Ám“9ESCýP³…Vf†©t¿Æ´™~ý›_"MÞTfÓ~§Ö<1D>“z<00>oƒ5Y¿¤Pÿ¤jŽ+֟ϘHÛ˜árÖÛurÃgRÍ8ùýª¡ð,úÀÀEÊç%ÎÓ88?Kã+®
¸`ê=fÔI<C394>’[ctX‹=”®3Ü+±<>Ÿ€Þ•¥f•
+ïÕŪâç)¬ÇÀøÏýºJSŒ†

+êñj>Né÷J“eO<*ÞFa2´P~·*ls¤È+“ACS,ƒ`«^N²ëUQ‹.PgR|ðÂè#–Øßö¹aúŸ:¤'{ˆñµ
PÒ'Ì™J`Vl‰/š<EFBFBD><EFBFBD>F­ƒEXŸÍö20¶R"á6Å$)a-:¾?zœBÜW<>ѵàõu›iƒm´'¦¦<C2A6>#-—•9›Âž+7&øá¯w‚ØOÊ<4F>tÜߢî‚qdvâ÷HôÏ•Æ*<±Ò
0uJid/ÜY\¥!ZÊ5VWðG˜ÈÉ<C388>ŠžY<C5BE>¶»…Dî–ð<>›ù_Ÿ,fð£O–QÝ…,KµÐÕÄÐ&Æ\ñÕÐÕÓvPéÁéð3ðˆ<C3B0>4ÜÿKG0)’Þ
+ÜuJÁ}».w„N’ÀŽ‘c˜]>–Z3f3i¸ÂÊ5”h5þÁiàŠu¦¨Ïj/Œc	žœ‹–øÑãX‹ð@âäÿT…5òô– 
+Žz ¨«Z-žjB"¦F/:U}B
+¿ªKȆî1†‹tuŠJqü‹Ù‰­<EFBFBD>¶>
¯u}	£¾æ uë·ì­û<EFBFBD>D@c® #ùø®ø¨[¾	‰9åöS„H·”CYÏuC xc¥z{;t¦HKöxÏÍÿŸ¨°UÌ·^UorYt–ø¼½`«!¿”TÓÕx!䈎-®çÌ(¼aÜ£ŽQ×üJZåb¦•mEw]x¶®Îé8y|á5ázB.Ǭ]"¡ì¸"ªÄ°öTóºõ”<EFBFBD>cm¨CsB}z;¡+‚ê£÷Ѽ™ »©†©ää²9l¼'ƧÕKqàÂÞèÓæGÛù^TZv½[ë'q½"ŒI8|¯0·‚¦=•NäÍͦŽi9°I‰
Àp<EFBFBD>¹st.ú±N:hæꮪÿ"¶¯À¶5RC`ë<Ë‚½ÜÃmÏžÏÔ>Û­è]¤þBe`6áXñ1µ²&ìH+_!ܬRײz¶x¾õFf:Rfÿ÷fÐ<EFBFBD>[|Àót,·1‹ÙÞæ‹픋¥¨Loç[¬1?HËÞCÄ7Õ$Ø)M=0{úù-<EFBFBD>’l)÷0›˜óÒžJòÞ|“ñÛBÞÀ—• I»Âcÿáp©ÛEo³¼R•<EFBFBD>Œ<EFBFBD>Ñ´§¢¡¢$æɼ·¶·9ûÞÉ1Î<EFBFBD>›ÐÈ\üW¸YÝ8oR[	c=iËM•Ý
 ¸{)E}2dZIDCÍpòÿkVØš}pkjkíO¨×Û±ÐäݹML<EFBFBD>q¬dø.Yp¬ÇHªëĨgÜ$1’m-.?)ü*i1sm‚:ÃP²%	ZàACȪ¾0h7€}F
r^y1CœøüÖç'<EFBFBD>·oøôÿ€‡Ù.v
É´<EFBFBD>À»Ì&êýØÀ%ÖL<C396>E9ƒ¼VùŠø(°"ý~‚N=¬ÞÀ“ùõ±c¬Y¿½´èBAµH¾¬ršXydšÐD:²{“-¾G?Gçy¸¥á:¡Í.­Ï µ4öñ ÝfÍ:è…ºQÏ]‡‡ŠÇch‚³Þ¹[äÒ
|v(¦•+¶r@=I9íÄ„u@‚}¯0†îy˦Cß‚B¨~ÕPÀ‡úÀÀ¸ffŽ÷°&(u0Á̽ÿXm'Éø<²ÔÚæ­¹!?5	~€^z‡'ËçÔ
ÞP@w駶Qõ1þÇ:LLò`²|€ŽŸg†äp/CTÐî¶anTØ%þïÓõ%’¼Ô¶2IçWP  Kd‘S7gÔþÁrM¿Ô÷¶Žy#êÓÿr5øL›3¹åJFëJª0YŘá2îÑ<C3AE>4¨%k}˜Qø<¡<>¤&ž-ÜMâÅ’aH
+QÓx´§ýà.ïïD ôp>“		HTt'.ËYÞþ]'* wõgE½B;½ŽœµÔaœUjÈóÑ„Ù¥à“š·t‡ÍÒ&œ´]¤wÂüèÛzz¼ïÕ¬‡Öþ’â­ä²ÞLÿ£1¶Ö5?Œë=.3ß›}¥3ý§Á@=ä™>3PÉpZVåŽü½õàcóÊêlµ¡T«˜&<EFBFBD>ìÌ–Ü0 <EFBFBD>™$ï*±‚ôò{ïB„Ò¡âÙªËâ­õíŸÿ-¿M{T™Hmô½ÒÅ…7TD,¸ÝÒËhèÛ,çb‰à‡q‹“ƌϋ6X&k
+tF{Ÿ®¯{¬EXp^‚»ÝñÇC9+¦Ç¹L«åG¦Ö)ûˇÐÜïsŽ*Ÿ(y%:q’H·™ÒʯÊÇ~;ÍLg„½e¯‚þÍò‘Pê‡âÈhA˜4˜ï\có¾®Ìú“YÖÛü@v³JÙ¼]ùàŠamš¦‹÷÷ûƒ–•mMpÇœÙRæE..ôOÖÿÇÿµÀ<EFBFBD>eE3/M”!Ž<EFBFBD>,’¢6ƒWæøàÆ<EFBFBD>‹SS‘˜iT¨Ú[yÝ-ò6l©@ϲÃK)±y[h@"³›8'Ôkº*â´<C3A2>I<EFBFBD>×&	" %öá5gè¦C«HÅiíÐݵ—({­‘‰Û§……‹Ï]¸š>ïÀ ÇÄc°úñ4}ê\Iôcbÿõ@¨îÕ
ûGÿAQ7V$ ¿1YWHõ±ÛìnxO_VL/ý\!s‰áem3ï(ÚªJ!²¬šož«÷ŸwI×;
ÝÁ<EFBFBD>ÅØNæÝì…"ÝÞt_G´çÿ³
#:$KɱåÇš·qëm±øo<C3B8>¹ÐCƵKÖ’`]柢Hry ¯õ¡,¹{[ˆe¨ÕŸ²®©ëûΨڿÆÉw*Ðè’ÉÍïÞÙØÙ[óîíîp2êA.Ñ7 À	Š¨zT·Â9m`æ>í[óI„œQg `<60>Ðgqì¤Ýu÷¹¬ÐÁúÜ<C3BA>Ñ´§¢¡¢$æ9âŠ$=4EÊ—Ç`Ö@üv«O|¿©ÈüTP„þP[l|+¨|a¶$‰¥
+Â/A4w´V/¨ªŸfye\}d)¬¯<EFBFBD><íL>‘­«<EFBFBD>©ßƒÈ–½aêõ:´Æ3Þ–<EFBFBD>yGf‹<EFBFBD>Á‚Ý"%kÖkï
.9<EFBFBD>ÙÊ$.¡u?<ž+8jsw®6mRI[¦Ô`²ÓÆ£—fëÃvœ£j¬X¾Äî´ŸÀ“Y7,° œ±ËÒv!òàÿ]ùÝ•h@ÜÉ9aòöµ=‹ÖÜf9x¤^Bgˆ¯"z]¶J94[ÿˆ“Ø,ôÓ¶<EFBFBD>ÿN°¥s<EFBFBD> ²Ö±]µ
+‘‹âÍ–ž,±¦·2ÑàO
Y¼ÃœÄ¨r±iQ¬ã¢¼.½¹JÎþGƧ¬Ü›,•%<EFBFBD>%ü)†J:B`À0ø¥X™½ÜÄõ<EFBFBD>Æþ·–a.µQ{qÜçZ…5‰É­Mè›ÖÎCL1ËÁD¶j	g!ÿðW?„Û8ÝZÑ"È‹(míî‡û¹“oá³àS±ÐAq—ü±,o~ðV³ÉJ<C389>XcHУâ…È}-9“<39>êǯ=¬!Ü‘püÚÑ|þB{X§0*‘¦êt6£fúóWr6Ò¥ZL$O#ÿ›5kP(ø`a*²s
u[VPçRû–2`u:컓î<E2809C>Ø>3Ó_¥Úˆ…’—¾bëö;µÇ4ßYª×Uˆ4	
+»èz~õôŽ·—üŒÐ§|H<EFBFBD>ø–~üa;2IFt¹¼T΢o„cÞž<EFBFBD>ØB·ÆÞYø±¿Ä<EFBFBD>2Þ–Œˆ°Í›ô½Ò£¯&5ÞYÍZž›»I¤ØNI
ßãéâFâ
¤ö"w2œ,&(Ay$êTJΠ*<2A>ž-:ºÒöíÿš<15>×7(“ï–€Ìk”h5;|›Ü;nþg†¤
+O±úët¥?¨h°¾‹¼²Mi4Ó‘-ó/jÜB)S&¡‘s<EFBFBD>§ËE¿yŠåK³…˨c¢?£ìQ±ÇÖ"<EFBFBD>ÿÇmv°L¸øEK‚*ª¸-^
Ñï{<7B>!Ñ&BôV$òü\Ÿ;t‰–—¡pbÇPf”ùœø¯ü®»Ol«“•h\<EFBFBD>¾^C‰.<0F>©ähUSÑáêU¡Ÿ·–þg”hŸ¯KWr;ØÝw7Ta~ÁÐB¨-—o骛L4î)×ù(<28>ö¬4¯'âôx(zÁ˜<C381>r!¢xD X-5-=¹ÓQ+?9í|’n…·‚Í W^*ár<C3A1>v6’<36>õ‚@{<7B>b“âc˜yžç©‹á<E280B9>À5yÅÁÍÖÆÌãòƒßâÂìÃóI@/YiþCt?6Np4Ø\Ã::)ÌÊ2ð8ÆGH'Ñ‚Ü»¼+Îf´BéÑÉÝœ²ûŽóô¸cs¯­nÓ'GÐaå
	}©$þjŽ›Áä7'¼Q¼ã<C2BC>¶XáÌH™kãj 4ˆ½Ï:ÄÜ[Χà_éPjÏU><3E>é'‘ò”#n7;@\“Æ-Ô¢º$<Ój›k
+º™5ãÀ@,hPʉþWêH÷rŠ1o¿<EFBFBD>·dÛhŽ™WWLd€+°8/ë4#iJ§¦i¯¢Y˜ŸnÍØØw*ž
+èů‹Ç	ò™{µ;O®²çڋ݈EËâ‰þAó…¡5DbC£<EFBFBD>"^h–5äÈI-,‘½B4×—Pþ¹<C3BE>Þº}}rŠ¦QÌçg
gqŸê’m­žþ×}µƒ¦øŒ®>2Xâ]å#B	<09>$2ù¤qPæ:Uiíl­T®ëS$&jŠG’jù™ôᢳQ­ÜŠ¶ÓGŽ<47>@€ivhõÌ^<‘÷Atã˜#º–«úÏ”<C38F>—Å`ÒX±6<C2B1>
.òŠÓGU?‡4e<34>äÜAm’ôýóDè]ñvqÙäU:Zd¡à(2Ÿx£é‰]>ü·õÁrMÍ9éiÜ<1C>»#
ôëq3–ŸKBàGØñðÊ1…ÕÚ½¨±±œÏ,;_Y‰Ï&ctÙ²L ’g-”o}½­LvëÒ9vtæ<1D><Ï f9=Õþ<C395>oŽd¸UN<>`-òæôtËö||²mmÑÙЕˆE¾ªõJ>Ð5a­äbZôÙ_ú“½ñmb<6D><62>ƒÞú¹NKA¿/z°ÕŽ)÷o^
—êWí1³Ï®P]µVT^a‡¹“"¯Âz-oy7
Ž–ËËŠj<EFBFBD>§_‹¾ålàº7¬M&M&²Q.N Œ^Ó´¹®oâ_¸Mž;@É/µá] R~7B÷Ò8Q<EFBFBD>£W´Ô}Ï/߆/&%´/7×ä³.Liš¦¯¢Åx¹XèäL·ä䦺M¿›Nò›’Ñ`ú&p`{ççž`€5W˜ü<EFBFBD>4ÝÔ¢Ì!öÒÞ)áôžžÇÚ÷¥#M	ððO‹Ü!õªaAt~6bAÂþŽï»#÷3!Èã%ëUÙ
2œÕâ&öm…
+bùuG÷ŠëÓAO[­,Àö4;+h9x»l*°6¾t_J
<EFBFBD>èpÑ´»¢ñWlµA–1<EFBFBD>åÕM”Pœ”ú)©ÃG/°ëòR,¼]ID
óØ܃~yF‰æ4ö	1T^<EFBFBD>š2npJ´2ŽÚÁÁ˜{œ?Bö5Yß¿Ç,8Ç
g]Ýñe|ï_oÐÔXOYÿ¹ÌЇD®a1¥
+.2­ZA"Ê6ÛäÇpv
ÌéžÝ
‡'Ÿô,°ð}ã<>´Ù*h”1è ˜ §ü`V»ÄÄ<C384>ÇmK&wœæ9ºg6_K&fƒjɺ7«üC‹ÏY‡Ë3äSÇpgfÆ™Åc¡AA葈‡çZ^²5ÊDmµk~~o R~œ‡Ú^+'ŽêHß{¾žBcó•o~c‹•5÷GT‹&,Ç芌Y[zR¡¤<C2A1>€±ÁŽ
µR¢jp¸j/· :ýt…F
£¿V™Bþú¥àÑôªHfSLíf0eŠUÄA†]2÷ØÛ¾;÷e|K½UXemCïå«Á}ã=L™˜—¬Žþï{¡¼ŠånÍÉ
¶û¥¿Ì<C2BF>ÉWØYàei
+%;üÙ¸ÍI
+aU1мÛ"	_ŽUôA~/»é—ø#vÖUÚémzÄdb$îB~%yrH­º”"Ò
¡¬-t­X´ÌE<EFBFBD>ÅÁsÚ¾›×Ü£¤ñ妈&û@î<EFBFBD>Yãg6<EFBFBD>OªDÌX?¥êL• &	qÊ•ZEÛѤ¶¸àÄ€*ŒÜÇv‚æù\§×ºSmÃ#¢‡è‡h.©œ ´èÚ½ß	ÕãÑ”Ñ?èãoù<EFBFBD>Ëÿ{¡}®ÖºÓH5ȾQW}µX11´v]=>9¤_ç…OÖZR6Z͈±l’°ʺ
+lDÙ+–„îÇ·äÌ4i¹öç<EFBFBD>B<EFBFBD>ã^†Œf0<EFBFBD>)+;/‚úû…¼O!M©1ù
@ÿ"Ï<EFBFBD>2úÙHaLüÚ•@ˆö<CB86><C3B6>€zk˜\7OØ—–éªï6¦l_Éå¹´ªuÕôÚaµ´4D»Tl¾ËÌŸqüSxër¿hìãÿI@

vP<76>º1³}!!Vç
ò«˜ÉHCep|rteÚoÒÔƒ*“£jæýƒÎS›<53>™‹v๩Öê¥TF—¡Æ¶777gP„m•ß”ài®Î©òx<03>ìú:3ÑÒ…ºÝ~„toì0ÛYÜ“£<E2809C>Î,©=[Š@h¾‚{{ÆÕ/Œ(‹~
#W/\ž¹DõºË<C2BA>Üâ2T	²¸WØöRæ‹#ƒù`rŠ·ÞGñ_)íW©à<C2A9>¼Èå“ gÒš
ù—vËü:‘‡Y€
ºäwuLñß—<C39F>ž	®äuè2Õ<7ÿD0ØÒ6øÛÎÉÈÉK
ðãÞÝÞ`"øóòóu7õy„F)Ä·Ã ×Lè&B½<EFBFBD>/KóaºNÿ4

+3²’
+^íˆvqpt¨Í
 Ž‰ˆ‰Í°£ž×¹‹¥à¾÷Îi\vÔàâ”<EFBFBD>Ì<EFBFBD>+²6QŽâBÓøÙ04l½Ê-fLÚ¡T7*IjÆÂï–767¹{^QLKÌ(Øà/¡éÄÛçÙÜõqºj~ŠàÄ<EFBFBD>}ºB®Ûu,0‡®¨pÁ¤è¤ãpÆÀË«ÓŒñžå¾øjUPu
?‘ä4!f#x0S¹M1~~úsqƒ»o<EFBFBD>³ErIr<EFBFBD>Àœˆ‡’ã·î[0É&Åœ¦¡Jh+@Ñà%È©)Ðñ•ŒÌN—9÷D-é?ô¯jªðD4Ê|!ž¶^
•Ò«#r¥Ý5x<R<EFBFBD>…HQ\’^n„»`žxz¢«Ù4Ì3ÿÀv„<EFBFBD>³þéö›ºà¨?;µLÄÄáíÊWèYü«óU©^æA󧓧j=»i?¦—å¯ç#Ðï&¬_b>`ÄßIhy”© ™9Zhó<EFBFBD>î<ž¨ô\{•Š'‰”×VÄ Î×gAý’;<iTöê‹6b>¼Ý­ïíôJôiòزüïÄÜÀ®)iœ8Aj3<6A>Aø<fQ€€ó<E282AC>]OTèZ”®l~¦<19>ÐŽi³»œW»é¨½º*0<>À¶DaÜuZ<75>Š…ˆ·c<C2B7>gçªiðó÷7³ú’üj<>hRz¡^Bûˆ¦†pãÊú@ÓFÌhþþ™›Øîm|ùr)Ñ0i{½oƒŒÓùU³âoد¶/9Ó·¿µËѾ<C391>ÆRBüøEuâ힆Š-ì
Ñ©±ð•4$Ž±Ù‚C-_-`<É	ÓÐGô›
+W¬Ó;bdi'­¤¬·á|'õ€<EFBFBD>„ºÒ£eýèªËp×UºzÃDE­Pî”ú;àüHû¯Dö#{W	nú6<EFBFBD>T<EFBFBD>›í—¤Ÿ «Â%„¼<EFBFBD>CÛZÑÔ±êWà£~e.Þ„Ô·‡	G	P<EFBFBD> t¢ÃéÝب9¦µ™„øAÆ*X"¾dLêXEs)×C5‘-^ª.ÇãüQ¬H…ÑIâ>lÇc¸ìdýo‡â~¯û>Š„ÿ®~0ŃQ@mÉ™=àžl;‰5ä\ë¨-hJsµ@8žnE{àPhÆÜ©¢‘'õ
q‰ç"J…p~Z¡M$7±T@ñÔ:Z[QÆçM4ЉX×É<EFBFBD>ÌoÏʾ€¯<EFBFBD>]Œ‹<EFBFBD>NÔß¾Ôh©œ[t9Tê²1#ÑЕ^Uµ<EFBFBD>¤Ö¿ò5ãå¯íö=jt1uPa"7YÒ¯:˸Ûµÿi_\±TV쎑PÕ;<3B>†h®Ç…Ô§ÿâì"¬WÓ·7B ð¼ä.r—E2;þûGÛ
+ûÐ<àÇœ·æZ1Ü¢E{M=_tÉ®»H)É×Ç›NXhÎyÉ…bCDª\]±<EFBFBD>˜­ð¤š8Ó4ÕŒ¾„¹øûÈÄbýÞù„dÑ&*$óÇïÄúÆ2OBÛY`ö~Êý§ñÁRvš‹Q)ÑÛõ9Ã?Á4‹$GLÅωFU«Aö\eä¢bÇs->wWv‹´•o.Âܤ¦Ür!¥²¾R–NÉpþÅL<EFBFBD>{KT¢o‚½t3 Ubiž;Á%%N<EFBFBD>S†‹Æ”f5Ë;CiŽÐ“+ãq%cŽ–'3
·ò9“#`Çn$|—¸ý&:¡%níˆâñºB‘¤I«Ípw]õV<C3B5>e—g †ª‹M‘d.&bU0é<30>u€øé6BB
+LÎÙó'nì Äw<C384>¤7’éÏÌö±¤"ä<>aðk)ƒ¾-ELÃ">ÄÊç}äcê
+üÒÞ—žÞ3<EFBFBD>Iü=sնџ<EFBFBD>ç‹<EFBFBD>– A†¯Ã*®‹uùDýoyt½PµVyX~|•m·ó’”J°ú«¥
+6±¥¶4&Ì%÷˜o¦½^ÖÃQŒ`!
Š~e‹¬¸û6ï–M-þ
+ƒ'*&%KJ/ Ý´yû±øÃëp€ÓðÑä<C391>Š[_!,a1'®MÆÙ]’”G<EFBFBD>ÏcÃCÚ=Ì÷«ª³pÙðÛãqÅÌ|àåÑõ²ðF²[ìdÀ	œòJ…iKÜÙO*Q%>È%›‘/Ñ»ÆÎQ¥™÷dØY;
+óà–<EFBFBD>…±‰b˜gŽ‡’r’Å<Ó6íÕ/UÉÄðÚ¡B7]½2Ý@òßœ2°¤Eè#™Óòç»m‰!$.Œ&E¤7J§¯q9ÎZÎvRº•S?bZÎ’29ðæòwg<EFBFBD>Ê:´æ>Ù<EFBFBD>Ú¦âb¸
$Š6ñ¦=<ÕyõäÙ·îÚsÀöbþf	ú°ù]!5‡ï(÷ÑÄ7S¨åæveði¹"8¸Ç¾NJR£‰àueåì‚yÓ	~g©·ìðž<>#§É£qÍ<04>Ó¹ÐWÜÔ¡ÊAß„Ö‚lá*hcóï÷»(6˜ß
+
Xƒ×võ¢ß½>2Ò*ÚÕ;«?åGÊóÏ,ÛØ£™‡wn‰aX—&
ÿ7N
aU¸òðÊ6L+Ã’øŸ,`y ÍO·ðázVfæ(ôŽî
 <EFBFBD>ü’1‹B!ñÚ!™a^uïSU þ`ûÈ rô@
æ[«$TP–q 4Š‚<EFBFBD>®1öÏ\(þV#®Ð*á<EFBFBD>Ð÷Ñ!Añ5÷V[7jßhèÄú”ëCuÆ)ƒ–¹="ÑÓÙÐz—ö2"sCzè?—é>¦V:d¡Ì¿¸/Æw|ÝtT©·‹ü6i¹ô´WgÏR°mr(ÑÑô¥àøé.3¬Aæ@ZóP¸ú{Å»U=5ak‰‚'1¸¤@9¾SF…{[!}÷ãfÃc¨ÿÙx£x§éìÆ+.¥Zó!"%©¼¸hž¸¨<C2B8>æ,ÔÔ÷'ßBŽEþÉ'…<EFBFBD>ç·1vÀ´«
)cè;”—ùŒ{Sô<53>«tYrF^r=D¹n•ƒá†‰~Ä°cº,‡›œ^ižndëŠk]£>œ­ÈUÖgò±äš}8²Â(ñþ0ÿαðKZé[h’—Z³£Ç6;µ1xSüè(TÍùØŒÂ]‡ø9;6oA<E280A0>hÂðR²”¨!<21>Æ’üFÒ/iÚÏÁ÷ç›vºÓ'Ü#ï¡r	?ô¿Ïý2Ϩ‚g\ßA(ØY5(z.HCƒŽCÇ\Ejµ.ž2>‘ã£èÏHvÊ'à“Ô
+\n"ž™¼ÂjRÄÁÐPÍ©|Õ¾QÌgŸ°_FåñïL÷LéÃòX°¤=:Ý|*OéÅ00Õü¤<C3BC>°„PÆ‘P<E28098>–v€å©(¸ûŽœ—ƒ‹æ™6®| “ŽÞñÌí̶è7¶¥„AºMȃV4õÿîqçëÔ’!z
–¢JZf:ŸcârµHW°£=_±ž»ÈZ)O±§aüñy‚t­®òvà‚wÏð ÓÅ©ã]Á#”¶äee¹À¯ÒÅWæÂqÅ×ìŸä­)ôQZ'v
+ >ñ=~©Ub´³¯÷·%_l›ÃtxpzdÒMô³_o/&–Ÿ—¡”ù­(|î–Vm™VÒ#õ–môIgýÕŒf»y#åA¦
þí…K*CmªaçN7æß{ #¶®œÿû-µáDÅz=Ü^ÈÙ§¢™Za©Ë`&<EFBFBD>²tüÆ°Ó˜?€•r(¸—ÓéÕ°÷r)ç7\Ú@ÕêSùß¡ßûº“s€y<EFBFBD>®^<EFBFBD>&Z:XLÛÏ<q›¹´t¤`X<EFBFBD>бè}‹Ó:’`¦‚e6ßæ±pz\¦ã‹uŠ_é‘ÅEÜ3 Æ¦³EïUÜ'Õ¤Ë<EFBFBD>ëÂ8ýø>ñ|oÛSð71ù†ˆAZ"m OsÆr²2G6[š÷W<C3B7>å¢ÛÀëX¢uÉ"vƒ¸‡Ût—̯šÏxŠ¦;’½ãÑQÃRä%c¦ÙxlÍÐçn5œ
<O´¡<10>¾ÊC{gdaÆ÷“.Wñ2>‡]×
+?:ÉïZ†4߃Y˜ôŸó=ž
+íZ«›Ø6‚ÞŸ)J!2¾<EFBFBD>$ÖòêíAæÄÃðî|¦8È´Îtré¤aÿuæÍöy<EFBFBD>d#®uˆ ?T{ïNPÛ0YT<EFBFBD>9D¼™YN×hg1¨\çÅM=7@å} ¤ÝýÃä¢s.&Âj¾½bèd$¡Æ‡ì•ÝFÝÔŸIµ<EFBFBD>@%¤5gÛ¦@Xò­p+³"‡ç¦²öEDÌ­VäB_®,UœphÚ‡ ú4ü‰<C3BC>§$èdâ¡öÛh®Š»X—>çÀ<C3A7>Å/ÈÍ#	÷àcšò$ûñ4<C3B1>@Ir
e¦Aø±>ý03Ú<33>\ÑÞÿ>cÀ<>K‘¬ãel¢uïËws¨ˆ+È><3E><>w”Ë™=ßýæÀ÷2÷§¹%‘¯E	’ïñ<dêð3Ä÷æìJ'K3[Îrd0<qKUà(nªoŒ¡^89SÒ<53>A‹	S˜áçÛ ¥õÅl0¾;v°3A<33>ˆ®X;Sœg‡±ù¹‘Ä#Ã,ÁFÿÎà+^vRèwé)¶(…i†SI$/Ѷžc~\D#ªˆSd?ýb)t¿<74>
+¢àØÑp†3ó²AÚ`¥(Ü-┽ºÝÃR²¸ÅÒaÑÇÔápÕÖoU]5¨õÄï*ì°>»öœ¸JöJ<ž<EFBFBD>£ÖµFÞË3jŒ‚<EFBFBD>L[qSqˆ•’_”{N<EFBFBD>•ˉ‡<ŠN#bä£x4°¥f·´µ7ùÜÏÊÉÊLñäßÞßa#ùôó»¢kð„A$ÆÌZÈ3	Š_PØçKñ&¿þJ ؆wÄÈm¥h³ÊlklîÏÄܱƒ„È«ž™˜™[
+diMòªšÅkÌç[RÞÎÚÿù¡Ñ]k«Å´ãþK#ï™8©ÐSk³v?:hƒwªRÂq]n<EFBFBD>éÛy^YXYÛ<EFBFBD>€s‚ ó’¦˜e‹ÄóÖçàRŒ<EFBFBD>âÓ˜[jÎŒ·X4Çžæ”Ô
„ÜS¶úöïîo5\ŠÌTƒE(˜Z<EFBFBD>;ÔWDÕpQz»ÁìHv5h{a›Ü#â<EFBFBD>ãæ+ßWŠÜ’¥Kèš õ©«6è„7윹OÑ+¨ý
ìYRwíûÃ!¤lQAÿu%L
£HuW—P+',j9;Òq¨a›ä†Í“¹diâ}~©KÃùG²õ¸J}Âw¿›b—Õ¬:£c	í„:ÄR»A¦£ó˜tíÖôžïuSñ‡=,ú3ç266õ1gÈ"l'ïMXPÔ3ŒŸ^K³YB3¼ùôÀ‡wþ)$s=‚Ó…»×Â<EFBFBD>4g޾銱¬-Ó00Þä@–ÍÄÑݦ¨á
+tNçVõ3f³ÄO…7»<EFBFBD>×LÆ&ã¬YÜ{Ü6è賩R,³:«Þ×ür€Èop2>j‘É “šlN䥛¹!q¬ÈCµÑyç@Ô¥Ý×µVn‘฾iTúùú<·<EFBFBD>Êq”V9,'&§³»
+|ÄŸ~´C‘Q[‘—|~ÉëÉbp€²x¹'O„ÊÈÈÛUeËBà̺©3“Mú›ÕÑÎÕËça"ŧóé+Em‡f·`–œ¡-0/ˆŸ.ÕØ3fGÿb‚Š”˜\••vÒc–‚¦Q“‚;G,7[2²ã·
ä<ãf!¹4³«ûÞ%àJK¼Ÿ
áócf¹ò@*û¾õw¬#úÁ¤E:*bƒ><3E>c™†‹ûlص°¯Ž9W›	chªŽ¨õ°¸a´(j<>ùVîû«9ªSp¡íâRa
+?J›ÑÕñë	ðNS#
¢[Ö»šZ‹²[ä‚S[s†«C‡=º!R[±%„tv»Æþ`¯f{v+2Ï Ç?/<EFBFBD>nUõNd¨ž¨õ>w³Sâ.,ò~B ˆßíuð	ü„(;¼Åý?4<EFBFBD>—¡ÛÒ5%d;UUÇ6=C	ng}0΢Þ}à<EFBFBD>H @ÿ¦/}<EFBFBD>@$·ÑhÍrå)Ã}¢$ejžÀèÔňÀ÷&Ö`Ù2”Y€êñèwŽî¾SÿE
Š_Ÿ™ÁØ3Iá’ÎüT7^qg¬Aäird‘ÜÙ‘Åbû{‰1ê^{žšÍ¦Ÿ¼•+M«¹¡¢g¯¡RµÑÖÌÿbøÙÞáwõÌÍÜ5àz('ìÚû	ÿ䞎íï`:
LA†Cœxµ§û¯„\ÃZïÄ)`h£¾Y§Ó–ãr¦Î	=íé¤H·‰;ØŠ$öæc¿´xØ<78>ø,%ãO‘Ãå\IîÜfÈg/·)û>Ji˜<69>AG8ƒDštÓ¹ù#LÙqJ`¥@dtæ{yc¤iÖ	¥tÏ{F¢ÈäãÁ­¤Y
+xìÆÝp/´©À‚Ã=Ôé	|ìàæVöòíj&ô§³ö°yß5!Û,HE-U¾€S^YÊr[fZ¢E2<EFBFBD>rSçW…jˆd«91Öx‘„÷$‘š•ÎœO[žX!«‡ºÝɃÔR<EFBFBD>Âè[JŒ¾p.×
+òò°lIBOÿ]«3¤Ù05*^Â-b±PåÒÁx“spW3ÙMkøáø“xÞ«£‹³ô󞑈ÍymÙ>^¢«ZêQã©AÞ1´=#tÈ(ì¡ëÐï<EFBFBD> ¥
Æ1ùz»~1ó™
+¸¡¸+ô¢¦è
+íH½¬
<M•‹˜·ÏÓ7Õ"<EFBFBD>¶™„‹Šäƒ‹°¤´È^ó'€Ã⯻[éíÎÅ» Bc`ÌpÿOiÝ?â%ñ=°Ø4ÏIˆVŒ”³qDO 0 Lr/@-:uR5ïRÅQ‘¹öZ<C3B6>y8^Tp¶4f_èýƒ<´¨ú›b´RmoÍ¿otæÑØ×ñ,"‡Ú=?(ä÷îäÉsì
+Ûc<µ
²9þÁ?[w>kN*«ì¯"¸gØíR5'b$5Á=`{ %¶—‚‰ˆÂ~œ†j¦¥žì›IHgªF&y4r5ˆCÌÂÌb›÷HhùåÁ‚Sþü1þŠAtÎhT8Â!cGa.0?Ù§e¹ÀXqäÓ7v¦×Û‚ÊP‚¥¦ƒˆÇ˜ýãGÒ¸ !Æ­(®ËX2	|{]#£>rT7ù¸Dí<08>Ÿàd÷Ø6âÚ§u·Ë(a}.r»(ÖñÓ®’;bÇPdQ‰èåœ	ñSP÷Ýýe2[¶¯N“ÔfÞ¿æ*^6A(RCXÜ¡#ÈÖ®#|‰~Æ
ô<>*ì›°ª¢ƒó²SšTŠ<54>LV¶@÷‹öŠ^Yö–=Íeî1_kã…qw¸ò„2ßë;)ª;¬S·é¾ùâ}À—êù‡´êµôBæãÈÇ"",@ª´ü
+/µ&1ËKœg!­1áºgOnAyP¶Ý.‘íœ^6­ç·|ô·óµQ
Ó‘Íi™Ø
<½Äâ7¤½ÚŒºá€'ºËAøVŠè·>ð€ó‰Ê"f9#¸Z´û¨9oÐ*t¯û=aˆÁÊšåTŒ<>ÀRSÛ'¯—qvy›Ð»<EFBFBD>f•"ï§Ù¼}æ×µõì_üõÊE”sÏêÝ>æ{ÿ•
ë4+&qÓ@ÿ
¹)~;‹Z%¾Qü×­¶e?Zº}<17>ÛX<C39B>T¼…ýA¤¯qÉ#š|~©ÓÅÒ¾³]×"«tæw‹46 “¿ÄêtNó¸ð@ãòí<EFBFBD>Å?
㘊ÊÇÞq*µ»!0‰K9"Ę:§S\f‚›]"<EFBFBD>ÖñffÇpxwÿ~Mþ	S/ôeœáÊ5ܲYÈ*átÉ
+!•Â?ä0÷S(4Nz—(u.RÖIÛ¬Ò¸18<0p#zTÄH•<EFBFBD>Á\ïOt\¼ëY"¨¡í¨ôÐ:‹A‘¹œk<12Ë #“­Ê|ª…<C2AA>«ñv}.7†3¾‚ ã×4mÿ*<2A>GÑUæ*k8Zæl¨$çc­LQ[©MJ/.‰‰“ÌA<C38C>_–±Êx«ƒœä*z-<2D>	6øa°gÇ/î &ý½€µómV|bÛÄâæ¬Úݯ¼–Cä<¾÷<C2BE>¸;yÃ[«Tÿý“… &¶Kg>ÑŠ_¢¾€<C2BE>»lŽñ[£íd¬ömµ_»Çñˆü=¥Á–è1ØY½…èûÞ]„7<*@“FK¹O¢EÝo)mÚj<C39A>PK—ú
Ú¦	ñ?¸oÀ%|	.yóÛ;Œ^è•\qŸ*&¾+¦e´ðóé/™ <20>¿{
+Ld>UË>V—®<EFBFBD>ßµV¿dJâ6\M_ ë<EFBFBD>jA¬æþ$öV)ª¢G$²B,‘S(颵µzLV‡A¸;þvc„Á‡¿ƒVh]!ñeu}¨À°®‚{1A÷Ä<EFBFBD>èJ¶žÜž.⇾ÚÃô„ãÌe®ÏU<"É¥Àñvû46
.r¢2Je~,_·5\«MW¥IF+*…‘auul\µ`ú¨þ}pb<70>Š‹=•øƒº-% $£¿†®‰ÏÚÂ¥íRȇJñûƒIêð…_îû WÇq•˜&¦;A¡¡•BNmç3¾ÛOr‡vÜZgXœ©ú¨ˆSì2®‰z—¥<E28094>’ûs<C3BB>Ûnž'¬«Èäè5a¸PMÁÂR	E«o±¿Wºy(êÂ×­Û• l-
+c–¸7cc‚Éç;0ôD=ðdÐnòŒì·ÙKˆÃ{VÄݵ?¦šŸ‰<EFBFBD>B–®ê8›^º$ðØÉLÁ·9O=]¶ÏͲÑëügŸÕæWõ®Ó+E)OÃ¥(W(„7™Vˆ»êC¦SM=€¼8ûÇÂêõ‰ùïÕf×)"8”qŠÍ
‡ÏÁ‚<C381>E¼ÇÌÏëê°3l®ìÀãÔ𿉉kÑlí¬ßqèÿû3%æ²:h&°?¿T:½(]/SÊJ¼4|P:\~fÌ‚ðYÚFeCš@†_î·HûÃ<C3BB>'¶þ’Ôu–Áç²Yk4V1<ƒ9ÍbúY–k6
ñ[X¼«0¡ulÚ}‡û'M@A’e®Wýo¢B	D¸ 4`†[܆ƒ¿_ÈyÄê†kŠ<6B>õ<	zº2Æ–Š ^£4±Ê®¤®ûDëË•úÉiÊÓjˆäíøNï@è<>ñÎwúhëÄ 6‰ð*ã»t¡åX54‡9?`^ˆ%wA×ßcŽJp-ó÷˜œ¸á»¯<10>+qE<71>˱•ªåºyt‹ÒÈ<C392>ÆD,XÕp\éYñÙ‘¤<>$0ÐRGÎä©46"£Ÿ)N脹úß
x”mêUö×TYÄ)”i¨œöy
+òýCÎ(:{,H+âŸo°à1VÔ–¿ëèA/åZàýŠd^‘ÿ›-‘?¬þ›I—ÇÔO4"+0«J<C2AB>*u>í¶;?JÚÆ«uÒTõÜãbVÝ$cÌCó¦Á̯$õ‘³Ï<C2B3>ž©®©Ëÿ¨3qKºê¿R(VP®
ã\Ú¤éjéíÆî0;¥®/™Î¸Va#C×l<°HEù4ÀßN.*ž”t‰¥mTc¾Zlû‘Åõ»ÛÙÂ:<3A>×´hŒ2²íª3vŸšg‹Ç?‡øð/-”¼C`§
鸛G#CÑÄÚ"49!iÖA Íp°²þ^Ÿ@ˤ‘2\Ð!î䨡}fŒŠ2²‹C@JG#y¤—•úß7ÙâLEHE0ÕN˶Âb\î6b­à<EFBFBD>$dFð5°	øJ<EFBFBD>>=G—î8´ˆòaÒa£Í¬\É'º›U¸cíaê-™È‡g™PXûtŸÊœWˆY™'
+2ë*â<EFBFBD>L6»±‘ËÁ`ÞƵa"lÚü'ùz@.O2<4F>p
~>]‰F‘#niº(JuG<02>‚†XN@h“eTý¦	V«'<1A><>ºŒÏ$~!|t…$†,Òþ˜ûI‚ßÑ3ÎýPñt|à˜Êš‰9ü$w›B£	‡B…Ø–=¤„¶v¦Aýk/Àìûe™ßÓQO¥ÙÄSù[_ßßoÕ¾—ø ŠàšüÊ‹—âæ™{Þ7Mü¸3™Q¾¬Ö<C2AC>ÅÇÏ9_Øòz
kf›íà
š!Fg"·Pì.ßá[´ë[Ryå
3Iâq¦¹ˆBkç[svduÎv÷<¶	Œœ™•
+·®•žE(L·Þ¯Â9L½C
+&‘˜®
+çS5fÌ&wý6ð
+&™ÐpsýŒ¡f‘„K8øã‹‚ƒƒCšÝLŸdñ½bzˆå¤žiýƒüJCYµ’«î"#¨ðcæ¥Øôö:ŸßrÕû)çíÍu©ÆÅàŽál”ÿ.ö‘÷Jl"ïû9­íf#oQk€V¬YNã¥JVáZãqèœ<oŽ¬µî÷ïc€J´òXún]µÜòc5<EFBFBD>ûC KBÊüß&/<EFBFBD>*ºWûÜâ$C¾ãóòöy+G|„‹ÚÉ<EFBFBD>áÙJ-õ#,´e8é:¢eœžÍT‰a])_g®xš™VÙmÑæ%MŠX™yÄ7Õ½(,ŠþïsÑJB<EFBFBD>Ó-~P¬ ?ðßc5jË©e…ƒ=9<EFBFBD>9?Ù™YlÓÅ4ï,ïDê|ŒI¸µVsý:bÔ{6†ü¦Ô‰=ÄÇ-±ÔDºªyà˼·²à7^ÊÒG	ìßÚÙÚ\
ôïîïq3	„U•ì!7ò
>¦V´±ò:J	lÅT*â<EFBFBD>\¶Ò:»RW²+És™‡§
æ±#bê¢Û¾±¬«¬.ð#ÑjíÚkvôSÜ^Š8=_¬l7ÿÅú<EFBFBD>o¡8‡<EFBFBD>Û<EFBFBD>”2Á¡AR–$ô¯B	}où
FÏ©ª0<EFBFBD>eÒÛþd9ŒPÔG{3™Ð[ÔQ½/DþÅ­Fµ./[æ<EFBFBD>Æ!6çÍ9Ôcš:=p¬µ»í‚w”+:¬ KN’·²=¡ú?CÈ2Òx`ad?a¨C¤›z^$‚€f‘õΘ— <EFBFBD>T‰Ü©ýÔS9鱪"gà].<2E>Ã¥oÅaUÖÚpÕéØýlbÅé‹“bû¡(ÅÊÁâ‘£.cb'Ž?,VqÂÿCXR%x 'Yr‡¯ä'v¡†™º0€‹­jÝ7ÄÃŽ(¦Ù˯*ÐYáÀÌÇÞ3ØéSGá{ö#½ôyÏv”!c@	ÑV€E*#¢ñs/Ýëi`NûBUÇ"Osö½ë/‘~
ï³à·öþ€S±—ÛŽöôÈ»¥À,M®„åøœûÆ%…ÇßEëY¸
+ªØ†‚¿;תÈÉn“Òk`<EFBFBD>X­*z2G‚7š{•Ÿšgy´X¯T¬bõ¢{èÔðIÕ»2¶dY¬MÄ“¯iª.bÆõlÍÑf×ùéî—à×Þ¤1÷ ÿ<…+ÁõÿõúloÐp–>y”-ú–LòF.µQ^Žt‹Ëh9>—<EFBFBD>ÿ–òÄ—fñóÒäØØSÁ%©!ĹᠨØ4´«p_”ÆéêfŸpiOùÙí!h“2ÛF_vvz>¶ÝmNד۽è a%a$[á5UpÈýÆ*cLÒèÚo	ù{<EFBFBD>³”jɒ纉¶™©÷7Íï§eF(3¶ÅÓHxÕbâÀ‡–çTY'¨	KJ¿NOþÖº—…W†2Â¥gž2{5\–ßF<EFBFBD>-ý”gfh+Òq¯“þy+°8㜥‹wØ–Ta§#ÎÈÓ¿…¹.ܸ&¤O™ýsÛAÈtoö
+÷ëV?”®„ÝäûÎðÜW¹/Pbk[(CJÊ­¨“â«|å§pT°’õ4OŠ‹…ÄÆâ¹Ã˜g8ö	¨ÎK´¸[¡<ÏÅ!ôî–Æ>êRᦕКòXú$:ò-+±-<EFBFBD>ƒ^·2‡¬.p+[š>?„€HO	<EFBFBD>ä;n'±•e!¦®/vë4œ¥Ùª̼Kœ<4B>'®ž”í™f¼V@ùJ3
¨cßœ)ÉþƨöEìDnÝ’±ÀG&¢)·omVáñ?ÕfUÌziÔ ük£kö–R¥<EFBFBD>ûÒ»Žõ›Ç´¯‰åÙ´#ç°ì+A̵]»¥ÀæZi@¥”PÍ~òä‘’|¸Gè;#‘Ôˆ¨™$²«ø1]@âi‡<EFBFBD>ÊMŠ=YÐœ™tuãéKÙóv¸òåž
+–µW]¸×Ò°òéô2PSêûÇ[Â
)ýBÕ¯¸êöDéÀsÍâRVÝ*‹¤pm?ßJ4¢S+!:‰WKÇ EÒœP¡&Z4<EFBFBD>ìeJ„½
™S‘ØÈ[Ã3™©’ÇJÚ!Ÿ«ß
Ƹ·ž˜@Ô¬ËXnã\\Ìùj h*yþ}Ì@5Î@Ò5…p+/)¹í‘Djñð°ÌjUP‰] Ü€¸ÓüŒÄuäý‹”›š·Õ¤O#‚}BÒÓÇjÔ÷v‘sºÜܾ쳫©:q{v™aÀ—±	±²±X€µ°z‡¤.h7R~ƒ
+Ç[j…¦wei`3–ÑvŽ\T½<EFBFBD>ÐV/¹~¨¨ŸrÕDµÍ£Ë÷Äú{=¶eèâßJý¶<EFBFBD>ñk<EFBFBD>˜)®3
¯sMã)VõÈ°Ž«¬Þ}öèWMÄÅfj†Ï!úpa`'w)ò/o«–<C2AB><E28093>ÀÄùÈÝÞµ—À½¡åÁVïëÄÅœÒeËf‘áÔo9}sf»Güt&.`÷^Ù=OÄå C!|~л´ÈqhX¢x!„r »¯&é£Çq}ßx’
+±àDÜ-ÝÑÖ„Ô"¶­4ÎÙ†½û¶ÌŽÊUÍ0=ÿÛ &âKŽ-P—ù:íÞ.ˆ•G5¤úQ23qZ,l¢5ÜC®äì<C3A4>Ú%Q˜Žr¿Ï~¢Øk#òdó½‡<C2BD>Ÿ}z™’cùJ¥²«¯Ø±T7kÅÓÅ4îß]‘Uw:6mQÃMÂE³Ž•Ð<E280A2>§»o_(Ù1yÄJ[Eˆâ¤Žl,ÚDÕ'Çëüý©¶ðxåÿh v…É<02>5&'*Œ ݦÞÄ?–
+·¿cïãð·Ð+2:\§dfØ—;{_,á÷ÅG&!½¢8¦Õwx)qØˬáÏv‘ßEþ‡¼ŒŠv¿¢aûcûâ<EFBFBD>¡»"ž°¥)ýÆÕÿ涿ÊIÛ<49>Îوؚw-€èÌ8ó‚!ø1]7dGÆ
#áÆ‚6Úy4\<øŠA3£²ÔÖ‡4mjD)qrÑ'Œ<>>Ž>Õ©HÛ=Ñ©SŒ1Aw¾—@ï%I
›w×0œþ©#…ñ›Ìy‰¿/ˆ7Ý‘ÙAr„>KèŒJ|=Ó¾¦«N/T'pÕøäߎ<C39F>Íy„S¶9Bà„¡JþŲì8´¡‰®Ôï¾I"Vâ*
ß‹ÉÞ³òCî¨ö
 º›zX?KÒ 8KGAî©D¥0>ƒ$¬~ÈfL<EFBFBD>10`â
Kw¸ŸC2x”}yŸžgÝkRú/•£";ËãTãÐ55ÕÈ*,¯!Ö› ÀtŸ)°’I‘ ‚_c=$<24>“ÖåùF)³¿iiz0µ˜ª`>¤P-¬j>saåõ¿ßç sn~Èb®¦J‘ŸÙRº]Mö<4D>Ùêö9òÖÿÜÀd¥Ò3“gü®ì<èÖóPö¤#þ<>Í¡&%<25>½•¢Ü W.-‡  fä`}Žf~PôG3<47>ûc<C3BB>—jƒ@xÒ<78>Bàã	—!“ç×­L!§Éر´æÛDû¡«Ì挑«úVìÀXl*«×:eòk)Ö±p€Ö#î@FnÒçŽ"*ƒ…u<EFBFBD>DQX¤fDx§²ñÆ–Ÿ§ç<EFBFBD>¹œùŽ)BIjÖVùGØ8‘ÓÎa×ýÖù_<EFBFBD>êøjt!Ã6ª…1-Žp@=äNÛ£)*G¶;¥@&ÞÜ gÍ$<EFBFBD>ššu“ø²åt<EFBFBD>¿i„¨Ô'¥@Ö{©7‡±Ò€<18>I¼DB}Ëð©Ùëæ‚gM|Z4)	”_Œ	ùTœÆ&"Ážëé]7‚4 ½¾ÈH¤¥*œv™YÊóä×mƘû¹’[F=X˜t¼^›¹Ù¼b’²@,¾;—™AðþzŸéžê
+Ê!§k
³È=Œ×䕪!ó±ß"½6ü6X IŠµ‹•_5]Á}¦ÑÕ/õ<¹È
+Eîª"ÚÄk›!o¥¬¨I°KÊûWÅ<57>àÞæ`V‘Øb’ö
+̽>K\âÅ°„Þ!_ò9ni‚—&{5è”JÔÀGvsÕÖ¢î-w2¨ñk‰ºº—o}£…Ö•ò°ùœI…¼ô×H}05Ç>ÂÓ΀ÍPN‰× üµåhkÝsø	„#2¡d_«îº$ý&	Œþ;ƒÝlˆZ鬋3¢@¸©rô<EFBFBD>‚Ãس7¯ÜŠÞ´øÉO„Z³ãIÔbºÕKÛlFú&Žås61}àçÀèŒÏõäÀ°.	PËZX0w$À¥‹ºF˜ôö©UW€H˯&TWÚ<EFBFBD>uã`iŒ0³<EFBFBD>:냼”Ž¸-[¥Ÿ¥sÇš%æöÒá0Zú¿RïW‰ì\TáŽ"£sìú8¦:û5	î!='-0'ì6<?6;ßâe§…ýU<C3BD>Ù(œ‘*qâsÁƒ6AÛ³â<l©(Ò0 wjü¿^PX‹¼€¿ûÒÜ¡jAW?êƒò<C692>l<EFBFBD>zC
+cj.5­'˜{ «oe14™˜wÀ<77>…lÂN2£<32>¨7|ƒhëu°Ç„€$™2Ë32íã$óh*­	ÃðÃÙº•À3oû~ë°â—ó$}¢Mé QôÍ;A<>\1wj‚Ýîqæ(ÑŠ7›ð¢xÑ([_ð¼‹sÙÓ<C399>‰Ös~Ow­œ	&…
Q<EFBFBD>»ÁÉ¿$•@õm°¿¸ƒßA±G‡k£|›ÍFùîùnÎ##>ÿ•€hõ­Ñx4¼ ô[%ßV;ɶnn‰Ê„z}¸Ù€) Ÿ~ò6N¤ƒ¬€MÓ‹#¤÷- ¨)ÙÎíT}+ÄœEÝøyÏ&¶*"+!ÅîdòË
ŠlDUIã‹Õ'»àc/.´O@Ib$	Šá\ô…nwœ$£'/ÈãW=à„ˆn—ž¦v×µÄañÙ¨²¸<A=A±GúÛ,ßjýañ½Å{ÐQѼ<>€‹r,ï˜ù:~y…Ar©ÇãnOÂM3Kqÿ\ÿ´Çÿ4Ÿ#Þ+Äß*<2A>w{¡‹‘†ŠPš •™wŸC†ÇéÑ@ºÑÀåçT—¯e"ßI>î~&ò)¾ú„?eðò‹9°z&1cæ7l3ì5PŠf½KTU5ÒDÚr
n|»<>¹î팂
Ém69”—»ºã¨KÊ­ÞåW^%Ü-S«'£2jW-2˜5.<EFBFBD>z5ûÙ‚ @<EFBFBD>Ê¿ê¹$7žXT[½eŸ´ˆL[ƒ|Pü|Èmni÷;[‡T”ú„ϪoIVÆ_P%È©i9ÜØZ[ÂÄòØ…zn9°g+oXÞïOûR÷Ë«Ó	
颻8!RYóbò£!`VI›k
+ƒ(aÆp„`ÓbÀfÕoᆗ›„µ¼.nâÓWŸw½î¦kÐ{Áþ~ÂëÚœœÖpLh„o/ç,
”K.ù
çe`ìíA<EFBFBD>Š±	;¦|aˆ«WÕ¡Ý˃ÏmÓ^Í]<EFBFBD>µpFî
Ý»î‰ÄC¯!6P³·`e$B<õ³õŠ·ë)ËzÈWþÛ-–…[<EFBFBD>-“Q	UÂØ!*K-ž3Y®ö?f8µT­ s‰‚î<EFBFBD>4w&6ÓÎáhÈäF.•ÚúÏh󅯕Îìœ"Ü䣻2ó9ÀI‰¯gË]¾‹„YËñ÷:Ù…+:¹<>ó82
ÒÖõoOª²³Ž+zqU³8j’É`aÅó3O—“Õå´rÀ¯ÆS²{ ; Ð<ÓÊ<C393>HÛ+zï÷Ó*د;Òk‚ÂáçW¦9Ú<39>]àÄàËŽµ‘‘ wSõÜ&”Œ7™L:UÁ]ß&1SХѻoau5êysiZ ”‹š·x½uÄfQº¯ªµ‘¦8nçïå‰Z]øÄÆûŸõا[iZÊa+^/¤A8ÿqá(%4QØBŒg(7ëŸB€ç‚ˆ<E2809A>Ê7~Òyœ=h¦´Ôn0“¸<E2809C>«"šÁA<EFBFBD>à.^ùZÕ¯í6]µ™ÇZ;öÆøxÝO0×n"3öüG4ø
¹õg'b±ßØýà¡Œ™@bMcPÕ ƒ¦P\~V`\#pŽKñ°¨>”<>¦	ö—DüÅ*ÔÁbû®XÉ©Êxw?)´CõfÝõx™Cö<43>´ÔŸüŠ¢	ºØ6´³[Ø”¶¬^gIÈ|á½r%<25>s›Z¬—VœŸ’l¯pÏ‚gµ2îÏHÄ §0@¡Œ¢¬hN®Ÿ¶t™Ó;+…ÃKý™çèÂß@'ÇtYÒxPôEêWÓ7x½cë´‘ßWA]B FÕsƒÚ¿8yj~îÐSÌ9½£ž ÃîÔ´÷"•Ø£·‘®íÁÐsQêWêebV<EFBFBD>Ýy„åÐFVÎt™µ„¸
+kæ4–°º_¹|UX€2ÅlzËD½¿êfçf"†5<EFBFBD> œº|ŽßÃÄŸ¦”ÃË¢¥!I¬ÙÙ»ºç¸&)AcƒqvåØa 6é<36><02>4µÿÙÛÁˆåaÍ/,3!PX©«ê<C2AB>_µKÍ¿µwÍP¦U˜aA~ŠësŒÖ
æ…ž/Š
œYÑå¤r®Ã°5-ÆÌRFÅg<C385>¢ý`ŒÏ´ÝäækcüŽ¿²Õ0“¿Çž–/5Ì,2?@G5dl—u]tsZóv•à3n´‘ q9‰“臠°¿f¡Ð¯ðPÄY¹¿Ì!ÀÙ*ÈHÍP%Øpñ”¤â%íË3CtÐœnT%?û*x|5á(È®îEI‰@~­Ð<C2AD>Þ~Öt«`â|®,ÿ<> (º‡„êt ŸÂ,8å³(0óæÝãëtsê,![”
+z–þc};ÊèY-ŸÃÚþCV¶eøø)3
+¨Ë}±Ê—ø×P”Ôžú~lše³B¥³«wóËÇÚÓ_p†c5N¢…; 鱺ÉÅFʤ<(‚ú`ñg²ô·¡{	€jóîr$0Å7lþpû³3ml?­Õ<EFBFBD>€À=!×¼?™G+[œi2j2œc.ÑÚn-~ȱ…_„w>ɽwWüRË3¿¤ª¼ž¼>@Uª@Í­äºOܼpQÂy’ðz³z’À¢ÌFXbòª*<EFBFBD><EFBFBD>fµ¸y«J#<EFBFBD>_¨DgI0pì^ZcrÕâi¸‰LÔÐŒ5…Áa i<EFBFBD>ä9ÏˆÊo^ä+B8ðó:Q÷ì´ß· PŒnzp¶&ø…ÇB<EFBFBD>БD‹¢˜¸(0”Lñõ\l¢ZËD—PÍhb$‡e<EFBFBD>¥r¤¬—óÞàk–€ìïz¥/¢Zꧼñ$ž<EFBFBD>îåóáâhäa«â•DŽ·<EFBFBD>ÈFZéGó¡¥XIÌ}a>€kÜè_RFd¯t”U`0af êllçíþç‰Z£Ê7\òv‡-m½±ÉïW7ÜÁ|
"ípªMá‚å楩³)üf!AÄ®…<C2AE>ÿ©T'u_ÏÊ°ñ¸´F¦?T\Yx9e?«`ÀLëüÄy•ÏΡ.¤Þ]µ>Œ¥ÒÏÈÇËT½šÅçß¹oTÛfdã"™jôW¨õ„å%’«}K§4tšþ¢
-Ô)
=\$‡µAMiRNt…i¿f´uâñú<EFBFBD>h}<EFBFBD>×ñÛä÷–|˜óöu$ÿ._@›
+Öì¿ßåŠK6û×Y«ó<EFBFBD>éÓ˜ô~@™9~'»©A7Yó£ªÎ nÊW—½!Ådu©go†edï‘‘ÜtH
<01>s(®LÑèíΡ"rû-@]ËÀÅ·ƒÍ7Œî%æ÷XEí#ê=FWoó8—'O‹•?35$Ÿf˜FNz4H:ƲóÄ—
—rêÕ­z† ÓrþØ	Öûûû%…ñ!ò“®<EFBFBD>™W<øʽ}Yf8½S>VÕôÏ‘Þã 9öeJÚ8ù<EFBFBD>z²T4Œ¡ÍË€á(ç
@u<ETPÑU/dz
5D³gàÑq6§<õǨž
ŽF«šz±Ð;:î±gÌ»ÛÂ<EFBFBD>Ñ’ÇÄKñkjÞÆ05n+-5nqIÅã7—`¹x<EFBFBD>1\ö78<EFBFBD>‹ŸÎ3U¼´è« PàˆT‹ ¹vÝj¹–É1-;?”È<EFBFBD>˜§Ñ¦£ž'™ÔAöEå=ÆÂ<C386>RFŸÅñ°Æ*ÆQßüÉtbC‰´
õã/îÕDp<y´<7š\íâO||¾UMGisóz…Ðø“z"¼D&ÉaŸ¬Và°kLY>{>ÈdÄÊײÅ|Ìç=:»æ_šAåÓ`zù<âJZ‹ç³…k<VA<>“Lø?–)‰§°KÒÀeþuöm¬Â|Ôy†¯šÉÉ<ð›­ÆþMZª‚œÐše
@é`ãí§<>
;†w‰¾^‚¦Ó´[px„X»:áɉ5<E280B0>,±Prû¤ö‰<C3B6>E(
+ªšn0IixqüšúŠ
æíè>Ñåæz÷s¬¬<EFBFBD>èÏ6¨ó€
‡è*)`TVº`„
ñðw(7O¬}Z#?|yX,;áy6ÛÌ	ò¹"Ef±V2—GU€°šãq<>¡<EFBFBD><C2A1>#/ê<02>ĦŒjÒ⤡o;
³>|÷ÜÑAH#Éß/sìYtW÷×ð*0F¡-"”U1q‹$q‡k7mo0†ŠöçLÛƒ˜Á˜¿M
\f¼øc§è/îyO–Ò‡«”[
õ£·1Œûëý±ËÆ‘¿Xü(kvÞeÞ;<EFBFBD>Æ‹²d|ïY
+þ
+ŽêDR<EFBFBD>ÃM<EFBFBD>Ühj5Dì®L¹\U>¤µÍ»Ð%!ZÌšŸ†sˆ<EFBFBD><EFBFBD>?ñ	|Ð’™WI‘¶„¨û]†Kr$<¯ÅÌ ÑÇ0U”‰×܆f¡Õp|Cx.»¡<EFBFBD>¨§û1Áü…
ؤ/ŒÏ¦f¸>€jÉH£5bex°nî¿zv(9mÆR"=»X<02>Ñ»™ôN›Ì„­[kÑÃãŸä!ÉÓTÒüWè3"¿ºpˆkp“õ<ˆYK
+<EFBFBD>õx,Wǹ-_2¶7È=’¨ŒX.A7^žBg§Kp®3<EFBFBD>É[nZÔUý<EFBFBD>˳<EFBFBD>4:˜ A®ñ½ì<EFBFBD>˜ÈCA<_;í™Qñ<EFBFBD>–Of¤©?kí!0
Í—
+²Ã[{¹0”"æ<-˜ývVúâTWY€^7èLZ®~cg•n‘÷H<C3B7>E[o¤‘­µÃ<C2B5>Þ±¤?™·ê#>)ô´ÅIiÍTÓ_Ú-NÔê±°¦
„WN±*…l„,±§†ì<E280A0>¾¿ŽnÞ}3£êÕèa›N~›orîïÓú~ê„
õ•¡W‰iØ׫ν÷8¨tÍÄÏñýì/íõ/#i…qÓ9óbÃu:
Ô$ÖaZ%ÁG,“ºͦBôOˆF¢ž¾-doÅ	Ì®%‚<>þ¦à+£~™®‡˜3ÒU›oE¼šÑóÃKÑÉTÃîøµ
+jgæä©ó#õóÐøÜmÍkí2+Ì@úO0ùdÄÅzÌgö|ñs:³0ÍìêЯ͌ºf1ÓßÅ¡IŸ^E´à¬é$¬§
+Ì=’üÈkÐÑïÍ-¢£þßj®¢¬ò'É¢›‡éw‘nhk%¨š*‹ „Z?E)t9TÞê‚Zƒ l˜s[Z{ꕱjÔG“¡<E2809C>ÊšÙ"¨ +šÅä¹°¤! óSFY«å‡ÎäRÈ	M4Ôýu½qBƒKOÑJW×5YØ5óØ”4#c§omÔ£r{^çÄU<C384>³µ¡–@:¯’ó±<C3B3>åð‚•<E2809A>û|$¨?@Nöcïã¯Ýæ…|¯CèrÛÝž»þÇPDyröf†_á_Û3<C39B>£&9[ 5zÓ=Ñ=‘=€¶KDÙ@¯Õž‚ãÐx®uˆ<75>´‰¬kü‰%à“Ê”§\ë,,ñ°ˆÔ=Èëã»4ëÐ{?<3F>¿í¨Eø–%t×Ì}¢<>^u<³6G{9AX/™7·¼Lü>ÉkNk´•ªÈËÀù<C380>x˜7üû®‘@&Å]3ØV!¯ášG¥ŒáWâ|ÎdóÇΰ£EàóõååªôXù—&bT?’Ç§
7ŸÆ2-*Í\˜Š:<3A>HpDQOœå„ÿIBNà’
h³Ï£”×ÒÁé&¢ÆoœÏ"Ý#mö²Àv›Þ>þÿžÆý
+ð‘<H-òjkŠò¸
Ì}ËÅõ–<EFBFBD>t«vh9þ2¸7—’°9á£çS3–µ˜dþ°o¹n…Ý–8
#Ú£{¹§T<êèöÆËÌPGŽw>§Êë6Ûw4Xó"{r$(©5ÏpGñåQ3h…,oê!Fæa<—q<E28094>ï¶Bc®So£è»©WÁçhgŒº·ÆMVž#„ˆe<CB86>ñzEüÎ?ÊÈ/þ«6‰äWØ“¦3LÈÒþ˸M\äï†øÝz<ÏSìÃ3‘á8³×&~•5§iµÀCpóK	ie^]Þ¤Ëù;Ã{ò´—Š…„…ÉüªCƳDoß«'jfðU¼i\ÈÊaíÎ:ÕdŒßåýóé…+Ÿ&5[ZlKÆÕã“Zóu>¬fÀÓg<C393>©ÁÒ娵Ø*·"bº<EFBFBD>Rmfˆý.w‡!<EFBFBD>t…ÙŽ”Uµ—#ûcäŠê¸¿ÎPÈÈ‚°\Ò*ã9û¤íµ0³É®@yÃ')3ÏZ{¿†­8|¦ðTV`ü@‡¨ì¶‚Q[ó]gwóúò¶<05>Ä€Þž­Š¦vѳ‰Ä”åKÛë±u[ÆÁH°Ëí<™I)YÆða ýz-•@Ö<>
OÖXk*ÄfŸì£ê¡²kx2¼À[ÙBK¬XVö¹žÊdEUiŒÃQ.ûÒ-ýC³Éîrmœ‚µùh*ѳÔJ)\Ý…pKî;´þì½#E!éh<C3A9>–Ýÿ‚†!÷_¢	1{¡ÒÌÛ"¬ŒÌ?ÍcwÁ~3²ÌU<C38C>R’Ê‚ÍÛuyôºÝ
8F*®àP˜˜„ÅfÚÌxòÈ:»`ÈìÒ+±
+ªBðãøƒ£ïDŽˆ0?F
+ Ð+A™aK$:añE†¼ÔÓCÓìr.ë³}Þ¥u…¬¦ÂSøø<EFBFBD>Žt‘¤y”ž?áÒÜ“Ë%4ù3}?1»,jÖ+iÅá¤^ë©©²l·<EFBFBD>¾žC—ì§ôÓza
Gò)s¸U
¬nW‘ÀJ÷_;Ûwà
MénVw˜ðƒ¥çÓÄOªJ´pÙP³3_¬ñ½GN¸_¯e¢Õ0Ø|ãÀé•Øbûç°' ý
[µ/[IÄw 5ƒBD¸Ì‰dSG>X|õŸWïâ <20>
Ä£KžË’›ˆ„eŽ?‹“´ž.¯¤R&+<2B>3ýõñ>ãÙDsJ=äêeó`%-;Ôqf “P®&3"6iDé»É|CV9ç8]¹nçšajWs³!=jfîé†muL©º&˜€¶‘ñ¥˜*C­qÿ|Üó
ĜҹñßíAÛ_ÿCgH‘ÑYÄi/î‰è/²ÅØd}]Y+ß- £Ekð»–$
ÎT
3ÄÙ_8 <20>ØÈð<C388>:ŠP&Cü©ÊÉð~[¨¿eÞ”/GŸ|ÉúÂÉèç6tàÇs±¸2TuØÓè_‚ýÎî<C38E>ñ*ã)ö£;E„9å…=–Ä1[*s…˜£jq€Jir~…WóT÷S>9ú6Ñ—0qÖ{œ	®é¸Â~ZÄÎÞZa±š“t¢Fôºk11Bwý‡ÆK×!õEráyÍ%4¤u-;1l7GdYeBNØ¥T-{Åâ~ë‡ï²•¢î˜áP¦š‘¡ô”VO’»‹Ã浘»ò](OÚV]U›ó<ßåõ‰6”ÿö3tÎ0Ù>W¼n[<5B>lÌ\l2öÜGBÉ1Ln½‰ªÚ¥¸hmjS<6A>-ObVô©”ì<E2809D>Æ3ƒ5³Ï§•½äô©BÌÏG¯Í.‰	áí÷<03>õÿ-¨û5ç¬2íç–[iŠ!ÒöˆSF€\ó…‘u‡GSÒdøVãû:åß–jX€§w…<77>b‹<(Ìqš·VbPwkØLYÓ½Ú}Ê0Rñúö›ÓÙ-Z£g’qGÂC	=0,‡1$`ʬ;–&8³QÙ³\VÑФÂeÈiP¶ÃîŸíµãªâ/Â¥ë‰Ñ´3zO™[<5B>ÁÑâLÀ΂\ÔækÃOéøZ[WalkAv<41>Ù
|t
+Ÿè#ð5cÖ[t‡ùLU%wUHCBCŇj]t±fipi¦uˆ³ö4ƒ»’¨ýÉ©œãsŠKÃñ´`jp¢ý¶Ì{DåÚD‡±¹Äæ@Š3	ü÷ߟ‰H!‘S6)$ñ<EFBFBD>+#Ø^ D;ÕaëHÎñP~j]èx¤ÇDЛ…G;ªÿ‹µðÏ’•
´Ê¦«yæñõ(¿	ô£äŸ;c¨ÒãTïjo¦ö¸Ã›<EFBFBD>î<EFBFBD>¥&q‹i7>蓨1<Û>B§qkhLŽÖ´uŸÀÏÊ<EFBFBD>4‰™ÁÞ‰Zg<EFBFBD>‰¼½µÅ¾ãiT¬EG׿@1ÍËêð7ë>iÞáAåD*üÄydþa_²ö\øAH06®Æy2½µøw@ÈXÁ™-Tv
¹<EFBFBD>>vZËY_ÁIÍÂÒÆ©ýÇ9¿«Â%Š¬pÍÎ)ôð"LE¤¤Öò* )NQÚo=ß¹è•!±ø¤ºüñ)’4Ùx[·ë®»°ÜGG=–ÈÂUzk Ýl–û|~¥×–>¿CÅ`ï¨
+Z6¡C÷ý³O½•àº!ÞùŒKêEÕØäÍêé…óË–ïW/Â<EFBFBD> »³)¬›Ô#Z/d>ê~.ù<EFBFBD>“^COöS°êQÒkh<EFBFBD>d¥þxm2­.Û%77¢ÒËšFŸyÖM<ôV²LVeÁÔý5¾pÚíJõabOÈ“<EFBFBD> þVûÈpªNŸ4ÿ>9òt¦nfšú;Õ¤ƒ\‰ª¹X[¨ß Ÿˆ½´µ•Rñ<ПŠ†“8‚K#Êà­À×úÀ¤-§ˆ£çqN÷7ä»þR}ò,C$–Æm²>Hß{^/b7²ó+Ö-Ja„J.·Œ1-q{h}–|ðñù·q|$•–Ìy¶÷¡<EFBFBD>‡vq°Õ¸¹Y£,
¦‡¢æð]·Ùe#-ønüRD×:ƒœ«C{¤–¹C¢dôaÊ54¶ïÜn†ê¾uUQ~èR†à#Ö#¸·}Àz]-‚í“V¿u¶Í)ÙI¸Þ
ˆ»375RDÍXK6TmŠÉ<EFBFBD>ÌÒAD8NO#ŸQ+÷…Ï,<¦¼Ä`øˆˆÎœ°gæ{pwÄ;—È<EFBFBD><EFBFBD>¾¾Ãµö=¬WÏ…‹ª,žÏD|\iÝ7M¿p›´arðO¿ÔüÈ&+QcT¹–<EFBFBD>9õÊV9X.ªÜ1Óc^5ÞJÃÑ¢¥Ãµf_¬‚	)¡î£.Ht7ñ+œD<ÏÞK&¦ê2¤K“º\XKËÕÓÂà7þùÍUŽP=ɵñ釥Š<EFBFBD>ýœía"ñ:ÉËc<10>sù–q>ák¤ey˜<10>ëÞìj]§2l_§Jïw]µŸ¦@y!î¸<C3AE>w©P­Ê§N>;É÷ÂD`8Úül>àÒ²T@s¹‚~wƒ—æÞæø÷Ü#Á
+RüðrC`DÅq~RAfÅÛ
ç|VèUÖz[ñ<EFBFBD>¤÷œkØÖêD˜Yµƒ
+™<EFBFBD>ð¯%~³«Òò7ó´ròõ+Wuqú¤Þ¾íeo¬vùJ	îWü:	"à¢F3pdú5ò{D´Dy‰¬˜Š–ø¯+aåŒ[@x› <06><>Ûµˆâ?—ðq!aÚÆï·|õ¡ƒK|SŠÝdT¨ŠègóýêÑñð@pTˆ@òMã+$6DHb?ñùWœÇ†M“Vߘ˥㕲G÷¢R:$Û)#ó¥#](©±|¯ûA9›“Pë!k ÷ê®
98%îÿú@dgð…S—oZ„<5A>S{(Ô_ÆO=¾AŠ\
+¸É*›ŠŠËs3Ãnþwšã›‰Í»ÂÒ‘tš}žåÄ+£½½BÜ5ÍÉ
+cÝÒz—aùôùbñÁûQa иD"#aŠj r%Åè<Ãô_UMhN>œ<QZ[LrØ#úÒµŠ[°)¼F’…5®Ô:¾áÖKœÇ´U-ßÒl×þñXàŒÚžBšš”ÛÒ5úŸ‘9C
+Ê(oè;ŒRá<EFBFBD>ÿ-qÌR\=0DµKpÖy5b]:hê¬<EFBFBD>‚}|}ÿÁ¤—’#E–ʵKÙ©ªì‚>/ÀÎÁvÇ8JS´g•Þë)<EFBFBD>èým…ûQÔ
+$‹
<EFBFBD>qe1ÿQvfF9434¶x[NŠ³“ºåߟï—å
kv‹<EFBFBD>x¾J€ž‡í<EFBFBD>+W¶8l£q¥ÖjÎ	HãìèïN¸ËBh<EFBFBD>™`ç›îO
+
+l(ÿAW° WY
>?·îÒòm£BÌZWJ,^SæD@ëg‰ærRyú99€{V‡Õ¢Ìm²§çž´<EFBFBD>´ÃÛ­ô"¶xÉWAæÊ\ë,ßn¬wálë¼kNtw"m F¹!™ruÕßy¥%‚Ë%4>¡Æ‡ø‡ÉÖ{0%íÿguwƒ¦	–’†ID Íý¬­Ôo_
k‡rõ¿7¸=ÐÊNŽQä8®Ý¯ãö<EFBFBD>žöÆû#Ïð¸
("Zè=~ñ%éU²<͹[&E’Ÿþ
Íj–¹à¤mÁ†Æyÿ<79>:dACÊL•o…õø
>¬ɹ‰\Ìž;S‡ÉhSL`	öá«á'û>7`ëðA-ÝÚÝÎS¶¥u$jeÁ<04>^	¬a¶²XýB;#ZPb „ŸŠä0L‡ÿ¤=w•"ü¼¨žhÚ/dÿ~?î7çÔ4Õ`¹Þ1ÿWï‡";ÙAâjÐ9,3é~î¥OZS´zýH?E
mê“šCÝŽ<C39D>Ÿ ç„?<3F>U}‘_•®h<C2AE>‡±´D÷¥ÂÐÈ
¡ìq;ÿ9š’þ¤W8Sjå«4Ö0òÏt; å¨{¿!I2KÁ*_ ¬’‚¼g=>"Jži"<EFBFBD>¾š²åkÆÈR£Žð„1ëÓ´˜Š7ˆ»>³©AÛŽÐÎöú©Ýœ²¥æ㎡Ç9¹†ƒÕ<C692>|ÌŒ²
Ô'&¤~ò-ñsðƒR	ÀÌFŠÉôkqÅ°;düpˆ@šÏ!<`t"gÖGÖB!à¾>”±5·¿õDø`Vm€Ž«Ý[†Ò›2s†šåý™‹WŒQS<EFBFBD>@Èî*À}Ê=D½fä¿3ò%wpYfŒ'Uºó~Ÿl„…‡zHKµºµ3ù_˜J¨²fùÕÑw
—aÑíôŒãhd–ÁèW<C3A8>1R…}ËœÂn
•©&zŒ*p)ü4ÐxÀL™<4C>ehàødw}¦§hñ%ˆ¿X‰Ž¶mŸ—öXñÆ<C3B1>RñR̵w†þÃð Ó ötOâ´
ÿúÿý_ÅMš;ØÙJ-GÃ7Xa°¥?…ºÿŽÃe	%ErV®œ¢“`h<1C>"4¹ªð<C2AA>IÕ–¾ñ¿«’IÜë)6Ì\OU±”Í8H‹`É:™´ç4Æd÷‡ª¯Ä<C2AF>:œ}#\\n%è+n`!–AÒ¿$‹š
Þˆêcüð2úp̪ƒSŽF›7<E280BA>Ÿfä:K p±WдùÝÌšv`<60>L=C|t*4KüµCjÜEœÎ+ÒžHª#h`Ü1D1
2ÕD‹§©TÑñP>œbâÒªeŸ=º—¤J{ 8ŠF øÇyÁ”BêIv̵Oÿ"¿¾ïµOAúã¼ißµ2Âó˜°„{ñTÑ«|:gÅ^åÍ1«Î<Ôn»ÅD$rZ_ñ…†uËW`|‰&þp8E¿!š`ZÅÊd¸²@±¸N,bÏñØ&ÿ+äSém_ø7§þ™%܇´œœ{=nËP·1÷?Ê‘´'SуcР„iv’€Äë°¸[´˜O¨IDSʤÄÕ<¹pÉ*@Ý®<EFBFBD>¼’<EFBFBD>#<EFBFBD>Ý
¾ì%eëñOºó^.á§Ñú„SEØë1]$&8d¤)îí¸±v$
_EÊ-xì'·]lRÄà-åyw-¼~|“™JÒªÅá£Ä맳­còÄ·R¬ÊK8ÎÓàs×ÿ›íæ/zïõ>z„ÐY&|˜8N977>Y<>>Š
sb¸]Užé>n—‰h¥»Hé¤’^ß<>S°¤³ó<C2B3>×l¶½+ï"yqMÇßÞLC×aNîÿíù@Jé:hG}]£¦ûHÛ“'i
+û
+ð=ÆÉNVGã¢@WªqbGÅ®r·;GB<EFBFBD>MËæ–ÔúfÒ<EFBFBD>)ŸªMYNT(ÛýA³ÆÕß–3PÚT.Ýå¨ËŽt=<EFBFBD>^Žò·k<EFBFBD>‘<EFBFBD>z¾b.ok\CoõÐBCÄ‹N$jl$„ Óô›˜´@˜óË[†¢ Ç"v²)¿É¢'ŠÕIy2ÀÅ“×Òï»ÛŒGÜ1m j‰·ìú¶ïŒÍðò"@¼Ë1ÊJîð7ÞW@^‘E^¾óÙC<EFBFBD>¤§~¥”‚Q†Ä·oK;á0ã3!¡¶KRx½Ó8S©ËË­MMÜ$<EFBFBD>ŸúO±’%ÍP‹9ÿV¿0V>©&.ôÚ„­×•›jTÀ©<EFBFBD>ÒW´aÆe•ìØ›#V|£d±Ü¢˜Æd¥úà#¨ÁÓä·Ùn¦Ep9ûƒ¶ÜR¼>«B<EFBFBD>yq¶ì	ÍH,»9Îl¥‘ ˆ´ŽvnѱFÛ|<EFBFBD>ˆhãÒõ<EFBFBD>cmY”’Å鸄⎔ñîê5a¡{À¾:÷*¹äü
!ÜC8¦•æó:ìwêÛGÓAÄs(ÜOêð°] ü{§<EFBFBD>÷iaÄ	¤9ÎFðd3eÖöÅè€VŸ<EFBFBD>p‰ý§¢æî±y(*•?làwƒ¶ÔÇ
ø|Fƒ'·ËJ<EFBFBD>Ó?Üðk	áhž
wAžH£4<C2A3><34>„*6¡8™‚ª,4Uâü2\i˜¢òæ­}“Ìá:­Ú‡0·À’Auà‹<C3A0>ТW´O¸Š§ˆkzñË£üb¬¦ºAÒ°ÔõŠ¿
ð‡,5;Ç¢f¿éBÅ"º_hºe0u;DD¯qÐG²R¾·^Ç\1hwEwâò™¦¢<EFBFBD><EFBFBD>˜1·©àu³½£c߯mÂq–ƒ°âÂg¾
áÊæ>æí¼2~õ€õÎvg5o™óòâ7ÁèǺ±7i<]ªˆ–u<E28093>¿X ˆ]þv”W -à€üäübcP˜´¼L™ä¤ü<$­ìƒûÍWrÚÂÔ¼àk³“,êÏÑ¥
+o<EFBFBD>÷Kl<EFBFBD>ú~m8“èGœ€|)Çnd3<EFBFBD>6œMÓóÅYy{À§x
+â-mÅñÒ{
Í‹@·äÄàÎužš<EFBFBD>µËcÏP'ϦzáOìÐ)¦Õb/ç)–Q0Á$[I¡Y—WÊANéÇšv%D²!LÚÒ'=ýBýqòÉ`ƒ»ÂÃÉ€Â/449ÒÐ|ˆj˜%òªìYÌ7ä²ðTód¹ÏÊu<EFBFBD>œvnÕNÝxê{ÿÅóX_{èáWŠ­Ñ$V«67XíRç;íƒ!$‘¬ºaUSÚÞŽQG†Cyd‹G<EFBFBD>Ðº¼?<EFBFBD>yàÅ?õãæ¡£´Í¹ªpf„ßòY+TfB|¤«	†
+Üy†“9F†š-Ç90D7þgSôm¼Ìphk.έu'Ì©‰°ÅòfÖäHxSʤ\Í…çbˆˆÜ/â×þl¡ãÒÛtú¤Ÿnz˜¤Ò<C2A4>^~|S‘šU5þD%1j8”*'„Æ‘d3Kú8eµţ
“mwÀy+ŠªšÔhh å	‰ÍÑU<EFBFBD>$áÄo^%Ý4Ãyªÿðµx‡à©Ô5ãqàt<EFBFBD>ê¥Ï׊ø¹Õ)•ˆR©ô2-,-¯qTGBA÷TaüÝi×@Û€Êä<EFBFBD>ân<EFBFBD>yÚ
†#¨˜òï÷@‡¦„¼F«“/>ûV½ùˆÝÉ<EFBFBD>mät<?+<EFBFBD>¨<EFBFBD>:×
+2šõ¿Ó’æ«"ÙâP§@7V„³DþÍP¾XöÔ?Úº8êCÉ‚¯r2Ê<32>Õ
=Ö$!‘i¹…¢MçæI‚WšùÇOY€*•Ø*ig:!ƒ¸=…<><E280A6>}1’³‹Þå@_Z¸²„ñøeâCØLÛá”ÎÁzl%
+àìùyþ»®\ýg±˜õðê”R+]	<EFBFBD>ØÀH…þÈDPtšWKñRUü}¶H0@M¸XO‚<EFBFBD>¿#¨"³,/K0v÷@0¡{l²<6C>—ËwZ|PAd«ŠqCoˆrŒ”‹åë?(¾¼­Â²´é°ñâ†çLÍÉÆñÕ0Ô:aËâöð<ï׋¿
ÆÔœ|Üax}^‚µ).4._p[>áèkoÀStÜ#<23>n[¢<>ó¦’<C2A6>Ö]¹‘¸Úˆ%‡³—gÆɸµÙƒ¶BÚ.øôôŽÎoö§þ¢T³1 <20>V–%¶¿Ä‹ì¶˜,GP]S¯&+M‚™3@[NsùjZuÁTùáÚå…‰¥ŽšœÒºž-ƒ«·ì£c¤«Âå«0MºÇJæ\OEÚâÏQ¤_<16>ƒëj¯ÂýÁ/
+¿‡	 ›f2>É£2?˜Þ˜–ÅÚßœÍöj»e–žÎý·¦Æ7Çfc<EFBFBD>ŸÑæHढÅãï.²ô^ý£ÙTM	êpÂAò5Ñ4ï–üZÁ)„¨Ú<EFBFBD>Ùj¸8ç½I”Á<EFBFBD>DMÿ@²IõƒõhDgkŽ2ú<EFBFBD>$¹Ÿ¦¿Ë´¯É_Dé{ü¦Ã9Q²´æîMö‡¶³màè¼d	¡F+Çà<2•#!Y.³ÑF?\";GÏAZ¤jÊq"y>Ú6/KWȇxñ5g)뀆ÑíÁúÍœ'rÒ§³<EFBFBD>°ÕôÈ‚ ÃýÌWùë"×Ùéój,Mê{8œˆ„QA
+dÿWðQ	;3CGb³FH)Rmcl©g¡2ÉNúm~Î~§…MÀ<EFBFBD>‘|Ùí|ºøÒ¯&öSÜÎbñå81õ'㣟õ­O¢rô|é^}Ï/W<>Ì\ú2®dÎÑ‚ë&6ùó°ÊÑ?ä/È@p·4/aK¨¼ËhUÃf~Š¢›°PÈ—ÙŸ”	b5©iñ±6ËàÆ»œø×èZ§Qƒ5D`Ö'÷Ð¥:#"Ù+Ô8¢”|H>üX¶H¼Ó‰ÞyáÝßwgþéÑÞ…
ãÝå›fŒ%øt#)°5ÀÜm¶&ü?wºÕbìÑM[×hnõZ!²\†~º“éZ–qW, •díÌ@ô89aE,Ñ’wÛa_™qô¢c
dêÍW<EFBFBD>ûB¹uµÓŸ¯‘[[/egÔ•²b²û
</ÙX`Š‘Pµ¶Ù ÿæ1i\Zr&
+’PE¿šG<EFBFBD>ðð)?¹U@­]É?Š^BÿȈ^2
+³|qþöŒ„½ª~¨4U6OÆ¿êq<EFBFBD>Š@ê;Äx¼×Êïu¦Z¡ÿëix÷ìyqÇï„ððèÿF¥¦LO9^lDyAè†Lt<Z°ãg—ÄoœË²<EFBFBD>,%•6½<EFBFBD>óuö)ÑšÅ_š—Y†ÿ¶¯<4ÊŠ²G³È³«Â	hiü!/<«I7ÿs¦*ZR(5Ù¡6§š8®ÅVÛT²Î<EFBFBD>s1âK	L\Ðb¡‹§ßÒÐ蜀‹ÆH‘*<EFBFBD>4×<EFBFBD>û®gN¢0 °[j?ÑÅÆN/Ïzrím‚óÚïõû½°“àqC
+K<àBÞÌ#é6p°ÕX
“jîWNšÅd§]ÚA]Á•¾urÃíê
Ž<EFBFBD>ã›&<EFBFBD>¾¦h[>±ÎÑ®®X®¹ÚE~„•Ø
·dQê<EFBFBD>Vø@î‹íý¡</tzT:¥Þpø­¯2QÀ=­^PZ<EFBFBD>§Y\{oba‘‹–X5J­Üܶ÷±ÐJ–¿Z¥¹vÜÊ=:mTLÂÒFØAÈ<ïÝ®d¹mò‘ûZÎ-Ž%I Úä<EFBFBD>Ry¿Ñ<EFBFBD>-4oA߀>J¼].ËGtDk'£]¨À'5OšËŸNštœÙ°¦Fñæ’DB¿Nîô.ÞßÙfÇ8GaY °h~s‘êMÉ*l³ ¬0 !1¥7?<EFBFBD>¶\fÇiwCªn{ñ$4~jçã÷£ú“rÿøŒ€Ú´‡‡íw#D[®¢hßÀ2µ‘ÄçèÁÌzí
+Túf” øÏìp6¶]<z¾º.S14íšgCÃÎI±X|{Hßnb€µ®r¤ÁÞÑÝ+	k†}B]≨RÖµ5Ö'Ù^¿
Þ½â¥èÊŽ^E<12>,o§ u¥
ãìl¿,l‰_#db,´'P))<EFBFBD> Mv(<EFBFBD>.rQ¸Xáp˜Íû‚cÁE˜}f©Å™
+û0uÈüŸN»Ÿ‹|œš§$ 4Œi·ÂÂÁ%ÄÙÌ‹Û‘__Ðथ2ºå#*ñ{wk`F·0q¬U¨B>>í6û6]@‚JÞ’T¦aRË1l§¡í'¦Ç¹Ì‹¹åÊ$Mˆ­<CB86>‘1<E28098>—+þ·,È@…•·îyú€á#jkNèYܸëèS£Ð÷6<03>À"4)ø)õ…ÆM¼ Z5>¾¡
aˆk‘Ïó¤À¤ÝD3¸É!O»öåœÉ–brâŶñèÇtpêÆ~	Ø€ÅhPÞj|
+Dn´"‰(æ©´É<7F>r……<E280A6>MÍÈ<C38D><ƒ¶‚I«Ê<C2AB>LqïJÈm³Na#s#ûÎÜ{rh<72>â0ùض°›„Ër›¤é¯xž‹3È
ÙåŸÕœŠ´2¿n^üN&°ú)sü†5DT„Ó5M0Dw4%žâ®v;¾Îd¿tEÊ_tÕäáìKoÀúãv7[ÁÔÃYoQn‘Ëš%§ .<2E>ùw•¸òÁLÎÇ<EUÝûåÿ¸ÔKKðÿüÀÜù	¼ d¹<>ýQõy€R‰¹j‚e	íRèWj®§	¬°n.«P¸<50>Q‚KÉÝ°#%±Á‚Ý[ÊÀ±×½ÀÀçžÙFÕVwGï‡9cUòÍ]ÿ<>4.é67|\Ö `¤2j™RDýâ¸Ä›‘QÑuZtÊä	fÃï²×:¶N»œÓ|<7C><$¡à´£ÈeÅQ¼!ÄÈRÕ¾¢R×óØú<çú;€õö’cŒ2š\;"41jêÝòb\œZòcÒ’.‘b—^Ÿ<EFBFBD>4–mxš†ãÛ
Œê/ñ›®ï4Ëœ¨¸,¾Æ=Û¤]åL×V}Øêâ§ño’#[D

<EFBFBD>Q4'"3<>'6±
+?:9‰’…bøj¿ÑÚ;î\ÕeÛ(ÆpŒ$z3]ep†¨Ø»®5oV3ðÓÆÁÀÁCèƒ[©ld®Eô&	¯tƒy‹!9¿0Dgvj:+iŒ	|={üUÖOöZŒa»h¨™>cw\ÆüäÜK‰''üd1œ€Ñˆš7<EFBFBD>¸š—ƶÈ"bþ»?Qmä^Xxzï?)Üvw'Òd*%óØbª9É‘~Ák†IC•çj©ˆð8«u“>j‹°âmC2¦}V†¡”¹?òãz<C3A3>&#J²°ò´™ÆúÓF;ÕÿŽ«õ;’Ú¾n
/@ý^"*¨ªO.Ëö†¬^©c’­“SÊâéLά,ë}Rõ×kqů Ôg÷Ug¾<EFBFBD>Õ›&`—Šn¥h?ÝQ¸<EFBFBD>Â*{«WèÛÖÕÖXýðëêëm/ÿB×”e*b9,'$Ÿ°Ö—4ä\êUù	;–O­e]¬`¥ž<>)¬_„<5F>@3‹‰ŠLÒŽh裡¢$æɼ·¶·ùüÅ<C3BC>	7‹ƒ30cœ"Ù	jÐ<10>·c}3CQA
+FÊ•3ž%¼§HM<EFBFBD>OLS‚«Æ™/Š‚=|¥d—#j˜‚¢{T¢îoˆ,mŤ–<EFBFBD>¢8Ëëº@?ÄM¸Ò/FÌ
+\Ûy	^¥±ã·ï¶z¹07E…$›ëJ𬬕<P>£ÎƒÊšE
+ße2´[eŽp£Vn‚®yÿ<EFBFBD>Ò®#<EFBFBD>
Ôâ«X<EFBFBD>‰Ú;‹¼¸AÏyl$—Ì£ä8¿éî&exµFG¦µŸ—ƒZÆ9‹MiÓf
¤À­
:S[¶:_ W’\“ «Ÿæ§(,¦¯‚ƒäYŠ<EFBFBD>$¯âë<EFBFBD>£4¡.³f»Ê+N¿Ð5™
V<EFBFBD>æn°ÒDë¦ölšd¥š”!±¡ß~‘ã~Ÿ<EFBFBD>›n ¢>›[Jû²Po_á¢mCHOèW×`svyOÒ¬‘ô€Yäÿˆä?.Ú`©¢,øî=Vm¤µ&PkÃVQ¬AàU]!*>‡=7Q'Ï:À‹÷à€EJW?õ¥a™žV€µnÑ‚dhðåÁkàãV˜¶Y¬úBÇÎå²/vêW^Ë»µ<C2BB>ÓôÜûžñ‡†UÌõ¶	SÛà7†ôÃ"Q‚V“i‰4[Ä™Jÿ;=4@i›^ØK³a^Š¼QJ²0`•¬ˆ--»_øË¡¼MCç³ÅýŸ©ÇÓ°R<¹`À¿Ò&Û·W<C2B7>Ò]Û©TîETzUý{šM¤K)
ŒqI6 ,5,1Fµ5À>·$¦†«bÖ)œ3ßË“ZêsNtÿ}KöÓ$š®‰ç­ò¶°Vl~¸Ò3ÅåÖ©M<>¢…z¼â¯¥=ós.ãÖTüd'úˆ&Rd…_+ýè/9{·Ã8(z~B؈Ž­ô€ö±\쩘oót	f??Ê”H<EFBFBD>Óv.¬)+¼Ò2#c÷kgФ&Í)ðàÛ>Þ,cÿÑ)úŽy|cþL3oS àªcesk.†¡FÉ<EFBFBD>‰mÃOyo[zÁ`€!Ì0v€b$úN<EFBFBD>ŠÏ´Ðò7›»Æߨ©Í¡¾7A^(ÁÏR‹M:ÆV:.—sQKD±?“¿BXÇhJhK,‰h‡ÎÁY“29”£rn_-dXä@k(·ëž“¡’¸ ‰°¢“·˜µª¶›k¡ÿÔ<EFBFBD>;®tTÈ+î9÷Æ4LS]aü
ûT‚—E@™,
Ê«V˜t/ž]À¸KImtÆF{kU[3M4þfÎ篧¬úrG‰ŒÜ­îîk¦OÊט=?©m|¸ÑDÄXLËÆ
+Ë×[H_ßf7`o6x¼rWMhÝ/õˆS.ç:“–Tkf½<EFBFBD>`kê ¥Úo^cq¶*7pñ8¶ÊK@èå›á]Í$£ßðÀÑô)Ä|úmÈ^
ã¬^ð:ï°ÄöC@XüCFµÌK"m$/S>دÆõ°‹ BÙƒ$
ÊL¦“£bšƒ€dz‹®ã~¶¬‰<0C>åÙ²aºú›9_Bd±§ºP»ÅÈÃýIÖmçXùÜaWçå‡åqsn®¦1ð#vX)Ac”4ù:Òább5iJ§S”wVª÷¢—éi€G<E282AC>y|]Z% æ¡Ï2Q›¡ôï1JÅ×þ&LžÌÔ“tgèI0
OQ!w#U¦bTO‘jŽEG‡&|;C%ùûlQPÙvFD~Q—ïóRda´¯ñ
+…ÆWÑTí<EFBFBD>hp—“œn¡ßº¥cNC­zÊ?ú;Þ?F]ªç*ó&<EFBFBD>’G+jî0$°ÙReGIvw]µÁë·=085ý#Àö/‚¿Féèpdsjj-£OïŠ<EFBFBD>¢_VZ><EFBFBD>ŖݨuœT®î-ÞÜ–ÞÐÑ×59ÍS´aDÌg÷§Aw<7Fµ½%²ª^¢()¢ZE‰‘€ó̆âßEQ]W_ÀUËéfÒ‹zJ;‰ä–Ê<EFBFBD>²”Çz’¦Ò@ûÖ&[ì×TuØÝmƒ9øÎgÏfô„jç‰ó= ÿM0øF=8ƒ—Ç#]küiZp%þ6œ%³gÿ~A^¢IMÑøé‹úaBw*"Ö¼ûÍ„6Ž·*<2A>¸µ´›ë⥈ÍPæ{ñÐ	;T‹Ùoa|Weð+B!<21>{9‚;@
+ÈÐMHÁ«(ó'¯¶¿¯pA<2M<32>ɧÿQ4ªÂè(«iWßnŽøA¸¿ïwÕV5!&·ß„;‘F´<:uÃÌ`m\ÚÛ­*†)îðnÝñÔþîœ#Õœ‚˜›²=%®2;Ëq¤?J‚BÝYò+š²‚ìmx	oÈîet™}¿Xl<58>9-{ªÜà#§óToêÐèX½ÉÕh¾WïÑ=ÝyÛ ˆ‡*’ól»@±?§¨É-C4ÂL&?U/Š^8•hAªpJ'yS‹\§‹e<EFBFBD>n¦€AwÝŠ_õu´þ¾˜Çé<EFBFBD>·<â”Nëí9ô~<EFBFBD>…/ÒŒ0vªéfe[ÎL_iÎ<>Lú3ðˆj1•ë”1ngÂ]ºùÞGPWVtáÝ]¨å<EFBFBD>iSï`{‚üž^Ž´³‘B¸ì'çuå™81µm¾þý›Å	ò@êi¬`ï†)õÒ[ð8í¡7H°¯R<º@”ãhÙgÏÐñUk\êtNg}W²†`½<>iÒ˜rO¡{(³„ϳ<C38F>8Å–BΨiŸ²‡<1D>Ü&æÀ/ï8¸ßd
+¼va¦¸­W¾6½a§Û—–9Œ÷‘¸­?(•ÙµC?ÁeÄ`«]ãíY…kn¦pì'~õmãü‹Òîð›Xù`
4šƒcÃ̲ÏÒ?ÐÅ7§£rð»YÐF_î5QSþ;Ã{d?ù}<7D>­vá°¤'ųð[
SØ:nçæ‰s<EFBFBD>
Ÿ˜Êàèi.i
õx|<šùjp’œVû»<EFBFBD>¯§«ÓÁÂÈ&*¾ÄÌMSšÜàXdû.áù
9|CH‰ÐOÇ›O1d/Co²™}¿…HŒc±k£|{„=BgpûTû„øtŒVÓ–Z³÷ž¢1»ÏÃÄÊBÌÌôÖ	¼ÔèWv<EFBFBD>ï¦ê\Í2×JŽ~º6͉ŸdiQ
+±ºb¾é[šë(ÏØ€Ü&ù½ƒbŒìk6²#øÁ‹rVŸÌ’³•
+¿ —ë¹-÷}UñçÚQE·2ÛÛ:FiûacÕ ³tW:nÖg&EšãzÛM‚$´¨‘³ôÚ
¦`JÄn2Ò÷bB¢±Ÿ“¹r9§UJ¥A’™s¡¸4¯OYk*f¯¨ë@‰ÜÉ¢ÙÇÛ|8<EFBFBD>Q)!Wñü}ðüéß±ŠMû×Z, áî'A1t¾B†b
ýVÄž<C384>Ë
˜n}æÜ
ìã(~<7E>XwÚ+ƒœÉ<C593>àò±ž¾Ÿ’¦æûØOCÅÌœQüõ,ÔU¥ùië
N¨0%lpíùF
‚Ä»QhÙ=ƒ«£ùÍQ§o÷i; sb¯oÇþ¡ázäåÚöS¸;|æã	_3·)SSîÆ?l‰\ÝPù`Ê*.!HbŸ¡H—ó«á
+
+Ýû…ä/˜@h)—‰s6„„A·t\±òã¦<EFBFBD>ŽûɦwŠ‘Œ'œ‘Üah ëî´¨’-;«(ą̂¬¬Âãi)îðÌ}ÆpÔ²‚ž[.óö€¯’–¥®GÂ:ÍÚÌS01pðÀU<C380>Ú +b½9b<39>xJhŠCÌÖ™æåƒ8ƒtöD± ½DHÂËžŸu¦=<3D><>«ÇÕÍöµ˜¾œÞL@^<5E> ÷*óðt;ìPBÉ;GÿD(w<>Ecù;< F),Ô17Ô:zTDªTóÔÿ”ñgy摺A³Â.‘D¨¢­™ªÁ—Ú™üÆT1e¦0.¡À€üGì­â^62EŽÉˆ<04>}uNf-,mòT›»*‘X6_JÜg<C39C>‹ý\5Q¹VZ¥¯e‰ËÄìy3¿ÖüAÌÌ’\÷ëfÊl·Ð*¢«HÑûZÈ0õŒéùcãViez“ÿבíO¡Ço«®=Ï!¥H½7(Ê<d5<Û“>ÎGjë™ÞäÖÑ]âk¦h(H¼¾óŒŠ=«¦ÁÏ®
+zåþYˆà³Á ýñ<EFBFBD>õ&HPè*¬ô	òæhˆnkP	öˆ}ði<EFBFBD>Hý,VÕ"ëF®©^VwÝž<dÆOõ¦ð%^¢d¤n7ÄC|À‚ÖGk¥¿À¤LÞd/½Ìçt9ÙÒ+ÄQGrÍÙÔ‡í-oäiTÊw;‹;™“j‘}0ò¯#(î‰Ñ0ô§˜Iæ‘FŠ_7ºX›_¥hë
<01>’s&ŒÌ®<C38C>݈»Ÿ Â¦Óâ¡ÎzÂÚ#Éw¼%àûIZLGS(yìîö
+K<EFBFBD>Ý”ëÂÖ
ÿ°‘<G( âó-ÇŒ¿ÒÛJz9û—ªÇ<w¦8ó³
+ “w6¿³k}#£Â8ŸÕ¼;Ú’¤JŠé»s
+zãŒÇHtWÒ[àôÞñdwÏ,>Bas;+•œ2—÷J?ÔûRÿ
¿9ÜýxONŒòK]ÀËnjn%<EFBFBD>e-/
+êé—=›Ò¥a™ÐÀ¯#‰•Ó}ìµ¼òÇß`mÖ´þâš<õy‘ wÿÍÐp®•´»jetãk<EFBFBD>\vš9¡aÄGaái—óåÃIž£‰Åž<EFBFBD>¦K¤b n¤ȪÝ<EFBFBD>¢‚_·:D@ÂGòÌãÓØTüâ:ë/-mÑc€¢œ¢ãJe6¸T’.}±ñp¾<EFBFBD>˜%Uu»)EÉ8O€~6Â%ã’Æô+­‘¬Ýz@’Ïœìê–fÊ«®ëõÞº½úD€iÓ ÈÑ0ÆÔVÚÒääjGiv·ÉƒÛQ.GcðÚc~£ci¦
+<füŠv¿MÂÓ“/jKº›Þds”ÿR”Ê<EFBFBD>
C²Å¥‘š3ù¯š8ihX·rºJäfÁv)úå)„â#qÓâë“B:,	 –'LsŸ…ZÏ’'‡­$3X<žªPœùOñ5hE߯dWªQìqÊuh¤Æ<EFBFBD>ËêòwªÁI‡ô:ðiÁ~*•ÒUÄ)	¹V±ªå{éq'N-\À×#’_–¡JÐ"Q(T½ 9&¥6A¹ZI“×b}Ì[
+`Õ¢Þn}kÕ»}–ù†ñ<EFBFBD>×ʒI’ »!Çä»2µâ[ƒÙÞ‡æÎ)uTùäè>od¿€MKؘP¬>1ð Ë›­ÿš+»¹·Š¼¾jO\¦}€]vÁ`÷éßíx<EFBFBD>sÛ›þa<EFBFBD>³[˜ÿø˜Æ\¢²q<EFBFBD>‚â>ôdÔé˜SÈAð…%ø+mÀ“Åɸ”rŽnÈuŒE¨izU@tv"p¡P׸šcæç‹ì©—<06>|ÂÞ(|nñ¾žlYH$ÉýÌ9ä©	y>8–éÓYgUÊ;öqeK¶PžBeVtJ­âœRP#“&Å5ŸrP¤ò¤`—~“
+ÏÉaø"¸<EFBFBD>™K÷žwõŽm%õ”’|––\¤ûöÃÕ¬;Ó8qáó.‚ÛEñjîïh~ûûÿÿi”IPD$Èü…«éÌPΩl]<b
S½iuÏÕ´€’-§Û €´¶r…¶Í©N7Ž]a©#æÙ¶ÑB÷>¹SYæÖZNx”ºðÛ㦉¦ïú¸Ä†I	Jeµ¹ön¶:¥B?ÒÚVá‚6PgV8o¬¨<C2AC>r´<72>5uDH<44>
+Íâê|ÉŽe'Ëà)¾F~üc‚­p×RßpÂöÉx™ª<E284A2>	ßhÜGÉá ÊP"„,n¶…°:e.»X-|ÑKµÐ¹öÁ˜¢øµmrjY{•®H‘5ÎÂâ¥6ù6+íGÞ-5<·’f€úÉà_Ãè834÷i¬Ÿ`uƒT®dQ>„Ð8oCü©ù¥Ô´/BVE<½Â3&…	Yó¡û’áI‰øPºí6å:8Ž;ÊVçÓ‚°{ò´±~)ÃøÇSDÅÊ5v¸ÿw¾|fjÛ¾-±Ç
›I£:‰qD™ùå dÌ(µA±S¶<53>ÜXjM×!\wøºMµö¦Òìýüò›MU«æÜݾ[U³~Ì™ï³<C3AF>¹qÛÛš.|ètò$#¥Ç•Q
+<EFBFBD>z~òö‡w6Ä.°¨ÐQ(ÐEWj:k’ÕJÕ¡ðj—ËXaï&‰Ä®“6„>¾€Óö'0ÆÕë·jÏت8G	ì·lhÿNvÖu¦oèF¦<46>Ž5Åÿ™d¡üCÇ="xQ(¶+Ø÷ÈVEýº¦…¤Ì)c·¬\,¼¿ò’+ÍæÁÏú£}ýàŒ&S~á87(*»)Õ[àÖÜv¸±ñÛ $A³äœ/5»y-Ý­5p¡‰B-¨šµ<C5A1>ž)Ad5]$=áät¯`!U»œ9pÃjøbF.Ê0ŒºEœ‚ã×禓`zûõÈÕ¦¾d¸µëÊX¦öú±ØuææiUê2Š­q‰v®¢Å@r%µlGFºÀóD2ôN?¿[ÙÒÙT/}}L†m+<2B>ˆÓY*-Èv–˜Í”2¸öÓä(š¹ª¯ õaÓÂ1–ê–mXš•ô³alƒ~õÄÀ‡»Z[ÑBÛEg>Êx66C†Ü•HvJÔ´ZÕcßÊÔ=¬<> îö?¬ðž;¯A9ž<39>ȨXò†]ÝCù–‘AÌú^<[…ä=ÂDµç<C2B5>˜¥„õï¿/½!a
!d÷’ª,ša*èD<C3A8>gBä úYwûXoYR¥ð¿·"€[üzÖ!¯Ä¥™àVÂúÿ·áÏòl=ª÷BV†)Lg2®ßç«·?­]QV8‰õ™+&]
Í\¤ ^Ê>ì]·<>„UJÊ<4A>è`àTuÉ JrÞî1òâxùi’”Ù]œê”	Ÿ c‡"¯2…hÚ}kGIÚHdþ_p0ƽijûi…€"0ÓQ¶ëD”…åã]sâ¸e÷R"w¼cigVæÍÁ`‹"ÙV(š¯LÎuÓœߊPFŽT<%œ
½ÀÓ5iÍȺÖ¨EßÐе£Ôìß}R®­­ô™SÁEÀ‰ž<E280B0>E|jŒ+~N¹oikŒÍIîÑÌÀY{	°™Qc©ÉˆÊ“ß>>šŒÇO°³Pb…—¬kÙÔÁF€ …þÕI¯«˜Ú<¾J‡H0KM»¡„v<E2809E>åv\®¹Ê-zjo9š/c9ûô\HŒºã<EFBFBD>ÆÍ]Š…+ŸÁ䰘ϞP&Kõ•ì[1úü¹·ðšgOñ:þ™×>íêm#«(n¡~Âã<z†1ŸÎÚßBPf^Ñ(÷²¢à¾ÝH(ˆG2PÝÓ×Kÿžü´s<C2B4>ùÈXÚ<58>ߨ«ä¼_#«àÇJþ?Êü<ÁÚ¾‡ý*Xfy%éë)iî`±x¢Ã‡ŸŒñó­ ¯~1§É1*ó¹¸CD­š•ÏÂT<C382>^Áa¯æbdw:w{±ÇÇ M”+ùSªÑ(¼V@µ]ÔöÓè—¢Üv>æaȇA­çv;žØ‘î3@ôÙzÚõ Â×g5osÅHX~ÊDÌ¦TG:ù³	
iíòYtÁ~¥”U¡r ¢^±þî¬8»z¾üÏo/Æûªë朜oÜd’ê*’ù=€Vž }‰IŒYñd@²*ß<>ÏBÐíQEY€lºO“—Ì\ÛŸ¶sò÷^ù;w˜u<>È‘Õ	¬±*+¶:^²ó]ÂF	æ;w.Þ<>R…±Ôñ@µAúO=2ÿ½=+¸÷%<C'ðHCÈ¢ÉsŽÛ© 
+]•¶óŒìR®þ,Îá Ž<ª¨ãÐN³¥–ù4n1<EFBFBD>²
 UjïˆÕÖÛܶÞB/¾.ôLtKM{î’F›qƒV2ù(Aˆµh+}‡<EFBFBD>»>vÄA¤Y¾d<EFBFBD>=V¦hÇÒwï¬Ï<EFBFBD>uÚâånÑÓ§^È­«=-­ˆ;¾h&#‚C²í
óšáXx˜3Í-[”„z.œ2$…kV©­\Þ‡^(~†Ž<EFBFBD>ÇX¸¡vÑMb¶|ƒ'ÆŽ׫õÚŠŒ×³)¢™ ¤¥þP´5IÎf¸Õ
Ë8IŽÎ#+34lý-ÊÐíhB4„<>µdÑ:> ó†Ô”uÏIFølDe<44>|ˆÁ<CB86>Tq©gÔå*j¿ÇÏ7‡‚F†ïÆ~<7E>6vÕ§_òö,¶P	´DáÛ ×b0Íçü_¨íçké·bÏñ™¦³€•JU4‹Ô¤´:Žà7|Ã3rN`â¾áÍH‘ŒpŸrR\Ó+¹ìoqò4+ÁÒ·D°õÐĺÊ[Ã&*¯/Æ2Ñκ“ÅèIô2Z·#ã¾>÷Vv„Fé‚œÑ<C593>•Y†ïÞ?JƒhDg‹û¢ÒÙõèÉãpR<70>„îkжŠ´¡3\©»èXžš§>'æëä—«´>—×dFž<EFBFBD>ÐZÍíÙ8O7æò¶~)%z€Ýµî(y²ÓöU_˜MXiaªÇ]Wœ¶øcPeųÞÒq›¹ËÞï<EFBFBD>ëAP“’Ø*M´ǺØѤÂfÞüFw-4ăñìÕ:×ùÚýº0^ñóy" “†Êm>±ná+¡z1¢Ü]Pn¸˜²„+syu×<75>Ÿ<­eq’M¦’±Ï¢PÑç©ËÀĨ̡¬M²µy“ËÓëàÔŸû±f.‡'lÚözéI0~4é(%;);ÒICCJa„J–|pŽŸie‘e›¸<E280BA>¢•Å·‘¢”Ôp ‘ô–¬#£nÇ
+ì­¶¹ç>G2
+/ñs´]Pâú€#4®?ßýŽbX5Œº©ºaÞ¯ëQþÈó‘OKF"oæc÷ð<C3B7>’ÓŠuéO«
º»;H®[%PõÐ̯Dì°ð4q'ÇÁ¸ôâЛrÙ˜)˜â˜¬×"ê¤ç7­¾ËZœÀ’`–†q”‰9i?ûS¢nÂkÁQhÏhË1Æs3|œvœ}•S¦üØ<EFBFBD>èWÓ±›†PðäîaÑWÉJ<EFBFBD>àÔYaæ¦áÃŽÅ ³}霮»òÌÐfä[ïYÂGpÑ*ñ<ŸªM[ÿ•SMD€¶ÓÃvÊHˆX­ò™Ÿ<EFBFBD>ë²Õô±¥\Þ#  xòyB!ÈÜÊèTÔ¹Û1»æ€þÐ+Ü<EFBFBD>n$ýçÌÑ5[Q69^ëÄ
6y16PIÍm“]<EFBFBD>g_Ü ÓN׬q…Œ®œÂ[ <EFBFBD>¤ª‚7ç¶2
¯åÒĽUÝé"Îðúé
íåké·b
(FzÿŒ„g	?¬‰¬¦éÍÀ†fB>…‰MXqjêL’s5¸ßMaŠ×ë¿<C3AB>l¼¥ÞÃÏbúê›° bYëñ‰5!Â×Ǧ‰DâÜt0ÞöEî”JOyÿâO-„Í‹ž`Éö3²@"ïh†´ÙX.€OÉ’-o<EFBFBD>q^Ù¦é?¨ÍOø€zà„‹…‡‹u’®úœh]è–/¡¿åÂ}A´xÐ/Ø~ôÉ:åuó+5Ùr†QS2‰Ò¢–¹|cä-qná3PÈ‚ lHLLBa2½‚_fÛ„w¬s,õ%4–4Ä©”‰9ôŸoÇp)/¬¸CbôGæÝoÕ¼ØÒç}þ
+cÒ3ç
‡¥ðPoù¥›ŸK<iß7díîD\Uí¹ÙzáàŠ»hj¢yö<EFBFBD>Ÿ¤Š
먧šÍÀå<¼Ò²@üb¾ÐÎ.×ÛBèÉ–b&§«%.
cØ	d\æšrõUgy8¥`ìlõÎKuPÌ•ëíf×–ÙÌv[$ZÂL²Œ<EFBFBD>ÖÁÛÏ<EFBFBD>17”t¤¢«ö¹¬ºB­æäî~!ì9·âs&é¨é"IqîÑQÏ?M26`H¢¾<>g!Ô&N-BôÚ{¦\›å'Oè(f×Â
̃¹ýÖ<C3BD>—D]{"G›š9Ã$Á++bB.·8ß8›E«D¸‘Ô«;U¹cYC%`ð®´Ü|Çe<EFBFBD>
+€ï:&ùf£Êá/#Ì>±H´®˜‘~^t“tñ&„c%fßCé†vö<EFBFBD>ù¡Þ×Î6ï©*ª˜^‹*§Š
+ˆøÔF¾—5¯ÓTN;ôY—qªí7ò“Oœ{7[&-Óyiœ0É)¬úª…5ÕŒ<Û]ˆËT)¿†œbù—^$(ØþvŸ½	ŒœBlv[Ì:ðÐ
+Ê]nÑ*Vk'˜$0ÓI5è(Ø¢Òƒñ|y#I¹Ð©iÛŒî(j¸‡*ö7_35´| é`
E<>zÒ­[ãýdx5v1nöúõ<ã4Bø:ú4£¾28f£X×`ò87›AÇ5Øq<C398><71>àó,Y<XÜ{ÆׂÐJÉ“P™<50>&ì%/ü°”VêÛõcÜMž0HÎÐüDô&éÜÞ‡Bÿ^Åî{_-žCDŒêÁPòš(hþXiü¼ìö0„™QQùê
Hæå®RÒ¨&>£#<•WQ2Ë<}ÿrU¶
+/Š-Ž­fÅ¥{¢<EFBFBD>~)<EFBFBD>~Ø’Ž

îç”yÀŸ¥lI¿ÖY|pÌÙK´Ó±éSyC%.åÿìoO9X‰!-®‡¤LSý'æw1·:E6ñ¼œ†@©{Ð[ñ3<14>2“²kÊ*üþyTW*°?|.¦›ÂŸ&Iú¥þº?88E=õc£	§«!ìœn<Æ®h]_d´V±nßqƒ».ŸBÇŸåìvjï8#3¹»§¸¿\V®Ÿsþ¥“º<E2809C>‚Š}/Y¤·rõs™à
Eä3­7vûº. +%£Nm4lz"w<1A>	úœ6ÔýÞ£¦«)¬>>Í)=`à‡YdßcßJé¡„wrqrô¶™Œ‡†‡	Ë®¡œ›œàö±°±3õØËÆÅÆH
+íàÛÚÛ]õðïðr4
+‡I,œ^A4/./±sVIDCDƈk^YXYÛ<EFBFBD>€snmn𲕈ƒ‚ƒǪ<EFBFBD>˜—˜Ü¿²­¬­/ñÔÇÂÁÂDéÜ×Ö×Yþñìëìn0

ƒE(˜Z=0+*+­oRE@?@„gZUTU×™|ojij쮑„~
æ™”“”Ø»®©¨©+íÐþ½¾@åØÓÒÓUúíèçèj,ýüýA$”V9,'&'©kNA<;<¾€cVQPQÓ•xkfefèª<EFBFBD>€{z{ý¿¢•<EFBFBD><EFBFBD><EFBFBD>Ô·ª¥¤¥'éÌ¿º¹º<þáÔÏÎÏQöéäãäf(þùøù{= 
<0E>R5(#"#¥gJ=878º|_RMLMÏ‘tgbab䦉|wvwù»ž‘Œ‹Œг¦¡ ¡#åÈ»¶µ¶8úÝÐËÊËMòåàßàb$úõôõw9
+	
+ŒN1$¡cF9434¶x[NIHIË<EFBFBD>pc^]^ࢅxsrsõ·š<EFBFBD>ˆ‡ˆ
+̯¢<EFBFBD>œ<EFBFBD>áÄ·²±²4öÙÌÇÆÇIîáÜÛÜ^ öñðñs5ˆJ- <EFBFBD>_B50/0²tWJEDEljl_ZYZÜž<EFBFBD>tonoñ³–‰„ƒ„È«ž™˜™=‰£
+--]]

repository/apps/app-kmt.lua

@@ -0,0 +1,181 @@
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+
+-- app-kmt.lua : LC emergency plan
+-- Authors: 20kdc
+
+local lcOverride = false
+local l15 = "20kdc.duckdns.org:8888"
+
+-- unicode.safeTextFormat'd lines
+local console = {
+ "┎┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┒",
+ "┋         ┃ ╱  ┃╲    ╱┃  ▀▀┃▀▀         ┋",
+ "┋         ┃╳   ┃ ╲  ╱ ┃    ┃           ┋",
+ "┋         ┃ ╲  ┃  ╲╱  ┃    ┃           ┋",
+ "┋                                      ┋",
+ "┋      KittenOS NEO MUD Terminal       ┋",
+ "┖┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┚",
+ ":Type text, Enter key sends.",
+ ":'>' is 'from you', '<' 'to you'.",
+ ":':' is 'internal message'.",
+ ":Control-Arrows resizes window.",
+-- ":F5/F6 copies/pastes current line.",
+ ":",
+ ":",
+ ":Enter target server:port",
+ -- 14
+}
+--++++++++++++++++++++++++++++++++++++++++
+
+-- sW must not go below 3.
+-- sH must not go below 2.
+local sW, sH = 40, 15
+local inet = neo.requireAccess("c.internet", "internet").list()()
+local windows = neo.requireAccess("x.neo.pub.window", "windows")
+local window = windows(sW, sH)
+
+local tcp = nil
+local dummyTcp = {read = function() return "" end, write = function() end, close = function() end}
+local tcpBuf = ""
+
+local function fmtLine(s)
+ s = unicode.safeTextFormat(s)
+ local l = unicode.len(s)
+ return unicode.sub(s .. (" "):rep(sW - l), -sW)
+end
+
+local function line(i)
+ if i ~= sH then
+  assert(console[i], "console" .. i)
+  window.span(1, i, fmtLine(console[i]), 0xFFFFFF, 0)
+ else
+  window.span(1, i, fmtLine(l15), 0, 0xFFFFFF)
+ end
+end
+
+local function incoming(s)
+ local function shift(f)
+  for i = 1, #console - 1 do
+   console[i] = console[i + 1]
+  end
+  console[#console] = f
+ end
+ -- Need to break this safely.
+ shift("")
+ for i = 1, unicode.len(s) do
+  local ch = unicode.sub(s, i, i)
+  if unicode.wlen(console[#console] .. ch) > sW then
+   shift(" ")
+  end
+  console[#console] = console[#console] .. ch
+ end
+ for i = 1, #console do
+  line(i)
+ end
+end
+
+local function submitLine()
+ incoming(">" .. l15)
+ if not tcp then
+  tcp = inet.connect(l15)
+  if not tcp then
+   incoming(":The connection could not be created.")
+   tcp = dummyTcp
+  else
+   if not tcp.finishConnect() then
+    incoming(":Warning: finishConnect = false")
+   end
+   neo.scheduleTimer(os.uptime() + 0.1)
+  end
+ else
+  -- PRJblackstar doesn't need \r but others might
+  tcp.write(l15 .. "\r\n")
+ end
+ l15 = ""
+ line(sH)
+end
+
+if lcOverride then
+ submitLine()
+end
+
+local function clipEnt(tx)
+ tx = tx:gsub("\r", "")
+ local ci = tx:find("\n") or (#tx + 1)
+ tx = tx:sub(1, ci - 1)
+ l15 = tx
+ line(sH)
+end
+
+local control = false
+while true do
+ local e = {coroutine.yield()}
+ if e[1] == "k.timer" then
+  while true do
+   local b, e = tcp.read(neo.readBufSize)
+   if not b then
+    if e then
+     incoming(":Warning: " .. e)
+     tcp.close()
+     tcp = dummyTcp
+    end
+    break
+   elseif b == "" then
+    break
+   else
+    tcpBuf = tcpBuf .. b:gsub("\r", "")
+    while true do
+     local nlp = tcpBuf:find("\n")
+     if nlp then
+      incoming("<" .. tcpBuf:sub(1, nlp - 1))
+      tcpBuf = tcpBuf:sub(nlp + 1)
+     else
+      break
+     end
+    end
+   end
+  end
+  neo.scheduleTimer(os.uptime() + 0.1)
+ elseif e[1] == "x.neo.pub.window" then
+  if e[3] == "close" then
+   if tcp then
+    tcp.close()
+   end
+   return
+  elseif e[3] == "clipboard" then
+   clipEnt(e[4])
+  elseif e[3] == "key" then
+   if e[5] == 29 or e[5] == 157 then
+    control = e[6]
+   elseif e[6] then
+    if not control then
+     if e[4] == 8 or e[4] == 127 then
+      l15 = unicode.sub(l15, 1, -2)
+     elseif e[4] == 13 then
+      submitLine()
+     elseif e[4] >= 32 then
+      l15 = l15 .. unicode.char(e[4])
+     end
+     line(sH)
+    elseif e[5] == 203 and sW > 8 then
+     sW = sW - 1
+     window.setSize(sW, sH)
+    elseif e[5] == 200 and sH > 2 then
+     sH = sH - 1
+     table.remove(console, 1)
+     window.setSize(sW, sH)
+    elseif e[5] == 205 then
+     sW = sW + 1
+     window.setSize(sW, sH)
+    elseif e[5] == 208 then
+     sH = sH + 1
+     table.insert(console, 1, "")
+     window.setSize(sW, sH)
+    end
+   end
+  elseif e[3] == "line" then
+   line(e[4])
+  end
+ end
+end

repository/apps/app-telnet.lua

@@ -1,96 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- app-telnet.lua : just a utility now
--- Authors: 20kdc
-
-local inet = neo.requireAccess("c.internet", "internet").list()()
-
-local _, _, termId = ...
-local ok = pcall(function ()
- assert(string.sub(termId, 1, 12) == "x.neo.pub.t/")
-end)
-
-local termClose
-
-if not ok then
- termId = nil
- assert(neo.executeAsync("svc-t", function (res)
-  termId = res.access
-  termClose = res.close
-  neo.scheduleTimer(0)
- end, "kmt"))
- while true do
-  if coroutine.yield() == "k.timer" then break end
- end
-end
-local term = neo.requireAccess(termId, "terminal")
-
-term.write([[
-┎┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┒
-┋         ┃ ╱  ┃╲    ╱┃  ▀▀┃▀▀         ┋
-┋         ┃╳   ┃ ╲  ╱ ┃    ┃           ┋
-┋         ┃ ╲  ┃  ╲╱  ┃    ┃           ┋
-┋                                      ┋
-┋      KittenOS NEO MUD Terminal       ┋
-┖┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┚
-export TERM=ansi.sys <- IMPORTANT!!!
-Enter target server:port...
-]])
-
-local targetBuffer = ""
-
-neo.scheduleTimer(0)
-while true do
- local e = {coroutine.yield()}
- if e[1] == "k.timer" then
-  while tcp do
-   local b, e = tcp.read(neo.readBufSize)
-   if not b then
-    if e then
-     term.write("\nkmt: " .. tostring(e) .. "\n")
-     tcp.close()
-     tcp = nil
-    end
-   elseif b == "" then
-    break
-   else
-    term.write(b)
-   end
-  end
-  neo.scheduleTimer(os.uptime() + 0.049)
- elseif e[1] == "k.procdie" then
-  if e[3] == term.pid then
-   break
-  end
- elseif e[1] == termId then
-  if targetBuffer and e[2] == "data" then
-   targetBuffer = targetBuffer .. e[3]:gsub("\r", "")
-   local p = targetBuffer:find("\n")
-   if p then
-    local ok, res, rer = pcall(inet.connect, targetBuffer:sub(1, p - 1))
-    targetBuffer = targetBuffer:sub(p + 1):gsub("\n", "\r\n")
-    if not ok then
-     -- Likes to return this kind
-     term.write("kmt: " .. tostring(res) .. "\n")
-    elseif not res then
-     -- Could theoretically return this kind
-     term.write("kmt: " .. tostring(rer) .. "\n")
-    else
-     -- Hopefully this kind
-     term.write("kmt: Connecting...\n")
-     tcp = res
-     tcp.write(targetBuffer)
-     targetBuffer = nil
-    end
-   end
-  elseif tcp and e[2] == "data" or e[2] == "telnet" then
-   tcp.write(e[3])
-  end
- end
-end
-
-if tcp then
- tcp.close()
-end
-

repository/docs/kn-perms

@@ -63,8 +63,7 @@ The security check may be aliased to
 "r.*": Registers a service's API for
  retrieval via the "x." mechanism.
  Returns a:
- function (function (pkg, pid, send),
+ function (function (pkg, pid, send))
-  secret)
  While the registration is locked on
   success, attempting to use it will
   fail, as no handler has been given.
@@ -72,11 +71,6 @@ The security check may be aliased to
   registration with a callback used
   for when a process tries to use the
   registered API.
- Unless 'secret' is truthy, a
-  k.registration event is sent to all
-  processes; using the secret flag is
-  useful for a more ad-hoc security
-  approach.
  What that API returns goes to the
   target process.
  The given "sendSig" function can be

repository/docs/repoauthors/app-kmt

@@ -0,0 +1,2 @@
+repository/apps/app-kmt.lua: 20kdc, Public Domain
+

repository/docs/repoauthors/app-telnet

@@ -1,2 +0,0 @@
-repository/apps/app-telnet.lua: 20kdc, Public Domain
-

repository/docs/repoauthors/neo-docs

@@ -16,6 +16,4 @@ repository/docs/us-nxapp: 20kdc, Public Domain
 repository/docs/us-perms: 20kdc, Public Domain
 repository/docs/us-setti: 20kdc, Public Domain
 repository/docs/us-clawf: 20kdc, Public Domain
-repository/docs/ul-linee: 20kdc, Public Domain
-repository/docs/us-termi: 20kdc, Public Domain
 

repository/docs/repoauthors/svc-virtudev

@@ -1,4 +1,3 @@
 repository/apps/svc-virtudev.lua: 20kdc, Public Domain
 repository/apps/app-vdrslamp.lua: 20kdc, Public Domain
-repository/docs/us-virtu: 20kdc, Public Domain
 

repository/docs/ul-linee

@@ -1,78 +0,0 @@
-The "lineedit" library provides a
- quick way to implement nice line
- editing into applications.
-
-It requires the user to store the
- line and the cursor position for the
- line, which allows the user to
- implement any additional logic for
- the application.
-
-(To clarify, this implies that the
- library's functions are stateless.)
-
-The functions are as follows:
-
-draw = function (sW, line, curX, rX):
- Returns the spantext.
-
-sW is the width of the area.
-line is the safeTextFormatted text.
-curX is the cursor in screen units
-(usually done as part of the text
- formatting)
-This is optional, and if not provided
- the cursor will not be shown.
-rX is an optional camera override.
-If not provided, the cursor will be
- used; if that is not provided, then
- the left side will be shown.
-
-clamp = function (line, curX):
- Returns curX clamped to the line's
-  length (does not check for < 1).
-
-key = function (ks, kc, line, curX):
- Performs something.
-
-ks, if truthy, is the unicode.char
- of the key event key character.
-kc is the key event keycode.
-(If feeding in clipboard characters,
- use 0 here.)
-
-line is the text.
-
-This returns three values, any of
- which or all of which may be nil for
- a 'no effect' response:
-
-The new line text, 'lT'.
-The new curX, 'lC'.
-The extended action, 'lX'.
-
-The following extended actions exist:
-
-"l<": The cursor should be warped to
- the end of the previous line, if one
- exists (if not, do nothing)
-
-"l>": The cursor should be warped to
- the start of the next line, if one
- exists (if not, do nothing)
-
-"w<": This line should be welded to
- the previous line, and the cursor
- should be placed at the weld point.
-
-"w>": This line should be welded to
- the next line, and the cursor
- should be placed at the weld point.
-
-"nl": The Enter button was pressed.
-
--- This is released into
- the public domain.
--- No warranty is provided,
- implied or otherwise.
-

repository/docs/us-termi

@@ -1,114 +0,0 @@
-The "svc-t" program / "x.neo.pub.t"
- permission makes up the terminal
- subsystem for KittenOS NEO.
-
- --- THEORETICAL TERMINALS MODEL ---
-
-The theoretical model for terminals
- in KittenOS NEO is a TELNET client,
- using the non-standard behavior of
- treating a lack of remote echo as
- meaning 'local line editing'.
-
-To prevent code size going too far,
- the shipped terminal supports:
-
-1. Built-in history as part of the
- line editing functionality
-
-2. ANSI.SYS-compatible display, but
- no support for attributes.
-
-If you really want full support,
- write a better terminal application.
-
-A process starting another process
- connected to the same terminal is
- advised to wait for that process to
- die before continuing reading input.
-
-The controlling process is whichever
- process is supposed to be accepting
- user input. This is contextual, and
- there is no mechanism to control
- this explicitly.
-
-The controlling process should show
- text in response to any user input,
- or at least provide some form of
- acknowledgement that user input has
- been received.
-
-For convenience, terminal echo is on
- by default; this is easily remedied.
-
-  --- ACTUAL USAGE OF TERMINALS ---
-
-Access control on terminals is looser
- than for most permissions, as it has
- to be able to be 'sublet' in some
- cases, including events.
-
-As such, the secret flag is set for
- terminal registration.
-
-A terminal program is given a string
- argument for the ID of the terminal
- to connect to.
-
-A terminal always has an ID beginning
- with "x.neo.pub.t/". ALWAYS CHECK.
-
-Requiring the responsible access
- connects to the terminal. All
- terminal programs SHOULD check for
- the death of their parent terminal
- (via the k.procdie event) and
- self-destruct accordingly.
-
-A program may start svc-t directly.
-
-In this case, it must pass a function
- (resTbl) and may pass a title.
-
-When the terminal has shown, the
- function provided is called with a
- table as follows:
-
-access = "x.neo.pub.t/<...>"
-close = function (): close terminal
-
-The k.kill permission and the close
- function are the only ways for a
- program to kill a terminal, and the
- close function is only given to the
- creating process.
-
-In either case, when the access has
- been acquired, the following API is
- presented:
-
-id = "x.neo.pub.t/<...>"
-pid = <The terminal's PID.>
-write = function (text): Writes the
- TELNET data to the terminal.
-
-User input is provided in events:
- <id>, "data", <data>
-
-TELNET commands are provided in:
- <id>, "telnet", <data>
-
-There is a total of one TELNET
- command per event, unpadded.
-
-Notably, intermixing the data part
- of the data/telnet events in order
- produces the full terminal-to-server
- TELNET stream.
-
--- This is released into
- the public domain.
--- No warranty is provided,
- implied or otherwise.
-

repository/docs/us-virtu

@@ -1,26 +0,0 @@
-The "x.svc.virtudev" service allows
- the creation of virtual components.
-
-It provides two functions:
-
-install = function (proxy):
-Installs a virtual component.
-
-The provided proxy must have:
- address: The address (string)
- type: The type (string)
-
-It SHOULD have the 'slot' attribute
- that proxies have.
-
-uninstall = function (address):
-Uninstalls a component that your
- process installed by address.
-
-The service automatically starts
- and stops as required.
-
--- This is released into
- the public domain.
--- No warranty is provided,
- implied or otherwise.