Create sem_script.R