Create euler_021_2.R