Create euler_001.R