program reg_interaction
    syntax, yvar(str) [indep(str) if(str)]

    reg `yvar' B_1 L_1 B_L_1_1 `indep' `if', robust
end

exit