function k(n: longint): longint;
var x, s: longint;
begin
x:= 5; s:= 0;
while x<= n do
begin
s:= s+ trunc(n/x);
x:= x*5;
end;
k:= s;
end;
function g(n: longint): longint;
begin
case n of
0: g:= 1;
1: g:= 1;
2: g:= 2;
3: g:= 6;
4: g:= 4;
5: g:= 4;
6: g:= 4;
7: g:= 8;
8: g:= 4;
9: g:= 6;
10: g:= 6;
end;
end;
function d(n: longint): longint;
begin
case n mod 4 of
0: d:= 1;
1: d:= 3;
2: d:= 9;
3: d:= 7;
end;
end;
var n, r, p, c: longint;
Begin
readln(n);
r:= 1; c:= k(n);
if (n = 0) or (n = 1) then r:= 1
else begin
while n> 0 do begin
p:= n mod 10;
r:= (r*g(p))mod 10;
n:= n div 5;
end;
r:= (6*r*d(c))mod 10;
end;
writeln(r);
end.
ZnVuY3Rpb24gayhuOiBsb25naW50KTogbG9uZ2ludDsKdmFyIHgsIHM6IGxvbmdpbnQ7CmJlZ2luCgl4Oj0gNTsgczo9IDA7Cgl3aGlsZSB4PD0gbiBkbwoJYmVnaW4KCQlzOj0gcysgdHJ1bmMobi94KTsKCQl4Oj0geCo1OwoJZW5kOwoJazo9IHM7CmVuZDsKZnVuY3Rpb24gZyhuOiBsb25naW50KTogbG9uZ2ludDsKYmVnaW4KCWNhc2UgbiBvZgoJCTA6IGc6PSAxOyAKCQkxOiBnOj0gMTsgCgkJMjogZzo9IDI7IAoJCTM6IGc6PSA2OyAKCQk0OiBnOj0gNDsKCQk1OiBnOj0gNDsgCgkJNjogZzo9IDQ7IAoJCTc6IGc6PSA4OyAKCQk4OiBnOj0gNDsgCgkJOTogZzo9IDY7IAoJCTEwOiBnOj0gNjsKCWVuZDsKZW5kOwpmdW5jdGlvbiBkKG46IGxvbmdpbnQpOiBsb25naW50OwpiZWdpbgoJY2FzZSBuIG1vZCA0IG9mCgkJMDogZDo9IDE7IAoJCTE6IGQ6PSAzOyAKCQkyOiBkOj0gOTsgCgkJMzogZDo9IDc7CgllbmQ7CmVuZDsKCnZhciBuLCByLCBwLCBjOiBsb25naW50OwpCZWdpbiAKCXJlYWRsbihuKTsKCXI6PSAxOyBjOj0gayhuKTsKCWlmIChuID0gMCkgb3IgKG4gPSAxKSB0aGVuIHI6PSAxCgllbHNlIGJlZ2luCgkJd2hpbGUgbj4gMCBkbyBiZWdpbgoJCQlwOj0gbiBtb2QgMTA7CgkJCXI6PSAocipnKHApKW1vZCAxMDsKCQkJbjo9IG4gZGl2IDU7CgkJZW5kOwoJCXI6PSAoNipyKmQoYykpbW9kIDEwOwoJZW5kOyAKCXdyaXRlbG4ocik7CmVuZC4=