rt.

var 
    a:array[1..10]of integer=(6,6,2,6,4,4,4,8,4,6);
    b:array[1..4]of integer=(6,8,4,2);
    ans,n:longint;
begin
    readln(n);
    ans:=1;
    if n=1 then begin
        write('1');
        exit;
    end;
    while n<>0 do begin
        ans:=ans*a[n mod 10];
        n:=n div 5;
	ans:=ans*b[n mod 4]mod 10;
	end;
	write(ans);
end.