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]