foreach x of varlist(p1_abs-p1_fillon){
gen i_`x' = (`x' / p1_ins) * 100
}

foreach x of varlist(p1_nda-p1_fillon){
gen e_`x' = (`x' / p1_exp) * 100
}

foreach x of varlist(p2_abs-p2_lepen){
gen i_`x' = (`x' / p2_ins) * 100
}

foreach x of varlist(p2_macron-p2_lepen){
gen e_`x' = (`x' / p2_exp) * 100
}

foreach x of varlist(l1_abs-l1_exd){
gen i_`x' = (`x' / l1_ins) * 100
}

foreach x of varlist(l1_exg-l1_exd){
gen e_`x' = (`x' / l1_exp) * 100
}