Update Challenge1.hs