Completeted Apply.hs