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]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).