character*15::a="-*?@.#`%$\\:[{'"""
do i=-14,14
do j=-24,24
k=max(max(abs(j)-9,1),abs(i)+1)
if(j/=0)print'(a$)',a(k:k)
enddo
print*
enddo
end