#!/usr/bin/perl
while (<>) {
    s@\306@Ch@g;
    s@\346@ch@g;
    s@\330@Gh@g;
    s@\370@gh@g;
    s@\246@Hh@g;
    s@\266@hh@g;
    s@\254@Jh@g;
    s@\274@jh@g;
    s@\336@Sh@g;
    s@\376@sh@g;
    s@\335@U@g;
    s@\375@u@g;
    print;
};