program dosadan;
var n : integer;
    c : string[3];
    r : array[1..1000] of char;
    i : integer;

begin
    readln(n);
    for i := 1 to n do begin
        read(c);
        if (c[1] = '1') and (upcase(c[2]) in ['0'..'9', 'A', 'B', 'C', 'D', 'E', 'F']) then
            r[i] := '.'
        else
            r[i] := '-';
    end;
    for i := 1 to n do
        write(r[i]);
end.