#!/usr/bin/perl
while (<>) {
    s@\304\210@Ch@g;
    s@\304\211@ch@g;
    s@\304\234@Gh@g;
    s@\304\235@gh@g;
    s@\304\244@Hh@g;
    s@\304\245@hh@g;
    s@\304\264@Jh@g;
    s@\304\265@jh@g;
    s@\305\234@Sh@g;
    s@\305\235@sh@g;
    s@\305\254@U@g;
    s@\305\255@u@g;
    print;
};