#define f(x,y)sqr(x/10-23+i div 44)+sqr(y/10-22+i mod 44)
var i:word;begin for i:=0to 1935do
write((".#")[1+ord((f(14,5.2)<483)&(f(14,5)>304)|(f(81,77)<12)|(f(81,-68)<12)|(f(8,4)<108)&(f(30,4)>78)&(i>999)|(i=339)|(i=1544))],^j:i mod 44div 43)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).