program Hello;
uses crt;
var n:string;
    i:byte;
function tm(x:byte): string;
begin
    if x = 1 then tm:= 'tram ';
    if x = 2 then tm:= 'muoi ';
    if x = 3 then tm:= '';
end;
function doc(y:string):string;
begin
    if (n[1] = '-') then 
        begin
            write('am ');
            delete(n,1,1);
        end;
    while length(n) <= 2 do n:= '0' + n;
    for i:= 1 to 3 do
        begin
            if (n[1] = '0') and (n[2] = '0') and (n[3] = '0') then 
                begin 
                    write('khong'); 
                    break; 
                end;
            if n[i] = '0' then
                if (i = 2) and (n[1] <> '0') and (n[3] <> '0') then write('linh ');
            if n[i] = '1' then
                begin
                    if i = 1 then write('mot tram ');
                    if i = 2 then write('muoi ');
                    if i = 3 then write('mot ');
                end;
            if n[i] = '2' then write('hai ', tm(i));
            if n[i] = '3' then write('ba ',  tm(i));
            if n[i] = '4' then write('bon ', tm(i));
            if n[i] = '5' then
                if (i = 3) and (n[2] <> '0') then 
                    write('lam ')
                else 
                    write('nam ', tm(i));
            if n[i] = '6' then write('sau ', tm(i));
            if n[i] = '7' then write('bay ', tm(i));
            if n[i] = '8' then write('tam ', tm(i));
            if n[i] = '9' then write('chin ',tm(i));
        end;
end;
begin
    clrscr;
    readln(n);
    doc(n);
end.