Create Funtions.hs