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