Update p8.hs