Update pert.hs