[mean
   [sum 0 [+] fold].
   dup sum
   swap size [[1 <] [1]] when /
].