Update Problem7.hs