#!/usr/bin/perl
use strict;
use warnings;
use locale;

use Tagger;

#binmode STDOUT, ":utf8";
#binmode STDERR, ":utf8";
#binmode STDIN, ":utf8";

my %words = ();

my $tagger = Tagger->new(@ARGV);


while ( <STDIN> ) { 
	chomp;
	my @p = split(/\t/, $_);
	if ( $p[1] ) { 
		print "$p[0]\t$p[1]\t" . $tagger->getTag($p[0]);
	}	
	print "\n";
}	


