a:array[0..402,0..302] of char;

b:array[0..51,0..52] of integer;

n,m,i,j,k,x,y,q,p,s:longint;

procedure da(xx,yy:longint);

begin

a[xx,yy]:=chr(43);

a[xx,yy+4]:=chr(43);

a[xx-3,yy]:=chr(43);

a[xx-3,yy+4]:=chr(43);

a[xx-5,yy+2]:=chr(43);

a[xx-5,yy+6]:=chr(43);

a[xx-2,yy+6]:=chr(43);

a[xx-1,yy]:=chr(124);

a[xx-2,yy]:=chr(124);

a[xx-1,yy+4]:=chr(124);

a[xx-2,yy+4]:=chr(124);

a[xx-3,yy+6]:=chr(124);

a[xx-4,yy+6]:=chr(124);

a[xx,yy+1]:=chr(45);

a[xx,yy+2]:=chr(45);

a[xx,yy+3]:=chr(45);

a[xx-3,yy+1]:=chr(45);

a[xx-3,yy+2]:=chr(45);

a[xx-3,yy+3]:=chr(45);

a[xx-5,yy+3]:=chr(45);

a[xx-5,yy+4]:=chr(45);

a[xx-5,yy+5]:=chr(45);

a[xx-4,yy+1]:=chr(47);

a[xx-4,yy+5]:=chr(47);

a[xx-1,yy+5]:=chr(47);

a[xx-1,yy+1]:=' ';

a[xx-1,yy+2]:=' ';

a[xx-1,yy+3]:=' ';

a[xx-2,yy+1]:=' ';

a[xx-2,yy+2]:=' ';

a[xx-2,yy+3]:=' ';

a[xx-4,yy+2]:=' ';

a[xx-4,yy+3]:=' ';

a[xx-4,yy+4]:=' ';

a[xx-2,yy+5]:=' ';

a[xx-3,yy+5]:=' ';

end;

begin

for i:=1 to 401 do

for j:=1 to 301 do

a[i,j]:=chr(46);

readln(n,m);

for i:=1 to n do

begin

for j:=1 to m do

read(b[i,j]);

readln;

end;

for i:=1 to n do

begin

b[i,m+1]:=b[i,1];

for j:=2 to m do

if b[i,j]>b[i,m+1] then b[i,m+1]:=b[i,j];

end;

s:=b[1,m+1]*3+1+n*2;

for i:=2 to n do

if b[i,m+1]*3+1+(n-i+1)*2>s then s:=b[i,m+1]*3+1+(n-i+1)*2;

x:=s-(n-1)*2;

y:=(n-1)*2+1;

for i:=1 to n do

begin

q:=x;

p:=y-4;

for j:=1 to m do

begin

p:=p+4;

for k:=1 to b[i,j] do

da(q-3*(k-1),p);

end;

x:=x+2;

y:=y-2;

end;

for i:=1 to s-1 do

begin

for j:=1 to 4*m+1+2*n do

write(a[i,j]);

writeln;

end;

for j:=1 to 4*m+1+2*n do

write(a[s,j]);

end.

表谢我，我是红领巾