my $queryCount=0;
my $answeredCount=0;
my $connectionText;
open(INP, $ARGV[0]);
while(<INP>)
{
	chomp($_);
	$inputtext=$_;
	if ($inputtext=~m/q (\d+) (\d+)/)
	{
		$answeredCount++ if ($connectionText=~m/(?:\b$1\b[^\|]*\b$2\b|\b$2\b[^\|]*\b$1\b)/);
		$queryCount++;
	}
	elsif ($inputtext=~m/c (\d+) (\d+)/)
	{
		my $fnum=$1; my $snum=$2;
		if ($connectionText=~m/\b$fnum\b[^\|]*\b$snum\b/)
		{}
		elsif ($connectionText=~m/\b$fnum\b/ and $connectionText=~m/\b$snum\b/)
		{
			$connectionText=~s/\b$fnum\b(.*?)\|([^\|]*\b$snum\b.*?)(\||$)/$fnum.','.$2.','.$1.$3/e;
			$connectionText=~s/\b$snum\b(.*?)\|([^\|]*\b$fnum\b.*?)(\||$)/$snum.','.$2.','.$1.$3/e;
		}
		elsif ($connectionText=~m/\b(?:$fnum|$snum)\b/)
		{
			$connectionText=~s/\b(?:$fnum|$snum)\b(.*?)\|/$fnum.','.$snum.','.$1.'|'/e;
		}
		else
		{
			$connectionText.=$fnum.",".$snum."|";
		}
		$connectionText=~s/,,/,/g;
		$connectionText=~s/,\|/\|/g;
	}
}
close (INP);
print "$answeredCount,".($queryCount-$answeredCount)."\n";