import Data.Complex
import Data.List
main :: IO ()
main = mapM_ (print . f) $ [1 .. 6] ++ [10, 20, 999, 1000]
f :: Int -> Double
f n = (!! n) $ nub $ sort [magnitude $ x :+ y | x <- a, y <- a]
  where a = [0 .. fromIntegral $ ceiling $ sqrt $ fromIntegral $ 4 * n]