l=[0..30] main=mapM putStrLn[take(8+sum[1|x>99])$show$sqrt x+5e-7|x<-[1..901],or[x==y^2+z^2|y<-l,z<-l]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page