program define loop
local i = 1
while `i'<3 {
{

use e:\person.dta
display "sex is now `i'" 

drop if a_sex!=`i'

reg a_grswk pmhruslt a_hga 

}
  local i= `i' + 1 
  clear

}

end