var n,i:longint;
    uc,s:byte;
    f,g:text;

begin
assign(f,'cifra.in');
reset(f);
readln(f,n);
while not eof(f) do
      begin
      readln(f,n);
      s:=0;
      for i:=1 to n do
          begin

          if i mod 10 = 1 then
             uc:=1;

          if i mod 10 = 2 then
             begin
             if i mod 4=1 then uc:=2;
             if i mod 4=2 then uc:=4;
             if i mod 4=3 then uc:=8;
             if i mod 4=0 then uc:=6;
             end;

          if i mod 10 = 3 then
             begin
             if i mod 4=1 then uc:=3;
             if i mod 4=2 then uc:=9;
             if i mod 4=3 then uc:=7;
             if i mod 4=0 then uc:=1;
             end;

          if i mod 10 = 4 then
             begin
             if i mod 2=0 then uc:=6;
             if i mod 2=1 then uc:=4;
             end;

          if i mod 10 = 5 then
             uc:=5;

          if i mod 10 = 6 then
             uc:=6;

          if i mod 10 = 7 then
             begin
             if i mod 4=1 then uc:=7;
             if i mod 4=2 then uc:=9;
             if i mod 4=3 then uc:=3;
             if i mod 4=0 then uc:=1;
             end;

          if i mod 10 = 8 then
             begin
             if i mod 4=1 then uc:=8;
             if i mod 4=2 then uc:=4;
             if i mod 4=3 then uc:=2;
             if i mod 4=0 then uc:=6;
             end;

          if i mod 10=9 then
             begin
             if i mod 2=1 then uc:=9;
             if i mod 2=0 then uc:=1;
             end;


          s:=s + uc;
          s:=s mod 10;

          end;
      writeln(s);
      end;

readln
end.