local escape = {  char = function(self, chr, args)  args = args or {}  local safe = args.safeChr or string.char(13)  chr = tostring(chr or '\\')  self[1] = ('%s0%%s%s'):format(  ('%x%s%s'):format(chr:byte(), safe, safe),  ('%s%x'):format(safe, chr:byte())  )  if not self[self[1]] then  self[self[1]] = {  char = chr,  text = ('%s(.)'):format(chr),  undo = self[1]:format'(%d+)'  }  end  return args.text and self:text(args.text)  or args.undo and self:undo(args.undo, chr)  or args.kill and self:kill(args.kill)  or self  end,  exec = function(self, text, mode, newEscape)  local target = self[self[1] or self:char() and self[1]]  for v in text:gfind(target[mode]) do  text = text:gsub(  mode == 'text' and  ('%s%s'):format(target.char, v:gsub('%W', '%%%1'))  or self[1]:format(v),  mode == 'text' and  self[1]:format(v:byte())  or (newEscape or '') .. v:char()  )  end  return text  end,  text = function(self, text)  return self:exec(type(text) == 'table' and text[1] or text, 'text')  end,  undo = function(self, text, newEscape)  if type(text) == 'table' then  text, newEscape = unpack(text)  end  return self:exec(text, 'undo', newEscape)  end,  kill = function(self, text, chars, newEscape)  if type(text) == 'table' then  text, chars, newEscape = unpack(text)  end  return self:undo(self:text(text):gsub(chars or '', ''), newEscape)  end }  function escape.main(frame)  local args, family = {}, {frame:getParent(), frame}  for f = 1, 2 do  for k, v in pairs(family[f] and family[f].args or {}) do  args[k] = args[k] or v:match('^%s*(.-)%s*$')  end  end  if args.mode == 'char' then  return escape:char(args.char or args[2], args)  end  return escape[args.mode](escape:char(args.char), args) end  return escape