program wp07zad2;

var spolgloska : array [0 .. 16] of Char;
    samogloska : array [0 .. 5] of Char;
    wartosc : array ['a' .. 'z'] of Integer;
    pomijane1, pomijane2, i : Integer;
    s : String;

procedure piszLitery(x, y : Char);
var z : Integer;
begin
    z := ord(x) * 10 + ord(y) - ord('0') * 11;
    if z >= pomijane1 then
        z := z + 1;
    if z >= pomijane2 then
        z := z + 1;
    write(spolgloska[z div 6], samogloska[z mod 6])
end;

procedure piszCyfry(a, b : Char);
var z : Integer;
begin
    z := wartosc[a] * 6 + wartosc[b];
    if z > pomijane2 then
        z := z - 1;
    if z > pomijane1 then
        z := z - 1;
    write(z div 10, z mod 10)
end;

begin
    spolgloska := 'bcdfghjklmnprstwz';
    samogloska := 'aeiouy';
    for i := 0 to 16 do
        wartosc[spolgloska[i]] := i;
    for i := 0 to 5 do
        wartosc[samogloska[i]] := i;
    pomijane1 := wartosc['j'] * 6 + wartosc['i'];
    pomijane2 := wartosc['j'] * 6 + wartosc['y'];
    s := paramstr(1);
    if ('0' <= s[1]) and (s[1] <= '9') then begin
        for i := 1 to length(s) div 2 do
            piszLitery(s[2 * i - 1], s[2 * i]);
        if odd(length(s)) then
            write(spolgloska[ord(s[length(s)]) - ord('0')])
    end else begin
        for i := 1 to length(s) div 2 do
            piszCyfry(s[2 * i - 1], s[2 * i]);
        if odd(length(s)) then
            write(wartosc[s[length(s)]])
    end;
    writeln
end.
