#!/usr/bin/perl -w

use utf8;


while (<>) 
{


s/entry>/e>/g ;
s/ex>/x>/g ;
s/exgr>/xg>/g ;
s/extr>/xt>/g ;
s/lemma>/l>/g ;
s/mgr>/>/g ;
s/ref>/>/g ;
s/refgr>/>/g ;
s/restrict>/>/g ;
s/rootdict>/>/g ;
s/stem>/>/g ;
s/syn>/>/g ;
s/syngr>/>/g ;
s/trans>/>/g ;
s/trgr>/>/g ;

print;
}