Update fun.hs