#!/usr/bin/perl
while (<>) {
    s@\306@&\#264;@g;
    s@\346@&\#265;@g;
    s@\330@&\#284;@g;
    s@\370@&\#285;@g;
    s@\246@&\#292;@g;
    s@\266@&\#293;@g;
    s@\254@&\#308;@g;
    s@\274@&\#309;@g;
    s@\336@&\#348;@g;
    s@\376@&\#349;@g;
    s@\335@&\#364;@g;
    s@\375@&\#365;@g;
    print;
};