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