#!/usr/local/bin/jperl5.003

while(<>) {
    s/が/か゛/g; s/ぎ/き゛/g; s/ぐ/く゛/g; s/げ/け゛/g; s/ご/こ゛/g;
    s/ざ/さ゛/g; s/じ/し゛/g; s/ず/す゛/g; s/ぜ/せ゛/g; s/ぞ/そ゛/g;
    s/だ/た゛/g; s/ぢ/ち゛/g; s/づ/つ゛/g; s/で/て゛/g; s/ど/と゛/g;
    s/ば/は゛/g; s/び/ひ゛/g; s/ぶ/ふ゛/g; s/べ/へ゛/g; s/ぼ/ほ゛/g;
    s/ぱ/は゜/g; s/ぴ/ひ゜/g; s/ぷ/ふ゜/g; s/ぺ/へ゜/g; s/ぽ/ほ゜/g;
    tr/あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをんっゃゅょ？゛゜×ー/いうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをんっゃゅょ？゛゜×ーあ/;
    tr/０１２３４５６７８９/１２３４５６７８９０/;
    tr/0123456789/1234567890/;
    print;
}