main=mapM putStr[" Z | 0.0",'0'%'8'>>=(:" 0.0"),"9\n----+",0%69>>"-",do x<-0%30;'\n':shows(x/10)" |"++do y<-0%9;" 0."++show(round$5e3+sum[sqrt$8/exp(i^2/5e3^2)/pi|i<-[1,3..x*500+y*50-1]])] x%y=[x..y]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).