var i,j:word;begin for i:=1to 29do for j:=1to 49do write(copy(' "''{[:\$%`#.@?*-',1+min(min(i,30-i),min(j,49-j)),1))end.