#!/usr/local/bin/perl

use trad;

trans_dic("i2p.dict");           # dictionary name
trans_prefix("@");                 # prefix for unkmown words
trans_ppp("i2p.pos");           # perl file with a "posProc" function
trans_und("i2p.und");           # put undefined words in ...

                                # dont touch regular expression
trans_dont_touch('\\%(\w+)|`.*?\'|\\\\(\w+)');

while(<>){
  print(trans($_));
}