function cB(w,c) local t={} t.b="" function t.w(s,d) s.b=s.b..TS(d) end t.write = t.w function t.r(s,l) if type(l) == "number" then local ns,bs=s.b:sub(1,l+1),s.b:sub(l+2) s.b=bs return ns elseif type(l) == "string" then local oS=s.b if l == "*a" then s.b="" return oS elseif l == "*l" then S=s.b:find("\n") or #s.b s.b=s.b:sub(S+1) rS = oS:sub(1,S-1) if rS:len() < 1 then return nil end return rS end end end t.read = t.r t.close = c w(t) return t end