var a:array[1..10000] of byte;  
  i,j,m:integer;
begin  for i:=1 to 10 do 
 begin
    
    read(m);
 
       j:=2;
   
     while m>1 do
 
       begin
         
    while m mod j=0 do
  
            begin 
     
                   m:=m div j;
 
                       inc(a[j]);
 
             end ;
      
       inc(j);
     
   end;
 
 end;
 
 m:=1;
 
 for i:=2 to 10000 do
 
     m:=m*(a[i]+1) mod 10; 
 writeln(m);
end.