character*15::a="""'{[:\\$%`#.@?*-"
do i=1,29
do j=1,48
k=min(min(i,30-i),min(j,49-j))
print'(a$)',a(k:k)
enddo
print*
enddo
end