#!/usr/bin/perl

if ($ARGV[0] ne '') {
    $inc_level = $ARGV[0] + 0.01;
} elsif ($ARGV[0] ne '') {
    $inc_level = 3;
}

open F, "r/infl/infl.txt";

while (<F>) {
    ($w,$a) = /(\S+) .+: (.+)/ or die;
    @a = split /, | \| /, $a;
    @a = grep {my ($word,$tags,$level) 
		 = /^([A-Za-z\']+)([~<!?]*)(| [\d.]+)(| {\S+})$/ or die $_;
	       $_ = $word;
	       $tags !~ /~|\?|!</ && $level <= $inc_level} @a;
    $lookup{$w} .= join("\n",@a)."\n";
}

while (<STDIN>) {
    print;
    chop;
    print $lookup{$_};
}
