var a, b, i, j :word;
    c,y:string;
    mas : array[1..100] of string;
begin
  i:=1;
  assign(input, 'input.txt'); reset(input);
  while (not eof) do
  begin
    readln(c);
    if((pos('ova',c)=length(c)-2)or((pos('ov',c)=length(c)-1)))
        then begin
             mas[i]:=c; inc(i);
        end;
  end;
  for j:= 1 to i do
    writeln(mas[j])
end.