program Untitled;
var
   n, i, z : integer;
   p : real;
   a : array [ 1..1000 ] of integer;
begin
     readln ( n );
     for i := 1 to n do
     begin
          read ( a[i] );
          z := z + a[i];
     end;
     readln;
     p := z / n;
     for i := 1 to n do
     begin
          if a[i] >= p then
              write ( '-' )
          else
              write ( '.' );
     end;
readln;
end.