Apply.hs