Apply.hs exercises completed