uses crt;
var chuc, donvi, tram, nghin,n:integer;
a:array[1..10]of string;
begin
readln(n);
     a[1]:=' mot';
     a[2]:=' hai';
     a[3]:=' ba';
     a[4]:=' bon';
     a[5]:=' nam';
     a[6]:=' sau';
     a[7]:=' bay';
     a[8]:=' tam';
     a[9]:=' chin';
nghin:= n div 1000;
n:=n mod 1000;
tram:=n div 100;
n:=n mod 100;
chuc:=n div 10;
donvi:=n mod 10;
write(nghin,' ',tram,' ', chuc,' ', donvi);
 if nghin<>0 then write(a[nghin], ' nghin');
 If (tram<>0) and(nghin<>0) Then write(a[tram],' tram')
 else if (tram<>0) and (nghin=0) then write(a[tram],' tram')
 Else if (tram =0) and (nghin<>0) then write(' khong tram');
 if chuc =1 then write(' muoi');
 if (chuc=0) and(donvi<>0) and(nghin<>0) then write(' linh') ;
 if (chuc>1) then write(a[chuc],' muoi');
 Case donvi of
    1:if (chuc<>1) and (chuc<>0) then write(' mot')
        else write(a[donvi]);
    5:if chuc<>0 then write(' lam')
      else write(a[donvi]);
  else
    IF donvi<>0 then write( a[donvi]);
 End;
readln
end.