uses Crt;
var
  n,i,j,max:integer;
  niz:array[1..100] of integer;
begin
  ClrScr;
  n:=0;
  max:=0;
  Read(n);
  for i:=1 to n do
   begin
    Read(niz[i]);
    if niz[i]>max then
    max:=niz[i];
   end;
  for i:=max downto 1 do
   begin
    for j:=1 to n do
     if i>niz[j] then
      Write(' ')
     else
      Write('x');
    Writeln;
   end;
  Readln;
end.