Create euler_022.R