#!/usr/bin/perl
use Data::Dumper;
my $queryCount=0;
my $answeredCount=0;
my @connectionValues;
open(INP, $ARGV[0]);
while(my $inputtext=<INP>)
{
	chomp($inputtext);
	my ( $cmd, $fnum, $snum ) = split ' ', $inputtext;
	if ($cmd eq 'q')
	{
		for( my $arrVal=0; $arrVal < @connectionValues; $arrVal++)
		{
			if (exists $connectionValues[$arrVal]{$fnum} and exists $connectionValues[$arrVal]{$snum})
			{
				$answeredCount++;
			}
		}
		$queryCount++;
	}
	elsif ($cmd eq 'c')
	{
		if ($fnum ~~ @connectionValues or $snum ~~ @connectionValues)
		{
			my $fHashVal; my $sHashVal; my $valid=0;
			for( my $arrVal=0; $arrVal < @connectionValues; $arrVal++)
			{
				next if (!$connectionValues[$arrVal]);
				if (exists $connectionValues[$arrVal]{$fnum} and not exists $connectionValues[$arrVal]{$snum})
				{
					if ($valid)
					{
						$connectionValues[$arrVal]={%{$connectionValues[$arrVal]}, %{$connectionValues[$sHashVal]}};
						delete $connectionValues[$sHashVal];
						$sHashVal=0;
					}
					else
					{
						$connectionValues[$arrVal]{$snum}=1;
						$fHashVal=$arrVal;
						$valid=1;
					}
				}
				elsif (exists $connectionValues[$arrVal]{$snum} and not exists $connectionValues[$arrVal]{$fnum})
				{
					if ($valid)
					{
						$connectionValues[$arrVal]={%{$connectionValues[$arrVal]}, %{$connectionValues[$fHashVal]}};
						delete $connectionValues[$fHashVal];
						$fHashVal=0;
					}
					else
					{
						$connectionValues[$arrVal]{$fnum}=1;
						$sHashVal=$arrVal;
						$valid=1;
					}
				}
			}
		}
		else
		{
			push(@connectionValues, {$fnum=>1, $snum=>1});
		}
	}
}
close (INP);
print "$answeredCount,".($queryCount-$answeredCount)."\n";