InvalidType := Exception clone

List myAverage := method(
	acc := 0
	self foreach(elm,
		if (elm type == "Number") then (
			acc = acc + elm
		) else (
			InvalidType raise(elm type)
		)
	)
	return (acc/size(self))
)

list(1,2,3) myAverage println