@verb #13:"@gen*der" any is any rdo #55
@program #13:"@gen*der" any is any
set_task_perms(player)
if ($command_utils:object_match_failed(dobj, dobjstr))
  "Doh"
elseif ((result = dobj:set_gender(iobjstr)) || result == E_NONE)
  player:tell("Gender set.")
else
  player:tell(result)
endif
.