Dwarf Home

var k,i,j,n,ok:longint;
    s:string;
    a:array[0..65] of longint;
procedure b(t:longint);
var i:longint;
begin
  for i:=1 to t do write(' ');
end;
procedure p(t:longint);
var i,j:longint;
begin
  case t of
  {0:   }0:b(k+2);
  {1:  |}1:begin
             b(k+1);
             write('|');
           end;
  {2:|  }2:begin
             write('|');
             b(k+1);
           end;
 
  {3:| |}3:begin
             write('|');
             b(k);
             write('|');
           end;
  {4: - }4:begin
             write(' ');
             for i:=1 to k do write('-');
             write(' ');
           end;
 
  end;
end;
procedure num(q,t:longint);
var i,j:longint;
begin
  case t of
    1:case q of
        1,3,5:p(0);
        2,4:p(1);
      end;
    2:case q of
        1,3,5:p(4);
        2:p(1);
        4:p(2);
      end;
    3:case q of
        1,3,5:p(4);
        2,4:p(1);
      end;
    4:case q of
        1,5:p(0);
        3:p(4);
        2:p(3);
        4:p(1);
      end;
    5:case q of
        1,3,5:p(4);
        2:p(2);
        4:p(1);
      end;
    6:case q of
        1,3,5:p(4);
        2:p(2);
        4:p(3);
      end;
    7:case q of
        3,5:p(0);
        1:p(4);
        2,4:p(1);
      end;
    8:case q of
        1,3,5:p(4);
        2,4:p(3);
      end;
    9:case q of
        1,3,5:p(4);
        2:p(3);
        4:p(1);
      end;
    0:case q of
        1,5:p(4);
        3:p(0);
        2,4:p(3);
      end;
  end;
end;
begin
  readln(k);
  readln(s);
  n:=length(s);
  for i:=1 to n do
    val(s[i],a[i],ok);
  for i:=1 to 2*k+3 do begin
    for j:=1 to n-1 do begin
      if i=1
        then num(1,a[j])
        else
          if (i>1) and (i<k+2)
            then num(2,a[j])
            else
              if i=k+2
                then num(3,a[j])
                else
                  if i=2*k+3
                    then num(5,a[j])
                    else num(4,a[j]);
      write(' ');
    end;
 
    j:=n;
    if i=1
      then num(1,a[j])
      else
        if (i>1) and (i<k+2)
          then num(2,a[j])
          else
            if i=k+2
              then num(3,a[j])
              else
                if i=2*k+3
                  then num(5,a[j])
                  else num(4,a[j]);
 
    writeln;
  end;
end.