@verb #9386:"@kids @child*ren" any none none rdo #9386
@program #9386:"@kids @child*ren" any none none
x = player:my_match_object(argstr)
boo = children(x)
player:tell(x:nn(), " has ", length(boo), " children.")
if (length(boo) > 40)
  $cmd_utils:yes_or_no("Continue?") && pass(@args)
  return
endif
pass(@args)
.