"indent
[
    str_String
]
 := Module
[
    
    {
        ind,
         indent,
         f
    }
    ,
     ind = 0;
    
  indent
    [
        i_
    ]
     := \"\\n\" <> Nest
    [
        \"    \" <> ToString
        [
            #
        ]
         &,
         \"\",
         i
    ]
    ;
    
  f
    [
        c_
    ]
     := 
    (
        indent
        [
            ind
        ]
         <> c <> indent
        [
            ++ind
        ]
        
    )
     /;
     
    StringMatchQ
    [
        \"
        [
            
            (
                
                {
                    \",
                     ___ ~~ c ~~ ___
                ]
                ;
                
  f
                [
                    c_
                ]
                 := 
                (
                    indent
                    [
                        --ind
                    ]
                     <> c <> indent
                    [
                        ind
                    ]
                    
                )
                 /;
                 
    StringMatchQ
                [
                    \"
                ]
                
            )
            
        }
        \",
         ___ ~~ c ~~ ___
    ]
    ;
    
  f
    [
        c_
    ]
     := 
    (
        c <> indent
        [
            ind
        ]
        
    )
     /;
     StringMatchQ
    [
        \";
        ,
        \",
         ___ ~~ c ~~ ___
    ]
    ;
    
  f
    [
        c_
    ]
     := c;
    
  f /
    @
         Characters
        @
            str // StringJoin
        ]
        "



"List
[
    List
    [
        6,
         10,
         6
    ]
    ,
     List
    [
        4,
         0,
         10
    ]
    ,
     List
    [
        8,
         7,
         5
    ]
    
]
"