uses graphABC;

var
  s: string;
  i, a :integer;

begin
  readln(s);
  for i:=3 to s.Length do
  begin
    if(s[i-2]='о') and (s[i-1]='й') then
    begin
      a:=a+1;
      write(s[i]);
    end;
  end;
  if a=0 then write('net takih');
end.