uses crt;
var a, b, i, j :word;
    c,y:string;
    mas : array[1..100] of string;
begin
  clrscr;
  i:=1;
  assign(input, 'input.txt'); reset(input);
  while (not eof) do begin
  readln(c);

  if ((copy(c,length(c)-2,length(c))='ova')or(copy(c,length(c)-1,length(c))='ov'))
  then begin mas[i]:=c; inc(i);end;
  end;
  for j:= 1 to i do
  writeln(mas[j])
end.