main=mapM putStrLn$["  Z | 0.00"++([1..9]>>=("   0.0"++).show),"----+"++do[0..69];"-"]++[shows(x/10)" |"++do y<-[0..9];" 0."++show(round$5000+sum[sqrt$8/exp(i^2/5000^2)/pi|i<-[1,3..x*500+y*50-1]])|x<-[0..30]]