mean := ( s :: seq(algebraic) ) -> Normalizer( `+`( args ) / nargs ):