scompress

local ipack = require "ipack"

local args = {...}
local infile = args[1]
local outfile = args[2]
local f=io.open(infile,"rb")
local a=f:read("*a")
f:close()
local f=io.open(outfile,"wb")
for i = 1, a:len(), 256 do
 s=ipack.compress(a:sub(i,i+256),8,0)
 f:write(s:len()..s)
end
f:close()