program perevodhik;
type
  translate=record
    ang: string[20];
    rus: string[20];
  end;
var
  dict: array[1..3] of translate;
  i: integer;
  f_rus : text;
  f_ang : text;
  rus, ang: string;
  slovo: string;
begin
  assign(f_ang,'f.txt'); reset(f_ang);
  assign(f_rus,'f1.txt'); reset(f_rus);
  i:=0;
  while not eof(f_ang) do begin
     inc(i);
     with dict[i] do begin
      readln(f_ang,ang);
      writeln('!'+ang+'!');
      readln(f_rus,rus);
      writeln('!'+rus+'!');
     end;
  end;

  readln(slovo);
  writeln('!'+slovo+'!');

  for i:=1 to 3 do
    if slovo=dict[i].ang then begin
       writeln('!'+slovo+'!=!'+dict[i].ang+'!');
       writeln(dict[i].rus);
       readln;
       break;
    end
  else
    writeln('!'+slovo+'!<>!'+dict[i].ang+'!');
  end.