import Data.List import Text.Printf l x y =sqrt$x*x+y*y g v =nub$sort$filter(\q->q>=v&&qprintf "%.6f\n" x::IO ())$take 300$concat$map g[(1.0::Double)..]