program bowling(input,output);
var
 a:array[1..12,1..4]of integer;
 s:integer;
procedure ini;
var st:string;p,i,sco1,sco2,code:integer;
begin
 assign(input,'bowling.in');assign(output,'bowling.out');
 reset(input);rewrite(output);
 read(st);
 i:=0;p:=pos(' ',st);
 while p<>0 do begin
  inc(i);
  if p=2 then begin a[i,1]:=10;a[i,3]:=1;end;
  if p=3 then
   if st[2]='/' then begin val(st[1],a[i,1],code);a[i,2]:=10-a[i,1];a[i,3]:=2;end
   else begin
    val(st[1],a[i,1],code);
    val(st[2],a[i,2],code);
    a[i,3]:=3;
   end;
  delete(st,1,p);
  p:=pos(' ',st)
 end;
 inc(i);
 p:=length(st);
 if p=1 then a[i,1]:=10;
 if p=2 then
  if st[2]='/' then begin val(st[1],a[i,1],code);a[i,2]:=10-a[i,1];end
  else begin val(st[1],a[i,1],code);val(st[2],a[i,2],code);end;
end;
procedure main;
var i:integer;
begin
 for i:=1 to 10 do begin
  if a[i,3]=1 then
   if a[i+1,3]=1 then a[i,4]:=a[i,1]+a[i+1,1]+a[i+2,1]
   else a[i,4]:=a[i,1]+a[i+1,1]+a[i+1,2];
  if a[i,3]=2 then a[i,4]:=a[i,1]+a[i,2]+a[i+1,1];
  if a[i,3]=3 then a[i,4]:=a[i,1]+a[i,2];
  write(a[i,4],' ');
 end;
 writeln;
 s:=0;
 for i:=1 to 10 do begin
  s:=s+a[i,4];
  write(s,' ');
 end;
 close(input);close(output);
end;
begin
 ini;
 main;
end.