Prolog - List Average

Prolog Average a List