#!/usr/bin/perl

use utf8;
binmode(STDOUT, utf8);
binmode(STDERR, utf8);
binmode(STDIN, utf8);

while(<>)
{
	next if /^;/;
	if(/^(\S+)\s+:=\s+(\S+)\s+&/)
	{
		$type{$2}++;
	}
}

foreach $t (sort keys %type)
{
	print "$t :+\n [ TOKENS.+LIST < [ +STAG.+TAG < \"$t\", ... > ],... > ].\n\n";
}

