Update weekfive.hs