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);
  y:=copy(c,length(c)-2,length(c));
  if ((y='ova')or(y='ov'))
  then begin mas[i]:=c; inc(i);end;
  end;
  for j:= 1 to i do
  writeln(mas[j])
end.