4.4BSD/usr/src/old/awk/test/t.i.x

{i=i+log($1); print i,log($1)}
END {print exp(i),i}