'Standard Deviation
dim a, i, x, n, sm, smq
SetButton(21)
a = GetButtonData
n = CountList(a)
sm = 0
smq = 0
i = 0
while(n > i){
        x = Val( GetList(a, i) )
        sm = sm + x
        smq = smq + x * x
        i = i + 1
}
print "n = ", n, "\n"
print "sum = ", sm, "\n"
print "ave = ", sm / n, "\n"
print "s = ", sqr( ( smq - sm * sm / n ) / n ) , "\n"
print "s1 = ", sqr( ( smq - sm * sm / n ) / ( n - 1) ) , "\n"