#!/usr/bin/perl
while (<>) {
    s@\306@\304\210@g;
    s@\346@\304\211@g;
    s@\330@\304\234@g;
    s@\370@\304\235@g;
    s@\246@\304\244@g;
    s@\266@\304\245@g;
    s@\254@\304\264@g;
    s@\274@\304\265@g;
    s@\336@\305\234@g;
    s@\376@\305\235@g;
    s@\335@\305\254@g;
    s@\375@\305\255@g;
    print;
};