#!/usr/bin/perl

$lastword = "<JJJ>";
$count = 1;

while (<>)
{
    $_ =~ /(.*) ([0-9]+)/;
    $word = $1;

    if ($lastword ne $word)
    {
	if ($lastword =~ /<JJJ>/)
	{
	    #print "$word";
	}
	else
	{
	    print "$count - $lastword\n";
	}
	$count = 1;
    }
    else
    {
	$count++;
    }
    $lastword = $word;
}

#abduct vt 1971
#abduct vt 1971
#abduct vt 1974
#abduct vt 1996
#abduct vt 1996
#abductee n 1989
#abductee n 1997
#abduction n 1971
#abduction n 1989
#abduction n 1996
#abduction n 1996
#