KellyO R code for attempt at Euler 8

I wasn't familiar with the scan function... nice!