compress

local function Decompile(CompiledTbl)
  local Str = ''
  for k, v in pairs(CompiledTbl) do
    Str = Str .. string.char(v)
  end
  return Str
end

local function Compile(Str)
  local Compiled = {string.byte(Str,1,#tostring(Str))}
  return Compiled, table.concat(Compiled, ',')
end

local Compiled, Concat = Compile('{HelloWorld = "mikkel809h"}')
print(Concat)
local Decompiled = Decompile(Compiled)
print(Decompiled)



--[[
local Path = '/'
local Contents = {}

local function GetDir(Path)
  if Path:find('rom/') then
  else
    local List = fs.list(Path or '/')
    for k, v in pairs(List) do

      local CurrentPath = Path..fs.getName(
        fs.combine(
          Path,
          v
        )
      )
      if fs.isDir(CurrentPath) then
        CurrentPath = CurrentPath .. '/'
      end
      print(tostring(CurrentPath))
      if fs.isDir(CurrentPath) then
        GetDir(CurrentPath)
      else
        local File = fs.open(CurrentPath, 'r')
        if File then
          local Data = File.readAll()
          -- Compile data --
          Data = {string.byte(Data,1,#tostring(Data))}
          --print(table.concat(Data, ', '))
          --os.pullEvent()
          File.close()
          Contents[CurrentPath] = Data
          os.queueEvent('Ping')
          os.pullEvent('Ping')
        end
      end
    end
  end
end


GetDir(Path)

--print('Waiting for input...')
--os.pullEvent('key')
--term.clear()
--term.setCursorPos(1,1)
Compiled = fs.open('Compiled', 'w')
Compiled.writeLine(textutils.serialize(Contents))
Compiled.close()
--print('Decompiling...')
--local Decompiled = {}
--for k, v in pairs(Contents) do
--  Decompiled[k] = ''
  for i, j in pairs(v) do
    print(i .. ' -> ' .. tostring(string.char(j)))
    Decompiled[k] = Decompiled[k]..string.char(j)
  end
end
if not fs.isDir('Decompiled') then
  fs.makeDir('Decompiled')
end
for k, v in pairs(Decompiled) do
  Decompiled = fs.open('Decompiled/'..k, 'w')
  Decompiled.write(v)
  Decompiled.close()
end
--]]