KellyO R code for attempt at Euler 8

See also: `prod()`