work on main.R