expr = Cell[ CellGroupData[{ Cell[ BoxData[RowBox[{"Range", "[", "10", "]"}]], "Input", CellChangeTimes -> {{3.738737785192193*^9, 3.7387377884226933`*^9}}, CellLabel -> "In[13]:=" ], Cell[ BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", CellChangeTimes -> {3.738737788836947*^9}, CellLabel -> "Out[13]="