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.
表谢我,我是红领巾