program xmz;
var
x:string;
z:array[1..12]of integer;
f:array[1..12,1..2]of integer;
ff:array[1..26]of integer;
a,l,t,b:integer;
f1,f2:text;
asd:array[1..12]of boolean;
begin
assign(f1,'bowling.in');assign(f2,'bowling.out');
reset(f1);rewrite(f2);
read(f1,x);l:=1;asd[11]:=true;asd[12]:=true;

for a:=1 to length(x) do
 begin
  if x[a]=' ' then begin l:=l+1;t:=a;end;
  if (x[a]<='9')and(x[a]>='0')then
   begin
    if a-t=1 then begin b:=b+1;ff[b]:=ord(x[a])-48;f[l,1]:=b;end;
    if a-t=2 then begin b:=b+1;ff[b]:=ord(x[a])-48;f[l,2]:=b;end;
   end;
  if x[a]='/' then
   begin
    if a-t=1 then begin b:=b+1;ff[b]:=10;f[l,1]:=b;end;
    if a-t=2 then begin b:=b+1;ff[b]:=10-ff[b-1];f[l,2]:=b;end;
   end;
 end;



 for a:=1 to l do
 if a<=10 then
 begin
  if ff[f[a,1]]=10 then begin if f[a,1]+2>b then asd[a]:=true;z[a]:=10+ff[f[a,1]+1]+ff[f[a,1]+2] end
   else
    begin
     if ff[f[a,1]]+ff[f[a,2]]=10 then begin if f[a,2]+1>b then asd[a]:=true;z[a]:=10+ff[f[a,2]+1] end
      else z[a]:=ff[f[a,1]]+ff[f[a,2]];
    end;
 end;

 t:=0;
 for a:=1 to l do
  if not asd[a] then
  write(f2,z[a],' ');
 writeln(f2);
 for a:=1 to l do
  if not asd[a] then
  begin
   t:=t+z[a];write(f2,t,' ');
  end
  else break;
 close(f1);close(f2);
end.