program define SsTax, rclass
	version 9
	syntax varlist [if] , gen(namelist)
	marksample touse
	tokenize `varlist'
	#delimit ;  
	tempvar ry_earn;
	tempname oasi_tr medc_tr stax_max;

	///1. Assign Data to Variables -------------------
	
	qui gen `ry_earn' = `1' if `touse';	

	/// social security tax witheld on earnings
	scalar `oasi_tr' = 0.062;
	scalar `medc_tr' = 0.0145;
	scalar `stax_max' = 97500;

       ///Social security taxes and other contributions
 	 tokenize `gen';
	 qui gen `1' = `oasi_tr'*min(`ry_earn',`stax_max') if `touse';
	 qui gen `2' = `medc_tr'*(`ry_earn') if `touse'; 
end;