var a,b,n,i,aa,bb:longint;
Begin
 readln(a,b);
 while (a>0) or (b>0) do
 begin
 n:=0;
 i:=0;
 repeat
 aa:=a mod 10;
 bb:=b mod 10;
 a:=a div 10;
 b:=b div 10;
 if aa+bb+i>9 then begin n:=n+1; i:=1 end else i:=0;
 until (a=0) and (b=0);
 if n>0 then write(n) else write('No');
 write(' carry operation');
 if n>1 then writeln('s.') else writeln('.');
 readln(a,b);
 end; 

end.