created fun.hs