Update Chap5.hs