TICHDIEM PASCAL

var a:array[0..9] of longint = (4,2,2,1,2,2,3,2,2,1);
    s,k,n,x,i:longint;
procedure giai;
begin
        readln(x);
        s:=0;
        while x>0 do
        begin
                k:=x mod 10;
                s:=s+a[k];
                x:=x div 10;
        end;
        writeln(s);

end;
begin
        assign(input,'tichdiem.inp');reset(input);
        assign(output,'tichdiem.out');rewrite(output);
        readln(n);
        for i:=1 to n do
                giai;
end.