(define math:variance (lambda (lst) (let ((m (math:mean lst))) (let loop ((l lst) (v 0)) (if (null? l) (/ v (length lst)) (let ((var (- (car l) m))) (loop (cdr l) (+ v (* var var)))))))))