var
a,b,c:string;
k,n,m,p:integer;
begin
 writeln('Enter the string:');
 readln(a);
 k:=1;
 while k<=length(a) do
 if (a[k]=' ') and (a[k+1]<>' ') then
  begin
   insert('no ',a,k+1);
   k:=k+4;
  end
  else k:=k+1;
 writeln(a);
 readln
end.