Update exercise4.hs

Exercise 4a done