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