#!/usr/local/bin/perl

use lib "/afs/cs/project/avenue-1/Avenue/Transfer";
require "lexProbs.pl";

#$probfile = "/shared/data/Chinese/GIZA.egf";
#$probfile = "/shared/data/Chinese/GIZA.fge";
#&loadProbsGIZA($probfile);

$probfile = "/shared/code/Lexicon/data/tourism_btec_train.IBM1.sp-en.T";
&loadProbs($probfile);

binmode(STDOUT, ":utf8");

while (1) {
    $src = <STDIN>;
    chomp($src);
    $tgt = <STDIN>;
    chomp($tgt);

    $tprob = &transProb($src, $tgt);
    $logprob = log($tprob)/log(10);
    print "Trans $tprob $logprob\n";

}