print join ',', map $_->text, $x->children;