Merge branch 'master' into repository

Have fun with this. If anyone complains I'm calling it the April 1st release.

.gitignore

@@ -1,8 +1,6 @@
 # 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
@@ -32,7 +30,9 @@ laboratory/*/*/*/*
 inst.lua
 # Available as the respective release
 inst-gold.lua
-com2/code.tar.bd
+# Compression stuff
+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 = 8,
+  v = 9,
   deps = {
   },
   dirs = {
@@ -18,6 +18,7 @@ return {
    "libs/serial.lua",
    "libs/fmttext.lua",
    "libs/neoux.lua",
+   "libs/lineedit.lua",
    "libs/braille.lua",
    "libs/bmp.lua",
    "libs/sys-filewrap.lua",
@@ -54,7 +55,7 @@ return {
  },
  ["neo-everest"] = {
   desc = "KittenOS NEO / Everest (windowing)",
-  v = 5,
+  v = 9,
   deps = {
    "neo"
   },
@@ -67,7 +68,7 @@ return {
  },
  ["neo-icecap"] = {
   desc = "KittenOS NEO / Icecap",
-  v = 8,
+  v = 9,
   deps = {
    "neo"
   },
@@ -84,7 +85,7 @@ return {
  },
  ["neo-secpolicy"] = {
   desc = "KittenOS NEO / Secpolicy",
-  v = 8,
+  v = 9,
   deps = {
   },
   dirs = {
@@ -96,7 +97,7 @@ return {
  },
  ["neo-coreapps"] = {
   desc = "KittenOS NEO Core Apps",
-  v = 5,
+  v = 9,
   deps = {
    "neo"
   },
@@ -125,7 +126,7 @@ return {
  },
  ["neo-logo"] = {
   desc = "KittenOS NEO Logo (data)",
-  v = 8,
+  v = 9,
   deps = {
   },
   dirs = {
@@ -175,6 +176,20 @@ 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,
@@ -190,6 +205,7 @@ 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 = 8,
+  v = 9,
   deps = {
    "zzz-license-pd"
   },
@@ -43,6 +43,7 @@ return {
    "docs/us-setti",
    "docs/us-evrst",
    "docs/us-clawf",
+   "docs/us-termi",
    "docs/ul-seria",
    "docs/ul-fwrap",
    "docs/ul-event",
@@ -50,6 +51,7 @@ return {
    "docs/ul-neoux",
    "docs/ul-brail",
    "docs/ul-bmp__",
+   "docs/ul-linee",
    "docs/gp-pedan",
    "docs/repoauthors/neo-docs"
   },
@@ -89,11 +91,12 @@ return {
    "docs/repoauthors/app-allmem"
   },
  },
- ["app-kmt"] = {
-  desc = "Line-terminal for MUDs & such",
-  v = 1,
+ ["app-telnet"] = {
+  desc = "TELNET client",
+  v = 0,
   deps = {
    "neo",
+   "svc-t",
    "zzz-license-pd"
   },
   dirs = {
@@ -102,8 +105,8 @@ return {
    "docs/repoauthors"
   },
   files = {
-   "apps/app-kmt.lua",
-   "docs/repoauthors/app-kmt"
+   "apps/app-telnet.lua",
+   "docs/repoauthors/app-telnet"
   },
  },
  ["svc-ghostie"] = {
@@ -251,24 +254,6 @@ 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",
@@ -286,6 +271,25 @@ 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" then
+  if id == "set_setting" and currentGen ~= logGen then
    window.reset(currentGen())
   end
  end

code/apps/app-luashell.lua

@@ -0,0 +1,164 @@
+-- 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,32 +30,17 @@ 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 cFlash = true
-local ctrlFlag, focFlag, appendFlag
+local ctrlFlag, 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)
@@ -139,31 +124,14 @@ local function getline(y)
  -- rX is difficult!
  local rX = 1
  local Xthold = math.max(1, math.floor(sW / 2) - 1)
- local _, cursorXP = unicode.safeTextFormat(lines[cursorY], cursorX)
+ local cLine, 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)
- -- <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
+ return lineEdit.draw(sW, line, rY == cursorY and cursorXP, rX)
 end
 local function delLine()
  local contents = lines[cursorY]
@@ -179,22 +147,7 @@ local function delLine()
  end
  return contents
 end
--- 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)
+local function key(ks, kc, down)
  if dialogLock then
   return false
  end
@@ -212,18 +165,22 @@ local function key(ka, 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
@@ -240,7 +197,7 @@ local function key(ka, kc, down)
    if cursorY < 1 then
     cursorY = 1
    end
-   clampCursorX()
+   cursorX = lineEdit.clamp(lines[cursorY], cursorX)
    return true
   elseif kc == 208 or kc == 209 then -- Go down one - go down page
    local moveAmount = 1
@@ -251,36 +208,7 @@ local function key(ka, kc, down)
    if cursorY > #lines then
     cursorY = #lines
    end
-   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
+   cursorX = lineEdit.clamp(lines[cursorY], cursorX)
    return true
   end
   -- Major Actions
@@ -291,10 +219,13 @@ local function key(ka, 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")
@@ -311,6 +242,7 @@ local function key(ka, 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")
@@ -322,29 +254,37 @@ local function key(ka, kc, down)
    return true
   end
  end
- -- Letters
- if ka == 8 or kc == 211 then
-  if cursorX == 1 then
-   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
+ -- LEL Keys
+ local lT, lC, lX = lineEdit.key(ks, kc, lines[cursorY], cursorX)
+ if lT then
+  lines[cursorY] = lT
  end
- if ka ~= 0 then
-  putLetter(unicode.char(ka))
-  return true
+ if lC then
+  cursorX = lC
  end
- return false
+ if lX == "l<" and cursorY > 1 then
+  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 ()
@@ -353,16 +293,9 @@ flush = function ()
  end
 end
 
-neo.scheduleTimer(os.uptime() + 0.5)
-
 while true do
  local e = {coroutine.yield()}
- 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[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)
@@ -373,14 +306,13 @@ 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
-    clampCursorX()
+    cursorX = lineEdit.clamp(lines[cursorY], cursorX)
     flush()
    elseif e[3] == "key" then
-    if key(e[4], e[5], e[6]) then
+    if key(e[4] ~= 0 and unicode.char(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
@@ -392,7 +324,7 @@ while true do
       if c == "\n" then
        c = "\r"
       end
-      putLetter(c)
+      key(c, 0, true)
      end
     end
     flush()

code/apps/svc-t.lua

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

code/apps/sys-icecap.lua

@@ -81,20 +81,12 @@ local function getPfx(xd, pkg)
  end
 end
 
-local endAcPattern = "/[a-z0-9/%.]*$"
-
-local function matchesSvc(xd, pkg, perm)
- 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
+local function splitAC(ac)
+ local sb = ac:match("/[a-z0-9/%.]*$")
+ if sb then
+  return ac:sub(1, #ac - #sb), sb
  end
+ return ac
 end
 
 donkonitDFProvider(function (pkg, pid, sendSig)
@@ -130,7 +122,8 @@ donkonitDFProvider(function (pkg, pid, sendSig)
   myApi = getPfx("", pkg),
   lockPerm = function (perm)
    -- Are we allowed to?
-   if not matchesSvc("x.", pkg, perm) then
+   local permPfx, detail = splitAC(perm)
+   if getPfx("x.", pkg) ~= permPfx then
     return false, "You don't own this permission."
    end
    local set = "perm|*|" .. perm
@@ -223,7 +216,11 @@ 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 ok, err = pcall(secpol, nexus, settings, proc.pkg, pid, perm, req, matchesSvc)
+  local fPerm = perm
+  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)
@@ -243,11 +240,7 @@ 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 = perm:sub(7)
-  local paP = appAct:match(endAcPattern)
-  if paP then
-   appAct = appAct:sub(1, #appAct - #paP)
-  end
+  local appAct = splitAC(perm:sub(3))
   -- 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)
+  return function (f, secret)
    -- Registration function
    ensureType(f, "function")
    local accessObjectCache = {}
@@ -481,8 +481,10 @@ function retrieveAccess(perm, pkg, pid)
     end
     -- returns nil and fails
    end
-   -- Announce registration
-   distEvent(nil, "k.registration", uid)
+   if not secret then
+    -- Announce registration
+    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

@@ -0,0 +1,73 @@
+-- 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,6 +339,7 @@ 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,
@@ -347,22 +348,24 @@ 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", textprop())
+      neo.requireAccess("x.neo.pub.globals", "clipboard").setSetting("clipboard", ot)
      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 == 8 then
-      local str = textprop()
-      textprop(unicode.sub(str, 1, unicode.len(str) - 1))
-      update()
-      return true
-     elseif a >= 32 then
-      textprop(textprop() .. unicode.char(a))
-      update()
-      return true
+     elseif a ~= 9 then
+      local lT, lC, lX = le.key(a ~= 0 and unicode.char(a), c, ot, p)
+      if lT or lC then
+       if lT then textprop(lT) end
+       p = lC or p
+       update()
+       return true
+      end
      end
     end
    end,
@@ -377,9 +380,10 @@ newNeoux = function (event, neo)
      fg = bg
      bg = fg1
     end
-    local text = unicode.safeTextFormat(textprop())
-    text = "[" .. neoux.pad(text, w - 2, false, true, true) .. "]"
-    window.span(x, y, text, bg, fg)
+    local t, e, r = textprop(), require("lineedit")
+    p = e.clamp(t, p)
+    t, r = unicode.safeTextFormat(t, p)
+    window.span(x, y, "[" .. e.draw(w - 2, t, selected and r) .. "]", bg, fg)
    end
   }
  end

code/libs/sys-filevfs.lua

@@ -94,11 +94,25 @@ 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
-     if fsc.isDirectory(fp) then
+     local cDir = fsc.isDirectory(fp)
+     if cDir then
       nm = "D: " .. v
      end
-     n[k + 1] = {nm, function () return nil, getFsNode(fs, t, fsc, fp, mode, impliedName) end}
+     if (not cDir) and (fscrw or mode == false) and (mode ~= nil) then
+      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
@@ -151,24 +165,6 @@ 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,13 +11,19 @@
 -- IRC is usually pretty safe, but no guarantees.
 
 -- Returns "allow", "deny", or "ask".
-local function actualPolicy(pkg, pid, perm, matchesSvc)
+local function actualPolicy(pkg, pid, perm, pkgSvcPfx)
  -- 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 (aka Icecap) is open to all
+ -- x.neo.pub.* is open to all
  if perm:sub(1, 10) == "x.neo.pub." then
   return "allow"
  end
@@ -25,7 +31,8 @@ local function actualPolicy(pkg, pid, perm, matchesSvc)
  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
- if matchesSvc("r.", pkg, perm) then
+ -- Userlevel can register for itself
+ if perm == "r." .. pkgSvcPfx then
   return "allow"
  end
  -- Userlevel has no other registration rights
@@ -44,8 +51,8 @@ local function actualPolicy(pkg, pid, perm, matchesSvc)
  return "ask"
 end
 
-return function (nexus, settings, pkg, pid, perm, rsp, matchesSvc)
- local res = actualPolicy(pkg, pid, perm, matchesSvc)
+return function (nexus, settings, pkg, pid, perm, rsp, pkgSvcPfx)
+ local res = actualPolicy(pkg, pid, perm, pkgSvcPfx)
  if settings then
   res = settings.getSetting("perm|" .. pkg .. "|" .. perm) or
         settings.getSetting("perm|*|" .. perm) or res

com2/bdivide.lua

@@ -1,49 +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.
-
-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

@@ -1,88 +0,0 @@
--- 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

@@ -1,72 +0,0 @@
--- 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

@@ -1,20 +0,0 @@
--- 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

@@ -1,27 +0,0 @@
--- 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

@@ -0,0 +1,36 @@
+-- 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

@@ -0,0 +1,85 @@
+-- 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

@@ -0,0 +1,72 @@
+-- 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

@@ -0,0 +1,64 @@
+-- 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

@@ -0,0 +1,18 @@
+-- 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

@@ -0,0 +1,72 @@
+-- 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

@@ -0,0 +1,30 @@
+-- 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

@@ -0,0 +1,78 @@
+-- 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

@@ -0,0 +1,14 @@
+-- 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

@@ -0,0 +1,287 @@
+-- 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

@@ -0,0 +1,76 @@
+-- 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

@@ -0,0 +1,67 @@
+-- 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

@@ -0,0 +1,30 @@
+-- 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

@@ -0,0 +1,191 @@
+-- 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

@@ -0,0 +1,36 @@
+-- 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

@@ -0,0 +1,32 @@
+# 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

@@ -0,0 +1,10 @@
+-- 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

@@ -1,97 +0,0 @@
--- 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-tier1", -1, 50, 16, 1},
+      {"screen_sdl2", "c1-screen-tier3", -1, 160, 50, 3},
+--      {"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

@@ -1,28 +0,0 @@
--- 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"?
-tar --mtime=0 --owner=gray:0 --group=mann:0 -cf code.tar code
+cd code
+tar --mtime=0 --owner=gray:0 --group=mann:0 -cf ../code.tar .
+cd ..
 
-# Solely for ensuring that a -gold.lua file can be checked before being pushed to repository.
-echo -n "-- commit: " > inst.lua
-git status --porcelain=2 --branch | grep branch.oid >> inst.lua
-lua heroes.lua `wc -c code.tar` | lua com2/bonecrunch.lua >> inst.lua
-echo -n "--[[" >> inst.lua
-cat com2/code.tar.bd >> inst.lua
-echo -n "]]" >> inst.lua
+# The Installer Creator
+cd inst
+lua build.lua `git status --porcelain=2 --branch | grep branch.oid | grep -E -o "[0-9a-f]*$" -` ../code.tar $* > ../inst.lua
+lua status.lua ../inst.lua
+cd ..
 
 # Common Repository Setup Code
 ./package-repo.sh inst.lua

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

@@ -1,609 +0,0 @@
--- 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

@@ -1,181 +0,0 @@
--- 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

@@ -0,0 +1,96 @@
+-- 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,7 +63,8 @@ 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.
@@ -71,6 +72,11 @@ 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

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

repository/docs/repoauthors/app-telnet

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

repository/docs/repoauthors/neo-docs

@@ -16,4 +16,6 @@ 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,3 +1,4 @@
 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

@@ -0,0 +1,78 @@
+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

@@ -0,0 +1,114 @@
+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

@@ -0,0 +1,26 @@
+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.