var a: array [1..239] of byte;
str: string;
i,n: longint;

begin
 readln(str);
 n:=length(str);
 for i:=1 to n do a[i]:=ord(str[i])-ord('0');
 if n=1 then writeln(a[1] mod 7 ) else begin
  i:=1;
  while i<=n-1 do begin
   a[i+1]:=(a[i]*10+a[i+1]) mod 7;
   inc(i);
  end;
  writeln(a[n]);
 end;
end.