var
  s : string;
  i : longint;
begin
  readln(s);
  for i:=1 to length(s) do
    if pos('Северный',s)<>0 then
      delete(s,pos('Северный',s),8);
  writeln(s);
end.