---

var a,x,z,p:string;  
 b,c,d,t,l,i,g,h,q,s:integer;  
begin 
  while a<>'0 0' do 
    begin 
      d:=0;  
      t:=0;  
      a:='';  
      x:='';  
      z:='';  
      readln(a);  
      if a='0 0'then break;  
      l:=length(a);  
      s:=0;  
      for i:=l downto 1 do 
      begin 
        s:=s+1;  
        if a[i]=' ' then break else insert(a[i],x,s);  
      end;  
      s:=0;  
      g:=length(x);  
      s:=0;  
      for i:=l-g-1 downto 1 do 
      begin 
        s:=s+1;  
        insert(a[i],z,s);  
      end;  
      h:=length(z);  
      if h<g then q:=g else q:=h;  
      for i:=1 to q do 
        begin 
          val(x[i],b);  
          val(z[i],c);  
          if (b+c+d)>9 then t:=t+1;  
          d:=(b+c+d)div 10;  
        end;  
      if t=0 then write('No') else write(t);  
      write(' carry operation');  
      if t>=2 then writeln('s.') else writeln('.')  
    end;  
end.