/AMPHO - Âm phổ

              Uses Crt;
        Var n,m,i,j:longint;
          a:array[1..1000000] of longint;
        Begin
            readln(n,m);
            for i:=1 to n do read(a[i]);
            for j:=1 to m do begin
                for i:=1 to n do
                        if a[i]=m then
                                begin
                                        write('#');
                                        dec(a[i]);
                                 end
                        else write('.');
               dec(m);   writeln;
            end;
            readln;
        End.