program literkidoanagramu;
var
    a,w:string;
    t,x:array['a'..'z'] of integer;
    r,s:integer;
    n,m,k:word;
    z:char;
begin
    readln(a);
    for k:=1 to length(a) do t[a[k]]:=t[a[k]]+1;
    readln(n);
    for m:=1 to n do
        begin
        for z:='a' to 'z' do x[z]:=0;
        readln(w);
        for k:=1 to length(w) do x[w[k]]:=x[w[k]]+1;
        s:=0;
        for z:='a' to 'z' do
            begin
            r:=x[z]-t[z];
            s:=s+Abs(R);
            IF r=1 then write(z)
            else if r=-1 then write('-',z)
            else if Abs(R)>1 then write(r,z);
            end;
        if s=0 then writeln(0) else writeln
    end
end.