main=mapM(putStrLn.(s>>=).(&))s x&y|z>1940||z<1220,z>4*x+430||x*x+2*z<590||x<2,z+26*x+350>30*w,w?"mW _W ]U",y?"i_ UC C? 1)"="."|w?"wU mi im ?S )M",y?"kk W7 Uw 9A 7E"="#"|0<1="."where(?)a=all(/=map toEnum[76-x,76+a]).words;z=x*x+y*y;w=abs y s=[-43,-41..43]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).