Update Ch2.hs