program porivnyannya;

{$APPTYPE CONSOLE}
var
a,b:array [1..10000] of integer;
n,m,i:integer;
f1,f2:text;
s:char;
begin
assign(f1,'long.txt');
reset(f1);
n:=0;
while not(eoln(f1)) do
begin
read(f1,s);
if s='0' then n:=n+1;
if s='1' then n:=n+1;
if s='2' then n:=n+1;
if s='3' then n:=n+1;
if s='4' then n:=n+1;
if s='5' then n:=n+1;
if s='6' then n:=n+1;
if s='7' then n:=n+1;
if s='8' then n:=n+1;
if s='9' then n:=n+1;
end;
readln(f1,s);
m:=0;
while not(eoln(f1)) do
begin
read(f1,s);
if s='0' then m:=m+1;
if s='1' then m:=m+1;
if s='2' then m:=m+1;
if s='3' then m:=m+1;
if s='4' then m:=m+1;
if s='5' then m:=m+1;
if s='6' then m:=m+1;
if s='7' then m:=m+1;
if s='8' then m:=m+1;
if s='9' then m:=m+1;
end;
close(f1);
writeln(n,' ',m);
readln;
assign(f2,'rez.txt');
rewrite(f2);
if n>m then writeln(f2,'a>b');
if n<m then writeln(f2,'a<b');
if n=m then begin
for i:=1 to n do
begin
if a[i]>b[i] then writeln(f2,'a>b');
if a[i]<b[i] then writeln(f2,'a<b');
if a[i]=b[i] then writeln(f2,'a=b');

end;
end;
close(f2);
end.