program cifra_008;
var t:longint;
	a:array['0'..'9'] of byte;
	b:array[0..100] of longint;
	
	function putere(x,y:word):longint;
	var j,z:longint;
	begin
		z:=1;
		for j:=1 to y do z:=z*x;
		putere:=z;
	end;
	
	procedure compute;
	var i:word;
	begin
		b[1]:=1;
		for i:=2 to 100 do begin
			b[i]:=b[i-1]+putere(i mod 10,(i mod 4)+4);
			b[i]:=b[i] mod 10;
		end;
	end;

	procedure main;
	var fin,fout:text;
		c:char; n,l:word;
		i,x:longint; s:string;
	begin
		a['0']:=0; i:=0;
		for c:='1' to '9' do begin
			inc(i); a[c]:=i;
		end;
		assign(fin,'cifra.in'); reset(fin);
		assign(fout,'cifra.out'); rewrite(fout);
		readln(fin,t);
		for i:=1 to t do begin
			readln(fin,s);
			l:=length(s); 
			n:=a[s[l-1]]*10 + a[s[l]];
			writeln(fout,b[n]);
		end;
		close(fout); close(fin);
	end;
	
BEGIN
	compute;
	main;
END.