modifying perfectpower.hs