while (<>) {
    chomp;
    my @x = split(' ', $_);
    my $w = lc($x[1]);
    $w =~ s/[^etaoinsh]//g;
    my @words = `../src/etaword $w`;
    shift @words;
    chomp @words;
    print $_, " [$w] @words\n";
}