solve :: [[Float]] -> [Float]
solve ((0 : _) : _) = []
solve ((n : _) : is : xs) = sqrt (sum [(i - (sum is) / n)^2 | i <- is] / n)  solve xs

main = getContents >>= mapM_ print . solve . map (map read . words) .	lines