var s:string;d,i:integer;a:array[1..50] of integer;
begin
readln(s);
for d:=1 to length(s) do
val(s[d],a[d],i);
d:=length(s);
i:=1;
while (d>i) do begin
  if a[i] div 7=0 then
  a[i+1]:=a[i]*10+a[i+1]
  else
  a[i+1]:=(a[i]mod 7)*10+a[i+1];
  inc(i);
  end;
write(a[d] mod 7);
end.