#!/usr/bin/perl

open F, "r/varcon/voc.tab" or die;

while (<F>) {
    s/\(.+\)\n/\n/;
    @words = split /[,\t\n]/;
    y/,\t -/\n/;
    $prev = "";
    foreach $w (sort @words) {
	$w =~ /^[A-Za-z\']+$/ or next;
	next if $w eq $prev;
	$lookup{$w} .= $_;
	$prev = $w;
    }
}

open F, "r/varcon/variant.tab" or die;

while (<F>) {
    s/\(.+\)\n/\n/;
    @words = split /[,\t\n]/;
    y/,\t /\n/;
    $prev = "";
    foreach $w (sort @words) {
	$w =~ /^[A-Za-z\']+$/ or next;
	next if $w eq $prev;
	$lookup{$w} .= $_;
	$prev = $w;
    }
}

while(<STDIN>) {
    chop;
    if (exists $lookup{$_}) {
	print $lookup{$_};
    } else {
	print "$_\n";
    }
}


