Create foldr.hs