modify perfectpower.hs