Update Chapter1.hs