main=mapM putStrLn[[".#"!!(x&y)|x<-r]|y<-r]
r=[0..43]
38&16=0
8&39=0
11&16=0
17&17=1
16&31=0
18&32=0
x&y|y>22&&72%1549+96#2208>550^2&&2%43+2#46<401||(abs(x*4-86)-29)^2+4#59<200||r<81806&&r>51436=1|1>0=0where r=13%279+13#281;a%b=(x*a-b)^2;a#b=(y*a-b)^2