cJSON

 gsub, format, rep, sub, split, match, gmatch = .gsub, .format, .rep, .sub, .split, .match, .gmatch;
 tinsert = .insert;
 floor = .floor;

 ,  = , ;



 base62_chars = 

 base62 = { 
  index = {};
}

 i = , #base62_chars 
    base62.index[(base62_chars, i, i)] = i - 


 base62.(num)
     str = (num);
     #str ==    str  
    num = (num);

     result = 
     num >  
         remainder = num % 
        result = (base62_chars, remainder + , remainder + ) .. result
        num = (num / )
    

     result


 base62.(str)
     result = 

     i = , #str 
         char = (str, i, i)
         value = base62.index[char]
        result = result *  + value
    

     result


 cJ = {
    characters = {
        [] = utf8.(),
        other = utf8.(),
        numbers = utf8.()
    }
};

 re = {
    sub = (, pattern, replacement) 
        pattern = (pattern, , (a, b)
             (a, (b))
        )

         (, pattern, replacement)
    ,
    secure = () 
       StrList = ;
       List = {};

       _, Letter  , (StrList, ) 
        List[Letter] =  .. Letter
      

       (, , List)
    
}

 cJ:(Raw)
     start = ();
     Text = (Raw, , )

    

    Text = (Text, , (s1, a, s2) 
        a = (a, , )
        a = (a, , )

         s1 .. a .. s2;
    )

    

    

    Text = (Text, , (Spaces)
         #Spaces <=   
             Spaces
        

         cJ.characters[] .. #Spaces
    )

     LastLetter = 
     CurrentSequence = 
     LetterHistory = {}

     i, Letter  , (Text, ) 
       Letter == LastLetter 
        CurrentSequence = CurrentSequence .. Letter
      
         #CurrentSequence >  
            LetterHistory[LastLetter] = LetterHistory[LastLetter]  {}
            (LetterHistory[LastLetter], {start = i - #CurrentSequence, length = #CurrentSequence, sequence = CurrentSequence})
        
        CurrentSequence = Letter
      
      LastLetter = Letter
    

     Letter, Data  , LetterHistory 
       _, LetterData  , Data 
         StartIndex, EndIndex = LetterData.start, LetterData.start + LetterData.length

        Text = (Text, , StartIndex) .. Letter .. cJ.characters.other .. (LetterData.length) .. cJ.characters.other .. (Text, EndIndex)
      
    

    

    

    Text = (Text, , (Number)
       encoded = base62.(Number);
       char = cJ.characters.numbers

       #Number > #encoded +   
         char .. encoded .. char
      
    )

    

     {BytesCompressed = #Raw - #Text, Result = Text, TimeTaken = () - start}; 


 cJ:(Text)
     Raw = (Text, cJ.characters[] .. , (Times)
         (, Times)
    )
    Raw = (Raw,  .. cJ.characters.other ..  .. cJ.characters.other, (Data, Times)
         (Data, Times)
    )
    Raw = (Raw, cJ.characters.numbers ..  .. cJ.characters.numbers, base62.decode)

     Raw;


 cJ;