#!/usr/bin/perl

if ($ARGV[0] =~ /^no-variant/i) {
    $no_variant = 1;
} elsif ($ARGV[0] ne '') {
    die "Usage: $0 [no-variant]\n";
}

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

while (<F>) {
    next if /[^\/]\?/;
    ($w,$a) = /(\S+) .+: (.+)/ or die;
    $a =~ s/\(.+\)//g if $no_variant;
    @a = split /[ |()\/?]+/, $a;
    @a = grep !/[\{~]/, @a;
    $lookup{$w} .= join("\n",@a)."\n";
}

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


