#!/usr/bin/perl
while (<>) {
    s@C\`|C\'@\304\210@g;
    s@c\`|c\'@\304\211@g;
    s@G\`|G\'@\304\234@g;
    s@g\`|g\'@\304\235@g;
    s@H\`|H\'@\304\244@g;
    s@h\`|h\'@\304\245@g;
    s@J\`|J\'@\304\264@g;
    s@j\`|j\'@\304\265@g;
    s@S\`|S\'@\305\234@g;
    s@s\`|s\'@\305\235@g;
    s@U\`|U\'@\305\254@g;
    s@u\`|u\'@\305\255@g;
    print;
};