#!/usr/bin/perl

while (<>) {
    
    chop;
    @columns = split(/\t/);
    
    if ($columns[0] eq "%") {
	($ignore, $v1, $v2, $v3, $v4, $pp) = (@columns);
	if ($pp eq "") {
	    $pp = "inn";
	}
    }
    
    if ($#columns == 1) {
	($infinitive, $gloss) = (@columns);

	$hacken = $infinitive;
	$hacken =~ s/a$//;

	$pretsg = $hacken;
	$pretpl = $hacken;
	$ppc    = $hacken;
	
	$pretsg =~ s/$v1/$v2/;
	$pretpl =~ s/$v1/$v3/;
	$ppc    =~ s/$v1/$v4/;
	
	$pretpl .= "u";
	$ppc .= $pp;

	print $infinitive, "\t", $pretsg, "\t", $pretpl, "\t", $ppc, "\t", $gloss, "\n";
    }

    else {
	s/%\t/% /;
	print $_, "\n";
    }
    
}
