program Project1;

{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;

const
  NfFull = 0; // Полное название триад:  тысяча, миллион, ...
  NfShort = 4; // Краткое название триад:  тыс., млн., ...

  NfMale = 0; // Мужской род
  NfFemale = 1; // Женский род
  NfMiddle = 2; // Средний род

function G_NumToStr(N: Int64; var S: string; FormatFlags: LongWord): Integer;
  function ModDiv10(var V: LongWord): Integer;
  begin
    Result := V mod 10;
    V := V div 10;
  end;

const
  M_Ed: array [1 .. 9] of string = ('один ', 'два ', 'три ', 'четыре ', 'пять ', 'шесть ', 'семь ',
    'восемь ', 'девять ');
  W_Ed: array [1 .. 9] of string = ('одна ', 'две ', 'три ', 'четыре ', 'пять ', 'шесть ', 'семь ',
    'восемь ', 'девять ');
  G_Ed: array [1 .. 9] of string = ('одно ', 'два ', 'три ', 'четыре ', 'пять ', 'шесть ', 'семь ',
    'восемь ', 'девять ');
  E_Ds: array [0 .. 9] of string = ('десять ', 'одиннадцать ', 'двенадцать ', 'тринадцать ',
    'четырнадцать ', 'пятнадцать ', 'шестнадцать ', 'семнадцать ', 'восемнадцать ',
    'девятнадцать ');
  D_Ds: array [2 .. 9] of string = ('двадцать ', 'тридцать ', 'сорок ', 'пятьдесят ', 'шестьдесят ',
    'семьдесят ', 'восемьдесят ', 'девяносто ');
  U_Hd: array [1 .. 9] of string = ('сто ', 'двести ', 'триста ', 'четыреста ', 'пятьсот ',
    'шестьсот ', 'семьсот ', 'восемьсот ', 'девятьсот ');
  M_Tr: array [1 .. 6, 0 .. 3] of string = (('тыс. ', 'тысяча ', 'тысячи ', 'тысяч '),
    ('млн. ', 'миллион ', 'миллиона ', 'миллионов '), ('млрд. ', 'миллиард ', 'миллиарда ',
    'миллиардов '), ('трлн. ', 'триллион ', 'триллиона ', 'триллионов '),
    ('квадр. ', 'квадриллион ', 'квадриллиона ', 'квадриллионов '),
    ('квинт. ', 'квинтиллион ', 'квинтиллиона ', 'квинтиллионов '));
var
  V1: Int64;
  VArr: array [0 .. 6] of Integer;
  I, E, D, H, Count: Integer;
begin
  Result := 3;
  if N = 0 then
  begin
    S := 'ноль ';
    Exit;
  end;
  if N > 0 then
    S := ''
  else if N <> $8000000000000000 then
  begin
    N := -N;
    S := 'минус ';
  end else begin { -9.223.372.036.854.775.808 }
    if FormatFlags and NfShort = 0 then
      S := 'минус девять квинтиллионов двести двадцать три квадриллиона' +
        ' триста семьдесят два триллиона тридцать шесть миллиардов' +
        ' восемьсот пятьдесят четыре миллиона семьсот семьдесят пять' + ' тысяч восемьсот восемь '
    else
      S := 'минус девять квинт. двести двадцать три квадр. триста' +
        ' семьдесят два трлн. тридцать шесть млрд. восемьсот пятьдесят' +
        ' четыре млн. семьсот семьдесят пять тыс. восемьсот восемь ';
    Exit;
  end;
  Count := 0;
  repeat
    V1 := N div 1000;
    VArr[Count] := N - (V1 * 1000);
    N := V1;
    Inc(Count);
  until V1 = 0;
  for I := Count - 1 downto 0 do
  begin
    H := VArr[I];
    Result := 3;
    if H <> 0 then
    begin
      E := ModDiv10(LongWord(H));
      D := ModDiv10(LongWord(H));
      if D <> 1 then
      begin
        if E = 1 then
          Result := 1
        else if (E >= 2) and (E <= 4) then
          Result := 2;
        if (H <> 0) and (D <> 0) then
          S := S + U_Hd[H] + D_Ds[D]
        else if H <> 0 then
          S := S + U_Hd[H]
        else if D <> 0 then
          S := S + D_Ds[D];
        if E <> 0 then
          if I = 0 then
            case FormatFlags and 3 of
              0: S := S + M_Ed[E];
              1: S := S + W_Ed[E];
              2: S := S + G_Ed[E];
            else S := S + '#### ';
            end else if I = 1 then
            S := S + W_Ed[E]
          else
            S := S + M_Ed[E];
      end else if H = 0 then
        S := S + E_Ds[E]
      else
        S := S + U_Hd[H] + E_Ds[E];
      if I <> 0 then
      begin
        if FormatFlags and NfShort = 0 then
          S := S + M_Tr[I, Result]
        else
          S := S + M_Tr[I, 0];
      end;
    end;
  end;
end;

var
  Sint: Int64;
  SoutStr: string;

begin
  try
    while True do
    begin
      Readln(Sint);
      G_NumToStr(Sint, SoutStr, NfFull);
      Writeln(SoutStr);
    end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.