#!/usr/bin/perl

@gloss = ("know", "recognize, know how to", "grant willingly, allow, love", "need", "have, own");
@inf = ("vita", "kunna", "unna", "urfa", "eiga");

while (<>) {
    
    chop;
    @fields = split(/\t/);
    
    if ($_ eq "@") {
	@gloss = ("remember", "will", "should, must", "can", "know how to, can");
	@inf = ("muna", "munu", "skulu", "mega", "*knegu");
    }
    
    else {
	$pos = shift @fields;
	foreach $i (0..4) {
	    print $fields[$i], "\t", $inf[$i], $pos, "\t", $gloss[$i], "\n";
	}
    }
    
}

