Create WhileSearch.R