#!/usr/bin/perl
while (<>) {
    s@C\`|C\'@\306@g;
    s@c\`|c\'@\346@g;
    s@G\`|G\'@\330@g;
    s@g\`|g\'@\370@g;
    s@H\`|H\'@\246@g;
    s@h\`|h\'@\266@g;
    s@J\`|J\'@\254@g;
    s@j\`|j\'@\274@g;
    s@S\`|S\'@\336@g;
    s@s\`|s\'@\376@g;
    s@U\`|U\'@\335@g;
    s@u\`|u\'@\375@g;
    print;
};