use strict;
use warnings;

my $queryCount=0;
my $answeredCount=0;
my %connected=();
while(<>)
{
	print;
	chomp($_);
	if (/q (\d+) (\d+)/)
	{
		$answeredCount++ if ( defined $connected{$1} and $connected{$2});
		$queryCount++;
	}
	elsif (/c (\d+) (\d+)/)
	{
		$connected{$1}=1;
		$connected{$2}=1;
	}
}

print "$answeredCount,".($queryCount-$answeredCount)."\n";


##</code><code>##

$connected{firstSet}{$n1}=1; # or better $connected{1}{x}=1;
$connected{secondSet}{$n1}=1; # or better $connected{2}{x}=1;