Update proj04.hs