Maxscript : Select All Children by Janus

fn selhi =
(
if $ != undefined do
(
selAry = #()
append selAry $
i=1
while i <= selAry.count do
(
childCount = selAry[i].children.count
if childCount !=0 do
(
for j=1 to childCount do append selAry selAry[i].children[j]
)
i+=1
)
select selAry
)
)
selhi()