4.3BSD/usr/contrib/icon/book/f/aver.icn

procedure main()
   sum := 0.0
   count := 0
   while sum +:= read() do
      count +:= 1
   write(sum / count)
end