#!/usr/bin/perl

while (<>) {
    
    chop;

    if ($_ eq "") {
	# Do nothing on empty lines.
    }

    elsif (substr($_, 0, 1) eq "%") {
	# Do nothing; we ignore the vowel grades.
    }

    elsif (substr($_, 0, 1) eq "#") {
	$class = $_;
	$class =~ s/\#\ Class\ /strong_/;
#	print $class, "\n";
    }

    else {
	@columns = split(/\t/);

	($inf, $pretsg, $pretpl, $pp, $gloss) = (@columns);

	$strip_inf = $inf;
	$strip_inf =~ s/a$//;
	$pretpl =~ s/u$//;
	$pp =~ s/inn$//;
	

	if ($inf ne "") {
	    print "inf\t$class\t$strip_inf\t$inf\t$gloss\n";
	}
	if ($pretsg ne "") {
	    print "pretsg\t$class\t$pretsg\t$inf\t$gloss\n";
	}
	if ($pretpl ne "") {
	    print "pretpl\t$class\t$pretpl\t$inf\t$gloss\n";
	}
	if ($pp ne "") {
	    print "pp\t$class\t$pp\t$inf\t$gloss\n";
	}
	

	foreach $i (1..5) {
	    shift(@columns);
	}

	while ($contents = shift(@columns)) {

#	    print "@ ", $contents, "\n";
	    ($command, $form) = split(/\ /, $contents);
	    print "$command\t$class\t$form\t$inf\t$gloss\n";


	}
	

	
    }
       
}
