#meanv.mtb
 
let k1=sum(c1)
let c2=c1 * c1
let k2=sum(c2)
let c3=c2 * c1
let k3=sum(c3)
let k5=count(c1)
let k6=k1/k5
let k7=k5-1
let c8=c1-k6
let c9=c8 * c8
let c10=c9* c8
let k8=sum(c8)
let k9=sum(c9)
let k10=sum(c10)
let k4=k9/k7
let k11=sqrt(k4)
describe c1
print c1-c3, c8-c10
print k1-k11
end