local function P(P,p)local W=P.index+p local u=P.source:sub(P.index,W-1)P.index=W return u end
-- string stm_string(Stream S, int len)
-- @S - Stream object to read from
-- @len - Length of string being read
local function stm_string(S, len)
	local pos = S.index + len
	local str = S.source:sub(S.index, pos - 1)

	S.index = pos
	return str
end
