Var n:LongInt;
 Begin
  Read(n);
  if n in [1..4] then writeLn('few');
  if n in [5..9] then writeLn('several');
  if n in [10..19] then writeLn('pack');
  if n in [20..49] then writeLn('lots');
  if n in [50..99] then writeLn('horde');
  if n in [100..249] then writeLn('throng');
  if ((n>=250) and (n<=499)) then writeLn('swarm');
  if ((n>=500) and (n<=999)) then writeLn('zounds');
  if n>=1000 then writeLn('legion');
 end.