in pachi_py/pachi/joseki/sgfvar2gtp.pl [34:46]
sub recurse
{
my ($sgf) = @_;
my $c = $sgf->property('C');
if ($c and $c->[0] =~ /GOOD/) {
printgame($sgf);
}
for (0 .. $sgf->branches()-1) {
$sgf->gotoBranch($_);
recurse($sgf);
$sgf->prev();
}
}