How to access to all JProperties sub values in Json.net?

Question

I`m trying to pars a Json in my C# code with Json.NET. I want to print the child of each token after the parent. my JSON string is something like this(but very longer):

 {
    "type": "ExpressionStatement",
    "expression": {
      "type": "CallExpression",
      "callee": {
        "type": "FunctionExpression",
        "id": null,
        "params": [
          {
            "type": "Identifier",
            "name": "E"
          },
          {
            "type": "Identifier",
            "name": "B"
          }
      ]
    }
  }
}

and I`m trying this code for my purpose and in this first I check value of JProperties and if there was something starts with '[' I sub String it and parse it again other otherwise print that :(r is my Json string)

JObject a = JObject.Parse(r);
            ArrayList ab= new ArrayList();
            String reg=@"{[-a-zA-Z0-9_~,'"":\s]*}\s*,\s*{[-a-zA-Z0-9~,'"":\s]*}";
            ab.Add(a);
                for (int i = 0; i < ab.Count; i++ )
                {
                    JObject d=ab[i] as JObject;
                    foreach (JProperty p in (d.Children()))
                    {
                        String val = p.Value.ToString();
                        if( val.StartsWith("[")){
                            val=val.Substring(2,val.Length-2);
                            if(Regex.Match(val,reg).Success)
                            {
                                String reg2 = @"},\s*{";
                                 int num=Regex.Match(val,reg2).Index;
                                 String val1 = val.Substring(0,num+1);
                                 JObject newob = JObject.Parse(val1);
                                 ab.Add(newob);
                                 val = val.Substring(num+3);
                                 newob = JObject.Parse(val);
                                 ab.Add(newob);
                            }
                            if (!val.Equals("")) { 
                            JObject newob=JObject.Parse(val);
                            ab.Add(newob);}
                        }
                        else if (val.StartsWith("{"))
                        {
                            if (!val.Equals(""))
                            {
                                JObject newob = JObject.Parse(val);
                                ab.Add(newob);
                            }
                        }
                        else
                        {
                            Console.WriteLine("value is: {0}", p.Value);
                        }
                  }
                }

but there is always error for sub String....they always are incorrect! could anyone help me? or offer me new way?

note:I don`t know the JSON string and it is every time different