var f,g:text;
    lada:longint;
    ren:array[1..6] of longint;
    i: integer;
    vege:boolean;
    xx:integer;

begin
assign(f,'packets.in');
reset(f);
assign(g,'packets.out');
rewrite(g);

vege:=false;
Repeat
For i:=1 to 6 Do
    Read(f,ren[i]);
If (ren[1]+ren[2]+ren[3]+ren[4]+ren[5]+ren[6])>0 Then
begin
lada:=0;
Inc(lada,ren[6]);
Inc(lada,ren[5]); Dec(ren[1],ren[5]*11);
Inc(lada,ren[4]);
   Dec(ren[2],ren[4]*5);
   If ren[2]<0 Then Dec(ren[1],-ren[2]*4);
If ren[3]>0 Then
begin
Inc(lada,((ren[3]-1) div 4)+1);
If ren[2]<0 Then ren[2]:=0;
   Case (ren[3] mod 4) of
        3: begin
           Dec(ren[2]);
           If ren[2]<0 Then Dec(ren[1],9) Else Dec(ren[1],5);
           end;
        2: begin
           Dec(ren[2],3);
           If ren[2]<0 Then Dec(ren[1],6-ren[2]*4) Else Dec(ren[1],6);
           end;
        1: begin
           Dec(ren[2],5);
           If ren[2]<0 Then Dec(ren[1],7-ren[2]*4) Else Dec(ren[1],7);
           end;
        end;
end;
If ren[2]>0 Then
   begin
   Inc(lada,((ren[2]-1) div 9)+1);
   xx:=9-(ren[2] mod 9); if xx=9 Then xx:=0;
   Dec(ren[1],(xx)*4);
   end;
If ren[1]>0 Then Inc(lada,((ren[1]-1) div 36)+1);
WriteLn(g,lada);
end Else vege:=true;
Until vege;

Close(f);
Close(g);
end.