Create euler_018.R