dalex

var
    s, t: string;
    a: array [0..9] of string;
    i, k: longint;

begin
    readln(s);
    for i := 0 to 9 do
        readln(a[i]);
    for k := 0 to 7 do begin
        t := copy(s, k * 10 + 1, 10);
        for i := 0 to 9 do begin
            if t = a[i] then begin
                write(i);
                break;
            end;
        end;
    end;
    writeln;
end.