var

s,s1,s2,s3:string; c:char;

i,j,l,l1,l2,w:integer; a,b,m:real;

begin

readln(s); l:=length(s); w:=pos('=',s); a:=0; b:=0;

for i:=1 to l do

if ((s[i]'9')) and (s[i]'-')

and (s[i]'=') and (s[i]'+') and (s[i]'.') then begin c:=s[i]; break; end;

s1:=copy(s,1,w-1); s2:=copy(s,w+1,l-w);

l1:=length(s1); l2:=length(s2);

while l1>0 do

begin

i:=2;

while (i0 do

begin

i:=2;

while (i