Problem:
Standard Deviation

You have final scores of an examination for n students. Calculate standard deviation of the scores s1, s2 ... sn.

The variance α2 is defined by

α2 = (∑ni=1(si - m)2)/n

where m is an average of si.

The standard deviation of the scores is the square root of their variance.

Input

The input consists of multiple datasets. Each dataset is given in the following format:

n
s1 s2 ... sn

The input ends with single zero for n.

Output

For each dataset, print the standard deviation in a line. The output should not contain an absolute error greater than 10-4.

Constraints

n ≤ 1000

0 ≤ si ≤ 100

Sample Input

5
70 80 100 90 20
3
80 80 80
0

Sample Output

27.85677655
0.00000000

Solution in Haskell (judge verdict: Accepted)

import Text.Printf

main = do
    n <- getLine
    if n == "0"
        then return ()
        else do
            solve
            main

solve = do
    ss <- getLine
    let ns = map (\x -> read x :: Double) $ words ss
    printf "%.8f\n" (sd ns)

variance l = (sum $ map (\x -> (x- (avg l))^2) l) / (fromIntegral $ length l)
avg l = (sum l) / (fromIntegral $ length l)

sd l = sqrt $ variance l