get("#179") -- base64

function uncompress(s)
  s = decode64(s)
  local pixels = {}
  for i=1, #s do
    local b = s:byte(i)
    --print(b)
    for j=0, 7 do
      if b >= 128 then
        pixels[i*8-7+j] = -1
        b = b-128
      end
      b = b*2
    end
  end
  return pixels
end

Used for unpacking images compressed with #180