Create power.r