var a:array[1..20] of integer;
n,n1:string;
x,k,i,s,code:integer;
begin
read(n);
x:=length(n);
k:=x div 3;
if x mod 3>0 then k:=k+1;
for i:=1 to k do begin
n1:=copy(n,x-3*i+1,3);
val(n1,k,code);
a[i]:=k;
delete(n,x-2*i,3);
end;
k:=x div 3;
if x mod 3>0 then k:=k+1;
if k div 2=0 then begin
a[1]:=-1*a[1];
a[3]:=-1*a[3];
a[5]:=-1*a[5];
a[7]:=-1*a[7];
a[9]:=-1*a[9];
a[11]:=-1*a[11];
a[13]:=-1*a[13];
a[15]:=-1*a[15];
a[17]:=-1*a[17];
end
else begin
a[2]:=-1*a[2];
a[4]:=-1*a[4];
a[6]:=-1*a[6];
a[8]:=-1*a[8];
a[10]:=-1*a[10];
a[12]:=-1*a[12];
a[14]:=-1*a[14];
a[16]:=-1*a[16];
end;
for i:=1 to 17 do
s:=s+a[i];
write(abs(s mod 7));
end.