Excercise04.hs, Excercise05.hs adjusted