initial push of main.R