Getting details of shapes inside a group shape

Hello, I am using apple script to access the shapes that are present in a group shape in powerpoint.

This is my script:
set slideList to {}

set shapeList to {}

set fo to {}

tell application "Microsoft PowerPoint"

if running then

if active presentation is not missing value then

set activePresentation to active presentation

set slideCount to count of slides of activePresentation

set end of slideList to slideCount

repeat with i from 1 to slideCount

set currentSlide to slide i of activePresentation

set slideName to name of currentSlide

set end of slideList to slideName

set shapeCount to count of shapes of currentSlide

set end of shapeList to shapeCount

repeat with j from 1 to shapeCount

-- Get the shape object

set currentShape to shape j of currentSlide

-- set shapeName to name of currentShape

set end of shapeList to currentShape

set t to shape type of currentShape

set co to count of shapes of currentShape

log co

repeat with kk from 0 to co

log "bla"

log item kk

set end of fo to item kk of shapes of currentShape

end repeat

-- Change shape type to diamond

--set auto shape type of currentShape to 5

--set left position of currentShape to 0

end repeat

end repeat

else

display dialog "There is no active presentation."

end if

else

display dialog "PowerPoint is not running."

end if

end tell

return {shapeList, fo}

But I am getting: {{1, shape 1 of slide 1 of active presentation of application "Microsoft PowerPoint"}, {,,,,}}
This shows that I am reading the count of shapes in group shape correctly but can not access each shape.