Update HomeWork3.hs