Update TP2.hs