Create power_of_2.hs