var
  f1, f2: text;
  st: string;

begin
  Assign(f1, 'input.txt');
  Assign(f2, 'output.txt');
  Reset(f1);
  ReWrite(f2);
  while not Eof(f1) do
  begin
    ReadLn(f1, st);
    if st.Where(ch -> ch in ['а'..'я', 'А'..'Я', 'ё', 'Ё']).Count = 0 then WriteLn(f2, st);
  end;
  Close(f1);
  Close(f2);
end.